ASMB,R,L
      NAM LDUMM,8   REV G 770415
      ENT UFREB 
        ENT LOCC
        ENT BPLOC 
        ENT XCOM
        ENT DFLCM 
        ENT FWAM
        ENT LWAM
        ENT FWABP 
        ENT LWABP 
        ENT FWAC
        ENT LWAC
        ENT NXTPG 
      ENT XFER
        ENT LCOMM 
        ENT NBPLK 
        ENT LWAM1 
        ENT MAXA
        ENT MINA
        ENT MAXAB 
        ENT MINAB 
        ENT XBPLK 
        ENT XMAXA 
        ENT LINKF 
        ENT UNDF1 
        ENT UNDFS 
        ENT UNDX1 
        ENT UNDFX 
        ENT EXTX1 
        ENT EXTX
        ENT LISTO 
        ENT ABRTF 
        ENT FILEX 
        ENT BPLKS 
        ENT GUESS 
        ENT NGESS 
        ENT NLINK 
        ENT SEC 
        ENT XSEC
        ENT PXFER 
        ENT XGESS 
        ENT ERCO
        ENT FREBE 
        ENT .LCAT 
        ENT .POSN 
        ENT .READ 
         ENT ENTR1
        ENT DCB4
        ENT DCBB4 
        ENT SLNKS 
        ENT XLNKS 
        ENT SYSIZ 
        ENT XMINA 
        ENT ERR 
        ENT FPNAM 
        ENT DCB 
        ENT DCBBO 
        ENT SODCB 
        ENT SODC4 
        ENT OBT,CMDLN 
       ENT CHAR,SOURC,SPTR
       ENT REV
          EXT RIC,STAK,PRFOP,SMBL 
      ENT CCPTR,PTPTR 
      ENT INLU,EKOLU,LSTLU,OUTLU,DNFLG
      ENT IAILU 
* 
* 
UFREB NOP           'USED' BP LINKS STACK POINTER.
XCOM  NOP           COMMON LENGTH EACH MODULE 
DFLCM NOP           DEFAULT COMMON FLAG 
INLU  NOP 
IAILU NOP             INTERACTIVE INPUT LU FLAG, =0 IF NON-IA 
EKOLU  NOP
LSTLU NOP 
OUTLU NOP 
DNFLG NOP 
CCPTR NOP 
PTPTR NOP 
REV   NOP           REVISION CODE STRING POINTER
CHAR   NOP
SOURC   NOP 
SPTR   NOP
OBT   ASC 1, -
      BSS 40     COMMAND INPUT BUFFER 
LOCC    OCT 000000
BPLOC   OCT 000000
FWAM    OCT 000000
LWAM    OCT 000000
FWABP   OCT 000000
LWABP   OCT 000000
FWAC    OCT 000000
LWAC    OCT 000000
NXTPG   OCT 000000
XFER   OCT 000000 
LCOMM   OCT 000000
NBPLK   OCT 000000
LWAM1   OCT 000000
MAXA    OCT 000000
MINA    OCT 000000
MAXAB   OCT 000000
MINAB   OCT 000000
XBPLK   OCT 000000
XMAXA   OCT 000000
CMDLN  NOP
LINKF   OCT 000000
UNDF1   OCT 000000
UNDFS   OCT 000000
UNDX1   OCT 000000
UNDFX   OCT 000000
EXTX1   OCT 000000
EXTX    OCT 000000
LISTO   OCT 000000
ABRTF   OCT 000000
FILEX   OCT 000000
BPLKS   OCT 000000
GUESS   OCT 000000
NGESS   OCT 000000
NLINK   OCT 000000
SEC     OCT 000000
XSEC    OCT 000000
PXFER   OCT 000000
XGESS   OCT 000000
ERCO    OCT 000000
FREBE   OCT 000000
.LCAT   OCT 000000
.POSN   OCT 000000
.READ   OCT 000000
ENTR1  NOP
DCB4  DEF DCB+3 
SLNKS   OCT 000000
XLNKS   OCT 000000
SYSIZ DEC 2    # SYMBOL TABLE PAGES -1
XMINA   OCT 000000
ERR   NOP 
FPNAM   OCT 000000
DCB     OCT 020040
        OCT 020040
        OCT 020040
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        BSS    127
DCBBO   OCT 020040
        OCT 020040
        OCT 020040
DCBB4   OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        BSS    127
SODCB   OCT 020040
        OCT 020040
        OCT 020040
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
        OCT 000000
* 
*   THE FOLLOWING INITIALIZATION CODE IS PART OF THE
*    DATA CONTROL BLOCK AREA FOR SODCB
* 
*   IT IS USED FOR OBTAINING ON,SXL PARAMETERS
*    RATHER THAN CALLING  RMPAR 
* 
B     EQU 1 
M5    DEC -5
.PTR  DEF INLU
      SPC 1 
      ENT .RMPR 
.RMPR NOP           ENTRY/EXIT
      LDA .RMPR,I   GET RETURN ADDRESS
      STA .RMPR     SAVE
      LDA B,I       GET PARAMETER 
      STA .PTR,I    SAVE
      ISZ .PTR
      INB 
      ISZ M5
      JMP *-5 
      JMP .RMPR,I 
      BSS 115 
SODC4 DEF SODCB+3 
*031        END 
        END 
                                                                                                                                                                                                                                                    