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

**Defined in:** [[george:source:PMACS|PMACS]]

**Used in:** [[george:source:PMACT867|PMACT867]], [[george:source:PMCHAINS864|PMCHAINS864]], [[george:source:PMCHAP867|PMCHAP867]], [[george:source:PMCHECK867|PMCHECK867]], [[george:source:PMCRABS860|PMCRABS860]], [[george:source:PMDR864|PMDR864]], [[george:source:PMDUMP85|PMDUMP85]], [[george:source:PMENDITS867|PMENDITS867]], [[george:source:PMFILE860|PMFILE860]], [[george:source:PMFIXSTO84|PMFIXSTO84]], [[george:source:PMJOURNL866|PMJOURNL866]], [[george:source:PMSUMA867|PMSUMA867]], [[george:source:PMWHATA866|PMWHATA866]]

<code - PMBSADD.mac.txt>
 2JHQ    [??? PMBSADD SECT DIAG FGN 104 DOC  
 2K3B    #MAC  PMBSADD                      [M.C.D. MANN 
 2KH2    [   
 2L2L    [   
 2LG=    [     ************* 
 2L^W    [     *  PMBSADD  * 
 2MFG    [     ************* 
 2M^6    [   
 2NDQ    [   
 2NYB    [              GENERAL  B/S  TRANSFER  MACRO
 2PD2    [                     FOR UDAS DEVICES  
 2PXL    [   
 2QC=    [   
 2QWW    [              %A  SWAP OR  GEO 
 2RBG    [              %B  TRANSFER MODE
 2RTD    [              %C  COUNT
 2S#B    [              %D  START ADDRESS IN CORE
 2SR#    [              %E  UNDATUMISED B/S ADDRESS  
 2T==    [              %F  AUTO OR  
 2TP8    [              %G  ERROR LABEL(OPTIONAL)
 2W86    [   
 2WM4    [   
 2X62    #STR   AUTO,%F  
 2XJY    #STR
 2Y3W    (   
 2YGS          SMO      FXPMDR   
 2Y^Q          STOZ     INONA
 2^DN    )   
 2^XL    #STR   AUTO,%F  
 32BJ    (   
 32TG          LDN   7  1
 33#D          SMO      FXPMDR   
 33RB          STO   7  INONA
 34=#    )   
 34P=    #SKI   %B   
 3588    (   
 35M6          LDN   7  %B   
 3664         STO   7 IPMBS  
 36K2    )   
 373Y    #SKI    %B  
 37GW    #SKI
 37^S    (   
 38DQ          STOZ    IPMBS 
 38XN    )   
 39BL          LDX   7  %C   
 39TJ          STO   7 IPMBS+2   
 3=#G         LDX   7  %D
 3=RD          STO   7  IPMBS+3  
 3?=B         LDX   7   %E   
 3?P#          STO   7  IUBSA
 3#8=          SMO      FXPMDR   
 3#M8          STOZ   IPX
 3*66         CALL  0  (JBSADD%A)
 3*K4    #STR  %G
 3B42          BRN      %G   
 3BGY    #STR  %G
 3B^W    #SKI
 3CDS          NULL  
 3CXQ    #NOR
</code>