JUMPIF

(GIN Macro)

Defined in: IFMACS

Used in:

JUMPIF.mac.txt

 ?##W    [   
 ?#SG    [   
 ?*#6    [??? JUMPIF SECT DEVT FGN 1 DOC 
 ?*RQ    [   
 ?B?B    #MAC           JUMPIF   
 ?BR2    [              ======   
 ?C=L    [   
 ?CQ=    [   
 ?D9W    [ %A - JUMP CONDITION DEFINER   
 ?DPG    [ %B - LABEL ROOT   
 ?F96    [ %C - PARAMETERS TO JUMP CONDITION DEFINER 
 ?FNQ    [   
 ?G8B    [ CALLS 'NESTJUMP' TO PUT THE APPROPRIATE NUMBER (NESTDEPTH MOD 9,  
 ?GN2    [ HELD IN 20?) OF N'S AT THE START OF THE LABEL ROOT AND COMPILE THE
 ?H7L    [ JUMP MACRO
 ?HM=    [   
 ?HND ...#STR  BUSY,%A   
 ?HPL ...#SKI
 ?HQS ...(   
 ?HS2 ...   JUMPIF   INUSE,%B,%C 
 ?HT8 ...#EXI
 ?HWB ...)   
 ?HXJ ...#STR  UNBUSY,%A 
 ?HYQ ...#SKI
 ?H^Y ...(   
 ?J36 ...   JUMPIF   NOTINUSE,%B,%C  
 ?J4# ...#EXI
 ?J5G ...)   
 ?J6W    #ALT           20?=NESTDEPTH-1  
 ?JLG    #SKI           NESTDEPTH/9  
 ?K66    #ALT           20?=20?-8
 ?KKQ          NESTJUMP %B,%A,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S-
 ?L5B    ,%T,%U,%V   
 ?LK2    #NOR