.TITLE TSEM2 .PSECT TSEM2 $=. .=$+4114 CALL GETDAT BEQ $+4126 .PSECT GETDAT,I,RO,LCL GETDAT: MFPD (R2)+ MOV (SP)+,R0 CMP #-1,R0 RETURN .END