ASMB,R,L,C HED (FMP) F.DCB: FMP INTERNAL DCB HEADER POINTERS * NAME: F.DCB * SOURCE: 92071-18196 * RELOC: 92071-16196 * PGMR: E.D.B. * * *************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980. 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 F.DCB,7 92071-1X196 REV.2041 800708 * ENT F.DCB ENT F.LU, F.ENT, F.TYP, F.TR2 ENT F.SC2, F.SIZ, F.RCL, F.ST1 ENT F.S/T, F.FLG, F.TR3, F.SC3 ENT F.BFP, F.ST2, F.RCN, F.EXN ENT F.BFA ENT F.DLU, F.EOF, F.SPC, F.RWC ENT F.BFS, F.LFT SUP SKP * * DESCRIPTION * * THIS ROUTINE CONTAINS POINTERS TO DCB HEADER WORDS * TO BE USED BY FMP ROUTINES, AND OTHER USEFUL GLOBAL * PARAMETERS. * * DCB HEADER POINTER TABLE (F.DCB) SET UP: * * : * : * EXT F.DCB * : * : * LDA IDCB GET USER DCB ADDRESS * LDB F.DCB GET ADDRESS OF F.DCB TABLE * JSB $SETP SET UP TABLE * DEF .16 16 ENTRIES * : * : * * PACKING BUFFER SIZE (F.BFS) * WORDS REMAINING (F.LFT) SET UP: * : * : * LDA F.ST1,I GET FIRST STATUS WORD * AND =B77600 ISOLATE PACKING BUFFER SIZE * STA F.BFS AND SAVE * CMA,INA NEGATE BUFFER SIZE * STA F.LFT AND SAVE * : * : SKP * * STORAGE AREA * F.LU NOP - POINTERS TO USER DCB HEADER WORDS F.ENT NOP ! F.TYP NOP ! F.TR2 NOP ! F.SC2 NOP ! F.SIZ NOP ! F.RCL NOP ! F.ST1 NOP ! F.S/T NOP ! F.FLG NOP ! F.TR3 NOP ! F.SC3 NOP ! F.BFP NOP ! F.ST2 NOP ! F.RCN NOP ! F.EXN NOP ! F.BFA NOP - * F.DCB DEF F.LU * F.DLU EQU F.TR2 F.EOF EQU F.SC2 F.SPC EQU F.SIZ F.RWC EQU F.RCL * F.BFS NOP PACKING BUFFER SIZE (IN WORDS) F.LFT NOP WORDS REMAINING IN PACKING BUFFER (NEGATIVE) * END EQU * * END