Advertisement
FA7F
OD
F A 8 0 CA
E FA
8
F A 3 3
7E
F A 8 4
23
FAS5 CD BD FA
FA 38 CD
FB
2 1
F A
B C3
7 F FA
8
F A
E 78
8
F A
F 07
8
F A 9 0
DC AA FB
F A 93
C3
B9 FA
F A 9 6
7 8
F A 9 7
07
F A 9 3
DC OF FA
F A 9 3
DA BA FA
F A9E
FF
1 1
0 0
F A A l
oc
FAA2
OD
FA A . 3 CA 3 1
FA
F A A
CD 6 9 FB
6
FAA9 77
F AAA 23
FAA5 CD BD FA
FAAE C3 A2 FA
F A B l
7 B
FAB 2 07
FAB3
DC S8
FB
FAB
DA BA FA
6
FAB 9 AF
FABA D1
FAB3 C l
F ABC C9
F A
D
8
FASD
FABD
FA3D F5
FABE 83
F A 3F
5 F
FACO 3E
0 0
8
FAC 2
A
FAC 3 57
FAC4
F I
FACS C9
FACS
FAC
6
F AC
6
FACS F5
FAC 7 C5
FAC 3 3E
16
FACA OS
2 0
F ACC CD
Fe
2 1
FACF 0 5
FADO C 2 CC FA
FAD3
3E
0 2
FAD5 CD
FB
2 1
FA D
79
8
FAC9 CD
FB
2 1
FADC C l
FADD F I
FADE C 9
24
11
1 3 3 0
«LO O P :
DCR
1 3 9 0
JZ
1 4 0 0
MOV
1 4 1 0
I N X
1 4 2 0
CALL
1 4 3 0
CALL
1 4 4 0
JMP
1 4 5 0
« T A I L :
MOV
1 4 6 0
RLC
1 4 7 0
CC
1 4 8 0
JMP
1 4 9 0
CREAD:
MOV
1 5 0 0
RLC
1 5 1 0
CC
1 5 2 0
JC
1 5 3 0
LX I
1 5 4 0
I N S
1 5 5 0
RLO OP:
DCR
1 5 6 0
JZ
1 5 7 0
CALL
1 5 8 0
MOV
1 5 9 0
I N X
1 6 0 0
CALL
1 6 1 0
JMP
1 6 2 0
R T A I L :
MOV
1 6 3 0
RLC
1 6 4 0
CC
1 6 5 0
JC
1 6 6 0
CDO NE:
XRA
1 6 7 0 ' ERROR:
POP
1 6 8 0
POP
1 6 9 0
RET
1 7 0 0
*
1 7 1 0
ADD BYTE
;
I N
A TO CHECKSUM I N
1 7 2 0
t
1 7 3 0
CKSUM:
PUSH
1 7 4 0
ADD
1 7 5 0
MOV
1 7 6 0
MVI
1 7 7 0
ADC
1 7 3 0
MOV
1 7 9 0
POP
1 3 0 0
SET
1 8 1 0
/
1 8 2 0
; W R IT E H I T STANDARD BLOCK HEA DER.
1 8 3 0
*
1 8 4 0
H R I T H s
PUSH
1 8 5 0
PUSH
1 3 6 0
MVI
1 3 7 0
MVI
30 WRTHO:
CALL
1 0
1 3 9 0
DCS
1 9 0 0
JNZ
1 9 1 0
MVI
1 9 2 0
CALL
1 9 3 0
.MOV
19 40
CALL
1 9 5 0
POP
1 9 6 0
PO ?
1 9 7 0
SFT
C
COUNT DOWN
W T A IL
E X I T
LOOP I F
A,M
PUT NEXT BYTE
H
BUMP P O IN T E R
CKSUM
ADD BYTE TO CHECKSUM
WRITB
W R IT E BYTE
«LOOP
LOOP U N T I L A L L Da TA OUT
A , B
PUT ST ATUS BYTE I N
PUT BLOCKED B I T
W R IT T
W R IT E T A I L
I F
CDONE
ALL DONE,
RETURN
A , E
PUT STAT US BYT E I N
PUT BLOCKED B I T
READH
READ HEADER I F
ERROR
E X I T
I F
ERROR
D ,O F F H
I N I T I A L I Z E
CHECKSUM
C
P R IM E COUNT FOR LOOP
C
COUNT DOWN
R T A I L
E X I T
LOOP I F
PEAD3
READ A BYTE
M, A
STORE I T
I N
BUFFER
H
PUMP P O IN T E R
CKSUM
ADD BYTE TO CHECKSUM
RLOOP
A, B
PUT ST ATUS BYTE I N
PUT BLOCKED B I T
READT
READ T A I L
I F
EP.ROP.
NOTE ERROR
A
NORMAL RETURN,
D
RESTORE SAVED R E G I S T E R S . . .
3
DE.
PSW
SAVE A
ADD TO I.CW BYTE
E
£ , A
STORE NEW LOW BYTE
A , 0
RESET A
ADD CARRY TO H I G H BYTE
0
0 , A
; STORE NEW H IG H
PSW
; RESTORE A
PSW
SAVE R E G IS T E R S TO BE U S E D . .
B
A ,SY N C H
; GET SYNC CHAP
B , MSYNC
; GET 4 OF SYNC CHARS TO CUT
WRITB
W P IT C SYNC CHAR
; COUNT DOWN
a
WRTHO
LOOP U N T I L
ALL OUT
A , S T X C H
GET S T A P T - O F - T E X T C«AR
WFITB
W R IT E
I T
A , C
; PUT CHAP COUNT I N
WRITB
W R IT E
I T
3
P ^ F T O P F
" A V F n
p s w
NO MORE DATA
I N
A
A
I N
CARRY
BLOCKIN G
A
I N CARRY
BLOCKED DATA
NO MORE DATA.
A
I N CAREY
BLOCKED DATA
PE S E T FLAGS
BYTE
ft
RFrTF'T'FPF
Advertisement
