{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS FIXD)}}
====== MACROS FIXD ======
(George Source)
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 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);%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