mirror of
https://github.com/cc65/cc65.git
synced 2024-07-05 06:28:57 +00:00
32 lines
527 B
ArmAsm
32 lines
527 B
ArmAsm
|
|
||
|
|
.include "atari7800.inc"
|
||
|
|
|
||
|
|
.export _clrscr
|
||
|
|
|
||
|
|
.import CURS_X
|
||
|
|
.import CURS_Y
|
||
|
|
.import _screen
|
||
|
|
.import pushax, __bzero
|
||
|
|
|
||
|
|
.code
|
||
|
|
|
||
|
|
.proc _clrscr
|
||
|
|
|
||
|
|
lda #0
|
||
|
|
sta CURS_X
|
||
|
|
sta CURS_Y
|
||
|
|
lda #<(_screen)
|
||
|
|
ldx #>(_screen)
|
||
|
|
jsr pushax
|
||
|
|
ldx #>(charsperline * screenrows)
|
||
|
|
lda #<(charsperline * screenrows)
|
||
|
|
jmp __bzero
|
||
|
|
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
;-------------------------------------------------------------------------------
|
||
|
|
; force the init constructor to be imported
|
||
|
|
|
||
|
|
.import initconio
|
||
|
|
conio_init = initconio
|