mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-03-02 17:44:40 +00:00
2c72f7fd1d
1. Commit library tape images, directories, and extracted text files. 2. Commit additional utilities under Unisys-Emode-Tools.
631 lines
50 KiB
Plaintext
631 lines
50 KiB
Plaintext
0150 0TABLE OF CONTENTS OF MESSAGE FILE: MCALGOL/MESSAGE
|
|
0850 1CONTENTS OF MCALGOL RELEASE #1, SYSTEM OF JAN 16, 1969:
|
|
0870 2 CONDITIONAL COMPILE OF MCALGOL
|
|
0000 3CONTROL DECKS TO BE USED FOR THIS DISTRIBUTION ARE:
|
|
0900 4TO MAKE "MESSAGE/FILES":
|
|
0902 5TO MAKE "ALGOL/ERRORS":
|
|
0905 6TO MAKE "MCALGOL/ERRORS":
|
|
0908 7TO MAKE "INITIAL/MCALGOL":
|
|
0910 8TO MAKE "WRALGOL/DISK":
|
|
0913 9TO MAKE "MCALGOL/DISK":
|
|
0920 10TO MAKE "MCALGOL/LANGUAG"(BASIC):
|
|
0925 11TO MAKE "MCALGOL/LANGUAG"(INTERMEDIATE & ADVANCED):
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM30STORE 025000398400000000000000000000000000000000000000000000000000M30006001
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000M30005000860000000000000000M400050004000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM30TACTI 007000190002200000000000000000000000000000000000000000000000M30002000
|
|
1000 20 MESSAGE/FILES
|
|
1010 21FILE NAMES IN MESSAGE/FILES ARE:
|
|
1016 22OPTIONS:
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM30TELEM 000000096000960000000000000000000000000000000000000000000000M30000000
|
|
1025 25 INITIAL/MCALGOL
|
|
0000000000000000000000000000000000000000000000M400000002000200000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM30TIMER 00640007060070600000000000000000000000000200|000000000000000M30002000
|
|
1050 30 WRALGOL COMPILER
|
|
1065 31 WRALGOL DOLLAR OPTIONS
|
|
1075 32 WRALGOL CONSTRUCTS & FEATURES
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM30TPANS 000000160000856000000000000000000000000000000000000000000000M30000000
|
|
50003000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000M400000003000210000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM30TREFR 00960009600096000000000000000000000000000300|000000000000000M30003000
|
|
1100 40 MCALGOL RELEASE #1
|
|
1120 41 NON-STANDARD FEATURES OF MCALGOL
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM30TRIPR 007000070000200000000000000000000000000000000000000000000000M30002000
|
|
20001000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000M400013001300050000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM30TURCN 00000000000096000000000000000000000000000200|000000000000000M30000000
|
|
00003000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000M400000000000200000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM30TURIN 007000160000300000000000000000000000000000000000000000000000M30002000
|
|
50001000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000M400010003000050000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM30XRAYC 006400064000000000000000000000000000000000000000000000000000M30002000
|
|
20000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000M30002000200025000000000000M400000001000300000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM50COCIR 030000300000000000000000000000000000000000000000000000000000M50004000
|
|
20000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000M400080004000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM50ELERO 000000000001000000000000000000000000000000000000000000000000M50000000
|
|
20004000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000M400000001000300000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM50EMFIX 012000000000000000000000000000000000000000000000000000000000M50003000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000M400006000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM50HGBAL 020000200002000000000000000000000000000000000000000000000000M50003000
|
|
40004000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000M400040004000400000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM50LWINV 020000200000000000000000000000000000000000000000000000000000M50005000
|
|
40000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000M400000004000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM50MODIN 000000000000000045000050000000000000000000000000000000000000M50000000
|
|
00000000000010000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000M500000000000000010001000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM50SOAMP 000000300001000000000000000000000000000000000000000000000000M50000000
|
|
30002000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000M500000001000200000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM50SOLVA 000000250002500000000000000000000000000000000000000000000000M50004000
|
|
0000 100AVAILABLE MEMOS AND REPORTS FROM WESTINGHOUSE R&D: (101-110)
|
|
0000 101LINKED MESSAGE FILES ON THE B5500(68-1C5-COMPS-M8)
|
|
0149 102CREATING AN INITIAL LANGUAGE FILE FOR THE MCALGOL COMPILER
|
|
0148 103STORE-STAR, A SPECIAL ASSIGNMENT OPERATOR IN B5500 ALGOL
|
|
0000 104MULTIRELATIONAL EXPRESSION IN B5500 ALGOL(67-1C4-COMP-M92)
|
|
0000 105COMPUTER USERS HANDBOOK(67-1C4-COMP-R29)200 PAGES
|
|
0000 106MCALGOL REFERENCE MANUAL(68-1C4-COMPS-R3)
|
|
0000 107WALSE(68-1C4-COMPS-R2)
|
|
0000 108MCP MODIFICATIONS- CONTROL CARD SYNTAX(68-1C4-COMPS-M1)
|
|
0147 109MCP MODIFICATIONS- EXTENSIONS TO THE CONTROL DECK FACILITY
|
|
0000 110CONTROL DECKS & PSEUDO READERS(68-1C4-COMPS-P2)
|
|
0000000000000000000000000000000000000000000000M400080008000800000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM60CONEL 08750117501175000000000000000000000000000800|000000000000000M60014002
|
|
50026000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000M600220023002300000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM60COSTR 000000000000000000000000000000000000000000000000000000000000M60001200
|
|
12001600000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM60IMITA 000000000000800000000000000000000000000000000000000000000000M60000000
|
|
00002000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000M600000000000200000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM60LSITE 010000200002000000000000000000000000000000000000000000000000M60005000
|
|
30004000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000M600020004000400000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM60MULTI 040000632400000000000000000000000000000000000000000000000000M60006000
|
|
80000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000M600060009000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM60PACOL 000000000002000000000000000000000000000000000000000000000000M60000000
|
|
30007000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000M600000001000500000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM60QUADF 005000100000000000000000000000000000000000000000000000000000M60001000
|
|
20000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000M600000002000000000000000000000000000000000000000000000000000
|
|
0000 147(68-1C4-COMPS-M9)
|
|
0000 148(67-1C4-COMP-M91)
|
|
0000 149(68-1C5-COMPS-M9)
|
|
0151 150MSG CONTENTS
|
|
0152 151 1 CONTENTS OF RELEASE #1 MCALGOL PACKAGE
|
|
0153 152 2 CONDITIONAL COMPILE
|
|
0154 153 3 LISTING OF CONTROL DECKS:
|
|
0155 154 4 MESSAGE/FILES
|
|
0156 155 5 ALGOL /ERRORS
|
|
0157 156 6 MCALGOL/ERRORS
|
|
0158 157 7 INITIAL/MCALGOL
|
|
0159 158 8 WRALGOL/DISK
|
|
0160 159 9 MCALGOL/DISK
|
|
0161 16010 MCALGOL/LANGUAGE(BASIC)
|
|
0162 16111 MCALGOL/LANGUAGE(INTERMEDIATE & ADVANCED)
|
|
0163 16220 MESSAGE FILES
|
|
0164 16321 FILE NAMES IN MESSAGE/FILES
|
|
0165 16422 OPTIONS OF MESSAGE/FILES
|
|
0166 16530 WRALGOL COMPILER
|
|
0167 16631 DOLLAR OPTIONS IN WRALGOL
|
|
0168 16732 WRALGOL CONSTRUCTS
|
|
0169 16840 MCALGOL COMPILER RELEASE #1
|
|
0170 16941 NON-STANDARD FEATURES
|
|
0000 170100 LISTING OF AVAILABLE MEMOS
|
|
0000000000000000000M600040005000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AM60XFRAS 080000000000000000000000000000000000000000000000000000000000M60001000
|
|
10000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000M600010001000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AP00BOGIE 000000000000000060000650007000000000000000000000000000000000000000000
|
|
000000000000000000P9000000000000000020002000300000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000P20000000000000004000400040P900000
|
|
00000000004000400050000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AP00TAADM 000600006000070000000000000000000000000000000000000000000000P00000300
|
|
03000400000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000P000002000300030000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AP00TABLD 000600007000060000000000000000000000000000000000000000000000P00000300
|
|
04000300000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000P000002000300030000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AP00TAECP 000700006000060000000000000000000000000000000000000000000000P00000400
|
|
03000300000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000P000003000300020000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AP00TAEUG 001100014000130000000000000000000000000000000000000000000000P00000600
|
|
07000700000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000P000005000500060000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AP00TAIND 000600006000070000000000000000000000000000000000000000000000P00000300
|
|
03000400000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000P000002000300030000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
AP00TASUM 000700006000060000000000000000000000000000000000000000000000P00000400
|
|
0150 0TABLE OF CONTENTS OF MESSAGE FILE: MCALGOL/MESSAGE
|
|
0850 1CONTENTS OF MCALGOL RELEASE #1, SYSTEM OF DEC 25, 1968:
|
|
0870 2 CONDITIONAL COMPILE OF MCALGOL
|
|
0000 3CONTROL DECKS TO BE USED FOR THIS DISTRIBUTION ARE:
|
|
0900 4TO MAKE "MESSAGE/FILES":
|
|
0902 5TO MAKE "ALGOL/ERRORS":
|
|
0905 6TO MAKE "MCALGOL/ERRORS":
|
|
0908 7TO MAKE "INITIAL/MCALGOL":
|
|
0910 8TO MAKE "WRALGOL/DISK":
|
|
0913 9TO MAKE "MCALGOL/DISK":
|
|
0851 850 LOADAND/LISTME - CARD IMAGE FILE TO GET YOU TO LIST THIS FILE:
|
|
0852 851 MCALGOL/MESSAGE - A LINKED MESSAGE FILE SIMILAR TO THAT USED BY
|
|
0853 852 WRALGOL & MCALGOL FOR ERROR MESSAGES.
|
|
0854 853 MESSAGE/DIDDLER - ALGOL SOURCE FILE TO CREATE, DUMP, & LOAD
|
|
0855 854 MESSAGE FILES (SEE MESSAGE 20)
|
|
0856 855 ERROROF/ALGOL - SERIAL UNLINKED DECK WHICH FORMS "ALGOL/ERRORS"
|
|
0857 856 USED BY THE WRALGOL COMPILER.
|
|
0858 857 ERROROF/MCALGOL - SERIAL UNLINKED DECK WHICH FORMS "MCALGOL/ERRORS"
|
|
0859 858 USED BY WRL MCALGOL COMPILER.
|
|
0860 859 INITIAL/MCGOLSY - ALGOL SOURCE FILE FOR "INITIAL/MCALGOL" WHICH IS
|
|
0861 860 USED TO CREATE A BASIC VOCABULARY & LANGUAGE FILE.
|
|
0862 861 (SEE MESSAGE 25)
|
|
0863 862 LANGUAG/LEVEL3 - SERIAL DATA DECK USED BY INITIAL/MCALGOL TO
|
|
0864 863 THE BASIC LANGUAGE FILE.
|
|
0865 864 ALGOL /PATCHES - WRL PATCHES TO THE STANDARD BURROUGHS MARK VIII
|
|
0866 865 ALGOL COMPILER. THIS COMPILER (WRALGOL) IS
|
|
0867 866 NECESSARY TO COMPILE MCALGOL AND
|
|
0868 867 AND WALSE (SEE MESSAGE 30)
|
|
0869 868 MCALGOL/SOURCE - WRALGOL SOURCE FILE SET UP FOR BASIC
|
|
0000 869 MCALGOL (SEE MESSAGE 40)
|
|
0871 870 THE ESPOL COMPILER OPTIONS OF "$ SET", "$ INCLUDE", AND "$ OMIT"
|
|
0872 871HAVE BEEN COPIED INTO WRALGOL. THIS ALLOWS A SINGLE SOURCE FILE
|
|
0873 872TO CONTAIN MANY OPTIONS. EACH RECEIVING INSTALLATION MAY DECIDE
|
|
0874 873WHICH OPTIONS IT DESIRES FROM SUCH A FILE.
|
|
0875 874(SEE BURROUGHS B5500 SYSTEM NOTE 171, JANUARY 23, 1968).
|
|
0876 875 MCALGOL HAS BEEN SO STRUCTURED THAT IT CONTAINS "BASIC",
|
|
0877 876"INTERMEDIATE", AND "ADVANCED" LEVELS OF THE LANGUAGE.
|
|
0878 877INSTALLATIONS DESIRING NO MORE THAN THE -BASIC- VERSION ARE NOT
|
|
0879 878PENALIZED BY EXTRA CODE AND PRT SPACE FOR THE OPTIONS WHICH
|
|
0880 879THEY ARE NOT USING.
|
|
0881 880 IN ADDITION, THE DEVELOPMENT OPTIONS "DEBUGGING" AND "COUNTING"
|
|
0882 881EXIST. -DEBUGGING- PERMITS THE DOLLAR OPTIONS: -MONITOR-,
|
|
0883 882-ACCUM-, -DEBUGN-, AND -PSEUDO-. -COUNTING- GIVES A DISTRIBUTION
|
|
0884 883OF PATH COUNTS THROUGH VARIOUS PARTS OF THE COMPILER.
|
|
0885 884SOME OF THE NUMBERS PROVIDED ARE USED TO DETERMINE ARRAY LIMITS TO
|
|
0886 885KEEP OPERATIONAL SIZE TO A MINIMUM. IF AN INSTALLATION USES THE
|
|
0887 886-COUNTING- OPTION, WESTINGHOUSE WOULD LIKE A LOG KEPT OF THE
|
|
0888 887FIGURES SO THAT FUTURE DYNAMICS CAN BE DECIDED FROM A MORE DIVERSE
|
|
0889 888SAMPLE THAN CAN BE OBTAINED AT OUR OWN SITE.
|
|
0890 889 THE OPTIONS AS YOU RECEIVE THIS DISTRIBUTION ARE AS FOLLOWS;
|
|
0891 890AN INSTALLATION MAY CHOOSE THE VALUES -TRUE- OR -FALSE- AS DESIRED
|
|
0892 891BY PATCHING THE APPROPRIATE IMAGES OF MCALGOL/SOURCE:
|
|
0893 892 00000010:$ SET COUNTING = FALSE;
|
|
0894 893 00000020:$ SET INTERMEDIATE = FALSE;
|
|
0895 894 00000030:$ SET ADVANCED = FALSE;
|
|
0896 895 00000040:$ SET DEBUGGING = FALSE;
|
|
0000 896THE ABOVE WILL CAUSE -BASIC- MCALGOL TO BE COMPILED.
|
|
KK~ 1; 00346000
|
|
MOVE(C, P, N+1); 00347000
|
|
MOVE(X, C, N+1); 00348000
|
|
0901 900 ? COMPILE MESSAGE/FILES ALGOL LIBRARY
|
|
0999 901 ? ALGOL FILE CARD = MESSAGE/DIDDLER SERIAL
|
|
0903 902 ? EXECUTE MESSAGE/FILES
|
|
0904 903 ? FILE CARD = ERROROF/ALGOL SERIAL
|
|
0998 904 ? FILE MESSAGE = ALGOL/ERRORS
|
|
0906 905 ? EXECUTE MESSAGE/FILES
|
|
0907 906 ? FILE CARD = ERROROF/MCALGOL SERIAL
|
|
0998 907 ? FILE MESSAGE = MCALGOL/ERRORS
|
|
0909 908 ? COMPILE INITIAL/MCALGOL ALGOL LIBRARY
|
|
0999 909 ? ALGOL FILE CARD = INITIAL/MCGOLSY SERIAL
|
|
0911 910 ? COMPILE WRALGOL/DISK ALGOL LIBRARY
|
|
0912 911 ? FILE CARD = ALGOL/PATCHES SERIAL
|
|
0997 912 ? FILE TAPE = SYMBOL/ALGOLSY
|
|
0914 913 ? COMPILE MCALGOL/DISK WITH WRALGOL LIBRARY
|
|
0915 914 ? WRALGOL FILE DISK = MCALGOL/SOURCE
|
|
0916 915 ? PROCESS = 10; IO = 15
|
|
0917 916 ? DATA
|
|
0935 917 $ DISK LIST STREAM 00000000
|
|
0919 918 % ANY LOCAL PATCHES
|
|
0999 919 % NINES CARD 99999999
|
|
0921 920 ? EXECUTE INITIAL/MCALGOL
|
|
0922 921 ? FILE LANGUAGE = MCALGOL/INITIAL
|
|
0923 922 ? FILE CARD = LANGUAGE/LEVEL3 SERIAL
|
|
0924 923 ? REMOVE MCALGOL/LANGUAGE
|
|
0999 924 ? CHANGE MCALGOL/INITIAL TO MCALGOL/LANGUAGE
|
|
0926 925USE DECK DESCRIBED IN MESSAGE 10. FOLLOW WITH:
|
|
0927 926 ?CHANGE MCALGOL/LANGUAGE TO MCALGOL/TEMP
|
|
0928 927 ? COMPILE NEW/LANG WITH MCALGOL LIBRARY
|
|
0929 928 ? MCALGOL FILE LANGUAGE = TEMP
|
|
0930 929 ? MCALGOL FILE NEWLANGUAGE = LANGUAGE
|
|
0931 930 ? DATA
|
|
0932 931 MFIELD APPENDC = [0:0],
|
|
0933 932 APPENDS = [1:0];
|
|
0999 933 $* DUMP ZERO
|
|
ALPH~1.7; BETA~.13; PFACT~8; PTOL~.1; X[0]~Y[0]~0; TWXREADWAIT~300; 00377000
|
|
0936 935 $ SET COUNTING = FALSE; 00000010
|
|
0937 936 $ SET INTERMEDIATE = FALSE; 00000020
|
|
0938 937 $ SET ADVANCED = FALSE; 00000030
|
|
0918 938 $ SET DEBUGGING = FALSE; 00000040
|
|
YMX[I]~@20; 00379300
|
|
0000 100AVAILABLE MEMOS AND REPORTS FROM WESTINGHOUSE R&D:
|
|
0000 101LINKED MESSAGE FILES ON THE B5500(68-1C5-COMPS-M8)
|
|
0149 102CREATING AN INITIAL LANGUAGE FILE FOR THE MCALGOL COMPILER
|
|
0148 103STORE-STAR, A SPECIAL ASSIGNMENT OPERATOR IN B5500 ALGOL
|
|
0000 104MULTIRELATIONAL EXPRESSION IN B5500 ALGOL(67-1C4-COMP-M92)
|
|
0000 105COMPUTER USERS HANDBOOK(67-1C4-COMP-R29)200 PAGES
|
|
0000 106MCALGOL REFERENCE MANUAL(68-1C4-COMPS-R3)
|
|
0000 107WALSE(68-1C4-COMPS-R2)
|
|
0000 108MCP MODIFICATIONS- CONTROL CARD SYNTAX(68-1C4-COMPS-M1)
|
|
0147 109MCP MODIFICATIONS- EXTENSIONS TO THE CONTROL DECK FACILITY
|
|
0000 110CONTROL DECKS & PSEUDO READERS(68-1C4-COMPS-P2)
|
|
READ(READER,<A6>,ACR); 00380800
|
|
FOR I~0 STEP 1 UNTIL 3 DO 00381000
|
|
IF ACR=CRV[I] THEN BEGIN CUR~I+2; GO GEDOUT; END; 00382000
|
|
GEDOUT: CURFILL(CUR); 00383000
|
|
READ(READER,/,PCR,FCR);READ(READER,/,PKW,RKW);READ(READER,/,NTYP, 00384000
|
|
WTYP);FOR I~1 STEP 1 UNTIL WTYP DO READ(READER,/,OC[I],XMAX[I], 00385000
|
|
XMIN[I],YMX[I]);FOR I~WTYP+1 STEP 1 UNTIL NTYP DO READ(READER,/, 00386000
|
|
OC[I],XMAX[I],XMIN[I]);READ(READER,/,ADN ,ADW);FOR I~NTYP+1 STEP 1 00387000
|
|
UNTIL NTYP+ADW DO READ(READER,/,OC[I],CC[I],FC[I],XMAX[I],XMIN[I], 00388000
|
|
YMX[I]);FOR I~NTYP+ADW+1 STEP 1 UNTIL NTYP+ADN DO READ(READER,/,OC[I], 00389000
|
|
CC[I],FC[I],XMAX[I],XMIN[I]);NTYP~NTYP+ADN; TAG~FALSE; 00390000
|
|
CLOSE(READER); 00390500
|
|
GO TO WIEDERFRAGEN; END; 00391000
|
|
CURSET: 00392000
|
|
CUR~TWXREQUEST(ASKURVE, CURVE); 00393000
|
|
IF CUR=0 THEN GO ZU; 00394000
|
|
IF TWXSTOPREQUEST THEN GO ZU; 00395000
|
|
CURFILL(CUR); 00396000
|
|
IF TAG THEN BEGIN I~TWXREQUEST(WHR,WHRNOW); GO FAR[I];END; 00397000
|
|
CAPR: TWXFORM(ZU,<"%CAP.RATES-PLANT,FUEL: ~">); 00398000
|
|
I~TWXFREEFORM(PCR,FCR); 00399000
|
|
IF TAG THEN GO TO ANFANG; 00400000
|
|
SETUP: TWXFORM(ZU,IN1); 00401000
|
|
IF TWXSTOPREQUEST THEN GO ZU; 00402000
|
|
I ~TWXFREEFORM(PKW,RKW); 00403000
|
|
IF TAG THEN BEGIN I~TWXREQUEST(WHR,WHRNOW); GO FAR[I];END; 00404000
|
|
IF TWXSTOPREQUEST THEN GO ZU; 00405000
|
|
00406000
|
|
00407000
|
|
00408000
|
|
00409000
|
|
TYPIN: TWXFORM(ZU,IN2); 00410000
|
|
BEGIN BLOCK; 00411000
|
|
IF TWXSTOPREQUEST THEN GO ZU; 00412000
|
|
TWXFORM(ZU,MANY); 00413000
|
|
I~TWXFREEFORM(NTYP); 00414000
|
|
0000 147(68-1C4-COMPS-M9)
|
|
0000 148(67-1C4-COMP-M91)
|
|
0000 149(68-1C5-COMPS-M9)
|
|
0151 150MSG CONTENTS
|
|
0152 151 1 CONTENTS OF RELEASE #1 MCALGOL PACKAGE
|
|
0153 152 2 CONDITIONAL COMPILE
|
|
0154 153 3 LISTING OF CONTROL DECKS:
|
|
0155 154 4 MESSAGE/FILES
|
|
0156 155 5 ALGOL /ERRORS
|
|
0157 156 6 MCALGOL/ERRORS
|
|
0999 997 ? PROCESS = 10; IO = 30
|
|
0999 998 ? COMMON = 4
|
|
0000 999 ? END
|
|
10011000MESSAGE FILES ARE RANDOM DISK FILES DECLARED [20:210](10,30).
|
|
10021001MESSAGES CONSISTS OF ONE OR MORE TEXT RECORDS.
|
|
10031002TEXT RECORDS ARE CARD IMAGE RECORDS OF A GIVEN FORMAT.
|
|
10041003THE FORMAT CONSISTS OF TWO 4-DIGIT FIELDS FOLLOWED BY 72
|
|
10051004CHARACTERS OF TEXT. THE RIGHT 4-DIGIT FIELD IS THE RECORD
|
|
10061005NUMBER OF THE RECORD; IT IS USED FOR VERIFICATION. THE LEFT
|
|
100710064-DIGIT FIELD IS THE LINK. A NON-ZERO LINK GIVES THE RECORD
|
|
10081007NUMBER OF THE NEXT LOGICAL PART OF THE MESSAGE.
|
|
10091008 MESSAGE NUMBERS CORRESPOND TO THE RECORD NUMBER OF THE FIRST
|
|
00001009TEXT RECORD OF THE MESSAGE.
|
|
10111010 CARD (10,150)
|
|
10121011 LINE 6(15)
|
|
10131012 MESSAGE [20:210] (10,30)
|
|
10141013 DISK (10,30)
|
|
10151014 PUNCH 32(10)
|
|
00001015 NEWDISK [20:210] (10,30)
|
|
10171016COMMON = 0 LIST "DISK"
|
|
10181017COMMON = 1 DUMP "DISK" -> "PUNCH"
|
|
10191018COMMON = 2 LIST "DISK" (LOCATE LINKS)
|
|
10201019COMMON = 3 DUMP "DISK" -> "NEWDISK"
|
|
10211020COMMON = 4 LOAD "CARD" -> "MESSAGE"
|
|
00001021COMMON = 6 LOAD "CARD" -> "MESSAGE" (LOCK ANYWAY)
|
|
IF XMAX[I]<XMIN[I] THEN BEGIN TWXFORM(ZU,ERM);TWXFORMLIST(ZU,<I4,":~">, 00450000
|
|
I);N~TWXFREEFORM(OC[I],CC[I],FC[I],XMAX[I],XMIN[I]);END;END; 00451000
|
|
END; 00452000
|
|
10261025 INITIAL/MCALGOL IS A BOOTSTRAPPING PROGRAM USED TO CREATE A
|
|
10271026BASE LANGUAGE FILE FOR THE MCALGOL COMPILER. ONCE A BASE
|
|
10281027VOCABULARY EXISTS, MCALGOL CAN CREATE ITS OWN NEW LANGUAGE
|
|
10291028FILES. IF THE BASIC VOCABULARY NEEDS TO BE ALTERED, THIS PROGRAM
|
|
10301029MUST BE USED TO INSURE VALIDITY AND FORM.
|
|
10311030 MINIMUM REQUIREMENTS FOR INPUT DATA ARE:
|
|
10321031NAME -AN "ALGOLISH" IDENTIFIER FOLLOWED BY A SPACE.
|
|
10331032CLASS -A TWO DIGIT NUMBER (0-63) FOLLOWED BY A SPACE.
|
|
10341033SUBCLASS -A THREE DIGIT NUMBER (0-255).
|
|
10351034 INPUT MUST BE ORDERED BY CLASS IN ASCENDING ORDER.
|
|
10361035WITHIN A CLASS, ORDER IS NOT IMPORTANT. THE FOLLOWING
|
|
10371036CLASSES MUST BE PRESENT:
|
|
10381037 19 - MCALGOL DOLLAR CARD OPTIONS
|
|
10391038 20 - ALGOL STREAM RESERVED WORDS
|
|
10401039 21 - MCALGOL RESERVED WORDS
|
|
10411040 22 - ALGOL RESERVED WORDS
|
|
10421041ADDITIONAL WORDS WITH CLASSES GROUPED IN ANY ORDER MAY FOLLOW
|
|
00001042THE ABOVE REQUIREMENTS.
|
|
CC[I],FC[I],XMAX[I],XMIN[I]); TWXLINE(ZU,6); 00471000
|
|
IF TWXSTOPREQUEST THEN GO ZU; 00472000
|
|
END ELSE 00473000
|
|
TWXFORMLIST( ZU,CHECSING,CHW-1,OC[CHW-1],CC[CHW-1],FC[CHW-1] 00474000
|
|
,XMAX[CHW-1],XMIN[CHW-1]); GO TO WIEDERFRAGEN; 00475000
|
|
END CHECK; 00476000
|
|
BEGIN %STORE 00477000
|
|
10511050 THE COMPILER PRODUCED BY COMPILING ALGOL/PATCHES AGAINST
|
|
10521051SYMBOL/ALGOLSY IS SUFFICIENT TO COMPILE MCALGOL, WALSE, AND
|
|
10531052OTHER ADVANCED AND/OR NON-STANDARD PRODUCTS OF WRL.
|
|
10541053THE NON-STANDARDNESS HAS BEEN DICTATED BY THE AMOUNT OF USER
|
|
10551054CONVENIENCE AND EXECUTIONAL EFFICIENCY REQUIRED BY THE USERS
|
|
10561055OF THE WRL B5500 INSTALLATION. SOME OF THESE CHANGES REQUIRE
|
|
10571056ACCOMPANYING MCP MODIFICATIONS; MOST DO NOT.
|
|
10581057 INSUFFICIENT DOCUMENTATION OF THE FEATURES IN THIS COMPILER
|
|
10591058EXIST FOR A FULL PRESENTATION OF WHAT IS ACCEPTABLE.
|
|
10601059BRIEF INSPECTION OF MCALGOL/SOURCE(AND THE WALSE/SOURCE FOR
|
|
10611060INSTALLATIONS RECEIVING THIS PACKAGE) WILL UNCOVER THE MORE
|
|
10621061POPULAR FEATURES.
|
|
00001062 NOTABLE NON-STANDARD FEATURES INCLUDE:
|
|
00000000W|?01|00U2000+4.0000000000000000W|:01Q00U2400+4K0000000000000000W|>01 00
|
|
U2800+4$0000000000000000W|}01Y00W|+02000U2?00+4=0000000000000000W|A02800U2A00+55
|
|
10661065 UNLIKE THE BURROUGHS STANDARD ALGOL, ALL PREVIOUS OPTIONS NEED
|
|
10671066NOT BE REPEATED ON ALL DOLLAR CARDS TO RETAIN THEIR SETTING.
|
|
10681067THE USE OF "$+" AND "$-" SERVE TO TURN ON AND OFF THE OPTIONS
|
|
10691068SPECIFIED TO THE RIGHT OF THE "+" OR "-".
|
|
10701069 STREAM - REQUIRED TO COMPILE STREAM PROCEDURES. NAME OF THE
|
|
10711070 OPTION NOT GENERALLY GIVEN TO CASUAL USERS.
|
|
10721071 PURGE - REMOVES THE SOURCE FILE UPON SUCCESSFUL COMPILATION.
|
|
10731072 USED FOR ONE-SHOT COMPILE AND GO JOBS.
|
|
10741073 PATCH - COPIES LIBRARY RECORDS INTO NEWDISK FILE. OTHERWISE
|
|
00001074 ONLY THE "$$" CARD IS COPIED.
|
|
10761075** STORE-STAR OPERATOR OF THE FORM:
|
|
10771076 A[I,J] ~ * + AEXP OR
|
|
10781077 B[Q] ~ (*) & AEXP [CONCAT], ETC.
|
|
10791078THE STAR (*) AS THE FIRST -OPERAND- AFTER LEFT ARROW CAUSES A
|
|
10801079POLISH(DUP,LOD) TO BE EMITTED INSTEAD OF RE-EVALUATING THE
|
|
10811080ENTIRE SUBSCRIPT EXPRESSION.
|
|
10821081** MULTIRELATIONAL EXPRESSION OF THE FORM: A R B R C R ....
|
|
10831082THE RANGE RELATION IS THE COMMON USE. A, B, ETC ARE EXPRESSIONS.
|
|
10841083THE R"S ARE RELATIONAL OPERATORS. THIS IS SHORTHAND FOR:
|
|
10851084A R B AND B R D ... .
|
|
10861085** WRL OCTAL CONSTANT, BOOLEAN TYPE OF THE FORM:
|
|
10871086< OCTAL CONSTANT >. THE <> ARE NOT METALINGUISTIC.
|
|
10881087** INLINE FORMAT, SIMILAR IN FORM TO OCTAL CONSTANT, MUST APPEAR
|
|
10891088AS A FORMAT IDENTIFIER WOULD APPEAR IN IO STATEMENT OR PARAMETER. THE
|
|
10901089FORM IS < FORMAT >.
|
|
10911090** NON-SEQUENTIAL SOURCE FILES. A "? LINK N" OR "? LINK +M"
|
|
10921091WITH THE "?" IN COLUMN 1 FLAGS A RECORD IN A SERIAL CARD IMAGE
|
|
10931092SOURCE FILE FOR WRALGOL OR MCALGOL. THIS SERVES AS EITHER A
|
|
10941093"READ SEEK(SOURCE[N])" OR "SPACE(SOURCE,M)" COMMAND.
|
|
10951094"? LINK +0" IS A LOGICAL END-OF-FILE.
|
|
10961095** LIST PARAMETERS - LISTS MAY BE PASSED AS PARAMETERS TO
|
|
10971096PROCEDURES. THE LIST IS CONTAINED IN SQUARE BRACKETS [ ] IF IT
|
|
10981097IS NOT THE LAST PARAMETER TO AVOID AMBIGUITY.
|
|
00001098A VALUE LIST MAY BE EXAMINED; A NAME LIST MAY BE STORED INTO.
|
|
#5{06L[L#469:U{7#2X|3A)/#234O,GL#1>R#L1E#>L[K,//#>L[K,//#@A)/(HZ#@A)/(HZ00000000
|
|
11011100 RELEASE #1 OF WRL MCALGOL EXISTS AS AN OPTIONAL COMPILE
|
|
11021101SOURCE FILE (SEE MESSAGE 2) FOR THE WRALGOL COMPILER.
|
|
11031102ALTHOUGH THIS IS THE FIRST RELEASE, THE FILE HAS BEEN
|
|
11041103SEQUENCED SUCH THAT ONLY UPON THE OCCURRENCE OF A MAJOR
|
|
11051104UPHEAVAL OF DESIGN SHOULD THE FILE EVER BE RESEQUENCED.
|
|
11061105THEREFORE, ANY FUTURE PATCHES WILL MOST LIKELY BE MADE
|
|
11071106AGAINST THIS VERSION.
|
|
11081107 SHOULD ANY RECEIVING INSTALLATION MODIFY MCALGOL BY LOCAL
|
|
11091108PATCHING, WESTINGHOUSE REQUESTS THAT THE PATCH BE DOCUMENTED
|
|
11101109AS TO PURPOSE, FUNCTION, TRICKS AND TECHNIQUES USED, AND
|
|
11111110IDENTIFIED BY AUTHOR AND INSTALLATION. IF THE PATCH IS FOUND
|
|
11121111TO BE OF SUFFICIENT GENERAL INTEREST, WESTINGHOUSE WILL BE GLAD
|
|
11131112TO ACCEPT THE CHANGE AS STANDARD FOR FUTURE RELEASES.
|
|
11141113 SHOULD ANY MALFUNCTIONS OCCUR IN USING MCALGOL OR ANY
|
|
11151114SUGGESTIONS FOR CHANGES BE FOUND, PLEASE NOTIFY WESTINGHOUSE
|
|
11161115COMPUTER SCIENCES QUICKLY AND DISCUSS THE PROBLEM. ONE OF THE
|
|
11171116KEY REASONS FOR RELEASE #1 IS FOR USER FEEDBACK.
|
|
11181117A PROCESSOR OF THIS NATURE DOES NOT SERVE ITS PURPOSE IF IT
|
|
00001118DOES NOT BEST SERVE THE USER.
|
|
41118E4A361"+E+A2W2]41118E4A3623+E+A2,2]41118E4A36041134KA3#2E0!AI3+/I0)4J1M+A0D
|
|
11211120 CERTAIN PORTIONS OF THE PROCESSING IN MCALGOL HAVE BEEN PROVIDED
|
|
11221121FOR USER CONVENIENCE AT THE WRL INSTALLATION. DUE TO THIS FACT,
|
|
11231122THEY ARE SYSTEM ORIENTED AND REQUIRE MCP PATCHES TO FUNCTION.
|
|
11241123 THE INTERNAL CONTROL DECK FEATURE REQUIRES AN MCP PATCH TO
|
|
11251124RETURN INTERNAL CHARGE NUMBER, ORIGINATING STATION, REQUESTED
|
|
11261125PROCESSOR TIMES, ETC. ALSO ASSUMED IS THAT THE MCP WILL PROPERLY
|
|
11271126ACCEPT A NON-LINKED CONTROL DECK(A ONE OR TWO-CARD PATCH WELL WORTH
|
|
11281127WRITING FOR). IT IS SUGGESTED THAT EACH INSTALLATION BE
|
|
11291128RESPONSIBLE FOR REQUESTING THIS PATCH TO OPERATE THIS FEATURE.
|
|
11301129THE ALTERNATIVE IS TO NOT ALLOW CONTROL DECKS TO BE ZIPPED BY
|
|
11311130MCALGOL. ERROR 112 HAS BEEN PROVIDED IN RELEASE #1 FOR THIS
|
|
00001131PURPOSE.
|
|
41VL#~734#B%=6YU4BX$!HP14[NN*< S4M<"6F&]4)O;X!4:4X0.N%5A51649%>V59GN?.2K5A)<~|L#
|
|
5.8W7H*=5K*3R>W!5*EULKM*5U@A-[:W5=>67K1C66JPR.JQ6A1+?<9+6IAM}N*M6JN=C~6(6R"&QFY5
|
|
6S~CS&O66%78{3{P73Y,,U*J7?X9RJW.7F4!3,D07~O@4YZ07R@=; Y,7/<=#(787ZW-(4H%00000000
|
|
1{000400000000000000000S4J1M+A0D1{00041+3D+A0+SI1>KI0D1?4A3}#(048I1?8A#(40+A|3!E
|
|
4>4J1M+A0D1{0004003D+A004>4J1M+A0D1{000400000000000000000S0414SI4J1M+A0D1{00040U
|
|
0120000000READER 6READER0240000000PRINT 5PRINT0#(184H4A361%#(1|4H4A361"#(1Y4H4A
|
|
3623#(048I1?8A#(4++A|3!E4>36041134KA3#2E14AI4J1M+A0D1{000400000000000000000S4J0D
|
|
1{1F0Q894(0)0)0)120411104A008!/I9,|M2X|39Z>R#L1E9! {|X)#9/X?H"519U3A)/(I9X0,]X,A
|
|
0000000000B00+0I00D0B00D00E0:+0100U05|05+0V03Q070000#8080000#80@0000#80>0000#80A
|
|
80"0080+813008018050080280Z0080380]0080A80?0080B80:0080C80>0080D+0I08Q0.00000000
|
|
1F K O41 O41 $812|4A $2&4A042<812H4A4J1M+A0D1*0008040010SI0)0)0)9OQ1QWY{9K"X|VO!
|
|
0000000000000000000000000000000000000000V|?01|0000000000000000000000000000000000
|
|
0000000000000000V|}01Y00V|+02000V|A02800000000000000000000000000X|10080000000000
|
|
V0=00+2>V0H00H1O00000000X|300H00X0G00H02W|B02+0000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000V|400|0QW|500Q00U|200+0J0000000000000000V|:01Q00U0W00+0T00000000
|
|
00000000W1400+1LV|>01 00V|#01+00U0,00+1$0000000000000000V|@01H00U1000+1Z00000000
|
|
00000000000000000000000S4J1M+A0D1{00041+3D+A0+SI1>KI0D1?4A3}#(048I1?8A#(40+A|3!E
|
|
4>4J1M+A0D1{0004003D+A004>4J1M+A0D1{000400000000000000000S0414SI4J1M+A0D1{00040U
|
|
0D0404PM1T 0C1 +*=K>DEC2Q00001+0000000Q03 0<01100X000:,0000000=0000000Q
|
|
+*=0>DEC000000000A0151BB1JAMES 0CURVES +OLK3JAN3Q00001Y0000000Q03 0<01100#000:%
|
|
0000001D0000000Q+-30DDEC000000000C0995CT0LOGLINK0DEC19 +-2KCDEC1200001O00000003
|
|
1"|}!01K01L000:!000000020000001O+-#0[DEC000000000C0905TJ09ALGOL 0PATCHES+-2KCDEC
|
|
2Q00001M0000002F01+2F0}50??000:]0000003]0000000S+-20CDEC000000000C0990PM1INVALID
|
|
0DISK +.:JJAUG1Q00000~0000000~03 0<01100#000:"0000000F0000000~+-30DDEC00000000
|
|
0A0304 000000000DSK-17 +I7JXMAY120000#<000000~.01+2F0}501.000>0000000?G000000#<
|
|
+*$0INOV000000000A0280LM1HAGAN 0REMOTE +$.K6SEP6Q00003 0000000Q03 0<01100#000>1
|
|
0000003N0000000Q+-10BDEC000000000V0638RM0SRCHECK0V0638 +$|K?SEP1Q00000#0000000<
|
|
01+2F0}500#000>2000000040000000#+-20CDEC000000000C0905NM0P 0TWO +*UK5DEC
|
|
9Q00001.0000000<01+2F0}500#000>60000003/0|00000#+-:0<DEC000000000D0479JL0CONV
|
|
0LOWKE +-6KGDEC3Q00000 0000000+0200+01100#000>70000000{0000000++-60GDEC00000000
|
|
0D0653SB1SIMPLE 0ALNICO +$1K?AUG1Q00000F0000000F03 0<01100#000>80000000:0000000F
|
|
+$10?AUG000000000D0650BK0COMP 0OUTPUT +*TK4DEC1Q00000#0000000<01+2F0}500#000>9
|
|
000000030000000#+*!0:DEC000000000C0915LM0FORTRAN0ERRORS +*ZK#DEC2Q00002?0000003B
|
|
01+0<0310??000>#000000}]00000016+-:0<DEC000000000D0029PG1HTEXCH 0SYNTHA +*PKFNOV
|
|
7Q00004H0000000Q03 0<01100#000>@0000004C0000000Q+*Q0GNOV000000000D0843BL1LPOUTPU
|
|
0PROGRAM+*,K@DEC2Q00001+0000000Q03 0<01100#000>?0000000Z0000000Q+-30DDEC00000000
|
|
D00001+0250001+1B400WTV=#}0700 1F0000001+0000005B3D FOR=#}0700 1F0000001+0000009
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B400WTT=#}0700 1F0000001+0000005B3D FOR=#}0700 1F0000001+0000009
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B50VPBT=#}0700 1F0000001+0000005#}0700 1F0000001+000000800000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B50VPRT=#}0700 1F0000001+0000005B1/HOUR=#}0700 1F00000+0F00000+0
|
|
F0000001+000000@0000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B400SAT=#}0700 1F0000001+0000005+0000006000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B3000DP=#}0700 1F0000001+0000005B3D FOR=#}0700 1F0000001+0000009
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B50RHOS=#}0700 1F0000001+0000005B3D FOR=#}0700 1F0000001+0000009
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B50DROP=#}0700 1F0000001+0000005#}0700 1F0000001+000000800000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B6FLUIDIB6ZATIONF0000001+0000005B1/HOUR=#}0700 1F00000+0F00000+0
|
|
F0000001+000000@0000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D0000200250001+1B6ACTUALB6 FLUIDB6IZATIOB6N VELOB4LOCITYF0000001+000000800000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B50VACT=#}0700 1F0000001+0000005B3D FOR=#}0700 1F0000001+0000009
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B6VISCOSB3COSITYF0000001+0000005B3D FOR=#}0700 1F0000001+0000009
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B6MUCO2=#}0700 1F0000001+0000005#}0700 1F0000001+000000800000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B50MUCO=#}0700 1F0000001+0000005B1/HOUR=#}0700 1F00000+0F00000+0
|
|
F0000001+000000@0000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B50MUH2=#}0700 1F0000001+0000005B4LOCITYF0000001+000000800000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B6MUH2O=#}0700 8F0000001+0000005B3D FOR=#}0700 1F0000001+0000009
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B6MUSUM=#}0700 8F0000001+0000005B3D FOR=#}0700 1F0000001+0000009
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B6DENSITB1ENSITYF0000001+0000005#}0700 1F0000001+000000800000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001|0250001+1B6RHOCO2B1HOCO2=#}0700 1F0000001+000000600000000F00000+0F00000+0
|
|
F0000001+000000@0000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B6RHOCO=#}0700 1F0000001+0000005B4LOCITYF0000001+000000800000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B6RHOH2=#}0700 1F0000001+0000005B3D FOR=#}0700 1F0000001+0000009
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001|0250001+1B6RHOH2OB1HOH2O=#}0700 1F0000001+000000600000000F0000001+0000009
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001|0250001+1B6RHOSUMB1HOSUM=#}0700 1F0000001+000000600000000+000000800000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B6GASIFIB6CATIONF0000001+0000005+000000600000000F00000+0F00000+0
|
|
F0000001+000000@0000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B6GASIF=#}0700 1F0000001+0000005B4LOCITYF0000001+000000800000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001 0250001+1B6THEOREB6TICAL B6FLUIDIB6ZATIONF0000001+0000007F0000001+0000009
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001|0250001+1B6VTHEORB1THEOR=#}0700 1F0000001+000000600000000F0000001+0000009
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D0000200250001+1B6RATIO B6ACTUALB6 TO THB6EORETIB3ETICALF0000001+000000800000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B400ETA=#}0700 1F0000001+0000005+000000600000000F00000+0F00000+0
|
|
F0000001+000000@0000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
D00001+0250001+1B400NRE=#}0700 1F0000001+0000005B4LOCITYF0000001+000000800000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000
|