|
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: 1122 (0x462)
Types: TextFile
Names: »PROCCALL.S«
└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
└─⟦d066df9e9⟧
└─ ⟦this⟧ »PROCCALL.S«
«ff»
"PROCCALL.S"
"----------------"
PROCEDURE INT_PROCCALL(PC, SP : INTEGER;VAR CC : COMPLETION_CODE);
"**********************************************************************
AUTHOR: TLM
DATE: 810323
***********************************************************************
COMMENTS:
**********************************************************************"
VAR I : INTEGER;
NEWPC : INTEGER;
NEWSP : INTEGER;
BEGIN
VM := CODE[PC + XVARMASK];
NEWSP := SP + STACK[SP] + 1;
NEWPC := CODE[PC + XPARAMS + 1]; "PROCEDURE ADDRESS"
STACK[NEWSP] := CODE[PC + XPARAMS] - 1; "NO OF PARAMETERS "
"--- STACK ACTUAL PARAMETERS ---"
FOR I := 2 TO CODE[PC + XPARAMS] DO
BEGIN
GET_PARAMETER(VM, I, PC, SP, STACK[NEWSP + I - 1]);
END;
WHILE (CODE[NEWPC] <> PROCRETURN_CMD) DO
BEGIN
INTERPRET(NEWPC, NEWSP);
IF CODE[NEWPC] = REPEAT_CMD THEN
REPEAT
NEWPC := NEWPC + CODE[NEWPC + XPARAMS] + 3;
UNTIL CODE[NEWPC] = ENDREPEAT_CMD;
NEWPC := NEWPC + CODE[NEWPC + XPARAMS] + 3;
END;
END; " INT_PROCCALL "