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

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

**Used in:** [[george:source:PMFS85|PMFS85]]

<code - PMBSNUM.mac.txt>
 42T2    [??? PMBSNUM SECT DIAG FGN 104 DOC  
 43?B    #MAC  PMBSNUM                      [M.C.D. MANN 
 43PQ    [   
 4486    [   
 44LG    [     ************* 
 454W    [     *  PMBSNUM  * 
 45H=    [     ************* 
 45^L    [   
 46D2    [   
 46WB    [              GENERAL  B/S  TRANSFER  MACRO
 47#Q    [                      FOR NON-UDAS DEVICES 
 47R6    [   
 489G    [   
 48MW    [              %A  START ADDRESS IN CORE
 496=    [              %B  UNDATUMISED BLOCK NUMBER 
 49JL    [              %C  ERROR LABEL(OPTIONAL)
 4=32    [   
 4=FB    [   
 4=XQ         LDX   7  %A
 4?B6          STO   7  IPMBS+3  
 4?SG         LDX   7   %B   
 4#=W          STO   7  IUBSA
 4#P=          LDN   7  1
 4*8=          SMO      FXPMDR   
 4*MW          STO   7  IPX  
 4B7G         CALL  0  (JBSNUM)  
 4BM6    #STR  %C
 4C6Q          BRN      %C   
 4CLB    #STR  %C
 4D62    #SKI
 4DKL          NULL  
 4F5=    #NOR
</code>