get cold start display looking okay
This commit is contained in:
1 parent
97988f1c19
commit
d4531592df
2 files changed
+23
-4
No files matched your search
@@ -6,9 +6,14 @@ basic_cold_start:
|
||||
;; Initialise interpretor
|
||||
;; Print start up message
|
||||
|
||||
;; Print coloured part of the message
|
||||
ldy #>startup_message
|
||||
lda #<startup_message
|
||||
jsr print_string
|
||||
|
||||
;; Print the rest of the start up message
|
||||
ldx #34
|
||||
jsr print_packed_message
|
||||
|
||||
;; jump into warm start loop
|
||||
jmp basic_warm_start
|
||||
@@ -21,9 +26,13 @@ startup_message:
|
||||
.byte $1C,$B4
|
||||
.byte $9E,$B5
|
||||
.byte $1E,$A1
|
||||
;; <RVS><WHITE>MEGA<NORMAL>BASIC
|
||||
.byte $12,$05,$4D,$45,$47,$41,$92,$42,$41,$53,$49,$43
|
||||
;; carriage return at end
|
||||
.byte $0D
|
||||
;; <RVS><WHITE>MEGA<NORMAL>BASIC\r\r
|
||||
.byte $12,$05,$4D,$45,$47,$41,$92
|
||||
.byte $42,$41,$53,$49,$43
|
||||
.byte $20,$56,$32,$2e,$30,$2e,$30
|
||||
.byte $0D,$0D
|
||||
|
||||
;; XXX - Hard code in the 38911 for now
|
||||
.byte $33,$38,$39,$31,$31,$20
|
||||
|
||||
.byte 0
|
||||
@@ -43,6 +43,7 @@ char *error_list[]={
|
||||
"VERIFYING",
|
||||
"SAVING",
|
||||
"ERROR", // #33
|
||||
"BYTES FREE.\r\r", // #34
|
||||
NULL};
|
||||
|
||||
// Token $FF is end of message, so we can have only 255 unique words
|
||||
@@ -222,6 +223,15 @@ int main(void)
|
||||
|
||||
fprintf(stderr,"Space saving = %d bytes\n",raw_size-packed_len-token_count);
|
||||
|
||||
if (packed_len>255) {
|
||||
fprintf(stderr,"ERROR: packed_len>255\n");
|
||||
exit(-1);
|
||||
}
|
||||
if (token_count>255) {
|
||||
fprintf(stderr,"ERROR: token_count>255\n");
|
||||
exit(-1);
|
||||
}
|
||||
|
||||
printf("packed_message_chars:\n");
|
||||
for(int i=0;i<char_max;i++)
|
||||
printf("\t.byte $%02X ; '%c'\n",char_freqs[i].c,char_freqs[i].c);
|
||||
|
||||
Reference in new issue
Block a user