;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;     NAME:  zbra01.A86
;     DATE:  12 APRIL 1984
;
;     PRODUCT(S):  iRMX 86 R6.0, UDI V2.0
;
;     REPAIR LIBRARY:  UDI.LIB
;     REPAIR MODULE :  UXCLSV
;
;     DESCRIPTION:  This ZAP solves the problem of the ASM86 assembler
;     not being able to assemble LARGE files if running on iRMX 86 R6.0
;     The assembler would abort with an E$MEM exception.
;
;     SPECIAL NOTES:  This ZAP should only be applied if you are 
;     exeriencing the above problem.  This problem will be fixed in
;     the next version ASM86.
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

NAME    uxclsv_repair_zbra01

cgroup  GROUP	code

zaps    SEGMENT   WORD    COMMON 'CODE'

        ASSUME    cs:cgroup

        DB      'ZBRA01K30'                   ;Zap ID string
        DB      03EH                          ;Checksum

zaps    ENDS

code            SEGMENT WORD COMMON 'CODE'

                ASSUME  cs:cgroup

                EXTRN   u_reserve_io_memory : near

                ORG     195H
                JMP     patch_code

                ORG     198H
patch_return:

                ORG     1AAH
error:

                ORG     2AFH
patch_code:
                MOV     ax, 6H
                PUSH    ax
                MOV     ax, 0CH
                PUSH    ax
                LES     bx, DWORD PTR [bp +04H]
                PUSH    es
                PUSH    bx
                MOV     es, [bp - 08H]
                PUSH    es
                CALL    u_reserve_io_memory
                LES     bx, DWORD PTR [bp + 04H]
                CMP     es:WORD PTR [bx], 0
                JZ      no_errors
                JMP     error

no_errors:
                MOV     es, [bp - 08H]
                JMP     patch_return

code            ENDS
                END