Advertisement
MVI
3590
3600
STC
3610
RET
3620
READY:
CALL
3630
CMP
3640
JZ
3650
ORA
3560
JZ
3670
MVI
3680
STC
3690
RET
3700
ANA
READZ :
3710
RET
3720
3730
TEST WRITE ROUTINE. WRITE I8IT CHARS UNTIL STOPPED.
3740
3750
TESTW:
CALL
3760
JMP
3770
3780
; TEST READ.ROUTINE. READ BYTES FROM TAPE AND DISPLAY
3790
y
THEM UNTIL STOPPED. THE USER SHOULD ADJUST VOLUME
3800
;
UNTIL THE LIGHTS DON'T FLICKER.
3810
TESTR:
3820
CALL
3830
CMA
3340
OUT
3850
JMP
A,ERR6
CHECKSUM ERROR
NOTE ERROR
A80RT
READR
READ NEXT BYTE
IS IT LOW CHECKSUM BYTE?
E
READZ
CONTINUE IF IT IS
A
IS IT ZERO?
CONTINUE IF IT IS
READZ
■ A,E RR 6
CHECKSUM ERROR
NOTE ERROR
ABORT
A
CLEAR CARRY
NORMAL RETURN
INIT
;WRITE A NUMBER OF INIT CHARS
TESTW
yLOOP INDEFINITELY
READB
yREAD A BYTE FROM TAPE
yCOMPLEMENT IT FOR OUTPUT
FPONP
yDISPLAY IT
TESTR
yLOOP INDEFINITELY
J
U
- 35
Advertisement
