STEPBACK1

(George Source)

Macros used: GETWORD, SEGENTRY, STEPBAC, TRACE, UP, WORDFIN

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