|
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: 616 (0x268)
Types: TextFile
Names: »CONSOLE_IN.S«
└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
└─⟦d066df9e9⟧
└─ ⟦this⟧ »CONSOLE_IN.S«
«ff»
"CONSOLE_IN.S"
"----------------"
PROCEDURE INT_CONSOLE_IN(PC, SP : INTEGER;VAR CC : COMPLETION_CODE);
"**********************************************************************
AUTHOR: YY
DATE: YY
***********************************************************************
COMMENTS:
**********************************************************************"
BEGIN
DISCONNECT_INSTREAM(F);
CONNECT_INSTREAM(PARAM.IFILE);
INFILE := PARAM.IFILE;
INFILEPOS := 0L;
GIVEN[IFILE] := FALSE;
WRITETEXT('TDX TEST CONTINUING FROM CONSOLE(:7:)(:0:)');
WRITENL;
END; " INT_CONSOLE_IN " «a5»