ASMB,R,L,C
      HED IDCBS 
*     NAME:   IDCBS 
*     SOURCE: 92067-18140 
*     RELOC:  92067-16125 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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 IDCBS,7 92067-16125 REV.1903 780602 
      EXT .ENTR 
      ENT IDCBS 
* 
IDCB  NOP 
IDCBS NOP 
      JSB .ENTR     FETCH PARAM ADDR
      DEF IDCB
      LDB IDCB
      ADB D9        GET THE OPEN FLAG 
      LDA B,I        FROM WORD 9 OF THE DCB 
      CPA XEQT      IS THIS FILE OPENED?
      JMP OPEND      YES
      LDA MD11       NO, ERROR -11
      JMP EXIT
* 
OPEND ADB MD7       BACK UP TO WORD 2 
      LDA B,I 
      CPA D1        FILE TYPE 1?
      CLA           OR 0? 
      SZA,RSS       YES, SET BUFFER SIZE=0
* 
      JMP RTNOK 
* 
NOT12 ADB D5        ADVANCE TO WORD 7 
      LDA B,I       GET SIZE WORD 
      AND MASK       BUT CLEAR OTHER BITS 
RTNOK ADA D16       ADD 16 TO BUFFER SIZE 
EXIT  JMP IDCBS,I   RETURN DCB SIZE IN A
* 
A     EQU 0 
B     EQU 1 
XEQT  EQU 1717B 
D1    DEC 1 
D2    DEC 2 
D5    DEC 5 
D9    DEC 9 
D16   DEC 16
MD11  DEC -11 
MD7   DEC -7
MASK  OCT 077600
* 
      END 
                    