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

   1 ;
   2 ; Ullrich von Bassewitz, 26.10.2000
   3 ;
   4 ; Screen size variables
   5 ;
   6
   7         .export         screensize
   8
   9         .include        "c128.inc"
  10
  11 .proc   screensize
  12
  13         ldx     #40             ; Assume 40 column mode
  14         bit     MODE
  15         bpl     C40             ; Jump if 40 column mode
  16         ldx     #80
  17 C40:    ldy     #25
  18         rts
  19
  20 .endproc
  21
  22