ATARI-COLOR-BARS
By lived.ch, 00:09 07.12.2024
Computer: ATARI-800XL
-------------------------------------------------------------------------------
Source Code: Assembly
Application: SynAssembler {ATARI} 
Have fun coding with SynAssembler by SYNAPSE!
{ BastichB 64K made a video about the company: https://www.youtube.com/watch?v=V2TItwHwRko }


Most important part here is the part until the line 00090! {just kidding!}
I am getting rid of the extremely annoying KEY-BEEP!
Then very slowly navigation in Editor!
Then also left margin is killed!
And key-repeat-delay is reduced!

How to run the code below?

1. copy the source code
2. have Altirra running and choose from the menu: View/Text Selection/Paste Text
   shortcut = Alt + SHIFT + V
3. type RUN {in direct mode, no line numbers} and hit ENTER
4. type RUN $3000 and hit ENTER
5. That was it! {easy, right!}

Hint: After the PASTE you can set the WARP SPEED {in MENU under SYTEM/WARP SPEED}
      This will accelerate this step and make the code quickly available.
      Don't forget to TURN OFF the WARP SPEED! afterwards.
-------------------------------------------------------------------------------

00010  .OR $3000
00015  .LI OFF
00020  JSR $F420   ;CLEAR SREEN
00025 ;------------------------------
00030 ;NO KEY SND, FASTER
00035 ;------------------------------
00040  LDA #20
00045  STA $02D9 ;KEY-DELAY
00050  LDA #3
00055  STA $02DA ;KEY-REPEAT SPEED
00060  STA $02DB ;KEY-CLICK OFF
00065  LDA #0
00070  STA $52   ;NO LEFT MARGIN
00075  LDA #0
00080  STA $2C6  ;SCRN COLOR
00085  LDA #0
00090  STA $2C8  ;BORDER COLOR
00120 ;------------------------------
00125 ;MAIN LOOP (START)
00130 ;------------------------------
00150 START LDX #$00
00160       LDY #10       ;START POS
00170 GET   LDA COL,X
00180       NOP
00190       NOP
00200       NOP
00210       NOP
00220       NOP
00230       NOP
00240 GO    CPY $D40B
00250       BNE GO
00260       STA $D01A	;COLOR
00270       STA $D018	;COLOR
00280       INX
00290       INY
00350       CPX #72
00360       BNE GET
00361       LDA $2FC    ;HIT ENTER
00362       CMP #$0C    ;TO
00363       BEQ QUIT    ;QUIT
00370       JMP START   ;AND REPEAT
00371 QUIT  RTS
00380 COL   .DA $01,$02,$03,$04,$05,$06
00390       .DA $08,$08,$08,$08,$08,$08
00400       .DA $06,$05,$04,$03,$02,$01
00401       .DA $A1,$A2,$A3,$A4,$A5,$A6
00402       .DA $A8,$A8,$A8,$A8,$A8,$A8
00403       .DA $A6,$A5,$A4,$A3,$A2,$A1
00405       .DA $D1,$D2,$D3,$D4,$D5,$D6
00406       .DA $D8,$D8,$D8,$D8,$D8,$D8
00407       .DA $D6,$D5,$D4,$D3,$D2,$D1
00500       .EN