� > 6502ModSrc
� code 20000

(	mem=3
2arc_screenstart=-&100+80
<crt_regs=-&100+120
F
P
Z
d�p=4 � 7 � 2
nO%=code
xP%=0
�
[OPT p
�EQUD 0 ; start
�EQUD init0
�EQUD fin
�
EQUD serv
�EQUD title
�
EQUD help
�EQUD 0 ; tbl
�$EQUD &4C480 ; official SWI chunk
�EQUD swicode
�EQUD switable
�
EQUD 0
�;.start

;MOV pc,R14

;SWI "OS_Exit"

;.start

"
.init0

,STMFD R13!,{R1-R5,R14}

6<MOV R0,#&10 : ADR R1,claim : MOV R2,#0 : SWI "XOS_Claim"

@LDMVSFD R13!,{R1-R5,PC}

J,MOV R0,#14 : MOV R1,#11 : SWI "XOS_Byte"

T;LDMVSFD R13!,{R1-R5,PC}

^LDMFD R13!,{R1-R5,PC}

h

r;SWI "OS_Exit"

|;MOV pc,R14

�.fin

�STMFD R13!,{R14}

�,MOV R0,#13 : MOV R1,#11 : SWI "XOS_Byte"

�>MOV R0,#&10 : ADR R1,claim : MOV R2,#0 : SWI "XOS_Release"

�LDMFD R13!,{PC}^

�;MOV pc,R14

�
.title

�EQUS "6502Support"

�	EQUB0

�	ALIGN

�	.help

�0EQUS"6502 Support"+�9+"0.10 ("+��$,5,11)+")"

�
EQUB 0

.getsync
LDR R0,sync_data
&
MOV R1,#0
0STR R1,sync_data
:MOVS PC,R14
D
N.sync_data
X
EQUD 0
b	.sync
lLDR R0,sync_data
vADD R0,R0,#1
�STR R0,sync_data
�
MOV R0,#4
�MOV PC,R14
�
�.tmp
�
EQUD 0
�
�.geteleckeys
�ADR R0,elec_keys
�MOV PC,R14
�
�.elec_keys
�
EQUD 0

EQUD 0

EQUD 0

EQUD 0
 
*
.claim
4
CMP R0,#4
>BEQ sync
HCMP R0,#11 ; key pressed
RMOVNE PC,R14
\STR R1,R1store
fSTR R2,R2store
p;� R2,R2,#&FF
z
CMP R1,#1
�STREQB R2,kdata
�
�;CMP R2,#&4C   ; Left Shift
� ;CMPNE R2,#&58 ; Right Shift
�;STREQB R1,kdata+1
�
�STR R2,tmp
�
��adr(3,electronmap)
�LDR R2,[R3,R2,LSL#2]
�CMP R2,#&FF
�BEQ skip_elec
�

ADR R3,elec_keys
MOV R0,R2,LSR#8
$� R2,R2,#&FF
.� R0,R0,#%11
8LDR R4,[R3,R0,LSL#2]
B
CMP R1,#1
L�REQ R4,R4,R1,LSL R2
VMOVNE R1,#1
`BICNE R4,R4,R1,LSL R2
jMOVNE R1,#0
tSTR R4,[R3,R0,LSL#2]
~
�.skip_elec
�LDR R2,tmp
�
�ADR R3,keymap
�LDRB R2,[R3,R2]
�CMP R2,#&FF : BEQ key_skip
�ADR R3,keys
�STRB R1,[R3,R2]
�
.key_skip
�LDR R2,tmp
�ADR R3,keymap_shift
�LDRB R2,[R3,R2]
CMP R2,#&FF : BEQ key_exit

ADR R3,keys_shift
STRB R1,[R3,R2]

.key_exit
(
2MOV R0,#11
<LDR R1,R1store
FLDR R2,R2store
P
.nokey
ZMOV PC,R14
d.R1store
n
EQUD 0
x.R2store
�
EQUD 0
�
�
.getkdata
�LDRB R0,kdata
�MOV R1,#&FF
�STR R1,kdata
�ADR R1,keymap
�MOV PC,R14
�
�.checkkdata
�LDRB R0,kdata
�MOV PC,R14
�
.getkeyaddr
ADR R0,keys
MOV PC,R14
"
,.readkeymapaddr
6ADR R0,keymap
@MOV PC,R14
J
T.keymap
^]
hP%+=256
rO%+=256
|	[OPTp
}.keymap_shift
~]
P%+=256
�O%+=256
�	[OPTp
�
�
.kdata
�EQUD &FF
�
�	.keys
�]
�(�I%=0 � 255 : [OPTp : EQUB 0 : ] : �
�	[OPTp
�.keys_shift
�]
�(�I%=0 � 255 : [OPTp : EQUB 0 : ] : �
�	[OPTp
�	ALIGN
�.getelectronmap
�ADR R0,electronmap
�MOV PC,R14
�
.electronmap
]
(�I%=0 � 255 : [OPTp : EQUD 0 : ] : �
&	[OPTp
0
:
D
N.updatescreen
XSTMFD R13!,{R2-R12,R14}
b
l;ADR R0,block1
v;ADD R1,R0,#8
�;SWI "OS_ReadVduVariables"
�";LDR R9,[R1]     ; screenstart
�!LDR R9,[mem,#arc_screenstart]
�
�;LDR R6,crt_regs_addr
�SUB R6,mem,#-crt_regs
�LDRB R7,[R6,#19]
��S R7,R7,#%11
�MOVNE R12,#&5800
��Q R12,#&4000
�CMP R7,#%10
��Q R12,#&3000
�CMP R7,#%01
�Q R12,#&6000

ADD R0,mem,#&FE00
 LDRB R0,[R0,#&20]
*TST R0,#%10 ; teletext?
4BNE updatescreen7
>
HTST R0,#%100
RBEQ updatescreen1
\
fTST R0,#%1000
pBEQ updatescreen2
z
�B updatescreen0
�
�	.init
�STR R0,crt_regs_addr
�MOV PC,R14
�
�.crt_regs_addr
�
EQUD 0
�
�.pointer_on
�EQUS "Pointer 1"+�0
�	ALIGN
�
	.updatescreen0
	LDRB R0,lastmode
	
CMP R0,#0
	$BEQ skip_mode0
	.SWI &116
	8SWI &100 ; � 0
	B$ADR R0,pointer_on : SWI "OS_CLI"
	L-MOV R0,#106 : MOV R1,#&82 : SWI "OS_Byte"
	VSWI "OS_RemoveCursors"
	` MOV R0,#0 : STRB R0,lastmode
	j.skip_mode0
	t
	~;LDR R6,crt_regs_addr
	�SUB R6,mem,#-crt_regs
	�LDRB R7,[R6,#13]
	�LDRB R2,[R6,#12]
	�� R2,R2,#%11111
	�ADD R7,R7,R2,LSL#8
	�MOV R7,R7,LSL#3
	�
	�ADR R8,revtable
	�'LDRB R2,[R6,#1] ; no of horiz chars
	�LDRB R11,[R6,#6]
	�MUL R4,R2,R11
	�MOV R4,R4,LSL#3


;MOV R4,R2,LSL#8

.loop2
;MOV R2,#80
(
.loop1
2LDRB R0,[mem,R7]
<LDRB R5,[R8,R0]
FSTRB R5,[R9,#0]
PADD R7,R7,#1 
ZLDRB R0,[mem,R7]
dLDRB R5,[R8,R0]
nSTRB R5,[R9,#80]
xADD R7,R7,#1
�LDRB R0,[mem,R7]
�LDRB R5,[R8,R0]
�STRB R5,[R9,#80*2]
�ADD R7,R7,#1
�LDRB R0,[mem,R7]
�LDRB R5,[R8,R0]
�STRB R5,[R9,#80*3]
�ADD R7,R7,#1 
�LDRB R0,[mem,R7]
�LDRB R5,[R8,R0]
�STRB R5,[R9,#80*4]
�ADD R7,R7,#1 
�LDRB R0,[mem,R7]
LDRB R5,[R8,R0]
STRB R5,[R9,#80*5]
ADD R7,R7,#1
"LDRB R0,[mem,R7]
,LDRB R5,[R8,R0]
6STRB R5,[R9,#80*6]
@ADD R7,R7,#1 
JLDRB R0,[mem,R7]
TLDRB R5,[R8,R0]
^STRB R5,[R9,#80*7]
h#ADD R7,R7,#1 : CMP R7,#&8000 : 
r
�Q R7,R12
|
�ADD R9,R9,#1
�(SUBS R2,R2,#1 ; end of character row
�
BGT loop1
�'LDRB R2,[R6,#1] ; no of horiz chars
�!ADD R9,R9,#640 : SUB R9,R9,R2
�SUBS R4,R4,R2,LSL#3 ; #640
�
BHI loop2
�
�
�LDMFD R13!,{R2-R12,pc}^
�.block1
�EQUD 149 : EQUD -1
�.block2
EQUD 0 : EQUD 0


.revtable
&]
0O%+=256
:P%+=256
D
N	[OPTp
X.updatescreen5
bLDR R14,elite
lCMP R14,#0
v$ADREQ R8,mode4tab+512 ; mode5tab
�BEQ updatescreen4_2
�.updatescreen4
�ADR R8,mode4tab
�.updatescreen4_2
�
�LDRB R0,lastmode
�
CMP R0,#4
�BEQ skip_mode4
�SWINE &116
�SWINE &101 ; � 1
�$ADR R0,pointer_on : SWI "OS_CLI"
�-MOV R0,#106 : MOV R1,#&82 : SWI "OS_Byte"
�SWI "OS_RemoveCursors"

 MOV R0,#4 : STRB R0,lastmode

.skip_mode4



 ;LDR R6,crt_regs_addr

*SUB R6,mem,#-crt_regs

4LDRB R7,[R6,#13]

>LDRB R2,[R6,#12]

H� R2,R2,#%11111

RADD R7,R7,R2,LSL#8

\MOV R7,R7,LSL#3

f

pLDR R14,elite

z

�;ADR R8,mode4tab

�

�'LDRB R2,[R6,#1] ; no of horiz chars

�LDRB R11,[R6,#6]

�MUL R4,R2,R11

�MOV R4,R4,LSL#3

�;MOV R4,R2,LSL#8

�
.loop2

�;MOV R2,#40

�
.loop1

�ADD R11,R9,#1

�LDRB R0,[mem,R7]

�LDR R5,[R8,R0,LSL#1]
STRB R5,[R9,#0]
MOV R5,R5,LSR#8
STRB R5,[R11,#0]
$ADD R7,R7,#1 
.LDRB R0,[mem,R7]
8LDR R5,[R8,R0,LSL#1]
BSTRB R5,[R9,#80]
LMOV R5,R5,LSR#8
VSTRB R5,[R11,#80]
`ADD R7,R7,#1
jLDRB R0,[mem,R7]
tLDR R5,[R8,R0,LSL#1]
~STRB R5,[R9,#80*2]
�MOV R5,R5,LSR#8
�STRB R5,[R11,#80*2]
�ADD R7,R7,#1
�LDRB R0,[mem,R7]
�LDR R5,[R8,R0,LSL#1]
�STRB R5,[R9,#80*3]
�MOV R5,R5,LSR#8
�STRB R5,[R11,#80*3]
�ADD R7,R7,#1 
�
�LDRB R0,[R6,#3]
�TST R0,#1 << 4


LDREQB R0,[mem,R7]
LDREQ R5,[R8,R0,LSL#1]
STREQB R5,[R9,#80*4]
(�Q R5,R5,LSR#8
2STREQB R5,[R11,#80*4]
<ADD R7,R7,#1 
FLDREQB R0,[mem,R7]
PLDREQ R5,[R8,R0,LSL#1]
ZSTREQB R5,[R9,#80*5]
d�Q R5,R5,LSR#8
nSTREQB R5,[R11,#80*5]
xADD R7,R7,#1
�LDREQB R0,[mem,R7]
�LDREQ R5,[R8,R0,LSL#1]
�STREQB R5,[R9,#80*6]
��Q R5,R5,LSR#8
�STREQB R5,[R11,#80*6]
�ADD R7,R7,#1 
�LDREQB R0,[mem,R7]
�LDREQ R5,[R8,R0,LSL#1]
�STREQB R5,[R9,#80*7]
��Q R5,R5,LSR#8
�STREQB R5,[R11,#80*7]
�,ADD R7,R7,#1 : CMP R7,#&8000 : �Q R7,R12
�

ADD R9,R9,#2
(SUBS R2,R2,#1 ; end of character row
"
BGT loop1
,7LDRB R2,[R6,#3] : MOV R2,R2,LSR#4 ; vertical timing
6"MOV R5,#160 : MOV R5,R5,LSL R2
@=ADD R9,R9,R5                      ; to make fortress work
J
T'LDRB R2,[R6,#1] ; no of horiz chars
^SUB R9,R9,R2,LSL#1
h7CMP R14,#1 : CMPEQ R4,#&800 : ADREQ R8,mode4tab+512
r4CMP R14,#1 : CMPEQ R4,#&100 : BEQ skip_last_line
|SUBS R4,R4,R2,LSL#3 ; #320
�
BHI loop2
�.skip_last_line
�
�LDMFD R13!,{R2-R12,pc}^
�
�.eliteon
�
MOV R0,#1
�STRB R0,elite
�MOVS PC,R14
�
�
.eliteoff
�
MOV R0,#0
�STRB R0,elite
MOVS PC,R14


&
.elite
0
EQUD 0
:
D
.mode4tab
N]
XO%+=1024
bP%+=1024
l	[OPTp
v
�
.lastmode
�
EQUD 0
�
�.reinit
�MOV R0,#255
�STRB R0,lastmode
�MOV PC,R14
�
�.pointer_on
�EQUS "Pointer 1"+�0
�	ALIGN
�
�.updatescreen2
TST R0,#%10000
BEQ updatescreen5
LDRB R0,lastmode
 
CMP R0,#2
*BEQ skip_mode2
4SWINE &116
>SWINE &109 ; � 9
H$ADR R0,pointer_on : SWI "OS_CLI"
R-MOV R0,#106 : MOV R1,#&82 : SWI "OS_Byte"
\SWI "OS_RemoveCursors"
f MOV R0,#2 : STRB R0,lastmode
p.skip_mode2
z
�;LDR R6,crt_regs_addr
�SUB R6,mem,#-crt_regs
�LDRB R7,[R6,#13]
�LDRB R2,[R6,#12]
�� R2,R2,#%11111
�ADD R7,R7,R2,LSL#8
�MOV R7,R7,LSL#3
�
�ADR R8,mode2tab
�'LDRB R2,[R6,#1] ; no of horiz chars
�+LDRB R11,[R6,#6] ; no of vertical chars
�MUL R4,R2,R11
�MOV R4,R4,LSL#3
;MOV R4,R2,LSL#8

.loop2
;MOV R2,#80
$
.loop1
.ADD R11,R9,#1
8
BLDRB R0,[mem,R7]
LLDR  R5,[R8,R0,LSL#1]
VSTRB R5,[R9,#0]
`MOV R5,R5,LSR#8
jSTRB R5,[R9,#1]
tADD R7,R7,#1 
~
�LDRB R0,[mem,R7]
�LDR  R5,[R8,R0,LSL#1]
�1STRB R5,[R9,#160] ; 160=line length in mode 9
�MOV R5,R5,LSR#8
�!STRB R5,[R11,#160] ; R11=R9+1
�ADD R7,R7,#1
�
�LDRB R0,[mem,R7]
�LDR  R5,[R8,R0,LSL#1]
�STRB R5,[R9,#160*2]
�MOV R5,R5,LSR#8
�STRB R5,[R11,#160*2]
ADD R7,R7,#1

LDRB R0,[mem,R7]
LDR  R5,[R8,R0,LSL#1]
STRB R5,[R9,#160*3]
(MOV R5,R5,LSR#8
2STRB R5,[R11,#160*3]
<ADD R7,R7,#1
FLDRB R0,[mem,R7]
PLDR  R5,[R8,R0,LSL#1]
ZSTRB R5,[R9,#160*4]
dMOV R5,R5,LSR#8
nSTRB R5,[R11,#160*4]
xADD R7,R7,#1
�LDRB R0,[mem,R7]
�LDR  R5,[R8,R0,LSL#1]
�STRB R5,[R9,#160*5]
�MOV R5,R5,LSR#8
�STRB R5,[R11,#160*5]
�ADD R7,R7,#1
�LDRB R0,[mem,R7]
�LDR R5,[R8,R0,LSL#1]
�STRB R5,[R9,#160*6]
�MOV R5,R5,LSR#8
�STRB R5,[R11,#160*6]
�ADD R7,R7,#1
�LDRB R0,[mem,R7]
LDR  R5,[R8,R0,LSL#1]
STRB R5,[R9,#160*7]
MOV R5,R5,LSR#8
"STRB R5,[R11,#160*7]
,,ADD R7,R7,#1 : CMP R7,#&8000 : �Q R7,R12
6
@
JADD R9,R9,#2
T
^(SUBS R2,R2,#1 ; end of character row
h
BGT loop1
r'LDRB R2,[R6,#1] ; no of horiz chars
|'ADD R9,R9,#160*8:SUB R9,R9,R2,LSL#1
�SUBS R4,R4,R2,LSL#3 ; #640
�
BGT loop2
�
�LDMFD R13!,{R2-R12,pc}^
�
�
.mode2tab
�]
�O%+=512
�P%+=512
�	[OPTp
�
.mode1tab
�]
�O%+=256
P%+=256
	[OPTp

&.pointer_on
0EQUS "Pointer 1"+�0
:	ALIGN
D
N.updatescreen1
XTST R0,#%10000
bBEQ updatescreen4
l
vLDRB R0,lastmode
�
CMP R0,#1
�BEQ skip_mode1
�SWINE &116
�SWINE &101 ; � 1
�$ADR R0,pointer_on : SWI "OS_CLI"
�-MOV R0,#106 : MOV R1,#&82 : SWI "OS_Byte"
�SWI "OS_RemoveCursors"
� MOV R0,#1 : STRB R0,lastmode
�.skip_mode1
�
�;LDR R6,crt_regs_addr
�SUB R6,mem,#-crt_regs
�LDRB R7,[R6,#13]
LDRB R2,[R6,#12]
� R2,R2,#%11111
ADD R7,R7,R2,LSL#8
 MOV R7,R7,LSL#3
*
4ADR R8,mode1tab
>'LDRB R2,[R6,#1] ; no of horiz chars
HLDRB R11,[R6,#6]
RMUL R4,R2,R11
\MOV R4,R4,LSL#3
f;MOV R4,R2,LSL#8
p;MOV R4,#&5000
z
.loop2
�;MOV R2,#80
�
.loop1
�LDRB R0,[mem,R7]
�LDRB R5,[R8,R0]
�STRB R5,[R9,#0]
�ADD R7,R7,#1 
�LDRB R0,[mem,R7]
�LDRB R5,[R8,R0]
�STRB R5,[R9,#80]
�ADD R7,R7,#1
�LDRB R0,[mem,R7]
�LDRB R5,[R8,R0]
�STRB R5,[R9,#80*2]
ADD R7,R7,#1
LDRB R0,[mem,R7]
LDRB R5,[R8,R0]
$STRB R5,[R9,#80*3]
.ADD R7,R7,#1 
8LDRB R0,[mem,R7]
BLDRB R5,[R8,R0]
LSTRB R5,[R9,#80*4]
VADD R7,R7,#1 
`LDRB R0,[mem,R7]
jLDRB R5,[R8,R0]
tSTRB R5,[R9,#80*5]
~ADD R7,R7,#1
�LDRB R0,[mem,R7]
�LDRB R5,[R8,R0]
�STRB R5,[R9,#80*6]
�ADD R7,R7,#1 
�LDRB R0,[mem,R7]
�LDRB R5,[R8,R0]
�STRB R5,[R9,#80*7]
�,ADD R7,R7,#1 : CMP R7,#&8000 : �Q R7,R12
�
�
�ADD R9,R9,#1
�(SUBS R2,R2,#1 ; end of character row

BGT loop1

'LDRB R2,[R6,#1] ; no of horiz chars

!ADD R9,R9,#640 : SUB R9,R9,R2
(SUBS R4,R4,R2,LSL#3 ; #640
2
BHI loop2
<
FLDMFD R13!,{R2-R12,pc}^
P
Z.updatescreen7
dLDRB R0,lastmode
n
CMP R0,#7
xBEQ not_newmode7
�ADR R0,mode7copy
�MOV R1,#1020
�
MOV R2,#0
�	.cls7
�STR R2,[R0,R1]
�SUBS R1,R1,#4
�BPL cls7
�
�SWI &116
�SWI &107 ; � 7
�$ADR R0,pointer_on : SWI "OS_CLI"
�-MOV R0,#106 : MOV R1,#&82 : SWI "OS_Byte"
�SWI "OS_RemoveCursors"
 MOV R0,#7 : STRB R0,lastmode
.not_newmode7
SWI &11E ; �0,0)
"
,;LDR R5,crt_regs_addr
6
MOV R5,R6
@LDRB R6,[R5,#12]
J� R6,R6,#&3F
T� R6,R6,#&20
^ADD R6,R6,#&74
h� R6,R6,#&FF
rLDRB R7,[R5,#13]
|ADD R7,R7,R6,LSL#8
�
�;MOV R7,#&7C00
�
�;ADD mem,mem,#&7C00
�
MOV R4,#0
�;SUB R4,R4,#1
�;ADD mem,mem,#1
�
�&ADR R8,mode7copy:;SUB R8,R8,#&7C00
�
�MOV R9,#0 ; X
�MOV R10,#0 ; Y
�SUB R9,R9,#1

.mode7loop
;ADD R9,R9,#1 : CMP R9,#40 : �Q R9,#0 : ADDEQ R10,R10,#1
&LDRB R0,[mem,R7]
0CMP R0,#&7F : �Q R0,#255
:,CMP R0,#&1A : �Q R0,#&9A ; fix Zalaga???
D,CMP R0,#&1D : �Q R0,#&9D ; fix Zalaga???
NCMP R0,#32 : MOVLT R0,#32
X
b)CMP R0,#&60 : �Q R0,#&5F : BEQ print7
l)CMP R0,#&5F : �Q R0,#&23 : BEQ print7
vCMP R0,#&23 : �Q R0,#&60
�.print7
�
�LDRB R11,[R8] ; mode7copy
�CMP R11,R0
�BEQ noprint7
�SWI &100+31 ; �
�MOV R11,R0
�MOV R0,R9 : SWI "OS_WriteC"
� MOV R0,R10 : SWI "OS_WriteC"
� MOV R0,R11 : SWI "OS_WriteC"
�STRB R0,[R8] ; mode7copy
�
.noprint7
�ADD R8,R8,#1

ADD R7,R7,#1
CMP R7,#&8000
 �Q R7,#&7C00
*ADD R4,R4,#1
4CMP R4,#25*40
>BNE mode7loop
H
RLDMFD R13!,{R2-R12,pc}^
\.mode7copy
f]
pP%+=1024:O%+=1024
z	[OPTp
�
�.writesheila
�STMFD R13!,{R14}
�'SWI &40500 ; "XI/O_Podule_Hardware"
�/ADD R1,R1,#&2000 ; base address of User VIA
�CMP R2,#5:\BEQ writesheila5
�CMP R2,#4:\�Q R2,#6
�!CMP R2,#8 :\ BEQ writesheila8
�!CMP R2,#6 :\ BEQ writesheila6
�!CMP R2,#7 :\ BEQ writesheila7
�!CMP R2,#9 :\ BEQ writesheila9
�STRB R0,[R1,R2,LSL#2]
�LDRB R0,[R1]
LDMFD R13!,{PC}

.writesheila6
$MOV R0,R0,LSL#1
.STRB R0,[R1,#6 << 2]
8LDRB R2,[R1,#7 << 2]
BBIC R2,R2,#1
L�R R2,R2,R0,LSR#8
VSTRB R2,[R1,#7 << 2]
`LDMFD R13!,{PC}
j
t.writesheila8
~MOV R0,R0,LSL#1
�STRB R0,[R1,#8 << 2]
�LDRB R2,[R1,#9 << 2]
�BIC R2,R2,#1
��R R2,R2,R0,LSR#8
�STRB R2,[R1,#9 << 2]
�LDMFD R13!,{PC}
�
�.writesheila7
�LDRB R2,[R1,#7 << 2]
�� R2,R2,#1
�ADD R2,R2,R0,LSL#1
�STRB R2,[R1,#7 << 2]
LDMFD R13!,{PC}


.writesheila9
LDRB R2,[R1,#9 << 2]
(� R2,R2,#1
2ADD R2,R2,R0,LSL#1
<STRB R2,[R1,#9 << 2]
FLDMFD R13!,{PC}
P
Z.writesheila5
dLDRB R2,[R1,#7 << 2]
n� R2,R2,#1
xADD R2,R2,R0,LSL#1
�STRB R2,[R1,#5 << 2]
�LDMFD R13!,{PC}
�
�.readsheila
�STMFD R13!,{R14}
�'SWI &40500 ; "XI/O_Podule_Hardware"
�/ADD R1,R1,#&2000 ; base address of User VIA
�<CMP R0,#8 : CMPNE R0,#6 : CMPNE R0,#4 : \BEQ readsheila2
�)CMP R0,#9 : CMPNE R0,#7 : CMPNE R0,#5
�LDRB R0,[R1,R0,LSL#2]
�\�Q R0,R0,LSR#1
�LDMFD R13!,{PC}
�
.readsheila2
LDRB R2,[R1,R0,LSL#2]
ADD R0,R0,#1
"LDRB R0,[R1,R0,LSL#2]
,ADD R0,R2,R0,LSL#8
6MOV R0,R0,LSR#1
@� R0,R0,#&FF
JLDMFD R13!,{PC}
T
^.pokeserialnumber
hSTMFD R13!,{R14}
rSTR R1,buffer
| MOV R1,#22 : MOV R1,R1,LSR#1
�STR R1,buffer+4
�ADR R1,buffer
�SWI "Wimp_GetIconState"
�LDR R1,[R1,#28]
�MOV R0,#30
�MOV R2,#%1101011
�ADD R2,R2,#%01101110 << 8
�ADD R2,R2,#%11110100 << 16
�ADD R2,R2,#%00111011 << 24
�ADR R3,serialnumber
�SUB R3,R3,#1
�SUB R1,R1,#1
�.serialloop
 LDRB R4,[R3,R0]
 � R4,R4,R2
 STRB R4,[R1,R0]
 &MOV R2,R2,ROR R0
 0SUBS R0,R0,#1
 :BNE serialloop
 DLDMFD R13!,{PC}
 N
 X.buffer
 bEQUS �48," ")
 l	ALIGN
 v
 �.install_exit
 �STMFD R13!,{R14}
 �STR R0,wimp_mode
 �MOV R0,#11 ; exit
 �
MOV R1,#0
 �SWI "XOS_ChangeEnvironment"
 �STR R1,old_handler
 �ADR R1,exit_han
 �SWI "XOS_ChangeEnvironment"
 �LDMFD R13!,{PC}
 �
 �.remove_exit
 �STMFD R13!,{R14}
!MOV R0,#11
!LDR R1,old_handler
!SWI "XOS_ChangeEnvironment"
! LDMFD R13!,{PC}
!*
!4
.exit_han
!>LDR R0,wimp_mode
!HSWI "XWimp_SetMode"
!RMOV R0,#11
!\LDR R1,old_handler
!fSWI "XOS_ChangeEnvironment"
!pLDR R0,register_count
!zSUBS R0,R0,#1
!�STR R0,register_count
!�SWINE "OS_Exit"
!�ADR R3,kill_6502
!�SWI "OS_ExitAndDie"
!�
!�.kill_6502
!�EQUS "6502Support"+�0
!�	ALIGN
!�
!�.wimp_mode
!�
EQUD 0
!�.old_handler
!�
EQUD 0
"
"
.register
"LDR R0,register_count
"$ADD R0,R0,#1
".STR R0,register_count
"8MOV PC,R14
"B
"L	.serv
"VCMP R1,#&27
"`MOVNE pc,R14
"j
MOV R0,#0
"tSTR R0,register_count
"~MOV PC,R14
"�
"�.deregister
"�LDR R0,register_count
"�SUB R0,R0,#1
"�STR R0,register_count
"�MOV PC,R14
"�
"�.register_count
"�
EQUD 0
"�
"�.swicode
"�'CMP R11,#(EndJumpTable-JumpTable)/4
#ADDCC PC,PC,R11,LSL#2
#
B UnknownSWI
#.JumpTable
#B updatescreen
#(B updatescreen7
#2
B init
#<B getkeyaddr
#FB getkdata
#PB checkkdata
#ZB register
#dB deregister
#nB reinit
#xB readkeymapaddr
#�B install_exit
#�B remove_exit
#�B readsheila
#�B writesheila
#�B pokeserialnumber
#�
B getsync
#�B geteleckeys
#�B getelectronmap
#�.EndJumpTable
#�.UnknownSWI
#�ADR R0,errmess
#��RS PC,R14,#1<<28
#�.errmess
$
EQUD &1E6
$%EQUS "Unknown <module> operation"
$
EQUB 0
$"	ALIGN
$,
.switable
$6EQUS "6502":EQUB 0
$@EQUS "UpdateScreen":EQUB 0
$JEQUS "UpdateScreen7":EQUB 0
$TEQUS "Init":EQUB 0
$^EQUS "Getkeyaddr":EQUB 0
$hEQUS "Getkdata":EQUB 0
$rEQUS "Checkkdata":EQUB 0  
$|EQUS "Register":EQUB 0
$�EQUS "DeRegister":EQUB 0
$�EQUS "ReInit":EQUB 0
$�%EQUS "ReadKeyMapAddress" : EQUB 0
$�&EQUS "InstallExitHandler" : EQUB 0
$�%EQUS "RemoveExitHandler" : EQUB 0
$�EQUS "ReadSheila" : EQUB 0
$�EQUS "WriteSheila" : EQUB 0
$�EQUS "Sound" : EQUB 0
$�EQUS "GetSync" : EQUB 0
$�#EQUS "GetElectronKeys" : EQUB 0
$�"EQUS "GetElectronMap" : EQUB 0
$�
EQUB 0
$�	ALIGN
%
%.serialnumber
%EQUS �30,"Z")
%&
%0
%:]:�
%D8�"Load <6502Em$Dir>.SRC.revtable "+�~(code+revtable)
%N8�"Load <6502Em$Dir>.SRC.mode2tab "+�~(code+mode2tab)
%X8�"Load <6502Em$Dir>.SRC.mode1tab "+�~(code+mode1tab)
%b8�"Load <6502Em$Dir>.SRC.mode0tab "+�~(code+mode4tab)
%l<�"Load <6502Em$Dir>.SRC.mode5tab "+�~(code+mode4tab+512)
%v4�"Load <6502Em$Dir>.SRC.keymap "+�~(code+keymap)
%w:�"Load <6502Em$Dir>.SRC.keymap "+�~(code+keymap_shift)
%�
%��electron_keys
%�
%�3�"SAVE <6502Em$Res>.65Support "+�~code+" "+�~O%
%�**SETTYPE <6502Em$Res>.65Support MODULE
%�
�*/Z80Mod
%��
%�
%�ݤprint(R)
%��I%
%�	[OPTp
%�MOV R1,R,ROR#28
%�]
&
�I%=0 � 7
&
[OPT p
&� R0,R1,#&F
& CMP R0,#10
&*ADDGE R0,R0,#7
&4ADD R0,R0,#48
&>SWI "OS_WriteC"
&HMOV R1,R1,ROR#28
&R]
&\�
&f	[OPTp
&pSWI &120
&z]
&�=""
&�
&�ݤprint4a(R)
&��I%
&�	[OPTp
&�MOV R1,R,ROR#28
&�]
&�
�I%=0 � 3
&�
[OPT p
&�� R0,R1,#&F
&�CMP R0,#10
&�ADDGE R0,R0,#7
&�ADD R0,R0,#48
'SWI "OS_WriteC"
'MOV R1,R1,ROR#28
']
'$�
'.	[OPTp
'8
;SWI &120
'B]
'L=""
'V
'`ݤprint4(R)
'j�I%
't	[OPTp
'~MOV R1,R,ROR#12
'�]
'�
�I%=0 � 3
'�
[OPT p
'�� R0,R1,#&F
'�CMP R0,#10
'�ADDGE R0,R0,#7
'�ADD R0,R0,#48
'�SWI "OS_WriteC"
'�MOV R1,R1,ROR#28
'�]
'��
'�	[OPTp
(SWI &120
(
]
(=""
(
((ݤprint2(R)
(2�I%
(<	[OPTp
(FMOV R1,R,ROR#4
(P]
(Z
�I%=0 � 1
(d
[OPT p
(n� R0,R1,#&F
(xCMP R0,#10
(�ADDGE R0,R0,#7
(�ADD R0,R0,#48
(�SWI "OS_WriteC"
(�MOV R1,R1,ROR#28
(�]
(��
(�=""
(�
(�ݤprintCR(R)
(��I%
(�	[OPTp
(�MOV R1,R,ROR#28
(�]
)
�I%=0 � 7
)
[OPT p
)� R0,R1,#&F
)"CMP R0,#10
),ADDGE R0,R0,#7
)6ADD R0,R0,#48
)@SWI "OS_WriteC"
)JMOV R1,R1,ROR#28
)T]
)^�
)h
[OPT p
)rMOV R0,#10
)|SWI "OS_WriteC"
)�MOV R0,#13
)�SWI "OS_WriteC"
)�]
)�=""
)�
)�ݤprints(A$)
)�	[OPTp
)�SWI "OS_WriteS"
)�EQUS A$
)�EQUB 10
)�EQUB 13
)�
EQUB 0
)�	ALIGN
*]
*=""
*
*&ݤprintno(H%)
*0	[OPTp
*:.print(H%)
*DSWI (&100+�(��~H%,1)))
*NSWI (&100+�(��~H%,1)))
*X�fetch2(1)
*b]
*l=""
*v
*�ݤprintbin(R)
*�	[OPTp
*�MOVS R0,R,LSL#25
*�SWICC &130
*�SWICS &131
*�MOVS R0,R0,LSL#1
*�SWICC &130
*�SWICS &131
*�MOVS R0,R0,LSL#1
*�SWICC &130
*�SWICS &131
*�MOVS R0,R0,LSL#1
*�SWICC &130
+SWICS &131
+MOVS R0,R0,LSL#1
+SWICC &130
+ SWICS &131
+*MOVS R0,R0,LSL#1
+4SWICC &130
+>SWICS &131
+HMOVS R0,R0,LSL#1
+RSWICC &130
+\SWICS &131
+fMOVS R0,R0,LSL#1
+pSWICC &130
+zSWICS &131
+�SWI &10A
+�SWI &10D
+�]
+�=""
+�
+���electron_keys
+�A%=electronmap+code
+�
+��I%=0 � 1023 � 4
+�
A%!I%=&FF
+��
+�
+��
,� X%,Y%,Z%
,x%=X% � 16
,X%=(X%*16+x%) � &FF
,$A%!(X%*4)=(Y%<<8)+Z%
,.� X%=&FF � Z%=&FF � Y%=&FF
,8
,B�
,L� internal key,row,column
,V
,`� 0,0,13 : REM Escape
,j� 1,0,13
,t
,~� &11,0,12
,�� &21,0,11
,�� &31,0,10
,�
� &41,0,9
,�
� &51,0,8
,�
� &61,0,7
,�
� &71,0,6
,�
� &81,0,5
,�
� &91,0,4
,�
� &A1,0,3
,�
� &B1,0,2
,�
,�� &C1,0,1 : REM Left
-
� &26,0,1
-

-� &D1,0,0 : REM Right
-
� &46,0,0
-(
-2� &E1,3,1 : REM backspace
-<
-F#� &62,1,13 : REM Caps Lock/Func
-P� &D5,1,13
-Z
-d� &72,1,12
-n� &82,1,11
-x� &92,1,10
-�
� &A2,1,9
-�
� &B2,1,8
-�
� &C2,1,7
-�
� &D2,1,6
-�
� &E2,1,5
-�� &F2,1,4 : REM O
-�
-�� &03,1,3 : REM P
-�
-�� &13,1,2 : REM Up
-�
� &95,1,2
-�
-�� &23,1,1 : REM Down
.
� &36,1,1
.
.� &33,1,0 : REM Copy
."
� &53,1,0
.,
.6� &B3,2,13 : REM Ctrl
.@� &16,2,13
.J
.T� &C3,2,12
.^� &D3,2,11
.h� &E3,2,10
.r� &F3,2,9  : REM F
.|
.�� &04,2,8  : REM G
.�
� &14,2,7
.�
� &24,2,6
.�
� &34,2,5
.�
� &44,2,4
.�
� &54,2,3
.�
� &64,2,2
.�� &74,2,1 : REM return
.�
.�� &C4,3,13 : REM shift
.�� &E4,3,12 : REM Z
.�� &F4,3,11 : REM X
.�
/� &05,3,10 : REM C
/
� &15,3,9
/
� &25,3,8
/&
� &35,3,7
/0
� &45,3,6
/:
� &55,3,5
/D
� &65,3,4
/N
� &75,3,3
/X� &85,3,13 : REM shift
/b� &43,3,1 : REM Delete
/l� &F5,3,0 : REM Space
/v
/�� &FF,&FF,&FF
/�
/�� �adr(s%,x%)
/�6� The instruction sequence must be of FIXED length
/�a%=x%-P%-8
/�� (p � 2) �
/� � a%>=0 �
/�  [OPT p
/�"   ADD s%,PC,#(a% � &000003FC)
/�"   ADD s%,s%,#(a% � &FFFFFC00)
/�  ]
/� �
/�  a%=-a%
0  [OPT p
0"   SUB s%,PC,#(a% � &000003FC)
0"   SUB s%,s%,#(a% � &FFFFFC00)
0   ]
0* �
04�
0> P%+=8:O%+=8
0H�
0R=""
�

00000000  0d 00 0a 12 f4 20 3e 20  36 35 30 32 4d 6f 64 53  |..... > 6502ModS|
00000010  72 63 0d 00 14 10 de 20  63 6f 64 65 20 32 30 30  |rc..... code 200|
00000020  30 30 0d 00 1e 04 0d 00  28 09 6d 65 6d 3d 33 0d  |00......(.mem=3.|
00000030  00 32 1c 61 72 63 5f 73  63 72 65 65 6e 73 74 61  |.2.arc_screensta|
00000040  72 74 3d 2d 26 31 30 30  2b 38 30 0d 00 3c 16 63  |rt=-&100+80..<.c|
00000050  72 74 5f 72 65 67 73 3d  2d 26 31 30 30 2b 31 32  |rt_regs=-&100+12|
00000060  30 0d 00 46 04 0d 00 50  04 0d 00 5a 04 0d 00 64  |0..F...P...Z...d|
00000070  10 e3 70 3d 34 20 b8 20  37 20 88 20 32 0d 00 6e  |..p=4 . 7 . 2..n|
00000080  0b 4f 25 3d 63 6f 64 65  0d 00 78 08 50 25 3d 30  |.O%=code..x.P%=0|
00000090  0d 00 82 0a 5b 4f 50 54  20 70 0d 00 8c 12 45 51  |....[OPT p....EQ|
000000a0  55 44 20 30 20 3b 20 73  74 61 72 74 0d 00 96 0e  |UD 0 ; start....|
000000b0  45 51 55 44 20 69 6e 69  74 30 0d 00 a0 0c 45 51  |EQUD init0....EQ|
000000c0  55 44 20 66 69 6e 0d 00  aa 0d 45 51 55 44 20 73  |UD fin....EQUD s|
000000d0  65 72 76 0d 00 b4 0e 45  51 55 44 20 74 69 74 6c  |erv....EQUD titl|
000000e0  65 0d 00 be 0d 45 51 55  44 20 68 65 6c 70 0d 00  |e....EQUD help..|
000000f0  c8 10 45 51 55 44 20 30  20 3b 20 74 62 6c 0d 00  |..EQUD 0 ; tbl..|
00000100  d2 24 45 51 55 44 20 26  34 43 34 38 30 20 3b 20  |.$EQUD &4C480 ; |
00000110  6f 66 66 69 63 69 61 6c  20 53 57 49 20 63 68 75  |official SWI chu|
00000120  6e 6b 0d 00 dc 10 45 51  55 44 20 73 77 69 63 6f  |nk....EQUD swico|
00000130  64 65 0d 00 e6 11 45 51  55 44 20 73 77 69 74 61  |de....EQUD swita|
00000140  62 6c 65 0d 00 f0 0a 45  51 55 44 20 30 0d 00 fa  |ble....EQUD 0...|
00000150  0b 3b 2e 73 74 61 72 74  0d 01 04 0f 3b 4d 4f 56  |.;.start....;MOV|
00000160  20 70 63 2c 52 31 34 0d  01 0e 12 3b 53 57 49 20  | pc,R14....;SWI |
00000170  22 4f 53 5f 45 78 69 74  22 0d 01 18 0b 3b 2e 73  |"OS_Exit"....;.s|
00000180  74 61 72 74 0d 01 22 0a  2e 69 6e 69 74 30 0d 01  |tart.."..init0..|
00000190  2c 1a 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 31  |,.STMFD R13!,{R1|
000001a0  2d 52 35 2c 52 31 34 7d  0d 01 36 3c 4d 4f 56 20  |-R5,R14}..6<MOV |
000001b0  52 30 2c 23 26 31 30 20  3a 20 41 44 52 20 52 31  |R0,#&10 : ADR R1|
000001c0  2c 63 6c 61 69 6d 20 3a  20 4d 4f 56 20 52 32 2c  |,claim : MOV R2,|
000001d0  23 30 20 3a 20 53 57 49  20 22 58 4f 53 5f 43 6c  |#0 : SWI "XOS_Cl|
000001e0  61 69 6d 22 0d 01 40 1b  4c 44 4d 56 53 46 44 20  |aim"..@.LDMVSFD |
000001f0  52 31 33 21 2c 7b 52 31  2d 52 35 2c 50 43 7d 0d  |R13!,{R1-R5,PC}.|
00000200  01 4a 2c 4d 4f 56 20 52  30 2c 23 31 34 20 3a 20  |.J,MOV R0,#14 : |
00000210  4d 4f 56 20 52 31 2c 23  31 31 20 3a 20 53 57 49  |MOV R1,#11 : SWI|
00000220  20 22 58 4f 53 5f 42 79  74 65 22 0d 01 54 1c 3b  | "XOS_Byte"..T.;|
00000230  4c 44 4d 56 53 46 44 20  52 31 33 21 2c 7b 52 31  |LDMVSFD R13!,{R1|
00000240  2d 52 35 2c 50 43 7d 0d  01 5e 19 4c 44 4d 46 44  |-R5,PC}..^.LDMFD|
00000250  20 52 31 33 21 2c 7b 52  31 2d 52 35 2c 50 43 7d  | R13!,{R1-R5,PC}|
00000260  0d 01 68 04 0d 01 72 12  3b 53 57 49 20 22 4f 53  |..h...r.;SWI "OS|
00000270  5f 45 78 69 74 22 0d 01  7c 0f 3b 4d 4f 56 20 70  |_Exit"..|.;MOV p|
00000280  63 2c 52 31 34 0d 01 86  08 2e 66 69 6e 0d 01 90  |c,R14.....fin...|
00000290  14 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 31 34  |.STMFD R13!,{R14|
000002a0  7d 0d 01 9a 2c 4d 4f 56  20 52 30 2c 23 31 33 20  |}...,MOV R0,#13 |
000002b0  3a 20 4d 4f 56 20 52 31  2c 23 31 31 20 3a 20 53  |: MOV R1,#11 : S|
000002c0  57 49 20 22 58 4f 53 5f  42 79 74 65 22 0d 01 a4  |WI "XOS_Byte"...|
000002d0  3e 4d 4f 56 20 52 30 2c  23 26 31 30 20 3a 20 41  |>MOV R0,#&10 : A|
000002e0  44 52 20 52 31 2c 63 6c  61 69 6d 20 3a 20 4d 4f  |DR R1,claim : MO|
000002f0  56 20 52 32 2c 23 30 20  3a 20 53 57 49 20 22 58  |V R2,#0 : SWI "X|
00000300  4f 53 5f 52 65 6c 65 61  73 65 22 0d 01 ae 14 4c  |OS_Release"....L|
00000310  44 4d 46 44 20 52 31 33  21 2c 7b 50 43 7d 5e 0d  |DMFD R13!,{PC}^.|
00000320  01 b8 0f 3b 4d 4f 56 20  70 63 2c 52 31 34 0d 01  |...;MOV pc,R14..|
00000330  c2 0a 2e 74 69 74 6c 65  0d 01 cc 16 45 51 55 53  |...title....EQUS|
00000340  20 22 36 35 30 32 53 75  70 70 6f 72 74 22 0d 01  | "6502Support"..|
00000350  d6 09 45 51 55 42 30 0d  01 e0 09 41 4c 49 47 4e  |..EQUB0....ALIGN|
00000360  0d 01 ea 09 2e 68 65 6c  70 0d 01 f4 30 45 51 55  |.....help...0EQU|
00000370  53 22 36 35 30 32 20 53  75 70 70 6f 72 74 22 2b  |S"6502 Support"+|
00000380  bd 39 2b 22 30 2e 31 30  20 28 22 2b c1 91 24 2c  |.9+"0.10 ("+..$,|
00000390  35 2c 31 31 29 2b 22 29  22 0d 01 fe 0a 45 51 55  |5,11)+")"....EQU|
000003a0  42 20 30 0d 02 08 04 0d  02 12 0c 2e 67 65 74 73  |B 0.........gets|
000003b0  79 6e 63 0d 02 1c 14 4c  44 52 20 52 30 2c 73 79  |ync....LDR R0,sy|
000003c0  6e 63 5f 64 61 74 61 0d  02 26 0d 4d 4f 56 20 52  |nc_data..&.MOV R|
000003d0  31 2c 23 30 0d 02 30 14  53 54 52 20 52 31 2c 73  |1,#0..0.STR R1,s|
000003e0  79 6e 63 5f 64 61 74 61  0d 02 3a 0f 4d 4f 56 53  |ync_data..:.MOVS|
000003f0  20 50 43 2c 52 31 34 0d  02 44 04 0d 02 4e 0e 2e  | PC,R14..D...N..|
00000400  73 79 6e 63 5f 64 61 74  61 0d 02 58 0a 45 51 55  |sync_data..X.EQU|
00000410  44 20 30 0d 02 62 09 2e  73 79 6e 63 0d 02 6c 14  |D 0..b..sync..l.|
00000420  4c 44 52 20 52 30 2c 73  79 6e 63 5f 64 61 74 61  |LDR R0,sync_data|
00000430  0d 02 76 10 41 44 44 20  52 30 2c 52 30 2c 23 31  |..v.ADD R0,R0,#1|
00000440  0d 02 80 14 53 54 52 20  52 30 2c 73 79 6e 63 5f  |....STR R0,sync_|
00000450  64 61 74 61 0d 02 8a 0d  4d 4f 56 20 52 30 2c 23  |data....MOV R0,#|
00000460  34 0d 02 94 0e 4d 4f 56  20 50 43 2c 52 31 34 0d  |4....MOV PC,R14.|
00000470  02 9e 04 0d 02 a8 08 2e  74 6d 70 0d 02 b2 0a 45  |........tmp....E|
00000480  51 55 44 20 30 0d 02 bc  04 0d 02 c6 10 2e 67 65  |QUD 0.........ge|
00000490  74 65 6c 65 63 6b 65 79  73 0d 02 d0 14 41 44 52  |teleckeys....ADR|
000004a0  20 52 30 2c 65 6c 65 63  5f 6b 65 79 73 0d 02 da  | R0,elec_keys...|
000004b0  0e 4d 4f 56 20 50 43 2c  52 31 34 0d 02 e4 04 0d  |.MOV PC,R14.....|
000004c0  02 ee 0e 2e 65 6c 65 63  5f 6b 65 79 73 0d 02 f8  |....elec_keys...|
000004d0  0a 45 51 55 44 20 30 0d  03 02 0a 45 51 55 44 20  |.EQUD 0....EQUD |
000004e0  30 0d 03 0c 0a 45 51 55  44 20 30 0d 03 16 0a 45  |0....EQUD 0....E|
000004f0  51 55 44 20 30 0d 03 20  04 0d 03 2a 0a 2e 63 6c  |QUD 0.. ...*..cl|
00000500  61 69 6d 0d 03 34 0d 43  4d 50 20 52 30 2c 23 34  |aim..4.CMP R0,#4|
00000510  0d 03 3e 0c 42 45 51 20  73 79 6e 63 0d 03 48 1c  |..>.BEQ sync..H.|
00000520  43 4d 50 20 52 30 2c 23  31 31 20 3b 20 6b 65 79  |CMP R0,#11 ; key|
00000530  20 70 72 65 73 73 65 64  0d 03 52 10 4d 4f 56 4e  | pressed..R.MOVN|
00000540  45 20 50 43 2c 52 31 34  0d 03 5c 12 53 54 52 20  |E PC,R14..\.STR |
00000550  52 31 2c 52 31 73 74 6f  72 65 0d 03 66 12 53 54  |R1,R1store..f.ST|
00000560  52 20 52 32 2c 52 32 73  74 6f 72 65 0d 03 70 11  |R R2,R2store..p.|
00000570  3b 80 20 52 32 2c 52 32  2c 23 26 46 46 0d 03 7a  |;. R2,R2,#&FF..z|
00000580  0d 43 4d 50 20 52 31 2c  23 31 0d 03 84 13 53 54  |.CMP R1,#1....ST|
00000590  52 45 51 42 20 52 32 2c  6b 64 61 74 61 0d 03 8e  |REQB R2,kdata...|
000005a0  04 0d 03 98 1f 3b 43 4d  50 20 52 32 2c 23 26 34  |.....;CMP R2,#&4|
000005b0  43 20 20 20 3b 20 4c 65  66 74 20 53 68 69 66 74  |C   ; Left Shift|
000005c0  0d 03 a2 20 3b 43 4d 50  4e 45 20 52 32 2c 23 26  |... ;CMPNE R2,#&|
000005d0  35 38 20 3b 20 52 69 67  68 74 20 53 68 69 66 74  |58 ; Right Shift|
000005e0  0d 03 ac 16 3b 53 54 52  45 51 42 20 52 31 2c 6b  |....;STREQB R1,k|
000005f0  64 61 74 61 2b 31 0d 03  b6 04 0d 03 c0 0e 53 54  |data+1........ST|
00000600  52 20 52 32 2c 74 6d 70  0d 03 ca 04 0d 03 d4 17  |R R2,tmp........|
00000610  a4 61 64 72 28 33 2c 65  6c 65 63 74 72 6f 6e 6d  |.adr(3,electronm|
00000620  61 70 29 0d 03 de 18 4c  44 52 20 52 32 2c 5b 52  |ap)....LDR R2,[R|
00000630  33 2c 52 32 2c 4c 53 4c  23 32 5d 0d 03 e8 0f 43  |3,R2,LSL#2]....C|
00000640  4d 50 20 52 32 2c 23 26  46 46 0d 03 f2 11 42 45  |MP R2,#&FF....BE|
00000650  51 20 73 6b 69 70 5f 65  6c 65 63 0d 03 fc 04 0d  |Q skip_elec.....|
00000660  04 06 04 0d 04 10 14 41  44 52 20 52 33 2c 65 6c  |.......ADR R3,el|
00000670  65 63 5f 6b 65 79 73 0d  04 1a 13 4d 4f 56 20 52  |ec_keys....MOV R|
00000680  30 2c 52 32 2c 4c 53 52  23 38 0d 04 24 10 80 20  |0,R2,LSR#8..$.. |
00000690  52 32 2c 52 32 2c 23 26  46 46 0d 04 2e 10 80 20  |R2,R2,#&FF..... |
000006a0  52 30 2c 52 30 2c 23 25  31 31 0d 04 38 18 4c 44  |R0,R0,#%11..8.LD|
000006b0  52 20 52 34 2c 5b 52 33  2c 52 30 2c 4c 53 4c 23  |R R4,[R3,R0,LSL#|
000006c0  32 5d 0d 04 42 0d 43 4d  50 20 52 31 2c 23 31 0d  |2]..B.CMP R1,#1.|
000006d0  04 4c 18 84 52 45 51 20  52 34 2c 52 34 2c 52 31  |.L..REQ R4,R4,R1|
000006e0  2c 4c 53 4c 20 52 32 0d  04 56 0f 4d 4f 56 4e 45  |,LSL R2..V.MOVNE|
000006f0  20 52 31 2c 23 31 0d 04  60 19 42 49 43 4e 45 20  | R1,#1..`.BICNE |
00000700  52 34 2c 52 34 2c 52 31  2c 4c 53 4c 20 52 32 0d  |R4,R4,R1,LSL R2.|
00000710  04 6a 0f 4d 4f 56 4e 45  20 52 31 2c 23 30 0d 04  |.j.MOVNE R1,#0..|
00000720  74 18 53 54 52 20 52 34  2c 5b 52 33 2c 52 30 2c  |t.STR R4,[R3,R0,|
00000730  4c 53 4c 23 32 5d 0d 04  7e 04 0d 04 88 0e 2e 73  |LSL#2]..~......s|
00000740  6b 69 70 5f 65 6c 65 63  0d 04 92 0e 4c 44 52 20  |kip_elec....LDR |
00000750  52 32 2c 74 6d 70 0d 04  9c 04 0d 04 a6 11 41 44  |R2,tmp........AD|
00000760  52 20 52 33 2c 6b 65 79  6d 61 70 0d 04 b0 13 4c  |R R3,keymap....L|
00000770  44 52 42 20 52 32 2c 5b  52 33 2c 52 32 5d 0d 04  |DRB R2,[R3,R2]..|
00000780  ba 1e 43 4d 50 20 52 32  2c 23 26 46 46 20 3a 20  |..CMP R2,#&FF : |
00000790  42 45 51 20 6b 65 79 5f  73 6b 69 70 0d 04 c4 0f  |BEQ key_skip....|
000007a0  41 44 52 20 52 33 2c 6b  65 79 73 0d 04 ce 13 53  |ADR R3,keys....S|
000007b0  54 52 42 20 52 31 2c 5b  52 33 2c 52 32 5d 0d 04  |TRB R1,[R3,R2]..|
000007c0  d8 0d 2e 6b 65 79 5f 73  6b 69 70 0d 04 e2 0e 4c  |...key_skip....L|
000007d0  44 52 20 52 32 2c 74 6d  70 0d 04 ec 17 41 44 52  |DR R2,tmp....ADR|
000007e0  20 52 33 2c 6b 65 79 6d  61 70 5f 73 68 69 66 74  | R3,keymap_shift|
000007f0  0d 04 f6 13 4c 44 52 42  20 52 32 2c 5b 52 33 2c  |....LDRB R2,[R3,|
00000800  52 32 5d 0d 05 00 1e 43  4d 50 20 52 32 2c 23 26  |R2]....CMP R2,#&|
00000810  46 46 20 3a 20 42 45 51  20 6b 65 79 5f 65 78 69  |FF : BEQ key_exi|
00000820  74 0d 05 0a 15 41 44 52  20 52 33 2c 6b 65 79 73  |t....ADR R3,keys|
00000830  5f 73 68 69 66 74 0d 05  14 13 53 54 52 42 20 52  |_shift....STRB R|
00000840  31 2c 5b 52 33 2c 52 32  5d 0d 05 1e 0d 2e 6b 65  |1,[R3,R2].....ke|
00000850  79 5f 65 78 69 74 0d 05  28 04 0d 05 32 0e 4d 4f  |y_exit..(...2.MO|
00000860  56 20 52 30 2c 23 31 31  0d 05 3c 12 4c 44 52 20  |V R0,#11..<.LDR |
00000870  52 31 2c 52 31 73 74 6f  72 65 0d 05 46 12 4c 44  |R1,R1store..F.LD|
00000880  52 20 52 32 2c 52 32 73  74 6f 72 65 0d 05 50 0a  |R R2,R2store..P.|
00000890  2e 6e 6f 6b 65 79 0d 05  5a 0e 4d 4f 56 20 50 43  |.nokey..Z.MOV PC|
000008a0  2c 52 31 34 0d 05 64 0c  2e 52 31 73 74 6f 72 65  |,R14..d..R1store|
000008b0  0d 05 6e 0a 45 51 55 44  20 30 0d 05 78 0c 2e 52  |..n.EQUD 0..x..R|
000008c0  32 73 74 6f 72 65 0d 05  82 0a 45 51 55 44 20 30  |2store....EQUD 0|
000008d0  0d 05 8c 04 0d 05 96 0d  2e 67 65 74 6b 64 61 74  |.........getkdat|
000008e0  61 0d 05 a0 11 4c 44 52  42 20 52 30 2c 6b 64 61  |a....LDRB R0,kda|
000008f0  74 61 0d 05 aa 0f 4d 4f  56 20 52 31 2c 23 26 46  |ta....MOV R1,#&F|
00000900  46 0d 05 b4 10 53 54 52  20 52 31 2c 6b 64 61 74  |F....STR R1,kdat|
00000910  61 0d 05 be 11 41 44 52  20 52 31 2c 6b 65 79 6d  |a....ADR R1,keym|
00000920  61 70 0d 05 c8 0e 4d 4f  56 20 50 43 2c 52 31 34  |ap....MOV PC,R14|
00000930  0d 05 d2 04 0d 05 dc 0f  2e 63 68 65 63 6b 6b 64  |.........checkkd|
00000940  61 74 61 0d 05 e6 11 4c  44 52 42 20 52 30 2c 6b  |ata....LDRB R0,k|
00000950  64 61 74 61 0d 05 f0 0e  4d 4f 56 20 50 43 2c 52  |data....MOV PC,R|
00000960  31 34 0d 05 fa 04 0d 06  04 0f 2e 67 65 74 6b 65  |14.........getke|
00000970  79 61 64 64 72 0d 06 0e  0f 41 44 52 20 52 30 2c  |yaddr....ADR R0,|
00000980  6b 65 79 73 0d 06 18 0e  4d 4f 56 20 50 43 2c 52  |keys....MOV PC,R|
00000990  31 34 0d 06 22 04 0d 06  2c 13 2e 72 65 61 64 6b  |14.."...,..readk|
000009a0  65 79 6d 61 70 61 64 64  72 0d 06 36 11 41 44 52  |eymapaddr..6.ADR|
000009b0  20 52 30 2c 6b 65 79 6d  61 70 0d 06 40 0e 4d 4f  | R0,keymap..@.MO|
000009c0  56 20 50 43 2c 52 31 34  0d 06 4a 04 0d 06 54 0b  |V PC,R14..J...T.|
000009d0  2e 6b 65 79 6d 61 70 0d  06 5e 05 5d 0d 06 68 0b  |.keymap..^.]..h.|
000009e0  50 25 2b 3d 32 35 36 0d  06 72 0b 4f 25 2b 3d 32  |P%+=256..r.O%+=2|
000009f0  35 36 0d 06 7c 09 5b 4f  50 54 70 0d 06 7d 11 2e  |56..|.[OPTp..}..|
00000a00  6b 65 79 6d 61 70 5f 73  68 69 66 74 0d 06 7e 05  |keymap_shift..~.|
00000a10  5d 0d 06 7f 0b 50 25 2b  3d 32 35 36 0d 06 80 0b  |]....P%+=256....|
00000a20  4f 25 2b 3d 32 35 36 0d  06 81 09 5b 4f 50 54 70  |O%+=256....[OPTp|
00000a30  0d 06 86 04 0d 06 90 0a  2e 6b 64 61 74 61 0d 06  |.........kdata..|
00000a40  9a 0c 45 51 55 44 20 26  46 46 0d 06 a4 04 0d 06  |..EQUD &FF......|
00000a50  ae 09 2e 6b 65 79 73 0d  06 b8 05 5d 0d 06 c2 28  |...keys....]...(|
00000a60  e3 49 25 3d 30 20 b8 20  32 35 35 20 3a 20 5b 4f  |.I%=0 . 255 : [O|
00000a70  50 54 70 20 3a 20 45 51  55 42 20 30 20 3a 20 5d  |PTp : EQUB 0 : ]|
00000a80  20 3a 20 ed 0d 06 cc 09  5b 4f 50 54 70 0d 06 cd  | : .....[OPTp...|
00000a90  0f 2e 6b 65 79 73 5f 73  68 69 66 74 0d 06 ce 05  |..keys_shift....|
00000aa0  5d 0d 06 cf 28 e3 49 25  3d 30 20 b8 20 32 35 35  |]...(.I%=0 . 255|
00000ab0  20 3a 20 5b 4f 50 54 70  20 3a 20 45 51 55 42 20  | : [OPTp : EQUB |
00000ac0  30 20 3a 20 5d 20 3a 20  ed 0d 06 d0 09 5b 4f 50  |0 : ] : .....[OP|
00000ad0  54 70 0d 06 d6 09 41 4c  49 47 4e 0d 06 e0 13 2e  |Tp....ALIGN.....|
00000ae0  67 65 74 65 6c 65 63 74  72 6f 6e 6d 61 70 0d 06  |getelectronmap..|
00000af0  ea 16 41 44 52 20 52 30  2c 65 6c 65 63 74 72 6f  |..ADR R0,electro|
00000b00  6e 6d 61 70 0d 06 f4 0e  4d 4f 56 20 50 43 2c 52  |nmap....MOV PC,R|
00000b10  31 34 0d 06 fe 04 0d 07  08 10 2e 65 6c 65 63 74  |14.........elect|
00000b20  72 6f 6e 6d 61 70 0d 07  12 05 5d 0d 07 1c 28 e3  |ronmap....]...(.|
00000b30  49 25 3d 30 20 b8 20 32  35 35 20 3a 20 5b 4f 50  |I%=0 . 255 : [OP|
00000b40  54 70 20 3a 20 45 51 55  44 20 30 20 3a 20 5d 20  |Tp : EQUD 0 : ] |
00000b50  3a 20 ed 0d 07 26 09 5b  4f 50 54 70 0d 07 30 04  |: ...&.[OPTp..0.|
00000b60  0d 07 3a 04 0d 07 44 04  0d 07 4e 11 2e 75 70 64  |..:...D...N..upd|
00000b70  61 74 65 73 63 72 65 65  6e 0d 07 58 1b 53 54 4d  |atescreen..X.STM|
00000b80  46 44 20 52 31 33 21 2c  7b 52 32 2d 52 31 32 2c  |FD R13!,{R2-R12,|
00000b90  52 31 34 7d 0d 07 62 04  0d 07 6c 12 3b 41 44 52  |R14}..b...l.;ADR|
00000ba0  20 52 30 2c 62 6c 6f 63  6b 31 0d 07 76 11 3b 41  | R0,block1..v.;A|
00000bb0  44 44 20 52 31 2c 52 30  2c 23 38 0d 07 80 1e 3b  |DD R1,R0,#8....;|
00000bc0  53 57 49 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |SWI "OS_ReadVduV|
00000bd0  61 72 69 61 62 6c 65 73  22 0d 07 8a 22 3b 4c 44  |ariables"...";LD|
00000be0  52 20 52 39 2c 5b 52 31  5d 20 20 20 20 20 3b 20  |R R9,[R1]     ; |
00000bf0  73 63 72 65 65 6e 73 74  61 72 74 0d 07 94 21 4c  |screenstart...!L|
00000c00  44 52 20 52 39 2c 5b 6d  65 6d 2c 23 61 72 63 5f  |DR R9,[mem,#arc_|
00000c10  73 63 72 65 65 6e 73 74  61 72 74 5d 0d 07 9e 04  |screenstart]....|
00000c20  0d 07 a8 19 3b 4c 44 52  20 52 36 2c 63 72 74 5f  |....;LDR R6,crt_|
00000c30  72 65 67 73 5f 61 64 64  72 0d 07 b2 19 53 55 42  |regs_addr....SUB|
00000c40  20 52 36 2c 6d 65 6d 2c  23 2d 63 72 74 5f 72 65  | R6,mem,#-crt_re|
00000c50  67 73 0d 07 bc 14 4c 44  52 42 20 52 37 2c 5b 52  |gs....LDRB R7,[R|
00000c60  36 2c 23 31 39 5d 0d 07  c6 11 80 53 20 52 37 2c  |6,#19].....S R7,|
00000c70  52 37 2c 23 25 31 31 0d  07 d0 14 4d 4f 56 4e 45  |R7,#%11....MOVNE|
00000c80  20 52 31 32 2c 23 26 35  38 30 30 0d 07 da 11 ec  | R12,#&5800.....|
00000c90  51 20 52 31 32 2c 23 26  34 30 30 30 0d 07 e4 0f  |Q R12,#&4000....|
00000ca0  43 4d 50 20 52 37 2c 23  25 31 30 0d 07 ee 11 ec  |CMP R7,#%10.....|
00000cb0  51 20 52 31 32 2c 23 26  33 30 30 30 0d 07 f8 0f  |Q R12,#&3000....|
00000cc0  43 4d 50 20 52 37 2c 23  25 30 31 0d 08 02 11 ec  |CMP R7,#%01.....|
00000cd0  51 20 52 31 32 2c 23 26  36 30 30 30 0d 08 0c 04  |Q R12,#&6000....|
00000ce0  0d 08 16 15 41 44 44 20  52 30 2c 6d 65 6d 2c 23  |....ADD R0,mem,#|
00000cf0  26 46 45 30 30 0d 08 20  15 4c 44 52 42 20 52 30  |&FE00.. .LDRB R0|
00000d00  2c 5b 52 30 2c 23 26 32  30 5d 0d 08 2a 1b 54 53  |,[R0,#&20]..*.TS|
00000d10  54 20 52 30 2c 23 25 31  30 20 3b 20 74 65 6c 65  |T R0,#%10 ; tele|
00000d20  74 65 78 74 3f 0d 08 34  15 42 4e 45 20 75 70 64  |text?..4.BNE upd|
00000d30  61 74 65 73 63 72 65 65  6e 37 0d 08 3e 04 0d 08  |atescreen7..>...|
00000d40  48 10 54 53 54 20 52 30  2c 23 25 31 30 30 0d 08  |H.TST R0,#%100..|
00000d50  52 15 42 45 51 20 75 70  64 61 74 65 73 63 72 65  |R.BEQ updatescre|
00000d60  65 6e 31 0d 08 5c 04 0d  08 66 11 54 53 54 20 52  |en1..\...f.TST R|
00000d70  30 2c 23 25 31 30 30 30  0d 08 70 15 42 45 51 20  |0,#%1000..p.BEQ |
00000d80  75 70 64 61 74 65 73 63  72 65 65 6e 32 0d 08 7a  |updatescreen2..z|
00000d90  04 0d 08 84 13 42 20 75  70 64 61 74 65 73 63 72  |.....B updatescr|
00000da0  65 65 6e 30 0d 08 8e 04  0d 08 98 09 2e 69 6e 69  |een0.........ini|
00000db0  74 0d 08 a2 18 53 54 52  20 52 30 2c 63 72 74 5f  |t....STR R0,crt_|
00000dc0  72 65 67 73 5f 61 64 64  72 0d 08 ac 0e 4d 4f 56  |regs_addr....MOV|
00000dd0  20 50 43 2c 52 31 34 0d  08 b6 04 0d 08 c0 12 2e  | PC,R14.........|
00000de0  63 72 74 5f 72 65 67 73  5f 61 64 64 72 0d 08 ca  |crt_regs_addr...|
00000df0  0a 45 51 55 44 20 30 0d  08 d4 04 0d 08 de 0f 2e  |.EQUD 0.........|
00000e00  70 6f 69 6e 74 65 72 5f  6f 6e 0d 08 e8 17 45 51  |pointer_on....EQ|
00000e10  55 53 20 22 50 6f 69 6e  74 65 72 20 31 22 2b bd  |US "Pointer 1"+.|
00000e20  30 0d 08 f2 09 41 4c 49  47 4e 0d 08 fc 04 0d 09  |0....ALIGN......|
00000e30  06 12 2e 75 70 64 61 74  65 73 63 72 65 65 6e 30  |...updatescreen0|
00000e40  0d 09 10 14 4c 44 52 42  20 52 30 2c 6c 61 73 74  |....LDRB R0,last|
00000e50  6d 6f 64 65 0d 09 1a 0d  43 4d 50 20 52 30 2c 23  |mode....CMP R0,#|
00000e60  30 0d 09 24 12 42 45 51  20 73 6b 69 70 5f 6d 6f  |0..$.BEQ skip_mo|
00000e70  64 65 30 0d 09 2e 0c 53  57 49 20 26 31 31 36 0d  |de0....SWI &116.|
00000e80  09 38 12 53 57 49 20 26  31 30 30 20 3b 20 eb 20  |.8.SWI &100 ; . |
00000e90  30 0d 09 42 24 41 44 52  20 52 30 2c 70 6f 69 6e  |0..B$ADR R0,poin|
00000ea0  74 65 72 5f 6f 6e 20 3a  20 53 57 49 20 22 4f 53  |ter_on : SWI "OS|
00000eb0  5f 43 4c 49 22 0d 09 4c  2d 4d 4f 56 20 52 30 2c  |_CLI"..L-MOV R0,|
00000ec0  23 31 30 36 20 3a 20 4d  4f 56 20 52 31 2c 23 26  |#106 : MOV R1,#&|
00000ed0  38 32 20 3a 20 53 57 49  20 22 4f 53 5f 42 79 74  |82 : SWI "OS_Byt|
00000ee0  65 22 0d 09 56 1a 53 57  49 20 22 4f 53 5f 52 65  |e"..V.SWI "OS_Re|
00000ef0  6d 6f 76 65 43 75 72 73  6f 72 73 22 0d 09 60 20  |moveCursors"..` |
00000f00  4d 4f 56 20 52 30 2c 23  30 20 3a 20 53 54 52 42  |MOV R0,#0 : STRB|
00000f10  20 52 30 2c 6c 61 73 74  6d 6f 64 65 0d 09 6a 0f  | R0,lastmode..j.|
00000f20  2e 73 6b 69 70 5f 6d 6f  64 65 30 0d 09 74 04 0d  |.skip_mode0..t..|
00000f30  09 7e 19 3b 4c 44 52 20  52 36 2c 63 72 74 5f 72  |.~.;LDR R6,crt_r|
00000f40  65 67 73 5f 61 64 64 72  0d 09 88 19 53 55 42 20  |egs_addr....SUB |
00000f50  52 36 2c 6d 65 6d 2c 23  2d 63 72 74 5f 72 65 67  |R6,mem,#-crt_reg|
00000f60  73 0d 09 92 14 4c 44 52  42 20 52 37 2c 5b 52 36  |s....LDRB R7,[R6|
00000f70  2c 23 31 33 5d 0d 09 9c  14 4c 44 52 42 20 52 32  |,#13]....LDRB R2|
00000f80  2c 5b 52 36 2c 23 31 32  5d 0d 09 a6 13 80 20 52  |,[R6,#12]..... R|
00000f90  32 2c 52 32 2c 23 25 31  31 31 31 31 0d 09 b0 16  |2,R2,#%11111....|
00000fa0  41 44 44 20 52 37 2c 52  37 2c 52 32 2c 4c 53 4c  |ADD R7,R7,R2,LSL|
00000fb0  23 38 0d 09 ba 13 4d 4f  56 20 52 37 2c 52 37 2c  |#8....MOV R7,R7,|
00000fc0  4c 53 4c 23 33 0d 09 c4  04 0d 09 ce 13 41 44 52  |LSL#3........ADR|
00000fd0  20 52 38 2c 72 65 76 74  61 62 6c 65 0d 09 d8 27  | R8,revtable...'|
00000fe0  4c 44 52 42 20 52 32 2c  5b 52 36 2c 23 31 5d 20  |LDRB R2,[R6,#1] |
00000ff0  3b 20 6e 6f 20 6f 66 20  68 6f 72 69 7a 20 63 68  |; no of horiz ch|
00001000  61 72 73 0d 09 e2 14 4c  44 52 42 20 52 31 31 2c  |ars....LDRB R11,|
00001010  5b 52 36 2c 23 36 5d 0d  09 ec 11 4d 55 4c 20 52  |[R6,#6]....MUL R|
00001020  34 2c 52 32 2c 52 31 31  0d 09 f6 13 4d 4f 56 20  |4,R2,R11....MOV |
00001030  52 34 2c 52 34 2c 4c 53  4c 23 33 0d 0a 00 04 0d  |R4,R4,LSL#3.....|
00001040  0a 0a 14 3b 4d 4f 56 20  52 34 2c 52 32 2c 4c 53  |...;MOV R4,R2,LS|
00001050  4c 23 38 0d 0a 14 0a 2e  6c 6f 6f 70 32 0d 0a 1e  |L#8.....loop2...|
00001060  0f 3b 4d 4f 56 20 52 32  2c 23 38 30 0d 0a 28 0a  |.;MOV R2,#80..(.|
00001070  2e 6c 6f 6f 70 31 0d 0a  32 14 4c 44 52 42 20 52  |.loop1..2.LDRB R|
00001080  30 2c 5b 6d 65 6d 2c 52  37 5d 0d 0a 3c 13 4c 44  |0,[mem,R7]..<.LD|
00001090  52 42 20 52 35 2c 5b 52  38 2c 52 30 5d 0d 0a 46  |RB R5,[R8,R0]..F|
000010a0  13 53 54 52 42 20 52 35  2c 5b 52 39 2c 23 30 5d  |.STRB R5,[R9,#0]|
000010b0  0d 0a 50 11 41 44 44 20  52 37 2c 52 37 2c 23 31  |..P.ADD R7,R7,#1|
000010c0  20 0d 0a 5a 14 4c 44 52  42 20 52 30 2c 5b 6d 65  | ..Z.LDRB R0,[me|
000010d0  6d 2c 52 37 5d 0d 0a 64  13 4c 44 52 42 20 52 35  |m,R7]..d.LDRB R5|
000010e0  2c 5b 52 38 2c 52 30 5d  0d 0a 6e 14 53 54 52 42  |,[R8,R0]..n.STRB|
000010f0  20 52 35 2c 5b 52 39 2c  23 38 30 5d 0d 0a 78 10  | R5,[R9,#80]..x.|
00001100  41 44 44 20 52 37 2c 52  37 2c 23 31 0d 0a 82 14  |ADD R7,R7,#1....|
00001110  4c 44 52 42 20 52 30 2c  5b 6d 65 6d 2c 52 37 5d  |LDRB R0,[mem,R7]|
00001120  0d 0a 8c 13 4c 44 52 42  20 52 35 2c 5b 52 38 2c  |....LDRB R5,[R8,|
00001130  52 30 5d 0d 0a 96 16 53  54 52 42 20 52 35 2c 5b  |R0]....STRB R5,[|
00001140  52 39 2c 23 38 30 2a 32  5d 0d 0a a0 10 41 44 44  |R9,#80*2]....ADD|
00001150  20 52 37 2c 52 37 2c 23  31 0d 0a aa 14 4c 44 52  | R7,R7,#1....LDR|
00001160  42 20 52 30 2c 5b 6d 65  6d 2c 52 37 5d 0d 0a b4  |B R0,[mem,R7]...|
00001170  13 4c 44 52 42 20 52 35  2c 5b 52 38 2c 52 30 5d  |.LDRB R5,[R8,R0]|
00001180  0d 0a be 16 53 54 52 42  20 52 35 2c 5b 52 39 2c  |....STRB R5,[R9,|
00001190  23 38 30 2a 33 5d 0d 0a  c8 11 41 44 44 20 52 37  |#80*3]....ADD R7|
000011a0  2c 52 37 2c 23 31 20 0d  0a d2 14 4c 44 52 42 20  |,R7,#1 ....LDRB |
000011b0  52 30 2c 5b 6d 65 6d 2c  52 37 5d 0d 0a dc 13 4c  |R0,[mem,R7]....L|
000011c0  44 52 42 20 52 35 2c 5b  52 38 2c 52 30 5d 0d 0a  |DRB R5,[R8,R0]..|
000011d0  e6 16 53 54 52 42 20 52  35 2c 5b 52 39 2c 23 38  |..STRB R5,[R9,#8|
000011e0  30 2a 34 5d 0d 0a f0 11  41 44 44 20 52 37 2c 52  |0*4]....ADD R7,R|
000011f0  37 2c 23 31 20 0d 0a fa  14 4c 44 52 42 20 52 30  |7,#1 ....LDRB R0|
00001200  2c 5b 6d 65 6d 2c 52 37  5d 0d 0b 04 13 4c 44 52  |,[mem,R7]....LDR|
00001210  42 20 52 35 2c 5b 52 38  2c 52 30 5d 0d 0b 0e 16  |B R5,[R8,R0]....|
00001220  53 54 52 42 20 52 35 2c  5b 52 39 2c 23 38 30 2a  |STRB R5,[R9,#80*|
00001230  35 5d 0d 0b 18 10 41 44  44 20 52 37 2c 52 37 2c  |5]....ADD R7,R7,|
00001240  23 31 0d 0b 22 14 4c 44  52 42 20 52 30 2c 5b 6d  |#1..".LDRB R0,[m|
00001250  65 6d 2c 52 37 5d 0d 0b  2c 13 4c 44 52 42 20 52  |em,R7]..,.LDRB R|
00001260  35 2c 5b 52 38 2c 52 30  5d 0d 0b 36 16 53 54 52  |5,[R8,R0]..6.STR|
00001270  42 20 52 35 2c 5b 52 39  2c 23 38 30 2a 36 5d 0d  |B R5,[R9,#80*6].|
00001280  0b 40 11 41 44 44 20 52  37 2c 52 37 2c 23 31 20  |.@.ADD R7,R7,#1 |
00001290  0d 0b 4a 14 4c 44 52 42  20 52 30 2c 5b 6d 65 6d  |..J.LDRB R0,[mem|
000012a0  2c 52 37 5d 0d 0b 54 13  4c 44 52 42 20 52 35 2c  |,R7]..T.LDRB R5,|
000012b0  5b 52 38 2c 52 30 5d 0d  0b 5e 16 53 54 52 42 20  |[R8,R0]..^.STRB |
000012c0  52 35 2c 5b 52 39 2c 23  38 30 2a 37 5d 0d 0b 68  |R5,[R9,#80*7]..h|
000012d0  23 41 44 44 20 52 37 2c  52 37 2c 23 31 20 3a 20  |#ADD R7,R7,#1 : |
000012e0  43 4d 50 20 52 37 2c 23  26 38 30 30 30 20 3a 20  |CMP R7,#&8000 : |
000012f0  0d 0b 72 0d ec 51 20 52  37 2c 52 31 32 0d 0b 7c  |..r..Q R7,R12..||
00001300  04 0d 0b 86 10 41 44 44  20 52 39 2c 52 39 2c 23  |.....ADD R9,R9,#|
00001310  31 0d 0b 90 28 53 55 42  53 20 52 32 2c 52 32 2c  |1...(SUBS R2,R2,|
00001320  23 31 20 3b 20 65 6e 64  20 6f 66 20 63 68 61 72  |#1 ; end of char|
00001330  61 63 74 65 72 20 72 6f  77 0d 0b 9a 0d 42 47 54  |acter row....BGT|
00001340  20 6c 6f 6f 70 31 0d 0b  a4 27 4c 44 52 42 20 52  | loop1...'LDRB R|
00001350  32 2c 5b 52 36 2c 23 31  5d 20 3b 20 6e 6f 20 6f  |2,[R6,#1] ; no o|
00001360  66 20 68 6f 72 69 7a 20  63 68 61 72 73 0d 0b ae  |f horiz chars...|
00001370  21 41 44 44 20 52 39 2c  52 39 2c 23 36 34 30 20  |!ADD R9,R9,#640 |
00001380  3a 20 53 55 42 20 52 39  2c 52 39 2c 52 32 0d 0b  |: SUB R9,R9,R2..|
00001390  b8 1e 53 55 42 53 20 52  34 2c 52 34 2c 52 32 2c  |..SUBS R4,R4,R2,|
000013a0  4c 53 4c 23 33 20 3b 20  23 36 34 30 0d 0b c2 0d  |LSL#3 ; #640....|
000013b0  42 48 49 20 6c 6f 6f 70  32 0d 0b cc 04 0d 0b d6  |BHI loop2.......|
000013c0  04 0d 0b e0 1b 4c 44 4d  46 44 20 52 31 33 21 2c  |.....LDMFD R13!,|
000013d0  7b 52 32 2d 52 31 32 2c  70 63 7d 5e 0d 0b ea 0b  |{R2-R12,pc}^....|
000013e0  2e 62 6c 6f 63 6b 31 0d  0b f4 16 45 51 55 44 20  |.block1....EQUD |
000013f0  31 34 39 20 3a 20 45 51  55 44 20 2d 31 0d 0b fe  |149 : EQUD -1...|
00001400  0b 2e 62 6c 6f 63 6b 32  0d 0c 08 13 45 51 55 44  |..block2....EQUD|
00001410  20 30 20 3a 20 45 51 55  44 20 30 0d 0c 12 04 0d  | 0 : EQUD 0.....|
00001420  0c 1c 0d 2e 72 65 76 74  61 62 6c 65 0d 0c 26 05  |....revtable..&.|
00001430  5d 0d 0c 30 0b 4f 25 2b  3d 32 35 36 0d 0c 3a 0b  |]..0.O%+=256..:.|
00001440  50 25 2b 3d 32 35 36 0d  0c 44 04 0d 0c 4e 09 5b  |P%+=256..D...N.[|
00001450  4f 50 54 70 0d 0c 58 12  2e 75 70 64 61 74 65 73  |OPTp..X..updates|
00001460  63 72 65 65 6e 35 0d 0c  62 11 4c 44 52 20 52 31  |creen5..b.LDR R1|
00001470  34 2c 65 6c 69 74 65 0d  0c 6c 0e 43 4d 50 20 52  |4,elite..l.CMP R|
00001480  31 34 2c 23 30 0d 0c 76  24 41 44 52 45 51 20 52  |14,#0..v$ADREQ R|
00001490  38 2c 6d 6f 64 65 34 74  61 62 2b 35 31 32 20 3b  |8,mode4tab+512 ;|
000014a0  20 6d 6f 64 65 35 74 61  62 0d 0c 80 17 42 45 51  | mode5tab....BEQ|
000014b0  20 75 70 64 61 74 65 73  63 72 65 65 6e 34 5f 32  | updatescreen4_2|
000014c0  0d 0c 8a 12 2e 75 70 64  61 74 65 73 63 72 65 65  |.....updatescree|
000014d0  6e 34 0d 0c 94 13 41 44  52 20 52 38 2c 6d 6f 64  |n4....ADR R8,mod|
000014e0  65 34 74 61 62 0d 0c 9e  14 2e 75 70 64 61 74 65  |e4tab.....update|
000014f0  73 63 72 65 65 6e 34 5f  32 0d 0c a8 04 0d 0c b2  |screen4_2.......|
00001500  14 4c 44 52 42 20 52 30  2c 6c 61 73 74 6d 6f 64  |.LDRB R0,lastmod|
00001510  65 0d 0c bc 0d 43 4d 50  20 52 30 2c 23 34 0d 0c  |e....CMP R0,#4..|
00001520  c6 12 42 45 51 20 73 6b  69 70 5f 6d 6f 64 65 34  |..BEQ skip_mode4|
00001530  0d 0c d0 0e 53 57 49 4e  45 20 26 31 31 36 0d 0c  |....SWINE &116..|
00001540  da 14 53 57 49 4e 45 20  26 31 30 31 20 3b 20 eb  |..SWINE &101 ; .|
00001550  20 31 0d 0c e4 24 41 44  52 20 52 30 2c 70 6f 69  | 1...$ADR R0,poi|
00001560  6e 74 65 72 5f 6f 6e 20  3a 20 53 57 49 20 22 4f  |nter_on : SWI "O|
00001570  53 5f 43 4c 49 22 0d 0c  ee 2d 4d 4f 56 20 52 30  |S_CLI"...-MOV R0|
00001580  2c 23 31 30 36 20 3a 20  4d 4f 56 20 52 31 2c 23  |,#106 : MOV R1,#|
00001590  26 38 32 20 3a 20 53 57  49 20 22 4f 53 5f 42 79  |&82 : SWI "OS_By|
000015a0  74 65 22 0d 0c f8 1a 53  57 49 20 22 4f 53 5f 52  |te"....SWI "OS_R|
000015b0  65 6d 6f 76 65 43 75 72  73 6f 72 73 22 0d 0d 02  |emoveCursors"...|
000015c0  20 4d 4f 56 20 52 30 2c  23 34 20 3a 20 53 54 52  | MOV R0,#4 : STR|
000015d0  42 20 52 30 2c 6c 61 73  74 6d 6f 64 65 0d 0d 0c  |B R0,lastmode...|
000015e0  0f 2e 73 6b 69 70 5f 6d  6f 64 65 34 0d 0d 16 04  |..skip_mode4....|
000015f0  0d 0d 20 19 3b 4c 44 52  20 52 36 2c 63 72 74 5f  |.. .;LDR R6,crt_|
00001600  72 65 67 73 5f 61 64 64  72 0d 0d 2a 19 53 55 42  |regs_addr..*.SUB|
00001610  20 52 36 2c 6d 65 6d 2c  23 2d 63 72 74 5f 72 65  | R6,mem,#-crt_re|
00001620  67 73 0d 0d 34 14 4c 44  52 42 20 52 37 2c 5b 52  |gs..4.LDRB R7,[R|
00001630  36 2c 23 31 33 5d 0d 0d  3e 14 4c 44 52 42 20 52  |6,#13]..>.LDRB R|
00001640  32 2c 5b 52 36 2c 23 31  32 5d 0d 0d 48 13 80 20  |2,[R6,#12]..H.. |
00001650  52 32 2c 52 32 2c 23 25  31 31 31 31 31 0d 0d 52  |R2,R2,#%11111..R|
00001660  16 41 44 44 20 52 37 2c  52 37 2c 52 32 2c 4c 53  |.ADD R7,R7,R2,LS|
00001670  4c 23 38 0d 0d 5c 13 4d  4f 56 20 52 37 2c 52 37  |L#8..\.MOV R7,R7|
00001680  2c 4c 53 4c 23 33 0d 0d  66 04 0d 0d 70 11 4c 44  |,LSL#3..f...p.LD|
00001690  52 20 52 31 34 2c 65 6c  69 74 65 0d 0d 7a 04 0d  |R R14,elite..z..|
000016a0  0d 84 14 3b 41 44 52 20  52 38 2c 6d 6f 64 65 34  |...;ADR R8,mode4|
000016b0  74 61 62 0d 0d 8e 04 0d  0d 98 27 4c 44 52 42 20  |tab.......'LDRB |
000016c0  52 32 2c 5b 52 36 2c 23  31 5d 20 3b 20 6e 6f 20  |R2,[R6,#1] ; no |
000016d0  6f 66 20 68 6f 72 69 7a  20 63 68 61 72 73 0d 0d  |of horiz chars..|
000016e0  a2 14 4c 44 52 42 20 52  31 31 2c 5b 52 36 2c 23  |..LDRB R11,[R6,#|
000016f0  36 5d 0d 0d ac 11 4d 55  4c 20 52 34 2c 52 32 2c  |6]....MUL R4,R2,|
00001700  52 31 31 0d 0d b6 13 4d  4f 56 20 52 34 2c 52 34  |R11....MOV R4,R4|
00001710  2c 4c 53 4c 23 33 0d 0d  c0 14 3b 4d 4f 56 20 52  |,LSL#3....;MOV R|
00001720  34 2c 52 32 2c 4c 53 4c  23 38 0d 0d ca 0a 2e 6c  |4,R2,LSL#8.....l|
00001730  6f 6f 70 32 0d 0d d4 0f  3b 4d 4f 56 20 52 32 2c  |oop2....;MOV R2,|
00001740  23 34 30 0d 0d de 0a 2e  6c 6f 6f 70 31 0d 0d e8  |#40.....loop1...|
00001750  11 41 44 44 20 52 31 31  2c 52 39 2c 23 31 0d 0d  |.ADD R11,R9,#1..|
00001760  f2 14 4c 44 52 42 20 52  30 2c 5b 6d 65 6d 2c 52  |..LDRB R0,[mem,R|
00001770  37 5d 0d 0d fc 18 4c 44  52 20 52 35 2c 5b 52 38  |7]....LDR R5,[R8|
00001780  2c 52 30 2c 4c 53 4c 23  31 5d 0d 0e 06 13 53 54  |,R0,LSL#1]....ST|
00001790  52 42 20 52 35 2c 5b 52  39 2c 23 30 5d 0d 0e 10  |RB R5,[R9,#0]...|
000017a0  13 4d 4f 56 20 52 35 2c  52 35 2c 4c 53 52 23 38  |.MOV R5,R5,LSR#8|
000017b0  0d 0e 1a 14 53 54 52 42  20 52 35 2c 5b 52 31 31  |....STRB R5,[R11|
000017c0  2c 23 30 5d 0d 0e 24 11  41 44 44 20 52 37 2c 52  |,#0]..$.ADD R7,R|
000017d0  37 2c 23 31 20 0d 0e 2e  14 4c 44 52 42 20 52 30  |7,#1 ....LDRB R0|
000017e0  2c 5b 6d 65 6d 2c 52 37  5d 0d 0e 38 18 4c 44 52  |,[mem,R7]..8.LDR|
000017f0  20 52 35 2c 5b 52 38 2c  52 30 2c 4c 53 4c 23 31  | R5,[R8,R0,LSL#1|
00001800  5d 0d 0e 42 14 53 54 52  42 20 52 35 2c 5b 52 39  |]..B.STRB R5,[R9|
00001810  2c 23 38 30 5d 0d 0e 4c  13 4d 4f 56 20 52 35 2c  |,#80]..L.MOV R5,|
00001820  52 35 2c 4c 53 52 23 38  0d 0e 56 15 53 54 52 42  |R5,LSR#8..V.STRB|
00001830  20 52 35 2c 5b 52 31 31  2c 23 38 30 5d 0d 0e 60  | R5,[R11,#80]..`|
00001840  10 41 44 44 20 52 37 2c  52 37 2c 23 31 0d 0e 6a  |.ADD R7,R7,#1..j|
00001850  14 4c 44 52 42 20 52 30  2c 5b 6d 65 6d 2c 52 37  |.LDRB R0,[mem,R7|
00001860  5d 0d 0e 74 18 4c 44 52  20 52 35 2c 5b 52 38 2c  |]..t.LDR R5,[R8,|
00001870  52 30 2c 4c 53 4c 23 31  5d 0d 0e 7e 16 53 54 52  |R0,LSL#1]..~.STR|
00001880  42 20 52 35 2c 5b 52 39  2c 23 38 30 2a 32 5d 0d  |B R5,[R9,#80*2].|
00001890  0e 88 13 4d 4f 56 20 52  35 2c 52 35 2c 4c 53 52  |...MOV R5,R5,LSR|
000018a0  23 38 0d 0e 92 17 53 54  52 42 20 52 35 2c 5b 52  |#8....STRB R5,[R|
000018b0  31 31 2c 23 38 30 2a 32  5d 0d 0e 9c 10 41 44 44  |11,#80*2]....ADD|
000018c0  20 52 37 2c 52 37 2c 23  31 0d 0e a6 14 4c 44 52  | R7,R7,#1....LDR|
000018d0  42 20 52 30 2c 5b 6d 65  6d 2c 52 37 5d 0d 0e b0  |B R0,[mem,R7]...|
000018e0  18 4c 44 52 20 52 35 2c  5b 52 38 2c 52 30 2c 4c  |.LDR R5,[R8,R0,L|
000018f0  53 4c 23 31 5d 0d 0e ba  16 53 54 52 42 20 52 35  |SL#1]....STRB R5|
00001900  2c 5b 52 39 2c 23 38 30  2a 33 5d 0d 0e c4 13 4d  |,[R9,#80*3]....M|
00001910  4f 56 20 52 35 2c 52 35  2c 4c 53 52 23 38 0d 0e  |OV R5,R5,LSR#8..|
00001920  ce 17 53 54 52 42 20 52  35 2c 5b 52 31 31 2c 23  |..STRB R5,[R11,#|
00001930  38 30 2a 33 5d 0d 0e d8  11 41 44 44 20 52 37 2c  |80*3]....ADD R7,|
00001940  52 37 2c 23 31 20 0d 0e  e2 04 0d 0e ec 13 4c 44  |R7,#1 ........LD|
00001950  52 42 20 52 30 2c 5b 52  36 2c 23 33 5d 0d 0e f6  |RB R0,[R6,#3]...|
00001960  12 54 53 54 20 52 30 2c  23 31 20 3c 3c 20 34 0d  |.TST R0,#1 << 4.|
00001970  0f 00 04 0d 0f 0a 16 4c  44 52 45 51 42 20 52 30  |.......LDREQB R0|
00001980  2c 5b 6d 65 6d 2c 52 37  5d 0d 0f 14 1a 4c 44 52  |,[mem,R7]....LDR|
00001990  45 51 20 52 35 2c 5b 52  38 2c 52 30 2c 4c 53 4c  |EQ R5,[R8,R0,LSL|
000019a0  23 31 5d 0d 0f 1e 18 53  54 52 45 51 42 20 52 35  |#1]....STREQB R5|
000019b0  2c 5b 52 39 2c 23 38 30  2a 34 5d 0d 0f 28 12 ec  |,[R9,#80*4]..(..|
000019c0  51 20 52 35 2c 52 35 2c  4c 53 52 23 38 0d 0f 32  |Q R5,R5,LSR#8..2|
000019d0  19 53 54 52 45 51 42 20  52 35 2c 5b 52 31 31 2c  |.STREQB R5,[R11,|
000019e0  23 38 30 2a 34 5d 0d 0f  3c 11 41 44 44 20 52 37  |#80*4]..<.ADD R7|
000019f0  2c 52 37 2c 23 31 20 0d  0f 46 16 4c 44 52 45 51  |,R7,#1 ..F.LDREQ|
00001a00  42 20 52 30 2c 5b 6d 65  6d 2c 52 37 5d 0d 0f 50  |B R0,[mem,R7]..P|
00001a10  1a 4c 44 52 45 51 20 52  35 2c 5b 52 38 2c 52 30  |.LDREQ R5,[R8,R0|
00001a20  2c 4c 53 4c 23 31 5d 0d  0f 5a 18 53 54 52 45 51  |,LSL#1]..Z.STREQ|
00001a30  42 20 52 35 2c 5b 52 39  2c 23 38 30 2a 35 5d 0d  |B R5,[R9,#80*5].|
00001a40  0f 64 12 ec 51 20 52 35  2c 52 35 2c 4c 53 52 23  |.d..Q R5,R5,LSR#|
00001a50  38 0d 0f 6e 19 53 54 52  45 51 42 20 52 35 2c 5b  |8..n.STREQB R5,[|
00001a60  52 31 31 2c 23 38 30 2a  35 5d 0d 0f 78 10 41 44  |R11,#80*5]..x.AD|
00001a70  44 20 52 37 2c 52 37 2c  23 31 0d 0f 82 16 4c 44  |D R7,R7,#1....LD|
00001a80  52 45 51 42 20 52 30 2c  5b 6d 65 6d 2c 52 37 5d  |REQB R0,[mem,R7]|
00001a90  0d 0f 8c 1a 4c 44 52 45  51 20 52 35 2c 5b 52 38  |....LDREQ R5,[R8|
00001aa0  2c 52 30 2c 4c 53 4c 23  31 5d 0d 0f 96 18 53 54  |,R0,LSL#1]....ST|
00001ab0  52 45 51 42 20 52 35 2c  5b 52 39 2c 23 38 30 2a  |REQB R5,[R9,#80*|
00001ac0  36 5d 0d 0f a0 12 ec 51  20 52 35 2c 52 35 2c 4c  |6].....Q R5,R5,L|
00001ad0  53 52 23 38 0d 0f aa 19  53 54 52 45 51 42 20 52  |SR#8....STREQB R|
00001ae0  35 2c 5b 52 31 31 2c 23  38 30 2a 36 5d 0d 0f b4  |5,[R11,#80*6]...|
00001af0  11 41 44 44 20 52 37 2c  52 37 2c 23 31 20 0d 0f  |.ADD R7,R7,#1 ..|
00001b00  be 16 4c 44 52 45 51 42  20 52 30 2c 5b 6d 65 6d  |..LDREQB R0,[mem|
00001b10  2c 52 37 5d 0d 0f c8 1a  4c 44 52 45 51 20 52 35  |,R7]....LDREQ R5|
00001b20  2c 5b 52 38 2c 52 30 2c  4c 53 4c 23 31 5d 0d 0f  |,[R8,R0,LSL#1]..|
00001b30  d2 18 53 54 52 45 51 42  20 52 35 2c 5b 52 39 2c  |..STREQB R5,[R9,|
00001b40  23 38 30 2a 37 5d 0d 0f  dc 12 ec 51 20 52 35 2c  |#80*7].....Q R5,|
00001b50  52 35 2c 4c 53 52 23 38  0d 0f e6 19 53 54 52 45  |R5,LSR#8....STRE|
00001b60  51 42 20 52 35 2c 5b 52  31 31 2c 23 38 30 2a 37  |QB R5,[R11,#80*7|
00001b70  5d 0d 0f f0 2c 41 44 44  20 52 37 2c 52 37 2c 23  |]...,ADD R7,R7,#|
00001b80  31 20 3a 20 43 4d 50 20  52 37 2c 23 26 38 30 30  |1 : CMP R7,#&800|
00001b90  30 20 3a 20 ec 51 20 52  37 2c 52 31 32 0d 0f fa  |0 : .Q R7,R12...|
00001ba0  04 0d 10 04 04 0d 10 0e  10 41 44 44 20 52 39 2c  |.........ADD R9,|
00001bb0  52 39 2c 23 32 0d 10 18  28 53 55 42 53 20 52 32  |R9,#2...(SUBS R2|
00001bc0  2c 52 32 2c 23 31 20 3b  20 65 6e 64 20 6f 66 20  |,R2,#1 ; end of |
00001bd0  63 68 61 72 61 63 74 65  72 20 72 6f 77 0d 10 22  |character row.."|
00001be0  0d 42 47 54 20 6c 6f 6f  70 31 0d 10 2c 37 4c 44  |.BGT loop1..,7LD|
00001bf0  52 42 20 52 32 2c 5b 52  36 2c 23 33 5d 20 3a 20  |RB R2,[R6,#3] : |
00001c00  4d 4f 56 20 52 32 2c 52  32 2c 4c 53 52 23 34 20  |MOV R2,R2,LSR#4 |
00001c10  3b 20 76 65 72 74 69 63  61 6c 20 74 69 6d 69 6e  |; vertical timin|
00001c20  67 0d 10 36 22 4d 4f 56  20 52 35 2c 23 31 36 30  |g..6"MOV R5,#160|
00001c30  20 3a 20 4d 4f 56 20 52  35 2c 52 35 2c 4c 53 4c  | : MOV R5,R5,LSL|
00001c40  20 52 32 0d 10 40 3d 41  44 44 20 52 39 2c 52 39  | R2..@=ADD R9,R9|
00001c50  2c 52 35 20 20 20 20 20  20 20 20 20 20 20 20 20  |,R5             |
00001c60  20 20 20 20 20 20 20 20  20 3b 20 74 6f 20 6d 61  |         ; to ma|
00001c70  6b 65 20 66 6f 72 74 72  65 73 73 20 77 6f 72 6b  |ke fortress work|
00001c80  0d 10 4a 04 0d 10 54 27  4c 44 52 42 20 52 32 2c  |..J...T'LDRB R2,|
00001c90  5b 52 36 2c 23 31 5d 20  3b 20 6e 6f 20 6f 66 20  |[R6,#1] ; no of |
00001ca0  68 6f 72 69 7a 20 63 68  61 72 73 0d 10 5e 16 53  |horiz chars..^.S|
00001cb0  55 42 20 52 39 2c 52 39  2c 52 32 2c 4c 53 4c 23  |UB R9,R9,R2,LSL#|
00001cc0  31 0d 10 68 37 43 4d 50  20 52 31 34 2c 23 31 20  |1..h7CMP R14,#1 |
00001cd0  3a 20 43 4d 50 45 51 20  52 34 2c 23 26 38 30 30  |: CMPEQ R4,#&800|
00001ce0  20 3a 20 41 44 52 45 51  20 52 38 2c 6d 6f 64 65  | : ADREQ R8,mode|
00001cf0  34 74 61 62 2b 35 31 32  0d 10 72 34 43 4d 50 20  |4tab+512..r4CMP |
00001d00  52 31 34 2c 23 31 20 3a  20 43 4d 50 45 51 20 52  |R14,#1 : CMPEQ R|
00001d10  34 2c 23 26 31 30 30 20  3a 20 42 45 51 20 73 6b  |4,#&100 : BEQ sk|
00001d20  69 70 5f 6c 61 73 74 5f  6c 69 6e 65 0d 10 7c 1e  |ip_last_line..|.|
00001d30  53 55 42 53 20 52 34 2c  52 34 2c 52 32 2c 4c 53  |SUBS R4,R4,R2,LS|
00001d40  4c 23 33 20 3b 20 23 33  32 30 0d 10 86 0d 42 48  |L#3 ; #320....BH|
00001d50  49 20 6c 6f 6f 70 32 0d  10 90 13 2e 73 6b 69 70  |I loop2.....skip|
00001d60  5f 6c 61 73 74 5f 6c 69  6e 65 0d 10 9a 04 0d 10  |_last_line......|
00001d70  a4 1b 4c 44 4d 46 44 20  52 31 33 21 2c 7b 52 32  |..LDMFD R13!,{R2|
00001d80  2d 52 31 32 2c 70 63 7d  5e 0d 10 ae 04 0d 10 b8  |-R12,pc}^.......|
00001d90  0c 2e 65 6c 69 74 65 6f  6e 0d 10 c2 0d 4d 4f 56  |..eliteon....MOV|
00001da0  20 52 30 2c 23 31 0d 10  cc 11 53 54 52 42 20 52  | R0,#1....STRB R|
00001db0  30 2c 65 6c 69 74 65 0d  10 d6 0f 4d 4f 56 53 20  |0,elite....MOVS |
00001dc0  50 43 2c 52 31 34 0d 10  e0 04 0d 10 ea 0d 2e 65  |PC,R14.........e|
00001dd0  6c 69 74 65 6f 66 66 0d  10 f4 0d 4d 4f 56 20 52  |liteoff....MOV R|
00001de0  30 2c 23 30 0d 10 fe 11  53 54 52 42 20 52 30 2c  |0,#0....STRB R0,|
00001df0  65 6c 69 74 65 0d 11 08  0f 4d 4f 56 53 20 50 43  |elite....MOVS PC|
00001e00  2c 52 31 34 0d 11 12 04  0d 11 1c 04 0d 11 26 0a  |,R14..........&.|
00001e10  2e 65 6c 69 74 65 0d 11  30 0a 45 51 55 44 20 30  |.elite..0.EQUD 0|
00001e20  0d 11 3a 04 0d 11 44 0d  2e 6d 6f 64 65 34 74 61  |..:...D..mode4ta|
00001e30  62 0d 11 4e 05 5d 0d 11  58 0c 4f 25 2b 3d 31 30  |b..N.]..X.O%+=10|
00001e40  32 34 0d 11 62 0c 50 25  2b 3d 31 30 32 34 0d 11  |24..b.P%+=1024..|
00001e50  6c 09 5b 4f 50 54 70 0d  11 76 04 0d 11 80 0d 2e  |l.[OPTp..v......|
00001e60  6c 61 73 74 6d 6f 64 65  0d 11 8a 0a 45 51 55 44  |lastmode....EQUD|
00001e70  20 30 0d 11 94 04 0d 11  9e 0b 2e 72 65 69 6e 69  | 0.........reini|
00001e80  74 0d 11 a8 0f 4d 4f 56  20 52 30 2c 23 32 35 35  |t....MOV R0,#255|
00001e90  0d 11 b2 14 53 54 52 42  20 52 30 2c 6c 61 73 74  |....STRB R0,last|
00001ea0  6d 6f 64 65 0d 11 bc 0e  4d 4f 56 20 50 43 2c 52  |mode....MOV PC,R|
00001eb0  31 34 0d 11 c6 04 0d 11  d0 0f 2e 70 6f 69 6e 74  |14.........point|
00001ec0  65 72 5f 6f 6e 0d 11 da  17 45 51 55 53 20 22 50  |er_on....EQUS "P|
00001ed0  6f 69 6e 74 65 72 20 31  22 2b bd 30 0d 11 e4 09  |ointer 1"+.0....|
00001ee0  41 4c 49 47 4e 0d 11 ee  04 0d 11 f8 12 2e 75 70  |ALIGN.........up|
00001ef0  64 61 74 65 73 63 72 65  65 6e 32 0d 12 02 12 54  |datescreen2....T|
00001f00  53 54 20 52 30 2c 23 25  31 30 30 30 30 0d 12 0c  |ST R0,#%10000...|
00001f10  15 42 45 51 20 75 70 64  61 74 65 73 63 72 65 65  |.BEQ updatescree|
00001f20  6e 35 0d 12 16 14 4c 44  52 42 20 52 30 2c 6c 61  |n5....LDRB R0,la|
00001f30  73 74 6d 6f 64 65 0d 12  20 0d 43 4d 50 20 52 30  |stmode.. .CMP R0|
00001f40  2c 23 32 0d 12 2a 12 42  45 51 20 73 6b 69 70 5f  |,#2..*.BEQ skip_|
00001f50  6d 6f 64 65 32 0d 12 34  0e 53 57 49 4e 45 20 26  |mode2..4.SWINE &|
00001f60  31 31 36 0d 12 3e 14 53  57 49 4e 45 20 26 31 30  |116..>.SWINE &10|
00001f70  39 20 3b 20 eb 20 39 0d  12 48 24 41 44 52 20 52  |9 ; . 9..H$ADR R|
00001f80  30 2c 70 6f 69 6e 74 65  72 5f 6f 6e 20 3a 20 53  |0,pointer_on : S|
00001f90  57 49 20 22 4f 53 5f 43  4c 49 22 0d 12 52 2d 4d  |WI "OS_CLI"..R-M|
00001fa0  4f 56 20 52 30 2c 23 31  30 36 20 3a 20 4d 4f 56  |OV R0,#106 : MOV|
00001fb0  20 52 31 2c 23 26 38 32  20 3a 20 53 57 49 20 22  | R1,#&82 : SWI "|
00001fc0  4f 53 5f 42 79 74 65 22  0d 12 5c 1a 53 57 49 20  |OS_Byte"..\.SWI |
00001fd0  22 4f 53 5f 52 65 6d 6f  76 65 43 75 72 73 6f 72  |"OS_RemoveCursor|
00001fe0  73 22 0d 12 66 20 4d 4f  56 20 52 30 2c 23 32 20  |s"..f MOV R0,#2 |
00001ff0  3a 20 53 54 52 42 20 52  30 2c 6c 61 73 74 6d 6f  |: STRB R0,lastmo|
00002000  64 65 0d 12 70 0f 2e 73  6b 69 70 5f 6d 6f 64 65  |de..p..skip_mode|
00002010  32 0d 12 7a 04 0d 12 84  19 3b 4c 44 52 20 52 36  |2..z.....;LDR R6|
00002020  2c 63 72 74 5f 72 65 67  73 5f 61 64 64 72 0d 12  |,crt_regs_addr..|
00002030  8e 19 53 55 42 20 52 36  2c 6d 65 6d 2c 23 2d 63  |..SUB R6,mem,#-c|
00002040  72 74 5f 72 65 67 73 0d  12 98 14 4c 44 52 42 20  |rt_regs....LDRB |
00002050  52 37 2c 5b 52 36 2c 23  31 33 5d 0d 12 a2 14 4c  |R7,[R6,#13]....L|
00002060  44 52 42 20 52 32 2c 5b  52 36 2c 23 31 32 5d 0d  |DRB R2,[R6,#12].|
00002070  12 ac 13 80 20 52 32 2c  52 32 2c 23 25 31 31 31  |.... R2,R2,#%111|
00002080  31 31 0d 12 b6 16 41 44  44 20 52 37 2c 52 37 2c  |11....ADD R7,R7,|
00002090  52 32 2c 4c 53 4c 23 38  0d 12 c0 13 4d 4f 56 20  |R2,LSL#8....MOV |
000020a0  52 37 2c 52 37 2c 4c 53  4c 23 33 0d 12 ca 04 0d  |R7,R7,LSL#3.....|
000020b0  12 d4 13 41 44 52 20 52  38 2c 6d 6f 64 65 32 74  |...ADR R8,mode2t|
000020c0  61 62 0d 12 de 27 4c 44  52 42 20 52 32 2c 5b 52  |ab...'LDRB R2,[R|
000020d0  36 2c 23 31 5d 20 3b 20  6e 6f 20 6f 66 20 68 6f  |6,#1] ; no of ho|
000020e0  72 69 7a 20 63 68 61 72  73 0d 12 e8 2b 4c 44 52  |riz chars...+LDR|
000020f0  42 20 52 31 31 2c 5b 52  36 2c 23 36 5d 20 3b 20  |B R11,[R6,#6] ; |
00002100  6e 6f 20 6f 66 20 76 65  72 74 69 63 61 6c 20 63  |no of vertical c|
00002110  68 61 72 73 0d 12 f2 11  4d 55 4c 20 52 34 2c 52  |hars....MUL R4,R|
00002120  32 2c 52 31 31 0d 12 fc  13 4d 4f 56 20 52 34 2c  |2,R11....MOV R4,|
00002130  52 34 2c 4c 53 4c 23 33  0d 13 06 14 3b 4d 4f 56  |R4,LSL#3....;MOV|
00002140  20 52 34 2c 52 32 2c 4c  53 4c 23 38 0d 13 10 0a  | R4,R2,LSL#8....|
00002150  2e 6c 6f 6f 70 32 0d 13  1a 0f 3b 4d 4f 56 20 52  |.loop2....;MOV R|
00002160  32 2c 23 38 30 0d 13 24  0a 2e 6c 6f 6f 70 31 0d  |2,#80..$..loop1.|
00002170  13 2e 11 41 44 44 20 52  31 31 2c 52 39 2c 23 31  |...ADD R11,R9,#1|
00002180  0d 13 38 04 0d 13 42 14  4c 44 52 42 20 52 30 2c  |..8...B.LDRB R0,|
00002190  5b 6d 65 6d 2c 52 37 5d  0d 13 4c 19 4c 44 52 20  |[mem,R7]..L.LDR |
000021a0  20 52 35 2c 5b 52 38 2c  52 30 2c 4c 53 4c 23 31  | R5,[R8,R0,LSL#1|
000021b0  5d 0d 13 56 13 53 54 52  42 20 52 35 2c 5b 52 39  |]..V.STRB R5,[R9|
000021c0  2c 23 30 5d 0d 13 60 13  4d 4f 56 20 52 35 2c 52  |,#0]..`.MOV R5,R|
000021d0  35 2c 4c 53 52 23 38 0d  13 6a 13 53 54 52 42 20  |5,LSR#8..j.STRB |
000021e0  52 35 2c 5b 52 39 2c 23  31 5d 0d 13 74 11 41 44  |R5,[R9,#1]..t.AD|
000021f0  44 20 52 37 2c 52 37 2c  23 31 20 0d 13 7e 04 0d  |D R7,R7,#1 ..~..|
00002200  13 88 14 4c 44 52 42 20  52 30 2c 5b 6d 65 6d 2c  |...LDRB R0,[mem,|
00002210  52 37 5d 0d 13 92 19 4c  44 52 20 20 52 35 2c 5b  |R7]....LDR  R5,[|
00002220  52 38 2c 52 30 2c 4c 53  4c 23 31 5d 0d 13 9c 31  |R8,R0,LSL#1]...1|
00002230  53 54 52 42 20 52 35 2c  5b 52 39 2c 23 31 36 30  |STRB R5,[R9,#160|
00002240  5d 20 3b 20 31 36 30 3d  6c 69 6e 65 20 6c 65 6e  |] ; 160=line len|
00002250  67 74 68 20 69 6e 20 6d  6f 64 65 20 39 0d 13 a6  |gth in mode 9...|
00002260  13 4d 4f 56 20 52 35 2c  52 35 2c 4c 53 52 23 38  |.MOV R5,R5,LSR#8|
00002270  0d 13 b0 21 53 54 52 42  20 52 35 2c 5b 52 31 31  |...!STRB R5,[R11|
00002280  2c 23 31 36 30 5d 20 3b  20 52 31 31 3d 52 39 2b  |,#160] ; R11=R9+|
00002290  31 0d 13 ba 10 41 44 44  20 52 37 2c 52 37 2c 23  |1....ADD R7,R7,#|
000022a0  31 0d 13 c4 04 0d 13 ce  14 4c 44 52 42 20 52 30  |1........LDRB R0|
000022b0  2c 5b 6d 65 6d 2c 52 37  5d 0d 13 d8 19 4c 44 52  |,[mem,R7]....LDR|
000022c0  20 20 52 35 2c 5b 52 38  2c 52 30 2c 4c 53 4c 23  |  R5,[R8,R0,LSL#|
000022d0  31 5d 0d 13 e2 17 53 54  52 42 20 52 35 2c 5b 52  |1]....STRB R5,[R|
000022e0  39 2c 23 31 36 30 2a 32  5d 0d 13 ec 13 4d 4f 56  |9,#160*2]....MOV|
000022f0  20 52 35 2c 52 35 2c 4c  53 52 23 38 0d 13 f6 18  | R5,R5,LSR#8....|
00002300  53 54 52 42 20 52 35 2c  5b 52 31 31 2c 23 31 36  |STRB R5,[R11,#16|
00002310  30 2a 32 5d 0d 14 00 10  41 44 44 20 52 37 2c 52  |0*2]....ADD R7,R|
00002320  37 2c 23 31 0d 14 0a 14  4c 44 52 42 20 52 30 2c  |7,#1....LDRB R0,|
00002330  5b 6d 65 6d 2c 52 37 5d  0d 14 14 19 4c 44 52 20  |[mem,R7]....LDR |
00002340  20 52 35 2c 5b 52 38 2c  52 30 2c 4c 53 4c 23 31  | R5,[R8,R0,LSL#1|
00002350  5d 0d 14 1e 17 53 54 52  42 20 52 35 2c 5b 52 39  |]....STRB R5,[R9|
00002360  2c 23 31 36 30 2a 33 5d  0d 14 28 13 4d 4f 56 20  |,#160*3]..(.MOV |
00002370  52 35 2c 52 35 2c 4c 53  52 23 38 0d 14 32 18 53  |R5,R5,LSR#8..2.S|
00002380  54 52 42 20 52 35 2c 5b  52 31 31 2c 23 31 36 30  |TRB R5,[R11,#160|
00002390  2a 33 5d 0d 14 3c 10 41  44 44 20 52 37 2c 52 37  |*3]..<.ADD R7,R7|
000023a0  2c 23 31 0d 14 46 14 4c  44 52 42 20 52 30 2c 5b  |,#1..F.LDRB R0,[|
000023b0  6d 65 6d 2c 52 37 5d 0d  14 50 19 4c 44 52 20 20  |mem,R7]..P.LDR  |
000023c0  52 35 2c 5b 52 38 2c 52  30 2c 4c 53 4c 23 31 5d  |R5,[R8,R0,LSL#1]|
000023d0  0d 14 5a 17 53 54 52 42  20 52 35 2c 5b 52 39 2c  |..Z.STRB R5,[R9,|
000023e0  23 31 36 30 2a 34 5d 0d  14 64 13 4d 4f 56 20 52  |#160*4]..d.MOV R|
000023f0  35 2c 52 35 2c 4c 53 52  23 38 0d 14 6e 18 53 54  |5,R5,LSR#8..n.ST|
00002400  52 42 20 52 35 2c 5b 52  31 31 2c 23 31 36 30 2a  |RB R5,[R11,#160*|
00002410  34 5d 0d 14 78 10 41 44  44 20 52 37 2c 52 37 2c  |4]..x.ADD R7,R7,|
00002420  23 31 0d 14 82 14 4c 44  52 42 20 52 30 2c 5b 6d  |#1....LDRB R0,[m|
00002430  65 6d 2c 52 37 5d 0d 14  8c 19 4c 44 52 20 20 52  |em,R7]....LDR  R|
00002440  35 2c 5b 52 38 2c 52 30  2c 4c 53 4c 23 31 5d 0d  |5,[R8,R0,LSL#1].|
00002450  14 96 17 53 54 52 42 20  52 35 2c 5b 52 39 2c 23  |...STRB R5,[R9,#|
00002460  31 36 30 2a 35 5d 0d 14  a0 13 4d 4f 56 20 52 35  |160*5]....MOV R5|
00002470  2c 52 35 2c 4c 53 52 23  38 0d 14 aa 18 53 54 52  |,R5,LSR#8....STR|
00002480  42 20 52 35 2c 5b 52 31  31 2c 23 31 36 30 2a 35  |B R5,[R11,#160*5|
00002490  5d 0d 14 b4 10 41 44 44  20 52 37 2c 52 37 2c 23  |]....ADD R7,R7,#|
000024a0  31 0d 14 be 14 4c 44 52  42 20 52 30 2c 5b 6d 65  |1....LDRB R0,[me|
000024b0  6d 2c 52 37 5d 0d 14 c8  18 4c 44 52 20 52 35 2c  |m,R7]....LDR R5,|
000024c0  5b 52 38 2c 52 30 2c 4c  53 4c 23 31 5d 0d 14 d2  |[R8,R0,LSL#1]...|
000024d0  17 53 54 52 42 20 52 35  2c 5b 52 39 2c 23 31 36  |.STRB R5,[R9,#16|
000024e0  30 2a 36 5d 0d 14 dc 13  4d 4f 56 20 52 35 2c 52  |0*6]....MOV R5,R|
000024f0  35 2c 4c 53 52 23 38 0d  14 e6 18 53 54 52 42 20  |5,LSR#8....STRB |
00002500  52 35 2c 5b 52 31 31 2c  23 31 36 30 2a 36 5d 0d  |R5,[R11,#160*6].|
00002510  14 f0 10 41 44 44 20 52  37 2c 52 37 2c 23 31 0d  |...ADD R7,R7,#1.|
00002520  14 fa 14 4c 44 52 42 20  52 30 2c 5b 6d 65 6d 2c  |...LDRB R0,[mem,|
00002530  52 37 5d 0d 15 04 19 4c  44 52 20 20 52 35 2c 5b  |R7]....LDR  R5,[|
00002540  52 38 2c 52 30 2c 4c 53  4c 23 31 5d 0d 15 0e 17  |R8,R0,LSL#1]....|
00002550  53 54 52 42 20 52 35 2c  5b 52 39 2c 23 31 36 30  |STRB R5,[R9,#160|
00002560  2a 37 5d 0d 15 18 13 4d  4f 56 20 52 35 2c 52 35  |*7]....MOV R5,R5|
00002570  2c 4c 53 52 23 38 0d 15  22 18 53 54 52 42 20 52  |,LSR#8..".STRB R|
00002580  35 2c 5b 52 31 31 2c 23  31 36 30 2a 37 5d 0d 15  |5,[R11,#160*7]..|
00002590  2c 2c 41 44 44 20 52 37  2c 52 37 2c 23 31 20 3a  |,,ADD R7,R7,#1 :|
000025a0  20 43 4d 50 20 52 37 2c  23 26 38 30 30 30 20 3a  | CMP R7,#&8000 :|
000025b0  20 ec 51 20 52 37 2c 52  31 32 0d 15 36 04 0d 15  | .Q R7,R12..6...|
000025c0  40 04 0d 15 4a 10 41 44  44 20 52 39 2c 52 39 2c  |@...J.ADD R9,R9,|
000025d0  23 32 0d 15 54 04 0d 15  5e 28 53 55 42 53 20 52  |#2..T...^(SUBS R|
000025e0  32 2c 52 32 2c 23 31 20  3b 20 65 6e 64 20 6f 66  |2,R2,#1 ; end of|
000025f0  20 63 68 61 72 61 63 74  65 72 20 72 6f 77 0d 15  | character row..|
00002600  68 0d 42 47 54 20 6c 6f  6f 70 31 0d 15 72 27 4c  |h.BGT loop1..r'L|
00002610  44 52 42 20 52 32 2c 5b  52 36 2c 23 31 5d 20 3b  |DRB R2,[R6,#1] ;|
00002620  20 6e 6f 20 6f 66 20 68  6f 72 69 7a 20 63 68 61  | no of horiz cha|
00002630  72 73 0d 15 7c 27 41 44  44 20 52 39 2c 52 39 2c  |rs..|'ADD R9,R9,|
00002640  23 31 36 30 2a 38 3a 53  55 42 20 52 39 2c 52 39  |#160*8:SUB R9,R9|
00002650  2c 52 32 2c 4c 53 4c 23  31 0d 15 86 1e 53 55 42  |,R2,LSL#1....SUB|
00002660  53 20 52 34 2c 52 34 2c  52 32 2c 4c 53 4c 23 33  |S R4,R4,R2,LSL#3|
00002670  20 3b 20 23 36 34 30 0d  15 90 0d 42 47 54 20 6c  | ; #640....BGT l|
00002680  6f 6f 70 32 0d 15 9a 04  0d 15 a4 1b 4c 44 4d 46  |oop2........LDMF|
00002690  44 20 52 31 33 21 2c 7b  52 32 2d 52 31 32 2c 70  |D R13!,{R2-R12,p|
000026a0  63 7d 5e 0d 15 ae 04 0d  15 b8 0d 2e 6d 6f 64 65  |c}^.........mode|
000026b0  32 74 61 62 0d 15 c2 05  5d 0d 15 cc 0b 4f 25 2b  |2tab....]....O%+|
000026c0  3d 35 31 32 0d 15 d6 0b  50 25 2b 3d 35 31 32 0d  |=512....P%+=512.|
000026d0  15 e0 09 5b 4f 50 54 70  0d 15 ea 0d 2e 6d 6f 64  |...[OPTp.....mod|
000026e0  65 31 74 61 62 0d 15 f4  05 5d 0d 15 fe 0b 4f 25  |e1tab....]....O%|
000026f0  2b 3d 32 35 36 0d 16 08  0b 50 25 2b 3d 32 35 36  |+=256....P%+=256|
00002700  0d 16 12 09 5b 4f 50 54  70 0d 16 1c 04 0d 16 26  |....[OPTp......&|
00002710  0f 2e 70 6f 69 6e 74 65  72 5f 6f 6e 0d 16 30 17  |..pointer_on..0.|
00002720  45 51 55 53 20 22 50 6f  69 6e 74 65 72 20 31 22  |EQUS "Pointer 1"|
00002730  2b bd 30 0d 16 3a 09 41  4c 49 47 4e 0d 16 44 04  |+.0..:.ALIGN..D.|
00002740  0d 16 4e 12 2e 75 70 64  61 74 65 73 63 72 65 65  |..N..updatescree|
00002750  6e 31 0d 16 58 12 54 53  54 20 52 30 2c 23 25 31  |n1..X.TST R0,#%1|
00002760  30 30 30 30 0d 16 62 15  42 45 51 20 75 70 64 61  |0000..b.BEQ upda|
00002770  74 65 73 63 72 65 65 6e  34 0d 16 6c 04 0d 16 76  |tescreen4..l...v|
00002780  14 4c 44 52 42 20 52 30  2c 6c 61 73 74 6d 6f 64  |.LDRB R0,lastmod|
00002790  65 0d 16 80 0d 43 4d 50  20 52 30 2c 23 31 0d 16  |e....CMP R0,#1..|
000027a0  8a 12 42 45 51 20 73 6b  69 70 5f 6d 6f 64 65 31  |..BEQ skip_mode1|
000027b0  0d 16 94 0e 53 57 49 4e  45 20 26 31 31 36 0d 16  |....SWINE &116..|
000027c0  9e 14 53 57 49 4e 45 20  26 31 30 31 20 3b 20 eb  |..SWINE &101 ; .|
000027d0  20 31 0d 16 a8 24 41 44  52 20 52 30 2c 70 6f 69  | 1...$ADR R0,poi|
000027e0  6e 74 65 72 5f 6f 6e 20  3a 20 53 57 49 20 22 4f  |nter_on : SWI "O|
000027f0  53 5f 43 4c 49 22 0d 16  b2 2d 4d 4f 56 20 52 30  |S_CLI"...-MOV R0|
00002800  2c 23 31 30 36 20 3a 20  4d 4f 56 20 52 31 2c 23  |,#106 : MOV R1,#|
00002810  26 38 32 20 3a 20 53 57  49 20 22 4f 53 5f 42 79  |&82 : SWI "OS_By|
00002820  74 65 22 0d 16 bc 1a 53  57 49 20 22 4f 53 5f 52  |te"....SWI "OS_R|
00002830  65 6d 6f 76 65 43 75 72  73 6f 72 73 22 0d 16 c6  |emoveCursors"...|
00002840  20 4d 4f 56 20 52 30 2c  23 31 20 3a 20 53 54 52  | MOV R0,#1 : STR|
00002850  42 20 52 30 2c 6c 61 73  74 6d 6f 64 65 0d 16 d0  |B R0,lastmode...|
00002860  0f 2e 73 6b 69 70 5f 6d  6f 64 65 31 0d 16 da 04  |..skip_mode1....|
00002870  0d 16 e4 19 3b 4c 44 52  20 52 36 2c 63 72 74 5f  |....;LDR R6,crt_|
00002880  72 65 67 73 5f 61 64 64  72 0d 16 ee 19 53 55 42  |regs_addr....SUB|
00002890  20 52 36 2c 6d 65 6d 2c  23 2d 63 72 74 5f 72 65  | R6,mem,#-crt_re|
000028a0  67 73 0d 16 f8 14 4c 44  52 42 20 52 37 2c 5b 52  |gs....LDRB R7,[R|
000028b0  36 2c 23 31 33 5d 0d 17  02 14 4c 44 52 42 20 52  |6,#13]....LDRB R|
000028c0  32 2c 5b 52 36 2c 23 31  32 5d 0d 17 0c 13 80 20  |2,[R6,#12]..... |
000028d0  52 32 2c 52 32 2c 23 25  31 31 31 31 31 0d 17 16  |R2,R2,#%11111...|
000028e0  16 41 44 44 20 52 37 2c  52 37 2c 52 32 2c 4c 53  |.ADD R7,R7,R2,LS|
000028f0  4c 23 38 0d 17 20 13 4d  4f 56 20 52 37 2c 52 37  |L#8.. .MOV R7,R7|
00002900  2c 4c 53 4c 23 33 0d 17  2a 04 0d 17 34 13 41 44  |,LSL#3..*...4.AD|
00002910  52 20 52 38 2c 6d 6f 64  65 31 74 61 62 0d 17 3e  |R R8,mode1tab..>|
00002920  27 4c 44 52 42 20 52 32  2c 5b 52 36 2c 23 31 5d  |'LDRB R2,[R6,#1]|
00002930  20 3b 20 6e 6f 20 6f 66  20 68 6f 72 69 7a 20 63  | ; no of horiz c|
00002940  68 61 72 73 0d 17 48 14  4c 44 52 42 20 52 31 31  |hars..H.LDRB R11|
00002950  2c 5b 52 36 2c 23 36 5d  0d 17 52 11 4d 55 4c 20  |,[R6,#6]..R.MUL |
00002960  52 34 2c 52 32 2c 52 31  31 0d 17 5c 13 4d 4f 56  |R4,R2,R11..\.MOV|
00002970  20 52 34 2c 52 34 2c 4c  53 4c 23 33 0d 17 66 14  | R4,R4,LSL#3..f.|
00002980  3b 4d 4f 56 20 52 34 2c  52 32 2c 4c 53 4c 23 38  |;MOV R4,R2,LSL#8|
00002990  0d 17 70 12 3b 4d 4f 56  20 52 34 2c 23 26 35 30  |..p.;MOV R4,#&50|
000029a0  30 30 0d 17 7a 0a 2e 6c  6f 6f 70 32 0d 17 84 0f  |00..z..loop2....|
000029b0  3b 4d 4f 56 20 52 32 2c  23 38 30 0d 17 8e 0a 2e  |;MOV R2,#80.....|
000029c0  6c 6f 6f 70 31 0d 17 98  14 4c 44 52 42 20 52 30  |loop1....LDRB R0|
000029d0  2c 5b 6d 65 6d 2c 52 37  5d 0d 17 a2 13 4c 44 52  |,[mem,R7]....LDR|
000029e0  42 20 52 35 2c 5b 52 38  2c 52 30 5d 0d 17 ac 13  |B R5,[R8,R0]....|
000029f0  53 54 52 42 20 52 35 2c  5b 52 39 2c 23 30 5d 0d  |STRB R5,[R9,#0].|
00002a00  17 b6 11 41 44 44 20 52  37 2c 52 37 2c 23 31 20  |...ADD R7,R7,#1 |
00002a10  0d 17 c0 14 4c 44 52 42  20 52 30 2c 5b 6d 65 6d  |....LDRB R0,[mem|
00002a20  2c 52 37 5d 0d 17 ca 13  4c 44 52 42 20 52 35 2c  |,R7]....LDRB R5,|
00002a30  5b 52 38 2c 52 30 5d 0d  17 d4 14 53 54 52 42 20  |[R8,R0]....STRB |
00002a40  52 35 2c 5b 52 39 2c 23  38 30 5d 0d 17 de 10 41  |R5,[R9,#80]....A|
00002a50  44 44 20 52 37 2c 52 37  2c 23 31 0d 17 e8 14 4c  |DD R7,R7,#1....L|
00002a60  44 52 42 20 52 30 2c 5b  6d 65 6d 2c 52 37 5d 0d  |DRB R0,[mem,R7].|
00002a70  17 f2 13 4c 44 52 42 20  52 35 2c 5b 52 38 2c 52  |...LDRB R5,[R8,R|
00002a80  30 5d 0d 17 fc 16 53 54  52 42 20 52 35 2c 5b 52  |0]....STRB R5,[R|
00002a90  39 2c 23 38 30 2a 32 5d  0d 18 06 10 41 44 44 20  |9,#80*2]....ADD |
00002aa0  52 37 2c 52 37 2c 23 31  0d 18 10 14 4c 44 52 42  |R7,R7,#1....LDRB|
00002ab0  20 52 30 2c 5b 6d 65 6d  2c 52 37 5d 0d 18 1a 13  | R0,[mem,R7]....|
00002ac0  4c 44 52 42 20 52 35 2c  5b 52 38 2c 52 30 5d 0d  |LDRB R5,[R8,R0].|
00002ad0  18 24 16 53 54 52 42 20  52 35 2c 5b 52 39 2c 23  |.$.STRB R5,[R9,#|
00002ae0  38 30 2a 33 5d 0d 18 2e  11 41 44 44 20 52 37 2c  |80*3]....ADD R7,|
00002af0  52 37 2c 23 31 20 0d 18  38 14 4c 44 52 42 20 52  |R7,#1 ..8.LDRB R|
00002b00  30 2c 5b 6d 65 6d 2c 52  37 5d 0d 18 42 13 4c 44  |0,[mem,R7]..B.LD|
00002b10  52 42 20 52 35 2c 5b 52  38 2c 52 30 5d 0d 18 4c  |RB R5,[R8,R0]..L|
00002b20  16 53 54 52 42 20 52 35  2c 5b 52 39 2c 23 38 30  |.STRB R5,[R9,#80|
00002b30  2a 34 5d 0d 18 56 11 41  44 44 20 52 37 2c 52 37  |*4]..V.ADD R7,R7|
00002b40  2c 23 31 20 0d 18 60 14  4c 44 52 42 20 52 30 2c  |,#1 ..`.LDRB R0,|
00002b50  5b 6d 65 6d 2c 52 37 5d  0d 18 6a 13 4c 44 52 42  |[mem,R7]..j.LDRB|
00002b60  20 52 35 2c 5b 52 38 2c  52 30 5d 0d 18 74 16 53  | R5,[R8,R0]..t.S|
00002b70  54 52 42 20 52 35 2c 5b  52 39 2c 23 38 30 2a 35  |TRB R5,[R9,#80*5|
00002b80  5d 0d 18 7e 10 41 44 44  20 52 37 2c 52 37 2c 23  |]..~.ADD R7,R7,#|
00002b90  31 0d 18 88 14 4c 44 52  42 20 52 30 2c 5b 6d 65  |1....LDRB R0,[me|
00002ba0  6d 2c 52 37 5d 0d 18 92  13 4c 44 52 42 20 52 35  |m,R7]....LDRB R5|
00002bb0  2c 5b 52 38 2c 52 30 5d  0d 18 9c 16 53 54 52 42  |,[R8,R0]....STRB|
00002bc0  20 52 35 2c 5b 52 39 2c  23 38 30 2a 36 5d 0d 18  | R5,[R9,#80*6]..|
00002bd0  a6 11 41 44 44 20 52 37  2c 52 37 2c 23 31 20 0d  |..ADD R7,R7,#1 .|
00002be0  18 b0 14 4c 44 52 42 20  52 30 2c 5b 6d 65 6d 2c  |...LDRB R0,[mem,|
00002bf0  52 37 5d 0d 18 ba 13 4c  44 52 42 20 52 35 2c 5b  |R7]....LDRB R5,[|
00002c00  52 38 2c 52 30 5d 0d 18  c4 16 53 54 52 42 20 52  |R8,R0]....STRB R|
00002c10  35 2c 5b 52 39 2c 23 38  30 2a 37 5d 0d 18 ce 2c  |5,[R9,#80*7]...,|
00002c20  41 44 44 20 52 37 2c 52  37 2c 23 31 20 3a 20 43  |ADD R7,R7,#1 : C|
00002c30  4d 50 20 52 37 2c 23 26  38 30 30 30 20 3a 20 ec  |MP R7,#&8000 : .|
00002c40  51 20 52 37 2c 52 31 32  0d 18 d8 04 0d 18 e2 04  |Q R7,R12........|
00002c50  0d 18 ec 10 41 44 44 20  52 39 2c 52 39 2c 23 31  |....ADD R9,R9,#1|
00002c60  0d 18 f6 28 53 55 42 53  20 52 32 2c 52 32 2c 23  |...(SUBS R2,R2,#|
00002c70  31 20 3b 20 65 6e 64 20  6f 66 20 63 68 61 72 61  |1 ; end of chara|
00002c80  63 74 65 72 20 72 6f 77  0d 19 00 0d 42 47 54 20  |cter row....BGT |
00002c90  6c 6f 6f 70 31 0d 19 0a  27 4c 44 52 42 20 52 32  |loop1...'LDRB R2|
00002ca0  2c 5b 52 36 2c 23 31 5d  20 3b 20 6e 6f 20 6f 66  |,[R6,#1] ; no of|
00002cb0  20 68 6f 72 69 7a 20 63  68 61 72 73 0d 19 14 04  | horiz chars....|
00002cc0  0d 19 1e 21 41 44 44 20  52 39 2c 52 39 2c 23 36  |...!ADD R9,R9,#6|
00002cd0  34 30 20 3a 20 53 55 42  20 52 39 2c 52 39 2c 52  |40 : SUB R9,R9,R|
00002ce0  32 0d 19 28 1e 53 55 42  53 20 52 34 2c 52 34 2c  |2..(.SUBS R4,R4,|
00002cf0  52 32 2c 4c 53 4c 23 33  20 3b 20 23 36 34 30 0d  |R2,LSL#3 ; #640.|
00002d00  19 32 0d 42 48 49 20 6c  6f 6f 70 32 0d 19 3c 04  |.2.BHI loop2..<.|
00002d10  0d 19 46 1b 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |..F.LDMFD R13!,{|
00002d20  52 32 2d 52 31 32 2c 70  63 7d 5e 0d 19 50 04 0d  |R2-R12,pc}^..P..|
00002d30  19 5a 12 2e 75 70 64 61  74 65 73 63 72 65 65 6e  |.Z..updatescreen|
00002d40  37 0d 19 64 14 4c 44 52  42 20 52 30 2c 6c 61 73  |7..d.LDRB R0,las|
00002d50  74 6d 6f 64 65 0d 19 6e  0d 43 4d 50 20 52 30 2c  |tmode..n.CMP R0,|
00002d60  23 37 0d 19 78 14 42 45  51 20 6e 6f 74 5f 6e 65  |#7..x.BEQ not_ne|
00002d70  77 6d 6f 64 65 37 0d 19  82 14 41 44 52 20 52 30  |wmode7....ADR R0|
00002d80  2c 6d 6f 64 65 37 63 6f  70 79 0d 19 8c 10 4d 4f  |,mode7copy....MO|
00002d90  56 20 52 31 2c 23 31 30  32 30 0d 19 96 0d 4d 4f  |V R1,#1020....MO|
00002da0  56 20 52 32 2c 23 30 0d  19 a0 09 2e 63 6c 73 37  |V R2,#0.....cls7|
00002db0  0d 19 aa 12 53 54 52 20  52 32 2c 5b 52 30 2c 52  |....STR R2,[R0,R|
00002dc0  31 5d 0d 19 b4 11 53 55  42 53 20 52 31 2c 52 31  |1]....SUBS R1,R1|
00002dd0  2c 23 34 0d 19 be 0c 42  50 4c 20 63 6c 73 37 0d  |,#4....BPL cls7.|
00002de0  19 c8 04 0d 19 d2 0c 53  57 49 20 26 31 31 36 0d  |.......SWI &116.|
00002df0  19 dc 12 53 57 49 20 26  31 30 37 20 3b 20 eb 20  |...SWI &107 ; . |
00002e00  37 0d 19 e6 24 41 44 52  20 52 30 2c 70 6f 69 6e  |7...$ADR R0,poin|
00002e10  74 65 72 5f 6f 6e 20 3a  20 53 57 49 20 22 4f 53  |ter_on : SWI "OS|
00002e20  5f 43 4c 49 22 0d 19 f0  2d 4d 4f 56 20 52 30 2c  |_CLI"...-MOV R0,|
00002e30  23 31 30 36 20 3a 20 4d  4f 56 20 52 31 2c 23 26  |#106 : MOV R1,#&|
00002e40  38 32 20 3a 20 53 57 49  20 22 4f 53 5f 42 79 74  |82 : SWI "OS_Byt|
00002e50  65 22 0d 19 fa 1a 53 57  49 20 22 4f 53 5f 52 65  |e"....SWI "OS_Re|
00002e60  6d 6f 76 65 43 75 72 73  6f 72 73 22 0d 1a 04 20  |moveCursors"... |
00002e70  4d 4f 56 20 52 30 2c 23  37 20 3a 20 53 54 52 42  |MOV R0,#7 : STRB|
00002e80  20 52 30 2c 6c 61 73 74  6d 6f 64 65 0d 1a 0e 11  | R0,lastmode....|
00002e90  2e 6e 6f 74 5f 6e 65 77  6d 6f 64 65 37 0d 1a 18  |.not_newmode7...|
00002ea0  15 53 57 49 20 26 31 31  45 20 3b 20 f1 8a 30 2c  |.SWI &11E ; ..0,|
00002eb0  30 29 0d 1a 22 04 0d 1a  2c 19 3b 4c 44 52 20 52  |0).."...,.;LDR R|
00002ec0  35 2c 63 72 74 5f 72 65  67 73 5f 61 64 64 72 0d  |5,crt_regs_addr.|
00002ed0  1a 36 0d 4d 4f 56 20 52  35 2c 52 36 0d 1a 40 14  |.6.MOV R5,R6..@.|
00002ee0  4c 44 52 42 20 52 36 2c  5b 52 35 2c 23 31 32 5d  |LDRB R6,[R5,#12]|
00002ef0  0d 1a 4a 10 80 20 52 36  2c 52 36 2c 23 26 33 46  |..J.. R6,R6,#&3F|
00002f00  0d 1a 54 10 82 20 52 36  2c 52 36 2c 23 26 32 30  |..T.. R6,R6,#&20|
00002f10  0d 1a 5e 12 41 44 44 20  52 36 2c 52 36 2c 23 26  |..^.ADD R6,R6,#&|
00002f20  37 34 0d 1a 68 10 80 20  52 36 2c 52 36 2c 23 26  |74..h.. R6,R6,#&|
00002f30  46 46 0d 1a 72 14 4c 44  52 42 20 52 37 2c 5b 52  |FF..r.LDRB R7,[R|
00002f40  35 2c 23 31 33 5d 0d 1a  7c 16 41 44 44 20 52 37  |5,#13]..|.ADD R7|
00002f50  2c 52 37 2c 52 36 2c 4c  53 4c 23 38 0d 1a 86 04  |,R7,R6,LSL#8....|
00002f60  0d 1a 90 12 3b 4d 4f 56  20 52 37 2c 23 26 37 43  |....;MOV R7,#&7C|
00002f70  30 30 0d 1a 9a 04 0d 1a  a4 17 3b 41 44 44 20 6d  |00........;ADD m|
00002f80  65 6d 2c 6d 65 6d 2c 23  26 37 43 30 30 0d 1a ae  |em,mem,#&7C00...|
00002f90  0d 4d 4f 56 20 52 34 2c  23 30 0d 1a b8 11 3b 53  |.MOV R4,#0....;S|
00002fa0  55 42 20 52 34 2c 52 34  2c 23 31 0d 1a c2 13 3b  |UB R4,R4,#1....;|
00002fb0  41 44 44 20 6d 65 6d 2c  6d 65 6d 2c 23 31 0d 1a  |ADD mem,mem,#1..|
00002fc0  cc 04 0d 1a d6 26 41 44  52 20 52 38 2c 6d 6f 64  |.....&ADR R8,mod|
00002fd0  65 37 63 6f 70 79 3a 3b  53 55 42 20 52 38 2c 52  |e7copy:;SUB R8,R|
00002fe0  38 2c 23 26 37 43 30 30  0d 1a e0 04 0d 1a ea 11  |8,#&7C00........|
00002ff0  4d 4f 56 20 52 39 2c 23  30 20 3b 20 58 0d 1a f4  |MOV R9,#0 ; X...|
00003000  12 4d 4f 56 20 52 31 30  2c 23 30 20 3b 20 59 0d  |.MOV R10,#0 ; Y.|
00003010  1a fe 10 53 55 42 20 52  39 2c 52 39 2c 23 31 0d  |...SUB R9,R9,#1.|
00003020  1b 08 04 0d 1b 12 0e 2e  6d 6f 64 65 37 6c 6f 6f  |........mode7loo|
00003030  70 0d 1b 1c 3b 41 44 44  20 52 39 2c 52 39 2c 23  |p...;ADD R9,R9,#|
00003040  31 20 3a 20 43 4d 50 20  52 39 2c 23 34 30 20 3a  |1 : CMP R9,#40 :|
00003050  20 ec 51 20 52 39 2c 23  30 20 3a 20 41 44 44 45  | .Q R9,#0 : ADDE|
00003060  51 20 52 31 30 2c 52 31  30 2c 23 31 0d 1b 26 14  |Q R10,R10,#1..&.|
00003070  4c 44 52 42 20 52 30 2c  5b 6d 65 6d 2c 52 37 5d  |LDRB R0,[mem,R7]|
00003080  0d 1b 30 1c 43 4d 50 20  52 30 2c 23 26 37 46 20  |..0.CMP R0,#&7F |
00003090  3a 20 ec 51 20 52 30 2c  23 32 35 35 0d 1b 3a 2c  |: .Q R0,#255..:,|
000030a0  43 4d 50 20 52 30 2c 23  26 31 41 20 3a 20 ec 51  |CMP R0,#&1A : .Q|
000030b0  20 52 30 2c 23 26 39 41  20 3b 20 66 69 78 20 5a  | R0,#&9A ; fix Z|
000030c0  61 6c 61 67 61 3f 3f 3f  0d 1b 44 2c 43 4d 50 20  |alaga???..D,CMP |
000030d0  52 30 2c 23 26 31 44 20  3a 20 ec 51 20 52 30 2c  |R0,#&1D : .Q R0,|
000030e0  23 26 39 44 20 3b 20 66  69 78 20 5a 61 6c 61 67  |#&9D ; fix Zalag|
000030f0  61 3f 3f 3f 0d 1b 4e 1d  43 4d 50 20 52 30 2c 23  |a???..N.CMP R0,#|
00003100  33 32 20 3a 20 4d 4f 56  4c 54 20 52 30 2c 23 33  |32 : MOVLT R0,#3|
00003110  32 0d 1b 58 04 0d 1b 62  29 43 4d 50 20 52 30 2c  |2..X...b)CMP R0,|
00003120  23 26 36 30 20 3a 20 ec  51 20 52 30 2c 23 26 35  |#&60 : .Q R0,#&5|
00003130  46 20 3a 20 42 45 51 20  70 72 69 6e 74 37 0d 1b  |F : BEQ print7..|
00003140  6c 29 43 4d 50 20 52 30  2c 23 26 35 46 20 3a 20  |l)CMP R0,#&5F : |
00003150  ec 51 20 52 30 2c 23 26  32 33 20 3a 20 42 45 51  |.Q R0,#&23 : BEQ|
00003160  20 70 72 69 6e 74 37 0d  1b 76 1c 43 4d 50 20 52  | print7..v.CMP R|
00003170  30 2c 23 26 32 33 20 3a  20 ec 51 20 52 30 2c 23  |0,#&23 : .Q R0,#|
00003180  26 36 30 0d 1b 80 0b 2e  70 72 69 6e 74 37 0d 1b  |&60.....print7..|
00003190  8a 04 0d 1b 94 1d 4c 44  52 42 20 52 31 31 2c 5b  |......LDRB R11,[|
000031a0  52 38 5d 20 3b 20 6d 6f  64 65 37 63 6f 70 79 0d  |R8] ; mode7copy.|
000031b0  1b 9e 0e 43 4d 50 20 52  31 31 2c 52 30 0d 1b a8  |...CMP R11,R0...|
000031c0  10 42 45 51 20 6e 6f 70  72 69 6e 74 37 0d 1b b2  |.BEQ noprint7...|
000031d0  14 53 57 49 20 26 31 30  30 2b 33 31 20 3b 20 f1  |.SWI &100+31 ; .|
000031e0  8a 0d 1b bc 0e 4d 4f 56  20 52 31 31 2c 52 30 0d  |.....MOV R11,R0.|
000031f0  1b c6 1f 4d 4f 56 20 52  30 2c 52 39 20 3a 20 53  |...MOV R0,R9 : S|
00003200  57 49 20 22 4f 53 5f 57  72 69 74 65 43 22 0d 1b  |WI "OS_WriteC"..|
00003210  d0 20 4d 4f 56 20 52 30  2c 52 31 30 20 3a 20 53  |. MOV R0,R10 : S|
00003220  57 49 20 22 4f 53 5f 57  72 69 74 65 43 22 0d 1b  |WI "OS_WriteC"..|
00003230  da 20 4d 4f 56 20 52 30  2c 52 31 31 20 3a 20 53  |. MOV R0,R11 : S|
00003240  57 49 20 22 4f 53 5f 57  72 69 74 65 43 22 0d 1b  |WI "OS_WriteC"..|
00003250  e4 1c 53 54 52 42 20 52  30 2c 5b 52 38 5d 20 3b  |..STRB R0,[R8] ;|
00003260  20 6d 6f 64 65 37 63 6f  70 79 0d 1b ee 0d 2e 6e  | mode7copy.....n|
00003270  6f 70 72 69 6e 74 37 0d  1b f8 10 41 44 44 20 52  |oprint7....ADD R|
00003280  38 2c 52 38 2c 23 31 0d  1c 02 04 0d 1c 0c 10 41  |8,R8,#1........A|
00003290  44 44 20 52 37 2c 52 37  2c 23 31 0d 1c 16 11 43  |DD R7,R7,#1....C|
000032a0  4d 50 20 52 37 2c 23 26  38 30 30 30 0d 1c 20 10  |MP R7,#&8000.. .|
000032b0  ec 51 20 52 37 2c 23 26  37 43 30 30 0d 1c 2a 10  |.Q R7,#&7C00..*.|
000032c0  41 44 44 20 52 34 2c 52  34 2c 23 31 0d 1c 34 11  |ADD R4,R4,#1..4.|
000032d0  43 4d 50 20 52 34 2c 23  32 35 2a 34 30 0d 1c 3e  |CMP R4,#25*40..>|
000032e0  11 42 4e 45 20 6d 6f 64  65 37 6c 6f 6f 70 0d 1c  |.BNE mode7loop..|
000032f0  48 04 0d 1c 52 1b 4c 44  4d 46 44 20 52 31 33 21  |H...R.LDMFD R13!|
00003300  2c 7b 52 32 2d 52 31 32  2c 70 63 7d 5e 0d 1c 5c  |,{R2-R12,pc}^..\|
00003310  0e 2e 6d 6f 64 65 37 63  6f 70 79 0d 1c 66 05 5d  |..mode7copy..f.]|
00003320  0d 1c 70 15 50 25 2b 3d  31 30 32 34 3a 4f 25 2b  |..p.P%+=1024:O%+|
00003330  3d 31 30 32 34 0d 1c 7a  09 5b 4f 50 54 70 0d 1c  |=1024..z.[OPTp..|
00003340  84 04 0d 1c 8e 10 2e 77  72 69 74 65 73 68 65 69  |.......writeshei|
00003350  6c 61 0d 1c 98 14 53 54  4d 46 44 20 52 31 33 21  |la....STMFD R13!|
00003360  2c 7b 52 31 34 7d 0d 1c  a2 27 53 57 49 20 26 34  |,{R14}...'SWI &4|
00003370  30 35 30 30 20 3b 20 22  58 49 2f 4f 5f 50 6f 64  |0500 ; "XI/O_Pod|
00003380  75 6c 65 5f 48 61 72 64  77 61 72 65 22 0d 1c ac  |ule_Hardware"...|
00003390  2f 41 44 44 20 52 31 2c  52 31 2c 23 26 32 30 30  |/ADD R1,R1,#&200|
000033a0  30 20 3b 20 62 61 73 65  20 61 64 64 72 65 73 73  |0 ; base address|
000033b0  20 6f 66 20 55 73 65 72  20 56 49 41 0d 1c b6 1f  | of User VIA....|
000033c0  43 4d 50 20 52 32 2c 23  35 3a 5c 42 45 51 20 77  |CMP R2,#5:\BEQ w|
000033d0  72 69 74 65 73 68 65 69  6c 61 35 0d 1c c0 17 43  |ritesheila5....C|
000033e0  4d 50 20 52 32 2c 23 34  3a 5c ec 51 20 52 32 2c  |MP R2,#4:\.Q R2,|
000033f0  23 36 0d 1c ca 21 43 4d  50 20 52 32 2c 23 38 20  |#6...!CMP R2,#8 |
00003400  3a 5c 20 42 45 51 20 77  72 69 74 65 73 68 65 69  |:\ BEQ writeshei|
00003410  6c 61 38 0d 1c d4 21 43  4d 50 20 52 32 2c 23 36  |la8...!CMP R2,#6|
00003420  20 3a 5c 20 42 45 51 20  77 72 69 74 65 73 68 65  | :\ BEQ writeshe|
00003430  69 6c 61 36 0d 1c de 21  43 4d 50 20 52 32 2c 23  |ila6...!CMP R2,#|
00003440  37 20 3a 5c 20 42 45 51  20 77 72 69 74 65 73 68  |7 :\ BEQ writesh|
00003450  65 69 6c 61 37 0d 1c e8  21 43 4d 50 20 52 32 2c  |eila7...!CMP R2,|
00003460  23 39 20 3a 5c 20 42 45  51 20 77 72 69 74 65 73  |#9 :\ BEQ writes|
00003470  68 65 69 6c 61 39 0d 1c  f2 19 53 54 52 42 20 52  |heila9....STRB R|
00003480  30 2c 5b 52 31 2c 52 32  2c 4c 53 4c 23 32 5d 0d  |0,[R1,R2,LSL#2].|
00003490  1c fc 10 4c 44 52 42 20  52 30 2c 5b 52 31 5d 0d  |...LDRB R0,[R1].|
000034a0  1d 06 13 4c 44 4d 46 44  20 52 31 33 21 2c 7b 50  |...LDMFD R13!,{P|
000034b0  43 7d 0d 1d 10 04 0d 1d  1a 11 2e 77 72 69 74 65  |C}.........write|
000034c0  73 68 65 69 6c 61 36 0d  1d 24 13 4d 4f 56 20 52  |sheila6..$.MOV R|
000034d0  30 2c 52 30 2c 4c 53 4c  23 31 0d 1d 2e 18 53 54  |0,R0,LSL#1....ST|
000034e0  52 42 20 52 30 2c 5b 52  31 2c 23 36 20 3c 3c 20  |RB R0,[R1,#6 << |
000034f0  32 5d 0d 1d 38 18 4c 44  52 42 20 52 32 2c 5b 52  |2]..8.LDRB R2,[R|
00003500  31 2c 23 37 20 3c 3c 20  32 5d 0d 1d 42 10 42 49  |1,#7 << 2]..B.BI|
00003510  43 20 52 32 2c 52 32 2c  23 31 0d 1d 4c 15 84 52  |C R2,R2,#1..L..R|
00003520  20 52 32 2c 52 32 2c 52  30 2c 4c 53 52 23 38 0d  | R2,R2,R0,LSR#8.|
00003530  1d 56 18 53 54 52 42 20  52 32 2c 5b 52 31 2c 23  |.V.STRB R2,[R1,#|
00003540  37 20 3c 3c 20 32 5d 0d  1d 60 13 4c 44 4d 46 44  |7 << 2]..`.LDMFD|
00003550  20 52 31 33 21 2c 7b 50  43 7d 0d 1d 6a 04 0d 1d  | R13!,{PC}..j...|
00003560  74 11 2e 77 72 69 74 65  73 68 65 69 6c 61 38 0d  |t..writesheila8.|
00003570  1d 7e 13 4d 4f 56 20 52  30 2c 52 30 2c 4c 53 4c  |.~.MOV R0,R0,LSL|
00003580  23 31 0d 1d 88 18 53 54  52 42 20 52 30 2c 5b 52  |#1....STRB R0,[R|
00003590  31 2c 23 38 20 3c 3c 20  32 5d 0d 1d 92 18 4c 44  |1,#8 << 2]....LD|
000035a0  52 42 20 52 32 2c 5b 52  31 2c 23 39 20 3c 3c 20  |RB R2,[R1,#9 << |
000035b0  32 5d 0d 1d 9c 10 42 49  43 20 52 32 2c 52 32 2c  |2]....BIC R2,R2,|
000035c0  23 31 0d 1d a6 15 84 52  20 52 32 2c 52 32 2c 52  |#1.....R R2,R2,R|
000035d0  30 2c 4c 53 52 23 38 0d  1d b0 18 53 54 52 42 20  |0,LSR#8....STRB |
000035e0  52 32 2c 5b 52 31 2c 23  39 20 3c 3c 20 32 5d 0d  |R2,[R1,#9 << 2].|
000035f0  1d ba 13 4c 44 4d 46 44  20 52 31 33 21 2c 7b 50  |...LDMFD R13!,{P|
00003600  43 7d 0d 1d c4 04 0d 1d  ce 11 2e 77 72 69 74 65  |C}.........write|
00003610  73 68 65 69 6c 61 37 0d  1d d8 18 4c 44 52 42 20  |sheila7....LDRB |
00003620  52 32 2c 5b 52 31 2c 23  37 20 3c 3c 20 32 5d 0d  |R2,[R1,#7 << 2].|
00003630  1d e2 0e 80 20 52 32 2c  52 32 2c 23 31 0d 1d ec  |.... R2,R2,#1...|
00003640  16 41 44 44 20 52 32 2c  52 32 2c 52 30 2c 4c 53  |.ADD R2,R2,R0,LS|
00003650  4c 23 31 0d 1d f6 18 53  54 52 42 20 52 32 2c 5b  |L#1....STRB R2,[|
00003660  52 31 2c 23 37 20 3c 3c  20 32 5d 0d 1e 00 13 4c  |R1,#7 << 2]....L|
00003670  44 4d 46 44 20 52 31 33  21 2c 7b 50 43 7d 0d 1e  |DMFD R13!,{PC}..|
00003680  0a 04 0d 1e 14 11 2e 77  72 69 74 65 73 68 65 69  |.......writeshei|
00003690  6c 61 39 0d 1e 1e 18 4c  44 52 42 20 52 32 2c 5b  |la9....LDRB R2,[|
000036a0  52 31 2c 23 39 20 3c 3c  20 32 5d 0d 1e 28 0e 80  |R1,#9 << 2]..(..|
000036b0  20 52 32 2c 52 32 2c 23  31 0d 1e 32 16 41 44 44  | R2,R2,#1..2.ADD|
000036c0  20 52 32 2c 52 32 2c 52  30 2c 4c 53 4c 23 31 0d  | R2,R2,R0,LSL#1.|
000036d0  1e 3c 18 53 54 52 42 20  52 32 2c 5b 52 31 2c 23  |.<.STRB R2,[R1,#|
000036e0  39 20 3c 3c 20 32 5d 0d  1e 46 13 4c 44 4d 46 44  |9 << 2]..F.LDMFD|
000036f0  20 52 31 33 21 2c 7b 50  43 7d 0d 1e 50 04 0d 1e  | R13!,{PC}..P...|
00003700  5a 11 2e 77 72 69 74 65  73 68 65 69 6c 61 35 0d  |Z..writesheila5.|
00003710  1e 64 18 4c 44 52 42 20  52 32 2c 5b 52 31 2c 23  |.d.LDRB R2,[R1,#|
00003720  37 20 3c 3c 20 32 5d 0d  1e 6e 0e 80 20 52 32 2c  |7 << 2]..n.. R2,|
00003730  52 32 2c 23 31 0d 1e 78  16 41 44 44 20 52 32 2c  |R2,#1..x.ADD R2,|
00003740  52 32 2c 52 30 2c 4c 53  4c 23 31 0d 1e 82 18 53  |R2,R0,LSL#1....S|
00003750  54 52 42 20 52 32 2c 5b  52 31 2c 23 35 20 3c 3c  |TRB R2,[R1,#5 <<|
00003760  20 32 5d 0d 1e 8c 13 4c  44 4d 46 44 20 52 31 33  | 2]....LDMFD R13|
00003770  21 2c 7b 50 43 7d 0d 1e  96 04 0d 1e a0 0f 2e 72  |!,{PC}.........r|
00003780  65 61 64 73 68 65 69 6c  61 0d 1e aa 14 53 54 4d  |eadsheila....STM|
00003790  46 44 20 52 31 33 21 2c  7b 52 31 34 7d 0d 1e b4  |FD R13!,{R14}...|
000037a0  27 53 57 49 20 26 34 30  35 30 30 20 3b 20 22 58  |'SWI &40500 ; "X|
000037b0  49 2f 4f 5f 50 6f 64 75  6c 65 5f 48 61 72 64 77  |I/O_Podule_Hardw|
000037c0  61 72 65 22 0d 1e be 2f  41 44 44 20 52 31 2c 52  |are".../ADD R1,R|
000037d0  31 2c 23 26 32 30 30 30  20 3b 20 62 61 73 65 20  |1,#&2000 ; base |
000037e0  61 64 64 72 65 73 73 20  6f 66 20 55 73 65 72 20  |address of User |
000037f0  56 49 41 0d 1e c8 3c 43  4d 50 20 52 30 2c 23 38  |VIA...<CMP R0,#8|
00003800  20 3a 20 43 4d 50 4e 45  20 52 30 2c 23 36 20 3a  | : CMPNE R0,#6 :|
00003810  20 43 4d 50 4e 45 20 52  30 2c 23 34 20 3a 20 5c  | CMPNE R0,#4 : \|
00003820  42 45 51 20 72 65 61 64  73 68 65 69 6c 61 32 0d  |BEQ readsheila2.|
00003830  1e d2 29 43 4d 50 20 52  30 2c 23 39 20 3a 20 43  |..)CMP R0,#9 : C|
00003840  4d 50 4e 45 20 52 30 2c  23 37 20 3a 20 43 4d 50  |MPNE R0,#7 : CMP|
00003850  4e 45 20 52 30 2c 23 35  0d 1e dc 19 4c 44 52 42  |NE R0,#5....LDRB|
00003860  20 52 30 2c 5b 52 31 2c  52 30 2c 4c 53 4c 23 32  | R0,[R1,R0,LSL#2|
00003870  5d 0d 1e e6 13 5c ec 51  20 52 30 2c 52 30 2c 4c  |]....\.Q R0,R0,L|
00003880  53 52 23 31 0d 1e f0 13  4c 44 4d 46 44 20 52 31  |SR#1....LDMFD R1|
00003890  33 21 2c 7b 50 43 7d 0d  1e fa 04 0d 1f 04 10 2e  |3!,{PC}.........|
000038a0  72 65 61 64 73 68 65 69  6c 61 32 0d 1f 0e 19 4c  |readsheila2....L|
000038b0  44 52 42 20 52 32 2c 5b  52 31 2c 52 30 2c 4c 53  |DRB R2,[R1,R0,LS|
000038c0  4c 23 32 5d 0d 1f 18 10  41 44 44 20 52 30 2c 52  |L#2]....ADD R0,R|
000038d0  30 2c 23 31 0d 1f 22 19  4c 44 52 42 20 52 30 2c  |0,#1..".LDRB R0,|
000038e0  5b 52 31 2c 52 30 2c 4c  53 4c 23 32 5d 0d 1f 2c  |[R1,R0,LSL#2]..,|
000038f0  16 41 44 44 20 52 30 2c  52 32 2c 52 30 2c 4c 53  |.ADD R0,R2,R0,LS|
00003900  4c 23 38 0d 1f 36 13 4d  4f 56 20 52 30 2c 52 30  |L#8..6.MOV R0,R0|
00003910  2c 4c 53 52 23 31 0d 1f  40 10 80 20 52 30 2c 52  |,LSR#1..@.. R0,R|
00003920  30 2c 23 26 46 46 0d 1f  4a 13 4c 44 4d 46 44 20  |0,#&FF..J.LDMFD |
00003930  52 31 33 21 2c 7b 50 43  7d 0d 1f 54 04 0d 1f 5e  |R13!,{PC}..T...^|
00003940  15 2e 70 6f 6b 65 73 65  72 69 61 6c 6e 75 6d 62  |..pokeserialnumb|
00003950  65 72 0d 1f 68 14 53 54  4d 46 44 20 52 31 33 21  |er..h.STMFD R13!|
00003960  2c 7b 52 31 34 7d 0d 1f  72 11 53 54 52 20 52 31  |,{R14}..r.STR R1|
00003970  2c 62 75 66 66 65 72 0d  1f 7c 20 4d 4f 56 20 52  |,buffer..| MOV R|
00003980  31 2c 23 32 32 20 3a 20  4d 4f 56 20 52 31 2c 52  |1,#22 : MOV R1,R|
00003990  31 2c 4c 53 52 23 31 0d  1f 86 13 53 54 52 20 52  |1,LSR#1....STR R|
000039a0  31 2c 62 75 66 66 65 72  2b 34 0d 1f 90 11 41 44  |1,buffer+4....AD|
000039b0  52 20 52 31 2c 62 75 66  66 65 72 0d 1f 9a 1b 53  |R R1,buffer....S|
000039c0  57 49 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |WI "Wimp_GetIcon|
000039d0  53 74 61 74 65 22 0d 1f  a4 13 4c 44 52 20 52 31  |State"....LDR R1|
000039e0  2c 5b 52 31 2c 23 32 38  5d 0d 1f ae 0e 4d 4f 56  |,[R1,#28]....MOV|
000039f0  20 52 30 2c 23 33 30 0d  1f b8 14 4d 4f 56 20 52  | R0,#30....MOV R|
00003a00  32 2c 23 25 31 31 30 31  30 31 31 0d 1f c2 1d 41  |2,#%1101011....A|
00003a10  44 44 20 52 32 2c 52 32  2c 23 25 30 31 31 30 31  |DD R2,R2,#%01101|
00003a20  31 31 30 20 3c 3c 20 38  0d 1f cc 1e 41 44 44 20  |110 << 8....ADD |
00003a30  52 32 2c 52 32 2c 23 25  31 31 31 31 30 31 30 30  |R2,R2,#%11110100|
00003a40  20 3c 3c 20 31 36 0d 1f  d6 1e 41 44 44 20 52 32  | << 16....ADD R2|
00003a50  2c 52 32 2c 23 25 30 30  31 31 31 30 31 31 20 3c  |,R2,#%00111011 <|
00003a60  3c 20 32 34 0d 1f e0 17  41 44 52 20 52 33 2c 73  |< 24....ADR R3,s|
00003a70  65 72 69 61 6c 6e 75 6d  62 65 72 0d 1f ea 10 53  |erialnumber....S|
00003a80  55 42 20 52 33 2c 52 33  2c 23 31 0d 1f f4 10 53  |UB R3,R3,#1....S|
00003a90  55 42 20 52 31 2c 52 31  2c 23 31 0d 1f fe 0f 2e  |UB R1,R1,#1.....|
00003aa0  73 65 72 69 61 6c 6c 6f  6f 70 0d 20 08 13 4c 44  |serialloop. ..LD|
00003ab0  52 42 20 52 34 2c 5b 52  33 2c 52 30 5d 0d 20 12  |RB R4,[R3,R0]. .|
00003ac0  0e 82 20 52 34 2c 52 34  2c 52 32 0d 20 1c 13 53  |.. R4,R4,R2. ..S|
00003ad0  54 52 42 20 52 34 2c 5b  52 31 2c 52 30 5d 0d 20  |TRB R4,[R1,R0]. |
00003ae0  26 14 4d 4f 56 20 52 32  2c 52 32 2c 52 4f 52 20  |&.MOV R2,R2,ROR |
00003af0  52 30 0d 20 30 11 53 55  42 53 20 52 30 2c 52 30  |R0. 0.SUBS R0,R0|
00003b00  2c 23 31 0d 20 3a 12 42  4e 45 20 73 65 72 69 61  |,#1. :.BNE seria|
00003b10  6c 6c 6f 6f 70 0d 20 44  13 4c 44 4d 46 44 20 52  |lloop. D.LDMFD R|
00003b20  31 33 21 2c 7b 50 43 7d  0d 20 4e 04 0d 20 58 0b  |13!,{PC}. N.. X.|
00003b30  2e 62 75 66 66 65 72 0d  20 62 11 45 51 55 53 20  |.buffer. b.EQUS |
00003b40  c4 34 38 2c 22 20 22 29  0d 20 6c 09 41 4c 49 47  |.48," "). l.ALIG|
00003b50  4e 0d 20 76 04 0d 20 80  11 2e 69 6e 73 74 61 6c  |N. v.. ...instal|
00003b60  6c 5f 65 78 69 74 0d 20  8a 14 53 54 4d 46 44 20  |l_exit. ..STMFD |
00003b70  52 31 33 21 2c 7b 52 31  34 7d 0d 20 94 14 53 54  |R13!,{R14}. ..ST|
00003b80  52 20 52 30 2c 77 69 6d  70 5f 6d 6f 64 65 0d 20  |R R0,wimp_mode. |
00003b90  9e 15 4d 4f 56 20 52 30  2c 23 31 31 20 3b 20 65  |..MOV R0,#11 ; e|
00003ba0  78 69 74 0d 20 a8 0d 4d  4f 56 20 52 31 2c 23 30  |xit. ..MOV R1,#0|
00003bb0  0d 20 b2 1f 53 57 49 20  22 58 4f 53 5f 43 68 61  |. ..SWI "XOS_Cha|
00003bc0  6e 67 65 45 6e 76 69 72  6f 6e 6d 65 6e 74 22 0d  |ngeEnvironment".|
00003bd0  20 bc 16 53 54 52 20 52  31 2c 6f 6c 64 5f 68 61  | ..STR R1,old_ha|
00003be0  6e 64 6c 65 72 0d 20 c6  13 41 44 52 20 52 31 2c  |ndler. ..ADR R1,|
00003bf0  65 78 69 74 5f 68 61 6e  0d 20 d0 1f 53 57 49 20  |exit_han. ..SWI |
00003c00  22 58 4f 53 5f 43 68 61  6e 67 65 45 6e 76 69 72  |"XOS_ChangeEnvir|
00003c10  6f 6e 6d 65 6e 74 22 0d  20 da 13 4c 44 4d 46 44  |onment". ..LDMFD|
00003c20  20 52 31 33 21 2c 7b 50  43 7d 0d 20 e4 04 0d 20  | R13!,{PC}. ... |
00003c30  ee 10 2e 72 65 6d 6f 76  65 5f 65 78 69 74 0d 20  |...remove_exit. |
00003c40  f8 14 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 31  |..STMFD R13!,{R1|
00003c50  34 7d 0d 21 02 0e 4d 4f  56 20 52 30 2c 23 31 31  |4}.!..MOV R0,#11|
00003c60  0d 21 0c 16 4c 44 52 20  52 31 2c 6f 6c 64 5f 68  |.!..LDR R1,old_h|
00003c70  61 6e 64 6c 65 72 0d 21  16 1f 53 57 49 20 22 58  |andler.!..SWI "X|
00003c80  4f 53 5f 43 68 61 6e 67  65 45 6e 76 69 72 6f 6e  |OS_ChangeEnviron|
00003c90  6d 65 6e 74 22 0d 21 20  13 4c 44 4d 46 44 20 52  |ment".! .LDMFD R|
00003ca0  31 33 21 2c 7b 50 43 7d  0d 21 2a 04 0d 21 34 0d  |13!,{PC}.!*..!4.|
00003cb0  2e 65 78 69 74 5f 68 61  6e 0d 21 3e 14 4c 44 52  |.exit_han.!>.LDR|
00003cc0  20 52 30 2c 77 69 6d 70  5f 6d 6f 64 65 0d 21 48  | R0,wimp_mode.!H|
00003cd0  17 53 57 49 20 22 58 57  69 6d 70 5f 53 65 74 4d  |.SWI "XWimp_SetM|
00003ce0  6f 64 65 22 0d 21 52 0e  4d 4f 56 20 52 30 2c 23  |ode".!R.MOV R0,#|
00003cf0  31 31 0d 21 5c 16 4c 44  52 20 52 31 2c 6f 6c 64  |11.!\.LDR R1,old|
00003d00  5f 68 61 6e 64 6c 65 72  0d 21 66 1f 53 57 49 20  |_handler.!f.SWI |
00003d10  22 58 4f 53 5f 43 68 61  6e 67 65 45 6e 76 69 72  |"XOS_ChangeEnvir|
00003d20  6f 6e 6d 65 6e 74 22 0d  21 70 19 4c 44 52 20 52  |onment".!p.LDR R|
00003d30  30 2c 72 65 67 69 73 74  65 72 5f 63 6f 75 6e 74  |0,register_count|
00003d40  0d 21 7a 11 53 55 42 53  20 52 30 2c 52 30 2c 23  |.!z.SUBS R0,R0,#|
00003d50  31 0d 21 84 19 53 54 52  20 52 30 2c 72 65 67 69  |1.!..STR R0,regi|
00003d60  73 74 65 72 5f 63 6f 75  6e 74 0d 21 8e 13 53 57  |ster_count.!..SW|
00003d70  49 4e 45 20 22 4f 53 5f  45 78 69 74 22 0d 21 98  |INE "OS_Exit".!.|
00003d80  14 41 44 52 20 52 33 2c  6b 69 6c 6c 5f 36 35 30  |.ADR R3,kill_650|
00003d90  32 0d 21 a2 17 53 57 49  20 22 4f 53 5f 45 78 69  |2.!..SWI "OS_Exi|
00003da0  74 41 6e 64 44 69 65 22  0d 21 ac 04 0d 21 b6 0e  |tAndDie".!...!..|
00003db0  2e 6b 69 6c 6c 5f 36 35  30 32 0d 21 c0 19 45 51  |.kill_6502.!..EQ|
00003dc0  55 53 20 22 36 35 30 32  53 75 70 70 6f 72 74 22  |US "6502Support"|
00003dd0  2b bd 30 0d 21 ca 09 41  4c 49 47 4e 0d 21 d4 04  |+.0.!..ALIGN.!..|
00003de0  0d 21 de 0e 2e 77 69 6d  70 5f 6d 6f 64 65 0d 21  |.!...wimp_mode.!|
00003df0  e8 0a 45 51 55 44 20 30  0d 21 f2 10 2e 6f 6c 64  |..EQUD 0.!...old|
00003e00  5f 68 61 6e 64 6c 65 72  0d 21 fc 0a 45 51 55 44  |_handler.!..EQUD|
00003e10  20 30 0d 22 06 04 0d 22  10 0d 2e 72 65 67 69 73  | 0."..."...regis|
00003e20  74 65 72 0d 22 1a 19 4c  44 52 20 52 30 2c 72 65  |ter."..LDR R0,re|
00003e30  67 69 73 74 65 72 5f 63  6f 75 6e 74 0d 22 24 10  |gister_count."$.|
00003e40  41 44 44 20 52 30 2c 52  30 2c 23 31 0d 22 2e 19  |ADD R0,R0,#1."..|
00003e50  53 54 52 20 52 30 2c 72  65 67 69 73 74 65 72 5f  |STR R0,register_|
00003e60  63 6f 75 6e 74 0d 22 38  0e 4d 4f 56 20 50 43 2c  |count."8.MOV PC,|
00003e70  52 31 34 0d 22 42 04 0d  22 4c 09 2e 73 65 72 76  |R14."B.."L..serv|
00003e80  0d 22 56 0f 43 4d 50 20  52 31 2c 23 26 32 37 0d  |."V.CMP R1,#&27.|
00003e90  22 60 10 4d 4f 56 4e 45  20 70 63 2c 52 31 34 0d  |"`.MOVNE pc,R14.|
00003ea0  22 6a 0d 4d 4f 56 20 52  30 2c 23 30 0d 22 74 19  |"j.MOV R0,#0."t.|
00003eb0  53 54 52 20 52 30 2c 72  65 67 69 73 74 65 72 5f  |STR R0,register_|
00003ec0  63 6f 75 6e 74 0d 22 7e  0e 4d 4f 56 20 50 43 2c  |count."~.MOV PC,|
00003ed0  52 31 34 0d 22 88 04 0d  22 92 0f 2e 64 65 72 65  |R14."..."...dere|
00003ee0  67 69 73 74 65 72 0d 22  9c 19 4c 44 52 20 52 30  |gister."..LDR R0|
00003ef0  2c 72 65 67 69 73 74 65  72 5f 63 6f 75 6e 74 0d  |,register_count.|
00003f00  22 a6 10 53 55 42 20 52  30 2c 52 30 2c 23 31 0d  |"..SUB R0,R0,#1.|
00003f10  22 b0 19 53 54 52 20 52  30 2c 72 65 67 69 73 74  |"..STR R0,regist|
00003f20  65 72 5f 63 6f 75 6e 74  0d 22 ba 0e 4d 4f 56 20  |er_count."..MOV |
00003f30  50 43 2c 52 31 34 0d 22  c4 04 0d 22 ce 13 2e 72  |PC,R14."..."...r|
00003f40  65 67 69 73 74 65 72 5f  63 6f 75 6e 74 0d 22 d8  |egister_count.".|
00003f50  0a 45 51 55 44 20 30 0d  22 e2 04 0d 22 ec 0c 2e  |.EQUD 0."..."...|
00003f60  73 77 69 63 6f 64 65 0d  22 f6 27 43 4d 50 20 52  |swicode.".'CMP R|
00003f70  31 31 2c 23 28 45 6e 64  4a 75 6d 70 54 61 62 6c  |11,#(EndJumpTabl|
00003f80  65 2d 4a 75 6d 70 54 61  62 6c 65 29 2f 34 0d 23  |e-JumpTable)/4.#|
00003f90  00 19 41 44 44 43 43 20  50 43 2c 50 43 2c 52 31  |..ADDCC PC,PC,R1|
00003fa0  31 2c 4c 53 4c 23 32 0d  23 0a 10 42 20 55 6e 6b  |1,LSL#2.#..B Unk|
00003fb0  6e 6f 77 6e 53 57 49 0d  23 14 0e 2e 4a 75 6d 70  |nownSWI.#...Jump|
00003fc0  54 61 62 6c 65 0d 23 1e  12 42 20 75 70 64 61 74  |Table.#..B updat|
00003fd0  65 73 63 72 65 65 6e 0d  23 28 13 42 20 75 70 64  |escreen.#(.B upd|
00003fe0  61 74 65 73 63 72 65 65  6e 37 0d 23 32 0a 42 20  |atescreen7.#2.B |
00003ff0  69 6e 69 74 0d 23 3c 10  42 20 67 65 74 6b 65 79  |init.#<.B getkey|
00004000  61 64 64 72 0d 23 46 0e  42 20 67 65 74 6b 64 61  |addr.#F.B getkda|
00004010  74 61 0d 23 50 10 42 20  63 68 65 63 6b 6b 64 61  |ta.#P.B checkkda|
00004020  74 61 0d 23 5a 0e 42 20  72 65 67 69 73 74 65 72  |ta.#Z.B register|
00004030  0d 23 64 10 42 20 64 65  72 65 67 69 73 74 65 72  |.#d.B deregister|
00004040  0d 23 6e 0c 42 20 72 65  69 6e 69 74 0d 23 78 14  |.#n.B reinit.#x.|
00004050  42 20 72 65 61 64 6b 65  79 6d 61 70 61 64 64 72  |B readkeymapaddr|
00004060  0d 23 82 12 42 20 69 6e  73 74 61 6c 6c 5f 65 78  |.#..B install_ex|
00004070  69 74 0d 23 8c 11 42 20  72 65 6d 6f 76 65 5f 65  |it.#..B remove_e|
00004080  78 69 74 0d 23 96 10 42  20 72 65 61 64 73 68 65  |xit.#..B readshe|
00004090  69 6c 61 0d 23 a0 11 42  20 77 72 69 74 65 73 68  |ila.#..B writesh|
000040a0  65 69 6c 61 0d 23 aa 16  42 20 70 6f 6b 65 73 65  |eila.#..B pokese|
000040b0  72 69 61 6c 6e 75 6d 62  65 72 0d 23 b4 0d 42 20  |rialnumber.#..B |
000040c0  67 65 74 73 79 6e 63 0d  23 be 11 42 20 67 65 74  |getsync.#..B get|
000040d0  65 6c 65 63 6b 65 79 73  0d 23 c8 14 42 20 67 65  |eleckeys.#..B ge|
000040e0  74 65 6c 65 63 74 72 6f  6e 6d 61 70 0d 23 d2 11  |telectronmap.#..|
000040f0  2e 45 6e 64 4a 75 6d 70  54 61 62 6c 65 0d 23 dc  |.EndJumpTable.#.|
00004100  0f 2e 55 6e 6b 6e 6f 77  6e 53 57 49 0d 23 e6 12  |..UnknownSWI.#..|
00004110  41 44 52 20 52 30 2c 65  72 72 6d 65 73 73 0d 23  |ADR R0,errmess.#|
00004120  f0 15 84 52 53 20 50 43  2c 52 31 34 2c 23 31 3c  |...RS PC,R14,#1<|
00004130  3c 32 38 0d 23 fa 0c 2e  65 72 72 6d 65 73 73 0d  |<28.#...errmess.|
00004140  24 04 0d 45 51 55 44 20  26 31 45 36 0d 24 0e 25  |$..EQUD &1E6.$.%|
00004150  45 51 55 53 20 22 55 6e  6b 6e 6f 77 6e 20 3c 6d  |EQUS "Unknown <m|
00004160  6f 64 75 6c 65 3e 20 6f  70 65 72 61 74 69 6f 6e  |odule> operation|
00004170  22 0d 24 18 0a 45 51 55  42 20 30 0d 24 22 09 41  |".$..EQUB 0.$".A|
00004180  4c 49 47 4e 0d 24 2c 0d  2e 73 77 69 74 61 62 6c  |LIGN.$,..switabl|
00004190  65 0d 24 36 16 45 51 55  53 20 22 36 35 30 32 22  |e.$6.EQUS "6502"|
000041a0  3a 45 51 55 42 20 30 0d  24 40 1e 45 51 55 53 20  |:EQUB 0.$@.EQUS |
000041b0  22 55 70 64 61 74 65 53  63 72 65 65 6e 22 3a 45  |"UpdateScreen":E|
000041c0  51 55 42 20 30 0d 24 4a  1f 45 51 55 53 20 22 55  |QUB 0.$J.EQUS "U|
000041d0  70 64 61 74 65 53 63 72  65 65 6e 37 22 3a 45 51  |pdateScreen7":EQ|
000041e0  55 42 20 30 0d 24 54 16  45 51 55 53 20 22 49 6e  |UB 0.$T.EQUS "In|
000041f0  69 74 22 3a 45 51 55 42  20 30 0d 24 5e 1c 45 51  |it":EQUB 0.$^.EQ|
00004200  55 53 20 22 47 65 74 6b  65 79 61 64 64 72 22 3a  |US "Getkeyaddr":|
00004210  45 51 55 42 20 30 0d 24  68 1a 45 51 55 53 20 22  |EQUB 0.$h.EQUS "|
00004220  47 65 74 6b 64 61 74 61  22 3a 45 51 55 42 20 30  |Getkdata":EQUB 0|
00004230  0d 24 72 1e 45 51 55 53  20 22 43 68 65 63 6b 6b  |.$r.EQUS "Checkk|
00004240  64 61 74 61 22 3a 45 51  55 42 20 30 20 20 0d 24  |data":EQUB 0  .$|
00004250  7c 1a 45 51 55 53 20 22  52 65 67 69 73 74 65 72  ||.EQUS "Register|
00004260  22 3a 45 51 55 42 20 30  0d 24 86 1c 45 51 55 53  |":EQUB 0.$..EQUS|
00004270  20 22 44 65 52 65 67 69  73 74 65 72 22 3a 45 51  | "DeRegister":EQ|
00004280  55 42 20 30 0d 24 90 18  45 51 55 53 20 22 52 65  |UB 0.$..EQUS "Re|
00004290  49 6e 69 74 22 3a 45 51  55 42 20 30 0d 24 9a 25  |Init":EQUB 0.$.%|
000042a0  45 51 55 53 20 22 52 65  61 64 4b 65 79 4d 61 70  |EQUS "ReadKeyMap|
000042b0  41 64 64 72 65 73 73 22  20 3a 20 45 51 55 42 20  |Address" : EQUB |
000042c0  30 0d 24 a4 26 45 51 55  53 20 22 49 6e 73 74 61  |0.$.&EQUS "Insta|
000042d0  6c 6c 45 78 69 74 48 61  6e 64 6c 65 72 22 20 3a  |llExitHandler" :|
000042e0  20 45 51 55 42 20 30 0d  24 ae 25 45 51 55 53 20  | EQUB 0.$.%EQUS |
000042f0  22 52 65 6d 6f 76 65 45  78 69 74 48 61 6e 64 6c  |"RemoveExitHandl|
00004300  65 72 22 20 3a 20 45 51  55 42 20 30 0d 24 b8 1e  |er" : EQUB 0.$..|
00004310  45 51 55 53 20 22 52 65  61 64 53 68 65 69 6c 61  |EQUS "ReadSheila|
00004320  22 20 3a 20 45 51 55 42  20 30 0d 24 c2 1f 45 51  |" : EQUB 0.$..EQ|
00004330  55 53 20 22 57 72 69 74  65 53 68 65 69 6c 61 22  |US "WriteSheila"|
00004340  20 3a 20 45 51 55 42 20  30 0d 24 cc 19 45 51 55  | : EQUB 0.$..EQU|
00004350  53 20 22 53 6f 75 6e 64  22 20 3a 20 45 51 55 42  |S "Sound" : EQUB|
00004360  20 30 0d 24 d6 1b 45 51  55 53 20 22 47 65 74 53  | 0.$..EQUS "GetS|
00004370  79 6e 63 22 20 3a 20 45  51 55 42 20 30 0d 24 e0  |ync" : EQUB 0.$.|
00004380  23 45 51 55 53 20 22 47  65 74 45 6c 65 63 74 72  |#EQUS "GetElectr|
00004390  6f 6e 4b 65 79 73 22 20  3a 20 45 51 55 42 20 30  |onKeys" : EQUB 0|
000043a0  0d 24 ea 22 45 51 55 53  20 22 47 65 74 45 6c 65  |.$."EQUS "GetEle|
000043b0  63 74 72 6f 6e 4d 61 70  22 20 3a 20 45 51 55 42  |ctronMap" : EQUB|
000043c0  20 30 0d 24 f4 0a 45 51  55 42 20 30 0d 24 fe 09  | 0.$..EQUB 0.$..|
000043d0  41 4c 49 47 4e 0d 25 08  04 0d 25 12 11 2e 73 65  |ALIGN.%...%...se|
000043e0  72 69 61 6c 6e 75 6d 62  65 72 0d 25 1c 11 45 51  |rialnumber.%..EQ|
000043f0  55 53 20 c4 33 30 2c 22  5a 22 29 0d 25 26 04 0d  |US .30,"Z").%&..|
00004400  25 30 04 0d 25 3a 07 5d  3a ed 0d 25 44 38 ff 22  |%0..%:.]:..%D8."|
00004410  4c 6f 61 64 20 3c 36 35  30 32 45 6d 24 44 69 72  |Load <6502Em$Dir|
00004420  3e 2e 53 52 43 2e 72 65  76 74 61 62 6c 65 20 22  |>.SRC.revtable "|
00004430  2b c3 7e 28 63 6f 64 65  2b 72 65 76 74 61 62 6c  |+.~(code+revtabl|
00004440  65 29 0d 25 4e 38 ff 22  4c 6f 61 64 20 3c 36 35  |e).%N8."Load <65|
00004450  30 32 45 6d 24 44 69 72  3e 2e 53 52 43 2e 6d 6f  |02Em$Dir>.SRC.mo|
00004460  64 65 32 74 61 62 20 22  2b c3 7e 28 63 6f 64 65  |de2tab "+.~(code|
00004470  2b 6d 6f 64 65 32 74 61  62 29 0d 25 58 38 ff 22  |+mode2tab).%X8."|
00004480  4c 6f 61 64 20 3c 36 35  30 32 45 6d 24 44 69 72  |Load <6502Em$Dir|
00004490  3e 2e 53 52 43 2e 6d 6f  64 65 31 74 61 62 20 22  |>.SRC.mode1tab "|
000044a0  2b c3 7e 28 63 6f 64 65  2b 6d 6f 64 65 31 74 61  |+.~(code+mode1ta|
000044b0  62 29 0d 25 62 38 ff 22  4c 6f 61 64 20 3c 36 35  |b).%b8."Load <65|
000044c0  30 32 45 6d 24 44 69 72  3e 2e 53 52 43 2e 6d 6f  |02Em$Dir>.SRC.mo|
000044d0  64 65 30 74 61 62 20 22  2b c3 7e 28 63 6f 64 65  |de0tab "+.~(code|
000044e0  2b 6d 6f 64 65 34 74 61  62 29 0d 25 6c 3c ff 22  |+mode4tab).%l<."|
000044f0  4c 6f 61 64 20 3c 36 35  30 32 45 6d 24 44 69 72  |Load <6502Em$Dir|
00004500  3e 2e 53 52 43 2e 6d 6f  64 65 35 74 61 62 20 22  |>.SRC.mode5tab "|
00004510  2b c3 7e 28 63 6f 64 65  2b 6d 6f 64 65 34 74 61  |+.~(code+mode4ta|
00004520  62 2b 35 31 32 29 0d 25  76 34 ff 22 4c 6f 61 64  |b+512).%v4."Load|
00004530  20 3c 36 35 30 32 45 6d  24 44 69 72 3e 2e 53 52  | <6502Em$Dir>.SR|
00004540  43 2e 6b 65 79 6d 61 70  20 22 2b c3 7e 28 63 6f  |C.keymap "+.~(co|
00004550  64 65 2b 6b 65 79 6d 61  70 29 0d 25 77 3a ff 22  |de+keymap).%w:."|
00004560  4c 6f 61 64 20 3c 36 35  30 32 45 6d 24 44 69 72  |Load <6502Em$Dir|
00004570  3e 2e 53 52 43 2e 6b 65  79 6d 61 70 20 22 2b c3  |>.SRC.keymap "+.|
00004580  7e 28 63 6f 64 65 2b 6b  65 79 6d 61 70 5f 73 68  |~(code+keymap_sh|
00004590  69 66 74 29 0d 25 80 04  0d 25 8a 12 f2 65 6c 65  |ift).%...%...ele|
000045a0  63 74 72 6f 6e 5f 6b 65  79 73 0d 25 94 04 0d 25  |ctron_keys.%...%|
000045b0  9e 33 ff 22 53 41 56 45  20 3c 36 35 30 32 45 6d  |.3."SAVE <6502Em|
000045c0  24 52 65 73 3e 2e 36 35  53 75 70 70 6f 72 74 20  |$Res>.65Support |
000045d0  22 2b c3 7e 63 6f 64 65  2b 22 20 22 2b c3 7e 4f  |"+.~code+" "+.~O|
000045e0  25 0d 25 a8 2a 2a 53 45  54 54 59 50 45 20 3c 36  |%.%.**SETTYPE <6|
000045f0  35 30 32 45 6d 24 52 65  73 3e 2e 36 35 53 75 70  |502Em$Res>.65Sup|
00004600  70 6f 72 74 20 4d 4f 44  55 4c 45 0d 25 b2 0d f4  |port MODULE.%...|
00004610  2a 2f 5a 38 30 4d 6f 64  0d 25 bc 05 e0 0d 25 c6  |*/Z80Mod.%....%.|
00004620  04 0d 25 d0 0e dd a4 70  72 69 6e 74 28 52 29 0d  |..%....print(R).|
00004630  25 da 07 ea 49 25 0d 25  e4 09 5b 4f 50 54 70 0d  |%...I%.%..[OPTp.|
00004640  25 ee 13 4d 4f 56 20 52  31 2c 52 2c 52 4f 52 23  |%..MOV R1,R,ROR#|
00004650  32 38 0d 25 f8 05 5d 0d  26 02 0d e3 49 25 3d 30  |28.%..].&...I%=0|
00004660  20 b8 20 37 0d 26 0c 0a  5b 4f 50 54 20 70 0d 26  | . 7.&..[OPT p.&|
00004670  16 0f 80 20 52 30 2c 52  31 2c 23 26 46 0d 26 20  |... R0,R1,#&F.& |
00004680  0e 43 4d 50 20 52 30 2c  23 31 30 0d 26 2a 12 41  |.CMP R0,#10.&*.A|
00004690  44 44 47 45 20 52 30 2c  52 30 2c 23 37 0d 26 34  |DDGE R0,R0,#7.&4|
000046a0  11 41 44 44 20 52 30 2c  52 30 2c 23 34 38 0d 26  |.ADD R0,R0,#48.&|
000046b0  3e 13 53 57 49 20 22 4f  53 5f 57 72 69 74 65 43  |>.SWI "OS_WriteC|
000046c0  22 0d 26 48 14 4d 4f 56  20 52 31 2c 52 31 2c 52  |".&H.MOV R1,R1,R|
000046d0  4f 52 23 32 38 0d 26 52  05 5d 0d 26 5c 05 ed 0d  |OR#28.&R.].&\...|
000046e0  26 66 09 5b 4f 50 54 70  0d 26 70 0c 53 57 49 20  |&f.[OPTp.&p.SWI |
000046f0  26 31 32 30 0d 26 7a 05  5d 0d 26 84 07 3d 22 22  |&120.&z.].&..=""|
00004700  0d 26 8e 04 0d 26 98 10  dd a4 70 72 69 6e 74 34  |.&...&....print4|
00004710  61 28 52 29 0d 26 a2 07  ea 49 25 0d 26 ac 09 5b  |a(R).&...I%.&..[|
00004720  4f 50 54 70 0d 26 b6 13  4d 4f 56 20 52 31 2c 52  |OPTp.&..MOV R1,R|
00004730  2c 52 4f 52 23 32 38 0d  26 c0 05 5d 0d 26 ca 0d  |,ROR#28.&..].&..|
00004740  e3 49 25 3d 30 20 b8 20  33 0d 26 d4 0a 5b 4f 50  |.I%=0 . 3.&..[OP|
00004750  54 20 70 0d 26 de 0f 80  20 52 30 2c 52 31 2c 23  |T p.&... R0,R1,#|
00004760  26 46 0d 26 e8 0e 43 4d  50 20 52 30 2c 23 31 30  |&F.&..CMP R0,#10|
00004770  0d 26 f2 12 41 44 44 47  45 20 52 30 2c 52 30 2c  |.&..ADDGE R0,R0,|
00004780  23 37 0d 26 fc 11 41 44  44 20 52 30 2c 52 30 2c  |#7.&..ADD R0,R0,|
00004790  23 34 38 0d 27 06 13 53  57 49 20 22 4f 53 5f 57  |#48.'..SWI "OS_W|
000047a0  72 69 74 65 43 22 0d 27  10 14 4d 4f 56 20 52 31  |riteC".'..MOV R1|
000047b0  2c 52 31 2c 52 4f 52 23  32 38 0d 27 1a 05 5d 0d  |,R1,ROR#28.'..].|
000047c0  27 24 05 ed 0d 27 2e 09  5b 4f 50 54 70 0d 27 38  |'$...'..[OPTp.'8|
000047d0  0d 3b 53 57 49 20 26 31  32 30 0d 27 42 05 5d 0d  |.;SWI &120.'B.].|
000047e0  27 4c 07 3d 22 22 0d 27  56 04 0d 27 60 0f dd a4  |'L.="".'V..'`...|
000047f0  70 72 69 6e 74 34 28 52  29 0d 27 6a 07 ea 49 25  |print4(R).'j..I%|
00004800  0d 27 74 09 5b 4f 50 54  70 0d 27 7e 13 4d 4f 56  |.'t.[OPTp.'~.MOV|
00004810  20 52 31 2c 52 2c 52 4f  52 23 31 32 0d 27 88 05  | R1,R,ROR#12.'..|
00004820  5d 0d 27 92 0d e3 49 25  3d 30 20 b8 20 33 0d 27  |].'...I%=0 . 3.'|
00004830  9c 0a 5b 4f 50 54 20 70  0d 27 a6 0f 80 20 52 30  |..[OPT p.'... R0|
00004840  2c 52 31 2c 23 26 46 0d  27 b0 0e 43 4d 50 20 52  |,R1,#&F.'..CMP R|
00004850  30 2c 23 31 30 0d 27 ba  12 41 44 44 47 45 20 52  |0,#10.'..ADDGE R|
00004860  30 2c 52 30 2c 23 37 0d  27 c4 11 41 44 44 20 52  |0,R0,#7.'..ADD R|
00004870  30 2c 52 30 2c 23 34 38  0d 27 ce 13 53 57 49 20  |0,R0,#48.'..SWI |
00004880  22 4f 53 5f 57 72 69 74  65 43 22 0d 27 d8 14 4d  |"OS_WriteC".'..M|
00004890  4f 56 20 52 31 2c 52 31  2c 52 4f 52 23 32 38 0d  |OV R1,R1,ROR#28.|
000048a0  27 e2 05 5d 0d 27 ec 05  ed 0d 27 f6 09 5b 4f 50  |'..].'....'..[OP|
000048b0  54 70 0d 28 00 0c 53 57  49 20 26 31 32 30 0d 28  |Tp.(..SWI &120.(|
000048c0  0a 05 5d 0d 28 14 07 3d  22 22 0d 28 1e 04 0d 28  |..].(..="".(...(|
000048d0  28 0f dd a4 70 72 69 6e  74 32 28 52 29 0d 28 32  |(...print2(R).(2|
000048e0  07 ea 49 25 0d 28 3c 09  5b 4f 50 54 70 0d 28 46  |..I%.(<.[OPTp.(F|
000048f0  12 4d 4f 56 20 52 31 2c  52 2c 52 4f 52 23 34 0d  |.MOV R1,R,ROR#4.|
00004900  28 50 05 5d 0d 28 5a 0d  e3 49 25 3d 30 20 b8 20  |(P.].(Z..I%=0 . |
00004910  31 0d 28 64 0a 5b 4f 50  54 20 70 0d 28 6e 0f 80  |1.(d.[OPT p.(n..|
00004920  20 52 30 2c 52 31 2c 23  26 46 0d 28 78 0e 43 4d  | R0,R1,#&F.(x.CM|
00004930  50 20 52 30 2c 23 31 30  0d 28 82 12 41 44 44 47  |P R0,#10.(..ADDG|
00004940  45 20 52 30 2c 52 30 2c  23 37 0d 28 8c 11 41 44  |E R0,R0,#7.(..AD|
00004950  44 20 52 30 2c 52 30 2c  23 34 38 0d 28 96 13 53  |D R0,R0,#48.(..S|
00004960  57 49 20 22 4f 53 5f 57  72 69 74 65 43 22 0d 28  |WI "OS_WriteC".(|
00004970  a0 14 4d 4f 56 20 52 31  2c 52 31 2c 52 4f 52 23  |..MOV R1,R1,ROR#|
00004980  32 38 0d 28 aa 05 5d 0d  28 b4 05 ed 0d 28 be 07  |28.(..].(....(..|
00004990  3d 22 22 0d 28 c8 04 0d  28 d2 10 dd a4 70 72 69  |="".(...(....pri|
000049a0  6e 74 43 52 28 52 29 0d  28 dc 07 ea 49 25 0d 28  |ntCR(R).(...I%.(|
000049b0  e6 09 5b 4f 50 54 70 0d  28 f0 13 4d 4f 56 20 52  |..[OPTp.(..MOV R|
000049c0  31 2c 52 2c 52 4f 52 23  32 38 0d 28 fa 05 5d 0d  |1,R,ROR#28.(..].|
000049d0  29 04 0d e3 49 25 3d 30  20 b8 20 37 0d 29 0e 0a  |)...I%=0 . 7.)..|
000049e0  5b 4f 50 54 20 70 0d 29  18 0f 80 20 52 30 2c 52  |[OPT p.)... R0,R|
000049f0  31 2c 23 26 46 0d 29 22  0e 43 4d 50 20 52 30 2c  |1,#&F.)".CMP R0,|
00004a00  23 31 30 0d 29 2c 12 41  44 44 47 45 20 52 30 2c  |#10.),.ADDGE R0,|
00004a10  52 30 2c 23 37 0d 29 36  11 41 44 44 20 52 30 2c  |R0,#7.)6.ADD R0,|
00004a20  52 30 2c 23 34 38 0d 29  40 13 53 57 49 20 22 4f  |R0,#48.)@.SWI "O|
00004a30  53 5f 57 72 69 74 65 43  22 0d 29 4a 14 4d 4f 56  |S_WriteC".)J.MOV|
00004a40  20 52 31 2c 52 31 2c 52  4f 52 23 32 38 0d 29 54  | R1,R1,ROR#28.)T|
00004a50  05 5d 0d 29 5e 05 ed 0d  29 68 0a 5b 4f 50 54 20  |.].)^...)h.[OPT |
00004a60  70 0d 29 72 0e 4d 4f 56  20 52 30 2c 23 31 30 0d  |p.)r.MOV R0,#10.|
00004a70  29 7c 13 53 57 49 20 22  4f 53 5f 57 72 69 74 65  |)|.SWI "OS_Write|
00004a80  43 22 0d 29 86 0e 4d 4f  56 20 52 30 2c 23 31 33  |C".)..MOV R0,#13|
00004a90  0d 29 90 13 53 57 49 20  22 4f 53 5f 57 72 69 74  |.)..SWI "OS_Writ|
00004aa0  65 43 22 0d 29 9a 05 5d  0d 29 a4 07 3d 22 22 0d  |eC".)..].)..="".|
00004ab0  29 ae 04 0d 29 b8 10 dd  a4 70 72 69 6e 74 73 28  |)...)....prints(|
00004ac0  41 24 29 0d 29 c2 09 5b  4f 50 54 70 0d 29 cc 13  |A$).)..[OPTp.)..|
00004ad0  53 57 49 20 22 4f 53 5f  57 72 69 74 65 53 22 0d  |SWI "OS_WriteS".|
00004ae0  29 d6 0b 45 51 55 53 20  41 24 0d 29 e0 0b 45 51  |)..EQUS A$.)..EQ|
00004af0  55 42 20 31 30 0d 29 ea  0b 45 51 55 42 20 31 33  |UB 10.)..EQUB 13|
00004b00  0d 29 f4 0a 45 51 55 42  20 30 0d 29 fe 09 41 4c  |.)..EQUB 0.)..AL|
00004b10  49 47 4e 0d 2a 08 05 5d  0d 2a 12 07 3d 22 22 0d  |IGN.*..].*..="".|
00004b20  2a 1c 04 0d 2a 26 11 dd  a4 70 72 69 6e 74 6e 6f  |*...*&...printno|
00004b30  28 48 25 29 0d 2a 30 09  5b 4f 50 54 70 0d 2a 3a  |(H%).*0.[OPTp.*:|
00004b40  0e 2e 70 72 69 6e 74 28  48 25 29 0d 2a 44 1a 53  |..print(H%).*D.S|
00004b50  57 49 20 28 26 31 30 30  2b 97 28 c0 c3 7e 48 25  |WI (&100+.(..~H%|
00004b60  2c 31 29 29 29 0d 2a 4e  1a 53 57 49 20 28 26 31  |,1))).*N.SWI (&1|
00004b70  30 30 2b 97 28 c2 c3 7e  48 25 2c 31 29 29 29 0d  |00+.(..~H%,1))).|
00004b80  2a 58 0e a4 66 65 74 63  68 32 28 31 29 0d 2a 62  |*X..fetch2(1).*b|
00004b90  05 5d 0d 2a 6c 07 3d 22  22 0d 2a 76 04 0d 2a 80  |.].*l.="".*v..*.|
00004ba0  11 dd a4 70 72 69 6e 74  62 69 6e 28 52 29 0d 2a  |...printbin(R).*|
00004bb0  8a 09 5b 4f 50 54 70 0d  2a 94 14 4d 4f 56 53 20  |..[OPTp.*..MOVS |
00004bc0  52 30 2c 52 2c 4c 53 4c  23 32 35 0d 2a 9e 0e 53  |R0,R,LSL#25.*..S|
00004bd0  57 49 43 43 20 26 31 33  30 0d 2a a8 0e 53 57 49  |WICC &130.*..SWI|
00004be0  43 53 20 26 31 33 31 0d  2a b2 14 4d 4f 56 53 20  |CS &131.*..MOVS |
00004bf0  52 30 2c 52 30 2c 4c 53  4c 23 31 0d 2a bc 0e 53  |R0,R0,LSL#1.*..S|
00004c00  57 49 43 43 20 26 31 33  30 0d 2a c6 0e 53 57 49  |WICC &130.*..SWI|
00004c10  43 53 20 26 31 33 31 0d  2a d0 14 4d 4f 56 53 20  |CS &131.*..MOVS |
00004c20  52 30 2c 52 30 2c 4c 53  4c 23 31 0d 2a da 0e 53  |R0,R0,LSL#1.*..S|
00004c30  57 49 43 43 20 26 31 33  30 0d 2a e4 0e 53 57 49  |WICC &130.*..SWI|
00004c40  43 53 20 26 31 33 31 0d  2a ee 14 4d 4f 56 53 20  |CS &131.*..MOVS |
00004c50  52 30 2c 52 30 2c 4c 53  4c 23 31 0d 2a f8 0e 53  |R0,R0,LSL#1.*..S|
00004c60  57 49 43 43 20 26 31 33  30 0d 2b 02 0e 53 57 49  |WICC &130.+..SWI|
00004c70  43 53 20 26 31 33 31 0d  2b 0c 14 4d 4f 56 53 20  |CS &131.+..MOVS |
00004c80  52 30 2c 52 30 2c 4c 53  4c 23 31 0d 2b 16 0e 53  |R0,R0,LSL#1.+..S|
00004c90  57 49 43 43 20 26 31 33  30 0d 2b 20 0e 53 57 49  |WICC &130.+ .SWI|
00004ca0  43 53 20 26 31 33 31 0d  2b 2a 14 4d 4f 56 53 20  |CS &131.+*.MOVS |
00004cb0  52 30 2c 52 30 2c 4c 53  4c 23 31 0d 2b 34 0e 53  |R0,R0,LSL#1.+4.S|
00004cc0  57 49 43 43 20 26 31 33  30 0d 2b 3e 0e 53 57 49  |WICC &130.+>.SWI|
00004cd0  43 53 20 26 31 33 31 0d  2b 48 14 4d 4f 56 53 20  |CS &131.+H.MOVS |
00004ce0  52 30 2c 52 30 2c 4c 53  4c 23 31 0d 2b 52 0e 53  |R0,R0,LSL#1.+R.S|
00004cf0  57 49 43 43 20 26 31 33  30 0d 2b 5c 0e 53 57 49  |WICC &130.+\.SWI|
00004d00  43 53 20 26 31 33 31 0d  2b 66 14 4d 4f 56 53 20  |CS &131.+f.MOVS |
00004d10  52 30 2c 52 30 2c 4c 53  4c 23 31 0d 2b 70 0e 53  |R0,R0,LSL#1.+p.S|
00004d20  57 49 43 43 20 26 31 33  30 0d 2b 7a 0e 53 57 49  |WICC &130.+z.SWI|
00004d30  43 53 20 26 31 33 31 0d  2b 84 0c 53 57 49 20 26  |CS &131.+..SWI &|
00004d40  31 30 41 0d 2b 8e 0c 53  57 49 20 26 31 30 44 0d  |10A.+..SWI &10D.|
00004d50  2b 98 05 5d 0d 2b a2 07  3d 22 22 0d 2b ac 04 0d  |+..].+..="".+...|
00004d60  2b b6 13 dd f2 65 6c 65  63 74 72 6f 6e 5f 6b 65  |+....electron_ke|
00004d70  79 73 0d 2b c0 17 41 25  3d 65 6c 65 63 74 72 6f  |ys.+..A%=electro|
00004d80  6e 6d 61 70 2b 63 6f 64  65 0d 2b ca 04 0d 2b d4  |nmap+code.+...+.|
00004d90  14 e3 49 25 3d 30 20 b8  20 31 30 32 33 20 88 20  |..I%=0 . 1023 . |
00004da0  34 0d 2b de 0d 41 25 21  49 25 3d 26 46 46 0d 2b  |4.+..A%!I%=&FF.+|
00004db0  e8 05 ed 0d 2b f2 04 0d  2b fc 05 f5 0d 2c 06 0e  |....+...+....,..|
00004dc0  f3 20 58 25 2c 59 25 2c  5a 25 0d 2c 10 0e 78 25  |. X%,Y%,Z%.,..x%|
00004dd0  3d 58 25 20 81 20 31 36  0d 2c 1a 17 58 25 3d 28  |=X% . 16.,..X%=(|
00004de0  58 25 2a 31 36 2b 78 25  29 20 80 20 26 46 46 0d  |X%*16+x%) . &FF.|
00004df0  2c 24 18 41 25 21 28 58  25 2a 34 29 3d 28 59 25  |,$.A%!(X%*4)=(Y%|
00004e00  3c 3c 38 29 2b 5a 25 0d  2c 2e 1e fd 20 58 25 3d  |<<8)+Z%.,... X%=|
00004e10  26 46 46 20 80 20 5a 25  3d 26 46 46 20 80 20 59  |&FF . Z%=&FF . Y|
00004e20  25 3d 26 46 46 0d 2c 38  04 0d 2c 42 05 e1 0d 2c  |%=&FF.,8..,B...,|
00004e30  4c 1d f4 20 69 6e 74 65  72 6e 61 6c 20 6b 65 79  |L.. internal key|
00004e40  2c 72 6f 77 2c 63 6f 6c  75 6d 6e 0d 2c 56 04 0d  |,row,column.,V..|
00004e50  2c 60 19 dc 20 30 2c 30  2c 31 33 20 3a 20 52 45  |,`.. 0,0,13 : RE|
00004e60  4d 20 45 73 63 61 70 65  0d 2c 6a 0c dc 20 31 2c  |M Escape.,j.. 1,|
00004e70  30 2c 31 33 0d 2c 74 04  0d 2c 7e 0e dc 20 26 31  |0,13.,t..,~.. &1|
00004e80  31 2c 30 2c 31 32 0d 2c  88 0e dc 20 26 32 31 2c  |1,0,12.,... &21,|
00004e90  30 2c 31 31 0d 2c 92 0e  dc 20 26 33 31 2c 30 2c  |0,11.,... &31,0,|
00004ea0  31 30 0d 2c 9c 0d dc 20  26 34 31 2c 30 2c 39 0d  |10.,... &41,0,9.|
00004eb0  2c a6 0d dc 20 26 35 31  2c 30 2c 38 0d 2c b0 0d  |,... &51,0,8.,..|
00004ec0  dc 20 26 36 31 2c 30 2c  37 0d 2c ba 0d dc 20 26  |. &61,0,7.,... &|
00004ed0  37 31 2c 30 2c 36 0d 2c  c4 0d dc 20 26 38 31 2c  |71,0,6.,... &81,|
00004ee0  30 2c 35 0d 2c ce 0d dc  20 26 39 31 2c 30 2c 34  |0,5.,... &91,0,4|
00004ef0  0d 2c d8 0d dc 20 26 41  31 2c 30 2c 33 0d 2c e2  |.,... &A1,0,3.,.|
00004f00  0d dc 20 26 42 31 2c 30  2c 32 0d 2c ec 04 0d 2c  |.. &B1,0,2.,...,|
00004f10  f6 18 dc 20 26 43 31 2c  30 2c 31 20 3a 20 52 45  |... &C1,0,1 : RE|
00004f20  4d 20 4c 65 66 74 0d 2d  00 0d dc 20 26 32 36 2c  |M Left.-... &26,|
00004f30  30 2c 31 0d 2d 0a 04 0d  2d 14 19 dc 20 26 44 31  |0,1.-...-... &D1|
00004f40  2c 30 2c 30 20 3a 20 52  45 4d 20 52 69 67 68 74  |,0,0 : REM Right|
00004f50  0d 2d 1e 0d dc 20 26 34  36 2c 30 2c 30 0d 2d 28  |.-... &46,0,0.-(|
00004f60  04 0d 2d 32 1d dc 20 26  45 31 2c 33 2c 31 20 3a  |..-2.. &E1,3,1 :|
00004f70  20 52 45 4d 20 62 61 63  6b 73 70 61 63 65 0d 2d  | REM backspace.-|
00004f80  3c 04 0d 2d 46 23 dc 20  26 36 32 2c 31 2c 31 33  |<..-F#. &62,1,13|
00004f90  20 3a 20 52 45 4d 20 43  61 70 73 20 4c 6f 63 6b  | : REM Caps Lock|
00004fa0  2f 46 75 6e 63 0d 2d 50  0e dc 20 26 44 35 2c 31  |/Func.-P.. &D5,1|
00004fb0  2c 31 33 0d 2d 5a 04 0d  2d 64 0e dc 20 26 37 32  |,13.-Z..-d.. &72|
00004fc0  2c 31 2c 31 32 0d 2d 6e  0e dc 20 26 38 32 2c 31  |,1,12.-n.. &82,1|
00004fd0  2c 31 31 0d 2d 78 0e dc  20 26 39 32 2c 31 2c 31  |,11.-x.. &92,1,1|
00004fe0  30 0d 2d 82 0d dc 20 26  41 32 2c 31 2c 39 0d 2d  |0.-... &A2,1,9.-|
00004ff0  8c 0d dc 20 26 42 32 2c  31 2c 38 0d 2d 96 0d dc  |... &B2,1,8.-...|
00005000  20 26 43 32 2c 31 2c 37  0d 2d a0 0d dc 20 26 44  | &C2,1,7.-... &D|
00005010  32 2c 31 2c 36 0d 2d aa  0d dc 20 26 45 32 2c 31  |2,1,6.-... &E2,1|
00005020  2c 35 0d 2d b4 15 dc 20  26 46 32 2c 31 2c 34 20  |,5.-... &F2,1,4 |
00005030  3a 20 52 45 4d 20 4f 0d  2d be 04 0d 2d c8 15 dc  |: REM O.-...-...|
00005040  20 26 30 33 2c 31 2c 33  20 3a 20 52 45 4d 20 50  | &03,1,3 : REM P|
00005050  0d 2d d2 04 0d 2d dc 16  dc 20 26 31 33 2c 31 2c  |.-...-... &13,1,|
00005060  32 20 3a 20 52 45 4d 20  55 70 0d 2d e6 0d dc 20  |2 : REM Up.-... |
00005070  26 39 35 2c 31 2c 32 0d  2d f0 04 0d 2d fa 18 dc  |&95,1,2.-...-...|
00005080  20 26 32 33 2c 31 2c 31  20 3a 20 52 45 4d 20 44  | &23,1,1 : REM D|
00005090  6f 77 6e 0d 2e 04 0d dc  20 26 33 36 2c 31 2c 31  |own..... &36,1,1|
000050a0  0d 2e 0e 04 0d 2e 18 18  dc 20 26 33 33 2c 31 2c  |......... &33,1,|
000050b0  30 20 3a 20 52 45 4d 20  43 6f 70 79 0d 2e 22 0d  |0 : REM Copy..".|
000050c0  dc 20 26 35 33 2c 31 2c  30 0d 2e 2c 04 0d 2e 36  |. &53,1,0..,...6|
000050d0  19 dc 20 26 42 33 2c 32  2c 31 33 20 3a 20 52 45  |.. &B3,2,13 : RE|
000050e0  4d 20 43 74 72 6c 0d 2e  40 0e dc 20 26 31 36 2c  |M Ctrl..@.. &16,|
000050f0  32 2c 31 33 0d 2e 4a 04  0d 2e 54 0e dc 20 26 43  |2,13..J...T.. &C|
00005100  33 2c 32 2c 31 32 0d 2e  5e 0e dc 20 26 44 33 2c  |3,2,12..^.. &D3,|
00005110  32 2c 31 31 0d 2e 68 0e  dc 20 26 45 33 2c 32 2c  |2,11..h.. &E3,2,|
00005120  31 30 0d 2e 72 16 dc 20  26 46 33 2c 32 2c 39 20  |10..r.. &F3,2,9 |
00005130  20 3a 20 52 45 4d 20 46  0d 2e 7c 04 0d 2e 86 16  | : REM F..|.....|
00005140  dc 20 26 30 34 2c 32 2c  38 20 20 3a 20 52 45 4d  |. &04,2,8  : REM|
00005150  20 47 0d 2e 90 0d dc 20  26 31 34 2c 32 2c 37 0d  | G..... &14,2,7.|
00005160  2e 9a 0d dc 20 26 32 34  2c 32 2c 36 0d 2e a4 0d  |.... &24,2,6....|
00005170  dc 20 26 33 34 2c 32 2c  35 0d 2e ae 0d dc 20 26  |. &34,2,5..... &|
00005180  34 34 2c 32 2c 34 0d 2e  b8 0d dc 20 26 35 34 2c  |44,2,4..... &54,|
00005190  32 2c 33 0d 2e c2 0d dc  20 26 36 34 2c 32 2c 32  |2,3..... &64,2,2|
000051a0  0d 2e cc 1a dc 20 26 37  34 2c 32 2c 31 20 3a 20  |..... &74,2,1 : |
000051b0  52 45 4d 20 72 65 74 75  72 6e 0d 2e d6 04 0d 2e  |REM return......|
000051c0  e0 1a dc 20 26 43 34 2c  33 2c 31 33 20 3a 20 52  |... &C4,3,13 : R|
000051d0  45 4d 20 73 68 69 66 74  0d 2e ea 16 dc 20 26 45  |EM shift..... &E|
000051e0  34 2c 33 2c 31 32 20 3a  20 52 45 4d 20 5a 0d 2e  |4,3,12 : REM Z..|
000051f0  f4 16 dc 20 26 46 34 2c  33 2c 31 31 20 3a 20 52  |... &F4,3,11 : R|
00005200  45 4d 20 58 0d 2e fe 04  0d 2f 08 16 dc 20 26 30  |EM X...../... &0|
00005210  35 2c 33 2c 31 30 20 3a  20 52 45 4d 20 43 0d 2f  |5,3,10 : REM C./|
00005220  12 0d dc 20 26 31 35 2c  33 2c 39 0d 2f 1c 0d dc  |... &15,3,9./...|
00005230  20 26 32 35 2c 33 2c 38  0d 2f 26 0d dc 20 26 33  | &25,3,8./&.. &3|
00005240  35 2c 33 2c 37 0d 2f 30  0d dc 20 26 34 35 2c 33  |5,3,7./0.. &45,3|
00005250  2c 36 0d 2f 3a 0d dc 20  26 35 35 2c 33 2c 35 0d  |,6./:.. &55,3,5.|
00005260  2f 44 0d dc 20 26 36 35  2c 33 2c 34 0d 2f 4e 0d  |/D.. &65,3,4./N.|
00005270  dc 20 26 37 35 2c 33 2c  33 0d 2f 58 1a dc 20 26  |. &75,3,3./X.. &|
00005280  38 35 2c 33 2c 31 33 20  3a 20 52 45 4d 20 73 68  |85,3,13 : REM sh|
00005290  69 66 74 0d 2f 62 1a dc  20 26 34 33 2c 33 2c 31  |ift./b.. &43,3,1|
000052a0  20 3a 20 52 45 4d 20 44  65 6c 65 74 65 0d 2f 6c  | : REM Delete./l|
000052b0  19 dc 20 26 46 35 2c 33  2c 30 20 3a 20 52 45 4d  |.. &F5,3,0 : REM|
000052c0  20 53 70 61 63 65 0d 2f  76 04 0d 2f 80 11 dc 20  | Space./v../... |
000052d0  26 46 46 2c 26 46 46 2c  26 46 46 0d 2f 8a 04 0d  |&FF,&FF,&FF./...|
000052e0  2f 94 11 dd 20 a4 61 64  72 28 73 25 2c 78 25 29  |/... .adr(s%,x%)|
000052f0  0d 2f 9e 36 f4 20 54 68  65 20 69 6e 73 74 72 75  |./.6. The instru|
00005300  63 74 69 6f 6e 20 73 65  71 75 65 6e 63 65 20 6d  |ction sequence m|
00005310  75 73 74 20 62 65 20 6f  66 20 46 49 58 45 44 20  |ust be of FIXED |
00005320  6c 65 6e 67 74 68 0d 2f  a8 0e 61 25 3d 78 25 2d  |length./..a%=x%-|
00005330  50 25 2d 38 0d 2f b2 0f  e7 20 28 70 20 80 20 32  |P%-8./... (p . 2|
00005340  29 20 8c 0d 2f bc 0e 20  e7 20 61 25 3e 3d 30 20  |) ../.. . a%>=0 |
00005350  8c 0d 2f c6 0c 20 20 5b  4f 50 54 20 70 0d 2f d0  |../..  [OPT p./.|
00005360  22 20 20 20 41 44 44 20  73 25 2c 50 43 2c 23 28  |"   ADD s%,PC,#(|
00005370  61 25 20 80 20 26 30 30  30 30 30 33 46 43 29 0d  |a% . &000003FC).|
00005380  2f da 22 20 20 20 41 44  44 20 73 25 2c 73 25 2c  |/."   ADD s%,s%,|
00005390  23 28 61 25 20 80 20 26  46 46 46 46 46 43 30 30  |#(a% . &FFFFFC00|
000053a0  29 0d 2f e4 07 20 20 5d  0d 2f ee 06 20 cc 0d 2f  |)./..  ]./.. ../|
000053b0  f8 0c 20 20 61 25 3d 2d  61 25 0d 30 02 0c 20 20  |..  a%=-a%.0..  |
000053c0  5b 4f 50 54 20 70 0d 30  0c 22 20 20 20 53 55 42  |[OPT p.0."   SUB|
000053d0  20 73 25 2c 50 43 2c 23  28 61 25 20 80 20 26 30  | s%,PC,#(a% . &0|
000053e0  30 30 30 30 33 46 43 29  0d 30 16 22 20 20 20 53  |00003FC).0."   S|
000053f0  55 42 20 73 25 2c 73 25  2c 23 28 61 25 20 80 20  |UB s%,s%,#(a% . |
00005400  26 46 46 46 46 46 43 30  30 29 0d 30 20 07 20 20  |&FFFFFC00).0 .  |
00005410  5d 0d 30 2a 06 20 cd 0d  30 34 05 cc 0d 30 3e 10  |].0*. ..04...0>.|
00005420  20 50 25 2b 3d 38 3a 4f  25 2b 3d 38 0d 30 48 05  | P%+=8:O%+=8.0H.|
00005430  cd 0d 30 52 07 3d 22 22  0d ff                    |..0R.=""..|
0000543a