git.sur5r.net Git - cc65/blob - libsrc/conio/cputs.s

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