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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL