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