i
6502 HEX MONITOR
LISTING
(continued)
FF75
FF77
FF79
FF7A
FF7C
FF7D
FF7F
FF81
FF83
FF85
FF87
FF89
FF8B
FF8D
FF8F
FF91
FF94
FF97
FF99
FF9B
FF9D
FF9F
FFAl
26 28
26 29
CA
Db F8
C8
DQ EQ
C4 2A
Fd
97
24 2B
50
10
A5 28
81 26
E6 26
DQ B5
E6 27
4C 44
FF
6C 24
00
30 2B
A2 02
B5 27
95 25
95 23
CA
ROL L Rotate into LSD.
ROL
H
Rotate into MSD's.
DEX Done 4 shXts?
BNE HEXSHIFT No, loop.
INY
Advence text index.
BNE NEXTHEX
Always taken. Check next character for he,
CPY YSAV
Check
if
L, H empty (no hex digits).
BEQ ESCAPE Yes, generate ESC sequence.
BIT MODE Test MODE byte.
BVC
NOTSTOR
B6
=
0
for STOR, 1 for XAM and BLOCK XAM
LDA L LSD's of hex data.
STA (STL, X)
Store at current 'store index'.
INC STL Increment store index.
BNE NEXTITEM
Get next item. (no carry).
INC
STH Add carry to 'store index' high order.
TONEXTITEM JMP NEXTITEM
Get next command item.
RUN
JMP
(XAML) Run at current XAM index.
NOTSTOR BMI XAMNEXT B7
=
0
for XAM,
1
for BLOCK XAM.
LDX #$02 Byte count.
SETADR LDA L-1
,
X Copy hex data to
STA STL-1, X 'store index'.
STA XAML-1, X
And to 'XAM index'.
DEX
BNE SETADR
Next of 2 bytes.
Loop unless X
=
0.
NXTPRNT
BNE PRDATA NE means no address to print.
LDA #$8D
CR.
JSR ECHO Output
it.
LDA XAMH 'Examine index'high-order byte.
JSR PRBYTE Output it in hex format.
LDA XAML Low-order 'examine index' byte.
JSR PRBYTE Output
it
in
hex format.
LDA
#$BA
,I:,#
JSR ECHO Output
it.
PRDATA LDA #$A0 Blank.
JSR ECHO Output it.
LDA (XAML, X)
Get data byte at 'examine index'.
JSR PRBYTE
Output
it
in hex format.
XAMNEXT STX MODE
0-C MODE (XAM mode).
LDA XAML
CMP L
Compare 'examine index' to hex data.
LDA XAMH
SBC
H
BCS TONEXTITEM Not less, so no more data to output.
INC XAML
BNE
MOD8CHK
Increment 'examine index'.
INC XAMH
MODBCHK LDA XAML
AND #$07
Check low-order 'examine index' byte
For MOD 8'
0
BPL NXTPRNT Always taken.
PRBYTE PHA Save A for LSD.
LSR
LSR
LSR MSD to LSD position.
LSR
JSR PRHEX Output hex digit.
PL A Restore A.
PRHE X AND #$@F Mask LSD for hex print.
ORA #$BQ Add
"0".
CMP #$BA Digit?
d~~A2D0 F7
L%IX;
FFAB
FFAD
FFBQ
FFB2
FFB5
FFB7
FFBA
FFBC
FFBF
FFCl
FFC4
FFC7
FFC8
FFCA
FFCC
FFCE
$fi,
A5 25
20 DC
FF
A5 24
20 DC
FF
A9 BA
20 EF
FF
A9 A0
20 EF
FF
A1 24
20 DC
FF
86 2B
A5 24
,C5 28
A5 25
E5 29
B0 Cl
FFDQ E6 24
FFD2
FFD4
FFD6
FED8
FFDA
FFDC
FFDD
FFDE
FFDF
FFE0
FFEl
FFE4
FFE5
FFE7
FFE9
D0 02
E6 25
A5 24
29 07
10 C8
48
4A
4A
4A
4A
20E5FF
68
29
0F
09 B0
C9 BA
(10 Seiten)
(20 Seiten)
(23 Seiten)
Manymanuals.com
Manymanuals.de
Manymanuals.fr
Manymanuals.it
Manymanuals.pl
Manymanuals.cz
Manymanuals.es
Manymanuals-pt.com
Kommentare zu diesen Handbüchern