Fix tabs
This commit is contained in:
@@ -3,34 +3,34 @@
|
||||
|
||||
.export _mono_clrscr
|
||||
|
||||
.import _screen
|
||||
.import pusha0,pushax
|
||||
.include "extzp.inc"
|
||||
.import _screen
|
||||
.import pusha0,pushax
|
||||
.include "extzp.inc"
|
||||
|
||||
.code
|
||||
.code
|
||||
|
||||
.proc _mono_clrscr
|
||||
.proc _mono_clrscr
|
||||
|
||||
lda #<_screen
|
||||
ldx #>_screen
|
||||
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
|
||||
lda #<_screen
|
||||
ldx #>_screen
|
||||
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
|
||||
.endproc
|
||||
|
||||
;-------------------------------------------------------------------------------
|
||||
; force the init constructor to be imported
|
||||
|
||||
Reference in New Issue
Block a user