From f73ed4c652a8c1c9ac3b4ad29a47d9a743a23c4e Mon Sep 17 00:00:00 2001
From: Rob McMullen <feedback@playermissile.com>
Date: Fri, 20 Jul 2018 12:21:41 -0700
Subject: [PATCH] Added simple clear screen without smc

---
 kfest2018/SETSCRN.BIN    | Bin 149 -> 146 bytes
 kfest2018/SETSCRNSMC.BIN | Bin 0 -> 149 bytes
 kfest2018/setscrn.s      |  42 +++++++++++++++-------
 kfest2018/setscrnsmc.s   |  74 +++++++++++++++++++++++++++++++++++++++
 4 files changed, 103 insertions(+), 13 deletions(-)
 create mode 100644 kfest2018/SETSCRNSMC.BIN
 create mode 100644 kfest2018/setscrnsmc.s

diff --git a/kfest2018/SETSCRN.BIN b/kfest2018/SETSCRN.BIN
index 01c659d639f9fadfcb9e5a4298452856c72825ab..2f224991291a50b1325d3dd192d92b6c9f00aaf7 100644
GIT binary patch
delta 71
zcmbQrIEhh(A)t>zK`}sqFF-*rz(+11fng;>E5}NQR!)VIfMc8&ekS<HO%w@{TB*>=
b4wPYAv6OQn+ldRmpRq4vf8a3Ta{>bZ?-LlG

delta 61
zcmV-D0K)&00hIw108o(tAQ4a?bWk83P)rU`U;s=Gkt9@+P!JudAdP`gsQ{n=ssEV(
T|H#n#?txIQfl%N;knmstIL;Rh

diff --git a/kfest2018/SETSCRNSMC.BIN b/kfest2018/SETSCRNSMC.BIN
new file mode 100644
index 0000000000000000000000000000000000000000..b010a0508f79e1fe9b3dc296519b6de15530ee49
GIT binary patch
literal 149
zcmZPwn8=`@7@)uxpr9AvBNvdsu#%ybW2HkYr$R}<G0qD=6M%v`0S9z~4(Nm&&<Q_~
tpc4q=gdIp=AQ!Au=xq#G%DI4H<^P!s|4&@_^{z2sU1PulhY24N7yy7lB`W{`

literal 0
HcmV?d00001

diff --git a/kfest2018/setscrn.s b/kfest2018/setscrn.s
index 09e801a..44ad8a8 100644
--- a/kfest2018/setscrn.s
+++ b/kfest2018/setscrn.s
@@ -1,15 +1,30 @@
+    *= $06
 
+hgr_ptr .ds 2
+FIRST_CHAR_OF_SCREEN .ds 1
+FRAME_COUNT .ds 1
 
     *= $5000
 
 start_set
     jsr set_hires
-    jsr test
+    jsr driver
     jsr set_text
     jmp forever
     rts
     brk
 
+driver
+    lda #$00
+    sta FIRST_CHAR_OF_SCREEN
+    lda #64
+    sta FRAME_COUNT
+page_loop
+    jsr page
+    dec FRAME_COUNT
+    bne page_loop
+    rts
+
 forever
     jmp forever
 
@@ -40,20 +55,21 @@ set_text bit SETTEXT
 
 
     *= $5074
-test
+page
 ; set hires page 1 only
     lda #$20
-    sta setscr_smc+2
+    sta hgr_ptr+1
     lda #0
-    ldy #0
-    lda #$ff
-setscr_smc sta $ff00,y      ; 4
-    iny                     ; 2
-    bne setscr_smc          ; 4 = 10 * 256
-    inc setscr_smc+2        ; 6
-    ldx setscr_smc+2        ; 6
-    cpx #$40                ; 2
-    bcc setscr_smc          ; 4
-    rts                     ; (18 + 10*256) * 32 = 82496
+    sta hgr_ptr
+    tay
+    lda frame_count
+setscr sta (hgr_ptr),y
+    iny
+    bne setscr
+    inc hgr_ptr+1
+    ldx hgr_ptr+1
+    cpx #$40
+    bcc setscr
+    rts
 
     brk
diff --git a/kfest2018/setscrnsmc.s b/kfest2018/setscrnsmc.s
new file mode 100644
index 0000000..7f3406e
--- /dev/null
+++ b/kfest2018/setscrnsmc.s
@@ -0,0 +1,74 @@
+    *= $06
+
+hgr_ptr .ds 2
+FIRST_CHAR_OF_SCREEN .ds 1
+FRAME_COUNT .ds 1
+
+    *= $5000
+
+start_set
+    jsr set_hires
+    jsr driver
+    jsr set_text
+    jmp forever
+    rts
+    brk
+
+driver
+    lda #$00
+    sta FIRST_CHAR_OF_SCREEN
+    lda #64
+    sta FRAME_COUNT
+page_loop
+    jsr page
+    dec FRAME_COUNT
+    bne page_loop
+    rts
+
+forever
+    jmp forever
+
+; os memory map
+KEYBOARD = $c000
+KBDSTROBE = $c010
+CLRTEXT = $c050
+SETTEXT = $c051
+CLRMIXED = $c052
+SETMIXED = $c053
+TXTPAGE1 = $c054
+TXTPAGE2 = $c055
+CLRHIRES = $c056
+SETHIRES = $c057
+
+
+set_hires bit CLRTEXT     ; start with HGR page 1, full screen
+    bit CLRMIXED
+    bit TXTPAGE1
+    bit SETHIRES
+    rts
+
+set_text bit SETTEXT
+    bit CLRMIXED
+    bit TXTPAGE1
+    bit CLRHIRES
+    rts
+
+
+    *= $5074
+page
+; set hires page 1 only
+    lda #$20
+    sta setscr_smc+2
+    lda frame_count
+    ldy #0
+    lda #$ff
+setscr_smc sta $ff00,y      ; 4
+    iny                     ; 2
+    bne setscr_smc          ; 4 = 10 * 256
+    inc setscr_smc+2        ; 6
+    ldx setscr_smc+2        ; 6
+    cpx #$40                ; 2
+    bcc setscr_smc          ; 4
+    rts                     ; (18 + 10*256) * 32 = 82496
+
+    brk