diff --git a/source/APL/IMAGE.alg_m b/APL-WU-Kildall/APL-IMAGE.alg_m similarity index 100% rename from source/APL/IMAGE.alg_m rename to APL-WU-Kildall/APL-IMAGE.alg_m diff --git a/APL-WU-Kildall/README.txt b/APL-WU-Kildall/README.txt new file mode 100644 index 0000000..21fd6ae --- /dev/null +++ b/APL-WU-Kildall/README.txt @@ -0,0 +1,16 @@ +APL\B5500 + +APL interpreter for the Burroughs B5500, written by Gary Kildall (of +CP/M fame), Leroy Smith, Sally Swedine, and Mary Zosel at Washington +University (Seattle, Washington, US) in the early 1970s. This version +was modified by Jose Hernandez of Burroughs Corporation for operation +under the Timesharing MCP. + +The source was transcribed from a photocopy of a listing donated by +Ed Vandergriff of Chaska, Minnesota, US. According to Ed, this listing +probably originated from the Georgia Institute of Technology (Georgia +Tech) in Atlanta, Georgia, US. + +Transcription was performed jointly by Hans Pufal of Angouleme, France +and Fausto Saporito of Naples, Italy during August-September 2013. + diff --git a/source/B65ESPOL/SOURCE.alg_m b/B6500-Simulator/B65ESPOL.alg_m similarity index 100% rename from source/B65ESPOL/SOURCE.alg_m rename to B6500-Simulator/B65ESPOL.alg_m diff --git a/source/B65MCP/MARK00.esp_m b/B6500-Simulator/B65MCP-MARK00.esp_m similarity index 100% rename from source/B65MCP/MARK00.esp_m rename to B6500-Simulator/B65MCP-MARK00.esp_m diff --git a/source/B65SIM/SOURCE.alg_m b/B6500-Simulator/B65SIM.alg_m similarity index 100% rename from source/B65SIM/SOURCE.alg_m rename to B6500-Simulator/B65SIM.alg_m diff --git a/B6500-Simulator/README.txt b/B6500-Simulator/README.txt new file mode 100644 index 0000000..08365a3 --- /dev/null +++ b/B6500-Simulator/README.txt @@ -0,0 +1,21 @@ +Burroughs B6500 Simulator and Early MCP + +B65SIM.alg_m is a simulator for the B6500 written in a variant of B5500 +Extended Algol, termed LONGALG. This variant implement a "Long Array" +type, which appeared to the programmer to be a single-dimensional array, +but was implemented as a two-dimensional array. The compiler generated +code to partition the array index into column and row portions, and +index the row and column accordingly. + +B65ESPOL.alg_m is an early implementation of an ESPOL cross-compiler for +the B6500, written to run on the B5500. We believe that Don Lyle was the +principle implementor of this compiler. + +B65MCP-MARK00.esp_m is a very early version of the B6500 MCP. It is +notable for its use of ESPOL Queue structure, which eventually proved to +be too expensive at run time, and were removed in the Mark II.0 release. + +These files were transcribed by James Fehlinger of New Jersey, US in +mid-2014, from scans of listings provided by Al Kossow of bitsavers.org. + + diff --git a/source/EULER/EULERIV.alg_m b/EULER-Wirth/EULERIV.alg_m similarity index 100% rename from source/EULER/EULERIV.alg_m rename to EULER-Wirth/EULERIV.alg_m diff --git a/source/EULER/GRAMMAR.card b/EULER-Wirth/GRAMMAR.card similarity index 100% rename from source/EULER/GRAMMAR.card rename to EULER-Wirth/GRAMMAR.card diff --git a/EULER-Wirth/README.txt b/EULER-Wirth/README.txt new file mode 100644 index 0000000..430009f --- /dev/null +++ b/EULER-Wirth/README.txt @@ -0,0 +1,11 @@ +EULER Compiler for the Burroughs B5500 + +An implemention for the EULER language, designed by Niklaus Wirth, +apparently while he was in residence at Stanford University (California, +US). + +These files were transcribed by James Fehlinger of New Jersey, US, +during March 201, from "EULER: A Generalization of Algol and its Formal +Definition," Niklaus Wirth and Helmut Weber, Stanford University +Technical Report CS20, 27 April 1965. + diff --git a/source/EULER/SAMPLE.card b/EULER-Wirth/SAMPLE.card similarity index 100% rename from source/EULER/SAMPLE.card rename to EULER-Wirth/SAMPLE.card diff --git a/source/EULER/SYNTAX.alg_m b/EULER-Wirth/SYNTAX.alg_m similarity index 100% rename from source/EULER/SYNTAX.alg_m rename to EULER-Wirth/SYNTAX.alg_m diff --git a/LICENSE b/LICENSE index 53cc142..a6a6ebc 100644 --- a/LICENSE +++ b/LICENSE @@ -1,6 +1,6 @@ The MIT License (MIT) -Copyright (c) 2016 retro-software +Copyright (c) 2016 Nigel Williams and Paul Kimpel Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal diff --git a/Mark-XVI/LISP/APTLIB.alg_m b/LISP-Fort-Monmouth/APTLIB.alg_m similarity index 100% rename from Mark-XVI/LISP/APTLIB.alg_m rename to LISP-Fort-Monmouth/APTLIB.alg_m diff --git a/LISP-Fort-Monmouth/README.txt b/LISP-Fort-Monmouth/README.txt new file mode 100644 index 0000000..5eb72dc --- /dev/null +++ b/LISP-Fort-Monmouth/README.txt @@ -0,0 +1,8 @@ +LISP Interpreter for the Burroughs B5500 + +This implementation is reputed to have come from the B5500 installation +at Fort Monmouth, New Jersy, US. + +Transcribed from http://bitsavers.org/pdf/burroughs/B5000_5500_5700/ +listing/B5700_Lisp_Apr77.pdf by Fausto Saporito of Naples, Italy. + diff --git a/Mark-XVI/SYMBOL/COOL.esp_m b/Mark-XIV/COOL.esp_m similarity index 100% rename from Mark-XVI/SYMBOL/COOL.esp_m rename to Mark-XIV/COOL.esp_m diff --git a/Mark-XIV/README.txt b/Mark-XIV/README.txt new file mode 100644 index 0000000..88f53f6 --- /dev/null +++ b/Mark-XIV/README.txt @@ -0,0 +1,9 @@ +Transcriptions of Burroughs B5500 Mark XIV Listings + +The following transcriptions are based on scans of listings available +from http://bitsavers.org/pdf/burroughs/B5000_5500_5700/ +listing/mcp_mkXIV/: + +SYMBOL/COOL.esp_m was transcribed from MCP_MkXIV_cool.pdf by Nigel +Williams, with proofing and corrections by Paul Kimpel. + diff --git a/Mark-XVI/README.txt b/Mark-XVI/README.txt new file mode 100644 index 0000000..9e287b1 --- /dev/null +++ b/Mark-XVI/README.txt @@ -0,0 +1,34 @@ +Transcriptions of Burroughs B5500 Mark XVI Listings + +The following transcriptions are based on scans of listings available +from http://bitsavers.org/pdf/burroughs/B5000_5500_5700/listing/: + +SYMBOL/ALGOL.alg_m was transcribed from B5700_Algol_Oct77.pdf by Nigel +Williams, with proofing and corrections by Paul Kimpel. This source was +later used as the base for /Unisys-Emode-Tools/xem/ALGOLXEM.alg_m. + +SYMBOL/DCMCP.esp_m was transcribed from B5700_DCMCP_Sep77.pdf by Paul +Kimpel. Note that as of 2016-05-01, this transcription has not yet been +proofed. + +SYMBOL/ESPOL.alg_m was transcribed from B5700_ESPOL_XVI_Dec76.pdf by +Hans Pufal of Angouleme, France, with proofing and corrections by Paul +Kimpel. This source was later used as the base for /Unisys-Emode- +Tools/xem/ESPOLXEM.alg_m. + +SYMBOL/FORTRAN.alg_m was transcribed from B5700_Fortran_Apr77.pdf by +Fausto Saporito of Naples, Italy. + +SYMBOL/KERNEL.esp_m was transcribed from B5700_Symbol_Kernel_May78.pdf +by Paul Kimpel. + +SYMBOL/TSSINT.esp_m was transcribed from B5700_TSS_Intrinsics_May77.pdf +by Fausto Saporito of Naples, Italy. Note that this transcription is +presently incomplete and does not contain sequence numbers. + +PATCHES/ESPOL-116.txt are patches to SYMBOL/ESPOL.esp_m transcribed from +B5700_ESPOL_Aug77.pdf by Paul Cumberworth of Adelaide, Australia. + +PATCHES/ESPOL-PC-951.txt are patches to SYMBOL/ESPOL.esp_m by Paul +Cumberworth of Adelaide, Australia that allow the compiler to be +compiled under Mark XIII Algol. diff --git a/tools/B5500.POWTEN.alg_m b/Unisys-Emode-Tools/B5500.POWTEN.alg_m similarity index 100% rename from tools/B5500.POWTEN.alg_m rename to Unisys-Emode-Tools/B5500.POWTEN.alg_m diff --git a/tools/BICTOEBCDIC.alg_m b/Unisys-Emode-Tools/BICTOEBCDIC.alg_m similarity index 100% rename from tools/BICTOEBCDIC.alg_m rename to Unisys-Emode-Tools/BICTOEBCDIC.alg_m diff --git a/tools/CODEDUMP55.alg_m b/Unisys-Emode-Tools/CODEDUMP55.alg_m similarity index 100% rename from tools/CODEDUMP55.alg_m rename to Unisys-Emode-Tools/CODEDUMP55.alg_m diff --git a/tools/EMODE.POWTEN.dat_m b/Unisys-Emode-Tools/EMODE.POWTEN.dat_m similarity index 100% rename from tools/EMODE.POWTEN.dat_m rename to Unisys-Emode-Tools/EMODE.POWTEN.dat_m diff --git a/tools/INCL2OMIT.alg_m b/Unisys-Emode-Tools/INCL2OMIT.alg_m similarity index 100% rename from tools/INCL2OMIT.alg_m rename to Unisys-Emode-Tools/INCL2OMIT.alg_m diff --git a/tools/NEATUP-ESPOLXEM.wfl_m b/Unisys-Emode-Tools/NEATUP-ESPOLXEM.wfl_m similarity index 100% rename from tools/NEATUP-ESPOLXEM.wfl_m rename to Unisys-Emode-Tools/NEATUP-ESPOLXEM.wfl_m diff --git a/tools/NEATUP.alg_m b/Unisys-Emode-Tools/NEATUP.alg_m similarity index 100% rename from tools/NEATUP.alg_m rename to Unisys-Emode-Tools/NEATUP.alg_m diff --git a/tools/NEATUP55.alg_m b/Unisys-Emode-Tools/NEATUP55.alg_m similarity index 100% rename from tools/NEATUP55.alg_m rename to Unisys-Emode-Tools/NEATUP55.alg_m diff --git a/tools/NEATUPINFO.alg_m b/Unisys-Emode-Tools/NEATUPINFO.alg_m similarity index 100% rename from tools/NEATUPINFO.alg_m rename to Unisys-Emode-Tools/NEATUPINFO.alg_m diff --git a/Unisys-Emode-Tools/README.txt b/Unisys-Emode-Tools/README.txt new file mode 100644 index 0000000..ab5e6ef --- /dev/null +++ b/Unisys-Emode-Tools/README.txt @@ -0,0 +1,58 @@ +Burroughs B5500-related utility programs for "Emode" + +These programs are all written originally for the retro-b5500 emulator +project, to run under "Emode", the architecture for modern Unisys +ClearPath MCP systems. These systems are direct descendents of the B5500 +through the B6500, B6x00/B7x00, and A Series systems. + +The "xem" programs are B5500 compilers modified to run under Emode. +"xem" stands for "cross-compiled under Emode". + +xem/ALGOLXEM.alg_m is the B5500 Mark-XVI Algol compiler ported to Emode. +It compiles B5500 Algol programs (using the ASCII character +substitutions established by retro-b5500) and generates binary B5500 +object code. It is the full compiler, but does not implement merging +CARD and TAPE source files, nor the CAST library mechanism. It compiles +from the CARD file only. + +xem/ESPOLXEM.alg_m is the B5500 Mark-XVI ESPOL compiler ported to Emode. +It compiles B5500 ESPOL programs (using the ASCII character +substitutions established by retro-b5500) and generates both binary +B5500 code files and EBCDIC "card decks" as disk files. Like ALGOLXEM, +it does not implement the full source input merging mechanism and +compiles from the CARD file only. + +B5500.POWTEN.alg_m generates B5500 power-of-ten values in octal. The +output of this program was used to proof the Mark-XVI Algol compiler +transcription. + +BICTOEBCDIC.alg_m converts files coded using 6-bit BIC (B5500 Internal +Code) to 8-bit EBCDIC. It was specifically designed to convert B5500 +code files generated by ALGOLXEM and ESPOLXEM to a more readable form. + +CODEDUMP55.alg_m formats a B5500 code file in octal to a line printer +file. It also interprets the fields in Segment 0 and the segment +dictionary. It was written to debug ALGOLXEM. + +EMODE.POWTEN.dat_m is the output from B5500.POWTEN.alg_m. + +INCL2OMIT.alg_m converts $INCLUDE and $OMIT pragmas in Mark XIII and +earlier ESPOL source files to the newer $SET OMIT/$POP OMIT scheme used +by Mark XVI and later compilers. This was written to allow the Mark XIII +MCP source to be compiled with ESPOLXEM during early development of +retro-b5500. + +NEATUP.alg_m is a source reformatting program for Emode Algol +originally written by Dave Brown of U.S. Customs in San Diego, +California, and modified slightly by Paul Kimpel. + +NEATUP55.alg_m is a clone of NEATUP.alg_m, modified to reformat the +transcriptions of the Mark XVI Algol and ESPOL compiler sources as part +of the ALGOLXEM and ESPOLXEM portations. + +NEATUP-ESPOLXEM.alg_m is an MCP CANDE "DO" file containing the NEATUP +parameters used to reformat the ESPOLXEM source. + +NEATUPINFO.alg_m decodes the "Lexicon" tables used by NEATUP. It was +written as an aid to cloning NEATUP55 from NEATUP. + diff --git a/tools/xem/ALGOLXEM.alg_m b/Unisys-Emode-Tools/xem/ALGOLXEM.alg_m similarity index 100% rename from tools/xem/ALGOLXEM.alg_m rename to Unisys-Emode-Tools/xem/ALGOLXEM.alg_m diff --git a/tools/xem/ESPOLXEM.alg_m b/Unisys-Emode-Tools/xem/ESPOLXEM.alg_m similarity index 100% rename from tools/xem/ESPOLXEM.alg_m rename to Unisys-Emode-Tools/xem/ESPOLXEM.alg_m diff --git a/XBASIC-Paisley-College/README.txt b/XBASIC-Paisley-College/README.txt new file mode 100644 index 0000000..04780c5 --- /dev/null +++ b/XBASIC-Paisley-College/README.txt @@ -0,0 +1,14 @@ +XBASIC for the Burroughs B5500 + +An interactive BASIC interpreter written at Paisley College of +Technology, now the University of West Scotland, UK. This version runs +under B5500 CANDE and the TSMCP. It can also be run in batch mode from a +card deck. + +XBASIC.alg_m is the interpreter and was transcribed from +http://bitsavers.org/pdf/burroughs/B5000_5500_5700/listing/ +B5700_XBASIC_Apr77.pdf by James Fehlinger. + +STQB64.BAS is a Star Trek game originally written for Quick Basic and +donated by James Fehlinger. + diff --git a/source/XBASIC/STQB64.BAS b/XBASIC-Paisley-College/STQB64.BAS similarity index 100% rename from source/XBASIC/STQB64.BAS rename to XBASIC-Paisley-College/STQB64.BAS diff --git a/source/XBASIC/XBASIC.alg_m b/XBASIC-Paisley-College/XBASIC.alg_m similarity index 100% rename from source/XBASIC/XBASIC.alg_m rename to XBASIC-Paisley-College/XBASIC.alg_m