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,87 @@
+; -----------------------------------------------------------
+; slide3.asm - OUR SECOND GAME: IS COMING
+;   raster bars running on the border only, drop-shadowed
+;   big letters in the middle
+; -----------------------------------------------------------
+
+s3_init:
+    jsr clear_screen
+    +prtext  4, 12, WHITE,  txt_secondgame, txt_secondgame_end - txt_secondgame
+    +prbig   8,  3, DGREY,  big_iscoming, 9   ; drop shadow first (+1 row, +1 col)
+    +prbig   7,  2, YELLOW, big_iscoming, 9   ; then the letters on top of it
+    +prtext 15,  4, WHITE,  txt_pointclick, txt_pointclick_end - txt_pointclick
+    +prtext 18,  7, LGREY,  txt_steam, txt_steam_end - txt_steam
+    lda #0
+    sta s3phase
+    rts
+
+s3_update:
+    inc framectr
+    lda framectr         ; bars scroll one step every 2nd frame
+    and #1
+    bne s3_hold
+    inc s3phase
+s3_hold:
+
+    ; chase the beam: every 4th raster line from RAS_BARTOP down,
+    ; set the BORDER color from the cyclic 64-entry bar table;
+    ; the background stays black so the text remains readable
+    lda #RAS_BARTOP
+    sta s3line
+    ldx #0               ; bar step counter
+s3_bar:
+    lda s3line
+s3_wait:
+    cmp RASTER
+    bne s3_wait
+    txa
+    clc
+    adc s3phase
+    and #63
+    tay
+    lda rastbl,y
+    sta BORDER
+    lda s3line
+    clc
+    adc #4
+    sta s3line
+    inx
+    cpx #BAR_STEPS
+    bne s3_bar
+
+    lda #BLACK           ; below the bar area: back to black
+    sta BORDER
+
+s3_wbot:                 ; keep the one-call-per-frame contract
+    lda RASTER
+    cmp #RAS_BOTTOM
+    bne s3_wbot
+    rts
+
+; ---- data ----
+rastbl:                  ; raster bar colors (64 entries, cyclic):
+                         ;   red, green, blue, grey ramps
+    !byte $00, $00, $02, $02, $08, $08, $0a, $01
+    !byte $0a, $08, $08, $02, $02, $00, $00, $00
+    !byte $00, $00, $05, $05, $0d, $0d, $07, $01
+    !byte $07, $0d, $0d, $05, $05, $00, $00, $00
+    !byte $00, $00, $06, $06, $0e, $0e, $03, $01
+    !byte $03, $0e, $0e, $06, $06, $00, $00, $00
+    !byte $00, $00, $0b, $0b, $0c, $0c, $0f, $01
+    !byte $0f, $0c, $0c, $0b, $0b, $00, $00, $00
+
+txt_secondgame:
+    !scr "our second game"
+txt_secondgame_end:
+big_iscoming:
+    !scr "is coming"
+txt_pointclick:
+    !scr "a new point and click adventure"
+txt_pointclick_end:
+txt_steam:
+    !scr "will be available on steam"
+txt_steam_end:
+
+; ---- variables ----
+s3phase:   !byte 0       ; raster bar scroll offset
+s3line:    !byte 0       ; current raster line while drawing bars