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 
                                                                                                                                                                                          