Advertisement
F B
F I F
8
F 3 9 0
9 FE
0 2
8
F B 9 3
78
F 3 9 4
I F
F 3 9 5
47
F 3 9 6
0 6
16
F 3 9 3
3 3
F 3 9 9
CA AO FB
FB9C
15
F 3 9 D C2
77
FB
FBAO 0 3
FC
FBA2 I F
F 3 A 3
AO FB
0 2
F 3 A 6
78
F 3 A 7 C l
F 3 A 8
0 1
F 3 A 9
C9
FBAA
F BAA
F BAA
FBAA 3E 0 3
FBAC CD
FB
2 1
F 3A F
7A
F 9B 0 CO
FS
2 1
F 3 3 3
73
F 38 4 CD
FB
2 1
F B 3 7 C9
F B 3 3
F 3 B 8
F BBC
F BB S CD
9 FB
6
F 3 B 3
FE 03
FB3D CA C 4 FB
F 3 C 0
3E 04
F 3 C 2
37
F 3 C 3 C9
F3C 4
CD
9 F3
6
F 3 C 7
BA
F3C3 CA 03
FB
F3CB
37
F3CC CA 0 3
FB
FBCF
3E OS
37
F 3 D 1
F 3 C 2 C9
FBD3 CD
9 FB
6
F 3D 6
BB
FBD7 CA E
F3
2
F3CA 3 7
FBDB CA E
FB
2
F BOE 3E OS
F 3 E 0
37
F 3 E 1
C9
FBC2 A7
F 3 E 3
C9
F 3 E 4
F 3E 4
F 3 E 4
F 3 E 4
CO 5E FA
FBE7 C 3 E 4 FB
F 3 FA
3 1 8 0
RAR
3 1 9 0
JNC
3 2 0 0
B I T S D :
MCV
3 2 1 0
RAP
3 2 2 0
MOV
3 2 3 0
S O I
3 2 4 0
ORA
3 2 5 0
JZ
3 2 6 0
OCR
3 2 7 0
JNZ
3 2 8 0
S T O P L :
I N
3 2 9 0
RAR
3 3 0 0
JNC
3 3 1 0
MOV
3 3 2 0
POP
3 3 3 0
POP
3 3 4 0
RET
3 3 5 0
*
3 3 6 0
; W P IT E H I T
STANDARD BLOCK T R A I L E R .
3 3 7 0
J
3 3 8 0
MV I
WRXTT:
3 3 9 0
CALL
3 4 0 0
MOV
3 4 1 0
CALL
3 4 2 0
MOV
3 4 3 0
CALL
3 4 4 0
RET
3 4 5 0
*
3 4 6 0
;
READ H I T
STANDARD BLOCK T R A I L E R .
3 4 7 0
«
t
3 4 3 0
READT:
CALL
3 4 9 0
C F I
3 5 0 0
JZ
3 5 1 0
MV I
3 5 2 0
STC
3 5 3 0
RET
3 5 1 0
PE ADX:
CALL
3 5 5 0
CMP
3 5 6 0
JZ
3 5 7 0
ORA
3 5 8 0
JZ
3 5 9 0
MV I
3 6 0 0
5TC
3 6 1 0
RET
36 20 READY:
CALL
36 30
CM?
3 6 4 0
JZ
36 50
OPA
3 6 6 0
JZ
3 6 7 0
M VI
3 6 8 0
STC
3 6 9 0
PET
3 7 0 0
REA D S:
AHA
3 7 1 0
RET
3 7 2 0
1
3 7 3 0
; T E S T W P IT E
R O U T I N E .
;
3 7 4 0
'TESTvr:
3 7 5 0
CALL
376 0
IMP
3 7 7 0
t
T IM P N
LOOP U N T I L NEX T S I G N A L
A , 3
B I T
STAT E D E T E R M I N E D ,
I N S E R T NEW B I T
B , A
SAVE BYTE AGAIN
SYNCH
I S
I T
A SYNC?
E
LOOKING FOR A SYNC?
STOPL
W A I T FOR STOP B I T
D
COUNT DOWN 3 I T S
GBITO
LOOP U N T I L ALL 3 I T S
U C R IP
W A IT FOR STOP B I T
STOPL
A , 3
; PUT BYTE I N
B
; RESTORF SAVED P E G I S T E P E . . .
D
A , ETXCH
GET E N D - O F - T E X T CHAR
W R IT 3
W P IT E
I T
TO TAPE
A
D
•GET H IG H BYTE OF CHECKSUM
»
N R I T B
•W R IT E
I T
•GET LOW BYTE OF CHECKSUM
A » E
WRITS
• W P IT E
I T
READS
READ A B YTE FROM TAPE
ETXCH
I S
I T
AM ETX?
READX
C O N T IN U E
I F
A ,E R R 4
NO ETX FOUND
NOTE EPROP
ABORT
READS
PEAD NEXT BYTE
D
I S
I T
H IG H CHECKSUM BYTE?
READY
CO N T IN U E
I F
A
I S
I T
ZERO?
READY
C O N T IN U E
I F
A , E R R
CF'ECKSUM ERROR
6
NOTE ERROR
ABORT
READS
READ NEXT BYTE
E
I S
I T
LOW CHECKSUM BY'EE?
RF»DZ
C O N T IN U E
I F
A
I S
I T
ZERO?
READZ
C O N T IN U E
I F
A , E P R
CHECKSUM FPROR
6
MOTE r RROR
ABORT
A
CLEAR CAPRY
NORMAL RETURN
W RITE
I N I T
CHARS U N T I L
I N I T
• W P IT E A NUMBER OF
TESTW
■LOOP I N D E F I N I T E L Y
J
GET 3 Y T C
I F
YES
RE AD
P U L S E . . .
A
I T
I S
I T
I S
I T
I S
I T
I S
I T
I S
STO PP ED.
I U I T
CHAP?
11 - 27
Advertisement
