{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: CHCHCOORMAC2)}}
====== CHCHCOORMAC2 ======
(George Source)
**Macros used:** [[george:macro:ICT|ICT]]
222K ...[??? ENVOKE SECT CENT FGN 36 DOC
2238 ...#
223R ...#MAC ENVOKE
224B ...#STR %B
224^ ...#STR
225J ... CALL 0 %A
2267 ...#STR %B
226Q ...(
227* ... LDN 0 JRETURN%B
227Y ... CALL %B %A
228H ...)
2296 ...#NOR
229S ...[??? ACROSS SECT CENT FGN 32 DOC
22FL #
22^= # RUTH PORTER
23DW #
23YG #MAC ACROSS
24D6 CALL 1 (CHAPK)
24XQ LINK %A,%B
25CB #NOR
25M8 ...[??? ACROSSVA SECT CENT FGN 32 DOC
25X2 #MAC ACROSSVAR
26BL LDN 1 %A
26W= BRN (CHAPK)
27*W #NOR
27KN ...[??? DOWNY SECT CENT FGN 32 DOC
27TG #
28*6 #MAC DOWNY
28SQ CALL 1 (CHAPDOWNK)
29#B #HAL %A,%B
29S2 #NOR
2=3S ...[??? ACROSSX SECT CENT FGN 32 DOC
2=?L #
2=R= #MAC ACROSSX
2?=W #SKI %A
2?QG LDX 0 %A
2#=6 SLL 0 12
2#PQ ORN 0 %B
2*9B LDN 1 0
2*P2 BRN (CHAPK)
2B8L #NOR
2BDD ...[??? MESCHAPS SECT CENT FGN 32 DOC
2BN= #
2C7W #MAC MESCHAPS
2CMG #SKI %A
2D76 (
2DLQ #OPT KMESSX=0?
2F6B #SKI KMESSX-0?
2FL2 ! KMESSX IS WRONG
2G5L +0
2GK= #DEF 20?=%A
2H4W MESCHAPS 0,A,B,C,D,E,F,G,H,I,J,A,B,C,D,E,F,G,H,I
2HJG #EXI
2J46 )
2JHQ CHAPENT MESS%B
2K3B #DEF 20?=20?-1
2KH2 #EXI 20?
2L2L #STR %C,J
2LG= MESCHAPS 0,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T
2L^W #STR %C,J
2MFG #SKI
2M^6 MESCHAPS 0,%DJ,%DA,%DB,%DC,%DD,%DE,%DF,%DG,%DH,%DI,J,%E,%F,%G,%H,-
2NDQ %I,%J,%K,%L
2NYB #NOR
2P88 ...[??? DOWN SECT CENT FGN 32 DOC
2PD2 #
2PXL #MAC DOWN [DOWN (FOR SUBROUTINE) CHAPTER CHANGE
2QC= CALL 1 (CHAPDOWNK)
2QWW PAIR %A,%B
2RBG #NOR
2RL# ...[??? DOWNC SECT CENT FGN 32 DOC
2RW6 #MAC DOWNC
2S*Q CALL 1 (CHAPDOWNK)
2STB +%A
2T*2 #NOR
2TJS ...[??? UP SECT CENT FGN 32 DOC
2TSL #MAC UP
2W#= CALL 0 (CHAPUPK)
2WRW #NOR
2X3N ...[??? UPPLUS SECT CENT FGN 32 DOC
2X?G #MAC UPPLUS [CHANGE UP AND SKIP SOME ORDERS:
2XR6 LDN 0 %A
2Y=Q BRN (CUPPLUS)
2YQB #NOR
2^28 ...[??? PAIR SECT CENT FGN 32 DOC
2^=2 #MAC PAIR
2^PL #HAL K%A,K%B%A
329= #NOR
32F4 ...[??? LINKSET SECT CENT FGN 32 DOC
32NW # MACROS TO ADJUST AND SET LINKS IN ACT POINTED TO BY %A
338G #MAC LINKSET
33N6 ACCSTO %B,ALINK1,%A
347Q #NOR
34CJ ...[??? ADJUSTLK SECT CENT FGN 32 DOC
34MB #
3572 #MAC ADJUSTLK
35LL MOD ADS 0 ALINK1,%A
366= #NOR
36B4 ...[??? SEGENTRY SECT CENT FGN 32 DOC
36KW #
3PM= #
3Q6W # MACRO TO SET UP ENTRY POINT
3QLG #
3R66 #MAC SEGENTRY
3R6K ...#SKI ADTP
3R74 ...(
3R7H ...#STR %B
3R8Y ...(
3R=* ...#UNS %A
3R?Q ...(
3R*7 ...#SKI (%A-0?)
3RBJ ...(
3RC^ ...!ENTRY POINT SHOULD NOT BE CHANGED
3RDM ...)
3RFB ...)
3RGR ...)
3RJ8 ...)
3RKQ #ALT %A=0?
3S5B #STR %B
3SK2 BRN %B
3T4L #NOR
3T#D ...[??? MENDAREA SECT CENT FGN 32 DOC
3TJ= #MAC MENDAREA
3W3W ...[
3WHG ...[ MACROS DEFINED AS NULL IN MK8.65
3X36 ...[
3XGQ #NOR
3XQJ ...[??? LINK SECT CENT FGN 32 DOC
3Y2B #
3YG2 #MAC LINK
3Y^L PAIR %A,%B
3^F= #NOR
45B= ...[??? SQOSS SECT CENT FGN 32 DOC
47SB
48#2 #MAC SQOSS [ PROCESS CORE OR DRUM LINK.
48RL LDX 2 FX2
49?= SQOSS2
49QW #NOR
4=2N ...[??? SQOSS2 SECT CENT FGN 32 DOC
4==G
4=Q6 #MAC SQOSS2
4?9Q SBX 0 FX1
4?PB DSA 0 ALINK1(2)
4#92 #NOR
4#DS ...[??? SQUMP2 SECT CENT FGN 32 DOC
4#NL
4*8= #MAC SQUMP2
4*MW STO 3 ACC3(2)
4B7G STO 4 ACC4(2) [DUMP ACCUMULATORS TO ACTIVITY BLOCK
4BM6 STO 5 ACC5(2) [POINTED TO BY X2
4C6Q STO 6 ACC6(2)
4CLB STO 7 ACC7(2)
4D62 #NOR
4D*S ...[??? SQUMP SECT CENT FGN 32 DOC
4DKL
4F5= #MAC SQUMP
4FJW LDX 2 FX2 [SET X2
4G4G SQUMP2 [DUMP ACCUMULATORS
4GJ6 #NOR
4GRY ...[??? SUNDUMP SECT CENT FGN 32 DOC
4H3Q
4HHB #MAC SUNDUMP [ UNDUMP X3 TO X7.
4J32 LDX 3 ACC3(2)
4JGL LDX 4 ACC4(2)
4K2= LDX 5 ACC5(2)
4KFW LDX 6 ACC6(2)
4K^G LDX 7 ACC7(2)
4LF6 #NOR
4LNY ...[??? FPUT SECT CENT FGN 32 DOC
4LYQ
5FS6 #MAC FPUT [ PUT AN ACTIVITY ON THE LIST.
5G?Q CALL 1 (FPUT)
5GRB #NOR
5H38 ...[??? FPUTX SECT CENT FGN 32 DOC
5H?2 # THIS MACRO PUTS ACT ON FRONT OF LIST : 2A IS A MODIFIER
5LP2 ...#UNS ICT
5LP# ...(
5LPL ...#MAC FPUTX
5LPY ...#STR %A,2
5LQ= ... LDX 2 %A
5LQJ ... JBS M1FPUTX,,ICTSW
5LQW ... ENRINGD CHAINADD(2),K3
5LR8 ... BRN M2FPUTX
5LR? ...M1FPUTX
5LRB ... LDX 0 ACRIT(2)
5LRF ... STO 2 GEN6 [KEEP AS FPUT O'WRITES
5LRJ ... STO 0 GEN5
5LRM ... STOZ ACRIT(2) [FIDDLE TO GMEL 0
5LRQ ... FPUT
5LRT ... LDX 0 GEN5
5LRY ... SMO GEN6
5LS3 ... STO 0 ACRIT [BACK TO NORMAL
5LS6 ...M2FPUTX
5LSD ...#NOR
5LSQ ...[??? COOR2P SECT CENT FGN DOC
5LT4 ...#MAC COOR2P
5LTB ... LDX 2 FX2
5LTN ... LDCH 0 ACRIT(2)
5LW2 ... SLL 0 12
5LW# ... ORS 0 ACRIT(2)
5LWL ... LDN 0 3
5LWY ... DCH 0 ACRIT(2)
5LX= ... COOR2 %A,%B
5LXJ ... LDX 0 ACRIT(2)
5LXW ... ANDX 0 HALFTOP
5LY8 ... ERS 0 ACRIT(2)
5LYG ... SLL 0 6
5LYS ... ORS 0 ACRIT(2)
5L^6 ...#NOR
5L^7 ...[??? FPUTPRI SECT CENT
5L^8 ...#MAC FPUTPRI
5L^9 ...#UNS ICTON
5L^= ...#SKI
5L^? ...(
5L^# ... FPUTX %A
5L^* ...#EXI
5L^B ...)
5L^C ...#UNS ICTON
5L^D ...(
5L^F ... JBS M1FPUTPRI,,ICTSW
5L^G ... FPUTX %A
5L^H ... BRN M2FPUTPRI
5L^J ...M1FPUTPRI MOD LDN 2 CHAINADD,%A
5L^K ... ENRING 2,ACTLIS
5L^L ...M2FPUTPRI
5L^M ...)
5L^N ...#NOR
5L^P ...[??? CHCHCOOR SECT CENT FGN DOC
5L^Q ...#MAC CHCHCOOR
5M24 ... LDN 3 K8
5M2B ... TXU 3 K8
5M2N ... TRANSFIX BCS,FLIST
5M32 ... LDN 3 K3
5M3# ... TXU 3 K3
5M3L ... TRANSFIX BCS,FLIST
5M3Y ... FIXTRA K90CHCH
5M4= ... LDX 1 FX2LAST
5M4J ...M1CHCHCOOR LDX 3 ACTLIS(1)
5M4W ... TXU 3 FPTR(3)
5M58 ... TRANSFIX BCS,FLIST
5M5G ... SBN 1 1
5M5S ... BPZ 1 M1CHCHCOOR
5M66 ...M2CHCHCOOR
5M6D ... LDX 2 FX2
5M6Q ...#NOR
5M74 ...)
5M82 ...[??? FON SECT CENT FGN 32 DOC
5MML #MAC FON
5N7= LDN 0 %A
5NLW #STR %B
5P6G CALL 1 (FON1)
5PL6 #STR %B
5Q5Q #SKI
5QKB CALL 1 (FON)
5R52 #NOR
5R#S ...[??? FOX SECT CENT FGN 32 DOC
5RJL #MAC FOX
5S4= LDEX 0 %A
5SHW CALL 1 (FON)
5T3G #NOR
5T?# ...[??? UNQUEUE SECT CENT FGN 32 DOC
5TH6 #MAC UNQUEUE
5W2Q LDN 0 0
5WGB DSA 0 ATYPE(2) [CLEAR WAITING STYLE
5X22 LDX 0 CHAINADD(2)
5XFL SMO BACKCHAN(2)
5X^= STO 0 0 [REMOVE THIS ACTIVITY FROM THE QUEUE
5YDW LDX 0 BACKCHAN(2) [OR LIST, WHICHEVER ITS ON
5YYG SMO CHAINADD(2)
5^D6 STO 0 1
5^XQ STOZ BACKCHAN(2) [NOT DOUBLY CHAINED
62CB #NOR
62M8 ...[??? FWAIT SECT CENT FGN 32 DOC
62X2
63BL #MAC FWAIT
63W= LDN 0 %A
64*W DSA 0 ATYPE(2) [SET WAITING STYLE
64TG LDN 1 FLOWQ
65*6 STO 1 CHAINADD(2)
65SQ LDX 1 AQEND [PUT ON
66#B STO 1 BACKCHAN(2) [END OF
66S2 ADN 2 CHAINADD [QUEUE
67?L STO 2 0(1)
67R= STO 2 AQEND
68=W LDX 2 FX2 [RESET X2
68QG LDX 1 FX1 [ AND X1
69=6 #NOR
69FY ...[??? COOR1X SECT CENT FGN 32 DOC
69PQ
6=9B
6=P2 #MAC COOR1X [ FOR INVARIACTS, SAME AS COOR1
6?8L #SKI %A
6?N= FON %A [WITHOUT DUMPING
6#7W CALL 0 (COOR1X)
6#MG #NOR
6#X# ...[??? COOR1Y SECT CENT FGN 32 DOC
6*76
6*LQ #MAC COOR1Y [SAME AS COOR1 WITHOUT ACCUM. DUMPING
6B6B #SKI %A
6BL2 FON %A
6C5L CALL 0 (COOR1Y)
6CK= #NOR
6CT4 ...[??? COOR1 SECT CENT FGN 32 DOC
6D4W #
6DJG #MAC COOR1 [ COORDINATOR ENTRY AT END OF
6F46 #SKI %A
6FHQ FON %A [ACTIVITY
6G3B ... ENVOKE (COOR1),%B
6GH2 #NOR
6GQS ...[??? COOR2 SECT CENT FGN 32 DOC
6H2L
6HG= #MAC COOR2 [ ENTRY AT END OF TIME QUOTA.
6H^W #SKI %A
6JFG FON %A
6J^6 ... ENVOKE (COOR2),%B
6KDQ #NOR
6KNJ ...[??? LONGCLEA SECT CENT FGN 32 DOC
6KYB # THIS MACRO PUTS A SPECIFIED ACTIVITY IN A CONG WAIT ON THE LIST
6LD2 #
6LXL #MAC LONGCLEAR
6MC= #STR %A,2
6MWW LDX 2 %A
6NBG LDEX 0 CLONG1(2)
6NW6 SBN 0 %B
6P*Q BNZ 0 %C
6PTB DSA 0 CLONG1(2)
6Q*2 LDEX 0 ATYPE(2)
6QSL BZE 0 M1LONGCLEAR
6R#= UNQUEUE
6RRW FPUT
6S?G M1LONGCLEAR
6SR6 LDX 1 FX1
6T=Q LDX 2 FX2
6TQB #NOR
6W28 ...[??? LONGON SECT CENT FGN 32 DOC
6W=2
6WPL #
6X9= #
6XNW #
6Y8G #MAC LONGON
6YN6 #STR %B
6^7Q LDX 0 %B
6^MB #STR %B
7272 #SKI
72LL LDN 0 0
736= LDN 2 %A
73KW CALL 1 (FLONGON)
745G #NOR
7C7L ...[??? FON1 SECT CENT FGN 32 DOC
7C#W # THIS MACRO CHECKS ACTS WAITING FOR TIME ON 4 SEC INTERRUPT
7CSG # USES CLONG3 AND ONLY AWAKENS THOSE WHOSE TIME IS UP
7D#6 #MAC FON1
7DRQ LDX 1 FLOWQ
7F?B M1FON1 LDX 2 1
7FR2 SBN 2 FLOWQ
7G=L BZE 2 M2FON1
7GQ= LDX 1 0(1)
7H9W STO 1 GEN6
7HPG ADN 2 FLOWQ-CHAINADD
7J96 LDN 0 #4000
7JNQ ANDX 0 ATYPE(2)
7K8B BZE 0 M1FON1
7KN2 LDX 0 CLONG3(2)
7L7L BZE 0 M3FON1
7LM= BCT 0 M4FON1
7LX4 ... STO 0 CLONG3(2)
7M6W M3FON1 UNQUEUE
7MLG FPUT
7N66 LDX 1 GEN6
7NKQ BRN M1FON1
7P5B M4FON1 STO 0 CLONG3(2)
7PK2 BRN M1FON1
7Q4L M2FON1 LDX 1 FX1
7QJ= LDX 2 FX2
7R3W #NOR
7R6F ...[??? LONGHALT SECT CENT FGN 32 DOC
82B= ...#SKI JWPHASE4
82TW ...(
GFSL ...#MAC LONGHALT
GG#= ...#STR %C
GGRW ...#SKI
GH?G ...(
GHR6 ... SMO FX2
GJ=Q ... STOZ CLONG3
GJQB ...)
GK=2 ...#STR %C
GKPL ... ACCSTO %C,CLONG3,FX2
GL9= ... LDN 1 #6000+%B
GLNW ... CALL 0 (COOR3LW2)
GM8G ... BRN %A
GMN6 ...#NOR
GMR6 ...)
GMW6 ...[??? LONGWAIT SECT CENT FGN 32 DOC
GQK6 ...#SKI JWPHASE4
GQN6 ...(
GQR6 ...#MAC LONGWAIT
GQW6 ...#STR %C
GQ^6 ... MONOUT %C
GR46 ...%D
GR76 ...#STR %E
GR=6 ...#SKI
GR*6 ...(
GRD6 ... SMO FX2
GRH6 ... STOZ CLONG3
GRL6 ... LDN 1 #6000+%B-(#62$%B<1*#4000)
GRP6 ...)
GRS6 ...#STR %E
GRX6 ...(
GS26 ... ACCSTO %E,CLONG3,FX2
GS56 ... LDN 1 #6000+%B
GS86 ...)
GS?6 ... CALL 0 (COOR3LW2)
GSB6 ... BRN %A
GSF6 ...#NOR
GSJ6 ...)
GW46 ...[??? COOR3 SECT CENT FGN 32 DOC
GW76 ...#MAC COOR3
GW=6 ...#SKI #62$%A
GW*6 ... LDN 1 %A
GWD6 ...#SKI #62$%A
GWH6 ...#SKI
GWL6 ...(
GWP6 ... SMO FX2
GWS6 ... STOZ CLONG3
GWX6 ... LDN 1 #4000+%A
GX26 ...)
GX56 ... ENVOKE (COOR3),%B
GX86 ...#NOR
GX?6 ...[??? COOR3X SECT CENT FGN 32 DOC
GXB6 ...#MAC COOR3X
GXF6 ...#SKI #62$%A
GXJ6 ... LDN 1 %A
GXM6 ...#SKI #62$%A
GXQ6 ...#SKI
GXT6 ...(
GXY6 ... SMO FX2
GY36 ... STOZ CLONG3
GY66 ... LDN 1 #4000+%A
GY96 ...)
GY#6 ... CALL 0 (COOR3X)
GYC6 ...#NOR
GYG6 ...[??? COOR3Y SECT CENT FGN 32 DOC
GYK6 ...#MAC COOR3Y
GYN6 ...#SKI #62$%A
GYR6 ... LDN 1 %A
GYW6 ...#SKI #62$%A
GY^6 ...#SKI
G^46 ...(
G^76 ... SMO FX2
G^=6 ... STOZ CLONG3
G^*6 ... LDN 1 #4000+%A
G^D6 ...)
G^H6 ... CALL 0 (COOR3Y)
G^L6 ...#NOR
G^P6 ...[??? COOR4 SECT CENT FGN 32 DOC
G^S6 ...#MAC COOR4
G^X6 ... SMO FX2
H226 ... STOZ CLONG3
H256 ... LDN 1 #4000+%A
H286 ... ENVOKE (COOR3),%B
H2?6 ...#NOR
H2B6 ...[??? COOR4X SECT CENT FGN 32 DOC
H2F6 ...#MAC COOR4X
H2J6 ... SMO FX2
H2M6 ... STOZ CLONG3
H2Q6 ... LDN 1 #4000+%A
H2T6 ... CALL 0 (COOR3X)
H2Y6 ...#NOR
H336 ...[??? COOR4Y SECT CENT FGN 32 DOC
H366 ...#MAC COOR4Y
H396 ... SMO FX2
H3#6 ... STOZ CLONG3
H3C6 ... LDN 1 #4000+%A
H3G6 ... CALL 0 (COOR3Y)
H3K6 ...#NOR
H3N6 ...[??? LONGSTOP SECT CENT FGN 32 DOC
H6^6 ...#SKI JWPHASE4
H746 ...(
H776 ...# HERE FOLLOWS THE JOBWELL PHASE 4 VERSIONS OF THE LONG... MACROS
H7=6 ...#
H7*6 ...#MAC LONGSTOP
H7D6 ...#STR %C
H7H6 ... MONOUT %C
H7L6 ...%D
H7P6 ...#STR %E
H7S6 ...#SKI
H7X6 ...(
H826 ... SMO FX2
H856 ... STOZ CLONG3
H886 ...)
H8?6 ...#STR %E
H8B6 ... ACCSTO %E,CLONG3,FX2
H8F6 ...MWATE
H8J6 ...#STR %B%E
H8M6 ... LDN 1 #6000
H8Q6 ...#STR %B%E
H8T6 ...#SKI
H8Y6 ... LDN 1 #2000
H936 ... CALL 0 (COOR3LW1)
H966 ... BRN %A
H996 ...#STR %B
H9#6 ... BRN %B
H9C6 ...#STR %B
H9G6 ...#SKI
H9K6 ... BRN MWATE
H9N6 ...#NOR
H9R6 ...)
H9W6 ...[??? LONGSTOX SECT CENT FGN 32 DOC
H9^6 ...#MAC LONGSTOX
H=46 ...#STR %C
H=76 ... MONOUTX %C
H==6 ...%D LONGSTOP %A,%B
H=*6 ...#NOR
H=D6 ...[??? LONGSET SECT CENT FGN 32 DOC
H=H6 ...#MAC LONGSET
H=L6 ...#STR %D
H=P6 ...(
H=S6 ...#STR %D,2
H=X6 ... LDX 2 %D
H?26 ...)
H?56 ...#STR %D
H?86 ...#SKI
H??6 ... LDX 2 FX2
H?B6 ... LDEX 0 CLONG1(2)
H?F6 ... BNZ 0 %B
H?J6 ... LDN 0 %A
H?M6 ... DEX 0 CLONG1(2)
H?Q6 ...#STR %C
H?T6 ... ACCSTO %C,CLONG2(2)
H?Y6 ...#STR %C
H#36 ...#SKI
H#66 ... STOZ CLONG2(2)
H#96 ... LDX 1 FX1
H##6 ...#STR %D
H#C6 ... LDX 2 FX2
H#G6 ...#NOR
H#K6 ...[??? LONGOFF SECT CENT FGN 32 DOC
HBB6 ...#SKI JWPHASE4
HBF6 ...(
HBLG ...#MAC LONGOFF
HC66 ...#STR %A
HCKQ ...(
HD5B ...#STR %A,2
HDK2 ... LDX 2 %A
HF4L ...)
HFJ= ...#STR %A
HG3W ...#SKI
HGHG ... LDX 2 FX2
HH36 ... CALL 0 (CLONGOFF)
HHGQ ...#NOR
HJ2B ...#
HJG2 ...)
HJ^L ...[??? CHTEND SECT CENT FGN 32 DOC
HKF= ...#
HKYW ...#
HLDG ...#
HLY6 ...# THIS IS A RECURSIVE MACRO WHICH STEPS THROUGH THE CHAPTER TABLE GAP
HMCQ ...# AREA UNTIL IF FINDS AN ENTRY CONTAINING -1 (FREE) WHICH IT USES
HMXB ...# -1 IS USED RATHER THAN ZERO AS A FORWARD REF WILL INITIALLY GENERATE 0
HNC2 ...#
HNWL ...#MAC CHTEND
HPB= ...#SKI 34?+0?+M+0]+1
HPTW ...(
HQ*G ...#DEF 0?=0?+1
HQT6 ... CHTEND
HR#Q ...)
HRSB ...#NOR
HS#2 ...[??? FINDLINK SECT CENT FGN 32 DOC
HSRL ...#
HT?= ...#
HTQW ...#
HW=G ...#MAC FINDLINK
HWQ6 ...#STR %B
HX9Q ...#SKI
HXPB ...(
HY92 ... SMO FX2
HYNL ... LDX %A ALINKRING
H^8= ...)
H^MW ...#STR %B
J27G ... MOD LDX %A ALINKRING,%B
J2M6 ... SBN %A BLINKRING+ACC3-A1+ALINK
J36Q ... ADX %A ALOGLEN+ACC3-A1+ALINK(%A)
J3LB ...#NOR
J462 ...[??? FREELINK SECT CENT FGN 32 DOC
J4KL ...#
J55= ...#MAC FREELINK
J5JW ...#STR %A
J64G ... LDX 2 %A
J6J6 ...#STR %A
J73Q ...#SKI
J7HB ... LDX 2 FX2
J832 ... LDX 1 ALINKRING(2)
J8GL ... SBN 1 BLINKRING
J92= ... LDN 0 ALINK
J9FW ... SBS 0 ALOGLEN(1)
J9^G ... LDX 1 FX1
J=F6 ...#STR %A
J=YQ ... LDX 2 FX2
J?DB ...#NOR
J?Y2 ...[??? CHANGEUP SECT CENT FGN 32 DOC
J#CL ...#
J#X= ...#
J*BW ...#MAC CHANGEUP
J*WG ... LDX 2 %A [ADDRESS OF NEW ACTIVITY BLOCK
JBB6 ... FINDLINK 1 [FIND LINK OF CURRENT ACTIVITY
JBTQ ...#STR %B
JC*B ...(
JCT2 ... LDN 0 %B
JD#L ... ADJUSTLK 1
JDS= ...)
JF?W ... LDN 4 ACC3(1)
JFRG ... LDN 5 ACC3(2)
JG?6 ... MOVE 4 ALINK [MOVE LINK TO NEW ACTIVITY
JGQQ ... FPUT [PUT NEW ACTIVITY ON ACTIVITY LIST
JH=B ... FREELINK [FREE LINK IN CURRENT ACTIVITY
JHQ2 ... COOR1X [TERMINATE CURRENT ACTIVITY
JJ9L ...#NOR
JJP= ...[??? FREELNKS SECT CENT FGN 32 DOC
JK8W ...# THIS MACRO PRESS %B LINKS BELONGING TO ACTIVITY POINTED TO BY %A,
JKNG ...# DEFAULT FOR %A, FX2
JL86 ...#MAC FREELNKS
JLMQ ...#STR %A
JM7B ...#SKI
JMM2 ... LDX 2 FX2
JN6L ...#STR %A
JNL= ...(
JP5W ...#STR %A,2
JPKG ... LDX 2 %A
JQ56 ...)
JQJQ ... LDX 2 ALINKRING(2)
JR4B ... SBN 2 BLINKRING
JRJ2 ... LDN 0 ALINK
JS3L ... MPY 0 %B
JSH= ... SBS 1 ALOGLEN(2)
JT2W ... LDX 1 FX1
JTGG ... LDX 2 FX2
JW26 ...#NOR
JWFQ ...[??? PUSHLINK SECT CENT FGN 32 DOC
JW^B ...#
JXF2 ...# MACRO TO PUSH DOWN LINK AND SET FIXED CORE LINK
JXYL ...#
JYD= ...#MAC PUSHLINK
JYXW ... LDX 2 FX2
J^CG ... LDX 0 ALINK1(2)
J^X6 ... STO 0 ACOMMUNE9(2)
K2BQ ... ACCSTO %A,ALINK1(2)
K2WB ...#NOR
K3B2 ...[??? PULLINK SECT CENT FGN 32 DOC
K3TL ...#
K4*= ...# MACRO TO RESTORE LINK SAVED BY PUSHLINK
K4SW ...#
K5#G ...#MAC PULLINK
K5S6 ... LDX 2 FX2
K6?Q ... LDX 0 ACOMMUNE9(2)
K6RB ... STO 0 ALINK1(2)
K7?2 ...#NOR
K7QL ...[??? CHANGEAC SECT CENT FGN 32 DOC
K8== ...#
K8PW ...# MACRO TO CHANGE TO ACTIVITY SPECIFIED AS %A
K99G ...#
K9P6 ...#MAC CHANGEACT
K=8Q ...#STR %A,2
K=NB ... LDX 2 %A
K?82 ... LDX 1 FX2
K?ML ... STO 2 FX2
K#7= ... LDX 1 ALINK1(1)
K#LW ... STO 1 ALINK1(2)
K*6G ... LDX 1 FX1
K*L6 ...#NOR
KB5Q ...[??? MURDER SECT CENT FGN 32 DOC
KBKB ...#
KC52 ...# THIS MACRO MURDERS THE ACTIVITY POINTED TO BY %A WHICH MUST BE AN ACC
KCJL ...#MAC MURDER
KD4= ... SMO FX2
KDHW ... STO %A EXEC1
KF3G ... DOWN SUICIDE,2
KFH6 ...#NOR
KG2Q ...[??? LONGCOOR SECT CENT FGN 32 DOC
L7G= ...#SKI JWPHASE4
L7^W ...(
L8FG ...#MAC LONGCOOR
L8^6 ...#STR %B
L9DQ ...#SKI
L9YB ...(
L=D2 ... SMO FX2
L=XL ... STOZ CLONG3
L?C= ...)
L?WW ...#STR %B
L#BG ... ACCSTO %B,CLONG3,FX2
L#W6 ...MWATE
L**Q ...#STR %A%B
L*TB ... LDN 1 #4000
LB*2 ...#STR %A%B
LBSL ...#SKI
LC#= ... LDN 1 0
LCRW ... CALL 0 (COOR3LW4)
LD?G ... BRN (GEOERR)
LDR6 ...#STR %A
LF=Q ... BRN %A
LFQB ...#STR %A
LG=2 ...#SKI
LGPL ... BRN MWATE
LH9= ...#NOR
LHNW ...)
LJ8G ...[??? LONGON1 SECT CENT FGN 32 DOC
LJN6 ...#
LK7Q ...# THIS MACRO IS LIKE LONGON BUT ONLY WAKES UP ACTIVITIES WITH
LKMB ...# A MATCHING CLONG2
LL72 ...#MAC LONGON1
LLLL ...#STR %B
LM6= ...#SKI
LMKW ... LDN 0 0
LN5G ...#STR %B
LNK6 ... LDX 0 %B
LP4Q ... LDN 2 %A
LPJB ... CALL 1 (FLONGON1)
LQ42 ...#NOR
LQHL ...[??? LONGONAL SECT CENT FGN 32 DOC
LR3= ...#
LRGW ...# THIS MACROS IS LIKE LONGON BUT WAKES UP ALL ACTS IN SPECIFIED
LS2G ...# STYLE REGARDLESS OF THE SUBSIDIARY INFO THEY SPECIFIED. THIS IS
LSG6 ...# EXTREMELY DANGEROUS BUT IS REQUIRED FOR CERTAIN SPECIALISED
LS^Q ...# FILESTORE FUNCTIONS.
LTFB ...#
LT^2 ...#MAC LONGONALL
LWDL ... LDN 2 BACT+ACTRING
LWY= ... LDN 0 %A
LXCW ...M1LONGONALL
LXXG ... LDX 2 0(2)
LYC6 ... BXE 2 BACTR,M2LONGONALL
LYWQ ... BXU 0 CLONG1-ACTRING(2),M1LONGONALL
L^BB ... ERS 0 CLONG1-ACTRING(2)
L^W2 ... BRN M1LONGONALL
M2*L ...M2LONGONALL
M2T= ... FON %A
M3#W ...#NOR
N9X= ...[??? SUSPEND SECT CENT FGN 32 DOC
N=BW ...# MACROS USING FAMOUS GBN METHOD OF SETTING CHAINADD -VE FOR
N=WG ...# INTERLOCKS WHEN SUSPENDING AND DESUSPENDING
N?B6 ...#MAC SUSPEND
N?TQ ... LDX 0 GSIGN
N#*B ... ADN 0 1
N#T2 ... SMO FX2
N*#L ... STO 0 CHAINADD
N*S= ... COOR1
NB?W ...#NOR
NBRG ...[??? DESUSPEN SECT CENT FGN 32 DOC
NC?6 ...#MAC DESUSPEND
NCQQ ... NGNC 0 1
ND=B ... ANDS 0 CHAINADD(2)
NDQ2 ... LDX 0 CHAINADD(2)
NF9L ... SBN 0 1
NFP= ... BNZ 0 MDESUSPEND
NG8W ... FPUT
NGNG ...MDESUSPEND
NH86 ... LDX 1 FX1
NHMQ ... LDX 2 FX2
NJ7B ...#NOR
NJM2 ...[??? FLONGWAI SECT CENT FGN 32 DOC
NK6L ...#MAC FLONGWAIT
NKL= ... FWAIT #2000+%A
NL5W ...#NOR
NLKG ...[??? CHECKCHP SECT CENT FGN 32 DOC
NM56 ...# MACRO TO CHECKSUM CHAPTERS AT SPECIFIED INTERVALS
NMJQ ...#MAC CHECKCHP
NN4B ...#STR %A,READ
NNJ2 ...(
NP3L ...#STR %A,SC
NPH= ...(
NQ2W ...#STR %A,CHCH
NQGG ...! %A MUST BE READ,SC OR CHCH !
NR26 ...)
NRFQ ...)
NR^B ...#STR %A,READ
NSF2 ...(
NSYL ... FCMENDV
NTD= ... FIXTRA FCCHSUM1
NTXW ... +0
NWCG ... FCENDV
NWX6 ... FCMEND
NXBQ ... FIXTRA FCCHSUM
NXWB ... +FCCHSUM+1
NYB2 ... STO 0 FCCHSUM1
NYTL ... BSON EMSBIT,(FCCHSUM1)
N^*= ... LDN 1 BCHAP
N^SW ...X LDX 1 FPTR(1)
P2#G ... TXU 1 CXCH
P2S6 ... BCC XEND
P3?Q ... LDX 2 ALOGLEN(1)
P3RB ...#SKI 76?-2<1$1
P4?2 ...(
P4QL ... LDX 0 BACK2(1)
P5== ... SLL 0 11
P5PW ... SRL 0 4
P69G ... NGS 0 GEN6
P6P6 ...)
P78Q ...#SKI 76?-2
P7NB ... STOZ GEN6
P882 ... STO 1 GEN5
P8ML ... ADN 1 A1
P97= ... TXL 2 B513
P9LW ... BCS ONE
P=6G ... SUM 0 512
P=L6 ... ADS 0 GEN6
P?5Q ... ADN 1 512
P?KB ...ONE SUM 0 0(2)
P#52 ...Y ADX 0 GEN6
P#JL ... BZE 0 OK
P*4= ... GEOERR 1,CHAPCKSM
P*HW ...OK LDX 1 GEN5
PB3G ... BRN X
PBH6 ...XEND LDX 1 FX1
PC2Q ... LDX 2 FX2
PCGB ... BRN (FCCHSUM1)
PD22 ... FCEND
PDFL ...)
PD^= ...#STR %A,CHCH
PFDW ...#SKI
PFYG ...(
PGD6 ... CXMEND
PGXQ ... CALL 0 (FCCHSUM)
PHCB ... CXEND
PHX2 ...)
PJBL ...#STR %A,SC
PJW= ...#SKI
PK*W ...(
PKTG ...#MEN CHARGESC
PL*6 ...#TRA K90CHARGESC
PLSQ ... CALL 0 (FCCHSUM)
PM#B ...#END
PMS2 ...)
PN?L ...#STR %A,READ
PNR= ...#SKI
PP=W ...(
PPQG ... FCMEND
PQ=6 ... FIXTRA FCHEC
PQPQ ... LDX 1 4
PR9B ... LDN 5 A1(1)
PRP2 ... LDX 0 ALOGLEN(1)
PS8L ...#SKI 76?-2<1$1
PSN= ...(
PT7W ... SMO 4
PTMG ... LDX 1 BACK2
PW76 ... SLL 1 11
PWLQ ... SRL 1 4
PX6B ...)
PXL2 ...#SKI 76?-2
PY5L ... LDN 1 0
PYK= ... TXL 0 B513
P^4W ... BCS XONE
P^JG ... SUM 4 0
Q246 ... SBX 1 4
Q2HQ ... SBN 0 512
Q33B ... ADN 5 512
Q3H2 ...XONE SMO 0
Q42L ... SUM 4 0
Q4G= ... SBX 1 4
Q4^W ... BZE 1 BSCHAPCK+1
Q5FG ... GEOERR 1,CHAPCKSM
Q5^6 ... FCEND
Q6DQ ...#MEN BSTS
Q6YB ...#TRA BSCHAPCK
Q7D2 ... BRN FCHEC
Q7XL ...#END
Q8C= ...)
Q8WW ...#NOR
Q9BG ...[??? CHCHDELA SECT CENT FGN 32 DOC
Q9W6 ...# MACRO TO DELAY UNTIL SPEC CHAPTER,AT SPEC ENTRY PT ENTERED (COMMAN
Q=*Q ...# MUST BE USED AFTER CHECKCHP CHCH OR SC
Q=TB ...#MAC CHCHDELAY
Q?*2 ...#MEN %A
Q?SL ...#TRA K%B%A
Q##= ... ON CHCHSW
Q#RW ... ENDCOM
Q*?G ...#END
Q*R6 ...#MEN CEND
QB=Q ...#TRA FCCH+1
QBQB ... BSOFF CHCHSW,(FCCHSUM1)
QC=2 ...#END
QCPL ...#NOR
RFCQ ...[??? LONGTARR SECT CENT FGN 32 DOC
RFXB ...#
S32= ...#SKI JWPHASE4
S3FW ...(
S3^G ...#MAC LONGTARRY
S4F6 ...#STR %C
S4YQ ...#SKI
S5DB ...(
S5Y2 ... SMO FX2
S6CL ... STOZ CLONG3
S6X= ...)
S7BW ...#STR %C
S7WG ... ACCSTO %C,CLONG3,FX2
S8B6 ...MWATE
S8TQ ...#STR %B%C
S9*B ... LDN 1 #6000
S9T2 ...#STR %B%C
S=#L ...#SKI
S=S= ... LDN 1 #2000
S??W ... CALL 0 (COOR3LW3)
S?RG ... BRN %A
S#?6 ...#STR %B
S#QQ ... BRN %B
S*=B ...#STR %B
S*Q2 ...#SKI
SB9L ... BRN MWATE
SBP= ...#NOR
SC8W ...)
SCNG ...[ MACROS FOR 2960 DME DUAL PROCESSOR ENHANCEMENT
SD86 ...[ ==============================================
SDMQ ...[
SF7B ...[??? UNTRUST SECT CENT FGN 1 DOC
SFM2 ...[
SG6L ...[??? ENTRUST SECT CENT FGN 1 DOC
SGL= ...[
SH5W ...[??? CONCURR SECT CENT FGN 1 DOC
SHKG ...[
SJ56 ...[??? FBIDEXEC SECT FGN 1 DOC
SJJQ ...[
SK4B ...[
SKJ2 ...[
SL3L ...[
SLH= ...[??? UNTRUST SECT CENT FGN 1 DOC
SM2W ...#MAC UNTRUST
SMGG ... MODE #50 [ ALLOW G3 TO RUN AT SAME TIME AS EXEC
SN26 ...#NOR
SNFQ ...[??? ENTRUST SECT CENT FGN 1 DOC
SN^B ...#MAC ENTRUST
SPF2 ...#STR %A
SPYL ...(
SQD= ... MODE #70 [ STOP G3 & EXEC AT SAME TIME REPLY IN
SQXW ... BNG 0 %A [ JIF REPLY IS OK
SRCG ... BRN %B [ ELSE JIF EXEC IS RUNNING
SRX6 ...)
SSBQ ...#STR %A
SSWB ...#SKI
STB2 ... MODE #60 [ STOP G3 IF EXEC RUNNING ELSE MAKE TR
STTL ...#NOR
SW*= ...#
SWSW ...#
SX#G ...[??? CONCURR SECT CENT FGN 1 DOC
SXS6 ...#MAC CONCURR
SY?Q ...#STR OFF,%A
SYRB ...(
S^?2 ...#UNS ICTON
S^QL ...(
T2== ...#MEN COOR
T2PW ...#TRA CURFIXASF1
T39G ... LDX 0 FBIDMEM
T3P6 ... BPZ 0 CURFIXASF2
T48Q ...#TRA CURFIXASF
T4NB ... LDX 0 2
T582 ...#END
T5ML ...)
T67= ...#MEN CHCH
T6LW ...#TRA CURFIX1
T76G ... BRN CURFIX2
T7L6 ...#END
T85Q ...#
T8KB ...#
T952 ... FBIDEXEC ANTIC
T9JL ... FBIDEXEC BEXTRA
T=4= ... FBIDEXEC BCAST
T=HW ... FBIDEXEC CAFSINFO
T?3G ... FBIDEXEC CAFSPERI
T?H6 ... FBIDEXEC CARTCONT
T#2Q ... FBIDEXEC CDUM
T#GB ... FBIDEXEC CHARGESC
T*22 ... FBIDEXEC CIMOP
T*FL ... FBIDEXEC CLOSBAC
T*^= ... FBIDEXEC CMEMILL
TBDW ... FBIDEXEC CONIPB
TBYG ... FBIDEXEC CONMXA
TCD6 ... FBIDEXEC CONMXB
TCXQ ... FBIDEXEC CONMXC
TDCB ... FBIDEXEC CORESHED
TDX2 ... FBIDEXEC CPOBJ
TFBL ... FBIDEXEC CROBJ
TFW= ... FBIDEXEC DATECON
TG*W ... FBIDEXEC DROBJ
TGTG ... FBIDEXEC DRSTART
TH*6 ... FBIDEXEC DRUM
THSQ ... FBIDEXEC EDOBJ
TJ#B ... FBIDEXEC EDSTART
TJS2 ... FBIDEXEC EMSENG
TK?L ... FBIDEXEC EVENTS
TKR= ... FBIDEXEC EXINONE
TL=W ... FBIDEXEC EXTEND
TLQG ... FBIDEXEC FHOBJ
TM=6 ... FBIDEXEC FHLIST
TMPQ ... FBIDEXEC FHOBJBL
TN9B ... FBIDEXEC FLAW
TNP2 ... FBIDEXEC FREEPER
TP8L ... FBIDEXEC FSHTRANB
TPN= ... FBIDEXEC FSHTRAND
TQ7W ... FBIDEXEC GIVE
TQMG ... FBIDEXEC GIVEA
TR76 ... FBIDEXEC HLSREAD
TRLQ ... FBIDEXEC HOLDCOM
TS6B ... FBIDEXEC IPBSTART
TSL2 ... FBIDEXEC IPCEN
TT5L ... FBIDEXEC IPCON
TTK= ... FBIDEXEC IPCONA
TW4W ... FBIDEXEC IPCONB
TWJG ... FBIDEXEC IPCONC
TX46 ... FBIDEXEC IPCOND
TXHQ ... FBIDEXEC IPCONE
TY3B ... FBIDEXEC IPCONG
TYH2 ... FBIDEXEC IPCOPENB
T^2L ... FBIDEXEC IPCPERI
T^G= ... FBIDEXEC IPCSTART
T^^W ... FBIDEXEC LIBLOAD
W2FG ... FBIDEXEC LIBREQ
W2^6 ... FBIDEXEC LOADPROG
W3DQ ... FBIDEXEC LPOBJ
W3YB ... FBIDEXEC LPTWO
W4D2 ... FBIDEXEC MODE
W4XL ... FBIDEXEC MODEA
W5C= ... FBIDEXEC MONEVENT
W5WW ... FBIDEXEC MOPCOM
W6BG ... FBIDEXEC MOPCOMB
W6W6 ... FBIDEXEC MOVCART
W7*Q ... FBIDEXEC MOVCASH
W7TB ... FBIDEXEC MTOBJ
W8*2 ... FBIDEXEC OLMTD
W8SL ... FBIDEXEC ONLINEC
W9#= ... FBIDEXEC OPCA
W9RW ... FBIDEXEC PERFAIL
W=?G ... FBIDEXEC PERFCHAP
W=R6 ... FBIDEXEC PERION
W?=Q ... FBIDEXEC PLUGIN
W?QB ... FBIDEXEC PROCONTX
W#=2 ... FBIDEXEC PROSTART
W#PL ... FBIDEXEC PUTPER
W*9= ... FBIDEXEC READSPEC
W*NW ... FBIDEXEC REALTIME
WB8G ... FBIDEXEC RELIEF
WBN6 ... FBIDEXEC RELPER
WC7Q ... FBIDEXEC RENAMEX
WCMB ... FBIDEXEC REQESLIP
WD72 ... FBIDEXEC RIGHT
WDLL ... FBIDEXEC RUNPROG
WF6= ... FBIDEXEC SCHDJOBA
WFKW ... FBIDEXEC SCHEDJOB
WG5G ... FBIDEXEC SCHEDOUT
WGK6 ... FBIDEXEC SETUP
WH4Q ... FBIDEXEC SETUPA
WHJB ... FBIDEXEC SHARE
WJ42 ... FBIDEXEC SIMULPTR
WJHL ... FBIDEXEC SPERION
WK3= ... FBIDEXEC SWITCH
WKGW ... FBIDEXEC TAPEWAIT
WL2G ... FBIDEXEC TPINS
WLG6 ... FBIDEXEC TPOBJ
WL^Q ... FBIDEXEC TROBJ
WMFB ... FBIDEXEC TWINSET
WM^2 ... FBIDEXEC UNLOADMT
WNDL ... FBIDEXEC UNPLUG
WNY= ... FBIDEXEC VIPBPERI
WPCW ...)
WPXG ...#STR OFF,%A
WQC6 ...#SKI
WQWQ ...(
WRBB ...#UNS ICTON
WRW2 ...(
WS*L ...#MEN COOR
WST= ...#TRA CURFIXASF1
WT#W ... NULL
WTSG ... NULL
WW#6 ...#TRA CURFIXASF
WWRQ ... LDX 0 FX2LAST
WX?B ...#END
WXR2 ...)
WY=L ...#MEN CHCH
WYQ= ...#TRA CURFIX1
W^9W ... LDN 1 A1(1)
W^PG ...#END
X296 ...#
X2NQ ... FBIDEXEC *OFF
X38B ...#
X3N2 ...)
X47L ...#NOR
X4M= ...#
X56W ...[??? FBIDEXEC SECT FGN 1 DOC
X5LG ...#MAC FBIDEXEC
X666 ...#STR *ON,%A
X6KQ ...(
X75B ...#STR *OFF,%A
X7K2 ...(
X84L ...#UNS K%A
X8J= ...(
X93W ...#MEN SETUP
X9HG ...#TRA K80SETUP
X=36 ...#DEF 20?=34?+0?+0]�
X=GQ ...#SKI 20?
X?2B ...(
X?G2 ...#REP (AENDCHAPS-KTAB)/24+1
X?^L ... +0
X#F= ...)
X#YW ...#DEF 20?=K%A/24
X*DG ...#DEF 21?=K%A-(20?*24)
X*Y6 ...#TRA K80SETUP+20?+1
XBCQ ...#FID 21?,21?,1
XBXB ...#END
XCC2 ...)
XCWL ...#UNS K%A
XDB= ...#SKI
XDTW ...! SEGMENT %A NOT KNOWN !!!
XF*G ...)
XFT6 ...)
XG#Q ...#STR *OFF,%A
XGSB ...#SKI
XH#2 ...(
XHRL ...#MEN SETUP
XJ?= ...#TRA K80SETUP
XJQW ...#REP (AENDCHAPS-KTAB)/24+1
XK=G ... +0
XKQ6 ...#END
XL9Q ...)
XLPB ...#STR *ON,%A
XM92 ...#SKI
XMNL ...(
XN8= ...#MEN SETUP
XNMW ...#TRA K80SETUP
XP7G ...#REP (AENDCHAPS-KTAB)/24
XPM6 ... -1
XQ6Q ... +0
XQLB ...#FID 0,((AENDCHAPS-KTAB)-(((AENDCHAPS-KTAB)/24)*24)-1),-1
XR62 ...#END
XRKL ...)
XS5= ...#NOR
XSJW ...#
^^^^ ...661566630062