Add informative message for user.

src/main.asm

@@ -9,7 +9,7 @@ count = $128
     org $a000
 
     WORD coldstart
-    WORD warmstart
+    WORD coldstart
     BYTE #$41, #$30, #$c3, #$c2, #$cd
 
 coldstart SUBROUTINE
@@ -52,15 +52,17 @@ coldstart SUBROUTINE
     lda #$15
     sta $2e
 
-    ; setup fake chrin
+    jsr clear_color_ram
-    ; sei
+
+pm:
+    lda #<message
+    ldy #>message
+    jsr $cb1e
+
+    ; jmp .
+
     ; lda #0
-    ; sta fake_current_byte
+    ; jsr $c871
-    ; lda #<fake_chrin
-    ; sta $324
-    ; lda #>fake_chrin
-    ; sta $325
-    ; cli
 
     jmp $c483 ; BASIC
 
@@ -84,55 +86,29 @@ fake_chrin SUBROUTINE
     clc
     rts
 
-    ; jsr $e3a4   ; initialize BASIC RAM locations
 
-    ;  ldx #$00    ; BASIC execute pointer
+clear_color_ram SUBROUTINE
-    ;  ldy #$10
-    ;  stx $7a
-    ;  sty $7b
-    ; save to 7a !!!!!!
-
-    ; BASIC "RUN"
-    ; lda #$8a
-    ; sta $200
-    ; lda #$0
-    ; sta $201
-    ; lda #$8a
-    ; jmp $c7ed
-
-
-warmstart SUBROUTINE
     lda #$02
     ldx #$00
-clear_color_ram:
+.loop:
-    sta $9400,x
-    sta $9500,x
     sta $9600,x
     sta $9700,x
     dex
-    bne clear_color_ram
+    bne .loop
+    rts
 
+print_message SUBROUTINE
     ldx #$00
 print:
     lda message,x
-    beq infine_loop
+    beq .end
     sec
     sbc #$40
-    sta 7724,x
+    sta 7834,x
-    sta 7746,x
-    sta 7768,x
-    sta 7790,x
     inx
     jmp print
-
+.end:
-infine_loop:
+    rts
-    ldx #$00
-loop:
-    stx 7680
-    dex
-    bne loop
-    jmp infine_loop
-
 
 copycode SUBROUTINE
     sei
@@ -190,7 +166,7 @@ copyloop:
 ;    rts
 
 message:
-    BYTE "CIAO DEVELER BY GIOMBA",#$0
+    BYTE #$0d,#$0d,"TYPE 'RUN'",#$0d,"THEN WAIT 20 SEC",#$0d,#$0d,#0
 
 basicdemo:
     .incbin "res/stillenacht.raw"