ASMB,R,L,C HED 3000 SLAVE REQ. WATCHDOG * (C) HEWLETT-PACKARD CO. 1977 NAM QUEZ,17,2 91741-16002 REV 1740 770830 SPC 1 ****************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977. 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. * ****************************************************************** SPC 2 ENT QUEZ * EXT EXEC,#LU3K,#QXCL,RNRQ,#QZRN * * QUEZ * SOURCE: 91741-18002 * BINARY: 91741-16002 * PRGMR: JIM HARTSELL * DATE: 17 FEB 76 * * * QUEZ IS A "POLLING PROGRAM" FOR UNSOLICITED SLAVE REQUESTS * FROM THE HP3000. WHEN QUEX HAS NOTHING TO DO, QUEZ IS * SCHEDULED TO WAIT FOR THE SLC DRIVER TO RECEIVE AN "ENQ" * FROM THE 3000. QUEZ THEN WRITES A ZERO LENGTH * REQUEST TO QUEX'S I/O CLASS, TO FORCE QUEX TO * RECEIVE THE PENDING SLAVE REQUEST. * * QUEZ ALSO PERFORMS "LINE OPEN" CALL FOR QUEX SO THAT QUEX * NEED NOT LOCK UP A PARTITION DURING I/O SUSPEND. * QUEZ LDA 1,I GET SCHEDULE PARAM. SZA,RSS NORMAL "POLLING" ENTRY? JMP POLL YES. * * LINE OPEN SECTION. QUEX HAS SCHEDULED QUEZ WITH WAIT. * LDA LOPWD NO. CONFIGURE LINE OPEN CALL. IOR #LU3K STA TEMP * JSB EXEC ISSUE LINE OPEN REQUEST. DEF *+6 (SETS # RETRIES = 7, DEF B2 LONG TIMEOUT = 60 SEC., DEF #LU3K # ID SEQUENCES = 0) DEF B2 GO TO "SEND" STATE. DEF B3 DEF TEMP (QUEX WILL CHECK FOR ERRORS) * JMP EXIT TERMINATE WHEN CALL COMPLETES. SKP * * SLAVE "POLL" SECTION. * POLL LDA SPRWD CONFIGURE SPECIAL READ PARAM. IOR #LU3K STA TEMP LDA #QZRN STA TEMP1 * JSB EXEC ISSUE SPECIAL "READ ENQ". DEF *+6 DEF B1 DEF #LU3K DEF TEMP1 RESOURCE NUMBER. DEF B0 DEF TEMP * JSB RNRQ HANG ON ATTEMPT TO LOCK RN. DEF *+4 COMMUNICATION DRIVER WILL UNLOCK DEF GLLCK WHEN AN "ENQ" IS RECEIVED AND QUEZ DEF #QZRN WILL RESUME EXECUTION WITH RN LOCKED. DEF TEMP B0 NOP IGNORE ERROR RETURN. * JSB EXEC CLASS WRITE TO QUEX. DEF *+8 (NO REPLY EXPECTED) DEF CLS20 DEF B0 DEF B0 DUMMY BUFFER ADDRESS. DEF B0 ZERO-LENGTH RECORD. DEF B0 LENGTH PASSED TO QUEX. DEF B0 DEF #QXCL NOP IGNORE ERRORS. * EXIT JSB EXEC TERMINATE. DEF *+2 DEF B6 SPC 1 * ****************************************** * B1 OCT 1 B2 OCT 2 B3 OCT 3 B6 OCT 6 GLLCK OCT 40002 CLS20 OCT 100024 LOPWD OCT 060200 SPRWD OCT 024500 TEMP NOP TEMP1 NOP * END QUEZ