conio and most other stuff working now
This commit is contained in:
35
libsrc/gamate/clrscr.s
Normal file
35
libsrc/gamate/clrscr.s
Normal file
@@ -0,0 +1,35 @@
|
||||
|
||||
.include "gamate.inc"
|
||||
.include "extzp.inc"
|
||||
|
||||
.import plot
|
||||
.export _clrscr
|
||||
_clrscr:
|
||||
ldy #$0
|
||||
rowloop:
|
||||
sty LCD_X
|
||||
|
||||
lda #0
|
||||
sta LCD_Y
|
||||
|
||||
ldx #$0
|
||||
colloop:
|
||||
sta LCD_DATA
|
||||
|
||||
inx
|
||||
bne colloop
|
||||
|
||||
iny
|
||||
bne rowloop
|
||||
|
||||
; Go to the home position.
|
||||
|
||||
sta CURS_X
|
||||
sta CURS_Y
|
||||
jmp plot
|
||||
|
||||
;-------------------------------------------------------------------------------
|
||||
; force the init constructor to be imported
|
||||
|
||||
.import initconio
|
||||
conio_init = initconio
|
||||
Reference in New Issue
Block a user