6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-04-05 13:37:17 +00:00
Code Issues Projects Releases Wiki Activity

Added the hack for write() to make printf work

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@907 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2001-09-13 16:01:32 +00:00
parent 3d85621819
commit b0687bbbf5
3 changed files with 53 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
libsrc/c128/Makefile
View File

@ -21,7 +21,8 @@ OBJS = _scrsize.o \
cputc.o \
kbhit.o \
mouse.o \
readjoy.o
readjoy.o \
write.o
all: $(OBJS)

12
libsrc/c128/mouse.s
View File

@ -13,7 +13,7 @@
.condes MouseIRQ, 2
.import _readjoy
.import popa, popax, addysp1
.import popax, addysp1
.importzp ptr1, sp, sreg
.include "c128.inc"
@ -36,14 +36,10 @@ XCORR = SPRITE_WIDTH
; --------------------------------------------------------------------------
;
; unsigned char __fastcall__ mouse_init (unsigned char port,
; unsigned char type);
; unsigned char __fastcall__ mouse_init (unsigned char type);
;
.proc _mouse_init
jsr popa ; Ignore type and port
lda Initialized ; Already initialized?
bne AlreadyInitialized ; Jump if yes
@ -155,7 +151,7 @@ AlreadyInitialized:
lda VIC_SPR_ENA ; Get sprite enable register
ora #$01 ; Enable sprite #0
sta VIC_SPR_ENA ; Write back
cli ; Enable interrupts
cli ; Enable interrupts
@L1: rts
@ -320,7 +316,7 @@ AlreadyInitialized:
; --------------------------------------------------------------------------
;
; Mouse interrupt handler
;
;
IRQDone:rts

47
libsrc/c128/write.s Normal file
View File

@ -0,0 +1,47 @@
;
; Ullrich von Bassewitz, 30.05.1998
;
; int write (int fd, const void* buf, int count);
;
; THIS IS A HACK!
;
.export _write
.import popax
.importzp ptr1, ptr2, ptr3
.include "../cbm/cbm.inc"
_write: jsr popax ; get count
sta ptr2
stx ptr2+1 ; save it for later
sta ptr3
stx ptr3+1 ; save for function result
jsr popax ; get buf
sta ptr1
stx ptr1+1
jsr popax ; get fd and discard it
L1: lda ptr2
ora ptr2+1 ; count zero?
beq L9
ldy #0
lda (ptr1),y
jsr BSOUT
inc ptr1
bne L2
inc ptr1+1
L2: lda ptr2
bne L3
dec ptr2
dec ptr2+1
jmp L1
L3: dec ptr2
jmp L1
; No error, return count
L9: lda ptr3
ldx ptr3+1
rts