github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-04-26 20:18:00 +00:00
Code Issues Releases Wiki Activity

Restructure software/ directory to have subdirectories for individual programs and compiler modules.

Browse Source
This commit is contained in:
Paul Kimpel
2018-02-07 11:27:38 -08:00
parent b80b0f8c5f
commit ed2ada8b85
61 changed files with 42626 additions and 42483 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
software/examples/List-Cards-Load.card → software/examples/List-Cards/List-Cards-Load.card
View File

@@ -1,13 +1,13 @@
777 LIST CARDS FROM READER 1 TO LINE PRINTER 2 USING FORMAT 5
666 61000600905
66661000600946010006209690200863099901000600939020086109390100064090200000300904
66661000600952333333333333333333333333333333333333333333333333333333333333333333
66661000600958333333333333333333333333333333333333333333333333333333300000000000
66661000600964000000000002111111111121111111111211111111112111111111121111111111
66661000600969211111111112111111111121111111111211111111112111111111121111111111
666 610006009762111111111121111111111211111111112111111111121111111111
66661000600982333333333333333333333333333333333333333333333333333333333333333000
66661000600988000000000000031111111111311111111113111111111131111111111311111111
66661000600994113111111111131111111111311111111113111111111131111111111311111111
66661001600999113111111111131111111111311111111113111111111131111111111000000000
666 600003009000000000000000000000000000000000000000000000000000000000
777 LIST CARDS FROM READER 1 TO LINE PRINTER 2 USING FORMAT 5
666 61000600905
66661000600946010006209690200863099901000600939020086109390100064090200000300904
66661000600952333333333333333333333333333333333333333333333333333333333333333333
66661000600958333333333333333333333333333333333333333333333333333333300000000000
66661000600964000000000002111111111121111111111211111111112111111111121111111111
66661000600969211111111112111111111121111111111211111111112111111111121111111111
666 610006009762111111111121111111111211111111112111111111121111111111
66661000600982333333333333333333333333333333333333333333333333333333333333333000
66661000600988000000000000031111111111311111111113111111111131111111111311111111
66661000600994113111111111131111111111311111111113111111111131111111111311111111
66661001600999113111111111131111111111311111111113111111111131111111111000000000
666 600003009000000000000000000000000000000000000000000000000000000000

30
software/examples/List-Cards.card → software/examples/List-Cards/List-Cards.card
View File

@@ -1,15 +1,15 @@
1 REM LIST CARDS FROM CR1 TO LP2 USING FORMAT BAND 5
1 LOCN 0900
1 CRF FR1+28,11 LOAD READER FORMAT 1
1 CWF FW5+28,52 LOAD PRINTER FORMAT 5
1 L1 CRD BUF+28,1 READ A CARD
1 CWR BUF+28,2,5 PRINT A CARD
1 L2 CRI L1,1 LOOP BACK IF READER READY
1 BUN L2 SPIN UNTIL READER IS READY
1 REM
1 BUF DEFN 0911 CARD BUFFER (USES 0922-0939)
1 LOCN 0941
1 FR1 FBGR INPUT,P10Z,16(T5A)
1 LOCN 0971
1 FW5 FBGR PRINT,8B,16(T5A),32B
1 FINI 900
1 REM LIST CARDS FROM CR1 TO LP2 USING FORMAT BAND 5
1 LOCN 0900
1 CRF FR1+28,11 LOAD READER FORMAT 1
1 CWF FW5+28,52 LOAD PRINTER FORMAT 5
1 L1 CRD BUF+28,1 READ A CARD
1 CWR BUF+28,2,5 PRINT A CARD
1 L2 CRI L1,1 LOOP BACK IF READER READY
1 BUN L2 SPIN UNTIL READER IS READY
1 REM
1 BUF DEFN 0911 CARD BUFFER (USES 0922-0939)
1 LOCN 0941
1 FR1 FBGR INPUT,P10Z,16(T5A)
1 LOCN 0971
1 FW5 FBGR PRINT,8B,16(T5A),32B
1 FINI 900

166
software/examples/List-Cards.lst → software/examples/List-Cards/List-Cards.lst
View File

@@ -1,84 +1,84 @@
Assembler for the Burroughs 220 BALGOL Compiler & Intrinsics
END OF PASS 1, ERRORS = 0
SYMBOL TABLE
1 BMOD 911 BUF 941 FR1 971 FW5 902 L1
904 L2 1 RLO
LIST CARDS FROM CR1 TO LP2 USING FORMAT BAND 5
2 0000 LOCN 0900
3 0900 0 1000 62 0969 CRF FR1+28,11 LOAD READER FORMAT 1
4 0901 0 2008 63 0999 CWF FW5+28,52 LOAD PRINTER FORMAT 5
5 0902 0 1000 60 0939 L1 CRD BUF+28,1 READ A CARD
6 0903 0 2008 61 0939 CWR BUF+28,2,5 PRINT A CARD
7 0904 0 1000 64 0902 L2 CRI L1,1 LOOP BACK IF READER READY
8 0905 0 0000 30 0904 BUN L2 SPIN UNTIL READER IS READY
10 0906 BUF DEFN 0911 CARD BUFFER (USES 0922-0939)
11 0906 LOCN 0941
12 0941 3 3333 33 3333 FR1 FBGR INPUT,P10Z,16(T5A)
0942 3 3333 33 3333
0943 3 3333 33 3333
0944 3 3333 33 3333
0945 3 3333 33 3333
0946 3 3333 33 3333
0947 3 3333 33 3333
0948 3 3333 33 3333
0949 3 3333 33 3333
0950 3 3333 33 3333
0951 3 3333 33 3333
0952 0 0000 00 0000
0953 0 0000 00 0000
0954 2 1111 11 1111
0955 2 1111 11 1111
0956 2 1111 11 1111
0957 2 1111 11 1111
0958 2 1111 11 1111
0959 2 1111 11 1111
0960 2 1111 11 1111
0961 2 1111 11 1111
0962 2 1111 11 1111
0963 2 1111 11 1111
0964 2 1111 11 1111
0965 2 1111 11 1111
0966 2 1111 11 1111
0967 2 1111 11 1111
0968 2 1111 11 1111
0969 2 1111 11 1111
13 0970 LOCN 0971
14 0971 3 3333 33 3333 FW5 FBGR PRINT,8B,16(T5A),32B
0972 3 3333 33 3333
0973 3 3333 33 3333
0974 3 3333 33 3333
0975 3 3333 33 3333
0976 3 3333 33 3000
0977 0 0000 00 0000
0978 0 0311 11 1111
0979 1 1311 11 1111
0980 1 1311 11 1111
0981 1 1311 11 1111
0982 1 1311 11 1111
0983 1 1311 11 1111
0984 1 1311 11 1111
0985 1 1311 11 1111
0986 1 1311 11 1111
0987 1 1311 11 1111
0988 1 1311 11 1111
0989 1 1311 11 1111
0990 1 1311 11 1111
0991 1 1311 11 1111
0992 1 1311 11 1111
0993 1 1311 11 1111
0994 1 1000 00 0000
0995 0 0000 00 0000
0996 0 0000 00 0000
0997 0 0000 00 0000
0998 0 0000 00 0000
0999 0 0000 00 0000
15 1000 FINI 900
Assembler for the Burroughs 220 BALGOL Compiler & Intrinsics
END OF PASS 1, ERRORS = 0
SYMBOL TABLE
1 BMOD 911 BUF 941 FR1 971 FW5 902 L1
904 L2 1 RLO
LIST CARDS FROM CR1 TO LP2 USING FORMAT BAND 5
2 0000 LOCN 0900
3 0900 0 1000 62 0969 CRF FR1+28,11 LOAD READER FORMAT 1
4 0901 0 2008 63 0999 CWF FW5+28,52 LOAD PRINTER FORMAT 5
5 0902 0 1000 60 0939 L1 CRD BUF+28,1 READ A CARD
6 0903 0 2008 61 0939 CWR BUF+28,2,5 PRINT A CARD
7 0904 0 1000 64 0902 L2 CRI L1,1 LOOP BACK IF READER READY
8 0905 0 0000 30 0904 BUN L2 SPIN UNTIL READER IS READY
10 0906 BUF DEFN 0911 CARD BUFFER (USES 0922-0939)
11 0906 LOCN 0941
12 0941 3 3333 33 3333 FR1 FBGR INPUT,P10Z,16(T5A)
0942 3 3333 33 3333
0943 3 3333 33 3333
0944 3 3333 33 3333
0945 3 3333 33 3333
0946 3 3333 33 3333
0947 3 3333 33 3333
0948 3 3333 33 3333
0949 3 3333 33 3333
0950 3 3333 33 3333
0951 3 3333 33 3333
0952 0 0000 00 0000
0953 0 0000 00 0000
0954 2 1111 11 1111
0955 2 1111 11 1111
0956 2 1111 11 1111
0957 2 1111 11 1111
0958 2 1111 11 1111
0959 2 1111 11 1111
0960 2 1111 11 1111
0961 2 1111 11 1111
0962 2 1111 11 1111
0963 2 1111 11 1111
0964 2 1111 11 1111
0965 2 1111 11 1111
0966 2 1111 11 1111
0967 2 1111 11 1111
0968 2 1111 11 1111
0969 2 1111 11 1111
13 0970 LOCN 0971
14 0971 3 3333 33 3333 FW5 FBGR PRINT,8B,16(T5A),32B
0972 3 3333 33 3333
0973 3 3333 33 3333
0974 3 3333 33 3333
0975 3 3333 33 3333
0976 3 3333 33 3000
0977 0 0000 00 0000
0978 0 0311 11 1111
0979 1 1311 11 1111
0980 1 1311 11 1111
0981 1 1311 11 1111
0982 1 1311 11 1111
0983 1 1311 11 1111
0984 1 1311 11 1111
0985 1 1311 11 1111
0986 1 1311 11 1111
0987 1 1311 11 1111
0988 1 1311 11 1111
0989 1 1311 11 1111
0990 1 1311 11 1111
0991 1 1311 11 1111
0992 1 1311 11 1111
0993 1 1311 11 1111
0994 1 1000 00 0000
0995 0 0000 00 0000
0996 0 0000 00 0000
0997 0 0000 00 0000
0998 0 0000 00 0000
0999 0 0000 00 0000
15 1000 FINI 900
END OF PASS 2, ERRORS = 0

14
software/examples/Machine-Language-Loader.Load.card → software/examples/Machine-Language-Loader/Machine-Language-Loader.Load.card
View File

@@ -1,7 +1,7 @@
777 CLEAR MEMORY AND LOAD BALGOL MACHINE-LANGUAGE CARD DECK
666 61000604955
66661000604961000484600000000042495000001204953004902900000000029000004401274950
66661000604967000003249540101160499400000104987081663649610666600666600266364995
66661000604999010106049940000042498800000490007031104049660000029498900000304957
666 610006099990000145495100000424995000004649500048029495001000604999
666 6100060999960000304950
777 CLEAR MEMORY AND LOAD BALGOL MACHINE-LANGUAGE CARD DECK
666 61000604955
66661000604961000484600000000042495000001204953004902900000000029000004401274950
66661000604967000003249540101160499400000104987081663649610666600666600266364995
66661000604999010106049940000042498800000490007031104049660000029498900000304957
666 610006099990000145495100000424995000004649500048029495001000604999
666 6100060999960000304950

72
software/examples/Machine-Language-Loader.card → software/examples/Machine-Language-Loader/Machine-Language-Loader.card
View File

@@ -1,36 +1,36 @@
1 REM CLEAR MEMORY AND LOAD BALGOL MACHINE-LANGUAGE DECK
1 REM P.KIMPEL, 2018-01-09.
1 REM
1 CR DEFN 1 CARDATRON INPUT UNIT
1 LOCN 4950
1 START DEFN *
1 REM CLEAR MEMORY
1 *A CLL 0,48 CLEAR THE FIRST WORD, /44=REPEAT COUNT
1 LDB *-1 SET DEST ADDRESS FOR RTF
1 IBB *+1,1 INCREMENT START ADDRESS
1 RTF 0,49 CLEAR NEXT 49 WORDS
1 *B RTF 0,100 CLEAR NEXT 100-WORD BLOCK
1 DFL A-,44,1 DECREMENT LOOP COUNTER
1 BRP B- LOOP UNTIL COUNT EXHAUSTED
1 REM
1 LOOP CNC BUF,CR,RLO READ A CARD, ASSUMING FORMAT 6
1 CAD BUF-7 LOAD WORD FOR COL 1-3
1 BFA *+2,81,66 IF COL 1=6, BRANCH AROUND
1 HLT 6666,6666 OTHERWISE, HALT -- NOT A FORMAT-6 CARD
1 BFA DONE,02,66 IF COL 2-3=66, WE-RE DONE
1 CNC BUF,CR RE-READ CARD AND RELEASE RELOAD-LOCKOUT
1 LDB BUF-6 LOAD B FROM ADDRESS IN COL 11-14
1 SLA 7 SHIFT COUNT IN COL 2 TO THE /31 FIELD
1 STA *+1,31 STORE IN THE RTF NEXT
1 RTF BUF-5,*-* MOVE *COUNT* WORDS FROM COL 15 TO (B)
1 BUN LOOP GO GET ANOTHER CARD
1 REM
1 LOCN 4995 POSITION TO END OF MEMORY
1 BUF DEFN *-1 START OF CARD BUFFER
1 REM
1 DONE CLA START+1 DEFINE RTF DEST ADDR
1 LDB DONE LOAD ADDR OF PROGRAM TO B
1 CLL START CLEAR FIRST WORD TO ZERO
1 RTF START,48 CLEAR ALL BUT LAST WORD OF MEMORY
1 CRD *,CR READ LOCKED-OUT CARD
1 FINI START (HOPEFULLY A SIGN-6 INSTR)
1 REM CLEAR MEMORY AND LOAD BALGOL MACHINE-LANGUAGE DECK
1 REM P.KIMPEL, 2018-01-09.
1 REM
1 CR DEFN 1 CARDATRON INPUT UNIT
1 LOCN 4950
1 START DEFN *
1 REM CLEAR MEMORY
1 *A CLL 0,48 CLEAR THE FIRST WORD, /44=REPEAT COUNT
1 LDB *-1 SET DEST ADDRESS FOR RTF
1 IBB *+1,1 INCREMENT START ADDRESS
1 RTF 0,49 CLEAR NEXT 49 WORDS
1 *B RTF 0,100 CLEAR NEXT 100-WORD BLOCK
1 DFL A-,44,1 DECREMENT LOOP COUNTER
1 BRP B- LOOP UNTIL COUNT EXHAUSTED
1 REM
1 LOOP CNC BUF,CR,RLO READ A CARD, ASSUMING FORMAT 6
1 CAD BUF-7 LOAD WORD FOR COL 1-3
1 BFA *+2,81,66 IF COL 1=6, BRANCH AROUND
1 HLT 6666,6666 OTHERWISE, HALT -- NOT A FORMAT-6 CARD
1 BFA DONE,02,66 IF COL 2-3=66, WE-RE DONE
1 CNC BUF,CR RE-READ CARD AND RELEASE RELOAD-LOCKOUT
1 LDB BUF-6 LOAD B FROM ADDRESS IN COL 11-14
1 SLA 7 SHIFT COUNT IN COL 2 TO THE /31 FIELD
1 STA *+1,31 STORE IN THE RTF NEXT
1 RTF BUF-5,*-* MOVE *COUNT* WORDS FROM COL 15 TO (B)
1 BUN LOOP GO GET ANOTHER CARD
1 REM
1 LOCN 4995 POSITION TO END OF MEMORY
1 BUF DEFN *-1 START OF CARD BUFFER
1 REM
1 DONE CLA START+1 DEFINE RTF DEST ADDR
1 LDB DONE LOAD ADDR OF PROGRAM TO B
1 CLL START CLEAR FIRST WORD TO ZERO
1 RTF START,48 CLEAR ALL BUT LAST WORD OF MEMORY
1 CRD *,CR READ LOCKED-OUT CARD
1 FINI START (HOPEFULLY A SIGN-6 INSTR)

102
software/examples/Machine-Language-Loader.lst → software/examples/Machine-Language-Loader/Machine-Language-Loader.lst
View File

@@ -1,51 +1,51 @@
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
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

60
software/examples/PRIME.TABLE.Load.pt → software/examples/PRIME.TABLE/PRIME.TABLE.Load.pt
View File

@@ -1,30 +1,30 @@
61000040900
00000100923
00000140923
00001180922
00000340910
00000100922
00001480010
00000150923
00000370916
00002260923
00000300900
00010090922
00001270925
00000320916
00010090927
00000100926
00000400925
00002260922
00000310921
00000100924
00000400923
00000300900
00000007777
00000000003
00000000003
00000000003
00000000005
00000000005
2____|
60000300900
61000040900
00000100923
00000140923
00001180922
00000340910
00000100922
00001480010
00000150923
00000370916
00002260923
00000300900
00010090922
00001270925
00000320916
00010090927
00000100926
00000400925
00002260922
00000310921
00000100924
00000400923
00000300900
00000007777
00000000003
00000000003
00000000003
00000000005
00000000005
2____|
60000300900

74
software/examples/PRIME.TABLE.card → software/examples/PRIME.TABLE/PRIME.TABLE.card
View File

@@ -1,37 +1,37 @@
1 REM PRINT TABLE OF PRIMES
1 REM ADAPTED FROM TOM SAWYER'S 205 PAPER-TAPE LOAD PROGRAM
1 REM P.KIMPEL, 2017-07-04.
1 LOCN 0900
1 REM
1 LOOP CAD FACTR LOAD CURRENT FACTOR VALUE
1 MUL FACTR SQUARE THE FACTOR
1 CFR CANDT COMPARE SQUARE TO PRIME CANDIDATE
1 BCH PROUT IF SQUARE > CANDIDATE, HAVE A PRIME
1 CAD CANDT OTHERWISE, LOAD THE PRIME CANDIDATE
1 SRT 10 SHIFT TO R FOR DIVISION
1 DIV FACTR DIVIDE CANDIDATE BY FACTOR
1 BZR NXTPR IF REMAINDER=0, HAS A FACTOR, NOT PRIME
1 IFL FACTR,00,2 OTHERWISE, INCREMENT FACTOR BY 2
1 BUN LOOP GO TEST NEW FACTOR AGAINST CURRENT CANDIDATE
1 REM
1 PROUT SPO CANDT,1 HAVE A PRIME, PRINT IT
1 DFL LINCT,00,1 DECREMENT THE LINE COUNTER
1 BRP NXTPR IF NO UNDERFLOW, SKIP PRINTING A CR
1 SPO CR,1 AT LINE END, PRINT A CR
1 CAD LINMX LOAD LINE COUNTER RESET VALUE
1 STA LINCT STORE LINE COUNTER
1 NXTPR IFL CANDT,00,2 INCREMENT PRIME CANDIDATE VALUE BY 2
1 BOF STOP IF OVERFLOW, END PROGRAM
1 CAD FACTI LOAD INITIAL FACTOR VALUE
1 STA FACTR STORE PRIME FACTOR
1 BUN LOOP GO TEST NEW PRIME CANDIDATE
1 REM
1 STOP HLT 7777 HALT, NUMERIC LIMIT EXCEEDED
1 REM
1 CANDT CNST 3 CURRENT PRIME CANDIDATE VALUE
1 FACTR CNST 3 CURRENT PRIME FACTOR VALUE
1 FACTI CNST 3 PRIME FACTOR RESET VALUE
1 LINCT CNST 5 LINE COUNTER
1 LINMX CNST 5 LINE COUNTER RESET VALUE
1 CR CNST 20202020216 CARRIAGE RETURN WORD
1 FINI 900
1 REM PRINT TABLE OF PRIMES
1 REM ADAPTED FROM TOM SAWYER'S 205 PAPER-TAPE LOAD PROGRAM
1 REM P.KIMPEL, 2017-07-04.
1 LOCN 0900
1 REM
1 LOOP CAD FACTR LOAD CURRENT FACTOR VALUE
1 MUL FACTR SQUARE THE FACTOR
1 CFR CANDT COMPARE SQUARE TO PRIME CANDIDATE
1 BCH PROUT IF SQUARE > CANDIDATE, HAVE A PRIME
1 CAD CANDT OTHERWISE, LOAD THE PRIME CANDIDATE
1 SRT 10 SHIFT TO R FOR DIVISION
1 DIV FACTR DIVIDE CANDIDATE BY FACTOR
1 BZR NXTPR IF REMAINDER=0, HAS A FACTOR, NOT PRIME
1 IFL FACTR,00,2 OTHERWISE, INCREMENT FACTOR BY 2
1 BUN LOOP GO TEST NEW FACTOR AGAINST CURRENT CANDIDATE
1 REM
1 PROUT SPO CANDT,1 HAVE A PRIME, PRINT IT
1 DFL LINCT,00,1 DECREMENT THE LINE COUNTER
1 BRP NXTPR IF NO UNDERFLOW, SKIP PRINTING A CR
1 SPO CR,1 AT LINE END, PRINT A CR
1 CAD LINMX LOAD LINE COUNTER RESET VALUE
1 STA LINCT STORE LINE COUNTER
1 NXTPR IFL CANDT,00,2 INCREMENT PRIME CANDIDATE VALUE BY 2
1 BOF STOP IF OVERFLOW, END PROGRAM
1 CAD FACTI LOAD INITIAL FACTOR VALUE
1 STA FACTR STORE PRIME FACTOR
1 BUN LOOP GO TEST NEW PRIME CANDIDATE
1 REM
1 STOP HLT 7777 HALT, NUMERIC LIMIT EXCEEDED
1 REM
1 CANDT CNST 3 CURRENT PRIME CANDIDATE VALUE
1 FACTR CNST 3 CURRENT PRIME FACTOR VALUE
1 FACTI CNST 3 PRIME FACTOR RESET VALUE
1 LINCT CNST 5 LINE COUNTER
1 LINMX CNST 5 LINE COUNTER RESET VALUE
1 CR CNST 20202020216 CARRIAGE RETURN WORD
1 FINI 900

914
software/examples/PRIME.TABLE.lst → software/examples/PRIME.TABLE/PRIME.TABLE.lst
View File

@@ -1,457 +1,457 @@
Assembler for the Burroughs 220 BALGOL Compiler & Intrinsics
Pass 1 Listing Pass 2 Listing
END OF PASS 1, ERRORS = 0
SYMBOL TABLE
1 BMOD 922 CANDT 927 CR 924 FACTI 923 FACTR
925 LINCT 926 LINMX 900 LOOP 916 NXTPR 910 PROUT
1 RLO 921 STOP
PRINT TABLE OF PRIMES
ADAPTED FROM TOM SAWYER'S 205 PAPER-TAPE LOAD PROGRAM
P.KIMPEL, 2017-07-04.
4 0000 LOCN 0900
6 0900 0 0000 10 0923 LOOP CAD FACTR LOAD CURRENT FACTOR VALUE
7 0901 0 0000 14 0923 MUL FACTR SQUARE THE FACTOR
8 0902 0 0001 18 0922 CFR CANDT COMPARE SQUARE TO PRIME CANDIDATE
9 0903 0 0000 34 0910 BCH PROUT IF SQUARE > CANDIDATE, HAVE A PRIME
10 0904 0 0000 10 0922 CAD CANDT OTHERWISE, LOAD THE PRIME CANDIDATE
11 0905 0 0001 48 0010 SRT 10 SHIFT TO R FOR DIVISION
12 0906 0 0000 15 0923 DIV FACTR DIVIDE CANDIDATE BY FACTOR
13 0907 0 0000 37 0916 BZR NXTPR IF REMAINDER=0, HAS A FACTOR, NOT PRIME
14 0908 0 0002 26 0923 IFL FACTR,00,2 OTHERWISE, INCREMENT FACTOR BY 2
DATE 15 0909 0 0000 30 0900 BUN LOOP GO TEST NEW FACTOR AGAINST CURRENT CAND
17 0910 0 0010 09 0922 PROUT SPO CANDT,1 HAVE A PRIME, PRINT IT
18 0911 0 0001 27 0925 DFL LINCT,00,1 DECREMENT THE LINE COUNTER
19 0912 0 0000 32 0916 BRP NXTPR IF NO UNDERFLOW, SKIP PRINTING A CR
20 0913 0 0010 09 0927 SPO CR,1 AT LINE END, PRINT A CR
21 0914 0 0000 10 0926 CAD LINMX LOAD LINE COUNTER RESET VALUE
22 0915 0 0000 40 0925 STA LINCT STORE LINE COUNTER
23 0916 0 0002 26 0922 NXTPR IFL CANDT,00,2 INCREMENT PRIME CANDIDATE VALUE BY 2
24 0917 0 0000 31 0921 BOF STOP IF OVERFLOW, END PROGRAM
25 0918 0 0000 10 0924 CAD FACTI LOAD INITIAL FACTOR VALUE
26 0919 0 0000 40 0923 STA FACTR STORE PRIME FACTOR
27 0920 0 0000 30 0900 BUN LOOP GO TEST NEW PRIME CANDIDATE
29 0921 0 0000 00 7777 STOP HLT 7777 HALT, NUMERIC LIMIT EXCEEDED
31 0922 0 0000 00 0003 CANDT CNST 3 CURRENT PRIME CANDIDATE VALUE
32 0923 0 0000 00 0003 FACTR CNST 3 CURRENT PRIME FACTOR VALUE
33 0924 0 0000 00 0003 FACTI CNST 3 PRIME FACTOR RESET VALUE
34 0925 0 0000 00 0005 LINCT CNST 5 LINE COUNTER
35 0926 0 0000 00 0005 LINMX CNST 5 LINE COUNTER RESET VALUE
36 0927 2 0202 02 0216 CR CNST 20202020216 CARRIAGE RETURN WORD
37 0928 FINI 900
END OF PASS 2, ERRORS = 0
1 3 5 7 11 13
17 19 23 29 31 37
41 43 47 53 59 61
67 71 73 79 83 89
97 101 103 107 109 113
127 131 137 139 149 151
157 163 167 173 179 181
191 193 197 199 211 223
227 229 233 239 241 251
257 263 269 271 277 281
283 293 307 311 313 317
331 337 347 349 353 359
367 373 379 383 389 397
401 409 419 421 431 433
439 443 449 457 461 463
467 479 487 491 499 503
509 521 523 541 547 557
563 569 571 577 587 593
599 601 607 613 617 619
631 641 643 647 653 659
661 673 677 683 691 701
709 719 727 733 739 743
751 757 761 769 773 787
797 809 811 821 823 827
829 839 853 857 859 863
877 881 883 887 907 911
919 929 937 941 947 953
967 971 977 983 991 997
1009 1013 1019 1021 1031 1033
1039 1049 1051 1061 1063 1069
1087 1091 1093 1097 1103 1109
1117 1123 1129 1151 1153 1163
1171 1181 1187 1193 1201 1213
1217 1223 1229 1231 1237 1249
1259 1277 1279 1283 1289 1291
1297 1301 1303 1307 1319 1321
1327 1361 1367 1373 1381 1399
1409 1423 1427 1429 1433 1439
1447 1451 1453 1459 1471 1481
1483 1487 1489 1493 1499 1511
1523 1531 1543 1549 1553 1559
1567 1571 1579 1583 1597 1601
1607 1609 1613 1619 1621 1627
1637 1657 1663 1667 1669 1693
1697 1699 1709 1721 1723 1733
1741 1747 1753 1759 1777 1783
1787 1789 1801 1811 1823 1831
1847 1861 1867 1871 1873 1877
1879 1889 1901 1907 1913 1931
1933 1949 1951 1973 1979 1987
1993 1997 1999 2003 2011 2017
2027 2029 2039 2053 2063 2069
2081 2083 2087 2089 2099 2111
2113 2129 2131 2137 2141 2143
2153 2161 2179 2203 2207 2213
2221 2237 2239 2243 2251 2267
2269 2273 2281 2287 2293 2297
2309 2311 2333 2339 2341 2347
2351 2357 2371 2377 2381 2383
2389 2393 2399 2411 2417 2423
2437 2441 2447 2459 2467 2473
2477 2503 2521 2531 2539 2543
2549 2551 2557 2579 2591 2593
2609 2617 2621 2633 2647 2657
2659 2663 2671 2677 2683 2687
2689 2693 2699 2707 2711 2713
2719 2729 2731 2741 2749 2753
2767 2777 2789 2791 2797 2801
2803 2819 2833 2837 2843 2851
2857 2861 2879 2887 2897 2903
2909 2917 2927 2939 2953 2957
2963 2969 2971 2999 3001 3011
3019 3023 3037 3041 3049 3061
3067 3079 3083 3089 3109 3119
3121 3137 3163 3167 3169 3181
3187 3191 3203 3209 3217 3221
3229 3251 3253 3257 3259 3271
3299 3301 3307 3313 3319 3323
3329 3331 3343 3347 3359 3361
3371 3373 3389 3391 3407 3413
3433 3449 3457 3461 3463 3467
3469 3491 3499 3511 3517 3527
3529 3533 3539 3541 3547 3557
3559 3571 3581 3583 3593 3607
3613 3617 3623 3631 3637 3643
3659 3671 3673 3677 3691 3697
3701 3709 3719 3727 3733 3739
3761 3767 3769 3779 3793 3797
3803 3821 3823 3833 3847 3851
3853 3863 3877 3881 3889 3907
3911 3917 3919 3923 3929 3931
3943 3947 3967 3989 4001 4003
4007 4013 4019 4021 4027 4049
4051 4057 4073 4079 4091 4093
4099 4111 4127 4129 4133 4139
4153 4157 4159 4177 4201 4211
4217 4219 4229 4231 4241 4243
4253 4259 4261 4271 4273 4283
4289 4297 4327 4337 4339 4349
4357 4363 4373 4391 4397 4409
4421 4423 4441 4447 4451 4457
4463 4481 4483 4493 4507 4513
4517 4519 4523 4547 4549 4561
4567 4583 4591 4597 4603 4621
4637 4639 4643 4649 4651 4657
4663 4673 4679 4691 4703 4721
4723 4729 4733 4751 4759 4783
4787 4789 4793 4799 4801 4813
4817 4831 4861 4871 4877 4889
4903 4909 4919 4931 4933 4937
4943 4951 4957 4967 4969 4973
4987 4993 4999 5003 5009 5011
5021 5023 5039 5051 5059 5077
5081 5087 5099 5101 5107 5113
5119 5147 5153 5167 5171 5179
5189 5197 5209 5227 5231 5233
5237 5261 5273 5279 5281 5297
5303 5309 5323 5333 5347 5351
5381 5387 5393 5399 5407 5413
5417 5419 5431 5437 5441 5443
5449 5471 5477 5479 5483 5501
5503 5507 5519 5521 5527 5531
5557 5563 5569 5573 5581 5591
5623 5639 5641 5647 5651 5653
5657 5659 5669 5683 5689 5693
5701 5711 5717 5737 5741 5743
5749 5779 5783 5791 5801 5807
5813 5821 5827 5839 5843 5849
5851 5857 5861 5867 5869 5879
5881 5897 5903 5923 5927 5939
5953 5981 5987 6007 6011 6029
6037 6043 6047 6053 6067 6073
6079 6089 6091 6101 6113 6121
6131 6133 6143 6151 6163 6173
6197 6199 6203 6211 6217 6221
6229 6247 6257 6263 6269 6271
6277 6287 6299 6301 6311 6317
6323 6329 6337 6343 6353 6359
6361 6367 6373 6379 6389 6397
6421 6427 6449 6451 6469 6473
6481 6491 6521 6529 6547 6551
6553 6563 6569 6571 6577 6581
6599 6607 6619 6637 6653 6659
6661 6673 6679 6689 6691 6701
6703 6709 6719 6733 6737 6761
6763 6779 6781 6791 6793 6803
6823 6827 6829 6833 6841 6857
6863 6869 6871 6883 6899 6907
6911 6917 6947 6949 6959 6961
6967 6971 6977 6983 6991 6997
7001 7013 7019 7027 7039 7043
7057 7069 7079 7103 7109 7121
7127 7129 7151 7159 7177 7187
7193 7207 7211 7213 7219 7229
7237 7243 7247 7253 7283 7297
7307 7309 7321 7331 7333 7349
7351 7369 7393 7411 7417 7433
7451 7457 7459 7477 7481 7487
7489 7499 7507 7517 7523 7529
7537 7541 7547 7549 7559 7561
7573 7577 7583 7589 7591 7603
7607 7621 7639 7643 7649 7669
7673 7681 7687 7691 7699 7703
7717 7723 7727 7741 7753 7757
7759 7789 7793 7817 7823 7829
7841 7853 7867 7873 7877 7879
7883 7901 7907 7919 7927 7933
7937 7949 7951 7963 7993 8009
8011 8017 8039 8053 8059 8069
8081 8087 8089 8093 8101 8111
8117 8123 8147 8161 8167 8171
8179 8191 8209 8219 8221 8231
8233 8237 8243 8263 8269 8273
8287 8291 8293 8297 8311 8317
8329 8353 8363 8369 8377 8387
8389 8419 8423 8429 8431 8443
8447 8461 8467 8501 8513 8521
8527 8537 8539 8543 8563 8573
8581 8597 8599 8609 8623 8627
8629 8641 8647 8663 8669 8677
8681 8689 8693 8699 8707 8713
8719 8731 8737 8741 8747 8753
8761 8779 8783 8803 8807 8819
8821 8831 8837 8839 8849 8861
8863 8867 8887 8893 8923 8929
8933 8941 8951 8963 8969 8971
8999 9001 9007 9011 9013 9029
9041 9043 9049 9059 9067 9091
9103 9109 9127 9133 9137 9151
9157 9161 9173 9181 9187 9199
9203 9209 9221 9227 9239 9241
9257 9277 9281 9283 9293 9311
9319 9323 9337 9341 9343 9349
9371 9377 9391 9397 9403 9413
9419 9421 9431 9433 9437 9439
9461 9463 9467 9473 9479 9491
9497 9511 9521 9533 9539 9547
9551 9587 9601 9613 9619 9623
9629 9631 9643 9649 9661 9677
9679 9689 9697 9719 9721 9733
9739 9743 9749 9767 9769 9781
9787 9791 9803 9811 9817 9829
9833 9839 9851 9857 9859 9871
9883 9887 9901 9907 9923 9929
9931 9941 9949 9967 9973 10007
10009 10037 10039 10061 10067 10069
10079 10091 10093 10099 10103 10111
10133 10139 10141 10151 10159 10163
10169 10177 10181 10193 10211 10223
10243 10247 10253 10259 10267 10271
10273 10289 10301 10303 10313 10321
10331 10333 10337 10343 10357 10369
10391 10399 10427 10429 10433 10453
10457 10459 10463 10477 10487 10499
10501 10513 10529 10531 10559 10567
10589 10597 10601 10607 10613 10627
10631 10639 10651 10657 10663 10667
10687 10691 10709 10711 10723 10729
10733 10739 10753 10771 10781 10789
10799 10831 10837 10847 10853 10859
10861 10867 10883 10889 10891 10903
10909 10937 10939 10949 10957 10973
10979 10987 10993 11003 11027 11047
11057 11059 11069 11071 11083 11087
11093 11113 11117 11119 11131 11149
11159 11161 11171 11173 11177 11197
11213 11239 11243 11251 11257 11261
11273 11279 11287 11299 11311 11317
11321 11329 11351 11353 11369 11383
11393 11399 11411 11423 11437 11443
11447 11467 11471 11483 11489 11491
11497 11503 11519 11527 11549 11551
11579 11587 11593 11597 11617 11621
11633 11657 11677 11681 11689 11699
11701 11717 11719 11731 11743 11777
11779 11783 11789 11801 11807 11813
11821 11827 11831 11833 11839 11863
11867 11887 11897 11903 11909 11923
11927 11933 11939 11941 11953 11959
11969 11971 11981 11987 12007 12011
12037 12041 12043 12049 12071 12073
12097 12101 12107 12109 12113 12119
12143 12149 12157 12161 12163 12197
12203 12211 12227 12239 12241 12251
12253 12263 12269 12277 12281 12289
12301 12323 12329 12343 12347 12373
12377 12379 12391 12401 12409 12413
12421 12433 12437 12451 12457 12473
12479 12487 12491 12497 12503 12511
12517 12527 12539 12541 12547 12553
12569 12577 12583 12589 12601 12611
12613 12619 12637 12641 12647 12653
12659 12671 12689 12697 12703 12713
12721 12739 12743 12757 12763 12781
12791 12799 12809 12821 12823 12829
12841 12853 12889 12893 12899 12907
12911 12917 12919 12923 12941 12953
12959 12967 12973 12979 12983 13001
13003 13007 13009 13033 13037 13043
13049 13063 13093 13099 13103 13109
13121 13127 13147 13151 13159 13163
13171 13177 13183 13187 13217 13219
13229 13241 13249 13259 13267 13291
13297 13309 13313 13327 13331 13337
13339 13367 13381 13397 13399 13411
13417 13421 13441 13451 13457 13463
13469 13477 13487 13499 13513 13523
13537 13553 13567 13577 13591 13597
13613 13619 13627 13633 13649 13669
13679 13681 13687 13691 13693 13697
13709 13711 13721 13723 13729 13751
13757 13759 13763 13781 13789 13799
13807 13829 13831 13841 13859 13873
13877 13879 13883 13901 13903 13907
13913 13921 13931 13933 13963 13967
13997 13999 14009 14011 14029 14033
14051 14057 14071 14081 14083 14087
14107 14143 14149 14153 14159 14173
14177 14197 14207 14221 14243 14249
14251 14281 14293 14303 14321 14323
14327 14341 14347 14369 14387 14389
14401 14407 14411 14419 14423 14431
14437 14447 14449 14461 14479 14489
14503 14519 14533 14537 14543 14549
14551 14557 14561 14563 14591 14593
14621 14627 14629 14633 14639 14653
14657 14669 14683 14699 14713 14717
14723 14731 14737 14741 14747 14753
14759 14767 14771 14779 14783 14797
14813 14821 14827 14831 14843 14851
14867 14869 14879 14887 14891 14897
14923 14929 14939 14947 14951 14957
14969 14983 15013 15017 15031 15053
15061 15073 15077 15083 15091 15101
15107 15121 15131 15137 15139 15149
15161 15173 15187 15193 15199 15217
15227 15233 15241 15259 15263 15269
15271 15277 15287 15289 15299 15307
15313 15319 15329 15331 15349 15359
15361 15373 15377 15383 15391 15401
15413 15427 15439 15443 15451 15461
15467 15473 15493 15497 15511 15527
15541 15551 15559 15569 15581 15583
15601 15607 15619 15629 15641 15643
15647 15649 15661 15667 15671 15679
15683 15727 15731 15733 15737 15739
15749 15761 15767 15773 15787 15791
15797 15803 15809 15817 15823 15859
15877 15881 15887 15889 15901 15907
15913 15919 15923 15937 15959 15971
15973 15991 16001 16007 16033 16057
16061 16063 16067 16069 16073 16087
16091 16097 16103 16111 16127 16139
16141 16183 16187 16189 16193 16217
16223 16229 16231 16249 16253 16267
16273 16301 16319 16333 16339 16349
16361 16363 16369 16381 16411 16417
16421 16427 16433 16447 16451 16453
16477 16481 16487 16493 16519 16529
16547 16553 16561 16567 16573 16603
16607 16619 16631 16633 16649 16651
16657 16661 16673 16691 16693 16699
16703 16729 16741 16747 16759 16763
16787 16811 16823 16829 16831 16843
16871 16879 16883 16889 16901 16903
16921 16927 16931 16937 16943 16963
16979 16981 16987 16993 17011 17021
17027 17029 17033 17041 17047 17053
17077 17093 17099 17107 17117 17123
17137 17159 17167 17183 17189 17191
17203 17207 17209 17231 17239 17257
17291 17293 17299 17317 17321 17327
17333 17341 17351 17359 17377 17383
17387 17389 17393 17401 17417 17419
17431 17443 17449 17467 17471 17477
17483 17489 17491 17497 17509 17519
17539 17551 17569 17573 17579 17581
17597 17599 17609 17623 17627 17657
17659 17669 17681 17683 17707 17713
17729 17737 17747 17749 17761 17783
17789 17791 17807 17827 17837 17839
17851 17863 17881 17891 17903 17909
17911 17921 17923 17929 17939 17957
17959 17971 17977 17981 17987 17989
18013 18041 18043 18047 18049 18059
18061 18077 18089 18097 18119 18121
18127 18131 18133 18143 18149 18169
18181 18191 18199 18211 18217 18223
18229 18233 18251 18253 18257 18269
18287 18289 18301 18307 18311 18313
18329 18341 18353 18367 18371 18379
18397 18401 18413 18427 18433 18439
18443 18451 18457 18461 18481 18493
18503 18517 18521 18523 18539 18541
18553 18583 18587 18593 18617 18637
18661 18671 18679 18691 18701 18713
18719 18731 18743 18749 18757 18773
18787 18793 18797 18803 18839 18859
18869 18899 18911 18913 18917 18919
18947 18959 18973 18979 19001 19009
19013 19031 19037 19051 19069 19073
19079 19081 19087 19121 19139 19141
19157 19163 19181 19183 19207 19211
19213 19219 19231 19237 19249 19259
19267 19273 19289 19301 19309 19319
19333 19373 19379 19381 19387 19391
19403 19417 19421 19423 19427 19429
19433 19441 19447 19457 19463 19469
19471 19477 19483 19489 19501 19507
19531 19541 19543 19553 19559 19571
19577 19583 19597 19603 19609 19661
19681 19687 19697 19699 19709 19717
19727 19739 19751 19753 19759 19763
19777 19793 19801 19813 19819 19841
19843 19853 19861 19867 19889 19891
19913 19919 19927 19937 19949 19961
19963 19973 19979 19991 19993 19997
20011 20021 20023 20029 20047 20051
20063 20071 20089 20101 20107 20113
20117 20123 20129 20143 20147 20149
20161 20173 20177 20183 20201 20219
20231 20233 20249 20261 20269 20287
20297 20323 20327 20333 20341 20347
20353 20357 20359 20369 20389 20393
20399 20407 20411 20431 20441 20443
20477 20479 20483 20507 20509 20521
20533 20543 20549 20551 20563 20593
20599 20611 20627 20639 20641 20663
20681 20693 20707 20717 20719 20731
20743 20747 20749 20753 20759 20771
20773 20789 20807 20809 20849 20857
20873 20879 20887 20897 20899 20903
20921 20929 20939 20947 20959 20963
20981 20983 21001 21011 21013 21017
21019 21023 21031 21059 21061 21067
21089 21101 21107 21121 21139 21143
21149 21157 21163 21169 21179 21187
21191 21193 21211 21221 21227 21247
21269 21277 21283 21313 21317 21319
21323 21341 21347 21377 21379 21383
21391 21397
Assembler for the Burroughs 220 BALGOL Compiler & Intrinsics
Pass 1 Listing Pass 2 Listing
END OF PASS 1, ERRORS = 0
SYMBOL TABLE
1 BMOD 922 CANDT 927 CR 924 FACTI 923 FACTR
925 LINCT 926 LINMX 900 LOOP 916 NXTPR 910 PROUT
1 RLO 921 STOP
PRINT TABLE OF PRIMES
ADAPTED FROM TOM SAWYER'S 205 PAPER-TAPE LOAD PROGRAM
P.KIMPEL, 2017-07-04.
4 0000 LOCN 0900
6 0900 0 0000 10 0923 LOOP CAD FACTR LOAD CURRENT FACTOR VALUE
7 0901 0 0000 14 0923 MUL FACTR SQUARE THE FACTOR
8 0902 0 0001 18 0922 CFR CANDT COMPARE SQUARE TO PRIME CANDIDATE
9 0903 0 0000 34 0910 BCH PROUT IF SQUARE > CANDIDATE, HAVE A PRIME
10 0904 0 0000 10 0922 CAD CANDT OTHERWISE, LOAD THE PRIME CANDIDATE
11 0905 0 0001 48 0010 SRT 10 SHIFT TO R FOR DIVISION
12 0906 0 0000 15 0923 DIV FACTR DIVIDE CANDIDATE BY FACTOR
13 0907 0 0000 37 0916 BZR NXTPR IF REMAINDER=0, HAS A FACTOR, NOT PRIME
14 0908 0 0002 26 0923 IFL FACTR,00,2 OTHERWISE, INCREMENT FACTOR BY 2
DATE 15 0909 0 0000 30 0900 BUN LOOP GO TEST NEW FACTOR AGAINST CURRENT CAND
17 0910 0 0010 09 0922 PROUT SPO CANDT,1 HAVE A PRIME, PRINT IT
18 0911 0 0001 27 0925 DFL LINCT,00,1 DECREMENT THE LINE COUNTER
19 0912 0 0000 32 0916 BRP NXTPR IF NO UNDERFLOW, SKIP PRINTING A CR
20 0913 0 0010 09 0927 SPO CR,1 AT LINE END, PRINT A CR
21 0914 0 0000 10 0926 CAD LINMX LOAD LINE COUNTER RESET VALUE
22 0915 0 0000 40 0925 STA LINCT STORE LINE COUNTER
23 0916 0 0002 26 0922 NXTPR IFL CANDT,00,2 INCREMENT PRIME CANDIDATE VALUE BY 2
24 0917 0 0000 31 0921 BOF STOP IF OVERFLOW, END PROGRAM
25 0918 0 0000 10 0924 CAD FACTI LOAD INITIAL FACTOR VALUE
26 0919 0 0000 40 0923 STA FACTR STORE PRIME FACTOR
27 0920 0 0000 30 0900 BUN LOOP GO TEST NEW PRIME CANDIDATE
29 0921 0 0000 00 7777 STOP HLT 7777 HALT, NUMERIC LIMIT EXCEEDED
31 0922 0 0000 00 0003 CANDT CNST 3 CURRENT PRIME CANDIDATE VALUE
32 0923 0 0000 00 0003 FACTR CNST 3 CURRENT PRIME FACTOR VALUE
33 0924 0 0000 00 0003 FACTI CNST 3 PRIME FACTOR RESET VALUE
34 0925 0 0000 00 0005 LINCT CNST 5 LINE COUNTER
35 0926 0 0000 00 0005 LINMX CNST 5 LINE COUNTER RESET VALUE
36 0927 2 0202 02 0216 CR CNST 20202020216 CARRIAGE RETURN WORD
37 0928 FINI 900
END OF PASS 2, ERRORS = 0
1 3 5 7 11 13
17 19 23 29 31 37
41 43 47 53 59 61
67 71 73 79 83 89
97 101 103 107 109 113
127 131 137 139 149 151
157 163 167 173 179 181
191 193 197 199 211 223
227 229 233 239 241 251
257 263 269 271 277 281
283 293 307 311 313 317
331 337 347 349 353 359
367 373 379 383 389 397
401 409 419 421 431 433
439 443 449 457 461 463
467 479 487 491 499 503
509 521 523 541 547 557
563 569 571 577 587 593
599 601 607 613 617 619
631 641 643 647 653 659
661 673 677 683 691 701
709 719 727 733 739 743
751 757 761 769 773 787
797 809 811 821 823 827
829 839 853 857 859 863
877 881 883 887 907 911
919 929 937 941 947 953
967 971 977 983 991 997
1009 1013 1019 1021 1031 1033
1039 1049 1051 1061 1063 1069
1087 1091 1093 1097 1103 1109
1117 1123 1129 1151 1153 1163
1171 1181 1187 1193 1201 1213
1217 1223 1229 1231 1237 1249
1259 1277 1279 1283 1289 1291
1297 1301 1303 1307 1319 1321
1327 1361 1367 1373 1381 1399
1409 1423 1427 1429 1433 1439
1447 1451 1453 1459 1471 1481
1483 1487 1489 1493 1499 1511
1523 1531 1543 1549 1553 1559
1567 1571 1579 1583 1597 1601
1607 1609 1613 1619 1621 1627
1637 1657 1663 1667 1669 1693
1697 1699 1709 1721 1723 1733
1741 1747 1753 1759 1777 1783
1787 1789 1801 1811 1823 1831
1847 1861 1867 1871 1873 1877
1879 1889 1901 1907 1913 1931
1933 1949 1951 1973 1979 1987
1993 1997 1999 2003 2011 2017
2027 2029 2039 2053 2063 2069
2081 2083 2087 2089 2099 2111
2113 2129 2131 2137 2141 2143
2153 2161 2179 2203 2207 2213
2221 2237 2239 2243 2251 2267
2269 2273 2281 2287 2293 2297
2309 2311 2333 2339 2341 2347
2351 2357 2371 2377 2381 2383
2389 2393 2399 2411 2417 2423
2437 2441 2447 2459 2467 2473
2477 2503 2521 2531 2539 2543
2549 2551 2557 2579 2591 2593
2609 2617 2621 2633 2647 2657
2659 2663 2671 2677 2683 2687
2689 2693 2699 2707 2711 2713
2719 2729 2731 2741 2749 2753
2767 2777 2789 2791 2797 2801
2803 2819 2833 2837 2843 2851
2857 2861 2879 2887 2897 2903
2909 2917 2927 2939 2953 2957
2963 2969 2971 2999 3001 3011
3019 3023 3037 3041 3049 3061
3067 3079 3083 3089 3109 3119
3121 3137 3163 3167 3169 3181
3187 3191 3203 3209 3217 3221
3229 3251 3253 3257 3259 3271
3299 3301 3307 3313 3319 3323
3329 3331 3343 3347 3359 3361
3371 3373 3389 3391 3407 3413
3433 3449 3457 3461 3463 3467
3469 3491 3499 3511 3517 3527
3529 3533 3539 3541 3547 3557
3559 3571 3581 3583 3593 3607
3613 3617 3623 3631 3637 3643
3659 3671 3673 3677 3691 3697
3701 3709 3719 3727 3733 3739
3761 3767 3769 3779 3793 3797
3803 3821 3823 3833 3847 3851
3853 3863 3877 3881 3889 3907
3911 3917 3919 3923 3929 3931
3943 3947 3967 3989 4001 4003
4007 4013 4019 4021 4027 4049
4051 4057 4073 4079 4091 4093
4099 4111 4127 4129 4133 4139
4153 4157 4159 4177 4201 4211
4217 4219 4229 4231 4241 4243
4253 4259 4261 4271 4273 4283
4289 4297 4327 4337 4339 4349
4357 4363 4373 4391 4397 4409
4421 4423 4441 4447 4451 4457
4463 4481 4483 4493 4507 4513
4517 4519 4523 4547 4549 4561
4567 4583 4591 4597 4603 4621
4637 4639 4643 4649 4651 4657
4663 4673 4679 4691 4703 4721
4723 4729 4733 4751 4759 4783
4787 4789 4793 4799 4801 4813
4817 4831 4861 4871 4877 4889
4903 4909 4919 4931 4933 4937
4943 4951 4957 4967 4969 4973
4987 4993 4999 5003 5009 5011
5021 5023 5039 5051 5059 5077
5081 5087 5099 5101 5107 5113
5119 5147 5153 5167 5171 5179
5189 5197 5209 5227 5231 5233
5237 5261 5273 5279 5281 5297
5303 5309 5323 5333 5347 5351
5381 5387 5393 5399 5407 5413
5417 5419 5431 5437 5441 5443
5449 5471 5477 5479 5483 5501
5503 5507 5519 5521 5527 5531
5557 5563 5569 5573 5581 5591
5623 5639 5641 5647 5651 5653
5657 5659 5669 5683 5689 5693
5701 5711 5717 5737 5741 5743
5749 5779 5783 5791 5801 5807
5813 5821 5827 5839 5843 5849
5851 5857 5861 5867 5869 5879
5881 5897 5903 5923 5927 5939
5953 5981 5987 6007 6011 6029
6037 6043 6047 6053 6067 6073
6079 6089 6091 6101 6113 6121
6131 6133 6143 6151 6163 6173
6197 6199 6203 6211 6217 6221
6229 6247 6257 6263 6269 6271
6277 6287 6299 6301 6311 6317
6323 6329 6337 6343 6353 6359
6361 6367 6373 6379 6389 6397
6421 6427 6449 6451 6469 6473
6481 6491 6521 6529 6547 6551
6553 6563 6569 6571 6577 6581
6599 6607 6619 6637 6653 6659
6661 6673 6679 6689 6691 6701
6703 6709 6719 6733 6737 6761
6763 6779 6781 6791 6793 6803
6823 6827 6829 6833 6841 6857
6863 6869 6871 6883 6899 6907
6911 6917 6947 6949 6959 6961
6967 6971 6977 6983 6991 6997
7001 7013 7019 7027 7039 7043
7057 7069 7079 7103 7109 7121
7127 7129 7151 7159 7177 7187
7193 7207 7211 7213 7219 7229
7237 7243 7247 7253 7283 7297
7307 7309 7321 7331 7333 7349
7351 7369 7393 7411 7417 7433
7451 7457 7459 7477 7481 7487
7489 7499 7507 7517 7523 7529
7537 7541 7547 7549 7559 7561
7573 7577 7583 7589 7591 7603
7607 7621 7639 7643 7649 7669
7673 7681 7687 7691 7699 7703
7717 7723 7727 7741 7753 7757
7759 7789 7793 7817 7823 7829
7841 7853 7867 7873 7877 7879
7883 7901 7907 7919 7927 7933
7937 7949 7951 7963 7993 8009
8011 8017 8039 8053 8059 8069
8081 8087 8089 8093 8101 8111
8117 8123 8147 8161 8167 8171
8179 8191 8209 8219 8221 8231
8233 8237 8243 8263 8269 8273
8287 8291 8293 8297 8311 8317
8329 8353 8363 8369 8377 8387
8389 8419 8423 8429 8431 8443
8447 8461 8467 8501 8513 8521
8527 8537 8539 8543 8563 8573
8581 8597 8599 8609 8623 8627
8629 8641 8647 8663 8669 8677
8681 8689 8693 8699 8707 8713
8719 8731 8737 8741 8747 8753
8761 8779 8783 8803 8807 8819
8821 8831 8837 8839 8849 8861
8863 8867 8887 8893 8923 8929
8933 8941 8951 8963 8969 8971
8999 9001 9007 9011 9013 9029
9041 9043 9049 9059 9067 9091
9103 9109 9127 9133 9137 9151
9157 9161 9173 9181 9187 9199
9203 9209 9221 9227 9239 9241
9257 9277 9281 9283 9293 9311
9319 9323 9337 9341 9343 9349
9371 9377 9391 9397 9403 9413
9419 9421 9431 9433 9437 9439
9461 9463 9467 9473 9479 9491
9497 9511 9521 9533 9539 9547
9551 9587 9601 9613 9619 9623
9629 9631 9643 9649 9661 9677
9679 9689 9697 9719 9721 9733
9739 9743 9749 9767 9769 9781
9787 9791 9803 9811 9817 9829
9833 9839 9851 9857 9859 9871
9883 9887 9901 9907 9923 9929
9931 9941 9949 9967 9973 10007
10009 10037 10039 10061 10067 10069
10079 10091 10093 10099 10103 10111
10133 10139 10141 10151 10159 10163
10169 10177 10181 10193 10211 10223
10243 10247 10253 10259 10267 10271
10273 10289 10301 10303 10313 10321
10331 10333 10337 10343 10357 10369
10391 10399 10427 10429 10433 10453
10457 10459 10463 10477 10487 10499
10501 10513 10529 10531 10559 10567
10589 10597 10601 10607 10613 10627
10631 10639 10651 10657 10663 10667
10687 10691 10709 10711 10723 10729
10733 10739 10753 10771 10781 10789
10799 10831 10837 10847 10853 10859
10861 10867 10883 10889 10891 10903
10909 10937 10939 10949 10957 10973
10979 10987 10993 11003 11027 11047
11057 11059 11069 11071 11083 11087
11093 11113 11117 11119 11131 11149
11159 11161 11171 11173 11177 11197
11213 11239 11243 11251 11257 11261
11273 11279 11287 11299 11311 11317
11321 11329 11351 11353 11369 11383
11393 11399 11411 11423 11437 11443
11447 11467 11471 11483 11489 11491
11497 11503 11519 11527 11549 11551
11579 11587 11593 11597 11617 11621
11633 11657 11677 11681 11689 11699
11701 11717 11719 11731 11743 11777
11779 11783 11789 11801 11807 11813
11821 11827 11831 11833 11839 11863
11867 11887 11897 11903 11909 11923
11927 11933 11939 11941 11953 11959
11969 11971 11981 11987 12007 12011
12037 12041 12043 12049 12071 12073
12097 12101 12107 12109 12113 12119
12143 12149 12157 12161 12163 12197
12203 12211 12227 12239 12241 12251
12253 12263 12269 12277 12281 12289
12301 12323 12329 12343 12347 12373
12377 12379 12391 12401 12409 12413
12421 12433 12437 12451 12457 12473
12479 12487 12491 12497 12503 12511
12517 12527 12539 12541 12547 12553
12569 12577 12583 12589 12601 12611
12613 12619 12637 12641 12647 12653
12659 12671 12689 12697 12703 12713
12721 12739 12743 12757 12763 12781
12791 12799 12809 12821 12823 12829
12841 12853 12889 12893 12899 12907
12911 12917 12919 12923 12941 12953
12959 12967 12973 12979 12983 13001
13003 13007 13009 13033 13037 13043
13049 13063 13093 13099 13103 13109
13121 13127 13147 13151 13159 13163
13171 13177 13183 13187 13217 13219
13229 13241 13249 13259 13267 13291
13297 13309 13313 13327 13331 13337
13339 13367 13381 13397 13399 13411
13417 13421 13441 13451 13457 13463
13469 13477 13487 13499 13513 13523
13537 13553 13567 13577 13591 13597
13613 13619 13627 13633 13649 13669
13679 13681 13687 13691 13693 13697
13709 13711 13721 13723 13729 13751
13757 13759 13763 13781 13789 13799
13807 13829 13831 13841 13859 13873
13877 13879 13883 13901 13903 13907
13913 13921 13931 13933 13963 13967
13997 13999 14009 14011 14029 14033
14051 14057 14071 14081 14083 14087
14107 14143 14149 14153 14159 14173
14177 14197 14207 14221 14243 14249
14251 14281 14293 14303 14321 14323
14327 14341 14347 14369 14387 14389
14401 14407 14411 14419 14423 14431
14437 14447 14449 14461 14479 14489
14503 14519 14533 14537 14543 14549
14551 14557 14561 14563 14591 14593
14621 14627 14629 14633 14639 14653
14657 14669 14683 14699 14713 14717
14723 14731 14737 14741 14747 14753
14759 14767 14771 14779 14783 14797
14813 14821 14827 14831 14843 14851
14867 14869 14879 14887 14891 14897
14923 14929 14939 14947 14951 14957
14969 14983 15013 15017 15031 15053
15061 15073 15077 15083 15091 15101
15107 15121 15131 15137 15139 15149
15161 15173 15187 15193 15199 15217
15227 15233 15241 15259 15263 15269
15271 15277 15287 15289 15299 15307
15313 15319 15329 15331 15349 15359
15361 15373 15377 15383 15391 15401
15413 15427 15439 15443 15451 15461
15467 15473 15493 15497 15511 15527
15541 15551 15559 15569 15581 15583
15601 15607 15619 15629 15641 15643
15647 15649 15661 15667 15671 15679
15683 15727 15731 15733 15737 15739
15749 15761 15767 15773 15787 15791
15797 15803 15809 15817 15823 15859
15877 15881 15887 15889 15901 15907
15913 15919 15923 15937 15959 15971
15973 15991 16001 16007 16033 16057
16061 16063 16067 16069 16073 16087
16091 16097 16103 16111 16127 16139
16141 16183 16187 16189 16193 16217
16223 16229 16231 16249 16253 16267
16273 16301 16319 16333 16339 16349
16361 16363 16369 16381 16411 16417
16421 16427 16433 16447 16451 16453
16477 16481 16487 16493 16519 16529
16547 16553 16561 16567 16573 16603
16607 16619 16631 16633 16649 16651
16657 16661 16673 16691 16693 16699
16703 16729 16741 16747 16759 16763
16787 16811 16823 16829 16831 16843
16871 16879 16883 16889 16901 16903
16921 16927 16931 16937 16943 16963
16979 16981 16987 16993 17011 17021
17027 17029 17033 17041 17047 17053
17077 17093 17099 17107 17117 17123
17137 17159 17167 17183 17189 17191
17203 17207 17209 17231 17239 17257
17291 17293 17299 17317 17321 17327
17333 17341 17351 17359 17377 17383
17387 17389 17393 17401 17417 17419
17431 17443 17449 17467 17471 17477
17483 17489 17491 17497 17509 17519
17539 17551 17569 17573 17579 17581
17597 17599 17609 17623 17627 17657
17659 17669 17681 17683 17707 17713
17729 17737 17747 17749 17761 17783
17789 17791 17807 17827 17837 17839
17851 17863 17881 17891 17903 17909
17911 17921 17923 17929 17939 17957
17959 17971 17977 17981 17987 17989
18013 18041 18043 18047 18049 18059
18061 18077 18089 18097 18119 18121
18127 18131 18133 18143 18149 18169
18181 18191 18199 18211 18217 18223
18229 18233 18251 18253 18257 18269
18287 18289 18301 18307 18311 18313
18329 18341 18353 18367 18371 18379
18397 18401 18413 18427 18433 18439
18443 18451 18457 18461 18481 18493
18503 18517 18521 18523 18539 18541
18553 18583 18587 18593 18617 18637
18661 18671 18679 18691 18701 18713
18719 18731 18743 18749 18757 18773
18787 18793 18797 18803 18839 18859
18869 18899 18911 18913 18917 18919
18947 18959 18973 18979 19001 19009
19013 19031 19037 19051 19069 19073
19079 19081 19087 19121 19139 19141
19157 19163 19181 19183 19207 19211
19213 19219 19231 19237 19249 19259
19267 19273 19289 19301 19309 19319
19333 19373 19379 19381 19387 19391
19403 19417 19421 19423 19427 19429
19433 19441 19447 19457 19463 19469
19471 19477 19483 19489 19501 19507
19531 19541 19543 19553 19559 19571
19577 19583 19597 19603 19609 19661
19681 19687 19697 19699 19709 19717
19727 19739 19751 19753 19759 19763
19777 19793 19801 19813 19819 19841
19843 19853 19861 19867 19889 19891
19913 19919 19927 19937 19949 19961
19963 19973 19979 19991 19993 19997
20011 20021 20023 20029 20047 20051
20063 20071 20089 20101 20107 20113
20117 20123 20129 20143 20147 20149
20161 20173 20177 20183 20201 20219
20231 20233 20249 20261 20269 20287
20297 20323 20327 20333 20341 20347
20353 20357 20359 20369 20389 20393
20399 20407 20411 20431 20441 20443
20477 20479 20483 20507 20509 20521
20533 20543 20549 20551 20563 20593
20599 20611 20627 20639 20641 20663
20681 20693 20707 20717 20719 20731
20743 20747 20749 20753 20759 20771
20773 20789 20807 20809 20849 20857
20873 20879 20887 20897 20899 20903
20921 20929 20939 20947 20959 20963
20981 20983 21001 21011 21013 21017
21019 21023 21031 21059 21061 21067
21089 21101 21107 21121 21139 21143
21149 21157 21163 21169 21179 21187
21191 21193 21211 21221 21227 21247
21269 21277 21283 21313 21317 21319
21323 21341 21347 21377 21379 21383
21391 21397

107
software/examples/README.txt
View File

@@ -1,76 +1,83 @@
Index of folder retro-220/software/examples:
Miscellaneous example programs for the retro-220 emulator.
Each program either consists of multiple files contained in a directory,
or exists as a standalone loadable machine code file. The following
standard file name extensions and suffixes indicate the format and
purpose of each file:
.card 80-column card image, usually for assembly language
source code or data for the program. The retro-220
emulator will internally truncate longer lines to 80
characters and pad shorter lines out to a length of 80.
.pt paper-tape file in the format used by the retro-220
emulator.
.lst printer output listing of assembly or program run.
Lines may be preceded by a form-feed (ASCII hex 0C) to
indicate a skip to top-of-page.
.Load.card 80-column card image file containing loadable object
code. Unless specified otherwise, these decks will be in
self-loading 220 band-6 format for the Cardatron reader,
and will require manual insertion of a card read
instruction into the C register of the processor (e.g.,
1000 60 0000 for input unit 1) to load the program.
.Load.pt paper-tape image file containing loadable object code.
Unless specified otherwise, these tapes will be self-
loading and will require manual insertion of a paper-
tape read instruction into the C register of the
processor (e.g., 1000 04 0000 for reader 1) to load the
program.
Unless otherwise specified, all files are in standard Windows text
format, with carriage-return/line-feed delimiters.
List-Cards.card
List-Cards/
A simple assembly language program to list card images from
Cardatron input unit 1 to Cardatron output unit 2. Assemble with
software/tools/BAC-Assembler.html.
Cardatron input unit 1 to Cardatron output unit 2.
Assemble with software/tools/BAC-Assembler.html.
List-Cards.lst
Assembly listing for List-Cards.card.
List-Cards-Load.card
Loadable band-6 object deck for List-Cards.card.
Machine-Language-Loader.card
Assembly language program to load object code in BALGOL Machine
Language Instruction Card format (see Appendix F in
http://bitsavers.org/pdf/burroughs/electrodata/220/220-21017_B220_BA
LGOL_Mar63.pdf) to 220 memory. Assemble with software/tools/BAC-
Assembler.html.
Machine-Language-Loader.lst
Assembly listing from Machine-Language-Loader.card.
Machine-Language-Loader.Load.card
Loadable band-6 object deck Machine-Language-Loader.card.
Machine-Language-Loader/
Assembly language program to load an object code deck in BALGOL
Machine Language Instruction Card format (see Appendix F in
http://bitsavers.org/pdf/burroughs/electrodata/220/
220-21017_B220_BALGOL_Mar63.pdf) to 220 memory.
Assemble with software/tools/BAC-Assembler.html.
Memory-Clear-0000-4999.Load.card
Loadable band-6 object deck for a program to clear 220 memory
addresses 0000-4999 and then halt.
PRIME.TABLE.card
Assembly language program to print a table of prime numbers.
PRIME.TABLE/
Assembly language program to print a table of prime numbers. Adapted
from a program by Tom Sawyer for the ElectroData/Burroughs 205.
Assemble with software/tools/BAC-Assembler.html.
PRIME.TABLE.lst
Assembly listing for PRIME.TABLE.lst, including sample output to the
SPO, listing primes to 21,397.
The listing shows sample output to the SPO, listing primes to
21,397.
PRIME.TABLE.Load.pt
Loadable object code for the PRIME.TABLE.card program in retro-220
paper tape image format.
WINTER.PI.card
WINTER.PI/
Assembly language program to calculate and print the first 800
digits of Pi. Assemble with software/tools/BAC-Assembler.html. This
program was ported to the 220 by Paul Kimpel (via Burroughs B5500
Algol and the ElectroData/Burroughs 205) from a C program by Dik T.
Winter of CWI in Amsterdam (see
digits of Pi. This program was ported to the 220 by Paul Kimpel (via
Burroughs B5500 Algol and the ElectroData/Burroughs 205) from a C
program written by Dik T. Winter of CWI in Amsterdam (see
https://cs.uwaterloo.ca/~alopez-o/math-faq/mathtext/node12.html).
Assemble with software/tools/BAC-Assembler.html.
WINTER.PI.lst
Assembly listing for WINTER.PI.card, including sample output to the
SPO.
The listing includes sample output to the SPO.
WINTER.PI.Code.lst
Assembly listing for WINTER.PI.card, with the assembled code
WINTER.PI.Code.lst is an assembly listing with the assembled code
arranged for manual conversion to retro-220 paper-tape image format.
WINTER.PI.Load.card
Loadable band-6 object deck for WINTER.PI.card.
WINTER.PI.Load.pt has loadable object code in retro-220 paper-tape
image format.
WINTER.PI.Load.pt
Loadable object code in retro-220 paper-tape image format for
WINTER.PI.card.
WINTER-PI.Load-Inverse.pt
Loadable object code in retro-220 paper-tape image inverse (sign
last) format for WINTER.PI.card.
WINTER-PI.Load-Inverse.pt has loadable object code in retro-220
paper-tape image inverse (sign last) format.
Paul Kimpel
January 2017
February 2017

160
software/examples/WINTER.PI.Code.lst → software/examples/WINTER.PI/WINTER.PI.Code.lst
View File

@@ -1,80 +1,80 @@
61000040500 61000040500
00000100571 100571 CAD FLIM
00000400565 400565 STA C C=FLIM
00000100563 100563 CAD A
00001480010 1480010 SRT 10
00000150575 150575 DIV FIVE A DIV 5
00000420565 420565 LDB C FOR (B=C; B>=0; --B)
10000401000 10000401000 STA - F F[B]=A DIV 5
00001210506 1210506 DBB *-1,1
00000100565 100565 L1 CAD C START OF OUTER LOOP
00000140574 140574 MUL TWO
00001400568 1400568 STR G G=C*2
00000370562 370562 BFR ENDL1,00,00 IF G EQL 0, BRANCH OUT OF LOOP
00000460566 460566 CLL D D=0
00000100565 100565 CAD C
00000400564 400564 STA B B=C
00000420564 420564 LDB B
10000101000 10000101000 DO CAD - F START OF INNER LOOP
00000140563 140563 MUL A F[B]*A
00001490010 1490010 SLT 10 SHIFT PRODUCT TO RA
00000120566 120566 ADD D
00000400566 400566 STA D D+=F[B]*A
00001480010 1480010 SRT 10 SAVE NEW D IN RR
00001270568 1270568 DFL G,00,1 G-=1
00000150568 150568 DIV G D DIV G
10001401000 10001401000 STR - F F[B]=D MOD G
00000400566 400566 STA D D=D DIV G
00001270568 1270568 DFL G,00,1 G-=1
00000100564 100564 CAD B
00000130573 130573 SUB ONE
00000400564 400564 STA B B-=1
00000360534 360534 BFA ENDDO,00,00 IF B EQL 0, BRANCH OUT OF INNER LOOP
00000140566 140566 MUL D
00001400566 1400566 STR D D*=B
00001210516 1210516 DBB DO,1 DECREMENT RB, REPEAT INNER LOOP IF >= 0
00014270565 14270565 ENDDO DFL C,00,14 C-=14
00000100566 100566 CAD D
00001480010 1480010 SRT 10
00000150563 150563 DIV A D DIV A
00000120567 120567 ADD E RA=E+D DIV A
00001400567 1400567 STR E E=D MOD A
00001480003 1480003 SRT 3 ISOLATE HIGH-ORDER DIGIT IN A
00000120576 120576 ADD N80 CONVERT 1ST DIGIT TO ALPHA
00000490001 490001 SLA 1
00001490001 1490001 SLT 1
00000120576 120576 ADD N80 CONVERT 2ND DIGIT TO ALPHA
00000490001 490001 SLA 1
00001490001 1490001 SLT 1
00000120576 120576 ADD N80 CONVERT 3RD DIGIT TO ALPHA
00000490001 490001 SLA 1
00001490001 1490001 SLT 1
00000120576 120576 ADD N80 CONVERT 4TH DIGIT TO ALPHA
00000490002 490002 SLA 2 INSERT TRAILING SPACE
00002430000 2430000 LSA 2 SET SIGN TO TWO FOR ALPHA WORD
00000400564 400564 STA B STORE IN WORD BUFFER
00010090564 10090564 SPO B,1
00405260569 405260569 IFL COL,04,5 CHECK FOR FULL LINE ON SPO
00000100569 100569 CAD COL
00000180570 180570 CFA ECOL
00001340508 1340508 BCL L1 IF COL < ECOL, BRANCH
00010090577 10090577 SPO CR,1 OUTPUT NEWLINES
00000460569 460569 CLL COL CLEAR COLUMN COUNTER
00000300508 300508 BUN L1
00000007557 7557 ENDL1 HLT 7557
00000010000 10000 A CNST 10000
00000000000 0 B CNST 0
00000000000 0 C CNST 0
00000000000 0 D CNST 0
00000000000 0 E CNST 0
00000000000 0 G CNST 0
00000000000 0 COL CNST 0
00000000050 50 ECOL CNST 50
00000002800 2800 FLIM CNST 2800
00000000000 0 ZERO CNST 0
00000000001 1 ONE CNST 1
00000000002 2 TWO CNST 2
00000000005 5 FIVE CNST 5
00000000080 80 N80 CNST 80
2___|| 2___|| CR CNST 20202021616 NEWLINES
60000300500 60000300500
61000040500 61000040500
00000100571 100571 CAD FLIM
00000400565 400565 STA C C=FLIM
00000100563 100563 CAD A
00001480010 1480010 SRT 10
00000150575 150575 DIV FIVE A DIV 5
00000420565 420565 LDB C FOR (B=C; B>=0; --B)
10000401000 10000401000 STA - F F[B]=A DIV 5
00001210506 1210506 DBB *-1,1
00000100565 100565 L1 CAD C START OF OUTER LOOP
00000140574 140574 MUL TWO
00001400568 1400568 STR G G=C*2
00000370562 370562 BFR ENDL1,00,00 IF G EQL 0, BRANCH OUT OF LOOP
00000460566 460566 CLL D D=0
00000100565 100565 CAD C
00000400564 400564 STA B B=C
00000420564 420564 LDB B
10000101000 10000101000 DO CAD - F START OF INNER LOOP
00000140563 140563 MUL A F[B]*A
00001490010 1490010 SLT 10 SHIFT PRODUCT TO RA
00000120566 120566 ADD D
00000400566 400566 STA D D+=F[B]*A
00001480010 1480010 SRT 10 SAVE NEW D IN RR
00001270568 1270568 DFL G,00,1 G-=1
00000150568 150568 DIV G D DIV G
10001401000 10001401000 STR - F F[B]=D MOD G
00000400566 400566 STA D D=D DIV G
00001270568 1270568 DFL G,00,1 G-=1
00000100564 100564 CAD B
00000130573 130573 SUB ONE
00000400564 400564 STA B B-=1
00000360534 360534 BFA ENDDO,00,00 IF B EQL 0, BRANCH OUT OF INNER LOOP
00000140566 140566 MUL D
00001400566 1400566 STR D D*=B
00001210516 1210516 DBB DO,1 DECREMENT RB, REPEAT INNER LOOP IF >= 0
00014270565 14270565 ENDDO DFL C,00,14 C-=14
00000100566 100566 CAD D
00001480010 1480010 SRT 10
00000150563 150563 DIV A D DIV A
00000120567 120567 ADD E RA=E+D DIV A
00001400567 1400567 STR E E=D MOD A
00001480003 1480003 SRT 3 ISOLATE HIGH-ORDER DIGIT IN A
00000120576 120576 ADD N80 CONVERT 1ST DIGIT TO ALPHA
00000490001 490001 SLA 1
00001490001 1490001 SLT 1
00000120576 120576 ADD N80 CONVERT 2ND DIGIT TO ALPHA
00000490001 490001 SLA 1
00001490001 1490001 SLT 1
00000120576 120576 ADD N80 CONVERT 3RD DIGIT TO ALPHA
00000490001 490001 SLA 1
00001490001 1490001 SLT 1
00000120576 120576 ADD N80 CONVERT 4TH DIGIT TO ALPHA
00000490002 490002 SLA 2 INSERT TRAILING SPACE
00002430000 2430000 LSA 2 SET SIGN TO TWO FOR ALPHA WORD
00000400564 400564 STA B STORE IN WORD BUFFER
00010090564 10090564 SPO B,1
00405260569 405260569 IFL COL,04,5 CHECK FOR FULL LINE ON SPO
00000100569 100569 CAD COL
00000180570 180570 CFA ECOL
00001340508 1340508 BCL L1 IF COL < ECOL, BRANCH
00010090577 10090577 SPO CR,1 OUTPUT NEWLINES
00000460569 460569 CLL COL CLEAR COLUMN COUNTER
00000300508 300508 BUN L1
00000007557 7557 ENDL1 HLT 7557
00000010000 10000 A CNST 10000
00000000000 0 B CNST 0
00000000000 0 C CNST 0
00000000000 0 D CNST 0
00000000000 0 E CNST 0
00000000000 0 G CNST 0
00000000000 0 COL CNST 0
00000000050 50 ECOL CNST 50
00000002800 2800 FLIM CNST 2800
00000000000 0 ZERO CNST 0
00000000001 1 ONE CNST 1
00000000002 2 TWO CNST 2
00000000005 5 FIVE CNST 5
00000000080 80 N80 CNST 80
2___|| 2___|| CR CNST 20202021616 NEWLINES
60000300500 60000300500

162
software/examples/WINTER.PI.Load-Inverse.pt → software/examples/WINTER.PI/WINTER.PI.Load-Inverse.pt
View File

@@ -1,81 +1,81 @@
61000050500
1005710
4005650
1005630
14800100
1505750
4205650
00004010001
12105060
1005650
1405740
14005680
3705620
4605660
1005650
4005640
4205640
00001010001
1405630
14900100
1205660
4005660
14800100
12705680
1505680
00014010001
4005660
12705680
1005640
1305730
4005640
3605340
1405660
14005660
12105160
142705650
1005660
14800100
1505630
1205670
14005670
14800030
1205760
4900010
14900010
1205760
4900010
14900010
1205760
4900010
14900010
1205760
4900020
24300000
4005640
100905640
4052605690
1005690
1805700
13405080
100905770
4605690
3005080
75570
100000
0
0
0
0
0
0
500
28000
0
10
20
50
800
10000405776
20202021616
60000300500
61000050500
1005710
4005650
1005630
14800100
1505750
4205650
00004010001
12105060
1005650
1405740
14005680
3705620
4605660
1005650
4005640
4205640
00001010001
1405630
14900100
1205660
4005660
14800100
12705680
1505680
00014010001
4005660
12705680
1005640
1305730
4005640
3605340
1405660
14005660
12105160
142705650
1005660
14800100
1505630
1205670
14005670
14800030
1205760
4900010
14900010
1205760
4900010
14900010
1205760
4900010
14900010
1205760
4900020
24300000
4005640
100905640
4052605690
1005690
1805700
13405080
100905770
4605690
3005080
75570
100000
0
0
0
0
0
0
500
28000
0
10
20
50
800
10000405776
20202021616
60000300500

34
software/examples/WINTER.PI.Load.card → software/examples/WINTER.PI/WINTER.PI.Load.card
View File

@@ -1,17 +1,17 @@
777 PRINT FIRST 800 DIGITS OF PI
777 ADAPTED BY P.KIMPEL FROM C PROGRAM BY DIK WINTER OF CWI, AMSTERDAM
666 61000600505
66661000600511000001005710000040056500000100563000014800100000015057500000420565
66661000600517100004010000000121050600000100565000001405740000140056800000370562
66661000600523000004605660000010056500000400564000004205641000010100000000140563
66661000600529000014900100000012056600000400566000014800100000127056800000150568
66661000600535100014010000000040056600001270568000001005640000013057300000400564
66661000600541000003605340000014056600001400566000012105160001427056500000100566
66661000600547000014800100000015056300000120567000014005670000148000300000120576
66661000600553000004900010000149000100000120576000004900010000149000100000120576
66661000600559000004900010000149000100000120576000004900020000243000000000400564
66661000600562000100905640040526056900000100569000001805700000134050800010090577
666 61000600568000004605690000030050800000007557
66661000600574000000100000000000000000000000000000000000000000000000000000000000
66661000600577000000000000000000005000000002800000000000000000000000100000000002
666 60000300500000000000050000000008020202021616
777 PRINT FIRST 800 DIGITS OF PI
777 ADAPTED BY P.KIMPEL FROM C PROGRAM BY DIK WINTER OF CWI, AMSTERDAM
666 61000600505
66661000600511000001005710000040056500000100563000014800100000015057500000420565
66661000600517100004010000000121050600000100565000001405740000140056800000370562
66661000600523000004605660000010056500000400564000004205641000010100000000140563
66661000600529000014900100000012056600000400566000014800100000127056800000150568
66661000600535100014010000000040056600001270568000001005640000013057300000400564
66661000600541000003605340000014056600001400566000012105160001427056500000100566
66661000600547000014800100000015056300000120567000014005670000148000300000120576
66661000600553000004900010000149000100000120576000004900010000149000100000120576
66661000600559000004900010000149000100000120576000004900020000243000000000400564
66661000600562000100905640040526056900000100569000001805700000134050800010090577
666 61000600568000004605690000030050800000007557
66661000600574000000100000000000000000000000000000000000000000000000000000000000
66661000600577000000000000000000005000000002800000000000000000000000100000000002
666 60000300500000000000050000000008020202021616

160
software/examples/WINTER.PI.Load.pt → software/examples/WINTER.PI/WINTER.PI.Load.pt
View File

@@ -1,80 +1,80 @@
61000040500
00000100571
00000400565
00000100563
00001480010
00000150575
00000420565
10000401000
00001210506
00000100565
00000140574
00001400568
00000370562
00000460566
00000100565
00000400564
00000420564
10000101000
00000140563
00001490010
00000120566
00000400566
00001480010
00001270568
00000150568
10001401000
00000400566
00001270568
00000100564
00000130573
00000400564
00000360534
00000140566
00001400566
00001210516
00014270565
00000100566
00001480010
00000150563
00000120567
00001400567
00001480003
00000120576
00000490001
00001490001
00000120576
00000490001
00001490001
00000120576
00000490001
00001490001
00000120576
00000490002
00002430000
00000400564
00010090564
00405260569
00000100569
00000180570
00001340508
00010090577
00000460569
00000300508
00000007557
00000010000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000050
00000002800
00000000000
00000000001
00000000002
00000000005
00000000080
2___||
60000300500
61000040500
00000100571
00000400565
00000100563
00001480010
00000150575
00000420565
10000401000
00001210506
00000100565
00000140574
00001400568
00000370562
00000460566
00000100565
00000400564
00000420564
10000101000
00000140563
00001490010
00000120566
00000400566
00001480010
00001270568
00000150568
10001401000
00000400566
00001270568
00000100564
00000130573
00000400564
00000360534
00000140566
00001400566
00001210516
00014270565
00000100566
00001480010
00000150563
00000120567
00001400567
00001480003
00000120576
00000490001
00001490001
00000120576
00000490001
00001490001
00000120576
00000490001
00001490001
00000120576
00000490002
00002430000
00000400564
00010090564
00405260569
00000100569
00000180570
00001340508
00010090577
00000460569
00000300508
00000007557
00000010000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000050
00000002800
00000000000
00000000001
00000000002
00000000005
00000000080
2___||
60000300500

186
software/examples/WINTER.PI.card → software/examples/WINTER.PI/WINTER.PI.card
View File

@@ -1,93 +1,93 @@
1 REM PRINT FIRST 800 DIGITS OF PI
1 REM ADAPTED FROM C PROGRAM B DIK WINTER OF CWI, AMSTERDAM
1 LOCN 0300
1 CAD FLIM
1 STA C C=FLIM
1 CAD A
1 SRT 10
1 DIV FIVE A DIV 5
1 LDB C FOR (B=C; B>=0; --B)
1 STA - F F[B]=A DIV 5
1 DBB *-1,1
1 REM
1 L1 CAD C START OF OUTER LOOP
1 MUL TWO
1 STR G G=C*2
1 BFR ENDL1,00,00 IF G EQL 0, BRANCH OUT OF LOOP
1 CLL D D=0
1 CAD C
1 STA B B=C
1 LDB B
1 REM
1 DO CAD - F START OF INNER LOOP
1 MUL A F[B]*A
1 SLT 10 SHIFT PRODUCT TO RA
1 ADD D
1 STA D D+=F[B]*A
1 SRT 10 SAVE NEW D IN RR
1 DFL G,00,1 G-=1
1 DIV G D DIV G
1 STR - F F[B]=D MOD G
1 STA D D=D DIV G
1 DFL G,00,1 G-=1
1 CAD B
1 SUB ONE
1 STA B B-=1
1 BFA ENDDO,00,00 IF B EQL 0, BRANCH OUT OF INNER LOOP
1 MUL D
1 STR D D*=B
1 DBB DO,1 DECREMENT RB, REPEAT INNER LOOP IF >= 0
1 REM
1 ENDDO DFL C,00,14 C-=14
1 CAD D
1 SRT 10
1 DIV A D DIV A
1 ADD E RA=E+D DIV A
1 STR E E=D MOD A
1 REM
1 REM FORMAT 4 DIGITS FOR SPO OUTPUT
1 SRT 3 ISOLATE HIGH-ORDER DIGIT IN A
1 ADD N80 CONVERT 1ST DIGIT TO ALPHA
1 SLA 1
1 SLT 1
1 ADD N80 CONVERT 2ND DIGIT TO ALPHA
1 SLA 1
1 SLT 1
1 ADD N80 CONVERT 3RD DIGIT TO ALPHA
1 SLA 1
1 SLT 1
1 ADD N80 CONVERT 4TH DIGIT TO ALPHA
1 SLA 2 INSERT TRAILING SPACE
1 LSA 2 SET SIGN TO TWO FOR ALPHA WORD
1 STA B STORE IN WORD BUFFER
1 SPO B,1
1 IFL COL,04,5 CHECK FOR FULL LINE ON SPO
1 CAD COL
1 CFA ECOL
1 BCL L1 IF COL < ECOL, BRANCH
1 SPO CR,1 OUTPUT NEWLINES
1 CLL COL CLEAR COLUMN COUNTER
1 BUN L1
1 ENDL1 HLT 7557
1 REM
1 REM SCALARS
1 A CNST 10000
1 B CNST 0
1 C CNST 0
1 D CNST 0
1 E CNST 0
1 G CNST 0
1 COL CNST 0
1 ECOL CNST 50
1 FLIM CNST 2800
1 ZERO CNST 0
1 ONE CNST 1
1 TWO CNST 2
1 FIVE CNST 5
1 N80 CNST 80
1 CR CNST 20202021616 NEWLINES
1 REM
1 LOCN 1000
1 F DEFN *
1 LOCN *+2800
1 FINI 300
1 REM PRINT FIRST 800 DIGITS OF PI
1 REM ADAPTED FROM C PROGRAM B DIK WINTER OF CWI, AMSTERDAM
1 LOCN 0300
1 CAD FLIM
1 STA C C=FLIM
1 CAD A
1 SRT 10
1 DIV FIVE A DIV 5
1 LDB C FOR (B=C; B>=0; --B)
1 STA - F F[B]=A DIV 5
1 DBB *-1,1
1 REM
1 L1 CAD C START OF OUTER LOOP
1 MUL TWO
1 STR G G=C*2
1 BFR ENDL1,00,00 IF G EQL 0, BRANCH OUT OF LOOP
1 CLL D D=0
1 CAD C
1 STA B B=C
1 LDB B
1 REM
1 DO CAD - F START OF INNER LOOP
1 MUL A F[B]*A
1 SLT 10 SHIFT PRODUCT TO RA
1 ADD D
1 STA D D+=F[B]*A
1 SRT 10 SAVE NEW D IN RR
1 DFL G,00,1 G-=1
1 DIV G D DIV G
1 STR - F F[B]=D MOD G
1 STA D D=D DIV G
1 DFL G,00,1 G-=1
1 CAD B
1 SUB ONE
1 STA B B-=1
1 BFA ENDDO,00,00 IF B EQL 0, BRANCH OUT OF INNER LOOP
1 MUL D
1 STR D D*=B
1 DBB DO,1 DECREMENT RB, REPEAT INNER LOOP IF >= 0
1 REM
1 ENDDO DFL C,00,14 C-=14
1 CAD D
1 SRT 10
1 DIV A D DIV A
1 ADD E RA=E+D DIV A
1 STR E E=D MOD A
1 REM
1 REM FORMAT 4 DIGITS FOR SPO OUTPUT
1 SRT 3 ISOLATE HIGH-ORDER DIGIT IN A
1 ADD N80 CONVERT 1ST DIGIT TO ALPHA
1 SLA 1
1 SLT 1
1 ADD N80 CONVERT 2ND DIGIT TO ALPHA
1 SLA 1
1 SLT 1
1 ADD N80 CONVERT 3RD DIGIT TO ALPHA
1 SLA 1
1 SLT 1
1 ADD N80 CONVERT 4TH DIGIT TO ALPHA
1 SLA 2 INSERT TRAILING SPACE
1 LSA 2 SET SIGN TO TWO FOR ALPHA WORD
1 STA B STORE IN WORD BUFFER
1 SPO B,1
1 IFL COL,04,5 CHECK FOR FULL LINE ON SPO
1 CAD COL
1 CFA ECOL
1 BCL L1 IF COL < ECOL, BRANCH
1 SPO CR,1 OUTPUT NEWLINES
1 CLL COL CLEAR COLUMN COUNTER
1 BUN L1
1 ENDL1 HLT 7557
1 REM
1 REM SCALARS
1 A CNST 10000
1 B CNST 0
1 C CNST 0
1 D CNST 0
1 E CNST 0
1 G CNST 0
1 COL CNST 0
1 ECOL CNST 50
1 FLIM CNST 2800
1 ZERO CNST 0
1 ONE CNST 1
1 TWO CNST 2
1 FIVE CNST 5
1 N80 CNST 80
1 CR CNST 20202021616 NEWLINES
1 REM
1 LOCN 1000
1 F DEFN *
1 LOCN *+2800
1 FINI 300

306
software/examples/WINTER.PI.lst → software/examples/WINTER.PI/WINTER.PI.lst
View File

@@ -1,153 +1,153 @@
Assembler for the Burroughs 220 BALGOL Compiler & Intrinsics
Pass 1 Listing Pass 2 Listing
END OF PASS 1, ERRORS = 0
SYMBOL TABLE
363 A 364 B 1 BMOD 365 C 369 COL
377 CR 366 D 316 DO 367 E 370 ECOL
334 ENDDO 362 ENDL1 1000 F 375 FIVE 371 FLIM
368 G 308 L1 376 N80 373 ONE 1 RLO
374 TWO 372 ZERO
PRINT FIRST 800 DIGITS OF PI
ADAPTED FROM C PROGRAM B DIK WINTER OF CWI, AMSTERDAM
3 0000 LOCN 0300
4 0300 0 0000 10 0371 CAD FLIM
5 0301 0 0000 40 0365 STA C C=FLIM
6 0302 0 0000 10 0363 CAD A
7 0303 0 0001 48 0010 SRT 10
8 0304 0 0000 15 0375 DIV FIVE A DIV 5
9 0305 0 0000 42 0365 LDB C FOR (B=C; B>=0; --B)
10 0306 1 0000 40 1000 STA - F F[B]=A DIV 5
11 0307 0 0001 21 0306 DBB *-1,1
13 0308 0 0000 10 0365 L1 CAD C START OF OUTER LOOP
14 0309 0 0000 14 0374 MUL TWO
15 0310 0 0001 40 0368 STR G G=C*2
16 0311 0 0000 37 0362 BFR ENDL1,00,00 IF G EQL 0, BRANCH OUT OF LOOP
17 0312 0 0000 46 0366 CLL D D=0
18 0313 0 0000 10 0365 CAD C
19 0314 0 0000 40 0364 STA B B=C
20 0315 0 0000 42 0364 LDB B
22 0316 1 0000 10 1000 DO CAD - F START OF INNER LOOP
23 0317 0 0000 14 0363 MUL A F[B]*A
24 0318 0 0001 49 0010 SLT 10 SHIFT PRODUCT TO RA
25 0319 0 0000 12 0366 ADD D
26 0320 0 0000 40 0366 STA D D+=F[B]*A
27 0321 0 0001 48 0010 SRT 10 SAVE NEW D IN RR
28 0322 0 0001 27 0368 DFL G,00,1 G-=1
29 0323 0 0000 15 0368 DIV G D DIV G
30 0324 1 0001 40 1000 STR - F F[B]=D MOD G
31 0325 0 0000 40 0366 STA D D=D DIV G
32 0326 0 0001 27 0368 DFL G,00,1 G-=1
33 0327 0 0000 10 0364 CAD B
34 0328 0 0000 13 0373 SUB ONE
35 0329 0 0000 40 0364 STA B B-=1
36 0330 0 0000 36 0334 BFA ENDDO,00,00 IF B EQL 0, BRANCH OUT OF INNER LOOP
37 0331 0 0000 14 0366 MUL D
38 0332 0 0001 40 0366 STR D D*=B
39 0333 0 0001 21 0316 DBB DO,1 DECREMENT RB, REPEAT INNER LOOP IF >= 0
41 0334 0 0014 27 0365 ENDDO DFL C,00,14 C-=14
42 0335 0 0000 10 0366 CAD D
43 0336 0 0001 48 0010 SRT 10
44 0337 0 0000 15 0363 DIV A D DIV A
45 0338 0 0000 12 0367 ADD E RA=E+D DIV A
46 0339 0 0001 40 0367 STR E E=D MOD A
FORMAT 4 DIGITS FOR SPO OUTPUT
49 0340 0 0001 48 0003 SRT 3 ISOLATE HIGH-ORDER DIGIT IN A
50 0341 0 0000 12 0376 ADD N80 CONVERT 1ST DIGIT TO ALPHA
51 0342 0 0000 49 0001 SLA 1
52 0343 0 0001 49 0001 SLT 1
53 0344 0 0000 12 0376 ADD N80 CONVERT 2ND DIGIT TO ALPHA
54 0345 0 0000 49 0001 SLA 1
55 0346 0 0001 49 0001 SLT 1
56 0347 0 0000 12 0376 ADD N80 CONVERT 3RD DIGIT TO ALPHA
57 0348 0 0000 49 0001 SLA 1
58 0349 0 0001 49 0001 SLT 1
59 0350 0 0000 12 0376 ADD N80 CONVERT 4TH DIGIT TO ALPHA
60 0351 0 0000 49 0002 SLA 2 INSERT TRAILING SPACE
61 0352 0 0002 43 0000 LSA 2 SET SIGN TO TWO FOR ALPHA WORD
62 0353 0 0000 40 0364 STA B STORE IN WORD BUFFER
63 0354 0 0010 09 0364 SPO B,1
64 0355 0 0405 26 0369 IFL COL,04,5 CHECK FOR FULL LINE ON SPO
65 0356 0 0000 10 0369 CAD COL
66 0357 0 0000 18 0370 CFA ECOL
67 0358 0 0001 34 0308 BCL L1 IF COL < ECOL, BRANCH
68 0359 0 0010 09 0377 SPO CR,1 OUTPUT NEWLINES
69 0360 0 0000 46 0369 CLL COL CLEAR COLUMN COUNTER
70 0361 0 0000 30 0308 BUN L1
71 0362 0 0000 00 7557 ENDL1 HLT 7557
SCALARS
74 0363 0 0000 01 0000 A CNST 10000
75 0364 0 0000 00 0000 B CNST 0
76 0365 0 0000 00 0000 C CNST 0
77 0366 0 0000 00 0000 D CNST 0
78 0367 0 0000 00 0000 E CNST 0
79 0368 0 0000 00 0000 G CNST 0
80 0369 0 0000 00 0000 COL CNST 0
81 0370 0 0000 00 0050 ECOL CNST 50
82 0371 0 0000 00 2800 FLIM CNST 2800
83 0372 0 0000 00 0000 ZERO CNST 0
84 0373 0 0000 00 0001 ONE CNST 1
85 0374 0 0000 00 0002 TWO CNST 2
86 0375 0 0000 00 0005 FIVE CNST 5
87 0376 0 0000 00 0080 N80 CNST 80
88 0377 2 0202 02 1616 CR CNST 20202021616 NEWLINES
90 0378 LOCN 1000
91 1000 F DEFN *
92 1000 LOCN *+2800
93 3800 FINI 300
END OF PASS 2, ERRORS = 0
3141 5926 5358 9793 2384 6264 3383 2795 0288 4197
1693 9937 5105 8209 7494 4592 3078 1640 6286 2089
9862 8034 8253 4211 7067 9821 4808 6513 2823 0664
7093 8446 0955 0582 2317 2535 9408 1284 8111 7450
2841 0270 1938 5211 0555 9644 6229 4895 4930 3819
6442 8810 9756 6593 3446 1284 7564 8233 7867 8316
5271 2019 0914 5648 5669 2346 0348 6104 5432 6648
2133 9360 7260 2491 4127 3724 5870 0660 6315 5881
7488 1520 9209 6282 9254 0917 1536 4367 8925 9036
0011 3305 3054 8820 4665 2138 4146 9519 4151 1609
4330 5727 0365 7595 9195 3092 1861 1738 1932 6117
9310 5118 5480 7446 2379 9627 4956 7351 8857 5272
4891 2279 3818 3011 9491 2983 3673 3624 4065 6643
0860 2139 4946 3952 2473 7190 7021 7986 0943 7027
7053 9217 1762 9317 6752 3846 7481 8467 6694 0513
2000 5681 2714 5263 5608 2778 5771 3427 5778 9609
1736 3717 8721 4684 4090 1224 9534 3014 6549 5853
7105 0792 2796 8925 8923 5420 1995 6112 1290 2196
0864 0344 1815 9813 6297 7477 1309 9605 1870 7211
3499 9999 8372 9780 4995 1059 7317 3281 6096 3185
Assembler for the Burroughs 220 BALGOL Compiler & Intrinsics
Pass 1 Listing Pass 2 Listing
END OF PASS 1, ERRORS = 0
SYMBOL TABLE
363 A 364 B 1 BMOD 365 C 369 COL
377 CR 366 D 316 DO 367 E 370 ECOL
334 ENDDO 362 ENDL1 1000 F 375 FIVE 371 FLIM
368 G 308 L1 376 N80 373 ONE 1 RLO
374 TWO 372 ZERO
PRINT FIRST 800 DIGITS OF PI
ADAPTED FROM C PROGRAM B DIK WINTER OF CWI, AMSTERDAM
3 0000 LOCN 0300
4 0300 0 0000 10 0371 CAD FLIM
5 0301 0 0000 40 0365 STA C C=FLIM
6 0302 0 0000 10 0363 CAD A
7 0303 0 0001 48 0010 SRT 10
8 0304 0 0000 15 0375 DIV FIVE A DIV 5
9 0305 0 0000 42 0365 LDB C FOR (B=C; B>=0; --B)
10 0306 1 0000 40 1000 STA - F F[B]=A DIV 5
11 0307 0 0001 21 0306 DBB *-1,1
13 0308 0 0000 10 0365 L1 CAD C START OF OUTER LOOP
14 0309 0 0000 14 0374 MUL TWO
15 0310 0 0001 40 0368 STR G G=C*2
16 0311 0 0000 37 0362 BFR ENDL1,00,00 IF G EQL 0, BRANCH OUT OF LOOP
17 0312 0 0000 46 0366 CLL D D=0
18 0313 0 0000 10 0365 CAD C
19 0314 0 0000 40 0364 STA B B=C
20 0315 0 0000 42 0364 LDB B
22 0316 1 0000 10 1000 DO CAD - F START OF INNER LOOP
23 0317 0 0000 14 0363 MUL A F[B]*A
24 0318 0 0001 49 0010 SLT 10 SHIFT PRODUCT TO RA
25 0319 0 0000 12 0366 ADD D
26 0320 0 0000 40 0366 STA D D+=F[B]*A
27 0321 0 0001 48 0010 SRT 10 SAVE NEW D IN RR
28 0322 0 0001 27 0368 DFL G,00,1 G-=1
29 0323 0 0000 15 0368 DIV G D DIV G
30 0324 1 0001 40 1000 STR - F F[B]=D MOD G
31 0325 0 0000 40 0366 STA D D=D DIV G
32 0326 0 0001 27 0368 DFL G,00,1 G-=1
33 0327 0 0000 10 0364 CAD B
34 0328 0 0000 13 0373 SUB ONE
35 0329 0 0000 40 0364 STA B B-=1
36 0330 0 0000 36 0334 BFA ENDDO,00,00 IF B EQL 0, BRANCH OUT OF INNER LOOP
37 0331 0 0000 14 0366 MUL D
38 0332 0 0001 40 0366 STR D D*=B
39 0333 0 0001 21 0316 DBB DO,1 DECREMENT RB, REPEAT INNER LOOP IF >= 0
41 0334 0 0014 27 0365 ENDDO DFL C,00,14 C-=14
42 0335 0 0000 10 0366 CAD D
43 0336 0 0001 48 0010 SRT 10
44 0337 0 0000 15 0363 DIV A D DIV A
45 0338 0 0000 12 0367 ADD E RA=E+D DIV A
46 0339 0 0001 40 0367 STR E E=D MOD A
FORMAT 4 DIGITS FOR SPO OUTPUT
49 0340 0 0001 48 0003 SRT 3 ISOLATE HIGH-ORDER DIGIT IN A
50 0341 0 0000 12 0376 ADD N80 CONVERT 1ST DIGIT TO ALPHA
51 0342 0 0000 49 0001 SLA 1
52 0343 0 0001 49 0001 SLT 1
53 0344 0 0000 12 0376 ADD N80 CONVERT 2ND DIGIT TO ALPHA
54 0345 0 0000 49 0001 SLA 1
55 0346 0 0001 49 0001 SLT 1
56 0347 0 0000 12 0376 ADD N80 CONVERT 3RD DIGIT TO ALPHA
57 0348 0 0000 49 0001 SLA 1
58 0349 0 0001 49 0001 SLT 1
59 0350 0 0000 12 0376 ADD N80 CONVERT 4TH DIGIT TO ALPHA
60 0351 0 0000 49 0002 SLA 2 INSERT TRAILING SPACE
61 0352 0 0002 43 0000 LSA 2 SET SIGN TO TWO FOR ALPHA WORD
62 0353 0 0000 40 0364 STA B STORE IN WORD BUFFER
63 0354 0 0010 09 0364 SPO B,1
64 0355 0 0405 26 0369 IFL COL,04,5 CHECK FOR FULL LINE ON SPO
65 0356 0 0000 10 0369 CAD COL
66 0357 0 0000 18 0370 CFA ECOL
67 0358 0 0001 34 0308 BCL L1 IF COL < ECOL, BRANCH
68 0359 0 0010 09 0377 SPO CR,1 OUTPUT NEWLINES
69 0360 0 0000 46 0369 CLL COL CLEAR COLUMN COUNTER
70 0361 0 0000 30 0308 BUN L1
71 0362 0 0000 00 7557 ENDL1 HLT 7557
SCALARS
74 0363 0 0000 01 0000 A CNST 10000
75 0364 0 0000 00 0000 B CNST 0
76 0365 0 0000 00 0000 C CNST 0
77 0366 0 0000 00 0000 D CNST 0
78 0367 0 0000 00 0000 E CNST 0
79 0368 0 0000 00 0000 G CNST 0
80 0369 0 0000 00 0000 COL CNST 0
81 0370 0 0000 00 0050 ECOL CNST 50
82 0371 0 0000 00 2800 FLIM CNST 2800
83 0372 0 0000 00 0000 ZERO CNST 0
84 0373 0 0000 00 0001 ONE CNST 1
85 0374 0 0000 00 0002 TWO CNST 2
86 0375 0 0000 00 0005 FIVE CNST 5
87 0376 0 0000 00 0080 N80 CNST 80
88 0377 2 0202 02 1616 CR CNST 20202021616 NEWLINES
90 0378 LOCN 1000
91 1000 F DEFN *
92 1000 LOCN *+2800
93 3800 FINI 300
END OF PASS 2, ERRORS = 0
3141 5926 5358 9793 2384 6264 3383 2795 0288 4197
1693 9937 5105 8209 7494 4592 3078 1640 6286 2089
9862 8034 8253 4211 7067 9821 4808 6513 2823 0664
7093 8446 0955 0582 2317 2535 9408 1284 8111 7450
2841 0270 1938 5211 0555 9644 6229 4895 4930 3819
6442 8810 9756 6593 3446 1284 7564 8233 7867 8316
5271 2019 0914 5648 5669 2346 0348 6104 5432 6648
2133 9360 7260 2491 4127 3724 5870 0660 6315 5881
7488 1520 9209 6282 9254 0917 1536 4367 8925 9036
0011 3305 3054 8820 4665 2138 4146 9519 4151 1609
4330 5727 0365 7595 9195 3092 1861 1738 1932 6117
9310 5118 5480 7446 2379 9627 4956 7351 8857 5272
4891 2279 3818 3011 9491 2983 3673 3624 4065 6643
0860 2139 4946 3952 2473 7190 7021 7986 0943 7027
7053 9217 1762 9317 6752 3846 7481 8467 6694 0513
2000 5681 2714 5263 5608 2778 5771 3427 5778 9609
1736 3717 8721 4684 4090 1224 9534 3014 6549 5853
7105 0792 2796 8925 8923 5420 1995 6112 1290 2196
0864 0344 1815 9813 6297 7477 1309 9605 1870 7211
3499 9999 8372 9780 4995 1059 7317 3281 6096 3185