keyboard control, split to files

2026-07-13 22:13:36 +02:00
parent 96b7961681
commit 0e4546fe26
8 changed files with 892 additions and 765 deletions
@@ -0,0 +1,90 @@
+; -----------------------------------------------------------
+; defs.asm - hardware registers, constants, zero page, macros
+; included first by main.asm
+; -----------------------------------------------------------
+
+; ---- hardware registers ----
+SCRCTRL = $d011          ; vertical control: bit 4 switches the display on/off
+BORDER  = $d020          ; border color register
+BG      = $d021          ; background color register
+RASTER  = $d012          ; current raster line
+XCTRL   = $d016          ; horizontal fine scroll + 38/40 column mode
+SCREEN  = $0400          ; screen RAM (40x25 chars)
+COLRAM  = $d800          ; color RAM
+CIA1_PA = $dc00          ; CIA1 port A: keyboard matrix column select
+CIA1_PB = $dc01          ; CIA1 port B: keyboard matrix row read
+
+; ---- colors ----
+BLACK   = 0
+WHITE   = 1
+CYAN    = 3
+YELLOW  = 7
+DGREY   = 11
+LGREEN  = 13
+LGREY   = 15
+
+; ---- screen layout (slide 1) ----
+BIGROW      = 2                  ; top row of the giant letters
+BIGCOL      = 6                  ; left column (3*8 + 2*2 = 28 wide, centered)
+TITLE_POS   = 12*40 + 13         ; "TELETYPE GAMES" (14 chars, centered)
+SCROLLROW   = 14                 ; scroller row
+
+; ---- timing ----
+SCROLL_STEP = 2                  ; pixels per frame (8 px / 4 frames = 1 char)
+RAS_SCRTOP  = 160                ; just above the scroller row (row 14 = lines 162-169)
+RAS_SCRBOT  = 171                ; just below it (rows 13 and 15 are blank, so
+                                 ;   a line of jitter here is invisible)
+RAS_BOTTOM  = 248                ; lower border: safe time for screen updates
+RAS_BARTOP  = 16                 ; first raster line of the bar area (slide 3):
+                                 ;   starts in the upper border
+BAR_STEPS   = 57                 ; 57 steps * 4 lines = up to line 244
+
+NUM_SLIDES  = 5
+SLIDE_TIME  = 300                ; 6 seconds per slide (PAL, 50 frames/s)
+FADE_STEPS  = 5                  ; fade steps (longest fadetbl chain is 4)
+FADE_SPEED  = 4                  ; frames between two fade steps
+
+FADEBUF     = $c000              ; snapshot of color RAM for the fade-in
+
+; ---- zero page pointers ----
+txtlo  = $f5             ; text pointer for the print routines (2 bytes)
+txthi  = $f6
+vec    = $f7             ; slide init vector (2 bytes)
+updvec = $f9             ; slide update vector (2 bytes)
+scrlo  = $fb
+scrhi  = $fc
+collo  = $fd
+colhi  = $fe
+
+; ---- helper macros: print a normal / big text line ----
+!macro prtext .row, .col, .color, .txt, .len {
+    lda #<.txt
+    sta txtlo
+    lda #>.txt
+    sta txthi
+    lda #.row
+    sta prow
+    lda #.col
+    sta pcol
+    lda #.color
+    sta pcolor
+    lda #.len
+    sta plen
+    jsr print_text
+}
+
+!macro prbig .row, .col, .color, .txt, .len {
+    lda #<.txt
+    sta txtlo
+    lda #>.txt
+    sta txthi
+    lda #.row
+    sta bigrow
+    lda #.col
+    sta bigcol
+    lda #.color
+    sta bigcolor
+    lda #.len
+    sta biglen
+    jsr draw_big
+}