*COMDECK  COMCCFS - CHECK FILE STATUS FOR OWNCODE EXECUTION.            1552  10
 CFS=     CTEXT  COMCCFS - CHECK FILE STATUS FOR OWNCODE EXECUTION.     1552  11
 CFS      SPACE  4,8                                                    1552  12
          IF     -DEF,QUAL$,1                                           1552  13
          QUAL   COMCCFS                                                1552  14
          BASE   D                                                      1552  15
 CFS      SPACE  4,8                                                    1552  16
***       CFS - CHECK FILE STATUS FOR OWNCODE EXECUTION.                1552  17
*                                                                       1552  18
*         R. C. ANDERSON     73/10/05.                                  1552  19
*                                                                       1552  20
*         CONTROL DATA  PROPRIETARY PRODUCT.                            1552  21
*         COPYRIGHT CONTROL DATA CORP. 1973.                            1552  22
 CFS      SPACE  4                                                      1552  23
***              CFS WAITS UNTIL FILE IS NOT BUSY, AND THEN CAUSES      1552  24
*         EXECUTION OF OWNCODE IF APPROPRIATE.                          1552  25
*                                                                       1552  26
*         ENTRY  (X2) = ADDRESS OF FET FOR FILE                         1552  27
*                                                                       1552  28
*         EXIT   (X2) IS UNCHANGED                                      1552  29
*                                                                       1552  30
*         USES   A1  X1                                                 1552  31
*                                                                       1552  32
*         CALLS  ERP= AND MACRO RECALL                                  1552  33
                                                                        1552  34
                                                                        1552  35
 CFS=     SUBR   0           ENTRY/EXIT                                 1552  36
          RECALL X2                                                     1552  37
          RJ     ERP=                                                   1552  38
          JP     EXIT.                                                  1552  39
 ERP      SPACE  4,29                                                   1552  40
**        ERP - ERROR PROCESSOR.                                        1552  41
*                                                                       1552  42
*         ENTRY  (X2) (BITS 17-0) = ADDRESS OF FET FOR FILE             1552  43
*                (X7) = CIO FUNCTION CODE, IF CALLED BY COMCCIO         1552  44
*                                                                       1552  45
*         EXIT   IF OWNCODE IS NOT TO BE EXECUTED                       1552  46
*                   (X2)  UNCHANGED                                     1552  47
*                   (X7)  RESTORED                                      1552  48
*                                                                       1552  49
*                ELSE,                                                  1552  50
*                   1) ERROR CODE/STATUS                                1552  51
*                       A) CLEAR ERROR BITS                             1552  52
*                       B) STORE RETURN ADDRESS WITH FET ADDRESS        1552  53
*                          (BITS 17-0) IN OWNCODE                       1552  54
*                       C) EXIT TO OWNCODE+1                            1552  55
*                OR,                                                    1552  56
*                   2) EOI CODE/STATUS                                  1552  57
*                       A) CLEAR EOI BITS                               1552  58
*                       B) STORE RETURN ADDRESS WITH FET ADDRESS        1552  59
*                          (BITS 17-0) IN OWNCODE                       1552  60
*                       C) EXIT TO OWNCODE+1                            1552  61
*                WHERE,                                                 1552  62
*                   (X1) = FIRST WORD OF FET WITH BITS 13-9 INTACT      1552  63
*                   (X2) = ADDRESS OF FET                               1552  64
*                   (X7) = CIO FUNCTION CODE, IF CALLED BY COMCCIO      1552  65
*                                                                       1552  66
*         USES   A1,A6,A7  X1,X6,X7                                     1552  67
*                                                                       1552  68
*         CALLS  NONE                                                   1552  69
                                                                        1552  70
                                                                        1552  71
 ERPX     SA1    ERPA                                                   1552  72
          BX7    X1          RESTORE X7                                 1552  73
                                                                        1552  74
 ERP=     SUBR   -           ENTRY/EXIT                                 1552  75
          SA1    ERP=        PICK UP RETURN ADDRESS                     1552  76
          SA7    ERPA        SAVE X7 FOR LATER                          1552  77
          SX6    37000B                                                 1552  78
          SX7    X2          ISOLATE FET ADDRESS                        1552  79
          BX7    X1+X7       SAVE PSEUDO RETURN WITH FET ADDRESS IN 17-01552  80
          SA1    X2          FET(0)                                     1552  81
          BX6    X6*X1       BITS 13-9 OF CODE STATUS                   1552  82
          ZR     X6,ERPX     IF NO EOI OR ERRORS                        1552  83
          SA1    X2+1                                                   1552  84
          LX1    36                                                     1552  85
          AX1    54                                                     1552  86
          SX1    X1-4        FET LENGTH - 9                             1552  87
          SX6    X6-4000B                                               1552  88
          NG     X1,ERPX     IF NO EOI/ERROR ADDRESSES ARE POSSIBLE     1552  89
          SA1    X2+8        EOI/ERROR ADDRESS WORD                     1552  90
          PL     X6,ERP1     IF ERROR CODE/STATUS                       1552  91
          LX1    30          ELSE, EOI CODE/STATUS                      1552  92
          SX6    3000B                                                  1552  93
          SX1    X1          ISOLATE DESIRED ADDRESS                    1552  94
          EQ     ERP2                                                   1552  95
                                                                        1552  96
 ERP1     SX1    X1          ISOLATE DESIRED ADDRESS                    1552  97
          SX6    37000B                                                 1552  98
 ERP2     ZR     X1,ERPX     IF ADDRESS IS MISSING                      1552  99
          SA7    X1          RETURN ADDRESS INTO OWNCODE EXIT           1552 100
          SX7    1                                                      1552 101
          IX1    X1+X7       OWN + 1                                    1552 102
          LX7    25          FORM 02 JUMP (INSTEAD OF 04, FOR TRACING)  1552 103
          IX7    X1+X7       JP OWN+1                                   1552 104
          SA1    ERPA                                                   1552 105
          LX7    30                                                     1552 106
          SA7    EXIT.                                                  1552 107
          BX7    X1          X7 = CIO FUNCTION CODE IF CALLED BY CIO=   1552 108
          SA1    X2          FET(0)                                     1552 109
          BX6    -X6*X1      CLEAR ERROR/EOI  CODE/STATUS               1552 110
          SA6    X2                                                     1552 111
          JP     EXIT.       EXIT, THENCE TO OWN + 1                    1552 112
                                                                        1552 113
                                                                        1552 114
 ERPA     CON    0           (X7) SAVED HERE                            1552 115
          SPACE  4                                                      1552 116
          BASE   *                                                      1552 117
 QUAL$    IF     -DEF,QUAL$                                             1552 118
          QUAL   *                                                      1552 119
 CFS=     EQU    /COMCCFS/CFS=                                          1552 120
 ERP=     EQU    /COMCCFS/ERP=                                          1552 121
 QUAL$    ENDIF                                                         1552 122
 CFS=     ENDX                                                          1552 123
