{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: SETPRAMA867)}}
====== SETPRAMA867 ======
(George Source)
**Macros used:** [[george:macro:ABANDCOM|ABANDCOM]], [[george:macro:ACROSS|ACROSS]], [[george:macro:ADDREC|ADDREC]], [[george:macro:ALASHUNT|ALASHUNT]], [[george:macro:ALTLEN|ALTLEN]], [[george:macro:BACKSPACE|BACKSPACE]], [[george:macro:BBUS|BBUS]], [[george:macro:BRUSEN|BRUSEN]], [[george:macro:BWNZ|BWNZ]], [[george:macro:BWZ|BWZ]], [[george:macro:CLOSE|CLOSE]], [[george:macro:CLOSEABANDON|CLOSEABANDON]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:COMERR|COMERR]], [[george:macro:COMERRX|COMERRX]], [[george:macro:COMREADY|COMREADY]], [[george:macro:DATECON|DATECON]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERASEMULT|ERASEMULT]], [[george:macro:FJOCA|FJOCA]], [[george:macro:FPCACA|FPCACA]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT|HUNT]], [[george:macro:HUNT2|HUNT2]], [[george:macro:HUNT2J|HUNT2J]], [[george:macro:HUNTW|HUNTW]], [[george:macro:INFINB|INFINB]], [[george:macro:LOADNOW|LOADNOW]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:NAME|NAME]], [[george:macro:OUTMONX|OUTMONX]], [[george:macro:OUTNULL|OUTNULL]], [[george:macro:OUTPARAX|OUTPARAX]], [[george:macro:PARAFREE|PARAFREE]], [[george:macro:PTYPE|PTYPE]], [[george:macro:READ|READ]], [[george:macro:READY|READY]], [[george:macro:RIGHT|RIGHT]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SPARANXT|SPARANXT]], [[george:macro:TESTLOAD|TESTLOAD]], [[george:macro:TESTMULT|TESTMULT]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TIMECON|TIMECON]], [[george:macro:UNIFREE|UNIFREE]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|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