;
; 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
