' **********************************************************************
' ** Program: S1DEB2 -  Version  : 1.1   -   25  February    1999     **
' ** Compier     : 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 developping system monitor the A 
' and C ports 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 Porta As Byte                       ' variable for the read of the A port
Dim Portc As Byte                       ' variable for the read of the C port 
'
'************************* Program main ********************************
'
Main:
Waitms 1                                ' delay for the signals arrangement
Out Cnt , 155                           ' program 0 mode, A port, C port, B port = input
Out Pda , 255                           ' led off in the start time
Out Pdc , 255                           ' led off in the start time
Print
Print "   VISUALIZATION OF THE A & C PORT STATUS IN PROGRESS "
Print "    PRESS ANY CONTROL PORT KEY FOR CHANGE THE STATUS "
Print "                Reset the card for exit "
Print
Print " STATUS OF A PORT:      STATUS OF C PORT:"
Do
   Waitms 50
      Porta = Inp(pda)                  ' read the A port status
      Portc = Inp(pdc)                  ' read the C port status
      Porta = Not Porta                 ' make a not of the A port 
      Portc = Not Portc                 ' make a not of the C port 
      Print "       " ; Porta ; "        ";' Visualization of the content port 
      Print "                " ; Portc ; "        ";
      Print Chr(13);
Loop
End
'
'************************ End main program *****************************
'