ASMB,R,L * * * ************************************************************** * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. ALL RIGHTS * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * ************************************************************** * * * * NAME: Z12RL -- DVZ12 RELEASE SUBROUTINE * SOURCE: 92840-18111 * RELOC: 92840-16012 * * * ************************************************************* * NAM Z12RL,8 92840-16012 REV.1913 790110 ENT Z12RL A EQU 0 B EQU 1 EXT .ENTR,$LIBR,$LIBX,$12B1,$12BF PNTR NOP PNT1 NOP DX NOP DY NOP Z12RL NOP JSB .ENTR DEF PNTR LDA P$BF1 SSA,RSS JMP OK1 AND B7777 LDA 0,I JMP *-4 OK1 CAX LDA DX,I STA IX LDA DY,I STA IY JSB $LIBR NOP TURN OFF INTERRUPT SYSTEM CLA STA $12BF LAX 7 ADA IX SAX 7 LAX 10B ADA IY SAX 10B JSB $LIBX TURN ON INTERRUPT SYSTEM DEF Z12RL AND EXIT IX DEC 0 IY DEC 0 B7777 OCT 77777 P$BF1 DEF $12B1 END