~rabbits/potato

e6989e091141a419ea116a561e671f63e1b58f20 — neauoire 2 months ago f5ee23a
Improved meta app
1 files changed, 7 insertions(+), 7 deletions(-)

M src/apps.tal
M src/apps.tal => src/apps.tal +7 -7
@@ 448,31 448,31 @@ JMP2r
		DUP2 .Disk/read DEO2

	.Screen/x DEI2 STH2 DUP2r LIT2r 0040 ADD2r
	;draw-lb JSR2
	( body )
	STH2kr .Screen/x DEO2
	;draw-str JSR2
	#20 ;draw-chr JSR2
	#05 ;draw-chr/color STA
	;draw-str JSR2 ;draw-lb JSR2
	;draw-str JSR2 ;draw-lb JSR2 ;draw-lb JSR2
	STH2kr .Screen/x DEO2
	#0a ;draw-chr/color STA
	;draw-str JSR2 ;draw-lb JSR2
	;draw-str JSR2 ;draw-lb JSR2 ;draw-lb JSR2
	STH2r .Screen/x DEO2
	;draw-str JSR2 ;draw-lb JSR2
	;draw-str JSR2 ;draw-lb JSR2 ;draw-lb JSR2
	POP2
	( icon )
	STH2r .Screen/x DEO2
	.Screen/y DEI2k #0018 SUB2 ROT DEO2
	STH2r #0008 SUB2 .Screen/x DEO2
	.Screen/y DEI2k #003a SUB2 ROT DEO2
	;&icon LDA2 #0100 SUB2 ;seek JSR2
	#0200 .Disk/length DEO2
	;mem-ptr JSR2
		DUP2 .Disk/read DEO2
		.Screen/addr DEO2
	#76 .Screen/auto DEO
	#0c .Screen/sprite 
	#02 .Screen/sprite 
		DEOk DEOk DEOk DEOk
		DEOk DEOk DEOk DEO

	#01 .Screen/auto DEO

JMP2r