From 799458a2ad99293529ac8a6a3e30d86c1cefb219 Mon Sep 17 00:00:00 2001 From: Paul Gardner-Stephen Date: Fri, 19 Apr 2019 12:39:00 +0930 Subject: [PATCH] begin implementing CINT --- c64/kernal/cint.s | 30 +++++++++++++++++++++++++++++- 1 file changed, 29 insertions(+), 1 deletion(-) diff --git a/c64/kernal/cint.s b/c64/kernal/cint.s index 845e32e0..e1caacf0 100644 --- a/c64/kernal/cint.s +++ b/c64/kernal/cint.s @@ -1,3 +1,31 @@ -; Function defined on pp272-273 of C64 Programmers Reference Guide + ;; Function defined on pp272-273 of C64 Programmers Reference Guide + ;; Compute's Mapping the 64 p215 cint: + ;; Set up default IO values (Compute's Mapping the 64 p215) + lda #$1b ; Enable text mode + sta $d011 + lda #$c8 ; 40 column etc + sta $d016 + + ;; Initialise cursor blink flags (Compute's Mapping the 64 p215) + + ;; Set keyboard decode vector (Compute's Mapping the 64 p215) + + ;; Set key repeat delay (Compute's Mapping the 64 p215) + + ;; Set key frequency counters (Compute's Mapping the 64 p215) + + ;; Set current colour for text (Compute's Mapping the 64 p215) + lda #$0e ; light blue by default + sta $0286 + + ;; Set maximum keyboard buffer size (Compute's Mapping the 64 p215) + lda #10 + sta key_buffer_size + + ;; Fallthrough/jump to screen clear routine (Compute's Mapping the 64 p215) + ;; jmp clear_screen + + rts +