DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦b4228a5dc⟧ TextFile

    Length: 23134 (0x5a5e)
    Types: TextFile
    Names: »CONFIG.P«

Derivation

└─⟦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« 

TextFile


***
*** CR80 PASCAL COMPILER (VERSION: 840615)
*** COMPILATION STARTED 840817 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»