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         gotoxy, _cputc
  10         .importzp       ptr1, tmp1
  11
  12 _cputsxy:
  13         sta     ptr1            ; Save s for later
  14         stx     ptr1+1
  15         jsr     gotoxy          ; Set cursor, pop x and y
  16         jmp     L0              ; Same as cputs...
  17
  18 _cputs: sta     ptr1            ; Save s
  19         stx     ptr1+1
  20 L0:     ldy     #0
  21 L1:     lda     (ptr1),y
  22         beq     L9              ; Jump if done
  23         iny
  24         sty     tmp1            ; Save offset
  25         jsr     _cputc          ; Output char, advance cursor
  26         ldy     tmp1            ; Get offset
  27         bne     L1              ; Next char
  28         inc     ptr1+1          ; Bump high byte
  29         bne     L1
  30
  31 ; Done
  32
  33 L9:     rts
  34
  35