X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fatmos%2Fgotoxy.s;h=6652c94193ba40a9f28c58a72d86f91980f3bc28;hb=f5615c6ed4f257fd79844d0686a6d8d629883753;hp=26a16bb21e8ecb45255e0cdebf714128055b2a2b;hpb=9f547a5a4d61054ba07080f2378ee168e535d358;p=cc65 diff --git a/libsrc/atmos/gotoxy.s b/libsrc/atmos/gotoxy.s index 26a16bb21..6652c9419 100644 --- a/libsrc/atmos/gotoxy.s +++ b/libsrc/atmos/gotoxy.s @@ -1,21 +1,23 @@ ; -; Ullrich von Bassewitz, 2003-04-13 +; 2003-04-13, Ullrich von Bassewitz +; 2017-06-15, Greg King ; ; void gotoxy (unsigned char x, unsigned char y); ; - .export _gotoxy - .import popa + .export gotoxy, _gotoxy + + .import popa .include "atmos.inc" +gotoxy: jsr popa ; Get Y + .proc _gotoxy - sta CURS_Y ; Set Y - jsr popa ; Get X - sta CURS_X ; Set X + sta CURS_Y ; Set Y + jsr popa ; Get X + sta CURS_X ; Set X rts .endproc - -