Home » Archimedes archive » Acorn User » AU 1996-03 B.adf » Regulars » RunTheRisc/Time1

RunTheRisc/Time1

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/Time1
Read OK: ✔
File size: 0561 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM>Time1
   20PRINT"Rugby Time clock reading"
   30PRINT"By Mike Cook"
   40DIM Tod% 12
   50$Tod%="000:00:02"
   60Tod%?0=8
   70ON ERROR GOTO 1000
   80PRINT"Reads the Rugby clock through the printer port"
   90M%=0
  100
  110REPEAT
  120PRINT"Wating for start of data"
  130ID%=0
  140REPEAT
  150P%=FN_Blip
  160PRINT;P%;
  170ID%=(ID%<<1 OR P%) AND &FF
  180UNTIL ID%=&7E
  190
  200PRINT
  210PRINT"Data Starting"
  220PROC_Delay(2)
  230PRINT"Skip over DUT"
  240T%=TIME+100
  250IF M%<>0 THEN PROC_Set
  260REPEAT UNTIL TIME>=T%
  270PROC_Delay(14)
  280REM Now gather the data
  290PRINT"Year ";
  300Y%=FN_BCD(4)
  310D%=FN_BCD(4)
  320Y%=Y%*10+D%
  330PRINT TAB(13);Y%
  340PRINT"Month ";
  350P%=FN_Blip
  360J%=FN_BCD(4)
  370M%=P%*10+J%
  380PRINT TAB(13);M%
  390PRINT"Day of Month ";
  400Q%=FN_BCD(2)
  410D%=FN_BCD(4)
  420Dom%=Q%*10+D%
  430PRINT TAB(13);Dom%
  440
  450PRINT"Day of Week ";
  460Dow%=FN_BCD(3)
  470PRINT TAB(13);Dow%
  480
  490PRINT"Hour ";
  500H1%=FN_BCD(2)
  510Tod%?1=H1% OR &30
  520H%=FN_BCD(4)
  530Tod%?2=H% OR &30
  540H%=H%+H1%*10
  550PRINT TAB(13);H%
  560
  570PRINT"Minutes ";
  580M1%=FN_BCD(3)
  590Tod%?4=M1% OR &30
  600M%=FN_BCD(4)
  610Tod%?5=M% OR &30
  620M%=M%+M1%*10
  630PRINT TAB(13);M%
  640
  650UNTIL FALSE
  660END
  670
  680DEF FN_Blip
  690REPEAT
  700SYS &42EC1,0 TO ,,A%
  710A%=A%>>7
  720UNTIL A%=1
  730T%=TIME
  740REPEAT
  750SYS &42EC1,0 TO ,,A%
  760A%=A%>>7
  770UNTIL A%=0
  780L%=TIME-T%
  790IF L%<2 THEN GOTO 690
  800IF L%<15 THEN =0 ELSE =1
  810
  820DEF FN_BCD(V%)
  830G%=0
  840FOR C%=1 TO V%
  850G%=G% OR FN_Blip
  860G%=G%<<1
  870NEXT
  880=G%>>1
  890
  900DEF PROC_Set
  910SYS &7,15,Tod%
  920PRINT"Real time clock set"
  930ENDPROC
  940
  950DEF PROC_Delay(N%)
  960N%=N%*100+TIME
  970REPEAT
  980UNTIL TIME>N%
  990ENDPROC
 1000REPORT:PRINT" at line ";ERL


�>Time1
�"Rugby Time clock reading"
�"By Mike Cook"
(
� Tod% 12
2$Tod%="000:00:02"
<Tod%?0=8
F� � � �dhC
P5�"Reads the Rugby clock through the printer port"
ZM%=0
d
n�
x�"Wating for start of data"
�	ID%=0
��
�
P%=�_Blip
�	�;P%;
�ID%=(ID%<<1 � P%) � &FF
�
� ID%=&7E
�
��
��"Data Starting"
��_Delay(2)
��"Skip over DUT"
�T%=�+100
�� M%<>0 � �_Set

� � �>=T%
�_Delay(14)
� Now gather the data
"
�"Year ";
,Y%=�_BCD(4)
6D%=�_BCD(4)
@Y%=Y%*10+D%
J
� �13);Y%
T�"Month ";
^
P%=�_Blip
hJ%=�_BCD(4)
rM%=P%*10+J%
|
� �13);M%
��"Day of Month ";
�Q%=�_BCD(2)
�D%=�_BCD(4)
�Dom%=Q%*10+D%
�� �13);Dom%
�
��"Day of Week ";
�Dow%=�_BCD(3)
�� �13);Dow%
�
�
�"Hour ";
�H1%=�_BCD(2)
�Tod%?1=H1% � &30
H%=�_BCD(4)
Tod%?2=H% � &30
H%=H%+H1%*10
&
� �13);H%
0
:�"Minutes ";
DM1%=�_BCD(3)
NTod%?4=M1% � &30
XM%=�_BCD(4)
bTod%?5=M% � &30
lM%=M%+M1%*10
v
� �13);M%
�
�� �
��
�
�� �_Blip
��
�ș &42EC1,0 � ,,A%
�A%=A%>>7
�
� A%=1
�T%=�
��
�ș &42EC1,0 � ,,A%
�A%=A%>>7

� A%=0
L%=�-T%
� L%<2 � � �trB
 � L%<15 � =0 � =1
*
4� �_BCD(V%)
>G%=0
H� C%=1 � V%
RG%=G% � �_Blip
\G%=G%<<1
f�
p
=G%>>1
z
�� �_Set
�ș &7,15,Tod%
��"Real time clock set"
��
�
�� �_Delay(N%)
�N%=N%*100+�
��
�
� �>N%
��
��:�" at line ";�
�
00000000  0d 00 0a 0b f4 3e 54 69  6d 65 31 0d 00 14 1f f1  |.....>Time1.....|
00000010  22 52 75 67 62 79 20 54  69 6d 65 20 63 6c 6f 63  |"Rugby Time cloc|
00000020  6b 20 72 65 61 64 69 6e  67 22 0d 00 1e 13 f1 22  |k reading"....."|
00000030  42 79 20 4d 69 6b 65 20  43 6f 6f 6b 22 0d 00 28  |By Mike Cook"..(|
00000040  0d de 20 54 6f 64 25 20  31 32 0d 00 32 15 24 54  |.. Tod% 12..2.$T|
00000050  6f 64 25 3d 22 30 30 30  3a 30 30 3a 30 32 22 0d  |od%="000:00:02".|
00000060  00 3c 0c 54 6f 64 25 3f  30 3d 38 0d 00 46 0e ee  |.<.Tod%?0=8..F..|
00000070  20 85 20 e5 20 8d 64 68  43 0d 00 50 35 f1 22 52  | . . .dhC..P5."R|
00000080  65 61 64 73 20 74 68 65  20 52 75 67 62 79 20 63  |eads the Rugby c|
00000090  6c 6f 63 6b 20 74 68 72  6f 75 67 68 20 74 68 65  |lock through the|
000000a0  20 70 72 69 6e 74 65 72  20 70 6f 72 74 22 0d 00  | printer port"..|
000000b0  5a 08 4d 25 3d 30 0d 00  64 04 0d 00 6e 05 f5 0d  |Z.M%=0..d...n...|
000000c0  00 78 1f f1 22 57 61 74  69 6e 67 20 66 6f 72 20  |.x.."Wating for |
000000d0  73 74 61 72 74 20 6f 66  20 64 61 74 61 22 0d 00  |start of data"..|
000000e0  82 09 49 44 25 3d 30 0d  00 8c 05 f5 0d 00 96 0d  |..ID%=0.........|
000000f0  50 25 3d a4 5f 42 6c 69  70 0d 00 a0 09 f1 3b 50  |P%=._Blip.....;P|
00000100  25 3b 0d 00 aa 1b 49 44  25 3d 28 49 44 25 3c 3c  |%;....ID%=(ID%<<|
00000110  31 20 84 20 50 25 29 20  80 20 26 46 46 0d 00 b4  |1 . P%) . &FF...|
00000120  0d fd 20 49 44 25 3d 26  37 45 0d 00 be 04 0d 00  |.. ID%=&7E......|
00000130  c8 05 f1 0d 00 d2 14 f1  22 44 61 74 61 20 53 74  |........"Data St|
00000140  61 72 74 69 6e 67 22 0d  00 dc 0e f2 5f 44 65 6c  |arting"....._Del|
00000150  61 79 28 32 29 0d 00 e6  14 f1 22 53 6b 69 70 20  |ay(2)....."Skip |
00000160  6f 76 65 72 20 44 55 54  22 0d 00 f0 0c 54 25 3d  |over DUT"....T%=|
00000170  91 2b 31 30 30 0d 00 fa  13 e7 20 4d 25 3c 3e 30  |.+100..... M%<>0|
00000180  20 8c 20 f2 5f 53 65 74  0d 01 04 0d f5 20 fd 20  | . ._Set..... . |
00000190  91 3e 3d 54 25 0d 01 0e  0f f2 5f 44 65 6c 61 79  |.>=T%....._Delay|
000001a0  28 31 34 29 0d 01 18 19  f4 20 4e 6f 77 20 67 61  |(14)..... Now ga|
000001b0  74 68 65 72 20 74 68 65  20 64 61 74 61 0d 01 22  |ther the data.."|
000001c0  0d f1 22 59 65 61 72 20  22 3b 0d 01 2c 0f 59 25  |.."Year ";..,.Y%|
000001d0  3d a4 5f 42 43 44 28 34  29 0d 01 36 0f 44 25 3d  |=._BCD(4)..6.D%=|
000001e0  a4 5f 42 43 44 28 34 29  0d 01 40 0f 59 25 3d 59  |._BCD(4)..@.Y%=Y|
000001f0  25 2a 31 30 2b 44 25 0d  01 4a 0d f1 20 8a 31 33  |%*10+D%..J.. .13|
00000200  29 3b 59 25 0d 01 54 0e  f1 22 4d 6f 6e 74 68 20  |);Y%..T.."Month |
00000210  22 3b 0d 01 5e 0d 50 25  3d a4 5f 42 6c 69 70 0d  |";..^.P%=._Blip.|
00000220  01 68 0f 4a 25 3d a4 5f  42 43 44 28 34 29 0d 01  |.h.J%=._BCD(4)..|
00000230  72 0f 4d 25 3d 50 25 2a  31 30 2b 4a 25 0d 01 7c  |r.M%=P%*10+J%..||
00000240  0d f1 20 8a 31 33 29 3b  4d 25 0d 01 86 15 f1 22  |.. .13);M%....."|
00000250  44 61 79 20 6f 66 20 4d  6f 6e 74 68 20 22 3b 0d  |Day of Month ";.|
00000260  01 90 0f 51 25 3d a4 5f  42 43 44 28 32 29 0d 01  |...Q%=._BCD(2)..|
00000270  9a 0f 44 25 3d a4 5f 42  43 44 28 34 29 0d 01 a4  |..D%=._BCD(4)...|
00000280  11 44 6f 6d 25 3d 51 25  2a 31 30 2b 44 25 0d 01  |.Dom%=Q%*10+D%..|
00000290  ae 0f f1 20 8a 31 33 29  3b 44 6f 6d 25 0d 01 b8  |... .13);Dom%...|
000002a0  04 0d 01 c2 14 f1 22 44  61 79 20 6f 66 20 57 65  |......"Day of We|
000002b0  65 6b 20 22 3b 0d 01 cc  11 44 6f 77 25 3d a4 5f  |ek ";....Dow%=._|
000002c0  42 43 44 28 33 29 0d 01  d6 0f f1 20 8a 31 33 29  |BCD(3)..... .13)|
000002d0  3b 44 6f 77 25 0d 01 e0  04 0d 01 ea 0d f1 22 48  |;Dow%........."H|
000002e0  6f 75 72 20 22 3b 0d 01  f4 10 48 31 25 3d a4 5f  |our ";....H1%=._|
000002f0  42 43 44 28 32 29 0d 01  fe 14 54 6f 64 25 3f 31  |BCD(2)....Tod%?1|
00000300  3d 48 31 25 20 84 20 26  33 30 0d 02 08 0f 48 25  |=H1% . &30....H%|
00000310  3d a4 5f 42 43 44 28 34  29 0d 02 12 13 54 6f 64  |=._BCD(4)....Tod|
00000320  25 3f 32 3d 48 25 20 84  20 26 33 30 0d 02 1c 10  |%?2=H% . &30....|
00000330  48 25 3d 48 25 2b 48 31  25 2a 31 30 0d 02 26 0d  |H%=H%+H1%*10..&.|
00000340  f1 20 8a 31 33 29 3b 48  25 0d 02 30 04 0d 02 3a  |. .13);H%..0...:|
00000350  10 f1 22 4d 69 6e 75 74  65 73 20 22 3b 0d 02 44  |.."Minutes ";..D|
00000360  10 4d 31 25 3d a4 5f 42  43 44 28 33 29 0d 02 4e  |.M1%=._BCD(3)..N|
00000370  14 54 6f 64 25 3f 34 3d  4d 31 25 20 84 20 26 33  |.Tod%?4=M1% . &3|
00000380  30 0d 02 58 0f 4d 25 3d  a4 5f 42 43 44 28 34 29  |0..X.M%=._BCD(4)|
00000390  0d 02 62 13 54 6f 64 25  3f 35 3d 4d 25 20 84 20  |..b.Tod%?5=M% . |
000003a0  26 33 30 0d 02 6c 10 4d  25 3d 4d 25 2b 4d 31 25  |&30..l.M%=M%+M1%|
000003b0  2a 31 30 0d 02 76 0d f1  20 8a 31 33 29 3b 4d 25  |*10..v.. .13);M%|
000003c0  0d 02 80 04 0d 02 8a 07  fd 20 a3 0d 02 94 05 e0  |......... ......|
000003d0  0d 02 9e 04 0d 02 a8 0c  dd 20 a4 5f 42 6c 69 70  |......... ._Blip|
000003e0  0d 02 b2 05 f5 0d 02 bc  16 c8 99 20 26 34 32 45  |........... &42E|
000003f0  43 31 2c 30 20 b8 20 2c  2c 41 25 0d 02 c6 0c 41  |C1,0 . ,,A%....A|
00000400  25 3d 41 25 3e 3e 37 0d  02 d0 0a fd 20 41 25 3d  |%=A%>>7..... A%=|
00000410  31 0d 02 da 08 54 25 3d  91 0d 02 e4 05 f5 0d 02  |1....T%=........|
00000420  ee 16 c8 99 20 26 34 32  45 43 31 2c 30 20 b8 20  |.... &42EC1,0 . |
00000430  2c 2c 41 25 0d 02 f8 0c  41 25 3d 41 25 3e 3e 37  |,,A%....A%=A%>>7|
00000440  0d 03 02 0a fd 20 41 25  3d 30 0d 03 0c 0b 4c 25  |..... A%=0....L%|
00000450  3d 91 2d 54 25 0d 03 16  13 e7 20 4c 25 3c 32 20  |=.-T%..... L%<2 |
00000460  8c 20 e5 20 8d 74 72 42  0d 03 20 15 e7 20 4c 25  |. . .trB.. .. L%|
00000470  3c 31 35 20 8c 20 3d 30  20 8b 20 3d 31 0d 03 2a  |<15 . =0 . =1..*|
00000480  04 0d 03 34 0f dd 20 a4  5f 42 43 44 28 56 25 29  |...4.. ._BCD(V%)|
00000490  0d 03 3e 08 47 25 3d 30  0d 03 48 0f e3 20 43 25  |..>.G%=0..H.. C%|
000004a0  3d 31 20 b8 20 56 25 0d  03 52 12 47 25 3d 47 25  |=1 . V%..R.G%=G%|
000004b0  20 84 20 a4 5f 42 6c 69  70 0d 03 5c 0c 47 25 3d  | . ._Blip..\.G%=|
000004c0  47 25 3c 3c 31 0d 03 66  05 ed 0d 03 70 0a 3d 47  |G%<<1..f....p.=G|
000004d0  25 3e 3e 31 0d 03 7a 04  0d 03 84 0b dd 20 f2 5f  |%>>1..z...... ._|
000004e0  53 65 74 0d 03 8e 11 c8  99 20 26 37 2c 31 35 2c  |Set...... &7,15,|
000004f0  54 6f 64 25 0d 03 98 1a  f1 22 52 65 61 6c 20 74  |Tod%....."Real t|
00000500  69 6d 65 20 63 6c 6f 63  6b 20 73 65 74 22 0d 03  |ime clock set"..|
00000510  a2 05 e1 0d 03 ac 04 0d  03 b6 11 dd 20 f2 5f 44  |............ ._D|
00000520  65 6c 61 79 28 4e 25 29  0d 03 c0 0f 4e 25 3d 4e  |elay(N%)....N%=N|
00000530  25 2a 31 30 30 2b 91 0d  03 ca 05 f5 0d 03 d4 0a  |%*100+..........|
00000540  fd 20 91 3e 4e 25 0d 03  de 05 e1 0d 03 e8 14 f6  |. .>N%..........|
00000550  3a f1 22 20 61 74 20 6c  69 6e 65 20 22 3b 9e 0d  |:." at line ";..|
00000560  ff                                                |.|
00000561

© Dominic Ford 2021–2025.

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