{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: BLAM)}}
====== BLAM ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_RMD10|MACROS RMD10]]

**Used in:** [[george:source:CLOSEDIR867|CLOSEDIR867]], [[george:source:EDOBJ864|EDOBJ864]], [[george:source:MTCODE864|MTCODE864]], [[george:source:MTOBJ864|MTOBJ864]]

<code - BLAM.mac.txt>
 =NRW ...[??? BLAM SECT FILE FGN 16 DOC  
 =PR6 ...#     MACRO TO CONVERT BLOCK NO IN USAGE BLOCK TO FREADBLOCK TYPE POINTE
 =Q=Q ...# BLOCK MUST BE CHAINED BEHIND CURRENT ACTIVITY UNLESS %B GIVEN 
 =QQB ...#MAC  BLAM  
 =R=2 ...#STR  %A
 =RPL ...#SKI
 =S9= ...(   
 =SNW ...#STR  %B
 =T8G ... MOD  LDX   0  BACK2,%B 
 =TN6 ...      LDX   2  FX2  
 =W7Q ...#STR  %B
 =WMB ...#SKI
 =X72 ...(   
 =XLL ...      SMO      FPTR(2)  
 =Y6= ...      LDX   0  BACK2
 =YKW ...)   
 =^5G ...      LDN   1  0
 =^K6 ...      SRL   01 2
 ?24Q ...      SLL   0  2
 ?2JB ...      TOPFCB2  2
 ?342 ...)   
 ?3HL ...#STR  %A
 ?43= ...(   
 ?4GW ...#STR  %B
 ?52G ...!     %B NOT ALLOWED IF %A PRESENT  
 ?5G6 ...#STR  GEN0,%A   
 ?5^Q ...      STO   3  GEN0 
 ?6FB ...#STR  3,%A  
 ?6^2 ...      LDX   3  %A   
 ?7DL ...      LDX   2  FX2  
 ?7Y= ...      LDX   1  FPTR(2)  
 ?8CW ...      FFCA  
 ?8XG ...#STR  GEN0,%A   
 ?9C6 ...      LDX   3  GEN0 
 ?9WQ ...      ADX   2  FBACKPOINT(2)
 ?=BB ...      LDX   2  BPTR(2)  
 ?=W2 ...      LDX   0  BACK2(1) 
 ??*L ...      LDN   1  0
 ??T= ...      SRL   01 2
 ?##W ...      SLL   0  2
 ?#SG ...)   
 ?*#6 ...      ADN   1  A1-1(2)  
 ?*RQ ...      ADX   1  FBLMOD(2)
 ?B?B ...M1BLAM  
 ?BR2 ...      TXU   0  0(1) 
 ?C=L ...      BCC      M2BLAM   
 ?CQ= ...      BCT   1  M1BLAM   
 ?D9W ...M2BLAM  
 ?DPG ...      SBX   1  2
 ?F96 ...#NOR
</code>