6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-05 20:31:53 +00:00
Code Issues Projects Releases Wiki Activity

Now getchar works

Browse Source
This commit is contained in:
jede 2020-10-23 23:47:30 +02:00 committed by Oliver Schmidt
parent 5f145542b0
commit 1fc16cb9ed
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
libsrc/telestrat/read.s
View File

@ -8,21 +8,33 @@
.include "zeropage.inc" .include "zeropage.inc"
.include "telestrat.inc" .include "telestrat.inc"
.include "fcntl.inc"
;int read (int fd, void* buf, unsigned count); ;int read (int fd, void* buf, unsigned count);
.proc _read .proc _read
sta ptr1 ; count sta ptr1 ; count
stx ptr1+1 ; count stx ptr1+1 ; count
jsr popax ; get buf jsr popax ; get buf
sta PTR_READ_DEST sta PTR_READ_DEST
stx PTR_READ_DEST+1 stx PTR_READ_DEST+1
sta ptr2 ; in order to calculate nb of bytes read sta ptr2 ; in order to calculate nb of bytes read
stx ptr2+1 ; stx ptr2+1 ;
; jsr popax ; fp pointer don't care in this version jsr popax ; fp pointer don't care in this version
cpx #$00
bne @is_not_stdin
cmp #STDIN_FILENO
bne @is_not_stdin
; stdin
@L1:
BRK_TELEMON XRD0 ; waits until key is pressed
bcs @L1
rts
@is_not_stdin:
lda ptr1 ; lda ptr1 ;
ldy ptr1+1 ; ldy ptr1+1 ;
BRK_TELEMON XFREAD ; calls telemon30 routine BRK_TELEMON XFREAD ; calls telemon30 routine