2002-03-08 16:49:31 +00:00
|
|
|
;
|
|
|
|
|
; Maciej 'YTM/Elysium' Witkowiak
|
|
|
|
|
;
|
|
|
|
|
; 27.10.2001
|
|
|
|
|
; 05.03.2002
|
|
|
|
|
|
|
|
|
|
; void cpputsxy (unsigned char x, unsigned char y, char* s);
|
|
|
|
|
; void cpputs (char* s);
|
|
|
|
|
|
|
|
|
|
; same as cputsxy and cputs but faster and use proportional font spacing
|
|
|
|
|
; does not update cursor position
|
|
|
|
|
|
|
|
|
|
.export _cpputsxy, _cpputs
|
|
|
|
|
.import _gotoxy
|
|
|
|
|
.import popa
|
2002-12-23 22:14:14 +00:00
|
|
|
.importzp cursor_x, cursor_y
|
2002-03-08 16:49:31 +00:00
|
|
|
|
2012-01-31 20:49:58 +00:00
|
|
|
.include "const.inc"
|
|
|
|
|
.include "geossym.inc"
|
|
|
|
|
.include "jumptab.inc"
|
2002-03-08 16:49:31 +00:00
|
|
|
|
|
|
|
|
_cpputsxy:
|
2012-02-08 15:23:45 +00:00
|
|
|
sta r0L ; Save s for later
|
|
|
|
|
stx r0H
|
|
|
|
|
jsr popa ; Get Y
|
|
|
|
|
jsr _gotoxy ; Set cursor, pop x
|
|
|
|
|
jmp L0 ; Same as cputs...
|
2002-03-08 16:49:31 +00:00
|
|
|
|
|
|
|
|
_cpputs:
|
2012-02-08 15:23:45 +00:00
|
|
|
sta r0L ; Save s
|
|
|
|
|
stx r0H
|
|
|
|
|
L0: ldy #0
|
|
|
|
|
lda (r0),y
|
|
|
|
|
bne L1 ; Jump if there's something
|
2002-03-08 16:49:31 +00:00
|
|
|
rts
|
|
|
|
|
|
2012-02-08 15:23:45 +00:00
|
|
|
L1: lda cursor_x
|
|
|
|
|
sta r11L
|
|
|
|
|
lda cursor_x+1
|
|
|
|
|
sta r11H
|
|
|
|
|
lda cursor_y
|
|
|
|
|
sta r1H
|
|
|
|
|
jmp PutString
|
