Improvements by Oliver Schmidt

git-svn-id: svn://svn.cc65.org/cc65/trunk@3074 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2004-06-03 15:05:41 +00:00
parent 8c4b3599a2
commit 9a1bab361f
20 changed files with 201 additions and 78 deletions

View File

@@ -10,7 +10,7 @@
.export _gotoxy, cputdirect
.export newline, putchar
.import popa
.import popa, SETWND, BASCALC
.include "../apple2/apple2.inc"
@@ -19,6 +19,8 @@ initconio:
lda #$FF ; Normal character display mode
sta INVFLG
sta SETALTCHAR ; Switch in alternate charset
lda #$00
jsr SETWND ; Reset text window to full screen
rts
; Plot a character - also used as internal function
@@ -82,19 +84,19 @@ newline:
pha
inc CV
lda CV
cmp WNDBTM
cmp #24
bne L2
lda #$00
sta CV
L2:
jsr VTABZ
jsr BASCALC
pla
sta CH
rts
_gotoxy:
sta CV ; Store Y
jsr VTABZ
jsr BASCALC
jsr popa ; Get X
sta CH ; Store X
rts