2022-04-18 08:59:06 +00:00
|
|
|
|
|
|
|
|
.include "atari7800.inc"
|
|
|
|
|
|
|
|
|
|
.export _mono_clrscr
|
|
|
|
|
|
2022-04-18 09:26:21 +00:00
|
|
|
.import _mono_screen
|
2022-04-18 09:05:36 +00:00
|
|
|
.import pusha0,pushax
|
|
|
|
|
.include "extzp.inc"
|
|
|
|
|
|
|
|
|
|
.code
|
|
|
|
|
|
|
|
|
|
.proc _mono_clrscr
|
|
|
|
|
|
2022-04-18 09:26:21 +00:00
|
|
|
lda #<_mono_screen
|
|
|
|
|
ldx #>_mono_screen
|
2022-04-18 09:05:36 +00:00
|
|
|
sta ptr7800
|
|
|
|
|
stx ptr7800+1
|
|
|
|
|
ldx #screenrows
|
|
|
|
|
@L1: ldy #mono_charsperline
|
|
|
|
|
lda #0
|
|
|
|
|
@L2: sta (ptr7800),y
|
|
|
|
|
dey
|
|
|
|
|
bne @L2
|
|
|
|
|
lda ptr7800
|
|
|
|
|
clc
|
|
|
|
|
adc #mono_charsperline
|
|
|
|
|
bcc @L3
|
|
|
|
|
inc ptr7800+1
|
|
|
|
|
@L3: dex
|
|
|
|
|
bne @L1
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.endproc
|
2022-04-18 08:59:06 +00:00
|
|
|
|
|
|
|
|
;-------------------------------------------------------------------------------
|
|
|
|
|
; force the init constructor to be imported
|
|
|
|
|
|
|
|
|
|
.import mono_initconio
|
|
|
|
|
conio_init = mono_initconio
|
