{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: IPINDEX)}}
====== IPINDEX ======
(GIN Macro)
**Defined in:** [[george:source:IPMACROS|IPMACROS]]
**Used in:**
4D*S ...[??? IPINDEX SECT CENT FGN 12 DOC
4DKL [
4F5= [ MACRO IPCONT
4FJW [
4G4G [
4GJ6 [ AT PRESENT IN :CENT.MACROS RJH
4H3Q [ WAITING SIB TO QUALIFY THE RULES
4H3T ...#MAC IPINDEX [OWEN N JOHN
4H3Y ...#DEF 19?+3=1? [SAVE LISTING LEVEL
4H43 ...#LIS 0
4H46 ...#ORD
4H49 ...#INT
4H4# ...XIPADD +DNEWINST [ADDR OF NEWINST ON B/S
4H4C ...XBUFF [LABEL THE FOLLOWING GAP
4H4G ...#GAP 512 [PLACE TO PUT TABLE IN CORE
4H4K ...XNAME 12H%A [PUT CHARS OF IP IN 3 WORDS
4H4N ...XLINK +0 [PLACE TO PUT LINK ADD.
4H4R ...[
4H4W ...[ THIS INTERLUDE READS THE TABLE IN SEGMENT NEWINST LOCATES THE
4H4^ ...[ FIXED CORE ADDRESS OF IP%A AND RETURNS WITH IT IN 19?+0
4H54 ...[
4H57 ...[ COMPARISION IS BY CHARACTER STRINGS
4H5= ...[
4H5* ...[ 19?+1] IS SET AS WELL : = -1 IF IPNAME IS INVALID
4H5D ...[
4H5H ...[ = 0 IF ALL OKAY
4H5L ...[
4H5P ...[ = 1 IF NAME IS ONE OF MOP/JOB/MIN/OP-
4H5S ...[ TRACE OR CONTECT
4H5X ...XSPEC +IMOPTRACE [THE FIXED CORE ADDR. OF THE SPECIAL
4H62 ... +IMINTRACE [ IP S
4H65 ... +IOPTRACE
4H68 ... +ICONTEXT
4H6? ... +JOBTRACE
4H6B ...XNSPC +XNSPC-XSPEC [NO OF SPECIAL IP S
4H6F ...MENT STO 0 XLINK [STORE LINK ADDRESS
4H6J ... LDN 2 512 [SIZE OF RECORD TO BE TRANSFERED
4H6M ... LDN 5 XBUFF [ADDR. OF RECORD IN CORE (HOPEFULLY)
4H6Q ... LDX 6 XIPADD [ADD OF TABLE IN NEWINST
4H6T ... CALL 0 18? + 2] + 3] [DO THE TRANSFER
4H6Y ... LDN 3 XBUFF+IPTABLE [RELOAD START OF TABLE IN CORE
4H73 ... LDEX 5 IPHEAD-A1(3) [RECORD LENGTH
4H76 ... ADX 5 3 [END OF TABLE
4H79 ... NGN 0 1
4H7# ... SBN 3 IPLINE [AMMEND X3
4H7C ... STO 0 19?+1 [SET 19?+1 TO DEFAULT OF INVALID IP
4H7G ... SBN 5 2 [ACCOUNT FOR 1ST 2 WORDS
4H7K ... LDX 6 XNAME [LOAD 1ST 4 CHARS OF IP
4H7N ...MLOP ADN 3 IPLINE [START OF COMPARISION LOOP
4H7R ... BXGE 3 5,MENDA [JUMP IF WE HAVE HIT END OF TABLE
4H7W ... BXU 6 IPNAME-A1(3),MLOP [TRY NEXT ONE IF NO MATCH
4H7^ ... LDX 7 XNAME+1 [AND 2ND 4 CHARS
4H84 ... BXU 7 IPNAME-A1+1(3),MLOP
4H87 ... LDX 7 XNAME+2
4H8= ... BXU 7 IPNAME-A1+2(3),MLOP [3RD 4-CHARS
4H8* ...[
4H8D ...[ SO WE HAVE FOUND IT !!!
4H8H ...[
4H8L ... LDX 0 IPNUM - A1(3) [LOAD RELATIVE ADDR
4H8P ... ADN 0 INSTPARAM [X0= FIXED CORE ADDR.
4H8S ... STO 0 19?+0 [STORE ADDR. FOR USE
4H8X ... STOZ 19? + 1 [INDICATE ALL OKAY
4H92 ... SBN 3 XBUFF
4H95 ... STO 3 19?+4
4H98 ...[
4H9? ...[ NOW TO TEST IF SPECIAL IP
4H9B ...[
4H9F ... LDX 2 XNSPC [LOAD NO OF SPEC IP S
4H9J ...MRTN BXE 0 XSPEC - 1(2),MSLP [JUMP IF ADDR MATCH IS MADE
4H9M ... BCT 2 MRTN [BACK AGAIN
4H9Q ... BRN MENDA [IT WAS NOT A SPEC IP
4H9T ...MSLP STO 2 19?+1 [RESET POINTER USING X2 AS NON-ZERO
4H9Y ... [ IF A MATCH
4H=3 ...MENDA LDX 0 XLINK [RESTORE LINK
4H=6 ... EXIT 0 0
4H=9 ...#JUMP MENT [ENTER INTERLUDE
4H=# ...#EXT
4H=C ...#LIS 19?+3]
4H=G ...#SKI 19?+1]+1<1$1
4H=K ...(
4H=N ...! ERROR IN IPINDEX - %A NOT RECOGNISED
4H=R ...#EXI
4H=W ...)
4H=^ ...#MEN NEWINST
4H?4 ...#OPT JCONTEXT=0
4H?7 ...#OPT JCONTEXT0=0
4H?= ...#STR MAX=,%B
4H?* ...(
4H?D ...#STR MIN=,%B
4H?H ...(
4H?L ...#STR NAM=,%B
4H?P ...(
4H?S ...#STR %D
4H?X ...(
4H#2 ...#SKI 19?+1]
4H#5 ...(
4H#8 ...! NAME OF THIS IP MAY NOT BE CHANGED
4H#? ...)
4H#B ...#SKI 19?+1]<1$1
4H#F ...(
4H#J ...#TRA 19?+4]+IPNAME-A1
4H#M ... 12H%D
4H#Q ...)
4H#T ...)
4H#Y ...#STR %B
4H*3 ...(
4H*6 ...#TRA 19?+4]+IPMAX-A1
4H*9 ... +%B
4H*# ...)
4H*C ...#STR %C
4H*G ...(
4H*K ...#TRA 19?+4]+IPMIN-A1
4H*N ... +%C
4H*R ...)
4H*W ...#END
4H*^ ...#EXI
4HB4 ...)
4HB7 ...#SKI 19?+1]
4HB= ...(
4HB* ...#END
4HBD ...! NAME OF THIS IP MAY NOT BE CHANGED
4HBH ...#EXI
4HBL ...)
4HBP ...#TRA 19?+4]+IPNAME-A1
4HBS ... 12H%C
4HBX ...#END
4HC2 ...#EXI
4HC5 ...)
4HC8 ...#TRA 19?+4]+IPMIN-A1
4HC? ...)
4HCB ...#STR MIN=,%B
4HCF ...(
4HCJ ...#TRA 19?+4]+IPMAX-A1
4HCM ...)
4HCQ ...#SKI 19?+1]
4HCT ...(
4HCY ...#STR %A,CONTEXT
4HD3 ...(
4HD6 ... CATMASK %C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T-
4HD9 ...,%U,%V,%W,%X,
4HD# ...#END
4HDC ...#EXI
4HDG ...)
4HDK ... +JCONTEXT%C+JCONTEXT%D+JCONTEXT%E
4HDN ...#END
4HDR ...#EXI
4HDW ...)
4HD^ ... +%C
4HF4 ...#END
4HF7 ...#NOR