2000-11-23 19:05:32 +00:00
|
|
|
;
|
|
|
|
; Ullrich von Bassewitz, 26.10.2000
|
|
|
|
;
|
|
|
|
; Screen size variables
|
|
|
|
;
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export screensize
|
2000-11-23 19:05:32 +00:00
|
|
|
|
2003-04-09 19:34:57 +00:00
|
|
|
.include "c128.inc"
|
2000-11-23 19:05:32 +00:00
|
|
|
|
2003-04-09 19:34:57 +00:00
|
|
|
.proc screensize
|
2000-11-23 19:05:32 +00:00
|
|
|
|
2003-04-09 19:34:57 +00:00
|
|
|
ldx #40 ; Assume 40 column mode
|
|
|
|
bit MODE
|
|
|
|
bpl C40 ; Jump if 40 column mode
|
|
|
|
ldx #80
|
|
|
|
C40: ldy #25
|
|
|
|
rts
|
2000-11-23 19:05:32 +00:00
|
|
|
|
2003-04-09 19:34:57 +00:00
|
|
|
.endproc
|
2000-11-23 19:05:32 +00:00
|
|
|
|
2002-11-19 23:02:47 +00:00
|
|
|
|