home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / PLAT26.ZIP / PLATINUM / XTRIEVE / RPATNET.401 < prev    next >
Encoding:
Text File  |  1988-09-23  |  1.6 KB  |  119 lines
  1. .
  2. .       beginning of patch #12 (part 2, part 1 is in xpatnet.401)
  3. .
  4. a cs:1c2f
  5. TEST    AX,AX                              
  6. JZ    1c3b
  7. MOV    WORD PTR [BP-06],01B6              
  8. JMP    1ce2
  9. MOV    AL,[BP-09]                         
  10. CMP    AL,[BP+0A]                         
  11. JNZ    1c46
  12. JMP    1ce2
  13. MOV    AX,[BP-08]                         
  14. CMP    AX,[33AA]                          
  15. JL    1c60
  16. MOV    WORD PTR [BP-06],0199              
  17. JMP    1ce2
  18.  
  19. w
  20. .
  21. .       end of patch #12 (part 2, part 1 is in xpatnet.401)
  22. .
  23.  
  24. .
  25. .       beginning of patch for MAKE_XTA problem #1
  26. .
  27. a cs:20b2
  28. MOV     DI,AX
  29. INC     AX
  30. JZ    20D9
  31. MOV    SI,[BP+08]
  32. MOV    [SI],DI
  33. MOV    CL,05
  34. MOV    AX,[DI+0B]
  35. SHR    AX,CL
  36. AND    AX,0700
  37. MOV     CL,0B
  38. MOV     BX,[DI+09]
  39. SHL     BX,CL
  40. OR      AX,BX
  41. NOP
  42. NOP
  43. NOP
  44.  
  45. a cs:be7f
  46. MOV    SI,[BP+0A]
  47. MOV    [SI+22],AX
  48. MOV    CL,05
  49. MOV    DI,AX
  50. MOV    AX,[DI+0B]
  51. SHR    AX,CL
  52. AND    AX,0700
  53. MOV    CL,0B
  54. MOV    BX,[DI+09]
  55. SHL    BX,CL
  56. OR      AX,BX
  57. OR    [SI+07],AX
  58. JMP    BEC9
  59. NOP
  60.  
  61. w
  62. .
  63. .       end of patch for MAKE_XTA problem #1
  64. .
  65.  
  66. .
  67. .       beginning of patch #15
  68. .
  69. a cs:e891
  70. JZ      E8F8
  71.  
  72. a cs:e8ee
  73. XOR     AX,AX
  74. INC     AX
  75. MOV     [335C],AX
  76. DEC     AX
  77. MOV     [BP-26],AX
  78. PUSH    AX
  79.  
  80. a cs:e90a
  81. POP     AX
  82. NOP
  83. NOP
  84.  
  85. w
  86. .
  87. .       end of patch #15
  88. .
  89.  
  90. .
  91. .       beginning of patch #16
  92. .
  93. a cs:9aab
  94. JLE     9AD0
  95. MOV     [335E],BX
  96. CMP     BX,AX
  97. JE      9ABB
  98. MOV     AX,[1687]
  99. MOV     [335C],AX
  100. CMP     WORD PTR [3344],+01
  101. JLE     9AF6
  102. SUB     BX,[3394]
  103. JNZ     9AC9
  104. INC     BX
  105. MOV     [335E],BX
  106. JMP     9AF6
  107. NOP
  108.  
  109. w
  110. .
  111. .       end of patch #16
  112. .
  113.  
  114. .
  115. .       END OF PATCHES FOR XTRIEVE REPORT OPTION 4.01
  116. .
  117. q
  118.  
  119.