LEX    'RTNERR'
       ID     #FE
       MSG    0
       POLL   0

       ENTRY  RTNER
       CHAR   #D

       KEY    'RTNERR'
       TOKEN  40
       ENDTXT
RTNSTK EQU    #08F9E
RETURN EQU    #08FE0
CPL#10 EQU    #07887
STOPDC EQU    #05303

ERRSUB EQU    #2F683

       REL(5) RTNERd
       REL(5) RTNERp
RTNER  GOSBVL =RTNSTK
       GOC    RTNER3
       A=C    W
       ASRC            C[A] RTN address, C[S] RTN type
       ?A#0   S
       GOYES  RTNER3   not Basic return
       D1=(5) (ERRSUB)
       C=DAT1 A
       ?A#C   A
       GOYES  RTNER3   not ON ERROR
       CD0EX
       R2=C            save D0
       D0=D0- 1
       GOSBVL =CPL#10
       GOC    RTNER3
       CD0EX
       D=C    A
       CD0EX
       D0=D0+ 4
       A=0    A
RTNER1 D0=D0+ 2
       A=DAT0 B
       CD0EX
       C=C+A  A
       D0=C
       ?B<C   A
       GOYES  RTNER2
       D=C    A
       GONC   RTNER1
RTNER2 C=R2
       C=C+1  A
       D1=C
       C=D    A
       DAT1=C A
       D1=(5) (ERRSUB)
       DAT1=C A
RTNER3 GOVLNG =RETURN 

RTNERd GOVLNG =STOPDC
RTNERp RTNCC