Advertisement
FD9E CA9AFD
JZ
FDA1 C500 FD
J M P
}
• PUT A DATA BYTE INTO CORE
FDA9 7 2
PUT-:
MOV
-FDA 5 23
FDA 6 1E85
.
M V I
FDA 8 05
OCR
FCA9 C 231 F D
JNZ
INR
-FDAC 1C
F DAD C 331 FD
JMP
\
IGNORE A TYPE 8YTE
MV I
FDBO 1E 85
T Y P E :
JMP
FDB 2 C 331 F D
GET LOW BYTE OF ADDRESS
FDB 5 6A
LADD:
MOV
FOBS
1E8A
MV I
FDB 8 C 331 FD
JMP ,
GET HIGH BYTE OF ADDRESS
;
FD8B 52
HADD:
MOV
FDBC 1E83
MV I
FOBE C33 IF D
;
GET COUNT BYTE
FDC1
92
COUNT;:
FDC2
7A
FDC 3 37
FDCA CA93FD
FDC7
1E82
FDC 9 C 33 1FD
/
0 0 0 0
STPL
START
M ,0
; STORE THE DATA
H
; INCREMENT THE H REG
I NX
E , 8 5H
;R E S ET FLAG FOR NEXT DATA BYTE
8
;DECR COUNT
LOOP2
;GO BACK FOR MORE DATA.
E
; OUT OF OATA,
L 0 0P 2
;
CHECKSUM.
E, 85H
7 SET FLAG FOR DATA
LOOP2
; GO GET DATA
L , D
7 GET BYTE INTO L-REG
E , 8 9 H
; SET FLAG FOR TYPE BYTE
LOCP2
H, D
7 GET BYTE INTO H
E, 83H
7 SET FLAG FOR LOW ADDRESS BYTE
JMP
L 0 0 P 2
B, D
; PUT COUNT INTO B
MOV
MOV
A, D
; CHECK FOR EOF
ORA
A
STOP .
EOF,
JZ
7 IF
£ , 8 2H
■•ELSE SET FLAG FOR ADDRESS BYTE
MV I
JMP
LOOP2
END
SET FLAG FOR
'
GO STOP READER
PGM-4A
12 - 69
Advertisement
