*DECK GSIZE 
          IDENT  GSIZE
          TITLE  GSIZE - SIZE ERROR PROCESSOR 
* 
*         GSIZE - SIZE ERROR PROCESSOR
* 
*         CONTAINS
*                CGSIZEN  - SIZE END
*                CGSIZER  - SIZE ERROR
* 
          SST 
 GSIZE    MODULE
  
 VREGA    EQU    VREG1
  
 CGSIZEN  KNIL   CGSIZEN
 CGSIZEO  KNIL   CGSIZEO
 CGSIZER  KNIL   CGSIZER
  
 CGSIZER  EGO    1
          NOTE   CGSIZER
          MOVEZ  1,SIZESW 
          MOVEZ  (LOCLAB,T1),SZRLABL
          GEN    MASK,(VREGOF,VREGA),0
          GEN    SSRBPK,VREGA,,((EXT$OF,C.SIZER)) 
          RETURN
          SPACE  4
 CGSIZEN  EGO    1
          NOTE   CGSIZEN
          IFTHEN (HOLDRES,NE,0) 
            GEN   ENDL
          ENDIFZ
          MOVEZ  0,SIZESW 
          GEN    LABEL$,((LOCAL$OF,SZRLABL))
          GEN    SLRBPK,(VREGOF,VREGA),,((EXT$OF,C.SIZER))
          GEN    ZR$,VREGA,,((FWA$OF,REGB)) 
          RETURN
          SPACE 3 
 CGSIZEO  EGO    1
          MOVEZ  0,SIZESW 
          RETURN
          END 
