Home » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars » StarInfo/Adcock/PlasBall12
StarInfo/Adcock/PlasBall12
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/PlasBall12 |
| Read OK: | ✔ |
| File size: | 0D76 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1MODE 12
2reseed=RND(-TIME)
3MOUSE RECTANGLE 48,250,1184,255
4R=RND(170)/10:G=RND(170)/10:B=RND(170)/10:FOR C = 0 TO 15:COLOUR C,C*R,C*G,C*B:NEXT C
5DIM BA%(2)
6FOR looP%=1 TO 2
7SYS 6,112,looP%:SYS 6,113,looP%:CLS:BA%(looP%)=FNFindBaseAddress
8NEXT looP%
9PROCASSEMBLE
10N=RND(-TIME)
11DIM blk% 16
12blk%!0=BA%(1)
13blk%!4=BA%(2)
14blk%!8=1180
15blk%!12=(110*320)
16!vadr=blk%
17CALL main
18END
19:
20:
21:
22DEF PROCASSEMBLE
23DIM code% 1024
24FOR pass%=0 TO 2 STEP 2
25P%=code%
26[ OPT pass%
27.vadr EQUD 0
28.main STMFD R13!,{R14}
29 LDR R0,vadr
30 LDR R9,[R0],#4
31 LDR R10,[R0],#4
32 LDR R11,[R0],#4
33 LDR R12,[R0],#4
34 MOV R4,#640
35 MOV R5,#512
36 MOV R6,#16
37 MOV R7,#0
38 MOV R8,#1
39
40 SWI "OS_RemoveCursors"
41
42 MOV R0,#18
43 SWI "OS_WriteC"
44 MOV R0,#0
45 SWI "OS_WriteC"
46 MOV R0,#15
47 SWI "OS_WriteC"
48
49
50.loop ADD R4,R4,R6
51 ADD R5,R5,R7
52
53 CMP R11,R4
54 CMPGT R4,#100
55 RSBLT R6,R6,#0
56
57 CMP R5,#250
58 RSBLT R7,R7,#0
59 SUBGE R7,R7,#3
60
61 MOV R0,#112
62 MOV R1,R8
63 SWI "OS_Byte"
64
65
66
67 SWI "OS_Mouse"
68 CMP R2,#0
69 BEQ ball%
70 MOV R2,R1
71 MOV R1,R0
72 MOV R0,#4
73 SWI "OS_Plot"
74 MOV R0,#&99
75 MOV R1,#48
76 MOV R2,#0
77 SWI "OS_Plot"
78 B skip%
79
80.ball% MOV R0,#4
81 MOV R1,R4
82 MOV R2,R5
83 SWI "OS_Plot"
84
85 MOV R0,#&99
86 MOV R1,#48
87 MOV R2,#0
88 SWI "OS_Plot"
89
90.skip% CMP R8,#1
91 MOVEQ R0,R9
92 MOVEQ R1,R10
93 CMP R8,#2
94 MOVEQ R0,R10
95 MOVEQ R1,R9
96 MOV R2,R12
97
98 BL plas
99
100 MOV R0,#19
101 SWI "OS_Byte"
102 MOV R0,#113
103 RSB R8,R8,#3
104 MOV R1,R8
105 SWI "OS_Byte"
106
107.ski% SWI "OS_ReadEscapeState"
108 BCS quit
109
110 B loop
111
112.quit LDMFD R13!,{PC}^
113
114.plas STMFD R13!,{R0-R12,R14}
115
116 LDR R3,big%
117 LDR R12,small%
118
119 ADD R10,R1,R2
120 ADD R11,R0,R2
121.loop ADD R8,R11,R3
122 :
123 LDRB R4,[R8,#1]!
124 LDRB R5,[R8,#-2]!
125 LDRB R6,[R8,R12]!
126 LDRB R7,[R8,#640]!
127 AND R4,R4,#%1111
128 AND R5,R5,#%1111
129 AND R6,R6,#%1111
130 AND R7,R7,#%1111
131 :
132 ADD R4,R4,R5
133 ADD R4,R4,R6
134 ADD R4,R4,R7
135 MOV R4,R4,LSR #2
136 ORR R4,R4,R4,LSL#4
137 STRB R4,[R10,R3]
138
139 SUBS R3,R3,#1
140 BNE loop
141 LDMFD R13!,{R0-R12,PC}^
142.big% EQUD 32000
143.small% EQUD -319
144]
145NEXT pass%
146ENDPROC
147:
148:
149:
150DEF FNFindBaseAddress
151DIM input_list 8
152DIM output_list 4
153input_list!0 = 149
154input_list!4 = -1
155SYS "OS_ReadVduVariables",input_list,output_list
156=output_list!0
157
158
� 12
reseed=�(-�)
ȗ ȓ 48,250,1184,255
HR=�(170)/10:G=�(170)/10:B=�(170)/10:� C = 0 � 15:� C,C*R,C*G,C*B:� C
� 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,#15
/ SWI "OS_WriteC"
0
1
2 .loop ADD R4,R4,R6
3 ADD R5,R5,R7
4
5 CMP R11,R4
6 CMPGT R4,#100
7 RSBLT R6,R6,#0
8
9 CMP R5,#250
: RSBLT R7,R7,#0
; SUBGE R7,R7,#3
<
= MOV R0,#112
> MOV R1,R8
? SWI "OS_Byte"
@
A
B
C SWI "OS_Mouse"
D! CMP R2,#0
E BEQ ball%
F MOV R2,R1
G MOV R1,R0
H MOV R0,#4
I SWI "OS_Plot"
J MOV R0,#&99
K MOV R1,#48
L MOV R2,#0
M SWI "OS_Plot"
N B skip%
O
P.ball% MOV R0,#4
Q MOV R1,R4
R MOV R2,R5
S SWI "OS_Plot"
T
U MOV R0,#&99
V MOV R1,#48
W MOV R2,#0
X SWI "OS_Plot"
Y
Z.skip% CMP R8,#1
[ �Q R0,R9
\ �Q R1,R10
] CMP R8,#2
^ �Q R0,R10
_ �Q R1,R9
`" MOV R2,R12
a
b BL plas
c
d MOV R0,#19
e SWI "OS_Byte"
f MOV R0,#113
g RSB R8,R8,#3
h MOV R1,R8
i SWI "OS_Byte"
j
k(.ski% SWI "OS_ReadEscapeState"
l BCS quit
m
n B loop
o
p .quit LDMFD R13!,{PC}^
q
r%.plas STMFD R13!,{R0-R12,R14}
s
t LDR R3,big%
u LDR R12,small%
v
w ADD R10,R1,R2
x ADD R11,R0,R2
y .loop ADD R8,R11,R3
z
:
{ LDRB R4,[R8,#1]!
| LDRB R5,[R8,#-2]!
} LDRB R6,[R8,R12]!
~! LDRB R7,[R8,#640]!
� R4,R4,#%1111
� � R5,R5,#%1111
� � R6,R6,#%1111
� � R7,R7,#%1111
�
:
� ADD R4,R4,R5
� ADD R4,R4,R6
� ADD R4,R4,R7
� MOV R4,R4,LSR #2
�! �R R4,R4,R4,LSL#4
� 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 32 0d 00 02 10 72 65 73 65 |..... 12....rese|
00000010 65 64 3d b3 28 2d 91 29 0d 00 03 19 c8 97 20 c8 |ed=.(-.)...... .|
00000020 93 20 34 38 2c 32 35 30 2c 31 31 38 34 2c 32 35 |. 48,250,1184,25|
00000030 35 0d 00 04 48 52 3d b3 28 31 37 30 29 2f 31 30 |5...HR=.(170)/10|
00000040 3a 47 3d b3 28 31 37 30 29 2f 31 30 3a 42 3d b3 |:G=.(170)/10:B=.|
00000050 28 31 37 30 29 2f 31 30 3a e3 20 43 20 3d 20 30 |(170)/10:. C = 0|
00000060 20 b8 20 31 35 3a fb 20 43 2c 43 2a 52 2c 43 2a | . 15:. C,C*R,C*|
00000070 47 2c 43 2a 42 3a ed 20 43 0d 00 05 0c de 20 42 |G,C*B:. C..... B|
00000080 41 25 28 32 29 0d 00 06 11 e3 20 6c 6f 6f 50 25 |A%(2)..... looP%|
00000090 3d 31 20 b8 20 32 0d 00 07 3f c8 99 20 36 2c 31 |=1 . 2...?.. 6,1|
000000a0 31 32 2c 6c 6f 6f 50 25 3a c8 99 20 36 2c 31 31 |12,looP%:.. 6,11|
000000b0 33 2c 6c 6f 6f 50 25 3a db 3a 42 41 25 28 6c 6f |3,looP%:.:BA%(lo|
000000c0 6f 50 25 29 3d a4 46 69 6e 64 42 61 73 65 41 64 |oP%)=.FindBaseAd|
000000d0 64 72 65 73 73 0d 00 08 0b ed 20 6c 6f 6f 50 25 |dress..... looP%|
000000e0 0d 00 09 0d f2 41 53 53 45 4d 42 4c 45 0d 00 0a |.....ASSEMBLE...|
000000f0 0b 4e 3d b3 28 2d 91 29 0d 00 0b 0d de 20 62 6c |.N=.(-.)..... bl|
00000100 6b 25 20 31 36 0d 00 0c 11 62 6c 6b 25 21 30 3d |k% 16....blk%!0=|
00000110 42 41 25 28 31 29 0d 00 0d 11 62 6c 6b 25 21 34 |BA%(1)....blk%!4|
00000120 3d 42 41 25 28 32 29 0d 00 0e 0f 62 6c 6b 25 21 |=BA%(2)....blk%!|
00000130 38 3d 31 31 38 30 0d 00 0f 15 62 6c 6b 25 21 31 |8=1180....blk%!1|
00000140 32 3d 28 31 31 30 2a 33 32 30 29 0d 00 10 0e 21 |2=(110*320)....!|
00000150 76 61 64 72 3d 62 6c 6b 25 0d 00 11 0a d6 20 6d |vadr=blk%..... m|
00000160 61 69 6e 0d 00 12 05 e0 0d 00 13 05 3a 0d 00 14 |ain.........:...|
00000170 05 3a 0d 00 15 05 3a 0d 00 16 0f dd 20 f2 41 53 |.:....:..... .AS|
00000180 53 45 4d 42 4c 45 0d 00 17 10 de 20 63 6f 64 65 |SEMBLE..... code|
00000190 25 20 31 30 32 34 0d 00 18 15 e3 20 70 61 73 73 |% 1024..... pass|
000001a0 25 3d 30 20 b8 20 32 20 88 20 32 0d 00 19 0c 50 |%=0 . 2 . 2....P|
000001b0 25 3d 63 6f 64 65 25 0d 00 1a 0f 5b 20 4f 50 54 |%=code%....[ OPT|
000001c0 20 70 61 73 73 25 0d 00 1b 15 2e 76 61 64 72 20 | pass%.....vadr |
000001d0 20 20 45 51 55 44 20 20 20 20 30 0d 00 1c 1e 2e | EQUD 0.....|
000001e0 6d 61 69 6e 20 20 20 53 54 4d 46 44 20 20 20 52 |main STMFD R|
000001f0 31 33 21 2c 7b 52 31 34 7d 0d 00 1d 1b 20 20 20 |13!,{R14}.... |
00000200 20 20 20 20 20 4c 44 52 20 20 20 20 20 52 30 2c | LDR R0,|
00000210 76 61 64 72 0d 00 1e 1e 20 20 20 20 20 20 20 20 |vadr.... |
00000220 4c 44 52 20 20 20 20 20 52 39 2c 5b 52 30 5d 2c |LDR R9,[R0],|
00000230 23 34 0d 00 1f 1f 20 20 20 20 20 20 20 20 4c 44 |#4.... LD|
00000240 52 20 20 20 20 20 52 31 30 2c 5b 52 30 5d 2c 23 |R R10,[R0],#|
00000250 34 0d 00 20 1f 20 20 20 20 20 20 20 20 4c 44 52 |4.. . LDR|
00000260 20 20 20 20 20 52 31 31 2c 5b 52 30 5d 2c 23 34 | R11,[R0],#4|
00000270 0d 00 21 27 20 20 20 20 20 20 20 20 4c 44 52 20 |..!' LDR |
00000280 20 20 20 20 52 31 32 2c 5b 52 30 5d 2c 23 34 20 | R12,[R0],#4 |
00000290 20 20 20 20 20 20 20 0d 00 22 1b 20 20 20 20 20 | ..". |
000002a0 20 20 20 4d 4f 56 20 20 20 20 20 52 34 2c 23 36 | MOV R4,#6|
000002b0 34 30 0d 00 23 1b 20 20 20 20 20 20 20 20 4d 4f |40..#. MO|
000002c0 56 20 20 20 20 20 52 35 2c 23 35 31 32 0d 00 24 |V R5,#512..$|
000002d0 1a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 |. MOV |
000002e0 20 52 36 2c 23 31 36 0d 00 25 19 20 20 20 20 20 | R6,#16..%. |
000002f0 20 20 20 4d 4f 56 20 20 20 20 20 52 37 2c 23 30 | MOV R7,#0|
00000300 0d 00 26 19 20 20 20 20 20 20 20 20 4d 4f 56 20 |..&. MOV |
00000310 20 20 20 20 52 38 2c 23 31 0d 00 27 04 0d 00 28 | R8,#1..'...(|
00000320 26 20 20 20 20 20 20 20 20 53 57 49 20 20 20 20 |& SWI |
00000330 20 22 4f 53 5f 52 65 6d 6f 76 65 43 75 72 73 6f | "OS_RemoveCurso|
00000340 72 73 22 0d 00 29 04 0d 00 2a 1a 20 20 20 20 20 |rs"..)...*. |
00000350 20 20 20 4d 4f 56 20 20 20 20 20 52 30 2c 23 31 | MOV R0,#1|
00000360 38 0d 00 2b 1f 20 20 20 20 20 20 20 20 53 57 49 |8..+. SWI|
00000370 20 20 20 20 20 22 4f 53 5f 57 72 69 74 65 43 22 | "OS_WriteC"|
00000380 0d 00 2c 19 20 20 20 20 20 20 20 20 4d 4f 56 20 |..,. MOV |
00000390 20 20 20 20 52 30 2c 23 30 0d 00 2d 1f 20 20 20 | R0,#0..-. |
000003a0 20 20 20 20 20 53 57 49 20 20 20 20 20 22 4f 53 | SWI "OS|
000003b0 5f 57 72 69 74 65 43 22 0d 00 2e 1b 20 20 20 20 |_WriteC".... |
000003c0 20 20 20 20 4d 4f 56 20 20 20 20 20 52 30 2c 23 | MOV R0,#|
000003d0 31 35 20 0d 00 2f 1f 20 20 20 20 20 20 20 20 53 |15 ../. S|
000003e0 57 49 20 20 20 20 20 22 4f 53 5f 57 72 69 74 65 |WI "OS_Write|
000003f0 43 22 0d 00 30 04 0d 00 31 04 0d 00 32 1c 2e 6c |C"..0...1...2..l|
00000400 6f 6f 70 20 20 20 41 44 44 20 20 20 20 20 52 34 |oop ADD R4|
00000410 2c 52 34 2c 52 36 0d 00 33 1c 20 20 20 20 20 20 |,R4,R6..3. |
00000420 20 20 41 44 44 20 20 20 20 20 52 35 2c 52 35 2c | ADD R5,R5,|
00000430 52 37 0d 00 34 04 0d 00 35 1a 20 20 20 20 20 20 |R7..4...5. |
00000440 20 20 43 4d 50 20 20 20 20 20 52 31 31 2c 52 34 | CMP R11,R4|
00000450 0d 00 36 1b 20 20 20 20 20 20 20 20 43 4d 50 47 |..6. CMPG|
00000460 54 20 20 20 52 34 2c 23 31 30 30 0d 00 37 1c 20 |T R4,#100..7. |
00000470 20 20 20 20 20 20 20 52 53 42 4c 54 20 20 20 52 | RSBLT R|
00000480 36 2c 52 36 2c 23 30 0d 00 38 04 0d 00 39 1b 20 |6,R6,#0..8...9. |
00000490 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 52 | CMP R|
000004a0 35 2c 23 32 35 30 0d 00 3a 1c 20 20 20 20 20 20 |5,#250..:. |
000004b0 20 20 52 53 42 4c 54 20 20 20 52 37 2c 52 37 2c | RSBLT R7,R7,|
000004c0 23 30 0d 00 3b 1c 20 20 20 20 20 20 20 20 53 55 |#0..;. SU|
000004d0 42 47 45 20 20 20 52 37 2c 52 37 2c 23 33 0d 00 |BGE R7,R7,#3..|
000004e0 3c 04 0d 00 3d 1b 20 20 20 20 20 20 20 20 4d 4f |<...=. MO|
000004f0 56 20 20 20 20 20 52 30 2c 23 31 31 32 0d 00 3e |V R0,#112..>|
00000500 19 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 |. MOV |
00000510 20 52 31 2c 52 38 0d 00 3f 1d 20 20 20 20 20 20 | R1,R8..?. |
00000520 20 20 53 57 49 20 20 20 20 20 22 4f 53 5f 42 79 | SWI "OS_By|
00000530 74 65 22 0d 00 40 1c 20 20 20 20 20 20 20 20 20 |te"..@. |
00000540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d | .|
00000550 00 41 0c 20 20 20 20 20 20 20 20 0d 00 42 04 0d |.A. ..B..|
00000560 00 43 1e 20 20 20 20 20 20 20 20 53 57 49 20 20 |.C. SWI |
00000570 20 20 20 22 4f 53 5f 4d 6f 75 73 65 22 0d 00 44 | "OS_Mouse"..D|
00000580 21 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 |! CMP |
00000590 20 52 32 2c 23 30 20 20 20 20 20 20 20 20 0d 00 | R2,#0 ..|
000005a0 45 19 20 20 20 20 20 20 20 20 42 45 51 20 20 20 |E. BEQ |
000005b0 20 20 62 61 6c 6c 25 0d 00 46 19 20 20 20 20 20 | ball%..F. |
000005c0 20 20 20 4d 4f 56 20 20 20 20 20 52 32 2c 52 31 | MOV R2,R1|
000005d0 0d 00 47 19 20 20 20 20 20 20 20 20 4d 4f 56 20 |..G. MOV |
000005e0 20 20 20 20 52 31 2c 52 30 0d 00 48 19 20 20 20 | R1,R0..H. |
000005f0 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 30 2c | MOV R0,|
00000600 23 34 0d 00 49 1d 20 20 20 20 20 20 20 20 53 57 |#4..I. SW|
00000610 49 20 20 20 20 20 22 4f 53 5f 50 6c 6f 74 22 0d |I "OS_Plot".|
00000620 00 4a 1b 20 20 20 20 20 20 20 20 4d 4f 56 20 20 |.J. MOV |
00000630 20 20 20 52 30 2c 23 26 39 39 0d 00 4b 1a 20 20 | R0,#&99..K. |
00000640 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 31 | MOV R1|
00000650 2c 23 34 38 0d 00 4c 19 20 20 20 20 20 20 20 20 |,#48..L. |
00000660 4d 4f 56 20 20 20 20 20 52 32 2c 23 30 0d 00 4d |MOV R2,#0..M|
00000670 1d 20 20 20 20 20 20 20 20 53 57 49 20 20 20 20 |. SWI |
00000680 20 22 4f 53 5f 50 6c 6f 74 22 0d 00 4e 19 20 20 | "OS_Plot"..N. |
00000690 20 20 20 20 20 20 42 20 20 20 20 20 20 20 73 6b | B sk|
000006a0 69 70 25 0d 00 4f 04 0d 00 50 19 2e 62 61 6c 6c |ip%..O...P..ball|
000006b0 25 20 20 4d 4f 56 20 20 20 20 20 52 30 2c 23 34 |% MOV R0,#4|
000006c0 0d 00 51 19 20 20 20 20 20 20 20 20 4d 4f 56 20 |..Q. MOV |
000006d0 20 20 20 20 52 31 2c 52 34 0d 00 52 19 20 20 20 | R1,R4..R. |
000006e0 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 32 2c | MOV R2,|
000006f0 52 35 0d 00 53 1d 20 20 20 20 20 20 20 20 53 57 |R5..S. SW|
00000700 49 20 20 20 20 20 22 4f 53 5f 50 6c 6f 74 22 0d |I "OS_Plot".|
00000710 00 54 04 0d 00 55 1b 20 20 20 20 20 20 20 20 4d |.T...U. M|
00000720 4f 56 20 20 20 20 20 52 30 2c 23 26 39 39 0d 00 |OV R0,#&99..|
00000730 56 1a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 |V. MOV |
00000740 20 20 52 31 2c 23 34 38 0d 00 57 19 20 20 20 20 | R1,#48..W. |
00000750 20 20 20 20 4d 4f 56 20 20 20 20 20 52 32 2c 23 | MOV R2,#|
00000760 30 0d 00 58 1d 20 20 20 20 20 20 20 20 53 57 49 |0..X. SWI|
00000770 20 20 20 20 20 22 4f 53 5f 50 6c 6f 74 22 0d 00 | "OS_Plot"..|
00000780 59 04 0d 00 5a 19 2e 73 6b 69 70 25 20 20 43 4d |Y...Z..skip% CM|
00000790 50 20 20 20 20 20 52 38 2c 23 31 0d 00 5b 16 20 |P R8,#1..[. |
000007a0 20 20 20 20 20 20 20 ec 51 20 20 20 52 30 2c 52 | .Q R0,R|
000007b0 39 0d 00 5c 17 20 20 20 20 20 20 20 20 ec 51 20 |9..\. .Q |
000007c0 20 20 52 31 2c 52 31 30 0d 00 5d 19 20 20 20 20 | R1,R10..]. |
000007d0 20 20 20 20 43 4d 50 20 20 20 20 20 52 38 2c 23 | CMP R8,#|
000007e0 32 0d 00 5e 17 20 20 20 20 20 20 20 20 ec 51 20 |2..^. .Q |
000007f0 20 20 52 30 2c 52 31 30 0d 00 5f 16 20 20 20 20 | R0,R10.._. |
00000800 20 20 20 20 ec 51 20 20 20 52 31 2c 52 39 0d 00 | .Q R1,R9..|
00000810 60 22 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 |`" MOV |
00000820 20 20 52 32 2c 52 31 32 20 20 20 20 20 20 20 20 | R2,R12 |
00000830 0d 00 61 0c 20 20 20 20 20 20 20 20 0d 00 62 18 |..a. ..b.|
00000840 20 20 20 20 20 20 20 20 42 4c 20 20 20 20 20 20 | BL |
00000850 70 6c 61 73 0d 00 63 04 0d 00 64 1a 20 20 20 20 |plas..c...d. |
00000860 20 20 20 20 4d 4f 56 20 20 20 20 20 52 30 2c 23 | MOV R0,#|
00000870 31 39 0d 00 65 1d 20 20 20 20 20 20 20 20 53 57 |19..e. SW|
00000880 49 20 20 20 20 20 22 4f 53 5f 42 79 74 65 22 0d |I "OS_Byte".|
00000890 00 66 1b 20 20 20 20 20 20 20 20 4d 4f 56 20 20 |.f. MOV |
000008a0 20 20 20 52 30 2c 23 31 31 33 0d 00 67 1c 20 20 | R0,#113..g. |
000008b0 20 20 20 20 20 20 52 53 42 20 20 20 20 20 52 38 | RSB R8|
000008c0 2c 52 38 2c 23 33 0d 00 68 19 20 20 20 20 20 20 |,R8,#3..h. |
000008d0 20 20 4d 4f 56 20 20 20 20 20 52 31 2c 52 38 0d | MOV R1,R8.|
000008e0 00 69 1d 20 20 20 20 20 20 20 20 53 57 49 20 20 |.i. SWI |
000008f0 20 20 20 22 4f 53 5f 42 79 74 65 22 0d 00 6a 04 | "OS_Byte"..j.|
00000900 0d 00 6b 28 2e 73 6b 69 25 20 20 20 53 57 49 20 |..k(.ski% SWI |
00000910 20 20 20 20 22 4f 53 5f 52 65 61 64 45 73 63 61 | "OS_ReadEsca|
00000920 70 65 53 74 61 74 65 22 0d 00 6c 18 20 20 20 20 |peState"..l. |
00000930 20 20 20 20 42 43 53 20 20 20 20 20 71 75 69 74 | BCS quit|
00000940 0d 00 6d 04 0d 00 6e 18 20 20 20 20 20 20 20 20 |..m...n. |
00000950 42 20 20 20 20 20 20 20 6c 6f 6f 70 0d 00 6f 0c |B loop..o.|
00000960 20 20 20 20 20 20 20 20 0d 00 70 1e 2e 71 75 69 | ..p..qui|
00000970 74 20 20 20 4c 44 4d 46 44 20 20 20 52 31 33 21 |t LDMFD R13!|
00000980 2c 7b 50 43 7d 5e 0d 00 71 04 0d 00 72 25 2e 70 |,{PC}^..q...r%.p|
00000990 6c 61 73 20 20 20 53 54 4d 46 44 20 20 20 52 31 |las STMFD R1|
000009a0 33 21 2c 7b 52 30 2d 52 31 32 2c 52 31 34 7d 0d |3!,{R0-R12,R14}.|
000009b0 00 73 04 0d 00 74 1b 20 20 20 20 20 20 20 20 4c |.s...t. L|
000009c0 44 52 20 20 20 20 20 52 33 2c 62 69 67 25 0d 00 |DR R3,big%..|
000009d0 75 1e 20 20 20 20 20 20 20 20 4c 44 52 20 20 20 |u. LDR |
000009e0 20 20 52 31 32 2c 73 6d 61 6c 6c 25 0d 00 76 04 | R12,small%..v.|
000009f0 0d 00 77 1d 20 20 20 20 20 20 20 20 41 44 44 20 |..w. ADD |
00000a00 20 20 20 20 52 31 30 2c 52 31 2c 52 32 0d 00 78 | R10,R1,R2..x|
00000a10 1d 20 20 20 20 20 20 20 20 41 44 44 20 20 20 20 |. ADD |
00000a20 20 52 31 31 2c 52 30 2c 52 32 0d 00 79 1d 2e 6c | R11,R0,R2..y..l|
00000a30 6f 6f 70 20 20 20 41 44 44 20 20 20 20 20 52 38 |oop ADD R8|
00000a40 2c 52 31 31 2c 52 33 0d 00 7a 0d 20 20 20 20 20 |,R11,R3..z. |
00000a50 20 20 20 3a 0d 00 7b 1f 20 20 20 20 20 20 20 20 | :..{. |
00000a60 4c 44 52 42 20 20 20 20 52 34 2c 5b 52 38 2c 23 |LDRB R4,[R8,#|
00000a70 31 5d 21 0d 00 7c 20 20 20 20 20 20 20 20 20 4c |1]!..| L|
00000a80 44 52 42 20 20 20 20 52 35 2c 5b 52 38 2c 23 2d |DRB R5,[R8,#-|
00000a90 32 5d 21 0d 00 7d 20 20 20 20 20 20 20 20 20 4c |2]!..} L|
00000aa0 44 52 42 20 20 20 20 52 36 2c 5b 52 38 2c 52 31 |DRB R6,[R8,R1|
00000ab0 32 5d 21 0d 00 7e 21 20 20 20 20 20 20 20 20 4c |2]!..~! L|
00000ac0 44 52 42 20 20 20 20 52 37 2c 5b 52 38 2c 23 36 |DRB R7,[R8,#6|
00000ad0 34 30 5d 21 0d 00 7f 1e 20 20 20 20 20 20 20 20 |40]!.... |
00000ae0 80 20 20 20 20 20 52 34 2c 52 34 2c 23 25 31 31 |. R4,R4,#%11|
00000af0 31 31 0d 00 80 1e 20 20 20 20 20 20 20 20 80 20 |11.... . |
00000b00 20 20 20 20 52 35 2c 52 35 2c 23 25 31 31 31 31 | R5,R5,#%1111|
00000b10 0d 00 81 1e 20 20 20 20 20 20 20 20 80 20 20 20 |.... . |
00000b20 20 20 52 36 2c 52 36 2c 23 25 31 31 31 31 0d 00 | R6,R6,#%1111..|
00000b30 82 1e 20 20 20 20 20 20 20 20 80 20 20 20 20 20 |.. . |
00000b40 52 37 2c 52 37 2c 23 25 31 31 31 31 0d 00 83 0d |R7,R7,#%1111....|
00000b50 20 20 20 20 20 20 20 20 3a 0d 00 84 1c 20 20 20 | :.... |
00000b60 20 20 20 20 20 41 44 44 20 20 20 20 20 52 34 2c | ADD R4,|
00000b70 52 34 2c 52 35 0d 00 85 1c 20 20 20 20 20 20 20 |R4,R5.... |
00000b80 20 41 44 44 20 20 20 20 20 52 34 2c 52 34 2c 52 | ADD R4,R4,R|
00000b90 36 0d 00 86 1c 20 20 20 20 20 20 20 20 41 44 44 |6.... ADD|
00000ba0 20 20 20 20 20 52 34 2c 52 34 2c 52 37 0d 00 87 | R4,R4,R7...|
00000bb0 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 | MOV |
00000bc0 20 52 34 2c 52 34 2c 4c 53 52 20 23 32 0d 00 88 | R4,R4,LSR #2...|
00000bd0 21 20 20 20 20 20 20 20 20 84 52 20 20 20 20 20 |! .R |
00000be0 52 34 2c 52 34 2c 52 34 2c 4c 53 4c 23 34 0d 00 |R4,R4,R4,LSL#4..|
00000bf0 89 1f 20 20 20 20 20 20 20 20 53 54 52 42 20 20 |.. STRB |
00000c00 20 20 52 34 2c 5b 52 31 30 2c 52 33 5d 0d 00 8a | R4,[R10,R3]...|
00000c10 04 0d 00 8b 1c 20 20 20 20 20 20 20 20 53 55 42 |..... SUB|
00000c20 53 20 20 20 20 52 33 2c 52 33 2c 23 31 0d 00 8c |S R3,R3,#1...|
00000c30 18 20 20 20 20 20 20 20 20 42 4e 45 20 20 20 20 |. BNE |
00000c40 20 6c 6f 6f 70 0d 00 8d 25 20 20 20 20 20 20 20 | loop...% |
00000c50 20 4c 44 4d 46 44 20 20 20 52 31 33 21 2c 7b 52 | LDMFD R13!,{R|
00000c60 30 2d 52 31 32 2c 50 43 7d 5e 0d 00 8e 19 2e 62 |0-R12,PC}^.....b|
00000c70 69 67 25 20 20 20 45 51 55 44 20 20 20 20 33 32 |ig% EQUD 32|
00000c80 30 30 30 0d 00 8f 18 2e 73 6d 61 6c 6c 25 20 45 |000.....small% E|
00000c90 51 55 44 20 20 20 20 2d 33 31 39 0d 00 90 05 5d |QUD -319....]|
00000ca0 0d 00 91 0b ed 20 70 61 73 73 25 0d 00 92 05 e1 |..... pass%.....|
00000cb0 0d 00 93 05 3a 0d 00 94 05 3a 0d 00 95 05 3a 0d |....:....:....:.|
00000cc0 00 96 16 dd 20 a4 46 69 6e 64 42 61 73 65 41 64 |.... .FindBaseAd|
00000cd0 64 72 65 73 73 0d 00 97 13 de 20 69 6e 70 75 74 |dress..... input|
00000ce0 5f 6c 69 73 74 20 20 38 0d 00 98 13 de 20 6f 75 |_list 8..... ou|
00000cf0 74 70 75 74 5f 6c 69 73 74 20 34 0d 00 99 16 69 |tput_list 4....i|
00000d00 6e 70 75 74 5f 6c 69 73 74 21 30 20 3d 20 31 34 |nput_list!0 = 14|
00000d10 39 0d 00 9a 16 69 6e 70 75 74 5f 6c 69 73 74 21 |9....input_list!|
00000d20 34 20 3d 20 20 2d 31 0d 00 9b 33 c8 99 20 22 4f |4 = -1...3.. "O|
00000d30 53 5f 52 65 61 64 56 64 75 56 61 72 69 61 62 6c |S_ReadVduVariabl|
00000d40 65 73 22 2c 69 6e 70 75 74 5f 6c 69 73 74 2c 6f |es",input_list,o|
00000d50 75 74 70 75 74 5f 6c 69 73 74 0d 00 9c 12 3d 6f |utput_list....=o|
00000d60 75 74 70 75 74 5f 6c 69 73 74 21 30 0d 00 9d 04 |utput_list!0....|
00000d70 0d 00 9e 04 0d ff |......|
00000d76 
.