Browse code
(console.tal) Do not eval on space
Devine Lu Linvega authored on 06/04/2023 00:18:03
Showing 1 changed files
| ... | ... |
@@ -26,8 +26,11 @@ BRK |
| 26 | 26 |
|
| 27 | 27 |
;buf |
| 28 | 28 |
DUP2 ;quit-txt scmp ?quit |
| 29 |
+ |
|
| 29 | 30 |
;yousaid-txt print-str |
| 30 |
- DUP2 print-str #0a18 DEO |
|
| 31 |
+ LIT "" #18 DEO |
|
| 32 |
+ DUP2 print-str |
|
| 33 |
+ LIT "" #18 DEO #0a18 DEO |
|
| 31 | 34 |
sclr |
| 32 | 35 |
|
| 33 | 36 |
BRK |
| ... | ... |
@@ -47,7 +50,7 @@ BRK |
| 47 | 50 |
|
| 48 | 51 |
JMP2r |
| 49 | 52 |
|
| 50 |
-@skey ( key buf -- proc ) OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r |
|
| 53 |
+@skey ( key buf -- proc ) OVR #20 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r |
|
| 51 | 54 |
@sclr ( str* -- ) LDAk ?&w POP2 JMP2r &w STH2k #00 STH2r STA INC2 LDAk ?&w POP2 JMP2r |
| 52 | 55 |
@scap ( str* -- end* ) LDAk ?&w JMP2r &w INC2 LDAk ?&w JMP2r |
| 53 | 56 |
@sput ( chr str* -- ) scap INC2k #00 ROT ROT STA STA JMP2r |