TOD.PAL
FILE INFORMATION
FILENAME(S): TOD.PAL
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 18:12:07
APPEARS ON: 1 disk(s)
FILE HASH
f1b00a1832ab195389bf7946c960d5968af5f3e671d6562657fab898bb48f1b9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 64 S 1 | TOD.PAL | PRG | Sailor, Ganheden | 23 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 64 00 8F 20 4F 50 45 4E 32 2C 38 2C |....d.. OPEN2,8,|
00000010: 31 2C 22 54 4F 44 20 42 41 42 59 2E 4F 22 00 27 |1,"TOD BABY.O".'|
00000020: 08 6E 00 9E 37 30 30 00 2D 08 78 00 3B 00 39 08 |.n..700.-.x.;.9.|
00000030: 82 00 2E 4F 50 54 20 4F 4F 00 3F 08 8C 00 3B 00 |...OPT OO.?...;.|
00000040: 50 08 96 00 53 54 41 54 55 53 20 B2 20 24 39 30 |P...STATUS . $90|
00000050: 00 63 08 A0 00 42 55 46 46 45 52 20 B2 20 24 30 |.c...BUFFER . $0|
00000060: 32 30 30 00 76 08 AA 00 46 52 4D 45 56 4C 20 B2 |200.v...FRMEVL .|
00000070: 20 24 41 44 39 45 00 89 08 B4 00 A1 43 4F 4D 4D | $AD9E......COMM|
00000080: 41 20 B2 20 24 41 45 46 44 00 9D 08 BE 00 49 4C |A . $AEFD.....IL|
00000090: 4C 51 55 41 4E 20 B2 20 24 42 32 34 38 00 AF 08 |LQUAN . $B248...|
000000A0: C8 00 49 52 51 56 45 43 20 B2 20 24 33 31 34 00 |..IRQVEC . $314.|
000000B0: B5 08 D2 00 3B 00 BB 08 DC 00 3B 00 CA 08 E6 00 |....;.....;.....|
000000C0: 4A 4D 50 20 48 4F 4F 4B 20 3B 00 D9 08 F0 00 4A |JMP HOOK ;.....J|
000000D0: 4D 50 20 44 52 4F 50 20 3B 00 DF 08 FA 00 3B 00 |MP DROP ;.....;.|
000000E0: F9 08 04 01 43 55 52 52 45 4E 54 20 2E 42 59 54 |....CURRENT .BYT|
000000F0: 45 20 30 2C 30 2C 30 2C 30 00 10 09 0E 01 C5 55 |E 0,0,0,0......U|
00000100: 45 53 20 2E 42 59 54 45 20 30 2C 30 2C 30 2C 30 |ES .BYTE 0,0,0,0|
00000110: 00 16 09 18 01 3B 00 31 09 22 01 3B AB AB AB AB |.....;.1.".;....|
00000120: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000130: AB 00 37 09 2C 01 3B 00 4E 09 36 01 46 42 59 54 |..7.,.;.N.6.FBYT|
00000140: 45 20 4A 53 52 20 A1 43 4F 4D 4D 41 20 3B 00 5F |E JSR .COMMA ;._|
00000150: 09 40 01 4A 53 52 20 46 52 4D 45 56 4C 20 3B 00 |.@.JSR FRMEVL ;.|
00000160: 6F 09 4A 01 4A 4D 50 20 24 42 31 41 41 20 3B 00 |o.J.JMP $B1AA ;.|
00000170: 75 09 54 01 3B 00 7B 09 5E 01 3B 00 88 09 68 01 |u.T.;.{.^.;...h.|
00000180: 48 4F 4F 4B 20 B2 20 AC 00 AC 09 72 01 4A 53 52 |HOOK . ....r.JSR|
00000190: 20 46 42 59 54 45 20 3B 20 46 45 54 43 48 20 43 | FBYTE ; FETCH C|
000001A0: 4F 4C 55 4D 4E 20 4E 55 4D 42 45 52 00 BD 09 7C |OLUMN NUMBER...||
000001B0: 01 53 54 59 20 43 4F 4C 55 4D 4E 20 3B 00 C3 09 |.STY COLUMN ;...|
000001C0: 86 01 3B 00 E4 09 90 01 4A 53 52 20 46 42 59 54 |..;.....JSR FBYT|
000001D0: 45 20 3B 20 46 45 54 43 48 20 52 4F 57 20 4E 55 |E ; FETCH ROW NU|
000001E0: 4D 42 45 52 00 F2 09 9A 01 53 54 59 20 52 4F 57 |MBER.....STY ROW|
000001F0: 20 3B 00 F8 09 A4 01 3B 00 17 0A AE 01 4A 53 52 | ;.....;.....JSR|
00000200: 20 46 42 59 54 45 20 3B 20 46 45 54 43 48 20 43 | FBYTE ; FETCH C|
00000210: 4F 4C B0 20 C5 55 45 00 26 0A B8 01 53 54 59 20 |OL. .UE.&...STY |
00000220: 43 4F 4C B0 20 3B 00 2C 0A C2 01 3B 00 4B 0A CC |COL. ;.,...;.K..|
00000230: 01 4A 53 52 20 A1 43 4F 4D 4D 41 20 3B 20 46 45 |.JSR .COMMA ; FE|
00000240: 54 43 48 20 27 99 20 55 BF 47 27 00 6E 0A D6 01 |TCH '. U.G'.n...|
00000250: 4A 53 52 20 46 52 4D 45 56 4C 20 3B 20 20 53 54 |JSR FRMEVL ; ST|
00000260: 52 49 4E 47 AD 44 45 41 4C AD 42 41 42 59 00 7E |RING.DEAL.BABY.~|
00000270: 0A E0 01 4A 53 52 20 34 36 37 35 35 20 3B 00 84 |...JSR 46755 ;..|
00000280: 0A EA 01 3B 00 91 0A F4 01 43 4D 50 20 23 39 20 |...;.....CMP #9 |
00000290: 3B 00 A1 0A FE 01 42 43 43 20 48 59 50 4E 4F 20 |;.....BCC HYPNO |
000002A0: 3B 00 B1 0A 08 02 4A 4D 50 20 24 41 35 37 31 20 |;.....JMP $A571 |
000002B0: 3B 00 B7 0A 12 02 3B 00 D8 0A 1C 02 48 59 50 4E |;.....;.....HYPN|
000002C0: 4F 20 53 54 41 20 C3 47 54 48 20 3B 20 94 20 42 |O STA .GTH ; . B|
000002D0: 41 42 59 27 53 20 C3 47 00 DE 0A 26 02 3B 00 FF |ABY'S .G...&.;..|
000002E0: 0A 30 02 4C 44 41 20 52 4F 57 20 3B 20 53 45 45 |.0.LDA ROW ; SEE|
000002F0: 20 8B 20 52 4F 57 20 49 53 20 4C 45 47 41 4C 00 | . ROW IS LEGAL.|
00000300: 0D 0B 3A 02 43 4D 50 20 23 32 35 20 3B 00 1C 0B |..:.CMP #25 ;...|
00000310: 44 02 42 43 53 20 4F 48 4E 4F 20 3B 00 26 0B 4E |D.BCS OHNO ;.&.N|
00000320: 02 43 4C 43 20 3B 00 45 0B 58 02 4C 44 41 20 C3 |.CLC ;.E.X.LDA .|
00000330: 47 54 48 20 3B 20 45 58 49 54 20 8B 20 C3 47 54 |GTH ; EXIT . .GT|
00000340: 48 20 B2 20 30 00 54 0B 62 02 42 45 51 20 4F 48 |H . 0.T.b.BEQ OH|
00000350: 4E 4F 20 3B 00 76 0B 6C 02 41 44 43 20 43 4F 4C |NO ;.v.l.ADC COL|
00000360: 55 4D 4E 20 3B 20 8B 20 C3 47 54 48 AA 43 4F 4C |UMN ; . .GTH.COL|
00000370: 55 4D 4E B1 34 30 00 96 0B 76 02 43 4D 50 20 23 |UMN.40...v.CMP #|
00000380: 34 31 20 3B 20 20 A7 20 45 58 49 54 20 54 48 49 |41 ; . EXIT THI|
00000390: 53 20 42 41 42 59 00 B6 0B 80 02 42 43 43 20 41 |S BABY.....BCC A|
000003A0: 4C 4C 4F 4B 20 3B 20 20 45 4C 53 45 20 4C 8B 45 |LLOK ; ELSE L.E|
000003B0: 20 CB 45 53 20 91 00 CD 0B 8A 02 4F 48 4E 4F 20 | .ES ......OHNO |
000003C0: 4A 4D 50 20 49 4C 4C 51 55 41 4E 20 3B 00 D3 0B |JMP ILLQUAN ;...|
000003D0: 94 02 3B 00 E1 0B 9E 02 41 4C 4C 4F 4B 20 B2 20 |..;.....ALLOK . |
000003E0: AC 00 02 0C A8 02 4C 44 59 20 23 30 20 3B 20 49 |......LDY #0 ; I|
000003F0: 4E 49 54 20 4D 4F 53 54 20 53 49 47 2E 20 42 59 |NIT MOST SIG. BY|
00000400: 54 45 00 24 0C B2 02 4C 44 41 20 23 30 20 3B 20 |TE.$...LDA #0 ; |
00000410: 49 4E 49 54 20 4C 45 41 53 54 20 53 49 47 2E 20 |INIT LEAST SIG. |
00000420: 42 59 54 45 00 42 0C BC 02 4C 44 58 20 52 4F 57 |BYTE.B...LDX ROW|
00000430: 20 3B 20 46 45 54 43 48 20 52 4F 57 20 43 4F 55 | ; FETCH ROW COU|
00000440: 4E 54 00 63 0C C6 02 42 45 51 20 53 55 49 54 20 |NT.c...BEQ SUIT |
00000450: 3B 20 45 58 49 54 20 8B 20 91 20 52 4F 57 20 5A |; EXIT . . ROW Z|
00000460: 45 52 4F 00 69 0C D0 02 3B 00 78 0C DA 02 53 49 |ERO.i...;.x...SI|
00000470: 4C 4B 20 43 4C 43 20 3B 00 86 0C E4 02 41 44 43 |LK CLC ;.....ADC|
00000480: 20 23 34 30 20 3B 00 96 0C EE 02 42 43 43 20 53 | #40 ;.....BCC S|
00000490: 48 41 52 50 20 3B 00 A0 0C F8 02 49 4E 59 20 3B |HARP ;.....INY ;|
000004A0: 00 B0 0C 02 03 53 48 41 52 50 20 44 45 58 20 3B |.....SHARP DEX ;|
000004B0: 00 BF 0C 0C 03 42 4E 45 20 53 49 4C 4B 20 3B 00 |.....BNE SILK ;.|
000004C0: C5 0C 16 03 3B 00 D4 0C 20 03 53 55 49 54 20 43 |....;... .SUIT C|
000004D0: 4C 43 20 3B 00 E5 0C 2A 03 41 44 43 20 43 4F 4C |LC ;...*.ADC COL|
000004E0: 55 4D 4E 20 3B 00 F3 0C 34 03 53 54 41 20 24 46 |UMN ;...4.STA $F|
000004F0: 42 20 3B 00 01 0D 3E 03 53 54 41 20 24 46 44 20 |B ;...>.STA $FD |
00000500: 3B 00 0B 0D 48 03 54 59 41 20 3B 00 15 0D 52 03 |;...H.TYA ;...R.|
00000510: 50 48 50 20 3B 00 23 0D 5C 03 41 44 43 20 36 34 |PHP ;.#.\.ADC 64|
00000520: 38 20 3B 00 31 0D 66 03 53 54 41 20 24 46 43 20 |8 ;.1.f.STA $FC |
00000530: 3B 00 3B 0D 70 03 54 59 41 20 3B 00 45 0D 7A 03 |;.;.p.TYA ;.E.z.|
00000540: 50 4C 50 20 3B 00 54 0D 84 03 41 44 43 20 23 24 |PLP ;.T...ADC #$|
00000550: 44 38 20 3B 00 62 0D 8E 03 53 54 41 20 24 46 45 |D8 ;.b...STA $FE|
00000560: 20 3B 00 68 0D 98 03 3B 00 8A 0D A2 03 4C 44 58 | ;.h...;.....LDX|
00000570: 20 23 33 20 3B 20 5A 45 52 4F AB 4F 55 54 20 54 | #3 ; ZERO.OUT T|
00000580: 48 45 20 A4 44 20 42 41 42 59 00 97 0D AC 03 4C |HE .D BABY.....L|
00000590: 44 41 20 23 30 20 3B 00 AD 0D B6 03 47 53 4C 20 |DA #0 ;.....GSL |
000005A0: 53 54 41 20 24 44 44 30 38 2C 58 20 3B 00 BE 0D |STA $DD08,X ;...|
000005B0: C0 03 53 54 41 20 C5 55 45 53 2C 58 20 3B 00 C8 |..STA .UES,X ;..|
000005C0: 0D CA 03 44 45 58 20 3B 00 D6 0D D4 03 42 50 4C |...DEX ;.....BPL|
000005D0: 20 47 53 4C 20 3B 00 DC 0D DE 03 3B 00 FE 0D E8 | GSL ;.....;....|
000005E0: 03 4C 44 41 20 23 B1 4D 59 49 52 51 20 3B 20 44 |.LDA #.MYIRQ ; D|
000005F0: 4F 20 A8 20 52 45 AB 49 4E 53 54 41 4C 4C 00 1A |O . RE.INSTALL..|
00000600: 0E F2 03 43 4D 50 20 49 52 51 56 45 43 AA 31 20 |...CMP IRQVEC.1 |
00000610: 3B 20 20 4D 59 20 42 41 42 59 00 2A 0E FC 03 42 |; MY BABY.*...B|
00000620: 4E 45 20 A8 4D 49 4E 45 20 3B 00 34 0E 06 04 52 |NE .MINE ;.4...R|
00000630: 54 53 20 3B 00 3A 0E 10 04 3B 00 55 0E 1A 04 A8 |TS ;.:...;.U....|
00000640: 4D 49 4E 45 20 50 48 50 20 3B 20 94 20 B5 20 53 |MINE PHP ; . . S|
00000650: 54 41 54 55 53 00 5F 0E 24 04 53 45 49 20 3B 00 |TATUS._.$.SEI ;.|
00000660: 82 0E 2E 04 4C 44 58 20 49 52 51 56 45 43 AA 31 |....LDX IRQVEC.1|
00000670: 20 3B 20 49 4E 53 54 41 4C 4C 20 4D 59 20 42 41 | ; INSTALL MY BA|
00000680: 42 59 00 A5 0E 38 04 53 54 58 20 4F 4C 44 49 52 |BY...8.STX OLDIR|
00000690: 51 AA 31 20 3B 20 20 AF 20 50 52 45 53 45 52 56 |Q.1 ; . PRESERV|
000006A0: 45 20 4F 4C 44 00 C6 0E 42 04 53 54 41 20 49 52 |E OLD...B.STA IR|
000006B0: 51 56 45 43 AA 31 20 3B 20 20 56 45 43 A4 52 20 |QVEC.1 ; VEC.R |
000006C0: 41 54 20 54 48 45 00 E3 0E 4C 04 4C 44 41 20 23 |AT THE...L.LDA #|
000006D0: B3 4D 59 49 52 51 20 3B 20 20 53 41 4D 45 20 54 |.MYIRQ ; SAME T|
000006E0: 49 4D 45 00 F4 0E 56 04 4C 44 58 20 49 52 51 56 |IME...V.LDX IRQV|
000006F0: 45 43 20 3B 00 05 0F 60 04 53 54 58 20 4F 4C 44 |EC ;...`.STX OLD|
00000700: 49 52 51 20 3B 00 16 0F 6A 04 53 54 41 20 49 52 |IRQ ;...j.STA IR|
00000710: 51 56 45 43 20 3B 00 20 0F 74 04 50 4C 50 20 3B |QVEC ;. .t.PLP ;|
00000720: 00 2A 0F 7E 04 52 54 53 20 3B 00 30 0F 88 04 3B |.*.~.RTS ;.0...;|
00000730: 00 4E 0F 92 04 3B AB AB AB AB AB AB AB AB AB AB |.N...;..........|
00000740: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 54 |...............T|
00000750: 0F 9C 04 3B 00 61 0F A6 04 44 52 4F 50 20 B2 20 |...;.a...DROP . |
00000760: AC 00 84 0F B0 04 4C 44 41 20 49 52 51 56 45 43 |......LDA IRQVEC|
00000770: AA 31 20 3B 20 45 58 49 54 20 8B 20 A8 20 4D 59 |.1 ; EXIT . . MY|
00000780: 20 49 52 51 00 96 0F BA 04 43 4D 50 20 23 B1 4D | IRQ.....CMP #.M|
00000790: 59 49 52 51 20 3B 00 A6 0F C4 04 42 4E 45 20 A1 |YIRQ ;.....BNE .|
000007A0: 42 41 43 4B 20 3B 00 B0 0F CE 04 50 48 50 20 3B |BACK ;.....PHP ;|
000007B0: 00 BA 0F D8 04 53 45 49 20 3B 00 D9 0F E2 04 4C |.....SEI ;.....L|
000007C0: 44 41 20 4F 4C 44 49 52 51 20 3B 20 8C 20 4F 4C |DA OLDIRQ ; . OL|
000007D0: 44 20 49 52 51 20 56 45 43 00 EA 0F EC 04 53 54 |D IRQ VEC.....ST|
000007E0: 41 20 49 52 51 56 45 43 20 3B 00 FD 0F F6 04 4C |A IRQVEC ;.....L|
000007F0: 44 41 20 4F 4C 44 49 52 51 AA 31 20 3B 00 10 10 |DA OLDIRQ.1 ;...|
00000800: 00 05 53 54 41 20 49 52 51 56 45 43 AA 31 20 3B |..STA IRQVEC.1 ;|
00000810: 00 1A 10 0A 05 50 4C 50 20 3B 00 2A 10 14 05 A1 |.....PLP ;.*....|
00000820: 42 41 43 4B 20 52 54 53 20 3B 00 30 10 1E 05 3B |BACK RTS ;.0...;|
00000830: 00 4D 10 28 05 3B AB AB AB AB AB AB AB AB AB AB |.M.(.;..........|
00000840: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 53 10 |..............S.|
00000850: 32 05 3B 00 61 10 3C 05 4D 59 49 52 51 20 B2 20 |2.;.a.<.MYIRQ . |
00000860: AC 00 6B 10 46 05 50 48 50 20 3B 00 75 10 50 05 |..k.F.PHP ;.u.P.|
00000870: 53 45 49 20 3B 00 92 10 5A 05 4C 44 58 20 23 33 |SEI ;...Z.LDX #3|
00000880: 20 3B 20 43 4F 50 59 20 A4 44 20 52 45 47 27 53 | ; COPY .D REG'S|
00000890: 20 A4 00 B7 10 64 05 41 43 44 43 20 4C 44 41 20 | ....d.ACDC LDA |
000008A0: 24 44 44 30 38 2C 58 20 3B 20 20 4C 4F 43 41 4C |$DD08,X ; LOCAL|
000008B0: 20 42 55 46 46 45 52 00 CB 10 6E 05 53 54 41 20 | BUFFER...n.STA |
000008C0: 43 55 52 52 45 4E 54 2C 58 20 3B 00 D5 10 78 05 |CURRENT,X ;...x.|
000008D0: 44 45 58 20 3B 00 E4 10 82 05 42 50 4C 20 41 43 |DEX ;.....BPL AC|
000008E0: 44 43 20 3B 00 EA 10 8C 05 3B 00 0D 11 96 05 4C |DC ;.....;.....L|
000008F0: 44 58 20 23 33 20 3B 20 43 4F 4D 50 41 52 45 20 |DX #3 ; COMPARE |
00000900: 57 49 54 48 20 4F 4C 44 20 C5 55 45 53 00 27 11 |WITH OLD .UES.'.|
00000910: A0 05 54 45 41 52 53 20 4C 44 41 20 43 55 52 52 |..TEARS LDA CURR|
00000920: 45 4E 54 2C 58 20 3B 00 38 11 AA 05 43 4D 50 20 |ENT,X ;.8...CMP |
00000930: C5 55 45 53 2C 58 20 3B 00 46 11 B4 05 42 4E 45 |.UES,X ;.F...BNE|
00000940: 20 54 43 42 20 3B 00 50 11 BE 05 44 45 58 20 3B | TCB ;.P...DEX ;|
00000950: 00 60 11 C8 05 42 4E 45 20 54 45 41 52 53 20 3B |.`...BNE TEARS ;|
00000960: 00 85 11 D2 05 50 4C 50 20 3B 20 50 52 4F 43 45 |.....PLP ; PROCE|
00000970: 53 53 20 4F 4C 44 20 49 52 51 20 8B 20 54 48 45 |SS OLD IRQ . THE|
00000980: 20 54 49 4D 45 00 A8 11 DC 05 4A 4D 50 20 28 4F | TIME.....JMP (O|
00000990: 4C 44 49 52 51 29 20 3B 20 20 48 41 53 4E 27 54 |LDIRQ) ; HASN'T|
000009A0: 20 43 48 41 4E 47 45 44 00 AE 11 E6 05 3B 00 D1 | CHANGED.....;..|
000009B0: 11 F0 05 54 43 42 20 4C 44 58 20 23 33 20 3B 20 |...TCB LDX #3 ; |
000009C0: A2 20 C5 55 45 53 20 4E 4F 57 20 42 45 43 4F 4D |. .UES NOW BECOM|
000009D0: 45 00 F4 11 FA 05 43 48 45 41 50 20 4C 44 41 20 |E.....CHEAP LDA |
000009E0: 43 55 52 52 45 4E 54 2C 58 20 3B 20 20 54 48 45 |CURRENT,X ; THE|
000009F0: 20 4F 4C 44 00 0C 12 04 06 53 54 41 20 C5 55 45 | OLD.....STA .UE|
00000A00: 53 2C 58 20 3B 20 20 C5 55 45 53 21 00 16 12 0E |S,X ; .UES!....|
00000A10: 06 44 45 58 20 3B 00 26 12 18 06 42 50 4C 20 43 |.DEX ;.&...BPL C|
00000A20: 48 45 41 50 20 3B 00 2C 12 22 06 3B 00 3B 12 2C |HEAP ;.,.".;.;.,|
00000A30: 06 4C 44 59 20 C3 47 54 48 20 3B 00 45 12 36 06 |.LDY .GTH ;.E.6.|
00000A40: 44 45 59 20 3B 00 62 12 40 06 4C 44 41 20 C5 55 |DEY ;.b.@.LDA .U|
00000A50: 45 53 AA 31 20 3B 20 48 AF 4C 45 20 53 45 43 91 |ES.1 ; H.LE SEC.|
00000A60: 44 53 00 73 12 4A 06 4A 53 52 20 43 4F 4D 4D 91 |DS.s.J.JSR COMM.|
00000A70: 4C 20 3B 00 82 12 54 06 42 4D 49 20 45 58 49 54 |L ;...T.BMI EXIT|
00000A80: 20 3B 00 93 12 5E 06 4C 44 41 20 C5 55 45 53 AA | ;...^.LDA .UES.|
00000A90: 31 20 3B 00 A0 12 68 06 AF 20 23 24 37 46 20 3B |1 ;...h.. #$7F ;|
00000AA0: 00 B1 12 72 06 4A 53 52 20 43 4F 4D 4D 91 55 20 |...r.JSR COMM.U |
00000AB0: 3B 00 C0 12 7C 06 42 4D 49 20 45 58 49 54 20 3B |;...|.BMI EXIT ;|
00000AC0: 00 D8 12 86 06 4C 44 41 20 23 24 33 41 20 3B 20 |.....LDA #$3A ; |
00000AD0: 99 20 41 20 43 4F 4C 91 00 EA 12 90 06 4A 53 52 |. A COL......JSR|
00000AE0: 20 43 4F 4D 4D 91 4F 4B 20 3B 00 F9 12 9A 06 42 | COMM.OK ;.....B|
00000AF0: 4D 49 20 45 58 49 54 20 3B 00 17 13 A4 06 4C 44 |MI EXIT ;.....LD|
00000B00: 41 20 C5 55 45 53 AA 32 20 3B 20 48 AF 4C 45 20 |A .UES.2 ; H.LE |
00000B10: 4D 49 4E 55 54 45 53 00 28 13 AE 06 4A 53 52 20 |MINUTES.(...JSR |
00000B20: 43 4F 4D 4D 91 4C 20 3B 00 37 13 B8 06 42 4D 49 |COMM.L ;.7...BMI|
00000B30: 20 45 58 49 54 20 3B 00 48 13 C2 06 4C 44 41 20 | EXIT ;.H...LDA |
00000B40: C5 55 45 53 AA 32 20 3B 00 55 13 CC 06 AF 20 23 |.UES.2 ;.U.... #|
00000B50: 24 37 46 20 3B 00 66 13 D6 06 4A 53 52 20 43 4F |$7F ;.f...JSR CO|
00000B60: 4D 4D 91 55 20 3B 00 75 13 E0 06 42 4D 49 20 45 |MM.U ;.u...BMI E|
00000B70: 58 49 54 20 3B 00 8D 13 EA 06 4C 44 41 20 23 24 |XIT ;.....LDA #$|
00000B80: 33 41 20 3B 20 99 20 41 20 43 4F 4C 91 00 9F 13 |3A ; . A COL....|
00000B90: F4 06 4A 53 52 20 43 4F 4D 4D 91 4F 4B 20 3B 00 |..JSR COMM.OK ;.|
00000BA0: AE 13 FE 06 42 4D 49 20 45 58 49 54 20 3B 00 CA |....BMI EXIT ;..|
00000BB0: 13 08 07 4C 44 41 20 C5 55 45 53 AA 33 20 3B 20 |...LDA .UES.3 ; |
00000BC0: 48 AF 4C 45 20 48 4F 55 52 53 00 DB 13 12 07 4A |H.LE HOURS.....J|
00000BD0: 53 52 20 43 4F 4D 4D 91 4C 20 3B 00 EA 13 1C 07 |SR COMM.L ;.....|
00000BE0: 42 4D 49 20 45 58 49 54 20 3B 00 FB 13 26 07 4C |BMI EXIT ;...&.L|
00000BF0: 44 41 20 C5 55 45 53 AA 32 20 3B 00 08 14 30 07 |DA .UES.2 ;...0.|
00000C00: AF 20 23 24 31 46 20 3B 00 19 14 3A 07 4A 53 52 |. #$1F ;...:.JSR|
00000C10: 20 43 4F 4D 4D 91 55 20 3B 00 28 14 44 07 45 58 | COMM.U ;.(.D.EX|
00000C20: 49 54 20 50 4C 50 20 3B 00 3B 14 4E 07 4A 4D 50 |IT PLP ;.;.N.JMP|
00000C30: 20 28 4F 4C 44 49 52 51 29 20 3B 00 41 14 58 07 | (OLDIRQ) ;.A.X.|
00000C40: 3B 00 54 14 62 07 43 4F 4D 4D 91 55 20 4C 53 52 |;.T.b.COMM.U LSR|
00000C50: 20 41 20 3B 00 60 14 6C 07 4C 53 52 20 41 20 3B | A ;.`.l.LSR A ;|
00000C60: 00 6C 14 76 07 4C 53 52 20 41 20 3B 00 78 14 80 |.l.v.LSR A ;.x..|
00000C70: 07 4C 53 52 20 41 20 3B 00 7E 14 8A 07 3B 00 91 |.LSR A ;.~...;..|
00000C80: 14 94 07 43 4F 4D 4D 91 4C 20 AF 20 23 31 35 20 |...COMM.L . #15 |
00000C90: 3B 00 9F 14 9E 07 B0 41 20 23 24 33 30 20 3B 00 |;......A #$30 ;.|
00000CA0: B9 14 A8 07 43 4F 4D 4D 91 4F 4B 20 53 54 41 20 |....COMM.OK STA |
00000CB0: 28 24 46 42 29 2C 59 20 3B 00 C8 14 B2 07 4C 44 |($FB),Y ;.....LD|
00000CC0: 41 20 43 4F 4C B0 20 3B 00 DA 14 BC 07 53 54 41 |A COL. ;.....STA|
00000CD0: 20 28 24 46 44 29 2C 59 20 3B 00 E4 14 C6 07 44 | ($FD),Y ;.....D|
00000CE0: 45 59 20 3B 00 EE 14 D0 07 52 54 53 20 3B 00 FD |EY ;.....RTS ;..|
00000CF0: 14 DA 07 43 4F 4C B0 20 AC B2 AC AA 31 00 0B 15 |...COL. ....1...|
00000D00: E4 07 52 4F 57 20 AC B2 AC AA 31 00 1C 15 EE 07 |..ROW ....1.....|
00000D10: 43 4F 4C 55 4D 4E 20 AC B2 AC AA 31 00 2B 15 F8 |COLUMN ....1.+..|
00000D20: 07 C3 47 54 48 20 AC B2 AC AA 31 00 3C 15 02 08 |..GTH ....1.<...|
00000D30: 4F 4C 44 49 52 51 20 AC B2 AC AA 32 00 00 00 |OLDIRQ ....2... |
....D.. OPEN2,8,1,"TOD BABY.O".'.N..700.
-.X.;.9....OPT OO.?...;.P...STATUS . $90
.C. .BUFFER . $0200.V...FRMEVL . $AD9E..
....COMMA . $AEFD.....ILLQUAN . $B248...
H.IRQVEC . $314...R.;.....;.J...JMP HOOK
;.Y...JMP DROP ;.....;.....CURRENT .BYT
E 0,0,0,0.....EUES .BYTE 0,0,0,0.....;.1
.".;......................7.,.;.N.6.FBYT
E JSR .COMMA ;._.@.JSR FRMEVL ;.O.J.JMP
$B1AA ;.U.T.;.{.^.;...H.HOOK . ....R.JSR
FBYTE ; FETCH COLUMN NUMBER...|.STY COL
UMN ;.C...;.....JSR FBYTE ; FETCH ROW NU
MBER.....STY ROW ;.....;.....JSR FBYTE ;
FETCH COL. EUE.&...STY COL. ;.,.B.;.K.L
.JSR .COMMA ; FETCH '. U.G'.N.V.JSR FRME
VL ; STRING.DEAL.BABY.~...JSR 46755 ;..
...;.....CMP #9 ;.....BCC HYPNO ;.....JM
P $A571 ;.....;.X...HYPNO STA CGTH ; . B
ABY'S CG...&.;...0.LDA ROW ; SEE . ROW I
S LEGAL...:.CMP #25 ;...D.BCS OHNO ;.&.N
.CLC ;.E.X.LDA CGTH ; EXIT . CGTH . 0.T.
B.BEQ OHNO ;.V.L.ADC COLUMN ; . CGTH.COL
UMN.40...V.CMP #41 ; . EXIT THIS BABY..
...BCC ALLOK ; ELSE L.E KES ..M...OHNO
JMP ILLQUAN ;.S...;.....ALLOK . ......LD
Y #0 ; INIT MOST SIG. BYTE.$...LDA #0 ;
INIT LEAST SIG. BYTE.B...LDX ROW ; FETCH
ROW COUNT.C.F.BEQ SUIT ; EXIT . . ROW Z
ERO.I.P.;.X.Z.SILK CLC ;.....ADC #40 ;..
...BCC SHARP ;. ...INY ;.....SHARP DEX ;
.....BNE SILK ;.E...;.T. .SUIT CLC ;...*
.ADC COLUMN ;...4.STA $FB ;...>.STA $FD
;...H.TYA ;...R.PHP ;.#.\.ADC 648 ;.1.F.
STA $FC ;.;.P.TYA ;.E.Z.PLP ;.T...ADC #$
D8 ;.B...STA $FE ;.H...;.....LDX #3 ; ZE
RO.OUT THE .D BABY.....LDA #0 ;.....GSL
STA $DD08,X ;.....STA EUES,X ;.H.J.DEX ;
.V.T.BPL GSL ;.....;.....LDA #.MYIRQ ; D
O . RE.INSTALL.....CMP IRQVEC.1 ; MY BA
BY.*...BNE .MINE ;.4...RTS ;.:...;.U....
MINE PHP ; . . STATUS._.$.SEI ;.....LDX
IRQVEC.1 ; INSTALL MY BABY...8.STX OLDIR
Q.1 ; . PRESERVE OLD.F.B.STA IRQVEC.1 ;
VEC.R AT THE...L.LDA #.MYIRQ ; SAME T
IME...V.LDX IRQVEC ;...`.STX OLDIRQ ;...
J.STA IRQVEC ;. .T.PLP ;.*.~.RTS ;.0...;
.N...;.........................T...;.A..
.DROP . ......LDA IRQVEC.1 ; EXIT . . MY
IRQ.....CMP #.MYIRQ ;...D.BNE .BACK ;..
.N.PHP ;...X.SEI ;.Y...LDA OLDIRQ ; . OL
D IRQ VEC.....STA IRQVEC ;.....LDA OLDIR
Q.1 ;.....STA IRQVEC.1 ;.....PLP ;.*....
BACK RTS ;.0...;.M.(.;..................
......S.2.;.A.<.MYIRQ . ..K.F.PHP ;.U.P.
SEI ;...Z.LDX #3 ; COPY .D REG'S ....D.A
CDC LDA $DD08,X ; LOCAL BUFFER.K.N.STA
CURRENT,X ;.U.X.DEX ;.....BPL ACDC ;....
.;.....LDX #3 ; COMPARE WITH OLD EUES.'.
.TEARS LDA CURRENT,X ;.8...CMP EUES,X ;
.F...BNE TCB ;.P...DEX ;.`.H.BNE TEARS ;
...R.PLP ; PROCESS OLD IRQ . THE TIME...
..JMP (OLDIRQ) ; HASN'T CHANGED.....;.Q
...TCB LDX #3 ; . EUES NOW BECOME.....CH
EAP LDA CURRENT,X ; THE OLD.....STA EUE
S,X ; EUES!.....DEX ;.&...BPL CHEAP ;.,
.".;.;.,.LDY CGTH ;.E.6.DEY ;.B.@.LDA EU
ES.1 ; H.LE SEC.DS.S.J.JSR COMM.L ;...T.
BMI EXIT ;...^.LDA EUES.1 ;. .H.. #$7F ;
...R.JSR COMM.U ;...|.BMI EXIT ;.X...LDA
#$3A ; . A COL......JSR COMM.OK ;.....B
MI EXIT ;.....LDA EUES.2 ; H.LE MINUTES.
(...JSR COMM.L ;.7...BMI EXIT ;.H.B.LDA
EUES.2 ;.U.L.. #$7F ;.F.V.JSR COMM.U ;.U
...BMI EXIT ;.....LDA #$3A ; . A COL....
..JSR COMM.OK ;.....BMI EXIT ;.J...LDA E
UES.3 ; H.LE HOURS.....JSR COMM.L ;.....
BMI EXIT ;...&.LDA EUES.2 ;...0.. #$1F ;
...:.JSR COMM.U ;.(.D.EXIT PLP ;.;.N.JMP
(OLDIRQ) ;.A.X.;.T.B.COMM.U LSR A ;.`.L
.LSR A ;.L.V.LSR A ;.X...LSR A ;.~...;..
...COMM.L . #15 ;......A #$30 ;.....COMM
.OK STA ($FB),Y ;.H...LDA COL. ;.Z...STA
($FD),Y ;...F.DEY ;...P.RTS ;...Z.COL.
....1.....ROW ....1.....COLUMN ....1.+..
.CGTH ....1.<...OLDIRQ ....2...
> CLICK IMAGE PREVIEW FOR FULL MODAL