22FL # THIS MACRO FILE IS OWNED BY SIB 22^= # IT CONTAINS THE FOLLOWING MACROS 23DW # 23YG # ISSUENO [ K BURTON 2432 ...# ISSUESKI [ K BURTON 245G ...# WLOUTLIM [ K BURTON 2482 ...# PROPUNAC [ S TOWNSEND 24=G ...# USERCHURGE [ S TOWNSEND 24?6 ...# WLNARROW [ S TOWNSEND 24?Q ...# ENVIRONMENT TESTING MACROS - TEMPORARY ONLY 24*2 ...# 24BJ ...[??? ISSUENO SECT DEVT FGN 4 DOC 24D6 # 24XQ # ISSUENO 25CB # %A - ISSUE OF GEORGE 25X2 # %B - OPTIONAL - NO OF CHARS IN %C 26BL # %C - OPTIONAL - VERSION OF GEORGE 26W= # IE THIS IS GEORGE 3 MARK8.%A %C 285# #MAC ISSUENO 28*6 #MEN MORNING 28SQ #TRA K50MORNING-3 29#B %A 29S2 #END 2=?L #MEN CONSTANT 2=R= #TRA GVERSION 2?=W #HAL G3MARK,%A 2?QG #END 2#69 #ALT G3ISSUE=%A 2#FY #SKI %B 2#TM GREADY %B,%C 2*9B #NOR 2*P2 # 2*PT ...[??? ISSUESKI SECT DEVT FGN 4 DOC 2*QP # ISSUESKI 2*SD # THIS MACRO DOES #SKI ON ISSUE NUMBER 2*WQ ...# %A BEING MAJOR (IF MULTIPLE OF TEN, EG 30) OR 2*^4 ...# MINOR (OTHERWISE, EG 42) ISSUE FOR WHICH LINE(S) 2B3B ...# IS(ARE) TO BE INCLUDED 2B5N ...#MAC ISSUESKI 2B82 ...#DEF 20?=G3ISSUE 2B=# ...#SKI 20?-%A 2B#L ...#SKI (20?<%A)-20? 2BBY ...#SKI %A-(%A/10*10)+(((20?>%A)-(20?<%A))/10)*(20?-%A) 2BF= ...#SKI 2BHJ ...#NOR 2BHK ...[ 2BHL ...[??? PROPUNAC SECT DEVT FGN 5 DOC 2BHM ...[ 2BHN ...#UNS HWL 2BHP ...( 2BHQ ...#MAC PROPUNAC 2BHR ...[ 2BHS ...[ MACRO 'PROPUNAC' FINDS THE FIRST UNACCESSED PARAMETER COMMENCING 2BHW ...[ WITH A SPECIFIED STRING. IF NONE GIVEN,TRIES FOR 2BHY ...[ 'PROPERTY', OR IF THERE ISN'T ONE, THE FIRST COMMENCING 'PR', 2BJ2 ...[ 2BJ4 ...[ %A - LABEL TO GOTO IF PARAMETER IS ABSENT 2BJ6 ...[ %B - LABEL TO GOTO IF PARAMETER IS NULL 2BJ8 ...[ %C - CHAR CT OF KEYSTRING (OPTIONAL) 2BJ= ...[ %D - KEYSTRING IF %C GIVEN (DEFAULT 1+%C) 2BJ# ...[ 2BJB ...[ BLOCKS SET UP : 2BJD ...[ CPB/CUNI AS AFTER SPARABEG ON KEYSTRING 2BJG ...[ (IF PARAMETER EXISTS) 2BJJ ...[ APERI/APROPS CONTAINING PROPERTY NAMES 2BJL ...[ (IF NON-NULL PARAM FOUND) 2BJN ...[ 2BJQ ... LDX 2 FX2 2BJS ...#STR %C 2BJW ...( 2BJY ... LDX 0 %C 2BK2 ... STO 0 ACOMMUNE1(2) 2BK4 ...#STR %D 2BK6 ...( 2BK8 ... LDX 0 %D 2BK= ... STO 0 ACOMMUNE2(2) 2BK# ... LDX 0 1+%D 2BKB ... STO 0 ACOMMUNE3(2) 2BKD ...) 2BKG ...#STR %D 2BKJ ...#SKI 2BKL ...( 2BKN ... LDX 0 1+%C 2BKQ ... STO 0 ACOMMUNE2(2) 2BKS ... LDX 0 2+%C 2BKW ... STO 0 ACOMMUNE3(2) 2BKY ...) 2BL2 ...) 2BL4 ...#STR %C 2BL6 ...#SKI 2BL8 ...( 2BL= ... LDN 0 0 2BL# ... STO 0 ACOMMUNE1(2) 2BLB ...) 2BLD ... DOWN LISTPARS,5 2BLG ... BRN %A 2BLJ ... BRN %B 2BLL ...#NOR 2BLN ...) 2BLQ ...[ 2BLS ...[??? WLOUTLIM SECT DEVT FGN 5 DOC 2BLW ...[ 2BLY ...#MAC WLOUTLIM 2BM2 ...[ 2BM4 ...[ SET LIMIT FOR FULL WL OUTPUT TO OPS CONSOLE 2BM6 ...[ 2BM8 ...#UNS JWLNARROW 2BM= ...( 2BM# ...#MEN WLOUT 2BMB ...#TRA K90WLOUT 2BMD ... +%A 2BMG ...#END 2BMJ ...#EXI 2BML ...) 2BMM ...#UNS HWLSLCH 2BMN ...( 2BMP ...#MEN WLD 2BMQ ...#TRA K90WLD 2BMR ... +%A 2BMS ...#END 2BMT ...#EXI 2BMW ...) 2BMX ...#UNS HWL 2BMY ...( 2BM^ ...#MEN WHATLISA 2BN2 ...#TRA K90WHATLISA 2BN3 ... +%A 2BN4 ...#END 2BN5 ...) 2BN6 ...#NOR 2BNK ...# 2BP4 ...# 2BPH ...[??? USERCHURGE SECT COMM FGN 1 DOC 2BQ2 ...# 2BQF ...# 2BQY ...#MAC USERCHURGE 2BRC ...[ 2BRW ...[ ALLOWS USER CONTEXT CHANGELIST TOUR 2BS* ...[ %A - 'ON' OR 'OFF' (ANY OTHER STRING TREATED AS OFF) 2BSS ...[ 2BT? ...#UNS HWLSLCH 2BTQ ...( 2BW9 ...#MEN WLAA 2BWN ...#TRA K90WLAA 2BX7 ...#STR ON,%A 2BXL ...( 2BY5 ... +1 2BYJ ...#END 2B^3 ...#EXI 2B^G ...) 2B^^ ...#STR %A,ON 2C2D ...( 2C2X ... +1 2C3B ...#END 2C3T ...#EXI 2C4# ...) 2C4R ... +0 2C5= ...#END 2C5P ...) 2C68 ...#NOR 2C69 ...# 2C6= ...# 2C6? ...[??? WLNARROW SECT COMM FGN 1 DOC 2C6# ...# 2C6* ...# 2C6B ...#MAC WLNARROW 2C6C ...[ 2C6D ...[ ALLOWS FULL WL/SL/CH OUTPUT TO BE KEPT TO 2C6F ...[ A MAXIMUM OF 40 CHARS (GENERALLY) 2C6G ...[ %A - 'ALL', 'OPERATOR' OR 'OFF' 2C6H ...[ 2C6J ...#ALT 20? = 2 [DEFAULT SETTING 2C6K ...[ 2C6L ...#STR ALL,%A 2C6M ...#STR 2C6N ...#ALT 20? = -1 2C6P ...[ 2C6Q ...#STR OPERATOR,%A 2C6R ...#STR 2C6S ...#DEF 20? = 1 2C6T ...[ 2C6W ...#STR OFF,%A 2C6X ...#STR 2C6Y ...#ALT 20? = 0 2C6^ ...[ 2C72 ...#MEN WLAA 2C73 ...#TRA K91WLAA 2C74 ... +20? 2C75 ...#END 2C76 ...[ 2C77 ...#NOR 2C78 ...# 2C79 ...# 2C7# ...[ THE MACRO DEFINITIONS IN THIS FILE ARE DESTINED FOR 2C7G ...[ 'MACS EMUL'. THE DEFINITIONS ARE ONLY COMPILED FROM 2C7N ...[ ONE OF THESE FILES FOR ANY ISSUE OF GEORGE: 2C7W ...[ 2C84 ...[ WHILE 8.62 IS SUPPORTED, MACROS SIB IS USED 2C8= ...[ AFTERWARDS, MACS EMUL IS THE FILE 2C8D ...[ 2C8L ...[ WHEN MARKS 2C8S ...[ BELOW 8.63 ARE NO LONGER SUPPORTED, THE DEFINITIONS 2C92 ...[ SHOULD BE MOVED FROM THIS FILE 2C98 ...[ INTO MACS EMUL 2C9B ...[ 2C9J ...[ 2C=6 ...[ 2C=# ...[??? JENV SECT COMM FGN 1 DOC 2C=G ...[ 2C=N ...#MAC JENV 2C=W ...[ ==== 2C?4 ...[ 2C?= ...[ JUMP TO %A IF IN ENVIRONMENT %B 2C?D ...[ 2C?L ...[ %A - LABEL TO GO TO IF MATCH 2C?S ...[ %B - ENVIRONMENT - 1900, MEEP OR DME 2C#2 ...[ 2C#8 ...#STR 1900,%B 2C#B ...#SKI 2C#J ...( 2C#Q ... JBC %A,,CPEMU 2C#Y ...#EXI 2C*6 ...) 2C*# ... JBC MJENV,,CPEMU [ EMULATION TYPE TO TEST 2C*G ... LF ,CPEMUENV,0 2C*H ...#STR MEEP,%B 2C*J ...#STR 2C*K ...( 2C*L ... SBN 0 CPMEEP 2C*M ... BZE 0 %A 2C*N ...) 2C*P ...#STR DME,%B 2C*Q ...#STR 2C*R ...( 2C*S ... SBN 0 CPDME 2C*T ... BPZ 0 %A 2C*W ...) 2C*X ...#STR CME,%B 2C*Y ...#STR 2C*^ ...( 2CB2 ... SBN 0 CPCME 2CB3 ... BZE 0 %A 2CB4 ...) 2CB5 ...MJENV 2CB6 ...#NOR 2CBD ...[ 2CBL ...[??? JENVNOT SECT COMM FGN 1 DOC 2CBS ...[ 2CC2 ...#MAC JENVNOT 2CC8 ...[ ======= 2CCB ...[ 2CCJ ...[ JUMP TO %A UNLESS IN ENVIRONMENT %B 2CCQ ...[ 2CCY ...[ %A - LABEL TO GO TO IF FAILS 2CD6 ...[ %B - ENVIRONMENT - 1900, MEEP OR DME 2CD# ...[ 2CDG ...#STR 1900,%B 2CDN ...#SKI 2CDW ...( 2CF4 ... JBS %A,,CPEMU 2CF= ...#EXI 2CFD ...) 2CFL ... JBC %A,,CPEMU [ EMULATION TYPE TO TEST 2CFS ... LF ,CPEMUENV,0 2CFT ...#STR MEEP,%B 2CFW ...#STR 2CFX ...( 2CFY ... SBN 0 CPMEEP 2CF^ ... BNZ 0 %A 2CG2 ...) 2CG3 ...#STR DME,%B 2CG4 ...#STR 2CG5 ...( 2CG6 ... SBN 0 CPDME 2CG7 ... BNG 0 %A 2CG8 ...) 2CG9 ...#STR CME,%B 2CG= ...#STR 2CG? ...( 2CG# ... SBN 0 CPCME 2CG* ... BNZ 0 %A 2CGB ...) 2CGC ...#NOR 2CGJ ...[??? JNENVX SECT FILE FGN 1 DOC 2CGQ ...#MAC JNENVX 2CGY ...[ ====== 2CH6 ...[ 2CH# ...[ JUMP TO %A UNLESS IN ENVIRONMENT %B. 2CHG ...[ ACCUMULATOR %C CAN BE OVERWRITTEN. 2CHN ...[ 2CHW ... LBW ,CPEMU,%C 2CJ4 ... BZE %C %A 2CJ= ... LF ,CPEMUENV,%C 2CJ? ...#STR MEEP,%B 2CJ# ...#STR 2CJ* ...( 2CJB ... SBN %C CPMEEP 2CJC ... BNZ %C %A 2CJD ...) 2CJF ...#STR DME,%B 2CJG ...#STR 2CJH ...( 2CJJ ... SBN %C CPDME 2CJK ... BNG %C %A 2CJL ...) 2CJM ...#STR CME,%B 2CJN ...#STR 2CJP ...( 2CJQ ... SBN %C CPCME 2CJR ... BNZ %C %A 2CJS ...) 2CJX ...#NOR 2CK8 ...# 2CMG # ^^^^ ...15354375001300000000