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

TS-KLOK

FILE INFORMATION

FILENAME(S): TS-KLOK

FILE TYPE(S): PRG, DEL

FILE SIZE: 1.3K

FIRST SEEN: 2025-11-30 21:23:32

APPEARS ON: 2 disk(s)

FILE HASH

ae3d49a91ef4c6d0971c213b5f78758188ab8b481663bddd5b30befe4de62925

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
GAMES TS-KLOK PRG DuncanTwain 6 2 DOWNLOAD FILE
HERMAN TS-KLOK DEL DuncanTwain 13 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 08 0B 08 0A 00 4F 55  54 20 34 00 28 08 14 00  |......OUT 4.(...|
00000010: AC B2 24 43 30 30 30 20  21 D5 45 53 43 48 41 52  |..$C000 !.ESCHAR|
00000020: 49 4E 47 20 4B 4C 4F 4B  00 48 08 1E 00 4C 44 41  |ING KLOK.H...LDA|
00000030: 20 24 44 43 30 45 20 21  53 45 54 20 4B 4C 4F 4B  | $DC0E !SET KLOK|
00000040: 20 4F 50 20 35 30 48 5A  00 54 08 28 00 B0 41 20  | OP 50HZ.T.(..A |
00000050: 23 24 38 30 00 62 08 32  00 53 54 41 20 24 44 43  |#$80.b.2.STA $DC|
00000060: 30 45 00 7C 08 3C 00 4C  44 41 20 24 44 43 30 46  |0E.|.<.LDA $DC0F|
00000070: 20 21 53 54 41 52 54 20  4B 4C 4F 4B 00 87 08 46  | !START KLOK...F|
00000080: 00 AF 20 23 24 37 46 00  95 08 50 00 53 54 41 20  |.. #$7F...P.STA |
00000090: 24 44 43 30 46 00 AE 08  5A 00 4A 53 52 20 24 37  |$DC0F...Z.JSR $7|
000000A0: 39 20 21 A1 20 43 48 41  52 41 43 54 45 52 00 CA  |9 !. CHARACTER..|
000000B0: 08 64 00 42 45 51 20 24  36 35 20 21 4B 4C 4F 4B  |.d.BEQ $65 !KLOK|
000000C0: 20 4F 4D 53 43 48 41 4B  45 C3 00 D8 08 6E 00 4A  | OMSCHAKE....n.J|
000000D0: 53 52 20 24 41 45 46 44  00 F2 08 78 00 4A 53 52  |SR $AEFD...x.JSR|
000000E0: 20 24 41 44 39 45 20 21  53 54 52 49 4E 47 20 48  | $AD9E !STRING H|
000000F0: 41 C3 00 0B 09 82 00 4A  53 52 20 24 42 36 41 33  |A......JSR $B6A3|
00000100: 20 21 50 41 52 41 4D 45  54 45 52 00 21 09 8C 00  | !PARAMETER.!...|
00000110: 43 4D 50 20 23 36 20 21  36 20 54 45 4B 45 4E 53  |CMP #6 !6 TEKENS|
00000120: 99 00 3E 09 96 00 42 4E  45 20 41 37 20 21 49 4C  |..>...BNE A7 !IL|
00000130: 4C 45 47 41 4C 20 51 55  41 4E 54 49 54 59 00 4A  |LEGAL QUANTITY.J|
00000140: 09 A0 00 4C 44 59 20 23  24 30 00 68 09 AA 00 4C  |...LDY #$0.h...L|
00000150: 44 41 20 28 24 32 32 29  2C 59 20 21 55 55 52 AB  |DA ($22),Y !UUR.|
00000160: 54 49 45 4E 54 41 4C C3  00 70 09 B4 00 53 45 43  |TIENTAL..p...SEC|
00000170: 00 87 09 BE 00 53 42 43  20 23 24 33 30 20 21 4E  |.....SBC #$30 !N|
00000180: 41 41 52 20 48 45 58 00  93 09 C8 00 43 4D 50 20  |AAR HEX.....CMP |
00000190: 23 24 33 00 9E 09 D2 00  42 43 53 20 41 37 00 A8  |#$3.....BCS A7..|
000001A0: 09 DC 00 41 53 4C 20 41  00 B2 09 E6 00 41 53 4C  |...ASL A.....ASL|
000001B0: 20 41 00 BC 09 F0 00 41  53 4C 20 41 00 C6 09 FA  | A.....ASL A....|
000001C0: 00 41 53 4C 20 41 00 D2  09 04 01 53 54 41 20 24  |.ASL A.....STA $|
000001D0: 46 42 00 DA 09 0E 01 49  4E 59 00 F8 09 18 01 4C  |FB.....INY.....L|
000001E0: 44 41 20 28 24 32 32 29  2C 59 20 21 55 55 52 20  |DA ($22),Y !UUR |
000001F0: 45 45 4E 48 45 44 45 4E  00 00 0A 22 01 53 45 43  |EENHEDEN...".SEC|
00000200: 00 0D 0A 2C 01 53 42 43  20 23 24 33 30 00 1A 0A  |...,.SBC #$30...|
00000210: 36 01 43 4D 50 20 23 24  31 30 00 26 0A 40 01 42  |6.CMP #$10.&.@.B|
00000220: 43 53 20 24 35 30 00 31  0A 4A 01 B0 41 20 24 46  |CS $50.1.J..A $F|
00000230: 42 00 3C 0A 54 01 42 4E  45 20 41 34 00 53 0A 5E  |B.<.T.BNE A4.S.^|
00000240: 01 4C 44 41 20 24 39 32  20 21 31 32 20 55 55 52  |.LDA $92 !12 UUR|
00000250: 20 50 4D 00 5E 0A 68 01  42 4E 45 20 41 35 00 6E  | PM.^.h.BNE A5.n|
00000260: 0A 72 01 41 34 20 43 4D  50 20 23 24 32 34 00 7A  |.r.A4 CMP #$24.z|
00000270: 0A 7C 01 42 43 53 20 24  34 34 00 87 0A 86 01 43  |.|.BCS $44.....C|
00000280: 4D 50 20 23 24 31 33 00  92 0A 90 01 42 43 43 20  |MP #$13.....BCC |
00000290: 41 35 00 9A 0A 9A 01 53  45 43 00 A2 0A A4 01 53  |A5.....SEC.....S|
000002A0: 45 44 00 AF 0A AE 01 53  42 43 20 23 24 31 32 00  |ED.....SBC #$12.|
000002B0: B7 0A B8 01 43 4C 44 00  C2 0A C2 01 B0 41 20 24  |....CLD......A $|
000002C0: 38 30 00 D3 0A CC 01 41  35 20 53 54 41 20 24 44  |80.....A5 STA $D|
000002D0: 43 30 42 00 DE 0A D6 01  4A 53 52 20 41 36 00 EC  |C0B.....JSR A6..|
000002E0: 0A E0 01 53 54 41 20 24  44 43 30 41 00 F7 0A EA  |...STA $DC0A....|
000002F0: 01 4A 53 52 20 41 36 00  05 0B F4 01 53 54 41 20  |.JSR A6.....STA |
00000300: 24 44 43 30 39 00 11 0B  FE 01 4C 44 41 20 23 24  |$DC09.....LDA #$|
00000310: 30 00 1F 0B 08 02 53 54  41 20 24 44 43 30 38 00  |0.....STA $DC08.|
00000320: 2B 0B 12 02 4A 53 52 20  24 37 39 00 37 0B 1C 02  |+...JSR $79.7...|
00000330: 42 45 51 20 24 30 44 00  45 0B 26 02 4A 53 52 20  |BEQ $0D.E.&.JSR |
00000340: 24 41 45 46 44 00 53 0B  30 02 4A 53 52 20 24 42  |$AEFD.S.0.JSR $B|
00000350: 37 39 45 00 5F 0B 3A 02  43 50 58 20 23 31 36 00  |79E._.:.CPX #16.|
00000360: 6A 0B 44 02 42 43 53 20  41 37 00 78 0B 4E 02 53  |j.D.BCS A7.x.N.S|
00000370: 54 58 20 24 30 32 41 37  00 8F 0B 58 02 41 38 20  |TX $02A7...X.A8 |
00000380: 53 45 49 20 21 4B 4C 45  55 52 20 43 4F 44 45 00  |SEI !KLEUR CODE.|
00000390: 9D 0B 62 02 4C 44 41 20  24 30 33 31 34 00 A8 0B  |..b.LDA $0314...|
000003A0: 6C 02 45 B0 20 24 41 31  00 B6 0B 76 02 53 54 41  |l.E. $A1...v.STA|
000003B0: 20 24 30 33 31 34 00 C4  0B 80 02 4C 44 41 20 24  | $0314.....LDA $|
000003C0: 30 33 31 35 00 CF 0B 8A  02 45 B0 20 24 32 32 00  |0315.....E. $22.|
000003D0: DD 0B 94 02 53 54 41 20  24 30 33 31 35 00 E5 0B  |....STA $0315...|
000003E0: 9E 02 43 4C 49 00 ED 0B  A8 02 52 54 53 00 FE 0B  |..CLI.....RTS...|
000003F0: B2 02 41 37 20 4A 4D 50  20 24 42 32 34 38 00 0A  |..A7 JMP $B248..|
00000400: 0C BC 02 4C 44 41 20 24  46 42 00 12 0C C6 02 50  |...LDA $FB.....P|
00000410: 48 41 00 1E 0C D0 02 4C  44 41 20 24 46 43 00 26  |HA.....LDA $FC.&|
00000420: 0C DA 02 50 48 41 00 46  0C E4 02 4C 44 41 20 24  |...PHA.F...LDA $|
00000430: 30 32 38 38 20 21 48 49  20 42 49 54 20 56 49 44  |0288 !HI BIT VID|
00000440: 49 4F 20 52 41 4D 00 52  0C EE 02 53 54 41 20 24  |IO RAM.R...STA $|
00000450: 46 43 00 5E 0C F8 02 4C  44 41 20 23 24 30 00 6A  |FC.^...LDA #$0.j|
00000460: 0C 02 03 53 54 41 20 24  46 42 00 7A 0C 0C 03 4C  |...STA $FB.z...L|
00000470: 44 59 20 23 33 30 20 21  49 45 00 88 0C 16 03 4C  |DY #30 !IE.....L|
00000480: 44 41 20 24 44 43 30 42  00 93 0C 20 03 42 45 51  |DA $DC0B... .BEQ|
00000490: 20 41 39 00 A0 0C 2A 03  43 50 4D 20 23 24 38 30  | A9...*.CPM #$80|
000004A0: 00 AC 0C 34 03 42 43 43  20 41 31 30 00 B7 0C 3E  |...4.BCC A10...>|
000004B0: 03 AF 20 23 24 37 46 00  C4 0C 48 03 43 4D 50 20  |.. #$7F...H.CMP |
000004C0: 23 24 31 32 00 D0 0C 52  03 42 45 51 20 41 31 30  |#$12...R.BEQ A10|
000004D0: 00 D8 0C 5C 03 53 45 44  00 E0 0C 66 03 43 4C 43  |...\.SED...f.CLC|
000004E0: 00 ED 0C 70 03 41 44 43  20 23 24 31 32 00 F5 0C  |...p.ADC #$12...|
000004F0: 7A 03 43 4C 44 00 01 0D  84 03 42 4E 45 20 41 31  |z.CLD.....BNE A1|
00000500: 30 00 0F 0D 8E 03 41 39  20 4C 44 41 20 23 30 00  |0.....A9 LDA #0.|
00000510: 1F 0D 98 03 41 31 30 20  4A 53 52 20 41 31 31 00  |....A10 JSR A11.|
00000520: 00 00                                             |..              |
......OUT 4.(.....$C000 !UESCHARING KLOK
.H...LDA $DC0E !SET KLOK OP 50HZ.T.(..A 
#$80.B.2.STA $DC0E.|.<.LDA $DC0F !START 
KLOK...F.. #$7F...P.STA $DC0F...Z.JSR $7
9 !. CHARACTER.J.D.BEQ $65 !KLOK OMSCHAK
EC.X.N.JSR $AEFD...X.JSR $AD9E !STRING H
AC.....JSR $B6A3 !PARAMETER.!...CMP #6 !
6 TEKENS..>...BNE A7 !ILLEGAL QUANTITY.J
. .LDY #$0.H...LDA ($22),Y !UUR.TIENTALC
.P...SEC.....SBC #$30 !NAAR HEX...H.CMP 
#$3...R.BCS A7.....ASL A.....ASL A.....A
SL A.F...ASL A.R...STA $FB.Z...INY.....L
DA ($22),Y !UUR EENHEDEN...".SEC...,.SBC
 #$30...6.CMP #$10.&.@.BCS $50.1.J..A $F
B.<.T.BNE A4.S.^.LDA $92 !12 UUR PM.^.H.
BNE A5.N.R.A4 CMP #$24.Z.|.BCS $44.....C
MP #$13.....BCC A5.....SEC.....SED.....S
BC #$12.....CLD.B.B..A $80.S.L.A5 STA $D
C0B...V.JSR A6.....STA $DC0A.....JSR A6.
....STA $DC09.....LDA #$0.....STA $DC08.
+...JSR $79.7...BEQ $0D.E.&.JSR $AEFD.S.
0.JSR $B79E._.:.CPX #16.J.D.BCS A7.X.N.S
TX $02A7...X.A8 SEI !KLEUR CODE...B.LDA 
$0314...L.E. $A1...V.STA $0314.D...LDA $
0315.O...E. $22.....STA $0315.....CLI...
..RTS.....A7 JMP $B248.....LDA $FB...F.P
HA...P.LDA $FC.&.Z.PHA.F...LDA $0288 !HI
 BIT VIDIO RAM.R...STA $FC.^...LDA #$0.J
...STA $FB.Z...LDY #30 !IE.....LDA $DC0B
... .BEQ A9. .*.CPM #$80...4.BCC A10...>
.. #$7F.D.H.CMP #$12.P.R.BEQ A10.X.\.SED
...F.CLC...P.ADC #$12...Z.CLD.....BNE A1
0.....A9 LDA #0.....A10 JSR A11...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL