{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS BJE)}}
====== MACROS BJE ======
(George Source)


<code - MACROS BJE.txt>22FL ...[??? OLPFIN SECT CENT FGN 3 DOC 
2JHQ    #   
2K3B    #   
2KH2    #   
2LG=    #MAC  OLPFIN
2L^W          LDX 2 %A  
2MFG          CLEAR    2,0                 [CLEAR LOCKDOWN COUNTS:NULL IN G3.   
2M^6          MONEND                       [CLEAR STOP WORD ELSE GENERATE MONEVN
2NDQ          COOR1 
2NYB    #NOR
2P88 ...[??? OLPFIN1 SECT CENT FGN 3 DOC
2PD2    #   
2PXL    #   
2QC=    #MAC  OLPFIN1   
2QWW          LDX   2  FX2  
2RBG    #STR  %A
2RW6          LINKSET 2,%A  
2S*Q          LDX   2  APETADDR(2)  
2STB          CLEAR    2,0  
2T*2          MONEND
2TSL    #STR  %A
2W#=          COOR1X
2WRW    #STR  %A
2X?G    #SKI
2XR6          COOR1Y
2Y=Q    #NOR
2YGJ ...[??? OLPFINX SECT CENT FGN 3 DOC
2YQB    #   
2^=2    #   
2^PL    #MAC  OLPFINX   
329=          LDX 2 %A  
32NW          CLEAR    2,0                 [CLEAR LOCKDOWN COUNTS:NULL IN G3
338G          MONEND
33N6          COOR1X
347Q    #NOR
34CJ ...[??? CAPCA SECT CENT FGN 3 DOC  
34MB    #   
3572    #   
35LL    #   
366=    #MAC  CAPCA 
36KW    #STR  %A
375G    #SKI
37K6          DOWN     CAPCA,2  
384Q    #STR  %A
38JB    (   
3942          LDN   0  %B+%A
39HL    #STR  %C
3=3=    (   
3=GW          SLL   0  12   
3?2G          ORN   0  %D+%C
3?G6    )   
3?^Q          SMO      FX2  
3#FB          STO   0  ACOMMUNE1
3#^2          DOWN     CAPCA,1  
3*DL    )   
3*Y=    #NOR
3MYJ ...[??? INHIBITB SECT CENT FGN 3 DOC   
3N8B    #   
3NN2    #   
3P7L    #   
3PM=    #   
3Q6W    #     MACRO WHICH AFTER USE WILL CAUSE BREAK-IN TO BE IGNORED   
3QLG    #   
3R66    #MAC  INHIBITBRK
3RKQ          CALL 0 (FCHECKBIN)
3S5B          BRN %A                       [J ALREADY BROKEN-IN 
3SK2          LDCT 0 #040   
3T4L          ORS 0 JOBEVENTS(2)
3TJ=    #NOR
3TS4 ...[??? PERMITBR SECT CENT FGN 3 DOC   
3W3W    #   
3WHG    #     MACRO TO TERMINATE INHIBIT OF BREAK-IN
3X36    #   
3XGQ    #MAC  PERMITBRK 
3Y2B          NGN   0  2
3YG2          SRC   0  4                   [REMOVE INHIBIT BIT(B3)  
3Y^L          SMO      FX2  
3^F=          ANDS 0 JOBEVENTS  
3^YW    #NOR
428N ...[??? TESTBRKI SECT CENT FGN 3 DOC   
42DG    #   
42Y6    #     MACRO FOR TESTING WHETHER BREAKIN HAS OCCURRED
43CQ    #   
43XB    #MAC  TESTBRKIN 
44C2          CALL  0  (FCHECKBIN)  
44WL          BRN   %A                     [J BROKEN IN 
45B=    #NOR
45L4 ...[??? ANAMONST SECT CENT FGN 3 DOC   
45TW    #   
46*G    #   
46T6    #   
47#Q    #   
47SB    #     MACRO TO ANALYSE MONITORING STYLE PARAMETERS AND CREATE MASK  
48#2    #   
48RL    #MAC  ANAMONST  
49?=          DOWN REPORT,8 
49QW          BRN %A                       [J IF COMMAND ERROR IN PARAMETERS
4==G    #NOR
4=G# ...[??? CANAMONS SECT CENT FGN 3 DOC   
4=Q6    #   
4?9Q    #     ANAMONST FOR CONNECT-IGNORES FIRST PARAMETER(JOBNAME) 
4?PB    #   
4#92    #MAC  CANAMONST 
4#NL          DOWN     REPORT,9 
4*8=          BRN      %A   
4*MW    #NOR
4*XN ...[??? SJANAMON SECT CENT FGN 3 DOC   
4B7G    #SKI    JNLMEXT 
4BM6    (   
4C6Q    #   
4CLB    #     ANAMONST FOR SJMESS   
4D62    #   
4DKL    #MAC  SJANAMON  
4F5=          DOWN  REPORT,11   
4FJW          BRN   %A  
4G4G    #NOR
4GBX ...)   
4GP# ...[??? MOD SECT CENT FGN 3 DOC
4H3Q    #   
4HHB    #     MACRO TO MODIFY A SPECIFIED INSTRUCTION (%A) BY %B. IF %B=1,2 OR 3
4J32    #     MODIFICATION RESULTS, OTHERWISE THE INSTRUCTION IS PREMODIFIED.   
4JGL    #   
4K2=    #MAC  MOD   
4KFW    #MOD  %B
4K^G    (   
4LF6    #STR  %B
4LYQ          SMO      %B   
4MDB          %A
4MY2    )   
4NCL    #MOD  %B
4NX=    #SKI
4PBW          %A(%B)
4PWG    #NOR
^^^^ ...62275254000500000000
</code>