Advertisement
; I/O PARAMETERS
/
0 040
CRI
—
CRL
0043
=
0 004
CRY
=
f
3 800
3 800 310040
3 803 3E60
3 805 D 3 43
3807 CD2A38
SYNC :
380A F E E 6
380C C 2 0 7 3 8
3 80F 3 E 2 0
3811 D343
3813 11B203
3816 210030
3819 CD2A38
READ:
381C 77
3 8 ID 23
3 81E 1B
3 8 1F 7 A
3 820 B 3
3 82 1 C 219 3 8
3 824 2 F
3825 D3FF
3 827 C 3 2 73 8
HANG :
382A DB 4 3
CASIN:
382C E 6 04
3 82E CA2A38
3 831 DB 4 0
3833 C 9
3 8 3 4
M I O
T E S T
EQU
40H
;CASSETTE PORT
EQU
43H
;CONTROL PORT
EQU
04H
;CASSETTE READY BIT
ORG
3800H
LXI
SP,4000H
MV I
A, 60H
;SET TO READ BY BIT__
OUT
CRL
CALL
CAS IN
;READ 8 BITS
CPI
0E6H
;IS IT SYNC YET?
JNZ
SYNC
;WAIT TILL IT IS
MV I
A, 2 OH
;SET TO READ BY BYTE...
OUT
CRL
LXI
D,3B2H
;INIT COUNT
LXI
H, 3 0 0 0H ;GET START LOAD ADDRESS
CALL
CAS IN
;READ A BYTE
MOV
M, A
;STASH IT.. .
I NX
H
OCX
D
;COUNT DOWN
MOV
A, D
;IS COUNT 0?...
ORA
E
UNZ
READ
;CHECK ALL BYTES
CMA
;CLEAR LIGHTS...
OUT
0FFH
UMP
HANG
;HANG HERE
I N .
CRL
;WA IT TILL DATA AVAILABLE
AN I
CRY
CAS IN
U Z
IN
CRI
;READ 8 BITS
RET
E N D
C A S S E T T E
L O A D E R
Advertisement
