diff --git a/src/manifest.tal b/src/manifest.tal index d224df9..117a3ab 100644 --- a/src/manifest.tal +++ b/src/manifest.tal @@ -190,13 +190,13 @@ JMP2r LDA2k SWP2 #0004 ADD2 STH2k ;draw-str JSR2 ( fill ) - #08 STH2r ;slen JSR2 NIP SUB #00 + #10 STH2r ;slen JSR2 NIP SUB #00 &loop #20 ;draw-chr JSR2 INC GTHk ,&loop JCN POP2 - SWP2 SWP ;draw-mod JSR2 - ;draw-key JSR2 + .Screen/x DEI2 #0010 SUB2 .Screen/x DEO2 + SWP2 ;draw-key JSR2 ;draw-mod JSR2 JMP2r @@ -208,6 +208,7 @@ JMP2r &loop STHkr OVR SFT #01 AND #00 EQU ,&no-button JCN #00 OVR #30 SFT2 ;buttons-icns ADD2 ;draw-chr/raw JSR2 + .Screen/x DEI2 #0010 SUB2 .Screen/x DEO2 &no-button INC GTHk ,&loop JCN POP2 @@ -235,11 +236,12 @@ JMP2r 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 + .Screen/x DEI2 #0010 SUB2 .Screen/x DEO2 &skip-key POP JMP2r - &inv ROT POP ;draw-str JSR2 POP2 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