ASMB,R,L,C
*     NAME:   SAVE
*     SOURCE: 92060-18039 
*     RELOC:  92060-16039 
*     PGMR:   S.P.K.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976.  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 SAVE,3,99 92060-16039 REV.1901 781108 
* DISC TO MAG TAPE DATA TRANSFER
      EXT DMT,RMPAR,COR.A,EXEC,BUFER,ITASK
SAVE  JSB RMPAR     GET PARAMETERS
      DEF *+2 
      DEF IP
      CLA 
      STA ITASK     TASK=0 FOR SAVE 
      JSB BUFER     ROUTINE TO FIND FWA IN FREE MEM OF PARTITION
      DEF FWA       AND TO DETERMINE # OF WORDS IN AVMEM
      DEF PLEN
      DEF BFLEN     # OF WORDS IN AVMEM 
* 
      LDA FWA 
      INA 
      STA ITR       SET UP VERIABLE FOR TRACK # 
      INA 
      STA JB        ADDRESS FOR READ BUFFER 
      JSB DMT       GO TO MAIN DISC TO MAG TAPE ROUTINE 
      DEF *+8 
      DEF FWA,I     ADDR OF WRITE BUFFER - KB 
      DEF JB,I      ADDR OF READ BUFFER - JB
      DEF PLEN      LENGTH OF PPARTITION
      DEF BFLEN     # OF WORDS IN AVMEM 
      DEF IP        BUFFER WITH PARAMETERS
      DEF ITR,I     ADDR OF TRACK # - ITR 
      DEF FWA,I     ADDR OF SUBCHNL # - ISUB
      JSB EXEC      END OF SAVE PROGRAM 
      DEF *+2 
      DEF D6
* 
A     EQU 0 
B     EQU 1 
IP    BSS 5 
ITR   BSS 1 
JB    BSS 1 
FWA   BSS 1 
PLEN  BSS 1 
BFLEN BSS 1 
D6    DEC 6 
      END SAVE
                                                                                                