]> git.sur5r.net Git - cc65/blob - libsrc/conio/scrsize.s
clrscr.s switch to text mode
[cc65] / 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         popsreg
10         .import         screensize
11         .importzp       ptr1, sreg
12
13 .proc   _screensize
14
15         sta     ptr1            ; Store the y pointer
16         stx     ptr1+1
17         jsr     popsreg         ; Get the x pointer into sreg
18         jsr     screensize      ; Get screensize into X/Y
19         tya                     ; Get Y size into A
20
21 .IFP02
22         ldy     #0
23         sta     (ptr1),y
24         txa
25         sta     (sreg),y
26 .ELSE
27         sta     (ptr1)
28         txa
29         sta     (sreg)
30 .ENDIF
31
32         rts
33
34 .endproc
35