Home » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars » StarInfo/Adcock/PlasBall13
StarInfo/Adcock/PlasBall13
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars |
| Filename: | StarInfo/Adcock/PlasBall13 |
| Read OK: | ✔ |
| File size: | 0C89 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1MODE 13
2MOUSE RECTANGLE 48,250,1184,255
3DIM BA%(2)
4FOR looP%=1 TO 2
5SYS 6,112,looP%:SYS 6,113,looP%:CLS:BA%(looP%)=FNFindBaseAddress
6NEXT looP%
7PROCASSEMBLE
8N=RND(-TIME)
9DIM blk% 16
10blk%!0=BA%(1)
11blk%!4=BA%(2)
12blk%!8=1180
13blk%!12=(110*320)
14!vadr=blk%
15CALL main
16END
17:
18:
19:
20DEF PROCASSEMBLE
21DIM code% 1024
22FOR pass%=0 TO 2 STEP 2
23P%=code%
24[ OPT pass%
25.vadr EQUD 0
26.main STMFD R13!,{R14}
27 LDR R0,vadr
28 LDR R9,[R0],#4
29 LDR R10,[R0],#4
30 LDR R11,[R0],#4
31 LDR R12,[R0],#4
32 MOV R4,#640
33 MOV R5,#512
34 MOV R6,#16
35 MOV R7,#0
36 MOV R8,#1
37
38 SWI "OS_RemoveCursors"
39
40 MOV R0,#18
41 SWI "OS_WriteC"
42 MOV R0,#0
43 SWI "OS_WriteC"
44 MOV R0,#3
45 SWI "OS_WriteC"
46
47
48.loop ADD R4,R4,R6
49 ADD R5,R5,R7
50
51 CMP R11,R4
52 CMPGT R4,#100
53 RSBLT R6,R6,#0
54
55 CMP R5,#250
56 RSBLT R7,R7,#0
57 SUBGE R7,R7,#3
58
59 MOV R0,#112
60 MOV R1,R8
61 SWI "OS_Byte"
62
63
64
65 SWI "OS_Mouse"
66 CMP R2,#0
67 BEQ ball%
68 MOV R2,R1
69 MOV R1,R0
70 MOV R0,#4
71 SWI "OS_Plot"
72 MOV R0,#&99
73 MOV R1,#48
74 MOV R2,#0
75 SWI "OS_Plot"
76 B skip%
77
78.ball% MOV R0,#4
79 MOV R1,R4
80 MOV R2,R5
81 SWI "OS_Plot"
82
83 MOV R0,#&99
84 MOV R1,#48
85 MOV R2,#0
86 SWI "OS_Plot"
87
88.skip% CMP R8,#1
89 MOVEQ R0,R9
90 MOVEQ R1,R10
91 CMP R8,#2
92 MOVEQ R0,R10
93 MOVEQ R1,R9
94 MOV R2,R12
95
96 BL plas
97
98 MOV R0,#19
99 SWI "OS_Byte"
100 MOV R0,#113
101 RSB R8,R8,#3
102 MOV R1,R8
103 SWI "OS_Byte"
104
105.ski% SWI "OS_ReadEscapeState"
106 BCS quit
107
108 B loop
109
110.quit LDMFD R13!,{PC}^
111
112.plas STMFD R13!,{R0-R12,R14}
113
114 LDR R3,big%
115 LDR R12,small%
116
117 ADD R10,R1,R2
118 ADD R11,R0,R2
119.loop ADD R8,R11,R3
120 :
121 LDRB R4,[R8,#1]!
122 LDRB R5,[R8,#-2]!
123 LDRB R6,[R8,R12]!
124 LDRB R7,[R8,#640]!
125 :
126 ADD R4,R4,R5
127 ADD R4,R4,R6
128 ADD R4,R4,R7
129 MOV R4,R4,LSR #2
130
131 STRB R4,[R10,R3]
132
133 SUBS R3,R3,#1
134 BNE loop
135 LDMFD R13!,{R0-R12,PC}^
136.big% EQUD 32000
137.small% EQUD -319
138]
139NEXT pass%
140ENDPROC
141:
142:
143:
144DEF FNFindBaseAddress
145DIM input_list 8
146DIM output_list 4
147input_list!0 = 149
148input_list!4 = -1
149SYS "OS_ReadVduVariables",input_list,output_list
150=output_list!0
151
152
� 13
ȗ ȓ 48,250,1184,255
� BA%(2)
� looP%=1 � 2
?ș 6,112,looP%:ș 6,113,looP%:�:BA%(looP%)=�FindBaseAddress
� looP%
�ASSEMBLE
N=�(-�)
� blk% 16
blk%!0=BA%(1)
blk%!4=BA%(2)
blk%!8=1180
blk%!12=(110*320)
!vadr=blk%
� main
�
:
:
:
� �ASSEMBLE
� code% 1024
� pass%=0 � 2 � 2
P%=code%
[ OPT pass%
.vadr EQUD 0
.main STMFD R13!,{R14}
LDR R0,vadr
LDR R9,[R0],#4
LDR R10,[R0],#4
LDR R11,[R0],#4
' LDR R12,[R0],#4
MOV R4,#640
! MOV R5,#512
" MOV R6,#16
# MOV R7,#0
$ MOV R8,#1
%
&& SWI "OS_RemoveCursors"
'
( MOV R0,#18
) SWI "OS_WriteC"
* MOV R0,#0
+ SWI "OS_WriteC"
, MOV R0,#3
- SWI "OS_WriteC"
.
/
0 .loop ADD R4,R4,R6
1 ADD R5,R5,R7
2
3 CMP R11,R4
4 CMPGT R4,#100
5 RSBLT R6,R6,#0
6
7 CMP R5,#250
8 RSBLT R7,R7,#0
9 SUBGE R7,R7,#3
:
; MOV R0,#112
< MOV R1,R8
= SWI "OS_Byte"
>
?
@
A SWI "OS_Mouse"
B! CMP R2,#0
C BEQ ball%
D MOV R2,R1
E MOV R1,R0
F MOV R0,#4
G SWI "OS_Plot"
H MOV R0,#&99
I MOV R1,#48
J MOV R2,#0
K SWI "OS_Plot"
L B skip%
M
N.ball% MOV R0,#4
O MOV R1,R4
P MOV R2,R5
Q SWI "OS_Plot"
R
S MOV R0,#&99
T MOV R1,#48
U MOV R2,#0
V SWI "OS_Plot"
W
X.skip% CMP R8,#1
Y �Q R0,R9
Z �Q R1,R10
[ CMP R8,#2
\ �Q R0,R10
] �Q R1,R9
^" MOV R2,R12
_
` BL plas
a
b MOV R0,#19
c SWI "OS_Byte"
d MOV R0,#113
e RSB R8,R8,#3
f MOV R1,R8
g SWI "OS_Byte"
h
i(.ski% SWI "OS_ReadEscapeState"
j BCS quit
k
l B loop
m
n .quit LDMFD R13!,{PC}^
o
p%.plas STMFD R13!,{R0-R12,R14}
q
r LDR R3,big%
s LDR R12,small%
t
u ADD R10,R1,R2
v ADD R11,R0,R2
w .loop ADD R8,R11,R3
x
:
y LDRB R4,[R8,#1]!
z LDRB R5,[R8,#-2]!
{ LDRB R6,[R8,R12]!
|! LDRB R7,[R8,#640]!
}
:
~ ADD R4,R4,R5
ADD R4,R4,R6
� ADD R4,R4,R7
� MOV R4,R4,LSR #2
�
� STRB R4,[R10,R3]
�
� SUBS R3,R3,#1
� BNE loop
�% LDMFD R13!,{R0-R12,PC}^
�.big% EQUD 32000
�.small% EQUD -319
�]
� � pass%
��
�:
�:
�:
�� �FindBaseAddress
�� input_list 8
�� output_list 4
�input_list!0 = 149
�input_list!4 = -1
�3ș "OS_ReadVduVariables",input_list,output_list
�=output_list!0
�
�
� 00000000 0d 00 01 08 eb 20 31 33 0d 00 02 1a c8 97 20 c8 |..... 13...... .|
00000010 93 20 34 38 2c 32 35 30 2c 31 31 38 34 2c 32 35 |. 48,250,1184,25|
00000020 35 20 0d 00 03 0c de 20 42 41 25 28 32 29 0d 00 |5 ..... BA%(2)..|
00000030 04 11 e3 20 6c 6f 6f 50 25 3d 31 20 b8 20 32 0d |... looP%=1 . 2.|
00000040 00 05 3f c8 99 20 36 2c 31 31 32 2c 6c 6f 6f 50 |..?.. 6,112,looP|
00000050 25 3a c8 99 20 36 2c 31 31 33 2c 6c 6f 6f 50 25 |%:.. 6,113,looP%|
00000060 3a db 3a 42 41 25 28 6c 6f 6f 50 25 29 3d a4 46 |:.:BA%(looP%)=.F|
00000070 69 6e 64 42 61 73 65 41 64 64 72 65 73 73 0d 00 |indBaseAddress..|
00000080 06 0b ed 20 6c 6f 6f 50 25 0d 00 07 0d f2 41 53 |... looP%.....AS|
00000090 53 45 4d 42 4c 45 0d 00 08 0b 4e 3d b3 28 2d 91 |SEMBLE....N=.(-.|
000000a0 29 0d 00 09 0d de 20 62 6c 6b 25 20 31 36 0d 00 |)..... blk% 16..|
000000b0 0a 11 62 6c 6b 25 21 30 3d 42 41 25 28 31 29 0d |..blk%!0=BA%(1).|
000000c0 00 0b 11 62 6c 6b 25 21 34 3d 42 41 25 28 32 29 |...blk%!4=BA%(2)|
000000d0 0d 00 0c 0f 62 6c 6b 25 21 38 3d 31 31 38 30 0d |....blk%!8=1180.|
000000e0 00 0d 15 62 6c 6b 25 21 31 32 3d 28 31 31 30 2a |...blk%!12=(110*|
000000f0 33 32 30 29 0d 00 0e 0e 21 76 61 64 72 3d 62 6c |320)....!vadr=bl|
00000100 6b 25 0d 00 0f 0a d6 20 6d 61 69 6e 0d 00 10 05 |k%..... main....|
00000110 e0 0d 00 11 05 3a 0d 00 12 05 3a 0d 00 13 05 3a |.....:....:....:|
00000120 0d 00 14 0f dd 20 f2 41 53 53 45 4d 42 4c 45 0d |..... .ASSEMBLE.|
00000130 00 15 10 de 20 63 6f 64 65 25 20 31 30 32 34 0d |.... code% 1024.|
00000140 00 16 15 e3 20 70 61 73 73 25 3d 30 20 b8 20 32 |.... pass%=0 . 2|
00000150 20 88 20 32 0d 00 17 0c 50 25 3d 63 6f 64 65 25 | . 2....P%=code%|
00000160 0d 00 18 0f 5b 20 4f 50 54 20 70 61 73 73 25 0d |....[ OPT pass%.|
00000170 00 19 15 2e 76 61 64 72 20 20 20 45 51 55 44 20 |....vadr EQUD |
00000180 20 20 20 30 0d 00 1a 1e 2e 6d 61 69 6e 20 20 20 | 0.....main |
00000190 53 54 4d 46 44 20 20 20 52 31 33 21 2c 7b 52 31 |STMFD R13!,{R1|
000001a0 34 7d 0d 00 1b 1b 20 20 20 20 20 20 20 20 4c 44 |4}.... LD|
000001b0 52 20 20 20 20 20 52 30 2c 76 61 64 72 0d 00 1c |R R0,vadr...|
000001c0 1e 20 20 20 20 20 20 20 20 4c 44 52 20 20 20 20 |. LDR |
000001d0 20 52 39 2c 5b 52 30 5d 2c 23 34 0d 00 1d 1f 20 | R9,[R0],#4.... |
000001e0 20 20 20 20 20 20 20 4c 44 52 20 20 20 20 20 52 | LDR R|
000001f0 31 30 2c 5b 52 30 5d 2c 23 34 0d 00 1e 1f 20 20 |10,[R0],#4.... |
00000200 20 20 20 20 20 20 4c 44 52 20 20 20 20 20 52 31 | LDR R1|
00000210 31 2c 5b 52 30 5d 2c 23 34 0d 00 1f 27 20 20 20 |1,[R0],#4...' |
00000220 20 20 20 20 20 4c 44 52 20 20 20 20 20 52 31 32 | LDR R12|
00000230 2c 5b 52 30 5d 2c 23 34 20 20 20 20 20 20 20 20 |,[R0],#4 |
00000240 0d 00 20 1b 20 20 20 20 20 20 20 20 4d 4f 56 20 |.. . MOV |
00000250 20 20 20 20 52 34 2c 23 36 34 30 0d 00 21 1b 20 | R4,#640..!. |
00000260 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 | MOV R|
00000270 35 2c 23 35 31 32 0d 00 22 1a 20 20 20 20 20 20 |5,#512..". |
00000280 20 20 4d 4f 56 20 20 20 20 20 52 36 2c 23 31 36 | MOV R6,#16|
00000290 0d 00 23 19 20 20 20 20 20 20 20 20 4d 4f 56 20 |..#. MOV |
000002a0 20 20 20 20 52 37 2c 23 30 0d 00 24 19 20 20 20 | R7,#0..$. |
000002b0 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 38 2c | MOV R8,|
000002c0 23 31 0d 00 25 04 0d 00 26 26 20 20 20 20 20 20 |#1..%...&& |
000002d0 20 20 53 57 49 20 20 20 20 20 22 4f 53 5f 52 65 | SWI "OS_Re|
000002e0 6d 6f 76 65 43 75 72 73 6f 72 73 22 0d 00 27 04 |moveCursors"..'.|
000002f0 0d 00 28 1a 20 20 20 20 20 20 20 20 4d 4f 56 20 |..(. MOV |
00000300 20 20 20 20 52 30 2c 23 31 38 0d 00 29 1f 20 20 | R0,#18..). |
00000310 20 20 20 20 20 20 53 57 49 20 20 20 20 20 22 4f | SWI "O|
00000320 53 5f 57 72 69 74 65 43 22 0d 00 2a 19 20 20 20 |S_WriteC"..*. |
00000330 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 30 2c | MOV R0,|
00000340 23 30 0d 00 2b 1f 20 20 20 20 20 20 20 20 53 57 |#0..+. SW|
00000350 49 20 20 20 20 20 22 4f 53 5f 57 72 69 74 65 43 |I "OS_WriteC|
00000360 22 0d 00 2c 1a 20 20 20 20 20 20 20 20 4d 4f 56 |"..,. MOV|
00000370 20 20 20 20 20 52 30 2c 23 33 20 0d 00 2d 1f 20 | R0,#3 ..-. |
00000380 20 20 20 20 20 20 20 53 57 49 20 20 20 20 20 22 | SWI "|
00000390 4f 53 5f 57 72 69 74 65 43 22 0d 00 2e 04 0d 00 |OS_WriteC"......|
000003a0 2f 04 0d 00 30 1c 2e 6c 6f 6f 70 20 20 20 41 44 |/...0..loop AD|
000003b0 44 20 20 20 20 20 52 34 2c 52 34 2c 52 36 0d 00 |D R4,R4,R6..|
000003c0 31 1c 20 20 20 20 20 20 20 20 41 44 44 20 20 20 |1. ADD |
000003d0 20 20 52 35 2c 52 35 2c 52 37 0d 00 32 04 0d 00 | R5,R5,R7..2...|
000003e0 33 1a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 |3. CMP |
000003f0 20 20 52 31 31 2c 52 34 0d 00 34 1b 20 20 20 20 | R11,R4..4. |
00000400 20 20 20 20 43 4d 50 47 54 20 20 20 52 34 2c 23 | CMPGT R4,#|
00000410 31 30 30 0d 00 35 1c 20 20 20 20 20 20 20 20 52 |100..5. R|
00000420 53 42 4c 54 20 20 20 52 36 2c 52 36 2c 23 30 0d |SBLT R6,R6,#0.|
00000430 00 36 04 0d 00 37 1b 20 20 20 20 20 20 20 20 43 |.6...7. C|
00000440 4d 50 20 20 20 20 20 52 35 2c 23 32 35 30 0d 00 |MP R5,#250..|
00000450 38 1c 20 20 20 20 20 20 20 20 52 53 42 4c 54 20 |8. RSBLT |
00000460 20 20 52 37 2c 52 37 2c 23 30 0d 00 39 1c 20 20 | R7,R7,#0..9. |
00000470 20 20 20 20 20 20 53 55 42 47 45 20 20 20 52 37 | SUBGE R7|
00000480 2c 52 37 2c 23 33 0d 00 3a 04 0d 00 3b 1b 20 20 |,R7,#3..:...;. |
00000490 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 30 | MOV R0|
000004a0 2c 23 31 31 32 0d 00 3c 19 20 20 20 20 20 20 20 |,#112..<. |
000004b0 20 4d 4f 56 20 20 20 20 20 52 31 2c 52 38 0d 00 | MOV R1,R8..|
000004c0 3d 1d 20 20 20 20 20 20 20 20 53 57 49 20 20 20 |=. SWI |
000004d0 20 20 22 4f 53 5f 42 79 74 65 22 0d 00 3e 1c 20 | "OS_Byte"..>. |
000004e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004f0 20 20 20 20 20 20 20 0d 00 3f 0c 20 20 20 20 20 | ..?. |
00000500 20 20 20 0d 00 40 04 0d 00 41 1e 20 20 20 20 20 | ..@...A. |
00000510 20 20 20 53 57 49 20 20 20 20 20 22 4f 53 5f 4d | SWI "OS_M|
00000520 6f 75 73 65 22 0d 00 42 21 20 20 20 20 20 20 20 |ouse"..B! |
00000530 20 43 4d 50 20 20 20 20 20 52 32 2c 23 30 20 20 | CMP R2,#0 |
00000540 20 20 20 20 20 20 0d 00 43 19 20 20 20 20 20 20 | ..C. |
00000550 20 20 42 45 51 20 20 20 20 20 62 61 6c 6c 25 0d | BEQ ball%.|
00000560 00 44 19 20 20 20 20 20 20 20 20 4d 4f 56 20 20 |.D. MOV |
00000570 20 20 20 52 32 2c 52 31 0d 00 45 19 20 20 20 20 | R2,R1..E. |
00000580 20 20 20 20 4d 4f 56 20 20 20 20 20 52 31 2c 52 | MOV R1,R|
00000590 30 0d 00 46 19 20 20 20 20 20 20 20 20 4d 4f 56 |0..F. MOV|
000005a0 20 20 20 20 20 52 30 2c 23 34 0d 00 47 1d 20 20 | R0,#4..G. |
000005b0 20 20 20 20 20 20 53 57 49 20 20 20 20 20 22 4f | SWI "O|
000005c0 53 5f 50 6c 6f 74 22 0d 00 48 1b 20 20 20 20 20 |S_Plot"..H. |
000005d0 20 20 20 4d 4f 56 20 20 20 20 20 52 30 2c 23 26 | MOV R0,#&|
000005e0 39 39 0d 00 49 1a 20 20 20 20 20 20 20 20 4d 4f |99..I. MO|
000005f0 56 20 20 20 20 20 52 31 2c 23 34 38 0d 00 4a 19 |V R1,#48..J.|
00000600 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 | MOV |
00000610 52 32 2c 23 30 0d 00 4b 1d 20 20 20 20 20 20 20 |R2,#0..K. |
00000620 20 53 57 49 20 20 20 20 20 22 4f 53 5f 50 6c 6f | SWI "OS_Plo|
00000630 74 22 0d 00 4c 19 20 20 20 20 20 20 20 20 42 20 |t"..L. B |
00000640 20 20 20 20 20 20 73 6b 69 70 25 0d 00 4d 04 0d | skip%..M..|
00000650 00 4e 19 2e 62 61 6c 6c 25 20 20 4d 4f 56 20 20 |.N..ball% MOV |
00000660 20 20 20 52 30 2c 23 34 0d 00 4f 19 20 20 20 20 | R0,#4..O. |
00000670 20 20 20 20 4d 4f 56 20 20 20 20 20 52 31 2c 52 | MOV R1,R|
00000680 34 0d 00 50 19 20 20 20 20 20 20 20 20 4d 4f 56 |4..P. MOV|
00000690 20 20 20 20 20 52 32 2c 52 35 0d 00 51 1d 20 20 | R2,R5..Q. |
000006a0 20 20 20 20 20 20 53 57 49 20 20 20 20 20 22 4f | SWI "O|
000006b0 53 5f 50 6c 6f 74 22 0d 00 52 04 0d 00 53 1b 20 |S_Plot"..R...S. |
000006c0 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 | MOV R|
000006d0 30 2c 23 26 39 39 0d 00 54 1a 20 20 20 20 20 20 |0,#&99..T. |
000006e0 20 20 4d 4f 56 20 20 20 20 20 52 31 2c 23 34 38 | MOV R1,#48|
000006f0 0d 00 55 19 20 20 20 20 20 20 20 20 4d 4f 56 20 |..U. MOV |
00000700 20 20 20 20 52 32 2c 23 30 0d 00 56 1d 20 20 20 | R2,#0..V. |
00000710 20 20 20 20 20 53 57 49 20 20 20 20 20 22 4f 53 | SWI "OS|
00000720 5f 50 6c 6f 74 22 0d 00 57 04 0d 00 58 19 2e 73 |_Plot"..W...X..s|
00000730 6b 69 70 25 20 20 43 4d 50 20 20 20 20 20 52 38 |kip% CMP R8|
00000740 2c 23 31 0d 00 59 16 20 20 20 20 20 20 20 20 ec |,#1..Y. .|
00000750 51 20 20 20 52 30 2c 52 39 0d 00 5a 17 20 20 20 |Q R0,R9..Z. |
00000760 20 20 20 20 20 ec 51 20 20 20 52 31 2c 52 31 30 | .Q R1,R10|
00000770 0d 00 5b 19 20 20 20 20 20 20 20 20 43 4d 50 20 |..[. CMP |
00000780 20 20 20 20 52 38 2c 23 32 0d 00 5c 17 20 20 20 | R8,#2..\. |
00000790 20 20 20 20 20 ec 51 20 20 20 52 30 2c 52 31 30 | .Q R0,R10|
000007a0 0d 00 5d 16 20 20 20 20 20 20 20 20 ec 51 20 20 |..]. .Q |
000007b0 20 52 31 2c 52 39 0d 00 5e 22 20 20 20 20 20 20 | R1,R9..^" |
000007c0 20 20 4d 4f 56 20 20 20 20 20 52 32 2c 52 31 32 | MOV R2,R12|
000007d0 20 20 20 20 20 20 20 20 0d 00 5f 0c 20 20 20 20 | .._. |
000007e0 20 20 20 20 0d 00 60 18 20 20 20 20 20 20 20 20 | ..`. |
000007f0 42 4c 20 20 20 20 20 20 70 6c 61 73 0d 00 61 04 |BL plas..a.|
00000800 0d 00 62 1a 20 20 20 20 20 20 20 20 4d 4f 56 20 |..b. MOV |
00000810 20 20 20 20 52 30 2c 23 31 39 0d 00 63 1d 20 20 | R0,#19..c. |
00000820 20 20 20 20 20 20 53 57 49 20 20 20 20 20 22 4f | SWI "O|
00000830 53 5f 42 79 74 65 22 0d 00 64 1b 20 20 20 20 20 |S_Byte"..d. |
00000840 20 20 20 4d 4f 56 20 20 20 20 20 52 30 2c 23 31 | MOV R0,#1|
00000850 31 33 0d 00 65 1c 20 20 20 20 20 20 20 20 52 53 |13..e. RS|
00000860 42 20 20 20 20 20 52 38 2c 52 38 2c 23 33 0d 00 |B R8,R8,#3..|
00000870 66 19 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 |f. MOV |
00000880 20 20 52 31 2c 52 38 0d 00 67 1d 20 20 20 20 20 | R1,R8..g. |
00000890 20 20 20 53 57 49 20 20 20 20 20 22 4f 53 5f 42 | SWI "OS_B|
000008a0 79 74 65 22 0d 00 68 04 0d 00 69 28 2e 73 6b 69 |yte"..h...i(.ski|
000008b0 25 20 20 20 53 57 49 20 20 20 20 20 22 4f 53 5f |% SWI "OS_|
000008c0 52 65 61 64 45 73 63 61 70 65 53 74 61 74 65 22 |ReadEscapeState"|
000008d0 0d 00 6a 18 20 20 20 20 20 20 20 20 42 43 53 20 |..j. BCS |
000008e0 20 20 20 20 71 75 69 74 0d 00 6b 04 0d 00 6c 18 | quit..k...l.|
000008f0 20 20 20 20 20 20 20 20 42 20 20 20 20 20 20 20 | B |
00000900 6c 6f 6f 70 0d 00 6d 0c 20 20 20 20 20 20 20 20 |loop..m. |
00000910 0d 00 6e 1e 2e 71 75 69 74 20 20 20 4c 44 4d 46 |..n..quit LDMF|
00000920 44 20 20 20 52 31 33 21 2c 7b 50 43 7d 5e 0d 00 |D R13!,{PC}^..|
00000930 6f 04 0d 00 70 25 2e 70 6c 61 73 20 20 20 53 54 |o...p%.plas ST|
00000940 4d 46 44 20 20 20 52 31 33 21 2c 7b 52 30 2d 52 |MFD R13!,{R0-R|
00000950 31 32 2c 52 31 34 7d 0d 00 71 04 0d 00 72 1b 20 |12,R14}..q...r. |
00000960 20 20 20 20 20 20 20 4c 44 52 20 20 20 20 20 52 | LDR R|
00000970 33 2c 62 69 67 25 0d 00 73 1e 20 20 20 20 20 20 |3,big%..s. |
00000980 20 20 4c 44 52 20 20 20 20 20 52 31 32 2c 73 6d | LDR R12,sm|
00000990 61 6c 6c 25 0d 00 74 04 0d 00 75 1d 20 20 20 20 |all%..t...u. |
000009a0 20 20 20 20 41 44 44 20 20 20 20 20 52 31 30 2c | ADD R10,|
000009b0 52 31 2c 52 32 0d 00 76 1d 20 20 20 20 20 20 20 |R1,R2..v. |
000009c0 20 41 44 44 20 20 20 20 20 52 31 31 2c 52 30 2c | ADD R11,R0,|
000009d0 52 32 0d 00 77 1d 2e 6c 6f 6f 70 20 20 20 41 44 |R2..w..loop AD|
000009e0 44 20 20 20 20 20 52 38 2c 52 31 31 2c 52 33 0d |D R8,R11,R3.|
000009f0 00 78 0d 20 20 20 20 20 20 20 20 3a 0d 00 79 1f |.x. :..y.|
00000a00 20 20 20 20 20 20 20 20 4c 44 52 42 20 20 20 20 | LDRB |
00000a10 52 34 2c 5b 52 38 2c 23 31 5d 21 0d 00 7a 20 20 |R4,[R8,#1]!..z |
00000a20 20 20 20 20 20 20 20 4c 44 52 42 20 20 20 20 52 | LDRB R|
00000a30 35 2c 5b 52 38 2c 23 2d 32 5d 21 0d 00 7b 20 20 |5,[R8,#-2]!..{ |
00000a40 20 20 20 20 20 20 20 4c 44 52 42 20 20 20 20 52 | LDRB R|
00000a50 36 2c 5b 52 38 2c 52 31 32 5d 21 0d 00 7c 21 20 |6,[R8,R12]!..|! |
00000a60 20 20 20 20 20 20 20 4c 44 52 42 20 20 20 20 52 | LDRB R|
00000a70 37 2c 5b 52 38 2c 23 36 34 30 5d 21 0d 00 7d 0d |7,[R8,#640]!..}.|
00000a80 20 20 20 20 20 20 20 20 3a 0d 00 7e 1c 20 20 20 | :..~. |
00000a90 20 20 20 20 20 41 44 44 20 20 20 20 20 52 34 2c | ADD R4,|
00000aa0 52 34 2c 52 35 0d 00 7f 1c 20 20 20 20 20 20 20 |R4,R5.... |
00000ab0 20 41 44 44 20 20 20 20 20 52 34 2c 52 34 2c 52 | ADD R4,R4,R|
00000ac0 36 0d 00 80 1c 20 20 20 20 20 20 20 20 41 44 44 |6.... ADD|
00000ad0 20 20 20 20 20 52 34 2c 52 34 2c 52 37 0d 00 81 | R4,R4,R7...|
00000ae0 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 | MOV |
00000af0 20 52 34 2c 52 34 2c 4c 53 52 20 23 32 0d 00 82 | R4,R4,LSR #2...|
00000b00 04 0d 00 83 1f 20 20 20 20 20 20 20 20 53 54 52 |..... STR|
00000b10 42 20 20 20 20 52 34 2c 5b 52 31 30 2c 52 33 5d |B R4,[R10,R3]|
00000b20 0d 00 84 04 0d 00 85 1c 20 20 20 20 20 20 20 20 |........ |
00000b30 53 55 42 53 20 20 20 20 52 33 2c 52 33 2c 23 31 |SUBS R3,R3,#1|
00000b40 0d 00 86 18 20 20 20 20 20 20 20 20 42 4e 45 20 |.... BNE |
00000b50 20 20 20 20 6c 6f 6f 70 0d 00 87 25 20 20 20 20 | loop...% |
00000b60 20 20 20 20 4c 44 4d 46 44 20 20 20 52 31 33 21 | LDMFD R13!|
00000b70 2c 7b 52 30 2d 52 31 32 2c 50 43 7d 5e 0d 00 88 |,{R0-R12,PC}^...|
00000b80 19 2e 62 69 67 25 20 20 20 45 51 55 44 20 20 20 |..big% EQUD |
00000b90 20 33 32 30 30 30 0d 00 89 18 2e 73 6d 61 6c 6c | 32000.....small|
00000ba0 25 20 45 51 55 44 20 20 20 20 2d 33 31 39 0d 00 |% EQUD -319..|
00000bb0 8a 05 5d 0d 00 8b 0b ed 20 70 61 73 73 25 0d 00 |..]..... pass%..|
00000bc0 8c 05 e1 0d 00 8d 05 3a 0d 00 8e 05 3a 0d 00 8f |.......:....:...|
00000bd0 05 3a 0d 00 90 16 dd 20 a4 46 69 6e 64 42 61 73 |.:..... .FindBas|
00000be0 65 41 64 64 72 65 73 73 0d 00 91 13 de 20 69 6e |eAddress..... in|
00000bf0 70 75 74 5f 6c 69 73 74 20 20 38 0d 00 92 13 de |put_list 8.....|
00000c00 20 6f 75 74 70 75 74 5f 6c 69 73 74 20 34 0d 00 | output_list 4..|
00000c10 93 16 69 6e 70 75 74 5f 6c 69 73 74 21 30 20 3d |..input_list!0 =|
00000c20 20 31 34 39 0d 00 94 16 69 6e 70 75 74 5f 6c 69 | 149....input_li|
00000c30 73 74 21 34 20 3d 20 20 2d 31 0d 00 95 33 c8 99 |st!4 = -1...3..|
00000c40 20 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 69 | "OS_ReadVduVari|
00000c50 61 62 6c 65 73 22 2c 69 6e 70 75 74 5f 6c 69 73 |ables",input_lis|
00000c60 74 2c 6f 75 74 70 75 74 5f 6c 69 73 74 0d 00 96 |t,output_list...|
00000c70 12 3d 6f 75 74 70 75 74 5f 6c 69 73 74 21 30 0d |.=output_list!0.|
00000c80 00 97 04 0d 00 98 04 0d ff |.........|
00000c89 
.