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