.TITLE FSHELP_SHR Jump vector for FSHELP_SHR .PSECT $$$VECTOR,PAGE,SHR,EXE,RD,NOWRT .MACRO DEFINE,ROUTINE .TRANSFER ROUTINE .MASK ROUTINE JMP G^ROUTINE+2 .ENDM .MACRO DEFINE_OBS,ROUTINE .TRANSFER ROUTINE .ENTRY ROUTINE ^M<> JMP G^$$$OBS_'ROUTINE .ENDM DEFINE FSHELP_DISPLAY_HELP .END