2002-10-03 11:18:23 +00:00
|
|
|
;
|
|
|
|
|
; 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
|
|
|
|
|
|
2003-02-11 12:37:46 +00:00
|
|
|
.proc _tgi_textstyle
|
|
|
|
|
|
2002-10-03 11:18:23 +00:00
|
|
|
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
|
|
|
|
|
|
2003-02-11 12:37:46 +00:00
|
|
|
.endproc
|
|
|
|
|
|
