~rabbits/nasu

b11c93eb7eec5f9ea2c10b40f8dd6a65cbad3dc5 — Devine Lu Linvega 8 months ago 6ca9eb4
Aligned shortcuts
1 files changed, 6 insertions(+), 4 deletions(-)

M src/manifest.tal
M src/manifest.tal => src/manifest.tal +6 -4
@@ 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