github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-04-10 22:51:52 +00:00
Code Issues Releases Wiki Activity

1. Commit proofing updates to BALGOL-Intrinsics transcriptions.

Browse Source 
2. Commit README for BALGOL-Examples.
This commit is contained in:
Paul Kimpel
2017-03-30 08:18:49 -07:00
parent f891d5198d
commit 3f3bf2cd85
10 changed files with 42 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
software/BALGOL/BALGOL-Examples/README.txt Normal file
View File

@@ -0,0 +1,27 @@
Index of folder retro-220/software/BALGOL/BALGOL-Examples:
Source, object, and compilation listings for example programs used with
the BAC-220 Burroughs Algebraic Compiler.
Unless otherwise specified, all files are in standard Windows text
format, with carriage-return/line-feed delimiters.
Example-1-BALGOL.card
Example-2-BALGOL.card
Example-3-BALGOL.card
Example-4-BALGOL.card
Example BALGOL programs transcribed from Section 11 of the BAC-220
Burroughs Algebraic Compiler manual, revised edition, March 1963,
Burroughs document 220-21017, available at:
http://bitsavers.org/pdf/burroughs/electrodata/220/
220-21017_B220_BALGOL_Mar63.pdf.
B5500-EMODE/
This sub-folder contains source and listings of BALGOL programs as
converted to run on the Burroughs B5500 (retro-b5500 emulator) and
modern Unisys ClearPath MCP (E-mode) systems.
Paul Kimpel
March 2017

2
software/BALGOL/BALGOL-Intrinsics/COS.baca
View File

@@ -1,7 +1,7 @@
.00.0 0100 SIN DEFN 100
.00.0 0000 COS CRB
.00.0 0001 LDR 8 COS
.00.0 0002 STR 8 SIN,04
.00.0 0002 STR 6 SIN,04
.00.0 0003 LDR 8 COS2
.00.0 0004 FAD 8 +5078539816
.00.0 0005 FAD 8 +5078539816

2
software/BALGOL/BALGOL-Intrinsics/COSH.baca
View File

@@ -8,7 +8,7 @@
.00.0 0005 BZA 8 A+
.00.0 0006 STA 6 ERROR+52
.00.0 0007 CAD 6 ERROR+51 =1.0=
.00.0 0008 FDB 6 ERROR+52
.00.0 0008 FDV 6 ERROR+52
.00.0 0009 FAD 6 ERROR+52
.00.0 0010 FMU 8 +5050000000
.00.0 0011 *A LDB 8 COSH

2
software/BALGOL/BALGOL-Intrinsics/MONTR.baca
View File

@@ -26,7 +26,7 @@
.00.0 0023 BFR 8 A+,21,0
.00.0 0024 STA 8 OUT+2
.00.0 0025 BPA 8 C+
.00.0 0026 IFL8 OUT+1,42,20
.00.0 0026 IFL 8 OUT+1,42,20
.00.0 0027 *C STB 8 F+,04
.00.0 0028 F4246 0504,44,0200
.00.0 0029 F4246 OUT,30,0200

2
software/BALGOL/BALGOL-Intrinsics/REED.baca
View File

@@ -1,4 +1,4 @@
,00,0 READ DEFN 100
.00.0 READ DEFN 100
.00.0 0000 REED NOP
.00.0 0001 CRD 0117,1
.00.0 0002 BUN 6 0111

2
software/BALGOL/BALGOL-Intrinsics/ROMXX.baca
View File

@@ -15,7 +15,7 @@
.00.0 0012 STR 8 E+,02
.00.0 0013 LBC B E+
.00.0 0014 SRT - 51
.00.0 0015 SUB 8 +10000000000
.00.0 0015 SUB 8 +1000000000
.00.0 0016 SLT 10
.00.0 0017 SUB 6 ERROR+48 =5(11)=
.00.0 0018 SUB 6 ERROR+48

2
software/BALGOL/BALGOL-Intrinsics/SINH.baca
View File

@@ -22,7 +22,7 @@
.00.0 0019 FMU 6 ERROR+49 B
.00.0 0020 FAD 8 +5016666667
.00.0 0021 FMU 6 ERROR+49 B
.00.0 0022 FMU 6 ERROR+12
.00.0 0022 FMU 6 ERROR+52
.00.0 0023 FAD 6 ERROR+52
.00.0 0024 BUN 8 B-
.00.0 0025 *C LDB 8 SINH

4
software/BALGOL/BALGOL-Intrinsics/TAN.baca
View File

@@ -11,7 +11,7 @@
.00.0 0007 CAD 8 X
.00.0 0008 STP 6 SIN
.00.0 0009 BUN 6 SIN
.00.0 0010 FDV 6 COSX
.00.0 0010 FDV 8 COSX
.00.0 0011 LDB 8 TAN
.00.0 0012 BUN - 0
.00.0 0013 *A LDR 8 X
@@ -23,7 +23,7 @@
.00.0 0019 X CNST 0
.00.0 0020 COSX CNST 0
.00.0 0021 TAN1 CNST $TAN$
.00.0 0022 TAN2 HLT TAN1
.00.0 0022 TAN2 HLT 8 TAN1
.00.0 0023 CNST 40000990000
.00.0 0024 CNST $TAN,REAL(REAL) SIN=1 COS=2 ERROR=3 $
.00.0 0031 CNST 90000000000

10
software/BALGOL/BALGOL-Intrinsics/WRITE.baca
View File

@@ -13,7 +13,7 @@
.10.0 0132 NEXTN DEFN 132
.11.0 0133 DELTA DEFN 133
.12.0 0134 THISN DEFN 134
.13.0 0000 WRITE CNST 01000010000
.13.0 0000 WRITE CNST 0100010000
.14.0 0001 STA 8 FORMT,04
.15.0 0002 LDB 8 *+2
.16.0 0003 RTF 8 SIGN2,1
@@ -22,7 +22,7 @@
.19.0 0006 STB 8 XIT,04
.20.0 0007 LDR - 9999
.21.0 0008 LSA 9,7557
.22.0 0009 BFR 9 1+,22,00
.22.0 0009 BFR 8 I+,22,00
.23.0 0010 LDB 100
.24.0 0011 STP - 0
.25.0 0012 BFR - 1,22,01
@@ -183,7 +183,7 @@
1.80.0 0167 IFL ZOUT,00,2
1.81.0 0168 EXIT1 BUN 9999
1.82.0 0169 *Q DBB 8 I80,9
1.83.0 0170 I51 SAL 51
1.83.0 0170 I51 SLA 51
1.84.0 0171 DBB 8 C-,1
1.85.0 0172 XX CLR 7557
1.86.0 0173 I8 SRT 8
@@ -204,7 +204,7 @@
02.01.0 0188 STA DELTA,02
02.02.0 0189 CFR OP,02
02.03.0 0190 BCE 8 *+3
02.04.0 0191 8F CAD 8 +50
02.04.0 0191 *F CAD 8 +50
02.05.0 0192 BUN 8 E-
02.06.0 0193 CAD 8 I51
2.07.0 0194 STA THISN,11
@@ -230,7 +230,7 @@
2.27.0 0214 DFL ZOUT,0,2
2.28.0 0215 LDR 8 I14
2.29.0 0216 STP 8 EXIT1
2.30.0 0217 BUN8 SUBR1
2.30.0 0217 BUN 8 SUBR1
2.31.0 0218 BUN 8 CYCLE
2.32.0 0219 *C LDR 8 H0
2.33.0 0220 *E CAD 8 I1

12
software/BALGOL/README.txt
View File

@@ -1,6 +1,6 @@
Index of folder retro-220/software/BALGOL:
Source, object, and assembly listings for the Burroughs Algebraic
Compiler, an implementation of Algol-58 for the Burroughs 205, as
Compiler, an implementation of Algol-58 for the Burroughs 220, as
prepared for the retro-220 emulator.
Unless otherwise specified, all files are in standard Windows text
@@ -51,15 +51,7 @@ BALGOL-Intrinsics/
coded on the listings.
BALGOL-Examples/
Sample BALGOL programs transcribed from Section 11 of the BAC-220
Burroughs Algebraic Compiler manual, revised edition, March 1963,
Burroughs document 220-21017, available at:
http://bitsavers.org/pdf/burroughs/electrodata/220/
220-21017_B220_BALGOL_Mar63.pdf.
A sub-folder contains copies of these programs converted to run on
the Burroughs B5500 (retro-b5500 emulator) and modern Unisys
ClearPath MCP (E-mode) systems.
Source code and listings for sample BALGOL programs.
Paul Kimpel
March 2017