boot-maker: Fix warnings (missing header file)

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

diff --git a/programs/tools/src/binal.asm b/programs/tools/src/binal.asm
index e913652a7db97b5a41fa7df5a05fdb45e2ed661c..4e383f932a4b57cc33646d89edf4422fb1a52962 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
@@ -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!