INTERCEP.EXE.a1 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284
  1. start PROC NEAR
  2. 000 000110 B83500 MOV ax, 35h ;Segment constant
  3. 001 000113 8ED8 MOV ds, ax
  4. 002 000115 8EC0 MOV es, ax
  5. 003 000117 E89F01 CALL near ptr proc_1
  6. 004 00011A B403 MOV ah, 3
  7. 005 00011C B700 MOV bh, 0
  8. 006 00011E CD10 INT 10h /* Unknown int */
  9. 007 000120 882E0600 MOV [6], ch
  10. 008 000124 880E0700 MOV [7], cl
  11. 009 000128 B401 MOV ah, 1
  12. 010 00012A 80CD04 OR ch, 4
  13. 011 00012D 80E50D AND ch, 0Dh
  14. 012 000130 CD10 INT 10h /* Unknown int */
  15. 013 000132 B60A MOV dh, 0Ah
  16. 014 000134 B21E MOV dl, 1Eh
  17. 015 000136 E89901 CALL near ptr proc_2
  18. 016 000139 B2C9 MOV dl, 0C9h
  19. 017 00013B E89F01 CALL near ptr proc_3
  20. 018 00013E B91100 MOV cx, 11h
  21. 019 000141 B2CD MOV dl, 0CDh
  22. 020 000143 E89701 L1: CALL near ptr proc_3
  23. 021 000146 E2FB LOOP L1
  24. 022 000148 B2BB MOV dl, 0BBh
  25. 023 00014A E89001 CALL near ptr proc_3
  26. 024 00014D B60E MOV dh, 0Eh
  27. 025 00014F B21E MOV dl, 1Eh
  28. 026 000151 E87E01 CALL near ptr proc_2
  29. 027 000154 B2C8 MOV dl, 0C8h
  30. 028 000156 E88401 CALL near ptr proc_3
  31. 029 000159 B91100 MOV cx, 11h
  32. 030 00015C B2CD MOV dl, 0CDh
  33. 031 00015E E87C01 L2: CALL near ptr proc_3
  34. 032 000161 E2FB LOOP L2
  35. 033 000163 B2BC MOV dl, 0BCh
  36. 034 000165 E87501 CALL near ptr proc_3
  37. 035 000168 B60B MOV dh, 0Bh
  38. 036 00016A B21E MOV dl, 1Eh
  39. 037 00016C E86301 CALL near ptr proc_2
  40. 038 00016F B90300 MOV cx, 3
  41. 039 000172 52 L3: PUSH dx
  42. 040 000173 B2BA MOV dl, 0BAh
  43. 041 000175 E86501 CALL near ptr proc_3
  44. 042 000178 5A POP dx
  45. 043 000179 FEC6 INC dh
  46. 044 00017B E85401 CALL near ptr proc_2
  47. 045 00017E E2F2 LOOP L3
  48. 046 000180 B60B MOV dh, 0Bh
  49. 047 000182 B230 MOV dl, 30h
  50. 048 000184 E84B01 CALL near ptr proc_2
  51. 049 000187 B90300 MOV cx, 3
  52. 050 00018A 52 L4: PUSH dx
  53. 051 00018B B2BA MOV dl, 0BAh
  54. 052 00018D E84D01 CALL near ptr proc_3
  55. 053 000190 5A POP dx
  56. 054 000191 FEC6 INC dh
  57. 055 000193 E83C01 CALL near ptr proc_2
  58. 056 000196 E2F2 LOOP L4
  59. 057 000198 B60C MOV dh, 0Ch
  60. 058 00019A B220 MOV dl, 20h
  61. 059 00019C E83301 CALL near ptr proc_2
  62. 060 00019F BA0800 MOV dx, 8
  63. 061 0001A2 E8F300 CALL near ptr proc_6
  64. 062 0001A5 B616 MOV dh, 16h
  65. 063 0001A7 B220 MOV dl, 20h
  66. 064 0001A9 E82601 CALL near ptr proc_2
  67. 065 0001AC BA1800 MOV dx, 18h
  68. 066 0001AF E8E600 CALL near ptr proc_6
  69. 067 0001B2 B618 MOV dh, 18h
  70. 068 0001B4 B21E MOV dl, 1Eh
  71. 069 0001B6 E81901 CALL near ptr proc_2
  72. 070 0001B9 BA2800 MOV dx, 28h
  73. 071 0001BC E8D900 CALL near ptr proc_6
  74. 072 0001BF B91400 MOV cx, 14h
  75. 073 0001C2 E8C400 L5: CALL near ptr proc_7
  76. 074 0001C5 E2FB LOOP L5
  77. 075 0001C7 E8EF00 CALL near ptr proc_1
  78. 076 0001CA B600 MOV dh, 0
  79. 077 0001CC B200 MOV dl, 0
  80. 078 0001CE E80101 CALL near ptr proc_2
  81. 079 0001D1 BA3B00 MOV dx, 3Bh
  82. 080 0001D4 E8C100 CALL near ptr proc_6
  83. 081 0001D7 B601 MOV dh, 1
  84. 082 0001D9 B200 MOV dl, 0
  85. 083 0001DB E8F400 CALL near ptr proc_2
  86. 084 0001DE BA8700 MOV dx, 87h
  87. 085 0001E1 E8B400 CALL near ptr proc_6
  88. 086 0001E4 B602 MOV dh, 2
  89. 087 0001E6 B200 MOV dl, 0
  90. 088 0001E8 E8E700 CALL near ptr proc_2
  91. 089 0001EB BAD000 MOV dx, 0D0h
  92. 090 0001EE E8A700 CALL near ptr proc_6
  93. 091 0001F1 B603 MOV dh, 3
  94. 092 0001F3 B200 MOV dl, 0
  95. 093 0001F5 E8DA00 CALL near ptr proc_2
  96. 094 0001F8 BA1F01 MOV dx, 11Fh
  97. 095 0001FB E89A00 CALL near ptr proc_6
  98. 096 0001FE B604 MOV dh, 4
  99. 097 000200 B200 MOV dl, 0
  100. 098 000202 E8CD00 CALL near ptr proc_2
  101. 099 000205 BA6A01 MOV dx, 16Ah
  102. 100 000208 E88D00 CALL near ptr proc_6
  103. 101 00020B B607 MOV dh, 7
  104. 102 00020D B200 MOV dl, 0
  105. 103 00020F E8C000 CALL near ptr proc_2
  106. 104 000212 BA8C01 MOV dx, 18Ch
  107. 105 000215 E88000 CALL near ptr proc_6
  108. 106 000218 B608 MOV dh, 8
  109. 107 00021A B200 MOV dl, 0
  110. 108 00021C E8B300 CALL near ptr proc_2
  111. 109 00021F BAD501 MOV dx, 1D5h
  112. 110 000222 E87300 CALL near ptr proc_6
  113. 111 000225 B60B MOV dh, 0Bh
  114. 112 000227 B200 MOV dl, 0
  115. 113 000229 E8A600 CALL near ptr proc_2
  116. 114 00022C BAFD01 MOV dx, 1FDh
  117. 115 00022F E86600 CALL near ptr proc_6
  118. 116 000232 B60D MOV dh, 0Dh
  119. 117 000234 B200 MOV dl, 0
  120. 118 000236 E89900 CALL near ptr proc_2
  121. 119 000239 BA3602 MOV dx, 236h
  122. 120 00023C E85900 CALL near ptr proc_6
  123. 121 00023F B60F MOV dh, 0Fh
  124. 122 000241 B200 MOV dl, 0
  125. 123 000243 E88C00 CALL near ptr proc_2
  126. 124 000246 BA7C02 MOV dx, 27Ch
  127. 125 000249 E84C00 CALL near ptr proc_6
  128. 126 00024C B610 MOV dh, 10h
  129. 127 00024E B200 MOV dl, 0
  130. 128 000250 E87F00 CALL near ptr proc_2
  131. 129 000253 BAC602 MOV dx, 2C6h
  132. 130 000256 E83F00 CALL near ptr proc_6
  133. 131 000259 B618 MOV dh, 18h
  134. 132 00025B B200 MOV dl, 0
  135. 133 00025D E87200 CALL near ptr proc_2
  136. 134 000260 BAD802 MOV dx, 2D8h
  137. 135 000263 E83200 CALL near ptr proc_6
  138. 136 000266 B400 L6: MOV ah, 0
  139. 137 000268 CD16 INT 16h /* Unknown int */
  140. 138 00026A 80FC1C CMP ah, 1Ch
  141. 139 00026D 75F7 JNE L6
  142. 140 00026F B401 MOV ah, 1
  143. 141 000271 8A2E0600 MOV ch, [6]
  144. 142 000275 8A0E0700 MOV cl, [7]
  145. 143 000279 CD10 INT 10h /* Unknown int */
  146. 144 00027B B8004C MOV ax, 4C00h
  147. 145 00027E CD21 INT 21h ;Exit to DOS /* Terminate process with return code */
  148. start ENDP
  149. proc_1 PROC NEAR
  150. 000 0002B9 50 PUSH ax
  151. 001 0002BA 53 PUSH bx
  152. 002 0002BB 51 PUSH cx
  153. 003 0002BC 52 PUSH dx
  154. 004 0002BD 32C0 XOR al, al
  155. 005 0002BF B500 MOV ch, 0
  156. 006 0002C1 B100 MOV cl, 0
  157. 007 0002C3 B618 MOV dh, 18h
  158. 008 0002C5 B24F MOV dl, 4Fh
  159. 009 0002C7 B707 MOV bh, 7
  160. 010 0002C9 B406 MOV ah, 6
  161. 011 0002CB CD10 INT 10h /* Unknown int */
  162. 012 0002CD 5A POP dx
  163. 013 0002CE 59 POP cx
  164. 014 0002CF 5B POP bx
  165. 015 0002D0 58 POP ax
  166. 016 0002D1 C3 RET
  167. proc_1 ENDP
  168. proc_2 PROC NEAR
  169. 000 0002D2 50 PUSH ax
  170. 001 0002D3 53 PUSH bx
  171. 002 0002D4 B700 MOV bh, 0
  172. 003 0002D6 B402 MOV ah, 2
  173. 004 0002D8 CD10 INT 10h /* Unknown int */
  174. 005 0002DA 5B POP bx
  175. 006 0002DB 58 POP ax
  176. 007 0002DC C3 RET
  177. proc_2 ENDP
  178. proc_3 PROC NEAR
  179. 000 0002DD 50 PUSH ax
  180. 001 0002DE 53 PUSH bx
  181. 002 0002DF 51 PUSH cx
  182. 003 0002E0 52 PUSH dx
  183. 004 0002E1 B409 MOV ah, 9
  184. 005 0002E3 B700 MOV bh, 0
  185. 006 0002E5 B90100 MOV cx, 1
  186. 007 0002E8 8AC2 MOV al, dl
  187. 008 0002EA B307 MOV bl, 7
  188. 009 0002EC CD10 INT 10h /* Unknown int */
  189. 010 0002EE E81E00 CALL near ptr proc_4
  190. 011 0002F1 5A POP dx
  191. 012 0002F2 59 POP cx
  192. 013 0002F3 5B POP bx
  193. 014 0002F4 58 POP ax
  194. 015 0002F5 C3 RET
  195. proc_3 ENDP
  196. proc_4 PROC NEAR
  197. 000 00030F 50 PUSH ax
  198. 001 000310 53 PUSH bx
  199. 002 000311 51 PUSH cx
  200. 003 000312 52 PUSH dx
  201. 004 000313 B403 MOV ah, 3
  202. 005 000315 B700 MOV bh, 0
  203. 006 000317 CD10 INT 10h /* Unknown int */
  204. 007 000319 B402 MOV ah, 2
  205. 008 00031B FEC2 INC dl
  206. 009 00031D 80FA4F CMP dl, 4Fh
  207. 010 000320 7606 JBE L7
  208. 011 000322 E82000 CALL near ptr proc_5
  209. 012 000325 EB03 JMP L8
  210. 013 00032A 5A L8: POP dx
  211. 014 00032B 59 POP cx
  212. 015 00032C 5B POP bx
  213. 016 00032D 58 POP ax
  214. 017 00032E C3 RET
  215. 018 000328 CD10 L7: INT 10h /* Unknown int */
  216. 019 JMP L8 ;Synthetic inst
  217. proc_4 ENDP
  218. proc_5 PROC NEAR
  219. 000 000345 50 PUSH ax
  220. 001 000346 52 PUSH dx
  221. 002 000347 B402 MOV ah, 2
  222. 003 000349 B20D MOV dl, 0Dh
  223. 004 00034B CD21 INT 21h /* Character output */
  224. 005 00034D B20A MOV dl, 0Ah
  225. 006 00034F CD21 INT 21h /* Character output */
  226. 007 000351 5A POP dx
  227. 008 000352 58 POP ax
  228. 009 000353 C3 RET
  229. proc_5 ENDP
  230. proc_6 PROC NEAR
  231. 000 000298 B409 MOV ah, 9
  232. 001 00029A CD21 INT 21h /* Display string */
  233. 002 00029C C3 RET
  234. proc_6 ENDP
  235. proc_7 PROC NEAR
  236. 000 000289 51 PUSH cx
  237. 001 00028A B100 MOV cl, 0
  238. 002 00028C B500 L9: MOV ch, 0
  239. 003 00028E FECD L10: DEC ch
  240. 004 000290 75FC JNE L10
  241. 005 000292 FEC9 DEC cl
  242. 006 000294 75F6 JNE L9
  243. 007 000296 59 POP cx
  244. 008 000297 C3 RET
  245. proc_7 ENDP