bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Split files

Browse Source
This commit is contained in:
Karri Kaksonen
2022-04-16 21:13:51 +03:00
parent cdc6e1c61f
commit 422d245cab
4 changed files with 85 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
libsrc/atari7800/clrscr.s
View File

@@ -3,34 +3,34 @@
.export _clrscr
.import _screen
.import pusha0,pushax
.include "extzp.inc"
.import _screen
.import pusha0,pushax
.include "extzp.inc"
.code
.code
.proc _clrscr
.proc _clrscr
lda #<(_screen)
ldx #>(_screen)
sta ptr7800
stx ptr7800+1
ldx #screenrows
@L1: ldy #charsperline
lda #0
@L2: sta (ptr7800),y
dey
bne @L2
lda ptr7800
clc
adc #charsperline
bcc @L3
inc ptr7800+1
@L3: dex
bne @L1
rts
lda #<(_screen)
ldx #>(_screen)
sta ptr7800
stx ptr7800+1
ldx #screenrows
@L1: ldy #charsperline
lda #0
@L2: sta (ptr7800),y
dey
bne @L2
lda ptr7800
clc
adc #charsperline
bcc @L3
inc ptr7800+1
@L3: dex
bne @L1
rts
.endproc
.endproc
;-------------------------------------------------------------------------------
; force the init constructor to be imported