git.sur5r.net Git - cc65/blob - libsrc/pet/_scrsize.s

   1 ;
   2 ; Ullrich von Bassewitz, 26.10.2000
   3 ;
   4 ; Screen size variables
   5 ;
   6
   7
   8         .export         xsize, ysize
   9         .constructor    initscrsize
  10
  11         .include        "pet.inc"
  12
  13 .code
  14
  15 initscrsize:
  16         ldx     SCR_LINELEN
  17         inx                     ; Variable is one less
  18         stx     xsize
  19         lda     #25
  20         sta     ysize
  21         rts
  22
  23
  24 .bss
  25
  26 xsize:  .res    1
  27 ysize:  .res    1
  28
  29
  30