|
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: 2890 (0xb4a)
Types: TextFile
Names: »FIXINIT.P«
└─⟦ffe699cee⟧ Bits:30005101 8" CR80 Floppy CR80FD_0060 ( VOL: SCC.V NSC Directories: EVR.D OCP.D SCCINIT.D )
└─⟦9c1658a4c⟧
└─ ⟦this⟧ »SCCINIT.D!FIXINIT.P«
======== FIXINIT.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00001 MAINMODULE FIX_INIT;
00.00002
00.00003
00.00004
00.00005 %SOURCE
======== GENERALPARAMS.S«nul»
======== FIXINIT.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00005
00.00006 %SOURCE
======== MONITORNAMES.S«nul»«nul»
======== FIXINIT.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00006
00.00007 %SOURCE
======== IOSPARAMS.S«nul»«nul»«nul»«nul»«nul»
======== FIXINIT.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00007
00.00008 %SOURCE
======== KERNELPARAMS.S«nul»«nul»
======== FIXINIT.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00008
00.00009 %SOURCE
======== FIX_INIT_PREFIXS
======== FIXINIT.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00009
00.00010
00.00011 IMPORT PROCEDURE MTCB_DATAINIT(R6);
00.00012
00.00013
00.00014 EXPORT VAR "
00.00015 TCB_NAME : REGION_NAME;
00.00016 CRT_NAME : REGION_NAME;
00.00017 PTT_NAME : REGION_NAME;
00.00018 FNT_NAME : REGION_NAME;
00.00019
00.00020 SAVE00 : REGISTERS;
00.00021
00.00022 INIT "
00.00023 TCB_NAME.NAME = 'XTCBCR';
00.00024 CRT_NAME.NAME = 'CRT001';
00.00025 PTT_NAME.NAME = 'PTT001';
00.00026 FNT_NAME.NAME = 'FNT001';
00.00027
00.00028
00.00029 IMPORT PROCEDURE PSM_INIT_REST "
00.00030 (R6); "LINK
00.00031
00.00032 IMPORT PROCEDURE MES_REGION_INIT(R6);
00.00033
00.00034
00.00035 "MAIN PROGRAM:
00.00036
00.00037 BEGIN
00.00038
00.00039 SVS(R0);
00.00040 PUT(#E00C,#E004=>R1,(13=>R2)@INTEGER);
00.00041 8@INTEGER=>R3;-R3;
00.00042 LDS(R2@INTEGER);
00.00043 P_MTCBDATA=>R1=>R3@INTEGER=>R4;
00.00044 R4+R3;
00.00045 P_QACCESSDATA=>R1=>(R3+1)@INTEGER=>R5;
00.00046 R5+R3-1;
00.00047 PAGE=>R1=>R4@MTCB1.PAGE;
00.00048 OFFS=>R1=>R4@MTCB1.OFFS;
00.00049 SMTCB=>R1=>R4@MTCB1.SMTCB;
00.00050 MPCB=>R1=>R4@MTCB1.MPCB;
00.00051 MPROC=>R1=>R4@MTCB1.MPROC;
00.00052 NMTCB=>R1=>R4@MTCB1.NMTCB;
00.00053 NIMF=>R1=>R4@MTCB1.NIMF;
00.00054 NPDB=>R1=>R4@MTCB1.NPDB;
00.00055 QPAGE=>R1=>R5@QACCESS1.QPAGE;
00.00056 OFFSET=>R1=>R5@QACCESS1.OFFSET;
00.00057 QSIZE=>R1=>R5@QACCESS1.QSIZE;
00.00058 NO_TERMINALS=>R1=>R5@QACCESS1.NO_TERMINALS;
00.00059 NO_QUEUES=>R1=>R5@QACCESS1.NO_QUEUES;
00.00060 NO_QUEUE_PROCEDURES=>R1=>R5@QACCESS1.NO_QUEUE_PROCEDURES;
00.00061 NO_QUEUE_ELEMENTS=>R1=>R5@QACCESS1.NO_QUEUE_ELEMENTS;
00.00062 LDS(R0);
00.00063
00.00064 MTCB_DATAINIT(R6);
00.00065
00.00066 SWITCH MON(QACCESS,DATA_INIT,R4,R7):ER_OK TO
00.00067 ER: MON(TERMINATE,R7=>R0,101=>R1,R7);
00.00068 END;
00.00069
00.00070 PSM_INIT_REST(R6);
00.00071
00.00072 MES_REGION_INIT(R6);
00.00073
00.00074 MON(TERMINATE,0=>R0,0=>R1,R7);
00.00075
00.00076 END;
00.00077
00.00078 ENDMODULE
LINES: 995
CODESIZE VARSIZE CONSTSIZE TEMPSIZE
-------- ------- --------- --------
#0049 #0018 #0000 #0000