git.sur5r.net Git - cc65/blob - libsrc/geos-common/conio/_scrsize.s

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; Screen size variables
   5 ;
   6 ; 6.3.2001, 17.4.2003
   7
   8
   9         .export xsize, ysize
  10         .export screensize
  11         .importzp cursor_r, cursor_c
  12         .import _cursor
  13         .constructor initscrsize
  14
  15         .include "geossym.inc"
  16
  17 .segment        "ONCE"
  18
  19 initscrsize:
  20 .ifdef __GEOS_CBM__
  21         lda graphMode
  22         bpl L1
  23         lda #80                 ; 80 columns (more or less)
  24         .byte $2c
  25 L1:     lda #40                 ; 40 columns (more or less)
  26         sta xsize
  27         lda #25                 ; something like that for Y size
  28 .else
  29         lda #70                 ; 70 columns (more or less)
  30         sta xsize
  31         lda #24                 ; something like that for Y size
  32 .endif
  33         sta ysize
  34         lda #0
  35         sta cursor_c
  36         sta cursor_r
  37         jmp _cursor             ; home and update cursor
  38
  39 .code
  40
  41 screensize:
  42         ldx xsize
  43         ldy ysize
  44         rts
  45
  46 .segment        "INIT"
  47
  48 xsize:
  49         .res 1
  50 ysize:
  51         .res 1