ASMB,R,Q,C * NAME: ERL.. * SOURCE: 92070-18148 * RELOC: 92070-1X148 * 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 ERL..,0 92070-1X148 REV.1941 791105 ENT $CVT,$ERMG,$SYMG,$STMG ENT $.ERL * ENT $SY#,$XS3 NEED NOT BE DEFINED * ENT $$ERL MUST NOT BE DEFINED * EXT $XEQ,$A,$B,$PVCN EXT $SUSP,$RQRT,$ZZZZ,$TREM EXT $STAT,$XQT,$IOFL A EQU 0 B EQU 1 * * ABORT WITH ERROR MESSAGE * $ERMG NOP STA $A,I CLA STA $PVCN CPA $XQT HLT 3 SHOULD NEVER GET HERE LDA $STAT,I RAL CLE,SSA IF THE NO-ABORT BIT IS CLEAR CPB =A OR B IS BLANK JMP ABORT ABORT HIM STB $B,I CCA ADA $RQRT STA $SUSP,I JMP $ERMG,I * * ABORT RAR IOR =B400 STA $STAT,I LDB $XQT STB $ZZZZ SET TO ABORT JSB $TREM REMOVE FROM TIME LIST LDA $XQT JSB $IOFL FLUSH PENDING I/O REQUESTS JMP $ERMG,I * * $CVT BSS 3 * * $SYMG EQU * PRINT SYSTEM MESSAGE NOP ISZ *-1 JMP *-2,I * * $STMG JMP $XEQ * $.ERL DEC -1 DUMMY MODULE * END