|
|
|
|
@ -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 |
|
|
|
|
|
Devine Lu Linvega
4 years ago