TB/DOKE & DEEK
FILE INFORMATION
FILENAME(S): TB/DOKE & DEEK
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 16:59:31
APPEARS ON: 1 disk(s)
FILE HASH
759f14418cec3a0dc91cc3830f41ddcf613545fa4d189a3960e1e021cffbd85a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC UTILITIES | TB/DOKE & DEEK | PRG | High Voltage Complete C64 Collection | 10 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 00 00 8F 20 44 4F 4B 45 20 26 20 44 |.. .... DOKE & D| 00000010: 45 45 4B 20 28 41 55 47 20 32 34 2F 38 34 29 3A |EEK (AUG 24/84):| 00000020: 00 26 08 01 00 3A 00 44 08 02 00 8F 20 31 20 53 |.&...:.D.... 1 S| 00000030: 54 41 54 45 4D 45 4E 54 2C 20 31 20 46 55 4E 43 |TATEMENT, 1 FUNC| 00000040: 54 49 4F 4E 00 4A 08 03 00 3A 00 66 08 04 00 8F |TION.J...:.f....| 00000050: 20 4B 45 59 57 4F 52 44 20 43 48 41 52 41 43 54 | KEYWORD CHARACT| 00000060: 45 52 53 3A 20 39 00 6C 08 05 00 3A 00 8F 08 06 |ERS: 9.l...:....| 00000070: 00 8F 20 4B 45 59 57 4F 52 44 20 20 52 4F 55 54 |.. KEYWORD ROUT| 00000080: 49 4E 45 20 20 4C 49 4E 45 20 20 53 45 52 23 00 |INE LINE SER#.| 00000090: B1 08 07 00 8F 20 53 2F 44 4F 4B 45 20 20 20 44 |..... S/DOKE D| 000000A0: 4F 4B 20 20 20 20 20 20 32 36 33 36 20 20 30 30 |OK 2636 00| 000000B0: 37 00 D3 08 08 00 8F 20 46 2F 44 45 45 4B 28 20 |7...... F/DEEK( | 000000C0: 20 44 45 45 4B 20 20 20 20 20 32 36 37 34 20 20 | DEEK 2674 | 000000D0: 30 30 38 00 D9 08 09 00 3A 00 F0 08 0A 00 8F 20 |008.....:...... | 000000E0: 55 2F 55 53 46 50 28 32 36 32 30 2F 30 30 36 29 |U/USFP(2620/006)| 000000F0: 00 F6 08 0B 00 3A 00 1D 09 0C 00 8F 20 3D 3D 3D |.....:...... ===| 00000100: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000110: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 23 09 |=============.#.| 00000120: 0D 00 3A 00 31 09 66 00 2E C6 20 22 44 4F 4B C5 |..:.1.f... "DOK.| 00000130: 22 00 57 09 59 02 2E C6 20 22 44 45 45 4B 22 3A |".W.Y... "DEEK":| 00000140: 2E 42 59 54 20 24 41 38 20 3B 44 45 45 4B AA 53 |.BYT $A8 ;DEEK.S| 00000150: 48 8B 54 45 44 20 28 00 66 09 4E 04 2E 57 B0 44 |H.TED (.f.N..W.D| 00000160: 20 44 4F 4B AB 31 00 76 09 41 06 2E 57 B0 44 20 | DOK.1.v.A..W.D | 00000170: 44 45 45 4B AB 31 00 98 09 3C 0A 55 53 46 50 20 |DEEK.1...<.USFP | 00000180: 4C 44 58 20 23 30 20 3B 52 4F 55 54 49 4E 45 20 |LDX #0 ;ROUTINE | 00000190: A4 20 43 91 56 45 52 54 00 B4 09 3E 0A 53 54 58 |. C.VERT...>.STX| 000001A0: 20 24 30 44 20 3B 55 4E 53 49 47 4E 45 44 20 B5 | $0D ;UNSIGNED .| 000001B0: 45 47 45 52 00 D3 09 40 0A 53 54 41 20 24 36 32 |EGER...@.STA $62| 000001C0: 20 3B 49 4E 20 2E 41 20 28 48 49 47 48 20 42 59 | ;IN .A (HIGH BY| 000001D0: 54 45 29 00 F0 09 42 0A 53 54 59 20 24 36 33 20 |TE)...B.STY $63 | 000001E0: 3B AF 20 2E 59 20 28 4C 4F 57 20 42 59 54 45 29 |;. .Y (LOW BYTE)| 000001F0: 00 0D 0A 44 0A 4C 44 58 20 23 24 39 30 20 3B A4 |...D.LDX #$90 ;.| 00000200: 20 46 4C 4F 41 54 49 4E 47 20 50 4F B5 00 20 0A | FLOATING PO.. .| 00000210: 46 0A 53 45 43 20 3B 49 4E 20 46 50 41 20 23 31 |F.SEC ;IN FPA #1| 00000220: 00 2E 0A 48 0A 4A 4D 50 20 24 42 43 34 39 00 34 |...H.JMP $BC49.4| 00000230: 0A 4A 0A 3B 00 53 0A 4C 0A 44 4F 4B 20 4A 53 52 |.J.;.S.L.DOK JSR| 00000240: 20 24 41 44 38 41 20 3B A1 20 97 20 41 44 44 52 | $AD8A ;. . ADDR| 00000250: 45 53 53 00 71 0A 4E 0A 4A 53 52 20 24 42 37 46 |ESS.q.N.JSR $B7F| 00000260: 37 20 3B 43 91 56 45 52 54 20 A4 20 B5 45 47 45 |7 ;C.VERT . .EGE| 00000270: 52 00 8E 0A 50 0A 4A 53 52 20 24 41 45 46 44 20 |R...P.JSR $AEFD | 00000280: 3B 43 48 45 43 4B 20 81 20 43 4F 4D 4D 41 00 A8 |;CHECK . COMMA..| 00000290: 0A 52 0A 4C 44 41 20 24 31 34 20 3B 53 A4 52 45 |.R.LDA $14 ;S.RE| 000002A0: 20 41 44 44 52 45 53 53 00 C2 0A 54 0A 53 54 41 | ADDRESS...T.STA| 000002B0: 20 54 33 20 3B 41 53 20 54 45 4D 50 20 56 45 43 | T3 ;AS TEMP VEC| 000002C0: A4 52 00 CE 0A 56 0A 4C 44 41 20 24 31 35 00 D9 |.R...V.LDA $15..| 000002D0: 0A 58 0A 53 54 41 20 54 34 00 F0 0A 5A 0A 4A 53 |.X.STA T4...Z.JS| 000002E0: 52 20 24 41 44 38 41 20 3B A1 20 97 20 C5 55 45 |R $AD8A ;. . .UE| 000002F0: 00 0E 0B 5C 0A 4A 53 52 20 24 42 37 46 37 20 3B |...\.JSR $B7F7 ;| 00000300: 43 91 56 45 52 54 20 A4 20 B5 45 47 45 52 00 28 |C.VERT . .EGER.(| 00000310: 0B 5E 0A 4C 44 41 20 24 31 34 20 3B 4C 4F 57 20 |.^.LDA $14 ;LOW | 00000320: 42 59 54 45 20 A4 20 97 00 43 0B 60 0A 4C 44 59 |BYTE . ..C.`.LDY| 00000330: 20 23 30 20 3B 49 4E 44 49 52 45 43 54 20 49 4E | #0 ;INDIRECT IN| 00000340: 44 45 58 00 59 0B 62 0A 53 45 49 20 3B 54 55 52 |DEX.Y.b.SEI ;TUR| 00000350: 4E 20 4F 46 46 20 49 52 51 00 74 0B 64 0A 53 54 |N OFF IRQ.t.d.ST| 00000360: 41 20 28 54 33 29 2C 59 20 3B 94 20 4C 4F 57 20 |A (T3),Y ;. LOW | 00000370: 42 59 54 45 00 8F 0B 66 0A 4C 44 41 20 24 31 35 |BYTE...f.LDA $15| 00000380: 20 3B 48 49 47 48 20 42 59 54 45 20 A4 20 97 00 | ;HIGH BYTE . ..| 00000390: A3 0B 68 0A 49 4E 59 20 3B 42 55 4D 50 20 49 4E |..h.INY ;BUMP IN| 000003A0: 44 45 58 00 BF 0B 6A 0A 53 54 41 20 28 54 33 29 |DEX...j.STA (T3)| 000003B0: 2C 59 20 3B 94 20 48 49 47 48 20 42 59 54 45 00 |,Y ;. HIGH BYTE.| 000003C0: D4 0B 6C 0A 43 4C 49 20 3B 49 52 51 20 91 20 41 |..l.CLI ;IRQ . A| 000003D0: 47 41 49 4E 00 DC 0B 6E 0A 52 54 53 00 E2 0B 70 |GAIN...n.RTS...p| 000003E0: 0A 3B 00 04 0C 72 0A 44 45 45 4B 20 4A 53 52 20 |.;...r.DEEK JSR | 000003F0: 24 41 45 46 34 20 3B A1 20 C5 2C 20 54 45 53 54 |$AEF4 ;. ., TEST| 00000400: 20 27 29 27 00 22 0C 74 0A 4A 53 52 20 24 41 44 | ')'.".t.JSR $AD| 00000410: 38 44 20 3B 54 45 53 54 20 81 20 4E 55 4D 45 52 |8D ;TEST . NUMER| 00000420: 49 43 00 3D 0C 76 0A 4A 53 52 20 24 42 37 46 37 |IC.=.v.JSR $B7F7| 00000430: 20 3B 43 91 56 20 A4 20 B5 45 47 45 52 00 58 0C | ;C.V . .EGER.X.| 00000440: 78 0A 4C 44 59 20 23 31 20 3B 49 4E 44 49 52 45 |x.LDY #1 ;INDIRE| 00000450: 43 54 20 49 4E 44 45 58 00 75 0C 7A 0A 4C 44 41 |CT INDEX.u.z.LDA| 00000460: 20 28 24 31 34 29 2C 59 20 3B A1 20 48 49 47 48 | ($14),Y ;. HIGH| 00000470: 20 42 59 54 45 00 7D 0C 7C 0A 50 48 41 00 94 0C | BYTE.}.|.PHA...| 00000480: 7E 0A 44 45 59 20 3B 44 45 43 8F 45 4E 54 20 49 |~.DEY ;DEC.ENT I| 00000490: 4E 44 45 58 00 B0 0C 80 0A 4C 44 41 20 28 24 31 |NDEX.....LDA ($1| 000004A0: 34 29 2C 59 20 3B A1 20 4C 4F 57 20 42 59 54 45 |4),Y ;. LOW BYTE| 000004B0: 00 B8 0C 82 0A 54 41 59 00 C0 0C 84 0A 50 4C 41 |.....TAY.....PLA| 000004C0: 00 DA 0C 86 0A 4A 4D 50 20 55 53 46 50 20 3B 43 |.....JMP USFP ;C| 000004D0: 91 56 45 52 54 20 A4 20 46 50 00 E0 0C 88 0A 3B |.VERT . FP.....;| 000004E0: 00 00 00 |... |
.. .... DOKE & DEEK (AUG 24/84):.&...:.D .... 1 STATEMENT, 1 FUNCTION.J...:.F.... KEYWORD CHARACTERS: 9.L...:...... KEYWO RD ROUTINE LINE SER#...... S/DOKE D OK 2636 007.S.... F/DEEK( DEEK 2674 008.Y...:...... U/USFP(2620/006) .....:...... =========================== =====.#...:.1.F..F "DOKE".W.Y..F "DEEK": .BYT $A8 ;DEEK.SH.TED (.F.N..W.D DOK.1.V .A..W.D DEEK.1...<.USFP LDX #0 ;ROUTINE . C.VERT...>.STX $0D ;UNSIGNED .EGER.S.@ .STA $62 ;IN .A (HIGH BYTE)...B.STY $63 ;. .Y (LOW BYTE)...D.LDX #$90 ;. FLOATIN G PO.. .F.SEC ;IN FPA #1...H.JMP $BC49.4 .J.;.S.L.DOK JSR $AD8A ;. . ADDRESS.Q.N. JSR $B7F7 ;C.VERT . .EGER...P.JSR $AEFD ;CHECK . COMMA...R.LDA $14 ;S.RE ADDRESS .B.T.STA T3 ;AS TEMP VEC.R.N.V.LDA $15.Y .X.STA T4...Z.JSR $AD8A ;. . EUE...\.JSR $B7F7 ;C.VERT . .EGER.(.^.LDA $14 ;LOW BYTE . ..C.`.LDY #0 ;INDIRECT INDEX.Y.B. SEI ;TURN OFF IRQ.T.D.STA (T3),Y ;. LOW BYTE...F.LDA $15 ;HIGH BYTE . ....H.INY ;BUMP INDEX...J.STA (T3),Y ;. HIGH BYTE. T.L.CLI ;IRQ . AGAIN...N.RTS...P.;...R.D EEK JSR $AEF4 ;. E, TEST ')'.".T.JSR $AD 8D ;TEST . NUMERIC.=.V.JSR $B7F7 ;C.V . .EGER.X.X.LDY #1 ;INDIRECT INDEX.U.Z.LDA ($14),Y ;. HIGH BYTE.}.|.PHA...~.DEY ;D EC.ENT INDEX.....LDA ($14),Y ;. LOW BYTE .....TAY.....PLA.Z...JMP USFP ;C.VERT . FP.....;...
> CLICK IMAGE PREVIEW FOR FULL MODAL