IDENT    INI,0
          PERIPH
TAPECHN   EQU      12B
ENDOPB    EQU      9
DSPCHN    EQU      10B
*
          ORG      0
          VFD      12/GO-1
          ORG       20B
X1        BSSZ      1
CM0       DATA      0
CM1       DATA      0
CM2       DATA      0
CM3       DATA      0
CM4       DATA      0
*
          ORG      2000B
GO        DATA     2500B         TURN OFF TRACE
          IJM      *+3,10
          DCN      10
          IJM      *+3,11
          DCN      11
          LJM      AGAIN
*
*
AGAIN     RJM      CHECK
          AOM      P1
          AOM      P2
          AOM      P3
          AOM      P5
          AOM      P7
          SOM      P9
*
          FNC      1401B,TAPECHN
          ACN      TAPECHN
          LDC      5000B
          IAM      BUF,TAPECHN     READ IN A PHYSICAL RECORD
          NJN      SHORT1          WAS A SHORT RECORD
          LDC      5000B-80
P1        OAM      BUF+80,0        SEND TO PROPER PPU  SKIP 1ST CARD
*
LOOP1     RJM      CHECK
          FNC      1401B,TAPECHN
          ACN      TAPECHN
          LDC      5000B
          IAM      BUF,TAPECHN     READ ANOTHER PHYSICAL RECORD
          NJN      SHORT2          WAS A SHORT RECORD
          LDC      5000B
P2        OAM      BUF,0           SEND TO PROPER PPU
          UJN      LOOP1
*
SHORT1    LMC      777777B
          ADC      5000B-80
          PJN      *+3
          LJM      FINISHPP
P3        OAM      BUF+80,0
          LJM      AGAIN
*
SHORT2    LMC      777777B
          ADC      5000B
P5        OAM      BUF,0
          LJM      AGAIN
*
FINISHPP  EQU       *
*
LOOP2     LDN      4
P7        OAM      DEADLOOP,0
          AOM      P7
          SOM      P9
          NJN      LOOP2
          LJM      PPSDONE
*
P9        DATA     10
*
DEADLOOP  DATA     0,2400B,0,0300B
*
PPSDONE   FNC       1401B,TAPECHN
          ACN       TAPECHN
          LDC       5000B
          IAM       BUF,TAPECHN
          NJN       SHORT3
          LDC       1000B
          STD       X1
          LDM       CMPOS
          SHN       12
          ADM       CMPOS+1
          CWM       BUF,X1
          STM       CMPOS+1
          SHN       -12
          LPN       77B
          STM       CMPOS
          RJM       CHECK
          UJN       PPSDONE
*
SHORT3    LDC       1000B
          STD       X1
          LDM       CMPOS
          SHN       12
          ADM       CMPOS+1
          CWM       BUF,X1
          STM       CMPOS+1
          SHN       -12
          LPN       77B
          STM       CMPOS
          RJM       CHECK
          LJM       CMDONE
*
*
CMPOS     DATA      0,0
*
*
CMDONE    LDN      2
          CRD      CM0           GET POINTER TO CM FL  ETC
          LDN      5
          STD      X1
          LDD      CM3
          SHN      12
          ADD      CM4
          CRM      BUF,X1        GET CM FL  ETC
          LDN      4
          STD      X1
          CWM      BUF+3,X1      WRITE CMFL ETC INTO INITIAL XJ PACK
*                                          SHIFTED BY 36
          LDN      2
          MXN
          DATA     2500B         TURN OFF TRACE
CMDONE1   LDN       1
          CRD       CM0
          LDD       CM4
          ZJN       CMDONE1        WAIT FOR COMPLETION OF INITIALIZATION
          DATA     2400B         TURN ON TRACE
*
*
*
*
          DCN      1               RELEASE ALL PPUS
          DCN      2
          DCN      3
          DCN      4
          DCN      5
          DCN      6
          DCN      7
          DCN      8
          DCN      9
          DATA      2500B          TURN OFF TRACE
          DATA     0,0300B
*
*
*
          LJM      0
CHECK     EQU      *-1
          FNC      1300B,TAPECHN
          ACN      TAPECHN
          IAN      TAPECHN         GET TAPE STATUS DATA
          DCN      TAPECHN
          SHN      17-ENDOPB
          MJN      *+3
          LJM      CHECK+1       NOT END OF OP
          SHN      18-17+ENDOPB+17-8
          PJN      *+3
          LJM      LOSTDATA      LOST DATA
          SHN      18-17+8+17-10
          PJN      *+3
          LJM      PARITY        PARITY ERROR
          LJM      CHECK-1
*
PARITY    LDC      PMSG
          UJN      DSP
*
LOSTDATA  LDC      LMSG
          UJN      DSP
*
DSP       STM      DSP2+1
          IJM       DSP3,DSPCHN
          LDN       4
          OAM       DEADLOOP,DSPCHN
          DCN       DSPCHN
DSP3      EQU       *
DSP1      FNC      7000B,DSPCHN
          ACN      DSPCHN
          LDN      15
DSP2      OAM      0,DSPCHN
          DCN      DSPCHN
          UJN      DSP1
*
*
*
PMSG      DATA     7400B,6100B
          DATA     H*PARITY ERROR*
          DATA     0,0,0,0,0,0,0,0,0
*
*
LMSG      DATA     7400B,6100B
          DATA     H*LOST DATA*
          DATA     0,0,0,0,0,0,0,0,0,0
*
*
BUF       BSS      0             5000B WORD BUFFER
*
          END