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