Advertisement
02 C 4 4 5 5 8 4 5 4 3
08
OW
02 C8
2 1 0 1
0 2CA 4 5 4 E 5 4 5 2
08
0 2CE 7 6 0 4
DW
0 2 0 0
08
4 6 4 9 4 C 4 5
0201*
DW
3E03
0 2 0 6
4 C 4 9 5 3 5 4
OB
02DA 0 0 0 5
OW
0 2DC 4 4 4 5 4 C 5 4
08
0 2 E 0
OW
E7 0 5
0 2 E 2
4 1 5 3 5 3 4 D
08
0 2 E 6
5E 06
DW
0 2 E 8
5 0 4 1 4 7 4 5
08
0 2EC
2 2 0 3
OW
0 2EE 4 3 5 5 5 3 5 4
08
0 2F 2
0 0 2 0
DW
0 2Ft» 4 2 5 2 4 5 4 8
08
0 2 F 8
02 OC
DW
02 FA
5 0 5 2 4 F 4 3
08
02 F E
8F 0D
t
\
T H IS
ROU TINE CHECKS
; WITH
THE COMMAND,
0 3 0 0
3 A 7 E 1 0
VCHK :
LDA
0 3 0 3
87
0 3 0 4 C A 5A 04
0 3 0 7
C9
ROUTINE DUMPS OÜT THE CONTENTS OF MEMORY ^FROM
;
T H I S
;
THE START TO F I N A L ADDRESSES G IV E N
0 3 0 8
DUMP:
C D 0 0 0 3
0 3 0 8
CD 0E 01
DUMS :
DUM1:
03 OE 2A 8A 10
0 3 1 1
7E
MOV
0 3 1 2
CD4A02
C D 6 3 0 2
0 3 1 5
0 3 1 8
08
70
0 3 1 9
0 3 1A E6 OF
A N I
03 1C C 2 0 E 0 3
0 3 I F
C 30 B 0 3
i
;
T H IS
ROUTINE W I L L MOVE 2 5 5 8 Y T ES FROM. 1S T ADDRESS
; G IV E N
0 3 2 2
COO 00 3
PAGE:
0 3 2 5
3 A 8 2 1 0
0 3 2 8
B 7
0 3 2 9 CA5A04
0 3 2C
2A8 A10
0 32 F
E3
0 3 3 0
2A8 C10
0 6 0 0
0 3 3 3
0 335
1A
PAG! :
0 536
77
0 3 3 7
23
0 338
13
0 3 3 9
05
0 3 3 A C 2 3 50 3
0 3 3 0 C 9
■EXEC'
; EXECUTE COMMAND
EXEC
; COMMAND ADDRESS
1 E N TR '
; ENTER COMMAND
ENTR
' F I L E '
; F I U E COMMAND
F I L E
; COMMAND AOORESS
' L I S T '
; L I ST COMMANO
L I S T
; COMMAND ADDRESS
' C E L T '
;O ELET E COMMANO
; COMMAND AOORESS
OELL
1A S 5M 1
;ASSEMBLE COMMAND
ASSM
; COMMANO ADDRESS
'P A GE'
; PAGE TRANSFER COMMAND
PAGE
; COMMAND ADDRESS
' C U S T '
; CUSTOMER COMMAND
2 0 0 0 H
; COMMAND ADDRESS
'B R E K '
; 8R E A K POIN T COMMAND
BREAK
; COMMAND ADDRESS
'PROC '
; ; PROCEED COMMAND
DW
PROC
; COMMAND ADDRESS
I F
ANY PARAMETERS WERE ENTERED
I F
NOT AN ERROR MESSAGE IS
A8UF
; FETCH PARAMETER BYTE
ORA
A
> SET FLAGS
WHAT
;NO PARAMETER
JZ
RET
CAUL
VCHK
; CHECK FOR PARAMETERS
CALL
CRLF
; START NEW L I N E
LHLD
3BUF
,-FETCH MEMORY ADDRESS
A ,M
jOUTPUT VALUE
CALL
HOTB
ACHK
CALL
; CHECK ADDRESS
RC
; RETURN I F
MOV
A , L
; I S
NEXT ADDRESS
PFH
;
D I V I S I B L E
vJN Z
OUM1
JMP
DUMS
IN COMMAND TO 2ND ADDRESS
CALL
VCHK
; CHECK FOR PARAMETER
ABUF+4
LDA
;F ET C H 2ND PARAMETER
ORA
A
; DOES 2ND PARAMETER E X I S T ?
WHAT
UZ
38UF
l h l d
;F E T C H MOVE TO ADDRESS
XCHG
LHLD
B8UF+2
; FETCH MOVE TO AOORESS
MV I
3 , 0
; SET COUNTER
LOAX
D
MOV
M,A
INX
H
I NX
D
3
^DECREMENT COUNT
OCR
UNZ
PAG 1
RET
.
IS SUE D
I N THE COMMAND.
F I N I S H E D
3 Y 16 ?
IN COMMAND.
12
27
Advertisement
