BUDGUSE [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

**Defined in:** [[george:source:MACROS_MACB|MACROS MACB]]

**Used in:** [[george:source:ALLOW84|ALLOW84]], [[george:source:BEXTRA83|BEXTRA83]], [[george:source:BLOGNAL865|BLOGNAL865]], [[george:source:BQUERY84|BQUERY84]], [[george:source:BUDGET84|BUDGET84]], [[george:source:BUDGTWO84|BUDGTWO84]], [[george:source:JDWRITE867|JDWRITE867]]

<code - BUDGUSE.mac.txt>
 3QW# ...[??? BUDGUSE SECT CENT FGN 2 DOC
 3R66    #   
 3RKQ    # TO READ A USER'S BUDGET RECORD TO A JBUDGET,JBUDGUSER BLOCK   
 3S5B    #     2) IF %A IS THE ADDRESS OF A WORD CONTAING THE BUDGET TYPE(BITS)  
 3SK2    #MAC  BUDGUSE   
 3T4L          LDX   0  %A   
 3TJ=          SMO      FX2  
 3W3W          STO   0  EXEC1
 3WHG          DOWN     BUDGONE,1
 3X36    #NOR
</code>