|
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: 22882 (0x5962)
Types: TextFile
Names: »CONFIG.P«
└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
└─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!TOS.D!CONFIG.P«
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
└─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!TOS.D!CONFIG.P«
*** *** CR80 PASCAL«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul» Compiler (Version: 09.01 From 841221) *** Compilation Started 79«nul»01«nul»01 at 00:02 *** Source File: @FILSYS-FILE*XAMOS*MD*SYSTEMS.D*XAMOS.D*GEN850501.D*FILE.D*TOS.D*CONFIG.S *** Object File: @FILSYS-FILE*XAMOS*MD*SYSTEMS.D*XAMOS.D*GEN850501.D*FILE.D*TOS.D*CONFIG.L *** Print File: @FILSYS-FILE*XAMOS*MD*SYSTEMS.D*XAMOS.D*GEN850501.D*FILE.D*TOS.D*CONFIG.P *** Usercode : #0000 *** Options : /B /C /U /S /N /X /NF *** 0001 0.0001 %SUBMODULE 0002 0.0002 %INITVAR 0003 0.0003 %NOLIST 0004 0.0004 %SOURCE @FILSYS-FILE*XAMOS*PREFIXES.D*XAMOS.D*PASCAL.D*PREFIX 0621 0.0005 %LIST 0622 0.0006 $@FILSYS-FILE*XAMOS*MD*SYSTEMS.D*XAMOS.D*GEN850501.D*FILE.D*TOS.D*HEAD 0623 2.0001 0624 2.0002 "*********************************************************************** 0625 2.0003 * * 0626 2.0004 * T O S * 0627 2.0005 * T E R M I N A L O P E R A T I N G S Y S T E M * 0628 2.0006 * * 0629 2.0007 * CONF ITEM: CSS/380 * 0630 2.0008 * AUTHOR: JHO * 0631 2.0009 * VERSION: 1001 * 0632 2.0010 * DATE: 831101 * 0633 2.0011 * * 0634 2.0012 ***********************************************************************" 0635 2.0013 "RELEASE DATE AUTHOR CHANGES 0636 2.0014 -------- ------ ------ ------------------------------------------------ 0637 2.0015 4 810123 JHO ERROR IN IN_NEWS FIXED (CPECR 128) 0638 2.0016 COMMANDS CHANGED FROM 2 TO 10 SIGNIFICANT CHARS 0639 2.0017 (CPECR 136) 0640 2.0018 RESERVE_DISK, RELEASE_DISK ADDED (CPECR 226) 0641 2.0019 QUEUEING IF NO PCB'S 0642 2.0020 ERROR IN OPENING COMMAND -SYSDIR- CORRECTED (CPECR 238) 0643 2.0021 TEST COMMAND DELETED (CPECR 238) 0644 2.0022 DECIMAL PROGRAM VERSION NUMBER IN STATUS (CPECR 185) 0645 2.0023 TASKS FAILING TO RESPOND TO UTILITY SYSTEM 0646 2.0024 IS TERMINATED WITH CC=#8801 0647 2.0025 5 810226 JHO COMPILED WITH FASTCODE 0648 2.0026 0649 2.0027 6 810428 JHO SUPPORT OF LTUS 0650 2.0028 SUPPORT OF DUAL SYSTEM DISK 0651 2.0029 ERROR IN OPEN PHASE COMMAND PROCESSING (MISSING 0652 2.0030 ERROR REPORTING) CORRECTED 0653 2.0031 701 811120 EKH SUPPORT OF ALTERNATIVE FILE SYSTEMS 0654 2.0032 CONFIGURATION PARAMETERS ISOLATED TO A SEPARATE MODULE 0655 2.0033 TOS MODULES MOVED FROM SYSTEM DIRECTORY 0656 2.0034 AUTO-OPEN AND AUTO-CONFIG SUPPORTED 0657 2.0035 0658 2.0036 801 820428 HPT XAMOS SUPPORTED 0659 2.0037 0660 2.0038 802 821101 EKH ADDITIONAL COMMANDS: WAIT, IF, CYCLE, BEGIN, END 0661 2.0039 DEVICE OVERLAY EXTRACTED FROM COMMAND PASS 0662 2.0040 CHILD PROCESSES GET PARENT NAME PLUS SEQ.NO. 0663 2.0041 CDIR PARAMETER MAY NOW BE GIVEN TO RUN COMMAND. 0664 2.0042 0665 2.0043 902 830510 HS BOTH AMOS AND XAMOS MODULES ARE NOW PRESENT IN 0666 2.0044 THE DIRECTORIES AMOS.D AND XAMOS.D 0667 2.0045 0668 2.0046 903 830715 HS THE VERSION IS PLACED IN THE COMMAND LINE RATHER 0669 2.0047 THAN IN THE LINK COMMAND FILE. 0670 2.0048 0671 2.0049 IT IS CHECKED THAT A PROGRAM FILE CONTAIN THE 0672 2.0050 NUMBER OF BYTES EXPECTED(PROGRAM SIZE + 0673 2.0051 PROCESS SIZE). 0674 2.0052 0675 2.0053 THE 'AUTOMATIC' COMMAND LINE IS PRINTED IF 0676 2.0054 AUTO OPEN. 0677 2.0055 0678 2.0056 COMMAND LINES CAN NOW BE 132 CHARACTERS. 0679 2.0057 0680 2.0058 1001 831101 HS VOLUME_USE ADDED IN MOUNT. 0681 2.0059 MX TOS GENERATED. 0682 2.0060 NEW OVERLAY TOS_LPON.C 0683 2.0061 0684 2.0062 " 0685 2.0063 0686 2.0064 %CHECK 0687 2.0065 %NOUNIVCHECK 0688 2.0066 %FASTCODE 0689 2.0067 %SUMMARY 0690 2.0068 "PAGE"«ff» 0691 2.0069 0692 0.0007 0693 0.0008 $@FILSYS-FILE*XAMOS*MD*SYSTEMS.D*XAMOS.D*GEN850501.D*FILE.D*TOS.D*LIMITS 0694 3.0001 0695 3.0002 CONST PROCESS_LIMIT = 20; 0696 3.0003 CONST PROGRAM_LIMIT = 10; 0697 3.0004 CONST TERMINAL_LIMIT = 6; 0698 3.0005 CONST DEVICE_LIMIT = 8; 0699 3.0006 CONST FILSYS_LIMIT = 2; 0700 3.0007 CONST LOAD_Q_LIMIT = TERMINAL_LIMIT; 0701 3.0008 0702 3.0009 0703 0.0009 0704 0.0010 $@FILSYS-FILE*XAMOS*MD*SYSTEMS.D*XAMOS.D*GEN850501.D*FILE.D*TOS.D*TYPES 0705 4.0001 0706 4.0002 TYPE TERMINAL_INDEX = 0..TERMINAL_LIMIT; 0707 4.0003 TYPE PROCESS_INDEX = 0..PROCESS_LIMIT; 0708 4.0004 TYPE PROGRAM_INDEX = 0..PROGRAM_LIMIT; 0709 4.0005 TYPE FILSYS_INDEX = 0..FILSYS_LIMIT; 0710 4.0006 TYPE DEVICE_INDEX = 0..DEVICE_LIMIT; 0711 4.0007 TYPE LOAD_Q_INDEX = 0..LOAD_Q_LIMIT; 0712 4.0008 0713 4.0009 CONST ECHO_MODE = 0; 0714 4.0010 CONST VDU_MODE = 1; 0715 4.0011 CONST WAIT_MODE = 2; 0716 4.0012 CONST ITT_MODE = 3; 0717 4.0013 CONST FF_MODE = 4; 0718 4.0014 0719 4.0015 CONST IBUFLGT = 80; 0720 4.0016 0721 4.0017 TYPE OPEN_STATE = 0722 4.0018 ( SYSTEM_CLOSED, SYSDEV_ASSIGNED, SYSVOL_MOUNTED, USERED_ON, 0723 4.0019 WF_CREATED, MD_FOUND, SYSDIR_FOUND, TOSDIR_FOUND, 0724 4.0020 PASSES_FOUND, ERRORTEXTS_FOUND, SYSTEM_OPEN); 0725 4.0021 0726 4.0022 0727 4.0023 TYPE OS_MODE_TYPE = (SLAVE, MASTER, SINGLE, DUAL, DUALIZABLE); 0728 4.0024 " MASTER and SINGLE are synonyms " 0729 4.0025 0730 4.0026 TYPE IBUF_TYPE = ARRAY [1..IBUFLGT] OF INTEGER; 0731 4.0027 0732 4.0028 TYPE NEWS_TYPE = RECORD 0733 4.0029 BYTE_COUNT : INTEGER; 0734 4.0030 MSG : IBUF_TYPE 0735 4.0031 END; 0736 4.0032 0737 4.0033 0738 4.0034 0739 4.0035 CONST PRHL= 26; 0740 4.0036 CONST PGHL = 11; 0741 4.0037 CONST PROGRAMMEMORY = 10; 0742 4.0038 CONST UTILITYPROGRAM = #10; 0743 4.0039 CONST BNREENTRANT = 0; 0744 4.0040 CONST BNRESIDENT = 1; 0745 4.0041 CONST BNPERMANENT = 2; 0746 4.0042 CONST BNMONITOR = 3; 0747 4.0043 CONST BNUTILITY = 4; 0748 4.0044 CONST BNPASCAL = 5; 0749 4.0045 CONST RELEASEMEMORY = 0; 0750 4.0046 CONST ALLOCATEMEMORY = 1; 0751 4.0047 CONST TRANSFERMEMORY = 4; 0752 4.0048 CONST MESSAGE_DELAY_PARENTSIGNAL = #302; 0753 4.0049 CONST PUBLIC_USER = #FFFC; 0754 4.0050 CONST UNSIGNED5 = #8520 ; 0755 4.0051 CONST SIGNED5= #0520 ; 0756 4.0052 0757 4.0053 CONST RESERVE= 8; 0758 4.0054 0759 4.0055 TYPE EQUALITY_OPERATOR = ( EQ_OP, NE_OP, LT_OP, GT_OP); 0760 4.0056 TYPE UNPACKED_NAME = ARRAY [0..7] OF CHAR; 0761 4.0057 0762 4.0058 TYPE TEXT = ARRAY [1..300] OF CHAR; 0763 4.0059 0764 4.0060 TYPE PROCESS_STATE = (FREE, CREATED, STOPPED, RUNNING); 0765 4.0061 0766 4.0062 TYPE TERMINAL_INIT_REC = RECORD 0767 4.0063 OPER, ADDR, MODE, LINEWIDTH, TIMEOUT: INTEGER 0768 4.0064 END; 0769 4.0065 0770 4.0066 TYPE DEVICE_STATE = (DEASSIGNED, ASSIGNED, MOUNTED, RESERVED, 0771 4.0067 MOUNTED_DUAL, MOUNTED_DUALIZABLE); 0772 4.0068 0773 4.0069 0774 4.0070 0775 4.0071 TYPE TERMINAL_IO_MODE = (TIDLE, TIN, TOUT); 0776 4.0072 0777 4.0073 TYPE HEADER_KIND = (ILLEGAL_KIND, PROGRAM_KIND, PROCESS_KIND); 0778 4.0074 0779 4.0075 TYPE PROCESS_HEADER = RECORD 0780 4.0076 KIND : HEADER_KIND; 0781 4.0077 SIZE : INTEGER; 0782 4.0078 PROC_NAME : PACKED_NAME3; 0783 4.0079 CPU_NAME : PACKED_NAME3; 0784 4.0080 PRIO, CAPAB, CLAIM, EXECSIZE: INTEGER; 0785 4.0081 IO_PARS : ARRAY [1..4] OF INTEGER; 0786 4.0082 MSGS : INTEGER; 0787 4.0083 CURDIR : INTEGER; 0788 4.0084 MEM_RANGE : INTEGER; 0789 4.0085 DUMMY : ARRAY [0..4] OF INTEGER; 0790 4.0086 LEVEL, BOUND : INTEGER 0791 4.0087 END; 0792 4.0088 0793 4.0089 TYPE PROGRAM_NAME = PROCESS_NAME; 0794 4.0090 0795 4.0091 TYPE LOAD_RESULT = INTEGER; 0796 4.0092 0797 4.0093 TYPE MEMORY_TYPE = (FORPROGRAM, FORDATA); 0798 4.0094 0799 4.0095 TYPE PRINTERSTATETYPE = (PRINTERIDLE, PRINTERQUEUED, PRINTERACTIVE); 0800 4.0096 0801 4.0097 TYPE PRINTFILEREC = RECORD 0802 4.0098 PRINTERSTATE : PRINTERSTATETYPE; 0803 4.0099 PRINTERNAME : PROCESS_NAME; 0804 4.0100 RESERVED : BOOLEAN; 0805 4.0101 SEMA : FILE; 0806 4.0102 RESERVER : INTEGER 0807 4.0103 END; 0808 4.0104 0809 4.0105 TYPE RQ_ANSWER = (RQ_OK, RQ_INV_REQUEST, RQ_INV_PROC, RQ_INV_PROC_STATE, 0810 4.0106 RQ_INV_FSN, RQ_FAIL_TASK, RQ_LOAD_ERROR, RQ_Q_OFFER); 0811 4.0107 0812 4.0108 TYPE SERVICE_REQUEST = (STARTTASK, STOPTASK, REMOVETASK, LOGOFF, 0813 4.0109 LOADTASK_1, LOADTASK_2, INITTASK, RESERVEPRINT, RELEASEPRINT, 0814 4.0110 STARTPRINT, QTASK); 0815 4.0111 0816 4.0112 TYPE SERVICE_REQUEST_MESSAGE = RECORD 0817 4.0113 CASE RQTYPE :SERVICE_REQUEST OF 0818 4.0114 STARTTASK, STOPTASK, REMOVETASK, LOADTASK_1, INITTASK: 0819 4.0115 (PNAME : PROCESS_NAME); 0820 4.0116 LOADTASK_2: (GNAME: PACKED_NAME2); 0821 4.0117 STARTPRINT, QTASK, 0822 4.0118 LOGOFF, RESERVEPRINT, RELEASEPRINT: (DUMMY : INTEGER) 0823 4.0119 END; 0824 4.0120 0825 4.0121 TYPE USERENTRYTYPE = RECORD 0826 4.0122 ID : INTEGER; 0827 4.0123 PASSWORD : PACKED_NAME 0828 4.0124 END; 0829 4.0125 0830 4.0126 TYPE FILE_ID = RECORD 0831 4.0127 XCOMPLETE : BOOLEAN; 0832 4.0128 XFSN : FILE_SYSTEM_NAME; 0833 4.0129 XVOL : VOLUME_NAME; 0834 4.0130 XNAMELIST : NAMELISTTYPE; 0835 4.0131 XNAMENBR : INTEGER 0836 4.0132 END; 0837 4.0133 0838 4.0134 TYPE STATUS_TYPE = (SCOMPLETE, SDEVICES, STERMINALS, SPROCESSES, SPROGRAMS); 0839 4.0135 DEVICE_COMMAND = (SASSIGN, SDEASSIGN, SRESERVE, SRELEASE, 0840 4.0136 SMOUNT, SDISMOUNT, SUPDATE ); 0841 4.0137 0842 4.0138 TYPE PASSES = (SERVICE_PASS, COMMAND_PASS, LOGIN_PASS, RUN_PASS, TERMINALON_PASS, 0843 4.0139 STATUS_PASS, PRINT_PASS, DEVICE_PASS, LTUON_PASS, LPON_PASS); 0844 4.0140 0845 4.0141 TYPE TERMINAL_TYPE = (TERM, LTU, PRINTER); 0846 4.0142 TYPE TERMINL = RECORD 0847 4.0143 PROCESSREF : PROCESS_INDEX; 0848 4.0144 OPERATION : OPERATION_REFERENCE; 0849 4.0145 MODE : TERMINAL_IO_MODE; 0850 4.0146 FIL : FILE; 0851 4.0147 FILADR : FILE_ADDRESS; 0852 4.0148 USED : BOOLEAN; 0853 4.0149 TERM_TYPE : TERMINAL_TYPE; 0854 4.0150 NAME : ARRAY [0..0] OF INTEGER; 0855 4.0151 NEXT : TERMINAL_INDEX; "POINTER TO NEXT TERMINAL IF AN LTU" 0856 4.0152 TUSERS : INTEGER; 0857 4.0153 REC : IBUF_TYPE; 0858 4.0154 REF_RECDESCRIPT : BLEPTR 0859 4.0155 END; 0860 4.0156 0861 4.0157 TYPE PROC = RECORD 0862 4.0158 NAME : PROCESS_NAME; 0863 4.0159 USRID : USERID; 0864 4.0160 BASE : INTEGER; 0865 4.0161 EVT : INTEGER; "MESSAGE FROM PARENT TASK" 0866 4.0162 PARENT : PROCESS_INDEX; 0867 4.0163 PPROGRAM : PROGRAM_INDEX; 0868 4.0164 PTERMINAL : TERMINAL_INDEX; 0869 4.0165 STATE : PROCESS_STATE; 0870 4.0166 MEM : INTEGER; 0871 4.0167 PPAGE : INTEGER; 0872 4.0168 CPU_NR : INTEGER; 0873 4.0169 CPU_NAME : PACKED_NAME3 0874 4.0170 END; 0875 4.0171 0876 4.0172 TYPE PROGRAM_HEADER = RECORD 0877 4.0173 KIND : HEADER_KIND; 0878 4.0174 SIZE : INTEGER; 0879 4.0175 NAME : PROGRAM_NAME; 0880 4.0176 PTYPE, START, MICRO, 0881 4.0177 CHECKSUM, MEM_RANGE : INTEGER 0882 4.0178 END; 0883 4.0179 0884 4.0180 TYPE PROGR = RECORD 0885 4.0181 HEADER : PROGRAM_HEADER; 0886 4.0182 PROG, MEM, USERS, 0887 4.0183 PGPAGE : INTEGER 0888 4.0184 END; 0889 4.0185 0890 4.0186 TYPE TDEVICE = RECORD 0891 4.0187 FSYS : FILSYS_INDEX; 0892 4.0188 DEV : DUAL_DEVICE_DESCRIPTION; 0893 4.0189 VOLUME : VOLUME_NAME; 0894 4.0190 USER : INTEGER; 0895 4.0191 STATE : DEVICE_STATE; 0896 4.0192 UPDATE_RESET : INTEGER; 0897 4.0193 UPDATE_COUNT : INTEGER 0898 4.0194 END; 0899 4.0195 0900 4.0196 TYPE LOAD_Q_ELEM_TYPE = RECORD 0901 4.0197 EVT : INTEGER; "SAVED EVENT ID" 0902 4.0198 USED : BOOLEAN; 0903 4.0199 P : PROCESS_INDEX; 0904 4.0200 F : FILE 0905 4.0201 END; 0906 4.0202 0907 4.0203 TYPE LOAD_Q_TYPE = RECORD 0908 4.0204 MEMORY_RELEASED : BOOLEAN; 0909 4.0205 Q_SIZE : LOAD_Q_INDEX; 0910 4.0206 Q : ARRAY [ LOAD_Q_INDEX ] OF LOAD_Q_ELEM_TYPE 0911 4.0207 END; 0912 4.0208 0913 4.0209 TYPE TERMINALLIST= ARRAY [TERMINAL_INDEX] OF TERMINL; 0914 4.0210 TYPE PROCESSLIST= ARRAY [PROCESS_INDEX] OF PROC; 0915 4.0211 TYPE PROGRAMLIST= ARRAY [PROGRAM_INDEX] OF PROGR; 0916 4.0212 TYPE FILSYSLIST= ARRAY [FILSYS_INDEX] OF FILE_SYSTEM_NAME; 0917 4.0213 TYPE DEVICELIST= ARRAY [DEVICE_INDEX] OF TDEVICE; 0918 4.0214 0919 4.0215 TYPE TERMINALPTR= @TERMINALLIST; 0920 4.0216 TYPE PROCESSPTR= @PROCESSLIST; 0921 4.0217 TYPE PROGRAMPTR= @PROGRAMLIST; 0922 4.0218 TYPE FILSYSPTR= @FILSYSLIST; 0923 4.0219 TYPE DEVICEPTR= @DEVICELIST; 0924 4.0220 TYPE LOAD_QPTR= @LOAD_Q_TYPE; 0925 4.0221 0926 4.0222 TYPE COMMON_DATA = RECORD 0927 4.0223 TOS_VERSION: INTEGER; 0928 4.0224 OS_MODE: OS_MODE_TYPE; 0929 4.0225 LOCAL_PRINTER: BOOLEAN; 0930 4.0226 OC_INIT_REC: TERMINAL_INIT_REC; 0931 4.0227 SYSTEM_DEV: DUAL_DEVICE_DESCRIPTION; 0932 4.0228 SYSTEM_VOL: VOLUME_NAME; 0933 4.0229 SYSTEM_DIR: FILE_NAME; 0934 4.0230 FILESYSTEMS: FILSYS_INDEX; 0935 4.0231 AUTO_OPENS: INTEGER; 0936 4.0232 NEWS: NEWS_TYPE; 0937 4.0233 0938 4.0234 TERMINAL: TERMINALPTR; 0939 4.0235 PROCESS: PROCESSPTR; 0940 4.0236 PRQGRAM: PROGRAMPTR; 0941 4.0237 FILSYS: FILSYSPTR; 0942 4.0238 DEVICE: DEVICEPTR; 0943 4.0239 LOAD_Q: LOAD_QPTR; 0944 4.0240 MAXTERMINAL: TERMINAL_INDEX; 0945 4.0241 MAXPROCESS: PROCESS_INDEX; 0946 4.0242 MAXPROGRAM: PROGRAM_INDEX; 0947 4.0243 MAXFILSYS: FILSYS_INDEX; 0948 4.0244 MAXDEVICE: DEVICE_INDEX; 0949 4.0245 MAX_Q_SIZE: LOAD_Q_INDEX; 0950 4.0246 SYSDIR: FILE; 0951 4.0247 ERRORTEXTS: FILE; 0952 4.0248 WF: FILE; 0953 4.0249 WS: STREAM; 0954 4.0250 STATUS: STATUS_TYPE; 0955 4.0251 DEVICE_CMD: DEVICE_COMMAND; 0956 4.0252 PASSFILE: ARRAY[ PASSES ] OF FILE; 0957 4.0253 PRINTFILE: PRINTFILEREC; 0958 4.0254 USRIDGENERATOR: INTEGER; 0959 4.0255 MEMMGR: PROCESS_NAME; 0960 4.0256 TEMP_FILE_ATTR: FILE_ATTRIBUTES; 0961 4.0257 EVTTYP: EVENT_TYPE; 0962 4.0258 EVENT: INTEGER; 0963 4.0259 MSGBUF: MESSAGE_BUFFER; 0964 4.0260 PROC_RESULT: COMPLETION_CODE; 0965 4.0261 CURTERMINAL: TERMINAL_INDEX; 0966 4.0262 CLOSED: BOOLEAN; 0967 4.0263 OSUSR: USERID 0968 4.0264 END; 0969 4.0265 "MAXTERMINAL, MAXPROCESS, MAXPROGRAM CORRESPOND TO OC" 0970 4.0266 "FILSYS[0] CORRESPONDS TO SYSTEM FILE SYSTEM " 0971 4.0267 0972 4.0268 TYPE GLOBAL_REF =@COMMON_DATA; 0973 4.0269 "PAGE"«ff» 0974 4.0270 0975 0.0011 0976 0.0012 %IMPORT: PACKNAME 0977 0.0013 PROCEDURE PACKNAME( T: TEXT; VAR NM: PACKED_NAME; BYTES: INTEGER); 0978 0.0014 EXTERN; 0979 0.0015 " 0980 0.0016 VAR I: INTEGER; 0981 0.0017 BEGIN 0982 0.0018 FOR I:=0 TO 7 DO NM[I] := 0; 0983 0.0019 PACK( T[1], NM[0], BYTES); 0984 0.0020 END; 0985 0.0021 " 0986 0.0022 0987 0.0023 %IMPORT:PACKIT 0988 0.0024 PROCEDURE PACKIT( T: TEXT; VAR STRING: UNIV ELEMENT; BYTES: INTEGER); 0989 0.0025 EXTERN; 0990 0.0026 " 0991 0.0027 BEGIN 0992 0.0028 PACK( T[1], STRING, BYTES); 0993 0.0029 END; 0994 0.0030 " 0995 0.0031 0996 0.0032 %IMPORT: GET_VERSION 0997 0.0033 PROCEDURE GET_VERSION( VAR PROGRAM_VERSION: INTEGER); 0998 0.0034 EXTERN; 0999 0.0035 1000 0.0036 1001 0.0037 "PAGE" 1002 0.0038 %EXPORT: CONFIG 1003 0.0039 PROCEDURE CONFIG( VAR COMMON: COMMON_DATA); 1004 0.0040 BEGIN 1005 0.0041 WITH COMMON DO 1006 0.0042 BEGIN 1007 0.0043 MAXTERMINAL:= TERMINAL_LIMIT; NEW(TERMINAL); 1008 0.0044 MAXPROCESS := PROCESS_LIMIT; NEW(PROCESS); 1009 0.0045 MAXPROGRAM := PROGRAM_LIMIT; NEW(PRQGRAM); 1010 0.0046 MAXFILSYS := FILSYS_LIMIT; NEW(FILSYS); 1011 0.0047 MAXDEVICE := DEVICE_LIMIT; NEW(DEVICE); 1012 0.0048 MAX_Q_SIZE := TERMINAL_LIMIT; NEW(LOAD_Q); 1013 0.0049 GET_VERSION(TOS_VERSION); 1014 0.0050 %SOURCE @FILSYS-FILE*XAMOS*MD*SYSTEMS.D*XAMOS.D*GEN850501.D*FILE.D*TOS.D*DEFAULTS 1015 5.0001 1016 5.0002 PACKIT( 'TTY000', PROCESS@[MAXPROCESS].NAME.NAME[0], 6); 1017 5.0003 1018 5.0004 WITH OC_INIT_REC DO 1019 5.0005 BEGIN 1020 5.0006 ADDR := 1; 1021 5.0007 LINEWIDTH :=999; 1022 5.0008 MODE := 0; 1023 5.0009 TIMEOUT := 0; 1024 5.0010 SETBIT(MODE,ECHO_MODE); 1025 5.0011 SETBIT(MODE,WAIT_MODE); 1026 5.0012 END; 1027 5.0013 1028 5.0014 OS_MODE := MASTER; " MASTER SINGLE SLAVE DUAL or DUALIZABLE " 1029 5.0015 " MASTER and SINGLE are synonyms " 1030 5.0016 1031 5.0017 WITH SYSTEM_DEV DO 1032 5.0018 BEGIN 1033 5.0019 DEVICE.DEVICE_KIND := 42; 1034 5.0020 DEVICE.DEVICE_ADDR := 50; 1035 5.0021 DEVICE.UNIT := 0; "BIT 3 through 0 : unit number " 1036 5.0022 "BIT 15 through 4 : CTR-RAM address " 1037 5.0023 DEVICE.SUBUNIT := 0; 1038 5.0024 PACKIT( 'SMD0', DEVICE.DEVICE[0], 4); 1039 5.0025 PARTNER.DEVICE_ADDR:= -1; 1040 5.0026 PARTNER.UNIT := 0; "BIT 3 through 0 : unit number " 1041 5.0027 "BIT 15 through 4 : CTR-RAM address " 1042 5.0028 END; 1043 5.0029 1044 5.0030 1045 5.0031 PACKIT( 'FILSYS', FILSYS@[0].PNAME.NAME[0], 6); " SYSTEM FILE SYSTEM " 1046 5.0032 PACKIT( 'FILE', FILSYS@[0].GNAME[0], 4); 1047 5.0033 1048 5.0034 PACKNAME( 'XAMOS' , SYSTEM_VOL, 5); 1049 5.0035 PACKNAME( 'MD', SYSTEM_DIR, 2); 1050 5.0036 1051 5.0037 1052 5.0038 FILESYSTEMS := 0; " NUMBER OF ALTERNATE FILE SYSTEMS " 1053 5.0039 PACKIT( 'FILSYS', FILSYS@[0].PNAME.NAME[0], 6);"SYSTEM FILE SYSTEM " 1054 5.0040 PACKIT( 'FILE', FILSYS@[0].GNAME[0], 4); 1055 5.0041 PACKIT( 'ALTFMS', FILSYS@[1].PNAME.NAME[0], 6);"ALTERNATIVE FILE SYSTEM " 1056 5.0042 PACKIT( 'AFMS', FILSYS@[1].GNAME[0], 4); 1057 5.0043 1058 5.0044 PACKIT( 'PRINTR', PRINTFILE.PRINTERNAME.NAME[0], 6); 1059 5.0045 1060 5.0046 AUTO_OPENS := 2; 1061 5.0047 1062 5.0048 WITH TERMINAL@[MAXTERMINAL] DO BEGIN 1063 5.0049 FILADR.TRANSFERRED_BYTES := LONG(16); 1064 5.0050 PACKIT( 'DO CONFIG_F1001 ', REC, 16); 1065 5.0051 END; 1066 5.0052 1067 0.0051 WITH NEWS DO 1068 0.0052 BEGIN 1069 0.0053 BYTE_COUNT := 16; 1070 0.0054 PACKIT( '(:10:)Welcome to TOS(:10:)', MSG[1], BYTE_COUNT); 1071 0.0055 END; 1072 0.0056 1073 0.0057 LOCAL_PRINTER := TRUE; 1074 0.0058 END; 1075 0.0059 END; 1076 0.0060 1077 0.0061 BEGIN END. Summary Compiler Version: 9 Compiler Release: 1 Program Size: 286 Dataoverlayarea: 0 Large Constants: 93 (XAMOS, FASTCODE, NoCheck, NoNumber, Submodule)