initial import, completely untested, does not compile yet
This commit is contained in:
27
libsrc/pcengine/clrscr.s
Normal file
27
libsrc/pcengine/clrscr.s
Normal file
@@ -0,0 +1,27 @@
|
||||
|
||||
.include "pcengine.inc"
|
||||
|
||||
|
||||
.export _clrscr
|
||||
_clrscr:
|
||||
|
||||
st0 #VDC_MAWR
|
||||
st1 #<$0000
|
||||
st2 #>$0000
|
||||
|
||||
st0 #VDC_VWR
|
||||
ldy #$40
|
||||
rowloop: ldx #$80
|
||||
colloop:
|
||||
lda #' '
|
||||
staio VDC_DATA_LO
|
||||
lda #$02
|
||||
staio VDC_DATA_HI
|
||||
|
||||
dex
|
||||
bne colloop
|
||||
dey
|
||||
bne rowloop
|
||||
|
||||
rts
|
||||
|
||||
Reference in New Issue
Block a user