MACROS SIB

(George Source)
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