MACROS FIXD
(George Source)
- MACROS FIXD.txt
229S ...[??? G12MESS SECT CENT FGN 11 DOC 22FL [ DEK BEASLEY : CENT 22^= #MAC G12MESS [INCLUDES 'CORE GIVEN' MESSAGE ON G12 23DW #SKI G3 [ APPLIES TO GEORGE 3 ONLY 23YG ( 24D6 #MEN GIVE 24XQ #TRA K2GIVE 25CB BRN K3GIVE 25X2 #END 26BL ) 26W= #NOR 2764 ...[??? CHANBASE SECT CENT FGN 11 DOC 27*W # 27TG # 28*6 #MAC CHANBASE [DEFINES CHAIN BASES IN FIXED SEGMENT 28SQ X +X 29#B +X 29S2 #NOR 2=3S ...[??? MELPTR SECT CENT FGN 11 DOC 2=?L # 2=R= #MAC MELPTR [GIVES PNTR TO MEL OF GIVEN MEMBER NO 2?=W #STR %B 2?QG LDX 0 %B 2#=6 #STR %B 2#PQ #SKI 2*9B LDX 0 ANM(%A) 2*P2 ANDN 0 3 2B8L LDN 1 AFW1(%A) 2BN= LDN 2 K61 2C7W MPA 0 2 2CMG #SKI %A>1-1 2D76 ( 2DLQ LDX %A 1 2F6B LDX 1 FX1 2FL2 ) 2G5L #SKI %A-2 2GK= LDX 2 FX2 2H4W #NOR 2H#N ...[??? ON SECT CENT FGN 11 DOC 2HJG # 2J46 [ THE FOLLOWING MACROS IMPLEMENT A SWITCH FACILITY IN GEORGE 2JHQ #MAC ON 2K3B MBS ,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V 2KH2 #NOR 2KQS ...[??? OFF SECT CENT FGN 11 DOC 2L2L [ 2LG= #MAC OFF 2L^W MBC ,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V 2MFG #NOR 2MP# ...[??? OVER SECT CENT FGN 11 DOC 2M^6 [ 2NDQ #MAC OVER 2NYB MBI ,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V 2PD2 #NOR 2PMS ...[??? TEST SECT CENT FGN 11 DOC 2PXL [ 2QC= #MAC TEST 2QWW JMBAC MJBAC,,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,- 2RBG %U,%V,%W 2RW6 NGNC %A 1 2S*Q MJBAC LDN %A 0 2STB #NOR 2T58 ...[??? BSON SECT CENT FGN 11 DOC 2T*2 [ 2TSL #MAC BSON 2W#= JBS %B,,%A 2WRW #NOR 2X3N ...[??? BSOFF SECT CENT FGN 11 DOC 2X?G [ 2XR6 #MAC BSOFF 2Y=Q JBC %B,,%A 2YQB #NOR 2^28 ...[??? BMSAON SECT CENT FGN 11 DOC 2^=2 [ 2^PL #MAC BMSAON 329= ... JMBAS %A,,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,- 32NW %V,%W 338G #NOR 33D# ...[??? BMSAOFF SECT CENT FGN 11 DOC 33N6 [ 347Q #MAC BMSAOFF 34MB JMBAC %A,,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,- 3572 %V,%W 35LL #NOR 35WD ...[??? RESON SECT CENT FGN 11 DOC 366= [ 36KW #MAC RESON 375G RBS FIXED,,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T- 37K6 ,%U,%V 384Q #NOR 38#J ...[??? RESOFF SECT CENT FGN 11 DOC 38JB [ 3942 #MAC RESOFF 39HL RBC FIXED,,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T- 3=3= ,%U,%V 3=GW #NOR 3=H? ...[??? MULTIFID SECT CENT FGN 11 DOC 3=HP ...[ 3=JJ ...#MAC MULTIFID [INVERTS BITS SPECIFIED BY A STRING OF PARAMETERS 3=KC ...#STR %D 3=L= ...( 3=M5 ...#DEF 20?=%A 3=MY ...#DEF 21?=%D 3=NR ...#SKI 21?-20?/%C [ERROR UNLESS %A <OR= %D < %A+%C 3=PL ...!ERROR 3=QF ...#DEF 20?=%B+21?-20? [20?=+ OR - BIT NO TO BE INVERTED 3=R# ...#DEF 20?=20?�<1$1*2-1*20?[TAKE ITS MOCULUS 3=S7 ...#FID 20? 20? 1 [INVERT SPECIFIED BIT 3=T2 ... MULTIFID %A,%B,%C,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O 3=TT ...) 3=WN ...#NOR 3=X5 ...[??? LDNGN SECT CENT FGN 11 DOC 3=XH ...[ 3=YB ...[ 3=^9 ...[ 3?2G [ 3?G6 #MAC LDNGN 3?^Q #DEF MLDNGN=%B 3#FB #SKI MLDNGN� 3#^2 NGN %A -MLDNGN 3*DL #SKI MLDNGN�<1$1 3*Y= LDN %A MLDNGN 3BCW #FRE MLDNGN 3BXG #NOR 3C7# ...[??? SBADN SECT CENT FGN 11 DOC 3CC6 # 3CWQ #MAC SBADN 3DBB #DEF MSBADN1=%B 3DW2 #SKI MSBADN1� [INCLUDE IF MSBADN1<0 3F*L ADN %A -MSBADN1 3FT= #SKI MSBADN1�<1$1 [INCLUDE IF MSBADN1>0 OR =0 3G#W SBN %A MSBADN1 3GSG #FRE MSBADN1 3H#6 #NOR 3HHY ...[??? TESTCOR SECT CENT FGN 11 DOC 3HRQ # 3J?B # 3JR2 #MAC TESTCOR [TESTS FOR EXISTENCE OF A CORE IMAGE 3K=L [%A IS POINTER TO THE JOB BLOCK 3KQ= SMO %A [%B IS LABEL TO BRANCH TO IF A CORE 3L9W LDCH 0 JMISC [IMAGE EXISTS. 3LPG BNZ 0 %B 3M96 [ 3MNQ #NOR 3MYJ ...[??? TESTMON SECT CENT FGN 11 DOC 3N8B # 3NN2 #MAC TESTMON [BRANCH TO %D IF MONITORING OF TYPE 3P7L [ DEFINED BY CONTENTS OF %B IS REQUD 3PM= [ ON PERIPHERAL DEFINED BY %C 3Q6W [ %A (OPT) IS ADDR OF PCA 3QLG #STR %A 3R66 MOD LDX 0 AMON,%A 3RKQ #STR %A 3S5B #SKI 3SK2 ( 3T4L SMO FX2 3TJ= LDX 0 AMON 3W3W ) 3WHG BNG 0 MTESTMON1 3X36 ANDX 0 %B 3XGQ BZE 0 MTESTMON1 3Y2B LDX 0 %B 3YG2 SMO FX2 3Y^L STO 0 ACOMMUNE5 3^F= LDX 0 %C 3^YW SMO FX2 42DG STO 0 ACOMMUNE6 42Y6 #STR %A 43CQ ( 43XB LDX 0 %A 44C2 SMO FX2 44WL STO 0 ACOMMUNE4 45B= DOWN TESTMON,1 45TW ) 46*G #STR %A 46T6 #SKI 47#Q DOWN TESTMON,2 47SB BRN %D 48#2 MTESTMON1 48RL LDX 1 FX1 49?= LDX 2 FX2 49QW [ 4==G [ 4=Q6 #NOR 4=^Y ...[??? REPMON SECT CENT FGN 11 DOC 4?9Q # 4?PB # 4#92 #MAC REPMON [GENERATES A MONITOR EVENT 4#NL [%A=1 IF PLUGGED IN;OTHERWISE 0 OR 4*8= [ NULL 4*MW [X5= TYPE OF MONITORING 4B7G [X6= TYPE & PROG UNIT NO OF PERIPH 4BM6 [X7= O/P ADDR OF CONTROL AREA 4C6Q #STR %A,0 4CLB UNPLUG 4D62 ACROSS MONEVENT,3 4DKL #NOR 4DTD ...[??? MONEND SECT CENT FGN 11 DOC 4F5= #MAC MONEND [GENERATES MONITOR EVENT IF END OF 4FJW [MONRESUME.OBEYED WITH O/P PLUGGED, 4G4G [FROM OLPA OR PCA.X0,1,2 DESTROYED 4GJ6 [AND STOP BIT CLEARED IF NO MONEVENT 4H3Q CALL 0 (GMONEND) 4HHB #NOR 4HR8 ...[??? MONENDB SECT CENT FGN 11 DOC 4J32 # 4JGL # 4K2= #MAC MONENDB [GENERATES MONITOR EVENT IF END OF MONRESUME. OBEYED FROM 4KFW [CPA OR PCA WITH O/P UNPLUGGED AND X2-> PCA . 4K^G [ON EXIT X0,X1,X2 DESTROYED 4LF6 LDCT 0 #600 4LYQ ANDX 0 AMON(2) 4MDB ERS 0 AMON(2) [ERASE MONRESUME BITS 4MY2 BPZ 0 MMON1 [J IF NOT RESTARTED BY MR 4NCL SLL 0 1 4NX= BPZ 0 MMON1 [J IF NOT MR STOP 4PBW ACROSS MONEVENT,7 [ ELSE GENERATE MONITOR EVENT 4PWG MMON1 4QB6 #NOR 4QKY ...[??? FCMEND SECT CENT FGN 11 DOC 4QTQ # 4R*B # 4RT2 [ THESE MACROS IMPLEMENT THE FIXED CORE MEND SYSTEM 4S#L # 4SS= #MAC FCMEND [FOR INSERTION IN FRONT OF F/C MEND 4T?W #MEN CEND 4TRG #TRA JFCT 4W?6 #NOR 4WGY ...[??? FCEND SECT CENT FGN 13 DOC 4WQQ # 4X=B # 4XQ2 # 4Y9L #MAC FCEND [FOR INSERTION AFTER F/C MEND 4YP= #ALT JFCT=37?+0? 4^8W ...#END %A 537B #MEN LOADERI 53M2 #TRA JLVAR 546L ... +JFCT>JFCS-AENDCHAPS 54L= #END 555W #NOR 55*N ...[??? FCMENDV SECT CENT FGN 11 DOC 55KG # 5656 #MAC FCMENDV 56JQ ...#MEN REPLAC 574B #TRA APATPT 57J2 #NOR 57RS ...[??? FCENDV SECT CENT FGN 13 DOC 583L # 58H= #MAC FCENDV 592W #ALT APATPT=37?+0? 59GG #SKI APATLEN-APATPT+APATPI� 5=26 ( 5=FQ ! PATCH SPACE WILL NOT BE LOADED 5?F2 ) 5?YL ...#END %A 5#D= #NOR 5#N4 ...[??? QTABENT SECT CENT FGN 11 DOC 5#XW # 5*CG # 5*X6 [ THESE MACROS ARE USED BY PERCON (QTABENT,QLOGIC) OR AFTER A CALL OF 5BBQ [ PERCON (LEGALLEV) 5BWB [ 5CB2 #MAC QTABENT [SETS UP A QUALIFIER TABLE ENTRY FOR PERCON 5CTL +0 5D*= #STR %G 5DSW #FID 2 11 %G [OPTIONAL SUPPLEMENTARY ANALYSIS LABE 5F#G #FID 20 23 %A [LENGTH OF QUALIFIER IN CHARS 5FS6 8H%B [QUALIFIER 5G?Q %D [MASK TO BE OR-ED TO GPER2 5GRB %E [ GPER3 5H?2 %F� [ GPER4 5HQL #DEF 20?=%C+GCOMQU-23*30? 5J== #FID 20? 20? 1 [LEVEL ENTRY 5JPW #NOR 5J^N ...[??? QLOGIC SECT CENT FGN 11 DOC 5K9G # 5KP6 [ THIS MACRO SETS UP A TRUTH TABLE 5L8Q #MAC QLOGIC [%A IS OFFSET (LOWEST P IS P<OFFSET>);%B IS HIGHEST P 5LNB #DEF 20?=0 5M82 #DEF 19?+0=#25252525 [IE 0101010101010101 5MML #DEF 19?+1=#14631463 [IE 0011001100110011 5N7= #DEF 19?+2=#03607417 [IE 0000111100001111 5NLW #DEF 19?+3=#00177400 [IE 0000000011111111 5P6G #DEF 21?=%A 5PL6 #DEF 21?=%B-21?+1 5Q5Q +0 5QKB #FID 23-21? 23-21? 1 5R52 #TRA 0?-1 5RJL #REP 34?+0?+0]-1/16+1 [IE IF %B-%A < 4 , REPEAT ONCE ELSE 5S4= [ REPEAT 2 TO POWER (%B-%A-3) TIMES 5SHW QLOGIC1 %A,%B,%C,%D,%E,%F,%G,%H,%I,%J 5T3G #NOR 5T?# ...[??? QLOGIC1 SECT CENT FGN 11 DOC 5TH6 #MAC QLOGIC1 5W2Q #DEF 19?+4=20?&1<1*30? [ALTERNATES WITH EACH CALL 0,1,0,1,0,1,0,1,0 5WGB #DEF 19?+5=20?&2<1*30? [ 0,0,1,1,0,0,1,1,0 5X22 #DEF 19?+6=20?&4<1*30? [ 0,0,0,0,1,1,1,1,0 5XFL #DEF 19?+7=20?&8<1*30? [ 0,0,0,0,0,0,0,0,1 5X^= #DEF 21?=%A*30?+19? 5YDW #DEF PM4=21?-4] [AN INTERESTING EXAMPLE OF CALL BY NAME ! 5YYG #DEF PM3=21?-3] 5^D6 #DEF PM2=21?-2] 5^XQ #DEF PM1=21?-1] 62CB #DEF P0=21?+0] 62X2 #DEF P1=21?+1] 63BL #DEF P2=21?+2] 63W= #DEF P3=21?+3] 64*W #DEF P4=21?+4] 64TG #DEF P5=21?+5] 65*6 #DEF P6=21?+6] 65SQ #DEF P7=21?+7] 66#B +0 66S2 QLOGIC2 %C,%D,%E,%F,%G,%H,%I,%J 67?L #DEF 20?=20?+1 67R= #FRE PM4,PM3,PM2,PM1,P0,P1,P2,P3,P4,P5,P6,P7 68=W #NOR 68GN ...[??? QLOGIC2 SECT CENT FGN 11 DOC 68QG #MAC QLOGIC2 69=6 #STR %A 69PQ ( 6=9B #TRA 0?-1 6=P2 #DEF 21?=34?+0?+0] 6?8L +%A^21? [IE'OR'IN %A TO CURRENT WORD 6?N= QLOGIC2 %B,%C,%D,%E,%F,%G,%H 6#7W ) 6#MG #NOR 6#X# ...[??? LEGALLEV SECT CENT FGN 11 DOC 6*76 [ THIS MACRO CAUSES J TO %B IF AN ILLEGAL QUALIFIER LEVEL HAS OCCURED 6*LQ #MAC LEGALLEV 6B6B MOD LDX 0 GPER4,%A 6BL2 -1 6C5L MULTIFID -GCOMQU,-23,24,%C,%D,%E,%F,%G,%H,%I,%J 6CK= #TRA 0?-1 6D4W #SKI 34?+0?+0]�<1$1*GCOMQU [INCL IF ANYCOMMON SPECD & GCOMQU>0 6DJG #FID 24-GCOMQU 23 1 [SET COMMON BITS ZERO 6F46 #SKI 34?+0?+0]�<1$1 [INCL IF ANYNONCOM SPECD 6FHQ #FID 2 23-GCOMQU 1 [SET NON-COMMON BITS ZERO 6G3B #DEF 20?=34?+0?+0] 6GH2 ANDN 0 0 6H2L #FID 12 23 20? 6HG= BNZ 0 %B 6H^W #NOR 6JFG # 6J^6 [ THESE MACROS CONTROL THE ACCESS OF SWAPPED IN SUSPENDED OR DORMANT 6KDQ [ PROGRAM BLOCKS BY PROCESS CONTROLLER, STARTSTRAT MACRO, EXTRACOR, 6KYB [ GETWORD , CORE & GIVE/4 DECREASING SIZE , & DELETE. THEY ARE NULL IN 6LD2 [ GEORGE 4 6LMS ...[??? PROGAXES SECT CENT FGN 11 DOC 6LXL #SKI G3 6MC= ( 6MWW # 6NBG #MAC PROGAXES [ENTRY TO CRITICAL SEQUENCE 6NW6 LDBIT 15,0 6P*Q MOD ANDX 0 JCLASS,%A 6PTB BZE 0 MPROG 6Q*2 LDBIT 9,0 6QSL MOD ORS 0 JCLASS,%A 6R#= COOR3 AXESPROG 6RRW BRN %B 6S?G MPROG LDBIT 15,0 6SR6 MOD ORS 0 JCLASS,%A 6T=Q #NOR 6TQB ...) 76HL #SKI G4 773= ( 77GW #MAC PROGAXES 782G #NOR 783C ...) 784# ...[??? ENDPAXES SECT CENT FGN 11 DOC 7859 ...#SKI G3 7866 ...( 7873 ...# 787Y ...#MAC ENDPAXES [EXIT FROM CRITICAL SEQUENCE 788T ... NGN 0 #401 789Q ... MOD ANDS 0 JCLASS,%A 78=M ... LDBIT 9,0 78?J ... MOD ANDX 0 JCLASS,%A 78#F ... BZE 0 MENDP 78*B ... MOD ERS 0 JCLASS,%A 78B? ... FON AXESPROG 78C8 ...MENDP 78D5 ...#NOR 78F2 ...) 78G6 # 78M# ...#SKI G4 78SG ...( 78^Q #MAC ENDPAXES 79FB #NOR 79GF ...) 79HJ ...[??? TESTAXES SECT CENT FGN 11 DOC 79JM ...#SKI G3 79KQ ...( 79LT ...# 79MY ...#MAC TESTAXES [CHECKS IF PROGAXES WILL WAIT 79P3 ... LDBIT 15,0 79Q6 ... MOD ANDX 0 JCLASS,%A 79R9 ... BNZ 0 %B 79S# ...#NOR 79TC ...) 79WG ...#SKI G4 79XK ...( 79^2 # 7=DL #MAC TESTAXES 7=Y= #NOR 7?CW ...) 7?XG ...[??? FREZWAIT SECT CENT FGN 11 DOC 7#C6 # 7#WQ [ THIS MACRO SETS AN ACTIVITY WAITING FOR A FROZEN BLOCK TO BE UNLOCKED 7*BB [ OR THE NEXT SPRING CLEAN 7*W2 # 7B*L #MAC FREZWAIT 7BT= ON FREEZBIT 7C#W COOR3 FREZWAIT 7CSG #NOR 7D4# ...[??? FREZKICK SECT CENT FGN 11 DOC 7D#6 # 7DRQ [ THIS MACRO WAKES UP ACTIVITIES WAITING IN FREZWAIT 7F?B # 7FR2 #MAC FREZKICK 7G=L BSOFF FREEZBIT,MFREZ 7GQ= OFF FREEZBIT 7H9W FON FREZWAIT 7HPG MFREZ 7J96 #NOR 7JDY ...[??? NAMFREEW SECT CENT FGN 11 DOC 7JNQ # 7K8B [ THIS MACRO MUST BE USED TO RENAME BUFFER BLOCKS BSTB/BFREEW 7KN2 # 7L7L #MAC NAMFREEW 7LM= LDBIT 22,0 7M6W MOD ANDX 0 AFLAG,%A 7MLG BNZ 0 %B 7N66 LDX 0 BJFREEW 7NKQ NAMEX %A 7P5B #NOR 7P*8 ...[??? SWAP SECT CENT FGN 11 DOC 7PK2 # 7Q4L [ THIS MACRO INTERFACES BETWEEN STARTSTRAT (COREALLF) AND SWAP 7QJ= #MAC SWAP 7R3W ACROSS SWAP,1 7RHG #NOR ^^^^ ...742357520014