Home » Archimedes archive » Acorn User » AU 1997-11 B.adf » Regulars » StarInfo/spooky/AdcSpenc/!Spook/Blood
StarInfo/spooky/AdcSpenc/!Spook/Blood
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 1997-11 B.adf » Regulars |
| Filename: | StarInfo/spooky/AdcSpenc/!Spook/Blood |
| Read OK: | ✔ |
| File size: | 0B06 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1MODE 9:OFF
2ON ERROR SYS "OS_CLI","RUN <Spook$Dir>.Spook"
3A=INKEY(200)
4:
5DIM BA%(2)
6FOR looP%=1 TO 2 STEP 1
7SYS 6,112,looP%:SYS 6,113,looP%:CLS:BA%(looP%)=FNFindBaseAddress
8NEXT looP%
9PROCBlood_Init
10!(small%)=-159
11:
12REPEAT
13PROCBlood_Text("what",640,600,25,25,2,50,18)
14PROCBlood_Text("is",640,600,25,25,2,50,18)
15PROCBlood_Text("more",640,600,25,25,2,50,18)
16SYS "XOS_CLI","QTMStart"
17PROCBlood_Text("SPOOKY",640,600,50,50,2,150,10)
18PROCBlood_Text("SPOOKY",640,600,50,50,0,0,10)
19PROCBlood_Text("SPOOKY",640,600,50,50,0,0,10)
20PROCBlood_Text("SPOOKY",640,600,50,50,0,0,32)
21PROCBlood_Text("than",640,600,25,25,2,50,18)
22PROCBlood_Text("a",640,600,50,50,4,50,18)
23PROCBlood_Text("Spook",640,600,50,50,2,100,18)
24PROCBlood_Text("?",640,610,75,75,3,150,18)
25REM PROCBlood_Text("*INFO Challenge Entry",640,600,15,15,1,100,18)
26REM PROCBlood_Text("By",640,600,25,25,2,50,18)
27REM PROCBlood_Text("Mark Adcock",640,600,25,25,2,150,24)
28REM PROCBlood_Text("AND",640,600,25,25,2,50,24)
29REM PROCBlood_Text("Ben Spencer",640,600,25,25,2,150,24)
30CLEAR
31*RUN Spook
32END
33:
34:
35:
36DEF PROCBlood_Text(N$,X%,Y%,SX%,SY%,delay%,delay2%,delay3%)
37VDU 5
38GCOL 15
39bank%=1
40SYS 6,113,3-bank%
41SYS 6,112,bank%
42VDU 23,17,7,6,SX%;SY%;0;:MOVE X%-SX%*LEN(N$)*2,Y%:PRINT N$
43TIME=0
44L=0
45C%=85*160
46D%=85*160
47REPEAT
48A%=BA%(bank%)
49B%=BA%(3-bank%)
50CALL plas
51SYS 6,19
52SYS 6,112,bank%
53SYS 6,113,3-bank%
54bank%=3-bank%
55L+=1
56UNTIL L>=delay%
57TIME=0:REPEAT:UNTIL TIME>=delay2%
58L=0
59REPEAT
60A%=BA%(bank%)
61B%=BA%(3-bank%)
62CALL plas
63SYS 6,19
64SYS 6,112,bank%
65SYS 6,113,3-bank%
66bank%=3-bank%
67L+=1
68UNTIL L>=delay3%
69ENDPROC
70:
71:
72:
73DEF PROCBlood_Init
74FOR C = 0 TO 15:COLOUR C,C*17,0,0:NEXT C
75DIM code% 256
76FOR pass%=0 TO 2 STEP 2
77P%=code%
78[ OPT pass%
79.plas STMFD R13!,{R14}
80 LDR R12,small%
81 ADD R10,R1,R2
82 ADD R11,R0,R2
83 MOV R1,#160
84.loop ADD R8,R11,R3
85 :
86 LDRB R4,[R8,#1]!
87 AND R4,R4,#%00001111
88 LDRB R5,[R8,#-2]!
89 AND R5,R5,#%00001111
90 LDRB R6,[R8,R12]!
91 AND R6,R6,#%00001111
92 LDRB R7,[R8,#320]!
93 AND R7,R7,#%00001111
94 :
95 ADD R4,R4,R5
96 ADD R4,R4,R6
97 ADD R4,R4,R7
98 MOV R4,R4,LSR #2
99 ORR R4,R4,R4,LSL #4
100 :
101 SUBS R1,R1,#1
102 BNE skip
103 MOV R1,#160
104 :
105.skip STRB R4,[R10,R3]
106 :
107 SUBS R3,R3,#1
108 BNE loop
109 LDMFD R13!,{PC}^
110.small% EQUD 0
111]
112NEXT pass%
113ENDPROC
114:
115:
116:
117DEF FNFindBaseAddress
118DIM input_list 8
119DIM output_list 4
120input_list!0 = 149
121input_list!4 = -1
122SYS "OS_ReadVduVariables",input_list,output_list
123=output_list!0
124
� 9:�
+� � ș "OS_CLI","RUN <Spook$Dir>.Spook"
A=�(200)
:
� BA%(2)
� looP%=1 � 2 � 1
?ș 6,112,looP%:ș 6,113,looP%:�:BA%(looP%)=�FindBaseAddress
� looP%
�Blood_Init
!(small%)=-159
:
�
-�Blood_Text("what",640,600,25,25,2,50,18)
+�Blood_Text("is",640,600,25,25,2,50,18)
-�Blood_Text("more",640,600,25,25,2,50,18)
ș "XOS_CLI","QTMStart"
0�Blood_Text("SPOOKY",640,600,50,50,2,150,10)
.�Blood_Text("SPOOKY",640,600,50,50,0,0,10)
.�Blood_Text("SPOOKY",640,600,50,50,0,0,10)
.�Blood_Text("SPOOKY",640,600,50,50,0,0,32)
-�Blood_Text("than",640,600,25,25,2,50,18)
*�Blood_Text("a",640,600,50,50,4,50,18)
/�Blood_Text("Spook",640,600,50,50,2,100,18)
+�Blood_Text("?",640,610,75,75,3,150,18)
D� PROCBlood_Text("*INFO Challenge Entry",640,600,15,15,1,100,18)
0� PROCBlood_Text("By",640,600,25,25,2,50,18)
:� PROCBlood_Text("Mark Adcock",640,600,25,25,2,150,24)
1� PROCBlood_Text("AND",640,600,25,25,2,50,24)
:� PROCBlood_Text("Ben Spencer",640,600,25,25,2,150,24)
�
*RUN Spook
�
!:
":
#:
$:� �Blood_Text(N$,X%,Y%,SX%,SY%,delay%,delay2%,delay3%)
%� 5
&� 15
' bank%=1
(ș 6,113,3-bank%
)ș 6,112,bank%
*3� 23,17,7,6,SX%;SY%;0;:� X%-SX%*�(N$)*2,Y%:� N$
+�=0
,L=0
-
C%=85*160
.
D%=85*160
/�
0A%=BA%(bank%)
1B%=BA%(3-bank%)
2
� plas
3 ș 6,19
4ș 6,112,bank%
5ș 6,113,3-bank%
6bank%=3-bank%
7L+=1
8� L>=delay%
9�=0:�:� �>=delay2%
:L=0
;�
<A%=BA%(bank%)
=B%=BA%(3-bank%)
>
� plas
? ș 6,19
@ș 6,112,bank%
Aș 6,113,3-bank%
Bbank%=3-bank%
CL+=1
D� L>=delay3%
E�
F:
G:
H:
I� �Blood_Init
J!� C = 0 � 15:� C,C*17,0,0:� C
K� code% 256
L� pass%=0 � 2 � 2
M P%=code%
N[ OPT pass%
O .plas STMFD R13!,{R14}
P LDR R12,small%
Q ADD R10,R1,R2
R, ADD R11,R0,R2
S MOV R1,#160
T .loop ADD R8,R11,R3
U
:
V LDRB R4,[R8,#1]!
W" � R4,R4,#%00001111
X LDRB R5,[R8,#-2]!
Y" � R5,R5,#%00001111
Z LDRB R6,[R8,R12]!
[" � R6,R6,#%00001111
\! LDRB R7,[R8,#320]!
]" � R7,R7,#%00001111
^
:
_ ADD R4,R4,R5
` ADD R4,R4,R6
a ADD R4,R4,R7
b MOV R4,R4,LSR #2
c" �R R4,R4,R4,LSL #4
d
:
e SUBS R1,R1,#1
f BNE skip
g MOV R1,#160
h
:
i .skip STRB R4,[R10,R3]
j
:
k SUBS R3,R3,#1
l BNE loop
m LDMFD R13!,{PC}^
n.small% EQUD 0
o]
p � pass%
q�
r:
s:
t:
u� �FindBaseAddress
v� input_list 8
w� output_list 4
xinput_list!0 = 149
yinput_list!4 = -1
z3ș "OS_ReadVduVariables",input_list,output_list
{=output_list!0
|
� 00000000 0d 00 01 09 eb 20 39 3a 87 0d 00 02 2b ee 20 85 |..... 9:....+. .|
00000010 20 c8 99 20 22 4f 53 5f 43 4c 49 22 2c 22 52 55 | .. "OS_CLI","RU|
00000020 4e 20 3c 53 70 6f 6f 6b 24 44 69 72 3e 2e 53 70 |N <Spook$Dir>.Sp|
00000030 6f 6f 6b 22 0d 00 03 0c 41 3d a6 28 32 30 30 29 |ook"....A=.(200)|
00000040 0d 00 04 05 3a 0d 00 05 0c de 20 42 41 25 28 32 |....:..... BA%(2|
00000050 29 0d 00 06 15 e3 20 6c 6f 6f 50 25 3d 31 20 b8 |)..... looP%=1 .|
00000060 20 32 20 88 20 31 0d 00 07 3f c8 99 20 36 2c 31 | 2 . 1...?.. 6,1|
00000070 31 32 2c 6c 6f 6f 50 25 3a c8 99 20 36 2c 31 31 |12,looP%:.. 6,11|
00000080 33 2c 6c 6f 6f 50 25 3a db 3a 42 41 25 28 6c 6f |3,looP%:.:BA%(lo|
00000090 6f 50 25 29 3d a4 46 69 6e 64 42 61 73 65 41 64 |oP%)=.FindBaseAd|
000000a0 64 72 65 73 73 0d 00 08 0b ed 20 6c 6f 6f 50 25 |dress..... looP%|
000000b0 0d 00 09 0f f2 42 6c 6f 6f 64 5f 49 6e 69 74 0d |.....Blood_Init.|
000000c0 00 0a 12 21 28 73 6d 61 6c 6c 25 29 3d 2d 31 35 |...!(small%)=-15|
000000d0 39 0d 00 0b 05 3a 0d 00 0c 05 f5 0d 00 0d 2d f2 |9....:........-.|
000000e0 42 6c 6f 6f 64 5f 54 65 78 74 28 22 77 68 61 74 |Blood_Text("what|
000000f0 22 2c 36 34 30 2c 36 30 30 2c 32 35 2c 32 35 2c |",640,600,25,25,|
00000100 32 2c 35 30 2c 31 38 29 0d 00 0e 2b f2 42 6c 6f |2,50,18)...+.Blo|
00000110 6f 64 5f 54 65 78 74 28 22 69 73 22 2c 36 34 30 |od_Text("is",640|
00000120 2c 36 30 30 2c 32 35 2c 32 35 2c 32 2c 35 30 2c |,600,25,25,2,50,|
00000130 31 38 29 0d 00 0f 2d f2 42 6c 6f 6f 64 5f 54 65 |18)...-.Blood_Te|
00000140 78 74 28 22 6d 6f 72 65 22 2c 36 34 30 2c 36 30 |xt("more",640,60|
00000150 30 2c 32 35 2c 32 35 2c 32 2c 35 30 2c 31 38 29 |0,25,25,2,50,18)|
00000160 0d 00 10 1b c8 99 20 22 58 4f 53 5f 43 4c 49 22 |...... "XOS_CLI"|
00000170 2c 22 51 54 4d 53 74 61 72 74 22 0d 00 11 30 f2 |,"QTMStart"...0.|
00000180 42 6c 6f 6f 64 5f 54 65 78 74 28 22 53 50 4f 4f |Blood_Text("SPOO|
00000190 4b 59 22 2c 36 34 30 2c 36 30 30 2c 35 30 2c 35 |KY",640,600,50,5|
000001a0 30 2c 32 2c 31 35 30 2c 31 30 29 0d 00 12 2e f2 |0,2,150,10).....|
000001b0 42 6c 6f 6f 64 5f 54 65 78 74 28 22 53 50 4f 4f |Blood_Text("SPOO|
000001c0 4b 59 22 2c 36 34 30 2c 36 30 30 2c 35 30 2c 35 |KY",640,600,50,5|
000001d0 30 2c 30 2c 30 2c 31 30 29 0d 00 13 2e f2 42 6c |0,0,0,10).....Bl|
000001e0 6f 6f 64 5f 54 65 78 74 28 22 53 50 4f 4f 4b 59 |ood_Text("SPOOKY|
000001f0 22 2c 36 34 30 2c 36 30 30 2c 35 30 2c 35 30 2c |",640,600,50,50,|
00000200 30 2c 30 2c 31 30 29 0d 00 14 2e f2 42 6c 6f 6f |0,0,10).....Bloo|
00000210 64 5f 54 65 78 74 28 22 53 50 4f 4f 4b 59 22 2c |d_Text("SPOOKY",|
00000220 36 34 30 2c 36 30 30 2c 35 30 2c 35 30 2c 30 2c |640,600,50,50,0,|
00000230 30 2c 33 32 29 0d 00 15 2d f2 42 6c 6f 6f 64 5f |0,32)...-.Blood_|
00000240 54 65 78 74 28 22 74 68 61 6e 22 2c 36 34 30 2c |Text("than",640,|
00000250 36 30 30 2c 32 35 2c 32 35 2c 32 2c 35 30 2c 31 |600,25,25,2,50,1|
00000260 38 29 0d 00 16 2a f2 42 6c 6f 6f 64 5f 54 65 78 |8)...*.Blood_Tex|
00000270 74 28 22 61 22 2c 36 34 30 2c 36 30 30 2c 35 30 |t("a",640,600,50|
00000280 2c 35 30 2c 34 2c 35 30 2c 31 38 29 0d 00 17 2f |,50,4,50,18).../|
00000290 f2 42 6c 6f 6f 64 5f 54 65 78 74 28 22 53 70 6f |.Blood_Text("Spo|
000002a0 6f 6b 22 2c 36 34 30 2c 36 30 30 2c 35 30 2c 35 |ok",640,600,50,5|
000002b0 30 2c 32 2c 31 30 30 2c 31 38 29 0d 00 18 2b f2 |0,2,100,18)...+.|
000002c0 42 6c 6f 6f 64 5f 54 65 78 74 28 22 3f 22 2c 36 |Blood_Text("?",6|
000002d0 34 30 2c 36 31 30 2c 37 35 2c 37 35 2c 33 2c 31 |40,610,75,75,3,1|
000002e0 35 30 2c 31 38 29 0d 00 19 44 f4 20 50 52 4f 43 |50,18)...D. PROC|
000002f0 42 6c 6f 6f 64 5f 54 65 78 74 28 22 2a 49 4e 46 |Blood_Text("*INF|
00000300 4f 20 43 68 61 6c 6c 65 6e 67 65 20 45 6e 74 72 |O Challenge Entr|
00000310 79 22 2c 36 34 30 2c 36 30 30 2c 31 35 2c 31 35 |y",640,600,15,15|
00000320 2c 31 2c 31 30 30 2c 31 38 29 0d 00 1a 30 f4 20 |,1,100,18)...0. |
00000330 50 52 4f 43 42 6c 6f 6f 64 5f 54 65 78 74 28 22 |PROCBlood_Text("|
00000340 42 79 22 2c 36 34 30 2c 36 30 30 2c 32 35 2c 32 |By",640,600,25,2|
00000350 35 2c 32 2c 35 30 2c 31 38 29 0d 00 1b 3a f4 20 |5,2,50,18)...:. |
00000360 50 52 4f 43 42 6c 6f 6f 64 5f 54 65 78 74 28 22 |PROCBlood_Text("|
00000370 4d 61 72 6b 20 41 64 63 6f 63 6b 22 2c 36 34 30 |Mark Adcock",640|
00000380 2c 36 30 30 2c 32 35 2c 32 35 2c 32 2c 31 35 30 |,600,25,25,2,150|
00000390 2c 32 34 29 0d 00 1c 31 f4 20 50 52 4f 43 42 6c |,24)...1. PROCBl|
000003a0 6f 6f 64 5f 54 65 78 74 28 22 41 4e 44 22 2c 36 |ood_Text("AND",6|
000003b0 34 30 2c 36 30 30 2c 32 35 2c 32 35 2c 32 2c 35 |40,600,25,25,2,5|
000003c0 30 2c 32 34 29 0d 00 1d 3a f4 20 50 52 4f 43 42 |0,24)...:. PROCB|
000003d0 6c 6f 6f 64 5f 54 65 78 74 28 22 42 65 6e 20 53 |lood_Text("Ben S|
000003e0 70 65 6e 63 65 72 22 2c 36 34 30 2c 36 30 30 2c |pencer",640,600,|
000003f0 32 35 2c 32 35 2c 32 2c 31 35 30 2c 32 34 29 0d |25,25,2,150,24).|
00000400 00 1e 05 d8 0d 00 1f 0e 2a 52 55 4e 20 53 70 6f |........*RUN Spo|
00000410 6f 6b 0d 00 20 05 e0 0d 00 21 05 3a 0d 00 22 05 |ok.. ....!.:..".|
00000420 3a 0d 00 23 05 3a 0d 00 24 3a dd 20 f2 42 6c 6f |:..#.:..$:. .Blo|
00000430 6f 64 5f 54 65 78 74 28 4e 24 2c 58 25 2c 59 25 |od_Text(N$,X%,Y%|
00000440 2c 53 58 25 2c 53 59 25 2c 64 65 6c 61 79 25 2c |,SX%,SY%,delay%,|
00000450 64 65 6c 61 79 32 25 2c 64 65 6c 61 79 33 25 29 |delay2%,delay3%)|
00000460 0d 00 25 07 ef 20 35 0d 00 26 08 e6 20 31 35 0d |..%.. 5..&.. 15.|
00000470 00 27 0b 62 61 6e 6b 25 3d 31 0d 00 28 14 c8 99 |.'.bank%=1..(...|
00000480 20 36 2c 31 31 33 2c 33 2d 62 61 6e 6b 25 0d 00 | 6,113,3-bank%..|
00000490 29 12 c8 99 20 36 2c 31 31 32 2c 62 61 6e 6b 25 |)... 6,112,bank%|
000004a0 0d 00 2a 33 ef 20 32 33 2c 31 37 2c 37 2c 36 2c |..*3. 23,17,7,6,|
000004b0 53 58 25 3b 53 59 25 3b 30 3b 3a ec 20 58 25 2d |SX%;SY%;0;:. X%-|
000004c0 53 58 25 2a a9 28 4e 24 29 2a 32 2c 59 25 3a f1 |SX%*.(N$)*2,Y%:.|
000004d0 20 4e 24 0d 00 2b 07 d1 3d 30 0d 00 2c 07 4c 3d | N$..+..=0..,.L=|
000004e0 30 0d 00 2d 0d 43 25 3d 38 35 2a 31 36 30 0d 00 |0..-.C%=85*160..|
000004f0 2e 0d 44 25 3d 38 35 2a 31 36 30 0d 00 2f 05 f5 |..D%=85*160../..|
00000500 0d 00 30 11 41 25 3d 42 41 25 28 62 61 6e 6b 25 |..0.A%=BA%(bank%|
00000510 29 0d 00 31 13 42 25 3d 42 41 25 28 33 2d 62 61 |)..1.B%=BA%(3-ba|
00000520 6e 6b 25 29 0d 00 32 0a d6 20 70 6c 61 73 0d 00 |nk%)..2.. plas..|
00000530 33 0b c8 99 20 36 2c 31 39 0d 00 34 12 c8 99 20 |3... 6,19..4... |
00000540 36 2c 31 31 32 2c 62 61 6e 6b 25 0d 00 35 14 c8 |6,112,bank%..5..|
00000550 99 20 36 2c 31 31 33 2c 33 2d 62 61 6e 6b 25 0d |. 6,113,3-bank%.|
00000560 00 36 11 62 61 6e 6b 25 3d 33 2d 62 61 6e 6b 25 |.6.bank%=3-bank%|
00000570 0d 00 37 08 4c 2b 3d 31 0d 00 38 0f fd 20 4c 3e |..7.L+=1..8.. L>|
00000580 3d 64 65 6c 61 79 25 0d 00 39 16 d1 3d 30 3a f5 |=delay%..9..=0:.|
00000590 3a fd 20 91 3e 3d 64 65 6c 61 79 32 25 0d 00 3a |:. .>=delay2%..:|
000005a0 07 4c 3d 30 0d 00 3b 05 f5 0d 00 3c 11 41 25 3d |.L=0..;....<.A%=|
000005b0 42 41 25 28 62 61 6e 6b 25 29 0d 00 3d 13 42 25 |BA%(bank%)..=.B%|
000005c0 3d 42 41 25 28 33 2d 62 61 6e 6b 25 29 0d 00 3e |=BA%(3-bank%)..>|
000005d0 0a d6 20 70 6c 61 73 0d 00 3f 0b c8 99 20 36 2c |.. plas..?... 6,|
000005e0 31 39 0d 00 40 12 c8 99 20 36 2c 31 31 32 2c 62 |19..@... 6,112,b|
000005f0 61 6e 6b 25 0d 00 41 14 c8 99 20 36 2c 31 31 33 |ank%..A... 6,113|
00000600 2c 33 2d 62 61 6e 6b 25 0d 00 42 11 62 61 6e 6b |,3-bank%..B.bank|
00000610 25 3d 33 2d 62 61 6e 6b 25 0d 00 43 08 4c 2b 3d |%=3-bank%..C.L+=|
00000620 31 0d 00 44 10 fd 20 4c 3e 3d 64 65 6c 61 79 33 |1..D.. L>=delay3|
00000630 25 0d 00 45 05 e1 0d 00 46 05 3a 0d 00 47 05 3a |%..E....F.:..G.:|
00000640 0d 00 48 05 3a 0d 00 49 11 dd 20 f2 42 6c 6f 6f |..H.:..I.. .Bloo|
00000650 64 5f 49 6e 69 74 0d 00 4a 21 e3 20 43 20 3d 20 |d_Init..J!. C = |
00000660 30 20 b8 20 31 35 3a fb 20 43 2c 43 2a 31 37 2c |0 . 15:. C,C*17,|
00000670 30 2c 30 3a ed 20 43 0d 00 4b 0f de 20 63 6f 64 |0,0:. C..K.. cod|
00000680 65 25 20 32 35 36 0d 00 4c 15 e3 20 70 61 73 73 |e% 256..L.. pass|
00000690 25 3d 30 20 b8 20 32 20 88 20 32 0d 00 4d 0c 50 |%=0 . 2 . 2..M.P|
000006a0 25 3d 63 6f 64 65 25 0d 00 4e 0f 5b 20 4f 50 54 |%=code%..N.[ OPT|
000006b0 20 70 61 73 73 25 0d 00 4f 1e 2e 70 6c 61 73 20 | pass%..O..plas |
000006c0 20 20 53 54 4d 46 44 20 20 20 52 31 33 21 2c 7b | STMFD R13!,{|
000006d0 52 31 34 7d 0d 00 50 1e 20 20 20 20 20 20 20 20 |R14}..P. |
000006e0 4c 44 52 20 20 20 20 20 52 31 32 2c 73 6d 61 6c |LDR R12,smal|
000006f0 6c 25 0d 00 51 1d 20 20 20 20 20 20 20 20 41 44 |l%..Q. AD|
00000700 44 20 20 20 20 20 52 31 30 2c 52 31 2c 52 32 0d |D R10,R1,R2.|
00000710 00 52 2c 20 20 20 20 20 20 20 20 41 44 44 20 20 |.R, ADD |
00000720 20 20 20 52 31 31 2c 52 30 2c 52 32 20 20 20 20 | R11,R0,R2 |
00000730 20 20 20 20 20 20 20 20 20 20 20 0d 00 53 1b 20 | ..S. |
00000740 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 | MOV R|
00000750 31 2c 23 31 36 30 0d 00 54 1d 2e 6c 6f 6f 70 20 |1,#160..T..loop |
00000760 20 20 41 44 44 20 20 20 20 20 52 38 2c 52 31 31 | ADD R8,R11|
00000770 2c 52 33 0d 00 55 0d 20 20 20 20 20 20 20 20 3a |,R3..U. :|
00000780 0d 00 56 1f 20 20 20 20 20 20 20 20 4c 44 52 42 |..V. LDRB|
00000790 20 20 20 20 52 34 2c 5b 52 38 2c 23 31 5d 21 0d | R4,[R8,#1]!.|
000007a0 00 57 22 20 20 20 20 20 20 20 20 80 20 20 20 20 |.W" . |
000007b0 20 52 34 2c 52 34 2c 23 25 30 30 30 30 31 31 31 | R4,R4,#%0000111|
000007c0 31 0d 00 58 20 20 20 20 20 20 20 20 20 4c 44 52 |1..X LDR|
000007d0 42 20 20 20 20 52 35 2c 5b 52 38 2c 23 2d 32 5d |B R5,[R8,#-2]|
000007e0 21 0d 00 59 22 20 20 20 20 20 20 20 20 80 20 20 |!..Y" . |
000007f0 20 20 20 52 35 2c 52 35 2c 23 25 30 30 30 30 31 | R5,R5,#%00001|
00000800 31 31 31 0d 00 5a 20 20 20 20 20 20 20 20 20 4c |111..Z L|
00000810 44 52 42 20 20 20 20 52 36 2c 5b 52 38 2c 52 31 |DRB R6,[R8,R1|
00000820 32 5d 21 0d 00 5b 22 20 20 20 20 20 20 20 20 80 |2]!..[" .|
00000830 20 20 20 20 20 52 36 2c 52 36 2c 23 25 30 30 30 | R6,R6,#%000|
00000840 30 31 31 31 31 0d 00 5c 21 20 20 20 20 20 20 20 |01111..\! |
00000850 20 4c 44 52 42 20 20 20 20 52 37 2c 5b 52 38 2c | LDRB R7,[R8,|
00000860 23 33 32 30 5d 21 0d 00 5d 22 20 20 20 20 20 20 |#320]!..]" |
00000870 20 20 80 20 20 20 20 20 52 37 2c 52 37 2c 23 25 | . R7,R7,#%|
00000880 30 30 30 30 31 31 31 31 0d 00 5e 0d 20 20 20 20 |00001111..^. |
00000890 20 20 20 20 3a 0d 00 5f 1c 20 20 20 20 20 20 20 | :.._. |
000008a0 20 41 44 44 20 20 20 20 20 52 34 2c 52 34 2c 52 | ADD R4,R4,R|
000008b0 35 0d 00 60 1c 20 20 20 20 20 20 20 20 41 44 44 |5..`. ADD|
000008c0 20 20 20 20 20 52 34 2c 52 34 2c 52 36 0d 00 61 | R4,R4,R6..a|
000008d0 1c 20 20 20 20 20 20 20 20 41 44 44 20 20 20 20 |. ADD |
000008e0 20 52 34 2c 52 34 2c 52 37 0d 00 62 20 20 20 20 | R4,R4,R7..b |
000008f0 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 34 2c | MOV R4,|
00000900 52 34 2c 4c 53 52 20 23 32 0d 00 63 22 20 20 20 |R4,LSR #2..c" |
00000910 20 20 20 20 20 84 52 20 20 20 20 20 52 34 2c 52 | .R R4,R|
00000920 34 2c 52 34 2c 4c 53 4c 20 23 34 0d 00 64 0d 20 |4,R4,LSL #4..d. |
00000930 20 20 20 20 20 20 20 3a 0d 00 65 1c 20 20 20 20 | :..e. |
00000940 20 20 20 20 53 55 42 53 20 20 20 20 52 31 2c 52 | SUBS R1,R|
00000950 31 2c 23 31 0d 00 66 20 20 20 20 20 20 20 20 20 |1,#1..f |
00000960 42 4e 45 20 20 20 20 20 73 6b 69 70 20 20 20 20 |BNE skip |
00000970 20 20 20 20 0d 00 67 1b 20 20 20 20 20 20 20 20 | ..g. |
00000980 4d 4f 56 20 20 20 20 20 52 31 2c 23 31 36 30 0d |MOV R1,#160.|
00000990 00 68 0d 20 20 20 20 20 20 20 20 3a 0d 00 69 1f |.h. :..i.|
000009a0 2e 73 6b 69 70 20 20 20 53 54 52 42 20 20 20 20 |.skip STRB |
000009b0 52 34 2c 5b 52 31 30 2c 52 33 5d 0d 00 6a 0d 20 |R4,[R10,R3]..j. |
000009c0 20 20 20 20 20 20 20 3a 0d 00 6b 1c 20 20 20 20 | :..k. |
000009d0 20 20 20 20 53 55 42 53 20 20 20 20 52 33 2c 52 | SUBS R3,R|
000009e0 33 2c 23 31 0d 00 6c 18 20 20 20 20 20 20 20 20 |3,#1..l. |
000009f0 42 4e 45 20 20 20 20 20 6c 6f 6f 70 0d 00 6d 1e |BNE loop..m.|
00000a00 20 20 20 20 20 20 20 20 4c 44 4d 46 44 20 20 20 | LDMFD |
00000a10 52 31 33 21 2c 7b 50 43 7d 5e 0d 00 6e 15 2e 73 |R13!,{PC}^..n..s|
00000a20 6d 61 6c 6c 25 20 45 51 55 44 20 20 20 20 30 0d |mall% EQUD 0.|
00000a30 00 6f 05 5d 0d 00 70 0b ed 20 70 61 73 73 25 0d |.o.]..p.. pass%.|
00000a40 00 71 05 e1 0d 00 72 05 3a 0d 00 73 05 3a 0d 00 |.q....r.:..s.:..|
00000a50 74 05 3a 0d 00 75 16 dd 20 a4 46 69 6e 64 42 61 |t.:..u.. .FindBa|
00000a60 73 65 41 64 64 72 65 73 73 0d 00 76 13 de 20 69 |seAddress..v.. i|
00000a70 6e 70 75 74 5f 6c 69 73 74 20 20 38 0d 00 77 13 |nput_list 8..w.|
00000a80 de 20 6f 75 74 70 75 74 5f 6c 69 73 74 20 34 0d |. output_list 4.|
00000a90 00 78 16 69 6e 70 75 74 5f 6c 69 73 74 21 30 20 |.x.input_list!0 |
00000aa0 3d 20 31 34 39 0d 00 79 16 69 6e 70 75 74 5f 6c |= 149..y.input_l|
00000ab0 69 73 74 21 34 20 3d 20 20 2d 31 0d 00 7a 33 c8 |ist!4 = -1..z3.|
00000ac0 99 20 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 |. "OS_ReadVduVar|
00000ad0 69 61 62 6c 65 73 22 2c 69 6e 70 75 74 5f 6c 69 |iables",input_li|
00000ae0 73 74 2c 6f 75 74 70 75 74 5f 6c 69 73 74 0d 00 |st,output_list..|
00000af0 7b 12 3d 6f 75 74 70 75 74 5f 6c 69 73 74 21 30 |{.=output_list!0|
00000b00 0d 00 7c 04 0d ff |..|...|
00000b06 
.