Retro1.org codex

          IDENT  BIO1,RIO
          ABS
          ENTRY  BIO1
          ENTRY  MFL=
          SST
          SYSCOM B1
*COMMENT  BATCHIO - BATCHIO RECOVERY PROCESSOR.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
          SPACE  4,10
***       BIO1 - BATCHIO RECOVERY PROCESSOR.
*         P. D. HAAS.        80/01/07.
          SPACE  4,10
***              BIO1 INITIATES RECOVERY OPERATIONS FOR BATCHIO
*         FOLLOWING A LEVEL 3 DEADSTART.
          SPACE  4,10
***       DAYFILE MESSAGES.
*
*         * INCORRECT COMMAND.* - *BIO1* WAS CALLED FROM
*         NON SYSTEM ORIGIN JOB.
          SPACE  4,10
*CALL     COMCMAC
*CALL     COMSBIO
          TTL    BATCHIO RECOVERY PROCESSOR.
          TITLE
 RIO      SPACE  4,10
          ORG    BUFR+QFFL
 
 RIO      SB1    1
 BIO1     EQU    RIO
          SA3    JOPR        GET JOB ORIGIN
          MX6    -12
          LX3    -24
          BX3    -X6*X3
          IFNE   SYOT,0,1
          SX3    X3-SYOT
          NZ     X3,RIO2     IF NOT SYSTEM ORIGIN
          GETJCR RIOA        READ JOB CONTROL REGISTER
          SX1    RIOB
          SA4    RIOA        CHECK ERROR FLAG
          AX4    36
          NZ     X4,RIO1     IF NOT DEADSTART RECOVERY
          SYSTEM SPC,,X1     CALL *1IO*
 RIO1     ENDRUN
 
 RIO2     MESSAGE RIOC,0,R   * INCORRECT COMMAND.*
          ABORT
 
 RIOA     CON    0
 RIOB     VFD    18/0L1IO,42/DRET
 RIOC     DATA   C* INCORRECT COMMAND.*
          SPACE  4,10
**        COMMON DECKS.
 
 
*CALL     COMCCPM
*CALL     COMCSYS
          SPACE  4,10
          USE    BUFFERS
 MFL=     BSS    0
          ERRPL  MFL=-RIO-BBFL*100  CODE OVERFLOWS MINIMUM BUFFER SIZE
          SPACE  4,10
          END