cc65/libsrc/atari7800/clrscr.s


        .include        "atari7800.inc"

        .export _clrscr

	.import	_screen
	.import	pusha0,pushax, __bzero

	.code

	.proc _clrscr

	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
Add basic conio buffer 2022-04-02 06:39:55 +00:00
			`.include "atari7800.inc"`

			`.export _clrscr`

			`.import _screen`
Don't set cursor in clrscr 2022-04-04 07:50:38 +00:00			`.import pusha0,pushax, __bzero`
Add basic conio buffer 2022-04-02 06:39:55 +00:00
			`.code`

			`.proc _clrscr`

			`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`