Using #INCLUDE in CASLAN

Group
  gRamAddr/D      U1:PB01_09/O;
Proc P;   -- 
 begin
  gRamAddr := 0; 
 DrShift;
  gRamAddr := 1;
 DrShift;
end;
Proc PParam( Param : ref); --- using ref as parameter type allows the use of Group names
 begin
   Param := 0;
  DrShift; 
   Writeln(gRamAddr);  -- to verify that setting Param modifies the value of gRamAddr
   Param := 1;
  DrShift;
   Writeln(gRamAddr); 
 end;
Group
  grp/D      U1:PB01_09/O
begin
 call P;
 PParam(gRamAddr);
 PParam(Grp);
end.

Instead of having all this code written into a single CASLAN file, one could move the two procedures into one or two separate files and include these into the main program:

Include file "ExampleInclude.cas", stored in the system include folder or in the UUT's include folder:

Proc P;   -- directly manipulating group values
 begin
   gRamAddr := 0;
  DrShift;
   gRamAddr := 1;
  DrShift;
 end;
Proc PParam( Param : ref); --- using ref as parameter type allows the use of Group names
 begin   -- indirectly manipulating group values
   Param := 0;
  DrShift; 
  Writeln(gRamAddr);  -- to verify that setting Param modifies the value of gRamAddr
   Param := 1;
  DrShift;
  Writeln(gRamAddr); 
 end;<br>
	

Main program:

Group
  gRamAddr/D  U1:PB01_09/O;
  grp/D       U1:PB01_09/O;
#INCLUDE 'ExampleInclude.cas'; -- referencing include file
begin
 call P;            -- procedure is defined in the include file
 PParam(gRamAddr);  -- procedure is defined in the include file
 PParam(Grp);       -- procedure is defined in the include file
end.<br>
	

A more useful example is the test of clock signals. The following include file defines a couple of simple test routines for verifying a clock signal with a boundary-scan pin.

Include file "clock_test.cas":

VAR
  vLowAndHigh :   2;
  iLowCnt     : INT;
  iHighCnt    : INT;
PROC pCLK_test_and_DutyCycle(vRepeat: INT; fTest: INT; fDC: INT);
 BEGIN
-- Measurements
  LOOP vRepeat DO
    DRSHIFT;
    SWITCH (gINPUT_CLK/M)
      CASE 0: iLowCnt := iLowCnt +1;
      CASE 1: iHighCnt := iHighCnt +1;
    END;
  END;
 if fTest == 1 then
  -- Evaluation of measurements
  IF iLowCnt == 0 THEN
     WRITELN(' --> "Stuck-at-HIGH" --> FAIL');
     iError := 300;
  END;
  IF iHighCnt == 0 THEN
    WRITELN(' --> "Stuck-at-LOW" --> FAIL');
     iError := 310;
  END;
 end;
 if fDC == 1 then
  -- duty cycle test, +/- 10%
  WRITE ('   Duty cycle LOW : HIGH = ', iLowCnt, ' : ',iHighCnt);
  IF iLowCnt < ((vRepeat / 2) - (vRepeat / 20)) THEN
     WRITE('  --> duty cycle low --> FAIL');
    iError := 320;
  END;
  IF iHighCnt < ((vRepeat / 2) - (vRepeat / 20)) THEN
     WRITE('  --> duty cycle high --> FAIL');
     iError := 330;
  END;
  WRITELN;
 end;
  WRITELN;
 END;
PROC pClockTest(vCnt: int);
 begin
vLowAndHigh := 0;
   -- capturing clock signal (reading vCnt times)
loop vCnt do
  DRSHIFT;
      SWITCH (gINPUT_CLK/M)
         CASE 0: WRITE('0');
                 vLowAndHigh := vLowAndHigh | 10b;
         CASE 1: WRITE('1');
                 vLowAndHigh := vLowAndHigh | 01b;
      END;
   END;
   -- Evaluation of the measurements
   SWITCH (vLowAndHigh)
      CASE 01b: WRITELN(' -> "Stuck at HIGH -> FAIL!');
                iError := 401;
      CASE 10b: WRITELN(' -> "Stuck at LOW -> FAIL!');
                iError := 402;
      CASE 11b: WRITELN(' -> PASS');
   END;
 END;<br>
	

-- -------------------------------------------------------------------------------
--
-- Caslan File (*.CAS)
--
-- Name      : Clock Test.CAS
-- Date      : 6/24/2015
-- Author    : HE
--
-- -------------------------------------------------------------------------------
-- Checking existence of the following clock signals:
--
-- CLK_100_main U1.12
--
-- -------------------------------------------------------------------------------
-- Version     Date        Change
-- 1.0         6/24/2015  Creation
-- 
-- -------------------------------------------------------------------------------
PROGRAM 'Test_Clock';
#TCR (U1: #12, 
      U6: #5,
      R15:#1, #2
     );
GROUP                         
 gINPUT_CLK   U1:#12/I;  -- <----------------------------- specify correct BScan pin
VAR                                 
 iError      : INT;
CONST
 cRepeat     := 1000;  -- <----- adjust number of repeats, if desired (for pCLK_test_and_DutyCycle)
 cNumberOf   := 50;    -- <----- adjust number of reads, if desired (for pClockTest)
#INCLUDE 'clock_test.cas';
PROC pSetup();
 begin
 iError := 0;
   LDI U1, SAMPLE;  -- <---------- specify correct BScan device 
   IRSHIFT;
 end;
BEGIN
  pSetup();
  WRITELN;
  WRITELN('  Verifying presence and duty cycle of clock signal CLK_100_main on U1 pin 12:');   -- <--------- modify string according to the tested clock signal
  WRITELN;
  WRITE  ('   ');
  pClockTest(cNumberOf); 
  pCLK_test_and_DutyCycle(cRepeat, 0, 1); -- number of captures, test for presence (1 = yes), test duty cycle (1 = yes)
  STOP iError;
END.
	

For more information on CASLAN in general and on Include files in particular, please refer to the SYSTEM CASCON Reference Manual.