31 lines
375 B
NASM
31 lines
375 B
NASM
.include _hwdefs.asm
|
|
.include _clrdefs.asm
|
|
|
|
;; Variables
|
|
.org SYSRAM
|
|
stack: byte[128]
|
|
|
|
;; Main
|
|
.org SYSROM
|
|
lds stack
|
|
jss cls
|
|
|
|
hlt
|
|
|
|
;; Clear the screen
|
|
FUNC cls:
|
|
ldp screen.char
|
|
ldc $00 ;; Blank
|
|
ldq screen.color
|
|
ldb CLR_BLACK ;; Black
|
|
.cls_loop: {
|
|
stc *p++
|
|
stb *q++
|
|
lda pl
|
|
cmp (lo(COLOR))
|
|
jnz .cls_loop
|
|
lda ph
|
|
cmp (hi(COLOR))
|
|
jnz }
|
|
rts
|