@@ 50,7 50,7 @@ BRK
;&c .File/read DEO2
.File/success DEI2 #0000 EQU2 ?&eof
[ LIT &c $1 ] walk
- ,&s JMP
+ !&s
&eof !print-summary
( .. )
@@ 105,7 105,7 @@ JMP2r
;token INC2 OVR2 scpy
.File/name DEO2
#0000 .stats/lines STZ2
- ;&cleanup JMP2
+ !&cleanup
&no-inc
( 2 elements )
@@ 271,10 271,10 @@ JMP2r
@|stdlib )
@ciuc ( c -- f ) LIT "A SUB #19 LTH JMP2r
-@scap ( str* -- end* ) LDAk #00 NEQ JMP JMP2r &w INC2 LDAk ?&w JMP2r
+@scap ( str* -- end* ) LDAk #00 NEQ [ JMP JMP2r ] &w INC2 LDAk ?&w JMP2r
@sput ( chr str* -- ) scap STA JMP2r
@slen ( str* -- len* ) DUP2 scap SWP2 SUB2 JMP2r
-@scmp ( a* b* -- f ) STH2 &l LDAk LDAkr STHr ANDk #00 EQU ?&e NEQk ?&e POP2 INC2 INC2r ,&l JMP &e NIP2 POP2r EQU JMP2r
+@scmp ( a* b* -- f ) STH2 &l LDAk LDAkr STHr ANDk #00 EQU ?&e NEQk ?&e POP2 INC2 INC2r !&l &e NIP2 POP2r EQU JMP2r
@sclr ( str* -- ) LDAk ?&w POP2 JMP2r &w STH2k #00 STH2r STA INC2 LDAk ?&w POP2 JMP2r
@scpy ( src* dst* -- ) OVR2 LDA ?&e POP2 POP2 JMP2r &e STH2 &w LDAk STH2kr STA INC2r INC2 LDAk ?&w POP2 #00 STH2r STA JMP2r
@skey ( key buf -- proc ) OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r