FEATURES {
STARTADDRESS: default = $0200;
}
-
SYMBOLS {
__STACKSIZE__: type = weak, value = $0400; # 1 kB stack
__HIMEM__: type = weak, value = $8000; # 32 kB RAM
dec tmp1
bne L1
L9: rts
-
-
-
-
_exit: jsr donelib ; Run destructors
brk
-
.byte $00 ; 253/fd _y'_acute__
.byte $00 ; 254/fe _sm_thorn__
.byte $00 ; 255/ff _y"_dieres_
-
dec tmp1
bne L1
L9: rts
-
-
-
;
; void gotox (unsigned char x);
;
-
.export _gotox
.import plot
.importzp CURS_X
_gotox: sta CURS_X ; Set new position
jmp plot ; And activate it
-
-
-
;
+; copied from CBM implementation
+;
+; originally by:
; Ullrich von Bassewitz, 06.08.1998
;
; void gotoxy (unsigned char x, unsigned char y);
;
-
.export _gotoxy
.import popa, plot
.importzp CURS_X, CURS_Y
jsr popa ; Get X
sta CURS_X ; Set X
jmp plot ; Set the cursor position
-
-
;
; void gotoy (unsigned char y);
;
-
.export _gotoy
.import plot
.importzp CURS_Y
_gotoy: sta CURS_Y ; Set the new position
jmp plot ; And activate it
-