X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Ftools%2Fsrc%2Fbinal.asm;h=4022b1475c02b24d7c73327f4265914afccde058;hb=d670f1ce11ea8e29423654410287d5f614f56765;hp=8bba1a9347b961b450e60cc4afdc8f4afc903d2a;hpb=4e8a28592944f3ebc31901d2c29f4a4d0548f890;p=h316.git

diff --git a/programs/tools/src/binal.asm b/programs/tools/src/binal.asm
index 8bba1a9..4022b14 100644
--- a/programs/tools/src/binal.asm
+++ b/programs/tools/src/binal.asm
@@ -51,7 +51,7 @@
 	REL		RELOCATABLE MODE
 	ORG	0
 *
-	STA	STRT
+	STA	STRT	SAVE AUTO-START ADDRESS
 	HLT		
 	STA	ALOC	FIRST LOCATION TO PUNCH
 	HLT
@@ -61,7 +61,22 @@
 	JST	PLDR	PUNCH OUT LEADER
 	JST	PS2	PUNCH SECOND STAGE LOADER
 	JST	PS3	PUNCH THIRD STAGE LOADER
-*	
+	JST	PDAT	PUNCH OUT DATA
+* 
+	LDA	STRT
+	SZE
+	JMP	AUTO	
+	JST	SBLK	MAKE STOP BLOCK
+	JMP	EOT
+AUTO	JST	ABLK	MAKE ADRESS-BLOCK
+	JST	GBLK	MAKE GO-BLOCK
+EOT	JST	PLDR	END OF JOB HAS COME.
+	HLT	
+	JMP	*-1	NO ESCAPE
+*
+**********************
+* PUNCH THE DESIRED DATA
+PDAT	DAC	**
 *
 LOOP	CRA		MAIN LOOP
 	LDA	ELOC
@@ -69,7 +84,7 @@ LOOP	CRA		MAIN LOOP
 	AOA
 	STA	AVAL	DETERMINED AVAILABLE DATA
 	SNZ
-	JMP	EDAT	END OF DATA, WE ARE HAPPY
+	JMP*	PDAT	END OF DATA, WE ARE HAPPY, RETURN
 *
 * FIRST TRY TO ESABLISH A ZERO BLOCK
 	LDA	ALOC
@@ -112,19 +127,7 @@ BEND	LDA	BCNT
 	JST	DBLK	PUNCH THE BLOCK
 	JMP	LOOP	BACK TO MAIN LOOP
 *
-*
-* END OF DATA
-EDAT	LDA	STRT
-	SZE
-	JMP	AUTO	
-	JST	SBLK	MAKE STOP BLOCK
-	JMP	EOT
-AUTO	JST	ABLK	MAKE ADRESS-BLOCK
-	JST	GBLK	MAKE GO-BLOCK
-EOT	JST	PLDR	END OF JOB HAS COME.
-	HLT	
-	JMP	*-1	NO ESCAPE
-*
+**************************
 *
 AVAL	DEC	0	AVAILABLE DATA SIZE
 IPTR	DEC	0	IMAGINARY POINTER