kbhit() function and scrolling.

Patch provided by Jeff Tranter.
2015-02-19 22:19:21 +01:00
parent cbb6f82b99
commit b1969ac16a
3 changed files with 39 additions and 2 deletions
--- a/libsrc/osic1p/cputc.s
+++ b/libsrc/osic1p/cputc.s
@@ -48,8 +48,16 @@ newline:
        lda     CURS_Y
        cmp     #SCR_HEIGHT     ; screen height
        bne     plot
-        lda     #0              ; wrap around to line 0
-        sta     CURS_Y
+        dec     CURS_Y          ; bottom of screen reached, scroll
+        ldx     #0
+scroll: lda     SCRNBASE+$00A5,x
+        sta     SCRNBASE+$0085,x
+        lda     SCRNBASE+$01A5,x
+        sta     SCRNBASE+$0185,x
+        lda     SCRNBASE+$02A5,x
+        sta     SCRNBASE+$0285,x
+        inx
+        bne scroll

 plot:   ldy     CURS_Y
        lda     ScrLo,y