mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-03-03 01:47:56 +00:00
Commit additional proofreading corrections to APL-IMAGE by Paul Kimpel.
1. Apply typographical corrections to the source from APL/L200013 on the 1972 CUBEA13 library tape. 2. Add APLPTCH.19710305.alg_m patch file with differences between the APL-IMAGE.alg_m listing and APL/L200013. 3. Add APLPTCH.L200014 patch file from the CUBEA13 tape with changes to APL/L200013. 4. Update provenance and transcription details in README.txt.
This commit is contained in:
7746
APL-WU-Kildall/APL-IMAGE-List.lst
Normal file
7746
APL-WU-Kildall/APL-IMAGE-List.lst
Normal file
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
6
APL-WU-Kildall/APLPTCH.19710305.alg_m
Normal file
6
APL-WU-Kildall/APLPTCH.19710305.alg_m
Normal file
@@ -0,0 +1,6 @@
|
||||
DEFINE VERSIONDATE="3-05-71 "#; 00000600
|
||||
FILE TWXIN 19(2,30),TWXOUT 19(2,9); 00001415
|
||||
FILL JIGGLE[*] WITH OCT3636363636363636; %RUB OUTS 00101430
|
||||
$ 00106100
|
||||
WRITE(TWXOUT[STOP],1,JIGGLE[*])[BREAKKEY:BREAKKEY]; 03905206
|
||||
GO TO ERR1 ELSE; 08017232
|
||||
6
APL-WU-Kildall/APLPTCH.L200014.alg_m
Normal file
6
APL-WU-Kildall/APLPTCH.L200014.alg_m
Normal file
@@ -0,0 +1,6 @@
|
||||
$VOID 00040201 00040200
|
||||
$VOID 00101431 00101430
|
||||
$VOID 00232701 00232000
|
||||
$VOID 00241001 00241000
|
||||
;LINETOG:=FALSE;TERPRINT;LINETOG:=TRUE; 00286100
|
||||
$VOID 03905208 03905216
|
||||
@@ -1,21 +1,76 @@
|
||||
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
|
||||
CP/M fame), Leroy Smith, Sally Swedine, and Mary Zosel at the University
|
||||
of Washington (Seattle, Washington US) in the early 1970s. This version
|
||||
was modified by Jose Hernandez of Burroughs Corporation for operation
|
||||
under the Timesharing MCP.
|
||||
under the standard Burroughs Timesharing MCP (TSSMCP).
|
||||
|
||||
APL-IMAGE.alg_m
|
||||
The source of the APL interpreter. This 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.
|
||||
The source of the APL interpreter, written in Burroughs B5500
|
||||
Extended Algol, dated "1-11-71" (1971-01-11) in the source. This was
|
||||
transcribed from a photocopy of a listing sent to Paul Kimpel by Ed
|
||||
Vandergriff of Chaska, Minnesota US. According to Ed:
|
||||
|
||||
"Originally this came from a long-ago colleague, George P.
|
||||
Williams (then of Huntsville, AL [Alabama US]) who shared my
|
||||
interests in computer architecture and language implementation;
|
||||
if I recall correctly he encountered it as a student at Georgia
|
||||
Tech."
|
||||
|
||||
A scan of that listing is available from:
|
||||
http://bitsavers.trailing-edge.com/pdf/georgiaTech/APL-B5500-Listing
|
||||
-19710111.pdf
|
||||
|
||||
Transcription was performed jointly by Hans Pufal of Angouleme,
|
||||
France and Fausto Saporito of Naples, Italy during August-September
|
||||
2013. Proofreading, corrections, and application of original
|
||||
sequence numbers was done in late 2016 by Richard Cornwell of
|
||||
Durham, North Carolina US.
|
||||
sequence numbers (the last digits of which are often obscured on the
|
||||
listing) was done in late 2016 by Richard Cornwell of Durham, North
|
||||
Carolina US.
|
||||
|
||||
In May 2018, three CUBE (Burroughs user organization) Library tapes
|
||||
were successfully read by the Computer History Museum in Mountain
|
||||
View, California US, and made available to a few B5500 enthusiasts.
|
||||
On the CUBEA13 tape is the file APL/L200013 (creation date
|
||||
1971-03-08), which appears to be a slightly later version of the
|
||||
program, dated 1971-03-05 in the source. Paul Kimpel of San Diego,
|
||||
California US used this machine-readable version to correct left-
|
||||
margin indentation, last digits of sequence numbers, and numerous
|
||||
typographical errors that had escaped detection during proofreading.
|
||||
|
||||
APL-IMAGE-List.lst
|
||||
Compilation listing of APL-IMAGE.alg_m. This was compiled using Mark
|
||||
XIII Algol using the following deck:
|
||||
|
||||
?COMPILE 0APL/DISK ALGOL LIBRARY
|
||||
?ALGOL STACK=1000
|
||||
?ALGOL FILE NEWTAPE=NEWSYM/APL SERIAL
|
||||
?DATA CARD
|
||||
$CARD LIST SINGLE NEW
|
||||
<source images from APL-IMAGE.alg_m
|
||||
?END
|
||||
|
||||
The "0APL" MFID is necessary in order to be able to execute the
|
||||
codefile under CANDE as APL/DISK.
|
||||
|
||||
APLPTCH.19710305.alg_m
|
||||
A patch deck containing the few differences between the 1971-01-11
|
||||
version of the source archived here and the 1971-03-05 version on
|
||||
the CUBEA13 library tape.
|
||||
|
||||
APLPTCH.L200014.alg_m
|
||||
A patch deck for the APL.L200013 source on the CUBEA13 library tape.
|
||||
This should be applied to APL-IMAGE.alg_m after the
|
||||
APLPTCH.19710305.alg_m patch above.
|
||||
|
||||
The 1971-01-11 and 1971-03-05 versions both print two question marks
|
||||
("??") at the end of each line of terminal output. These appear to
|
||||
represent a carriage-return/line-feed pair appended to the end of
|
||||
messages by the program, but translated to question marks by the
|
||||
TSSMCP before being sent to the terminal. This behavior appears to
|
||||
be something that was missed in the conversion of the APL program
|
||||
from the custom data communications handler used by the University
|
||||
of Washington at the time to the standard Burroughs TSSMCP. This
|
||||
patch removes these extra characters from output messages.
|
||||
|
||||
|
||||
Reference in New Issue
Block a user