2022-04-18 11:59:06 +03:00
|
|
|
|
|
|
|
|
.include "atari7800.inc"
|
|
|
|
|
|
|
|
|
|
.export _mono_clrscr
|
|
|
|
|
|
2022-04-18 12:26:21 +03:00
|
|
|
.import _mono_screen
|
2022-04-19 20:01:47 +03:00
|
|
|
.import pushax, __bzero
|
2022-04-18 12:05:36 +03:00
|
|
|
.include "extzp.inc"
|
|
|
|
|
|
|
|
|
|
.code
|
|
|
|
|
|
|
|
|
|
.proc _mono_clrscr
|
|
|
|
|
|
2022-04-18 12:26:21 +03:00
|
|
|
lda #<_mono_screen
|
|
|
|
|
ldx #>_mono_screen
|
2022-04-19 20:01:47 +03:00
|
|
|
jsr pushax
|
|
|
|
|
ldx #>(mono_charsperline * screenrows)
|
|
|
|
|
lda #<(mono_charsperline * screenrows)
|
|
|
|
|
jmp __bzero
|
2022-04-18 12:05:36 +03:00
|
|
|
|
|
|
|
|
.endproc
|
2022-04-18 11:59:06 +03:00
|
|
|
|
|
|
|
|
;-------------------------------------------------------------------------------
|
|
|
|
|
; force the init constructor to be imported
|
|
|
|
|
|
|
|
|
|
.import mono_initconio
|
|
|
|
|
conio_init = mono_initconio
|
