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

**Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]]

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

<code - FJOTP.mac.txt>
 8B*4 ...[??? FJOTP SECT CENT FGN 18 DOC 
 8BJW    #   
 8C4G    #   
 8CJ6    #   
 8D3Q    #     THE NEXT TWO MACROS ARE PARTICULARY USEFUL IN GEORGE 4
 8DHB    #     WHERE CERTAIN ROUTINES ARE FORCED TO WORK FROM THE TP.PCA 
 8F32    #   
 8FGL    #     THIS MACRO LOCATES THE JOB BLOCK FROM THE TP.PCA WHETHER IT   
 8G2=    #     IS ON THE JOB RING OR NOT,IT WORKS IF PROG IS NOT RCTP
 8GFW    #   
 8G^G    #MAC  FJOTP 
 8HF6    #STR  %B
 8HYQ          LDX   %A %B   
 8JDB          LDX   0  JOBRING+BPTR(%A) 
 8JY2          BNZ   0  MFJOTP              [J IF PCA NOT ON JOB RING
 8KCL          FINDPUC  %A,%A               [LOCATE PUC WHICH MUST BE ON JOB RING
 8KX=    MFJOTP  
 8LBW          FJOPCA   %A,,%C   
 8LWG    #NOR
</code>