Advertisement
0 8 0C
0 8 OF 3A B 2 1 0
0 8 1 2
0811» CO
0 8 1 5
0 8 1 8
0 81B ES
0 8 1 C
0 8 1 F
0 8 2 0
0 8 2 1
0 8 2 2
0 8 2 3
0 8 2 9
0 8 2 5
0 8 2 8
0 8 2 9
0 8 2C C9
0 8 2 0 CDEE08
0 8 3 0
0 8 3 1
0 3 3 9 C981QC
0 8 3 7
0 8 3 8
0 8 3 9
0 8 3C F E 0 2
0 8 3 E
0 8 9 1
0 8 9 9
0 8 9 7
0 8 9 A
0 8 9 3
0 8 9 C
0 8 9 F
0 8 5 0
0 8 5 2
0 8 5 5
0 8 5 6
0 8 5 7
0 8 5 8
0 8 5 9
08 5A
0 8 5 B
0 8 5 D CC810 C
0 8 6 0
0 8 6 3
0 8 6 6
0 8 6 9
08 6A
08 6C
0 8 6 F
0 8 7 0
0 8 7 2
1 2
-
4 0
i
DO ORG PSEUDO -O P
9 9 0
-
ORG2:
CALL
c d
b
LDA
F E 2 0
C P I
RNZ
CALL
CD FD 07
2 A 9 2 1 0
LHLD
XCHG
2 2 9 2 1 0
SHLD
MOV
7D
SUB
93
5F
MOV
MOV
7C
9A
S8B
57
MOV
2A 8 C 1 0
LHLD
DAD
19
2 2 8 C 1 0
SHLD
RET
;
PROCESS
1 BYTE
T Y P l :
CALL
C9
RET
STAX AND LDAX
;
PROCESS
CD990B
TYP2 :
CALL
CNZ
7D
MOV
ORA
B 7
C A 5 5 0 8
J Z
C P I
C 9 8 1 0 C
CNZ
C 3 5 5 0 8
JMP
;
PROCESS PUSH, P O P , IN X , DCX,DAD
CALL
C D 990 8
TYP3 :
C 9 8 1 0 C
CNZ
7D
MOV
OF
RRC
DC810 C
c c
17
RAL
F E 0 8
C P I
D 9 8 1 0 C
CNC
07
3 1 :
RLC
t y
17
RAL
17
RAL
9 7
MOV
TY3 2 :
1A
LDAX
80
ADO
FE 7 6
C P I
CZ
C 3 2 D 0 8
JMP
;
PROCESS ACCUMULATOR,
CD990B
TYP9 :
CALL
C 9 8 1 0 C
CNZ
7D
MOV
FE 08
C P I
0 9 8 1 0C
CNC
1A
LDAX
FE 9 0
C P I
C A 8 1 0 8
JZ
;G E T NEW O R I G I N
ASBL
OBUF
i
; GET ERROR
IN D IC A T O R
t
; CHECK FOR AN ERROR
; DON 1T M O D IF Y PC I F
B I NAD
; STORE NEW ADDR I N
ASPC
;F E T C H PC
; STORE NEW PC
ASPC
A , L
E
; FORM D IF F E R E N C E OF O R IG IN S
E , A
A , H
D
D , A
8 B U F + 2 '
;F E T C H STORAGE P O IN T E R
D
;M O O IF Y
BBUF+2
; SAVE
IN S TR U C TIO N S W IT H OU T OPERANDS
ASTO
; STORE VALUE
I N MEMORY
IN S T R U C T IO N S
;F E T C H OPERAND
ASBL
ERRR
; IL LE G A L R E GIS TE R
; GET LOW ORDER OPERAND
A , L
A
; SET FLAGS
T Y 3 1
;OPE(fAND = 0
2
;OPERANO = 2
; IL LE G A L R E GIS TE R
ERRR
TY3 1
IN S TR U C TIO N S
; FETCH OPERANO
ASBL
ERRR
; IL LE GA L
R EGIS TE R
,
; GET LOW ORDER OPERAND
a
l
;CH£CK LOW ORDER B I T
ERRR
; IL LE G A L
R E GIS TE R
; RESTORE
8
ERRR
; IL LE GA L R E GIS TE R
;M UL T I PLY BY 8
B , A
D
; FETCH OPCODE BASE
B
; FORM OPCODE
11 8
; CHECK FOR MOV M,M
ERRR
; IL LE G A L R E GIS TE R
T Y P l
I N R , D C R , M O V , R S T
ASBL
;F E T C H OPERAND
ERRR
; IL LE GA L
R EGIS TE R
A , L
; GET LOW ORDER OPERAND
8
; IL LE G A L REG ISTER
ERRR
; FETCH OPCODE SASE
D
6 9
; CHECK FOR MOV IN S T R U C T IO N
TY 9 1
ERROR
OBUF
IN S TR U C TIO N S
Advertisement
