|
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: 1112 (0x458)
Types: TextFile
Names: »GENERATE_DATA.S«
└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
└─⟦d066df9e9⟧
└─ ⟦this⟧ »GENERATE_DATA.S«
«ff»
"GENERATE_DATA.S"
"---------------"
PROCEDURE GENERATE_DATA(PC, NOOFBYTES, PATTERNNO, BUFFERNO : INTEGER);
"**********************************************************************
AUTHOR: TLM
DATE: 810323
***********************************************************************
COMMENTS:
***********************************************************************
CHANGE RECORD:
VERSION AUTHOR/DATE DESCRIPTION OF CHANGE
------- ----------- ---------------------
**********************************************************************"
VAR I : INTEGER;
BEGIN
IF PATTERNNO = 0 THEN
BEGIN
FOR I := PC + 7 TO PC + 7 + CODE[PC + XPARAMS] - 5 DO
BEGIN
IF (I - PC - 7) <= MAX_BUFFER_SIZE THEN
BUFFERS[BUFFERNO].BUFFER[I - PC - 7] := CODE[I];
END;
END
ELSE
BEGIN
FOR I := 0 TO (NOOFBYTES DIV 2) DO
BEGIN
IF I <= MAX_BUFFER_SIZE THEN
BUFFERS[BUFFERNO].BUFFER[I] :=
PATTERNS[PATTERNNO].PATTERN[(I MOD MAX_PATTERN_SIZE) + 1];
END;
END;
END; " GENERATE_DATA " «a5»