1 files changed, 4 insertions(+), 4 deletions(-)

M src/adelie.tal

@@ 58,7 58,7 @@ BRK
 
 @on-console ( -> )
 
-	;src STH2
+	LIT2r :src
 	( read source )
 	.Console/read DEI
 	DUP #20 LTH OVR #7f GTH ORA ,&end JCN


@@ 78,13 78,13 @@ BRK
 		( halt ) #010f DEO
 		&has-slides
 
-	.slideshow/wait LDZ #ff NEQ ,&has-timer JCN
+	.slideshow/wait LDZ INC ,&has-timer JCN
 		BRK
 		&has-timer
 
 	.slideshow/wait LDZk #01 SUB STHk SWP STZ
 
-	STHr #ff NEQ ,&no-end JCN
+	STHr INC ,&no-end JCN
 		#00 .slideshow/stop STZ
 		;next-slide JSR2
 		&no-end


@@ 239,7 239,7 @@ JMP2
 @select-slide ( id -- )
 
 	( missing slide )
-	DUP #ff NEQ ,&continue JCN
+	INCk ,&continue JCN
 		POP JMP2r
 		&continue