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