00000000: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 4E 45 57 50 52 4F |---------.NEWPRO|
00000030: 47 20 20 3D 20 24 32 38 30 30 0D 43 4F 44 45 41 |G = $2800.CODEA|
00000040: 52 45 41 20 3D 20 24 30 33 33 43 0D 3B 2D 2D 2D |REA = $033C.;---|
00000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000070: 2D 2D 2D 2D 0D 20 20 20 20 20 20 20 20 20 2A 3D |----. *=|
00000080: 20 24 30 46 30 30 0D 20 20 20 20 20 20 20 20 20 | $0F00. |
00000090: 53 45 49 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |SEI. JSR|
000000A0: 20 24 46 46 45 34 0D 20 20 20 20 20 20 20 20 20 | $FFE4. |
000000B0: 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 20 |LDA #$00. |
000000C0: 20 20 4C 44 58 20 23 24 34 30 0D 4B 49 4C 4C 53 | LDX #$40.KILLS|
000000D0: 49 44 20 20 53 54 41 20 24 44 34 30 30 2C 58 0D |ID STA $D400,X.|
000000E0: 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 | DEX. |
000000F0: 20 20 20 20 20 20 42 4E 45 20 4B 49 4C 4C 53 49 | BNE KILLSI|
00000100: 44 0D 20 20 20 20 20 20 20 20 20 53 45 49 0D 20 |D. SEI. |
00000110: 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 35 | JSR $FF5|
00000120: 42 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 |B. JSR $|
00000130: 46 44 31 35 0D 20 20 20 20 20 20 20 20 20 4A 53 |FD15. JS|
00000140: 52 20 24 45 33 42 46 0D 20 20 20 20 20 20 20 20 |R $E3BF. |
00000150: 20 4A 53 52 20 24 46 44 41 33 0D 20 20 20 20 20 | JSR $FDA3. |
00000160: 20 20 20 20 43 4C 49 0D 20 20 20 20 20 20 20 20 | CLI. |
00000170: 20 4C 44 58 20 23 24 34 30 0D 54 52 41 4E 4C 4F | LDX #$40.TRANLO|
00000180: 4F 50 20 4C 44 41 20 4C 49 4E 4B 43 4F 44 45 2C |OP LDA LINKCODE,|
00000190: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 43 |X. STA C|
000001A0: 4F 44 45 41 52 45 41 2C 58 0D 20 20 20 20 20 20 |ODEAREA,X. |
000001B0: 20 20 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 | DEX. |
000001C0: 42 50 4C 20 54 52 41 4E 4C 4F 4F 50 0D 20 20 20 |BPL TRANLOOP. |
000001D0: 20 20 20 20 20 20 4C 44 41 20 24 32 45 0D 20 20 | LDA $2E. |
000001E0: 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 | SEC. |
000001F0: 20 20 20 20 53 42 43 20 23 24 30 43 0D 20 20 20 | SBC #$0C. |
00000200: 20 20 20 20 20 20 53 54 41 20 24 32 45 0D 20 20 | STA $2E. |
00000210: 20 20 20 20 20 20 20 4C 44 41 20 24 32 44 0D 20 | LDA $2D. |
00000220: 20 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 | SEC. |
00000230: 20 20 20 20 20 53 42 43 20 23 24 32 39 0D 20 20 | SBC #$29. |
00000240: 20 20 20 20 20 20 20 42 43 53 20 49 30 46 33 42 | BCS I0F3B|
00000250: 0D 20 20 20 20 20 20 20 20 20 44 45 43 20 24 32 |. DEC $2|
00000260: 45 0D 49 30 46 33 42 20 20 20 20 53 54 41 20 24 |E.I0F3B STA $|
00000270: 32 44 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |2D. LDA |
00000280: 23 24 30 38 0D 20 20 20 20 20 20 20 20 20 53 54 |#$08. ST|
00000290: 41 20 24 42 41 0D 20 20 20 20 20 20 20 20 20 4A |A $BA. J|
000002A0: 4D 50 20 43 4F 44 45 41 52 45 41 0D 20 20 20 20 |MP CODEAREA. |
000002B0: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 | ;. |
000002C0: 3B 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |; --------------|
000002D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 |--------------. |
000002E0: 20 20 20 20 20 20 20 20 3B 0D 4C 49 4E 4B 43 4F | ;.LINKCO|
000002F0: 44 45 20 53 45 49 0D 20 20 20 20 20 20 20 20 20 |DE SEI. |
00000300: 4C 44 41 20 23 24 33 34 0D 20 20 20 20 20 20 20 |LDA #$34. |
00000310: 20 20 53 54 41 20 24 30 31 0D 20 20 20 20 20 20 | STA $01. |
00000320: 20 20 20 4C 44 58 20 23 24 30 30 0D 4E 45 58 54 | LDX #$00.NEXT|
00000330: 42 59 54 45 20 4C 44 41 20 4E 45 57 50 52 4F 47 |BYTE LDA NEWPROG|
00000340: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA |
00000350: 24 30 38 30 31 2C 58 0D 20 20 20 20 20 20 20 20 |$0801,X. |
00000360: 20 4C 44 59 20 23 24 33 37 0D 20 20 20 20 20 20 | LDY #$37. |
00000370: 20 20 20 53 54 59 20 24 30 31 0D 20 20 20 20 20 | STY $01. |
00000380: 20 20 20 20 42 49 54 20 24 44 34 31 38 0D 20 20 | BIT $D418. |
00000390: 20 20 20 20 20 20 20 4C 44 59 20 23 24 33 34 0D | LDY #$34.|
000003A0: 20 20 20 20 20 20 20 20 20 53 54 59 20 24 30 31 | STY $01|
000003B0: 0D 20 20 20 20 20 20 20 20 20 49 4E 58 0D 20 20 |. INX. |
000003C0: 20 20 20 20 20 20 20 42 4E 45 20 4E 45 58 54 42 | BNE NEXTB|
000003D0: 59 54 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |YTE. LDA|
000003E0: 20 24 30 33 34 35 0D 20 20 20 20 20 20 20 20 20 | $0345. |
000003F0: 43 4D 50 20 23 24 30 30 0D 20 20 20 20 20 20 20 |CMP #$00. |
00000400: 20 20 42 45 51 20 54 52 41 4E 45 58 49 54 0D 20 | BEQ TRANEXIT. |
00000410: 20 20 20 20 20 20 20 20 49 4E 43 20 24 30 33 34 | INC $034|
00000420: 35 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 24 |5. INC $|
00000430: 30 33 34 38 0D 20 20 20 20 20 20 20 20 20 4A 4D |0348. JM|
00000440: 50 20 24 30 33 34 31 0D 54 52 41 4E 45 58 49 54 |P $0341.TRANEXIT|
00000450: 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 | LDA #$00. |
00000460: 20 20 20 53 54 41 20 24 30 38 30 30 0D 20 20 20 | STA $0800. |
00000470: 20 20 20 20 20 20 53 54 41 20 24 44 34 31 38 0D | STA $D418.|
00000480: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 33 | LDA #$3|
00000490: 37 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |7. STA $|
000004A0: 30 31 0D 20 20 20 20 20 20 20 20 20 43 4C 49 0D |01. CLI.|
000004B0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 41 36 | JSR $A6|
000004C0: 35 45 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |5E. JSR |
000004D0: 24 41 36 38 45 0D 20 20 20 20 20 20 20 20 20 4A |$A68E. J|
000004E0: 4D 50 20 24 41 37 41 45 0D 3B 2D 2D 2D 2D 2D 2D |MP $A7AE.;------|
000004F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000510: 2D 0D 0D |-.. |
.;--------------------------------------
-.NEWPROG = $2800.CODEAREA = $033C.;---
------------------------------------.
*= $0F00. SEI. JSR
$FFE4. LDA #$00. LDX #$
40.KILLSID STA $D400,X. DEX.
BNE KILLSID. SEI.
JSR $FF5B. JSR $FD15. JS
R $E3BF. JSR $FDA3. CLI.
LDX #$40.TRANLOOP LDA LINKCODE,
X. STA CODEAREA,X. DEX.
BPL TRANLOOP. LDA $2E.
SEC. SBC #$0C. ST
A $2E. LDA $2D. SEC.
SBC #$29. BCS I0F3B.
DEC $2E.I0F3B STA $2D. LDA
#$08. STA $BA. JMP CODEA
REA. ;. ; --------------
--------------. ;.LINKCODE SEI.
LDA #$34. STA $01.
LDX #$00.NEXTBYTE LDA NEWPROG,X.
STA $0801,X. LDY #$37.
STY $01. BIT $D418. L
DY #$34. STY $01. INX.
BNE NEXTBYTE. LDA $0345.
CMP #$00. BEQ TRANEXIT.
INC $0345. INC $0348.
JMP $0341.TRANEXIT LDA #$00.
STA $0800. STA $D418.
LDA #$37. STA $01. CLI.
JSR $A65E. JSR $A68E.
JMP $A7AE.;----------------------
-----------------..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL