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

20.PAL

FILE INFORMATION

FILENAME(S): 20.PAL

FILE TYPE(S): PRG

FILE SIZE: 846b

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

APPEARS ON: 2 disk(s)

FILE HASH

9978bc4256bf189ae9e391431997b005c8b8f4719d7f52a3fc85c690edec8dd3

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 01 04 0E 04 64 00 8F 20  32 30 2E 50 41 4C 00 14  |....d.. 20.PAL..|
00000010: 04 6E 00 8F 00 2D 04 78  00 9F 32 2C 38 2C 32 2C  |.n...-.x..2,8,2,|
00000020: 22 40 30 3A 32 30 2E 42  2C 50 2C 57 22 00 33 04  |"@0:20.B,P,W".3.|
00000030: 82 00 8F 00 3E 04 8C 00  9E 34 30 39 36 30 00 44  |....>....40960.D|
00000040: 04 96 00 3B 00 52 04 A0  00 2E 4F 50 54 20 50 2C  |...;.R....OPT P,|
00000050: 4F 32 00 58 04 AA 00 3B  00 65 04 B4 00 AC B2 20  |O2.X...;.e..... |
00000060: 24 30 35 30 30 00 6B 04  BE 00 3B 00 90 04 C8 00  |$0500.k...;.....|
00000070: 4A 53 52 20 24 46 35 31  30 20 20 20 20 20 20 20  |JSR $F510       |
00000080: 20 20 3B 20 46 49 4E 44  20 D0 20 42 4C 4F 43 4B  |  ; FIND . BLOCK|
00000090: 00 B5 04 D2 00 4A 53 52  20 24 46 35 35 36 20 20  |.....JSR $F556  |
000000A0: 20 20 20 20 20 20 20 3B  20 46 49 4E 44 20 83 20  |       ; FIND . |
000000B0: 42 4C 4F 43 4B 00 BB 04  DC 00 3B 00 C8 04 E6 00  |BLOCK.....;.....|
000000C0: 4C 44 59 20 23 24 31 34  00 D4 04 F0 00 4C 44 41  |LDY #$14.....LDA|
000000D0: 20 24 31 39 00 E1 04 FA  00 43 4D 50 20 23 24 31  | $19.....CMP #$1|
000000E0: 32 00 ED 04 04 01 42 43  43 20 5A 91 45 00 F5 04  |2.....BCC Z.E...|
000000F0: 0E 01 44 45 59 00 FD 04  18 01 44 45 59 00 0A 05  |..DEY.....DEY...|
00000100: 22 01 43 4D 50 20 23 24  31 39 00 16 05 2C 01 42  |".CMP #$19...,.B|
00000110: 43 43 20 5A 91 45 00 1E  05 36 01 44 45 59 00 2B  |CC Z.E...6.DEY.+|
00000120: 05 40 01 43 4D 50 20 23  24 31 46 00 37 05 4A 01  |.@.CMP #$1F.7.J.|
00000130: 42 43 43 20 5A 91 45 00  3F 05 54 01 44 45 59 00  |BCC Z.E.?.T.DEY.|
00000140: 4F 05 5E 01 5A 91 45 20  49 4E 43 20 24 31 38 00  |O.^.Z.E INC $18.|
00000150: 5B 05 68 01 43 4D 50 20  24 31 38 00 65 05 72 01  |[.h.CMP $18.e.r.|
00000160: 42 43 43 20 D0 00 6F 05  7C 01 42 45 51 20 D0 00  |BCC ..o.|.BEQ ..|
00000170: 7C 05 86 01 4C 44 41 20  23 24 30 30 00 88 05 90  ||...LDA #$00....|
00000180: 01 53 54 41 20 24 31 39  00 8E 05 9A 01 3B 00 9D  |.STA $19.....;..|
00000190: 05 A4 01 D0 20 4C 44 41  20 23 24 30 30 00 A8 05  |.... LDA #$00...|
000001A0: AE 01 45 B0 20 24 31 36  00 B3 05 B8 01 45 B0 20  |..E. $16.....E. |
000001B0: 24 31 37 00 BE 05 C2 01  45 B0 20 24 31 38 00 C9  |$17.....E. $18..|
000001C0: 05 CC 01 45 B0 20 24 31  39 00 D5 05 D6 01 53 54  |...E. $19.....ST|
000001D0: 41 20 24 31 41 00 DB 05  E0 01 3B 00 04 06 EA 01  |A $1A.....;.....|
000001E0: 4A 53 52 20 24 46 39 33  34 20 20 20 20 20 20 20  |JSR $F934       |
000001F0: 20 20 3B 20 43 52 45 41  54 45 20 A2 20 D0 20 49  |  ; CREATE . . I|
00000200: 4D 41 47 45 00 29 06 F4  01 4A 53 52 20 24 46 35  |MAGE.)...JSR $F5|
00000210: 35 36 20 20 20 20 20 20  20 20 20 3B 20 46 49 4E  |56         ; FIN|
00000220: 44 20 D0 20 42 4C 4F 43  4B 00 4C 06 FE 01 4C 44  |D . BLOCK.L...LD|
00000230: 41 20 23 24 46 46 20 20  20 20 20 20 20 20 20 20  |A #$FF          |
00000240: 3B 20 57 52 49 54 45 20  4D 4F 44 45 00 5A 06 08  |; WRITE MODE.Z..|
00000250: 02 53 54 41 20 24 31 43  30 33 00 68 06 12 02 4C  |.STA $1C03.h...L|
00000260: 44 41 20 24 31 43 30 43  00 73 06 1C 02 AF 20 23  |DA $1C0C.s.... #|
00000270: 24 31 46 00 7F 06 26 02  B0 41 20 23 24 43 30 00  |$1F...&..A #$C0.|
00000280: 8D 06 30 02 53 54 41 20  24 31 43 30 43 00 9A 06  |..0.STA $1C0C...|
00000290: 3A 02 4C 44 58 20 23 24  30 30 00 B0 06 44 02 57  |:.LDX #$00...D.W|
000002A0: 52 49 54 45 20 4C 44 41  20 24 30 30 32 34 2C 58  |RITE LDA $0024,X|
000002B0: 00 BE 06 4E 02 92 31 20  42 56 43 20 92 31 00 C6  |...N..1 BVC .1..|
000002C0: 06 58 02 43 4C 56 00 D4  06 62 02 53 54 41 20 24  |.X.CLV...b.STA $|
000002D0: 31 43 30 31 00 DC 06 6C  02 49 4E 58 00 E9 06 76  |1C01...l.INX...v|
000002E0: 02 43 50 58 20 23 24 30  38 00 F7 06 80 02 42 4E  |.CPX #$08.....BN|
000002F0: 45 20 57 52 49 54 45 00  05 07 8A 02 92 32 20 42  |E WRITE......2 B|
00000300: 56 43 20 92 32 00 0B 07  94 02 3B 00 2A 07 9E 02  |VC .2.....;.*...|
00000310: 4A 53 52 20 24 46 45 30  30 20 20 20 20 20 20 20  |JSR $FE00       |
00000320: 20 20 3B 20 87 20 4D 4F  44 45 00 30 07 A8 02 3B  |  ; . MODE.0...;|
00000330: 00 3D 07 B2 02 4C 44 41  20 23 24 30 31 00 4B 07  |.=...LDA #$01.K.|
00000340: BC 02 4A 4D 50 20 24 46  39 36 39 00 00 00        |..JMP $F969...  |
....D.. 20.PAL...N...-.X..2,8,2,"@0:20.B
,P,W".3.....>....40960.D...;.R. ..OPT P,
O2.X...;.E..... $0500.K...;...H.JSR $F51
0         ; FIND P BLOCK...R.JSR $F556  
       ; FIND . BLOCK.....;.H...LDY #$14
.T...LDA $19.....CMP #$12.....BCC Z.E...
..DEY.....DEY...".CMP #$19...,.BCC Z.E..
.6.DEY.+.@.CMP #$1F.7.J.BCC Z.E.?.T.DEY.
O.^.Z.E INC $18.[.H.CMP $18.E.R.BCC P.O.
|.BEQ P.|...LDA #$00.....STA $19.....;..
...P LDA #$00.....E. $16.....E. $17...B.
E. $18.I.L.E. $19.U.V.STA $1A.....;.....
JSR $F934         ; CREATE . P IMAGE.)..
.JSR $F556         ; FIND P BLOCK.L...LD
A #$FF          ; WRITE MODE.Z...STA $1C
03.H...LDA $1C0C.S.... #$1F..&..A #$C0.
..0.STA $1C0C...:.LDX #$00...D.WRITE LDA
 $0024,X...N..1 BVC .1.F.X.CLV.T.B.STA $
1C01...L.INX...V.CPX #$08.....BNE WRITE.
.....2 BVC .2.....;.*...JSR $FE00       
  ; . MODE.0...;.=...LDA #$01.K...JMP $F
969...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL