pause completion for now
This commit is contained in:
parent
e1a559d850
commit
841b09b686
|
@ -654,14 +654,6 @@
|
||||||
@move-to-message-line ( -> )
|
@move-to-message-line ( -> )
|
||||||
#0000 .term/rows LDZ2 #0002 ADD2 ;term-move-cursor JMP2
|
#0000 .term/rows LDZ2 #0002 ADD2 ;term-move-cursor JMP2
|
||||||
|
|
||||||
( COMPLETION )
|
|
||||||
|
|
||||||
@is-space ( c^ -> bool^ )
|
|
||||||
DUP #21 LTH SWP #7e GTH ORA JMP2r
|
|
||||||
|
|
||||||
@non-space ( c^ -> bool^ )
|
|
||||||
,is-space JSR #00 EQU JMP2r
|
|
||||||
|
|
||||||
( start a prompt on the message line )
|
( start a prompt on the message line )
|
||||||
( )
|
( )
|
||||||
( the arguments are as follows: )
|
( the arguments are as follows: )
|
||||||
|
|
Loading…
Reference in New Issue