|
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: 976 (0x3d0)
Types: TextFile
Names: »CHECK_TRANSFER.S«
└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
└─⟦d066df9e9⟧
└─ ⟦this⟧ »CHECK_TRANSFER.S«
«ff»
"CHECK_TRANSFER.S"
"----------------"
PROCEDURE CHECK_TRANSFER(FILE_ADR : FILE_ADDRESS; CC : COMPLETION_CODE);
"**********************************************************************
AUTHOR: TLM
DATE: 810323
***********************************************************************
COMMENTS:
***********************************************************************
CHANGE RECORD:
VERSION AUTHOR/DATE DESCRIPTION OF CHANGE
------- ----------- ---------------------
**********************************************************************"
BEGIN
IF FILE_ADR.BYTE_COUNT <> FILE_ADR.TRANSFERRED_BYTES THEN
BEGIN
WRITETEXT('*** REQUESTED *** (:0:)');
WRITEINT (SHORT(FILE_ADR.BYTE_COUNT));
WRITETEXT(' BYTES.(:0:)');
WRITENL;
WRITETEXT('*** TRANSFERRED *** (:0:)');
WRITEINT (SHORT(FILE_ADR.TRANSFERRED_BYTES));
WRITETEXT(' BYTES.(:0:)');
WRITENL;
END;
END; " CHECK_TRANSFER " «a5»