ASMB,L
      HED %BUFR 91704-16110 REV A * (C) HEWLETT-PAKARD CO. 1976 
      NAM %BUFR,6 91704-16110 REV A 751224
      SPC 1 
******************************************************************
*  * (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.       *
******************************************************************
      SPC 2 
      SPC 1 
******************************************************
* 
*%BUFR              BUFFERING MODULE...AND FLAGS
* 
*SOURCE PART #      91704-18110 REV A 
* 
*REL PART #         91704-16110 REV A 
* 
*WRITTEN BY:        LARRY POMATTO 
* 
*DATE WRITTEN:      8-30-74 
* 
*MODIFIED BY:       JEAN-PIERRE BAUDOUIN
* 
*DATE MODIFIED:     DEC 1975
* 
******************************************************* 
      SPC 1 
* 
*     DEFINE EXTERNALS
* 
      SPC 1 
      EXT $LIBR,$LIBX 
      SPC 2 
* 
* 
      SPC 2 
* 
*     DEFINE BUFFER ENTRY POINTS
* 
      ENT FRPLY,REPLA 
      ENT #TIME 
      ENT MSTFL,MSTB
      ENT %MOVE,DBSY
      SPC 2 
* 
*     DRIVER BUSY REQUEST...SLAVE 
* 
DBSY  NOP 
      SPC 2 
* 
*     REPLY PARMB ADDRESS...PLACED THERE BY %TAM
* 
REPLA NOP 
* 
*     DRIVER STATUS FOR REPLY. TELLS RWAIT (IN %TAM) IF THE 
*     REPLY HAS ARRIVED.
* 
FRPLY NOP 
      SPC 2 
* 
*     MASTER PARMB LENGTH...PLACED BY %INTR TO TELL %PTP IF 
*     IF ANYTHING WAS RECEIVED TO SATISFY A GET.
* 
MSTFL NOP 
* 
*     MASTER PARMB
* 
MSTB  BSS 35
* 
*     TIME TAGS OF THE LAST OUTGOING REQUEST
* 
#TIME BSS 2 
      SPC 2 
* 
*     SUBROUTINE TO MOVE WORDS FROM ONE AREA OF CORE TO ANOTHER 
*     CALLING SEQUENCE
*     JSB MOVE
*     DEF DESTINATION BUFFER ADDRESS
*     A REG CONTAINS SOURCE ADDRESS 
*     B REG CONTAINS SOURCE LENGTH
* 
MOVE  NOP 
      JSB $LIBR     ROUTINE IS PRIVLEDGE
      NOP 
      SZB,RSS       MAKE SURE NOT ZERO
      JMP MOVE2     ZERO...DONE 
      STA SADD
      LDA MOVE,I    GET DESTINATION ADDRESS 
      STA DADD
      CMB,INB       NEGATE LENGTH 
MOVE1 LDA SADD,I    GET WORD
      STA DADD,I    SAVE WORD 
      ISZ SADD
      ISZ DADD
      INB,SZB       DONE? 
      JMP MOVE1     NO
MOVE2 ISZ MOVE
      JSB $LIBX     RETURN
      DEF MOVE
      SPC 1 
SADD  NOP 
DADD  NOP 
%MOVE EQU MOVE
      SPC 3 
END   EQU * 
      END 
                  