ASMB,R,L,C HED PTERR * NAME: PTERR * SOURCE: 92067-18484 * RELO: 92067-16268 * PGMR: N.J.S. * * **************************************************************** * * (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 THE HEWLETT-PACKARD COMPANY. * * **************************************************************** * NAM PTERR,7 92067-1X484 REV.2013 781013 ENT PTERR EXT .ENTR, SESSN, $SMVE, $SMER SUP * * INMIC NOP IERR DEF ZERO PTERR NOP JSB .ENTR DEF INMIC * JSB SESSN GET SESSION TABLE ADDRESS DEF *+2 DEF XEQT CCA SEZ IN SESSION? JMP EXIT NO - GO SET ERROR TO -1 STB ISESN * JSB $SMVE WRITE 4-WORD MNEUMONIC DEF *+6 IN SCB ERROR CODE DEF .2 DEF ISESN DEF $SMER DEF INMIC,I DEF .4 CLA * EXIT STA IERR,I SET ERROR CODE LDA D.ZER RESET OPTIONAL STA IERR ERROR PARAMETER JMP PTERR,I * XEQT EQU 1717B ZERO DEC 0 .2 DEC 2 .4 DEC 4 ISESN NOP D.ZER DEF ZERO * * END END