;
; Ullrich von Bassewitz, 08.08.1998
;
; void screensize (unsigned char* x, unsigned char* y);
;

        .export         _screensize

        .import         popsreg
        .import         screensize
        .importzp       ptr1, sreg

.proc   _screensize

        sta     ptr1            ; Store the y pointer
        stx     ptr1+1
        jsr     popsreg         ; Get the x pointer into sreg
        jsr     screensize      ; Get screensize into X/Y
        tya                     ; Get Y size into A

.IFP02
        ldy     #0
        sta     (ptr1),y
        txa
        sta     (sreg),y
.ELSE
        sta     (ptr1)
        txa
        sta     (sreg)
.ENDIF

        rts

.endproc