M src/manifest.tal => src/manifest.tal +2 -4
@@ 337,6 337,7 @@ JMP2r
DUP #00 EQU ,&skip-key JCN
DUP #08 NEQ ,&no-del JCN ;&del ,&inv JMP &no-del
DUP #09 NEQ ,&no-tab JCN ;&tab ,&inv JMP &no-tab
+ DUP #0d NEQ ,&no-ent JCN ;&ent ,&inv JMP &no-ent
DUP #20 NEQ ,&no-spc JCN ;&spc ,&inv JMP &no-spc
DUP #1b NEQ ,&no-esc JCN ;&esc ,&inv JMP &no-esc
DUP ;draw-chr JSR2
@@ 346,10 347,7 @@ JMP2r
JMP2r
&inv .Screen/x DEI2 #0010 SUB2 .Screen/x DEO2 ROT POP ;draw-str JSR2 POP2 JMP2r
- &del "del $1
- &tab "tab $1
- &spc "spc $1
- &esc "esc $1
+ &del "del $1 &tab "tab $1 &ent "ent $1 &spc "spc $1 &esc "esc $1
@draw-str ( str* -- str* )
M src/nasu.tal => src/nasu.tal +3 -5
@@ 934,7 934,7 @@ JMP2r
;brush-icn .Screen/addr DEO2
#01 [ .settings/tool LDZ #00 EQU ] ADD .Screen/sprite DEO
STH2kr #0029 ADD2 .Screen/x DEO2
- ;tool-selector .Screen/addr DEO2
+ ;select-icn .Screen/addr DEO2
#01 [ .settings/tool LDZ #01 EQU ] ADD .Screen/sprite DEO
STH2r #0030 ADD2 .Screen/x DEO2
;zoom-icns [ #00 .settings/zoom LDZ #30 SFT2 ADD2 ] .Screen/addr DEO2
@@ 1021,9 1021,9 @@ JMP2r
@draw-hex ( char color -- )
- SWP #0f AND [ DUP #09 GTH #07 MUL ADD #30 ADD ] SWP
+ SWP #0f AND [ DUP #09 GTH #07 MUL ADD #30 ADD ]
- SWP #20 SUB #00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2
+ #20 SUB #00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2
.Screen/sprite DEO
.Screen/x DEI2k #0008 ADD2 ROT DEO2
@@ 1399,8 1399,6 @@ JMP2r
( br ) 00ff 0000 0000 0000
( mc ) 4080 0000 0000 0000
-
-
~src/font.tal
~src/manifest.tal