blob: 80b770e3ad5300efabab4c8eee10a2a58c094ea9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
; modified for use with taipan:
; - _cputsxy commented out as taipan never uses it.
;
; Ullrich von Bassewitz, 06.08.1998
;
; void cputsxy (unsigned char x, unsigned char y, char* s);
; void cputs (char* s);
;
.export _cputs
.import popa, _gotoxy, _cputc
.importzp ptr1, tmp1
;_cputsxy:
; sta ptr1 ; Save s for later
; stx ptr1+1
; jsr popa ; Get Y
; jsr _gotoxy ; Set cursor, pop x
; jmp L0 ; Same as cputs...
_cputs: sta ptr1 ; Save s
stx ptr1+1
L0: ldy #0
L1: lda (ptr1),y
beq L9 ; Jump if done
iny
sty tmp1 ; Save offset
jsr _cputc ; Output char, advance cursor
ldy tmp1 ; Get offset
bne L1 ; Next char
inc ptr1+1 ; Bump high byte
bne L1
; Done
L9: rts
|
