; void clrscr (void);
;
- .export _clrscr
- .import plot
+ .export _clrscr
+ .import plot
.import CURS_X: zp, CURS_Y: zp, CharPtr: zp
- .include "cbm610.inc"
+ .include "cbm610.inc"
-.proc _clrscr
+.proc _clrscr
- lda #0
- sta CURS_X
- sta CURS_Y
- jsr plot ; Set cursor to top left corner
+ lda #0
+ sta CURS_X
+ sta CURS_Y
+ jsr plot ; Set cursor to top left corner
- lda IndReg
- pha
- lda #$0F
- sta IndReg ; Switch to the system bank
+ lda IndReg
+ pha
+ lda #$0F
+ sta IndReg ; Switch to the system bank
- ldx #8
- ldy #$00
- lda #$20 ; Screencode for blank
-L1: sta (CharPtr),y
- iny
- bne L1
- inc CharPtr+1
- dex
- bne L1
+ ldx #8
+ ldy #$00
+ lda #$20 ; Screencode for blank
+L1: sta (CharPtr),y
+ iny
+ bne L1
+ inc CharPtr+1
+ dex
+ bne L1
- pla
- sta IndReg ; Restore old indirect segment
+ pla
+ sta IndReg ; Restore old indirect segment
- jmp plot ; Set screen pointer again
+ jmp plot ; Set screen pointer again
.endproc