|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 23134 (0x5a5e)
Types: TextFile
Names: »CONFIG.P«
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
└─ ⟦this⟧ »CSP005_V0501.D!CSS380.D!XAMOS.D!CONFIG.D!CONFIG.P«
*** *** CR80 PASCAL COMPILER (VERSION: 840615) *** COMPILATION STARTED 84«nul»08«nul»17 AT 12:17 *** SOURCE FILE: @FILSYS-FILE*SSD*MXSYS.D*CSP005.D*CSS380.D*XAMOS.D*CONFIG.D*CONFIG.S *** OBJECT FILE: @FILSYS-FILE*SSD*MXSYS.D*CSP005.D*CSS380.D*XAMOS.D*CONFIG.D*CONFIG.L *** PRINT FILE: @FILSYS-FILE*SSD*MXSYS.D*CSP005.D*CSS380.D*XAMOS.D*CONFIG.D*CONFIG.P *** USERCODE : #0000 *** OPTIONS : /B /C /U /S /N /X /NF *** 0001 00.00001 %SUBMODULE 0002 00.00002 %NOLIST 0003 00.00003 %SOURCE *** INCLUDE *** FILE: @FILSYS-FILE*SSD*MX.D*GENS.D*PREFIX *** LEVEL: 1 0613 00.00005 %LIST *** INCLUDE *** FILE: @FILSYS-FILE*SSD*MXSYS.D*CSP005.D*CSS380.D*XAMOS.D*CONFIG.D*HEAD *** LEVEL: 1 0614 02.00001 0615 02.00002 "*********************************************************************** 0616 02.00003 * * 0617 02.00004 * T O S * 0618 02.00005 * T E R M I N A L O P E R A T I N G S Y S T E M * 0619 02.00006 * * 0620 02.00007 * CONF ITEM: CSS/380 * 0621 02.00008 * AUTHOR: JHO * 0622 02.00009 * VERSION: 1001 * 0623 02.00010 * DATE: 831101 * 0624 02.00011 * * 0625 02.00012 ***********************************************************************" 0626 02.00013 "RELEASE DATE AUTHOR CHANGES 0627 02.00014 -------- ------ ------ ------------------------------------------------ 0628 02.00015 4 810123 JHO ERROR IN IN_NEWS FIXED (CPECR 128) 0629 02.00016 COMMANDS CHANGED FROM 2 TO 10 SIGNIFICANT CHARS 0630 02.00017 (CPECR 136) 0631 02.00018 RESERVE_DISK, RELEASE_DISK ADDED (CPECR 226) 0632 02.00019 QUEUEING IF NO PCB'S 0633 02.00020 ERROR IN OPENING COMMAND -SYSDIR- CORRECTED (CPECR 238) 0634 02.00021 TEST COMMAND DELETED (CPECR 238) 0635 02.00022 DECIMAL PROGRAM VERSION NUMBER IN STATUS (CPECR 185) 0636 02.00023 TASKS FAILING TO RESPOND TO UTILITY SYSTEM 0637 02.00024 IS TERMINATED WITH CC=#8801 0638 02.00025 5 810226 JHO COMPILED WITH FASTCODE 0639 02.00026 0640 02.00027 6 810428 JHO SUPPORT OF LTUS 0641 02.00028 SUPPORT OF DUAL SYSTEM DISK 0642 02.00029 ERROR IN OPEN PHASE COMMAND PROCESSING (MISSING 0643 02.00030 ERROR REPORTING) CORRECTED 0644 02.00031 701 811120 EKH SUPPORT OF ALTERNATIVE FILE SYSTEMS 0645 02.00032 CONFIGURATION PARAMETERS ISOLATED TO A SEPARATE MODULE 0646 02.00033 TOS MODULES MOVED FROM SYSTEM DIRECTORY 0647 02.00034 AUTO-OPEN AND AUTO-CONFIG SUPPORTED 0648 02.00035 0649 02.00036 801 820428 HPT XAMOS SUPPORTED 0650 02.00037 0651 02.00038 802 821101 EKH ADDITIONAL COMMANDS: WAIT, IF, CYCLE, BEGIN, END 0652 02.00039 DEVICE OVERLAY EXTRACTED FROM COMMAND PASS 0653 02.00040 CHILD PROCESSES GET PARENT NAME PLUS SEQ.NO. 0654 02.00041 CDIR PARAMETER MAY NOW BE GIVEN TO RUN COMMAND. 0655 02.00042 0656 02.00043 902 830510 HS BOTH AMOS AND XAMOS MODULES ARE NOW PRESENT IN 0657 02.00044 THE DIRECTORIES AMOS.D AND XAMOS.D 0658 02.00045 0659 02.00046 903 830715 HS THE VERSION IS PLACED IN THE COMMAND LINE RATHER 0660 02.00047 THAN IN THE LINK COMMAND FILE. 0661 02.00048 0662 02.00049 IT IS CHECKED THAT A PROGRAM FILE CONTAIN THE 0663 02.00050 NUMBER OF BYTES EXPECTED(PROGRAM SIZE + 0664 02.00051 PROCESS SIZE). 0665 02.00052 0666 02.00053 THE 'AUTOMATIC' COMMAND LINE IS PRINTED IF 0667 02.00054 AUTO OPEN. 0668 02.00055 0669 02.00056 COMMAND LINES CAN NOW BE 132 CHARACTERS. 0670 02.00057 0671 02.00058 1001 831101 HS VOLUME_USE ADDED IN MOUNT. 0672 02.00059 MX TOS GENERATED. 0673 02.00060 NEW OVERLAY TOS_LPON.C 0674 02.00061 0675 02.00062 " 0676 02.00063 0677 02.00064 %CHECK 0678 02.00065 %NOUNIVCHECK 0679 02.00066 %FASTCODE 0680 02.00067 %SUMMARY 0681 02.00068 "PAGE"«ff» *** ENDINCLUDE *** LEVEL: 1 0682 00.00007 *** INCLUDE *** FILE: @FILSYS-FILE*SSD*MXSYS.D*CSP005.D*CSS380.D*XAMOS.D*CONFIG.D*LIMITS *** LEVEL: 1 0683 03.00001 0684 03.00002 CONST PROCESS_LIMIT = 20; 0685 03.00003 CONST PROGRAM_LIMIT = 10; 0686 03.00004 CONST TERMINAL_LIMIT = 6; 0687 03.00005 CONST DEVICE_LIMIT = 6; 0688 03.00006 CONST FILSYS_LIMIT = 1; 0689 03.00007 CONST LOAD_Q_LIMIT = TERMINAL_LIMIT; 0690 03.00008 *** ENDINCLUDE *** LEVEL: 1 0691 00.00009 *** INCLUDE *** FILE: @FILSYS-FILE*SSD*MXSYS.D*CSP005.D*CSS380.D*XAMOS.D*CONFIG.D*TYPES *** LEVEL: 1 0692 04.00001 0693 04.00002 TYPE TERMINAL_INDEX = 0..TERMINAL_LIMIT; 0694 04.00003 TYPE PROCESS_INDEX = 0..PROCESS_LIMIT; 0695 04.00004 TYPE PROGRAM_INDEX = 0..PROGRAM_LIMIT; 0696 04.00005 TYPE FILSYS_INDEX = 0..FILSYS_LIMIT; 0697 04.00006 TYPE DEVICE_INDEX = 0..DEVICE_LIMIT; 0698 04.00007 TYPE LOAD_Q_INDEX = 0..LOAD_Q_LIMIT; 0699 04.00008 0700 04.00009 CONST ECHO_MODE = 0; 0701 04.00010 CONST VDU_MODE = 1; 0702 04.00011 CONST WAIT_MODE = 2; 0703 04.00012 CONST ITT_MODE = 3; 0704 04.00013 CONST FF_MODE = 4; 0705 04.00014 0706 04.00015 CONST IBUFLGT = 80; 0707 04.00016 0708 04.00017 TYPE OPEN_STATE = 0709 04.00018 ( SYSTEM_CLOSED, SYSDEV_ASSIGNED, SYSVOL_MOUNTED, USERED_ON, 0710 04.00019 WF_CREATED, MD_FOUND, SYSDIR_FOUND, TOSDIR_FOUND, 0711 04.00020 PASSES_FOUND, ERRORTEXTS_FOUND, SYSTEM_OPEN); 0712 04.00021 0713 04.00022 0714 04.00023 TYPE OS_MODE_TYPE = (SLAVE, MASTER, SINGLE, DUAL, DUALIZABLE); 0715 04.00024 " MASTER and SINGLE are synonyms " 0716 04.00025 0717 04.00026 TYPE IBUF_TYPE = ARRAY [1..IBUFLGT] OF INTEGER; 0718 04.00027 0719 04.00028 TYPE NEWS_TYPE = RECORD 0720 04.00029 BYTE_COUNT : INTEGER; 0721 04.00030 MSG : IBUF_TYPE 0722 04.00031 END; 0723 04.00032 0724 04.00033 0725 04.00034 0726 04.00035 CONST PRHL= 26; 0727 04.00036 CONST PGHL = 11; 0728 04.00037 CONST PROGRAMMEMORY = 10; 0729 04.00038 CONST UTILITYPROGRAM = #10; 0730 04.00039 CONST BNREENTRANT = 0; 0731 04.00040 CONST BNRESIDENT = 1; 0732 04.00041 CONST BNPERMANENT = 2; 0733 04.00042 CONST BNMONITOR = 3; 0734 04.00043 CONST BNUTILITY = 4; 0735 04.00044 CONST BNPASCAL = 5; 0736 04.00045 CONST RELEASEMEMORY = 0; 0737 04.00046 CONST ALLOCATEMEMORY = 1; 0738 04.00047 CONST TRANSFERMEMORY = 4; 0739 04.00048 CONST MESSAGE_DELAY_PARENTSIGNAL = #302; 0740 04.00049 CONST PUBLIC_USER = #FFFC; 0741 04.00050 CONST UNSIGNED5 = #8520 ; 0742 04.00051 CONST SIGNED5= #0520 ; 0743 04.00052 0744 04.00053 CONST RESERVE= 8; 0745 04.00054 0746 04.00055 TYPE EQUALITY_OPERATOR = ( EQ_OP, NE_OP, LT_OP, GT_OP); 0747 04.00056 TYPE UNPACKED_NAME = ARRAY [0..7] OF CHAR; 0748 04.00057 0749 04.00058 TYPE TEXT = ARRAY [1..300] OF CHAR; 0750 04.00059 0751 04.00060 TYPE PROCESS_STATE = (FREE, CREATED, STOPPED, RUNNING); 0752 04.00061 0753 04.00062 TYPE TERMINAL_INIT_REC = RECORD 0754 04.00063 OPER, ADDR, MODE, LINEWIDTH, TIMEOUT: INTEGER 0755 04.00064 END; 0756 04.00065 0757 04.00066 TYPE DEVICE_STATE = (DEASSIGNED, ASSIGNED, MOUNTED, RESERVED, 0758 04.00067 MOUNTED_DUAL, MOUNTED_DUALIZABLE); 0759 04.00068 0760 04.00069 0761 04.00070 0762 04.00071 TYPE TERMINAL_IO_MODE = (TIDLE, TIN, TOUT); 0763 04.00072 0764 04.00073 TYPE HEADER_KIND = (ILLEGAL_KIND, PROGRAM_KIND, PROCESS_KIND); 0765 04.00074 0766 04.00075 TYPE PROCESS_HEADER = RECORD 0767 04.00076 KIND : HEADER_KIND; 0768 04.00077 SIZE : INTEGER; 0769 04.00078 PROC_NAME : PACKED_NAME3; 0770 04.00079 CPU_NAME : PACKED_NAME3; 0771 04.00080 PRIO, CAPAB, CLAIM, EXECSIZE: INTEGER; 0772 04.00081 IO_PARS : ARRAY [1..4] OF INTEGER; 0773 04.00082 MSGS : INTEGER; 0774 04.00083 CURDIR : INTEGER; 0775 04.00084 MEM_RANGE : INTEGER; 0776 04.00085 DUMMY : ARRAY [0..4] OF INTEGER; 0777 04.00086 LEVEL, BOUND : INTEGER 0778 04.00087 END; 0779 04.00088 0780 04.00089 TYPE PROGRAM_NAME = PROCESS_NAME; 0781 04.00090 0782 04.00091 TYPE LOAD_RESULT = INTEGER; 0783 04.00092 0784 04.00093 TYPE MEMORY_TYPE = (FORPROGRAM, FORDATA); 0785 04.00094 0786 04.00095 TYPE PRINTERSTATETYPE = (PRINTERIDLE, PRINTERQUEUED, PRINTERACTIVE); 0787 04.00096 0788 04.00097 TYPE PRINTFILEREC = RECORD 0789 04.00098 PRINTERSTATE : PRINTERSTATETYPE; 0790 04.00099 PRINTERNAME : PROCESS_NAME; 0791 04.00100 RESERVED : BOOLEAN; 0792 04.00101 SEMA : FILE; 0793 04.00102 RESERVER : INTEGER 0794 04.00103 END; 0795 04.00104 0796 04.00105 TYPE RQ_ANSWER = (RQ_OK, RQ_INV_REQUEST, RQ_INV_PROC, RQ_INV_PROC_STATE, 0797 04.00106 RQ_INV_FSN, RQ_FAIL_TASK, RQ_LOAD_ERROR, RQ_Q_OFFER); 0798 04.00107 0799 04.00108 TYPE SERVICE_REQUEST = (STARTTASK, STOPTASK, REMOVETASK, LOGOFF, 0800 04.00109 LOADTASK_1, LOADTASK_2, INITTASK, RESERVEPRINT, RELEASEPRINT, 0801 04.00110 STARTPRINT, QTASK); 0802 04.00111 0803 04.00112 TYPE SERVICE_REQUEST_MESSAGE = RECORD 0804 04.00113 CASE RQTYPE :SERVICE_REQUEST OF 0805 04.00114 STARTTASK, STOPTASK, REMOVETASK, LOADTASK_1, INITTASK: 0806 04.00115 (PNAME : PROCESS_NAME); 0807 04.00116 LOADTASK_2: (GNAME: PACKED_NAME2); 0808 04.00117 STARTPRINT, QTASK, 0809 04.00118 LOGOFF, RESERVEPRINT, RELEASEPRINT: (DUMMY : INTEGER) 0810 04.00119 END; 0811 04.00120 0812 04.00121 TYPE USERENTRYTYPE = RECORD 0813 04.00122 ID : INTEGER; 0814 04.00123 PASSWORD : PACKED_NAME 0815 04.00124 END; 0816 04.00125 0817 04.00126 TYPE FILE_ID = RECORD 0818 04.00127 XCOMPLETE : BOOLEAN; 0819 04.00128 XFSN : FILE_SYSTEM_NAME; 0820 04.00129 XVOL : VOLUME_NAME; 0821 04.00130 XNAMELIST : NAMELISTTYPE; 0822 04.00131 XNAMENBR : INTEGER 0823 04.00132 END; 0824 04.00133 0825 04.00134 TYPE STATUS_TYPE = (SCOMPLETE, SDEVICES, STERMINALS, SPROCESSES, SPROGRAMS); 0826 04.00135 DEVICE_COMMAND = (SASSIGN, SDEASSIGN, SRESERVE, SRELEASE, 0827 04.00136 SMOUNT, SDISMOUNT, SUPDATE ); 0828 04.00137 0829 04.00138 TYPE PASSES = (SERVICE_PASS, COMMAND_PASS, LOGIN_PASS, RUN_PASS, TERMINALON_PASS, 0830 04.00139 STATUS_PASS, PRINT_PASS, DEVICE_PASS, LTUON_PASS, LPON_PASS); 0831 04.00140 0832 04.00141 TYPE TERMINAL_TYPE = (TERM, LTU, PRINTER); 0833 04.00142 TYPE TERMINL = RECORD 0834 04.00143 PROCESSREF : PROCESS_INDEX; 0835 04.00144 OPERATION : OPERATION_REFERENCE; 0836 04.00145 MODE : TERMINAL_IO_MODE; 0837 04.00146 FIL : FILE; 0838 04.00147 FILADR : FILE_ADDRESS; 0839 04.00148 USED : BOOLEAN; 0840 04.00149 TERM_TYPE : TERMINAL_TYPE; 0841 04.00150 NAME : ARRAY [0..0] OF INTEGER; 0842 04.00151 NEXT : TERMINAL_INDEX; "POINTER TO NEXT TERMINAL IF AN LTU" 0843 04.00152 TUSERS : INTEGER; 0844 04.00153 REC : IBUF_TYPE; 0845 04.00154 REF_RECDESCRIPT : BLEPTR 0846 04.00155 END; 0847 04.00156 0848 04.00157 TYPE PROC = RECORD 0849 04.00158 NAME : PROCESS_NAME; 0850 04.00159 USRID : USERID; 0851 04.00160 BASE : INTEGER; 0852 04.00161 EVT : INTEGER; "MESSAGE FROM PARENT TASK" 0853 04.00162 PARENT : PROCESS_INDEX; 0854 04.00163 PPROGRAM : PROGRAM_INDEX; 0855 04.00164 PTERMINAL : TERMINAL_INDEX; 0856 04.00165 STATE : PROCESS_STATE; 0857 04.00166 MEM : INTEGER; 0858 04.00167 PPAGE : INTEGER; 0859 04.00168 CPU_NR : INTEGER; 0860 04.00169 CPU_NAME : PACKED_NAME3 0861 04.00170 END; 0862 04.00171 0863 04.00172 TYPE PROGRAM_HEADER = RECORD 0864 04.00173 KIND : HEADER_KIND; 0865 04.00174 SIZE : INTEGER; 0866 04.00175 NAME : PROGRAM_NAME; 0867 04.00176 PTYPE, START, MICRO, 0868 04.00177 CHECKSUM, MEM_RANGE : INTEGER 0869 04.00178 END; 0870 04.00179 0871 04.00180 TYPE PROGR = RECORD 0872 04.00181 HEADER : PROGRAM_HEADER; 0873 04.00182 PROG, MEM, USERS, 0874 04.00183 PGPAGE : INTEGER 0875 04.00184 END; 0876 04.00185 0877 04.00186 TYPE TDEVICE = RECORD 0878 04.00187 FSYS : FILSYS_INDEX; 0879 04.00188 DEV : DUAL_DEVICE_DESCRIPTION; 0880 04.00189 VOLUME : VOLUME_NAME; 0881 04.00190 USER : INTEGER; 0882 04.00191 STATE : DEVICE_STATE; 0883 04.00192 UPDATE_RESET : INTEGER; 0884 04.00193 UPDATE_COUNT : INTEGER 0885 04.00194 END; 0886 04.00195 0887 04.00196 TYPE LOAD_Q_ELEM_TYPE = RECORD 0888 04.00197 EVT : INTEGER; "SAVED EVENT ID" 0889 04.00198 USED : BOOLEAN; 0890 04.00199 P : PROCESS_INDEX; 0891 04.00200 F : FILE 0892 04.00201 END; 0893 04.00202 0894 04.00203 TYPE LOAD_Q_TYPE = RECORD 0895 04.00204 MEMORY_RELEASED : BOOLEAN; 0896 04.00205 Q_SIZE : LOAD_Q_INDEX; 0897 04.00206 Q : ARRAY [ LOAD_Q_INDEX ] OF LOAD_Q_ELEM_TYPE 0898 04.00207 END; 0899 04.00208 0900 04.00209 TYPE TERMINALLIST= ARRAY [TERMINAL_INDEX] OF TERMINL; 0901 04.00210 TYPE PROCESSLIST= ARRAY [PROCESS_INDEX] OF PROC; 0902 04.00211 TYPE PROGRAMLIST= ARRAY [PROGRAM_INDEX] OF PROGR; 0903 04.00212 TYPE FILSYSLIST= ARRAY [FILSYS_INDEX] OF FILE_SYSTEM_NAME; 0904 04.00213 TYPE DEVICELIST= ARRAY [DEVICE_INDEX] OF TDEVICE; 0905 04.00214 0906 04.00215 TYPE TERMINALPTR= @TERMINALLIST; 0907 04.00216 TYPE PROCESSPTR= @PROCESSLIST; 0908 04.00217 TYPE PROGRAMPTR= @PROGRAMLIST; 0909 04.00218 TYPE FILSYSPTR= @FILSYSLIST; 0910 04.00219 TYPE DEVICEPTR= @DEVICELIST; 0911 04.00220 TYPE LOAD_QPTR= @LOAD_Q_TYPE; 0912 04.00221 0913 04.00222 TYPE COMMON_DATA = RECORD 0914 04.00223 TOS_VERSION: INTEGER; 0915 04.00224 OS_MODE: OS_MODE_TYPE; 0916 04.00225 LOCAL_PRINTER: BOOLEAN; 0917 04.00226 OC_INIT_REC: TERMINAL_INIT_REC; 0918 04.00227 SYSTEM_DEV: DUAL_DEVICE_DESCRIPTION; 0919 04.00228 SYSTEM_VOL: VOLUME_NAME; 0920 04.00229 SYSTEM_DIR: FILE_NAME; 0921 04.00230 FILESYSTEMS: FILSYS_INDEX; 0922 04.00231 AUTO_OPENS: INTEGER; 0923 04.00232 NEWS: NEWS_TYPE; 0924 04.00233 0925 04.00234 TERMINAL: TERMINALPTR; 0926 04.00235 PROCESS: PROCESSPTR; 0927 04.00236 PRQGRAM: PROGRAMPTR; 0928 04.00237 FILSYS: FILSYSPTR; 0929 04.00238 DEVICE: DEVICEPTR; 0930 04.00239 LOAD_Q: LOAD_QPTR; 0931 04.00240 MAXTERMINAL: TERMINAL_INDEX; 0932 04.00241 MAXPROCESS: PROCESS_INDEX; 0933 04.00242 MAXPROGRAM: PROGRAM_INDEX; 0934 04.00243 MAXFILSYS: FILSYS_INDEX; 0935 04.00244 MAXDEVICE: DEVICE_INDEX; 0936 04.00245 MAX_Q_SIZE: LOAD_Q_INDEX; 0937 04.00246 SYSDIR: FILE; 0938 04.00247 ERRORTEXTS: FILE; 0939 04.00248 WF: FILE; 0940 04.00249 WS: STREAM; 0941 04.00250 STATUS: STATUS_TYPE; 0942 04.00251 DEVICE_CMD: DEVICE_COMMAND; 0943 04.00252 PASSFILE: ARRAY[ PASSES ] OF FILE; 0944 04.00253 PRINTFILE: PRINTFILEREC; 0945 04.00254 USRIDGENERATOR: INTEGER; 0946 04.00255 MEMMGR: PROCESS_NAME; 0947 04.00256 TEMP_FILE_ATTR: FILE_ATTRIBUTES; 0948 04.00257 EVTTYP: EVENT_TYPE; 0949 04.00258 EVENT: INTEGER; 0950 04.00259 MSGBUF: MESSAGE_BUFFER; 0951 04.00260 PROC_RESULT: COMPLETION_CODE; 0952 04.00261 CURTERMINAL: TERMINAL_INDEX; 0953 04.00262 CLOSED: BOOLEAN; 0954 04.00263 OSUSR: USERID 0955 04.00264 END; 0956 04.00265 "MAXTERMINAL, MAXPROCESS, MAXPROGRAM CORRESPOND TO OC" 0957 04.00266 "FILSYS[0] CORRESPONDS TO SYSTEM FILE SYSTEM " 0958 04.00267 0959 04.00268 TYPE GLOBAL_REF =@COMMON_DATA; 0960 04.00269 "PAGE"«ff» *** ENDINCLUDE *** LEVEL: 1 0961 00.00011 0962 00.00012 %IMPORT: PACKNAME 0963 00.00013 PROCEDURE PACKNAME( T: TEXT; VAR NM: PACKED_NAME; BYTES: INTEGER); 0964 00.00014 EXTERN; 0965 00.00015 " 0966 00.00016 VAR I: INTEGER; 0967 00.00017 BEGIN 0968 00.00018 FOR I:=0 TO 7 DO NM[I] := 0; 0969 00.00019 PACK( T[1], NM[0], BYTES); 0970 00.00020 END; 0971 00.00021 " 0972 00.00022 0973 00.00023 %IMPORT:PACKIT 0974 00.00024 PROCEDURE PACKIT( T: TEXT; VAR STRING: UNIV ELEMENT; BYTES: INTEGER); 0975 00.00025 EXTERN; 0976 00.00026 " 0977 00.00027 BEGIN 0978 00.00028 PACK( T[1], STRING, BYTES); 0979 00.00029 END; 0980 00.00030 " 0981 00.00031 0982 00.00032 %IMPORT: GET_VERSION 0983 00.00033 PROCEDURE GET_VERSION( VAR PROGRAM_VERSION: INTEGER); 0984 00.00034 EXTERN; 0985 00.00035 0986 00.00036 0987 00.00037 "PAGE" 0988 00.00038 %EXPORT: CONFIG 0989 00.00039 PROCEDURE CONFIG( VAR COMMON: COMMON_DATA); 0990 00.00040 BEGIN 0991 00.00041 WITH COMMON DO 0992 00.00042 BEGIN 0993 00.00043 MAXTERMINAL:= TERMINAL_LIMIT; NEW(TERMINAL); 0994 00.00044 MAXPROCESS := PROCESS_LIMIT; NEW(PROCESS); 0995 00.00045 MAXPROGRAM := PROGRAM_LIMIT; NEW(PRQGRAM); 0996 00.00046 MAXFILSYS := FILSYS_LIMIT; NEW(FILSYS); 0997 00.00047 MAXDEVICE := DEVICE_LIMIT; NEW(DEVICE); 0998 00.00048 MAX_Q_SIZE := TERMINAL_LIMIT; NEW(LOAD_Q); 0999 00.00049 GET_VERSION(TOS_VERSION); 1000 00.00050 %SOURCE *** INCLUDE *** FILE: @FILSYS-FILE*SSD*MXSYS.D*CSP005.D*CSS380.D*XAMOS.D*CONFIG.D*DEFAULTS *** LEVEL: 1 1001 05.00001 1002 05.00002 PACKIT( 'TTY000', PROCESS@[MAXPROCESS].NAME.NAME[0], 6); 1003 05.00003 1004 05.00004 WITH OC_INIT_REC DO 1005 05.00005 BEGIN 1006 05.00006 ADDR := 1; 1007 05.00007 LINEWIDTH :=999; 1008 05.00008 MODE := 0; 1009 05.00009 TIMEOUT := 0; 1010 05.00010 SETBIT(MODE,ECHO_MODE); 1011 05.00011 SETBIT(MODE,WAIT_MODE); 1012 05.00012 END; 1013 05.00013 1014 05.00014 OS_MODE := MASTER; " MASTER SINGLE SLAVE DUAL or DUALIZABLE " 1015 05.00015 " MASTER and SINGLE are synonyms " 1016 05.00016 1017 05.00017 WITH SYSTEM_DEV DO 1018 05.00018 BEGIN 1019 05.00019 DEVICE.DEVICE_KIND := 10; 1020 05.00020 DEVICE.DEVICE_ADDR := 2; 1021 05.00021 DEVICE.UNIT := 0; "BIT 3 through 0 : unit number " 1022 05.00022 "BIT 15 through 4 : CTR-RAM address " 1023 05.00023 DEVICE.SUBUNIT := 0; 1024 05.00024 PACKIT( 'FD00', DEVICE.DEVICE[0], 4); 1025 05.00025 PARTNER.DEVICE_ADDR:= -1; 1026 05.00026 PARTNER.UNIT := 0; "BIT 3 through 0 : unit number " 1027 05.00027 "BIT 15 through 4 : CTR-RAM address " 1028 05.00028 END; 1029 05.00029 1030 05.00030 1031 05.00031 PACKIT( 'FILSYS', FILSYS@[0].PNAME.NAME[0], 6); " SYSTEM FILE SYSTEM " 1032 05.00032 PACKIT( 'FILE', FILSYS@[0].GNAME[0], 4); 1033 05.00033 1034 05.00034 PACKNAME( 'HS' , SYSTEM_VOL, 2); 1035 05.00035 PACKNAME( 'MD', SYSTEM_DIR, 2); 1036 05.00036 1037 05.00037 1038 05.00038 FILESYSTEMS := 0; " NUMBER OF ALTERNATE FILE SYSTEMS " 1039 05.00039 PACKIT( 'FILSYS', FILSYS@[0].PNAME.NAME[0], 6);"SYSTEM FILE SYSTEM " 1040 05.00040 PACKIT( 'FILE', FILSYS@[0].GNAME[0], 4); 1041 05.00041 PACKIT( 'DMA000', FILSYS@[1].PNAME.NAME[0], 6);"ALTERNATIVE FILE SYSTEM " 1042 05.00042 PACKIT( 'AFMS', FILSYS@[1].GNAME[0], 4); 1043 05.00043 1044 05.00044 PACKIT( 'PRINTR', PRINTFILE.PRINTERNAME.NAME[0], 6); 1045 05.00045 1046 05.00046 AUTO_OPENS := 0; 1047 05.00047 1048 05.00048 WITH TERMINAL@[MAXTERMINAL] DO BEGIN 1049 05.00049 FILADR.TRANSFERRED_BYTES := LONG(16); 1050 05.00050 PACKIT( 'DO CONFIG1 ', REC, 16); 1051 05.00051 END; *** ENDINCLUDE *** LEVEL: 1 1052 00.00052 WITH NEWS DO 1053 00.00053 BEGIN 1054 00.00054 BYTE_COUNT := 16; 1055 00.00055 PACKIT( '(:10:)Welcome to TOS(:10:)', MSG[1], BYTE_COUNT); 1056 00.00056 END; 1057 00.00057 1058 00.00058 LOCAL_PRINTER := TRUE; 1059 00.00059 END; 1060 00.00060 END; 1061 00.00061 1062 00.00062 BEGIN END. SUMMARY COMPILER VERSION: 8 COMPILER RELEASE: 4 PROGRAM SIZE: 284 DATAOVERLAY: 0 LARGE CONSTANTS: 90 (XAMOS, FASTCODE, SUBMODULE, NOCHECK, NONUMBER) «a5»