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

^

hTST R13,#%10

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

|STRNEB R0,[R2,R1]

�STREQB R0,[mem,R1]

�

�� 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 68 10 54 53  |ook at..^...h.TS|
00000230  54 20 52 31 33 2c 23 25  31 30 0d 01 72 37 53 55  |T R13,#%10..r7SU|
00000240  42 4e 45 20 52 32 2c 6d  65 6d 2c 23 28 26 33 30  |BNE R2,mem,#(&30|
00000250  30 30 2b 26 31 30 30 30  30 29 20 3b 20 73 68 61  |00+&10000) ; sha|
00000260  64 6f 77 20 73 63 72 65  65 6e 20 6d 65 6d 6f 72  |dow screen memor|
00000270  79 0d 01 7c 15 53 54 52  4e 45 42 20 52 30 2c 5b  |y..|.STRNEB R0,[|
00000280  52 32 2c 52 31 5d 0d 01  86 16 53 54 52 45 51 42  |R2,R1]....STREQB|
00000290  20 52 30 2c 5b 6d 65 6d  2c 52 31 5d 0d 01 90 04  | R0,[mem,R1]....|
000002a0  0d 01 9a 17 82 20 52 31  32 2c 52 31 32 2c 52 31  |..... R12,R12,R1|
000002b0  33 2c 4c 53 52 23 31 0d  01 a4 3f 54 53 54 20 52  |3,LSR#1...?TST R|
000002c0  31 32 2c 23 25 31 20 20  20 20 20 20 20 20 20 20  |12,#%1          |
000002d0  20 3b 20 61 72 65 20 77  65 20 77 72 69 74 69 6e  | ; are we writin|
000002e0  67 20 74 6f 20 64 69 73  70 6c 61 79 65 64 20 6d  |g to displayed m|
000002f0  65 6d 6f 72 79 3f 0d 01  ae 10 4d 4f 56 4e 45 20  |emory?....MOVNE |
00000300  50 43 2c 52 31 34 0d 01  b8 1f 43 4d 50 20 52 31  |PC,R14....CMP R1|
00000310  2c 46 2c 4c 53 52 23 31  36 20 3b 20 77 72 61 70  |,F,LSR#16 ; wrap|
00000320  5f 61 64 64 72 0d 01 c2  10 4d 4f 56 4c 54 20 50  |_addr....MOVLT P|
00000330  43 2c 52 31 34 0d 01 cc  05 5d 0d 01 d6 05 cc 0d  |C,R14....]......|
00000340  01 e0 09 5b 4f 50 54 70  0d 01 ea 14 53 54 52 42  |...[OPTp....STRB|
00000350  20 52 30 2c 5b 6d 65 6d  2c 52 31 5d 0d 01 f4 05  | R0,[mem,R1]....|
00000360  5d 0d 01 fe 05 cd 0d 02  08 04 0d 02 12 11 e7 20  |].............. |
00000370  65 6c 65 63 74 72 6f 6e  25 20 8c 0d 02 1c 09 5b  |electron% .....[|
00000380  4f 50 54 70 0d 02 26 12  54 53 54 20 46 2c 23 31  |OPTp..&.TST F,#1|
00000390  20 3c 3c 20 31 32 0d 02  30 1b 4d 4f 56 4e 45 20  | << 12..0.MOVNE |
000003a0  50 43 2c 52 31 34 20 3b  20 22 6d 6f 64 65 20 37  |PC,R14 ; "mode 7|
000003b0  22 0d 02 3a 05 5d 0d 02  44 05 cc 0d 02 4e 09 5b  |"..:.]..D....N.[|
000003c0  4f 50 54 70 0d 02 58 1e  4c 44 52 42 20 52 31 32  |OPTp..X.LDRB R12|
000003d0  2c 5b 6d 65 6d 2c 23 63  72 74 5f 72 65 67 73 2b  |,[mem,#crt_regs+|
000003e0  33 5d 0d 02 62 13 54 53  54 20 52 31 32 2c 23 31  |3]..b.TST R12,#1|
000003f0  20 3c 3c 20 34 0d 02 6c  12 54 53 54 4e 45 20 52  | << 4..l.TSTNE R|
00000400  31 2c 23 25 31 30 30 0d  02 76 1b 4d 4f 56 4e 45  |1,#%100..v.MOVNE|
00000410  20 50 43 2c 52 31 34 20  3b 20 66 6f 72 74 72 65  | PC,R14 ; fortre|
00000420  73 73 0d 02 80 05 5d 0d  02 8a 05 cd 0d 02 94 04  |ss....].........|
00000430  0d 02 9e 09 5b 4f 50 54  70 0d 02 a8 1f 4c 44 52  |....[OPTp....LDR|
00000440  42 20 52 31 32 2c 5b 6d  65 6d 2c 23 63 72 74 5f  |B R12,[mem,#crt_|
00000450  72 65 67 73 2b 31 33 5d  0d 02 b2 1e 4c 44 52 42  |regs+13]....LDRB|
00000460  20 52 32 2c 5b 6d 65 6d  2c 23 63 72 74 5f 72 65  | R2,[mem,#crt_re|
00000470  67 73 2b 31 32 5d 0d 02  bc 14 80 20 52 32 2c 52  |gs+12]..... R2,R|
00000480  32 2c 23 25 31 31 31 31  31 31 0d 02 c6 18 41 44  |2,#%111111....AD|
00000490  44 20 52 31 32 2c 52 31  32 2c 52 32 2c 4c 53 4c  |D R12,R12,R2,LSL|
000004a0  23 38 0d 02 d0 05 5d 0d  02 da 2b e7 20 65 6c 65  |#8....]...+. ele|
000004b0  63 74 72 6f 6e 25 20 8c  20 5b 4f 50 54 70 3a 4d  |ctron% . [OPTp:M|
000004c0  4f 56 20 52 31 32 2c 52  31 32 2c 4c 53 52 23 32  |OV R12,R12,LSR#2|
000004d0  3a 5d 0d 02 e4 09 5b 4f  50 54 70 0d 02 ee 16 3b  |:]....[OPTp....;|
000004e0  4d 4f 56 20 52 31 32 2c  52 31 32 2c 4c 53 4c 23  |MOV R12,R12,LSL#|
000004f0  33 0d 02 f8 04 0d 03 02  04 0d 03 0c 33 53 55 42  |3...........3SUB|
00000500  53 20 52 31 2c 52 31 2c  52 31 32 2c 4c 53 4c 23  |S R1,R1,R12,LSL#|
00000510  33 20 20 20 20 20 20 20  20 20 3b 20 61 64 64 72  |3         ; addr|
00000520  2d 73 63 72 65 65 6e 73  74 61 72 74 0d 03 16 12  |-screenstart....|
00000530  42 47 45 20 77 72 61 70  5f 73 6b 69 70 32 0d 03  |BGE wrap_skip2..|
00000540  20 16 3b 4c 44 52 20 52  31 33 2c 77 72 61 70 5f  | .;LDR R13,wrap_|
00000550  61 64 64 72 0d 03 2a 14  41 44 44 20 52 31 2c 52  |addr..*.ADD R1,R|
00000560  31 2c 23 26 38 30 30 30  0d 03 34 23 53 55 42 53  |1,#&8000..4#SUBS|
00000570  20 52 31 2c 52 31 2c 46  2c 4c 53 52 23 31 36 20  | R1,R1,F,LSR#16 |
00000580  3b 20 77 72 61 70 5f 61  64 64 72 0d 03 3e 10 4d  |; wrap_addr..>.M|
00000590  4f 56 4d 49 20 50 43 2c  52 31 34 0d 03 48 0f 2e  |OVMI PC,R14..H..|
000005a0  77 72 61 70 5f 73 6b 69  70 32 0d 03 52 04 0d 03  |wrap_skip2..R...|
000005b0  5c 2d 4c 44 52 42 20 52  31 32 2c 5b 6d 65 6d 2c  |\-LDRB R12,[mem,|
000005c0  23 63 72 74 5f 72 65 67  73 2b 31 5d 20 3b 20 68  |#crt_regs+1] ; h|
000005d0  6f 72 69 7a 2e 20 63 68  61 72 73 0d 03 66 2c 4c  |oriz. chars..f,L|
000005e0  44 52 42 20 52 31 33 2c  5b 6d 65 6d 2c 23 63 72  |DRB R13,[mem,#cr|
000005f0  74 5f 72 65 67 73 2b 36  5d 20 3b 20 76 65 72 74  |t_regs+6] ; vert|
00000600  2e 20 63 68 61 72 73 0d  03 70 13 4d 55 4c 20 52  |. chars..p.MUL R|
00000610  31 33 2c 52 31 32 2c 52  31 33 0d 03 7a 23 4d 4f  |13,R12,R13..z#MO|
00000620  56 20 52 31 33 2c 52 31  33 2c 4c 53 4c 23 33 20  |V R13,R13,LSL#3 |
00000630  3b 20 73 63 72 65 65 6e  20 73 69 7a 65 0d 03 84  |; screen size...|
00000640  0e 43 4d 50 20 52 31 2c  52 31 33 0d 03 8e 10 4d  |.CMP R1,R13....M|
00000650  4f 56 47 45 20 50 43 2c  52 31 34 0d 03 98 1a 53  |OVGE PC,R14....S|
00000660  54 52 20 52 31 34 2c 5b  6d 65 6d 2c 23 73 63 72  |TR R14,[mem,#scr|
00000670  61 74 63 68 5d 0d 03 a2  14 3b 52 4a 57 20 77 61  |atch]....;RJW wa|
00000680  73 20 68 65 72 65 2e 2e  2e 0d 03 ac 1b 53 54 52  |s here.......STR|
00000690  20 52 31 2c 5b 6d 65 6d  2c 23 73 63 72 61 74 63  | R1,[mem,#scratc|
000006a0  68 2b 34 5d 0d 03 b6 12  80 20 52 31 34 2c 52 31  |h+4]..... R14,R1|
000006b0  2c 23 25 31 31 31 0d 03  c0 13 4d 4f 56 20 52 31  |,#%111....MOV R1|
000006c0  2c 52 31 2c 4c 53 52 23  33 0d 03 ca 04 0d 03 d4  |,R1,LSR#3.......|
000006d0  16 43 4d 50 20 20 20 52  31 2c 52 31 32 2c 4c 53  |.CMP   R1,R12,LS|
000006e0  4c 23 37 0d 03 de 19 53  55 42 47 45 20 52 31 2c  |L#7....SUBGE R1,|
000006f0  52 31 2c 52 31 32 2c 4c  53 4c 23 37 0d 03 e8 18  |R1,R12,LSL#7....|
00000700  41 44 44 47 45 20 52 31  34 2c 52 31 34 2c 23 31  |ADDGE R14,R14,#1|
00000710  3c 3c 31 30 0d 03 f2 04  0d 03 fc 16 43 4d 50 20  |<<10........CMP |
00000720  20 20 52 31 2c 52 31 32  2c 4c 53 4c 23 36 0d 04  |  R1,R12,LSL#6..|
00000730  06 19 53 55 42 47 45 20  52 31 2c 52 31 2c 52 31  |..SUBGE R1,R1,R1|
00000740  32 2c 4c 53 4c 23 36 0d  04 10 17 41 44 44 47 45  |2,LSL#6....ADDGE|
00000750  20 52 31 34 2c 52 31 34  2c 23 31 3c 3c 39 0d 04  | R14,R14,#1<<9..|
00000760  1a 04 0d 04 24 16 43 4d  50 20 20 20 52 31 2c 52  |....$.CMP   R1,R|
00000770  31 32 2c 4c 53 4c 23 35  0d 04 2e 19 53 55 42 47  |12,LSL#5....SUBG|
00000780  45 20 52 31 2c 52 31 2c  52 31 32 2c 4c 53 4c 23  |E R1,R1,R12,LSL#|
00000790  35 0d 04 38 17 41 44 44  47 45 20 52 31 34 2c 52  |5..8.ADDGE R14,R|
000007a0  31 34 2c 23 31 3c 3c 38  0d 04 42 04 0d 04 4c 16  |14,#1<<8..B...L.|
000007b0  43 4d 50 20 20 20 52 31  2c 52 31 32 2c 4c 53 4c  |CMP   R1,R12,LSL|
000007c0  23 34 0d 04 56 19 53 55  42 47 45 20 52 31 2c 52  |#4..V.SUBGE R1,R|
000007d0  31 2c 52 31 32 2c 4c 53  4c 23 34 0d 04 60 17 41  |1,R12,LSL#4..`.A|
000007e0  44 44 47 45 20 52 31 34  2c 52 31 34 2c 23 31 3c  |DDGE R14,R14,#1<|
000007f0  3c 37 0d 04 6a 04 0d 04  74 16 43 4d 50 20 20 20  |<7..j...t.CMP   |
00000800  52 31 2c 52 31 32 2c 4c  53 4c 23 33 0d 04 7e 19  |R1,R12,LSL#3..~.|
00000810  53 55 42 47 45 20 52 31  2c 52 31 2c 52 31 32 2c  |SUBGE R1,R1,R12,|
00000820  4c 53 4c 23 33 0d 04 88  17 41 44 44 47 45 20 52  |LSL#3....ADDGE R|
00000830  31 34 2c 52 31 34 2c 23  31 3c 3c 36 0d 04 92 04  |14,R14,#1<<6....|
00000840  0d 04 9c 16 43 4d 50 20  20 20 52 31 2c 52 31 32  |....CMP   R1,R12|
00000850  2c 4c 53 4c 23 32 0d 04  a6 19 53 55 42 47 45 20  |,LSL#2....SUBGE |
00000860  52 31 2c 52 31 2c 52 31  32 2c 4c 53 4c 23 32 0d  |R1,R1,R12,LSL#2.|
00000870  04 b0 17 41 44 44 47 45  20 52 31 34 2c 52 31 34  |...ADDGE R14,R14|
00000880  2c 23 31 3c 3c 35 0d 04  ba 04 0d 04 c4 16 43 4d  |,#1<<5........CM|
00000890  50 20 20 20 52 31 2c 52  31 32 2c 4c 53 4c 23 31  |P   R1,R12,LSL#1|
000008a0  0d 04 ce 19 53 55 42 47  45 20 52 31 2c 52 31 2c  |....SUBGE R1,R1,|
000008b0  52 31 32 2c 4c 53 4c 23  31 0d 04 d8 17 41 44 44  |R12,LSL#1....ADD|
000008c0  47 45 20 52 31 34 2c 52  31 34 2c 23 31 3c 3c 34  |GE R14,R14,#1<<4|
000008d0  0d 04 e2 04 0d 04 ec 10  43 4d 50 20 20 20 52 31  |........CMP   R1|
000008e0  2c 52 31 32 0d 04 f6 13  53 55 42 47 45 20 52 31  |,R12....SUBGE R1|
000008f0  2c 52 31 2c 52 31 32 0d  05 00 17 41 44 44 47 45  |,R1,R12....ADDGE|
00000900  20 52 31 34 2c 52 31 34  2c 23 31 3c 3c 33 0d 05  | R14,R14,#1<<3..|
00000910  0a 04 0d 05 14 1c 3b 4c  44 52 20 52 31 32 2c 5b  |......;LDR R12,[|
00000920  6d 65 6d 2c 23 70 61 74  63 68 5f 6f 6e 5d 0d 05  |mem,#patch_on]..|
00000930  1e 1c 3b 43 4d 50 20 52  31 32 2c 23 30 20 3a 20  |..;CMP R12,#0 : |
00000940  3b 42 4e 45 20 70 61 74  63 68 0d 05 28 33 54 53  |;BNE patch..(3TS|
00000950  54 20 46 2c 23 31 20 3c  3c 20 38 20 3a 20 42 4e  |T F,#1 << 8 : BN|
00000960  45 20 70 61 74 63 68 5f  70 69 78 65 6c 32 20 3b  |E patch_pixel2 ;|
00000970  20 70 61 74 63 68 5f 70  69 78 65 6c 32 0d 05 32  | patch_pixel2..2|
00000980  04 0d 05 3c 1a 3b 20 52  4a 57 20 77 61 73 20 68  |...<.; RJW was h|
00000990  65 72 65 20 28 74 77 69  63 65 29 0d 05 46 18 4c  |ere (twice)..F.L|
000009a0  44 52 42 20 52 31 32 2c  5b 6d 65 6d 2c 23 66 65  |DRB R12,[mem,#fe|
000009b0  32 30 5d 0d 05 50 16 4d  4f 56 53 20 52 31 32 2c  |20]..P.MOVS R12,|
000009c0  52 31 32 2c 41 53 52 23  32 0d 05 5a 22 3b 20 49  |R12,ASR#2..Z"; I|
000009d0  20 61 73 73 75 6d 65 20  50 72 6f 62 28 43 43 29  | assume Prob(CC)|
000009e0  20 3e 20 50 72 6f 63 28  43 53 29 0d 05 64 19 4c  | > Proc(CS)..d.L|
000009f0  44 52 43 43 20 50 43 2c  75 70 64 61 74 65 70 69  |DRCC PC,updatepi|
00000a00  78 65 6c 56 0d 05 6e 0e  4d 4f 56 20 50 43 2c 52  |xelV..n.MOV PC,R|
00000a10  31 34 0d 05 78 04 0d 05  82 11 2e 70 61 74 63 68  |14..x......patch|
00000a20  5f 70 69 78 65 6c 32 0d  05 8c 17 41 44 52 20 52  |_pixel2....ADR R|
00000a30  31 33 2c 70 61 74 63 68  5f 65 78 69 74 32 0d 05  |13,patch_exit2..|
00000a40  96 11 42 20 70 61 74 63  68 5f 70 69 78 65 6c 0d  |..B patch_pixel.|
00000a50  05 a0 04 0d 05 aa 16 2e  70 6f 6b 65 5f 75 70 64  |........poke_upd|
00000a60  61 74 65 70 69 78 65 6c  56 0d 05 b4 18 4c 44 52  |atepixelV....LDR|
00000a70  42 20 52 31 32 2c 5b 6d  65 6d 2c 23 66 65 32 30  |B R12,[mem,#fe20|
00000a80  5d 0d 05 be 04 0d 05 c8  13 80 20 52 31 32 2c 52  |]......... R12,R|
00000a90  31 32 2c 23 37 3c 3c 32  0d 05 d2 10 41 44 52 20  |12,#7<<2....ADR |
00000aa0  52 32 2c 75 70 74 61 62  0d 05 dc 14 4c 44 52 20  |R2,uptab....LDR |
00000ab0  52 31 32 2c 5b 52 32 2c  52 31 32 5d 0d 05 e6 11  |R12,[R2,R12]....|
00000ac0  41 44 44 20 52 32 2c 52  32 2c 52 31 32 0d 05 f0  |ADD R2,R2,R12...|
00000ad0  17 53 54 52 20 52 32 2c  75 70 64 61 74 65 70 69  |.STR R2,updatepi|
00000ae0  78 65 6c 56 0d 05 fa 0e  4d 4f 56 20 50 43 2c 52  |xelV....MOV PC,R|
00000af0  31 34 0d 06 04 04 0d 06  0e 10 2e 70 61 74 63 68  |14.........patch|
00000b00  5f 65 78 69 74 32 0d 06  18 19 42 20 75 70 64 61  |_exit2....B upda|
00000b10  74 65 70 69 78 65 6c 31  20 3b 20 68 61 63 6b 0d  |tepixel1 ; hack.|
00000b20  06 22 04 0d 06 2c 0a 2e  75 70 74 61 62 0d 06 36  |."...,..uptab..6|
00000b30  23 45 51 55 44 20 75 70  64 61 74 65 70 69 78 65  |#EQUD updatepixe|
00000b40  6c 34 2d 75 70 74 61 62  20 3b 30 30 30 20 30 30  |l4-uptab ;000 00|
00000b50  0d 06 40 23 45 51 55 44  20 75 70 64 61 74 65 70  |..@#EQUD updatep|
00000b60  69 78 65 6c 35 2d 75 70  74 61 62 20 3b 30 30 31  |ixel5-uptab ;001|
00000b70  20 30 30 0d 06 4a 23 45  51 55 44 20 75 70 64 61  | 00..J#EQUD upda|
00000b80  74 65 70 69 78 65 6c 34  2d 75 70 74 61 62 20 3b  |tepixel4-uptab ;|
00000b90  30 31 30 20 30 30 0d 06  54 23 45 51 55 44 20 75  |010 00..T#EQUD u|
00000ba0  70 64 61 74 65 70 69 78  65 6c 30 2d 75 70 74 61  |pdatepixel0-upta|
00000bb0  62 20 3b 30 31 31 20 30  30 0d 06 5e 23 45 51 55  |b ;011 00..^#EQU|
00000bc0  44 20 75 70 64 61 74 65  70 69 78 65 6c 31 2d 75  |D updatepixel1-u|
00000bd0  70 74 61 62 20 3b 31 30  30 20 30 30 0d 06 68 23  |ptab ;100 00..h#|
00000be0  45 51 55 44 20 75 70 64  61 74 65 70 69 78 65 6c  |EQUD updatepixel|
00000bf0  32 2d 75 70 74 61 62 20  3b 31 30 31 20 30 30 0d  |2-uptab ;101 00.|
00000c00  06 72 23 45 51 55 44 20  75 70 64 61 74 65 70 69  |.r#EQUD updatepi|
00000c10  78 65 6c 31 2d 75 70 74  61 62 20 3b 31 31 30 20  |xel1-uptab ;110 |
00000c20  30 30 0d 06 7c 23 45 51  55 44 20 75 70 64 61 74  |00..|#EQUD updat|
00000c30  65 70 69 78 65 6c 30 2d  75 70 74 61 62 20 3b 31  |epixel0-uptab ;1|
00000c40  31 31 20 30 30 0d 06 86  04 0d 06 90 11 2e 75 70  |11 00.........up|
00000c50  64 61 74 65 70 69 78 65  6c 56 0d 06 9a 0a 45 51  |datepixelV....EQ|
00000c60  55 44 20 30 0d 06 a4 04  0d 06 ae 11 2e 75 70 64  |UD 0.........upd|
00000c70  61 74 65 70 69 78 65 6c  30 0d 06 b8 04 0d 06 c2  |atepixel0.......|
00000c80  12 3b 20 52 4a 57 20 77  61 73 20 68 65 72 65 0d  |.; RJW was here.|
00000c90  06 cc 1b 41 44 44 20 52  31 34 2c 52 31 34 2c 52  |...ADD R14,R14,R|
00000ca0  31 34 2c 4c 53 4c 23 32  20 3b 0d 06 d6 04 0d 06  |14,LSL#2 ;......|
00000cb0  e0 37 41 44 44 20 52 31  34 2c 52 31 2c 52 31 34  |.7ADD R14,R1,R14|
00000cc0  2c 4c 53 4c 23 34 20 3b  20 6f 66 66 73 65 74 20  |,LSL#4 ; offset |
00000cd0  69 6e 20 61 72 63 20 73  63 72 65 65 6e 20 6f 66  |in arc screen of|
00000ce0  20 62 79 74 65 0d 06 ea  04 0d 06 f4 14 41 44 52  | byte........ADR|
00000cf0  20 52 31 33 2c 6d 6f 64  65 30 74 61 62 0d 06 fe  | R13,mode0tab...|
00000d00  2c 4c 44 52 20 52 30 2c  5b 52 31 33 2c 52 30 5d  |,LDR R0,[R13,R0]|
00000d10  20 3b 20 6c 6f 61 64 20  31 20 62 79 74 65 20 66  | ; load 1 byte f|
00000d20  72 6f 6d 20 74 61 62 6c  65 0d 07 08 04 0d 07 12  |rom table.......|
00000d30  22 4c 44 52 20 52 31 33  2c 5b 6d 65 6d 2c 23 61  |"LDR R13,[mem,#a|
00000d40  72 63 5f 73 63 72 65 65  6e 73 74 61 72 74 5d 0d  |rc_screenstart].|
00000d50  07 1c 15 53 54 52 42 20  52 30 2c 5b 52 31 33 2c  |...STRB R0,[R13,|
00000d60  52 31 34 5d 0d 07 26 19  4c 44 52 20 50 43 2c 5b  |R14]..&.LDR PC,[|
00000d70  6d 65 6d 2c 23 73 63 72  61 74 63 68 5d 0d 07 30  |mem,#scratch]..0|
00000d80  04 0d 07 3a 0d 2e 6d 6f  64 65 30 74 61 62 0d 07  |...:..mode0tab..|
00000d90  44 05 5d 0d 07 4e 0b 50  25 2b 3d 32 35 36 0d 07  |D.]..N.P%+=256..|
00000da0  58 0b 4f 25 2b 3d 32 35  36 0d 07 62 09 5b 4f 50  |X.O%+=256..b.[OP|
00000db0  54 70 0d 07 6c 12 2e 75  70 64 61 74 65 73 63 72  |Tp..l..updatescr|
00000dc0  65 65 6e 30 0d 07 76 1b  4c 44 52 42 20 52 30 2c  |een0..v.LDRB R0,|
00000dd0  5b 6d 65 6d 2c 23 6c 61  73 74 6d 6f 64 65 5d 0d  |[mem,#lastmode].|
00000de0  07 80 0e 43 4d 50 20 52  30 2c 23 39 39 0d 07 8a  |...CMP R0,#99...|
00000df0  12 42 45 51 20 73 6b 69  70 5f 6d 6f 64 65 30 0d  |.BEQ skip_mode0.|
00000e00  07 94 0c 53 57 49 20 26  31 31 36 0d 07 9e 12 53  |...SWI &116....S|
00000e10  57 49 20 26 31 30 30 20  3b 20 eb 20 30 0d 07 a8  |WI &100 ; . 0...|
00000e20  0f a4 70 6f 69 6e 74 65  72 5f 6f 6e 0d 07 b2 1a  |..pointer_on....|
00000e30  53 57 49 20 22 4f 53 5f  52 65 6d 6f 76 65 43 75  |SWI "OS_RemoveCu|
00000e40  72 73 6f 72 73 22 0d 07  bc 28 4d 4f 56 20 52 30  |rsors"...(MOV R0|
00000e50  2c 23 39 39 20 3a 20 53  54 52 42 20 52 30 2c 5b  |,#99 : STRB R0,[|
00000e60  6d 65 6d 2c 23 6c 61 73  74 6d 6f 64 65 5d 0d 07  |mem,#lastmode]..|
00000e70  c6 0f 2e 73 6b 69 70 5f  6d 6f 64 65 30 0d 07 d0  |...skip_mode0...|
00000e80  04 0d 07 da 19 3b 4c 44  52 20 52 36 2c 63 72 74  |.....;LDR R6,crt|
00000e90  5f 72 65 67 73 5f 61 64  64 72 0d 07 e4 19 53 55  |_regs_addr....SU|
00000ea0  42 20 52 36 2c 6d 65 6d  2c 23 2d 63 72 74 5f 72  |B R6,mem,#-crt_r|
00000eb0  65 67 73 0d 07 ee 14 4c  44 52 42 20 52 37 2c 5b  |egs....LDRB R7,[|
00000ec0  52 36 2c 23 31 33 5d 0d  07 f8 14 4c 44 52 42 20  |R6,#13]....LDRB |
00000ed0  52 32 2c 5b 52 36 2c 23  31 32 5d 0d 08 02 19 80  |R2,[R6,#12].....|
00000ee0  20 52 32 2c 52 32 2c 23  73 63 72 65 65 6e 5f 6d  | R2,R2,#screen_m|
00000ef0  61 73 6b 25 0d 08 0c 16  41 44 44 20 52 37 2c 52  |ask%....ADD R7,R|
00000f00  37 2c 52 32 2c 4c 53 4c  23 38 0d 08 16 1f 4d 4f  |7,R2,LSL#8....MO|
00000f10  56 20 52 37 2c 52 37 2c  4c 53 4c 23 73 63 72 65  |V R7,R7,LSL#scre|
00000f20  65 6e 5f 73 68 69 66 74  25 0d 08 20 04 0d 08 2a  |en_shift%.. ...*|
00000f30  04 0d 08 34 0b a4 73 68  61 64 6f 77 0d 08 3e 04  |...4..shadow..>.|
00000f40  0d 08 48 13 41 44 52 20  52 38 2c 6d 6f 64 65 30  |..H.ADR R8,mode0|
00000f50  74 61 62 0d 08 52 27 4c  44 52 42 20 52 32 2c 5b  |tab..R'LDRB R2,[|
00000f60  52 36 2c 23 31 5d 20 3b  20 6e 6f 20 6f 66 20 68  |R6,#1] ; no of h|
00000f70  6f 72 69 7a 20 63 68 61  72 73 0d 08 5c 14 4c 44  |oriz chars..\.LD|
00000f80  52 42 20 52 31 31 2c 5b  52 36 2c 23 36 5d 0d 08  |RB R11,[R6,#6]..|
00000f90  66 11 4d 55 4c 20 52 34  2c 52 32 2c 52 31 31 0d  |f.MUL R4,R2,R11.|
00000fa0  08 70 04 0d 08 7a 11 41  44 44 20 52 37 2c 52 37  |.p...z.ADD R7,R7|
00000fb0  2c 52 31 33 0d 08 84 16  41 44 44 20 52 31 31 2c  |,R13....ADD R11,|
00000fc0  52 31 33 2c 23 26 38 30  30 30 0d 08 8e 13 41 44  |R13,#&8000....AD|
00000fd0  44 20 52 31 32 2c 52 31  32 2c 52 31 33 0d 08 98  |D R12,R12,R13...|
00000fe0  04 0d 08 a2 0a 2e 6c 6f  6f 70 32 0d 08 ac 0a 2e  |......loop2.....|
00000ff0  6c 6f 6f 70 31 0d 08 b6  04 0d 08 c0 40 3b 52 4a  |loop1.......@;RJ|
00001000  57 3b 20 4f 70 74 69 6d  69 73 65 64 20 74 68 69  |W; Optimised thi|
00001010  73 20 74 6f 20 73 61 76  65 20 74 69 6d 65 2c 20  |s to save time, |
00001020  61 74 20 74 68 65 20 65  78 70 65 6e 73 65 20 6f  |at the expense o|
00001030  66 20 52 31 30 2c 52 31  34 0d 08 ca 16 4c 44 4d  |f R10,R14....LDM|
00001040  49 41 20 52 37 21 2c 7b  52 30 2c 52 31 34 7d 0d  |IA R7!,{R0,R14}.|
00001050  08 d4 12 80 20 52 31 30  2c 52 31 34 2c 23 26 46  |.... R10,R14,#&F|
00001060  46 0d 08 de 14 4c 44 52  42 20 52 35 2c 5b 52 38  |F....LDRB R5,[R8|
00001070  2c 52 31 30 5d 0d 08 e8  16 53 54 52 42 20 52 35  |,R10]....STRB R5|
00001080  2c 5b 52 39 2c 23 38 30  2a 34 5d 0d 08 f2 14 80  |,[R9,#80*4].....|
00001090  20 52 31 30 2c 52 31 34  2c 23 26 46 46 30 30 0d  | R10,R14,#&FF00.|
000010a0  08 fc 1a 4c 44 52 42 20  52 35 2c 5b 52 38 2c 52  |...LDRB R5,[R8,R|
000010b0  31 30 2c 4c 53 52 23 38  5d 0d 09 06 16 53 54 52  |10,LSR#8]....STR|
000010c0  42 20 52 35 2c 5b 52 39  2c 23 38 30 2a 35 5d 0d  |B R5,[R9,#80*5].|
000010d0  09 10 16 80 20 52 31 30  2c 52 31 34 2c 23 26 46  |.... R10,R14,#&F|
000010e0  46 30 30 30 30 0d 09 1a  1b 4c 44 52 42 20 52 35  |F0000....LDRB R5|
000010f0  2c 5b 52 38 2c 52 31 30  2c 4c 53 52 23 31 36 5d  |,[R8,R10,LSR#16]|
00001100  0d 09 24 16 53 54 52 42  20 52 35 2c 5b 52 39 2c  |..$.STRB R5,[R9,|
00001110  23 38 30 2a 36 5d 0d 09  2e 1b 4c 44 52 42 20 52  |#80*6]....LDRB R|
00001120  35 2c 5b 52 38 2c 52 31  34 2c 4c 53 52 23 32 34  |5,[R8,R14,LSR#24|
00001130  5d 0d 09 38 16 53 54 52  42 20 52 35 2c 5b 52 39  |]..8.STRB R5,[R9|
00001140  2c 23 38 30 2a 37 5d 0d  09 42 04 0d 09 4c 13 80  |,#80*7]..B...L..|
00001150  20 52 31 30 2c 52 30 2c  23 26 46 46 30 30 0d 09  | R10,R0,#&FF00..|
00001160  56 1a 4c 44 52 42 20 52  35 2c 5b 52 38 2c 52 31  |V.LDRB R5,[R8,R1|
00001170  30 2c 4c 53 52 23 38 5d  0d 09 60 14 53 54 52 42  |0,LSR#8]..`.STRB|
00001180  20 52 35 2c 5b 52 39 2c  23 38 30 5d 0d 09 6a 15  | R5,[R9,#80]..j.|
00001190  80 20 52 31 30 2c 52 30  2c 23 26 46 46 30 30 30  |. R10,R0,#&FF000|
000011a0  30 0d 09 74 1b 4c 44 52  42 20 52 35 2c 5b 52 38  |0..t.LDRB R5,[R8|
000011b0  2c 52 31 30 2c 4c 53 52  23 31 36 5d 0d 09 7e 16  |,R10,LSR#16]..~.|
000011c0  53 54 52 42 20 52 35 2c  5b 52 39 2c 23 38 30 2a  |STRB R5,[R9,#80*|
000011d0  32 5d 0d 09 88 1a 4c 44  52 42 20 52 35 2c 5b 52  |2]....LDRB R5,[R|
000011e0  38 2c 52 30 2c 4c 53 52  23 32 34 5d 0d 09 92 16  |8,R0,LSR#24]....|
000011f0  53 54 52 42 20 52 35 2c  5b 52 39 2c 23 38 30 2a  |STRB R5,[R9,#80*|
00001200  33 5d 0d 09 9c 11 80 20  52 31 30 2c 52 30 2c 23  |3]..... R10,R0,#|
00001210  26 46 46 0d 09 a6 14 4c  44 52 42 20 52 35 2c 5b  |&FF....LDRB R5,[|
00001220  52 38 2c 52 31 30 5d 0d  09 b0 13 53 54 52 42 20  |R8,R10]....STRB |
00001230  52 35 2c 5b 52 39 5d 2c  23 31 0d 09 ba 04 0d 09  |R5,[R9],#1......|
00001240  c4 1a 43 4d 50 20 52 37  2c 52 31 31 20 3a 20 ec  |..CMP R7,R11 : .|
00001250  51 20 52 37 2c 52 31 32  0d 09 ce 04 0d 09 d8 28  |Q R7,R12.......(|
00001260  53 55 42 53 20 52 32 2c  52 32 2c 23 31 20 3b 20  |SUBS R2,R2,#1 ; |
00001270  65 6e 64 20 6f 66 20 63  68 61 72 61 63 74 65 72  |end of character|
00001280  20 72 6f 77 0d 09 e2 0d  42 47 54 20 6c 6f 6f 70  | row....BGT loop|
00001290  31 0d 09 ec 27 4c 44 52  42 20 52 32 2c 5b 52 36  |1...'LDRB R2,[R6|
000012a0  2c 23 31 5d 20 3b 20 6e  6f 20 6f 66 20 68 6f 72  |,#1] ; no of hor|
000012b0  69 7a 20 63 68 61 72 73  0d 09 f6 21 41 44 44 20  |iz chars...!ADD |
000012c0  52 39 2c 52 39 2c 23 36  34 30 20 3a 20 53 55 42  |R9,R9,#640 : SUB|
000012d0  20 52 39 2c 52 39 2c 52  32 0d 0a 00 20 53 55 42  | R9,R9,R2... SUB|
000012e0  53 20 52 34 2c 52 34 2c  52 32 20 3b 2c 4c 53 4c  |S R4,R4,R2 ;,LSL|
000012f0  23 33 20 3b 20 23 36 34  30 0d 0a 0a 0d 42 48 49  |#3 ; #640....BHI|
00001300  20 6c 6f 6f 70 32 0d 0a  14 04 0d 0a 1e 04 0d 0a  | loop2..........|
00001310  28 1a 4c 44 4d 45 41 20  6d 65 6d 2c 7b 52 34 2d  |(.LDMEA mem,{R4-|
00001320  52 31 31 2c 50 43 7d 5e  0d 0a 32 04 0d 0a 3c 04  |R11,PC}^..2...<.|
00001330  0d 0a 46 11 2e 75 70 64  61 74 65 70 69 78 65 6c  |..F..updatepixel|
00001340  31 0d 0a 50 04 0d 0a 5a  11 3b 52 4a 57 20 77 61  |1..P...Z.;RJW wa|
00001350  73 20 68 65 72 65 0d 0a  64 1b 41 44 44 20 52 31  |s here..d.ADD R1|
00001360  34 2c 52 31 34 2c 52 31  34 2c 4c 53 4c 23 32 20  |4,R14,R14,LSL#2 |
00001370  3b 0d 0a 6e 04 0d 0a 78  37 41 44 44 20 52 31 34  |;..n...x7ADD R14|
00001380  2c 52 31 2c 52 31 34 2c  4c 53 4c 23 34 20 3b 20  |,R1,R14,LSL#4 ; |
00001390  6f 66 66 73 65 74 20 69  6e 20 61 72 63 20 73 63  |offset in arc sc|
000013a0  72 65 65 6e 20 6f 66 20  62 79 74 65 0d 0a 82 04  |reen of byte....|
000013b0  0d 0a 8c 14 41 44 52 20  52 31 33 2c 6d 6f 64 65  |....ADR R13,mode|
000013c0  31 74 61 62 0d 0a 96 2c  4c 44 52 20 52 30 2c 5b  |1tab...,LDR R0,[|
000013d0  52 31 33 2c 52 30 5d 20  3b 20 6c 6f 61 64 20 31  |R13,R0] ; load 1|
000013e0  20 62 79 74 65 20 66 72  6f 6d 20 74 61 62 6c 65  | byte from table|
000013f0  0d 0a a0 04 0d 0a aa 22  4c 44 52 20 52 31 33 2c  |......."LDR R13,|
00001400  5b 6d 65 6d 2c 23 61 72  63 5f 73 63 72 65 65 6e  |[mem,#arc_screen|
00001410  73 74 61 72 74 5d 0d 0a  b4 15 53 54 52 42 20 52  |start]....STRB R|
00001420  30 2c 5b 52 31 33 2c 52  31 34 5d 0d 0a be 19 4c  |0,[R13,R14]....L|
00001430  44 52 20 50 43 2c 5b 6d  65 6d 2c 23 73 63 72 61  |DR PC,[mem,#scra|
00001440  74 63 68 5d 0d 0a c8 04  0d 0a d2 0d 2e 6d 6f 64  |tch].........mod|
00001450  65 31 74 61 62 0d 0a dc  05 5d 0d 0a e6 0b 50 25  |e1tab....]....P%|
00001460  2b 3d 32 35 36 0d 0a f0  0b 4f 25 2b 3d 32 35 36  |+=256....O%+=256|
00001470  0d 0a fa 09 5b 4f 50 54  70 0d 0b 04 04 0d 0b 0e  |....[OPTp.......|
00001480  12 2e 75 70 64 61 74 65  73 63 72 65 65 6e 31 0d  |..updatescreen1.|
00001490  0b 18 04 0d 0b 22 1b 4c  44 52 42 20 52 30 2c 5b  |.....".LDRB R0,[|
000014a0  6d 65 6d 2c 23 6c 61 73  74 6d 6f 64 65 5d 0d 0b  |mem,#lastmode]..|
000014b0  2c 0d 43 4d 50 20 52 30  2c 23 31 0d 0b 36 12 42  |,.CMP R0,#1..6.B|
000014c0  45 51 20 73 6b 69 70 5f  6d 6f 64 65 31 0d 0b 40  |EQ skip_mode1..@|
000014d0  0c 53 57 49 20 26 31 31  36 0d 0b 4a 12 53 57 49  |.SWI &116..J.SWI|
000014e0  20 26 31 30 31 20 3b 20  eb 20 31 0d 0b 54 0f a4  | &101 ; . 1..T..|
000014f0  70 6f 69 6e 74 65 72 5f  6f 6e 0d 0b 5e 1a 53 57  |pointer_on..^.SW|
00001500  49 20 22 4f 53 5f 52 65  6d 6f 76 65 43 75 72 73  |I "OS_RemoveCurs|
00001510  6f 72 73 22 0d 0b 68 27  4d 4f 56 20 52 30 2c 23  |ors"..h'MOV R0,#|
00001520  31 20 3a 20 53 54 52 42  20 52 30 2c 5b 6d 65 6d  |1 : STRB R0,[mem|
00001530  2c 23 6c 61 73 74 6d 6f  64 65 5d 0d 0b 72 0f 2e  |,#lastmode]..r..|
00001540  73 6b 69 70 5f 6d 6f 64  65 31 0d 0b 7c 04 0d 0b  |skip_mode1..|...|
00001550  86 19 3b 4c 44 52 20 52  36 2c 63 72 74 5f 72 65  |..;LDR R6,crt_re|
00001560  67 73 5f 61 64 64 72 0d  0b 90 19 53 55 42 20 52  |gs_addr....SUB R|
00001570  36 2c 6d 65 6d 2c 23 2d  63 72 74 5f 72 65 67 73  |6,mem,#-crt_regs|
00001580  0d 0b 9a 14 4c 44 52 42  20 52 37 2c 5b 52 36 2c  |....LDRB R7,[R6,|
00001590  23 31 33 5d 0d 0b a4 14  4c 44 52 42 20 52 32 2c  |#13]....LDRB R2,|
000015a0  5b 52 36 2c 23 31 32 5d  0d 0b ae 19 80 20 52 32  |[R6,#12]..... R2|
000015b0  2c 52 32 2c 23 73 63 72  65 65 6e 5f 6d 61 73 6b  |,R2,#screen_mask|
000015c0  25 0d 0b b8 16 41 44 44  20 52 37 2c 52 37 2c 52  |%....ADD R7,R7,R|
000015d0  32 2c 4c 53 4c 23 38 0d  0b c2 1f 4d 4f 56 20 52  |2,LSL#8....MOV R|
000015e0  37 2c 52 37 2c 4c 53 4c  23 73 63 72 65 65 6e 5f  |7,R7,LSL#screen_|
000015f0  73 68 69 66 74 25 0d 0b  cc 04 0d 0b d6 0b a4 73  |shift%.........s|
00001600  68 61 64 6f 77 0d 0b e0  04 0d 0b ea 13 41 44 52  |hadow........ADR|
00001610  20 52 38 2c 6d 6f 64 65  31 74 61 62 0d 0b f4 27  | R8,mode1tab...'|
00001620  4c 44 52 42 20 52 32 2c  5b 52 36 2c 23 31 5d 20  |LDRB R2,[R6,#1] |
00001630  3b 20 6e 6f 20 6f 66 20  68 6f 72 69 7a 20 63 68  |; no of horiz ch|
00001640  61 72 73 0d 0b fe 14 4c  44 52 42 20 52 31 31 2c  |ars....LDRB R11,|
00001650  5b 52 36 2c 23 36 5d 0d  0c 08 11 4d 55 4c 20 52  |[R6,#6]....MUL R|
00001660  34 2c 52 32 2c 52 31 31  0d 0c 12 13 4d 4f 56 20  |4,R2,R11....MOV |
00001670  52 34 2c 52 34 2c 4c 53  4c 23 33 0d 0c 1c 04 0d  |R4,R4,LSL#3.....|
00001680  0c 26 11 41 44 44 20 52  37 2c 52 37 2c 52 31 33  |.&.ADD R7,R7,R13|
00001690  0d 0c 30 16 41 44 44 20  52 31 31 2c 52 31 33 2c  |..0.ADD R11,R13,|
000016a0  23 26 38 30 30 30 0d 0c  3a 13 41 44 44 20 52 31  |#&8000..:.ADD R1|
000016b0  32 2c 52 31 32 2c 52 31  33 0d 0c 44 04 0d 0c 4e  |2,R12,R13..D...N|
000016c0  14 3b 4d 4f 56 20 52 34  2c 52 32 2c 4c 53 4c 23  |.;MOV R4,R2,LSL#|
000016d0  38 0d 0c 58 12 3b 4d 4f  56 20 52 34 2c 23 26 35  |8..X.;MOV R4,#&5|
000016e0  30 30 30 0d 0c 62 0a 2e  6c 6f 6f 70 32 0d 0c 6c  |000..b..loop2..l|
000016f0  0f 3b 4d 4f 56 20 52 32  2c 23 38 30 0d 0c 76 0a  |.;MOV R2,#80..v.|
00001700  2e 6c 6f 6f 70 31 0d 0c  80 04 0d 0c 8a 39 3b 52  |.loop1.......9;R|
00001710  4a 57 3b 4f 70 74 69 6d  69 73 65 64 20 74 6f 20  |JW;Optimised to |
00001720  69 6d 70 72 6f 76 65 20  73 70 65 65 64 20 61 74  |improve speed at|
00001730  20 65 78 70 65 6e 73 65  20 6f 66 20 52 31 30 2c  | expense of R10,|
00001740  52 31 34 0d 0c 94 17 4c  44 4d 49 41 20 52 37 21  |R14....LDMIA R7!|
00001750  2c 7b 52 31 30 2c 52 31  34 7d 0d 0c 9e 11 80 20  |,{R10,R14}..... |
00001760  52 30 2c 52 31 34 2c 23  26 46 46 0d 0c a8 13 4c  |R0,R14,#&FF....L|
00001770  44 52 42 20 52 35 2c 5b  52 38 2c 52 30 5d 0d 0c  |DRB R5,[R8,R0]..|
00001780  b2 16 53 54 52 42 20 52  35 2c 5b 52 39 2c 23 38  |..STRB R5,[R9,#8|
00001790  30 2a 34 5d 0d 0c bc 13  80 20 52 30 2c 52 31 34  |0*4]..... R0,R14|
000017a0  2c 23 26 46 46 30 30 0d  0c c6 19 4c 44 52 42 20  |,#&FF00....LDRB |
000017b0  52 35 2c 5b 52 38 2c 52  30 2c 4c 53 52 23 38 5d  |R5,[R8,R0,LSR#8]|
000017c0  0d 0c d0 16 53 54 52 42  20 52 35 2c 5b 52 39 2c  |....STRB R5,[R9,|
000017d0  23 38 30 2a 35 5d 0d 0c  da 15 80 20 52 30 2c 52  |#80*5]..... R0,R|
000017e0  31 34 2c 23 26 46 46 30  30 30 30 0d 0c e4 1a 4c  |14,#&FF0000....L|
000017f0  44 52 42 20 52 35 2c 5b  52 38 2c 52 30 2c 4c 53  |DRB R5,[R8,R0,LS|
00001800  52 23 31 36 5d 0d 0c ee  16 53 54 52 42 20 52 35  |R#16]....STRB R5|
00001810  2c 5b 52 39 2c 23 38 30  2a 36 5d 0d 0c f8 1b 4c  |,[R9,#80*6]....L|
00001820  44 52 42 20 52 35 2c 5b  52 38 2c 52 31 34 2c 4c  |DRB R5,[R8,R14,L|
00001830  53 52 23 32 34 5d 0d 0d  02 16 53 54 52 42 20 52  |SR#24]....STRB R|
00001840  35 2c 5b 52 39 2c 23 38  30 2a 37 5d 0d 0d 0c 04  |5,[R9,#80*7]....|
00001850  0d 0d 16 13 80 20 52 30  2c 52 31 30 2c 23 26 46  |..... R0,R10,#&F|
00001860  46 30 30 0d 0d 20 19 4c  44 52 42 20 52 35 2c 5b  |F00.. .LDRB R5,[|
00001870  52 38 2c 52 30 2c 4c 53  52 23 38 5d 0d 0d 2a 14  |R8,R0,LSR#8]..*.|
00001880  53 54 52 42 20 52 35 2c  5b 52 39 2c 23 38 30 5d  |STRB R5,[R9,#80]|
00001890  0d 0d 34 15 80 20 52 30  2c 52 31 30 2c 23 26 46  |..4.. R0,R10,#&F|
000018a0  46 30 30 30 30 0d 0d 3e  1a 4c 44 52 42 20 52 35  |F0000..>.LDRB R5|
000018b0  2c 5b 52 38 2c 52 30 2c  4c 53 52 23 31 36 5d 0d  |,[R8,R0,LSR#16].|
000018c0  0d 48 16 53 54 52 42 20  52 35 2c 5b 52 39 2c 23  |.H.STRB R5,[R9,#|
000018d0  38 30 2a 32 5d 0d 0d 52  1b 4c 44 52 42 20 52 35  |80*2]..R.LDRB R5|
000018e0  2c 5b 52 38 2c 52 31 30  2c 4c 53 52 23 32 34 5d  |,[R8,R10,LSR#24]|
000018f0  0d 0d 5c 16 53 54 52 42  20 52 35 2c 5b 52 39 2c  |..\.STRB R5,[R9,|
00001900  23 38 30 2a 33 5d 0d 0d  66 11 80 20 52 30 2c 52  |#80*3]..f.. R0,R|
00001910  31 30 2c 23 26 46 46 0d  0d 70 13 4c 44 52 42 20  |10,#&FF..p.LDRB |
00001920  52 35 2c 5b 52 38 2c 52  30 5d 0d 0d 7a 13 53 54  |R5,[R8,R0]..z.ST|
00001930  52 42 20 52 35 2c 5b 52  39 5d 2c 23 31 0d 0d 84  |RB R5,[R9],#1...|
00001940  04 0d 0d 8e 1a 43 4d 50  20 52 37 2c 52 31 31 20  |.....CMP R7,R11 |
00001950  3a 20 ec 51 20 52 37 2c  52 31 32 0d 0d 98 04 0d  |: .Q R7,R12.....|
00001960  0d a2 28 53 55 42 53 20  52 32 2c 52 32 2c 23 31  |..(SUBS R2,R2,#1|
00001970  20 3b 20 65 6e 64 20 6f  66 20 63 68 61 72 61 63  | ; end of charac|
00001980  74 65 72 20 72 6f 77 0d  0d ac 0d 42 47 54 20 6c  |ter row....BGT l|
00001990  6f 6f 70 31 0d 0d b6 27  4c 44 52 42 20 52 32 2c  |oop1...'LDRB R2,|
000019a0  5b 52 36 2c 23 31 5d 20  3b 20 6e 6f 20 6f 66 20  |[R6,#1] ; no of |
000019b0  68 6f 72 69 7a 20 63 68  61 72 73 0d 0d c0 04 0d  |horiz chars.....|
000019c0  0d ca 21 41 44 44 20 52  39 2c 52 39 2c 23 36 34  |..!ADD R9,R9,#64|
000019d0  30 20 3a 20 53 55 42 20  52 39 2c 52 39 2c 52 32  |0 : SUB R9,R9,R2|
000019e0  0d 0d d4 1e 53 55 42 53  20 52 34 2c 52 34 2c 52  |....SUBS R4,R4,R|
000019f0  32 2c 4c 53 4c 23 33 20  3b 20 23 36 34 30 0d 0d  |2,LSL#3 ; #640..|
00001a00  de 0d 42 48 49 20 6c 6f  6f 70 32 0d 0d e8 04 0d  |..BHI loop2.....|
00001a10  0d f2 1a 4c 44 4d 45 41  20 6d 65 6d 2c 7b 52 34  |...LDMEA mem,{R4|
00001a20  2d 52 31 31 2c 50 43 7d  5e 0d 0d fc 04 0d 0e 06  |-R11,PC}^.......|
00001a30  11 2e 75 70 64 61 74 65  70 69 78 65 6c 32 0d 0e  |..updatepixel2..|
00001a40  10 04 0d 0e 1a 12 3b 20  52 4a 57 20 77 61 73 20  |......; RJW was |
00001a50  68 65 72 65 0d 0e 24 23  41 44 44 20 52 31 34 2c  |here..$#ADD R14,|
00001a60  52 31 34 2c 52 31 34 2c  4c 53 4c 23 32 20 3b 20  |R14,R14,LSL#2 ; |
00001a70  52 31 34 20 2a 20 35 0d  0e 2e 04 0d 0e 38 37 41  |R14 * 5......87A|
00001a80  44 44 20 52 31 34 2c 52  31 2c 52 31 34 2c 4c 53  |DD R14,R1,R14,LS|
00001a90  4c 23 34 20 3b 20 6f 66  66 73 65 74 20 69 6e 20  |L#4 ; offset in |
00001aa0  61 72 63 20 73 63 72 65  65 6e 20 6f 66 20 62 79  |arc screen of by|
00001ab0  74 65 0d 0e 42 04 0d 0e  4c 14 41 44 52 20 52 31  |te..B...L.ADR R1|
00001ac0  33 2c 6d 6f 64 65 32 74  61 62 0d 0e 56 33 4c 44  |3,mode2tab..V3LD|
00001ad0  52 20 52 30 2c 5b 52 31  33 2c 52 30 2c 4c 53 4c  |R R0,[R13,R0,LSL|
00001ae0  23 32 5d 20 3b 20 6c 6f  61 64 20 34 20 62 79 74  |#2] ; load 4 byt|
00001af0  65 73 20 66 72 6f 6d 20  74 61 62 6c 65 0d 0e 60  |es from table..`|
00001b00  04 0d 0e 6a 22 4c 44 52  20 52 31 33 2c 5b 6d 65  |...j"LDR R13,[me|
00001b10  6d 2c 23 61 72 63 5f 73  63 72 65 65 6e 73 74 61  |m,#arc_screensta|
00001b20  72 74 5d 0d 0e 74 1a 53  54 52 20 52 30 2c 5b 52  |rt]..t.STR R0,[R|
00001b30  31 33 2c 52 31 34 2c 4c  53 4c 23 32 5d 0d 0e 7e  |13,R14,LSL#2]..~|
00001b40  14 3b 4d 4f 56 20 52 30  2c 52 30 2c 4c 53 52 23  |.;MOV R0,R0,LSR#|
00001b50  38 0d 0e 88 13 3b 41 44  44 20 52 31 34 2c 52 31  |8....;ADD R14,R1|
00001b60  34 2c 23 31 0d 0e 92 16  3b 53 54 52 42 20 52 30  |4,#1....;STRB R0|
00001b70  2c 5b 52 31 33 2c 52 31  34 5d 0d 0e 9c 19 4c 44  |,[R13,R14]....LD|
00001b80  52 20 50 43 2c 5b 6d 65  6d 2c 23 73 63 72 61 74  |R PC,[mem,#scrat|
00001b90  63 68 5d 0d 0e a6 04 0d  0e b0 04 0d 0e ba 0d 3b  |ch]............;|
00001ba0  2e 73 63 72 61 74 63 68  0d 0e c4 0b 3b 45 51 55  |.scratch....;EQU|
00001bb0  44 20 30 0d 0e ce 0b 3b  45 51 55 44 20 30 0d 0e  |D 0....;EQUD 0..|
00001bc0  d8 0b 3b 45 51 55 44 20  30 0d 0e e2 0b 3b 45 51  |..;EQUD 0....;EQ|
00001bd0  55 44 20 30 0d 0e ec 04  0d 0e f6 04 0d 0f 00 0f  |UD 0............|
00001be0  3b 2e 77 72 61 70 5f 61  64 64 72 0d 0f 0a 0f 3b  |;.wrap_addr....;|
00001bf0  45 51 55 44 20 26 34 30  30 30 0d 0f 14 04 0d 0f  |EQUD &4000......|
00001c00  1e 12 2e 75 70 64 61 74  65 73 63 72 65 65 6e 32  |...updatescreen2|
00001c10  0d 0f 28 1b 4c 44 52 42  20 52 30 2c 5b 6d 65 6d  |..(.LDRB R0,[mem|
00001c20  2c 23 6c 61 73 74 6d 6f  64 65 5d 0d 0f 32 0e 43  |,#lastmode]..2.C|
00001c30  4d 50 20 52 30 2c 23 31  32 0d 0f 3c 12 42 45 51  |MP R0,#12..<.BEQ|
00001c40  20 73 6b 69 70 5f 6d 6f  64 65 32 0d 0f 46 0c 53  | skip_mode2..F.S|
00001c50  57 49 20 26 31 31 36 0d  0f 50 16 53 57 49 20 26  |WI &116..P.SWI &|
00001c60  31 30 30 2b 31 32 20 3b  20 eb 20 31 32 0d 0f 5a  |100+12 ; . 12..Z|
00001c70  0f a4 70 6f 69 6e 74 65  72 5f 6f 6e 0d 0f 64 1a  |..pointer_on..d.|
00001c80  53 57 49 20 22 4f 53 5f  52 65 6d 6f 76 65 43 75  |SWI "OS_RemoveCu|
00001c90  72 73 6f 72 73 22 0d 0f  6e 28 4d 4f 56 20 52 30  |rsors"..n(MOV R0|
00001ca0  2c 23 31 32 20 3a 20 53  54 52 42 20 52 30 2c 5b  |,#12 : STRB R0,[|
00001cb0  6d 65 6d 2c 23 6c 61 73  74 6d 6f 64 65 5d 0d 0f  |mem,#lastmode]..|
00001cc0  78 0f 2e 73 6b 69 70 5f  6d 6f 64 65 32 0d 0f 82  |x..skip_mode2...|
00001cd0  04 0d 0f 8c 19 3b 4c 44  52 20 52 36 2c 63 72 74  |.....;LDR R6,crt|
00001ce0  5f 72 65 67 73 5f 61 64  64 72 0d 0f 96 19 53 55  |_regs_addr....SU|
00001cf0  42 20 52 36 2c 6d 65 6d  2c 23 2d 63 72 74 5f 72  |B R6,mem,#-crt_r|
00001d00  65 67 73 0d 0f a0 14 4c  44 52 42 20 52 37 2c 5b  |egs....LDRB R7,[|
00001d10  52 36 2c 23 31 33 5d 0d  0f aa 14 4c 44 52 42 20  |R6,#13]....LDRB |
00001d20  52 32 2c 5b 52 36 2c 23  31 32 5d 0d 0f b4 19 80  |R2,[R6,#12].....|
00001d30  20 52 32 2c 52 32 2c 23  73 63 72 65 65 6e 5f 6d  | R2,R2,#screen_m|
00001d40  61 73 6b 25 0d 0f be 16  41 44 44 20 52 37 2c 52  |ask%....ADD R7,R|
00001d50  37 2c 52 32 2c 4c 53 4c  23 38 0d 0f c8 1f 4d 4f  |7,R2,LSL#8....MO|
00001d60  56 20 52 37 2c 52 37 2c  4c 53 4c 23 73 63 72 65  |V R7,R7,LSL#scre|
00001d70  65 6e 5f 73 68 69 66 74  25 0d 0f d2 04 0d 0f dc  |en_shift%.......|
00001d80  0b a4 73 68 61 64 6f 77  0d 0f e6 04 0d 0f f0 13  |..shadow........|
00001d90  41 44 52 20 52 38 2c 6d  6f 64 65 32 74 61 62 0d  |ADR R8,mode2tab.|
00001da0  0f fa 27 4c 44 52 42 20  52 32 2c 5b 52 36 2c 23  |..'LDRB R2,[R6,#|
00001db0  31 5d 20 3b 20 6e 6f 20  6f 66 20 68 6f 72 69 7a  |1] ; no of horiz|
00001dc0  20 63 68 61 72 73 0d 10  04 2b 4c 44 52 42 20 52  | chars...+LDRB R|
00001dd0  31 31 2c 5b 52 36 2c 23  36 5d 20 3b 20 6e 6f 20  |11,[R6,#6] ; no |
00001de0  6f 66 20 76 65 72 74 69  63 61 6c 20 63 68 61 72  |of vertical char|
00001df0  73 0d 10 0e 11 4d 55 4c  20 52 34 2c 52 32 2c 52  |s....MUL R4,R2,R|
00001e00  31 31 0d 10 18 13 4d 4f  56 20 52 34 2c 52 34 2c  |11....MOV R4,R4,|
00001e10  4c 53 4c 23 33 0d 10 22  04 0d 10 2c 11 41 44 44  |LSL#3.."...,.ADD|
00001e20  20 52 37 2c 52 37 2c 52  31 33 0d 10 36 16 41 44  | R7,R7,R13..6.AD|
00001e30  44 20 52 31 31 2c 52 31  33 2c 23 26 38 30 30 30  |D R11,R13,#&8000|
00001e40  0d 10 40 13 41 44 44 20  52 31 32 2c 52 31 32 2c  |..@.ADD R12,R12,|
00001e50  52 31 33 0d 10 4a 04 0d  10 54 14 3b 4d 4f 56 20  |R13..J...T.;MOV |
00001e60  52 34 2c 52 32 2c 4c 53  4c 23 38 0d 10 5e 0a 2e  |R4,R2,LSL#8..^..|
00001e70  6c 6f 6f 70 32 0d 10 68  0f 3b 4d 4f 56 20 52 32  |loop2..h.;MOV R2|
00001e80  2c 23 38 30 0d 10 72 0a  2e 6c 6f 6f 70 31 0d 10  |,#80..r..loop1..|
00001e90  7c 04 0d 10 86 12 3b 20  52 4a 57 20 77 61 73 20  ||.....; RJW was |
00001ea0  68 65 72 65 0d 10 90 17  4c 44 4d 49 41 20 52 37  |here....LDMIA R7|
00001eb0  21 2c 7b 52 31 30 2c 52  31 34 7d 0d 10 9a 11 80  |!,{R10,R14}.....|
00001ec0  20 52 30 2c 52 31 34 2c  23 26 46 46 0d 10 a4 18  | R0,R14,#&FF....|
00001ed0  4c 44 52 20 52 35 2c 5b  52 38 2c 52 30 2c 4c 53  |LDR R5,[R8,R0,LS|
00001ee0  4c 23 32 5d 0d 10 ae 16  53 54 52 20 52 35 2c 5b  |L#2]....STR R5,[|
00001ef0  52 39 2c 23 33 32 30 2a  34 5d 0d 10 b8 13 80 20  |R9,#320*4]..... |
00001f00  52 30 2c 52 31 34 2c 23  26 46 46 30 30 0d 10 c2  |R0,R14,#&FF00...|
00001f10  18 4c 44 52 20 52 35 2c  5b 52 38 2c 52 30 2c 4c  |.LDR R5,[R8,R0,L|
00001f20  53 52 23 36 5d 0d 10 cc  16 53 54 52 20 52 35 2c  |SR#6]....STR R5,|
00001f30  5b 52 39 2c 23 33 32 30  2a 35 5d 0d 10 d6 15 80  |[R9,#320*5].....|
00001f40  20 52 30 2c 52 31 34 2c  23 26 46 46 30 30 30 30  | R0,R14,#&FF0000|
00001f50  0d 10 e0 19 4c 44 52 20  52 35 2c 5b 52 38 2c 52  |....LDR R5,[R8,R|
00001f60  30 2c 4c 53 52 23 31 34  5d 0d 10 ea 16 53 54 52  |0,LSR#14]....STR|
00001f70  20 52 35 2c 5b 52 39 2c  23 33 32 30 2a 36 5d 0d  | R5,[R9,#320*6].|
00001f80  10 f4 17 80 20 52 30 2c  52 31 34 2c 23 26 46 46  |.... R0,R14,#&FF|
00001f90  30 30 30 30 30 30 0d 10  fe 19 4c 44 52 20 52 35  |000000....LDR R5|
00001fa0  2c 5b 52 38 2c 52 30 2c  4c 53 52 23 32 32 5d 0d  |,[R8,R0,LSR#22].|
00001fb0  11 08 16 53 54 52 20 52  35 2c 5b 52 39 2c 23 33  |...STR R5,[R9,#3|
00001fc0  32 30 2a 37 5d 0d 11 12  04 0d 11 1c 13 80 20 52  |20*7]......... R|
00001fd0  30 2c 52 31 30 2c 23 26  46 46 30 30 0d 11 26 18  |0,R10,#&FF00..&.|
00001fe0  4c 44 52 20 52 35 2c 5b  52 38 2c 52 30 2c 4c 53  |LDR R5,[R8,R0,LS|
00001ff0  52 23 36 5d 0d 11 30 14  53 54 52 20 52 35 2c 5b  |R#6]..0.STR R5,[|
00002000  52 39 2c 23 33 32 30 5d  0d 11 3a 15 80 20 52 30  |R9,#320]..:.. R0|
00002010  2c 52 31 30 2c 23 26 46  46 30 30 30 30 0d 11 44  |,R10,#&FF0000..D|
00002020  19 4c 44 52 20 52 35 2c  5b 52 38 2c 52 30 2c 4c  |.LDR R5,[R8,R0,L|
00002030  53 52 23 31 34 5d 0d 11  4e 16 53 54 52 20 52 35  |SR#14]..N.STR R5|
00002040  2c 5b 52 39 2c 23 33 32  30 2a 32 5d 0d 11 58 17  |,[R9,#320*2]..X.|
00002050  80 20 52 30 2c 52 31 30  2c 23 26 46 46 30 30 30  |. R0,R10,#&FF000|
00002060  30 30 30 0d 11 62 19 4c  44 52 20 52 35 2c 5b 52  |000..b.LDR R5,[R|
00002070  38 2c 52 30 2c 4c 53 52  23 32 32 5d 0d 11 6c 16  |8,R0,LSR#22]..l.|
00002080  53 54 52 20 52 35 2c 5b  52 39 2c 23 33 32 30 2a  |STR R5,[R9,#320*|
00002090  33 5d 0d 11 76 11 80 20  52 30 2c 52 31 30 2c 23  |3]..v.. R0,R10,#|
000020a0  26 46 46 0d 11 80 18 4c  44 52 20 52 35 2c 5b 52  |&FF....LDR R5,[R|
000020b0  38 2c 52 30 2c 4c 53 4c  23 32 5d 0d 11 8a 12 53  |8,R0,LSL#2]....S|
000020c0  54 52 20 52 35 2c 5b 52  39 5d 2c 23 34 0d 11 94  |TR R5,[R9],#4...|
000020d0  04 0d 11 9e 1a 43 4d 50  20 52 37 2c 52 31 31 20  |.....CMP R7,R11 |
000020e0  3a 20 ec 51 20 52 37 2c  52 31 32 0d 11 a8 04 0d  |: .Q R7,R12.....|
000020f0  11 b2 28 53 55 42 53 20  52 32 2c 52 32 2c 23 31  |..(SUBS R2,R2,#1|
00002100  20 3b 20 65 6e 64 20 6f  66 20 63 68 61 72 61 63  | ; end of charac|
00002110  74 65 72 20 72 6f 77 0d  11 bc 0d 42 47 54 20 6c  |ter row....BGT l|
00002120  6f 6f 70 31 0d 11 c6 27  4c 44 52 42 20 52 32 2c  |oop1...'LDRB R2,|
00002130  5b 52 36 2c 23 31 5d 20  3b 20 6e 6f 20 6f 66 20  |[R6,#1] ; no of |
00002140  68 6f 72 69 7a 20 63 68  61 72 73 0d 11 d0 27 41  |horiz chars...'A|
00002150  44 44 20 52 39 2c 52 39  2c 23 33 32 30 2a 38 3a  |DD R9,R9,#320*8:|
00002160  53 55 42 20 52 39 2c 52  39 2c 52 32 2c 4c 53 4c  |SUB R9,R9,R2,LSL|
00002170  23 32 0d 11 da 1e 53 55  42 53 20 52 34 2c 52 34  |#2....SUBS R4,R4|
00002180  2c 52 32 2c 4c 53 4c 23  33 20 3b 20 23 36 34 30  |,R2,LSL#3 ; #640|
00002190  0d 11 e4 0d 42 47 54 20  6c 6f 6f 70 32 0d 11 ee  |....BGT loop2...|
000021a0  04 0d 11 f8 1a 4c 44 4d  45 41 20 6d 65 6d 2c 7b  |.....LDMEA mem,{|
000021b0  52 34 2d 52 31 31 2c 50  43 7d 5e 0d 12 02 04 0d  |R4-R11,PC}^.....|
000021c0  12 0c 0d 2e 6d 6f 64 65  32 74 61 62 0d 12 16 05  |....mode2tab....|
000021d0  5d 0d 12 20 0c 50 25 2b  3d 31 30 32 34 0d 12 2a  |].. .P%+=1024..*|
000021e0  0c 4f 25 2b 3d 31 30 32  34 0d 12 34 09 5b 4f 50  |.O%+=1024..4.[OP|
000021f0  54 70 0d 12 3e 04 0d 12  48 12 3b 20 52 4a 57 20  |Tp..>...H.; RJW |
00002200  77 61 73 20 68 65 72 65  0d 12 52 11 2e 75 70 64  |was here..R..upd|
00002210  61 74 65 70 69 78 65 6c  35 0d 12 5c 14 41 44 52  |atepixel5..\.ADR|
00002220  20 52 31 33 2c 6d 6f 64  65 35 74 61 62 0d 12 66  | R13,mode5tab..f|
00002230  04 0d 12 70 1d 4c 44 52  42 20 52 32 2c 5b 6d 65  |...p.LDRB R2,[me|
00002240  6d 2c 23 63 72 74 5f 72  65 67 73 2b 33 5d 0d 12  |m,#crt_regs+3]..|
00002250  7a 12 54 53 54 20 52 32  2c 23 31 20 3c 3c 20 34  |z.TST R2,#1 << 4|
00002260  0d 12 84 16 42 45 51 20  75 70 64 61 74 65 70 69  |....BEQ updatepi|
00002270  78 65 6c 35 5f 32 0d 12  8e 04 0d 12 98 12 3b 20  |xel5_2........; |
00002280  52 4a 57 20 77 61 73 20  68 65 72 65 0d 12 a2 29  |RJW was here...)|
00002290  80 20 52 32 2c 52 31 34  2c 23 25 31 31 20 20 20  |. R2,R14,#%11   |
000022a0  20 3b 20 6d 61 6b 65 20  66 6f 72 74 72 65 73 73  | ; make fortress|
000022b0  20 77 6f 72 6b 0d 12 ac  19 42 49 43 20 52 31 34  | work....BIC R14|
000022c0  2c 52 31 34 2c 23 25 31  31 31 20 20 20 3b 0d 12  |,R14,#%111   ;..|
000022d0  b6 18 41 44 44 20 52 31  34 2c 52 32 2c 52 31 34  |..ADD R14,R2,R14|
000022e0  2c 4c 53 52 23 31 0d 12  c0 04 0d 12 ca 14 42 20  |,LSR#1........B |
000022f0  75 70 64 61 74 65 70 69  78 65 6c 35 5f 32 0d 12  |updatepixel5_2..|
00002300  d4 04 0d 12 de 04 0d 12  e8 12 2e 75 70 64 61 74  |...........updat|
00002310  65 73 63 72 65 65 6e 35  0d 12 f2 13 41 44 52 20  |escreen5....ADR |
00002320  52 38 2c 6d 6f 64 65 35  74 61 62 0d 12 fc 15 42  |R8,mode5tab....B|
00002330  20 75 70 64 61 74 65 73  63 72 65 65 6e 34 5f 32  | updatescreen4_2|
00002340  0d 13 06 04 0d 13 10 0d  2e 6d 6f 64 65 35 74 61  |.........mode5ta|
00002350  62 0d 13 1a 05 5d 0d 13  24 0c 50 25 2b 3d 31 30  |b....]..$.P%+=10|
00002360  32 34 0d 13 2e 0c 4f 25  2b 3d 31 30 32 34 0d 13  |24....O%+=1024..|
00002370  38 09 5b 4f 50 54 70 0d  13 42 04 0d 13 4c 04 0d  |8.[OPTp..B...L..|
00002380  13 56 12 2e 75 70 64 61  74 65 73 63 72 65 65 6e  |.V..updatescreen|
00002390  34 0d 13 60 13 41 44 52  20 52 38 2c 6d 6f 64 65  |4..`.ADR R8,mode|
000023a0  34 74 61 62 0d 13 6a 14  2e 75 70 64 61 74 65 73  |4tab..j..updates|
000023b0  63 72 65 65 6e 34 5f 32  0d 13 74 04 0d 13 7e 1b  |creen4_2..t...~.|
000023c0  4c 44 52 42 20 52 30 2c  5b 6d 65 6d 2c 23 6c 61  |LDRB R0,[mem,#la|
000023d0  73 74 6d 6f 64 65 5d 0d  13 88 0d 43 4d 50 20 52  |stmode]....CMP R|
000023e0  30 2c 23 39 0d 13 92 12  42 45 51 20 73 6b 69 70  |0,#9....BEQ skip|
000023f0  5f 6d 6f 64 65 39 0d 13  9c 0c 53 57 49 20 26 31  |_mode9....SWI &1|
00002400  31 36 0d 13 a6 14 53 57  49 20 26 31 30 30 2b 39  |16....SWI &100+9|
00002410  20 3b 20 eb 20 39 0d 13  b0 0f a4 70 6f 69 6e 74  | ; . 9.....point|
00002420  65 72 5f 6f 6e 0d 13 ba  1a 53 57 49 20 22 4f 53  |er_on....SWI "OS|
00002430  5f 52 65 6d 6f 76 65 43  75 72 73 6f 72 73 22 0d  |_RemoveCursors".|
00002440  13 c4 27 4d 4f 56 20 52  30 2c 23 39 20 3a 20 53  |..'MOV R0,#9 : S|
00002450  54 52 42 20 52 30 2c 5b  6d 65 6d 2c 23 6c 61 73  |TRB R0,[mem,#las|
00002460  74 6d 6f 64 65 5d 0d 13  ce 0f 2e 73 6b 69 70 5f  |tmode].....skip_|
00002470  6d 6f 64 65 39 0d 13 d8  04 0d 13 e2 19 3b 4c 44  |mode9........;LD|
00002480  52 20 52 36 2c 63 72 74  5f 72 65 67 73 5f 61 64  |R R6,crt_regs_ad|
00002490  64 72 0d 13 ec 19 53 55  42 20 52 36 2c 6d 65 6d  |dr....SUB R6,mem|
000024a0  2c 23 2d 63 72 74 5f 72  65 67 73 0d 13 f6 14 4c  |,#-crt_regs....L|
000024b0  44 52 42 20 52 37 2c 5b  52 36 2c 23 31 33 5d 0d  |DRB R7,[R6,#13].|
000024c0  14 00 14 4c 44 52 42 20  52 32 2c 5b 52 36 2c 23  |...LDRB R2,[R6,#|
000024d0  31 32 5d 0d 14 0a 19 80  20 52 32 2c 52 32 2c 23  |12]..... R2,R2,#|
000024e0  73 63 72 65 65 6e 5f 6d  61 73 6b 25 0d 14 14 16  |screen_mask%....|
000024f0  41 44 44 20 52 37 2c 52  37 2c 52 32 2c 4c 53 4c  |ADD R7,R7,R2,LSL|
00002500  23 38 0d 14 1e 1f 4d 4f  56 20 52 37 2c 52 37 2c  |#8....MOV R7,R7,|
00002510  4c 53 4c 23 73 63 72 65  65 6e 5f 73 68 69 66 74  |LSL#screen_shift|
00002520  25 0d 14 28 04 0d 14 32  0b a4 73 68 61 64 6f 77  |%..(...2..shadow|
00002530  0d 14 3c 04 0d 14 46 14  3b 41 44 52 20 52 38 2c  |..<...F.;ADR R8,|
00002540  6d 6f 64 65 34 74 61 62  0d 14 50 27 4c 44 52 42  |mode4tab..P'LDRB|
00002550  20 52 32 2c 5b 52 36 2c  23 31 5d 20 3b 20 6e 6f  | R2,[R6,#1] ; no|
00002560  20 6f 66 20 68 6f 72 69  7a 20 63 68 61 72 73 0d  | of horiz chars.|
00002570  14 5a 2b 4c 44 52 42 20  52 31 31 2c 5b 52 36 2c  |.Z+LDRB R11,[R6,|
00002580  23 36 5d 20 3b 20 6e 6f  20 6f 66 20 76 65 72 74  |#6] ; no of vert|
00002590  69 63 61 6c 20 63 68 61  72 73 0d 14 64 11 4d 55  |ical chars..d.MU|
000025a0  4c 20 52 34 2c 52 32 2c  52 31 31 0d 14 6e 13 4d  |L R4,R2,R11..n.M|
000025b0  4f 56 20 52 34 2c 52 34  2c 4c 53 4c 23 33 0d 14  |OV R4,R4,LSL#3..|
000025c0  78 04 0d 14 82 11 41 44  44 20 52 37 2c 52 37 2c  |x.....ADD R7,R7,|
000025d0  52 31 33 0d 14 8c 16 41  44 44 20 52 31 31 2c 52  |R13....ADD R11,R|
000025e0  31 33 2c 23 26 38 30 30  30 0d 14 96 13 41 44 44  |13,#&8000....ADD|
000025f0  20 52 31 32 2c 52 31 32  2c 52 31 33 0d 14 a0 04  | R12,R12,R13....|
00002600  0d 14 aa 12 3b 20 52 4a  57 20 77 61 73 20 68 65  |....; RJW was he|
00002610  72 65 0d 14 b4 1e 4c 44  52 42 20 52 30 2c 5b 52  |re....LDRB R0,[R|
00002620  36 2c 23 33 5d 20 3b 20  46 6f 72 74 72 65 73 73  |6,#3] ; Fortress|
00002630  0d 14 be 12 54 53 54 20  52 30 2c 23 31 20 3c 3c  |....TST R0,#1 <<|
00002640  20 34 0d 14 c8 1e 42 4e  45 20 66 6f 72 74 72 65  | 4....BNE fortre|
00002650  73 73 5f 75 70 64 61 74  65 73 63 72 65 65 6e 34  |ss_updatescreen4|
00002660  0d 14 d2 14 3b 4d 4f 56  20 52 34 2c 52 32 2c 4c  |....;MOV R4,R2,L|
00002670  53 4c 23 38 0d 14 dc 0a  2e 6c 6f 6f 70 32 0d 14  |SL#8.....loop2..|
00002680  e6 0f 3b 4d 4f 56 20 52  32 2c 23 38 30 0d 14 f0  |..;MOV R2,#80...|
00002690  0a 2e 6c 6f 6f 70 31 0d  14 fa 04 0d 15 04 11 3b  |..loop1........;|
000026a0  52 4a 57 20 77 61 73 20  68 65 72 65 0d 15 0e 17  |RJW was here....|
000026b0  4c 44 4d 49 41 20 52 37  21 2c 7b 52 31 30 2c 52  |LDMIA R7!,{R10,R|
000026c0  31 34 7d 0d 15 18 11 80  20 52 30 2c 52 31 34 2c  |14}..... R0,R14,|
000026d0  23 26 46 46 0d 15 22 18  4c 44 52 20 52 35 2c 5b  |#&FF..".LDR R5,[|
000026e0  52 38 2c 52 30 2c 4c 53  4c 23 32 5d 0d 15 2c 30  |R8,R0,LSL#2]..,0|
000026f0  53 54 52 20 52 35 2c 5b  52 39 2c 23 31 36 30 2a  |STR R5,[R9,#160*|
00002700  34 5d 20 3b 20 31 36 30  3d 6c 69 6e 65 20 6c 65  |4] ; 160=line le|
00002710  6e 67 74 68 20 69 6e 20  6d 6f 64 65 0d 15 36 13  |ngth in mode..6.|
00002720  80 20 52 30 2c 52 31 34  2c 23 26 46 46 30 30 0d  |. R0,R14,#&FF00.|
00002730  15 40 18 4c 44 52 20 52  35 2c 5b 52 38 2c 52 30  |.@.LDR R5,[R8,R0|
00002740  2c 4c 53 52 23 36 5d 0d  15 4a 30 53 54 52 20 52  |,LSR#6]..J0STR R|
00002750  35 2c 5b 52 39 2c 23 31  36 30 2a 35 5d 20 3b 20  |5,[R9,#160*5] ; |
00002760  31 36 30 3d 6c 69 6e 65  20 6c 65 6e 67 74 68 20  |160=line length |
00002770  69 6e 20 6d 6f 64 65 0d  15 54 15 80 20 52 30 2c  |in mode..T.. R0,|
00002780  52 31 34 2c 23 26 46 46  30 30 30 30 0d 15 5e 19  |R14,#&FF0000..^.|
00002790  4c 44 52 20 52 35 2c 5b  52 38 2c 52 30 2c 4c 53  |LDR R5,[R8,R0,LS|
000027a0  52 23 31 34 5d 0d 15 68  30 53 54 52 20 52 35 2c  |R#14]..h0STR R5,|
000027b0  5b 52 39 2c 23 31 36 30  2a 36 5d 20 3b 20 31 36  |[R9,#160*6] ; 16|
000027c0  30 3d 6c 69 6e 65 20 6c  65 6e 67 74 68 20 69 6e  |0=line length in|
000027d0  20 6d 6f 64 65 0d 15 72  17 80 20 52 30 2c 52 31  | mode..r.. R0,R1|
000027e0  34 2c 23 26 46 46 30 30  30 30 30 30 0d 15 7c 19  |4,#&FF000000..|.|
000027f0  4c 44 52 20 52 35 2c 5b  52 38 2c 52 30 2c 4c 53  |LDR R5,[R8,R0,LS|
00002800  52 23 32 32 5d 0d 15 86  30 53 54 52 20 52 35 2c  |R#22]...0STR R5,|
00002810  5b 52 39 2c 23 31 36 30  2a 37 5d 20 3b 20 31 36  |[R9,#160*7] ; 16|
00002820  30 3d 6c 69 6e 65 20 6c  65 6e 67 74 68 20 69 6e  |0=line length in|
00002830  20 6d 6f 64 65 0d 15 90  04 0d 15 9a 13 80 20 52  | mode......... R|
00002840  30 2c 52 31 30 2c 23 26  46 46 30 30 0d 15 a4 18  |0,R10,#&FF00....|
00002850  4c 44 52 20 52 35 2c 5b  52 38 2c 52 30 2c 4c 53  |LDR R5,[R8,R0,LS|
00002860  52 23 36 5d 0d 15 ae 2e  53 54 52 20 52 35 2c 5b  |R#6]....STR R5,[|
00002870  52 39 2c 23 31 36 30 5d  20 3b 20 31 36 30 3d 6c  |R9,#160] ; 160=l|
00002880  69 6e 65 20 6c 65 6e 67  74 68 20 69 6e 20 6d 6f  |ine length in mo|
00002890  64 65 0d 15 b8 15 80 20  52 30 2c 52 31 30 2c 23  |de..... R0,R10,#|
000028a0  26 46 46 30 30 30 30 0d  15 c2 19 4c 44 52 20 52  |&FF0000....LDR R|
000028b0  35 2c 5b 52 38 2c 52 30  2c 4c 53 52 23 31 34 5d  |5,[R8,R0,LSR#14]|
000028c0  0d 15 cc 30 53 54 52 20  52 35 2c 5b 52 39 2c 23  |...0STR R5,[R9,#|
000028d0  31 36 30 2a 32 5d 20 3b  20 31 36 30 3d 6c 69 6e  |160*2] ; 160=lin|
000028e0  65 20 6c 65 6e 67 74 68  20 69 6e 20 6d 6f 64 65  |e length in mode|
000028f0  0d 15 d6 17 80 20 52 30  2c 52 31 30 2c 23 26 46  |..... R0,R10,#&F|
00002900  46 30 30 30 30 30 30 0d  15 e0 19 4c 44 52 20 52  |F000000....LDR R|
00002910  35 2c 5b 52 38 2c 52 30  2c 4c 53 52 23 32 32 5d  |5,[R8,R0,LSR#22]|
00002920  0d 15 ea 30 53 54 52 20  52 35 2c 5b 52 39 2c 23  |...0STR R5,[R9,#|
00002930  31 36 30 2a 33 5d 20 3b  20 31 36 30 3d 6c 69 6e  |160*3] ; 160=lin|
00002940  65 20 6c 65 6e 67 74 68  20 69 6e 20 6d 6f 64 65  |e length in mode|
00002950  0d 15 f4 11 80 20 52 30  2c 52 31 30 2c 23 26 46  |..... R0,R10,#&F|
00002960  46 0d 15 fe 18 4c 44 52  20 52 35 2c 5b 52 38 2c  |F....LDR R5,[R8,|
00002970  52 30 2c 4c 53 4c 23 32  5d 0d 16 08 2c 53 54 52  |R0,LSL#2]...,STR|
00002980  20 52 35 2c 5b 52 39 5d  2c 23 34 20 3b 20 31 36  | R5,[R9],#4 ; 16|
00002990  30 3d 6c 69 6e 65 20 6c  65 6e 67 74 68 20 69 6e  |0=line length in|
000029a0  20 6d 6f 64 65 0d 16 12  04 0d 16 1c 1a 43 4d 50  | mode........CMP|
000029b0  20 52 37 2c 52 31 31 20  3a 20 ec 51 20 52 37 2c  | R7,R11 : .Q R7,|
000029c0  52 31 32 0d 16 26 04 0d  16 30 28 53 55 42 53 20  |R12..&...0(SUBS |
000029d0  52 32 2c 52 32 2c 23 31  20 3b 20 65 6e 64 20 6f  |R2,R2,#1 ; end o|
000029e0  66 20 63 68 61 72 61 63  74 65 72 20 72 6f 77 0d  |f character row.|
000029f0  16 3a 0d 42 47 54 20 6c  6f 6f 70 31 0d 16 44 04  |.:.BGT loop1..D.|
00002a00  0d 16 4e 37 4c 44 52 42  20 52 32 2c 5b 52 36 2c  |..N7LDRB R2,[R6,|
00002a10  23 33 5d 20 3a 20 4d 4f  56 20 52 32 2c 52 32 2c  |#3] : MOV R2,R2,|
00002a20  4c 53 52 23 34 20 3b 20  76 65 72 74 69 63 61 6c  |LSR#4 ; vertical|
00002a30  20 74 69 6d 69 6e 67 0d  16 58 27 4d 4f 56 20 52  | timing..X'MOV R|
00002a40  35 2c 23 33 32 30 20 3a  20 4d 4f 56 20 52 35 2c  |5,#320 : MOV R5,|
00002a50  52 35 2c 4c 53 4c 20 52  32 20 20 20 20 3b 0d 16  |R5,LSL R2    ;..|
00002a60  62 15 3b 41 44 44 20 52  39 2c 52 39 2c 23 31 36  |b.;ADD R9,R9,#16|
00002a70  30 2a 38 0d 16 6c 3d 41  44 44 20 52 39 2c 52 39  |0*8..l=ADD R9,R9|
00002a80  2c 52 35 20 20 20 20 20  20 20 20 20 20 20 20 20  |,R5             |
00002a90  20 20 20 20 20 20 20 20  20 3b 20 74 6f 20 6d 61  |         ; to ma|
00002aa0  6b 65 20 66 6f 72 74 72  65 73 73 20 77 6f 72 6b  |ke fortress work|
00002ab0  0d 16 76 04 0d 16 80 27  4c 44 52 42 20 52 32 2c  |..v....'LDRB R2,|
00002ac0  5b 52 36 2c 23 31 5d 20  3b 20 6e 6f 20 6f 66 20  |[R6,#1] ; no of |
00002ad0  68 6f 72 69 7a 20 63 68  61 72 73 0d 16 8a 16 53  |horiz chars....S|
00002ae0  55 42 20 52 39 2c 52 39  2c 52 32 2c 4c 53 4c 23  |UB R9,R9,R2,LSL#|
00002af0  32 0d 16 94 1e 53 55 42  53 20 52 34 2c 52 34 2c  |2....SUBS R4,R4,|
00002b00  52 32 2c 4c 53 4c 23 33  20 3b 20 23 36 34 30 0d  |R2,LSL#3 ; #640.|
00002b10  16 9e 0d 42 47 54 20 6c  6f 6f 70 32 0d 16 a8 04  |...BGT loop2....|
00002b20  0d 16 b2 1a 4c 44 4d 45  41 20 6d 65 6d 2c 7b 52  |....LDMEA mem,{R|
00002b30  34 2d 52 31 31 2c 50 43  7d 5e 0d 16 bc 11 3b 52  |4-R11,PC}^....;R|
00002b40  4a 57 20 77 61 73 20 68  65 72 65 0d 16 c6 1b 2e  |JW was here.....|
00002b50  66 6f 72 74 72 65 73 73  5f 75 70 64 61 74 65 73  |fortress_updates|
00002b60  63 72 65 65 6e 34 0d 16  d0 14 3b 4d 4f 56 20 52  |creen4....;MOV R|
00002b70  34 2c 52 32 2c 4c 53 4c  23 38 0d 16 da 0a 2e 6c  |4,R2,LSL#8.....l|
00002b80  6f 6f 70 32 0d 16 e4 0f  3b 4d 4f 56 20 52 32 2c  |oop2....;MOV R2,|
00002b90  23 38 30 0d 16 ee 0a 2e  6c 6f 6f 70 31 0d 16 f8  |#80.....loop1...|
00002ba0  04 0d 17 02 13 4c 44 52  20 52 31 30 2c 5b 52 37  |.....LDR R10,[R7|
00002bb0  5d 2c 23 38 0d 17 0c 13  80 20 52 30 2c 52 31 30  |],#8..... R0,R10|
00002bc0  2c 23 26 46 46 30 30 0d  17 16 18 4c 44 52 20 52  |,#&FF00....LDR R|
00002bd0  35 2c 5b 52 38 2c 52 30  2c 4c 53 52 23 36 5d 0d  |5,[R8,R0,LSR#6].|
00002be0  17 20 2e 53 54 52 20 52  35 2c 5b 52 39 2c 23 31  |. .STR R5,[R9,#1|
00002bf0  36 30 5d 20 3b 20 31 36  30 3d 6c 69 6e 65 20 6c  |60] ; 160=line l|
00002c00  65 6e 67 74 68 20 69 6e  20 6d 6f 64 65 0d 17 2a  |ength in mode..*|
00002c10  15 80 20 52 30 2c 52 31  30 2c 23 26 46 46 30 30  |.. R0,R10,#&FF00|
00002c20  30 30 0d 17 34 19 4c 44  52 20 52 35 2c 5b 52 38  |00..4.LDR R5,[R8|
00002c30  2c 52 30 2c 4c 53 52 23  31 34 5d 0d 17 3e 30 53  |,R0,LSR#14]..>0S|
00002c40  54 52 20 52 35 2c 5b 52  39 2c 23 31 36 30 2a 32  |TR R5,[R9,#160*2|
00002c50  5d 20 3b 20 31 36 30 3d  6c 69 6e 65 20 6c 65 6e  |] ; 160=line len|
00002c60  67 74 68 20 69 6e 20 6d  6f 64 65 0d 17 48 17 80  |gth in mode..H..|
00002c70  20 52 30 2c 52 31 30 2c  23 26 46 46 30 30 30 30  | R0,R10,#&FF0000|
00002c80  30 30 0d 17 52 19 4c 44  52 20 52 35 2c 5b 52 38  |00..R.LDR R5,[R8|
00002c90  2c 52 30 2c 4c 53 52 23  32 32 5d 0d 17 5c 30 53  |,R0,LSR#22]..\0S|
00002ca0  54 52 20 52 35 2c 5b 52  39 2c 23 31 36 30 2a 33  |TR R5,[R9,#160*3|
00002cb0  5d 20 3b 20 31 36 30 3d  6c 69 6e 65 20 6c 65 6e  |] ; 160=line len|
00002cc0  67 74 68 20 69 6e 20 6d  6f 64 65 0d 17 66 11 80  |gth in mode..f..|
00002cd0  20 52 30 2c 52 31 30 2c  23 26 46 46 0d 17 70 18  | R0,R10,#&FF..p.|
00002ce0  4c 44 52 20 52 35 2c 5b  52 38 2c 52 30 2c 4c 53  |LDR R5,[R8,R0,LS|
00002cf0  4c 23 32 5d 0d 17 7a 2c  53 54 52 20 52 35 2c 5b  |L#2]..z,STR R5,[|
00002d00  52 39 5d 2c 23 34 20 3b  20 31 36 30 3d 6c 69 6e  |R9],#4 ; 160=lin|
00002d10  65 20 6c 65 6e 67 74 68  20 69 6e 20 6d 6f 64 65  |e length in mode|
00002d20  0d 17 84 04 0d 17 8e 1a  43 4d 50 20 52 37 2c 52  |........CMP R7,R|
00002d30  31 31 20 3a 20 ec 51 20  52 37 2c 52 31 32 0d 17  |11 : .Q R7,R12..|
00002d40  98 04 0d 17 a2 28 53 55  42 53 20 52 32 2c 52 32  |.....(SUBS R2,R2|
00002d50  2c 23 31 20 3b 20 65 6e  64 20 6f 66 20 63 68 61  |,#1 ; end of cha|
00002d60  72 61 63 74 65 72 20 72  6f 77 0d 17 ac 0d 42 47  |racter row....BG|
00002d70  54 20 6c 6f 6f 70 31 0d  17 b6 04 0d 17 c0 37 4c  |T loop1.......7L|
00002d80  44 52 42 20 52 32 2c 5b  52 36 2c 23 33 5d 20 3a  |DRB R2,[R6,#3] :|
00002d90  20 4d 4f 56 20 52 32 2c  52 32 2c 4c 53 52 23 34  | MOV R2,R2,LSR#4|
00002da0  20 3b 20 76 65 72 74 69  63 61 6c 20 74 69 6d 69  | ; vertical timi|
00002db0  6e 67 0d 17 ca 27 4d 4f  56 20 52 35 2c 23 33 32  |ng...'MOV R5,#32|
00002dc0  30 20 3a 20 4d 4f 56 20  52 35 2c 52 35 2c 4c 53  |0 : MOV R5,R5,LS|
00002dd0  4c 20 52 32 20 20 20 20  3b 0d 17 d4 15 3b 41 44  |L R2    ;....;AD|
00002de0  44 20 52 39 2c 52 39 2c  23 31 36 30 2a 38 0d 17  |D R9,R9,#160*8..|
00002df0  de 3d 41 44 44 20 52 39  2c 52 39 2c 52 35 20 20  |.=ADD R9,R9,R5  |
00002e00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002e10  20 20 20 20 3b 20 74 6f  20 6d 61 6b 65 20 66 6f  |    ; to make fo|
00002e20  72 74 72 65 73 73 20 77  6f 72 6b 0d 17 e8 04 0d  |rtress work.....|
00002e30  17 f2 27 4c 44 52 42 20  52 32 2c 5b 52 36 2c 23  |..'LDRB R2,[R6,#|
00002e40  31 5d 20 3b 20 6e 6f 20  6f 66 20 68 6f 72 69 7a  |1] ; no of horiz|
00002e50  20 63 68 61 72 73 0d 17  fc 16 53 55 42 20 52 39  | chars....SUB R9|
00002e60  2c 52 39 2c 52 32 2c 4c  53 4c 23 32 0d 18 06 1e  |,R9,R2,LSL#2....|
00002e70  53 55 42 53 20 52 34 2c  52 34 2c 52 32 2c 4c 53  |SUBS R4,R4,R2,LS|
00002e80  4c 23 33 20 3b 20 23 36  34 30 0d 18 10 0d 42 47  |L#3 ; #640....BG|
00002e90  54 20 6c 6f 6f 70 32 0d  18 1a 04 0d 18 24 1a 4c  |T loop2......$.L|
00002ea0  44 4d 45 41 20 6d 65 6d  2c 7b 52 34 2d 52 31 31  |DMEA mem,{R4-R11|
00002eb0  2c 50 43 7d 5e 0d 18 2e  04 0d 18 38 12 3b 20 52  |,PC}^......8.; R|
00002ec0  4a 57 20 77 61 73 20 68  65 72 65 0d 18 42 11 2e  |JW was here..B..|
00002ed0  75 70 64 61 74 65 70 69  78 65 6c 34 0d 18 4c 04  |updatepixel4..L.|
00002ee0  0d 18 56 14 41 44 52 20  52 31 33 2c 6d 6f 64 65  |..V.ADR R13,mode|
00002ef0  34 74 61 62 0d 18 60 04  0d 18 6a 13 2e 75 70 64  |4tab..`...j..upd|
00002f00  61 74 65 70 69 78 65 6c  35 5f 32 0d 18 74 04 0d  |atepixel5_2..t..|
00002f10  18 7e 04 0d 18 88 23 41  44 44 20 52 31 34 2c 52  |.~....#ADD R14,R|
00002f20  31 34 2c 52 31 34 2c 4c  53 4c 23 32 20 3b 20 52  |14,R14,LSL#2 ; R|
00002f30  31 34 20 2a 20 35 0d 18  92 04 0d 18 9c 39 41 44  |14 * 5.......9AD|
00002f40  44 20 52 31 34 2c 52 31  2c 52 31 34 2c 4c 53 4c  |D R14,R1,R14,LSL|
00002f50  23 33 20 3b 20 6f 66 66  73 65 74 20 69 6e 20 61  |#3 ; offset in a|
00002f60  72 63 20 73 63 72 65 65  6e 20 6f 66 20 62 79 74  |rc screen of byt|
00002f70  65 2f 34 0d 18 a6 04 0d  18 b0 33 4c 44 52 20 52  |e/4.......3LDR R|
00002f80  30 2c 5b 52 31 33 2c 52  30 2c 4c 53 4c 23 32 5d  |0,[R13,R0,LSL#2]|
00002f90  20 3b 20 6c 6f 61 64 20  34 20 62 79 74 65 73 20  | ; load 4 bytes |
00002fa0  66 72 6f 6d 20 74 61 62  6c 65 0d 18 ba 04 0d 18  |from table......|
00002fb0  c4 22 4c 44 52 20 52 31  33 2c 5b 6d 65 6d 2c 23  |."LDR R13,[mem,#|
00002fc0  61 72 63 5f 73 63 72 65  65 6e 73 74 61 72 74 5d  |arc_screenstart]|
00002fd0  0d 18 ce 1a 53 54 52 20  52 30 2c 5b 52 31 33 2c  |....STR R0,[R13,|
00002fe0  52 31 34 2c 4c 53 4c 23  32 5d 0d 18 d8 19 4c 44  |R14,LSL#2]....LD|
00002ff0  52 20 50 43 2c 5b 6d 65  6d 2c 23 73 63 72 61 74  |R PC,[mem,#scrat|
00003000  63 68 5d 0d 18 e2 04 0d  18 ec 0d 2e 6d 6f 64 65  |ch].........mode|
00003010  34 74 61 62 0d 18 f6 05  5d 0d 19 00 0c 50 25 2b  |4tab....]....P%+|
00003020  3d 31 30 32 34 0d 19 0a  0c 4f 25 2b 3d 31 30 32  |=1024....O%+=102|
00003030  34 0d 19 14 09 5b 4f 50  54 70 0d 19 1e 04 0d 19  |4....[OPTp......|
00003040  28 0f 2e 70 6f 69 6e 74  65 72 5f 6f 6e 0d 19 32  |(..pointer_on..2|
00003050  1d 5c 4c 44 52 42 20 52  30 2c 5b 6d 65 6d 2c 23  |.\LDRB R0,[mem,#|
00003060  63 75 72 73 6f 72 5f 6f  6e 5d 0d 19 3c 1e 5c 43  |cursor_on]..<.\C|
00003070  4d 50 20 52 30 2c 23 30  20 3a 20 5c 4d 4f 56 4e  |MP R0,#0 : \MOVN|
00003080  45 20 50 43 2c 52 31 34  0d 19 46 1f 54 53 54 20  |E PC,R14..F.TST |
00003090  46 2c 23 31 20 3c 3c 20  31 30 20 3b 20 63 75 72  |F,#1 << 10 ; cur|
000030a0  73 6f 72 20 6f 6e 3f 0d  19 50 0d ec 51 20 50 43  |sor on?..P..Q PC|
000030b0  2c 52 31 34 0d 19 5a 1b  4d 4f 56 20 52 30 2c 23  |,R14..Z.MOV R0,#|
000030c0  31 30 36 3a 4d 4f 56 20  52 31 2c 23 26 38 32 0d  |106:MOV R1,#&82.|
000030d0  19 64 11 53 57 49 20 22  4f 53 5f 42 79 74 65 22  |.d.SWI "OS_Byte"|
000030e0  0d 19 6e 0e 3b 4d 4f 56  20 52 30 2c 23 31 0d 19  |..n.;MOV R0,#1..|
000030f0  78 21 3b 53 54 52 42 20  52 30 2c 5b 6d 65 6d 2c  |x!;STRB R0,[mem,|
00003100  23 63 75 72 73 6f 72 5f  74 61 6d 70 65 72 5d 0d  |#cursor_tamper].|
00003110  19 82 0e 4d 4f 56 20 50  43 2c 52 31 34 0d 19 8c  |...MOV PC,R14...|
00003120  04 0d 19 96 04 0d 19 a0  12 2e 75 70 64 61 74 65  |..........update|
00003130  73 63 72 65 65 6e 37 0d  19 aa 1b 4c 44 52 42 20  |screen7....LDRB |
00003140  52 30 2c 5b 6d 65 6d 2c  23 6c 61 73 74 6d 6f 64  |R0,[mem,#lastmod|
00003150  65 5d 0d 19 b4 0d 43 4d  50 20 52 30 2c 23 37 0d  |e]....CMP R0,#7.|
00003160  19 be 14 42 45 51 20 6e  6f 74 5f 6e 65 77 6d 6f  |...BEQ not_newmo|
00003170  64 65 37 0d 19 c8 14 41  44 52 20 52 30 2c 6d 6f  |de7....ADR R0,mo|
00003180  64 65 37 63 6f 70 79 0d  19 d2 10 4d 4f 56 20 52  |de7copy....MOV R|
00003190  31 2c 23 31 30 32 30 0d  19 dc 0d 4d 4f 56 20 52  |1,#1020....MOV R|
000031a0  32 2c 23 30 0d 19 e6 09  2e 63 6c 73 37 0d 19 f0  |2,#0.....cls7...|
000031b0  12 53 54 52 20 52 32 2c  5b 52 30 2c 52 31 5d 0d  |.STR R2,[R0,R1].|
000031c0  19 fa 11 53 55 42 53 20  52 31 2c 52 31 2c 23 34  |...SUBS R1,R1,#4|
000031d0  0d 1a 04 0c 42 50 4c 20  63 6c 73 37 0d 1a 0e 04  |....BPL cls7....|
000031e0  0d 1a 18 0c 53 57 49 20  26 31 31 36 0d 1a 22 12  |....SWI &116..".|
000031f0  53 57 49 20 26 31 30 37  20 3b 20 eb 20 37 0d 1a  |SWI &107 ; . 7..|
00003200  2c 0f a4 70 6f 69 6e 74  65 72 5f 6f 6e 0d 1a 36  |,..pointer_on..6|
00003210  1a 53 57 49 20 22 4f 53  5f 52 65 6d 6f 76 65 43  |.SWI "OS_RemoveC|
00003220  75 72 73 6f 72 73 22 0d  1a 40 27 4d 4f 56 20 52  |ursors"..@'MOV R|
00003230  30 2c 23 37 20 3a 20 53  54 52 42 20 52 30 2c 5b  |0,#7 : STRB R0,[|
00003240  6d 65 6d 2c 23 6c 61 73  74 6d 6f 64 65 5d 0d 1a  |mem,#lastmode]..|
00003250  4a 11 2e 6e 6f 74 5f 6e  65 77 6d 6f 64 65 37 0d  |J..not_newmode7.|
00003260  1a 54 15 53 57 49 20 26  31 31 45 20 3b 20 f1 8a  |.T.SWI &11E ; ..|
00003270  30 2c 30 29 0d 1a 5e 04  0d 1a 68 19 3b 4c 44 52  |0,0)..^...h.;LDR|
00003280  20 52 35 2c 63 72 74 5f  72 65 67 73 5f 61 64 64  | R5,crt_regs_add|
00003290  72 0d 1a 72 0d 4d 4f 56  20 52 35 2c 52 36 0d 1a  |r..r.MOV R5,R6..|
000032a0  7c 14 4c 44 52 42 20 52  36 2c 5b 52 35 2c 23 31  ||.LDRB R6,[R5,#1|
000032b0  32 5d 0d 1a 86 10 80 20  52 36 2c 52 36 2c 23 26  |2]..... R6,R6,#&|
000032c0  33 46 0d 1a 90 10 82 20  52 36 2c 52 36 2c 23 26  |3F..... R6,R6,#&|
000032d0  32 30 0d 1a 9a 12 41 44  44 20 52 36 2c 52 36 2c  |20....ADD R6,R6,|
000032e0  23 26 37 34 0d 1a a4 10  80 20 52 36 2c 52 36 2c  |#&74..... R6,R6,|
000032f0  23 26 46 46 0d 1a ae 14  4c 44 52 42 20 52 37 2c  |#&FF....LDRB R7,|
00003300  5b 52 35 2c 23 31 33 5d  0d 1a b8 16 41 44 44 20  |[R5,#13]....ADD |
00003310  52 37 2c 52 37 2c 52 36  2c 4c 53 4c 23 38 0d 1a  |R7,R7,R6,LSL#8..|
00003320  c2 04 0d 1a cc 0b a4 73  68 61 64 6f 77 0d 1a d6  |.......shadow...|
00003330  04 0d 1a e0 12 3b 4d 4f  56 20 52 37 2c 23 26 37  |.....;MOV R7,#&7|
00003340  43 30 30 0d 1a ea 04 0d  1a f4 17 3b 41 44 44 20  |C00........;ADD |
00003350  6d 65 6d 2c 6d 65 6d 2c  23 26 37 43 30 30 0d 1a  |mem,mem,#&7C00..|
00003360  fe 0d 4d 4f 56 20 52 34  2c 23 30 0d 1b 08 11 3b  |..MOV R4,#0....;|
00003370  53 55 42 20 52 34 2c 52  34 2c 23 31 0d 1b 12 13  |SUB R4,R4,#1....|
00003380  3b 41 44 44 20 6d 65 6d  2c 6d 65 6d 2c 23 31 0d  |;ADD mem,mem,#1.|
00003390  1b 1c 04 0d 1b 26 26 41  44 52 20 52 38 2c 6d 6f  |.....&&ADR R8,mo|
000033a0  64 65 37 63 6f 70 79 3a  3b 53 55 42 20 52 38 2c  |de7copy:;SUB R8,|
000033b0  52 38 2c 23 26 37 43 30  30 0d 1b 30 04 0d 1b 3a  |R8,#&7C00..0...:|
000033c0  11 4d 4f 56 20 52 39 2c  23 30 20 3b 20 58 0d 1b  |.MOV R9,#0 ; X..|
000033d0  44 12 4d 4f 56 20 52 31  30 2c 23 30 20 3b 20 59  |D.MOV R10,#0 ; Y|
000033e0  0d 1b 4e 10 53 55 42 20  52 39 2c 52 39 2c 23 31  |..N.SUB R9,R9,#1|
000033f0  0d 1b 58 04 0d 1b 62 0e  2e 6d 6f 64 65 37 6c 6f  |..X...b..mode7lo|
00003400  6f 70 0d 1b 6c 3b 41 44  44 20 52 39 2c 52 39 2c  |op..l;ADD R9,R9,|
00003410  23 31 20 3a 20 43 4d 50  20 52 39 2c 23 34 30 20  |#1 : CMP R9,#40 |
00003420  3a 20 ec 51 20 52 39 2c  23 30 20 3a 20 41 44 44  |: .Q R9,#0 : ADD|
00003430  45 51 20 52 31 30 2c 52  31 30 2c 23 31 0d 1b 76  |EQ R10,R10,#1..v|
00003440  14 4c 44 52 42 20 52 30  2c 5b 52 31 33 2c 52 37  |.LDRB R0,[R13,R7|
00003450  5d 0d 1b 80 1c 43 4d 50  20 52 30 2c 23 26 37 46  |]....CMP R0,#&7F|
00003460  20 3a 20 ec 51 20 52 30  2c 23 32 35 35 0d 1b 8a  | : .Q R0,#255...|
00003470  2c 43 4d 50 20 52 30 2c  23 26 31 41 20 3a 20 ec  |,CMP R0,#&1A : .|
00003480  51 20 52 30 2c 23 26 39  41 20 3b 20 66 69 78 20  |Q R0,#&9A ; fix |
00003490  5a 61 6c 61 67 61 3f 3f  3f 0d 1b 94 2c 43 4d 50  |Zalaga???...,CMP|
000034a0  20 52 30 2c 23 26 31 44  20 3a 20 ec 51 20 52 30  | R0,#&1D : .Q R0|
000034b0  2c 23 26 39 44 20 3b 20  66 69 78 20 5a 61 6c 61  |,#&9D ; fix Zala|
000034c0  67 61 3f 3f 3f 0d 1b 9e  1d 43 4d 50 20 52 30 2c  |ga???....CMP R0,|
000034d0  23 33 32 20 3a 20 4d 4f  56 4c 54 20 52 30 2c 23  |#32 : MOVLT R0,#|
000034e0  33 32 0d 1b a8 04 0d 1b  b2 29 43 4d 50 20 52 30  |32.......)CMP R0|
000034f0  2c 23 26 36 30 20 3a 20  ec 51 20 52 30 2c 23 26  |,#&60 : .Q R0,#&|
00003500  35 46 20 3a 20 42 45 51  20 70 72 69 6e 74 37 0d  |5F : BEQ print7.|
00003510  1b bc 29 43 4d 50 20 52  30 2c 23 26 35 46 20 3a  |..)CMP R0,#&5F :|
00003520  20 ec 51 20 52 30 2c 23  26 32 33 20 3a 20 42 45  | .Q R0,#&23 : BE|
00003530  51 20 70 72 69 6e 74 37  0d 1b c6 1c 43 4d 50 20  |Q print7....CMP |
00003540  52 30 2c 23 26 32 33 20  3a 20 ec 51 20 52 30 2c  |R0,#&23 : .Q R0,|
00003550  23 26 36 30 0d 1b d0 0b  2e 70 72 69 6e 74 37 0d  |#&60.....print7.|
00003560  1b da 04 0d 1b e4 1d 4c  44 52 42 20 52 31 31 2c  |.......LDRB R11,|
00003570  5b 52 38 5d 20 3b 20 6d  6f 64 65 37 63 6f 70 79  |[R8] ; mode7copy|
00003580  0d 1b ee 0e 43 4d 50 20  52 31 31 2c 52 30 0d 1b  |....CMP R11,R0..|
00003590  f8 10 42 45 51 20 6e 6f  70 72 69 6e 74 37 0d 1c  |..BEQ noprint7..|
000035a0  02 14 53 57 49 20 26 31  30 30 2b 33 31 20 3b 20  |..SWI &100+31 ; |
000035b0  f1 8a 0d 1c 0c 0e 4d 4f  56 20 52 31 31 2c 52 30  |......MOV R11,R0|
000035c0  0d 1c 16 1f 4d 4f 56 20  52 30 2c 52 39 20 3a 20  |....MOV R0,R9 : |
000035d0  53 57 49 20 22 4f 53 5f  57 72 69 74 65 43 22 0d  |SWI "OS_WriteC".|
000035e0  1c 20 20 4d 4f 56 20 52  30 2c 52 31 30 20 3a 20  |.  MOV R0,R10 : |
000035f0  53 57 49 20 22 4f 53 5f  57 72 69 74 65 43 22 0d  |SWI "OS_WriteC".|
00003600  1c 2a 20 4d 4f 56 20 52  30 2c 52 31 31 20 3a 20  |.* MOV R0,R11 : |
00003610  53 57 49 20 22 4f 53 5f  57 72 69 74 65 43 22 0d  |SWI "OS_WriteC".|
00003620  1c 34 1c 53 54 52 42 20  52 30 2c 5b 52 38 5d 20  |.4.STRB R0,[R8] |
00003630  3b 20 6d 6f 64 65 37 63  6f 70 79 0d 1c 3e 0d 2e  |; mode7copy..>..|
00003640  6e 6f 70 72 69 6e 74 37  0d 1c 48 10 41 44 44 20  |noprint7..H.ADD |
00003650  52 38 2c 52 38 2c 23 31  0d 1c 52 04 0d 1c 5c 10  |R8,R8,#1..R...\.|
00003660  41 44 44 20 52 37 2c 52  37 2c 23 31 0d 1c 66 11  |ADD R7,R7,#1..f.|
00003670  43 4d 50 20 52 37 2c 23  26 38 30 30 30 0d 1c 70  |CMP R7,#&8000..p|
00003680  10 ec 51 20 52 37 2c 23  26 37 43 30 30 0d 1c 7a  |..Q R7,#&7C00..z|
00003690  10 41 44 44 20 52 34 2c  52 34 2c 23 31 0d 1c 84  |.ADD R4,R4,#1...|
000036a0  11 43 4d 50 20 52 34 2c  23 32 35 2a 34 30 0d 1c  |.CMP R4,#25*40..|
000036b0  8e 11 42 4e 45 20 6d 6f  64 65 37 6c 6f 6f 70 0d  |..BNE mode7loop.|
000036c0  1c 98 04 0d 1c a2 1a 4c  44 4d 45 41 20 6d 65 6d  |.......LDMEA mem|
000036d0  2c 7b 52 34 2d 52 31 31  2c 50 43 7d 5e 0d 1c ac  |,{R4-R11,PC}^...|
000036e0  0e 2e 6d 6f 64 65 37 63  6f 70 79 0d 1c b6 05 5d  |..mode7copy....]|
000036f0  0d 1c c0 15 50 25 2b 3d  31 30 32 34 3a 4f 25 2b  |....P%+=1024:O%+|
00003700  3d 31 30 32 34 0d 1c ca  09 5b 4f 50 54 70 0d 1c  |=1024....[OPTp..|
00003710  d4 04 0d 1c de 12 2e 75  70 64 61 74 65 5f 73 63  |.......update_sc|
00003720  72 65 65 6e 0d 1c e8 11  2e 75 70 64 61 74 65 73  |reen.....updates|
00003730  63 72 65 65 6e 0d 1c f2  1a 53 54 4d 46 44 20 6d  |creen....STMFD m|
00003740  65 6d 2c 7b 52 34 2d 52  31 31 2c 52 31 34 7d 0d  |em,{R4-R11,R14}.|
00003750  1c fc 04 0d 1d 06 05 5d  0d 1d 10 11 e7 20 65 6c  |.......]..... el|
00003760  65 63 74 72 6f 6e 25 20  8c 0d 1d 1a 09 5b 4f 50  |ectron% .....[OP|
00003770  54 70 0d 1d 24 12 54 53  54 20 46 2c 23 31 20 3c  |Tp..$.TST F,#1 <|
00003780  3c 20 31 32 0d 1d 2e 1b  4d 4f 56 4e 45 20 50 43  |< 12....MOVNE PC|
00003790  2c 52 31 34 20 3b 20 22  6d 6f 64 65 20 37 22 0d  |,R14 ; "mode 7".|
000037a0  1d 38 05 5d 0d 1d 42 05  cd 0d 1d 4c 04 0d 1d 56  |.8.]..B....L...V|
000037b0  09 5b 4f 50 54 70 0d 1d  60 21 4c 44 52 20 52 39  |.[OPTp..`!LDR R9|
000037c0  2c 5b 6d 65 6d 2c 23 61  72 63 5f 73 63 72 65 65  |,[mem,#arc_scree|
000037d0  6e 73 74 61 72 74 5d 0d  1d 6a 04 0d 1d 74 19 53  |nstart]..j...t.S|
000037e0  55 42 20 52 36 2c 6d 65  6d 2c 23 2d 63 72 74 5f  |UB R6,mem,#-crt_|
000037f0  72 65 67 73 0d 1d 7e 16  3b 4c 44 52 42 20 52 31  |regs..~.;LDRB R1|
00003800  30 2c 5b 52 36 2c 23 31  39 5d 0d 1d 88 14 3b 80  |0,[R6,#19]....;.|
00003810  53 20 52 31 30 2c 52 31  30 2c 23 25 31 31 0d 1d  |S R10,R10,#%11..|
00003820  92 15 3b 4d 4f 56 4e 45  20 52 31 32 2c 23 26 35  |..;MOVNE R12,#&5|
00003830  38 30 30 0d 1d 9c 12 3b  ec 51 20 52 31 32 2c 23  |800....;.Q R12,#|
00003840  26 34 30 30 30 0d 1d a6  11 3b 43 4d 50 20 52 31  |&4000....;CMP R1|
00003850  30 2c 23 25 31 30 0d 1d  b0 12 3b ec 51 20 52 31  |0,#%10....;.Q R1|
00003860  32 2c 23 26 33 30 30 30  0d 1d ba 11 3b 43 4d 50  |2,#&3000....;CMP|
00003870  20 52 31 30 2c 23 25 30  31 0d 1d c4 12 3b ec 51  | R10,#%01....;.Q|
00003880  20 52 31 32 2c 23 26 36  30 30 30 0d 1d ce 14 4d  | R12,#&6000....M|
00003890  4f 56 20 52 31 32 2c 46  2c 4c 53 52 23 31 36 0d  |OV R12,F,LSR#16.|
000038a0  1d d8 04 0d 1d e2 05 5d  0d 1d ec 11 e7 20 65 6c  |.......]..... el|
000038b0  65 63 74 72 6f 6e 25 20  8c 0d 1d f6 09 5b 4f 50  |ectron% .....[OP|
000038c0  54 70 0d 1e 00 17 4c 44  52 42 20 52 30 2c 5b 6d  |Tp....LDRB R0,[m|
000038d0  65 6d 2c 23 66 65 32 30  5d 0d 1e 0a 05 5d 0d 1e  |em,#fe20]....]..|
000038e0  14 05 cc 0d 1e 1e 09 5b  4f 50 54 70 0d 1e 28 1c  |.......[OPTp..(.|
000038f0  53 55 42 20 52 30 2c 6d  65 6d 2c 23 35 31 32 20  |SUB R0,mem,#512 |
00003900  3b 20 73 68 65 69 6c 61  0d 1e 32 15 4c 44 52 42  |; sheila..2.LDRB|
00003910  20 52 30 2c 5b 52 30 2c  23 26 32 30 5d 0d 1e 3c  | R0,[R0,#&20]..<|
00003920  05 5d 0d 1e 46 05 cd 0d  1e 50 04 0d 1e 5a 09 5b  |.]..F....P...Z.[|
00003930  4f 50 54 70 0d 1e 64 2a  3b 52 4a 57 20 55 70 64  |OPTp..d*;RJW Upd|
00003940  61 74 65 64 20 63 6f 64  65 20 74 6f 20 61 76 6f  |ated code to avo|
00003950  69 64 20 6a 75 6d 70 2d  3e 6a 75 6d 70 73 0d 1e  |id jump->jumps..|
00003960  6e 14 4d 4f 56 53 20 52  30 2c 52 30 2c 4c 53 52  |n.MOVS R0,R0,LSR|
00003970  23 32 0d 1e 78 15 42 43  53 20 75 70 64 61 74 65  |#2..x.BCS update|
00003980  73 63 72 65 65 6e 37 0d  1e 82 04 0d 1e 8c 1d 54  |screen7........T|
00003990  53 54 20 46 2c 23 31 20  3c 3c 20 38 20 3b 20 70  |ST F,#1 << 8 ; p|
000039a0  61 74 63 68 20 6f 6e 3f  0d 1e 96 2c 42 4e 45 20  |atch on?...,BNE |
000039b0  70 61 74 63 68 5f 73 63  72 65 65 6e 32 20 3b 20  |patch_screen2 ; |
*
000039d0  46 3d 52 37 0d 1e a0 04  0d 1e aa 20 3b 52 4a 57  |F=R7....... ;RJW|
000039e0  3b 20 43 61 6e 20 74 68  69 73 20 80 20 62 65 20  |; Can this . be |
000039f0  72 65 6d 6f 76 65 64 3f  0d 1e b4 0f 2e 70 61 74  |removed?.....pat|
00003a00  63 68 5f 65 78 69 74 0d  1e be 0e 80 20 52 30 2c  |ch_exit..... R0,|
00003a10  52 30 2c 23 37 0d 1e c8  18 4c 44 52 20 52 30 2c  |R0,#7....LDR R0,|
00003a20  5b 50 43 2c 52 30 2c 4c  53 4c 23 32 5d 0d 1e d2  |[PC,R0,LSL#2]...|
00003a30  10 41 44 44 20 50 43 2c  50 43 2c 52 30 0d 1e dc  |.ADD PC,PC,R0...|
00003a40  28 45 51 55 44 20 75 70  64 61 74 65 73 63 72 65  |(EQUD updatescre|
00003a50  65 6e 34 2d 75 73 74 61  62 20 20 20 3b 20 25 30  |en4-ustab   ; %0|
00003a60  30 30 20 30 30 0d 1e e6  0a 2e 75 73 74 61 62 0d  |00 00.....ustab.|
00003a70  1e f0 28 45 51 55 44 20  75 70 64 61 74 65 73 63  |..(EQUD updatesc|
00003a80  72 65 65 6e 35 2d 75 73  74 61 62 20 20 20 3b 20  |reen5-ustab   ; |
00003a90  25 30 30 31 20 30 30 0d  1e fa 28 45 51 55 44 20  |%001 00...(EQUD |
00003aa0  75 70 64 61 74 65 73 63  72 65 65 6e 34 2d 75 73  |updatescreen4-us|
00003ab0  74 61 62 20 20 20 3b 20  25 30 31 30 20 30 30 0d  |tab   ; %010 00.|
00003ac0  1f 04 28 45 51 55 44 20  75 70 64 61 74 65 73 63  |..(EQUD updatesc|
00003ad0  72 65 65 6e 30 2d 75 73  74 61 62 20 20 20 3b 20  |reen0-ustab   ; |
00003ae0  25 30 31 31 20 30 30 0d  1f 0e 28 45 51 55 44 20  |%011 00...(EQUD |
00003af0  75 70 64 61 74 65 73 63  72 65 65 6e 31 2d 75 73  |updatescreen1-us|
00003b00  74 61 62 20 20 20 3b 20  25 31 30 30 20 30 30 0d  |tab   ; %100 00.|
00003b10  1f 18 28 45 51 55 44 20  75 70 64 61 74 65 73 63  |..(EQUD updatesc|
00003b20  72 65 65 6e 32 2d 75 73  74 61 62 20 20 20 3b 20  |reen2-ustab   ; |
00003b30  25 31 30 31 20 30 30 0d  1f 22 28 45 51 55 44 20  |%101 00.."(EQUD |
00003b40  75 70 64 61 74 65 73 63  72 65 65 6e 31 2d 75 73  |updatescreen1-us|
00003b50  74 61 62 20 20 20 3b 20  25 31 31 30 20 30 30 0d  |tab   ; %110 00.|
00003b60  1f 2c 28 45 51 55 44 20  75 70 64 61 74 65 73 63  |.,(EQUD updatesc|
00003b70  72 65 65 6e 30 2d 75 73  74 61 62 20 20 20 3b 20  |reen0-ustab   ; |
00003b80  25 31 31 31 20 30 30 0d  1f 36 04 0d 1f 40 12 2e  |%111 00..6...@..|
00003b90  70 61 74 63 68 5f 73 63  72 65 65 6e 32 0d 1f 4a  |patch_screen2..J|
00003ba0  16 41 44 52 20 52 31 33  2c 70 61 74 63 68 5f 65  |.ADR R13,patch_e|
00003bb0  78 69 74 0d 1f 54 12 42  20 70 61 74 63 68 5f 73  |xit..T.B patch_s|
00003bc0  63 72 65 65 6e 0d 1f 5e  05 5d 0d 1f 68 07 3d 22  |creen..^.]..h.="|
00003bd0  22 0d 1f 72 04 0d 1f 7c  10 dd a4 70 6f 69 6e 74  |"..r...|...point|
00003be0  65 72 5f 6f 6e 0d 1f 86  28 e7 20 ac 65 6c 65 63  |er_on...(. .elec|
00003bf0  74 72 6f 6e 25 20 8c 20  5b 4f 50 54 70 3a 42 4c  |tron% . [OPTp:BL|
00003c00  20 70 6f 69 6e 74 65 72  5f 6f 6e 3a 5d 0d 1f 90  | pointer_on:]...|
00003c10  07 3d 22 22 0d ff                                 |.=""..|
00003c16