|
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: 1850 (0x73a)
Types: TextFile
Names: »FIXINIT.S«
└─⟦ffe699cee⟧ Bits:30005101 8" CR80 Floppy CR80FD_0060 ( VOL: SCC.V NSC Directories: EVR.D OCP.D SCCINIT.D )
└─⟦9c1658a4c⟧
└─ ⟦this⟧ »SCCINIT.D!FIXINIT.S«
MAINMODULE FIX_INIT;
%SOURCE @**GENS.D*SWELLPREFIX.D*GENERALPARAMS.S
%SOURCE @**GENS.D*SWELLPREFIX.D*MONITORNAMES.S
%SOURCE @**GENS.D*SWELLPREFIX.D*IOSPARAMS.S
%SOURCE @**GENS.D*SWELLPREFIX.D*KERNELPARAMS.S
%SOURCE FIX_INIT_PREFIX.S
IMPORT PROCEDURE MTCB_DATAINIT(R6);
EXPORT VAR "
TCB_NAME : REGION_NAME;
CRT_NAME : REGION_NAME;
PTT_NAME : REGION_NAME;
FNT_NAME : REGION_NAME;
SAVE00 : REGISTERS;
INIT "
TCB_NAME.NAME = 'XTCBCR';
CRT_NAME.NAME = 'CRT001';
PTT_NAME.NAME = 'PTT001';
FNT_NAME.NAME = 'FNT001';
IMPORT PROCEDURE PSM_INIT_REST "
(R6); "LINK
IMPORT PROCEDURE MES_REGION_INIT(R6);
"MAIN PROGRAM:
BEGIN
SVS(R0);
PUT(#E00C,#E004=>R1,(13=>R2)@INTEGER);
8@INTEGER=>R3;-R3;
LDS(R2@INTEGER);
P_MTCBDATA=>R1=>R3@INTEGER=>R4;
R4+R3;
P_QACCESSDATA=>R1=>(R3+1)@INTEGER=>R5;
R5+R3-1;
PAGE=>R1=>R4@MTCB1.PAGE;
OFFS=>R1=>R4@MTCB1.OFFS;
SMTCB=>R1=>R4@MTCB1.SMTCB;
MPCB=>R1=>R4@MTCB1.MPCB;
MPROC=>R1=>R4@MTCB1.MPROC;
NMTCB=>R1=>R4@MTCB1.NMTCB;
NIMF=>R1=>R4@MTCB1.NIMF;
NPDB=>R1=>R4@MTCB1.NPDB;
QPAGE=>R1=>R5@QACCESS1.QPAGE;
OFFSET=>R1=>R5@QACCESS1.OFFSET;
QSIZE=>R1=>R5@QACCESS1.QSIZE;
NO_TERMINALS=>R1=>R5@QACCESS1.NO_TERMINALS;
NO_QUEUES=>R1=>R5@QACCESS1.NO_QUEUES;
NO_QUEUE_PROCEDURES=>R1=>R5@QACCESS1.NO_QUEUE_PROCEDURES;
NO_QUEUE_ELEMENTS=>R1=>R5@QACCESS1.NO_QUEUE_ELEMENTS;
LDS(R0);
MTCB_DATAINIT(R6);
SWITCH MON(QACCESS,DATA_INIT,R4,R7):ER_OK TO
ER: MON(TERMINATE,R7=>R0,101=>R1,R7);
END;
PSM_INIT_REST(R6);
MES_REGION_INIT(R6);
MON(TERMINATE,0=>R0,0=>R1,R7);
END;
ENDMODULE