CHCHCOORMAC2
(George Source)
Macros used: ICT
- CHCHCOORMAC2.txt
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