;
; SYSLIB Module Name:  SINITF
; Author:  Richard Conn
; SYSLIB Version Number:  2.0
; Module Version Number:  1.0
; Module Entry Points:
;       INITFCB
; Module External References:
;       FILLB
;

;
;  INITFCB -- GIVEN AN FCB PTED TO BY DE, INIT FCB FIELDS OTHER THAN FN
;       AND FT (FILE NAME AND FILE TYPE), TO ZERO; FCB MUST BE AT TOTAL OF
;       36 BYTES IN LENGTH (0=DR TO 35=R2)
;
;  ON RETURN, NO ERROR CODE RETURNED AND NO REGISTERS AFFECTED
;

       EXT     FILLB   ; SYSLIB FILL ROUTINE (USE B REG)

PUTRG   MACRO
       PUSH    B       ; SAVE BC, DE, HL
       PUSH    D
       PUSH    H
       ENDM
GETRG   MACRO
       POP     H       ; RESTORE HL, DE, BC
       POP     D
       POP     B
       ENDM

INITFCB::
       PUTRG           ; SAVE REGISTERS
       PUSH    PSW     ; SAVE A
       XCHG            ; HL PTS TO FCB
       XRA     A       ; A=0
       MOV     M,A     ; SET DR FIELD TO ZERO
       LXI     D,12    ; PT TO EX FIELD
       DAD     D
       MVI     B,24    ; CLEAR NEXT 24 BYTES
       CALL    FILLB   ; USE SYSLIB ROUTINE
       POP     PSW     ; GET A
       GETRG           ; GET REGISTERS
       RET

       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.