*** 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 87de4f5e050e45c153ceb46a5a2771b1243f39b3..250fa6ad361b539669d88e3396c08c0ce4edf873 100644 (file)
--- 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
 *