TTS-KLOK
FILE INFORMATION
FILENAME(S): TTS-KLOK
FILE TYPE(S): DEL
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:24:06
APPEARS ON: 1 disk(s)
FILE HASH
62f4bde004da2830437d5fd478cd81e6c27d90e58d8a87a59c27e8c6739e9038
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HERMAN | TTS-KLOK | DEL | DuncanTwain | 9 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 0B 08 0A 00 4F 55 54 20 34 00 1B 08 14 00 |......OUT 4.....|
00000010: AC B2 43 30 30 30 21 4B 4C 4F 4B 00 3B 08 1E 00 |..C000!KLOK.;...|
00000020: 4C 44 41 20 24 44 43 30 45 20 21 53 45 54 20 4B |LDA $DC0E !SET K|
00000030: 4C 4F 4B 20 4F 50 20 35 30 48 5A 00 47 08 28 00 |LOK OP 50HZ.G.(.|
00000040: B0 41 20 23 24 38 30 00 55 08 32 00 53 54 41 20 |.A #$80.U.2.STA |
00000050: 24 44 43 30 45 00 6F 08 3C 00 4C 44 41 20 24 44 |$DC0E.o.<.LDA $D|
00000060: 43 30 46 20 21 53 54 41 52 54 20 4B 4C 4F 4B 00 |C0F !START KLOK.|
00000070: 7A 08 46 00 AF 20 23 24 37 46 00 88 08 50 00 53 |z.F.. #$7F...P.S|
00000080: 54 41 20 24 44 43 30 46 00 A1 08 5A 00 4A 53 52 |TA $DC0F...Z.JSR|
00000090: 20 24 37 39 20 21 A1 20 43 48 41 52 41 43 54 45 | $79 !. CHARACTE|
000000A0: 52 00 BD 08 64 00 42 45 51 20 24 36 35 20 21 4B |R...d.BEQ $65 !K|
000000B0: 4C 4F 4B 20 4F 4D 53 43 48 41 4B 45 C3 00 CB 08 |LOK OMSCHAKE....|
000000C0: 6E 00 4A 53 52 20 24 41 45 46 44 00 E5 08 78 00 |n.JSR $AEFD...x.|
000000D0: 4A 53 52 20 24 41 44 39 45 20 21 53 54 52 49 4E |JSR $AD9E !STRIN|
000000E0: 47 20 48 41 C3 00 FE 08 82 00 4A 53 52 20 24 42 |G HA......JSR $B|
000000F0: 36 41 33 20 21 50 41 52 41 4D 45 54 45 52 00 14 |6A3 !PARAMETER..|
00000100: 09 8C 00 43 4D 50 20 23 36 20 21 36 20 54 45 4B |...CMP #6 !6 TEK|
00000110: 45 4E 53 99 00 31 09 96 00 42 4E 45 20 41 37 20 |ENS..1...BNE A7 |
00000120: 21 49 4C 4C 45 47 41 4C 20 51 55 41 4E 54 49 54 |!ILLEGAL QUANTIT|
00000130: 59 00 3D 09 A0 00 4C 44 59 20 23 24 30 00 5B 09 |Y.=...LDY #$0.[.|
00000140: AA 00 4C 44 41 20 28 24 32 32 29 2C 59 20 21 55 |..LDA ($22),Y !U|
00000150: 55 52 AB 54 49 45 4E 54 41 4C C3 00 63 09 B4 00 |UR.TIENTAL..c...|
00000160: 53 45 43 00 7B 09 BE 00 53 42 43 20 23 24 22 30 |SEC.{...SBC #$"0|
00000170: 22 20 21 4E 41 41 52 20 48 45 58 00 87 09 C8 00 |" !NAAR HEX.....|
00000180: 43 4D 50 20 23 24 33 00 92 09 D2 00 42 43 53 20 |CMP #$3.....BCS |
00000190: 41 37 00 9A 09 DC 00 41 53 4C 00 A2 09 E6 00 41 |A7.....ASL.....A|
000001A0: 53 4C 00 AA 09 F0 00 41 53 4C 00 B2 09 FA 00 41 |SL.....ASL.....A|
000001B0: 53 4C 00 BE 09 04 01 53 54 41 20 24 46 42 00 C6 |SL.....STA $FB..|
000001C0: 09 0E 01 49 4E 59 00 E4 09 18 01 4C 44 41 20 28 |...INY.....LDA (|
000001D0: 24 32 32 29 2C 59 20 21 55 55 52 20 45 45 4E 48 |$22),Y !UUR EENH|
000001E0: 45 44 45 4E 00 EC 09 22 01 53 45 43 00 FA 09 2C |EDEN...".SEC...,|
000001F0: 01 53 42 43 20 23 24 22 30 22 00 07 0A 36 01 43 |.SBC #$"0"...6.C|
00000200: 4D 50 20 23 24 31 30 00 13 0A 40 01 42 43 53 20 |MP #$10...@.BCS |
00000210: 24 35 30 00 1E 0A 4A 01 B0 41 20 24 46 42 00 29 |$50...J..A $FB.)|
00000220: 0A 54 01 42 4E 45 20 41 34 00 40 0A 5E 01 4C 44 |.T.BNE A4.@.^.LD|
00000230: 41 20 24 39 32 20 21 31 32 20 55 55 52 20 50 4D |A $92 !12 UUR PM|
00000240: 00 4B 0A 68 01 42 4E 45 20 41 35 00 5B 0A 72 01 |.K.h.BNE A5.[.r.|
00000250: 41 34 20 43 4D 50 20 23 24 32 34 00 67 0A 7C 01 |A4 CMP #$24.g.|.|
00000260: 42 43 53 20 24 34 34 00 74 0A 86 01 43 4D 50 20 |BCS $44.t...CMP |
00000270: 23 24 31 33 00 7F 0A 90 01 42 43 43 20 41 35 00 |#$13.....BCC A5.|
00000280: 87 0A 9A 01 53 45 43 00 8F 0A A4 01 53 45 44 00 |....SEC.....SED.|
00000290: 9C 0A AE 01 53 42 43 20 23 24 31 32 00 A4 0A B8 |....SBC #$12....|
000002A0: 01 43 4C 44 00 AF 0A C2 01 B0 41 20 24 38 30 00 |.CLD......A $80.|
000002B0: C0 0A CC 01 41 35 20 53 54 41 20 24 44 43 30 42 |....A5 STA $DC0B|
000002C0: 00 CB 0A D6 01 4A 53 52 20 41 36 00 D9 0A E0 01 |.....JSR A6.....|
000002D0: 53 54 41 20 24 44 43 30 41 00 E4 0A EA 01 4A 53 |STA $DC0A.....JS|
000002E0: 52 20 41 36 00 F2 0A F4 01 53 54 41 20 24 44 43 |R A6.....STA $DC|
000002F0: 30 39 00 FE 0A FE 01 4C 44 41 20 23 24 30 00 0C |09.....LDA #$0..|
00000300: 0B 08 02 53 54 41 20 24 44 43 30 38 00 18 0B 12 |...STA $DC08....|
00000310: 02 4A 53 52 20 24 37 39 00 24 0B 1C 02 42 45 51 |.JSR $79.$...BEQ|
00000320: 20 24 30 44 00 32 0B 26 02 4A 53 52 20 24 41 45 | $0D.2.&.JSR $AE|
00000330: 46 44 00 40 0B 30 02 4A 53 52 20 24 42 37 39 45 |FD.@.0.JSR $B79E|
00000340: 00 4C 0B 3A 02 43 50 58 20 23 31 36 00 57 0B 44 |.L.:.CPX #16.W.D|
00000350: 02 42 43 53 20 41 37 00 65 0B 4E 02 53 54 58 20 |.BCS A7.e.N.STX |
00000360: 24 30 32 41 37 00 7C 0B 58 02 41 38 20 53 45 49 |$02A7.|.X.A8 SEI|
00000370: 20 21 4B 4C 45 55 52 20 43 4F 44 45 00 8A 0B 62 | !KLEUR CODE...b|
00000380: 02 4C 44 41 20 24 30 33 31 34 00 95 0B 6C 02 45 |.LDA $0314...l.E|
00000390: B0 20 24 41 31 00 A3 0B 76 02 53 54 41 20 24 30 |. $A1...v.STA $0|
000003A0: 33 31 34 00 B1 0B 80 02 4C 44 41 20 24 30 33 31 |314.....LDA $031|
000003B0: 35 00 BC 0B 8A 02 45 B0 20 24 32 32 00 CA 0B 94 |5.....E. $22....|
000003C0: 02 53 54 41 20 24 30 33 31 35 00 D2 0B 9E 02 43 |.STA $0315.....C|
000003D0: 4C 49 00 DA 0B A8 02 52 54 53 00 EB 0B B2 02 41 |LI.....RTS.....A|
000003E0: 37 20 4A 4D 50 20 24 42 32 34 38 00 F7 0B BC 02 |7 JMP $B248.....|
000003F0: 4C 44 41 20 24 46 42 00 FF 0B C6 02 50 48 41 00 |LDA $FB.....PHA.|
00000400: 0B 0C D0 02 4C 44 41 20 24 46 43 00 13 0C DA 02 |....LDA $FC.....|
00000410: 50 48 41 00 33 0C E4 02 4C 44 41 20 24 30 32 38 |PHA.3...LDA $028|
00000420: 38 20 21 48 49 20 42 49 54 20 56 49 44 49 4F 20 |8 !HI BIT VIDIO |
00000430: 52 41 4D 00 3F 0C EE 02 53 54 41 20 24 46 43 00 |RAM.?...STA $FC.|
00000440: 4B 0C F8 02 4C 44 41 20 23 24 30 00 57 0C 02 03 |K...LDA #$0.W...|
00000450: 53 54 41 20 24 46 42 00 67 0C 0C 03 4C 44 59 20 |STA $FB.g...LDY |
00000460: 23 33 30 20 21 49 45 00 75 0C 16 03 4C 44 41 20 |#30 !IE.u...LDA |
00000470: 24 44 43 30 42 00 80 0C 20 03 42 45 51 20 41 39 |$DC0B... .BEQ A9|
00000480: 00 8D 0C 2A 03 43 50 4D 20 23 24 38 30 00 99 0C |...*.CPM #$80...|
00000490: 34 03 42 43 43 20 41 31 30 00 A4 0C 3E 03 AF 20 |4.BCC A10...>.. |
000004A0: 23 24 37 46 00 B1 0C 48 03 43 4D 50 20 23 24 31 |#$7F...H.CMP #$1|
000004B0: 32 00 BD 0C 52 03 42 45 51 20 41 31 30 00 C5 0C |2...R.BEQ A10...|
000004C0: 5C 03 53 45 44 00 CD 0C 66 03 43 4C 43 00 DA 0C |\.SED...f.CLC...|
000004D0: 70 03 41 44 43 20 23 24 31 32 00 E2 0C 7A 03 43 |p.ADC #$12...z.C|
000004E0: 4C 44 00 EE 0C 84 03 42 4E 45 20 41 31 30 00 FC |LD.....BNE A10..|
000004F0: 0C 8E 03 41 39 20 4C 44 41 20 23 30 00 0C 0D 98 |...A9 LDA #0....|
00000500: 03 41 31 30 20 4A 53 52 20 41 31 31 00 00 00 |.A10 JSR A11... |
......OUT 4.......C000!KLOK.;...LDA $DC0
E !SET KLOK OP 50HZ.G.(..A #$80.U.2.STA
$DC0E.O.<.LDA $DC0F !START KLOK.Z.F.. #$
7F...P.STA $DC0F...Z.JSR $79 !. CHARACTE
R...D.BEQ $65 !KLOK OMSCHAKEC.K.N.JSR $A
EFD...X.JSR $AD9E !STRING HAC.....JSR $B
6A3 !PARAMETER.....CMP #6 !6 TEKENS..1..
.BNE A7 !ILLEGAL QUANTITY.=. .LDY #$0.[.
..LDA ($22),Y !UUR.TIENTALC.C...SEC.{...
SBC #$"0" !NAAR HEX...H.CMP #$3...R.BCS
A7.....ASL.....ASL.....ASL.....ASL.....S
TA $FB.F...INY.....LDA ($22),Y !UUR EENH
EDEN...".SEC...,.SBC #$"0"...6.CMP #$10.
..@.BCS $50...J..A $FB.).T.BNE A4.@.^.LD
A $92 !12 UUR PM.K.H.BNE A5.[.R.A4 CMP #
$24.G.|.BCS $44.T...CMP #$13....BCC A5.
....SEC.....SED.....SBC #$12.....CLD...B
..A $80...L.A5 STA $DC0B.K.V.JSR A6.Y...
STA $DC0A.....JSR A6.....STA $DC09.....L
DA #$0.....STA $DC08.....JSR $79.$...BEQ
$0D.2.&.JSR $AEFD.@.0.JSR $B79E.L.:.CPX
#16.W.D.BCS A7.E.N.STX $02A7.|.X.A8 SEI
!KLEUR CODE...B.LDA $0314...L.E. $A1...
V.STA $0314.....LDA $0315.....E. $22.J..
.STA $0315.R...CLI.Z...RTS.....A7 JMP $B
248.....LDA $FB...F.PHA...P.LDA $FC...Z.
PHA.3...LDA $0288 !HI BIT VIDIO RAM.?...
STA $FC.K...LDA #$0.W...STA $FB.G...LDY
#30 !IE.U...LDA $DC0B... .BEQ A9...*.CPM
#$80...4.BCC A10...>.. #$7F...H.CMP #$1
2...R.BEQ A10.E.\.SED.M.F.CLC.Z.P.ADC #$
12...Z.CLD.....BNE A10.....A9 LDA #0....
.A10 JSR A11...
> CLICK IMAGE PREVIEW FOR FULL MODAL