*** empty log message ***

diff --git a/programs/tools/src/binal.asm b/programs/tools/src/binal.asm
index 8bba1a9347b961b450e60cc4afdc8f4afc903d2a..4022b1475c02b24d7c73327f4265914afccde058 100644 (file)
--- a/programs/tools/src/binal.asm
+++ b/programs/tools/src/binal.asm
@@ -51,7 +51,7 @@
        REL             RELOCATABLE MODE
        ORG     0
 *
-       STA     STRT
+       STA     STRT    SAVE AUTO-START ADDRESS
        HLT             
        STA     ALOC    FIRST LOCATION TO PUNCH
        HLT
@@ -61,7 +61,22 @@
        JST     PLDR    PUNCH OUT LEADER
        JST     PS2     PUNCH SECOND STAGE LOADER
        JST     PS3     PUNCH THIRD STAGE LOADER
-*      
+       JST     PDAT    PUNCH OUT DATA
+* 
+       LDA     STRT
+       SZE
+       JMP     AUTO    
+       JST     SBLK    MAKE STOP BLOCK
+       JMP     EOT
+AUTO   JST     ABLK    MAKE ADRESS-BLOCK
+       JST     GBLK    MAKE GO-BLOCK
+EOT    JST     PLDR    END OF JOB HAS COME.
+       HLT     
+       JMP     *-1     NO ESCAPE
+*
+**********************
+* PUNCH THE DESIRED DATA
+PDAT   DAC     **
 *
 LOOP   CRA             MAIN LOOP
        LDA     ELOC
@@ -69,7 +84,7 @@ LOOP  CRA             MAIN LOOP
        AOA
        STA     AVAL    DETERMINED AVAILABLE DATA
        SNZ
-       JMP     EDAT    END OF DATA, WE ARE HAPPY
+       JMP*    PDAT    END OF DATA, WE ARE HAPPY, RETURN
 *
 * FIRST TRY TO ESABLISH A ZERO BLOCK
        LDA     ALOC
@@ -112,19 +127,7 @@ BEND       LDA     BCNT
        JST     DBLK    PUNCH THE BLOCK
        JMP     LOOP    BACK TO MAIN LOOP
 *
-*
-* END OF DATA
-EDAT   LDA     STRT
-       SZE
-       JMP     AUTO    
-       JST     SBLK    MAKE STOP BLOCK
-       JMP     EOT
-AUTO   JST     ABLK    MAKE ADRESS-BLOCK
-       JST     GBLK    MAKE GO-BLOCK
-EOT    JST     PLDR    END OF JOB HAS COME.
-       HLT     
-       JMP     *-1     NO ESCAPE
-*
+**************************
 *
 AVAL   DEC     0       AVAILABLE DATA SIZE
 IPTR   DEC     0       IMAGINARY POINTER