Add progress bar.

This commit is contained in:
giomba 2022-12-04 21:22:59 +01:00
parent f5745a7383
commit 1c581b8c2d
2 changed files with 23 additions and 5 deletions

View File

@ -1,4 +1,4 @@
5 print"merry christmas" 5 c=0
10 data"vs g3a1g2e6, c3a1g2e6" 10 data"vs g3a1g2e6, c3a1g2e6"
12 data"vs d3r1d2b6, c3r1c2g6" 12 data"vs d3r1d2b6, c3r1c2g6"
14 data"vs a3r1a2c3b1a2, g3a1g2e4r2" 14 data"vs a3r1a2c3b1a2, g3a1g2e4r2"
@ -18,7 +18,11 @@
42 data"va f6d3f1d2, e6g5r1" 42 data"va f6d3f1d2, e6g5r1"
44 data"va e4c2e3d1b2, e6e4r2" 44 data"va e4c2e3d1b2, e6e4r2"
46 data"x" 46 data"x"
100 ns%=2:vt=36874:dimn%(ns%,80),tm%(ns%),sp%(ns%) 100 print"crunching numbers..."
105 print"hold tight!"
106 print:print:print:print"this amazing xperience"
107 print"is offered by develer"
110 ns%=2:vt=36874:dimn%(ns%,80),tm%(ns%),sp%(ns%)
160 fori=0tons%:n%(i,0)=0:next 160 fori=0tons%:n%(i,0)=0:next
190 sh%=16:cv=2:in$="":c$="" 190 sh%=16:cv=2:in$="":c$=""
230 gosub800 230 gosub800
@ -61,10 +65,16 @@
690 nextd 690 nextd
700 fori=0to4 700 fori=0to4
710 pokevt+1,0:nexti 710 pokevt+1,0:nexti
720 restore
730 clr
740 sys64802 740 sys64802
750 sp%(i)=j+1 750 sp%(i)=j+1
760 tm%(i)=0:goto600 760 tm%(i)=0:goto600
800 ifc$="x"thenreturn 800 ifc$="x"thenreturn
805 c=c+1
806 d=c/409*21
807 poke304,d
808 sys49145
810 iflen(in$)=0thenreadin$ 810 iflen(in$)=0thenreadin$
820 c$=left$(in$,1) 820 c$=left$(in$,1)
830 in$=right$(in$,len(in$)-1) 830 in$=right$(in$,len(in$)-1)

View File

@ -5,6 +5,7 @@ dstPointer = $b7
dstPointerEnd = $b9 dstPointerEnd = $b9
fake_current_byte = $126 fake_current_byte = $126
count = $128 count = $128
loading_bar = $130
org $a000 org $a000
@ -37,9 +38,8 @@ coldstart SUBROUTINE
lda #$80 ; set for control messages only lda #$80 ; set for control messages only
jsr $ff90 ; control kernal messages jsr $ff90 ; control kernal messages
.oracopio: ; copy BASIC demo code in BASIC memory
jsr copycode jsr copycode
.almost_ready:
; set current BASIC line number ; set current BASIC line number
lda #$ff lda #$ff
@ -47,7 +47,7 @@ coldstart SUBROUTINE
lda #0 lda #0
sta $3b sta $3b
; set start of variables ; set start of BASIC variables
lda #<($1001 + demo_end - demo_start) lda #<($1001 + demo_end - demo_start)
sta $2d sta $2d
lda #>($1001 + demo_end - demo_start) lda #>($1001 + demo_end - demo_start)
@ -151,6 +151,12 @@ copyloop:
.finito: .finito:
rts rts
loading_feedback SUBROUTINE
ldx loading_bar
lda #$79
sta 7988,x
rts
message: message:
BYTE #$0d,#$0d,"PLEASE WAIT 20 SEC",#$0d,"I'M JUST",#$0d,"AN OLD COMPUTER",#$0d,#0 BYTE #$0d,#$0d,"PLEASE WAIT 20 SEC",#$0d,"I'M JUST",#$0d,"AN OLD COMPUTER",#$0d,#0
@ -161,6 +167,8 @@ demo_end:
DEMO_LEN SET demo_end - demo_start DEMO_LEN SET demo_end - demo_start
ECHO DEMO_LEN ECHO DEMO_LEN
. = $bff9
jmp loading_feedback
. = $bffc . = $bffc
jmp coldstart jmp coldstart