Advertisement
7C
0 C 9 1
0 C 9 2
9A
0C L 3
67
0C99. C 3 3 8 0 C
0 C 9 7 C D 2 0 0 8
ALAS :
0C9A CA280C
0C9D
0AA8 OC
0 C 5 0
C 3 9 5 0 C
; GET HERE WHEN T E R M IN A T IN G CHARACTER IS
CHECK FOR L E A D IN G F I E L D
;
0 C 5 3
3A 9 C 1 0
:
s e n d
0 C 5 6
3 7
0 C 5 7 C28AQC
DC5 A 2A 9 A 1 0
0C5O
S E N l :
7C
1 1 9 0 1 0
0 C 5 E
0 C 6 1
87
0 C 6 2 C9
; GET A NUMERIC
;
D E C I M A L .
CO75 OB
NUMS :
0 C 8 3
QC66
IB
0 C 6 7
1A
0C5 8 0 1 7 E 1 0
0C6B
FE 98
0C6O CA7B0C
0 C 7 0 F E 9 1 *
0 C 7 2 C 2 7 7 0 C
0 C 7 5 AF
1 2
0 C 7 6
NUM1 :
DC 7 7 COO 10 2
0C7A C9
0C7B AF
NUM2 :
0C7C
12
0C 7D C D 1 S 0 2
0C8O C9
; PROCESS R E G IS T E R ERROR
0 C 3 1 3E52
:
e r r r
2 1 0 0 0 0
0 C 8 3
0 C 8 6
3 2 B 2 1 0
0 C 8 9 C9
; PROCESS SYNTAX ERROR
0C8A
3E 53
ERRS :
0C8C
3 2 B 2 1 0
0C 3F
2 1 0 0 0 0
0 C 9 2 C3 5 0 0C
; PR OC E S S U N D EF IN ED SYM80 L ERROR
E RRU :
0C9 5 3E55
0 C 9 7 C38COC
: PROCESS VALUE ERROR
0C9A
3E 56
ERRV
0C9C C 3 8 3 0 C
; PROCESS M I S S I N G
0C 9F
3 E 9 0
:
e r r m
OCA 1 3 2 B 2 1 0
OCAL C D 0 2 0 6
0CA7 C9
}
PROCESS ARGUMENT ERROR
0CA8
3E91
:
e r r a
OCAA C38C0C
;
P R OC ES S
A , H
MOV
SBB
D
MOV
H, A
JMP
ASC7
SLA8
CALL
AVAL
JZ
ERRA
JC
; IL LE G A L
JMP
ERRU
^ U NDEF INED SYMBOL
SEPARATOR.
LDA
; FETCH OPERAND IN D IC A T O R
OPR I
ORA
A
; SET FLAGS
; SYNTAX ERROR
JNZ
ERRS
LHLD
OPRD
A , H
;G E T H IG H ORDER BYTE
MOV
LX I
D , TEMP
; GET ADDRESS
ORA
A
; SET FLAGS
RET
VALUE WH ICH
IS E IT H E R HEXADECIMAL OR
ON RETURN,
CARRY SET
CALL
ALPS
; GET NUMERIC
OCX
D
LDAX
0
; GET LAST CHARACTER
LX I
8 , ABUF
; SET SUFFER ADDRESS
' H '
; I S
I T HEXADECIMAL?
C P I
JZ
NUM2
C P I
• O '
; I S
I T DECIMA L
NUM1
JNZ
XRA
A
; GET A ZERO
D
; CLEAR D FROM BUFFER
STAX
; CONVERT DECIMAL VALUE
CALL
AOEC
RET
XRA
A
; GET A ZERO
STAX
D
; CLEAR H FROM BUFFER
CALL
AHEX
RET
MV I
A , 'R '
;G E T
; GET A 0
LX I
H, 0
STA
OBUF
; SET
RET
; GET IN D IC A TO R
MVI
A , ' S '
STA
OBUF
; STORE I N
LX I
H, 0
JMP
SENl
MVI
A , 'U *
; G E T
JMP
ERRS+2
MVI
A , ' V
; GET IN D IC A T O R
JMP
ERRR+2
LABEL ERROR
}
MVI
A , >M'
GET
STA
; STORE
08 UF
CALL
AOU1
; 0 I SPLAY ERROR
RET
; G E T
MVI
A, »A 1
J MP
ERRS+2
OPCODE
ERROR
SYMBOL
FOUNO.
IN D IC A T E S AN ERROR.
IN D IC A T O R
IN OUTPUT BUFFER
OUTPUT BUFFER
IN D IC A T O R
IN D IC A TO R
IN OUTPUT SUFFER
I N D I C A T O R
Advertisement
