Home » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars » StarInfo/Adcock/rgb
StarInfo/Adcock/rgb
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/rgb |
| Read OK: | ✔ |
| File size: | 0818 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1ON ERROR ON ERROR OFF:CLS:REPEAT:PROCCircle(RND(480),RND(352),RND(100),1<<(RND(3)-1)):UNTIL0
2DIM m 64:m!0=&1:m!4=&1E0:m!8=&160:m!12=&5:m!16=&FFFFFFFF:m!20=&FFFFFFFF:m!24=&35322220:m!28=&3D3A2236:m!32=&BB000D33:m!36=&20C92021:m!40=&54323322:m!44=&33222C22:m!48=&2C227432:m!52=&4B323322:m!56=&33222C22:m!60=&3A226B32:MODE m
3reseed%=RND(-TIME)
4PROCBA
5PROCAss
6OFF
7COP=50
8DIM X(COP),Y(COP)
9REPEAT
10X=RND(430)+25
11Y=RND(302)+25
12PX=RND(300)+100
13D=RND(360):DP=(RND(5)+5)*SGN(RND)/10
14PXP=RND(5)*SGN(RND)
15FOR N = 1 TO COP
16PX=PX+PXP
17PROCRot(PX-X,-Y,N*DP+D)
18X(N)=NX+X
19Y(N)=NY+Y
20NEXT N
21p%=1<<(RND(3)-1)
22FOR COD = 1 TO 20
23S=5
24FOR XOD=COD*2 TO COP
25S=S+(45-COD*1.9)/(COP-COD)
26PROCCircle(X(XOD),Y(XOD),S,p%)
27NEXT XOD
28NEXT COD
29UNTIL INKEY-99
30CLS:REPEAT:PROCCircle(RND(480),RND(352),RND(100),1<<(RND(3)-1)):UNTIL 0
31END
32DEF PROCRot(RX,RY,RD)
33R=RAD(-RD)
34NX=RX*COS(R)-RY*SIN(R)
35NY=RX*SIN(R)+RY*COS(R)
36ENDPROC
37DEF PROCCircle(A%,B%,C%,D%):CALL Circle:ENDPROC
38DEF PROCAss
39DIM Circle%256
40FOR PASS=0TO2STEP2
41P%=Circle%
42[OPTPASS
43.max EQUD BA%+352*480*4
44.BA_adr EQUD BA%
45.Circle ANDS r4,r3,#1
46MOVGT R5,#&ff
47MOVGT R6,#&01
48ANDS r4,r3,#2
49MOVGT R5,#&ff00
50MOVGT R6,#&0100
51ANDS r4,r3,#4
52MOVGT R5,#&ff0000
53MOVGT R6,#&010000
54MVN R7,R5
55SUB R0,R0,R2,LSR#1
56SUB R1,R1,R2,LSR#1
57LDR R8,BA_adr
58MOV R4,#1920
59MLA R8,R4,R1,R8
60MOV R4,#4
61MLA R8,R4,R0,R8
62RSB R9,R2,#480
63MOV R9,R9,LSL#2
64MOV R4,R2,LSR#1
65SUB R0,R2,#1
66.xloop SUB R1,R2,#1
67.yloop LDR R10,max
68CMP R8,R10
69BGE Skip
70LDR R10,BA_adr
71CMP R8,R10
72BLE Skip
73LDR R11,[R8]
74AND R12,R11,R5
75ADD R12,R12,R6
76ANDS R4,R12,R5
77SUBEQ R12,R12,R6
78MOV R4,R2,LSR#1
79SUB R4,R0,R4
80MOV R10,R4
81MUL R4,R10,R4
82MOV R10,R2,LSR#1
83SUB R10,R1,R10
84MOV R3,R10
85MUL R10,R3,R10
86ADD R10,R10,R4
87MOV R3,R2,LSR#1
88MUL R4,R3,R3
89CMP R4,R10
90BLE Skip
91AND R4,R11,R7
92ORR R4,R4,R12
93STR R4,[R8]
94.Skip ADD R8,R8,#4
95SUBS R1,R1,#1
96BGE yloop
97ADD R8,R8,R9
98SUBS R0,R0,#1
99BGE xloop
100MOV R15,R14
101]
102NEXT PASS
103ENDPROC
104:
105DEF PROCBA:DIM i 8:DIM o 4:i!0=149:i!4=-1:SYS "OS_ReadVduVariables",i,o:BA%=o!0:ENDPROC
?� � � � �:�:�:�Circle(�(480),�(352),�(100),1<<(�(3)-1)):�0 �� m 64:m!0=&1:m!4=&1E0:m!8=&160:m!12=&5:m!16=&FFFFFFFF:m!20=&FFFFFFFF:m!24=&35322220:m!28=&3D3A2236:m!32=&BB000D33:m!36=&20C92021:m!40=&54323322:m!44=&33222C22:m!48=&2C227432:m!52=&4B323322:m!56=&33222C22:m!60=&3A226B32:� m reseed%=�(-�) �BA �Ass � COP=50 � X(COP),Y(COP) � X=�(430)+25 Y=�(302)+25 PX=�(300)+100 D=�(360):DP=(�(5)+5)*�(�)/10 PXP=�(5)*�(�) � N = 1 � COP PX=PX+PXP �Rot(PX-X,-Y,N*DP+D) X(N)=NX+X Y(N)=NY+Y � N p%=1<<(�(3)-1) � COD = 1 � 20 S=5 � XOD=COD*2 � COP S=S+(45-COD*1.9)/(COP-COD) �Circle(X(XOD),Y(XOD),S,p%) � XOD � COD � �-99 5�:�:�Circle(�(480),�(352),�(100),1<<(�(3)-1)):� 0 � � �Rot(RX,RY,RD) ! R=�(-RD) "NX=RX*�(R)-RY*�(R) #NY=RX*�(R)+RY*�(R) $� %%� �Circle(A%,B%,C%,D%):� Circle:� & � �Ass '� Circle%256 (� PASS=0�2�2 )P%=Circle% * [OPTPASS +.max EQUD BA%+352*480*4 ,.BA_adr EQUD BA% -.Circle �S r4,r3,#1 .MOVGT R5,#&ff /MOVGT R6,#&01 0�S r4,r3,#2 1MOVGT R5,#&ff00 2MOVGT R6,#&0100 3�S r4,r3,#4 4MOVGT R5,#&ff0000 5MOVGT R6,#&010000 6 MVN R7,R5 7SUB R0,R0,R2,LSR#1 8SUB R1,R1,R2,LSR#1 9LDR R8,BA_adr :MOV R4,#1920 ;MLA R8,R4,R1,R8 < MOV R4,#4 =MLA R8,R4,R0,R8 >RSB R9,R2,#480 ?MOV R9,R9,LSL#2 @ MOV R4,R2,LSR#1 ASUB R0,R2,#1 B.xloop SUB R1,R2,#1 C.yloop LDR R10,max DCMP R8,R10 E BGE Skip FLDR R10,BA_adr GCMP R8,R10 H BLE Skip ILDR R11,[R8] J� R12,R11,R5 KADD R12,R12,R6 L�S R4,R12,R5 MSUBEQ R12,R12,R6 NMOV R4,R2,LSR#1 OSUB R4,R0,R4 PMOV R10,R4 QMUL R4,R10,R4 RMOV R10,R2,LSR#1 SSUB R10,R1,R10 TMOV R3,R10 UMUL R10,R3,R10 VADD R10,R10,R4 WMOV R3,R2,LSR#1 XMUL R4,R3,R3 YCMP R4,R10 ZBLE Skip [� R4,R11,R7 \�R R4,R4,R12 ]STR R4,[R8] ^.Skip ADD R8,R8,#4 _SUBS R1,R1,#1 ` BGE yloop aADD R8,R8,R9 bSUBS R0,R0,#1 c BGE xloop dMOV R15,R14 e] f � PASS g� h: iK� �BA:� i 8:� o 4:i!0=149:i!4=-1:ș "OS_ReadVduVariables",i,o:BA%=o!0:� �
00000000 0d 00 01 3f ee 20 85 20 ee 20 85 20 87 3a db 3a |...?. . . . .:.:| 00000010 f5 3a f2 43 69 72 63 6c 65 28 b3 28 34 38 30 29 |.:.Circle(.(480)| 00000020 2c b3 28 33 35 32 29 2c b3 28 31 30 30 29 2c 31 |,.(352),.(100),1| 00000030 3c 3c 28 b3 28 33 29 2d 31 29 29 3a fd 30 20 0d |<<(.(3)-1)):.0 .| 00000040 00 02 e3 de 20 6d 20 36 34 3a 6d 21 30 3d 26 31 |.... m 64:m!0=&1| 00000050 3a 6d 21 34 3d 26 31 45 30 3a 6d 21 38 3d 26 31 |:m!4=&1E0:m!8=&1| 00000060 36 30 3a 6d 21 31 32 3d 26 35 3a 6d 21 31 36 3d |60:m!12=&5:m!16=| 00000070 26 46 46 46 46 46 46 46 46 3a 6d 21 32 30 3d 26 |&FFFFFFFF:m!20=&| 00000080 46 46 46 46 46 46 46 46 3a 6d 21 32 34 3d 26 33 |FFFFFFFF:m!24=&3| 00000090 35 33 32 32 32 32 30 3a 6d 21 32 38 3d 26 33 44 |5322220:m!28=&3D| 000000a0 33 41 32 32 33 36 3a 6d 21 33 32 3d 26 42 42 30 |3A2236:m!32=&BB0| 000000b0 30 30 44 33 33 3a 6d 21 33 36 3d 26 32 30 43 39 |00D33:m!36=&20C9| 000000c0 32 30 32 31 3a 6d 21 34 30 3d 26 35 34 33 32 33 |2021:m!40=&54323| 000000d0 33 32 32 3a 6d 21 34 34 3d 26 33 33 32 32 32 43 |322:m!44=&33222C| 000000e0 32 32 3a 6d 21 34 38 3d 26 32 43 32 32 37 34 33 |22:m!48=&2C22743| 000000f0 32 3a 6d 21 35 32 3d 26 34 42 33 32 33 33 32 32 |2:m!52=&4B323322| 00000100 3a 6d 21 35 36 3d 26 33 33 32 32 32 43 32 32 3a |:m!56=&33222C22:| 00000110 6d 21 36 30 3d 26 33 41 32 32 36 42 33 32 3a eb |m!60=&3A226B32:.| 00000120 20 6d 0d 00 03 11 72 65 73 65 65 64 25 3d b3 28 | m....reseed%=.(| 00000130 2d 91 29 0d 00 04 07 f2 42 41 0d 00 05 08 f2 41 |-.).....BA.....A| 00000140 73 73 0d 00 06 05 87 0d 00 07 0a 43 4f 50 3d 35 |ss.........COP=5| 00000150 30 0d 00 08 13 de 20 58 28 43 4f 50 29 2c 59 28 |0..... X(COP),Y(| 00000160 43 4f 50 29 0d 00 09 05 f5 0d 00 0a 0f 58 3d b3 |COP).........X=.| 00000170 28 34 33 30 29 2b 32 35 0d 00 0b 0f 59 3d b3 28 |(430)+25....Y=.(| 00000180 33 30 32 29 2b 32 35 0d 00 0c 11 50 58 3d b3 28 |302)+25....PX=.(| 00000190 33 30 30 29 2b 31 30 30 0d 00 0d 20 44 3d b3 28 |300)+100... D=.(| 000001a0 33 36 30 29 3a 44 50 3d 28 b3 28 35 29 2b 35 29 |360):DP=(.(5)+5)| 000001b0 2a b4 28 b3 29 2f 31 30 0d 00 0e 11 50 58 50 3d |*.(.)/10....PXP=| 000001c0 b3 28 35 29 2a b4 28 b3 29 0d 00 0f 11 e3 20 4e |.(5)*.(.)..... N| 000001d0 20 3d 20 31 20 b8 20 43 4f 50 0d 00 10 0d 50 58 | = 1 . COP....PX| 000001e0 3d 50 58 2b 50 58 50 0d 00 11 18 f2 52 6f 74 28 |=PX+PXP.....Rot(| 000001f0 50 58 2d 58 2c 2d 59 2c 4e 2a 44 50 2b 44 29 0d |PX-X,-Y,N*DP+D).| 00000200 00 12 0d 58 28 4e 29 3d 4e 58 2b 58 0d 00 13 0d |...X(N)=NX+X....| 00000210 59 28 4e 29 3d 4e 59 2b 59 0d 00 14 07 ed 20 4e |Y(N)=NY+Y..... N| 00000220 0d 00 15 12 70 25 3d 31 3c 3c 28 b3 28 33 29 2d |....p%=1<<(.(3)-| 00000230 31 29 0d 00 16 12 e3 20 43 4f 44 20 3d 20 31 20 |1)..... COD = 1 | 00000240 b8 20 32 30 0d 00 17 07 53 3d 35 0d 00 18 15 e3 |. 20....S=5.....| 00000250 20 58 4f 44 3d 43 4f 44 2a 32 20 b8 20 43 4f 50 | XOD=COD*2 . COP| 00000260 0d 00 19 1e 53 3d 53 2b 28 34 35 2d 43 4f 44 2a |....S=S+(45-COD*| 00000270 31 2e 39 29 2f 28 43 4f 50 2d 43 4f 44 29 0d 00 |1.9)/(COP-COD)..| 00000280 1a 1f f2 43 69 72 63 6c 65 28 58 28 58 4f 44 29 |...Circle(X(XOD)| 00000290 2c 59 28 58 4f 44 29 2c 53 2c 70 25 29 0d 00 1b |,Y(XOD),S,p%)...| 000002a0 09 ed 20 58 4f 44 0d 00 1c 09 ed 20 43 4f 44 0d |.. XOD..... COD.| 000002b0 00 1d 0a fd 20 a6 2d 39 39 0d 00 1e 35 db 3a f5 |.... .-99...5.:.| 000002c0 3a f2 43 69 72 63 6c 65 28 b3 28 34 38 30 29 2c |:.Circle(.(480),| 000002d0 b3 28 33 35 32 29 2c b3 28 31 30 30 29 2c 31 3c |.(352),.(100),1<| 000002e0 3c 28 b3 28 33 29 2d 31 29 29 3a fd 20 30 0d 00 |<(.(3)-1)):. 0..| 000002f0 1f 05 e0 0d 00 20 14 dd 20 f2 52 6f 74 28 52 58 |..... .. .Rot(RX| 00000300 2c 52 59 2c 52 44 29 0d 00 21 0c 52 3d b2 28 2d |,RY,RD)..!.R=.(-| 00000310 52 44 29 0d 00 22 16 4e 58 3d 52 58 2a 9b 28 52 |RD)..".NX=RX*.(R| 00000320 29 2d 52 59 2a b5 28 52 29 0d 00 23 16 4e 59 3d |)-RY*.(R)..#.NY=| 00000330 52 58 2a b5 28 52 29 2b 52 59 2a 9b 28 52 29 0d |RX*.(R)+RY*.(R).| 00000340 00 24 05 e1 0d 00 25 25 dd 20 f2 43 69 72 63 6c |.$....%%. .Circl| 00000350 65 28 41 25 2c 42 25 2c 43 25 2c 44 25 29 3a d6 |e(A%,B%,C%,D%):.| 00000360 20 43 69 72 63 6c 65 3a e1 0d 00 26 0a dd 20 f2 | Circle:...&.. .| 00000370 41 73 73 0d 00 27 10 de 20 43 69 72 63 6c 65 25 |Ass..'.. Circle%| 00000380 32 35 36 0d 00 28 10 e3 20 50 41 53 53 3d 30 b8 |256..(.. PASS=0.| 00000390 32 88 32 0d 00 29 0e 50 25 3d 43 69 72 63 6c 65 |2.2..).P%=Circle| 000003a0 25 0d 00 2a 0c 5b 4f 50 54 50 41 53 53 0d 00 2b |%..*.[OPTPASS..+| 000003b0 1b 2e 6d 61 78 20 45 51 55 44 20 42 41 25 2b 33 |..max EQUD BA%+3| 000003c0 35 32 2a 34 38 30 2a 34 0d 00 2c 14 2e 42 41 5f |52*480*4..,..BA_| 000003d0 61 64 72 20 45 51 55 44 20 42 41 25 0d 00 2d 17 |adr EQUD BA%..-.| 000003e0 2e 43 69 72 63 6c 65 20 80 53 20 72 34 2c 72 33 |.Circle .S r4,r3| 000003f0 2c 23 31 0d 00 2e 11 4d 4f 56 47 54 20 52 35 2c |,#1....MOVGT R5,| 00000400 23 26 66 66 0d 00 2f 11 4d 4f 56 47 54 20 52 36 |#&ff../.MOVGT R6| 00000410 2c 23 26 30 31 0d 00 30 0f 80 53 20 72 34 2c 72 |,#&01..0..S r4,r| 00000420 33 2c 23 32 0d 00 31 13 4d 4f 56 47 54 20 52 35 |3,#2..1.MOVGT R5| 00000430 2c 23 26 66 66 30 30 0d 00 32 13 4d 4f 56 47 54 |,#&ff00..2.MOVGT| 00000440 20 52 36 2c 23 26 30 31 30 30 0d 00 33 0f 80 53 | R6,#&0100..3..S| 00000450 20 72 34 2c 72 33 2c 23 34 0d 00 34 15 4d 4f 56 | r4,r3,#4..4.MOV| 00000460 47 54 20 52 35 2c 23 26 66 66 30 30 30 30 0d 00 |GT R5,#&ff0000..| 00000470 35 15 4d 4f 56 47 54 20 52 36 2c 23 26 30 31 30 |5.MOVGT R6,#&010| 00000480 30 30 30 0d 00 36 0d 4d 56 4e 20 52 37 2c 52 35 |000..6.MVN R7,R5| 00000490 0d 00 37 16 53 55 42 20 52 30 2c 52 30 2c 52 32 |..7.SUB R0,R0,R2| 000004a0 2c 4c 53 52 23 31 0d 00 38 16 53 55 42 20 52 31 |,LSR#1..8.SUB R1| 000004b0 2c 52 31 2c 52 32 2c 4c 53 52 23 31 0d 00 39 11 |,R1,R2,LSR#1..9.| 000004c0 4c 44 52 20 52 38 2c 42 41 5f 61 64 72 0d 00 3a |LDR R8,BA_adr..:| 000004d0 10 4d 4f 56 20 52 34 2c 23 31 39 32 30 0d 00 3b |.MOV R4,#1920..;| 000004e0 13 4d 4c 41 20 52 38 2c 52 34 2c 52 31 2c 52 38 |.MLA R8,R4,R1,R8| 000004f0 0d 00 3c 0d 4d 4f 56 20 52 34 2c 23 34 0d 00 3d |..<.MOV R4,#4..=| 00000500 13 4d 4c 41 20 52 38 2c 52 34 2c 52 30 2c 52 38 |.MLA R8,R4,R0,R8| 00000510 0d 00 3e 12 52 53 42 20 52 39 2c 52 32 2c 23 34 |..>.RSB R9,R2,#4| 00000520 38 30 0d 00 3f 13 4d 4f 56 20 52 39 2c 52 39 2c |80..?.MOV R9,R9,| 00000530 4c 53 4c 23 32 0d 00 40 20 4d 4f 56 20 52 34 2c |LSL#2..@ MOV R4,| 00000540 52 32 2c 4c 53 52 23 31 20 20 20 20 20 20 20 20 |R2,LSR#1 | 00000550 20 20 20 20 20 0d 00 41 10 53 55 42 20 52 30 2c | ..A.SUB R0,| 00000560 52 32 2c 23 31 0d 00 42 17 2e 78 6c 6f 6f 70 20 |R2,#1..B..xloop | 00000570 53 55 42 20 52 31 2c 52 32 2c 23 31 0d 00 43 16 |SUB R1,R2,#1..C.| 00000580 2e 79 6c 6f 6f 70 20 4c 44 52 20 52 31 30 2c 6d |.yloop LDR R10,m| 00000590 61 78 0d 00 44 0e 43 4d 50 20 52 38 2c 52 31 30 |ax..D.CMP R8,R10| 000005a0 0d 00 45 0c 42 47 45 20 53 6b 69 70 0d 00 46 12 |..E.BGE Skip..F.| 000005b0 4c 44 52 20 52 31 30 2c 42 41 5f 61 64 72 0d 00 |LDR R10,BA_adr..| 000005c0 47 0e 43 4d 50 20 52 38 2c 52 31 30 0d 00 48 0c |G.CMP R8,R10..H.| 000005d0 42 4c 45 20 53 6b 69 70 0d 00 49 10 4c 44 52 20 |BLE Skip..I.LDR | 000005e0 52 31 31 2c 5b 52 38 5d 0d 00 4a 10 80 20 52 31 |R11,[R8]..J.. R1| 000005f0 32 2c 52 31 31 2c 52 35 0d 00 4b 12 41 44 44 20 |2,R11,R5..K.ADD | 00000600 52 31 32 2c 52 31 32 2c 52 36 0d 00 4c 10 80 53 |R12,R12,R6..L..S| 00000610 20 52 34 2c 52 31 32 2c 52 35 0d 00 4d 14 53 55 | R4,R12,R5..M.SU| 00000620 42 45 51 20 52 31 32 2c 52 31 32 2c 52 36 0d 00 |BEQ R12,R12,R6..| 00000630 4e 13 4d 4f 56 20 52 34 2c 52 32 2c 4c 53 52 23 |N.MOV R4,R2,LSR#| 00000640 31 0d 00 4f 10 53 55 42 20 52 34 2c 52 30 2c 52 |1..O.SUB R4,R0,R| 00000650 34 0d 00 50 0e 4d 4f 56 20 52 31 30 2c 52 34 0d |4..P.MOV R10,R4.| 00000660 00 51 11 4d 55 4c 20 52 34 2c 52 31 30 2c 52 34 |.Q.MUL R4,R10,R4| 00000670 0d 00 52 14 4d 4f 56 20 52 31 30 2c 52 32 2c 4c |..R.MOV R10,R2,L| 00000680 53 52 23 31 0d 00 53 12 53 55 42 20 52 31 30 2c |SR#1..S.SUB R10,| 00000690 52 31 2c 52 31 30 0d 00 54 0e 4d 4f 56 20 52 33 |R1,R10..T.MOV R3| 000006a0 2c 52 31 30 0d 00 55 12 4d 55 4c 20 52 31 30 2c |,R10..U.MUL R10,| 000006b0 52 33 2c 52 31 30 0d 00 56 12 41 44 44 20 52 31 |R3,R10..V.ADD R1| 000006c0 30 2c 52 31 30 2c 52 34 0d 00 57 13 4d 4f 56 20 |0,R10,R4..W.MOV | 000006d0 52 33 2c 52 32 2c 4c 53 52 23 31 0d 00 58 10 4d |R3,R2,LSR#1..X.M| 000006e0 55 4c 20 52 34 2c 52 33 2c 52 33 0d 00 59 0e 43 |UL R4,R3,R3..Y.C| 000006f0 4d 50 20 52 34 2c 52 31 30 0d 00 5a 19 42 4c 45 |MP R4,R10..Z.BLE| 00000700 20 53 6b 69 70 20 20 20 20 20 20 20 20 20 20 20 | Skip | 00000710 20 20 0d 00 5b 0f 80 20 52 34 2c 52 31 31 2c 52 | ..[.. R4,R11,R| 00000720 37 0d 00 5c 10 84 52 20 52 34 2c 52 34 2c 52 31 |7..\..R R4,R4,R1| 00000730 32 0d 00 5d 0f 53 54 52 20 52 34 2c 5b 52 38 5d |2..].STR R4,[R8]| 00000740 0d 00 5e 17 2e 53 6b 69 70 20 41 44 44 20 20 52 |..^..Skip ADD R| 00000750 38 2c 52 38 2c 23 34 0d 00 5f 11 53 55 42 53 20 |8,R8,#4.._.SUBS | 00000760 52 31 2c 52 31 2c 23 31 0d 00 60 0d 42 47 45 20 |R1,R1,#1..`.BGE | 00000770 79 6c 6f 6f 70 0d 00 61 10 41 44 44 20 52 38 2c |yloop..a.ADD R8,| 00000780 52 38 2c 52 39 0d 00 62 11 53 55 42 53 20 52 30 |R8,R9..b.SUBS R0| 00000790 2c 52 30 2c 23 31 0d 00 63 0d 42 47 45 20 78 6c |,R0,#1..c.BGE xl| 000007a0 6f 6f 70 0d 00 64 0f 4d 4f 56 20 52 31 35 2c 52 |oop..d.MOV R15,R| 000007b0 31 34 0d 00 65 05 5d 0d 00 66 0a ed 20 50 41 53 |14..e.]..f.. PAS| 000007c0 53 0d 00 67 05 e1 0d 00 68 05 3a 0d 00 69 4b dd |S..g....h.:..iK.| 000007d0 20 f2 42 41 3a de 20 69 20 38 3a de 20 6f 20 34 | .BA:. i 8:. o 4| 000007e0 3a 69 21 30 3d 31 34 39 3a 69 21 34 3d 2d 31 3a |:i!0=149:i!4=-1:| 000007f0 c8 99 20 22 4f 53 5f 52 65 61 64 56 64 75 56 61 |.. "OS_ReadVduVa| 00000800 72 69 61 62 6c 65 73 22 2c 69 2c 6f 3a 42 41 25 |riables",i,o:BA%| 00000810 3d 6f 21 30 3a e1 0d ff |=o!0:...| 00000818
.