Advertisement
0 9 1 7 C9
RET
;
SEARCH THE F I L E
;
WHOSE NAME
;
RETURN I F
;
ENTRY W HILE
;
ZE RO,
SET FEF
0 9 1 8 A F
F 5 E A ;
XRA
0 9 1 9
3 2 7 D 1 0
MV I
0 9 I C
0 6 0 6
1 1 2 9 1 0
Q91E
0 9 2 1
2 1 7 6 1 0
F S E 1 0 :
L X I
MV I
0 9 2 9
0 E 0 5
0 9 2 6 C D 5 3 0 1
CALL
PUSH
0 9 2 9
F 5
09 2A D5
PUSH
1A
0 9 2 0
09 2C
ORA
07
092D C 2 9 E 0 9
0 9 3 0
13
1A
0 9 3 1
0 9 3 2
ORA
B7
C 2 9 E 0 9
0 9 3 3
0 9 3 6
EB
0 9 3 7
I 1 F A F F
. L X I
0 93A
19
0 9 3 0
2 2 7 0 1 0
0 9 3 E 7A
MOV
0 93 F
3 2 7 D 1 0
0 9 9 2
E l
F I
0 9 9 3
;
MOVE TO NEXT ENTRY
0 9 9 9
1 1 0 8 0 0
F S E 1 5 :
0 9 9 7
19
0 9 9 8
EB
05
0 9 9 9
099A
C8
0 9 9 0
C 3 2 1 0 9
; ENTRY WASN 1 T F'REE,
09 9E
E l
F S E 2 0 :
0 99 F F I
09 5 0 C 2 9 9 Q 9
; ENTRY FOUND
1 1 F 3 F F
0 9 5 3
0 9 5 6
19
7A
0 9 5 7
MOV
0 9 5 8
8 7
0 9 5 9 C9
7
;
OUTPUT ERROR MESSAGE FOR IL L E G A L COMMAND
09 5A C D 0 E 0 1
WHAT:
0 9 5 D 2 1 6 6 0 9
WHA1 :
0 9 6 0 C D 7 A 0 2
MESS :
0 9 6 3 C 3 6 7 0 0
0 9 6 6
5 7 9 8 9 1 5 9
EMES :
0 9 6
0D
a
0 9 6 8
9 6 5 5 9 C 9 C
E M E S I :
0 9 6F
0D
0 9 7 0
9 E 9 F 2 0 9 E EMES 2 :
0 9 7 9
9F 0 D
}
: CALL ROU TINE
DIRECTORY FOR THE F I L E
I S
IN F B U F .
FOUND,
ZERO IS O F F ,
S EARCHING,
ON ENTRY FOUND WITH ADDR
TO > 0 AND FREAO
A
STA
FEF
; C L A I M NO FREE E N T R IE 5
0 , M A X F I L
D , F I L E D
; T A 8 LE ADORESS
LX I
H ,F B U F
C ,NMLEN
SEAR
; TEST STRINGS
PSW
; SAVE FLAG
D
O
;G E T 8 0 F P
l d a x
A
; EMPTY ENTRY?
JNZ
F S E 2 0
I NX
D
; STORE OTHER WORD
LDAX
O
A
F S E 2 0
;N OP E -G O TEST FOR MATCH
JNZ
XCHG
D , - N M L E N - 1
OAD
D
;MOV TO BEGINN ING
SHLD
FREAD
; SAVE ADDR
A , D
STA
FEF
; SET FREE ENTRY FOUND
POP
H
;RESTOR
PSW
; UNJUNK STACK
POP
L X I
D ,F E L E N -N M L E N
DAD
D
XCHG
;N E X T ENTRY ADOR
0
; TES T COUNT
OCR
RZ
;D ONE— NOPE
JMP
F S E 1 0
; T R Y NEXT
TEST FOR MATCH
POP
H
POP
PSW
JNZ
F 5 E 1 5
i I F
ZERO CLEAR,
LX I
D , - N M L E N
DAD
D
; H , L
P O IN T S
A , D
ORA
A
;C LEA R
RET
; T H A T ' S
CRLF
; OUT CRLF
CALL
L X I
H ,E M E S
;MESSAGE ADDRESS
CALL
SCRN
JMP
EOR
' WHAT 1
D8
D8
13
;C A R R IA G E RETURN
D8
' F U L L ' , 13
DB
'NO N O ' , 13
TO ENTER DATA
I N T0 MEMORY
H, L P O I N T
TO
TO THE ADDR OF ENTRY
; COUNT OF E N TR IE S
I N T E R I M
PTR
I N DE
NO MATCH
; 3ACKUP
TO ENTRY
ZERO
ALL
Advertisement
