Advertisement
7D
MOV
0 8 7 7
0 8 7 8
C A 5 5 0 8
JZ
JM
08 7B
FA5 80 8
0 8 7 E C 3 5 5 0 8
: PROCESS MOV
0 8 8 1
T Y 9 1 :
DAD
29
0 8 8 2
29
0 8 8 3
29
0881» 85
12
0 8 8 5
0 8 8 6
CDBF08
0 8 8 9 CD97 0B
0 88C C 9 8 1 0 C
0 88F
7D
0 8 9 0
F E 0 8
0 8 9 2 D 9 8 1 0 C
0 8 9 5
C 3 5 8 0 8
;
PROCESS
>
IM M E D IA T E BYTE CAN BETWEEN - 2 5 6
; MVI
I N S T R U C T I O N . I S A SPE CIAL CASE AND CONTAINS
;
2 ARGUMENTS
0 8 9 3 F E 0 6
TYP5 :
0 8 9 A CCAOO8
0 8 9 D CD EE 08
08 A 0 CD990 B
TYS 5 :
0 8 A 3
3C
0 8 A 9 F E 0 2
0 8A6 D99A0C
7D
0 8A9
08AA C 3 2 D 0 8
}
;
FE TCH
0 8AD C D 9 9 0 S
TY 5 6 ;
0 8B0 C 9 8 1 0 C
0 8 8 3
70
0 8 8 9 F E 0 8
0 8 8 6
D 9 8 1 0 C
0 8 8 9
29
0 8 6A 29
08BB 29
08BC
1A
0 8BD 85
5F
0 88E
0 88 F
2 A 9 6 1 0
MPNT:
08 C2
7E
0 8C3 FE2C
0 8C5
23
08C5
2 2 9 6 1 0
08 C9 C 28A 0 C
0 8CC 7B
0 8CD C9
;
PROCESS 3 BYTE
; L X I
INSTRUC
08CE FED 1
TYP6 :
08D0 C 2 D E 0 8
08 D5
CDAD0 8
08 D 6
E 6 0 8
08D8 C 9 8 1 0C
08DB
78
0 8 DC E6F 7
A , L
; RST IN SR U C T IO N
TY31
TY 3 2
; ACCUMULATOR
; IN R , DCR
JMP
TY3 1
IN S T R U C T IO N
H
; MULT I PLY OPERAND BY 8
DAD
H
H
DAD
ADD
; FORM OPCODE
L
STAX
O
;SAVE OPCODE
MPNT
CALL
CALL
ASCN
i
CNZ
ERRR
INCREMENT PO INTER
MOV
; FETCH LOW ORDER OPERAND
A , L
C P I
8
ERRR
CNC
; ILLE GA L
JMP
TY32
IM M E D IA T E
IN S TR U C TIO N S
I N OPERAND
' 6
; CHECK FOR MVI
CP I
c z
TY56
CALL
ASTO
; STORE OBJECT BYTE
CALL
AS3L
;GET
IM M ED IA T E ARGUMENT
I NR
A
CPI
2
; CHECK OPERAND FOR RANGE
;OPERANO OUT OF RANGE
CNC
ERRV
MOV
A , L
TYP1
JMP
- - . 's'
1ST ARG FOR M V I AND L X I
;FET CH ARG
CALL
ASBL
ERRR
CNZ
; IL LE G A L R EGIS TE R
MOV
; GET LOW ORDER ARGUMENT
A , L
CP I
3
CNC
ERRR
; IL LE GA L R EGIS TE R
DAD
H
H
OAD
DAD
H
LDAX
; FETCH OPCODE BASE
D
ADD
L
; FOR OPCODE
MOV
£ , A
; SAVE OBJECT BYTE
LHLD
PN7R
; FETCH PO INTER
MOV
A, M
; FETCH CHARACTER
t
i
i
C P I
} CHECK FOR COMMA
I NX
H
I N C R E M E N T PO INTER
SHLD
PNTR
ERRS
; SYNTAX ERROR I F
JNZ
MOV
A ,E
RET
IN STR UCTION S
A SPE CIAL CASE
t i o n
i s
C P I
; CHECK FOR L X I
1
TY 5
} JUMP
JNZ
CALL
- Y 5 6
; GET REGISTE R
AN I
0 8
;CHECK FOR
h
CNZ
ERRR
; REG IS TER ERROR
MOV
A ,E
;GET OPCODE
AN I
0F7H
; CLEAR B I T
IN S TR U C TIO N
REGISTER
AND + 2 5 5
IN S TR U C TIO N
IN STR U C TION S
NO COMMA
IN S T R U C T IO N
I F
NOT L X I
IL LE GA L REG I S T Ei
IN ERROR
Advertisement
