DC0:INDFDC.MAC=DC0:INDFDC.001 -34,38,/; RRW005/ POPSYM::; -42,42 MOV R5,-(SP) ; SAVE R5 MOV SYMTSP,R5 ; GET SYMBOL TABLE SP TSTB SKIP ; SKIPPING TO LABEL? -49,55 MOV (R5)+,SSB ; RESTORE BEG. OF SUBR. STACK MOV (R5)+,SYMFR ; RESTORE FREE SPACE POINTER MOV (R5)+,ERLBL+4 ; RESTORE ERROR LABEL MOV (R5)+,ERLBL+2 MOV (R5)+,ERLBL ; MOV (R5)+,.LIFLG ; RESTORE LISTING FLAGS MOV (R5)+,SYMTB ; RESTORE SYMBOL TABLE START -58,59 MOV R5,SYMTSP ; SAVE NEW SYMBOL TABLE SP MOV (SP)+,R5 ; RESTORE R5 RETURN ; RETURN PSHSYM::; -68,74 MOV R5,-(SP) ; SAVE R5 MOV SYMTSP,R5 ; GET SYMBOL TABLE SP MOV SYMTB,-(R5) ; SAVE POINTER TO START OF SYMBOL TABLE MOV .LIFLG,-(R5) ; SAVE LISTING CONTROL FLAGS MOV ERLBL,-(R5) ; SAVE ERROR PROCESSING ROUTINE MOV ERLBL+2,-(R5) ; LABEL MOV ERLBL+4,-(R5) MOV SYMFR,-(R5) ; SAVE POINTER TO FIRST FREE SPOT MOV SSB,-(R5) ; SAVE BEG. OF SUBR. STACK -86,86 MOV R5,SYMTSP ; SAVE NEW SYMBOL TABLE SP MOV (SP)+,R5 ; RESTORE R5 RETURN ; RETURN /