{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: STEPBACK1)}}
====== STEPBACK1 ======
(George Source)

**Macros used:** [[george:macro:GETWORD|GETWORD]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:STEPBAC|STEPBAC]], [[george:macro:TRACE|TRACE]], [[george:macro:UP|UP]], [[george:macro:WORDFIN|WORDFIN]]

<code - STEPBACK1.txt>22FL    #LIS  K0STEPBACK
22^=    #SEG  STEPBACK1                    [R.H.THOMPSON  F6
23DW          8HSTEPBACK
23YG    #     THIS SEGMENT IS ENTERED BY THE STEPBACK MACRO TO STEPBACK 
24D6    #     THE ORDER NUMBER REGISTER OF AN OBJECT PROG MEMBER
24XQ    #     ENTRY POINTS 1:ONLY   
25CB    #     ON ENTRY,THE MEMBER NO. IS IN ACOMMUNE7 OF THE CPA
25X2          SEGENTRY K1STEPBACK   
26BL    #SKIP          K6STEPBACK>99-99 
26W=          TRACE    JOBNO(2),STEPBACK
27*W          STOZ     4
27TG          GETWORD  4,3,WRITE
28*6          STEPBAC  3                   [STEP BACK ONR   
28SQ          WORDFIN   
29#B          UP
29S2    #END
^^^^ ...61532074000100000000
</code>