*** 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 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
 *
        REL             RELOCATABLE MODE
        ORG     0
 *

-       STA     STRT
+       STA     STRT    SAVE AUTO-START ADDRESS

        HLT             
        STA     ALOC    FIRST LOCATION TO PUNCH
        HLT
        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     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
 *
 LOOP   CRA             MAIN LOOP
        LDA     ELOC


@@ -69,7 +84,7 @@ LOOP  CRA             MAIN LOOP
        AOA
        STA     AVAL    DETERMINED AVAILABLE DATA
        SNZ
        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
 *
 * 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
 *
        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
 *
 AVAL   DEC     0       AVAILABLE DATA SIZE
 IPTR   DEC     0       IMAGINARY POINTER