EDASS-128-RASTER-BARS-NEW-KNOWLEDGE
--------------------------------------------------------------------------------------------------
TOOL: 		EDASS-128 {Commodore C128 EDITOR & ASSEMBLER}
Language: 	Assembler 
Extra:		-
Author: 	Misel Zivanovic
Note:		(C) 8th FEB 2026  - www.lived.ch, mzretro.ch
---------------------------------------------------------------------------------------------------

This is a little experiment and even if it is far away from perfect, it is still somehow interesting.
What i have found out during the journey, is how ENTER won't work if I lda #$128, sta $d01a
And actually, if I do the same for sta $d011, then no text is visible and ENTER is not working too.
Furthermore, also small/capitol switching with the keyboard is not working.

But it is making bar scrolling much smoother.
Probably there is a way to have all of this running properly.
For now let us be happy with this little bar scrolling.

I assume much more could be achieved here with additional experimenting!
Give it a go!!! 


rastbars2.asm      -a:0011-a:    -e:

;--------------------------------------
         *=  $1300
         .obj m
         .bank 15
;--------------------------------------
;
;
         lda #147      ;clear screen
         jsr $ffd2     ;
         lda #22       ;lowercase map
         sta $a2c
;
         jsr gotext
;                      ;runs smooth but
         lda #128      ;if active, enter
         sta $d01a     ;doesn't work
;                      ;use run/stop
;                      ;restore!
 start   jsr $ffe4
         cmp #$0d      ;hold enter >quit
         beq basic
         ldx #$00
 spin    ldy #16       ;start position
;        cpy #$00
;        beq reset
 cycle   lda color,x
 go      cpy $d012
         bne go
;        sta $d020
         sta $d021
         inx
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         cpx #16
         bne cycle
         inc spin+1
         jmp start     ;and repeat
 reset   ldy #0
         sty spin+1
         jmp start
;
 basic   lda #$0c      ;exit settings
         sta $d020
         lda #$0b
         sta $d021
         lda #$0f
         sta $f1
         lda #$14      ;uppercase map
         sta $a2c
         rts
;
;--------------------------------------
;        show text
;--------------------------------------
 gotext  lda #$00
         sta $f1       ; text color
         clc
         ldx #12
         ldy #10
         jsr $c018
         ldx #$00
 line1   lda text1,x   ;text line 1
         jsr $ffd2
         inx
         cpx #16
         bne line1
         clc
         ldx #20
         ldy #10
         jsr $c018
         ldx #$00
 line2   lda text2,x   ;text line 2
         jsr $ffd2
         inx
         cpx #16
         bne line2
         rts
;--------------------------------------
 color   .byte $01,$02,$03,$04,$05,$06
         .byte $07,$08,$09,$0a,$0b,$0c
         .byte $0e,$0d,$0f,$00
 text1   .text "C128 Color Bars!"
 text2   .text "Press ENTER=QUIT"