Home » Archimedes archive » Acorn User » AU 1997-06 B.adf » Regulars » StarInfo/Thomas/Rock'nRoll
StarInfo/Thomas/Rock'nRoll
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-06 B.adf » Regulars |
| Filename: | StarInfo/Thomas/Rock'nRoll |
| Read OK: | ✔ |
| File size: | 100D bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Rock'nRoll
11REM =========================================================================
20REM Rock drawing program
30REM by David Thomas, 1996
31REM =========================================================================
40
50ON ERROR PRINT REPORT$;" at line ";ERL:END
60
70DIM vdu% 23
80
90REM !vdu%=1:vdu%!4=640:vdu%!8=480:vdu%!12=3:vdu%!16=-1:vdu%!20=-1
100REM MODE vdu%
110
120MODE 28:CLS:OFF
130
140PRINT "Rock'nRoll"'"=========="'"by David Thomas, 1996"'
150PRINT "Draw using SELECT, Rock-ify using ADJUST"'
160PRINT "Keys :"'
170PRINT "[+]/[-]","Increase/Decrease the brush size"
180PRINT "[C]","Clear the screen"
190PRINT "[S]","Save the screen as 'Rock'"
220PRINT "[Z]/[X]","Increase decrease factor (powers of two work best)"
230PRINT "[A]","Re-assemble the code for new factor"
240PRINT '"Click to continue..."
250
260REPEAT
270 MOUSE x,y,b
280UNTIL b
281
282CLS
290
300PROCmode_info
310
320DIM rock% w%*h%
330factor=32
340PROCassemble
350MOUSE ON
360brush%=32
370REPEAT
380 REPEAT
390 MOUSE x%,y%,b%
400 IF b%=4 THEN CIRCLE FILL x%,y%,brush%
410 CASE INKEY$(0) OF
420 WHEN "+":brush%+=1
430 WHEN "-":brush%-=1
440 WHEN "C","c":CLS
450 WHEN "S","s":OSCLI "ScreenSave Rock"
470 WHEN "Z","z":factor+=1:PRINTTAB(0,0);factor
480 WHEN "X","x":factor-=1:PRINTTAB(0,0);factor
490 WHEN "A","a":PROCassemble
510 ENDCASE
520 UNTIL b%=1
530 A%=rock%:B%=&80808080:C%=w%*h%:CALL fill
540 A%=rock%:B%=!vdu%:CALL rock
550UNTIL FALSE
560END
570
580DEF PROCassemble
590pixel=1:pixel2=2:out=3:x=4:y=5:lookup=10:screen=11
600DIM code% 1280
610FOR opt%=0 TO 2 STEP 2
620P%=code%
630[ OPT opt%
640
650.fill
660 ADD r2, r2, r0
670.fill_loop
680 STR r1, [r0], #4
690 CMP r0, r2
700 BLT fill_loop
710 MOV pc, r14
720
730.rock
740 STMFD r13!, {r8-r12, r14}
750
760 ADD out, r0, #w%
770 ADD out, out, #1
780 LDR r8, seed
790 LDR r9, bitmap
800 ADR lookup, table ; *
810 ADD screen, r1, #w% ; *
820 ADD screen, screen, #1 ; *
830
840 MOV y, #h%
850 SUB y, y, #1
860.yloop
870 MOV x, #w%
880 SUB x, x, #1
890.xloop
900 LDRB pixel, [out, #-1]
910 MOV pixel, pixel, LSL #1
920 LDRB pixel2, [out, #-w%]
930 ADD pixel, pixel, pixel2, LSL #1
940 MOV pixel, pixel, LSR #1
950
960 TST pixel, #%1 ; if no overflow {
970 BEQ hop ; skip }
980 EORS r8, r8, r8, ROR #17 ; if rnd>0 {
990 ADDCS r8, r8, r9 ;
1000 CMPNE r8, #0 ;
1010 ADDGT pixel, pixel, #1<<1 ; pixel += 2}
1020.hop
1030 EORS r8, r8, r8, ROR #17
1040 ADDCS r8, r8, r9
1050 AND r0, r8, #1.5*factor
1060 CMP r0, #0
1070 SUBNE r0, r0, #factor ; alter factor to alter smoothness
1080 ADD pixel, pixel, r0, LSL #1
1090
1100 CMP pixel, #0
1110 MOVLT pixel, #0
1120 MOV pixel, pixel, LSR #1
1130 CMP pixel, #255
1140 MOVGT pixel, #255
1150 STRB pixel, [out], #1
1160
1170 LDRB r0, [screen], #1
1180 CMP r0, #255 ; colour
1190 LDREQB pixel, [lookup, pixel] ; *
1200 STREQB pixel, [screen, #-1] ; *
1210
1220 SUBS x, x, #1
1230 BNE xloop
1240 ADD out, out, #1
1250 ADD screen, screen, #1 ; *
1260 SUBS y, y, #1
1270 BNE yloop
1280
1290 STR r8, seed
1300
1310 LDMFD r13!, {r8-r12, pc}^
1320
1330.seed
1340 DCD TIME
1350.bitmap
1360 DCD &1D872B41
1370
1380.table
1390; A table to convert the 256-grey data generated into 256-colour data.
1400]
1410IF opt%AND2 THEN
1420 FOR c%=0 TO 63:[OPT opt%:DCB 0 + c%DIV16:]:NEXT
1430 FOR c%=0 TO 63:[OPT opt%:DCB 44 + c%DIV16:]:NEXT
1440 FOR c%=0 TO 63:[OPT opt%:DCB 208 + c%DIV16:]:NEXT
1450 FOR c%=0 TO 63:[OPT opt%:DCB 252 + c%DIV16:]:NEXT
1460 REM to ensure nothing becomes brightest white or darkest black
1470 FOR c%=0 TO 255
1480 IF c%?table<1 THEN c%?table=1 ELSE IF c%?table>254 THEN c%?table=254
1490 NEXT
1500ENDIF
1510NEXT
1520
1530ENDPROC
1540
1550DEF FNrmv(mode%,v%)SYS "OS_ReadModeVariable",mode%,v% TO ,,v%:=v%
1560
1570DEF PROCmode_info
1580w%=FNrmv(-1,11)+1:h%=FNrmv(-1,12)+1
1590!vdu%=148:vdu%!4=-1:SYS "OS_ReadVduVariables",vdu%,vdu%
1600ENDPROC
� >Rock'nRoll
O� =========================================================================
� Rock drawing program
� by David Thomas, 1996
O� =========================================================================
(
2 � � � �$;" at line ";�:�
<
F
� vdu% 23
P
ZC� !vdu%=1:vdu%!4=640:vdu%!8=480:vdu%!12=3:vdu%!16=-1:vdu%!20=-1
d� MODE vdu%
n
x � 28:�:�
�
�8� "Rock'nRoll"'"=========="'"by David Thomas, 1996"'
�1� "Draw using SELECT, Rock-ify using ADJUST"'
�� "Keys :"'
�2� "[+]/[-]","Increase/Decrease the brush size"
� � "[C]","Clear the screen"
�'� "[S]","Save the screen as 'Rock'"
�D� "[Z]/[X]","Increase decrease factor (powers of two work best)"
�1� "[A]","Re-assemble the code for new factor"
� � '"Click to continue..."
�
�
ȗ x,y,b
� b
�
"
,�mode_info
6
@� rock% w%*h%
J
factor=32
T
�assemble
^ȗ �
h
brush%=32
r�
| �
� ȗ x%,y%,b%
�# � b%=4 � ȏ Ȑ x%,y%,brush%
� Ȏ �(0) �
� � "+":brush%+=1
� � "-":brush%-=1
� � "C","c":�
�' � "S","s":� "ScreenSave Rock"
�+ � "Z","z":factor+=1:�0,0);factor
�+ � "X","x":factor-=1:�0,0);factor
� � "A","a":�assemble
� �
� b%=1
+ A%=rock%:B%=&80808080:C%=w%*h%:� fill
A%=rock%:B%=!vdu%:� rock
&� �
0�
:
D� �assemble
N6pixel=1:pixel2=2:out=3:x=4:y=5:lookup=10:screen=11
X� code% 1280
b� opt%=0 � 2 � 2
l P%=code%
v[ OPT opt%
�
� .fill
� ADD r2, r2, r0
�.fill_loop
� STR r1, [r0], #4
� CMP r0, r2
� BLT fill_loop
� MOV pc, r14
�
� .rock
�# STMFD r13!, {r8-r12, r14}
�
� ADD out, r0, #w%
ADD out, out, #1
LDR r8, seed
LDR r9, bitmap
1 ADR lookup, table ; *
*1 ADD screen, r1, #w% ; *
41 ADD screen, screen, #1 ; *
>
H MOV y, #h%
R SUB y, y, #1
\
.yloop
f MOV x, #w%
p SUB x, x, #1
z
.xloop
�! LDRB pixel, [out, #-1]
�$ MOV pixel, pixel, LSL #1
�# LDRB pixel2, [out, #-w%]
�, ADD pixel, pixel, pixel2, LSL #1
�$ MOV pixel, pixel, LSR #1
�
�@ TST pixel, #%1 ; if no overflow {
�8 BEQ hop ; skip }
�8 �S r8, r8, r8, ROR #17 ; if rnd>0 {
�/ ADDCS r8, r8, r9 ;
�/ CMPNE r8, #0 ;
�= ADDGT pixel, pixel, #1<<1 ; pixel += 2}
�.hop
! �S r8, r8, r8, ROR #17
ADDCS r8, r8, r9
! � r0, r8, #1.5*factor
$ CMP r0, #0
.P SUBNE r0, r0, #factor ; alter factor to alter smoothness
8( ADD pixel, pixel, r0, LSL #1
B
L CMP pixel, #0
V MOVLT pixel, #0
`$ MOV pixel, pixel, LSR #1
j CMP pixel, #255
t MOVGT pixel, #255
~ STRB pixel, [out], #1
�
� LDRB r0, [screen], #1
�6 CMP r0, #255 ; colour
�1 LDREQB pixel, [lookup, pixel] ; *
�1 STREQB pixel, [screen, #-1] ; *
�
� SUBS x, x, #1
� BNE xloop
� ADD out, out, #1
�1 ADD screen, screen, #1 ; *
� SUBS y, y, #1
� BNE yloop
STR r8, seed
# LDMFD r13!, {r8-r12, pc}^
(
2 .seed
< DCD �
F .bitmap
P DCD &1D872B41
Z
d
.table
nJ; A table to convert the 256-grey data generated into 256-colour data.
x]
�� opt%�2 �
�/ � c%=0 � 63:[OPT opt%:DCB 0 + c%�16:]:�
�/ � c%=0 � 63:[OPT opt%:DCB 44 + c%�16:]:�
�/ � c%=0 � 63:[OPT opt%:DCB 208 + c%�16:]:�
�/ � c%=0 � 63:[OPT opt%:DCB 252 + c%�16:]:�
�B � to ensure nothing becomes brightest white or darkest black
� � c%=0 � 255
�A � c%?table<1 � c%?table=1 � � c%?table>254 � c%?table=254
� �
��
��
�
��
@� �rmv(mode%,v%)ș "OS_ReadModeVariable",mode%,v% � ,,v%:=v%
"� �mode_info
,%w%=�rmv(-1,11)+1:h%=�rmv(-1,12)+1
6:!vdu%=148:vdu%!4=-1:ș "OS_ReadVduVariables",vdu%,vdu%
@�
� 00000000 0d 00 0a 11 f4 20 3e 52 6f 63 6b 27 6e 52 6f 6c |..... >Rock'nRol|
00000010 6c 0d 00 0b 4f f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d |l...O. =========|
00000020 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000060 0d 00 14 1a f4 20 52 6f 63 6b 20 64 72 61 77 69 |..... Rock drawi|
00000070 6e 67 20 70 72 6f 67 72 61 6d 0d 00 1e 1b f4 20 |ng program..... |
00000080 62 79 20 44 61 76 69 64 20 54 68 6f 6d 61 73 2c |by David Thomas,|
00000090 20 31 39 39 36 0d 00 1f 4f f4 20 3d 3d 3d 3d 3d | 1996...O. =====|
000000a0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
000000e0 3d 3d 3d 3d 0d 00 28 04 0d 00 32 1c ee 20 85 20 |====..(...2.. . |
000000f0 f1 20 f6 24 3b 22 20 61 74 20 6c 69 6e 65 20 22 |. .$;" at line "|
00000100 3b 9e 3a e0 0d 00 3c 04 0d 00 46 0d de 20 76 64 |;.:...<...F.. vd|
00000110 75 25 20 32 33 0d 00 50 04 0d 00 5a 43 f4 20 21 |u% 23..P...ZC. !|
00000120 76 64 75 25 3d 31 3a 76 64 75 25 21 34 3d 36 34 |vdu%=1:vdu%!4=64|
00000130 30 3a 76 64 75 25 21 38 3d 34 38 30 3a 76 64 75 |0:vdu%!8=480:vdu|
00000140 25 21 31 32 3d 33 3a 76 64 75 25 21 31 36 3d 2d |%!12=3:vdu%!16=-|
00000150 31 3a 76 64 75 25 21 32 30 3d 2d 31 0d 00 64 0f |1:vdu%!20=-1..d.|
00000160 f4 20 4d 4f 44 45 20 76 64 75 25 0d 00 6e 04 0d |. MODE vdu%..n..|
00000170 00 78 0c eb 20 32 38 3a db 3a 87 0d 00 82 04 0d |.x.. 28:.:......|
00000180 00 8c 38 f1 20 22 52 6f 63 6b 27 6e 52 6f 6c 6c |..8. "Rock'nRoll|
00000190 22 27 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 27 22 |"'"=========="'"|
000001a0 62 79 20 44 61 76 69 64 20 54 68 6f 6d 61 73 2c |by David Thomas,|
000001b0 20 31 39 39 36 22 27 0d 00 96 31 f1 20 22 44 72 | 1996"'...1. "Dr|
000001c0 61 77 20 75 73 69 6e 67 20 53 45 4c 45 43 54 2c |aw using SELECT,|
000001d0 20 52 6f 63 6b 2d 69 66 79 20 75 73 69 6e 67 20 | Rock-ify using |
000001e0 41 44 4a 55 53 54 22 27 0d 00 a0 0f f1 20 22 4b |ADJUST"'..... "K|
000001f0 65 79 73 20 3a 22 27 0d 00 aa 32 f1 20 22 5b 2b |eys :"'...2. "[+|
00000200 5d 2f 5b 2d 5d 22 2c 22 49 6e 63 72 65 61 73 65 |]/[-]","Increase|
00000210 2f 44 65 63 72 65 61 73 65 20 74 68 65 20 62 72 |/Decrease the br|
00000220 75 73 68 20 73 69 7a 65 22 0d 00 b4 1e f1 20 22 |ush size"..... "|
00000230 5b 43 5d 22 2c 22 43 6c 65 61 72 20 74 68 65 20 |[C]","Clear the |
00000240 73 63 72 65 65 6e 22 0d 00 be 27 f1 20 22 5b 53 |screen"...'. "[S|
00000250 5d 22 2c 22 53 61 76 65 20 74 68 65 20 73 63 72 |]","Save the scr|
00000260 65 65 6e 20 61 73 20 27 52 6f 63 6b 27 22 0d 00 |een as 'Rock'"..|
00000270 dc 44 f1 20 22 5b 5a 5d 2f 5b 58 5d 22 2c 22 49 |.D. "[Z]/[X]","I|
00000280 6e 63 72 65 61 73 65 20 64 65 63 72 65 61 73 65 |ncrease decrease|
00000290 20 66 61 63 74 6f 72 20 28 70 6f 77 65 72 73 20 | factor (powers |
000002a0 6f 66 20 74 77 6f 20 77 6f 72 6b 20 62 65 73 74 |of two work best|
000002b0 29 22 0d 00 e6 31 f1 20 22 5b 41 5d 22 2c 22 52 |)"...1. "[A]","R|
000002c0 65 2d 61 73 73 65 6d 62 6c 65 20 74 68 65 20 63 |e-assemble the c|
000002d0 6f 64 65 20 66 6f 72 20 6e 65 77 20 66 61 63 74 |ode for new fact|
000002e0 6f 72 22 0d 00 f0 1d f1 20 27 22 43 6c 69 63 6b |or"..... '"Click|
000002f0 20 74 6f 20 63 6f 6e 74 69 6e 75 65 2e 2e 2e 22 | to continue..."|
00000300 0d 00 fa 04 0d 01 04 05 f5 0d 01 0e 0e 20 20 c8 |............. .|
00000310 97 20 78 2c 79 2c 62 0d 01 18 07 fd 20 62 0d 01 |. x,y,b..... b..|
00000320 19 04 0d 01 1a 05 db 0d 01 22 04 0d 01 2c 0e f2 |........."...,..|
00000330 6d 6f 64 65 5f 69 6e 66 6f 0d 01 36 04 0d 01 40 |mode_info..6...@|
00000340 11 de 20 72 6f 63 6b 25 20 77 25 2a 68 25 0d 01 |.. rock% w%*h%..|
00000350 4a 0d 66 61 63 74 6f 72 3d 33 32 0d 01 54 0d f2 |J.factor=32..T..|
00000360 61 73 73 65 6d 62 6c 65 0d 01 5e 08 c8 97 20 ee |assemble..^... .|
00000370 0d 01 68 0d 62 72 75 73 68 25 3d 33 32 0d 01 72 |..h.brush%=32..r|
00000380 05 f5 0d 01 7c 07 20 20 f5 0d 01 86 13 20 20 20 |....|. ..... |
00000390 20 c8 97 20 78 25 2c 79 25 2c 62 25 0d 01 90 23 | .. x%,y%,b%...#|
000003a0 20 20 20 20 e7 20 62 25 3d 34 20 8c 20 c8 8f 20 | . b%=4 . .. |
000003b0 c8 90 20 78 25 2c 79 25 2c 62 72 75 73 68 25 0d |.. x%,y%,brush%.|
000003c0 01 9a 11 20 20 20 20 c8 8e 20 bf 28 30 29 20 ca |... .. .(0) .|
000003d0 0d 01 a4 19 20 20 20 20 20 20 c9 20 22 2b 22 3a |.... . "+":|
000003e0 62 72 75 73 68 25 2b 3d 31 0d 01 ae 19 20 20 20 |brush%+=1.... |
000003f0 20 20 20 c9 20 22 2d 22 3a 62 72 75 73 68 25 2d | . "-":brush%-|
00000400 3d 31 0d 01 b8 15 20 20 20 20 20 20 c9 20 22 43 |=1.... . "C|
00000410 22 2c 22 63 22 3a db 0d 01 c2 27 20 20 20 20 20 |","c":....' |
00000420 20 c9 20 22 53 22 2c 22 73 22 3a ff 20 22 53 63 | . "S","s":. "Sc|
00000430 72 65 65 6e 53 61 76 65 20 52 6f 63 6b 22 0d 01 |reenSave Rock"..|
00000440 d6 2b 20 20 20 20 20 20 c9 20 22 5a 22 2c 22 7a |.+ . "Z","z|
00000450 22 3a 66 61 63 74 6f 72 2b 3d 31 3a f1 8a 30 2c |":factor+=1:..0,|
00000460 30 29 3b 66 61 63 74 6f 72 0d 01 e0 2b 20 20 20 |0);factor...+ |
00000470 20 20 20 c9 20 22 58 22 2c 22 78 22 3a 66 61 63 | . "X","x":fac|
00000480 74 6f 72 2d 3d 31 3a f1 8a 30 2c 30 29 3b 66 61 |tor-=1:..0,0);fa|
00000490 63 74 6f 72 0d 01 ea 1d 20 20 20 20 20 20 c9 20 |ctor.... . |
000004a0 22 41 22 2c 22 61 22 3a f2 61 73 73 65 6d 62 6c |"A","a":.assembl|
000004b0 65 0d 01 fe 09 20 20 20 20 cb 0d 02 08 0c 20 20 |e.... ..... |
000004c0 fd 20 62 25 3d 31 0d 02 12 2b 20 20 41 25 3d 72 |. b%=1...+ A%=r|
000004d0 6f 63 6b 25 3a 42 25 3d 26 38 30 38 30 38 30 38 |ock%:B%=&8080808|
000004e0 30 3a 43 25 3d 77 25 2a 68 25 3a d6 20 66 69 6c |0:C%=w%*h%:. fil|
000004f0 6c 0d 02 1c 1e 20 20 41 25 3d 72 6f 63 6b 25 3a |l.... A%=rock%:|
00000500 42 25 3d 21 76 64 75 25 3a d6 20 72 6f 63 6b 0d |B%=!vdu%:. rock.|
00000510 02 26 07 fd 20 a3 0d 02 30 05 e0 0d 02 3a 04 0d |.&.. ...0....:..|
00000520 02 44 0f dd 20 f2 61 73 73 65 6d 62 6c 65 0d 02 |.D.. .assemble..|
00000530 4e 36 70 69 78 65 6c 3d 31 3a 70 69 78 65 6c 32 |N6pixel=1:pixel2|
00000540 3d 32 3a 6f 75 74 3d 33 3a 78 3d 34 3a 79 3d 35 |=2:out=3:x=4:y=5|
00000550 3a 6c 6f 6f 6b 75 70 3d 31 30 3a 73 63 72 65 65 |:lookup=10:scree|
00000560 6e 3d 31 31 0d 02 58 10 de 20 63 6f 64 65 25 20 |n=11..X.. code% |
00000570 31 32 38 30 0d 02 62 14 e3 20 6f 70 74 25 3d 30 |1280..b.. opt%=0|
00000580 20 b8 20 32 20 88 20 32 0d 02 6c 0c 50 25 3d 63 | . 2 . 2..l.P%=c|
00000590 6f 64 65 25 0d 02 76 14 5b 20 20 20 4f 50 54 20 |ode%..v.[ OPT |
000005a0 20 20 20 20 6f 70 74 25 0d 02 80 04 0d 02 8a 09 | opt%........|
000005b0 2e 66 69 6c 6c 0d 02 94 1a 20 20 20 20 41 44 44 |.fill.... ADD|
000005c0 20 20 20 20 20 72 32 2c 20 72 32 2c 20 72 30 0d | r2, r2, r0.|
000005d0 02 9e 0e 2e 66 69 6c 6c 5f 6c 6f 6f 70 0d 02 a8 |....fill_loop...|
000005e0 1c 20 20 20 20 53 54 52 20 20 20 20 20 72 31 2c |. STR r1,|
000005f0 20 5b 72 30 5d 2c 20 23 34 0d 02 b2 16 20 20 20 | [r0], #4.... |
00000600 20 43 4d 50 20 20 20 20 20 72 30 2c 20 72 32 0d | CMP r0, r2.|
00000610 02 bc 19 20 20 20 20 42 4c 54 20 20 20 20 20 66 |... BLT f|
00000620 69 6c 6c 5f 6c 6f 6f 70 0d 02 c6 17 20 20 20 20 |ill_loop.... |
00000630 4d 4f 56 20 20 20 20 20 70 63 2c 20 72 31 34 0d |MOV pc, r14.|
00000640 02 d0 04 0d 02 da 09 2e 72 6f 63 6b 0d 02 e4 23 |........rock...#|
00000650 20 20 20 20 53 54 4d 46 44 20 20 20 72 31 33 21 | STMFD r13!|
00000660 2c 20 7b 72 38 2d 72 31 32 2c 20 72 31 34 7d 0d |, {r8-r12, r14}.|
00000670 02 ee 04 0d 02 f8 1c 20 20 20 20 41 44 44 20 20 |....... ADD |
00000680 20 20 20 6f 75 74 2c 20 72 30 2c 20 23 77 25 0d | out, r0, #w%.|
00000690 03 02 1c 20 20 20 20 41 44 44 20 20 20 20 20 6f |... ADD o|
000006a0 75 74 2c 20 6f 75 74 2c 20 23 31 0d 03 0c 18 20 |ut, out, #1.... |
000006b0 20 20 20 4c 44 52 20 20 20 20 20 72 38 2c 20 73 | LDR r8, s|
000006c0 65 65 64 0d 03 16 1a 20 20 20 20 4c 44 52 20 20 |eed.... LDR |
000006d0 20 20 20 72 39 2c 20 62 69 74 6d 61 70 0d 03 20 | r9, bitmap.. |
000006e0 31 20 20 20 20 41 44 52 20 20 20 20 20 6c 6f 6f |1 ADR loo|
000006f0 6b 75 70 2c 20 74 61 62 6c 65 20 20 20 20 20 20 |kup, table |
00000700 20 20 20 20 20 20 20 20 20 20 20 3b 20 2a 0d 03 | ; *..|
00000710 2a 31 20 20 20 20 41 44 44 20 20 20 20 20 73 63 |*1 ADD sc|
00000720 72 65 65 6e 2c 20 72 31 2c 20 23 77 25 20 20 20 |reen, r1, #w% |
00000730 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2a 0d | ; *.|
00000740 03 34 31 20 20 20 20 41 44 44 20 20 20 20 20 73 |.41 ADD s|
00000750 63 72 65 65 6e 2c 20 73 63 72 65 65 6e 2c 20 23 |creen, screen, #|
00000760 31 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2a |1 ; *|
00000770 0d 03 3e 04 0d 03 48 16 20 20 20 20 4d 4f 56 20 |..>...H. MOV |
00000780 20 20 20 20 79 2c 20 23 68 25 0d 03 52 18 20 20 | y, #h%..R. |
00000790 20 20 53 55 42 20 20 20 20 20 79 2c 20 79 2c 20 | SUB y, y, |
000007a0 23 31 0d 03 5c 0a 2e 79 6c 6f 6f 70 0d 03 66 16 |#1..\..yloop..f.|
000007b0 20 20 20 20 4d 4f 56 20 20 20 20 20 78 2c 20 23 | MOV x, #|
000007c0 77 25 0d 03 70 18 20 20 20 20 53 55 42 20 20 20 |w%..p. SUB |
000007d0 20 20 78 2c 20 78 2c 20 23 31 0d 03 7a 0a 2e 78 | x, x, #1..z..x|
000007e0 6c 6f 6f 70 0d 03 84 21 20 20 20 20 4c 44 52 42 |loop...! LDRB|
000007f0 20 20 20 20 70 69 78 65 6c 2c 20 5b 6f 75 74 2c | pixel, [out,|
00000800 20 23 2d 31 5d 0d 03 8e 24 20 20 20 20 4d 4f 56 | #-1]...$ MOV|
00000810 20 20 20 20 20 70 69 78 65 6c 2c 20 70 69 78 65 | pixel, pixe|
00000820 6c 2c 20 4c 53 4c 20 23 31 0d 03 98 23 20 20 20 |l, LSL #1...# |
00000830 20 4c 44 52 42 20 20 20 20 70 69 78 65 6c 32 2c | LDRB pixel2,|
00000840 20 5b 6f 75 74 2c 20 23 2d 77 25 5d 0d 03 a2 2c | [out, #-w%]...,|
00000850 20 20 20 20 41 44 44 20 20 20 20 20 70 69 78 65 | ADD pixe|
00000860 6c 2c 20 70 69 78 65 6c 2c 20 70 69 78 65 6c 32 |l, pixel, pixel2|
00000870 2c 20 4c 53 4c 20 23 31 0d 03 ac 24 20 20 20 20 |, LSL #1...$ |
00000880 4d 4f 56 20 20 20 20 20 70 69 78 65 6c 2c 20 70 |MOV pixel, p|
00000890 69 78 65 6c 2c 20 4c 53 52 20 23 31 0d 03 b6 04 |ixel, LSR #1....|
000008a0 0d 03 c0 40 20 20 20 20 54 53 54 20 20 20 20 20 |...@ TST |
000008b0 70 69 78 65 6c 2c 20 23 25 31 20 20 20 20 20 20 |pixel, #%1 |
000008c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 | ; |
000008d0 69 66 20 6e 6f 20 6f 76 65 72 66 6c 6f 77 20 7b |if no overflow {|
000008e0 0d 03 ca 38 20 20 20 20 42 45 51 20 20 20 20 20 |...8 BEQ |
000008f0 68 6f 70 20 20 20 20 20 20 20 20 20 20 20 20 20 |hop |
00000900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 | ; |
00000910 20 20 73 6b 69 70 20 7d 0d 03 d4 38 20 20 20 20 | skip }...8 |
00000920 82 53 20 20 20 20 72 38 2c 20 72 38 2c 20 72 38 |.S r8, r8, r8|
00000930 2c 20 52 4f 52 20 23 31 37 20 20 20 20 20 20 20 |, ROR #17 |
00000940 20 20 20 20 3b 20 69 66 20 72 6e 64 3e 30 20 7b | ; if rnd>0 {|
00000950 0d 03 de 2f 20 20 20 20 41 44 44 43 53 20 20 20 |.../ ADDCS |
00000960 72 38 2c 20 72 38 2c 20 72 39 20 20 20 20 20 20 |r8, r8, r9 |
00000970 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d | ;.|
00000980 03 e8 2f 20 20 20 20 43 4d 50 4e 45 20 20 20 72 |../ CMPNE r|
00000990 38 2c 20 23 30 20 20 20 20 20 20 20 20 20 20 20 |8, #0 |
000009a0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 03 | ;..|
000009b0 f2 3d 20 20 20 20 41 44 44 47 54 20 20 20 70 69 |.= ADDGT pi|
000009c0 78 65 6c 2c 20 70 69 78 65 6c 2c 20 23 31 3c 3c |xel, pixel, #1<<|
000009d0 31 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 |1 ; |
000009e0 70 69 78 65 6c 20 2b 3d 20 32 7d 0d 03 fc 08 2e |pixel += 2}.....|
000009f0 68 6f 70 0d 04 06 21 20 20 20 20 82 53 20 20 20 |hop...! .S |
00000a00 20 72 38 2c 20 72 38 2c 20 72 38 2c 20 52 4f 52 | r8, r8, r8, ROR|
00000a10 20 23 31 37 0d 04 10 1a 20 20 20 20 41 44 44 43 | #17.... ADDC|
00000a20 53 20 20 20 72 38 2c 20 72 38 2c 20 72 39 0d 04 |S r8, r8, r9..|
00000a30 1a 21 20 20 20 20 80 20 20 20 20 20 72 30 2c 20 |.! . r0, |
00000a40 72 38 2c 20 23 31 2e 35 2a 66 61 63 74 6f 72 0d |r8, #1.5*factor.|
00000a50 04 24 16 20 20 20 20 43 4d 50 20 20 20 20 20 72 |.$. CMP r|
00000a60 30 2c 20 23 30 0d 04 2e 50 20 20 20 20 53 55 42 |0, #0...P SUB|
00000a70 4e 45 20 20 20 72 30 2c 20 72 30 2c 20 23 66 61 |NE r0, r0, #fa|
00000a80 63 74 6f 72 20 20 20 20 20 20 20 20 20 20 20 20 |ctor |
00000a90 20 20 20 3b 20 61 6c 74 65 72 20 66 61 63 74 6f | ; alter facto|
00000aa0 72 20 74 6f 20 61 6c 74 65 72 20 73 6d 6f 6f 74 |r to alter smoot|
00000ab0 68 6e 65 73 73 0d 04 38 28 20 20 20 20 41 44 44 |hness..8( ADD|
00000ac0 20 20 20 20 20 70 69 78 65 6c 2c 20 70 69 78 65 | pixel, pixe|
00000ad0 6c 2c 20 72 30 2c 20 4c 53 4c 20 23 31 0d 04 42 |l, r0, LSL #1..B|
00000ae0 04 0d 04 4c 19 20 20 20 20 43 4d 50 20 20 20 20 |...L. CMP |
00000af0 20 70 69 78 65 6c 2c 20 23 30 0d 04 56 19 20 20 | pixel, #0..V. |
00000b00 20 20 4d 4f 56 4c 54 20 20 20 70 69 78 65 6c 2c | MOVLT pixel,|
00000b10 20 23 30 0d 04 60 24 20 20 20 20 4d 4f 56 20 20 | #0..`$ MOV |
00000b20 20 20 20 70 69 78 65 6c 2c 20 70 69 78 65 6c 2c | pixel, pixel,|
00000b30 20 4c 53 52 20 23 31 0d 04 6a 1b 20 20 20 20 43 | LSR #1..j. C|
00000b40 4d 50 20 20 20 20 20 70 69 78 65 6c 2c 20 23 32 |MP pixel, #2|
00000b50 35 35 0d 04 74 1b 20 20 20 20 4d 4f 56 47 54 20 |55..t. MOVGT |
00000b60 20 20 70 69 78 65 6c 2c 20 23 32 35 35 0d 04 7e | pixel, #255..~|
00000b70 20 20 20 20 20 53 54 52 42 20 20 20 20 70 69 78 | STRB pix|
00000b80 65 6c 2c 20 5b 6f 75 74 5d 2c 20 23 31 0d 04 88 |el, [out], #1...|
00000b90 04 0d 04 92 20 20 20 20 20 4c 44 52 42 20 20 20 |.... LDRB |
00000ba0 20 72 30 2c 20 5b 73 63 72 65 65 6e 5d 2c 20 23 | r0, [screen], #|
00000bb0 31 0d 04 9c 36 20 20 20 20 43 4d 50 20 20 20 20 |1...6 CMP |
00000bc0 20 72 30 2c 20 23 32 35 35 20 20 20 20 20 20 20 | r0, #255 |
00000bd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | ;|
00000be0 20 63 6f 6c 6f 75 72 0d 04 a6 31 20 20 20 20 4c | colour...1 L|
00000bf0 44 52 45 51 42 20 20 70 69 78 65 6c 2c 20 5b 6c |DREQB pixel, [l|
00000c00 6f 6f 6b 75 70 2c 20 70 69 78 65 6c 5d 20 20 20 |ookup, pixel] |
00000c10 20 20 20 20 20 3b 20 2a 0d 04 b0 31 20 20 20 20 | ; *...1 |
00000c20 53 54 52 45 51 42 20 20 70 69 78 65 6c 2c 20 5b |STREQB pixel, [|
00000c30 73 63 72 65 65 6e 2c 20 23 2d 31 5d 20 20 20 20 |screen, #-1] |
00000c40 20 20 20 20 20 20 3b 20 2a 0d 04 ba 04 0d 04 c4 | ; *.......|
00000c50 18 20 20 20 20 53 55 42 53 20 20 20 20 78 2c 20 |. SUBS x, |
00000c60 78 2c 20 23 31 0d 04 ce 15 20 20 20 20 42 4e 45 |x, #1.... BNE|
00000c70 20 20 20 20 20 78 6c 6f 6f 70 0d 04 d8 1c 20 20 | xloop.... |
00000c80 20 20 41 44 44 20 20 20 20 20 6f 75 74 2c 20 6f | ADD out, o|
00000c90 75 74 2c 20 23 31 0d 04 e2 31 20 20 20 20 41 44 |ut, #1...1 AD|
00000ca0 44 20 20 20 20 20 73 63 72 65 65 6e 2c 20 73 63 |D screen, sc|
00000cb0 72 65 65 6e 2c 20 23 31 20 20 20 20 20 20 20 20 |reen, #1 |
00000cc0 20 20 20 20 3b 20 2a 0d 04 ec 18 20 20 20 20 53 | ; *.... S|
00000cd0 55 42 53 20 20 20 20 79 2c 20 79 2c 20 23 31 0d |UBS y, y, #1.|
00000ce0 04 f6 15 20 20 20 20 42 4e 45 20 20 20 20 20 79 |... BNE y|
00000cf0 6c 6f 6f 70 0d 05 00 04 0d 05 0a 18 20 20 20 20 |loop........ |
00000d00 53 54 52 20 20 20 20 20 72 38 2c 20 73 65 65 64 |STR r8, seed|
00000d10 0d 05 14 04 0d 05 1e 23 20 20 20 20 4c 44 4d 46 |.......# LDMF|
00000d20 44 20 20 20 72 31 33 21 2c 20 7b 72 38 2d 72 31 |D r13!, {r8-r1|
00000d30 32 2c 20 70 63 7d 5e 0d 05 28 04 0d 05 32 09 2e |2, pc}^..(...2..|
00000d40 73 65 65 64 0d 05 3c 11 20 20 20 20 44 43 44 20 |seed..<. DCD |
00000d50 20 20 20 20 91 0d 05 46 0b 2e 62 69 74 6d 61 70 | ...F..bitmap|
00000d60 0d 05 50 19 20 20 20 20 44 43 44 20 20 20 20 20 |..P. DCD |
00000d70 26 31 44 38 37 32 42 34 31 0d 05 5a 04 0d 05 64 |&1D872B41..Z...d|
00000d80 0a 2e 74 61 62 6c 65 0d 05 6e 4a 3b 20 41 20 74 |..table..nJ; A t|
00000d90 61 62 6c 65 20 74 6f 20 63 6f 6e 76 65 72 74 20 |able to convert |
00000da0 74 68 65 20 32 35 36 2d 67 72 65 79 20 64 61 74 |the 256-grey dat|
00000db0 61 20 67 65 6e 65 72 61 74 65 64 20 69 6e 74 6f |a generated into|
00000dc0 20 32 35 36 2d 63 6f 6c 6f 75 72 20 64 61 74 61 | 256-colour data|
00000dd0 2e 0d 05 78 05 5d 0d 05 82 0e e7 20 6f 70 74 25 |...x.]..... opt%|
00000de0 80 32 20 8c 0d 05 8c 2f 20 20 e3 20 63 25 3d 30 |.2 ..../ . c%=0|
00000df0 20 b8 20 36 33 3a 5b 4f 50 54 20 6f 70 74 25 3a | . 63:[OPT opt%:|
00000e00 44 43 42 20 30 20 20 20 2b 20 63 25 81 31 36 3a |DCB 0 + c%.16:|
00000e10 5d 3a ed 0d 05 96 2f 20 20 e3 20 63 25 3d 30 20 |]:..../ . c%=0 |
00000e20 b8 20 36 33 3a 5b 4f 50 54 20 6f 70 74 25 3a 44 |. 63:[OPT opt%:D|
00000e30 43 42 20 34 34 20 20 2b 20 63 25 81 31 36 3a 5d |CB 44 + c%.16:]|
00000e40 3a ed 0d 05 a0 2f 20 20 e3 20 63 25 3d 30 20 b8 |:..../ . c%=0 .|
00000e50 20 36 33 3a 5b 4f 50 54 20 6f 70 74 25 3a 44 43 | 63:[OPT opt%:DC|
00000e60 42 20 32 30 38 20 2b 20 63 25 81 31 36 3a 5d 3a |B 208 + c%.16:]:|
00000e70 ed 0d 05 aa 2f 20 20 e3 20 63 25 3d 30 20 b8 20 |..../ . c%=0 . |
00000e80 36 33 3a 5b 4f 50 54 20 6f 70 74 25 3a 44 43 42 |63:[OPT opt%:DCB|
00000e90 20 32 35 32 20 2b 20 63 25 81 31 36 3a 5d 3a ed | 252 + c%.16:]:.|
00000ea0 0d 05 b4 42 20 20 f4 20 74 6f 20 65 6e 73 75 72 |...B . to ensur|
00000eb0 65 20 6e 6f 74 68 69 6e 67 20 62 65 63 6f 6d 65 |e nothing become|
00000ec0 73 20 62 72 69 67 68 74 65 73 74 20 77 68 69 74 |s brightest whit|
00000ed0 65 20 6f 72 20 64 61 72 6b 65 73 74 20 62 6c 61 |e or darkest bla|
00000ee0 63 6b 0d 05 be 12 20 20 e3 20 63 25 3d 30 20 b8 |ck.... . c%=0 .|
00000ef0 20 32 35 35 0d 05 c8 41 20 20 20 20 e7 20 63 25 | 255...A . c%|
00000f00 3f 74 61 62 6c 65 3c 31 20 8c 20 63 25 3f 74 61 |?table<1 . c%?ta|
00000f10 62 6c 65 3d 31 20 8b 20 e7 20 63 25 3f 74 61 62 |ble=1 . . c%?tab|
00000f20 6c 65 3e 32 35 34 20 8c 20 63 25 3f 74 61 62 6c |le>254 . c%?tabl|
00000f30 65 3d 32 35 34 0d 05 d2 07 20 20 ed 0d 05 dc 05 |e=254.... .....|
00000f40 cd 0d 05 e6 05 ed 0d 05 f0 04 0d 05 fa 05 e1 0d |................|
00000f50 06 04 04 0d 06 0e 40 dd 20 a4 72 6d 76 28 6d 6f |......@. .rmv(mo|
00000f60 64 65 25 2c 76 25 29 c8 99 20 22 4f 53 5f 52 65 |de%,v%).. "OS_Re|
00000f70 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c |adModeVariable",|
00000f80 6d 6f 64 65 25 2c 76 25 20 b8 20 2c 2c 76 25 3a |mode%,v% . ,,v%:|
00000f90 3d 76 25 0d 06 18 04 0d 06 22 10 dd 20 f2 6d 6f |=v%......".. .mo|
00000fa0 64 65 5f 69 6e 66 6f 0d 06 2c 25 77 25 3d a4 72 |de_info..,%w%=.r|
00000fb0 6d 76 28 2d 31 2c 31 31 29 2b 31 3a 68 25 3d a4 |mv(-1,11)+1:h%=.|
00000fc0 72 6d 76 28 2d 31 2c 31 32 29 2b 31 0d 06 36 3a |rmv(-1,12)+1..6:|
00000fd0 21 76 64 75 25 3d 31 34 38 3a 76 64 75 25 21 34 |!vdu%=148:vdu%!4|
00000fe0 3d 2d 31 3a c8 99 20 22 4f 53 5f 52 65 61 64 56 |=-1:.. "OS_ReadV|
00000ff0 64 75 56 61 72 69 61 62 6c 65 73 22 2c 76 64 75 |duVariables",vdu|
00001000 25 2c 76 64 75 25 0d 06 40 05 e1 0d ff |%,vdu%..@....|
0000100d 
.