Working on stroked font output.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4455 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz
2009-11-10 18:50:33 +00:00
parent 1154a11649
commit fe5adb5c4e
3 changed files with 230 additions and 80 deletions

View File

@@ -7,16 +7,31 @@
.include "tgi-kernel.inc"
.import popax
.importzp ptr3
.import addysp1
.importzp sp
.proc _tgi_outtextxy
sta ptr3
stx ptr3+1 ; Save s
jsr popax ; get y from stack
jsr tgi_popxy ; Pop x/y into ptr1/ptr2
jmp tgi_outtext ; Call the driver
; Get the X/Y parameters and store them into curx/cury. This enables us
; to use tgi_outtext for the actual output
pha ;
ldy #0
lda (sp),y
sta _tgi_cury
iny
lda (sp),y
sta _tgi_cury+1
iny
lda (sp),y
sta _tgi_curx
iny
lda (sp),y
sta _tgi_curx+1
pla
jsr addysp1 ; Drop arguments from stack
jmp _tgi_outtext
.endproc