PROG Z_MAIN

 (INTRO)

 

LANGUAGE
Karel
CREATED
2016-02-08
MODIFIED
2019-11-21

 

CODE

/PROG  Z_MAIN
/ATTR
OWNER  = MNEDITOR;
COMMENT  = "";
PROG_SIZE = 1932;
CREATE  = DATE 16-02-08  TIME 12:48:42;
MODIFIED = DATE 19-11-21  TIME 11:36:30;
FILE_NAME = ;
VERSION  = 0;
LINE_COUNT = 71;
MEMORY_SIZE = 2424;
PROTECT  = READ_WRITE;
TCD:  STACK_SIZE = 0,
      TASK_PRIORITY = 50,
      TIME_SLICE = 0,
      BUSY_LAMP_OFF = 0,
      ABORT_REQUEST = 0,
      PAUSE_REQUEST = 0;
DEFAULT_GROUP = 1,*,*,*,*;
CONTROL_CODE = 00000000 00000000;
/MN
   1:  --eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ;
   2:  --eg: ;
   3:  --eg:Redistribution and use in source and binary forms, with or without ;
   4:  --eg:modification, are permitted provided that the following conditions
    :  are ;
   5:  --eg:met: ;
   6:  --eg: ;
   7:  --eg:Redistributions of source code must retain the above copyright ;
   8:  --eg:notice, this list of conditions and the following disclaimer. ;
   9:  --eg:Redistributions in binary form must reproduce the above ;
  10:  --eg:copyright notice, this list of conditions and the following
    :  disclaimer ;
  11:  --eg:in the documentation and/or other materials provided with the ;
  12:  --eg:distribution. ;
  13:  --eg:Neither the name of DIY-Robotics.com nor the names of its ;
  14:  --eg:contributors may be used to endorse or promote products derived from ;
  15:  --eg:this software without specific prior written permission. ;
  16:  --eg: ;
  17:  !HMI ;
  18:  CALL SHOWPG(1) ;
  19:   ;
  20:  !Air Pressure Check ;
  21:  IF (!DI[7:AirPressureOK]),JMP LBL[501] ;
  22:   ;
  23:  !I/O Simulated Check ;
  24:  IF (DO[512:SimlulatedIO] AND !UO[8:TP enabled]),JMP LBL[502] ;
  25:   ;
  26:  !At Perch Check ;
  27:  IF (!UO[7:At perch]),JMP LBL[503] ;
  28:   ;
  29:  !Space Check 1 Enable Check ;
  30:  IF (!F[3:SpaceChk1Enb]),JMP LBL[504] ;
  31:   ;
  32:  !Programs Renaming ;
  33:  CALL RENAME_PROG0    ;
  34:  IF (R[21:ProdSelection]=0),JMP LBL[505] ;
  35:   ;
  36:  !General Override ;
  37:  OVERRIDE=R[1:GlobalOverride] ;
  38:   ;
  39:  !Main Program ;
  40:  CALL SR[2]    ;
  41:  JMP LBL[9000] ;
  42:   ;
  43:  LBL[501:AirPressureAlarm] ;
  44:  F[31:UAlarm1]=(ON) ;
  45:  F[30:CellAlarm]=(ON) ;
  46:  END ;
  47:   ;
  48:  LBL[502:SimulatedIOAlarm] ;
  49:  F[32:UAlarm2]=(ON) ;
  50:  F[30:CellAlarm]=(ON) ;
  51:  END ;
  52:   ;
  53:  LBL[503:AtPerchAlarm] ;
  54:  F[33:UAlarm3]=(ON) ;
  55:  F[30:CellAlarm]=(ON) ;
  56:  END ;
  57:   ;
  58:  LBL[504:SpaceCheck1Alarm] ;
  59:  F[34:UAlarm4]=(ON) ;
  60:  F[30:CellAlarm]=(ON) ;
  61:  END ;
  62:   ;
  63:  LBL[505:ProdSelectAlarm] ;
  64:  F[35:UAlarm5]=(ON) ;
  65:  F[30:CellAlarm]=(ON) ;
  66:  END ;
  67:   ;
  68:  !Stop Prod ;
  69:  LBL[9000] ;
  70:  F[14:StopProdReq]=(OFF) ;
  71:  END ;
/POS
/END

 

mceclip0.png

Was this article helpful?
0 out of 0 found this helpful

Comments

0 comments

Please sign in to leave a comment.