00000000: 01 04 0F 04 64 00 8F 20 32 30 4D 2E 50 41 4C 00 |....d.. 20M.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 30 4D 2E 42 2C 50 2C 57 22 00 |,"@0:20M.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 34 30 30 00 6D 04 BE 00 3B 00 84 04 |. $0400.m...;...|
00000070: C8 00 3B AC 20 49 4E 49 54 49 41 4C 49 5A 41 54 |..;. INITIALIZAT|
00000080: 49 91 20 AC 00 8A 04 D2 00 3B 00 97 04 DC 00 4C |I. ......;.....L|
00000090: 44 41 20 23 24 30 30 00 A3 04 E6 00 53 54 41 20 |DA #$00.....STA |
000000A0: 24 37 46 00 AF 04 F0 00 4C 44 58 20 24 30 43 00 |$7F.....LDX $0C.|
000000B0: BB 04 FA 00 53 54 58 20 24 35 31 00 C7 04 04 01 |....STX $51.....|
000000C0: 53 54 58 20 24 38 30 00 D3 04 0E 01 4C 44 58 20 |STX $80.....LDX |
000000D0: 24 30 44 00 DB 04 18 01 49 4E 58 00 E7 04 22 01 |$0D.....INX...".|
000000E0: 53 54 58 20 24 34 33 00 F4 04 2C 01 4C 44 41 20 |STX $43...,.LDA |
000000F0: 23 24 30 31 00 02 05 36 01 53 54 41 20 24 30 36 |#$01...6.STA $06|
00000100: 32 30 00 21 05 40 01 4C 44 41 20 23 24 30 38 20 |20.!.@.LDA #$08 |
00000110: 20 20 20 20 20 20 20 3B 20 54 41 49 4C 20 47 41 | ; TAIL GA|
00000120: 50 00 2F 05 4A 01 53 54 41 20 24 30 36 32 36 00 |P./.J.STA $0626.|
00000130: 3C 05 54 01 4C 44 41 20 23 24 30 30 00 60 05 5E |<.T.LDA #$00.`.^|
00000140: 01 53 54 41 20 24 30 36 32 38 20 20 20 20 20 20 |.STA $0628 |
00000150: 20 3B 20 53 45 43 A4 52 20 43 4F 55 4E 54 45 52 | ; SEC.R COUNTER|
00000160: 00 66 05 68 01 3B 00 82 05 72 01 4A 53 52 20 24 |.f.h.;...r.JSR $|
00000170: 43 31 30 30 20 20 20 20 20 20 20 3B 20 4C 45 44 |C100 ; LED|
00000180: 20 91 00 88 05 7C 01 3B 00 9B 05 86 01 3B AC 20 | ....|.;.....;. |
00000190: 43 52 45 41 54 45 20 D0 53 20 AC 00 A1 05 90 01 |CREATE .S ......|
000001A0: 3B 00 AE 05 9A 01 4C 44 58 20 23 24 30 30 00 C4 |;.....LDX #$00..|
000001B0: 05 A4 01 D0 20 4C 44 41 20 23 24 30 39 20 3B 20 |.... LDA #$09 ; |
000001C0: 44 42 49 44 00 D4 05 AE 01 53 54 41 20 24 30 33 |DBID.....STA $03|
000001D0: 30 30 2C 58 00 DC 05 B8 01 49 4E 58 00 FB 05 C2 |00,X.....INX....|
000001E0: 01 49 4E 58 20 20 20 20 20 20 20 20 20 20 20 20 |.INX |
000001F0: 20 3B 20 43 48 45 43 4B 53 55 4D 00 09 06 CC 01 | ; CHECKSUM.....|
00000200: 4C 44 41 20 24 30 36 32 38 00 25 06 D6 01 53 54 |LDA $0628.%...ST|
00000210: 41 20 24 30 33 30 30 2C 58 20 20 20 20 20 3B 20 |A $0300,X ; |
00000220: 53 45 43 A4 52 00 2D 06 E0 01 49 4E 58 00 39 06 |SEC.R.-...INX.9.|
00000230: EA 01 4C 44 41 20 24 35 31 00 55 06 F4 01 53 54 |..LDA $51.U...ST|
00000240: 41 20 24 30 33 30 30 2C 58 20 20 20 20 20 3B 20 |A $0300,X ; |
00000250: 54 52 41 43 4B 00 5D 06 FE 01 49 4E 58 00 6A 06 |TRACK.]...INX.j.|
00000260: 08 02 4C 44 41 20 23 24 30 30 00 84 06 12 02 53 |..LDA #$00.....S|
00000270: 54 41 20 24 30 33 30 30 2C 58 20 20 20 20 20 3B |TA $0300,X ;|
00000280: 20 49 44 4C 00 8C 06 1C 02 49 4E 58 00 A6 06 26 | IDL.....INX...&|
00000290: 02 53 54 41 20 24 30 33 30 30 2C 58 20 20 20 20 |.STA $0300,X |
000002A0: 20 3B 20 49 44 48 00 AE 06 30 02 49 4E 58 00 BB | ; IDH...0.INX..|
000002B0: 06 3A 02 4C 44 41 20 23 24 30 46 00 D5 06 44 02 |.:.LDA #$0F...D.|
000002C0: 53 54 41 20 24 30 33 30 30 2C 58 20 20 20 20 20 |STA $0300,X |
000002D0: 3B 20 47 41 50 00 DD 06 4E 02 49 4E 58 00 F7 06 |; GAP...N.INX...|
000002E0: 58 02 53 54 41 20 24 30 33 30 30 2C 58 20 20 20 |X.STA $0300,X |
000002F0: 20 20 3B 20 47 41 50 00 FF 06 62 02 49 4E 58 00 | ; GAP...b.INX.|
00000300: 05 07 6C 02 3B 00 2C 07 76 02 4C 44 41 20 23 24 |..l.;.,.v.LDA #$|
00000310: 30 30 20 20 20 20 20 20 20 20 3B 20 43 4F 4D 50 |00 ; COMP|
00000320: 55 54 45 20 43 48 45 43 4B 53 55 4D 00 3B 07 80 |UTE CHECKSUM.;..|
00000330: 02 45 B0 20 24 30 32 46 41 2C 58 00 4A 07 8A 02 |.E. $02FA,X.J...|
00000340: 45 B0 20 24 30 32 46 42 2C 58 00 59 07 94 02 45 |E. $02FB,X.Y...E|
00000350: B0 20 24 30 32 46 43 2C 58 00 68 07 9E 02 45 B0 |. $02FC,X.h...E.|
00000360: 20 24 30 32 46 44 2C 58 00 78 07 A8 02 53 54 41 | $02FD,X.x...STA|
00000370: 20 24 30 32 46 39 2C 58 00 7E 07 B2 02 3B 00 8C | $02F9,X.~...;..|
00000380: 07 BC 02 49 4E 43 20 24 30 36 32 38 00 9A 07 C6 |...INC $0628....|
00000390: 02 4C 44 41 20 24 30 36 32 38 00 A6 07 D0 02 43 |.LDA $0628.....C|
000003A0: 4D 50 20 24 34 33 00 B0 07 DA 02 42 4E 45 20 D0 |MP $43.....BNE .|
000003B0: 00 B6 07 E4 02 3B 00 BE 07 EE 02 54 58 41 00 C6 |.....;.....TXA..|
000003C0: 07 F8 02 50 48 41 00 CC 07 02 03 3B 00 DE 07 0C |...PHA.....;....|
000003D0: 03 3B AC 20 43 52 45 41 54 45 20 83 20 2A 00 E4 |.;. CREATE . *..|
000003E0: 07 16 03 3B 00 05 08 20 03 4C 44 41 20 23 24 34 |...;... .LDA #$4|
000003F0: 42 20 20 20 20 20 20 20 20 20 3B 20 31 35 34 31 |B ; 1541|
00000400: 20 81 4D 41 54 00 13 08 2A 03 53 54 41 20 24 30 | .MAT...*.STA $0|
00000410: 35 30 30 00 34 08 34 03 4C 44 58 20 23 24 30 31 |500.4.4.LDX #$01|
00000420: 20 20 20 20 20 20 20 20 20 3B 20 31 35 34 31 20 | ; 1541 |
00000430: 81 4D 41 54 00 3C 08 3E 03 54 58 41 00 4E 08 48 |.MAT.<.>.TXA.N.H|
00000440: 03 83 20 53 54 41 20 24 30 35 30 30 2C 58 00 56 |.. STA $0500,X.V|
00000450: 08 52 03 49 4E 58 00 60 08 5C 03 42 4E 45 20 83 |.R.INX.`.\.BNE .|
00000460: 00 66 08 66 03 3B 00 7C 08 70 03 3B AC 20 43 91 |.f.f.;.|.p.;. C.|
00000470: 56 45 52 54 20 A4 20 47 43 52 20 AC 00 82 08 7A |VERT . GCR ....z|
00000480: 03 3B 00 8F 08 84 03 4C 44 41 20 23 24 30 30 00 |.;.....LDA #$00.|
00000490: 9B 08 8E 03 53 54 41 20 24 33 30 00 A8 08 98 03 |....STA $30.....|
000004A0: 4C 44 41 20 23 24 30 33 00 B4 08 A2 03 53 54 41 |LDA #$03.....STA|
000004B0: 20 24 33 31 00 C2 08 AC 03 4A 53 52 20 24 46 45 | $31.....JSR $FE|
000004C0: 33 30 00 CA 08 B6 03 50 4C 41 00 D2 08 C0 03 54 |30.....PLA.....T|
000004D0: 41 59 00 DA 08 CA 03 44 45 59 00 E8 08 D4 03 4A |AY.....DEY.....J|
000004E0: 53 52 20 24 46 44 45 35 00 F6 08 DE 03 4A 53 52 |SR $FDE5.....JSR|
000004F0: 20 24 46 44 46 35 00 03 09 E8 03 4C 44 41 20 23 | $FDF5.....LDA #|
00000500: 24 30 35 00 0F 09 F2 03 53 54 41 20 24 33 31 00 |$05.....STA $31.|
00000510: 1D 09 FC 03 4A 53 52 20 24 46 35 45 39 00 29 09 |....JSR $F5E9.).|
00000520: 06 04 53 54 41 20 24 33 41 00 37 09 10 04 4A 53 |..STA $3A.7...JS|
00000530: 52 20 24 46 37 38 46 00 3D 09 1A 04 37 00 56 09 |R $F78F.=...7.V.|
00000540: 24 04 3B AC 20 4A 55 4D 50 20 49 4E 53 54 52 55 |$.;. JUMP INSTRU|
00000550: 43 54 49 91 20 AC 00 5C 09 2E 04 3B 00 69 09 38 |CTI. ..\...;.i.8|
00000560: 04 4C 44 41 20 23 24 32 33 00 75 09 42 04 53 54 |.LDA #$23.u.B.ST|
00000570: 41 20 24 35 31 00 7B 09 4C 04 3B 00 88 09 56 04 |A $51.{.L.;...V.|
00000580: 4C 44 41 20 23 24 41 39 00 96 09 60 04 53 54 41 |LDA #$A9...`.STA|
00000590: 20 24 30 36 30 30 00 A3 09 6A 04 4C 44 41 20 23 | $0600...j.LDA #|
000005A0: 24 30 35 00 B1 09 74 04 53 54 41 20 24 30 36 30 |$05...t.STA $060|
000005B0: 31 00 BE 09 7E 04 4C 44 41 20 23 24 38 35 00 CC |1...~.LDA #$85..|
000005C0: 09 88 04 53 54 41 20 24 30 36 30 32 00 D9 09 92 |...STA $0602....|
000005D0: 04 4C 44 41 20 23 24 33 31 00 E7 09 9C 04 53 54 |.LDA #$31.....ST|
000005E0: 41 20 24 30 36 30 33 00 F4 09 A6 04 4C 44 41 20 |A $0603.....LDA |
000005F0: 23 24 34 43 00 02 0A B0 04 53 54 41 20 24 30 36 |#$4C.....STA $06|
00000600: 30 34 00 0F 0A BA 04 4C 44 41 20 23 24 41 41 00 |04.....LDA #$AA.|
00000610: 1D 0A C4 04 53 54 41 20 24 30 36 30 35 00 2A 0A |....STA $0605.*.|
00000620: CE 04 4C 44 41 20 23 24 46 43 00 38 0A D8 04 53 |..LDA #$FC.8...S|
00000630: 54 41 20 24 30 36 30 36 00 3E 0A E2 04 3B 00 4B |TA $0606.>...;.K|
00000640: 0A EC 04 4C 44 41 20 23 24 45 30 00 57 0A F6 04 |...LDA #$E0.W...|
00000650: 53 54 41 20 24 30 33 00 5D 0A 00 05 3B 00 6B 0A |STA $03.]...;.k.|
00000660: 0A 05 92 20 4C 44 41 20 24 30 33 00 75 0A 14 05 |... LDA $03.u...|
00000670: 42 4D 49 20 92 00 7B 0A 1E 05 3B 00 89 0A 28 05 |BMI ..{...;...(.|
00000680: 4A 4D 50 20 24 43 31 39 34 00 00 00 |JMP $C194... |
....D.. 20M.PAL...N.../.X..2,8,2,"@0:20M
.B,P,W".5.....@....40960.F...;.T. ..OPT
P,O2.Z...;.G..... $0400.M...;...H.;. INI
TIALIZATI. ....R.;.....LDA #$00.....STA
$7F.....LDX $0C.....STX $51.G...STX $80.
S...LDX $0D.....INX...".STX $43...,.LDA
#$01...6.STA $0620.!.@.LDA #$08 ;
TAIL GAP./.J.STA $0626.<.T.LDA #$00.`.^
.STA $0628 ; SEC.R COUNTER.F.H.;..
.R.JSR $C100 ; LED ....|.;.....;.
CREATE PS ......;.....LDX #$00.D...P LDA
#$09 ; DBID.T...STA $0300,X.....INX...B
.INX ; CHECKSUM...L.LDA $062
8.%.V.STA $0300,X ; SEC.R.-...INX.9.
..LDA $51.U...STA $0300,X ; TRACK.].
..INX.J...LDA #$00.....STA $0300,X ;
IDL.....INX...&.STA $0300,X ; IDH..
.0.INX...:.LDA #$0F.U.D.STA $0300,X
; GAP...N.INX...X.STA $0300,X ; GAP.
..B.INX...L.;.,.V.LDA #$00 ; COMP
UTE CHECKSUM.;...E. $02FA,X.J...E. $02FB
,X.Y...E. $02FC,X.H...E. $02FD,X.X...STA
$02F9,X.~...;.....INC $0628...F.LDA $06
28...P.CMP $43...Z.BNE P.....;.....TXA.F
...PHA.L...;.....;. CREATE . *.....;...
.LDA #$4B ; 1541 .MAT...*.STA $0
500.4.4.LDX #$01 ; 1541 .MAT.<.>
.TXA.N.H.. STA $0500,X.V.R.INX.`.\.BNE .
.F.F.;.|.P.;. C.VERT . GCR ....Z.;.....L
DA #$00.....STA $30.....LDA #$03.....STA
$31.B...JSR $FE30.J...PLA.R...TAY.Z.J.D
EY...T.JSR $FDE5.....JSR $FDF5.....LDA #
$05.....STA $31.....JSR $F5E9.)...STA $3
A.7...JSR $F78F.=...7.V.$.;. JUMP INSTRU
CTI. ..\...;.I.8.LDA #$23.U.B.STA $51.{.
L.;...V.LDA #$A9...`.STA $0600...J.LDA #
$05...T.STA $0601...~.LDA #$85.L...STA $
0602.Y...LDA #$31.....STA $0603.....LDA
#$4C.....STA $0604.....LDA #$AA...D.STA
$0605.*.N.LDA #$FC.8.X.STA $0606.>...;.K
...LDA #$E0.W...STA $03.]...;.K.... LDA
$03.U...BMI ..{...;...(.JMP $C194...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL