mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-01-19 01:18:03 +00:00
52 lines
3.3 KiB
Plaintext
52 lines
3.3 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
|
|
|