ASMB,R,Q,C * NAME: PNAME * SOURCE: 92070-18210 * RELOC: 92070-1X210 * PGMR: HLC * * * **************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. 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. * * **************************************************************** * * NAM PNAME,7 92070-1X210 REV.1941 790205 ENT PNAME * EXT $N1.2,$N3.4,$N5.F,.ENTR * * IARAY NOP PNAME NOP JSB .ENTR DEF IARAY LDA $N1.2,I STA IARAY,I ISZ IARAY LDA $N3.4,I STA IARAY,I ISZ IARAY LDA $N5.F,I AND =B177400 IOR =B40 STA IARAY,I JMP PNAME,I END