;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;     NAME:  zbra00.a86
;     DATE:  11 April 1984
;
;     PRODUCT(S):  iRMX 86 R6.0, UDI V3.0
;
;     REPAIR LIBRARY: UDI.LIB
;     REPAIR MODULE : UDURES
;
;     DESCRIPTION:  This zap solves the problem of the FORTRAN 
;     compiler not being able to run on iRMX 86 R6.0.  This patch
;     changes UDI so that a request to DQ$RESERVE$IO$MEMORY of 
;     more than twelve buffers will not return an E$RESERVE$PARAM 
;     exception.  Instead, an E$OK is returned and only twelve buffers
;     are reserved.
;
;     SPECIAL NOTES:  This ZAP only applies to the Fortran compiler
;     that is linked with UDI V3.0.  This zap should only be applied 
;     if you are using this Fortran Compiler.  This ZAP will become 
;     obsolete as soon as the next version of the compiler is released.
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

NAME    udures_repair_zbra00

cgroup  GROUP	code

zaps    SEGMENT   WORD    COMMON 'CODE'

        ASSUME    cs:cgroup

        DB      'ZBRA00K30'                   ;Zap ID string
        DB      03DH                          ;Checksum

zaps    ENDS

code            SEGMENT WORD COMMON 'CODE'

                ASSUME  cs:cgroup

                ORG     1CH
                JMP     patch_code
                NOP

                ORG     2BH
patch_return:

                ORG     15EH
patch_code:
                CMP     cx, dx
                JBE     end_patch
                MOV     [bp-9H], dl

end_patch:
                JMP     patch_return

code            ENDS

                END