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

23A.PAL

FILE INFORMATION

FILENAME(S): 23A.PAL

FILE TYPE(S): PRG

FILE SIZE: 981b

FIRST SEEN: 2025-10-19 22:48:31

APPEARS ON: 2 disk(s)

FILE HASH

e4d0e05079f208e63e24a651c1a68620befd394230ffe96b839a115b85ca0b78

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MM UTILITY 23A.PAL PRG Radd Maxx 11 17 DOWNLOAD FILE
1541 DEVELOPMENT 23A.PAL PRG Sailor, Ganheden 11 17 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 0F 04 64 00 8F 20  32 33 41 2E 50 41 4C 00  |....d.. 23A.PAL.|
00000010: 15 04 6E 00 8F 00 2F 04  78 00 9F 32 2C 38 2C 32  |..n.../.x..2,8,2|
00000020: 2C 22 40 30 3A 32 33 41  2E 42 2C 50 2C 57 22 00  |,"@0:23A.B,P,W".|
00000030: 35 04 82 00 8F 00 40 04  8C 00 9E 34 30 39 36 30  |5.....@....40960|
00000040: 00 46 04 96 00 3B 00 54  04 A0 00 2E 4F 50 54 20  |.F...;.T....OPT |
00000050: 50 2C 4F 32 00 5A 04 AA  00 3B 00 67 04 B4 00 AC  |P,O2.Z...;.g....|
00000060: B2 20 24 30 35 30 30 00  6D 04 BE 00 3B 00 7A 04  |. $0500.m...;.z.|
00000070: C8 00 4C 44 41 20 23 24  30 34 00 86 04 D2 00 53  |..LDA #$04.....S|
00000080: 54 41 20 24 33 31 00 8C  04 DC 00 3B 00 98 04 E6  |TA $31.....;....|
00000090: 00 4C 44 41 20 24 33 41  00 A0 04 F0 00 54 41 58  |.LDA $3A.....TAX|
000000A0: 00 CF 04 FA 00 49 4E 58  20 20 20 20 20 20 20 20  |.....INX        |
000000B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 20 49  |             ; I|
000000C0: 4E 43 8F 45 4E 54 20 43  48 45 43 4B 53 55 4D 00  |NC.ENT CHECKSUM.|
000000D0: D7 04 04 01 54 58 41 00  E3 04 0E 01 53 54 41 20  |....TXA.....STA |
000000E0: 24 33 41 00 E9 04 18 01  3B 00 14 05 22 01 4A 53  |$3A.....;...".JS|
000000F0: 52 20 24 46 37 38 46 20  20 20 20 20 20 20 20 20  |R $F78F         |
00000100: 20 20 20 20 20 20 3B 20  43 91 56 45 52 54 20 A4  |      ; C.VERT .|
00000110: 20 47 43 52 00 39 05 2C  01 4A 53 52 20 24 46 35  | GCR.9.,.JSR $F5|
00000120: 31 30 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |10              |
00000130: 20 3B 20 46 49 4E 44 20  D0 00 3F 05 36 01 3B 00  | ; FIND ..?.6.;.|
00000140: 4C 05 40 01 4C 44 58 20  23 24 30 38 00 6E 05 4A  |L.@.LDX #$08.n.J|
00000150: 01 92 47 41 50 20 42 56  43 20 92 47 41 50 20 20  |..GAP BVC .GAP  |
00000160: 20 20 20 3B 20 92 20 4F  55 54 20 47 41 50 00 76  |   ; . OUT GAP.v|
00000170: 05 54 01 43 4C 56 00 7E  05 5E 01 44 45 58 00 8B  |.T.CLV.~.^.DEX..|
00000180: 05 68 01 42 4E 45 20 92  47 41 50 00 91 05 72 01  |.h.BNE .GAP...r.|
00000190: 3B 00 BC 05 7C 01 4C 44  41 20 23 24 46 46 20 20  |;...|.LDA #$FF  |
000001A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 3B 20  |              ; |
000001B0: 45 4E 41 42 4C 45 20 57  52 49 54 45 00 CA 05 86  |ENABLE WRITE....|
000001C0: 01 53 54 41 20 24 31 43  30 33 00 D8 05 90 01 4C  |.STA $1C03.....L|
000001D0: 44 41 20 24 31 43 30 43  00 E3 05 9A 01 AF 20 23  |DA $1C0C...... #|
000001E0: 24 31 46 00 EF 05 A4 01  B0 41 20 23 24 43 30 00  |$1F......A #$C0.|
000001F0: FD 05 AE 01 53 54 41 20  24 31 43 30 43 00 0A 06  |....STA $1C0C...|
00000200: B8 01 4C 44 41 20 23 24  46 46 00 17 06 C2 01 4C  |..LDA #$FF.....L|
00000210: 44 58 20 23 24 30 35 00  25 06 CC 01 53 54 41 20  |DX #$05.%...STA |
00000220: 24 31 43 30 31 00 2D 06  D6 01 43 4C 56 00 49 06  |$1C01.-...CLV.I.|
00000230: E0 01 57 52 49 54 45 53  59 4E 43 20 42 56 43 20  |..WRITESYNC BVC |
00000240: 57 52 49 54 45 53 59 4E  43 00 51 06 EA 01 43 4C  |WRITESYNC.Q...CL|
00000250: 56 00 59 06 F4 01 44 45  58 00 6B 06 FE 01 42 4E  |V.Y...DEX.k...BN|
00000260: 45 20 57 52 49 54 45 53  59 4E 43 00 71 06 08 02  |E WRITESYNC.q...|
00000270: 3B 00 7E 06 12 02 4C 44  59 20 23 24 42 42 00 B6  |;.~...LDY #$BB..|
00000280: 06 1C 02 4F 56 45 52 46  4C 4F 57 20 4C 44 41 20  |...OVERFLOW LDA |
00000290: 24 30 31 30 30 2C 59 20  20 20 20 3B 20 57 52 49  |$0100,Y    ; WRI|
000002A0: 54 45 20 4F 55 54 20 4F  56 45 52 46 4C 4F 57 20  |TE OUT OVERFLOW |
000002B0: 42 55 46 46 45 52 00 C4  06 26 02 92 31 20 42 56  |BUFFER...&..1 BV|
000002C0: 43 20 92 31 00 CC 06 30  02 43 4C 56 00 DA 06 3A  |C .1...0.CLV...:|
000002D0: 02 53 54 41 20 24 31 43  30 31 00 E2 06 44 02 49  |.STA $1C01...D.I|
000002E0: 4E 59 00 F3 06 4E 02 42  4E 45 20 4F 56 45 52 46  |NY...N.BNE OVERF|
000002F0: 4C 4F 57 00 22 07 58 02  42 55 46 46 45 52 20 4C  |LOW.".X.BUFFER L|
00000300: 44 41 20 24 30 34 30 30  2C 59 20 20 20 20 20 20  |DA $0400,Y      |
00000310: 3B 20 57 52 49 54 45 20  4F 55 54 20 42 55 46 46  |; WRITE OUT BUFF|
00000320: 45 52 00 30 07 62 02 92  32 20 42 56 43 20 92 32  |ER.0.b..2 BVC .2|
00000330: 00 38 07 6C 02 43 4C 56  00 46 07 76 02 53 54 41  |.8.l.CLV.F.v.STA|
00000340: 20 24 31 43 30 31 00 4E  07 80 02 49 4E 59 00 5D  | $1C01.N...INY.]|
00000350: 07 8A 02 42 4E 45 20 42  55 46 46 45 52 00 6B 07  |...BNE BUFFER.k.|
00000360: 94 02 92 33 20 42 56 43  20 92 33 00 71 07 9E 02  |...3 BVC .3.q...|
00000370: 3B 00 98 07 A8 02 4A 53  52 20 24 46 45 30 30 20  |;.....JSR $FE00 |
00000380: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 3B 20  |              ; |
00000390: 45 4E 41 42 4C 45 20 87  00 9E 07 B2 02 3B 00 AB  |ENABLE ......;..|
000003A0: 07 BC 02 4C 44 41 20 23  24 30 35 00 B7 07 C6 02  |...LDA #$05.....|
000003B0: 53 54 41 20 24 33 31 00  C4 07 D0 02 4C 44 41 20  |STA $31.....LDA |
000003C0: 23 24 30 31 00 D2 07 DA  02 4A 4D 50 20 24 46 39  |#$01.....JMP $F9|
000003D0: 36 39 00 00 00                                    |69...           |
....D.. 23A.PAL...N.../.X..2,8,2,"@0:23A
.B,P,W".5.....@....40960.F...;.T. ..OPT 
P,O2.Z...;.G..... $0500.M...;.Z.H.LDA #$
04...R.STA $31.....;.....LDA $3A. ...TAX
.O...INX                     ; INC.ENT C
HECKSUM.W...TXA.....STA $3A.....;...".JS
R $F78F               ; C.VERT . GCR.9.,
.JSR $F510               ; FIND P.?.6.;.
L.@.LDX #$08.N.J..GAP BVC .GAP     ; . O
UT GAP.V.T.CLV.~.^.DEX...H.BNE .GAP...R.
;...|.LDA #$FF                ; ENABLE W
RITE.J...STA $1C03.X...LDA $1C0C...... #
$1F......A #$C0.....STA $1C0C.....LDA #$
FF...B.LDX #$05.%.L.STA $1C01.-.V.CLV.I.
..WRITESYNC BVC WRITESYNC.Q...CLV.Y...DE
X.K...BNE WRITESYNC.Q...;.~...LDY #$BB..
...OVERFLOW LDA $0100,Y    ; WRITE OUT O
VERFLOW BUFFER.D.&..1 BVC .1.L.0.CLV.Z.:
.STA $1C01...D.INY...N.BNE OVERFLOW.".X.
BUFFER LDA $0400,Y      ; WRITE OUT BUFF
ER.0.B..2 BVC .2.8.L.CLV.F.V.STA $1C01.N
...INY.]...BNE BUFFER.K....3 BVC .3.Q...
;.....JSR $FE00               ; ENABLE .
.....;.....LDA #$05...F.STA $31.D.P.LDA 
#$01.R.Z.JMP $F969...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL