Advertisement
FA32
04
5E FA
F A 35
F A3 5
F A3 5
F A 35
F A 3 5
F A3 5 I E
2 0
F A 37
7C
F A3
2F
8
F A 3 9 D3
FF
F A 3 3
CD
E FA
6
FA3S DA 4 A FA
F A 4 1
I D
F A4 2 C2
37
FA
F A4 5 15
F A4
C 2 35
FA
6
F A 4 9 AF
FA4A
FA4A
FA4A
F A4 A 2F
FA4B
57
FA4C
26
FF
FA4E
7C
F A 4 F
03
FF
F A 5 1
E3
F A 5 2
OC 40
0 1
F A 5 5
OS
FASS
78
F A 57
G l
FAS
C 2 55
FA
8
FA5B C3
4E FA
FASE
FASE
FASE
FASE
FASE
F 5
F A5F C 5
FA
0 OE FF
. 6
F A 6 2
3S
33
F A 64
CD
F3
2 1
F A
7 OD
6
F A 6 3 C 2 54
FA
FASS C I
C F l
F A
6
FASO C9
FASE
FASE
FASE
FASE
F 3
F A
F C5
6
F A 7 0
05
F A 7 1
78
F A72
OF
F A 73
OA 9 5 FA
F A 76
78
F A 7 7
0 7
F A 7 8
DC C
FA
6
F A78
FF
1 1
0 0
FA7E
OC
0 7 8 0
CMC
07 90
0 8 0 0
LOOPS T C :
0 8 1 0
1)
DUMP/LOAD
0 8 2 0
2)
W R I T E / R E A D
0 8 3 0
0 8 4 0
LOOP I :
H V I
0 8 5 0
L O O P 2 :
MOV
0 8 6 0
CM A
0 8 7 0
OUT
0 8 8 0
CALL
0 8 9 0
JC
0 9 0 0
DCR
0 9 1 0
JNZ
0 9 2 0
DCR
0 9 3 0
JNZ
0 9 4 0
XRA
0 9 5 0
7
0 9 6 0
E X I T
R O U T I N E .
0 9 7 0
0 9 8 0
E X I T :
C*1 A
0 9 9 0
MOV
MVI
1 0 0 0
O U T :
MOV
1 0 1 0
OUT
1 0 2 0
103 0
XCHG
1 0 4 0
L X I
1 0 5 0
D E L A Y :
OCX
1 0 6 0
MOV
1 0 7 0
OPA
1 0 8 0
JNZ
1 0 9 0
JMP
1 1 0 0
I N
ORDER TO LET THE AUTO U A T I C
1 1 1 0
S T A B I L I Z E , W R IT E
1 1 2 0
1 1 3 0
1 1 4 0
I U I T :
PUS'I
1 1 5 0
PUSH
1 1 6 0
MVI
1 1 7 0
MVI
1 1 8 0
I N I T O :
CALL
1 1 9 0
DCP
JNZ
1 2 0 0
POD
1 2 1 0
POP
1 2 2 0
1 2 3 0
RET
1 2 4 0
1 2 5 0
H I T
STANDARD CA SSETTE RECORDER
1 2 6 0
1 2 7 0
C P I O D :
D I
1 2 8 0
PUSH
1 2 9 0
PUSH
1 3 0 0
MOV
1 3 1 0
SRC
1 3 2 0
JC
-
1 3 3 0
MOV
1 3 4 0
PLC
1 3 5 0
CC
1 3 6 0
L X I
1 3 7 0
IN S
I N I T
; I F
W R I T I N G ,
4K I N C ' S
U N T I L COUNT EXHAUSTED,
3 2
RECORDS.
E , 32
; #
OF 1 2 8 - B Y T E
A , H
; PUT H IG H
ADDRESS BYTE
.-COMPLEMENT FOP OUTPUT
FRONP
; S E T L IG H T S
C S IO O
; W F I T E / P E A D A 1 2 8 - B Y T E
E X I T
; E X I T
I F
ERROR
E
;COUNT RECORDS DOWN
LOOP 2
; LOOP U N T I L
D
; COUNT 4K I N C ' S
LOOP1
; LOOP U N T I L
A
; DO NE,
SET L IG H T S OFR
FLASH CO M PL ETIO N CODE I V
.-COMPLEMENT FOR OUTPUT
0 , A
;S AVE OUTPUT CODE I N
H , OFFH
;P U T 0 0 OUT CODE
A , H
;G ET CODE TO OUTPUT
FRONP
; S E T L IG H T S
; EXCHANGE CODES I N
3 , 4 0 0 0 H
; G E T DELAY CCUMTEP
3
; START OF DELAY LOOP
A , B
; I S
COUNT Z E R O ? . . .
C
DELAY
; LOOP U N T I L I T
OUT
;O U T P r J T OTHER CODE
VOLUME CONTROL
A NUMBER OF DUMMY I N I T
;SAVE
R E G IS T E R S TC RE U S E D . . .
psw
3
C, IN C N'T ; GET I N T T CHAR COUNT
A , INCHR
; GET I N I T
CHAP
WRITS
; W P I T F
I T
C
; COUNT DOWN
I N I T O
j LOOP U N T I L COUNT EXHAUSTED
3
; RESTORE SAVED R E G I S T E R S . . .
PSW
I / O
D R I V E R .
; IN S U R E ACCURATE T I M I N G
o
;S AVE R E G IS T E R S TO BE U S E D . . .
D
A , B
; PUT STATUS BYTE
; PUT W R I T E / R E A D B I T
CP FAD
; JUMP I F
RE ADIN G
; PUT STATUS
A , 3
; PUT BLOCKED B I T
WPITH
.-WRITE HEADER I F
D ,O F F H
; I N I T I A L I Z E
C
;
M
COUNT EOF. LOOP
P P I
P
I N I T
AUTO VOL CT
AND
BLOCKS I N
4K
I N
A
RECORD
A L L RECORDS DOME
DOWN
DONE
A.
O
H
I N
D
S ,
H
I S
CHAPS.
I N
a
I N CARRY
BYTE I N
A
I N
CARRY
BLOCKING
CHECKSUM
11 - 23
Advertisement
