' ********************************************************************** ' ** Program: S1DEB3 - Version : 1.1 - 1 March 1999 ** ' ** Compilatr : BASCOM LT, (IDE V.1.20, LIB V.1.27) ** ' ** Card : GPC(r) F2 ** ' ** Firm: grifo(r) ITALIAN TECHNOLOGY ** ' ** Via Dell' Artigiano 8/6 40016 San Giorgio di Piano (BO) ** ' ** Tel.+39 051 892 052 Fax +39 051 893 661 ** ' ** http://www.grifo.com http://www.grifo.it ** ' ** sales@grifo.it tech@grifo.it grifo@grifo.it ** ' ** ** ' ** Developed by: Enea Tassinari ** ' ********************************************************************** ' ' This program allows to display on the A port, the C port status. ' In order to make an easier visualization of the status lines, it is ' necessary to get a 20 pins flat cable for connecting GPC(r)F2 CN2 ' connector to TIO 16 CN1 connector, or DEB 01 CN15 connector. ' '*********************************************************************** ' '****************** Compiler directive ********************************* ' $romstart = &H8050 ' address start of the code machine $ramstart = &HD000 ' address start of the data area $ramsize = &H2800 ' put to 10K the data area $crystal = 11059200 ' clock frequency of the microcontroller $baud = 9600 ' RS-232 comunication speed $large ' address to 16 bit ' '****************** Constant declaration ******************************* ' Dim Cnt As Const &HFA03 ' register of command end control of the 82c55 Dim Pda As Const &HFA00 ' data register of A port Dim Pdc As Const &HFA02 ' data register of C port ' '****************** Variables declaration ****************************** ' Dim Portc As Byte ' variable for the read of the C port ' '************************* Program Main ******************************** ' Main: Waitms 1 ' delay for the signals arrangement Out Cnt , 139 ' program 0 mode, A port=output and C port=input Out Pda , 255 ' led off in the start time Print Print " VISUALIZATION ON THE A PORT, THE C PORT STATUS IN PROGRESS " Print " Reset the card for exit" Print Print Print " Status of the C port: " Do Waitms 50 Portc = Inp(pdc) ' read the C port status Out Pda , Portc ' write on A port, the C port status Portc = Not Portc ' make a not Print " " ; Portc ; " ";' visualization of the C port contents Print Chr(13); Loop End ' '************************ End main program ***************************** '