00000000: 60 0A 20 6F 72 67 20 24 63 30 30 30 0D 0D 20 73 |`. org $c000.. s|
00000010: 65 69 0D 20 6C 64 61 20 23 24 37 66 0D 20 73 74 |ei. lda #$7f. st|
00000020: 61 20 68 64 63 30 64 0D 20 6C 64 61 20 23 24 30 |a hdc0d. lda #$0|
00000030: 31 0D 20 73 74 61 20 68 64 30 31 61 0D 20 6C 64 |1. sta hd01a. ld|
00000040: 61 20 74 62 75 66 66 72 0D 20 73 74 61 20 68 64 |a tbuffr. sta hd|
00000050: 30 31 32 0D 20 6C 64 61 20 23 24 31 62 0D 20 73 |012. lda #$1b. s|
00000060: 74 61 20 68 64 30 31 31 0D 20 6C 64 61 20 23 24 |ta hd011. lda #$|
00000070: 32 32 0D 20 73 74 61 20 63 69 6E 76 0D 20 6C 64 |22. sta cinv. ld|
00000080: 61 20 23 24 63 30 0D 20 73 74 61 20 68 30 33 31 |a #$c0. sta h031|
00000090: 35 0D 20 63 6C 69 0D 20 72 74 73 0D 20 6C 64 61 |5. cli. rts. lda|
000000A0: 20 68 64 30 31 32 0D 20 63 6D 70 20 74 62 75 66 | hd012. cmp tbuf|
000000B0: 66 72 0D 20 62 6E 65 20 68 63 30 34 36 0D 20 6C |fr. bne hc046. l|
000000C0: 64 61 20 23 24 30 30 0D 20 73 74 61 20 68 64 30 |da #$00. sta hd0|
000000D0: 31 32 0D 20 6C 64 61 20 68 30 33 34 30 0D 20 73 |12. lda h0340. s|
000000E0: 74 61 20 68 64 30 31 38 0D 20 6C 64 61 20 68 30 |ta hd018. lda h0|
000000F0: 33 33 65 0D 20 73 74 61 20 68 64 30 32 31 0D 20 |33e. sta hd021. |
00000100: 6C 64 61 20 23 24 30 31 0D 20 73 74 61 20 68 64 |lda #$01. sta hd|
00000110: 30 31 39 0D 20 70 6C 61 0D 20 74 61 79 0D 20 70 |019. pla. tay. p|
00000120: 6C 61 0D 20 74 61 78 0D 20 70 6C 61 0D 20 72 74 |la. tax. pla. rt|
00000130: 69 0D 68 63 30 34 36 20 6C 64 61 20 74 62 75 66 |i.hc046 lda tbuf|
00000140: 66 72 0D 20 73 74 61 20 68 64 30 31 32 0D 20 6C |fr. sta hd012. l|
00000150: 64 61 20 68 30 33 33 64 0D 20 73 74 61 20 68 64 |da h033d. sta hd|
00000160: 30 32 31 0D 20 6C 64 61 20 68 30 33 33 66 0D 20 |021. lda h033f. |
00000170: 73 74 61 20 68 64 30 31 38 0D 20 6C 64 61 20 23 |sta hd018. lda #|
00000180: 24 30 31 0D 20 73 74 61 20 68 64 30 31 39 0D 20 |$01. sta hd019. |
00000190: 6A 6D 70 20 68 65 61 33 31 0D 20 6A 73 72 20 68 |jmp hea31. jsr h|
000001A0: 37 32 36 66 0D 20 68 65 78 20 36 37 0D 20 6A 73 |726f. hex 67. js|
000001B0: 72 20 68 36 33 32 34 0D 20 62 6D 69 20 68 63 30 |r h6324. bmi hc0|
000001C0: 39 39 0D 20 62 6D 69 20 68 63 30 37 38 0D 20 6F |99. bmi hc078. o|
000001D0: 72 61 20 68 36 33 65 38 0D 20 62 6D 69 20 68 63 |ra h63e8. bmi hc|
000001E0: 30 61 30 0D 20 62 6D 69 20 68 63 30 39 32 0D 20 |0a0. bmi hc092. |
000001F0: 68 65 78 20 37 33 0D 20 61 64 63 20 24 36 39 0D |hex 73. adc $69.|
00000200: 20 6F 72 61 20 68 36 33 65 38 0D 68 63 30 37 38 | ora h63e8.hc078|
00000210: 20 62 6D 69 20 68 63 30 61 61 0D 20 61 6E 64 20 | bmi hc0aa. and |
00000220: 28 24 32 30 29 2C 79 0D 20 6A 6D 70 20 28 68 36 |($20),y. jmp (h6|
00000230: 31 36 34 29 0D 20 6A 73 72 20 68 32 34 32 33 0D |164). jsr h2423.|
00000240: 20 68 65 78 20 33 37 0D 20 72 6F 72 20 24 30 64 | hex 37. ror $0d|
00000250: 0D 20 69 6E 78 0D 20 68 65 78 20 36 33 0D 0D 63 |. inx. hex 63..c|
00000260: 69 6E 76 20 3D 20 24 30 33 31 34 0D 68 30 33 31 |inv = $0314.h031|
00000270: 35 20 3D 20 24 30 33 31 35 0D 74 62 75 66 66 72 |5 = $0315.tbuffr|
00000280: 20 3D 20 24 30 33 33 63 0D 68 30 33 33 64 20 3D | = $033c.h033d =|
00000290: 20 24 30 33 33 64 0D 68 30 33 33 65 20 3D 20 24 | $033d.h033e = $|
000002A0: 30 33 33 65 0D 68 30 33 33 66 20 3D 20 24 30 33 |033e.h033f = $03|
000002B0: 33 66 0D 68 30 33 34 30 20 3D 20 24 30 33 34 30 |3f.h0340 = $0340|
000002C0: 0D 68 32 34 32 33 20 3D 20 24 32 34 32 33 0D 68 |.h2423 = $2423.h|
000002D0: 36 31 36 34 20 3D 20 24 36 31 36 34 0D 68 36 33 |6164 = $6164.h63|
000002E0: 32 34 20 3D 20 24 36 33 32 34 0D 68 36 33 65 38 |24 = $6324.h63e8|
000002F0: 20 3D 20 24 36 33 65 38 0D 68 37 32 36 66 20 3D | = $63e8.h726f =|
00000300: 20 24 37 32 36 66 0D 68 63 30 39 32 20 3D 20 24 | $726f.hc092 = $|
00000310: 63 30 39 32 0D 68 63 30 39 39 20 3D 20 24 63 30 |c092.hc099 = $c0|
00000320: 39 39 0D 68 63 30 61 30 20 3D 20 24 63 30 61 30 |99.hc0a0 = $c0a0|
00000330: 0D 68 63 30 61 61 20 3D 20 24 63 30 61 61 0D 68 |.hc0aa = $c0aa.h|
00000340: 64 30 31 31 20 3D 20 24 64 30 31 31 0D 68 64 30 |d011 = $d011.hd0|
00000350: 31 32 20 3D 20 24 64 30 31 32 0D 68 64 30 31 38 |12 = $d012.hd018|
00000360: 20 3D 20 24 64 30 31 38 0D 68 64 30 31 39 20 3D | = $d018.hd019 =|
00000370: 20 24 64 30 31 39 0D 68 64 30 31 61 20 3D 20 24 | $d019.hd01a = $|
00000380: 64 30 31 61 0D 68 64 30 32 31 20 3D 20 24 64 30 |d01a.hd021 = $d0|
00000390: 32 31 0D 68 64 63 30 64 20 3D 20 24 64 63 30 64 |21.hdc0d = $dc0d|
000003A0: 0D 68 65 61 33 31 20 3D 20 24 65 61 33 31 0D |.hea31 = $ea31. |
`. ORG $C000.. SEI. LDA #$7F. STA HDC0D.
LDA #$01. STA HD01A. LDA TBUFFR. STA HD
012. LDA #$1B. STA HD011. LDA #$22. STA
CINV. LDA #$C0. STA H0315. CLI. RTS. LDA
HD012. CMP TBUFFR. BNE HC046. LDA #$00.
STA HD012. LDA H0340. STA HD018. LDA H0
33E. STA HD021. LDA #$01. STA HD019. PLA
. TAY. PLA. TAX. PLA. RTI.HC046 LDA TBUF
FR. STA HD012. LDA H033D. STA HD021. LDA
H033F. STA HD018. LDA #$01. STA HD019.
JMP HEA31. JSR H726F. HEX 67. JSR H6324.
BMI HC099. BMI HC078. ORA H63E8. BMI HC
0A0. BMI HC092. HEX 73. ADC $69. ORA H63
E8.HC078 BMI HC0AA. AND ($20),Y. JMP (H6
164). JSR H2423. HEX 37. ROR $0D. INX. H
EX 63..CINV = $0314.H0315 = $0315.TBUFFR
= $033C.H033D = $033D.H033E = $033E.H03
3F = $033F.H0340 = $0340.H2423 = $2423.H
6164 = $6164.H6324 = $6324.H63E8 = $63E8
.H726F = $726F.HC092 = $C092.HC099 = $C0
99.HC0A0 = $C0A0.HC0AA = $C0AA.HD011 = $
D011.HD012 = $D012.HD018 = $D018.HD019 =
$D019.HD01A = $D01A.HD021 = $D021.HDC0D
= $DC0D.HEA31 = $EA31.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL