Advertisement
0 3A8
2 2 2 B 1 0
03AB
70
03AC 8 9
0 3A0 CAB 2 03
F I L 3 0 :
0 350
3 6 0 1
0 3 8 2
AF
F I U 3 5 :
3 2 2 0 1 0
0 3B3
0 3 8 6 C 3 C 3 0 3
:
0 3 8 9
3ACB10
f o u t
0 38C F E 5 3
03BE
0 6 0 6
0 3C0 C AC30 3
0E 01
:
03C3
f o o t
: OUTPUT THE
03 C5
2 1 2 9 1 0
:
f o u l
03C8
79
3 2 7 D 1 0
03 C9
:
f i n e
03CC E5
03CD
1 1 0 5 0 0
0 3D0
19
03DX
76
0 3 0 2
37
0 3 0 3
C 2 E 3 0 3
0 3 0 6
23
0 3D 7 86
0 3 0 8
23
0 3D9 C 2 E 3 0 3
0 30C 33
0 3 0 0
33
0 3 0 6
23
0 3DF
23
0 3 6 0 C 3F 8Q 3
; HAVE AN ENTRY TO OUTPUT
0 3 6 3
E l
FOOD:
0 3 6 9
0 6 0 5
0 3 6 6
96
:
f a s t
03 E7 COO 3 01
0 3EA OO
0 3 63
23
0 3 EC C 2 E 6 0 3
i
NOW OUTPUT B E G IN -E N D
03 EF COO 9 0 9
0 3 F 2 C D 0 9 0 9
0 3F5 CDOEO1
;
TEST COUNT,
1 1 0 9 0 0
03 F 8
F E E T :
0 3FB
19
Q3FC 3 A 7 0 1 0
0 5 FF
30
0 9 0 0
C 2 C 9 0 3
0 9 0 3
C9
;
OUTPUT NUMBER P OINTE D
; ON RET,
0 9 0 9 CO 5 0 0 2
:
f o o l
0 9 0 7
23
0 9 0 8
76
28
0 9 0 9
09 0A 65
0 9 0 8
CD 3A 02
0 9 0 6
E l
0 9 0 F
76
0 9 1 0
23
0 9 1 1
23
0 9 1 2
E5
0 9 1 3
CD9A0 2
c 1
0 9 1 5
EOFP
; S E T END
SHLD
MOV
A , L
; I S
ADDRESS ZERO?
ORA
H
JZ
F I L 3 5
7 7 6 5
MV I
; NON-ZERO -
M ,1
XRA
A
; AND MAX L I N E
STA
MAXL
JMP
FOOT
;O UTPU T PARAMETERS
LDA
I B U F + 9
' S '
; I 5
COMMAND F I L E S ?
C P I
MV I
C , M A X F I L
JZ
FOUL
MV I
C , 1
* OF E N T R IE S
I N C
LX I
,
h
f i l e o
MOV
A , C
STA
FOCNT
; SAVE COUNT
PUSH
H
LX I
D,NML EN
DAO
0
A ,M
MOV
ORA
A
JNZ
FOOO
;NCN ZERO,
I NX
-
H
ADD
M
INX
H
FOOD
JNZ
INX
SP
INX
SP
INX
H
INX
H
JMP
FEE,--
;PTR
POP
H
MV I
C,NML EN
MOV
B,M
; LOAO CHARACTER
CALL
OUT8
OCR
C
H
INX
FAST
jDO THE REST
JNZ
PTRS
CALL
FOOL
;OUTPU T BEGIN
CALL
FOOL
;OUTPU T END
CRLF
: AND C /R
CALL
H , L
P O IN T S PAST EOFP
0 , FELEN - N M L S N - 9
LX I
OAO
D
; MOVE TO NEXT ENTRY
LOA
FOCNT
OCR
A
; TEST COUNT
JNZ
F I N E
;MORE TO DO
RET
; OONEI
TO 8 Y H L
H , L. P O IN T 2 WORDS LATER
CALL
BLK1
; SPACE
INX
H
MOV
A ,M
OCX
H
PUSH
H
; OUTPUT
CALL
h o u t
POP
H
, h
MOV
A
INX
H
H
INX
PUSH
H
; OUTPUT
CALL
H0T3
b *
POP
:RESTORE H . L
SET EOF
#
OK TO OUTPU
TO 8
n
-
9 Q
Advertisement
