; ********************************************************************** ; * File S1DEB8.asm board: GPC 554 with SXA51 * ; * GRIFO(R) via Dell'Artigiano 8/6 40016 S. Giorgio di Piano (BO) * ; * Tel. +39 051 892052 Fax. +39 051 893661 * ; * http://www.grifo.it http://www.grifo.com * ; * by Alessio Francesconi 05.10.04 * ; ********************************************************************** ; DEB 01's example program of section 1, driven from a GPC 554. ; This section is composed by 16 keys conncted to 16 LEDs: ; the pressure of one or more of these keys, sets the logic state 0 on ; the line and the relative LED is lit by hardware. ; This program has to comunicate with PC and perform a count loop,in ; binary logic, showing the counter value on the two ports. ; For cursor movement and positioning, are used some command sequences ; with ADDS Viewpoint standard (see GET51 manual). ; The connection is realized through one 26+20 pins flat cable that interface ; 26 pins CN5 connector of GPC 554 and 20 pins CN15 connector of DEB 01. ; ; Addresses of on board peripherals ; PORT1 EQU 090H ;80c552 data register of port 1 PORT4 EQU 0C0H ;80c552 data register of port 4 ; ; Initialization of constant data ; TXCHAR EQU 0DH ;variable with the value for the transmission FPORT EQU 08H ;internal memory address with port4 value SECPORT EQU 09H ;internal memory address with port1 value DELAY EQU 11H ;variable used in delay subroutine ; ; Start of main program ; ORG 2050H ;beginning of executable part program MAIN: MOV SP,#2FH ;initialize the first free location pointer of the stack MOV PORT1,#00H ;set port 1 GPC 554 (port 1 DEB 01) in output MOV PORT4,#00H ;set port 4 GPC 554 (port 0 DEB 01) in output CLR RS0 ;select the registers bank 0 (00H-07H) CLR RS1 ACALL SERIAL MOV DPTR,#HEADING ;print to monitor the "HEADING" string ACALL STRING MOV DPL,#00H ;initialize counter value saved on DPTR MOV DPH,#00H MOV R2,#50 ;set 50 value to obtain 10 msec delay ; CYCLE: MOV FPORT,DPL ;load DPTR = counter bytes on proper variables MOV SECPORT,DPH MOV A,FPORT CPL A ;complement variables because they have to MOV FPORT,A ;light when the line status is 1 MOV A,SECPORT CPL A MOV SECPORT,A ACALL DELAY100 ;100 usec delay ACALL OUTPORT01 ;visualize current counter obtained above INC DPTR ;update current counter AJMP CYCLE ; ; Subroutine to show the acquire data on Port 0 and Port 1 ; OUTPORT01: PUSH PSW ;save registers used by subroutine PUSH DPL PUSH DPH PUSH ACC MOV A,FPORT ;load the value to represent on ACC MOV PORT4,A ;and to put it on port 0 of DEB 01 MOV A,SECPORT ;load the value to represent on ACC MOV PORT1,A ;and to put it on port 1 of DEB 01 POP ACC ;restore registers used by subroutine POP DPH POP DPL POP PSW RET ; ; Serial initialization procedure ; SERIAL: PUSH PSW ;save PSW MOV SCON,#50H ;select mode 1, active reception MOV TH1,#253 ;initialize to 19200 baud ANL PCON,#7FH ;reset the bit 7 of PCON (SMOD) POP PSW ;restore PSW RET ; ; Serial transmission of a string contained in external data memory ; STRING: PUSH PSW ;save registers used by subroutine PUSH ACC PUSH TXCHAR STRINGLOOP: MOVX A,@DPTR ;load into A the memory contents pointed by DPTR JZ ENDSTRING ;if the last reading character is void (00H),jump to end MOV TXCHAR,A ;put the current character into the variable for the transmission ACALL TRASMSER ;transmit the character INC DPTR ;increase the pointer to be ready SJMP STRINGLOOP ;for the following character ENDSTRING: POP TXCHAR ;restore registers used by subroutine POP ACC POP PSW RET ; ; Serial transmission's procedure ; TRASMSER: PUSH PSW ;save PSW TRASM1: JBC TI,TRASM2 ;jump to TRASM2 if TI = 1 and reset TI SJMP TRASM1 ;jump to TRASM1 because TI = 0 ;and serial is still in transmission TRASM2: MOV SBUF,TXCHAR POP PSW ;restore PSW RET ; ; Subroutine for delay of 100 microseconds variable with R2 ; DELAY100: MOV DELAY,#120 ;120 cycles to obtain 100 usec delay DJNZ DELAY,$ ;defined by measure DJNZ R2,DELAY100 RET ; ; HEADING: DB 0CH,' Perform a count loop, showing the counter value on the two ports.',00H END