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

diff --git a/programs/tools/src/binal.asm b/programs/tools/src/binal.asm
index b93caff..4e383f9 100644
--- a/programs/tools/src/binal.asm
+++ b/programs/tools/src/binal.asm
@@ -391,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
 *
@@ -454,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
@@ -564,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
@@ -576,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
 *
@@ -590,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!