Home » Archimedes archive » Acorn User » AU 1995-07.adf » !Regulars_Regulars » RunTheRisc/Steady2
RunTheRisc/Steady2
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 1995-07.adf » !Regulars_Regulars |
| Filename: | RunTheRisc/Steady2 |
| Read OK: | ✔ |
| File size: | 0211 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>!PortMon.PortMon 20ON ERROR PRINT REPORT$" at line ";ERL:END 30 40PRINT"Steady Hands 2 - Detect the fault & end" 50PRINT"By Mike Cook" 60 70SYS"XParallel_Op",0 TO ,,D% ;F% 80IF (F% AND 1)=1 THEN 90PRINT"Mono direction printer port" 100PRINT"You need to load the Mono_D module" 110END 120ENDIF 130PRINT"Press the space bar to start" 140REPEAT UNTIL(INKEY(-99)) 150 160PRINT"Go!" 170T%=TIME 180REPEAT 190SYS"Parallel_Op",0 TO ,,D% 200IF (D% AND &80) <> 0 THEN VDU 7:PRINT"Touched":PROC_DELAY 210UNTIL (D% AND &40) = 0 220PRINT"Time taken ";(TIME-T%)/100;" seconds" 230END 240 250DEF PROC_DELAY 260LOCAL T% 270T%=TIME+10 280REPEAT UNTIL TIME>T% 290ENDPROC
�>!PortMon.PortMon � � � �$" at line ";�:� (.�"Steady Hands 2 - Detect the fault & end" 2�"By Mike Cook" < F!ș"XParallel_Op",0 � ,,D% ;F% P� (F% � 1)=1 � Z"�"Mono direction printer port" d)�"You need to load the Mono_D module" n� x� �#�"Press the space bar to start" �� �(�(-99)) � � �"Go!" �T%=� �� � ș"Parallel_Op",0 � ,,D% �.� (D% � &80) <> 0 � � 7:�"Touched":�_DELAY �� (D% � &40) = 0 �(�"Time taken ";(�-T%)/100;" seconds" �� � � � �_DELAY � T% T%=�+10 � � �>T% "� �
00000000 0d 00 0a 16 f4 3e 21 50 6f 72 74 4d 6f 6e 2e 50 |.....>!PortMon.P| 00000010 6f 72 74 4d 6f 6e 0d 00 14 1b ee 20 85 20 f1 20 |ortMon..... . . | 00000020 f6 24 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e 3a |.$" at line ";.:| 00000030 e0 0d 00 1e 04 0d 00 28 2e f1 22 53 74 65 61 64 |.......(.."Stead| 00000040 79 20 48 61 6e 64 73 20 32 20 2d 20 44 65 74 65 |y Hands 2 - Dete| 00000050 63 74 20 74 68 65 20 66 61 75 6c 74 20 26 20 65 |ct the fault & e| 00000060 6e 64 22 0d 00 32 13 f1 22 42 79 20 4d 69 6b 65 |nd"..2.."By Mike| 00000070 20 43 6f 6f 6b 22 0d 00 3c 04 0d 00 46 21 c8 99 | Cook"..<...F!..| 00000080 22 58 50 61 72 61 6c 6c 65 6c 5f 4f 70 22 2c 30 |"XParallel_Op",0| 00000090 20 b8 20 2c 2c 44 25 20 3b 46 25 0d 00 50 12 e7 | . ,,D% ;F%..P..| 000000a0 20 28 46 25 20 80 20 31 29 3d 31 20 8c 0d 00 5a | (F% . 1)=1 ...Z| 000000b0 22 f1 22 4d 6f 6e 6f 20 64 69 72 65 63 74 69 6f |"."Mono directio| 000000c0 6e 20 70 72 69 6e 74 65 72 20 70 6f 72 74 22 0d |n printer port".| 000000d0 00 64 29 f1 22 59 6f 75 20 6e 65 65 64 20 74 6f |.d)."You need to| 000000e0 20 6c 6f 61 64 20 74 68 65 20 4d 6f 6e 6f 5f 44 | load the Mono_D| 000000f0 20 6d 6f 64 75 6c 65 22 0d 00 6e 05 e0 0d 00 78 | module"..n....x| 00000100 05 cd 0d 00 82 23 f1 22 50 72 65 73 73 20 74 68 |.....#."Press th| 00000110 65 20 73 70 61 63 65 20 62 61 72 20 74 6f 20 73 |e space bar to s| 00000120 74 61 72 74 22 0d 00 8c 0f f5 20 fd 28 a6 28 2d |tart"..... .(.(-| 00000130 39 39 29 29 0d 00 96 04 0d 00 a0 0a f1 22 47 6f |99))........."Go| 00000140 21 22 0d 00 aa 08 54 25 3d 91 0d 00 b4 05 f5 0d |!"....T%=.......| 00000150 00 be 1c c8 99 22 50 61 72 61 6c 6c 65 6c 5f 4f |....."Parallel_O| 00000160 70 22 2c 30 20 b8 20 2c 2c 44 25 0d 00 c8 2e e7 |p",0 . ,,D%.....| 00000170 20 28 44 25 20 80 20 26 38 30 29 20 3c 3e 20 30 | (D% . &80) <> 0| 00000180 20 8c 20 ef 20 37 3a f1 22 54 6f 75 63 68 65 64 | . . 7:."Touched| 00000190 22 3a f2 5f 44 45 4c 41 59 0d 00 d2 14 fd 20 28 |":._DELAY..... (| 000001a0 44 25 20 80 20 26 34 30 29 20 3d 20 30 0d 00 dc |D% . &40) = 0...| 000001b0 28 f1 22 54 69 6d 65 20 74 61 6b 65 6e 20 22 3b |(."Time taken ";| 000001c0 28 91 2d 54 25 29 2f 31 30 30 3b 22 20 73 65 63 |(.-T%)/100;" sec| 000001d0 6f 6e 64 73 22 0d 00 e6 05 e0 0d 00 f0 04 0d 00 |onds"...........| 000001e0 fa 0d dd 20 f2 5f 44 45 4c 41 59 0d 01 04 08 ea |... ._DELAY.....| 000001f0 20 54 25 0d 01 0e 0b 54 25 3d 91 2b 31 30 0d 01 | T%....T%=.+10..| 00000200 18 0c f5 20 fd 20 91 3e 54 25 0d 01 22 05 e1 0d |... . .>T%.."...| 00000210 ff |.| 00000211
.