ASMB,Q,C HED <#OFF> OFF PROGRAM SUBROUTINE *(C) HEWLETT-PACKARD CO. 1980* NAM #OFF,7 91750-1X219 REV.2013 800418 L EXT .ENTR,MESSS ENT #OFF * NAME: #OFF * SOURCE: 91750-18219 * RELOC: 91750-1X219 * PGMR: D.W.T. [ 04/14/80 ] * *************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980. ALL RIGHTS * * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * * * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT* * * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * * *************************************************************** * #OFF TERMINATES A PROGRAM * * #OFF CALLING SEQUENCE: * * JSB #OFF * DEF *+2 * DEF NAME ADDRESS OF 3-WORD ASCII PROGRAM NAME ARRAY. * SKP SUP [SUPPRESS EXTENDED LISTING] NAME NOP ASCII NAME ADDR. #OFF NOP JSB .ENTR OBTAIN DIRECT ADDRESSES. DEF NAME DEFINE PARAMETER STORAGE AREA. DLD "OF GET "OF, " DST MBUF STORE IT IN MESSAGE BUFFER LDA NAME,I GET PASSED PROGRAM NAME STA MBUF+2 ISZ NAME UP ADDR DLD NAME,I DST MBUF+3 DLD "FL GET ",FL " DST MBUF+5 JSB MESSS CALL MESSAGE PROCESSOR TO TERMINATE PROG DEF *+3 DEF MBUF DEF K13 JMP #OFF,I RETURN * MBUF BSS 7 "OF ASC 2,OF, "FL ASC 2,,FL K13 DEC 13 END