|
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 - metrics - download
Length: 980 (0x3d4)
Types: TextFile
Names: »CREATE.S«
└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
└─⟦d066df9e9⟧
└─⟦this⟧ »CREATE.S«
«ff»
"CREATE.S"
"----------------"
PROCEDURE INT_CREATE(PC, SP : INTEGER;VAR CC : COMPLETION_CODE);
"**********************************************************************
AUTHOR: TLM
DATE: 810323
***********************************************************************
COMMENTS:
**********************************************************************"
VAR ATTRIBUTES : FILE_ATTRIBUTES;
BEGIN
VM := CODE[PC + XVARMASK];
FOR I := 1 TO 4 DO
BEGIN
GET_PARAMETER(VM, I, PC, SP, ATTRIBUTES.VOLUME[I - 1]);
END;
CREATE(CURRENT_DRIVER, ATTRIBUTES, F, CC);
IF CC = IO_OK THEN
BEGIN
I := 1;
WHILE I <= MAX_CHANNEL DO
BEGIN
IF NOT CHANNELS[I].OPEN THEN
BEGIN
CHANNELS[I].OPEN := TRUE;
CHANNELS[I].CRID := ATTRIBUTES.VOLUME[1];
CHANNELS[I].F := F;
I := MAX_CHANNEL + 1;
END
ELSE I := SUCC(I);
END;
END;
END; " INT_CREATE " «a5»