git.sur5r.net Git - cc65/blob - libsrc/conio/scrsize.s

   1 ;
   2 ; Ullrich von Bassewitz, 08.08.1998
   3 ;
   4 ; void screensize (unsigned char* x, unsigned char* y);
   5 ;
   6
   7         .export         _screensize
   8
   9         .import         popptr1
  10         .import         screensize
  11         .importzp       ptr1, ptr2
  12
  13         .macpack        cpu
  14
  15 .proc   _screensize
  16
  17         sta     ptr2            ; Store the y pointer
  18         stx     ptr2+1
  19         jsr     popptr1         ; Get the x pointer into ptr1
  20         jsr     screensize      ; Get screensize into X/Y
  21         tya                     ; Get Y size into A
  22
  23 .if (.cpu .bitand ::CPU_ISET_65SC02)
  24         sta     (ptr2)
  25         txa
  26         sta     (ptr1)
  27 .else
  28         ldy     #0
  29         sta     (ptr2),y
  30         txa
  31         sta     (ptr1),y
  32 .endif
  33         rts
  34
  35 .endproc
  36