;*; Updated on 04-May-93 at 9:27 AM by James A. Jarboe I V; edit time: 0:10:45
;*; Created on 04-May-93 at 9:20 AM by James A. Jarboe I V; edit time: 0:01:34

;***************************************************************************
;                                                                          *
;                            S Y M B O L I C S                             *
;                                                                          *
;***************************************************************************
;
       SEARCH  SYS
       SEARCH  SYSSYM
       SEARCH  TOOLBX



TBXMPL: PHDR    -1,0,PH$REE!PH$REU

       CHKTBX  ABTMSG                  ; Always check for proper toolbx.

       TOOLBX  TBX$MPLFRE              ; Get free central memory pool.
       MOV     D6, D0                  ; Save available free pool.
       MOV     D7, D2                  ; Save largest packet size.
       TYPE    <Available Memory pool      >
       MOV     D0, D1                  ; Set for output.
       DCVT    0,OT$TRM                ; Tell em.
       TYPE    < bytes     (>
       DIV     D1,#1024.               ; Set up for K size.
       AND     #177777, D1             ; Strip remainder.
       DCVT    4,OT$TRM!OT$ZER
       TYPECR  K)
       TYPE    <Largest Memory pool Packet >
       MOV     D2, D1                  ; Set up largest packet.
       DCVT    0,OT$TRM                ; Output it.
       TYPE    < bytes     (>
       DIV     D1, #1024.              ; Set up for K size.
       AND     #177777, D1             ; Strip remainder.
       DCVT    4,OT$TRM!OT$ZER         ; Do it.
       TYPECR  K)
       EXIT

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.