mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-03-10 20:34:36 +00:00
f288264276
1. Updated compiler and library sources after second proofing pass. 2. Updated Generator and Compiler object code and build decks. 3. Updated Generator and Compiler loadable object tapes. 4. Corrections to BAC-Assembler and enhancements for additional card/tape output options. 5. Minor corrections to GEN-Assembler. 6. Updates to miscellaneous utilities and example programs.
52 lines
3.4 KiB
Plaintext
52 lines
3.4 KiB
Plaintext
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
|
|
|