simple conio support for GEOS

git-svn-id: svn://svn.cc65.org/cc65/trunk@1093 b7a2c559-68d2-44c3-8de9-860c34a00d81
2001-10-27 17:13:22 +00:00
parent 0fe03a4643
commit 8ce6c9bcac
17 changed files with 504 additions and 1 deletions
--- a/libsrc/geos/conio/clrscr.s
+++ b/libsrc/geos/conio/clrscr.s
@@ -0,0 +1,35 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 27.10.2001
+
+; void clrscr (void);
+
+	    .export _clrscr
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	    .include "../inc/const.inc"
+
+_clrscr:
+	    lda #ST_WR_FORE | ST_WR_BACK
+	    sta dispBufferOn
+	    lda #0
+	    jsr SetPattern
+	    lda #0
+	    sta r3L
+	    sta r3H
+	    sta r2L
+	    lda #199
+	    sta r2H
+	    lda graphMode
+	    bpl L40
+	    lda #>639			; 80 columns
+	    ldx #<639
+	    bne L99
+L40:	    lda #>319			; 40 columns
+	    ldx #<319
+L99:	    sta r4H
+	    stx r4L
+	    jmp Rectangle