commit c0e6b5a

Grabbed latest M/PC

 1@@ -36,6 +36,8 @@
 2 	spacer/<draw>
 3 	input/<bind>
 4 	bios/<welcome>
 5+	.Console/type DEI ?{ BRK }
 6+	loader/<set-instant>
 7 	BRK
 8 
 9 @meta 00
10@@ -952,11 +954,20 @@
11 @loader/<bind> ( path* -- )
12 	;&buf ,&+ptr STR2
13 	&>w
14-		LDAk DUP ?{ POP POP2 ;&callback !fade-out/<bind> }
15+		LDAk DUP ?{ POP POP2 !/<launch> }
16 		#00 [ LIT2 &+ptr =&buf ] INC2k ,&+ptr STR2
17 		STA2
18 		INC2 !/>w
19 
20+@loader/<set-instant> ( -- )
21+	[ LIT2 01 _loader/instant ] STR
22+	JMP2r
23+
24+@loader/<launch> ( -- )
25+	[ LIT &instant $1 ] ?{ ;&callback !fade-out/<bind> }
26+	;&callback .Screen/vector DEO2
27+	JMP2r
28+
29 @loader/callback ( -> )
30 	#0000 DUP2 Screen/<set-pos>
31 	( | Clear screen )