
Application Note
SCC in Binary Synchronous Communications
10-8
APPENDIX
SOFTWARE ROUTINES
plzasm 1.3
LOC OBJ CODE STMT SOURCE STATEMENT
1 BISYNC MODULE
$LISTON $TTY
CONSTANT
WR0A := %FE21 !BASE ADDRESS FOR WR0 CHANNEL A!
RR0A := %FE21 !BASE ADDRESS FOR RR0 CHANNEL A!
RBUF := %5400 !BUFFER AREA FOR RECEIVE CHARACTER!
PSAREA := %4400 !START ADDRESS FOR PROGRAM STAT AREAS!
COUNT := 12 !NO. OF CHAR FOR TRANSMIT ROUTINE!
0000 GLOBAL MAIN PROCEDURE
ENTRY
0000 7601 LDA R1, PSAREA
0002 4400
0004 7D1D LDCTL PSAPOFF,R1 !LOAD PSAP
0006 2100 LD RO,#%5000
0008 5000
000A 3310 LD Rl(#%lC),R0 !FCW VALUE(%5000) AT %441C FOR VECTORED!
000C 001C
!INTERRUPTS!
000E 7600 LDA R0,REC
0010 00F4'
0012 3310 LD Rl(#%76),R0 !EXT. STATUS SERVICE ADDR. AT %4476 IN!
0014 0076
!PSA!
0016 7600 LDA R0, SPCOND
0018 011E'
00IA 3310 LD R1(#%7A),R0 !SP.COND.SERVICE ADDR AT %447A IN PSA!
001C 007A
001E 5F00 CALL INIT
0020 0034'
0022 5F00 CALL TRANSMIT
0024 00A6'
0026 E8FF JR $
0028 02 TBUF: BVAL %02 !START OF TEXT!
0029 31 BVAL ‘1' !BVAL MEANS BYTE VALUE. MESSAGE CHAR.!
002A 32 BVAL ‘2'
002B 33 BVAL ‘3'
002C 34 BVAL ‘4'
002D 35 BVAL ‘5'
002E 36 BVAL ‘6'
002F 37 BVAL ‘7'
0030 38 BVAL ‘8'
0031 39 BVAL ‘9'
0032 30 BVAL ‘0'
0033 31 BVAL ‘1'
0034 END MAIN
Commentaires sur ces manuels