|
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: 1146 (0x47a)
Types: TextFile
Names: »LIST.S«
└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
└─⟦d066df9e9⟧
└─ ⟦this⟧ »LIST.S«
«ff»
"LIST.S "
"----------------"
PROCEDURE INT_LIST(PC, SP : INTEGER;VAR CC : COMPLETION_CODE);
"**********************************************************************
AUTHOR: TLM
DATE: 810421
***********************************************************************
COMMENTS:
**********************************************************************"
VAR I : INTEGER;
BEGIN
WRITETEXT('CRID INIT_KIND OPREF BYTES BUFFER(:0:)');
WRITENL;
WRITETEXT('--------------------------------------(:0:)');
WRITENL;
FOR I := 1 TO MAX_INIT_OPS DO
BEGIN
WITH INIT_OPERATIONS[I] DO
BEGIN
IF OCCUPIED THEN
BEGIN
WRITEHEX(CRID);
WRITECHARS(' ', 3);
CASE KIND OF
INIT_READ_KD : WRITETEXT('READ (:0:)');
INIT_APPEND_KD : WRITETEXT('APPEND (:0:)')
END;
WRITEHEX(OPREF);
WRITECHARS(' ', 1);
WRITEHEX(BYTELENGTH);
WRITECHARS(' ', 1);
WRITEINT(BUFFER_NO);
WRITENL;
END;
END;
END;
END; " INT_LIST "