git.sur5r.net Git - cc65/blob - libsrc/pce/cputc.s

   1 ;
   2 ; void cputcxy (unsigned char x, unsigned char y, char c);
   3 ; void cputc (char c);
   4 ;
   5
   6         .export         _cputcxy, _cputc, cputdirect, putchar
   7         .export         newline, plot
   8         .import         popa, _gotoxy
   9         .import         PLOT
  10         .import         xsize
  11
  12         .importzp       tmp3,tmp4
  13
  14         .include        "pce.inc"
  15
  16 _cputcxy:
  17         pha                     ; Save C
  18         jsr     popa            ; Get Y
  19         jsr     _gotoxy         ; Set cursor, drop x
  20         pla                     ; Restore C
  21
  22 ; Plot a character - also used as internal function
  23
  24 _cputc: cmp     #$0d            ; CR?
  25         bne     L1
  26         lda     #0
  27         sta     CURS_X
  28         beq     plot            ; Recalculate pointers
  29
  30 L1:     cmp     #$0a            ; LF?
  31         beq     newline         ; Recalculate pointers
  32
  33 ; Printable char of some sort
  34
  35 cputdirect:
  36         jsr     putchar         ; Write the character to the screen
  37
  38 ; Advance cursor position
  39
  40 advance:
  41         ldy     CURS_X
  42         iny
  43         cpy     xsize
  44         bne     L3
  45         jsr     newline         ; new line
  46         ldy     #0              ; + cr
  47 L3:     sty     CURS_X
  48         jmp     plot
  49
  50 newline:
  51         inc     CURS_Y
  52
  53 ; Set cursor position, calculate RAM pointers
  54
  55 plot:   ldy     CURS_X
  56         ldx     CURS_Y
  57         clc
  58         jmp     PLOT            ; Set the new cursor
  59
  60 ; Write one character to the screen without doing anything else, return X
  61 ; position in Y
  62
  63 putchar:
  64
  65         ora     RVS             ; Set revers bit
  66
  67         tax
  68
  69         st0     #VDC_MAWR       ; Memory Adress Write
  70
  71         lda     SCREEN_PTR
  72         sta     a:VDC_DATA_LO
  73
  74         lda     SCREEN_PTR + 1
  75         sta     a:VDC_DATA_HI
  76
  77         st0     #VDC_VWR        ; VWR
  78
  79         txa
  80         sta     a:VDC_DATA_LO   ; character
  81
  82         lda     CHARCOLOR
  83
  84         asl     a
  85         asl     a
  86         asl     a
  87         asl     a
  88
  89         ora     #$02
  90         sta     a:VDC_DATA_HI
  91
  92         rts
  93
  94 ;-------------------------------------------------------------------------------
  95 ; force the init constructor to be imported
  96
  97         .import initconio
  98 conio_init      = initconio