00000000: 00 40 20 6F 72 67 20 24 38 30 30 30 0D 73 74 61 |.@ org $8000.sta|
00000010: 72 74 20 6A 73 72 20 24 66 66 62 64 20 3B 73 65 |rt jsr $ffbd ;se|
00000020: 74 6E 61 6D 0D 20 6C 64 61 20 23 32 0D 20 6C 64 |tnam. lda #2. ld|
00000030: 78 20 23 32 0D 20 6C 64 79 20 23 30 0D 20 6A 73 |x #2. ldy #0. js|
00000040: 72 20 24 66 66 62 61 20 3B 73 65 74 6C 66 73 0D |r $ffba ;setlfs.|
00000050: 20 6A 73 72 20 24 66 66 63 30 20 3B 6F 70 65 6E | jsr $ffc0 ;open|
00000060: 0D 20 6C 64 61 20 23 30 30 0D 20 6C 64 78 20 23 |. lda #00. ldx #|
00000070: 30 30 0D 20 6C 64 79 20 23 30 30 0D 75 73 65 72 |00. ldy #00.user|
00000080: 20 6A 73 72 20 24 66 66 65 34 20 3B 67 65 74 69 | jsr $ffe4 ;geti|
00000090: 6E 0D 20 63 6D 70 20 23 30 0D 20 62 65 71 20 6B |n. cmp #0. beq k|
000000A0: 65 79 62 6F 61 72 64 0D 20 6A 73 72 20 24 66 66 |eyboard. jsr $ff|
000000B0: 64 32 0D 20 6A 6D 70 20 6B 65 79 62 6F 61 72 64 |d2. jmp keyboard|
000000C0: 0D 6B 65 79 62 6F 61 72 64 20 6A 73 72 20 24 66 |.keyboard jsr $f|
000000D0: 66 65 34 20 3B 73 63 6E 6B 65 79 0D 20 63 70 78 |fe4 ;scnkey. cpx|
000000E0: 20 23 30 0D 20 62 65 71 20 75 73 65 72 0D 20 6A | #0. beq user. j|
000000F0: 73 72 20 24 66 66 64 32 0D 20 6A 6D 70 20 75 73 |sr $ffd2. jmp us|
00000100: 65 72 0D |er. |
.@ ORG $8000.START JSR $FFBD ;SETNAM. LD
A #2. LDX #2. LDY #0. JSR $FFBA ;SETLFS.
JSR $FFC0 ;OPEN. LDA #00. LDX #00. LDY
#00.USER JSR $FFE4 ;GETIN. CMP #0. BEQ K
EYBOARD. JSR $FFD2. JMP KEYBOARD.KEYBOAR
D JSR $FFE4 ;SCNKEY. CPX #0. BEQ USER. J
SR $FFD2. JMP USER.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL