' ********************************************************************** ' ** Program name: S1DEB1.BAS - Version : 1.0 - 10 May 1999 ** ' ** Compiler : BASCOM LT, (IDE V.1.20, LIB V.1.27) ** ' ** Board : GPC(r) 323 ** ' ** 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 ** ' ** ** ' ** Written by: Graziano Gaiba ** ' ********************************************************************** ' ' This program shows the status of port C on the lines of port A ' To achieve the visualization of the lines, you should connect the CN7 ' connector of GPC(r) 323 board to the CN15 connector of DEB(r) 01 board by ' a 20-pin flat cable. ' '************************ Compiler Directives ******************************* ' $romstart = &H8050 ' start address of machine code $ramstart = &HD000 ' start address of data area $ramsize = &H2800 ' 10k of data area $crystal = 22118400 ' clock of microcontroller $baud = 19200 ' RS-232 baud rate $large ' 16 bit addressing mode ' '************************** Constant declarations **************************** ' Dim Pda As Const &HFFFC ' port A data register Dim Pdb As Const &HFFFD ' port B data register Dim Pdc As Const &HFFFE ' port C data register Dim Cnt As Const &HFFFF ' control register ' '************************** Variable declarations **************************** ' Dim Portc As Byte ' Memorizza lo stato di Port C ' '***************************** Main Program ********************************** ' Waitms 1 ' Delay for signals settling Print " Demonstration program 3 for section 1 of DEB(r) 01 board" Print : Print " Shows the status of port C on the lines of port A." Print : Print " Running..." Print Out Cnt , &B10001011 ' Configures port C e B for input, ' port A for output Do Portc = Inp(pdc) ' Reads port C Out Pda , Portc ' Writes it to port A Loop End ' '*************************** End of Main program ***************************** '