Retro1.org codex

User Tools

Site Tools

Trace: • CHKON
cdc:nos2.source:opl871:chkon

Table of Contents

CHKON

Table Of Contents

  • [00007] CHKOFF/CHKON - CLEAR/SET TOTAL INTERLOCK FLAG.
  • [00011] CLEAR/SET TOTAL INTERLOCK FLAG.
  • [00036] SET TOTAL INTERLOCK FLAG.

Source Code

CHKON.txt 
  1.           IDENT  CHKON 
  2.  
  3.           SYSCOM B1
  4.           ENTRY  CHKOFF
  5.           ENTRY  CHKON
  6.  
  7.           TITLE  CHKOFF/CHKON - CLEAR/SET TOTAL INTERLOCK FLAG.
  8. *COMMENT  CHKOFF/CHKON - CLEAR/SET TOTAL INTERLOCK.
  9.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  10.           SPACE  4
  11. ***       CHKOFF/CHKON - CLEAR/SET TOTAL INTERLOCK FLAG.
  12. *         W.J. MARKO.  75/01/08.
  13.           SPACE  4
  14. *CALL     COMCMAC
  15. *CALL     COMKMAC
  16. *CALL     COMSPRD
  17.           SPACE  4
  18. ***       CHKOFF - CLEAR TOTAL INTERLOCK FLAG.
  19. *
  20. *         CALLING FORMAT -
  21. *
  22. *         COBOL
  23. *                ENTER CHKOFF
  24. *
  25. *         COMPASS
  26. *                CHKOFF
  27. *
  28. *         FORTRAN EXTENDED
  29. *                CALL CHKOFF
  30.  
  31.  
  32.  CHKOFF   SUBR               ENTRY/EXIT
  33.           CHKOFF
  34.           JP     CHKOFFX     RETURN
  35.  CHKON    TITLE  CHKON - SET TOTAL INTERLOCK FLAG.
  36. ***       CHKON - SET TOTAL INTERLOCK FLAG.
  37. *
  38. *         CALLING FORMAT -
  39. *
  40. *         COBOL
  41. *                ENTER CHKON
  42. *
  43. *         COMPASS
  44. *                CHKON
  45. *
  46. *         FORTRAN EXTENDED
  47. *                CALL CHKON
  48.  
  49.  
  50.  CHKON    SUBR               ENTRY/EXIT
  51.           CHKON
  52.           JP     CHKONX      RETURN
  53.  
  54.           END
cdc/nos2.source/opl871/chkon.txt · Last modified: 2023/08/05 17:24 by Site Administrator