_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

SETTIME.L

FILE INFORMATION

FILENAME(S): SETTIME.L

FILE TYPE(S): SEQ

FILE SIZE: 759b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 2 disk(s)

FILE HASH

9ff3bd3a628d3a8f37166bbfbd9834424543f7f28193b89ca9a5d3fb812bb4a4

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL SETTIME.L SEQ hedning, Mattias H00r 27 7 DOWNLOAD FILE
CCS COMAL SETTIME.L SEQ hedning, Mattias H00r 27 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 53 45 54 54 49 4D  |9000 PROC SETTIM|
00000010: 45 28 48 52 53 2C 4D 4E  54 2C 53 45 43 29 20 43  |E(HRS,MNT,SEC) C|
00000020: 4C 4F 53 45 44 0D 39 30  31 30 20 43 49 41 31 3A  |LOSED.9010 CIA1:|
00000030: 3D 35 36 33 32 30 3B 20  43 43 52 42 3A 3D 35 36  |=56320; CCRB:=56|
00000040: 33 33 35 0D 39 30 32 30  20 50 4F 4B 45 20 43 43  |335.9020 POKE CC|
00000050: 52 42 2C 50 45 45 4B 28  43 43 52 42 29 20 4D 4F  |RB,PEEK(CCRB) MO|
00000060: 44 20 31 32 38 0D 39 30  33 30 20 58 3A 3D 30 0D  |D 128.9030 X:=0.|
00000070: 39 30 34 30 20 49 46 20  48 52 53 3E 31 32 20 54  |9040 IF HRS>12 T|
00000080: 48 45 4E 20 58 3A 3D 31  32 38 3B 20 48 52 53 3A  |HEN X:=128; HRS:|
00000090: 2D 31 32 0D 39 30 35 30  20 49 46 20 48 52 53 3D  |-12.9050 IF HRS=|
000000A0: 30 20 54 48 45 4E 20 48  52 53 3A 3D 31 32 0D 39  |0 THEN HRS:=12.9|
000000B0: 30 36 30 20 58 3A 2B 28  48 52 53 20 44 49 56 20  |060 X:+(HRS DIV |
000000C0: 31 30 29 2A 31 36 2B 28  48 52 53 20 4D 4F 44 20  |10)*16+(HRS MOD |
000000D0: 31 30 29 0D 39 30 37 30  20 50 4F 4B 45 20 43 49  |10).9070 POKE CI|
000000E0: 41 31 2B 31 31 2C 58 0D  39 30 38 30 20 50 4F 4B  |A1+11,X.9080 POK|
000000F0: 45 20 43 49 41 31 2B 31  30 2C 28 4D 4E 54 20 44  |E CIA1+10,(MNT D|
00000100: 49 56 20 31 30 29 2A 31  36 2B 28 4D 4E 54 20 4D  |IV 10)*16+(MNT M|
00000110: 4F 44 20 31 30 29 0D 39  30 39 30 20 50 4F 4B 45  |OD 10).9090 POKE|
00000120: 20 43 49 41 31 2B 39 2C  28 53 45 43 20 44 49 56  | CIA1+9,(SEC DIV|
00000130: 20 31 30 29 2A 31 36 2B  28 53 45 43 20 4D 4F 44  | 10)*16+(SEC MOD|
00000140: 20 31 30 29 0D 39 31 30  30 20 50 4F 4B 45 20 43  | 10).9100 POKE C|
00000150: 49 41 31 2B 38 2C 30 0D  39 31 31 30 20 45 4E 44  |IA1+8,0.9110 END|
00000160: 50 52 4F 43 20 53 45 54  54 49 4D 45 0D 39 31 32  |PROC SETTIME.912|
00000170: 30 20 2F 2F 0D 39 31 33  30 20 46 55 4E 43 20 52  |0 //.9130 FUNC R|
00000180: 45 41 44 54 49 4D 45 20  43 4C 4F 53 45 44 0D 39  |EADTIME CLOSED.9|
00000190: 31 34 30 20 43 49 41 31  3A 3D 35 36 33 32 30 3B  |140 CIA1:=56320;|
000001A0: 20 58 3A 3D 30 0D 39 31  35 30 20 58 3A 3D 50 45  | X:=0.9150 X:=PE|
000001B0: 45 4B 28 43 49 41 31 2B  31 31 29 0D 39 31 36 30  |EK(CIA1+11).9160|
000001C0: 20 41 4D 27 50 4D 3A 3D  58 20 44 49 56 20 31 32  | AM'PM:=X DIV 12|
000001D0: 38 3B 20 58 3A 3D 58 20  4D 4F 44 20 31 32 38 0D  |8; X:=X MOD 128.|
000001E0: 39 31 37 30 20 58 3A 3D  28 58 20 44 49 56 20 31  |9170 X:=(X DIV 1|
000001F0: 36 29 2A 31 30 2B 28 58  20 4D 4F 44 20 31 36 29  |6)*10+(X MOD 16)|
00000200: 0D 39 31 38 30 20 49 46  20 58 3D 31 32 20 54 48  |.9180 IF X=12 TH|
00000210: 45 4E 20 58 3A 3D 30 0D  39 31 39 30 20 58 3A 2B  |EN X:=0.9190 X:+|
00000220: 31 32 2A 41 4D 27 50 4D  0D 39 32 30 30 20 58 3A  |12*AM'PM.9200 X:|
00000230: 3D 58 2A 31 30 30 0D 39  32 31 30 20 58 3A 3D 58  |=X*100.9210 X:=X|
00000240: 2B 28 28 50 45 45 4B 28  43 49 41 31 2B 31 30 29  |+((PEEK(CIA1+10)|
00000250: 20 44 49 56 20 31 36 29  2A 31 30 29 2B 28 50 45  | DIV 16)*10)+(PE|
00000260: 45 4B 28 43 49 41 31 2B  31 30 29 20 4D 4F 44 20  |EK(CIA1+10) MOD |
00000270: 31 36 29 0D 39 32 32 30  20 58 3A 3D 58 2B 28 28  |16).9220 X:=X+((|
00000280: 50 45 45 4B 28 43 49 41  31 2B 39 29 20 44 49 56  |PEEK(CIA1+9) DIV|
00000290: 20 31 36 29 2F 31 30 29  2B 28 28 50 45 45 4B 28  | 16)/10)+((PEEK(|
000002A0: 43 49 41 31 2B 39 29 20  4D 4F 44 20 31 36 29 2F  |CIA1+9) MOD 16)/|
000002B0: 31 30 30 29 0D 39 32 33  30 20 58 3A 3D 58 2B 28  |100).9230 X:=X+(|
000002C0: 50 45 45 4B 28 43 49 41  31 2B 38 29 2F 31 30 30  |PEEK(CIA1+8)/100|
000002D0: 30 29 0D 39 32 34 30 20  52 45 54 55 52 4E 20 58  |0).9240 RETURN X|
000002E0: 0D 39 32 35 30 20 45 4E  44 46 55 4E 43 20 52 45  |.9250 ENDFUNC RE|
000002F0: 41 44 54 49 4D 45 0D                              |ADTIME.         |

9000 PROC SETTIME(HRS,MNT,SEC) CLOSED.90
10 CIA1:=56320; CCRB:=56335.9020 POKE CC
RB,PEEK(CCRB) MOD 128.9030 X:=0.9040 IF 
HRS>12 THEN X:=128; HRS:-12.9050 IF HRS=
0 THEN HRS:=12.9060 X:+(HRS DIV 10)*16+(
HRS MOD 10).9070 POKE CIA1+11,X.9080 POK
E CIA1+10,(MNT DIV 10)*16+(MNT MOD 10).9
090 POKE CIA1+9,(SEC DIV 10)*16+(SEC MOD
 10).9100 POKE CIA1+8,0.9110 ENDPROC SET
TIME.9120 //.9130 FUNC READTIME CLOSED.9
140 CIA1:=56320; X:=0.9150 X:=PEEK(CIA1+
11).9160 AM'PM:=X DIV 128; X:=X MOD 128.
9170 X:=(X DIV 16)*10+(X MOD 16).9180 IF
 X=12 THEN X:=0.9190 X:+12*AM'PM.9200 X:
=X*100.9210 X:=X+((PEEK(CIA1+10) DIV 16)
*10)+(PEEK(CIA1+10) MOD 16).9220 X:=X+((
PEEK(CIA1+9) DIV 16)/10)+((PEEK(CIA1+9) 
MOD 16)/100).9230 X:=X+(PEEK(CIA1+8)/100
0).9240 RETURN X.9250 ENDFUNC READTIME.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL