Fix comment
This commit is contained in:
parent
f8c728d331
commit
7b75c65087
2
tar.tal
2
tar.tal
|
@ -59,7 +59,7 @@
|
||||||
( print up to `len` bytes from string. stops on NUL. )
|
( print up to `len` bytes from string. stops on NUL. )
|
||||||
@lprint ( s* len* -> )
|
@lprint ( s* len* -> )
|
||||||
OVR2 ADD2 SWP2 ( limit* s* )
|
OVR2 ADD2 SWP2 ( limit* s* )
|
||||||
&loop LDAk ?{ !&done } ( limit* s*)
|
&loop LDAk ?{ !&done } ( limit* s* )
|
||||||
LDAk #18 DEO INC2 GTH2k ?&loop ( limit* s+1* )
|
LDAk #18 DEO INC2 GTH2k ?&loop ( limit* s+1* )
|
||||||
&done POP2 POP2 JMP2r ( )
|
&done POP2 POP2 JMP2r ( )
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue