This commit is contained in:
~d6 2023-02-02 17:16:50 -05:00
parent afe48d817e
commit 8e170bfa7f
1 changed files with 13 additions and 4 deletions

View File

@ -142,7 +142,7 @@
;on-read .Console/vect DEO2 ( set up stdin ) ;on-read .Console/vect DEO2 ( set up stdin )
( set to 01 to enable debug log ) ( set to 01 to enable debug log )
#01 .debug STZ #00 .debug STZ
.debug LDZ ?&continue BRK &continue .debug LDZ ?&continue BRK &continue
#99 #010e DEO #99 #010e DEO
@ -345,7 +345,6 @@
DUP LIT "9 GTH ?end-arg DUP LIT "9 GTH ?end-arg
!add-to-arg !add-to-arg
@debug-arg ( n* -> ) @debug-arg ( n* -> )
&short SWP debug-arg/byte &short SWP debug-arg/byte
&byte DUP #04 SFT debug-arg/char &byte DUP #04 SFT debug-arg/char
@ -393,6 +392,15 @@
&!2004 POP2 debug-priv BRK &!2004 POP2 debug-priv BRK
&change SWP LIT "h EQU SWP STZ BRK ( h is set, l is unset ) &change SWP LIT "h EQU SWP STZ BRK ( h is set, l is unset )
@debug-read ( c^ -> )
.debug LDZ ?&continue POP JMP2r &continue
reset-scratch
debug-arg/byte
#0a scratch-write
scratch-len .File1/len DEO2
;scratch .File1/w DEO2
JMP2r
@debug-csi ( c^ -> ) @debug-csi ( c^ -> )
.debug LDZ ?&continue POP JMP2r &continue .debug LDZ ?&continue POP JMP2r &continue
reset-scratch reset-scratch
@ -595,7 +603,7 @@
@start-csi ( c^ -> ) @start-csi ( c^ -> )
POP reset-args ;on-read-csi .Console/vect DEO2 BRK POP reset-args ;on-read-csi .Console/vect DEO2 BRK
@on-read @on-read ( -> )
.Console/r DEI .Console/r DEI
DUP ?&ok POP BRK DUP ?&ok POP BRK
&ok ( #42 .tint STZ ) &ok ( #42 .tint STZ )
@ -622,7 +630,7 @@
clear-cursor clear-cursor
#0001 back-n #0001 back-n
draw-cursor draw-cursor
JMP2r BRK
@read-esc ( 1b -> ) @read-esc ( 1b -> )
POP ;on-read-esc .Console/vect DEO2 BRK POP ;on-read-esc .Console/vect DEO2 BRK
@ -654,6 +662,7 @@
at-max-y ?scroll down BRK at-max-y ?scroll down BRK
@read-printable ( c -> ) @read-printable ( c -> )
( DUP debug-read )
.tint LDZ SWP DUP2 cur-addr STA2 .tint LDZ SWP DUP2 cur-addr STA2
draw-cell draw-cell
forward BRK forward BRK