AMPTR ;pointer to program name in $DATAP 16 000014 000000G .WORD LSN$ ;pointer to internal line number routine 17 000016 000002 .WORD 2 ; ? 18 000020 000022' .WORD .+2 ;exit the OTS threaded code mode 19 20 000022 004767 000000G CALL JUNK ;FORTRAN subroutine 21 22 000026 .PRINT #MSG02 ;exit notification 23 000034 .EXIT ;exit point 24 25 000000 .PSECT $DATAP 26 000000 035166 060363 NAMPTR: .RAD50 \INFOTS\ ;p