Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2018-01-10 05:32

Source File: Machine-Language-Loader.card

START PASS 2

                                                       CLEAR MEMORY AND LOAD BALGOL MACHINE-LANGUAGE DECK
                                                       P.KIMPEL, 2018-01-09.

             4      0000                   CR    DEFN  1               CARDATRON INPUT UNIT
             5      0000                         LOCN  4950
             6      4950                   START DEFN  *
                                                                       CLEAR MEMORY
             8      4950  0 0048 46 0000   *A    CLL   0,48            CLEAR THE FIRST WORD, /44=REPEAT COUNT
             9      4951  0 0000 42 4950         LDB   *-1             SET DEST ADDRESS FOR RTF
            10      4952  0 0001 20 4953         IBB   *+1,1           INCREMENT START ADDRESS
            11      4953  0 0490 29 0000         RTF   0,49            CLEAR NEXT 49 WORDS
            12      4954  0 0000 29 0000   *B    RTF   0,100           CLEAR NEXT 100-WORD BLOCK
            13      4955  0 4401 27 4950         DFL   A-,44,1         DECREMENT LOOP COUNTER
            14      4956  0 0000 32 4954         BRP   B-              LOOP UNTIL COUNT EXHAUSTED

            16      4957  0 1011 60 4994   LOOP  CNC   BUF,CR,RLO      READ A CARD, ASSUMING FORMAT 6
            17      4958  0 0000 10 4987         CAD   BUF-7           LOAD WORD FOR COL 1-3
            18      4959  0 8166 36 4961         BFA   *+2,81,66       IF COL 1=6, BRANCH AROUND
            19      4960  0 6666 00 6666         HLT   6666,6666       OTHERWISE, HALT -- NOT A FORMAT-6 CARD
            20      4961  0 0266 36 4995         BFA   DONE,02,66      IF COL 2-3=66, WE-RE DONE
            21      4962  0 1010 60 4994         CNC   BUF,CR          RE-READ CARD AND RELEASE RELOAD-LOCKOUT
            22      4963  0 0000 42 4988         LDB   BUF-6           LOAD B FROM ADDRESS IN COL 11-14
            23      4964  0 0000 49 0007         SLA   7               SHIFT COUNT IN COL 2 TO THE /31 FIELD
            24      4965  0 3110 40 4966         STA   *+1,31          STORE IN THE RTF NEXT
            25      4966  0 0000 29 4989         RTF   BUF-5,*-*       MOVE *COUNT* WORDS FROM COL 15 TO (B)
            26      4967  0 0000 30 4957         BUN   LOOP            GO GET ANOTHER CARD

            28      4968                         LOCN  4995            POSITION TO END OF MEMORY
            29      4995                   BUF   DEFN  *-1             START OF CARD BUFFER

            31      4995  0 0001 45 4951   DONE  CLA   START+1         DEFINE RTF DEST ADDR
            32      4996  0 0000 42 4995         LDB   DONE            LOAD ADDR OF PROGRAM TO B
            33      4997  0 0000 46 4950         CLL   START           CLEAR FIRST WORD TO ZERO
            34      4998  0 0480 29 4950         RTF   START,48        CLEAR ALL BUT LAST WORD OF MEMORY
            35      4999  0 1000 60 4999         CRD   *,CR            READ LOCKED-OUT CARD
            36      5000                         FINI  START               (HOPEFULLY A SIGN-6 INSTR)


SYMBOL TABLE

 4950 *A..1          4954 *B..1             8 BMOD           4994 BUF               1 CR
 4995 DONE           4957 LOOP              1 RLO            4950 START

END PASS 2, ERRORS = 0

