ALTDEPTH [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: ALTDEPTH)}}
====== ALTDEPTH ======
(GIN Macro)

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

**Used in:** 

<code - ALTDEPTH.mac.txt>
 B2=W    [   
 B2QG    [   
 B3=6    [??? ALTDEPTH SECT DEVT FGN 1 DOC   
 B3PQ    [   
 B49B    #MAC           ALTDEPTH 
 B4P2    [              ======== 
 B58L    [   
 B5N=    [   
 B67W    [ %A - +1 OR -1 
 B6MG    [   
 B776    [ ALTERS 'NESTDEPTH' AND SHIFTS STACK IDENTIFIERS 'NESTEITHERS' 
 B7LQ    [ AND 'NESTFLAG' APPROPRIATELY  
 B86B    [   
 B8L2    #ALT           NESTDEPTH=NESTDEPTH%A
 B95L    #STR           +,%A 
 B9K=    (   
 B=4W    #ALT           NESTEITHERS=NESTEITHERS@L-1  
 B=JG    #ALT           NESTFLAG=NESTFLAG@L-1
 B?46    #EXI
 B?HQ    )   
 B#3B    #ALT           NESTEITHERS=NESTEITHERS@L1   
 B#H2    #ALT           NESTFLAG=NESTFLAG@L1 
 B*2L    #NOR
</code>