X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Ftools%2Fsrc%2Fbinal.asm;h=4e383f932a4b57cc33646d89edf4422fb1a52962;hb=52147402c19a69c9774bb256420a16233043d3fe;hp=e913652a7db97b5a41fa7df5a05fdb45e2ed661c;hpb=325547c41c97f16f4f6d8a0c430caf68f7fb64b6;p=h316.git

diff --git a/programs/tools/src/binal.asm b/programs/tools/src/binal.asm
index e913652..4e383f9 100644
--- a/programs/tools/src/binal.asm
+++ b/programs/tools/src/binal.asm
@@ -102,12 +102,13 @@
 *       
 ************************************************************************
 *
-	SUBR	LSTART,BO3S	BEGINNING OF THIRD STAGE LOADER
+	SUBR	BINAL,ANF
+	SUBR	LSTART,BO3S	BEGINNING OF THIRD STAGE LOADER	
 *
 	REL		RELOCATABLE MODE
 	ORG	0
 *
-	STA	STRT	SAVE AUTO START LOCATION
+ANF	STA	STRT	SAVE AUTO START LOCATION
 	CRA
 	HLT		
 	STA	ALOC	FIRST LOCATION TO PUNCH
@@ -390,7 +391,7 @@ SWRD	DAC	**
 B2AD	DAC	BO2S	START ADDRESS OF SECOND STAGE LOADER
 B3AD	DAC	BO3S	START ADDRESS OF THIRD STAGE LOADER
 *
-LDRL	DEC	300	LEADER LENGTH
+LDRL	DEC	100	LEADER LENGTH
 SZE	SZE		INSTRUCTION FOR FILL IN
 SNZ	SNZ		INSTRUCTION FOR FILL IN
 *
@@ -453,6 +454,8 @@ BO3S	DAC	*	THAT IS FOR THE SECOND STAGE LOADER
 * COMPLETE THE PAUS ROUTINE
 	LDA	PJ1	
 	STA	J1
+	LDA	PJ2	
+	STA	J2
 	CRA
 	STA	PAUS
 	STA	JH
@@ -563,7 +566,7 @@ TSTP	OCT	'66
 TDAT	OCT	'11
 *
 *
-LWRD	OCT	66
+LWRD	OCT	66	CAN'T BE INITIALLY ZERO!
 	INA	'1001	CLEAR A AND INPUT
 	JMP	*-1
 	ICA
@@ -575,7 +578,9 @@ LWRD	OCT	66
 *******************
 * THE ATTIC OF THE THIRD STAGE LOADER
 PJ1	JMP*	PAUS	LAST LOCATION THAT WILL BE LOADED FROM TAPE!
+PJ2	OCP	'101	STOP READER
 PAUS	DAC	**	WILL BE INITIALIZED TO ZERO BEFORE PUNCHING
+J2	DAC	**	BECOMES OCP '101 ON START OF LOAD
 JH	HLT		BECOMES CLEARED ON START OF LOAD
 J1	DAC	**	BECOMES JMP* PAUS ON START OF LOAD
 *
@@ -589,5 +594,5 @@ PTR	DAC	**	MEMORY POINTER
 CNT	DAC	**	WHERE TO LOAD? CAN BE CHANGED.
 *
 ************************************************************
-	END		THAT'S IT, ENJOY!
+	END	ANF	THAT'S IT, ENJOY!