00000000: 0D 0D 0D 0D 49 4E 54 4F 20 20 20 20 20 3D 20 24 |....INTO = $|
00000010: 31 30 30 30 20 20 20 20 3B 4C 4F 41 44 20 49 4E |1000 ;LOAD IN|
00000020: 54 4F 0D 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D |TO... *=|
00000030: 20 24 34 30 30 30 0D 0D 0D 20 20 20 20 20 20 20 | $4000... |
00000040: 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 | LDA #0. |
00000050: 20 20 53 54 41 20 24 44 30 32 30 0D 20 20 20 20 | STA $D020. |
00000060: 20 20 20 20 20 53 54 41 20 24 44 30 32 31 0D 20 | STA $D021. |
00000070: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 38 | LDA #$08|
00000080: 0D 20 20 20 20 20 20 20 20 20 54 41 58 0D 20 20 |. TAX. |
00000090: 20 20 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 | TAY. |
000000A0: 20 20 20 20 4A 53 52 20 24 46 46 42 41 0D 20 20 | JSR $FFBA. |
000000B0: 20 20 20 20 20 20 20 4C 44 41 20 23 4E 41 4D 45 | LDA #NAME|
000000C0: 31 2D 4E 41 4D 45 0D 20 20 20 20 20 20 20 20 20 |1-NAME. |
000000D0: 4C 44 59 20 23 3E 4E 41 4D 45 0D 20 20 20 20 20 |LDY #>NAME. |
000000E0: 20 20 20 20 4C 44 58 20 23 3C 4E 41 4D 45 0D 20 | LDX #<NAME. |
000000F0: 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 42 | JSR $FFB|
00000100: 44 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |D. LDA #|
00000110: 24 36 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 |$60. STA|
00000120: 20 24 42 39 0D 20 20 20 20 20 20 20 20 20 4A 53 | $B9. JS|
00000130: 52 20 24 46 33 44 35 0D 20 20 20 20 20 20 20 20 |R $F3D5. |
00000140: 20 4C 44 41 20 24 42 41 0D 20 20 20 20 20 20 20 | LDA $BA. |
00000150: 20 20 4A 53 52 20 24 45 44 30 39 0D 20 20 20 20 | JSR $ED09. |
00000160: 20 20 20 20 20 4C 44 41 20 24 42 39 0D 20 20 20 | LDA $B9. |
00000170: 20 20 20 20 20 20 4A 53 52 20 24 45 44 43 37 0D | JSR $EDC7.|
00000180: 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 45 45 | JSR $EE|
00000190: 31 33 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |13. STA |
000001A0: 24 41 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |$AE. LDA|
000001B0: 20 24 39 30 0D 20 20 20 20 20 20 20 20 20 4C 53 | $90. LS|
000001C0: 52 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 52 |R A. LSR|
000001D0: 20 41 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 | A. BCS |
000001E0: 46 45 4A 4C 0D 20 20 20 20 20 20 20 20 20 4A 53 |FEJL. JS|
000001F0: 52 20 24 45 45 31 33 0D 20 20 20 20 20 20 20 20 |R $EE13. |
00000200: 20 53 54 41 20 24 41 46 0D 20 20 20 20 20 20 20 | STA $AF. |
00000210: 20 20 4A 53 52 20 24 46 36 33 33 0D 20 20 20 20 | JSR $F633. |
00000220: 20 20 20 20 20 42 43 53 20 56 49 44 45 52 45 0D | BCS VIDERE.|
00000230: 46 45 4A 4C 20 20 20 20 20 4A 4D 50 20 24 46 43 |FEJL JMP $FC|
00000240: 45 32 0D 56 49 44 45 52 45 20 20 20 4C 44 41 20 |E2.VIDERE LDA |
00000250: 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#0. STA |
00000260: 24 44 30 31 31 0D 20 20 20 20 20 20 20 20 20 4C |$D011. L|
00000270: 44 41 20 24 41 45 0D 20 20 20 20 20 20 20 20 20 |DA $AE. |
00000280: 53 54 41 20 24 46 41 0D 20 20 20 20 20 20 20 20 |STA $FA. |
00000290: 20 4C 44 41 20 24 41 46 0D 20 20 20 20 20 20 20 | LDA $AF. |
000002A0: 20 20 53 54 41 20 24 46 42 0D 20 20 20 20 20 20 | STA $FB. |
000002B0: 20 20 20 4C 44 41 20 23 3E 49 4E 54 4F 0D 20 20 | LDA #>INTO. |
000002C0: 20 20 20 20 20 20 20 53 54 41 20 24 46 44 0D 20 | STA $FD. |
000002D0: 20 20 20 20 20 20 20 20 53 54 41 20 24 46 46 0D | STA $FF.|
000002E0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C 49 | LDA #<I|
000002F0: 4E 54 4F 0D 20 20 20 20 20 20 20 20 20 53 54 41 |NTO. STA|
00000300: 20 24 46 43 0D 20 20 20 20 20 20 20 20 20 53 54 | $FC. ST|
00000310: 41 20 24 46 45 0D 20 20 20 20 20 20 20 20 20 4C |A $FE. L|
00000320: 44 41 20 23 24 30 38 0D 20 20 20 20 20 20 20 20 |DA #$08. |
00000330: 20 54 41 58 0D 20 20 20 20 20 20 20 20 20 4C 44 | TAX. LD|
00000340: 59 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 |Y #$00. |
00000350: 4A 53 52 20 24 46 46 42 41 0D 20 20 20 20 20 20 |JSR $FFBA. |
00000360: 20 20 20 4C 44 58 20 23 3C 49 4E 54 4F 0D 20 20 | LDX #<INTO. |
00000370: 20 20 20 20 20 20 20 4C 44 59 20 23 3E 49 4E 54 | LDY #>INT|
00000380: 4F 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 24 |O. STX $|
00000390: 43 33 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 |C3. STY |
000003A0: 24 43 34 0D 20 20 20 20 20 20 20 20 20 53 54 58 |$C4. STX|
000003B0: 20 24 41 45 0D 20 20 20 20 20 20 20 20 20 53 54 | $AE. ST|
000003C0: 59 20 24 41 46 0D 20 20 20 20 20 20 20 20 20 4C |Y $AF. L|
000003D0: 44 41 20 24 44 45 34 44 0D 20 20 20 20 20 20 20 |DA $DE4D. |
000003E0: 20 20 43 4D 50 20 23 24 38 39 0D 20 20 20 20 20 | CMP #$89. |
000003F0: 20 20 20 20 42 45 51 20 58 45 52 4F 58 0D 20 20 | BEQ XEROX. |
00000400: 20 20 20 20 20 20 20 4C 44 41 20 23 24 36 30 0D | LDA #$60.|
00000410: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 42 39 | STA $B9|
00000420: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |. JSR $F|
00000430: 33 44 35 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |3D5. LDA|
00000440: 20 24 42 41 0D 20 20 20 20 20 20 20 20 20 4A 53 | $BA. JS|
00000450: 52 20 24 45 44 30 39 0D 20 20 20 20 20 20 20 20 |R $ED09. |
00000460: 20 4C 44 41 20 24 42 39 0D 20 20 20 20 20 20 20 | LDA $B9. |
00000470: 20 20 4A 53 52 20 24 45 44 43 37 0D 20 20 20 20 | JSR $EDC7. |
00000480: 20 20 20 20 20 4A 53 52 20 24 45 45 31 33 0D 20 | JSR $EE13. |
00000490: 20 20 20 20 20 20 20 20 4A 53 52 20 24 45 45 31 | JSR $EE1|
000004A0: 33 0D 42 4C 49 4E 4B 20 20 20 20 4A 53 52 20 24 |3.BLINK JSR $|
000004B0: 45 45 31 33 0D 20 20 20 20 20 20 20 20 20 53 54 |EE13. ST|
000004C0: 41 20 24 44 34 31 38 0D 20 20 20 20 20 20 20 20 |A $D418. |
000004D0: 20 50 48 41 0D 20 20 20 20 20 20 20 20 20 49 4E | PHA. IN|
000004E0: 43 20 24 44 30 32 30 0D 20 20 20 20 20 20 20 20 |C $D020. |
000004F0: 20 44 45 43 20 24 44 30 32 30 0D 20 20 20 20 20 | DEC $D020. |
00000500: 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 20 | PLA. |
00000510: 20 4C 44 59 20 23 24 30 30 0D 20 20 20 20 20 20 | LDY #$00. |
00000520: 20 20 20 53 45 49 0D 20 20 20 20 20 20 20 20 20 | SEI. |
00000530: 53 54 59 20 24 30 31 0D 20 20 20 20 20 20 20 20 |STY $01. |
00000540: 20 53 54 41 20 28 24 41 45 29 2C 59 0D 20 20 20 | STA ($AE),Y. |
00000550: 20 20 20 20 20 20 4C 44 58 20 23 24 33 37 0D 20 | LDX #$37. |
00000560: 20 20 20 20 20 20 20 20 53 54 58 20 24 30 31 0D | STX $01.|
00000570: 20 20 20 20 20 20 20 20 20 43 4C 49 0D 20 20 20 | CLI. |
00000580: 20 20 20 20 20 20 49 4E 43 20 24 41 45 0D 20 20 | INC $AE. |
00000590: 20 20 20 20 20 20 20 42 4E 45 20 46 49 52 45 0D | BNE FIRE.|
000005A0: 20 20 20 20 20 20 20 20 20 49 4E 43 20 24 41 46 | INC $AF|
000005B0: 0D 46 49 52 45 20 20 20 20 20 42 49 54 20 24 39 |.FIRE BIT $9|
000005C0: 30 0D 20 20 20 20 20 20 20 20 20 42 56 43 20 42 |0. BVC B|
000005D0: 4C 49 4E 4B 0D 20 20 20 20 20 20 20 20 20 4A 53 |LINK. JS|
000005E0: 52 20 24 45 44 45 46 0D 20 20 20 20 20 20 20 20 |R $EDEF. |
000005F0: 20 4A 53 52 20 24 46 36 34 32 0D 20 20 20 20 20 | JSR $F642. |
00000600: 20 20 20 20 42 43 43 20 41 43 43 45 53 53 0D 58 | BCC ACCESS.X|
00000610: 45 52 4F 58 20 20 20 20 4C 44 41 20 23 24 30 30 |EROX LDA #$00|
00000620: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 44 |. JSR $D|
00000630: 45 45 32 0D 41 43 43 45 53 53 20 20 20 4C 44 41 |EE2.ACCESS LDA|
00000640: 20 23 24 39 34 0D 20 20 20 20 20 20 20 20 20 53 | #$94. S|
00000650: 54 41 20 24 41 37 0D 20 20 20 20 20 20 20 20 20 |TA $A7. |
00000660: 4C 44 41 20 23 24 31 42 0D 20 20 20 20 20 20 20 |LDA #$1B. |
00000670: 20 20 53 54 41 20 24 44 30 31 31 0D 20 20 20 20 | STA $D011. |
00000680: 20 20 20 20 20 52 54 53 0D 0D 0D 4E 41 4D 45 20 | RTS...NAME |
00000690: 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 | = *. |
000006A0: 20 2E 54 45 58 54 20 22 54 55 52 42 4F 2A 22 0D | .TEXT "TURBO*".|
000006B0: 4E 41 4D 45 31 0D 0D |NAME1.. |
....INTO = $1000 ;LOAD INTO...
*= $4000... LDA #0.
STA $D020. STA $D021.
LDA #$08. TAX. TAY.
JSR $FFBA. LDA #NAME1-NAME.
LDY #>NAME. LDX #<NAME.
JSR $FFBD. LDA #$60.
STA $B9. JSR $F3D5.
LDA $BA. JSR $ED09. LDA
$B9. JSR $EDC7. JSR $EE
13. STA $AE. LDA $90.
LSR A. LSR A. BCS
FEJL. JSR $EE13. STA $AF
. JSR $F633. BCS VIDERE.
FEJL JMP $FCE2.VIDERE LDA #0.
STA $D011. LDA $AE.
STA $FA. LDA $AF. STA $F
B. LDA #>INTO. STA $FD.
STA $FF. LDA #<INTO.
STA $FC. STA $FE. L
DA #$08. TAX. LDY #$00.
JSR $FFBA. LDX #<INTO.
LDY #>INTO. STX $C3.
STY $C4. STX $AE. ST
Y $AF. LDA $DE4D. CMP #$
89. BEQ XEROX. LDA #$60.
STA $B9. JSR $F3D5.
LDA $BA. JSR $ED09.
LDA $B9. JSR $EDC7. JSR
$EE13. JSR $EE13.BLINK JSR $
EE13. STA $D418. PHA.
INC $D020. DEC $D020.
PLA. LDY #$00. SEI.
STY $01. STA ($AE),Y.
LDX #$37. STX $01.
CLI. INC $AE. BNE FIRE.
INC $AF.FIRE BIT $90.
BVC BLINK. JSR $EDEF.
JSR $F642. BCC ACCESS.XEROX
LDA #$00. JSR $DEE2.ACCESS LDA
#$94. STA $A7. LDA #$1B
. STA $D011. RTS...NAME
= *. .TEXT "TURBO*".NAME1..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL