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

more cleanup, joystick works again

Browse Source
This commit is contained in:
mrdudz
2015-07-12 14:27:24 +02:00
parent 21999b081f
commit 891cb97b2f
27 changed files with 822 additions and 919 deletions
Download Patch File Download Diff File Expand all files Collapse all files

126
libsrc/pce/cputc.s
View File

@@ -1,81 +1,59 @@
;
; Ullrich von Bassewitz, 06.08.1998
;
; void cputcxy (unsigned char x, unsigned char y, char c);
; void cputc (char c);
;
.export _cputcxy, _cputc, cputdirect, putchar
.export newline, plot
.import popa, _gotoxy
.import PLOT
.importzp tmp3,tmp4
.include "pcengine.inc"
.export _cputcxy, _cputc, cputdirect, putchar
.export newline, plot
.import popa, _gotoxy
.import PLOT
.importzp tmp3,tmp4
.include "pce.inc"
_cputcxy:
pha ; Save C
jsr popa ; Get Y
jsr _gotoxy ; Set cursor, drop x
pla ; Restore C
pha ; Save C
jsr popa ; Get Y
jsr _gotoxy ; Set cursor, drop x
pla ; Restore C
; Plot a character - also used as internal function
_cputc: cmp #$0d ; CR?
bne L1
lda #0
sta CURS_X
beq plot ; Recalculate pointers
_cputc: cmp #$0d ; CR?
bne L1
lda #0
sta CURS_X
beq plot ; Recalculate pointers
L1: cmp #$0a ; LF?
beq newline ; Recalculate pointers
L1: cmp #$0a ; LF?
beq newline ; Recalculate pointers
; Printable char of some sort
cputdirect:
jsr putchar ; Write the character to the screen
jsr putchar ; Write the character to the screen
; Advance cursor position
advance:
ldy CURS_X
iny
cpy #xsize
bne L3
jsr newline ; new line
ldy #0 ; + cr
L3: sty CURS_X
jmp plot
;rts
ldy CURS_X
iny
cpy #xsize
bne L3
jsr newline ; new line
ldy #0 ; + cr
L3: sty CURS_X
jmp plot
newline:
; lda #xsize
; clc
; adc SCREEN_PTR
; sta SCREEN_PTR
; bcc L4
; inc SCREEN_PTR+1
;; clc
;L4:; lda #xsize
; adc CRAM_PTR
; sta CRAM_PTR
; bcc L5
; inc CRAM_PTR+1
;L5:
inc CURS_Y
; jmp plot
; rts
inc CURS_Y
; Set cursor position, calculate RAM pointers
plot: ldy CURS_X
ldx CURS_Y
clc
jmp PLOT ; Set the new cursor
plot: ldy CURS_X
ldx CURS_Y
clc
jmp PLOT ; Set the new cursor
@@ -84,34 +62,32 @@ plot: ldy CURS_X
putchar:
ora RVS ; Set revers bit
ora RVS ; Set revers bit
tax
tax
st0 #VDC_MAWR ; Memory Adress Write
st0 #VDC_MAWR ; Memory Adress Write
lda SCREEN_PTR
staio VDC_DATA_LO
lda SCREEN_PTR
staio VDC_DATA_LO
lda SCREEN_PTR+1
staio VDC_DATA_HI
lda SCREEN_PTR+1
staio VDC_DATA_HI
st0 #VDC_VWR ; VWR
st0 #VDC_VWR ; VWR
txa
staio VDC_DATA_LO ; character
txa
staio VDC_DATA_LO ; character
;;st2 #$32 ; attrib ?!
lda CHARCOLOR
;;lda #2
asl a
asl a
asl a
asl a
lda CHARCOLOR
and #$f0
ora #$02
staio VDC_DATA_HI
asl a
asl a
asl a
asl a
rts
and #$f0
ora #$02
staio VDC_DATA_HI
rts