00000000: 01 04 0F 04 64 00 8F 20 32 37 4D 2E 50 41 4C 00 |....d.. 27M.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 37 4D 2E 42 2C 50 2C 57 22 00 |,"@0:27M.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 38 20 3B 20 |.... LDA #$08 ; |
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 A5 | $02F9,X.~...;..|
00000380: 07 BC 02 49 4E 43 20 24 30 32 46 39 2C 58 20 20 |...INC $02F9,X |
00000390: 20 20 20 3B 20 49 4E 43 8F 45 4E 54 20 43 48 45 | ; INC.ENT CHE|
000003A0: 43 4B 53 55 4D 00 AB 07 C6 02 3B 00 B9 07 D0 02 |CKSUM.....;.....|
000003B0: 49 4E 43 20 24 30 36 32 38 00 C7 07 DA 02 4C 44 |INC $0628.....LD|
000003C0: 41 20 24 30 36 32 38 00 D3 07 E4 02 43 4D 50 20 |A $0628.....CMP |
000003D0: 24 34 33 00 DD 07 EE 02 42 4E 45 20 D0 00 E3 07 |$43.....BNE ....|
000003E0: F8 02 3B 00 EB 07 02 03 54 58 41 00 F3 07 0C 03 |..;.....TXA.....|
000003F0: 50 48 41 00 F9 07 16 03 3B 00 0B 08 20 03 3B AC |PHA.....;... .;.|
00000400: 20 43 52 45 41 54 45 20 83 20 2A 00 11 08 2A 03 | CREATE . *...*.|
00000410: 3B 00 32 08 34 03 4C 44 41 20 23 24 34 42 20 20 |;.2.4.LDA #$4B |
00000420: 20 20 20 20 20 20 20 3B 20 31 35 34 31 20 81 4D | ; 1541 .M|
00000430: 41 54 00 40 08 3E 03 53 54 41 20 24 30 35 30 30 |AT.@.>.STA $0500|
00000440: 00 61 08 48 03 4C 44 58 20 23 24 30 31 20 20 20 |.a.H.LDX #$01 |
00000450: 20 20 20 20 20 20 3B 20 31 35 34 31 20 81 4D 41 | ; 1541 .MA|
00000460: 54 00 69 08 52 03 54 58 41 00 7B 08 5C 03 83 20 |T.i.R.TXA.{.\.. |
00000470: 53 54 41 20 24 30 35 30 30 2C 58 00 83 08 66 03 |STA $0500,X...f.|
00000480: 49 4E 58 00 8D 08 70 03 42 4E 45 20 83 00 93 08 |INX...p.BNE ....|
00000490: 7A 03 3B 00 A9 08 84 03 3B AC 20 43 91 56 45 52 |z.;.....;. C.VER|
000004A0: 54 20 A4 20 47 43 52 20 AC 00 AF 08 8E 03 3B 00 |T . GCR ......;.|
000004B0: BC 08 98 03 4C 44 41 20 23 24 30 30 00 C8 08 A2 |....LDA #$00....|
000004C0: 03 53 54 41 20 24 33 30 00 D5 08 AC 03 4C 44 41 |.STA $30.....LDA|
000004D0: 20 23 24 30 33 00 E1 08 B6 03 53 54 41 20 24 33 | #$03.....STA $3|
000004E0: 31 00 EF 08 C0 03 4A 53 52 20 24 46 45 33 30 00 |1.....JSR $FE30.|
000004F0: F7 08 CA 03 50 4C 41 00 FF 08 D4 03 54 41 59 00 |....PLA.....TAY.|
00000500: 07 09 DE 03 44 45 59 00 15 09 E8 03 4A 53 52 20 |....DEY.....JSR |
00000510: 24 46 44 45 35 00 23 09 F2 03 4A 53 52 20 24 46 |$FDE5.#...JSR $F|
00000520: 44 46 35 00 30 09 FC 03 4C 44 41 20 23 24 30 35 |DF5.0...LDA #$05|
00000530: 00 3C 09 06 04 53 54 41 20 24 33 31 00 4A 09 10 |.<...STA $31.J..|
00000540: 04 4A 53 52 20 24 46 35 45 39 00 56 09 1A 04 53 |.JSR $F5E9.V...S|
00000550: 54 41 20 24 33 41 00 64 09 24 04 4A 53 52 20 24 |TA $3A.d.$.JSR $|
00000560: 46 37 38 46 00 6A 09 2E 04 3B 00 83 09 38 04 3B |F78F.j...;...8.;|
00000570: AC 20 4A 55 4D 50 20 49 4E 53 54 52 55 43 54 49 |. JUMP INSTRUCTI|
00000580: 91 20 AC 00 89 09 42 04 3B 00 96 09 4C 04 4C 44 |. ....B.;...L.LD|
00000590: 41 20 23 24 32 33 00 A2 09 56 04 53 54 41 20 24 |A #$23...V.STA $|
000005A0: 35 31 00 A8 09 60 04 3B 00 B5 09 6A 04 4C 44 41 |51...`.;...j.LDA|
000005B0: 20 23 24 41 39 00 C3 09 74 04 53 54 41 20 24 30 | #$A9...t.STA $0|
000005C0: 36 30 30 00 D0 09 7E 04 4C 44 41 20 23 24 30 35 |600...~.LDA #$05|
000005D0: 00 DE 09 88 04 53 54 41 20 24 30 36 30 31 00 EB |.....STA $0601..|
000005E0: 09 92 04 4C 44 41 20 23 24 38 35 00 F9 09 9C 04 |...LDA #$85.....|
000005F0: 53 54 41 20 24 30 36 30 32 00 06 0A A6 04 4C 44 |STA $0602.....LD|
00000600: 41 20 23 24 33 31 00 14 0A B0 04 53 54 41 20 24 |A #$31.....STA $|
00000610: 30 36 30 33 00 21 0A BA 04 4C 44 41 20 23 24 34 |0603.!...LDA #$4|
00000620: 43 00 2F 0A C4 04 53 54 41 20 24 30 36 30 34 00 |C./...STA $0604.|
00000630: 3C 0A CE 04 4C 44 41 20 23 24 41 41 00 4A 0A D8 |<...LDA #$AA.J..|
00000640: 04 53 54 41 20 24 30 36 30 35 00 57 0A E2 04 4C |.STA $0605.W...L|
00000650: 44 41 20 23 24 46 43 00 65 0A EC 04 53 54 41 20 |DA #$FC.e...STA |
00000660: 24 30 36 30 36 00 6B 0A F6 04 3B 00 78 0A 00 05 |$0606.k...;.x...|
00000670: 4C 44 41 20 23 24 45 30 00 84 0A 0A 05 53 54 41 |LDA #$E0.....STA|
00000680: 20 24 30 33 00 8A 0A 14 05 3B 00 98 0A 1E 05 92 | $03.....;......|
00000690: 20 4C 44 41 20 24 30 33 00 A2 0A 28 05 42 4D 49 | LDA $03...(.BMI|
000006A0: 20 92 00 A8 0A 32 05 3B 00 B6 0A 3C 05 4A 4D 50 | ....2.;...<.JMP|
000006B0: 20 24 43 31 39 34 00 00 00 | $C194... |
....D.. 27M.PAL...N.../.X..2,8,2,"@0:27M
.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
#$08 ; 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 $02F9,X ; INC
.ENT CHECKSUM...F.;...P.INC $0628.G.Z.LD
A $0628.S...CMP $43.....BNE P.....;.....
TXA.....PHA.....;... .;. CREATE . *...*.
;.2.4.LDA #$4B ; 1541 .MAT.@.>.S
TA $0500.A.H.LDX #$01 ; 1541 .MA
T.I.R.TXA.{.\.. STA $0500,X...F.INX...P.
BNE ....Z.;.....;. C.VERT . GCR ......;.
....LDA #$00.H...STA $30.U...LDA #$03...
..STA $31.....JSR $FE30...J.PLA...T.TAY.
....DEY.....JSR $FDE5.#...JSR $FDF5.0...
LDA #$05.<...STA $31.J...JSR $F5E9.V...S
TA $3A.D.$.JSR $F78F.J...;...8.;. JUMP I
NSTRUCTI. ....B.;...L.LDA #$23...V.STA $
51...`.;...J.LDA #$A9.C.T.STA $0600.P.~.
LDA #$05.....STA $0601.....LDA #$85.....
STA $0602.....LDA #$31.....STA $0603.!..
.LDA #$4C./.D.STA $0604.<.N.LDA #$AA.J.X
.STA $0605.W...LDA #$FC.E...STA $0606.K.
..;.X...LDA #$E0.....STA $03.....;......
LDA $03...(.BMI ....2.;...<.JMP $C194..
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL