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