ASMB,R,L,C HED GTERR * NAME: GTERR * SOURCE: 92067-18485 * RELO: 92067-16268 * PGMR: N.J.S. * * **************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. 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 GTERR,7 92067-1X485 REV.2013 780930 ENT GTERR EXT .ENTR, SESSN, ISMVE, $SMER SUP * * INMIC NOP IERR DEF ZERO GTERR 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 ISMVE WRITE 4-WORD MNEUMONIC DEF *+5 IN SCB ERROR CODE 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 GTERR,I * XEQT EQU 1717B ZERO DEC 0 .4 DEC 4 ISESN NOP D.ZER DEF ZERO * * END END