16 228Y ... SEG SETPRAMA,,CENT(COMMAND PROCESSOR),,G281 4 22CW ...[ 15 22LS ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 13 22TQ ...[ THIS EXCLUDES CODE UNDER #SKI G281 4 234N ...[ 7 23?L ...#OPT G281 = 0 6 23GJ ...#SKI G281&1 17 23PG ...# WITH UGUG EDIT M281 (SETPARAM NEXT LINE OF JOB SOURCE) 12 23YG SEGENTRY K1SETPRAMA,SENTRY1 13 244C SEGENTRY K2SETPRAMA,SENTRY2 [USER 13 248# SEGENTRY K3SETPRAMA,SENTRY3 [JOB 17 24#9 SEGENTRY K4SETPRAMA,SENTRY4 [CURRENT DIRECTORY 13 24*G SEGENTRY K5SETPRAMA,SENTRY5 [DATE 13 24BR SEGENTRY K7SETPRAMA,SENTRY7 [TIME 17 24BY ... SEGENTRY K8SETPRAMA,SENTRY8 [NEXT LINE JOB SOURCE 6 24C5 ...#SKI G281&1 4 24C= ...( 9 24CC ...XCCS77 #73777777 9 24CJ ... #57777777 9 24CP ... 4HNEXT 4 24CW ...) 8 24D6 XFOUR +4 9 24XQ MAGIC +7036875 9 257J SPACE #20 5 25CB SENTRY1 20 25X2 BBUS 14,CONTEXT(2),XNOCORE [ERROR NOT IN CORE-IMAGE CONTEXT 5 26BL #SKI G3 4 26W= ( 14 27*W FPCACA 3,FX2 [X3->PCA 15 27TG LDX 4 ALIMIT(3) [LD CORE SIZE 4 28*6 ) 5 28SQ #SKI G4 4 29#B ( 7 29S2 FJOCA 3,2 18 2=?L TESTLOAD 3,RIGHT [J IF NOT DELAYED LOAD 16 2=R= LOADNOW XBRK,XNOCORE,0 [LOAD NOW ELSE 8 2?=W RIGHT FPCACA 3,FX2 9 2?QG HUNT2 3,BSTB,BSCB 17 2#=6 LDX 4 AMAXSIZE(3) [LD CORE SIZE/1024 8 2#PQ ANDN 4 #7777 8 2*9B SLL 4 10 4 2*P2 ) 16 2B8L BNG 4 XERR12 [CORE SIZE -VE? 11 2BN= SETNCORE 4,3,COMDAT,CSETP 9 2C7W LDN 2 APARA(3) 7 2CMG LDN 7 1 9 2D76 MPY 4 MAGIC(1) 7 2DLQ LDN 0 7 18 2F6B MODE 0 [CONVERT INTO DEC CHARS 8 2FL2 XCDR CBD 4 0(2) 8 2G5L LDCH 6 0(2) 8 2GK= BNZ 6 YOKO 8 2H4W BCT 0 XCDR 8 2HJG BRN WEND 7 2J46 ONO BCHX 2 / 8 2JHQ CBD 4 0(2) 7 2K3B ADN 7 1 8 2KH2 YOKO BCT 0 ONO 9 2L2L WEND STO 7 ANUM(3) 8 2LG= ADN 7 11 7 2L_W SRL 7 2 9 2MFG TXU 7 XFOUR(1) 9 2M_6 BCC XNOALT 20 2NDQ ALTLEN 3,7 [ENSURE BLOCK HAS CORRECT L.L. 5 2NYB XNOALT 8 2PD2 LDX 2 FX2 9 2PXL BWZ AWORK4(2),XC1 8 2QC= CALL 7 UNIF 7 2QWW UPPLUS 1 4 2RBG XC1 8 2RW6 ACROSS SETPB,1 8 2S*Q UNIF SBX 7 FX1 14 2STB PARAFREE [TIDY UP 7 2T*2 UNIFREE 9 2TSL LDX 0 AWORK3(2) 10 2W#= STO 0 JOBEVENTS(2) 8 2WRW ADX 7 FX1 7 2X?G EXIT 7 0 5 2XR6 XNOCORE 11 2Y=Q BWNZ AWORK4(2),XNOCORE1 9 2YQB COMERR GWERNO 5 2_=2 XERR12 9 2_PL GEOERR 0,NEGCORE 5 329= XNOCORE1 8 32NW CALL 7 UNIF 5 338G UP 6 3393 ...#SKI G281&1 4 339J ...( 5 33=5 ...XCCS5 16 33=L ... [ BREAKIN LABEL 15 33?7 ... LDX 0 AWORK4(2) [ BRN IF SP 8 33?N ... BPZ 0 XBRK 9 33#9 ... LDX 0 AWORK1(2) 16 33#Q ... BNZ 0 XCCS14 [ BRN IF 'INPUT' 8 33*? ... MHUNTW 3,CLB 10 33*S ... LDX 0 XCCS77+2(1) 9 33B* ... STO 0 CLBFIR(3) 7 33BW ... LDN 0 4 10 33CC ... STO 0 ANUMCHA(3) 7 33CY ... LDN 0 1 19 33DF ... STO 0 APARANUM(3) [ CREATE CLB FOR BI MESSAGE 9 33F2 ... BRN XCCS13 5 33FH ...XCCS14 9 33G4 ... TESTMULT XCCS22 8 33GK ... CLOSEABANDON 9 33H6 ... BRN XCCS23 5 33HM ...XCCS22 6 33J8 ... CLOSE 7 33JP ... ERASEMULT 5 33K= ...XCCS23 6 33KR ... INFINB 5 33L# ...XCCS13 7 33LT ... ABANDCOM 4 33MB ...) 7 33N6 XBRK COMBRKIN 4 33NC # 8 33NN # USER FUNCTION 4 33N_ # 5 33P= SENTRY2 8 33PH LDN 4 JUSER 11 33PS USJO SETNCORE 5,3,COMDAT,CSETP 8 33Q5 BRUSEN XERR8 7 33QB FJOCA 2 7 33QM ADX 4 2 9 33QY XUS LDN 5 APARA(3) 7 33R9 MOVE 4 3 18 33RG LDN 5 12 [REMOVE TRAILING SPACES 8 33RR LDN 2 11 7 33S4 XUS1 SRC 2 2 7 33S* SMO 3 9 33SL LDCH 4 APARA(2) 9 33SX TXU 4 SPACE(1) 8 33T8 BCS XUS2 7 33TF SLC 2 2 7 33TQ SBN 2 1 8 33W3 BCT 5 XUS1 9 33W# GEOERR 1,USERJOB 9 33WK XUS2 STO 5 ANUM(3) 8 33WW BRN PTYPE 4 33X7 # 8 33XD # JOB FUNCTION 4 33XP # 5 33Y2 SENTRY3 8 33Y? LDN 4 JNAME 8 33YJ BRN USJO 6 33YK ...#SKI G281 4 33YL ...#SKI 4 33YM ...( 5 33YN ...SENTRY8 9 33YP ... BRN (GEOERR) 4 33YQ ...) 6 33YR ...#SKI G281&1 4 33YS ...( 4 33YT ...# 11 33YW ...# NEXT LINE OF JOB SOURCE 4 33YX ...# 5 33YY ...XCCS20 8 33Y_ ... FJOCA 3,FX2 8 33_2 ... LDCT 0 #40 9 33_3 ... ANDX 0 JMISC(3) 9 33_4 ... BRN XCCS21 5 33_5 ...SENTRY8 9 33_6 ... STOZ AWORK1(2) 10 33_7 ... LDX 0 CONTEXT(2) 8 33_8 ... ANDN 0 #11 18 33_9 ... BZE 0 XERR8 [ ONLY OK IF MOP OR USER 10 33_= ... LDX 5 CONTEXT(2) 18 33_? ... ANDN 5 4 [ X5 = 0 => MOP ELSE BACK 9 33_# ... LDX 0 AWORK4(2) 17 33_* ... BPZ 0 XCCS8 [ BRN IF SP COMMAND 10 33_B ... LDX 0 CONTEXT(2) 7 33_C ... ANDN 0 1 15 33_D ... BNZ 0 XCCS20 [ BRN IF USER 9 33_F ... LDX 0 EXT+11(2) 8 33_G ... ANDN 0 #2000 5 33_H ...XCCS21 16 33_J ... STO 0 AWORK1(2) [ NZ => 'INPUT' 17 33_K ... BNZ 5 XCCS8 [ BRN IF BACKGROUND 9 33_L ... LDX 6 XCCS77(1) 16 33_M ... ANDS 6 JOBEVENTS(2) [ ALLOW BREAKIN 17 33_N ... BZE 0 XCCS8 [ BRN IF NOT 'INPUT' 12 33_P ... HUNT2J 3,FILE,FRB,FX2,XCCS8 18 33_Q ... NAME 3,IUSER,ISPFRB [ PROTECT FRB FROM IPBMOP 5 33_R ...XCCS8 7 33_S ... LDN 4 2 8 33_T ... SPARANXT ,,4 10 33_W ... TESTREP UNPAIR,XERR9 10 33_X ... HUNT 3,CPB,CUNI 9 33_Y ... LDX 4 ANUM(3) 8 33__ ... BNG 4 XCCS2 16 3422 ... BZE 4 XCCS2 [ BRN IF NO PARAM 8 3423 ... ANDN 4 #7777 8 3424 ... LDN 6 APARA 17 3425 ... BNZ 5 XCCS10 [ BRN IF BACKGROUND 10 3426 ... OUTPARAX 4,6,CPB,CUNI 10 3427 ... HUNTW 3,AMXOR,ADCB 9 3428 ... BNG 3 XCCS15 10 3429 ... LDX 0 XCCS77+1(1) 20 342= ... ANDS 0 IWAIT(3) [ CURES SUBTLE PROBLEM WITH BI 5 342? ...XCCS15 8 342# ... LDCT 0 #100 9 342* ... ANDX 0 EXT+11(2) 8 342B ... BNZ 0 XCCS7 8 342C ... COMREADY XCCS5 5 342D ...XCCS6 10 342F ... MHUNTW 3,FILE,FRB 8 342G ... LDEX 7 A1(3) 14 342H ... BZE 7 XCCS1 [ EOF ? 8 342J ... LDCT 6 #600 9 342K ... ANDX 6 A1+1(3) 8 342L ... TXU 6 GZERO 7 342M ... SBN 7 2 7 342N ... SLC 67 2 11 342P ... NAME 3,COMDAT,CSETP 9 342Q ... STO 7 ANUM(3) 13 342R ... HUNT2J 1,IUSER,ISPFRB,3,PTYPE 10 342S ... NAME 1,FILE,FRB 8 342T ... BRN PTYPE 5 342W ...XCCS10 8 342X ... LDN 7 #40 11 342Y ... OUTMONX 4,6,7,CPB,CUNI 5 342_ ...XCCS12 8 3432 ... ALASHUNT 3,6 8 3433 ... ADDREC 3,6 7 3434 ... NGN 3 2 16 3435 ... READ 0(3) [ READ FROM JDF 8 3436 ... BRN XCCS6 5 3437 ...XCCS2 17 3438 ... BNZ 5 XCCS12 [ BRN IF BACKGROUND 7 3439 ... OUTNULL 10 343= ... HUNTW 3,AMXOR,ADCB 8 343? ... BNG 3 XCCS7 10 343# ... LDX 0 XCCS77+1(1) 9 343* ... ANDS 0 IWAIT(3) 5 343B ...XCCS7 8 343C ... READY XCCS5 8 343D ... BRN XCCS6 4 343F ...) 4 343G ...# 11 343H ...# CURRENT DIRECTORY FUNCTION 4 343J ...# 5 343K ...SENTRY4 11 343L ... SETNCORE 5,3,COMDAT,CSETP 16 343M ... BRUSEN XERR8 [BRANCH IF NO USER 21 343N ... LDN 4 CPREFIX(2) [CPREFIX,&+1,&+2 CONTAIN CURRENT DIR 8 343P ... BRN XUS 4 343Q ...# 8 343R ...# DATE FUNCTION 4 343S ...# 5 343T ...SENTRY5 21 343W ... DATECON EDATE [CONVERT CURRENT DATE TO CHAR FORMAT 18 343X ... LDN 4 7 [IN THE ACOMMUNE WORDS 11 343Y ...XDT SETNCORE 4,3,COMDAT,CSETP 9 343_ ... STO 4 ANUM(3) 10 3442 ... LDX 4 ACOMMUNE1(2) 9 3443 ... STO 4 APARA(3) 10 3444 ... LDX 4 ACOMMUNE2(2) 10 3445 ... STO 4 APARA+1(3) 8 3446 ... BRN PTYPE 4 3447 ...# 8 3448 ...# TIME FUNCTION 4 3449 ...# 5 344= ...SENTRY7 21 344? ... TIMECON CLEANCT [CONVERT CURRENT TIME TO CHAR FORMAT 18 344# ... LDN 4 8 [IN THE ACOMMUNE WORDS 8 344* ... BRN XDT 5 344B ...PTYPE 14 344C ... PTYPE COMDAT,CSETP,3,APARA,ANUM(3) 9 344D ... BRN XNOALT 9 344F ...PJSETP12 +JSETP12 6 344G ...#SKI G281&1 4 344H ...( 9 344J ...PAPFERR +APFERR 9 344K ...PERUNPAIR +ERUNPAIR 10 344L ...XERR9 LDX 7 PERUNPAIR(1) 8 344M ... BRN XCCS3 4 344N ...) 10 344P ...XERR8 LDX 7 PJSETP12(1) 6 344Q ...#SKI G281&1 4 344R ...( 5 344S ...XCCS3 4 344T ...) 7 344W ... NGN 6 1 8 344X ... SMO FX2 9 3454 LDX 4 AWORK4 8 345* BZE 4 XOR1 8 345L CALL 7 UNIF 5 345X UP 4 3468 XOR1 8 346F COMERRX 7,6 11 347Q MENDAREA 30,GAPSETPRAMA 6 3493 ...#SKI G281&1 4 34=# ...( 5 34?K ...XCCS1 15 34#W ... BZE 5 XCCS11 [ BRN IF MOP 7 34B7 ... NGN 3 2 8 34CD ... BACKSPACE 0(3) 10 34DP ... LDX 7 PAPFERR(1) 8 34G2 ... BRN XCCS3 5 34H? ...XCCS11 6 34JJ ... ENDCOM 4 34KT ...) 4 34MB #END 8 ____ ...43351216000100000000