X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Ftools%2Fsrc%2Fbinal.asm;h=250fa6ad361b539669d88e3396c08c0ce4edf873;hb=047c458fe956cb5142870d3095ae22215c55a100;hp=87de4f5e050e45c153ceb46a5a2771b1243f39b3;hpb=2dbecc757e86084187009049d87a8df03317eea7;p=h316.git

diff --git a/programs/tools/src/binal.asm b/programs/tools/src/binal.asm
index 87de4f5..250fa6a 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
@@ -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
 *