mirror of
https://github.com/cc65/cc65.git
synced 2024-12-24 11:31:31 +00:00
8ecdf9d6b7
Rename tgi_setup to tgi_install. Make tgi_install and tgi_deinstall user callable. More cosmetic changes. git-svn-id: svn://svn.cc65.org/cc65/trunk@1966 b7a2c559-68d2-44c3-8de9-860c34a00d81
44 lines
1.0 KiB
ArmAsm
44 lines
1.0 KiB
ArmAsm
;
|
|
; Ullrich von Bassewitz, 22.06.2002
|
|
;
|
|
; void __fastcall__ tgi_textstyle (unsigned char magx, unsigned char magy,
|
|
; unsigned char dir);
|
|
; /* Set the style for text output. */
|
|
|
|
|
|
.include "tgi-kernel.inc"
|
|
|
|
.import popax, incsp2
|
|
|
|
.proc _tgi_textstyle
|
|
|
|
pha
|
|
jsr popax ; Get magx/magy in one call
|
|
tay
|
|
pla
|
|
|
|
; A = textdir, X = textmagx, Y = textmagy
|
|
|
|
cmp #TGI_TEXT_HORIZONTAL
|
|
beq DirOk
|
|
cmp #TGI_TEXT_VERTICAL
|
|
beq DirOk
|
|
Fail: jmp tgi_inv_arg ; Invalid argument
|
|
DirOk: cpy #$00
|
|
beq Fail ; Cannot have magnification of zero
|
|
cpx #$00
|
|
beq Fail ; Cannot have magnification of zero
|
|
|
|
; Parameter check ok, store them
|
|
|
|
stx _tgi_textmagx
|
|
sty _tgi_textmagy
|
|
sta _tgi_textdir
|
|
|
|
; Call the driver, parameters are passed in registers
|
|
|
|
jmp tgi_textstyle
|
|
|
|
.endproc
|
|
|