cc65/libsrc/conio/scrsize.s

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

        .export         _screensize

        .import         popptr1
        .import         screensize
        .importzp       ptr1, ptr2

        .macpack        cpu

.proc   _screensize

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

.if (.cpu .bitand ::CPU_ISET_65SC02)
        sta     (ptr2)
        txa
        sta     (ptr1)
.else
        ldy     #0
        sta     (ptr2),y
        txa
        sta     (ptr1),y
.endif
        rts

.endproc
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
			`; Ullrich von Bassewitz, 08.08.1998`
			`;`
			`; void screensize (unsigned char* x, unsigned char* y);`
			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export _screensize`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
Further optimizations in common/conio. 2018-05-22 13:59:05 +00:00			`.import popptr1`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.import screensize`
Further optimizations in common/conio. 2018-05-22 13:59:05 +00:00			`.importzp ptr1, ptr2`

remove dangling spaces 2022-04-17 14:06:22 +00:00			`.macpack cpu`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.proc _screensize`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
Further optimizations in common/conio. 2018-05-22 13:59:05 +00:00			`sta ptr2 ; Store the y pointer`
			`stx ptr2+1`
			`jsr popptr1 ; Get the x pointer into ptr1`
Make screensize() fetch the values dynamically instead of using variables that are set on startup. This is needed to support the C128, which can switch the screen size at runtime. git-svn-id: svn://svn.cc65.org/cc65/trunk@2042 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-04-09 19:34:57 +00:00			`jsr screensize ; Get screensize into X/Y`
			`tya ; Get Y size into A`

Further optimizations in common/conio. 2018-05-22 13:59:05 +00:00			`.if (.cpu .bitand ::CPU_ISET_65SC02)`
			`sta (ptr2)`
Make screensize() fetch the values dynamically instead of using variables that are set on startup. This is needed to support the C128, which can switch the screen size at runtime. git-svn-id: svn://svn.cc65.org/cc65/trunk@2042 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-04-09 19:34:57 +00:00			`txa`
			`sta (ptr1)`
Further optimizations in common/conio. 2018-05-22 13:59:05 +00:00			`.else`
			`ldy #0`
			`sta (ptr2),y`
Make screensize() fetch the values dynamically instead of using variables that are set on startup. This is needed to support the C128, which can switch the screen size at runtime. git-svn-id: svn://svn.cc65.org/cc65/trunk@2042 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-04-09 19:34:57 +00:00			`txa`
Further optimizations in common/conio. 2018-05-22 13:59:05 +00:00			`sta (ptr1),y`
remove dangling spaces 2022-04-17 14:06:22 +00:00			`.endif`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`rts`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
Two module splits git-svn-id: svn://svn.cc65.org/cc65/trunk@396 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-10-26 20:43:29 +00:00			`.endproc`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00