Home » Archimedes archive » Acorn User » AU 1996-03 B.adf » Regulars » RunTheRisc/Time0
RunTheRisc/Time0
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-03 B.adf » Regulars |
| Filename: | RunTheRisc/Time0 |
| Read OK: | ✔ |
| File size: | 02F7 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>Time0 20PRINT"Rugby Time clock test" 30PRINT"By Mike Cook" 40PRINT"Testing the Rugby clock through the printer port Busy" 50REPEAT 60PRINT 70PRINT"1 - For timing" 80PRINT"2 - For logic bits" 90A$=GET$ 100IF A$="1" THEN PROC_T 110IF A$="2" THEN PROC_L 120UNTIL FALSE 130 140DEF PROC_T 150PRINT"Time for each blip in 100th seconds" 160FOR Bits=0 TO 70 170P%=FN_Time 180PRINT;P%;" "; 190NEXT 200ENDPROC 210 220DEF PROC_L 230PRINT"Logic levels from clock" 240FOR Bits=0 TO 70 250P%=FN_Blip 260PRINT;P%;" "; 270NEXT 280ENDPROC 290 300DEF FN_Time 310REPEAT 320SYS &42EC1,0 TO ,,A% 330A%=A%>>7 340UNTIL A%=1 350T%=TIME 360REPEAT 370SYS &42EC1,0 TO ,,A% 380A%=A%>>7 390UNTIL A%=0 400=TIME-T% 410 420DEF FN_Blip 430REPEAT 440SYS &42EC1,0 TO ,,A% 450A%=A%>>7 460UNTIL A%=1 470T%=TIME 480REPEAT 490SYS &42EC1,0 TO ,,A% 500A%=A%>>7 510UNTIL A%=0 520L%=TIME-T% 530IF L%<2 THEN GOTO 430 540IF L%<15 THEN =0 ELSE =1 550 560REPORT:PRINT" at line ";ERL
�>Time0 �"Rugby Time clock test" �"By Mike Cook" (<�"Testing the Rugby clock through the printer port Busy" 2� <� F�"1 - For timing" P�"2 - For logic bits" ZA$=� d� A$="1" � �_T n� A$="2" � �_L x� � � � � �_T �*�"Time for each blip in 100th seconds" �� Bits=0 � 70 � P%=�_Time � �;P%;" "; �� �� � � � �_L � �"Logic levels from clock" �� Bits=0 � 70 � P%=�_Blip �;P%;" "; � � " , � �_Time 6� @ș &42EC1,0 � ,,A% J A%=A%>>7 T � A%=1 ^T%=� h� rș &42EC1,0 � ,,A% | A%=A%>>7 � � A%=0 � =�-T% � � � �_Blip �� �ș &42EC1,0 � ,,A% � A%=A%>>7 � � A%=1 �T%=� �� �ș &42EC1,0 � ,,A% � A%=A%>>7 � � A%=0 L%=�-T% � L%<2 � � �tnA � L%<15 � =0 � =1 & 0�:�" at line ";� �
00000000 0d 00 0a 0b f4 3e 54 69 6d 65 30 0d 00 14 1c f1 |.....>Time0.....| 00000010 22 52 75 67 62 79 20 54 69 6d 65 20 63 6c 6f 63 |"Rugby Time cloc| 00000020 6b 20 74 65 73 74 22 0d 00 1e 13 f1 22 42 79 20 |k test"....."By | 00000030 4d 69 6b 65 20 43 6f 6f 6b 22 0d 00 28 3c f1 22 |Mike Cook"..(<."| 00000040 54 65 73 74 69 6e 67 20 74 68 65 20 52 75 67 62 |Testing the Rugb| 00000050 79 20 63 6c 6f 63 6b 20 74 68 72 6f 75 67 68 20 |y clock through | 00000060 74 68 65 20 70 72 69 6e 74 65 72 20 70 6f 72 74 |the printer port| 00000070 20 42 75 73 79 22 0d 00 32 05 f5 0d 00 3c 05 f1 | Busy"..2....<..| 00000080 0d 00 46 15 f1 22 31 20 2d 20 46 6f 72 20 74 69 |..F.."1 - For ti| 00000090 6d 69 6e 67 22 0d 00 50 19 f1 22 32 20 2d 20 46 |ming"..P.."2 - F| 000000a0 6f 72 20 6c 6f 67 69 63 20 62 69 74 73 22 0d 00 |or logic bits"..| 000000b0 5a 08 41 24 3d be 0d 00 64 12 e7 20 41 24 3d 22 |Z.A$=...d.. A$="| 000000c0 31 22 20 8c 20 f2 5f 54 0d 00 6e 12 e7 20 41 24 |1" . ._T..n.. A$| 000000d0 3d 22 32 22 20 8c 20 f2 5f 4c 0d 00 78 07 fd 20 |="2" . ._L..x.. | 000000e0 a3 0d 00 82 04 0d 00 8c 09 dd 20 f2 5f 54 0d 00 |.......... ._T..| 000000f0 96 2a f1 22 54 69 6d 65 20 66 6f 72 20 65 61 63 |.*."Time for eac| 00000100 68 20 62 6c 69 70 20 69 6e 20 31 30 30 74 68 20 |h blip in 100th | 00000110 73 65 63 6f 6e 64 73 22 0d 00 a0 11 e3 20 42 69 |seconds"..... Bi| 00000120 74 73 3d 30 20 b8 20 37 30 0d 00 aa 0d 50 25 3d |ts=0 . 70....P%=| 00000130 a4 5f 54 69 6d 65 0d 00 b4 0d f1 3b 50 25 3b 22 |._Time.....;P%;"| 00000140 20 22 3b 0d 00 be 05 ed 0d 00 c8 05 e1 0d 00 d2 | ";.............| 00000150 04 0d 00 dc 09 dd 20 f2 5f 4c 0d 00 e6 1e f1 22 |...... ._L....."| 00000160 4c 6f 67 69 63 20 6c 65 76 65 6c 73 20 66 72 6f |Logic levels fro| 00000170 6d 20 63 6c 6f 63 6b 22 0d 00 f0 11 e3 20 42 69 |m clock"..... Bi| 00000180 74 73 3d 30 20 b8 20 37 30 0d 00 fa 0d 50 25 3d |ts=0 . 70....P%=| 00000190 a4 5f 42 6c 69 70 0d 01 04 0d f1 3b 50 25 3b 22 |._Blip.....;P%;"| 000001a0 20 22 3b 0d 01 0e 05 ed 0d 01 18 05 e1 0d 01 22 | ";............"| 000001b0 04 0d 01 2c 0c dd 20 a4 5f 54 69 6d 65 0d 01 36 |...,.. ._Time..6| 000001c0 05 f5 0d 01 40 16 c8 99 20 26 34 32 45 43 31 2c |....@... &42EC1,| 000001d0 30 20 b8 20 2c 2c 41 25 0d 01 4a 0c 41 25 3d 41 |0 . ,,A%..J.A%=A| 000001e0 25 3e 3e 37 0d 01 54 0a fd 20 41 25 3d 31 0d 01 |%>>7..T.. A%=1..| 000001f0 5e 08 54 25 3d 91 0d 01 68 05 f5 0d 01 72 16 c8 |^.T%=...h....r..| 00000200 99 20 26 34 32 45 43 31 2c 30 20 b8 20 2c 2c 41 |. &42EC1,0 . ,,A| 00000210 25 0d 01 7c 0c 41 25 3d 41 25 3e 3e 37 0d 01 86 |%..|.A%=A%>>7...| 00000220 0a fd 20 41 25 3d 30 0d 01 90 09 3d 91 2d 54 25 |.. A%=0....=.-T%| 00000230 0d 01 9a 04 0d 01 a4 0c dd 20 a4 5f 42 6c 69 70 |......... ._Blip| 00000240 0d 01 ae 05 f5 0d 01 b8 16 c8 99 20 26 34 32 45 |........... &42E| 00000250 43 31 2c 30 20 b8 20 2c 2c 41 25 0d 01 c2 0c 41 |C1,0 . ,,A%....A| 00000260 25 3d 41 25 3e 3e 37 0d 01 cc 0a fd 20 41 25 3d |%=A%>>7..... A%=| 00000270 31 0d 01 d6 08 54 25 3d 91 0d 01 e0 05 f5 0d 01 |1....T%=........| 00000280 ea 16 c8 99 20 26 34 32 45 43 31 2c 30 20 b8 20 |.... &42EC1,0 . | 00000290 2c 2c 41 25 0d 01 f4 0c 41 25 3d 41 25 3e 3e 37 |,,A%....A%=A%>>7| 000002a0 0d 01 fe 0a fd 20 41 25 3d 30 0d 02 08 0b 4c 25 |..... A%=0....L%| 000002b0 3d 91 2d 54 25 0d 02 12 13 e7 20 4c 25 3c 32 20 |=.-T%..... L%<2 | 000002c0 8c 20 e5 20 8d 74 6e 41 0d 02 1c 15 e7 20 4c 25 |. . .tnA..... L%| 000002d0 3c 31 35 20 8c 20 3d 30 20 8b 20 3d 31 0d 02 26 |<15 . =0 . =1..&| 000002e0 04 0d 02 30 14 f6 3a f1 22 20 61 74 20 6c 69 6e |...0..:." at lin| 000002f0 65 20 22 3b 9e 0d ff |e ";...| 000002f7
.