Apple Apple-1 - Page 8

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
FFA1
FFAZ
FFA4
FFA6
FFA8
FFAB
FFAD
FFB0
FFB2
FFB5
FFB7
FFBA
FFBC
FFBF
FFC1
FFC4
FFC7
FFC8
FFCA
FFCC
FFCE
FFD0
FFD2
FFD4
FFD6
FFD8
FFDA
FFDC
FFDD
FFDE
FFDF
FFE0
FFE1
FFE4
FFE5
FFE7
FFE9
26 28
26
29
CA
D0
F8
C8
D0
E0
C4
2A
F0
97
24
2B
50
10
A5
28
81
26
E6
26
D0
B5
E6
27
4C 44 FF
6C 24
00
30
2B
A2
02
B5
27
95
25
95
23
CA
D0 F7
D0 14
A9
8D
20
EF FF
A5
25
20
DC FF
A5
24
20
DC FF
A9 BA
20
EF FF
A9 A0
20
EF
FF
Al
24
20
DC FF
86
2B
A5
24
(
C5 28
A5
25
E5
29
B0
CI
E6
24
D0
02
E6
25
A5
24
29 01
\0
C8
48
4A
4A
4A
4A
20
E5
FF
68
29
0F
09
B0
C9
BA
NOTHEX
TONEXTITEM
RUN
NOTSTOR
SETADR
NXTPRNT
PRDATA
XAMNEXT
MOD8CHK
PRBYTE
PRHEX
ROL
L
ROL
H
DEX
BNE
HEXSHIFT
INY
BNE
NEXTHEX
CPY
YSAV
BEQ ESCAPE
BIT
MODE
BVC
NOTSTOR
LDA
L
STA
(STL,
X)
INC STL
BNE
NEXTITEM
INC STH
JMP NEXTITEM
JMP (XAML)
BMI XAMNEXT
LDX
#$02
LDA
L-1,X
STA
STL-1, X
STA
XAML-1,
X
DEX
BNE SETADR
BNE PRDATA
LDA
#$8D
JSR ECHO
LDA
XAMH
JSR PRBYTE
LDA
XAML
JSR PRBYTE
LDA
#$BA
JSR ECHO
LDA #$A0
JSR ECHO
LDA
{XAML, X)
JSR PRBYTE
STX MODE
LDA XAML
CMP
L
LDA XAMH
SBC
H
BCS TONEXTITEM
INC
XAML
BNE
MOD8CHK
INC
XAMH
LDA
XAML
AND
#$07
BPL NXTPRNT
PHA
LSR
LSR
LSR
LSR
JSR PRHEX
PLA
AND
#$0F
ORA
#$B0
CMP
#$BA
Rotate into LSD.
Rotate into
MSD's.
Done
4
shifts
?
No, loop.
Advence
text
index.
Always
taken.
Check next
character
for
hex.
Check if L,
H
empty
(no
hex
digits).
Yes, generate
ESC
sequence.
Test MODE byte.
B6
=
for STOR,
1
for
XAM
and
BLOCK
XAM
LSD's
of hex
data.
Store
at current
'store
index'.
Increment
store index.
Get
next item,
(no
carry).
Add
carry
to 'store
index*
high
order.
Get
next
command
item.
Run
at
current
XAM index.
B7
=
for XAM,
1
for
BLOCK
XAM.
Byte count.
Copy
hex
data
to
'store index'.
And
to
'XAM
index'.
Next of
2
bytes.
Loop unless
X
=
0.
NE
means
no
address
to print.
CR.
Output
it,
'Examine
index'
high-order
byte.
Output
it in hex format.
Low-order
'examine
index'
byte.
Output
it
in
hex format.
M.
t!
Output
it.
Blank.
Output
it.
Get
data
byte at 'examine
index'.
Output
it in hex format.
0-*MODE
(XAM
mode).
Compare
'examine
index'
to
hex
data.
Not
less,
so
no
more
data
to
output.
Increment 'examine index
1
Check low-order
For
MOD
8=0
Always
taken.
Save
A
for LSD.
MSD
to LSD position.
Output
hex
digit.
Restore
A.
Mask LSD for hex print.
Add
"0".
Digit?
examine
index'
byte
-6-