Home » Archimedes archive » Acorn User » AU 1997-08 B.adf » Regulars » starinfo/poodle/!poodle/Poodle
starinfo/poodle/!poodle/Poodle
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-08 B.adf » Regulars |
| Filename: | starinfo/poodle/!poodle/Poodle |
| Read OK: | ✔ |
| File size: | 09CD bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Poodle
20
30xsize = 320
40ysize = 256
50d = 2
60
70ON ERROR SYS 6,112,3-d:ERROR EXT ERR, REPORT$+" at line "+STR$ERL:END
80PROCcode
90
100END=800*1024
110
120DIM buf0 xsize * ysize * 4
130DIM buf1 xsize * ysize * 4
140DIM picbuf xsize*ysize
150PROCclear(buf0, xsize*ysize*4)
160PROCclear(buf1, xsize*ysize*4)
170PROCclear(picbuf, xsize*ysize)
180
190MODE13
200PRINT"Load picture? (Y/N)"
210REPEAT
220 g$=CHR$(GET AND &DF)
230UNTIL g$="Y" OR g$="N"
240IF g$="Y" THEN
250 *ScreenLoad <poodle$dir>.moan
260ELSE
261 CLS
270 FOR x%=0 TO 320 STEP 15
271 FOR i%=-3 TO 3
272 c%= 255-32*ABSi%
273 SYS "ColourTrans_SetGCOL",(c%<<24) OR (c%<<16) OR (c%<<8)
274 LINE 4*(x%+i%),0,4*(x%+i%),1024
275 NEXT
276 NEXT
280ENDIF
290
300OFF
310DIM s 8
320!s=148
330s!4=-1
340SYS "OS_ReadVduVariables",s,s
350screen=!s
360screen2=screen+xsize*ysize
370FOR i=0 TO xsize*ysize-1 STEP 4
380 picbuf!i=screen!i
390NEXT
400PROCclear(screen, xsize*ysize*2)
410d=1
420REPEAT
430 WAIT
440 SYS 6,112,d
450 SYS 6,113,3-d
460 A% = buf0
470 B% = buf1
480 C% = screen
490 D% = picbuf
500 CALL puddle
510 SWAP buf0, buf1
520 SWAP screen, screen2
530 d=3-d
540 IF RND(100)<12 THEN
550 x=RND(280)+20
560 y=RND(210)+20
570 PROCblob(buf0, x, y, 500+RND(2000))
580 ENDIF
590UNTIL FALSE
600END
610
620DEF PROCclear(A%, B%)
630CALL clear
640ENDPROC
650
660DEF PROCblob(a, x, y, d)
670FOR x1=x-4 TO x+4
680 FOR y1=y-4 TO y+4
690 !(a+x1*4+y1*xsize*4)+=d
700 NEXT
710NEXT
720ENDPROC
730
740DEF PROCcode
750DIM code 16*1024
760cur = 0
770old = 1
780scr = 2
790pic = 3
800peek = 6
810poke = 7
820sp=13:link=14:pc=15
830FOR pass=0 TO 2 STEP 2:P%=code
840[OPT pass
850.puddle
860 STMFD (sp)!,{r0-r12,link}
870 ADD cur, cur, #xsize * 4
880 ADD old, old, #xsize * 4
890 ADD poke, scr, #xsize * 2
900 ADD peek, pic, #xsize * 2
910 MOV r12, #ysize * xsize
920 SUB r12, r12, #2 * xsize
930 SUB old,old,#4
940 LDMIA (old)!,{r8-r10}
950.loop
960]
970FOR byte% = 0 TO 3
980[OPT pass
990 ADD r4, r8,r10
1000
1010 LDR r5, [old, #-xsize * 4 - 8]
1020 ADD r4, r4, r5
1030 LDR r5, [old, #xsize * 4 - 8]
1040 ADD r4, r4, r5
1050 MOV r4, r4, ASR #1
1060 LDR r5, [cur]
1070 SUB r4, r4, r5
1080 SUB r4, r4, r4, ASR #5
1090
1100 STR r4, [cur], #4
1110
1120 MOV r8, r9
1130 MOV r9, r10
1140 LDR r10,[old],#4
1150
1160 LDRB r5, [peek, r4, ASR #5]
1170 MOV r14,r14,LSR #8
1180 ORR r14,r14,r5, LSL #24
1190
1200 ADD peek, peek, #1
1210]
1220NEXT byte%
1230[OPT pass
1240 STR r14,[poke],#4
1250
1260 SUBS r12, r12, #4
1270 BNE loop
1280 LDMFD (sp)!,{r0-r12,pc}
1290
1300.clear
1310 MOV r2, #0
1320.cloop
1330 STR r2,[r0], #4
1340 SUBS r1, r1, #4
1350 BPL cloop
1360 MOV pc,link
1370]NEXT
1380ENDPROC
� >Poodle
xsize = 320
(ysize = 256
2 d = 2
<
F/� � ș 6,112,3-d:� � �, �$+" at line "+Þ:�
P �code
Z
d�=800*1024
n
x � buf0 xsize * ysize * 4
� � buf1 xsize * ysize * 4
�� picbuf xsize*ysize
� �clear(buf0, xsize*ysize*4)
� �clear(buf1, xsize*ysize*4)
� �clear(picbuf, xsize*ysize)
�
��13
��"Load picture? (Y/N)"
��
� g$=�(� � &DF)
�� g$="Y" � g$="N"
�� g$="Y" �
�" *ScreenLoad <poodle$dir>.moan
�
�
� x%=0 � 320 � 15
� i%=-3 � 3
c%= 255-32*�i%
= ș "ColourTrans_SetGCOL",(c%<<24) � (c%<<16) � (c%<<8)
# � 4*(x%+i%),0,4*(x%+i%),1024
�
�
�
"
,�
6 � s 8
@
!s=148
J
s!4=-1
T ș "OS_ReadVduVariables",s,s
^
screen=!s
h screen2=screen+xsize*ysize
r � i=0 � xsize*ysize-1 � 4
| picbuf!i=screen!i
��
�!�clear(screen, xsize*ysize*2)
�d=1
��
� Ȗ
� ș 6,112,d
� ș 6,113,3-d
� A% = buf0
� B% = buf1
� C% = screen
� D% = picbuf
�
� puddle
� Ȕ buf0, buf1
Ȕ screen, screen2
d=3-d
� �(100)<12 �
& x=�(280)+20
0 y=�(210)+20
:% �blob(buf0, x, y, 500+�(2000))
D �
N� �
X�
b
l� �clear(A%, B%)
v � clear
��
�
�� �blob(a, x, y, d)
�� x1=x-4 � x+4
� � y1=y-4 � y+4
� !(a+x1*4+y1*xsize*4)+=d
� �
��
��
�
� � �code
�� code 16*1024
� cur = 0
old = 1
scr = 2
pic = 3
peek = 6
* poke = 7
4sp=13:link=14:pc=15
> � pass=0 � 2 � 2:P%=code
H
[OPT pass
R .puddle
\! STMFD (sp)!,{r0-r12,link}
f ADD cur, cur, #xsize * 4
p ADD old, old, #xsize * 4
z! ADD poke, scr, #xsize * 2
�! ADD peek, pic, #xsize * 2
� MOV r12, #ysize * xsize
� SUB r12, r12, #2 * xsize
� SUB old,old,#4
� LDMIA (old)!,{r8-r10}
� .loop
�]
�� byte% = 0 � 3
�
[OPT pass
� ADD r4, r8,r10
�
�& LDR r5, [old, #-xsize * 4 - 8]
� ADD r4, r4, r5
% LDR r5, [old, #xsize * 4 - 8]
ADD r4, r4, r5
MOV r4, r4, ASR #1
$ LDR r5, [cur]
. SUB r4, r4, r5
8 SUB r4, r4, r4, ASR #5
B
L STR r4, [cur], #4
V
` MOV r8, r9
j MOV r9, r10
t LDR r10,[old],#4
~
�# LDRB r5, [peek, r4, ASR #5]
� MOV r14,r14,LSR #8
� �R r14,r14,r5, LSL #24
�
� ADD peek, peek, #1
�]
� � byte%
�
[OPT pass
� STR r14,[poke],#4
�
� SUBS r12, r12, #4
� BNE loop
LDMFD (sp)!,{r0-r12,pc}
.clear
MOV r2, #0
(
.cloop
2 STR r2,[r0], #4
< SUBS r1, r1, #4
F BPL cloop
P MOV pc,link
Z]�
d�
� 00000000 0d 00 0a 0d f4 20 3e 50 6f 6f 64 6c 65 0d 00 14 |..... >Poodle...|
00000010 04 0d 00 1e 0f 78 73 69 7a 65 20 3d 20 33 32 30 |.....xsize = 320|
00000020 0d 00 28 0f 79 73 69 7a 65 20 3d 20 32 35 36 0d |..(.ysize = 256.|
00000030 00 32 09 64 20 3d 20 32 0d 00 3c 04 0d 00 46 2f |.2.d = 2..<...F/|
00000040 ee 20 85 20 c8 99 20 36 2c 31 31 32 2c 33 2d 64 |. . .. 6,112,3-d|
00000050 3a 85 20 a2 20 9f 2c 20 f6 24 2b 22 20 61 74 20 |:. . ., .$+" at |
00000060 6c 69 6e 65 20 22 2b c3 9e 3a e0 0d 00 50 09 f2 |line "+..:...P..|
00000070 63 6f 64 65 0d 00 5a 04 0d 00 64 0e e0 3d 38 30 |code..Z...d..=80|
00000080 30 2a 31 30 32 34 0d 00 6e 04 0d 00 78 1c de 20 |0*1024..n...x.. |
00000090 62 75 66 30 20 78 73 69 7a 65 20 2a 20 79 73 69 |buf0 xsize * ysi|
000000a0 7a 65 20 2a 20 34 0d 00 82 1c de 20 62 75 66 31 |ze * 4..... buf1|
000000b0 20 78 73 69 7a 65 20 2a 20 79 73 69 7a 65 20 2a | xsize * ysize *|
000000c0 20 34 0d 00 8c 18 de 20 70 69 63 62 75 66 20 78 | 4..... picbuf x|
000000d0 73 69 7a 65 2a 79 73 69 7a 65 0d 00 96 1f f2 63 |size*ysize.....c|
000000e0 6c 65 61 72 28 62 75 66 30 2c 20 78 73 69 7a 65 |lear(buf0, xsize|
000000f0 2a 79 73 69 7a 65 2a 34 29 0d 00 a0 1f f2 63 6c |*ysize*4).....cl|
00000100 65 61 72 28 62 75 66 31 2c 20 78 73 69 7a 65 2a |ear(buf1, xsize*|
00000110 79 73 69 7a 65 2a 34 29 0d 00 aa 1f f2 63 6c 65 |ysize*4).....cle|
00000120 61 72 28 70 69 63 62 75 66 2c 20 78 73 69 7a 65 |ar(picbuf, xsize|
00000130 2a 79 73 69 7a 65 29 0d 00 b4 04 0d 00 be 07 eb |*ysize).........|
00000140 31 33 0d 00 c8 1a f1 22 4c 6f 61 64 20 70 69 63 |13....."Load pic|
00000150 74 75 72 65 3f 20 28 59 2f 4e 29 22 0d 00 d2 05 |ture? (Y/N)"....|
00000160 f5 0d 00 dc 12 20 67 24 3d bd 28 a5 20 80 20 26 |..... g$=.(. . &|
00000170 44 46 29 0d 00 e6 15 fd 20 67 24 3d 22 59 22 20 |DF)..... g$="Y" |
00000180 84 20 67 24 3d 22 4e 22 0d 00 f0 0e e7 20 67 24 |. g$="N"..... g$|
00000190 3d 22 59 22 20 8c 0d 00 fa 22 20 2a 53 63 72 65 |="Y" ...." *Scre|
000001a0 65 6e 4c 6f 61 64 20 3c 70 6f 6f 64 6c 65 24 64 |enLoad <poodle$d|
000001b0 69 72 3e 2e 6d 6f 61 6e 0d 01 04 05 cc 0d 01 05 |ir>.moan........|
000001c0 06 20 db 0d 01 0e 16 20 e3 20 78 25 3d 30 20 b8 |. ..... . x%=0 .|
000001d0 20 33 32 30 20 88 20 31 35 0d 01 0f 11 20 20 e3 | 320 . 15.... .|
000001e0 20 69 25 3d 2d 33 20 b8 20 33 0d 01 10 15 20 20 | i%=-3 . 3.... |
000001f0 20 63 25 3d 20 32 35 35 2d 33 32 2a 94 69 25 0d | c%= 255-32*.i%.|
00000200 01 11 3d 20 20 20 c8 99 20 22 43 6f 6c 6f 75 72 |..= .. "Colour|
00000210 54 72 61 6e 73 5f 53 65 74 47 43 4f 4c 22 2c 28 |Trans_SetGCOL",(|
00000220 63 25 3c 3c 32 34 29 20 84 20 28 63 25 3c 3c 31 |c%<<24) . (c%<<1|
00000230 36 29 20 84 20 28 63 25 3c 3c 38 29 0d 01 12 23 |6) . (c%<<8)...#|
00000240 20 20 20 86 20 34 2a 28 78 25 2b 69 25 29 2c 30 | . 4*(x%+i%),0|
00000250 2c 34 2a 28 78 25 2b 69 25 29 2c 31 30 32 34 0d |,4*(x%+i%),1024.|
00000260 01 13 07 20 20 ed 0d 01 14 06 20 ed 0d 01 18 05 |... ..... .....|
00000270 cd 0d 01 22 04 0d 01 2c 05 87 0d 01 36 09 de 20 |..."...,....6.. |
00000280 73 20 38 0d 01 40 0a 21 73 3d 31 34 38 0d 01 4a |s 8..@.!s=148..J|
00000290 0a 73 21 34 3d 2d 31 0d 01 54 20 c8 99 20 22 4f |.s!4=-1..T .. "O|
000002a0 53 5f 52 65 61 64 56 64 75 56 61 72 69 61 62 6c |S_ReadVduVariabl|
000002b0 65 73 22 2c 73 2c 73 0d 01 5e 0d 73 63 72 65 65 |es",s,s..^.scree|
000002c0 6e 3d 21 73 0d 01 68 1e 73 63 72 65 65 6e 32 3d |n=!s..h.screen2=|
000002d0 73 63 72 65 65 6e 2b 78 73 69 7a 65 2a 79 73 69 |screen+xsize*ysi|
000002e0 7a 65 0d 01 72 1d e3 20 69 3d 30 20 b8 20 78 73 |ze..r.. i=0 . xs|
000002f0 69 7a 65 2a 79 73 69 7a 65 2d 31 20 88 20 34 0d |ize*ysize-1 . 4.|
00000300 01 7c 16 20 70 69 63 62 75 66 21 69 3d 73 63 72 |.|. picbuf!i=scr|
00000310 65 65 6e 21 69 0d 01 86 05 ed 0d 01 90 21 f2 63 |een!i........!.c|
00000320 6c 65 61 72 28 73 63 72 65 65 6e 2c 20 78 73 69 |lear(screen, xsi|
00000330 7a 65 2a 79 73 69 7a 65 2a 32 29 0d 01 9a 07 64 |ze*ysize*2)....d|
00000340 3d 31 0d 01 a4 05 f5 0d 01 ae 07 20 c8 96 0d 01 |=1......... ....|
00000350 b8 0f 20 c8 99 20 36 2c 31 31 32 2c 64 0d 01 c2 |.. .. 6,112,d...|
00000360 11 20 c8 99 20 36 2c 31 31 33 2c 33 2d 64 0d 01 |. .. 6,113,3-d..|
00000370 cc 0e 20 41 25 20 3d 20 62 75 66 30 0d 01 d6 0e |.. A% = buf0....|
00000380 20 42 25 20 3d 20 62 75 66 31 0d 01 e0 10 20 43 | B% = buf1.... C|
00000390 25 20 3d 20 73 63 72 65 65 6e 0d 01 ea 10 20 44 |% = screen.... D|
000003a0 25 20 3d 20 70 69 63 62 75 66 0d 01 f4 0d 20 d6 |% = picbuf.... .|
000003b0 20 70 75 64 64 6c 65 0d 01 fe 12 20 c8 94 20 62 | puddle.... .. b|
000003c0 75 66 30 2c 20 62 75 66 31 0d 02 08 17 20 c8 94 |uf0, buf1.... ..|
000003d0 20 73 63 72 65 65 6e 2c 20 73 63 72 65 65 6e 32 | screen, screen2|
000003e0 0d 02 12 0a 20 64 3d 33 2d 64 0d 02 1c 12 20 e7 |.... d=3-d.... .|
000003f0 20 b3 28 31 30 30 29 3c 31 32 20 8c 0d 02 26 12 | .(100)<12 ...&.|
00000400 20 20 20 78 3d b3 28 32 38 30 29 2b 32 30 0d 02 | x=.(280)+20..|
00000410 30 12 20 20 20 79 3d b3 28 32 31 30 29 2b 32 30 |0. y=.(210)+20|
00000420 0d 02 3a 25 20 20 20 f2 62 6c 6f 62 28 62 75 66 |..:% .blob(buf|
00000430 30 2c 20 78 2c 20 79 2c 20 35 30 30 2b b3 28 32 |0, x, y, 500+.(2|
00000440 30 30 30 29 29 0d 02 44 06 20 cd 0d 02 4e 07 fd |000))..D. ...N..|
00000450 20 a3 0d 02 58 05 e0 0d 02 62 04 0d 02 6c 14 dd | ...X....b...l..|
00000460 20 f2 63 6c 65 61 72 28 41 25 2c 20 42 25 29 0d | .clear(A%, B%).|
00000470 02 76 0b d6 20 63 6c 65 61 72 0d 02 80 05 e1 0d |.v.. clear......|
00000480 02 8a 04 0d 02 94 17 dd 20 f2 62 6c 6f 62 28 61 |........ .blob(a|
00000490 2c 20 78 2c 20 79 2c 20 64 29 0d 02 9e 12 e3 20 |, x, y, d)..... |
000004a0 78 31 3d 78 2d 34 20 b8 20 78 2b 34 0d 02 a8 13 |x1=x-4 . x+4....|
000004b0 20 e3 20 79 31 3d 79 2d 34 20 b8 20 79 2b 34 0d | . y1=y-4 . y+4.|
000004c0 02 b2 1d 20 20 21 28 61 2b 78 31 2a 34 2b 79 31 |... !(a+x1*4+y1|
000004d0 2a 78 73 69 7a 65 2a 34 29 2b 3d 64 0d 02 bc 06 |*xsize*4)+=d....|
000004e0 20 ed 0d 02 c6 05 ed 0d 02 d0 05 e1 0d 02 da 04 | ...............|
000004f0 0d 02 e4 0b dd 20 f2 63 6f 64 65 0d 02 ee 12 de |..... .code.....|
00000500 20 63 6f 64 65 20 31 36 2a 31 30 32 34 0d 02 f8 | code 16*1024...|
00000510 0b 63 75 72 20 3d 20 30 0d 03 02 0b 6f 6c 64 20 |.cur = 0....old |
00000520 3d 20 31 0d 03 0c 0b 73 63 72 20 3d 20 32 0d 03 |= 1....scr = 2..|
00000530 16 0b 70 69 63 20 3d 20 33 0d 03 20 0c 70 65 65 |..pic = 3.. .pee|
00000540 6b 20 3d 20 36 0d 03 2a 0c 70 6f 6b 65 20 3d 20 |k = 6..*.poke = |
00000550 37 0d 03 34 17 73 70 3d 31 33 3a 6c 69 6e 6b 3d |7..4.sp=13:link=|
00000560 31 34 3a 70 63 3d 31 35 0d 03 3e 1c e3 20 70 61 |14:pc=15..>.. pa|
00000570 73 73 3d 30 20 b8 20 32 20 88 20 32 3a 50 25 3d |ss=0 . 2 . 2:P%=|
00000580 63 6f 64 65 0d 03 48 0d 5b 4f 50 54 20 70 61 73 |code..H.[OPT pas|
00000590 73 0d 03 52 0b 2e 70 75 64 64 6c 65 0d 03 5c 21 |s..R..puddle..\!|
000005a0 20 20 20 20 53 54 4d 46 44 20 28 73 70 29 21 2c | STMFD (sp)!,|
000005b0 7b 72 30 2d 72 31 32 2c 6c 69 6e 6b 7d 0d 03 66 |{r0-r12,link}..f|
000005c0 20 20 20 20 20 41 44 44 20 63 75 72 2c 20 63 75 | ADD cur, cu|
000005d0 72 2c 20 23 78 73 69 7a 65 20 2a 20 34 0d 03 70 |r, #xsize * 4..p|
000005e0 20 20 20 20 20 41 44 44 20 6f 6c 64 2c 20 6f 6c | ADD old, ol|
000005f0 64 2c 20 23 78 73 69 7a 65 20 2a 20 34 0d 03 7a |d, #xsize * 4..z|
00000600 21 20 20 20 20 41 44 44 20 70 6f 6b 65 2c 20 73 |! ADD poke, s|
00000610 63 72 2c 20 23 78 73 69 7a 65 20 2a 20 32 0d 03 |cr, #xsize * 2..|
00000620 84 21 20 20 20 20 41 44 44 20 70 65 65 6b 2c 20 |.! ADD peek, |
00000630 70 69 63 2c 20 23 78 73 69 7a 65 20 2a 20 32 0d |pic, #xsize * 2.|
00000640 03 8e 1f 20 20 20 20 4d 4f 56 20 72 31 32 2c 20 |... MOV r12, |
00000650 23 79 73 69 7a 65 20 2a 20 78 73 69 7a 65 0d 03 |#ysize * xsize..|
00000660 98 20 20 20 20 20 53 55 42 20 72 31 32 2c 20 72 |. SUB r12, r|
00000670 31 32 2c 20 23 32 20 2a 20 78 73 69 7a 65 0d 03 |12, #2 * xsize..|
00000680 a2 16 20 20 20 20 53 55 42 20 6f 6c 64 2c 6f 6c |.. SUB old,ol|
00000690 64 2c 23 34 0d 03 ac 1d 20 20 20 20 4c 44 4d 49 |d,#4.... LDMI|
000006a0 41 20 28 6f 6c 64 29 21 2c 7b 72 38 2d 72 31 30 |A (old)!,{r8-r10|
000006b0 7d 0d 03 b6 09 2e 6c 6f 6f 70 0d 03 c0 05 5d 0d |}.....loop....].|
000006c0 03 ca 13 e3 20 62 79 74 65 25 20 3d 20 30 20 b8 |.... byte% = 0 .|
000006d0 20 33 0d 03 d4 0d 5b 4f 50 54 20 70 61 73 73 0d | 3....[OPT pass.|
000006e0 03 de 16 20 20 20 20 41 44 44 20 72 34 2c 20 72 |... ADD r4, r|
000006f0 38 2c 72 31 30 0d 03 e8 08 20 20 20 20 0d 03 f2 |8,r10.... ...|
00000700 26 20 20 20 20 4c 44 52 20 72 35 2c 20 5b 6f 6c |& LDR r5, [ol|
00000710 64 2c 20 23 2d 78 73 69 7a 65 20 2a 20 34 20 2d |d, #-xsize * 4 -|
00000720 20 38 5d 0d 03 fc 16 20 20 20 20 41 44 44 20 72 | 8].... ADD r|
00000730 34 2c 20 72 34 2c 20 72 35 0d 04 06 25 20 20 20 |4, r4, r5...% |
00000740 20 4c 44 52 20 72 35 2c 20 5b 6f 6c 64 2c 20 23 | LDR r5, [old, #|
00000750 78 73 69 7a 65 20 2a 20 34 20 2d 20 38 5d 0d 04 |xsize * 4 - 8]..|
00000760 10 16 20 20 20 20 41 44 44 20 72 34 2c 20 72 34 |.. ADD r4, r4|
00000770 2c 20 72 35 0d 04 1a 1a 20 20 20 20 4d 4f 56 20 |, r5.... MOV |
00000780 72 34 2c 20 72 34 2c 20 41 53 52 20 23 31 0d 04 |r4, r4, ASR #1..|
00000790 24 15 20 20 20 20 4c 44 52 20 72 35 2c 20 5b 63 |$. LDR r5, [c|
000007a0 75 72 5d 0d 04 2e 16 20 20 20 20 53 55 42 20 72 |ur].... SUB r|
000007b0 34 2c 20 72 34 2c 20 72 35 0d 04 38 1e 20 20 20 |4, r4, r5..8. |
000007c0 20 53 55 42 20 72 34 2c 20 72 34 2c 20 72 34 2c | SUB r4, r4, r4,|
000007d0 20 41 53 52 20 23 35 0d 04 42 08 20 20 20 20 0d | ASR #5..B. .|
000007e0 04 4c 19 20 20 20 20 53 54 52 20 72 34 2c 20 5b |.L. STR r4, [|
000007f0 63 75 72 5d 2c 20 23 34 0d 04 56 04 0d 04 60 12 |cur], #4..V...`.|
00000800 20 20 20 20 4d 4f 56 20 72 38 2c 20 72 39 0d 04 | MOV r8, r9..|
00000810 6a 13 20 20 20 20 4d 4f 56 20 72 39 2c 20 72 31 |j. MOV r9, r1|
00000820 30 0d 04 74 18 20 20 20 20 4c 44 52 20 72 31 30 |0..t. LDR r10|
00000830 2c 5b 6f 6c 64 5d 2c 23 34 0d 04 7e 04 0d 04 88 |,[old],#4..~....|
00000840 23 20 20 20 20 4c 44 52 42 20 72 35 2c 20 5b 70 |# LDRB r5, [p|
00000850 65 65 6b 2c 20 72 34 2c 20 41 53 52 20 23 35 5d |eek, r4, ASR #5]|
00000860 0d 04 92 1a 20 20 20 20 4d 4f 56 20 72 31 34 2c |.... MOV r14,|
00000870 72 31 34 2c 4c 53 52 20 23 38 0d 04 9c 1e 20 20 |r14,LSR #8.... |
00000880 20 20 84 52 20 72 31 34 2c 72 31 34 2c 72 35 2c | .R r14,r14,r5,|
00000890 20 4c 53 4c 20 23 32 34 0d 04 a6 08 20 20 20 20 | LSL #24.... |
000008a0 0d 04 b0 1a 20 20 20 20 41 44 44 20 70 65 65 6b |.... ADD peek|
000008b0 2c 20 70 65 65 6b 2c 20 23 31 0d 04 ba 05 5d 0d |, peek, #1....].|
000008c0 04 c4 0b ed 20 62 79 74 65 25 0d 04 ce 0d 5b 4f |.... byte%....[O|
000008d0 50 54 20 70 61 73 73 0d 04 d8 19 20 20 20 20 53 |PT pass.... S|
000008e0 54 52 20 72 31 34 2c 5b 70 6f 6b 65 5d 2c 23 34 |TR r14,[poke],#4|
000008f0 0d 04 e2 08 20 20 20 20 0d 04 ec 19 20 20 20 20 |.... .... |
00000900 53 55 42 53 20 72 31 32 2c 20 72 31 32 2c 20 23 |SUBS r12, r12, #|
00000910 34 0d 04 f6 10 20 20 20 20 42 4e 45 20 6c 6f 6f |4.... BNE loo|
00000920 70 0d 05 00 1f 20 20 20 20 4c 44 4d 46 44 20 28 |p.... LDMFD (|
00000930 73 70 29 21 2c 7b 72 30 2d 72 31 32 2c 70 63 7d |sp)!,{r0-r12,pc}|
00000940 0d 05 0a 08 20 20 20 20 0d 05 14 0a 2e 63 6c 65 |.... .....cle|
00000950 61 72 0d 05 1e 12 20 20 20 20 4d 4f 56 20 72 32 |ar.... MOV r2|
00000960 2c 20 23 30 0d 05 28 0a 2e 63 6c 6f 6f 70 0d 05 |, #0..(..cloop..|
00000970 32 17 20 20 20 20 53 54 52 20 72 32 2c 5b 72 30 |2. STR r2,[r0|
00000980 5d 2c 20 23 34 0d 05 3c 17 20 20 20 20 53 55 42 |], #4..<. SUB|
00000990 53 20 72 31 2c 20 72 31 2c 20 23 34 0d 05 46 11 |S r1, r1, #4..F.|
000009a0 20 20 20 20 42 50 4c 20 63 6c 6f 6f 70 0d 05 50 | BPL cloop..P|
000009b0 13 20 20 20 20 4d 4f 56 20 70 63 2c 6c 69 6e 6b |. MOV pc,link|
000009c0 0d 05 5a 06 5d ed 0d 05 64 05 e1 0d ff |..Z.]...d....|
000009cd 
.