|
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: 952 (0x3b8)
Types: TextFile
Names: »PATTERNDEFINE.S«
└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
└─⟦d066df9e9⟧
└─ ⟦this⟧ »PATTERNDEFINE.S«
«ff»
"PATTERNDEFINE.S"
"----------------"
PROCEDURE INT_PATTERNDEFINE(PC, SP : INTEGER;VAR CC : COMPLETION_CODE);
"**********************************************************************
AUTHOR: YY
DATE: YY
***********************************************************************
COMMENTS:
**********************************************************************"
VAR PATTERNNO : INTEGER;
I : INTEGER;
BEGIN
VM := CODE[PC + XVARMASK];
GET_PARAMETER(VM, 1, PC, SP, PATTERNNO);
IF (PATTERNNO >= 1) AND (PATTERNNO <= MAX_PATTERNS) THEN
BEGIN
FOR I := 1 TO MAX_PATTERN_SIZE DO
PATTERNS[PATTERNNO].PATTERN[I] := 0;
FOR I := PC + 4 TO PC + 4 + CODE[PC + XPARAMS] - 2 DO
BEGIN
PATTERNS[PATTERNNO].PATTERN[I - PC - 4 + 1] :=
CODE[I];
END;
PATTERNS[PATTERNNO].BYTE_LENGTH := (CODE[PC + XPARAMS] - 2) * 2;
END;
END; " INT_PATTERNDEFINE " «a5»