(George Source)
22FL [ 22^= [ SUBFILE OWNER -- OWEN N. JOHN 23DW [ 23YG [ SECTION -- :CENT 24D6 [ 24XQ [ THIS MACROS SUBFILE CONTAINS ALL THE MACROS USED BY THE 25CB [ INSTALLATION PARAMETER CODE VIZ:- 25X2 [ 26BL [ 26W= [ 1( NEWINST SET UP PARAMINDEX AT EMS 27*W [ 27TG [ 2( SETUPARA CHECKS PARAMINDEX AT EMS 28*6 [ 28SQ [ 3( INSTPARA IMPLEMENTS THE IP COMMAND 29#B [ 29S2 [ 2=?L [ THE FOLLOWING MACROS ARE HEREIN CONTAINED :- 2=R= [ 2?=W [ 2?QG [ 1( INST - USED IN NEWINST TO CONSTRUCT PRAMINDEX 2#=6 [ 2#PQ [ 2( IPCHANGE - USED AT REDTORE TIME TO ALTER THE DEFAULT 2*9B [ VALUED IN FIXED 2*P2 [ 2B8L [ 3( TABRN - USED IN SETUPARA TO CONSTUCT A TABLE OF SPECIAL IP 2BN= [ 2C7W [ 4( IPCONT - USED IN INSTPARA + INSTPARA TO CONVERT A 2CMG [ CONTEXT BIT PATTERN TO CHARACTER STRING 2CX# ...[ 5( IPINDEX - USED TO CHANGE THE DATA USED TO SET UP PARAMIN 2D76 [ 2D8# ...[ 6( IPUSE - USED TO ALLOW NON-MACRO OPERATIONS TO BE PERFORMED 2D9G ...[ ON AN IP WHICH MAY BE IN THE EXTENSION TABLE 2D=N ...[ 2D?W ...[ 7( IPUSEX - USED IN SETUPARA + INSTPARA AS FOR IPUSE BUT WITH 2D*4 ...[ AN ACCUMULATOR AS ONE OF THE PARAMETERS 2DB= ...[ 2DCD ...[ 8( IPEXTST - TO DECLARE THE START OF THE IP EXTENSION TABLE 2DDL ...[ 2DFS ...[ 9( IPEXTDEF - TO DECLARE AN IP IN THE EXTENSION TABLE 2DH2 ...[ 2DJ8 ...[ 10( IPEXTEND - TO DECLARE THE END OF THE IP EXTENSION TABLE 2DKB ...[ 2DLQ [ 2DWJ ...[??? INST SECT CENT FGN 12 DOC 2F6B [ 2FL2 [ MACRO INST 2G5L [ 2GK= #MAC INST 2H4W 12H%A [WORD 0-2 IPNAME (PARAMETE NAME 2HJG +%B [ 3 IPMAX (MAX ALLOWED VA 2J46 +%C [ 4 IPMIN (MIN ALLOWED VA 2JHQ #40000000 [ 5 IPVAL (CURRENT VALUE 2JNY ...#STR %E 2JW6 ...#SKI 2K3B +%D-INSTPARAM [ 6 IPNUM (POSITION IN TA 2K8J ...#STR %E 2K*Q ... +%D [ 6 IPNUM (POSITION IN TA 2KH2 #NOR 2KQS ...[??? IPCHANGE SECT CENT FGN 12 DOC 2L2L [ 2LG= [ MACRO IPCHANGE 2L^W [ 2MFG #MAC IPCHANGE [OWEN N JOHN 2M^6 [ THIS MACRO REPACES THE DEFAULT VALUE OF IP %A BY %B.. IN FIXED 2N3P ...#UNS FSHTEST 2N6# ...#SKI 2N8X ... FSHSKIP B 2N?G ...( 2NB5 ...[ ALL DEFAULT VALUES ARE HELD ON MACHINE A ONLY 2NDQ #DEF 19?+3=1? [SAVE LISTING LEVEL 2NYB #LIS 0 2PD2 #STR %B 2PXL #STR 2Q=3 ...( 2QJD ...#LIS 19? + 3] [CORRECTS BUG 2142 2QWW #SKI K6INSTPARA>200-200 2RBG ...#CONSOLE NO 2ND PARAM TO %A - IPCHANGE IGNORED 2RW6 ...! NO 2ND PARAM TO %A - IGNORED 2S*Q #EXIT 2STB ) 2SX^ ...#UNS IPEXTENSION+1*IPEXTENSION 2T2J ...#DEF 20?=1 2T57 ...#UNS IPEXTENSION+1*IPEXTENSION 2T7Q ...#SKI 2T=* ...#DEF 20?=0 2T*2 #ORD 2TSL #INT 2W#= XIPADD +DNEWINST [ADDR OF NEWINST ON B/S 2WRW XBUFF [LABEL THE FOLLOWING GAP 2WXR ...#SKI 20? 2X3N ...#GAP 700 [PLACE TO PUT TABLE IN CORE 2X7K ...#SKI 20?<1$1 2X?G #GAP 512 [PLACE TO PUT TABLE IN CORE 2XR6 XNAME 12H%A [PUT CHARS OF IP IN 3 WORDS 2XY# ...#SKI 20? 2Y5G ...XIPEXTTAB +IPEXTSTART [START ADDR OF IP EXTENSION TABLE 2Y=Q XLINK +0 [PLACE TO PUT LINK ADD. 2YQB [ 2^=2 [ THIS INTERLUDE READS THE TABLE IN SEGMENT NEWINST LOCATES THE 2^PL [ FIXED CORE ADDRESS OF IP%A AND RETURNS WITH IT IN 19?+0 329= [ 32NW [ COMPARISION IS BY CHARACTER STRINGS 338G [ 33N6 [ 19?+1] IS SET AS WELL : = -1 IF IPNAME IS INVALID 347Q [ 34MB [ = 0 IF ALL OKAY 3572 [ 35LL [ = 1 IF NAME IS ONE OF MOP/JOB/MIN/OP- 366= [ TRACE OR CONTECT 36KW XSPEC +IMOPTRACE [THE FIXED CORE ADDR. OF THE SPECIAL 375G +IMINTRACE [ IP S 37K6 +IOPTRACE 384Q +ICONTEXT 38JB +JOBTRACE 3942 XNSPC +XNSPC-XSPEC [NO OF SPECIAL IP S 39HL MENT STO 0 XLINK [STORE LINK ADDRESS 3=3= LDN 2 512 [SIZE OF RECORD TO BE TRANSFERED 3=GW LDN 5 XBUFF [ADDR. OF RECORD IN CORE (HOPEFULLY) 3?2G LDX 6 XIPADD [ADD OF TABLE IN NEWINST 3?G6 CALL 0 18? + 2] + 3] [DO THE TRANSFER 3?HT ...#SKI 20? 3?KJ ...( 3?M? ... LDN 2 188 [SIZE OF REST OF RECORD TO BE READ 3?P2 ... LDN 5 XBUFF + 512 [RESET ADDR. OF RECORD IN CORE 3?QP ... LDX 6 XIPADD 3?SD ... ADN 6 512 [RESET ADDR. IN TABLE IN NEWINST 3?W7 ... CALL 0 18? + 2] + 3] [COMPLETE TRANSFER 3?XW ...) 3?^Q LDN 3 XBUFF+IPTABLE [RELOAD START OF TABLE IN CORE 3#5M ...#SKI 20? 3#9J ... LDX 5 IPHEAD-A1(3) [RECORD LENGTH 3#*F ...#SKI 20?<1$1 3#FB LDEX 5 IPHEAD-A1(3) [RECORD LENGTH 3#^2 ADX 5 3 [END OF TABLE 3*DL NGN 0 1 3*Y= SBN 3 IPLINE [AMMEND X3 3BCW STO 0 19?+1 [SET 19?+1 TO DEFAULT OF INVALID IP 3BXG SBN 5 2 [ACCOUNT FOR 1ST 2 WORDS 3CC6 LDX 6 XNAME [LOAD 1ST 4 CHARS OF IP 3CWQ MLOP ADN 3 IPLINE [START OF COMPARISION LOOP 3DBB BXGE 3 5,MENDA [JUMP IF WE HAVE HIT END OF TABLE 3DW2 BXU 6 IPNAME-A1(3),MLOP [TRY NEXT ONE IF NO MATCH 3F*L LDX 7 XNAME+1 [AND 2ND 4 CHARS 3FT= BXU 7 IPNAME-A1+1(3),MLOP 3G#W LDX 7 XNAME+2 3GSG BXU 7 IPNAME-A1+2(3),MLOP [3RD 4-CHARS 3H#6 [ 3HRQ [ SO WE HAVE FOUND IT !!! 3J?B [ 3JH8 ...#SKI 20?<1$1 3JR2 LDX 0 IPNUM - A1(3) [LOAD RELATIVE ADDR 3JSC ...#SKI 20? 3JTS ...( 3JX9 ... STOZ 19?+2 [INITIALISE INDICATOR OF IP TABLE 3JYL ... LDXC 0 IPNUM - A1(3) [LOAD RELATIVE ADDR 3K23 ... BCC MNOTEXT [J IF NOT EXTENSION TABLE IP 3K3D ... ADX 0 XIPEXTTAB [X0=FIXED CORE ADDR. 3K4T ... STO 0 19?+2 [INDICATE EXTENSION TABLE IP 3K6= ... BRN MSTORE [J TO STORE X0 3K7M ...MNOTEXT 3K94 ...) 3K=L ADN 0 INSTPARAM [X0= FIXED CORE ADDR. 3KGD ...MSTORE 3KQ= STO 0 19?+0 [STORE ADDR. FOR USE 3L9W STOZ 19? + 1 [INDICATE ALL OKAY 3LPG [ 3M96 [ NOW TO TEST IF SPECIAL IP 3MNQ [ 3N8B LDX 2 XNSPC [LOAD NO OF SPEC IP S 3NN2 MRTN BXE 0 XSPEC - 1(2),MSLP [JUMP IF ADDR MATCH IS MADE 3P7L BCT 2 MRTN [BACK AGAIN 3PM= BRN MENDA [IT WAS NOT A SPEC IP 3Q6W MSLP STO 2 19?+1 [RESET POINTER USING X2 AS NON-ZERO 3QLG [ IF A MATCH 3R66 MENDA LDX 0 XLINK [RESTORE LINK 3RKQ EXIT 0 0 3S5B #JUMP MENT [ENTER INTERLUDE 3SK2 #EXT 3T4L #SKI 19?+1]+1 [IF WE FAILED NO MORE TO DO 3TJ= ( 3W3W #SKI K6INSTPARA>200-200 3WHG #CONSOLE %A ALTERED TO %B -SUCCESS 3X36 #DEF JCONTEXT0=0 3XGQ #DEF JCONTEXT=0 3Y2B #LIS 19?+3] [REASSIGN LISTING LEVEL 3Y45 ...#SKI 20? 3Y5S ...( 3Y7H ...#SKI 19?+2] 3Y9= ...#MEND CEND [EXTENSION TABLE IN CEND 3Y=^ ...#SKI 19?+2]<1$1 3Y#N ...#MEND FIXED [ORDINARY IP TABLE IN FIXED 3YBC ...) 3YD6 ...#SKI 20?<1$1 3YG2 #MEND FIXED [TO PUT DEFAULT IN FIXED 3Y^L #DEF UNSET=#40000000 3^F= #TRA 19?+0] [FIND CORRECT ADDR 3^YW #SKI 19?+1] [CHECK TYPE OF IP 42DG ( 42Y6 [ IT IS OF TYPE CONTEXT OR MOP/MIN/JOB/OP TRACE 43CQ #STR %A,CONTEXT 43XB ( [IT IS TYPE TRACE 44C2 CATMASK %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,- 44WL %U,%V,%W, 45B= #END 45TW #EXIT 46*G ) [TYPE CONT EXT 46T6 +JCONTEXT%B+JCONTEXT%C+JCONTEXT%D+JCONTEXT%E 47#Q #END 47SB #EXIT 48#2 ) [NORMAL 48RL +%B 49?= #END 49QW #EXIT 4=5? ...) 4=CN ...#LIS 19? + 3] [CORRECTS BUG 2142 4=Q6 #SKI K6INSTPARA>200-200 4?9Q #CONSOLE ERROR IN %A - NOT RECOGNISED 4?PB ...! IP NAME %A IS INVALID 4#92 !0 4#=Y ...#FREE XIPEXT 4##W ...) 4#BS ...#UNS FSHTEST 4#DQ ...#SKI 4#GN ... FSHSKIP B 4#JL ...#SKI 4#K? ...( 4#KY ...#SKI K6INSTPARA>200-200 4#LK ...#CONSOLE IP VALUES MAY ONLY BE CHANGED IN MACHINE A COMPILATIONS 4#M= ...! IPCHANGE NOT ALLOWED IN M/C B 4#MX ...) 4#NL #NOR 4#YD ...[??? TABRN SECT CENT FGN 12 DOC 4*8= [ 4*MW [ MACRO TABRN 4B7G [ 4BM6 #MAC TABRN [TO SET UP SPEC IP TABLE IN SETUPARA 4BP* ...#UNS %A 4BRJ ...#SKI 4BTR ... +%A [GIVES REL ADDR IN EXTENSION TABLE 4BY2 ...#UNS %A 4C29 ...( 4C4D ...#SKI %A�<1$1 4C6Q +%A - INSTPARAM [GIVES REL FIXED CORE ADDR 4C=M ...#SKI %A� 4CBJ ... +%A [GIVES REL ADDR IN EXTENSION TABLE 4CGF ...) 4CLB BRN %B [ADDR OF RELAVENT CODING 4D62 #NOR 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 4HF8 ...[??? IPUSE SECT CENT FGN 12 DOC 4HF9 ...[ 4HF= ...[ IPUSE 4HF? ...[ 4HF# ...#MAC IPUSE 4HYY ...#UNS %B 4JDJ ...#SKI 4JY8 ...( 4KCS ... SMO IPEXTTAB 4KXD ... %A %B� 4LC4 ...) 4LWN ...#UNS %B 4MB# ...( 4MTY ...#SKI %B�<1$1 4N*J ... %A %B 4NT8 ...#SKI %B� 4P#S ...( 4PSD ... SMO IPEXTTAB 4Q#4 ... %A %B� 4QRN ...) 4R?# ...) 4RQY ...#NOR 4S=J ...[??? IPUSEX SECT CENT FGN 12 DOC 4SQ8 ...[ 4T9S ...[ IPUSEX 4TPD ...[ 4W94 ...#MAC IPUSEX 4WNN ... BNG %B MIPUSE1 4X8# ... MOD %A INSTPARAM,%B 4XMY ... BRN MIPUSE2 4Y7J ...MIPUSE1 4YM8 ...#MOD %B 4^6S ...#SKI 4^LD ...( 5264 ... SMO IPEXTTAB 52KN ... %A 0(%B) 535# ...) 53JY ...#MOD %B 544J ...( 54J8 ... ADX %B IPEXTTAB 553S ... SMO %B 55HD ... %A 0 5634 ... SBX %B IPEXTTAB 56GN ...) 572# ...MIPUSE2 57FY ...#NOR 57^J ...[??? IPEXTST SECT CENT FGN 12 DOC 58F8 ...[ 58YS ...[ IPEXTST 59DD ...[ 59Y4 ...#MAC IPEXTST 5=CN ... FCMEND 5=X# ...#DEF IPEXTSTART=0?+37? 5?BY ...#NOR 5?WJ ...[??? IPEXTDEF SECT CENT FGN 12 DOC 5#B8 ...[ 5#TS ...[ IPEXTDEF 5**D ...[ 5*T4 ...#MAC IPEXTDEF 5B#N ...#DEF %A=0?+37?-IPEXTSTART^#40000000 5BS# ... +%B 5C?Y ...#NOR 5CRJ ...[??? IPEXTEND SECT CENT FGN 12 DOC 5D?8 ...[ 5DQS ...[ IPEXTEND 5F=D ...[ 5FQ4 ...#MAC IPEXTEND 5G9N ...#DEF IPEXTSIZE=0?+37?-IPEXTSTART 5GP# ... FCEND 5H8Y ...#MEN CONSTANT 5HNJ ...#TRA IPEXTTAB 5J88 ... +IPEXTSTART 5JMS ... +IPEXTSIZE 5K7D ...#END 5KM4 ...#NOR 5L6N ...[ ^^^^ ...06273011004100000000