remove TABs
This commit is contained in:
@@ -1,16 +1,16 @@
|
||||
;
|
||||
; jede jede@oric.org 2017-02-25
|
||||
;
|
||||
;
|
||||
|
||||
.export _clrscr
|
||||
|
||||
|
||||
.importzp sp
|
||||
|
||||
|
||||
.include "telestrat.inc"
|
||||
|
||||
.proc _clrscr
|
||||
; Switch to text mode
|
||||
BRK_TELEMON(XTEXT)
|
||||
BRK_TELEMON(XTEXT)
|
||||
|
||||
lda #<SCREEN
|
||||
ldy #>SCREEN
|
||||
@@ -21,18 +21,18 @@
|
||||
ldx #>(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
|
||||
lda #' '
|
||||
BRK_TELEMON XFILLM
|
||||
|
||||
|
||||
|
||||
|
||||
; reset prompt position
|
||||
lda #<(SCREEN+40)
|
||||
sta ADSCRL
|
||||
lda #>(SCREEN+40)
|
||||
sta ADSCRH
|
||||
|
||||
|
||||
; reset display position
|
||||
lda #$01
|
||||
sta SCRY
|
||||
lda #$00
|
||||
sta SCRX
|
||||
sta SCRX
|
||||
rts
|
||||
.endproc
|
||||
.endproc
|
||||
|
||||
Reference in New Issue
Block a user