� > Screen

ݤscreen
(
2� electron% �
<screen_mask%=%111111
Fscreen_shift%=1
P�
Zscreen_mask%=%11111
dscreen_shift%=3
n�
x
�	[OPTp
�
�	.strb
�!.strb3000 ; greater than 3000
�CMP R1,#&8000
�BGE strb8000
�
�.update_pixel
�(.strb_screen ; between 3000 and 8000
�
�]
�� master �
�	[OPTp



LDRB R12,[mem,#ACCCON]



"CMP zpc,#&C000 << 16

,MOVLT R13,R12,LSR#1

6MOVGE R13,R12

@CMP zpc,#&E000 << 16

J5MOVGE R13,R12,LSR#1    ; now bit 1 of R13 is what

T,                       ; we must look at

^

_;CMP zpc,#&C000 << 16

`;MOVLT R13,#0

a;�GE R13,R12,R12,LSR#1

b;CMP zpc,#&E000 << 16

c,;MOVGE R13,#0 ; now look at bit 1 of R13

d

h;TST R13,#%10

r8;SUBNE R2,mem,#(&3000+&10000) ; shadow screen memory

|;STRNEB R0,[R2,R1]

�;STREQB R0,[mem,R1]

�

�MOV R2,#pagetable

�LDRB R2,[R2,R1,LSR#12]

�TST R13,#%10

�MOVNE R2,#&8D

�STRB R0,[R1,R2,LSL#12]

�

�� R12,R12,R13,LSR#1

�?TST R12,#%1           ; are we writing to displayed memory?

�MOVNE PC,R14

�CMP R1,F,LSR#16 ; wrap_addr

�MOVLT PC,R14

�]

��

�	[OPTp

�STRB R0,[mem,R1]

�]

��

� electron% �
	[OPTp
&TST F,#1 << 12
0MOVNE PC,R14 ; "mode 7"
:]
D�
N	[OPTp
XLDRB R12,[mem,#crt_regs+3]
bTST R12,#1 << 4
lTSTNE R1,#%100
vMOVNE PC,R14 ; fortress
�]
��
�
�	[OPTp
�LDRB R12,[mem,#crt_regs+13]
�LDRB R2,[mem,#crt_regs+12]
�� R2,R2,#%111111
�ADD R12,R12,R2,LSL#8
�]
�+� electron% � [OPTp:MOV R12,R12,LSR#2:]
�	[OPTp
�;MOV R12,R12,LSL#3
�

3SUBS R1,R1,R12,LSL#3         ; addr-screenstart
BGE wrap_skip2
 ;LDR R13,wrap_addr
*ADD R1,R1,#&8000
4#SUBS R1,R1,F,LSR#16 ; wrap_addr
>MOVMI PC,R14
H.wrap_skip2
R
\-LDRB R12,[mem,#crt_regs+1] ; horiz. chars
f,LDRB R13,[mem,#crt_regs+6] ; vert. chars
pMUL R13,R12,R13
z#MOV R13,R13,LSL#3 ; screen size
�CMP R1,R13
�MOVGE PC,R14
�STR R14,[mem,#scratch]
�;RJW was here...
�STR R1,[mem,#scratch+4]
�� R14,R1,#%111
�MOV R1,R1,LSR#3
�
�CMP   R1,R12,LSL#7
�SUBGE R1,R1,R12,LSL#7
�ADDGE R14,R14,#1<<10
�
�CMP   R1,R12,LSL#6
SUBGE R1,R1,R12,LSL#6
ADDGE R14,R14,#1<<9

$CMP   R1,R12,LSL#5
.SUBGE R1,R1,R12,LSL#5
8ADDGE R14,R14,#1<<8
B
LCMP   R1,R12,LSL#4
VSUBGE R1,R1,R12,LSL#4
`ADDGE R14,R14,#1<<7
j
tCMP   R1,R12,LSL#3
~SUBGE R1,R1,R12,LSL#3
�ADDGE R14,R14,#1<<6
�
�CMP   R1,R12,LSL#2
�SUBGE R1,R1,R12,LSL#2
�ADDGE R14,R14,#1<<5
�
�CMP   R1,R12,LSL#1
�SUBGE R1,R1,R12,LSL#1
�ADDGE R14,R14,#1<<4
�
�CMP   R1,R12
�SUBGE R1,R1,R12
ADDGE R14,R14,#1<<3


;LDR R12,[mem,#patch_on]
;CMP R12,#0 : ;BNE patch
(3TST F,#1 << 8 : BNE patch_pixel2 ; patch_pixel2
2
<; RJW was here (twice)
FLDRB R12,[mem,#fe20]
PMOVS R12,R12,ASR#2
Z"; I assume Prob(CC) > Proc(CS)
dLDRCC PC,updatepixelV
nMOV PC,R14
x
�.patch_pixel2
�ADR R13,patch_exit2
�B patch_pixel
�
�.poke_updatepixelV
�LDRB R12,[mem,#fe20]
�
�� R12,R12,#7<<2
�ADR R2,uptab
�LDR R12,[R2,R12]
�ADD R2,R2,R12
�STR R2,updatepixelV
�MOV PC,R14

.patch_exit2
B updatepixel1 ; hack
"
,
.uptab
6#EQUD updatepixel4-uptab ;000 00
@#EQUD updatepixel5-uptab ;001 00
J#EQUD updatepixel4-uptab ;010 00
T#EQUD updatepixel0-uptab ;011 00
^#EQUD updatepixel1-uptab ;100 00
h#EQUD updatepixel2-uptab ;101 00
r#EQUD updatepixel1-uptab ;110 00
|#EQUD updatepixel0-uptab ;111 00
�
�.updatepixelV
�
EQUD 0
�
�.updatepixel0
�
�; RJW was here
�ADD R14,R14,R14,LSL#2 ;
�
�7ADD R14,R1,R14,LSL#4 ; offset in arc screen of byte
�
�ADR R13,mode0tab
�,LDR R0,[R13,R0] ; load 1 byte from table

"LDR R13,[mem,#arc_screenstart]
STRB R0,[R13,R14]
&LDR PC,[mem,#scratch]
0
:
.mode0tab
D]
NP%+=256
XO%+=256
b	[OPTp
l.updatescreen0
vLDRB R0,[mem,#lastmode]
�CMP R0,#99
�BEQ skip_mode0
�SWI &116
�SWI &100 ; � 0
��pointer_on
�SWI "OS_RemoveCursors"
�(MOV R0,#99 : STRB R0,[mem,#lastmode]
�.skip_mode0
�
�;LDR R6,crt_regs_addr
�SUB R6,mem,#-crt_regs
�LDRB R7,[R6,#13]
�LDRB R2,[R6,#12]
� R2,R2,#screen_mask%
ADD R7,R7,R2,LSL#8
MOV R7,R7,LSL#screen_shift%
 
*
4�shadow
>
HADR R8,mode0tab
R'LDRB R2,[R6,#1] ; no of horiz chars
\LDRB R11,[R6,#6]
fMUL R4,R2,R11
p
zADD R7,R7,R13
�ADD R11,R13,#&8000
�ADD R12,R12,R13
�
�
.loop2
�
.loop1
�
�@;RJW; Optimised this to save time, at the expense of R10,R14
�LDMIA R7!,{R0,R14}
�� R10,R14,#&FF
�LDRB R5,[R8,R10]
�STRB R5,[R9,#80*4]
�� R10,R14,#&FF00
�LDRB R5,[R8,R10,LSR#8]
	STRB R5,[R9,#80*5]
	� R10,R14,#&FF0000
	LDRB R5,[R8,R10,LSR#16]
	$STRB R5,[R9,#80*6]
	.LDRB R5,[R8,R14,LSR#24]
	8STRB R5,[R9,#80*7]
	B
	L� R10,R0,#&FF00
	VLDRB R5,[R8,R10,LSR#8]
	`STRB R5,[R9,#80]
	j� R10,R0,#&FF0000
	tLDRB R5,[R8,R10,LSR#16]
	~STRB R5,[R9,#80*2]
	�LDRB R5,[R8,R0,LSR#24]
	�STRB R5,[R9,#80*3]
	�� R10,R0,#&FF
	�LDRB R5,[R8,R10]
	�STRB R5,[R9],#1
	�
	�CMP R7,R11 : �Q R7,R12
	�
	�(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


(LDMEA mem,{R4-R11,PC}^
2
<
F.updatepixel1
P
Z;RJW was here
dADD R14,R14,R14,LSL#2 ;
n
x7ADD R14,R1,R14,LSL#4 ; offset in arc screen of byte
�
�ADR R13,mode1tab
�,LDR R0,[R13,R0] ; load 1 byte from table
�
�"LDR R13,[mem,#arc_screenstart]
�STRB R0,[R13,R14]
�LDR PC,[mem,#scratch]
�
�
.mode1tab
�]
�P%+=256
�O%+=256
�	[OPTp

.updatescreen1

"LDRB R0,[mem,#lastmode]
,
CMP R0,#1
6BEQ skip_mode1
@SWI &116
JSWI &101 ; � 1
T�pointer_on
^SWI "OS_RemoveCursors"
h'MOV R0,#1 : STRB R0,[mem,#lastmode]
r.skip_mode1
|
�;LDR R6,crt_regs_addr
�SUB R6,mem,#-crt_regs
�LDRB R7,[R6,#13]
�LDRB R2,[R6,#12]
�� R2,R2,#screen_mask%
�ADD R7,R7,R2,LSL#8
�MOV R7,R7,LSL#screen_shift%
�
��shadow
�
�ADR R8,mode1tab
�'LDRB R2,[R6,#1] ; no of horiz chars
�LDRB R11,[R6,#6]
MUL R4,R2,R11
MOV R4,R4,LSL#3

&ADD R7,R7,R13
0ADD R11,R13,#&8000
:ADD R12,R12,R13
D
N;MOV R4,R2,LSL#8
X;MOV R4,#&5000
b
.loop2
l;MOV R2,#80
v
.loop1
�
�9;RJW;Optimised to improve speed at expense of R10,R14
�LDMIA R7!,{R10,R14}
�� R0,R14,#&FF
�LDRB R5,[R8,R0]
�STRB R5,[R9,#80*4]
�� R0,R14,#&FF00
�LDRB R5,[R8,R0,LSR#8]
�STRB R5,[R9,#80*5]
�� R0,R14,#&FF0000
�LDRB R5,[R8,R0,LSR#16]
�STRB R5,[R9,#80*6]
�LDRB R5,[R8,R14,LSR#24]

STRB R5,[R9,#80*7]



� R0,R10,#&FF00

 LDRB R5,[R8,R0,LSR#8]

*STRB R5,[R9,#80]

4� R0,R10,#&FF0000

>LDRB R5,[R8,R0,LSR#16]

HSTRB R5,[R9,#80*2]

RLDRB R5,[R8,R10,LSR#24]

\STRB R5,[R9,#80*3]

f� R0,R10,#&FF

pLDRB R5,[R8,R0]

zSTRB R5,[R9],#1

�

�CMP R7,R11 : �Q R7,R12

�

�(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

�

�LDMEA mem,{R4-R11,PC}^

�
.updatepixel2

; RJW was here
$#ADD R14,R14,R14,LSL#2 ; R14 * 5
.
87ADD R14,R1,R14,LSL#4 ; offset in arc screen of byte
B
LADR R13,mode2tab
V3LDR R0,[R13,R0,LSL#2] ; load 4 bytes from table
`
j"LDR R13,[mem,#arc_screenstart]
tSTR R0,[R13,R14,LSL#2]
~;MOV R0,R0,LSR#8
�;ADD R14,R14,#1
�;STRB R0,[R13,R14]
�LDR PC,[mem,#scratch]
�
�
�
;.scratch
�;EQUD 0
�;EQUD 0
�;EQUD 0
�;EQUD 0
�
�
;.wrap_addr

;EQUD &4000

.updatescreen2
(LDRB R0,[mem,#lastmode]
2CMP R0,#12
<BEQ skip_mode2
FSWI &116
PSWI &100+12 ; � 12
Z�pointer_on
dSWI "OS_RemoveCursors"
n(MOV R0,#12 : STRB R0,[mem,#lastmode]
x.skip_mode2
�
�;LDR R6,crt_regs_addr
�SUB R6,mem,#-crt_regs
�LDRB R7,[R6,#13]
�LDRB R2,[R6,#12]
�� R2,R2,#screen_mask%
�ADD R7,R7,R2,LSL#8
�MOV R7,R7,LSL#screen_shift%
�
��shadow
�
�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
"
,ADD R7,R7,R13
6ADD R11,R13,#&8000
@ADD R12,R12,R13
J
T;MOV R4,R2,LSL#8
^
.loop2
h;MOV R2,#80
r
.loop1
|
�; RJW was here
�LDMIA R7!,{R10,R14}
�� R0,R14,#&FF
�LDR R5,[R8,R0,LSL#2]
�STR R5,[R9,#320*4]
�� R0,R14,#&FF00
�LDR R5,[R8,R0,LSR#6]
�STR R5,[R9,#320*5]
�� R0,R14,#&FF0000
�LDR R5,[R8,R0,LSR#14]
�STR R5,[R9,#320*6]
�� R0,R14,#&FF000000
�LDR R5,[R8,R0,LSR#22]
STR R5,[R9,#320*7]

� R0,R10,#&FF00
&LDR R5,[R8,R0,LSR#6]
0STR R5,[R9,#320]
:� R0,R10,#&FF0000
DLDR R5,[R8,R0,LSR#14]
NSTR R5,[R9,#320*2]
X� R0,R10,#&FF000000
bLDR R5,[R8,R0,LSR#22]
lSTR R5,[R9,#320*3]
v� R0,R10,#&FF
�LDR R5,[R8,R0,LSL#2]
�STR R5,[R9],#4
�
�CMP R7,R11 : �Q R7,R12
�
�(SUBS R2,R2,#1 ; end of character row
�
BGT loop1
�'LDRB R2,[R6,#1] ; no of horiz chars
�'ADD R9,R9,#320*8:SUB R9,R9,R2,LSL#2
�SUBS R4,R4,R2,LSL#3 ; #640
�
BGT loop2
�
�LDMEA mem,{R4-R11,PC}^


.mode2tab
]
 P%+=1024
*O%+=1024
4	[OPTp
>
H; RJW was here
R.updatepixel5
\ADR R13,mode5tab
f
pLDRB R2,[mem,#crt_regs+3]
zTST R2,#1 << 4
�BEQ updatepixel5_2
�
�; RJW was here
�)� R2,R14,#%11    ; make fortress work
�BIC R14,R14,#%111   ;
�ADD R14,R2,R14,LSR#1
�
�B updatepixel5_2
�
�
�.updatescreen5
�ADR R8,mode5tab
�B updatescreen4_2


.mode5tab
]
$P%+=1024
.O%+=1024
8	[OPTp
B
L
V.updatescreen4
`ADR R8,mode4tab
j.updatescreen4_2
t
~LDRB R0,[mem,#lastmode]
�
CMP R0,#9
�BEQ skip_mode9
�SWI &116
�SWI &100+9 ; � 9
��pointer_on
�SWI "OS_RemoveCursors"
�'MOV R0,#9 : STRB R0,[mem,#lastmode]
�.skip_mode9
�
�;LDR R6,crt_regs_addr
�SUB R6,mem,#-crt_regs
�LDRB R7,[R6,#13]
LDRB R2,[R6,#12]

� R2,R2,#screen_mask%
ADD R7,R7,R2,LSL#8
MOV R7,R7,LSL#screen_shift%
(
2�shadow
<
F;ADR R8,mode4tab
P'LDRB R2,[R6,#1] ; no of horiz chars
Z+LDRB R11,[R6,#6] ; no of vertical chars
dMUL R4,R2,R11
nMOV R4,R4,LSL#3
x
�ADD R7,R7,R13
�ADD R11,R13,#&8000
�ADD R12,R12,R13
�
�; RJW was here
�LDRB R0,[R6,#3] ; Fortress
�TST R0,#1 << 4
�BNE fortress_updatescreen4
�;MOV R4,R2,LSL#8
�
.loop2
�;MOV R2,#80
�
.loop1
�
;RJW was here
LDMIA R7!,{R10,R14}
� R0,R14,#&FF
"LDR R5,[R8,R0,LSL#2]
,0STR R5,[R9,#160*4] ; 160=line length in mode
6� R0,R14,#&FF00
@LDR R5,[R8,R0,LSR#6]
J0STR R5,[R9,#160*5] ; 160=line length in mode
T� R0,R14,#&FF0000
^LDR R5,[R8,R0,LSR#14]
h0STR R5,[R9,#160*6] ; 160=line length in mode
r� R0,R14,#&FF000000
|LDR R5,[R8,R0,LSR#22]
�0STR R5,[R9,#160*7] ; 160=line length in mode
�
�� R0,R10,#&FF00
�LDR R5,[R8,R0,LSR#6]
�.STR R5,[R9,#160] ; 160=line length in mode
�� R0,R10,#&FF0000
�LDR R5,[R8,R0,LSR#14]
�0STR R5,[R9,#160*2] ; 160=line length in mode
�� R0,R10,#&FF000000
�LDR R5,[R8,R0,LSR#22]
�0STR R5,[R9,#160*3] ; 160=line length in mode
�� R0,R10,#&FF
�LDR R5,[R8,R0,LSL#2]
,STR R5,[R9],#4 ; 160=line length in mode

CMP R7,R11 : �Q R7,R12
&
0(SUBS R2,R2,#1 ; end of character row
:
BGT loop1
D
N7LDRB R2,[R6,#3] : MOV R2,R2,LSR#4 ; vertical timing
X'MOV R5,#320 : MOV R5,R5,LSL R2    ;
b;ADD R9,R9,#160*8
l=ADD R9,R9,R5                      ; to make fortress work
v
�'LDRB R2,[R6,#1] ; no of horiz chars
�SUB R9,R9,R2,LSL#2
�SUBS R4,R4,R2,LSL#3 ; #640
�
BGT loop2
�
�LDMEA mem,{R4-R11,PC}^
�;RJW was here
�.fortress_updatescreen4
�;MOV R4,R2,LSL#8
�
.loop2
�;MOV R2,#80
�
.loop1
�
LDR R10,[R7],#8
� R0,R10,#&FF00
LDR R5,[R8,R0,LSR#6]
 .STR R5,[R9,#160] ; 160=line length in mode
*� R0,R10,#&FF0000
4LDR R5,[R8,R0,LSR#14]
>0STR R5,[R9,#160*2] ; 160=line length in mode
H� R0,R10,#&FF000000
RLDR R5,[R8,R0,LSR#22]
\0STR R5,[R9,#160*3] ; 160=line length in mode
f� R0,R10,#&FF
pLDR R5,[R8,R0,LSL#2]
z,STR R5,[R9],#4 ; 160=line length in mode
�
�CMP R7,R11 : �Q R7,R12
�
�(SUBS R2,R2,#1 ; end of character row
�
BGT loop1
�
�7LDRB R2,[R6,#3] : MOV R2,R2,LSR#4 ; vertical timing
�'MOV R5,#320 : MOV R5,R5,LSL R2    ;
�;ADD R9,R9,#160*8
�=ADD R9,R9,R5                      ; to make fortress work
�
�'LDRB R2,[R6,#1] ; no of horiz chars
�SUB R9,R9,R2,LSL#2
SUBS R4,R4,R2,LSL#3 ; #640

BGT loop2

$LDMEA mem,{R4-R11,PC}^
.
8; RJW was here
B.updatepixel4
L
VADR R13,mode4tab
`
j.updatepixel5_2
t
~
�#ADD R14,R14,R14,LSL#2 ; R14 * 5
�
�9ADD R14,R1,R14,LSL#3 ; offset in arc screen of byte/4
�
�3LDR R0,[R13,R0,LSL#2] ; load 4 bytes from table
�
�"LDR R13,[mem,#arc_screenstart]
�STR R0,[R13,R14,LSL#2]
�LDR PC,[mem,#scratch]
�
�
.mode4tab
�]
P%+=1024

O%+=1024
	[OPTp

(.pointer_on
2\LDRB R0,[mem,#cursor_on]
<\CMP R0,#0 : \MOVNE PC,R14
FTST F,#1 << 10 ; cursor on?
P
�Q PC,R14
ZMOV R0,#106:MOV R1,#&82
dSWI "OS_Byte"
n
MOV R0,#1
x STRB R0,[mem,#cursor_tamper]
�MOV PC,R14
�
�
�.updatescreen7
�LDRB R0,[mem,#lastmode]
�
CMP R0,#7
�BEQ 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
,�pointer_on
6SWI "OS_RemoveCursors"
@'MOV R0,#7 : STRB R0,[mem,#lastmode]
J.not_newmode7
TSWI &11E ; �0,0)
^
h;LDR R5,crt_regs_addr
r
MOV R5,R6
|LDRB R6,[R5,#12]
�� R6,R6,#&3F
�� R6,R6,#&20
�ADD R6,R6,#&74
�� R6,R6,#&FF
�LDRB R7,[R5,#13]
�ADD R7,R7,R6,LSL#8
�
��shadow
�
�;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
0
:MOV R9,#0 ; X
DMOV R10,#0 ; Y
NSUB R9,R9,#1
X
b.mode7loop
l;ADD R9,R9,#1 : CMP R9,#40 : �Q R9,#0 : ADDEQ R10,R10,#1
vLDRB R0,[R13,R7]
�CMP R0,#&7F : �Q R0,#255
�,CMP R0,#&1A : �Q R0,#&9A ; fix Zalaga???
�,CMP R0,#&1D : �Q R0,#&9D ; fix Zalaga???
�CMP R0,#32 : MOVLT R0,#32
�
�)CMP R0,#&60 : �Q R0,#&5F : BEQ print7
�)CMP R0,#&5F : �Q R0,#&23 : BEQ print7
�CMP 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"
4STRB R0,[R8] ; mode7copy
>
.noprint7
HADD R8,R8,#1
R
\ADD R7,R7,#1
fCMP R7,#&8000
p�Q R7,#&7C00
zADD R4,R4,#1
�CMP R4,#25*40
�BNE mode7loop
�
�LDMEA mem,{R4-R11,PC}^
�.mode7copy
�]
�P%+=1024:O%+=1024
�	[OPTp
�
�.update_screen
�.updatescreen
�STMFD mem,{R4-R11,R14}
�
]
� electron% �
	[OPTp
$TST F,#1 << 12
.MOVNE PC,R14 ; "mode 7"
8]
B�
L
V	[OPTp
`!LDR R9,[mem,#arc_screenstart]
j
tSUB R6,mem,#-crt_regs
~;LDRB R10,[R6,#19]
�;�S R10,R10,#%11
�;MOVNE R12,#&5800
�;�Q R12,#&4000
�;CMP R10,#%10
�;�Q R12,#&3000
�;CMP R10,#%01
�;�Q R12,#&6000
�MOV R12,F,LSR#16
�
�]
�� electron% �
�	[OPTp
LDRB R0,[mem,#fe20]

]
�
	[OPTp
(SUB R0,mem,#512 ; sheila
2LDRB R0,[R0,#&20]
<]
F�
P
Z	[OPTp
d*;RJW Updated code to avoid jump->jumps
nMOVS R0,R0,LSR#2
xBCS updatescreen7
�
�TST F,#1 << 8 ; patch on?
�,BNE patch_screen2 ; patch_screen2 ; F=R7
�
� ;RJW; Can this � be removed?
�.patch_exit
�� R0,R0,#7
�LDR R0,[PC,R0,LSL#2]
�ADD PC,PC,R0
�(EQUD updatescreen4-ustab   ; %000 00
�
.ustab
�(EQUD updatescreen5-ustab   ; %001 00
�(EQUD updatescreen4-ustab   ; %010 00
(EQUD updatescreen0-ustab   ; %011 00
(EQUD updatescreen1-ustab   ; %100 00
(EQUD updatescreen2-ustab   ; %101 00
"(EQUD updatescreen1-ustab   ; %110 00
,(EQUD updatescreen0-ustab   ; %111 00
6
@.patch_screen2
JADR R13,patch_exit
TB patch_screen
^]
h=""
r
|ݤpointer_on
�(� �electron% � [OPTp:BL pointer_on:]
�=""
�

00000000  0d 00 0a 0e f4 20 3e 20  53 63 72 65 65 6e 0d 00  |..... > Screen..|
00000010  14 04 0d 00 1e 0c dd a4  73 63 72 65 65 6e 0d 00  |........screen..|
00000020  28 04 0d 00 32 11 e7 20  65 6c 65 63 74 72 6f 6e  |(...2.. electron|
00000030  25 20 8c 0d 00 3c 18 73  63 72 65 65 6e 5f 6d 61  |% ...<.screen_ma|
00000040  73 6b 25 3d 25 31 31 31  31 31 31 0d 00 46 13 73  |sk%=%111111..F.s|
00000050  63 72 65 65 6e 5f 73 68  69 66 74 25 3d 31 0d 00  |creen_shift%=1..|
00000060  50 05 cc 0d 00 5a 17 73  63 72 65 65 6e 5f 6d 61  |P....Z.screen_ma|
00000070  73 6b 25 3d 25 31 31 31  31 31 0d 00 64 13 73 63  |sk%=%11111..d.sc|
00000080  72 65 65 6e 5f 73 68 69  66 74 25 3d 33 0d 00 6e  |reen_shift%=3..n|
00000090  05 cd 0d 00 78 04 0d 00  82 09 5b 4f 50 54 70 0d  |....x.....[OPTp.|
000000a0  00 8c 04 0d 00 96 09 2e  73 74 72 62 0d 00 a0 21  |........strb...!|
000000b0  2e 73 74 72 62 33 30 30  30 20 3b 20 67 72 65 61  |.strb3000 ; grea|
000000c0  74 65 72 20 74 68 61 6e  20 33 30 30 30 0d 00 aa  |ter than 3000...|
000000d0  11 43 4d 50 20 52 31 2c  23 26 38 30 30 30 0d 00  |.CMP R1,#&8000..|
000000e0  b4 10 42 47 45 20 73 74  72 62 38 30 30 30 0d 00  |..BGE strb8000..|
000000f0  be 04 0d 00 c8 11 2e 75  70 64 61 74 65 5f 70 69  |.......update_pi|
00000100  78 65 6c 0d 00 d2 28 2e  73 74 72 62 5f 73 63 72  |xel...(.strb_scr|
00000110  65 65 6e 20 3b 20 62 65  74 77 65 65 6e 20 33 30  |een ; between 30|
00000120  30 30 20 61 6e 64 20 38  30 30 30 0d 00 dc 04 0d  |00 and 8000.....|
00000130  00 e6 05 5d 0d 00 f0 0e  e7 20 6d 61 73 74 65 72  |...]..... master|
00000140  20 8c 0d 00 fa 09 5b 4f  50 54 70 0d 01 04 04 0d  | .....[OPTp.....|
00000150  01 0e 1a 4c 44 52 42 20  52 31 32 2c 5b 6d 65 6d  |...LDRB R12,[mem|
00000160  2c 23 41 43 43 43 4f 4e  5d 0d 01 18 04 0d 01 22  |,#ACCCON]......"|
00000170  18 43 4d 50 20 7a 70 63  2c 23 26 43 30 30 30 20  |.CMP zpc,#&C000 |
00000180  3c 3c 20 31 36 0d 01 2c  17 4d 4f 56 4c 54 20 52  |<< 16..,.MOVLT R|
00000190  31 33 2c 52 31 32 2c 4c  53 52 23 31 0d 01 36 11  |13,R12,LSR#1..6.|
000001a0  4d 4f 56 47 45 20 52 31  33 2c 52 31 32 0d 01 40  |MOVGE R13,R12..@|
000001b0  18 43 4d 50 20 7a 70 63  2c 23 26 45 30 30 30 20  |.CMP zpc,#&E000 |
000001c0  3c 3c 20 31 36 0d 01 4a  35 4d 4f 56 47 45 20 52  |<< 16..J5MOVGE R|
000001d0  31 33 2c 52 31 32 2c 4c  53 52 23 31 20 20 20 20  |13,R12,LSR#1    |
000001e0  3b 20 6e 6f 77 20 62 69  74 20 31 20 6f 66 20 52  |; now bit 1 of R|
000001f0  31 33 20 69 73 20 77 68  61 74 0d 01 54 2c 20 20  |13 is what..T,  |
00000200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000210  20 20 20 20 20 3b 20 77  65 20 6d 75 73 74 20 6c  |     ; we must l|
00000220  6f 6f 6b 20 61 74 0d 01  5e 04 0d 01 5f 19 3b 43  |ook at..^..._.;C|
00000230  4d 50 20 7a 70 63 2c 23  26 43 30 30 30 20 3c 3c  |MP zpc,#&C000 <<|
00000240  20 31 36 0d 01 60 11 3b  4d 4f 56 4c 54 20 52 31  | 16..`.;MOVLT R1|
00000250  33 2c 23 30 0d 01 61 1a  3b 82 47 45 20 52 31 33  |3,#0..a.;.GE R13|
00000260  2c 52 31 32 2c 52 31 32  2c 4c 53 52 23 31 0d 01  |,R12,R12,LSR#1..|
00000270  62 19 3b 43 4d 50 20 7a  70 63 2c 23 26 45 30 30  |b.;CMP zpc,#&E00|
00000280  30 20 3c 3c 20 31 36 0d  01 63 2c 3b 4d 4f 56 47  |0 << 16..c,;MOVG|
00000290  45 20 52 31 33 2c 23 30  20 3b 20 6e 6f 77 20 6c  |E R13,#0 ; now l|
000002a0  6f 6f 6b 20 61 74 20 62  69 74 20 31 20 6f 66 20  |ook at bit 1 of |
000002b0  52 31 33 0d 01 64 04 0d  01 68 11 3b 54 53 54 20  |R13..d...h.;TST |
000002c0  52 31 33 2c 23 25 31 30  0d 01 72 38 3b 53 55 42  |R13,#%10..r8;SUB|
000002d0  4e 45 20 52 32 2c 6d 65  6d 2c 23 28 26 33 30 30  |NE R2,mem,#(&300|
000002e0  30 2b 26 31 30 30 30 30  29 20 3b 20 73 68 61 64  |0+&10000) ; shad|
000002f0  6f 77 20 73 63 72 65 65  6e 20 6d 65 6d 6f 72 79  |ow screen memory|
00000300  0d 01 7c 16 3b 53 54 52  4e 45 42 20 52 30 2c 5b  |..|.;STRNEB R0,[|
00000310  52 32 2c 52 31 5d 0d 01  86 17 3b 53 54 52 45 51  |R2,R1]....;STREQ|
00000320  42 20 52 30 2c 5b 6d 65  6d 2c 52 31 5d 0d 01 87  |B R0,[mem,R1]...|
00000330  04 0d 01 88 15 4d 4f 56  20 52 32 2c 23 70 61 67  |.....MOV R2,#pag|
00000340  65 74 61 62 6c 65 0d 01  89 1a 4c 44 52 42 20 52  |etable....LDRB R|
00000350  32 2c 5b 52 32 2c 52 31  2c 4c 53 52 23 31 32 5d  |2,[R2,R1,LSR#12]|
00000360  0d 01 8a 10 54 53 54 20  52 31 33 2c 23 25 31 30  |....TST R13,#%10|
00000370  0d 01 8b 11 4d 4f 56 4e  45 20 52 32 2c 23 26 38  |....MOVNE R2,#&8|
00000380  44 0d 01 8c 1a 53 54 52  42 20 52 30 2c 5b 52 31  |D....STRB R0,[R1|
00000390  2c 52 32 2c 4c 53 4c 23  31 32 5d 0d 01 90 04 0d  |,R2,LSL#12].....|
000003a0  01 9a 17 82 20 52 31 32  2c 52 31 32 2c 52 31 33  |.... R12,R12,R13|
000003b0  2c 4c 53 52 23 31 0d 01  a4 3f 54 53 54 20 52 31  |,LSR#1...?TST R1|
000003c0  32 2c 23 25 31 20 20 20  20 20 20 20 20 20 20 20  |2,#%1           |
000003d0  3b 20 61 72 65 20 77 65  20 77 72 69 74 69 6e 67  |; are we writing|
000003e0  20 74 6f 20 64 69 73 70  6c 61 79 65 64 20 6d 65  | to displayed me|
000003f0  6d 6f 72 79 3f 0d 01 ae  10 4d 4f 56 4e 45 20 50  |mory?....MOVNE P|
00000400  43 2c 52 31 34 0d 01 b8  1f 43 4d 50 20 52 31 2c  |C,R14....CMP R1,|
00000410  46 2c 4c 53 52 23 31 36  20 3b 20 77 72 61 70 5f  |F,LSR#16 ; wrap_|
00000420  61 64 64 72 0d 01 c2 10  4d 4f 56 4c 54 20 50 43  |addr....MOVLT PC|
00000430  2c 52 31 34 0d 01 cc 05  5d 0d 01 d6 05 cc 0d 01  |,R14....].......|
00000440  e0 09 5b 4f 50 54 70 0d  01 ea 14 53 54 52 42 20  |..[OPTp....STRB |
00000450  52 30 2c 5b 6d 65 6d 2c  52 31 5d 0d 01 f4 05 5d  |R0,[mem,R1]....]|
00000460  0d 01 fe 05 cd 0d 02 08  04 0d 02 12 11 e7 20 65  |.............. e|
00000470  6c 65 63 74 72 6f 6e 25  20 8c 0d 02 1c 09 5b 4f  |lectron% .....[O|
00000480  50 54 70 0d 02 26 12 54  53 54 20 46 2c 23 31 20  |PTp..&.TST F,#1 |
00000490  3c 3c 20 31 32 0d 02 30  1b 4d 4f 56 4e 45 20 50  |<< 12..0.MOVNE P|
000004a0  43 2c 52 31 34 20 3b 20  22 6d 6f 64 65 20 37 22  |C,R14 ; "mode 7"|
000004b0  0d 02 3a 05 5d 0d 02 44  05 cc 0d 02 4e 09 5b 4f  |..:.]..D....N.[O|
000004c0  50 54 70 0d 02 58 1e 4c  44 52 42 20 52 31 32 2c  |PTp..X.LDRB R12,|
000004d0  5b 6d 65 6d 2c 23 63 72  74 5f 72 65 67 73 2b 33  |[mem,#crt_regs+3|
000004e0  5d 0d 02 62 13 54 53 54  20 52 31 32 2c 23 31 20  |]..b.TST R12,#1 |
000004f0  3c 3c 20 34 0d 02 6c 12  54 53 54 4e 45 20 52 31  |<< 4..l.TSTNE R1|
00000500  2c 23 25 31 30 30 0d 02  76 1b 4d 4f 56 4e 45 20  |,#%100..v.MOVNE |
00000510  50 43 2c 52 31 34 20 3b  20 66 6f 72 74 72 65 73  |PC,R14 ; fortres|
00000520  73 0d 02 80 05 5d 0d 02  8a 05 cd 0d 02 94 04 0d  |s....]..........|
00000530  02 9e 09 5b 4f 50 54 70  0d 02 a8 1f 4c 44 52 42  |...[OPTp....LDRB|
00000540  20 52 31 32 2c 5b 6d 65  6d 2c 23 63 72 74 5f 72  | R12,[mem,#crt_r|
00000550  65 67 73 2b 31 33 5d 0d  02 b2 1e 4c 44 52 42 20  |egs+13]....LDRB |
00000560  52 32 2c 5b 6d 65 6d 2c  23 63 72 74 5f 72 65 67  |R2,[mem,#crt_reg|
00000570  73 2b 31 32 5d 0d 02 bc  14 80 20 52 32 2c 52 32  |s+12]..... R2,R2|
00000580  2c 23 25 31 31 31 31 31  31 0d 02 c6 18 41 44 44  |,#%111111....ADD|
00000590  20 52 31 32 2c 52 31 32  2c 52 32 2c 4c 53 4c 23  | R12,R12,R2,LSL#|
000005a0  38 0d 02 d0 05 5d 0d 02  da 2b e7 20 65 6c 65 63  |8....]...+. elec|
000005b0  74 72 6f 6e 25 20 8c 20  5b 4f 50 54 70 3a 4d 4f  |tron% . [OPTp:MO|
000005c0  56 20 52 31 32 2c 52 31  32 2c 4c 53 52 23 32 3a  |V R12,R12,LSR#2:|
000005d0  5d 0d 02 e4 09 5b 4f 50  54 70 0d 02 ee 16 3b 4d  |]....[OPTp....;M|
000005e0  4f 56 20 52 31 32 2c 52  31 32 2c 4c 53 4c 23 33  |OV R12,R12,LSL#3|
000005f0  0d 02 f8 04 0d 03 02 04  0d 03 0c 33 53 55 42 53  |...........3SUBS|
00000600  20 52 31 2c 52 31 2c 52  31 32 2c 4c 53 4c 23 33  | R1,R1,R12,LSL#3|
00000610  20 20 20 20 20 20 20 20  20 3b 20 61 64 64 72 2d  |         ; addr-|
00000620  73 63 72 65 65 6e 73 74  61 72 74 0d 03 16 12 42  |screenstart....B|
00000630  47 45 20 77 72 61 70 5f  73 6b 69 70 32 0d 03 20  |GE wrap_skip2.. |
00000640  16 3b 4c 44 52 20 52 31  33 2c 77 72 61 70 5f 61  |.;LDR R13,wrap_a|
00000650  64 64 72 0d 03 2a 14 41  44 44 20 52 31 2c 52 31  |ddr..*.ADD R1,R1|
00000660  2c 23 26 38 30 30 30 0d  03 34 23 53 55 42 53 20  |,#&8000..4#SUBS |
00000670  52 31 2c 52 31 2c 46 2c  4c 53 52 23 31 36 20 3b  |R1,R1,F,LSR#16 ;|
00000680  20 77 72 61 70 5f 61 64  64 72 0d 03 3e 10 4d 4f  | wrap_addr..>.MO|
00000690  56 4d 49 20 50 43 2c 52  31 34 0d 03 48 0f 2e 77  |VMI PC,R14..H..w|
000006a0  72 61 70 5f 73 6b 69 70  32 0d 03 52 04 0d 03 5c  |rap_skip2..R...\|
000006b0  2d 4c 44 52 42 20 52 31  32 2c 5b 6d 65 6d 2c 23  |-LDRB R12,[mem,#|
000006c0  63 72 74 5f 72 65 67 73  2b 31 5d 20 3b 20 68 6f  |crt_regs+1] ; ho|
000006d0  72 69 7a 2e 20 63 68 61  72 73 0d 03 66 2c 4c 44  |riz. chars..f,LD|
000006e0  52 42 20 52 31 33 2c 5b  6d 65 6d 2c 23 63 72 74  |RB R13,[mem,#crt|
000006f0  5f 72 65 67 73 2b 36 5d  20 3b 20 76 65 72 74 2e  |_regs+6] ; vert.|
00000700  20 63 68 61 72 73 0d 03  70 13 4d 55 4c 20 52 31  | chars..p.MUL R1|
00000710  33 2c 52 31 32 2c 52 31  33 0d 03 7a 23 4d 4f 56  |3,R12,R13..z#MOV|
00000720  20 52 31 33 2c 52 31 33  2c 4c 53 4c 23 33 20 3b  | R13,R13,LSL#3 ;|
00000730  20 73 63 72 65 65 6e 20  73 69 7a 65 0d 03 84 0e  | screen size....|
00000740  43 4d 50 20 52 31 2c 52  31 33 0d 03 8e 10 4d 4f  |CMP R1,R13....MO|
00000750  56 47 45 20 50 43 2c 52  31 34 0d 03 98 1a 53 54  |VGE PC,R14....ST|
00000760  52 20 52 31 34 2c 5b 6d  65 6d 2c 23 73 63 72 61  |R R14,[mem,#scra|
00000770  74 63 68 5d 0d 03 a2 14  3b 52 4a 57 20 77 61 73  |tch]....;RJW was|
00000780  20 68 65 72 65 2e 2e 2e  0d 03 ac 1b 53 54 52 20  | here.......STR |
00000790  52 31 2c 5b 6d 65 6d 2c  23 73 63 72 61 74 63 68  |R1,[mem,#scratch|
000007a0  2b 34 5d 0d 03 b6 12 80  20 52 31 34 2c 52 31 2c  |+4]..... R14,R1,|
000007b0  23 25 31 31 31 0d 03 c0  13 4d 4f 56 20 52 31 2c  |#%111....MOV R1,|
000007c0  52 31 2c 4c 53 52 23 33  0d 03 ca 04 0d 03 d4 16  |R1,LSR#3........|
000007d0  43 4d 50 20 20 20 52 31  2c 52 31 32 2c 4c 53 4c  |CMP   R1,R12,LSL|
000007e0  23 37 0d 03 de 19 53 55  42 47 45 20 52 31 2c 52  |#7....SUBGE R1,R|
000007f0  31 2c 52 31 32 2c 4c 53  4c 23 37 0d 03 e8 18 41  |1,R12,LSL#7....A|
00000800  44 44 47 45 20 52 31 34  2c 52 31 34 2c 23 31 3c  |DDGE R14,R14,#1<|
00000810  3c 31 30 0d 03 f2 04 0d  03 fc 16 43 4d 50 20 20  |<10........CMP  |
00000820  20 52 31 2c 52 31 32 2c  4c 53 4c 23 36 0d 04 06  | R1,R12,LSL#6...|
00000830  19 53 55 42 47 45 20 52  31 2c 52 31 2c 52 31 32  |.SUBGE R1,R1,R12|
00000840  2c 4c 53 4c 23 36 0d 04  10 17 41 44 44 47 45 20  |,LSL#6....ADDGE |
00000850  52 31 34 2c 52 31 34 2c  23 31 3c 3c 39 0d 04 1a  |R14,R14,#1<<9...|
00000860  04 0d 04 24 16 43 4d 50  20 20 20 52 31 2c 52 31  |...$.CMP   R1,R1|
00000870  32 2c 4c 53 4c 23 35 0d  04 2e 19 53 55 42 47 45  |2,LSL#5....SUBGE|
00000880  20 52 31 2c 52 31 2c 52  31 32 2c 4c 53 4c 23 35  | R1,R1,R12,LSL#5|
00000890  0d 04 38 17 41 44 44 47  45 20 52 31 34 2c 52 31  |..8.ADDGE R14,R1|
000008a0  34 2c 23 31 3c 3c 38 0d  04 42 04 0d 04 4c 16 43  |4,#1<<8..B...L.C|
000008b0  4d 50 20 20 20 52 31 2c  52 31 32 2c 4c 53 4c 23  |MP   R1,R12,LSL#|
000008c0  34 0d 04 56 19 53 55 42  47 45 20 52 31 2c 52 31  |4..V.SUBGE R1,R1|
000008d0  2c 52 31 32 2c 4c 53 4c  23 34 0d 04 60 17 41 44  |,R12,LSL#4..`.AD|
000008e0  44 47 45 20 52 31 34 2c  52 31 34 2c 23 31 3c 3c  |DGE R14,R14,#1<<|
000008f0  37 0d 04 6a 04 0d 04 74  16 43 4d 50 20 20 20 52  |7..j...t.CMP   R|
00000900  31 2c 52 31 32 2c 4c 53  4c 23 33 0d 04 7e 19 53  |1,R12,LSL#3..~.S|
00000910  55 42 47 45 20 52 31 2c  52 31 2c 52 31 32 2c 4c  |UBGE R1,R1,R12,L|
00000920  53 4c 23 33 0d 04 88 17  41 44 44 47 45 20 52 31  |SL#3....ADDGE R1|
00000930  34 2c 52 31 34 2c 23 31  3c 3c 36 0d 04 92 04 0d  |4,R14,#1<<6.....|
00000940  04 9c 16 43 4d 50 20 20  20 52 31 2c 52 31 32 2c  |...CMP   R1,R12,|
00000950  4c 53 4c 23 32 0d 04 a6  19 53 55 42 47 45 20 52  |LSL#2....SUBGE R|
00000960  31 2c 52 31 2c 52 31 32  2c 4c 53 4c 23 32 0d 04  |1,R1,R12,LSL#2..|
00000970  b0 17 41 44 44 47 45 20  52 31 34 2c 52 31 34 2c  |..ADDGE R14,R14,|
00000980  23 31 3c 3c 35 0d 04 ba  04 0d 04 c4 16 43 4d 50  |#1<<5........CMP|
00000990  20 20 20 52 31 2c 52 31  32 2c 4c 53 4c 23 31 0d  |   R1,R12,LSL#1.|
000009a0  04 ce 19 53 55 42 47 45  20 52 31 2c 52 31 2c 52  |...SUBGE R1,R1,R|
000009b0  31 32 2c 4c 53 4c 23 31  0d 04 d8 17 41 44 44 47  |12,LSL#1....ADDG|
000009c0  45 20 52 31 34 2c 52 31  34 2c 23 31 3c 3c 34 0d  |E R14,R14,#1<<4.|
000009d0  04 e2 04 0d 04 ec 10 43  4d 50 20 20 20 52 31 2c  |.......CMP   R1,|
000009e0  52 31 32 0d 04 f6 13 53  55 42 47 45 20 52 31 2c  |R12....SUBGE R1,|
000009f0  52 31 2c 52 31 32 0d 05  00 17 41 44 44 47 45 20  |R1,R12....ADDGE |
00000a00  52 31 34 2c 52 31 34 2c  23 31 3c 3c 33 0d 05 0a  |R14,R14,#1<<3...|
00000a10  04 0d 05 14 1c 3b 4c 44  52 20 52 31 32 2c 5b 6d  |.....;LDR R12,[m|
00000a20  65 6d 2c 23 70 61 74 63  68 5f 6f 6e 5d 0d 05 1e  |em,#patch_on]...|
00000a30  1c 3b 43 4d 50 20 52 31  32 2c 23 30 20 3a 20 3b  |.;CMP R12,#0 : ;|
00000a40  42 4e 45 20 70 61 74 63  68 0d 05 28 33 54 53 54  |BNE patch..(3TST|
00000a50  20 46 2c 23 31 20 3c 3c  20 38 20 3a 20 42 4e 45  | F,#1 << 8 : BNE|
00000a60  20 70 61 74 63 68 5f 70  69 78 65 6c 32 20 3b 20  | patch_pixel2 ; |
00000a70  70 61 74 63 68 5f 70 69  78 65 6c 32 0d 05 32 04  |patch_pixel2..2.|
00000a80  0d 05 3c 1a 3b 20 52 4a  57 20 77 61 73 20 68 65  |..<.; RJW was he|
00000a90  72 65 20 28 74 77 69 63  65 29 0d 05 46 18 4c 44  |re (twice)..F.LD|
00000aa0  52 42 20 52 31 32 2c 5b  6d 65 6d 2c 23 66 65 32  |RB R12,[mem,#fe2|
00000ab0  30 5d 0d 05 50 16 4d 4f  56 53 20 52 31 32 2c 52  |0]..P.MOVS R12,R|
00000ac0  31 32 2c 41 53 52 23 32  0d 05 5a 22 3b 20 49 20  |12,ASR#2..Z"; I |
00000ad0  61 73 73 75 6d 65 20 50  72 6f 62 28 43 43 29 20  |assume Prob(CC) |
00000ae0  3e 20 50 72 6f 63 28 43  53 29 0d 05 64 19 4c 44  |> Proc(CS)..d.LD|
00000af0  52 43 43 20 50 43 2c 75  70 64 61 74 65 70 69 78  |RCC PC,updatepix|
00000b00  65 6c 56 0d 05 6e 0e 4d  4f 56 20 50 43 2c 52 31  |elV..n.MOV PC,R1|
00000b10  34 0d 05 78 04 0d 05 82  11 2e 70 61 74 63 68 5f  |4..x......patch_|
00000b20  70 69 78 65 6c 32 0d 05  8c 17 41 44 52 20 52 31  |pixel2....ADR R1|
00000b30  33 2c 70 61 74 63 68 5f  65 78 69 74 32 0d 05 96  |3,patch_exit2...|
00000b40  11 42 20 70 61 74 63 68  5f 70 69 78 65 6c 0d 05  |.B patch_pixel..|
00000b50  a0 04 0d 05 aa 16 2e 70  6f 6b 65 5f 75 70 64 61  |.......poke_upda|
00000b60  74 65 70 69 78 65 6c 56  0d 05 b4 18 4c 44 52 42  |tepixelV....LDRB|
00000b70  20 52 31 32 2c 5b 6d 65  6d 2c 23 66 65 32 30 5d  | R12,[mem,#fe20]|
00000b80  0d 05 be 04 0d 05 c8 13  80 20 52 31 32 2c 52 31  |......... R12,R1|
00000b90  32 2c 23 37 3c 3c 32 0d  05 d2 10 41 44 52 20 52  |2,#7<<2....ADR R|
00000ba0  32 2c 75 70 74 61 62 0d  05 dc 14 4c 44 52 20 52  |2,uptab....LDR R|
00000bb0  31 32 2c 5b 52 32 2c 52  31 32 5d 0d 05 e6 11 41  |12,[R2,R12]....A|
00000bc0  44 44 20 52 32 2c 52 32  2c 52 31 32 0d 05 f0 17  |DD R2,R2,R12....|
00000bd0  53 54 52 20 52 32 2c 75  70 64 61 74 65 70 69 78  |STR R2,updatepix|
00000be0  65 6c 56 0d 05 fa 0e 4d  4f 56 20 50 43 2c 52 31  |elV....MOV PC,R1|
00000bf0  34 0d 06 04 04 0d 06 0e  10 2e 70 61 74 63 68 5f  |4.........patch_|
00000c00  65 78 69 74 32 0d 06 18  19 42 20 75 70 64 61 74  |exit2....B updat|
00000c10  65 70 69 78 65 6c 31 20  3b 20 68 61 63 6b 0d 06  |epixel1 ; hack..|
00000c20  22 04 0d 06 2c 0a 2e 75  70 74 61 62 0d 06 36 23  |"...,..uptab..6#|
00000c30  45 51 55 44 20 75 70 64  61 74 65 70 69 78 65 6c  |EQUD updatepixel|
00000c40  34 2d 75 70 74 61 62 20  3b 30 30 30 20 30 30 0d  |4-uptab ;000 00.|
00000c50  06 40 23 45 51 55 44 20  75 70 64 61 74 65 70 69  |.@#EQUD updatepi|
00000c60  78 65 6c 35 2d 75 70 74  61 62 20 3b 30 30 31 20  |xel5-uptab ;001 |
00000c70  30 30 0d 06 4a 23 45 51  55 44 20 75 70 64 61 74  |00..J#EQUD updat|
00000c80  65 70 69 78 65 6c 34 2d  75 70 74 61 62 20 3b 30  |epixel4-uptab ;0|
00000c90  31 30 20 30 30 0d 06 54  23 45 51 55 44 20 75 70  |10 00..T#EQUD up|
00000ca0  64 61 74 65 70 69 78 65  6c 30 2d 75 70 74 61 62  |datepixel0-uptab|
00000cb0  20 3b 30 31 31 20 30 30  0d 06 5e 23 45 51 55 44  | ;011 00..^#EQUD|
00000cc0  20 75 70 64 61 74 65 70  69 78 65 6c 31 2d 75 70  | updatepixel1-up|
00000cd0  74 61 62 20 3b 31 30 30  20 30 30 0d 06 68 23 45  |tab ;100 00..h#E|
00000ce0  51 55 44 20 75 70 64 61  74 65 70 69 78 65 6c 32  |QUD updatepixel2|
00000cf0  2d 75 70 74 61 62 20 3b  31 30 31 20 30 30 0d 06  |-uptab ;101 00..|
00000d00  72 23 45 51 55 44 20 75  70 64 61 74 65 70 69 78  |r#EQUD updatepix|
00000d10  65 6c 31 2d 75 70 74 61  62 20 3b 31 31 30 20 30  |el1-uptab ;110 0|
00000d20  30 0d 06 7c 23 45 51 55  44 20 75 70 64 61 74 65  |0..|#EQUD update|
00000d30  70 69 78 65 6c 30 2d 75  70 74 61 62 20 3b 31 31  |pixel0-uptab ;11|
00000d40  31 20 30 30 0d 06 86 04  0d 06 90 11 2e 75 70 64  |1 00.........upd|
00000d50  61 74 65 70 69 78 65 6c  56 0d 06 9a 0a 45 51 55  |atepixelV....EQU|
00000d60  44 20 30 0d 06 a4 04 0d  06 ae 11 2e 75 70 64 61  |D 0.........upda|
00000d70  74 65 70 69 78 65 6c 30  0d 06 b8 04 0d 06 c2 12  |tepixel0........|
00000d80  3b 20 52 4a 57 20 77 61  73 20 68 65 72 65 0d 06  |; RJW was here..|
00000d90  cc 1b 41 44 44 20 52 31  34 2c 52 31 34 2c 52 31  |..ADD R14,R14,R1|
00000da0  34 2c 4c 53 4c 23 32 20  3b 0d 06 d6 04 0d 06 e0  |4,LSL#2 ;.......|
00000db0  37 41 44 44 20 52 31 34  2c 52 31 2c 52 31 34 2c  |7ADD R14,R1,R14,|
00000dc0  4c 53 4c 23 34 20 3b 20  6f 66 66 73 65 74 20 69  |LSL#4 ; offset i|
00000dd0  6e 20 61 72 63 20 73 63  72 65 65 6e 20 6f 66 20  |n arc screen of |
00000de0  62 79 74 65 0d 06 ea 04  0d 06 f4 14 41 44 52 20  |byte........ADR |
00000df0  52 31 33 2c 6d 6f 64 65  30 74 61 62 0d 06 fe 2c  |R13,mode0tab...,|
00000e00  4c 44 52 20 52 30 2c 5b  52 31 33 2c 52 30 5d 20  |LDR R0,[R13,R0] |
00000e10  3b 20 6c 6f 61 64 20 31  20 62 79 74 65 20 66 72  |; load 1 byte fr|
00000e20  6f 6d 20 74 61 62 6c 65  0d 07 08 04 0d 07 12 22  |om table......."|
00000e30  4c 44 52 20 52 31 33 2c  5b 6d 65 6d 2c 23 61 72  |LDR R13,[mem,#ar|
00000e40  63 5f 73 63 72 65 65 6e  73 74 61 72 74 5d 0d 07  |c_screenstart]..|
00000e50  1c 15 53 54 52 42 20 52  30 2c 5b 52 31 33 2c 52  |..STRB R0,[R13,R|
00000e60  31 34 5d 0d 07 26 19 4c  44 52 20 50 43 2c 5b 6d  |14]..&.LDR PC,[m|
00000e70  65 6d 2c 23 73 63 72 61  74 63 68 5d 0d 07 30 04  |em,#scratch]..0.|
00000e80  0d 07 3a 0d 2e 6d 6f 64  65 30 74 61 62 0d 07 44  |..:..mode0tab..D|
00000e90  05 5d 0d 07 4e 0b 50 25  2b 3d 32 35 36 0d 07 58  |.]..N.P%+=256..X|
00000ea0  0b 4f 25 2b 3d 32 35 36  0d 07 62 09 5b 4f 50 54  |.O%+=256..b.[OPT|
00000eb0  70 0d 07 6c 12 2e 75 70  64 61 74 65 73 63 72 65  |p..l..updatescre|
00000ec0  65 6e 30 0d 07 76 1b 4c  44 52 42 20 52 30 2c 5b  |en0..v.LDRB R0,[|
00000ed0  6d 65 6d 2c 23 6c 61 73  74 6d 6f 64 65 5d 0d 07  |mem,#lastmode]..|
00000ee0  80 0e 43 4d 50 20 52 30  2c 23 39 39 0d 07 8a 12  |..CMP R0,#99....|
00000ef0  42 45 51 20 73 6b 69 70  5f 6d 6f 64 65 30 0d 07  |BEQ skip_mode0..|
00000f00  94 0c 53 57 49 20 26 31  31 36 0d 07 9e 12 53 57  |..SWI &116....SW|
00000f10  49 20 26 31 30 30 20 3b  20 eb 20 30 0d 07 a8 0f  |I &100 ; . 0....|
00000f20  a4 70 6f 69 6e 74 65 72  5f 6f 6e 0d 07 b2 1a 53  |.pointer_on....S|
00000f30  57 49 20 22 4f 53 5f 52  65 6d 6f 76 65 43 75 72  |WI "OS_RemoveCur|
00000f40  73 6f 72 73 22 0d 07 bc  28 4d 4f 56 20 52 30 2c  |sors"...(MOV R0,|
00000f50  23 39 39 20 3a 20 53 54  52 42 20 52 30 2c 5b 6d  |#99 : STRB R0,[m|
00000f60  65 6d 2c 23 6c 61 73 74  6d 6f 64 65 5d 0d 07 c6  |em,#lastmode]...|
00000f70  0f 2e 73 6b 69 70 5f 6d  6f 64 65 30 0d 07 d0 04  |..skip_mode0....|
00000f80  0d 07 da 19 3b 4c 44 52  20 52 36 2c 63 72 74 5f  |....;LDR R6,crt_|
00000f90  72 65 67 73 5f 61 64 64  72 0d 07 e4 19 53 55 42  |regs_addr....SUB|
00000fa0  20 52 36 2c 6d 65 6d 2c  23 2d 63 72 74 5f 72 65  | R6,mem,#-crt_re|
00000fb0  67 73 0d 07 ee 14 4c 44  52 42 20 52 37 2c 5b 52  |gs....LDRB R7,[R|
00000fc0  36 2c 23 31 33 5d 0d 07  f8 14 4c 44 52 42 20 52  |6,#13]....LDRB R|
00000fd0  32 2c 5b 52 36 2c 23 31  32 5d 0d 08 02 19 80 20  |2,[R6,#12]..... |
00000fe0  52 32 2c 52 32 2c 23 73  63 72 65 65 6e 5f 6d 61  |R2,R2,#screen_ma|
00000ff0  73 6b 25 0d 08 0c 16 41  44 44 20 52 37 2c 52 37  |sk%....ADD R7,R7|
00001000  2c 52 32 2c 4c 53 4c 23  38 0d 08 16 1f 4d 4f 56  |,R2,LSL#8....MOV|
00001010  20 52 37 2c 52 37 2c 4c  53 4c 23 73 63 72 65 65  | R7,R7,LSL#scree|
00001020  6e 5f 73 68 69 66 74 25  0d 08 20 04 0d 08 2a 04  |n_shift%.. ...*.|
00001030  0d 08 34 0b a4 73 68 61  64 6f 77 0d 08 3e 04 0d  |..4..shadow..>..|
00001040  08 48 13 41 44 52 20 52  38 2c 6d 6f 64 65 30 74  |.H.ADR R8,mode0t|
00001050  61 62 0d 08 52 27 4c 44  52 42 20 52 32 2c 5b 52  |ab..R'LDRB R2,[R|
00001060  36 2c 23 31 5d 20 3b 20  6e 6f 20 6f 66 20 68 6f  |6,#1] ; no of ho|
00001070  72 69 7a 20 63 68 61 72  73 0d 08 5c 14 4c 44 52  |riz chars..\.LDR|
00001080  42 20 52 31 31 2c 5b 52  36 2c 23 36 5d 0d 08 66  |B R11,[R6,#6]..f|
00001090  11 4d 55 4c 20 52 34 2c  52 32 2c 52 31 31 0d 08  |.MUL R4,R2,R11..|
000010a0  70 04 0d 08 7a 11 41 44  44 20 52 37 2c 52 37 2c  |p...z.ADD R7,R7,|
000010b0  52 31 33 0d 08 84 16 41  44 44 20 52 31 31 2c 52  |R13....ADD R11,R|
000010c0  31 33 2c 23 26 38 30 30  30 0d 08 8e 13 41 44 44  |13,#&8000....ADD|
000010d0  20 52 31 32 2c 52 31 32  2c 52 31 33 0d 08 98 04  | R12,R12,R13....|
000010e0  0d 08 a2 0a 2e 6c 6f 6f  70 32 0d 08 ac 0a 2e 6c  |.....loop2.....l|
000010f0  6f 6f 70 31 0d 08 b6 04  0d 08 c0 40 3b 52 4a 57  |oop1.......@;RJW|
00001100  3b 20 4f 70 74 69 6d 69  73 65 64 20 74 68 69 73  |; Optimised this|
00001110  20 74 6f 20 73 61 76 65  20 74 69 6d 65 2c 20 61  | to save time, a|
00001120  74 20 74 68 65 20 65 78  70 65 6e 73 65 20 6f 66  |t the expense of|
00001130  20 52 31 30 2c 52 31 34  0d 08 ca 16 4c 44 4d 49  | R10,R14....LDMI|
00001140  41 20 52 37 21 2c 7b 52  30 2c 52 31 34 7d 0d 08  |A R7!,{R0,R14}..|
00001150  d4 12 80 20 52 31 30 2c  52 31 34 2c 23 26 46 46  |... R10,R14,#&FF|
00001160  0d 08 de 14 4c 44 52 42  20 52 35 2c 5b 52 38 2c  |....LDRB R5,[R8,|
00001170  52 31 30 5d 0d 08 e8 16  53 54 52 42 20 52 35 2c  |R10]....STRB R5,|
00001180  5b 52 39 2c 23 38 30 2a  34 5d 0d 08 f2 14 80 20  |[R9,#80*4]..... |
00001190  52 31 30 2c 52 31 34 2c  23 26 46 46 30 30 0d 08  |R10,R14,#&FF00..|
000011a0  fc 1a 4c 44 52 42 20 52  35 2c 5b 52 38 2c 52 31  |..LDRB R5,[R8,R1|
000011b0  30 2c 4c 53 52 23 38 5d  0d 09 06 16 53 54 52 42  |0,LSR#8]....STRB|
000011c0  20 52 35 2c 5b 52 39 2c  23 38 30 2a 35 5d 0d 09  | R5,[R9,#80*5]..|
000011d0  10 16 80 20 52 31 30 2c  52 31 34 2c 23 26 46 46  |... R10,R14,#&FF|
000011e0  30 30 30 30 0d 09 1a 1b  4c 44 52 42 20 52 35 2c  |0000....LDRB R5,|
000011f0  5b 52 38 2c 52 31 30 2c  4c 53 52 23 31 36 5d 0d  |[R8,R10,LSR#16].|
00001200  09 24 16 53 54 52 42 20  52 35 2c 5b 52 39 2c 23  |.$.STRB R5,[R9,#|
00001210  38 30 2a 36 5d 0d 09 2e  1b 4c 44 52 42 20 52 35  |80*6]....LDRB R5|
00001220  2c 5b 52 38 2c 52 31 34  2c 4c 53 52 23 32 34 5d  |,[R8,R14,LSR#24]|
00001230  0d 09 38 16 53 54 52 42  20 52 35 2c 5b 52 39 2c  |..8.STRB R5,[R9,|
00001240  23 38 30 2a 37 5d 0d 09  42 04 0d 09 4c 13 80 20  |#80*7]..B...L.. |
00001250  52 31 30 2c 52 30 2c 23  26 46 46 30 30 0d 09 56  |R10,R0,#&FF00..V|
00001260  1a 4c 44 52 42 20 52 35  2c 5b 52 38 2c 52 31 30  |.LDRB R5,[R8,R10|
00001270  2c 4c 53 52 23 38 5d 0d  09 60 14 53 54 52 42 20  |,LSR#8]..`.STRB |
00001280  52 35 2c 5b 52 39 2c 23  38 30 5d 0d 09 6a 15 80  |R5,[R9,#80]..j..|
00001290  20 52 31 30 2c 52 30 2c  23 26 46 46 30 30 30 30  | R10,R0,#&FF0000|
000012a0  0d 09 74 1b 4c 44 52 42  20 52 35 2c 5b 52 38 2c  |..t.LDRB R5,[R8,|
000012b0  52 31 30 2c 4c 53 52 23  31 36 5d 0d 09 7e 16 53  |R10,LSR#16]..~.S|
000012c0  54 52 42 20 52 35 2c 5b  52 39 2c 23 38 30 2a 32  |TRB R5,[R9,#80*2|
000012d0  5d 0d 09 88 1a 4c 44 52  42 20 52 35 2c 5b 52 38  |]....LDRB R5,[R8|
000012e0  2c 52 30 2c 4c 53 52 23  32 34 5d 0d 09 92 16 53  |,R0,LSR#24]....S|
000012f0  54 52 42 20 52 35 2c 5b  52 39 2c 23 38 30 2a 33  |TRB R5,[R9,#80*3|
00001300  5d 0d 09 9c 11 80 20 52  31 30 2c 52 30 2c 23 26  |]..... R10,R0,#&|
00001310  46 46 0d 09 a6 14 4c 44  52 42 20 52 35 2c 5b 52  |FF....LDRB R5,[R|
00001320  38 2c 52 31 30 5d 0d 09  b0 13 53 54 52 42 20 52  |8,R10]....STRB R|
00001330  35 2c 5b 52 39 5d 2c 23  31 0d 09 ba 04 0d 09 c4  |5,[R9],#1.......|
00001340  1a 43 4d 50 20 52 37 2c  52 31 31 20 3a 20 ec 51  |.CMP R7,R11 : .Q|
00001350  20 52 37 2c 52 31 32 0d  09 ce 04 0d 09 d8 28 53  | R7,R12.......(S|
00001360  55 42 53 20 52 32 2c 52  32 2c 23 31 20 3b 20 65  |UBS R2,R2,#1 ; e|
00001370  6e 64 20 6f 66 20 63 68  61 72 61 63 74 65 72 20  |nd of character |
00001380  72 6f 77 0d 09 e2 0d 42  47 54 20 6c 6f 6f 70 31  |row....BGT loop1|
00001390  0d 09 ec 27 4c 44 52 42  20 52 32 2c 5b 52 36 2c  |...'LDRB R2,[R6,|
000013a0  23 31 5d 20 3b 20 6e 6f  20 6f 66 20 68 6f 72 69  |#1] ; no of hori|
000013b0  7a 20 63 68 61 72 73 0d  09 f6 21 41 44 44 20 52  |z chars...!ADD R|
000013c0  39 2c 52 39 2c 23 36 34  30 20 3a 20 53 55 42 20  |9,R9,#640 : SUB |
000013d0  52 39 2c 52 39 2c 52 32  0d 0a 00 20 53 55 42 53  |R9,R9,R2... SUBS|
000013e0  20 52 34 2c 52 34 2c 52  32 20 3b 2c 4c 53 4c 23  | R4,R4,R2 ;,LSL#|
000013f0  33 20 3b 20 23 36 34 30  0d 0a 0a 0d 42 48 49 20  |3 ; #640....BHI |
00001400  6c 6f 6f 70 32 0d 0a 14  04 0d 0a 1e 04 0d 0a 28  |loop2..........(|
00001410  1a 4c 44 4d 45 41 20 6d  65 6d 2c 7b 52 34 2d 52  |.LDMEA mem,{R4-R|
00001420  31 31 2c 50 43 7d 5e 0d  0a 32 04 0d 0a 3c 04 0d  |11,PC}^..2...<..|
00001430  0a 46 11 2e 75 70 64 61  74 65 70 69 78 65 6c 31  |.F..updatepixel1|
00001440  0d 0a 50 04 0d 0a 5a 11  3b 52 4a 57 20 77 61 73  |..P...Z.;RJW was|
00001450  20 68 65 72 65 0d 0a 64  1b 41 44 44 20 52 31 34  | here..d.ADD R14|
00001460  2c 52 31 34 2c 52 31 34  2c 4c 53 4c 23 32 20 3b  |,R14,R14,LSL#2 ;|
00001470  0d 0a 6e 04 0d 0a 78 37  41 44 44 20 52 31 34 2c  |..n...x7ADD R14,|
00001480  52 31 2c 52 31 34 2c 4c  53 4c 23 34 20 3b 20 6f  |R1,R14,LSL#4 ; o|
00001490  66 66 73 65 74 20 69 6e  20 61 72 63 20 73 63 72  |ffset in arc scr|
000014a0  65 65 6e 20 6f 66 20 62  79 74 65 0d 0a 82 04 0d  |een of byte.....|
000014b0  0a 8c 14 41 44 52 20 52  31 33 2c 6d 6f 64 65 31  |...ADR R13,mode1|
000014c0  74 61 62 0d 0a 96 2c 4c  44 52 20 52 30 2c 5b 52  |tab...,LDR R0,[R|
000014d0  31 33 2c 52 30 5d 20 3b  20 6c 6f 61 64 20 31 20  |13,R0] ; load 1 |
000014e0  62 79 74 65 20 66 72 6f  6d 20 74 61 62 6c 65 0d  |byte from table.|
000014f0  0a a0 04 0d 0a aa 22 4c  44 52 20 52 31 33 2c 5b  |......"LDR R13,[|
00001500  6d 65 6d 2c 23 61 72 63  5f 73 63 72 65 65 6e 73  |mem,#arc_screens|
00001510  74 61 72 74 5d 0d 0a b4  15 53 54 52 42 20 52 30  |tart]....STRB R0|
00001520  2c 5b 52 31 33 2c 52 31  34 5d 0d 0a be 19 4c 44  |,[R13,R14]....LD|
00001530  52 20 50 43 2c 5b 6d 65  6d 2c 23 73 63 72 61 74  |R PC,[mem,#scrat|
00001540  63 68 5d 0d 0a c8 04 0d  0a d2 0d 2e 6d 6f 64 65  |ch].........mode|
00001550  31 74 61 62 0d 0a dc 05  5d 0d 0a e6 0b 50 25 2b  |1tab....]....P%+|
00001560  3d 32 35 36 0d 0a f0 0b  4f 25 2b 3d 32 35 36 0d  |=256....O%+=256.|
00001570  0a fa 09 5b 4f 50 54 70  0d 0b 04 04 0d 0b 0e 12  |...[OPTp........|
00001580  2e 75 70 64 61 74 65 73  63 72 65 65 6e 31 0d 0b  |.updatescreen1..|
00001590  18 04 0d 0b 22 1b 4c 44  52 42 20 52 30 2c 5b 6d  |....".LDRB R0,[m|
000015a0  65 6d 2c 23 6c 61 73 74  6d 6f 64 65 5d 0d 0b 2c  |em,#lastmode]..,|
000015b0  0d 43 4d 50 20 52 30 2c  23 31 0d 0b 36 12 42 45  |.CMP R0,#1..6.BE|
000015c0  51 20 73 6b 69 70 5f 6d  6f 64 65 31 0d 0b 40 0c  |Q skip_mode1..@.|
000015d0  53 57 49 20 26 31 31 36  0d 0b 4a 12 53 57 49 20  |SWI &116..J.SWI |
000015e0  26 31 30 31 20 3b 20 eb  20 31 0d 0b 54 0f a4 70  |&101 ; . 1..T..p|
000015f0  6f 69 6e 74 65 72 5f 6f  6e 0d 0b 5e 1a 53 57 49  |ointer_on..^.SWI|
00001600  20 22 4f 53 5f 52 65 6d  6f 76 65 43 75 72 73 6f  | "OS_RemoveCurso|
00001610  72 73 22 0d 0b 68 27 4d  4f 56 20 52 30 2c 23 31  |rs"..h'MOV R0,#1|
00001620  20 3a 20 53 54 52 42 20  52 30 2c 5b 6d 65 6d 2c  | : STRB R0,[mem,|
00001630  23 6c 61 73 74 6d 6f 64  65 5d 0d 0b 72 0f 2e 73  |#lastmode]..r..s|
00001640  6b 69 70 5f 6d 6f 64 65  31 0d 0b 7c 04 0d 0b 86  |kip_mode1..|....|
00001650  19 3b 4c 44 52 20 52 36  2c 63 72 74 5f 72 65 67  |.;LDR R6,crt_reg|
00001660  73 5f 61 64 64 72 0d 0b  90 19 53 55 42 20 52 36  |s_addr....SUB R6|
00001670  2c 6d 65 6d 2c 23 2d 63  72 74 5f 72 65 67 73 0d  |,mem,#-crt_regs.|
00001680  0b 9a 14 4c 44 52 42 20  52 37 2c 5b 52 36 2c 23  |...LDRB R7,[R6,#|
00001690  31 33 5d 0d 0b a4 14 4c  44 52 42 20 52 32 2c 5b  |13]....LDRB R2,[|
000016a0  52 36 2c 23 31 32 5d 0d  0b ae 19 80 20 52 32 2c  |R6,#12]..... R2,|
000016b0  52 32 2c 23 73 63 72 65  65 6e 5f 6d 61 73 6b 25  |R2,#screen_mask%|
000016c0  0d 0b b8 16 41 44 44 20  52 37 2c 52 37 2c 52 32  |....ADD R7,R7,R2|
000016d0  2c 4c 53 4c 23 38 0d 0b  c2 1f 4d 4f 56 20 52 37  |,LSL#8....MOV R7|
000016e0  2c 52 37 2c 4c 53 4c 23  73 63 72 65 65 6e 5f 73  |,R7,LSL#screen_s|
000016f0  68 69 66 74 25 0d 0b cc  04 0d 0b d6 0b a4 73 68  |hift%.........sh|
00001700  61 64 6f 77 0d 0b e0 04  0d 0b ea 13 41 44 52 20  |adow........ADR |
00001710  52 38 2c 6d 6f 64 65 31  74 61 62 0d 0b f4 27 4c  |R8,mode1tab...'L|
00001720  44 52 42 20 52 32 2c 5b  52 36 2c 23 31 5d 20 3b  |DRB R2,[R6,#1] ;|
00001730  20 6e 6f 20 6f 66 20 68  6f 72 69 7a 20 63 68 61  | no of horiz cha|
00001740  72 73 0d 0b fe 14 4c 44  52 42 20 52 31 31 2c 5b  |rs....LDRB R11,[|
00001750  52 36 2c 23 36 5d 0d 0c  08 11 4d 55 4c 20 52 34  |R6,#6]....MUL R4|
00001760  2c 52 32 2c 52 31 31 0d  0c 12 13 4d 4f 56 20 52  |,R2,R11....MOV R|
00001770  34 2c 52 34 2c 4c 53 4c  23 33 0d 0c 1c 04 0d 0c  |4,R4,LSL#3......|
00001780  26 11 41 44 44 20 52 37  2c 52 37 2c 52 31 33 0d  |&.ADD R7,R7,R13.|
00001790  0c 30 16 41 44 44 20 52  31 31 2c 52 31 33 2c 23  |.0.ADD R11,R13,#|
000017a0  26 38 30 30 30 0d 0c 3a  13 41 44 44 20 52 31 32  |&8000..:.ADD R12|
000017b0  2c 52 31 32 2c 52 31 33  0d 0c 44 04 0d 0c 4e 14  |,R12,R13..D...N.|
000017c0  3b 4d 4f 56 20 52 34 2c  52 32 2c 4c 53 4c 23 38  |;MOV R4,R2,LSL#8|
000017d0  0d 0c 58 12 3b 4d 4f 56  20 52 34 2c 23 26 35 30  |..X.;MOV R4,#&50|
000017e0  30 30 0d 0c 62 0a 2e 6c  6f 6f 70 32 0d 0c 6c 0f  |00..b..loop2..l.|
000017f0  3b 4d 4f 56 20 52 32 2c  23 38 30 0d 0c 76 0a 2e  |;MOV R2,#80..v..|
00001800  6c 6f 6f 70 31 0d 0c 80  04 0d 0c 8a 39 3b 52 4a  |loop1.......9;RJ|
00001810  57 3b 4f 70 74 69 6d 69  73 65 64 20 74 6f 20 69  |W;Optimised to i|
00001820  6d 70 72 6f 76 65 20 73  70 65 65 64 20 61 74 20  |mprove speed at |
00001830  65 78 70 65 6e 73 65 20  6f 66 20 52 31 30 2c 52  |expense of R10,R|
00001840  31 34 0d 0c 94 17 4c 44  4d 49 41 20 52 37 21 2c  |14....LDMIA R7!,|
00001850  7b 52 31 30 2c 52 31 34  7d 0d 0c 9e 11 80 20 52  |{R10,R14}..... R|
00001860  30 2c 52 31 34 2c 23 26  46 46 0d 0c a8 13 4c 44  |0,R14,#&FF....LD|
00001870  52 42 20 52 35 2c 5b 52  38 2c 52 30 5d 0d 0c b2  |RB R5,[R8,R0]...|
00001880  16 53 54 52 42 20 52 35  2c 5b 52 39 2c 23 38 30  |.STRB R5,[R9,#80|
00001890  2a 34 5d 0d 0c bc 13 80  20 52 30 2c 52 31 34 2c  |*4]..... R0,R14,|
000018a0  23 26 46 46 30 30 0d 0c  c6 19 4c 44 52 42 20 52  |#&FF00....LDRB R|
000018b0  35 2c 5b 52 38 2c 52 30  2c 4c 53 52 23 38 5d 0d  |5,[R8,R0,LSR#8].|
000018c0  0c d0 16 53 54 52 42 20  52 35 2c 5b 52 39 2c 23  |...STRB R5,[R9,#|
000018d0  38 30 2a 35 5d 0d 0c da  15 80 20 52 30 2c 52 31  |80*5]..... R0,R1|
000018e0  34 2c 23 26 46 46 30 30  30 30 0d 0c e4 1a 4c 44  |4,#&FF0000....LD|
000018f0  52 42 20 52 35 2c 5b 52  38 2c 52 30 2c 4c 53 52  |RB R5,[R8,R0,LSR|
00001900  23 31 36 5d 0d 0c ee 16  53 54 52 42 20 52 35 2c  |#16]....STRB R5,|
00001910  5b 52 39 2c 23 38 30 2a  36 5d 0d 0c f8 1b 4c 44  |[R9,#80*6]....LD|
00001920  52 42 20 52 35 2c 5b 52  38 2c 52 31 34 2c 4c 53  |RB R5,[R8,R14,LS|
00001930  52 23 32 34 5d 0d 0d 02  16 53 54 52 42 20 52 35  |R#24]....STRB R5|
00001940  2c 5b 52 39 2c 23 38 30  2a 37 5d 0d 0d 0c 04 0d  |,[R9,#80*7].....|
00001950  0d 16 13 80 20 52 30 2c  52 31 30 2c 23 26 46 46  |.... R0,R10,#&FF|
00001960  30 30 0d 0d 20 19 4c 44  52 42 20 52 35 2c 5b 52  |00.. .LDRB R5,[R|
00001970  38 2c 52 30 2c 4c 53 52  23 38 5d 0d 0d 2a 14 53  |8,R0,LSR#8]..*.S|
00001980  54 52 42 20 52 35 2c 5b  52 39 2c 23 38 30 5d 0d  |TRB R5,[R9,#80].|
00001990  0d 34 15 80 20 52 30 2c  52 31 30 2c 23 26 46 46  |.4.. R0,R10,#&FF|
000019a0  30 30 30 30 0d 0d 3e 1a  4c 44 52 42 20 52 35 2c  |0000..>.LDRB R5,|
000019b0  5b 52 38 2c 52 30 2c 4c  53 52 23 31 36 5d 0d 0d  |[R8,R0,LSR#16]..|
000019c0  48 16 53 54 52 42 20 52  35 2c 5b 52 39 2c 23 38  |H.STRB R5,[R9,#8|
000019d0  30 2a 32 5d 0d 0d 52 1b  4c 44 52 42 20 52 35 2c  |0*2]..R.LDRB R5,|
000019e0  5b 52 38 2c 52 31 30 2c  4c 53 52 23 32 34 5d 0d  |[R8,R10,LSR#24].|
000019f0  0d 5c 16 53 54 52 42 20  52 35 2c 5b 52 39 2c 23  |.\.STRB R5,[R9,#|
00001a00  38 30 2a 33 5d 0d 0d 66  11 80 20 52 30 2c 52 31  |80*3]..f.. R0,R1|
00001a10  30 2c 23 26 46 46 0d 0d  70 13 4c 44 52 42 20 52  |0,#&FF..p.LDRB R|
00001a20  35 2c 5b 52 38 2c 52 30  5d 0d 0d 7a 13 53 54 52  |5,[R8,R0]..z.STR|
00001a30  42 20 52 35 2c 5b 52 39  5d 2c 23 31 0d 0d 84 04  |B R5,[R9],#1....|
00001a40  0d 0d 8e 1a 43 4d 50 20  52 37 2c 52 31 31 20 3a  |....CMP R7,R11 :|
00001a50  20 ec 51 20 52 37 2c 52  31 32 0d 0d 98 04 0d 0d  | .Q R7,R12......|
00001a60  a2 28 53 55 42 53 20 52  32 2c 52 32 2c 23 31 20  |.(SUBS R2,R2,#1 |
00001a70  3b 20 65 6e 64 20 6f 66  20 63 68 61 72 61 63 74  |; end of charact|
00001a80  65 72 20 72 6f 77 0d 0d  ac 0d 42 47 54 20 6c 6f  |er row....BGT lo|
00001a90  6f 70 31 0d 0d b6 27 4c  44 52 42 20 52 32 2c 5b  |op1...'LDRB R2,[|
00001aa0  52 36 2c 23 31 5d 20 3b  20 6e 6f 20 6f 66 20 68  |R6,#1] ; no of h|
00001ab0  6f 72 69 7a 20 63 68 61  72 73 0d 0d c0 04 0d 0d  |oriz chars......|
00001ac0  ca 21 41 44 44 20 52 39  2c 52 39 2c 23 36 34 30  |.!ADD R9,R9,#640|
00001ad0  20 3a 20 53 55 42 20 52  39 2c 52 39 2c 52 32 0d  | : SUB R9,R9,R2.|
00001ae0  0d d4 1e 53 55 42 53 20  52 34 2c 52 34 2c 52 32  |...SUBS R4,R4,R2|
00001af0  2c 4c 53 4c 23 33 20 3b  20 23 36 34 30 0d 0d de  |,LSL#3 ; #640...|
00001b00  0d 42 48 49 20 6c 6f 6f  70 32 0d 0d e8 04 0d 0d  |.BHI loop2......|
00001b10  f2 1a 4c 44 4d 45 41 20  6d 65 6d 2c 7b 52 34 2d  |..LDMEA mem,{R4-|
00001b20  52 31 31 2c 50 43 7d 5e  0d 0d fc 04 0d 0e 06 11  |R11,PC}^........|
00001b30  2e 75 70 64 61 74 65 70  69 78 65 6c 32 0d 0e 10  |.updatepixel2...|
00001b40  04 0d 0e 1a 12 3b 20 52  4a 57 20 77 61 73 20 68  |.....; RJW was h|
00001b50  65 72 65 0d 0e 24 23 41  44 44 20 52 31 34 2c 52  |ere..$#ADD R14,R|
00001b60  31 34 2c 52 31 34 2c 4c  53 4c 23 32 20 3b 20 52  |14,R14,LSL#2 ; R|
00001b70  31 34 20 2a 20 35 0d 0e  2e 04 0d 0e 38 37 41 44  |14 * 5......87AD|
00001b80  44 20 52 31 34 2c 52 31  2c 52 31 34 2c 4c 53 4c  |D R14,R1,R14,LSL|
00001b90  23 34 20 3b 20 6f 66 66  73 65 74 20 69 6e 20 61  |#4 ; offset in a|
00001ba0  72 63 20 73 63 72 65 65  6e 20 6f 66 20 62 79 74  |rc screen of byt|
00001bb0  65 0d 0e 42 04 0d 0e 4c  14 41 44 52 20 52 31 33  |e..B...L.ADR R13|
00001bc0  2c 6d 6f 64 65 32 74 61  62 0d 0e 56 33 4c 44 52  |,mode2tab..V3LDR|
00001bd0  20 52 30 2c 5b 52 31 33  2c 52 30 2c 4c 53 4c 23  | R0,[R13,R0,LSL#|
00001be0  32 5d 20 3b 20 6c 6f 61  64 20 34 20 62 79 74 65  |2] ; load 4 byte|
00001bf0  73 20 66 72 6f 6d 20 74  61 62 6c 65 0d 0e 60 04  |s from table..`.|
00001c00  0d 0e 6a 22 4c 44 52 20  52 31 33 2c 5b 6d 65 6d  |..j"LDR R13,[mem|
00001c10  2c 23 61 72 63 5f 73 63  72 65 65 6e 73 74 61 72  |,#arc_screenstar|
00001c20  74 5d 0d 0e 74 1a 53 54  52 20 52 30 2c 5b 52 31  |t]..t.STR R0,[R1|
00001c30  33 2c 52 31 34 2c 4c 53  4c 23 32 5d 0d 0e 7e 14  |3,R14,LSL#2]..~.|
00001c40  3b 4d 4f 56 20 52 30 2c  52 30 2c 4c 53 52 23 38  |;MOV R0,R0,LSR#8|
00001c50  0d 0e 88 13 3b 41 44 44  20 52 31 34 2c 52 31 34  |....;ADD R14,R14|
00001c60  2c 23 31 0d 0e 92 16 3b  53 54 52 42 20 52 30 2c  |,#1....;STRB R0,|
00001c70  5b 52 31 33 2c 52 31 34  5d 0d 0e 9c 19 4c 44 52  |[R13,R14]....LDR|
00001c80  20 50 43 2c 5b 6d 65 6d  2c 23 73 63 72 61 74 63  | PC,[mem,#scratc|
00001c90  68 5d 0d 0e a6 04 0d 0e  b0 04 0d 0e ba 0d 3b 2e  |h]............;.|
00001ca0  73 63 72 61 74 63 68 0d  0e c4 0b 3b 45 51 55 44  |scratch....;EQUD|
00001cb0  20 30 0d 0e ce 0b 3b 45  51 55 44 20 30 0d 0e d8  | 0....;EQUD 0...|
00001cc0  0b 3b 45 51 55 44 20 30  0d 0e e2 0b 3b 45 51 55  |.;EQUD 0....;EQU|
00001cd0  44 20 30 0d 0e ec 04 0d  0e f6 04 0d 0f 00 0f 3b  |D 0............;|
00001ce0  2e 77 72 61 70 5f 61 64  64 72 0d 0f 0a 0f 3b 45  |.wrap_addr....;E|
00001cf0  51 55 44 20 26 34 30 30  30 0d 0f 14 04 0d 0f 1e  |QUD &4000.......|
00001d00  12 2e 75 70 64 61 74 65  73 63 72 65 65 6e 32 0d  |..updatescreen2.|
00001d10  0f 28 1b 4c 44 52 42 20  52 30 2c 5b 6d 65 6d 2c  |.(.LDRB R0,[mem,|
00001d20  23 6c 61 73 74 6d 6f 64  65 5d 0d 0f 32 0e 43 4d  |#lastmode]..2.CM|
00001d30  50 20 52 30 2c 23 31 32  0d 0f 3c 12 42 45 51 20  |P R0,#12..<.BEQ |
00001d40  73 6b 69 70 5f 6d 6f 64  65 32 0d 0f 46 0c 53 57  |skip_mode2..F.SW|
00001d50  49 20 26 31 31 36 0d 0f  50 16 53 57 49 20 26 31  |I &116..P.SWI &1|
00001d60  30 30 2b 31 32 20 3b 20  eb 20 31 32 0d 0f 5a 0f  |00+12 ; . 12..Z.|
00001d70  a4 70 6f 69 6e 74 65 72  5f 6f 6e 0d 0f 64 1a 53  |.pointer_on..d.S|
00001d80  57 49 20 22 4f 53 5f 52  65 6d 6f 76 65 43 75 72  |WI "OS_RemoveCur|
00001d90  73 6f 72 73 22 0d 0f 6e  28 4d 4f 56 20 52 30 2c  |sors"..n(MOV R0,|
00001da0  23 31 32 20 3a 20 53 54  52 42 20 52 30 2c 5b 6d  |#12 : STRB R0,[m|
00001db0  65 6d 2c 23 6c 61 73 74  6d 6f 64 65 5d 0d 0f 78  |em,#lastmode]..x|
00001dc0  0f 2e 73 6b 69 70 5f 6d  6f 64 65 32 0d 0f 82 04  |..skip_mode2....|
00001dd0  0d 0f 8c 19 3b 4c 44 52  20 52 36 2c 63 72 74 5f  |....;LDR R6,crt_|
00001de0  72 65 67 73 5f 61 64 64  72 0d 0f 96 19 53 55 42  |regs_addr....SUB|
00001df0  20 52 36 2c 6d 65 6d 2c  23 2d 63 72 74 5f 72 65  | R6,mem,#-crt_re|
00001e00  67 73 0d 0f a0 14 4c 44  52 42 20 52 37 2c 5b 52  |gs....LDRB R7,[R|
00001e10  36 2c 23 31 33 5d 0d 0f  aa 14 4c 44 52 42 20 52  |6,#13]....LDRB R|
00001e20  32 2c 5b 52 36 2c 23 31  32 5d 0d 0f b4 19 80 20  |2,[R6,#12]..... |
00001e30  52 32 2c 52 32 2c 23 73  63 72 65 65 6e 5f 6d 61  |R2,R2,#screen_ma|
00001e40  73 6b 25 0d 0f be 16 41  44 44 20 52 37 2c 52 37  |sk%....ADD R7,R7|
00001e50  2c 52 32 2c 4c 53 4c 23  38 0d 0f c8 1f 4d 4f 56  |,R2,LSL#8....MOV|
00001e60  20 52 37 2c 52 37 2c 4c  53 4c 23 73 63 72 65 65  | R7,R7,LSL#scree|
00001e70  6e 5f 73 68 69 66 74 25  0d 0f d2 04 0d 0f dc 0b  |n_shift%........|
00001e80  a4 73 68 61 64 6f 77 0d  0f e6 04 0d 0f f0 13 41  |.shadow........A|
00001e90  44 52 20 52 38 2c 6d 6f  64 65 32 74 61 62 0d 0f  |DR R8,mode2tab..|
00001ea0  fa 27 4c 44 52 42 20 52  32 2c 5b 52 36 2c 23 31  |.'LDRB R2,[R6,#1|
00001eb0  5d 20 3b 20 6e 6f 20 6f  66 20 68 6f 72 69 7a 20  |] ; no of horiz |
00001ec0  63 68 61 72 73 0d 10 04  2b 4c 44 52 42 20 52 31  |chars...+LDRB R1|
00001ed0  31 2c 5b 52 36 2c 23 36  5d 20 3b 20 6e 6f 20 6f  |1,[R6,#6] ; no o|
00001ee0  66 20 76 65 72 74 69 63  61 6c 20 63 68 61 72 73  |f vertical chars|
00001ef0  0d 10 0e 11 4d 55 4c 20  52 34 2c 52 32 2c 52 31  |....MUL R4,R2,R1|
00001f00  31 0d 10 18 13 4d 4f 56  20 52 34 2c 52 34 2c 4c  |1....MOV R4,R4,L|
00001f10  53 4c 23 33 0d 10 22 04  0d 10 2c 11 41 44 44 20  |SL#3.."...,.ADD |
00001f20  52 37 2c 52 37 2c 52 31  33 0d 10 36 16 41 44 44  |R7,R7,R13..6.ADD|
00001f30  20 52 31 31 2c 52 31 33  2c 23 26 38 30 30 30 0d  | R11,R13,#&8000.|
00001f40  10 40 13 41 44 44 20 52  31 32 2c 52 31 32 2c 52  |.@.ADD R12,R12,R|
00001f50  31 33 0d 10 4a 04 0d 10  54 14 3b 4d 4f 56 20 52  |13..J...T.;MOV R|
00001f60  34 2c 52 32 2c 4c 53 4c  23 38 0d 10 5e 0a 2e 6c  |4,R2,LSL#8..^..l|
00001f70  6f 6f 70 32 0d 10 68 0f  3b 4d 4f 56 20 52 32 2c  |oop2..h.;MOV R2,|
00001f80  23 38 30 0d 10 72 0a 2e  6c 6f 6f 70 31 0d 10 7c  |#80..r..loop1..||
00001f90  04 0d 10 86 12 3b 20 52  4a 57 20 77 61 73 20 68  |.....; RJW was h|
00001fa0  65 72 65 0d 10 90 17 4c  44 4d 49 41 20 52 37 21  |ere....LDMIA R7!|
00001fb0  2c 7b 52 31 30 2c 52 31  34 7d 0d 10 9a 11 80 20  |,{R10,R14}..... |
00001fc0  52 30 2c 52 31 34 2c 23  26 46 46 0d 10 a4 18 4c  |R0,R14,#&FF....L|
00001fd0  44 52 20 52 35 2c 5b 52  38 2c 52 30 2c 4c 53 4c  |DR R5,[R8,R0,LSL|
00001fe0  23 32 5d 0d 10 ae 16 53  54 52 20 52 35 2c 5b 52  |#2]....STR R5,[R|
00001ff0  39 2c 23 33 32 30 2a 34  5d 0d 10 b8 13 80 20 52  |9,#320*4]..... R|
00002000  30 2c 52 31 34 2c 23 26  46 46 30 30 0d 10 c2 18  |0,R14,#&FF00....|
00002010  4c 44 52 20 52 35 2c 5b  52 38 2c 52 30 2c 4c 53  |LDR R5,[R8,R0,LS|
00002020  52 23 36 5d 0d 10 cc 16  53 54 52 20 52 35 2c 5b  |R#6]....STR R5,[|
00002030  52 39 2c 23 33 32 30 2a  35 5d 0d 10 d6 15 80 20  |R9,#320*5]..... |
00002040  52 30 2c 52 31 34 2c 23  26 46 46 30 30 30 30 0d  |R0,R14,#&FF0000.|
00002050  10 e0 19 4c 44 52 20 52  35 2c 5b 52 38 2c 52 30  |...LDR R5,[R8,R0|
00002060  2c 4c 53 52 23 31 34 5d  0d 10 ea 16 53 54 52 20  |,LSR#14]....STR |
00002070  52 35 2c 5b 52 39 2c 23  33 32 30 2a 36 5d 0d 10  |R5,[R9,#320*6]..|
00002080  f4 17 80 20 52 30 2c 52  31 34 2c 23 26 46 46 30  |... R0,R14,#&FF0|
00002090  30 30 30 30 30 0d 10 fe  19 4c 44 52 20 52 35 2c  |00000....LDR R5,|
000020a0  5b 52 38 2c 52 30 2c 4c  53 52 23 32 32 5d 0d 11  |[R8,R0,LSR#22]..|
000020b0  08 16 53 54 52 20 52 35  2c 5b 52 39 2c 23 33 32  |..STR R5,[R9,#32|
000020c0  30 2a 37 5d 0d 11 12 04  0d 11 1c 13 80 20 52 30  |0*7]......... R0|
000020d0  2c 52 31 30 2c 23 26 46  46 30 30 0d 11 26 18 4c  |,R10,#&FF00..&.L|
000020e0  44 52 20 52 35 2c 5b 52  38 2c 52 30 2c 4c 53 52  |DR R5,[R8,R0,LSR|
000020f0  23 36 5d 0d 11 30 14 53  54 52 20 52 35 2c 5b 52  |#6]..0.STR R5,[R|
00002100  39 2c 23 33 32 30 5d 0d  11 3a 15 80 20 52 30 2c  |9,#320]..:.. R0,|
00002110  52 31 30 2c 23 26 46 46  30 30 30 30 0d 11 44 19  |R10,#&FF0000..D.|
00002120  4c 44 52 20 52 35 2c 5b  52 38 2c 52 30 2c 4c 53  |LDR R5,[R8,R0,LS|
00002130  52 23 31 34 5d 0d 11 4e  16 53 54 52 20 52 35 2c  |R#14]..N.STR R5,|
00002140  5b 52 39 2c 23 33 32 30  2a 32 5d 0d 11 58 17 80  |[R9,#320*2]..X..|
00002150  20 52 30 2c 52 31 30 2c  23 26 46 46 30 30 30 30  | R0,R10,#&FF0000|
00002160  30 30 0d 11 62 19 4c 44  52 20 52 35 2c 5b 52 38  |00..b.LDR R5,[R8|
00002170  2c 52 30 2c 4c 53 52 23  32 32 5d 0d 11 6c 16 53  |,R0,LSR#22]..l.S|
00002180  54 52 20 52 35 2c 5b 52  39 2c 23 33 32 30 2a 33  |TR R5,[R9,#320*3|
00002190  5d 0d 11 76 11 80 20 52  30 2c 52 31 30 2c 23 26  |]..v.. R0,R10,#&|
000021a0  46 46 0d 11 80 18 4c 44  52 20 52 35 2c 5b 52 38  |FF....LDR R5,[R8|
000021b0  2c 52 30 2c 4c 53 4c 23  32 5d 0d 11 8a 12 53 54  |,R0,LSL#2]....ST|
000021c0  52 20 52 35 2c 5b 52 39  5d 2c 23 34 0d 11 94 04  |R R5,[R9],#4....|
000021d0  0d 11 9e 1a 43 4d 50 20  52 37 2c 52 31 31 20 3a  |....CMP R7,R11 :|
000021e0  20 ec 51 20 52 37 2c 52  31 32 0d 11 a8 04 0d 11  | .Q R7,R12......|
000021f0  b2 28 53 55 42 53 20 52  32 2c 52 32 2c 23 31 20  |.(SUBS R2,R2,#1 |
00002200  3b 20 65 6e 64 20 6f 66  20 63 68 61 72 61 63 74  |; end of charact|
00002210  65 72 20 72 6f 77 0d 11  bc 0d 42 47 54 20 6c 6f  |er row....BGT lo|
00002220  6f 70 31 0d 11 c6 27 4c  44 52 42 20 52 32 2c 5b  |op1...'LDRB R2,[|
00002230  52 36 2c 23 31 5d 20 3b  20 6e 6f 20 6f 66 20 68  |R6,#1] ; no of h|
00002240  6f 72 69 7a 20 63 68 61  72 73 0d 11 d0 27 41 44  |oriz chars...'AD|
00002250  44 20 52 39 2c 52 39 2c  23 33 32 30 2a 38 3a 53  |D R9,R9,#320*8:S|
00002260  55 42 20 52 39 2c 52 39  2c 52 32 2c 4c 53 4c 23  |UB R9,R9,R2,LSL#|
00002270  32 0d 11 da 1e 53 55 42  53 20 52 34 2c 52 34 2c  |2....SUBS R4,R4,|
00002280  52 32 2c 4c 53 4c 23 33  20 3b 20 23 36 34 30 0d  |R2,LSL#3 ; #640.|
00002290  11 e4 0d 42 47 54 20 6c  6f 6f 70 32 0d 11 ee 04  |...BGT loop2....|
000022a0  0d 11 f8 1a 4c 44 4d 45  41 20 6d 65 6d 2c 7b 52  |....LDMEA mem,{R|
000022b0  34 2d 52 31 31 2c 50 43  7d 5e 0d 12 02 04 0d 12  |4-R11,PC}^......|
000022c0  0c 0d 2e 6d 6f 64 65 32  74 61 62 0d 12 16 05 5d  |...mode2tab....]|
000022d0  0d 12 20 0c 50 25 2b 3d  31 30 32 34 0d 12 2a 0c  |.. .P%+=1024..*.|
000022e0  4f 25 2b 3d 31 30 32 34  0d 12 34 09 5b 4f 50 54  |O%+=1024..4.[OPT|
000022f0  70 0d 12 3e 04 0d 12 48  12 3b 20 52 4a 57 20 77  |p..>...H.; RJW w|
00002300  61 73 20 68 65 72 65 0d  12 52 11 2e 75 70 64 61  |as here..R..upda|
00002310  74 65 70 69 78 65 6c 35  0d 12 5c 14 41 44 52 20  |tepixel5..\.ADR |
00002320  52 31 33 2c 6d 6f 64 65  35 74 61 62 0d 12 66 04  |R13,mode5tab..f.|
00002330  0d 12 70 1d 4c 44 52 42  20 52 32 2c 5b 6d 65 6d  |..p.LDRB R2,[mem|
00002340  2c 23 63 72 74 5f 72 65  67 73 2b 33 5d 0d 12 7a  |,#crt_regs+3]..z|
00002350  12 54 53 54 20 52 32 2c  23 31 20 3c 3c 20 34 0d  |.TST R2,#1 << 4.|
00002360  12 84 16 42 45 51 20 75  70 64 61 74 65 70 69 78  |...BEQ updatepix|
00002370  65 6c 35 5f 32 0d 12 8e  04 0d 12 98 12 3b 20 52  |el5_2........; R|
00002380  4a 57 20 77 61 73 20 68  65 72 65 0d 12 a2 29 80  |JW was here...).|
00002390  20 52 32 2c 52 31 34 2c  23 25 31 31 20 20 20 20  | R2,R14,#%11    |
000023a0  3b 20 6d 61 6b 65 20 66  6f 72 74 72 65 73 73 20  |; make fortress |
000023b0  77 6f 72 6b 0d 12 ac 19  42 49 43 20 52 31 34 2c  |work....BIC R14,|
000023c0  52 31 34 2c 23 25 31 31  31 20 20 20 3b 0d 12 b6  |R14,#%111   ;...|
000023d0  18 41 44 44 20 52 31 34  2c 52 32 2c 52 31 34 2c  |.ADD R14,R2,R14,|
000023e0  4c 53 52 23 31 0d 12 c0  04 0d 12 ca 14 42 20 75  |LSR#1........B u|
000023f0  70 64 61 74 65 70 69 78  65 6c 35 5f 32 0d 12 d4  |pdatepixel5_2...|
00002400  04 0d 12 de 04 0d 12 e8  12 2e 75 70 64 61 74 65  |..........update|
00002410  73 63 72 65 65 6e 35 0d  12 f2 13 41 44 52 20 52  |screen5....ADR R|
00002420  38 2c 6d 6f 64 65 35 74  61 62 0d 12 fc 15 42 20  |8,mode5tab....B |
00002430  75 70 64 61 74 65 73 63  72 65 65 6e 34 5f 32 0d  |updatescreen4_2.|
00002440  13 06 04 0d 13 10 0d 2e  6d 6f 64 65 35 74 61 62  |........mode5tab|
00002450  0d 13 1a 05 5d 0d 13 24  0c 50 25 2b 3d 31 30 32  |....]..$.P%+=102|
00002460  34 0d 13 2e 0c 4f 25 2b  3d 31 30 32 34 0d 13 38  |4....O%+=1024..8|
00002470  09 5b 4f 50 54 70 0d 13  42 04 0d 13 4c 04 0d 13  |.[OPTp..B...L...|
00002480  56 12 2e 75 70 64 61 74  65 73 63 72 65 65 6e 34  |V..updatescreen4|
00002490  0d 13 60 13 41 44 52 20  52 38 2c 6d 6f 64 65 34  |..`.ADR R8,mode4|
000024a0  74 61 62 0d 13 6a 14 2e  75 70 64 61 74 65 73 63  |tab..j..updatesc|
000024b0  72 65 65 6e 34 5f 32 0d  13 74 04 0d 13 7e 1b 4c  |reen4_2..t...~.L|
000024c0  44 52 42 20 52 30 2c 5b  6d 65 6d 2c 23 6c 61 73  |DRB R0,[mem,#las|
000024d0  74 6d 6f 64 65 5d 0d 13  88 0d 43 4d 50 20 52 30  |tmode]....CMP R0|
000024e0  2c 23 39 0d 13 92 12 42  45 51 20 73 6b 69 70 5f  |,#9....BEQ skip_|
000024f0  6d 6f 64 65 39 0d 13 9c  0c 53 57 49 20 26 31 31  |mode9....SWI &11|
00002500  36 0d 13 a6 14 53 57 49  20 26 31 30 30 2b 39 20  |6....SWI &100+9 |
00002510  3b 20 eb 20 39 0d 13 b0  0f a4 70 6f 69 6e 74 65  |; . 9.....pointe|
00002520  72 5f 6f 6e 0d 13 ba 1a  53 57 49 20 22 4f 53 5f  |r_on....SWI "OS_|
00002530  52 65 6d 6f 76 65 43 75  72 73 6f 72 73 22 0d 13  |RemoveCursors"..|
00002540  c4 27 4d 4f 56 20 52 30  2c 23 39 20 3a 20 53 54  |.'MOV R0,#9 : ST|
00002550  52 42 20 52 30 2c 5b 6d  65 6d 2c 23 6c 61 73 74  |RB R0,[mem,#last|
00002560  6d 6f 64 65 5d 0d 13 ce  0f 2e 73 6b 69 70 5f 6d  |mode].....skip_m|
00002570  6f 64 65 39 0d 13 d8 04  0d 13 e2 19 3b 4c 44 52  |ode9........;LDR|
00002580  20 52 36 2c 63 72 74 5f  72 65 67 73 5f 61 64 64  | R6,crt_regs_add|
00002590  72 0d 13 ec 19 53 55 42  20 52 36 2c 6d 65 6d 2c  |r....SUB R6,mem,|
000025a0  23 2d 63 72 74 5f 72 65  67 73 0d 13 f6 14 4c 44  |#-crt_regs....LD|
000025b0  52 42 20 52 37 2c 5b 52  36 2c 23 31 33 5d 0d 14  |RB R7,[R6,#13]..|
000025c0  00 14 4c 44 52 42 20 52  32 2c 5b 52 36 2c 23 31  |..LDRB R2,[R6,#1|
000025d0  32 5d 0d 14 0a 19 80 20  52 32 2c 52 32 2c 23 73  |2]..... R2,R2,#s|
000025e0  63 72 65 65 6e 5f 6d 61  73 6b 25 0d 14 14 16 41  |creen_mask%....A|
000025f0  44 44 20 52 37 2c 52 37  2c 52 32 2c 4c 53 4c 23  |DD R7,R7,R2,LSL#|
00002600  38 0d 14 1e 1f 4d 4f 56  20 52 37 2c 52 37 2c 4c  |8....MOV R7,R7,L|
00002610  53 4c 23 73 63 72 65 65  6e 5f 73 68 69 66 74 25  |SL#screen_shift%|
00002620  0d 14 28 04 0d 14 32 0b  a4 73 68 61 64 6f 77 0d  |..(...2..shadow.|
00002630  14 3c 04 0d 14 46 14 3b  41 44 52 20 52 38 2c 6d  |.<...F.;ADR R8,m|
00002640  6f 64 65 34 74 61 62 0d  14 50 27 4c 44 52 42 20  |ode4tab..P'LDRB |
00002650  52 32 2c 5b 52 36 2c 23  31 5d 20 3b 20 6e 6f 20  |R2,[R6,#1] ; no |
00002660  6f 66 20 68 6f 72 69 7a  20 63 68 61 72 73 0d 14  |of horiz chars..|
00002670  5a 2b 4c 44 52 42 20 52  31 31 2c 5b 52 36 2c 23  |Z+LDRB R11,[R6,#|
00002680  36 5d 20 3b 20 6e 6f 20  6f 66 20 76 65 72 74 69  |6] ; no of verti|
00002690  63 61 6c 20 63 68 61 72  73 0d 14 64 11 4d 55 4c  |cal chars..d.MUL|
000026a0  20 52 34 2c 52 32 2c 52  31 31 0d 14 6e 13 4d 4f  | R4,R2,R11..n.MO|
000026b0  56 20 52 34 2c 52 34 2c  4c 53 4c 23 33 0d 14 78  |V R4,R4,LSL#3..x|
000026c0  04 0d 14 82 11 41 44 44  20 52 37 2c 52 37 2c 52  |.....ADD R7,R7,R|
000026d0  31 33 0d 14 8c 16 41 44  44 20 52 31 31 2c 52 31  |13....ADD R11,R1|
000026e0  33 2c 23 26 38 30 30 30  0d 14 96 13 41 44 44 20  |3,#&8000....ADD |
000026f0  52 31 32 2c 52 31 32 2c  52 31 33 0d 14 a0 04 0d  |R12,R12,R13.....|
00002700  14 aa 12 3b 20 52 4a 57  20 77 61 73 20 68 65 72  |...; RJW was her|
00002710  65 0d 14 b4 1e 4c 44 52  42 20 52 30 2c 5b 52 36  |e....LDRB R0,[R6|
00002720  2c 23 33 5d 20 3b 20 46  6f 72 74 72 65 73 73 0d  |,#3] ; Fortress.|
00002730  14 be 12 54 53 54 20 52  30 2c 23 31 20 3c 3c 20  |...TST R0,#1 << |
00002740  34 0d 14 c8 1e 42 4e 45  20 66 6f 72 74 72 65 73  |4....BNE fortres|
00002750  73 5f 75 70 64 61 74 65  73 63 72 65 65 6e 34 0d  |s_updatescreen4.|
00002760  14 d2 14 3b 4d 4f 56 20  52 34 2c 52 32 2c 4c 53  |...;MOV R4,R2,LS|
00002770  4c 23 38 0d 14 dc 0a 2e  6c 6f 6f 70 32 0d 14 e6  |L#8.....loop2...|
00002780  0f 3b 4d 4f 56 20 52 32  2c 23 38 30 0d 14 f0 0a  |.;MOV R2,#80....|
00002790  2e 6c 6f 6f 70 31 0d 14  fa 04 0d 15 04 11 3b 52  |.loop1........;R|
000027a0  4a 57 20 77 61 73 20 68  65 72 65 0d 15 0e 17 4c  |JW was here....L|
000027b0  44 4d 49 41 20 52 37 21  2c 7b 52 31 30 2c 52 31  |DMIA R7!,{R10,R1|
000027c0  34 7d 0d 15 18 11 80 20  52 30 2c 52 31 34 2c 23  |4}..... R0,R14,#|
000027d0  26 46 46 0d 15 22 18 4c  44 52 20 52 35 2c 5b 52  |&FF..".LDR R5,[R|
000027e0  38 2c 52 30 2c 4c 53 4c  23 32 5d 0d 15 2c 30 53  |8,R0,LSL#2]..,0S|
000027f0  54 52 20 52 35 2c 5b 52  39 2c 23 31 36 30 2a 34  |TR R5,[R9,#160*4|
00002800  5d 20 3b 20 31 36 30 3d  6c 69 6e 65 20 6c 65 6e  |] ; 160=line len|
00002810  67 74 68 20 69 6e 20 6d  6f 64 65 0d 15 36 13 80  |gth in mode..6..|
00002820  20 52 30 2c 52 31 34 2c  23 26 46 46 30 30 0d 15  | R0,R14,#&FF00..|
00002830  40 18 4c 44 52 20 52 35  2c 5b 52 38 2c 52 30 2c  |@.LDR R5,[R8,R0,|
00002840  4c 53 52 23 36 5d 0d 15  4a 30 53 54 52 20 52 35  |LSR#6]..J0STR R5|
00002850  2c 5b 52 39 2c 23 31 36  30 2a 35 5d 20 3b 20 31  |,[R9,#160*5] ; 1|
00002860  36 30 3d 6c 69 6e 65 20  6c 65 6e 67 74 68 20 69  |60=line length i|
00002870  6e 20 6d 6f 64 65 0d 15  54 15 80 20 52 30 2c 52  |n mode..T.. R0,R|
00002880  31 34 2c 23 26 46 46 30  30 30 30 0d 15 5e 19 4c  |14,#&FF0000..^.L|
00002890  44 52 20 52 35 2c 5b 52  38 2c 52 30 2c 4c 53 52  |DR R5,[R8,R0,LSR|
000028a0  23 31 34 5d 0d 15 68 30  53 54 52 20 52 35 2c 5b  |#14]..h0STR R5,[|
000028b0  52 39 2c 23 31 36 30 2a  36 5d 20 3b 20 31 36 30  |R9,#160*6] ; 160|
000028c0  3d 6c 69 6e 65 20 6c 65  6e 67 74 68 20 69 6e 20  |=line length in |
000028d0  6d 6f 64 65 0d 15 72 17  80 20 52 30 2c 52 31 34  |mode..r.. R0,R14|
000028e0  2c 23 26 46 46 30 30 30  30 30 30 0d 15 7c 19 4c  |,#&FF000000..|.L|
000028f0  44 52 20 52 35 2c 5b 52  38 2c 52 30 2c 4c 53 52  |DR R5,[R8,R0,LSR|
00002900  23 32 32 5d 0d 15 86 30  53 54 52 20 52 35 2c 5b  |#22]...0STR R5,[|
00002910  52 39 2c 23 31 36 30 2a  37 5d 20 3b 20 31 36 30  |R9,#160*7] ; 160|
00002920  3d 6c 69 6e 65 20 6c 65  6e 67 74 68 20 69 6e 20  |=line length in |
00002930  6d 6f 64 65 0d 15 90 04  0d 15 9a 13 80 20 52 30  |mode......... R0|
00002940  2c 52 31 30 2c 23 26 46  46 30 30 0d 15 a4 18 4c  |,R10,#&FF00....L|
00002950  44 52 20 52 35 2c 5b 52  38 2c 52 30 2c 4c 53 52  |DR R5,[R8,R0,LSR|
00002960  23 36 5d 0d 15 ae 2e 53  54 52 20 52 35 2c 5b 52  |#6]....STR R5,[R|
00002970  39 2c 23 31 36 30 5d 20  3b 20 31 36 30 3d 6c 69  |9,#160] ; 160=li|
00002980  6e 65 20 6c 65 6e 67 74  68 20 69 6e 20 6d 6f 64  |ne length in mod|
00002990  65 0d 15 b8 15 80 20 52  30 2c 52 31 30 2c 23 26  |e..... R0,R10,#&|
000029a0  46 46 30 30 30 30 0d 15  c2 19 4c 44 52 20 52 35  |FF0000....LDR R5|
000029b0  2c 5b 52 38 2c 52 30 2c  4c 53 52 23 31 34 5d 0d  |,[R8,R0,LSR#14].|
000029c0  15 cc 30 53 54 52 20 52  35 2c 5b 52 39 2c 23 31  |..0STR R5,[R9,#1|
000029d0  36 30 2a 32 5d 20 3b 20  31 36 30 3d 6c 69 6e 65  |60*2] ; 160=line|
000029e0  20 6c 65 6e 67 74 68 20  69 6e 20 6d 6f 64 65 0d  | length in mode.|
000029f0  15 d6 17 80 20 52 30 2c  52 31 30 2c 23 26 46 46  |.... R0,R10,#&FF|
00002a00  30 30 30 30 30 30 0d 15  e0 19 4c 44 52 20 52 35  |000000....LDR R5|
00002a10  2c 5b 52 38 2c 52 30 2c  4c 53 52 23 32 32 5d 0d  |,[R8,R0,LSR#22].|
00002a20  15 ea 30 53 54 52 20 52  35 2c 5b 52 39 2c 23 31  |..0STR R5,[R9,#1|
00002a30  36 30 2a 33 5d 20 3b 20  31 36 30 3d 6c 69 6e 65  |60*3] ; 160=line|
00002a40  20 6c 65 6e 67 74 68 20  69 6e 20 6d 6f 64 65 0d  | length in mode.|
00002a50  15 f4 11 80 20 52 30 2c  52 31 30 2c 23 26 46 46  |.... R0,R10,#&FF|
00002a60  0d 15 fe 18 4c 44 52 20  52 35 2c 5b 52 38 2c 52  |....LDR R5,[R8,R|
00002a70  30 2c 4c 53 4c 23 32 5d  0d 16 08 2c 53 54 52 20  |0,LSL#2]...,STR |
00002a80  52 35 2c 5b 52 39 5d 2c  23 34 20 3b 20 31 36 30  |R5,[R9],#4 ; 160|
00002a90  3d 6c 69 6e 65 20 6c 65  6e 67 74 68 20 69 6e 20  |=line length in |
00002aa0  6d 6f 64 65 0d 16 12 04  0d 16 1c 1a 43 4d 50 20  |mode........CMP |
00002ab0  52 37 2c 52 31 31 20 3a  20 ec 51 20 52 37 2c 52  |R7,R11 : .Q R7,R|
00002ac0  31 32 0d 16 26 04 0d 16  30 28 53 55 42 53 20 52  |12..&...0(SUBS R|
00002ad0  32 2c 52 32 2c 23 31 20  3b 20 65 6e 64 20 6f 66  |2,R2,#1 ; end of|
00002ae0  20 63 68 61 72 61 63 74  65 72 20 72 6f 77 0d 16  | character row..|
00002af0  3a 0d 42 47 54 20 6c 6f  6f 70 31 0d 16 44 04 0d  |:.BGT loop1..D..|
00002b00  16 4e 37 4c 44 52 42 20  52 32 2c 5b 52 36 2c 23  |.N7LDRB R2,[R6,#|
00002b10  33 5d 20 3a 20 4d 4f 56  20 52 32 2c 52 32 2c 4c  |3] : MOV R2,R2,L|
00002b20  53 52 23 34 20 3b 20 76  65 72 74 69 63 61 6c 20  |SR#4 ; vertical |
00002b30  74 69 6d 69 6e 67 0d 16  58 27 4d 4f 56 20 52 35  |timing..X'MOV R5|
00002b40  2c 23 33 32 30 20 3a 20  4d 4f 56 20 52 35 2c 52  |,#320 : MOV R5,R|
00002b50  35 2c 4c 53 4c 20 52 32  20 20 20 20 3b 0d 16 62  |5,LSL R2    ;..b|
00002b60  15 3b 41 44 44 20 52 39  2c 52 39 2c 23 31 36 30  |.;ADD R9,R9,#160|
00002b70  2a 38 0d 16 6c 3d 41 44  44 20 52 39 2c 52 39 2c  |*8..l=ADD R9,R9,|
00002b80  52 35 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |R5              |
00002b90  20 20 20 20 20 20 20 20  3b 20 74 6f 20 6d 61 6b  |        ; to mak|
00002ba0  65 20 66 6f 72 74 72 65  73 73 20 77 6f 72 6b 0d  |e fortress work.|
00002bb0  16 76 04 0d 16 80 27 4c  44 52 42 20 52 32 2c 5b  |.v....'LDRB R2,[|
00002bc0  52 36 2c 23 31 5d 20 3b  20 6e 6f 20 6f 66 20 68  |R6,#1] ; no of h|
00002bd0  6f 72 69 7a 20 63 68 61  72 73 0d 16 8a 16 53 55  |oriz chars....SU|
00002be0  42 20 52 39 2c 52 39 2c  52 32 2c 4c 53 4c 23 32  |B R9,R9,R2,LSL#2|
00002bf0  0d 16 94 1e 53 55 42 53  20 52 34 2c 52 34 2c 52  |....SUBS R4,R4,R|
00002c00  32 2c 4c 53 4c 23 33 20  3b 20 23 36 34 30 0d 16  |2,LSL#3 ; #640..|
00002c10  9e 0d 42 47 54 20 6c 6f  6f 70 32 0d 16 a8 04 0d  |..BGT loop2.....|
00002c20  16 b2 1a 4c 44 4d 45 41  20 6d 65 6d 2c 7b 52 34  |...LDMEA mem,{R4|
00002c30  2d 52 31 31 2c 50 43 7d  5e 0d 16 bc 11 3b 52 4a  |-R11,PC}^....;RJ|
00002c40  57 20 77 61 73 20 68 65  72 65 0d 16 c6 1b 2e 66  |W was here.....f|
00002c50  6f 72 74 72 65 73 73 5f  75 70 64 61 74 65 73 63  |ortress_updatesc|
00002c60  72 65 65 6e 34 0d 16 d0  14 3b 4d 4f 56 20 52 34  |reen4....;MOV R4|
00002c70  2c 52 32 2c 4c 53 4c 23  38 0d 16 da 0a 2e 6c 6f  |,R2,LSL#8.....lo|
00002c80  6f 70 32 0d 16 e4 0f 3b  4d 4f 56 20 52 32 2c 23  |op2....;MOV R2,#|
00002c90  38 30 0d 16 ee 0a 2e 6c  6f 6f 70 31 0d 16 f8 04  |80.....loop1....|
00002ca0  0d 17 02 13 4c 44 52 20  52 31 30 2c 5b 52 37 5d  |....LDR R10,[R7]|
00002cb0  2c 23 38 0d 17 0c 13 80  20 52 30 2c 52 31 30 2c  |,#8..... R0,R10,|
00002cc0  23 26 46 46 30 30 0d 17  16 18 4c 44 52 20 52 35  |#&FF00....LDR R5|
00002cd0  2c 5b 52 38 2c 52 30 2c  4c 53 52 23 36 5d 0d 17  |,[R8,R0,LSR#6]..|
00002ce0  20 2e 53 54 52 20 52 35  2c 5b 52 39 2c 23 31 36  | .STR R5,[R9,#16|
00002cf0  30 5d 20 3b 20 31 36 30  3d 6c 69 6e 65 20 6c 65  |0] ; 160=line le|
00002d00  6e 67 74 68 20 69 6e 20  6d 6f 64 65 0d 17 2a 15  |ngth in mode..*.|
00002d10  80 20 52 30 2c 52 31 30  2c 23 26 46 46 30 30 30  |. R0,R10,#&FF000|
00002d20  30 0d 17 34 19 4c 44 52  20 52 35 2c 5b 52 38 2c  |0..4.LDR R5,[R8,|
00002d30  52 30 2c 4c 53 52 23 31  34 5d 0d 17 3e 30 53 54  |R0,LSR#14]..>0ST|
00002d40  52 20 52 35 2c 5b 52 39  2c 23 31 36 30 2a 32 5d  |R R5,[R9,#160*2]|
00002d50  20 3b 20 31 36 30 3d 6c  69 6e 65 20 6c 65 6e 67  | ; 160=line leng|
00002d60  74 68 20 69 6e 20 6d 6f  64 65 0d 17 48 17 80 20  |th in mode..H.. |
00002d70  52 30 2c 52 31 30 2c 23  26 46 46 30 30 30 30 30  |R0,R10,#&FF00000|
00002d80  30 0d 17 52 19 4c 44 52  20 52 35 2c 5b 52 38 2c  |0..R.LDR R5,[R8,|
00002d90  52 30 2c 4c 53 52 23 32  32 5d 0d 17 5c 30 53 54  |R0,LSR#22]..\0ST|
00002da0  52 20 52 35 2c 5b 52 39  2c 23 31 36 30 2a 33 5d  |R R5,[R9,#160*3]|
00002db0  20 3b 20 31 36 30 3d 6c  69 6e 65 20 6c 65 6e 67  | ; 160=line leng|
00002dc0  74 68 20 69 6e 20 6d 6f  64 65 0d 17 66 11 80 20  |th in mode..f.. |
00002dd0  52 30 2c 52 31 30 2c 23  26 46 46 0d 17 70 18 4c  |R0,R10,#&FF..p.L|
00002de0  44 52 20 52 35 2c 5b 52  38 2c 52 30 2c 4c 53 4c  |DR R5,[R8,R0,LSL|
00002df0  23 32 5d 0d 17 7a 2c 53  54 52 20 52 35 2c 5b 52  |#2]..z,STR R5,[R|
00002e00  39 5d 2c 23 34 20 3b 20  31 36 30 3d 6c 69 6e 65  |9],#4 ; 160=line|
00002e10  20 6c 65 6e 67 74 68 20  69 6e 20 6d 6f 64 65 0d  | length in mode.|
00002e20  17 84 04 0d 17 8e 1a 43  4d 50 20 52 37 2c 52 31  |.......CMP R7,R1|
00002e30  31 20 3a 20 ec 51 20 52  37 2c 52 31 32 0d 17 98  |1 : .Q R7,R12...|
00002e40  04 0d 17 a2 28 53 55 42  53 20 52 32 2c 52 32 2c  |....(SUBS R2,R2,|
00002e50  23 31 20 3b 20 65 6e 64  20 6f 66 20 63 68 61 72  |#1 ; end of char|
00002e60  61 63 74 65 72 20 72 6f  77 0d 17 ac 0d 42 47 54  |acter row....BGT|
00002e70  20 6c 6f 6f 70 31 0d 17  b6 04 0d 17 c0 37 4c 44  | loop1.......7LD|
00002e80  52 42 20 52 32 2c 5b 52  36 2c 23 33 5d 20 3a 20  |RB R2,[R6,#3] : |
00002e90  4d 4f 56 20 52 32 2c 52  32 2c 4c 53 52 23 34 20  |MOV R2,R2,LSR#4 |
00002ea0  3b 20 76 65 72 74 69 63  61 6c 20 74 69 6d 69 6e  |; vertical timin|
00002eb0  67 0d 17 ca 27 4d 4f 56  20 52 35 2c 23 33 32 30  |g...'MOV R5,#320|
00002ec0  20 3a 20 4d 4f 56 20 52  35 2c 52 35 2c 4c 53 4c  | : MOV R5,R5,LSL|
00002ed0  20 52 32 20 20 20 20 3b  0d 17 d4 15 3b 41 44 44  | R2    ;....;ADD|
00002ee0  20 52 39 2c 52 39 2c 23  31 36 30 2a 38 0d 17 de  | R9,R9,#160*8...|
00002ef0  3d 41 44 44 20 52 39 2c  52 39 2c 52 35 20 20 20  |=ADD R9,R9,R5   |
00002f00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002f10  20 20 20 3b 20 74 6f 20  6d 61 6b 65 20 66 6f 72  |   ; to make for|
00002f20  74 72 65 73 73 20 77 6f  72 6b 0d 17 e8 04 0d 17  |tress work......|
00002f30  f2 27 4c 44 52 42 20 52  32 2c 5b 52 36 2c 23 31  |.'LDRB R2,[R6,#1|
00002f40  5d 20 3b 20 6e 6f 20 6f  66 20 68 6f 72 69 7a 20  |] ; no of horiz |
00002f50  63 68 61 72 73 0d 17 fc  16 53 55 42 20 52 39 2c  |chars....SUB R9,|
00002f60  52 39 2c 52 32 2c 4c 53  4c 23 32 0d 18 06 1e 53  |R9,R2,LSL#2....S|
00002f70  55 42 53 20 52 34 2c 52  34 2c 52 32 2c 4c 53 4c  |UBS R4,R4,R2,LSL|
00002f80  23 33 20 3b 20 23 36 34  30 0d 18 10 0d 42 47 54  |#3 ; #640....BGT|
00002f90  20 6c 6f 6f 70 32 0d 18  1a 04 0d 18 24 1a 4c 44  | loop2......$.LD|
00002fa0  4d 45 41 20 6d 65 6d 2c  7b 52 34 2d 52 31 31 2c  |MEA mem,{R4-R11,|
00002fb0  50 43 7d 5e 0d 18 2e 04  0d 18 38 12 3b 20 52 4a  |PC}^......8.; RJ|
00002fc0  57 20 77 61 73 20 68 65  72 65 0d 18 42 11 2e 75  |W was here..B..u|
00002fd0  70 64 61 74 65 70 69 78  65 6c 34 0d 18 4c 04 0d  |pdatepixel4..L..|
00002fe0  18 56 14 41 44 52 20 52  31 33 2c 6d 6f 64 65 34  |.V.ADR R13,mode4|
00002ff0  74 61 62 0d 18 60 04 0d  18 6a 13 2e 75 70 64 61  |tab..`...j..upda|
00003000  74 65 70 69 78 65 6c 35  5f 32 0d 18 74 04 0d 18  |tepixel5_2..t...|
00003010  7e 04 0d 18 88 23 41 44  44 20 52 31 34 2c 52 31  |~....#ADD R14,R1|
00003020  34 2c 52 31 34 2c 4c 53  4c 23 32 20 3b 20 52 31  |4,R14,LSL#2 ; R1|
00003030  34 20 2a 20 35 0d 18 92  04 0d 18 9c 39 41 44 44  |4 * 5.......9ADD|
00003040  20 52 31 34 2c 52 31 2c  52 31 34 2c 4c 53 4c 23  | R14,R1,R14,LSL#|
00003050  33 20 3b 20 6f 66 66 73  65 74 20 69 6e 20 61 72  |3 ; offset in ar|
00003060  63 20 73 63 72 65 65 6e  20 6f 66 20 62 79 74 65  |c screen of byte|
00003070  2f 34 0d 18 a6 04 0d 18  b0 33 4c 44 52 20 52 30  |/4.......3LDR R0|
00003080  2c 5b 52 31 33 2c 52 30  2c 4c 53 4c 23 32 5d 20  |,[R13,R0,LSL#2] |
00003090  3b 20 6c 6f 61 64 20 34  20 62 79 74 65 73 20 66  |; load 4 bytes f|
000030a0  72 6f 6d 20 74 61 62 6c  65 0d 18 ba 04 0d 18 c4  |rom table.......|
000030b0  22 4c 44 52 20 52 31 33  2c 5b 6d 65 6d 2c 23 61  |"LDR R13,[mem,#a|
000030c0  72 63 5f 73 63 72 65 65  6e 73 74 61 72 74 5d 0d  |rc_screenstart].|
000030d0  18 ce 1a 53 54 52 20 52  30 2c 5b 52 31 33 2c 52  |...STR R0,[R13,R|
000030e0  31 34 2c 4c 53 4c 23 32  5d 0d 18 d8 19 4c 44 52  |14,LSL#2]....LDR|
000030f0  20 50 43 2c 5b 6d 65 6d  2c 23 73 63 72 61 74 63  | PC,[mem,#scratc|
00003100  68 5d 0d 18 e2 04 0d 18  ec 0d 2e 6d 6f 64 65 34  |h].........mode4|
00003110  74 61 62 0d 18 f6 05 5d  0d 19 00 0c 50 25 2b 3d  |tab....]....P%+=|
00003120  31 30 32 34 0d 19 0a 0c  4f 25 2b 3d 31 30 32 34  |1024....O%+=1024|
00003130  0d 19 14 09 5b 4f 50 54  70 0d 19 1e 04 0d 19 28  |....[OPTp......(|
00003140  0f 2e 70 6f 69 6e 74 65  72 5f 6f 6e 0d 19 32 1d  |..pointer_on..2.|
00003150  5c 4c 44 52 42 20 52 30  2c 5b 6d 65 6d 2c 23 63  |\LDRB R0,[mem,#c|
00003160  75 72 73 6f 72 5f 6f 6e  5d 0d 19 3c 1e 5c 43 4d  |ursor_on]..<.\CM|
00003170  50 20 52 30 2c 23 30 20  3a 20 5c 4d 4f 56 4e 45  |P R0,#0 : \MOVNE|
00003180  20 50 43 2c 52 31 34 0d  19 46 1f 54 53 54 20 46  | PC,R14..F.TST F|
00003190  2c 23 31 20 3c 3c 20 31  30 20 3b 20 63 75 72 73  |,#1 << 10 ; curs|
000031a0  6f 72 20 6f 6e 3f 0d 19  50 0d ec 51 20 50 43 2c  |or on?..P..Q PC,|
000031b0  52 31 34 0d 19 5a 1b 4d  4f 56 20 52 30 2c 23 31  |R14..Z.MOV R0,#1|
000031c0  30 36 3a 4d 4f 56 20 52  31 2c 23 26 38 32 0d 19  |06:MOV R1,#&82..|
000031d0  64 11 53 57 49 20 22 4f  53 5f 42 79 74 65 22 0d  |d.SWI "OS_Byte".|
000031e0  19 6e 0d 4d 4f 56 20 52  30 2c 23 31 0d 19 78 20  |.n.MOV R0,#1..x |
000031f0  53 54 52 42 20 52 30 2c  5b 6d 65 6d 2c 23 63 75  |STRB R0,[mem,#cu|
00003200  72 73 6f 72 5f 74 61 6d  70 65 72 5d 0d 19 82 0e  |rsor_tamper]....|
00003210  4d 4f 56 20 50 43 2c 52  31 34 0d 19 8c 04 0d 19  |MOV PC,R14......|
00003220  96 04 0d 19 a0 12 2e 75  70 64 61 74 65 73 63 72  |.......updatescr|
00003230  65 65 6e 37 0d 19 aa 1b  4c 44 52 42 20 52 30 2c  |een7....LDRB R0,|
00003240  5b 6d 65 6d 2c 23 6c 61  73 74 6d 6f 64 65 5d 0d  |[mem,#lastmode].|
00003250  19 b4 0d 43 4d 50 20 52  30 2c 23 37 0d 19 be 14  |...CMP R0,#7....|
00003260  42 45 51 20 6e 6f 74 5f  6e 65 77 6d 6f 64 65 37  |BEQ not_newmode7|
00003270  0d 19 c8 14 41 44 52 20  52 30 2c 6d 6f 64 65 37  |....ADR R0,mode7|
00003280  63 6f 70 79 0d 19 d2 10  4d 4f 56 20 52 31 2c 23  |copy....MOV R1,#|
00003290  31 30 32 30 0d 19 dc 0d  4d 4f 56 20 52 32 2c 23  |1020....MOV R2,#|
000032a0  30 0d 19 e6 09 2e 63 6c  73 37 0d 19 f0 12 53 54  |0.....cls7....ST|
000032b0  52 20 52 32 2c 5b 52 30  2c 52 31 5d 0d 19 fa 11  |R R2,[R0,R1]....|
000032c0  53 55 42 53 20 52 31 2c  52 31 2c 23 34 0d 1a 04  |SUBS R1,R1,#4...|
000032d0  0c 42 50 4c 20 63 6c 73  37 0d 1a 0e 04 0d 1a 18  |.BPL cls7.......|
000032e0  0c 53 57 49 20 26 31 31  36 0d 1a 22 12 53 57 49  |.SWI &116..".SWI|
000032f0  20 26 31 30 37 20 3b 20  eb 20 37 0d 1a 2c 0f a4  | &107 ; . 7..,..|
00003300  70 6f 69 6e 74 65 72 5f  6f 6e 0d 1a 36 1a 53 57  |pointer_on..6.SW|
00003310  49 20 22 4f 53 5f 52 65  6d 6f 76 65 43 75 72 73  |I "OS_RemoveCurs|
00003320  6f 72 73 22 0d 1a 40 27  4d 4f 56 20 52 30 2c 23  |ors"..@'MOV R0,#|
00003330  37 20 3a 20 53 54 52 42  20 52 30 2c 5b 6d 65 6d  |7 : STRB R0,[mem|
00003340  2c 23 6c 61 73 74 6d 6f  64 65 5d 0d 1a 4a 11 2e  |,#lastmode]..J..|
00003350  6e 6f 74 5f 6e 65 77 6d  6f 64 65 37 0d 1a 54 15  |not_newmode7..T.|
00003360  53 57 49 20 26 31 31 45  20 3b 20 f1 8a 30 2c 30  |SWI &11E ; ..0,0|
00003370  29 0d 1a 5e 04 0d 1a 68  19 3b 4c 44 52 20 52 35  |)..^...h.;LDR R5|
00003380  2c 63 72 74 5f 72 65 67  73 5f 61 64 64 72 0d 1a  |,crt_regs_addr..|
00003390  72 0d 4d 4f 56 20 52 35  2c 52 36 0d 1a 7c 14 4c  |r.MOV R5,R6..|.L|
000033a0  44 52 42 20 52 36 2c 5b  52 35 2c 23 31 32 5d 0d  |DRB R6,[R5,#12].|
000033b0  1a 86 10 80 20 52 36 2c  52 36 2c 23 26 33 46 0d  |.... R6,R6,#&3F.|
000033c0  1a 90 10 82 20 52 36 2c  52 36 2c 23 26 32 30 0d  |.... R6,R6,#&20.|
000033d0  1a 9a 12 41 44 44 20 52  36 2c 52 36 2c 23 26 37  |...ADD R6,R6,#&7|
000033e0  34 0d 1a a4 10 80 20 52  36 2c 52 36 2c 23 26 46  |4..... R6,R6,#&F|
000033f0  46 0d 1a ae 14 4c 44 52  42 20 52 37 2c 5b 52 35  |F....LDRB R7,[R5|
00003400  2c 23 31 33 5d 0d 1a b8  16 41 44 44 20 52 37 2c  |,#13]....ADD R7,|
00003410  52 37 2c 52 36 2c 4c 53  4c 23 38 0d 1a c2 04 0d  |R7,R6,LSL#8.....|
00003420  1a cc 0b a4 73 68 61 64  6f 77 0d 1a d6 04 0d 1a  |....shadow......|
00003430  e0 12 3b 4d 4f 56 20 52  37 2c 23 26 37 43 30 30  |..;MOV R7,#&7C00|
00003440  0d 1a ea 04 0d 1a f4 17  3b 41 44 44 20 6d 65 6d  |........;ADD mem|
00003450  2c 6d 65 6d 2c 23 26 37  43 30 30 0d 1a fe 0d 4d  |,mem,#&7C00....M|
00003460  4f 56 20 52 34 2c 23 30  0d 1b 08 11 3b 53 55 42  |OV R4,#0....;SUB|
00003470  20 52 34 2c 52 34 2c 23  31 0d 1b 12 13 3b 41 44  | R4,R4,#1....;AD|
00003480  44 20 6d 65 6d 2c 6d 65  6d 2c 23 31 0d 1b 1c 04  |D mem,mem,#1....|
00003490  0d 1b 26 26 41 44 52 20  52 38 2c 6d 6f 64 65 37  |..&&ADR R8,mode7|
000034a0  63 6f 70 79 3a 3b 53 55  42 20 52 38 2c 52 38 2c  |copy:;SUB R8,R8,|
000034b0  23 26 37 43 30 30 0d 1b  30 04 0d 1b 3a 11 4d 4f  |#&7C00..0...:.MO|
000034c0  56 20 52 39 2c 23 30 20  3b 20 58 0d 1b 44 12 4d  |V R9,#0 ; X..D.M|
000034d0  4f 56 20 52 31 30 2c 23  30 20 3b 20 59 0d 1b 4e  |OV R10,#0 ; Y..N|
000034e0  10 53 55 42 20 52 39 2c  52 39 2c 23 31 0d 1b 58  |.SUB R9,R9,#1..X|
000034f0  04 0d 1b 62 0e 2e 6d 6f  64 65 37 6c 6f 6f 70 0d  |...b..mode7loop.|
00003500  1b 6c 3b 41 44 44 20 52  39 2c 52 39 2c 23 31 20  |.l;ADD R9,R9,#1 |
00003510  3a 20 43 4d 50 20 52 39  2c 23 34 30 20 3a 20 ec  |: CMP R9,#40 : .|
00003520  51 20 52 39 2c 23 30 20  3a 20 41 44 44 45 51 20  |Q R9,#0 : ADDEQ |
00003530  52 31 30 2c 52 31 30 2c  23 31 0d 1b 76 14 4c 44  |R10,R10,#1..v.LD|
00003540  52 42 20 52 30 2c 5b 52  31 33 2c 52 37 5d 0d 1b  |RB R0,[R13,R7]..|
00003550  80 1c 43 4d 50 20 52 30  2c 23 26 37 46 20 3a 20  |..CMP R0,#&7F : |
00003560  ec 51 20 52 30 2c 23 32  35 35 0d 1b 8a 2c 43 4d  |.Q R0,#255...,CM|
00003570  50 20 52 30 2c 23 26 31  41 20 3a 20 ec 51 20 52  |P R0,#&1A : .Q R|
00003580  30 2c 23 26 39 41 20 3b  20 66 69 78 20 5a 61 6c  |0,#&9A ; fix Zal|
00003590  61 67 61 3f 3f 3f 0d 1b  94 2c 43 4d 50 20 52 30  |aga???...,CMP R0|
000035a0  2c 23 26 31 44 20 3a 20  ec 51 20 52 30 2c 23 26  |,#&1D : .Q R0,#&|
000035b0  39 44 20 3b 20 66 69 78  20 5a 61 6c 61 67 61 3f  |9D ; fix Zalaga?|
000035c0  3f 3f 0d 1b 9e 1d 43 4d  50 20 52 30 2c 23 33 32  |??....CMP R0,#32|
000035d0  20 3a 20 4d 4f 56 4c 54  20 52 30 2c 23 33 32 0d  | : MOVLT R0,#32.|
000035e0  1b a8 04 0d 1b b2 29 43  4d 50 20 52 30 2c 23 26  |......)CMP R0,#&|
000035f0  36 30 20 3a 20 ec 51 20  52 30 2c 23 26 35 46 20  |60 : .Q R0,#&5F |
00003600  3a 20 42 45 51 20 70 72  69 6e 74 37 0d 1b bc 29  |: BEQ print7...)|
00003610  43 4d 50 20 52 30 2c 23  26 35 46 20 3a 20 ec 51  |CMP R0,#&5F : .Q|
00003620  20 52 30 2c 23 26 32 33  20 3a 20 42 45 51 20 70  | R0,#&23 : BEQ p|
00003630  72 69 6e 74 37 0d 1b c6  1c 43 4d 50 20 52 30 2c  |rint7....CMP R0,|
00003640  23 26 32 33 20 3a 20 ec  51 20 52 30 2c 23 26 36  |#&23 : .Q R0,#&6|
00003650  30 0d 1b d0 0b 2e 70 72  69 6e 74 37 0d 1b da 04  |0.....print7....|
00003660  0d 1b e4 1d 4c 44 52 42  20 52 31 31 2c 5b 52 38  |....LDRB R11,[R8|
00003670  5d 20 3b 20 6d 6f 64 65  37 63 6f 70 79 0d 1b ee  |] ; mode7copy...|
00003680  0e 43 4d 50 20 52 31 31  2c 52 30 0d 1b f8 10 42  |.CMP R11,R0....B|
00003690  45 51 20 6e 6f 70 72 69  6e 74 37 0d 1c 02 14 53  |EQ noprint7....S|
000036a0  57 49 20 26 31 30 30 2b  33 31 20 3b 20 f1 8a 0d  |WI &100+31 ; ...|
000036b0  1c 0c 0e 4d 4f 56 20 52  31 31 2c 52 30 0d 1c 16  |...MOV R11,R0...|
000036c0  1f 4d 4f 56 20 52 30 2c  52 39 20 3a 20 53 57 49  |.MOV R0,R9 : SWI|
000036d0  20 22 4f 53 5f 57 72 69  74 65 43 22 0d 1c 20 20  | "OS_WriteC"..  |
000036e0  4d 4f 56 20 52 30 2c 52  31 30 20 3a 20 53 57 49  |MOV R0,R10 : SWI|
000036f0  20 22 4f 53 5f 57 72 69  74 65 43 22 0d 1c 2a 20  | "OS_WriteC"..* |
00003700  4d 4f 56 20 52 30 2c 52  31 31 20 3a 20 53 57 49  |MOV R0,R11 : SWI|
00003710  20 22 4f 53 5f 57 72 69  74 65 43 22 0d 1c 34 1c  | "OS_WriteC"..4.|
00003720  53 54 52 42 20 52 30 2c  5b 52 38 5d 20 3b 20 6d  |STRB R0,[R8] ; m|
00003730  6f 64 65 37 63 6f 70 79  0d 1c 3e 0d 2e 6e 6f 70  |ode7copy..>..nop|
00003740  72 69 6e 74 37 0d 1c 48  10 41 44 44 20 52 38 2c  |rint7..H.ADD R8,|
00003750  52 38 2c 23 31 0d 1c 52  04 0d 1c 5c 10 41 44 44  |R8,#1..R...\.ADD|
00003760  20 52 37 2c 52 37 2c 23  31 0d 1c 66 11 43 4d 50  | R7,R7,#1..f.CMP|
00003770  20 52 37 2c 23 26 38 30  30 30 0d 1c 70 10 ec 51  | R7,#&8000..p..Q|
00003780  20 52 37 2c 23 26 37 43  30 30 0d 1c 7a 10 41 44  | R7,#&7C00..z.AD|
00003790  44 20 52 34 2c 52 34 2c  23 31 0d 1c 84 11 43 4d  |D R4,R4,#1....CM|
000037a0  50 20 52 34 2c 23 32 35  2a 34 30 0d 1c 8e 11 42  |P R4,#25*40....B|
000037b0  4e 45 20 6d 6f 64 65 37  6c 6f 6f 70 0d 1c 98 04  |NE mode7loop....|
000037c0  0d 1c a2 1a 4c 44 4d 45  41 20 6d 65 6d 2c 7b 52  |....LDMEA mem,{R|
000037d0  34 2d 52 31 31 2c 50 43  7d 5e 0d 1c ac 0e 2e 6d  |4-R11,PC}^.....m|
000037e0  6f 64 65 37 63 6f 70 79  0d 1c b6 05 5d 0d 1c c0  |ode7copy....]...|
000037f0  15 50 25 2b 3d 31 30 32  34 3a 4f 25 2b 3d 31 30  |.P%+=1024:O%+=10|
00003800  32 34 0d 1c ca 09 5b 4f  50 54 70 0d 1c d4 04 0d  |24....[OPTp.....|
00003810  1c de 12 2e 75 70 64 61  74 65 5f 73 63 72 65 65  |....update_scree|
00003820  6e 0d 1c e8 11 2e 75 70  64 61 74 65 73 63 72 65  |n.....updatescre|
00003830  65 6e 0d 1c f2 1a 53 54  4d 46 44 20 6d 65 6d 2c  |en....STMFD mem,|
00003840  7b 52 34 2d 52 31 31 2c  52 31 34 7d 0d 1c fc 04  |{R4-R11,R14}....|
00003850  0d 1d 06 05 5d 0d 1d 10  11 e7 20 65 6c 65 63 74  |....]..... elect|
00003860  72 6f 6e 25 20 8c 0d 1d  1a 09 5b 4f 50 54 70 0d  |ron% .....[OPTp.|
00003870  1d 24 12 54 53 54 20 46  2c 23 31 20 3c 3c 20 31  |.$.TST F,#1 << 1|
00003880  32 0d 1d 2e 1b 4d 4f 56  4e 45 20 50 43 2c 52 31  |2....MOVNE PC,R1|
00003890  34 20 3b 20 22 6d 6f 64  65 20 37 22 0d 1d 38 05  |4 ; "mode 7"..8.|
000038a0  5d 0d 1d 42 05 cd 0d 1d  4c 04 0d 1d 56 09 5b 4f  |]..B....L...V.[O|
000038b0  50 54 70 0d 1d 60 21 4c  44 52 20 52 39 2c 5b 6d  |PTp..`!LDR R9,[m|
000038c0  65 6d 2c 23 61 72 63 5f  73 63 72 65 65 6e 73 74  |em,#arc_screenst|
000038d0  61 72 74 5d 0d 1d 6a 04  0d 1d 74 19 53 55 42 20  |art]..j...t.SUB |
000038e0  52 36 2c 6d 65 6d 2c 23  2d 63 72 74 5f 72 65 67  |R6,mem,#-crt_reg|
000038f0  73 0d 1d 7e 16 3b 4c 44  52 42 20 52 31 30 2c 5b  |s..~.;LDRB R10,[|
00003900  52 36 2c 23 31 39 5d 0d  1d 88 14 3b 80 53 20 52  |R6,#19]....;.S R|
00003910  31 30 2c 52 31 30 2c 23  25 31 31 0d 1d 92 15 3b  |10,R10,#%11....;|
00003920  4d 4f 56 4e 45 20 52 31  32 2c 23 26 35 38 30 30  |MOVNE R12,#&5800|
00003930  0d 1d 9c 12 3b ec 51 20  52 31 32 2c 23 26 34 30  |....;.Q R12,#&40|
00003940  30 30 0d 1d a6 11 3b 43  4d 50 20 52 31 30 2c 23  |00....;CMP R10,#|
00003950  25 31 30 0d 1d b0 12 3b  ec 51 20 52 31 32 2c 23  |%10....;.Q R12,#|
00003960  26 33 30 30 30 0d 1d ba  11 3b 43 4d 50 20 52 31  |&3000....;CMP R1|
00003970  30 2c 23 25 30 31 0d 1d  c4 12 3b ec 51 20 52 31  |0,#%01....;.Q R1|
00003980  32 2c 23 26 36 30 30 30  0d 1d ce 14 4d 4f 56 20  |2,#&6000....MOV |
00003990  52 31 32 2c 46 2c 4c 53  52 23 31 36 0d 1d d8 04  |R12,F,LSR#16....|
000039a0  0d 1d e2 05 5d 0d 1d ec  11 e7 20 65 6c 65 63 74  |....]..... elect|
000039b0  72 6f 6e 25 20 8c 0d 1d  f6 09 5b 4f 50 54 70 0d  |ron% .....[OPTp.|
000039c0  1e 00 17 4c 44 52 42 20  52 30 2c 5b 6d 65 6d 2c  |...LDRB R0,[mem,|
000039d0  23 66 65 32 30 5d 0d 1e  0a 05 5d 0d 1e 14 05 cc  |#fe20]....].....|
000039e0  0d 1e 1e 09 5b 4f 50 54  70 0d 1e 28 1c 53 55 42  |....[OPTp..(.SUB|
000039f0  20 52 30 2c 6d 65 6d 2c  23 35 31 32 20 3b 20 73  | R0,mem,#512 ; s|
00003a00  68 65 69 6c 61 0d 1e 32  15 4c 44 52 42 20 52 30  |heila..2.LDRB R0|
00003a10  2c 5b 52 30 2c 23 26 32  30 5d 0d 1e 3c 05 5d 0d  |,[R0,#&20]..<.].|
00003a20  1e 46 05 cd 0d 1e 50 04  0d 1e 5a 09 5b 4f 50 54  |.F....P...Z.[OPT|
00003a30  70 0d 1e 64 2a 3b 52 4a  57 20 55 70 64 61 74 65  |p..d*;RJW Update|
00003a40  64 20 63 6f 64 65 20 74  6f 20 61 76 6f 69 64 20  |d code to avoid |
00003a50  6a 75 6d 70 2d 3e 6a 75  6d 70 73 0d 1e 6e 14 4d  |jump->jumps..n.M|
00003a60  4f 56 53 20 52 30 2c 52  30 2c 4c 53 52 23 32 0d  |OVS R0,R0,LSR#2.|
00003a70  1e 78 15 42 43 53 20 75  70 64 61 74 65 73 63 72  |.x.BCS updatescr|
00003a80  65 65 6e 37 0d 1e 82 04  0d 1e 8c 1d 54 53 54 20  |een7........TST |
00003a90  46 2c 23 31 20 3c 3c 20  38 20 3b 20 70 61 74 63  |F,#1 << 8 ; patc|
00003aa0  68 20 6f 6e 3f 0d 1e 96  2c 42 4e 45 20 70 61 74  |h on?...,BNE pat|
00003ab0  63 68 5f 73 63 72 65 65  6e 32 20 3b 20 70 61 74  |ch_screen2 ; pat|
00003ac0  63 68 5f 73 63 72 65 65  6e 32 20 3b 20 46 3d 52  |ch_screen2 ; F=R|
00003ad0  37 0d 1e a0 04 0d 1e aa  20 3b 52 4a 57 3b 20 43  |7....... ;RJW; C|
00003ae0  61 6e 20 74 68 69 73 20  80 20 62 65 20 72 65 6d  |an this . be rem|
00003af0  6f 76 65 64 3f 0d 1e b4  0f 2e 70 61 74 63 68 5f  |oved?.....patch_|
00003b00  65 78 69 74 0d 1e be 0e  80 20 52 30 2c 52 30 2c  |exit..... R0,R0,|
00003b10  23 37 0d 1e c8 18 4c 44  52 20 52 30 2c 5b 50 43  |#7....LDR R0,[PC|
00003b20  2c 52 30 2c 4c 53 4c 23  32 5d 0d 1e d2 10 41 44  |,R0,LSL#2]....AD|
00003b30  44 20 50 43 2c 50 43 2c  52 30 0d 1e dc 28 45 51  |D PC,PC,R0...(EQ|
00003b40  55 44 20 75 70 64 61 74  65 73 63 72 65 65 6e 34  |UD updatescreen4|
00003b50  2d 75 73 74 61 62 20 20  20 3b 20 25 30 30 30 20  |-ustab   ; %000 |
00003b60  30 30 0d 1e e6 0a 2e 75  73 74 61 62 0d 1e f0 28  |00.....ustab...(|
00003b70  45 51 55 44 20 75 70 64  61 74 65 73 63 72 65 65  |EQUD updatescree|
00003b80  6e 35 2d 75 73 74 61 62  20 20 20 3b 20 25 30 30  |n5-ustab   ; %00|
00003b90  31 20 30 30 0d 1e fa 28  45 51 55 44 20 75 70 64  |1 00...(EQUD upd|
00003ba0  61 74 65 73 63 72 65 65  6e 34 2d 75 73 74 61 62  |atescreen4-ustab|
00003bb0  20 20 20 3b 20 25 30 31  30 20 30 30 0d 1f 04 28  |   ; %010 00...(|
00003bc0  45 51 55 44 20 75 70 64  61 74 65 73 63 72 65 65  |EQUD updatescree|
00003bd0  6e 30 2d 75 73 74 61 62  20 20 20 3b 20 25 30 31  |n0-ustab   ; %01|
00003be0  31 20 30 30 0d 1f 0e 28  45 51 55 44 20 75 70 64  |1 00...(EQUD upd|
00003bf0  61 74 65 73 63 72 65 65  6e 31 2d 75 73 74 61 62  |atescreen1-ustab|
00003c00  20 20 20 3b 20 25 31 30  30 20 30 30 0d 1f 18 28  |   ; %100 00...(|
00003c10  45 51 55 44 20 75 70 64  61 74 65 73 63 72 65 65  |EQUD updatescree|
00003c20  6e 32 2d 75 73 74 61 62  20 20 20 3b 20 25 31 30  |n2-ustab   ; %10|
00003c30  31 20 30 30 0d 1f 22 28  45 51 55 44 20 75 70 64  |1 00.."(EQUD upd|
00003c40  61 74 65 73 63 72 65 65  6e 31 2d 75 73 74 61 62  |atescreen1-ustab|
00003c50  20 20 20 3b 20 25 31 31  30 20 30 30 0d 1f 2c 28  |   ; %110 00..,(|
00003c60  45 51 55 44 20 75 70 64  61 74 65 73 63 72 65 65  |EQUD updatescree|
00003c70  6e 30 2d 75 73 74 61 62  20 20 20 3b 20 25 31 31  |n0-ustab   ; %11|
00003c80  31 20 30 30 0d 1f 36 04  0d 1f 40 12 2e 70 61 74  |1 00..6...@..pat|
00003c90  63 68 5f 73 63 72 65 65  6e 32 0d 1f 4a 16 41 44  |ch_screen2..J.AD|
00003ca0  52 20 52 31 33 2c 70 61  74 63 68 5f 65 78 69 74  |R R13,patch_exit|
00003cb0  0d 1f 54 12 42 20 70 61  74 63 68 5f 73 63 72 65  |..T.B patch_scre|
00003cc0  65 6e 0d 1f 5e 05 5d 0d  1f 68 07 3d 22 22 0d 1f  |en..^.]..h.=""..|
00003cd0  72 04 0d 1f 7c 10 dd a4  70 6f 69 6e 74 65 72 5f  |r...|...pointer_|
00003ce0  6f 6e 0d 1f 86 28 e7 20  ac 65 6c 65 63 74 72 6f  |on...(. .electro|
00003cf0  6e 25 20 8c 20 5b 4f 50  54 70 3a 42 4c 20 70 6f  |n% . [OPTp:BL po|
00003d00  69 6e 74 65 72 5f 6f 6e  3a 5d 0d 1f 90 07 3d 22  |inter_on:]....="|
00003d10  22 0d ff                                          |"..|
00003d13