Advertisement
0 1 6 F C 2 6 C 0 1
0 1 7 2
C9
;
T H I S
ROUTINE CALLS ETRA TO O BTA IN
;
VALUES AND CALLS AN ERROR ROUTINE
;
I N
THAT R O U T IN E .
0 X 7 3 CD7A01
VALC :
0 1 7 6
DA5A09
0 1 7 9 C9
;
T H I S
ROUTINE
COMMAND FROM THE
;
;
A S C I I BUFFER
;
CONVERT THE A S C I I
;
THEM
I N THE B INARY 8UF FER ( B 8 U F ) .
;
SET
IN D IC A T E S
0 1 7 A
2 1 0 0 0 0
:
e t r a
0 1 7 D 2 2 8 C 1 0
0 1 8 0
2 2 7 6 1 0
C D 6 6 0 1
0 1 8 3
0 1 8 6
2 1 C 6 1 0
V A L l :
0 1 8 9
23
0 18A
7E
0 1 8 8
FE20
0 1 8 0
3F
0 18E DO
0 18F C 2 8 9 0 1
0 1 9 2
2 2 9 6 1 0
0 1 9 5
CD0D09
3F
0 1 9 8
0 1 9 9
DO
0 1 9A
FE2F
0 19C C 2 C 9 0 1
0 1 9 F
1 1 7 6 1 0
0 1 A 2
0E0 5
0 1 A 9
23
VAL2 :
0 1 A 5
7E
01 A6
FE2F
01A8
CAB901
0 1AB OD
01AC F A 5 A 0 9
0 1AF
12
0 1B0
13
0 1 8 1
C 3A 90 1
0 1 B 4
3E 20
VAL3 :
0 1B6
OO
V A L 9 :
0 1 8 7
F A 8 F 0 1
0 I S A
12
0 IBB
13
01BC C 386 01
0 1 8F
DONE:
C D 190 9
0 1C2
3F
0 1C3 DO
0 1C9
1 1 7 E 1 0
V A L 5 :
0 1C 7 CD750B
01CA
78
01 C 8
FE05
01CD
3F
0 I C E
08
0 1CF
0 1 7 E 1 0
CD1B02
0 1 D 2
0 I D 5 D8
2 2 8 A 1 0
0 1 D 6
0 ID A
2 1 7 E 1 0
JNZ
ZBU1
RET
ETRA
; G c T
IN P U T PARAMETERS
CALL
UC
WHAT
; JUMP I F
RET
THE VALUES A S SO C IA T ED WITH A
EXTRACTS
INPUT
STREAM AND PLACES
I T ALSO CALLS A ROU TIN E TO
C
) .
a b u f
HEXAOECIMALS
AN ERROR
I N
INPUT PARAMETERS.
H , 0
; GET' A ZERO
LX I
SHLD
8BUF+2
> ZERO VALUE
; SET NO F I L E
5HLD
FBUF
ZBUF
; ZERO 8UFFER
CALL
LX I
H , I B U F - 1
I NX
H.
A ,M
; FETCH IN P U T CHARACTER
MOV
i
i
C P I
;LOOK FOR F I R S T CHARACTER
CMC
RNC
; RETURN
JNZ
V A L l
; JUMP IF
PNTR
SHLD
- r SAVE PO INTER
CALL
SBLK
} SCAN TO F I R S T PARAMETER
CMC
RNC
; RETURN I F
C P I
' / '
JNZ
;NO F I L E NAME
VAL5
LX I
D , F 3 U F
;NAM£ FOLLOWS PUT
C,NMLEN
MV I
I NX
H
A ,M
MOV
' r
C P I
JZ
VAL3
OCR
C
WHAT
JM
STAX
D
; STORE F I L E
I NX
0
JMP
VAL 2
;G E T AN A S C I I
MV I
A , '
'
OCR
C
DONE
JM
STAX
D
; F I L L
I NX
0
JMP
VAL 9
CALL
S 3L 2
CMC
RNC
L X !
D,ABUF
CALL
ALPS
; PLACE PARAMETER
; GET D I G I T
MOV
A , 8
C P I
5
} CHECK NUMBER OF D I G I T S
CMC
RC
; RETURN I F
LX I
S,ABUF
CALL
AHEX
; CONVERT VALUE
RC
; ILLEGAL CHARACTER
88UF
SHLD
; SAVE
L X I
H . A B U F
THE
IN P U T PARAMETER
I F
AN ERROR OCCURRED
ERROR
THEM I N
THE
TO B INARY AND STORES
ON RETURN,
CARRY
NAME
I F
NO CARRY
NO BLACK
CR
F 3 U F
IN
NAME
SPACE
IN W IT H SPACES
I N
3UFFER
COUNT
TOO MANY D I G I T S
IN BINARY BUFFER
Advertisement
