Home » Archimedes archive » Acorn User » AU 1996-05.adf » Features » RTR/Whizz1

RTR/Whizz1

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 1996-05.adf » Features
Filename: RTR/Whizz1
Read OK: ✔
File size: 06F0 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM>Whizz1
   20PT%=10
   30Dur%=PT%*100
   40PRINT"Parallel output test for LEDs"
   50PRINT"By Mike Cook"
   60PRINT
   70PRINT"Writes patterns to the LEDs through the printer port"
   80PRINT"Each pattern lasts for ";PT%;" seconds"
   90PRINT"No rotation syncronisation"
  100PRINT
  110PRINT"Press escape to end"
  120
  130REM Set port to outputs
  140SYS"Parallel_Op",2,&00,&FF
  150REM set duration of each effect
  160
  170
  180REPEAT
  190PROC_Bin
  200PROC_Cross(10)
  210PROC_Cross(0)
  220PROC_Fill(20)
  230PROC_Fill(0)
  240PROC_Twin(20)
  250PROC_Twin(0)
  260PROC_Shift(20)
  270PROC_Shift(0)
  280UNTIL FALSE
  290
  300DEF PROC_Fill(N%)
  310PRINT"Fill up then empty ";
  320IF N%=0 THEN PRINT"fast" ELSE PRINT"slow"
  330T%=TIME+Dur%
  340REPEAT
  350REM Shift fill
  360P%=0
  370REPEAT
  380SYS"Parallel_Op",1,P%
  390IF N%<>0 THEN PROChold(N%)
  400P%=P%<<1 OR 1
  410UNTIL P%>&100
  420REPEAT
  430SYS"Parallel_Op",1,P%
  440IF N%<>0 THEN PROChold(N%)
  450P%=P%>>1
  460UNTIL P%=0
  470UNTIL TIME>T%
  480ENDPROC
  490
  500DEF PROChold(N%)
  510LOCAL T%
  520T%=TIME+N%
  530REPEAT UNTIL TIME>T%
  540ENDPROC
  550
  560DEF PROC_Cross(N%)
  570PRINT"Cross over ";
  580IF N%=0 THEN PRINT"fast" ELSE PRINT"slow"
  590A%=128:B%=1:S%=1
  600Tu%=TIME+Dur%
  610REPEAT
  620IF S%=1 THEN B%=B%<<1 ELSE A%=A%>>1
  630S%=S% EOR &1
  640IF A%=0 THEN A%=&80
  650IF B%=&100 THEN B%=1
  660IF A%=1 AND B%+1 THEN SYS"Parallel_Op",1,&81 ELSE SYS"Parallel_Op",1,A% OR B%
  670IF N%<>0 THEN PROChold(N%)
  680UNTIL TIME>Tu%
  690ENDPROC
  700
  710DEF PROC_Twin(N%)
  720PRINT"Shift left and right ";
  730IF N%=0 THEN PRINT"fast" ELSE PRINT"slow"
  740A%=128:B%=1
  750Tu%=TIME+Dur%
  760REPEAT
  770B%=B%<<1
  780A%=A%>>1
  790IF A%=0 THEN A%=&80:B%=&1
  800SYS"Parallel_Op",1,A% OR B%
  810IF N%<>0 THEN PROChold(N%)
  820UNTIL TIME>Tu%
  830ENDPROC
  840
  850DEF PROC_Shift(N%)
  860PRINT"Shift left and then right ";
  870IF N%=0 THEN PRINT"fast" ELSE PRINT"slow"
  880A%=1:S%=1
  890Tu%=TIME+Dur%
  900REPEAT
  910IF S%=1 THEN A%=A%<<1 ELSE A%=A%>>1
  920IF A%=&100 THEN A%=&80:S%=NOT(S%)
  930IF A%=0 THEN A%=1:S%=NOT(S%)
  940SYS"Parallel_Op",1,A%
  950IF N%<>0 THEN PROChold(N%)
  960UNTIL TIME>Tu%
  970ENDPROC
  980
  990DEF PROC_Bin
 1000PRINT"Binary Count "
 1010T%=TIME+Dur%
 1020REPEAT
 1030REM Binary Count
 1040FOR P%=0 TO 255
 1050SYS"Parallel_Op",1,P%
 1060NEXT
 1070UNTIL TIME>T%
 1080ENDPROC


�>Whizz1

PT%=10
Dur%=PT%*100
($�"Parallel output test for LEDs"
2�"By Mike Cook"
<�
F;�"Writes patterns to the LEDs through the printer port"
P-�"Each pattern lasts for ";PT%;" seconds"
Z!�"No rotation syncronisation"
d�
n�"Press escape to end"
x
�� Set port to outputs
�ș"Parallel_Op",2,&00,&FF
�!� set duration of each effect
�
�
��
�	�_Bin
��_Cross(10)
��_Cross(0)
��_Fill(20)
�
�_Fill(0)
��_Twin(20)
�
�_Twin(0)
�_Shift(20)
�_Shift(0)
� �
"
,� �_Fill(N%)
6�"Fill up then empty ";
@� N%=0 � �"fast" � �"slow"
J
T%=�+Dur%
T�
^� Shift fill
hP%=0
r�
|ș"Parallel_Op",1,P%
�� N%<>0 � �hold(N%)
�P%=P%<<1 � 1
�
� P%>&100
��
�ș"Parallel_Op",1,P%
�� N%<>0 � �hold(N%)
�P%=P%>>1
�
� P%=0
�
� �>T%
��
�
�� �hold(N%)
�� T%
T%=�+N%
� � �>T%
�
&
0� �_Cross(N%)
:�"Cross over ";
D� N%=0 � �"fast" � �"slow"
NA%=128:B%=1:S%=1
XTu%=�+Dur%
b�
l � S%=1 � B%=B%<<1 � A%=A%>>1
vS%=S% � &1
�� A%=0 � A%=&80
�� B%=&100 � B%=1
�E� A%=1 � B%+1 � ș"Parallel_Op",1,&81 � ș"Parallel_Op",1,A% � B%
�� N%<>0 � �hold(N%)
�� �>Tu%
��
�
�� �_Twin(N%)
��"Shift left and right ";
�� N%=0 � �"fast" � �"slow"
�A%=128:B%=1
�Tu%=�+Dur%
��
B%=B%<<1
A%=A%>>1
� A%=0 � A%=&80:B%=&1
 ș"Parallel_Op",1,A% � B%
*� N%<>0 � �hold(N%)
4� �>Tu%
>�
H
R� �_Shift(N%)
\"�"Shift left and then right ";
f� N%=0 � �"fast" � �"slow"
p
A%=1:S%=1
zTu%=�+Dur%
��
� � S%=1 � A%=A%<<1 � A%=A%>>1
�� A%=&100 � A%=&80:S%=�(S%)
�� A%=0 � A%=1:S%=�(S%)
�ș"Parallel_Op",1,A%
�� N%<>0 � �hold(N%)
�� �>Tu%
��
�
�� �_Bin
��"Binary Count "
�
T%=�+Dur%
��
� Binary Count
� P%=0 � 255
ș"Parallel_Op",1,P%
$�
.
� �>T%
8�
�
00000000  0d 00 0a 0c f4 3e 57 68  69 7a 7a 31 0d 00 14 0a  |.....>Whizz1....|
00000010  50 54 25 3d 31 30 0d 00  1e 10 44 75 72 25 3d 50  |PT%=10....Dur%=P|
00000020  54 25 2a 31 30 30 0d 00  28 24 f1 22 50 61 72 61  |T%*100..($."Para|
00000030  6c 6c 65 6c 20 6f 75 74  70 75 74 20 74 65 73 74  |llel output test|
00000040  20 66 6f 72 20 4c 45 44  73 22 0d 00 32 13 f1 22  | for LEDs"..2.."|
00000050  42 79 20 4d 69 6b 65 20  43 6f 6f 6b 22 0d 00 3c  |By Mike Cook"..<|
00000060  05 f1 0d 00 46 3b f1 22  57 72 69 74 65 73 20 70  |....F;."Writes p|
00000070  61 74 74 65 72 6e 73 20  74 6f 20 74 68 65 20 4c  |atterns to the L|
00000080  45 44 73 20 74 68 72 6f  75 67 68 20 74 68 65 20  |EDs through the |
00000090  70 72 69 6e 74 65 72 20  70 6f 72 74 22 0d 00 50  |printer port"..P|
000000a0  2d f1 22 45 61 63 68 20  70 61 74 74 65 72 6e 20  |-."Each pattern |
000000b0  6c 61 73 74 73 20 66 6f  72 20 22 3b 50 54 25 3b  |lasts for ";PT%;|
000000c0  22 20 73 65 63 6f 6e 64  73 22 0d 00 5a 21 f1 22  |" seconds"..Z!."|
000000d0  4e 6f 20 72 6f 74 61 74  69 6f 6e 20 73 79 6e 63  |No rotation sync|
000000e0  72 6f 6e 69 73 61 74 69  6f 6e 22 0d 00 64 05 f1  |ronisation"..d..|
000000f0  0d 00 6e 1a f1 22 50 72  65 73 73 20 65 73 63 61  |..n.."Press esca|
00000100  70 65 20 74 6f 20 65 6e  64 22 0d 00 78 04 0d 00  |pe to end"..x...|
00000110  82 19 f4 20 53 65 74 20  70 6f 72 74 20 74 6f 20  |... Set port to |
00000120  6f 75 74 70 75 74 73 0d  00 8c 1d c8 99 22 50 61  |outputs......"Pa|
00000130  72 61 6c 6c 65 6c 5f 4f  70 22 2c 32 2c 26 30 30  |rallel_Op",2,&00|
00000140  2c 26 46 46 0d 00 96 21  f4 20 73 65 74 20 64 75  |,&FF...!. set du|
00000150  72 61 74 69 6f 6e 20 6f  66 20 65 61 63 68 20 65  |ration of each e|
00000160  66 66 65 63 74 0d 00 a0  04 0d 00 aa 04 0d 00 b4  |ffect...........|
00000170  05 f5 0d 00 be 09 f2 5f  42 69 6e 0d 00 c8 0f f2  |......._Bin.....|
00000180  5f 43 72 6f 73 73 28 31  30 29 0d 00 d2 0e f2 5f  |_Cross(10)....._|
00000190  43 72 6f 73 73 28 30 29  0d 00 dc 0e f2 5f 46 69  |Cross(0)....._Fi|
000001a0  6c 6c 28 32 30 29 0d 00  e6 0d f2 5f 46 69 6c 6c  |ll(20)....._Fill|
000001b0  28 30 29 0d 00 f0 0e f2  5f 54 77 69 6e 28 32 30  |(0)....._Twin(20|
000001c0  29 0d 00 fa 0d f2 5f 54  77 69 6e 28 30 29 0d 01  |)....._Twin(0)..|
000001d0  04 0f f2 5f 53 68 69 66  74 28 32 30 29 0d 01 0e  |..._Shift(20)...|
000001e0  0e f2 5f 53 68 69 66 74  28 30 29 0d 01 18 07 fd  |.._Shift(0).....|
000001f0  20 a3 0d 01 22 04 0d 01  2c 10 dd 20 f2 5f 46 69  | ..."...,.. ._Fi|
00000200  6c 6c 28 4e 25 29 0d 01  36 1b f1 22 46 69 6c 6c  |ll(N%)..6.."Fill|
00000210  20 75 70 20 74 68 65 6e  20 65 6d 70 74 79 20 22  | up then empty "|
00000220  3b 0d 01 40 1e e7 20 4e  25 3d 30 20 8c 20 f1 22  |;..@.. N%=0 . ."|
00000230  66 61 73 74 22 20 8b 20  f1 22 73 6c 6f 77 22 0d  |fast" . ."slow".|
00000240  01 4a 0d 54 25 3d 91 2b  44 75 72 25 0d 01 54 05  |.J.T%=.+Dur%..T.|
00000250  f5 0d 01 5e 10 f4 20 53  68 69 66 74 20 66 69 6c  |...^.. Shift fil|
00000260  6c 0d 01 68 08 50 25 3d  30 0d 01 72 05 f5 0d 01  |l..h.P%=0..r....|
00000270  7c 18 c8 99 22 50 61 72  61 6c 6c 65 6c 5f 4f 70  ||..."Parallel_Op|
00000280  22 2c 31 2c 50 25 0d 01  86 17 e7 20 4e 25 3c 3e  |",1,P%..... N%<>|
00000290  30 20 8c 20 f2 68 6f 6c  64 28 4e 25 29 0d 01 90  |0 . .hold(N%)...|
000002a0  10 50 25 3d 50 25 3c 3c  31 20 84 20 31 0d 01 9a  |.P%=P%<<1 . 1...|
000002b0  0d fd 20 50 25 3e 26 31  30 30 0d 01 a4 05 f5 0d  |.. P%>&100......|
000002c0  01 ae 18 c8 99 22 50 61  72 61 6c 6c 65 6c 5f 4f  |....."Parallel_O|
000002d0  70 22 2c 31 2c 50 25 0d  01 b8 17 e7 20 4e 25 3c  |p",1,P%..... N%<|
000002e0  3e 30 20 8c 20 f2 68 6f  6c 64 28 4e 25 29 0d 01  |>0 . .hold(N%)..|
000002f0  c2 0c 50 25 3d 50 25 3e  3e 31 0d 01 cc 0a fd 20  |..P%=P%>>1..... |
00000300  50 25 3d 30 0d 01 d6 0a  fd 20 91 3e 54 25 0d 01  |P%=0..... .>T%..|
00000310  e0 05 e1 0d 01 ea 04 0d  01 f4 0f dd 20 f2 68 6f  |............ .ho|
00000320  6c 64 28 4e 25 29 0d 01  fe 08 ea 20 54 25 0d 02  |ld(N%)..... T%..|
00000330  08 0b 54 25 3d 91 2b 4e  25 0d 02 12 0c f5 20 fd  |..T%=.+N%..... .|
00000340  20 91 3e 54 25 0d 02 1c  05 e1 0d 02 26 04 0d 02  | .>T%.......&...|
00000350  30 11 dd 20 f2 5f 43 72  6f 73 73 28 4e 25 29 0d  |0.. ._Cross(N%).|
00000360  02 3a 13 f1 22 43 72 6f  73 73 20 6f 76 65 72 20  |.:.."Cross over |
00000370  22 3b 0d 02 44 1e e7 20  4e 25 3d 30 20 8c 20 f1  |";..D.. N%=0 . .|
00000380  22 66 61 73 74 22 20 8b  20 f1 22 73 6c 6f 77 22  |"fast" . ."slow"|
00000390  0d 02 4e 14 41 25 3d 31  32 38 3a 42 25 3d 31 3a  |..N.A%=128:B%=1:|
000003a0  53 25 3d 31 0d 02 58 0e  54 75 25 3d 91 2b 44 75  |S%=1..X.Tu%=.+Du|
000003b0  72 25 0d 02 62 05 f5 0d  02 6c 20 e7 20 53 25 3d  |r%..b....l . S%=|
000003c0  31 20 8c 20 42 25 3d 42  25 3c 3c 31 20 8b 20 41  |1 . B%=B%<<1 . A|
000003d0  25 3d 41 25 3e 3e 31 0d  02 76 0e 53 25 3d 53 25  |%=A%>>1..v.S%=S%|
000003e0  20 82 20 26 31 0d 02 80  13 e7 20 41 25 3d 30 20  | . &1..... A%=0 |
000003f0  8c 20 41 25 3d 26 38 30  0d 02 8a 14 e7 20 42 25  |. A%=&80..... B%|
00000400  3d 26 31 30 30 20 8c 20  42 25 3d 31 0d 02 94 45  |=&100 . B%=1...E|
00000410  e7 20 41 25 3d 31 20 80  20 42 25 2b 31 20 8c 20  |. A%=1 . B%+1 . |
00000420  c8 99 22 50 61 72 61 6c  6c 65 6c 5f 4f 70 22 2c  |.."Parallel_Op",|
00000430  31 2c 26 38 31 20 8b 20  c8 99 22 50 61 72 61 6c  |1,&81 . .."Paral|
00000440  6c 65 6c 5f 4f 70 22 2c  31 2c 41 25 20 84 20 42  |lel_Op",1,A% . B|
00000450  25 0d 02 9e 17 e7 20 4e  25 3c 3e 30 20 8c 20 f2  |%..... N%<>0 . .|
00000460  68 6f 6c 64 28 4e 25 29  0d 02 a8 0b fd 20 91 3e  |hold(N%)..... .>|
00000470  54 75 25 0d 02 b2 05 e1  0d 02 bc 04 0d 02 c6 10  |Tu%.............|
00000480  dd 20 f2 5f 54 77 69 6e  28 4e 25 29 0d 02 d0 1d  |. ._Twin(N%)....|
00000490  f1 22 53 68 69 66 74 20  6c 65 66 74 20 61 6e 64  |."Shift left and|
000004a0  20 72 69 67 68 74 20 22  3b 0d 02 da 1e e7 20 4e  | right ";..... N|
000004b0  25 3d 30 20 8c 20 f1 22  66 61 73 74 22 20 8b 20  |%=0 . ."fast" . |
000004c0  f1 22 73 6c 6f 77 22 0d  02 e4 0f 41 25 3d 31 32  |."slow"....A%=12|
000004d0  38 3a 42 25 3d 31 0d 02  ee 0e 54 75 25 3d 91 2b  |8:B%=1....Tu%=.+|
000004e0  44 75 72 25 0d 02 f8 05  f5 0d 03 02 0c 42 25 3d  |Dur%.........B%=|
000004f0  42 25 3c 3c 31 0d 03 0c  0c 41 25 3d 41 25 3e 3e  |B%<<1....A%=A%>>|
00000500  31 0d 03 16 19 e7 20 41  25 3d 30 20 8c 20 41 25  |1..... A%=0 . A%|
00000510  3d 26 38 30 3a 42 25 3d  26 31 0d 03 20 1d c8 99  |=&80:B%=&1.. ...|
00000520  22 50 61 72 61 6c 6c 65  6c 5f 4f 70 22 2c 31 2c  |"Parallel_Op",1,|
00000530  41 25 20 84 20 42 25 0d  03 2a 17 e7 20 4e 25 3c  |A% . B%..*.. N%<|
00000540  3e 30 20 8c 20 f2 68 6f  6c 64 28 4e 25 29 0d 03  |>0 . .hold(N%)..|
00000550  34 0b fd 20 91 3e 54 75  25 0d 03 3e 05 e1 0d 03  |4.. .>Tu%..>....|
00000560  48 04 0d 03 52 11 dd 20  f2 5f 53 68 69 66 74 28  |H...R.. ._Shift(|
00000570  4e 25 29 0d 03 5c 22 f1  22 53 68 69 66 74 20 6c  |N%)..\"."Shift l|
00000580  65 66 74 20 61 6e 64 20  74 68 65 6e 20 72 69 67  |eft and then rig|
00000590  68 74 20 22 3b 0d 03 66  1e e7 20 4e 25 3d 30 20  |ht ";..f.. N%=0 |
000005a0  8c 20 f1 22 66 61 73 74  22 20 8b 20 f1 22 73 6c  |. ."fast" . ."sl|
000005b0  6f 77 22 0d 03 70 0d 41  25 3d 31 3a 53 25 3d 31  |ow"..p.A%=1:S%=1|
000005c0  0d 03 7a 0e 54 75 25 3d  91 2b 44 75 72 25 0d 03  |..z.Tu%=.+Dur%..|
000005d0  84 05 f5 0d 03 8e 20 e7  20 53 25 3d 31 20 8c 20  |...... . S%=1 . |
000005e0  41 25 3d 41 25 3c 3c 31  20 8b 20 41 25 3d 41 25  |A%=A%<<1 . A%=A%|
000005f0  3e 3e 31 0d 03 98 1f e7  20 41 25 3d 26 31 30 30  |>>1..... A%=&100|
00000600  20 8c 20 41 25 3d 26 38  30 3a 53 25 3d ac 28 53  | . A%=&80:S%=.(S|
00000610  25 29 0d 03 a2 1a e7 20  41 25 3d 30 20 8c 20 41  |%)..... A%=0 . A|
00000620  25 3d 31 3a 53 25 3d ac  28 53 25 29 0d 03 ac 18  |%=1:S%=.(S%)....|
00000630  c8 99 22 50 61 72 61 6c  6c 65 6c 5f 4f 70 22 2c  |.."Parallel_Op",|
00000640  31 2c 41 25 0d 03 b6 17  e7 20 4e 25 3c 3e 30 20  |1,A%..... N%<>0 |
00000650  8c 20 f2 68 6f 6c 64 28  4e 25 29 0d 03 c0 0b fd  |. .hold(N%).....|
00000660  20 91 3e 54 75 25 0d 03  ca 05 e1 0d 03 d4 04 0d  | .>Tu%..........|
00000670  03 de 0b dd 20 f2 5f 42  69 6e 0d 03 e8 14 f1 22  |.... ._Bin....."|
00000680  42 69 6e 61 72 79 20 43  6f 75 6e 74 20 22 0d 03  |Binary Count "..|
00000690  f2 0d 54 25 3d 91 2b 44  75 72 25 0d 03 fc 05 f5  |..T%=.+Dur%.....|
000006a0  0d 04 06 12 f4 20 42 69  6e 61 72 79 20 43 6f 75  |..... Binary Cou|
000006b0  6e 74 0d 04 10 10 e3 20  50 25 3d 30 20 b8 20 32  |nt..... P%=0 . 2|
000006c0  35 35 0d 04 1a 18 c8 99  22 50 61 72 61 6c 6c 65  |55......"Paralle|
000006d0  6c 5f 4f 70 22 2c 31 2c  50 25 0d 04 24 05 ed 0d  |l_Op",1,P%..$...|
000006e0  04 2e 0a fd 20 91 3e 54  25 0d 04 38 05 e1 0d ff  |.... .>T%..8....|
000006f0

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .