ASMB,R,Q,C * NAME: PNAME * SOURCE: 92071-18210 * RELOC: 92071-1X210 * PGMR: HLC,DJN * * * **************************************************************** * * (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. * * **************************************************************** * * NAM PNAME,7 92071-1X210 REV.2041 800409 ENT PNAME * EXT $N1.2,.ENTR,.XLB,.XLA * * A EQU 0 B EQU 1 IARAY NOP PNAME NOP JSB .ENTR DEF IARAY JSB .XLB GET ID NAM FIELD ADDRESS DEF $N1.2 JSB .XLA GET FIRST TWO CHARACTERS DEF B,I STA IARAY,I ISZ IARAY INB JSB .XLA GET CHARS 2,3 DEF B,I STA IARAY,I ISZ IARAY INB JSB .XLA DEF B,I AND =B177400 IOR =B40 STA IARAY,I JMP PNAME,I END