(GIN Macro)
Defined in: 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