Advertisement
STORE 3 BYTES OF ZERO
;
;
FOR A PATCH.
QCAD 3E 9F
:
MV I
e r r o
STA
OCAF 3 2 8 2 1 0
LDA
0CB2
3 A 9 9 1 0
0CS5 B 7
ORA
0C 86 C8
RZ
0C 87
0 E 0 3
M V I
0C89 AF
XRA
E R 0 1 :
CALL
OC8A CD EE 08
0C3D OO
0C8E C2B9QC
JNZ
OCC1 C9
RET
;
PROCESS LABEL ERROR
OCC2 3E9C
:
MVI
e r r l
OCC<t C 3A F0 C
; PROCESS D U P L IC A T E LA 8 EL ERROR
OCC7 3 E 9 9
ERRO:
MVI
OCC9 3 2 8 2 1 0
occc
C D C 506
CALL
OCCF C 3 1 E 0 7
/
;
T H IS
ROUTINE
:
0CD2
3 A 7 E 1 0
b r e a k
0CD5 B 7
0CD6 C A 1 4 0 0
0CD9 1 6 0 8
2 1 0 C 1 0
0CD8
:
OCDE 7 E
8 1
OCDF 23
OCEO 96
OCE1 30
0CE2 CAEEOC
0CE5 23
0CE6 23
15
0CE7
0CE8 C2DE 0C
OCE3- C 3 5 A 0 9
:
OCEE 28
8 2
OCEF E8
QCFO 2 A 8 A 1 0
0CF3
EB
OCF1 ! 7A
QCF5 8 7
0CF6 C 2 F F 0 C
OCF9
78
OCFA FEOB
OCFC DA 5 A 09
OCFF 7 2
8 3 :
000 0 23
0D01
73
00 0 2 23
1A
0 0 0 3
0 0 0 9
77
3ECF
0 0 0 5
QDO 7 12
OD08
3EC3
ODOA 3 2 0 8 0 0
ODOO 2 12 E0D
0 0 1 0
2 2 0 9 0 0
0 0 1 3
C9
;
ROUTINE CLEARS - ALL BREAKPOINTS
t h i s
IN OBJECT CODE TO PROVIDE
A , ' O '
;G E T
IN D IC A TO R
08 UF
; STORE
PAS I
;F E T C H PASS
A
; WH IC H PASS
; RETURN
C , 3
;NEED
3 3YTES
A
;G E T A ZERO
; PUT
I N L I S T I N G
ASTO
OCR
C
ERO1
;G E T
IN D IC A TO R
A , ' L '
JMP
ERRO+2
A , ' O '
; GET ERROR IN D IC A TOR
STA
08 U F
; STORE
AOUT
; D I SPLAY ERROR
JMP
OPC
; PROCESS OPCODE
SETS OR CLEARS BREAKPOINTS
LDA
-A8UF
; CHECK FOR AN ARG
ORA
A
JZ
CLR8
; I F NO ARG,
;
MVI
E L S E ,
D ,N 3 R
;
H , 8 R T
LX I
AND ADDR OF TABLE
MOV
A ,M
; GET H I
I NX
H ,
MOV
B,M
; GET LO 3YTE OF ENTRY
;
ORA
B
CHECK FOR EMPTY ENTRY
;
BRANCH I F
J Z
82
;
I NX
H
ELSE GO ON TO NEXT ENTRY
I NX
H
i
0
BUMP COUNT
OCR
;
JNZ
31
AND TRY AGAIN
JMP
WHAT
;O O P S !
OCX
H
XCHG
BBUF
; GET ADDRESS
LHLD
;
XCHG
I N
D , E
;
MOV
A, D
CHECK FOR ADDR
A
ORA
JNZ
33
MOV
A , E
C P I
11
;
WHAT
JC
OOPS.
MOV
M ,D
; SAVE AODRESS
I NX
H
MOV
M ,E
H
I NX
LOAX
0
; P I C K UP IN STR U C TIO N
MOV
M, A
; SAVE
MVI
A ,C R S T
O
^REPLACE
STAX
D
;
r e s t a r t
M V I
A , 0 C 3 H
; SET UP LO MEMORY
STA
8
; W I T H A JUMP TO 3RKP
LX I
H, BRKP
SHLD
9
RET
; THEN RETURN
IN OUTPUT BUFFER
IN D IC A TOR
I F
PASS1
AND MEMORY
IN OUTPUT BUFFER
GO CLEAR 8REAKPO
GET NUMBER OF BREAKPO
3 YTE OF ENTRY
EMPTY
NO ROOM
>
11D
TOO LOW
x
I T
I T
W IT H A
i n s t r u c t i o n
12 - 51
Advertisement
