the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More cbm510 changes to make file I/O and kernal access work

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@2846 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2003-12-27 16:11:14 +00:00
parent 40a48c59b8
commit dada43f570
27 changed files with 670 additions and 642 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
libsrc/cbm510/cgetc.s
View File

@@ -9,13 +9,14 @@
.import cursor
.include "cbm510.inc"
.include "extzp.inc"
; ------------------------------------------------------------------------
.proc _cgetc
lda KeyIndex ; Characters waiting?
lda keyidx ; Characters waiting?
bne L3 ; Jump if so
; Switch on the cursor if needed
@@ -24,7 +25,7 @@
pha
lda cursor
jsr setcursor
L1: lda KeyIndex
L1: lda keyidx
beq L1
ldx #0
pla
@@ -36,14 +37,14 @@ L2: txa
; Read the character from the keyboard buffer
L3: ldx #$00 ; Get index
ldy KeyBuf ; Get first character in the buffer
ldy keybuf ; Get first character in the buffer
sei
L4: lda KeyBuf+1,x ; Move up the remaining chars
sta KeyBuf,x
L4: lda keybuf+1,x ; Move up the remaining chars
sta keybuf,x
inx
cpx KeyIndex
cpx keyidx
bne L4
dec KeyIndex
dec keyidx
cli
ldx #$00 ; High byte
@@ -61,7 +62,7 @@ L4: lda KeyBuf+1,x ; Move up the remaining chars
tax ; On or off?
bne @L9 ; Go set it on
lda CURS_FLAG ; Is the cursor currently off?
bne @L8 ; Jump if yes
bne @L8 ; Jump if yes
lda #1
sta CURS_FLAG ; Mark it as off
lda CURS_STATE ; Cursor currently displayed?
@@ -148,3 +149,4 @@ curend: rts
.endproc