;
; Ullrich von Bassewitz, 06.08.1998
; Oleg A. Odintsov, Moscow, 2024
;
; void __fastcall__ gotoxy (unsigned char x, unsigned char y);
; void __fastcall__ gotox (unsigned char x);
;

        .export         gotoxy, _gotoxy, _gotox
        .import         popa, VTABZ

        .include        "agat.inc"

gotoxy:
	jsr	popa            ; Get Y
_gotoxy:
	clc
	adc	WNDTOP
	sta	CV              ; Store Y
	jsr	VTABZ
	jsr	popa            ; Get X
_gotox:
	bit	TATTR
	bmi	t64
	asl
t64:
	sta     CH              ; Store X
	rts