From 3f3bf2cd858105d6c6005e3acab8a5e8f83ed046 Mon Sep 17 00:00:00 2001 From: Paul Kimpel Date: Thu, 30 Mar 2017 08:18:49 -0700 Subject: [PATCH] 1. Commit proofing updates to BALGOL-Intrinsics transcriptions. 2. Commit README for BALGOL-Examples. --- software/BALGOL/BALGOL-Examples/README.txt | 27 ++++++++++++++++++++ software/BALGOL/BALGOL-Intrinsics/COS.baca | 2 +- software/BALGOL/BALGOL-Intrinsics/COSH.baca | 2 +- software/BALGOL/BALGOL-Intrinsics/MONTR.baca | 2 +- software/BALGOL/BALGOL-Intrinsics/REED.baca | 2 +- software/BALGOL/BALGOL-Intrinsics/ROMXX.baca | 2 +- software/BALGOL/BALGOL-Intrinsics/SINH.baca | 2 +- software/BALGOL/BALGOL-Intrinsics/TAN.baca | 4 +-- software/BALGOL/BALGOL-Intrinsics/WRITE.baca | 10 ++++---- software/BALGOL/README.txt | 12 ++------- 10 files changed, 42 insertions(+), 23 deletions(-) create mode 100644 software/BALGOL/BALGOL-Examples/README.txt diff --git a/software/BALGOL/BALGOL-Examples/README.txt b/software/BALGOL/BALGOL-Examples/README.txt new file mode 100644 index 0000000..799972b --- /dev/null +++ b/software/BALGOL/BALGOL-Examples/README.txt @@ -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 + diff --git a/software/BALGOL/BALGOL-Intrinsics/COS.baca b/software/BALGOL/BALGOL-Intrinsics/COS.baca index ffaa273..5561737 100644 --- a/software/BALGOL/BALGOL-Intrinsics/COS.baca +++ b/software/BALGOL/BALGOL-Intrinsics/COS.baca @@ -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 diff --git a/software/BALGOL/BALGOL-Intrinsics/COSH.baca b/software/BALGOL/BALGOL-Intrinsics/COSH.baca index 101c469..8ef5492 100644 --- a/software/BALGOL/BALGOL-Intrinsics/COSH.baca +++ b/software/BALGOL/BALGOL-Intrinsics/COSH.baca @@ -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 diff --git a/software/BALGOL/BALGOL-Intrinsics/MONTR.baca b/software/BALGOL/BALGOL-Intrinsics/MONTR.baca index dfd4266..6798a74 100644 --- a/software/BALGOL/BALGOL-Intrinsics/MONTR.baca +++ b/software/BALGOL/BALGOL-Intrinsics/MONTR.baca @@ -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 diff --git a/software/BALGOL/BALGOL-Intrinsics/REED.baca b/software/BALGOL/BALGOL-Intrinsics/REED.baca index e680e75..aa605a9 100644 --- a/software/BALGOL/BALGOL-Intrinsics/REED.baca +++ b/software/BALGOL/BALGOL-Intrinsics/REED.baca @@ -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 diff --git a/software/BALGOL/BALGOL-Intrinsics/ROMXX.baca b/software/BALGOL/BALGOL-Intrinsics/ROMXX.baca index a618ce5..c8c5669 100644 --- a/software/BALGOL/BALGOL-Intrinsics/ROMXX.baca +++ b/software/BALGOL/BALGOL-Intrinsics/ROMXX.baca @@ -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 diff --git a/software/BALGOL/BALGOL-Intrinsics/SINH.baca b/software/BALGOL/BALGOL-Intrinsics/SINH.baca index 1a5975e..0b7e4fb 100644 --- a/software/BALGOL/BALGOL-Intrinsics/SINH.baca +++ b/software/BALGOL/BALGOL-Intrinsics/SINH.baca @@ -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 diff --git a/software/BALGOL/BALGOL-Intrinsics/TAN.baca b/software/BALGOL/BALGOL-Intrinsics/TAN.baca index d37eb93..09e0c89 100644 --- a/software/BALGOL/BALGOL-Intrinsics/TAN.baca +++ b/software/BALGOL/BALGOL-Intrinsics/TAN.baca @@ -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 diff --git a/software/BALGOL/BALGOL-Intrinsics/WRITE.baca b/software/BALGOL/BALGOL-Intrinsics/WRITE.baca index c04116b..008bbf6 100644 --- a/software/BALGOL/BALGOL-Intrinsics/WRITE.baca +++ b/software/BALGOL/BALGOL-Intrinsics/WRITE.baca @@ -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 diff --git a/software/BALGOL/README.txt b/software/BALGOL/README.txt index a476a1b..5725e67 100644 --- a/software/BALGOL/README.txt +++ b/software/BALGOL/README.txt @@ -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 -