|
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: 1118 (0x45e)
Types: TextFile
Names: »WAITINIT.S«
└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
└─⟦d066df9e9⟧
└─ ⟦this⟧ »WAITINIT.S«
«ff»
"WAITINIT.S "
"----------------"
PROCEDURE INT_WAITINIT(PC, SP : INTEGER;VAR CC : COMPLETION_CODE);
"**********************************************************************
AUTHOR: TLM
DATE: 810421
***********************************************************************
COMMENTS:
**********************************************************************"
VAR I : INTEGER;
MAXTIME : INTEGER;
ANY_FINISHED: BOOLEAN;
ANY_INITS : BOOLEAN;
MSG : MESSAGE_BUFFER;
EVENT : INTEGER;
EVTTYPE : EVENT_TYPE;
BEGIN
VM := CODE[PC + XVARMASK];
GET_PARAMETER(VM, 1, PC, SP, MAXTIME);
ANY_INITS := FALSE;
I := 0;
REPEAT
I := SUCC(I);
IF INIT_OPERATIONS[I].OCCUPIED THEN ANY_INITS := TRUE;
UNTIL (I = MAX_INIT_OPS) OR ANY_INITS;
IF ANY_INITS THEN
REPEAT
MAXTIME := MAXTIME - 1;
CHECK_INIT_OPS(TRUE, ANY_FINISHED);
IF NOT ANY_FINISHED THEN
WAIT_EVENT(1, #100, MSG, EVENT, EVTTYPE);
UNTIL (MAXTIME = 0) OR ANY_FINISHED;
END; " INT_WAITINIT " «a5»