*** empty log message ***

[h316.git] / programs / tools / src / binal.asm

diff --git a/programs/tools/src/binal.asm b/programs/tools/src/binal.asm
index b93caff6c1f4bc63e1b26e465863345955674380..250fa6ad361b539669d88e3396c08c0ce4edf873 100644 (file)
--- 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
 *