~rabbits/nasu

15f04242c335c8333fba1db50f3c844097e60ffe — Devine Lu Linvega 8 months ago 1f50f7a
Housekeeping
1 files changed, 5 insertions(+), 5 deletions(-)

M src/nasu.tal
M src/nasu.tal => src/nasu.tal +5 -5
@@ 72,8 72,8 @@
	#0000 ;set-focus JSR2
	( place )
	.Screen/width DEI2 #01 SFT2 .frame/width LDZ2 #01 SFT2 SUB2 #001c .frame/width LDZ2 .frame/height LDZ2 ;frame ;set-size JSR2
	.frame/x1 LDZ2 #0001 SUB2 .frame/y1 LDZ2 #0038 ADD2 #007f #007f ;tileview ;set-size JSR2
	.frame/x1 LDZ2 #0088 ADD2 .frame/y1 LDZ2 #0038 ADD2 #007f #007f ;nametable ;set-size JSR2
	.frame/x1 LDZ2 #0001 SUB2 .frame/y1 LDZ2 #0038 ADD2 #007f DUP2 ;tileview ;set-size JSR2
	.frame/x1 LDZ2 #0088 ADD2 .frame/y1 LDZ2 #0038 ADD2 #007f DUP2 ;nametable ;set-size JSR2
	.frame/x1 LDZ2 #0001 SUB2 .frame/y1 LDZ2 #001f #002f ;zoomview ;set-size JSR2
	.frame/x1 LDZ2 #002f ADD2 .frame/y1 LDZ2 #001f #002f ;preview ;set-size JSR2
	.frame/x1 LDZ2 #005f ADD2 .frame/y1 LDZ2 #0020 #002f ;colorview ;set-size JSR2


@@ 827,7 827,7 @@ JMP2r
		INC GTHk ,&ver JCN
	POP2

	.zoomview/x1 LDZ2 #0008 SUB2 .zoomview/y1 LDZ2 #0008 SUB2 #04 #04 ;frame-icns ;draw-frame JSR2
	.zoomview/x1 LDZ2 #0008 SUB2 .zoomview/y1 LDZ2 #0008 SUB2 #0404 ;frame-icns ;draw-frame JSR2

	( label )
	.zoomview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2


@@ 1026,8 1026,8 @@ JMP2r

@draw-once ( -- )

	.tileview/x1 LDZ2 #0008 SUB2 .tileview/y1 LDZ2 #0008 SUB2 #10 #10 ;frame-icns ;draw-frame JSR2
	.nametable/x LDZ2 #0008 SUB2 .nametable/y LDZ2 #0008 SUB2 #10 #10 ;frame-icns ;draw-frame JSR2
	.tileview/x1 LDZ2 #0008 SUB2 .tileview/y1 LDZ2 #0008 SUB2 #1010 ;frame-icns ;draw-frame JSR2
	.nametable/x LDZ2 #0008 SUB2 .nametable/y LDZ2 #0008 SUB2 #1010 ;frame-icns ;draw-frame JSR2
	#01 .Screen/auto DEO

JMP2r