format: 3  bits: 3  EX      TC      TP      MF      MT      MB      genotype: 0060aaa  parent genotype: 0666godploidy: 1  track: 0comments: a parasite hand-made from the ancestor.track 0: prot          xwrnop1    ; 010 000 01   0 beginning markernop1    ; 010 000 01   1 beginning markernop1    ; 010 000 01   2 beginning markernop1    ; 010 000 01   3 beginning markerzero    ; 010 000 12   4 zero out ax so that adrb offset is zeroadrb    ; 010 000 1c   5 get (backward) address of beginning marker -> axnop0    ; 010 000 00   6 complement to beginning markernop0    ; 010 000 00   7 complement to beginning markernop0    ; 010 000 00   8 complement to beginning markernop0    ; 010 000 00   9 complement to beginning markerbx      ; 010 000 03  10sub     ; 010 000 11  11 bx = ax - bx (subtract template size from address)ax      ; 010 000 02  12 set up register window so thatcx      ; 010 000 04  13     bx is not clobbereddx      ; 010 000 05  14     by the adrfzero    ; 010 000 12  15 zero out dx so that adrf offset is zeroadrf    ; 010 000 1d  16 get (forward) address of end marker -> axnop0    ; 010 000 00  17 complement to end markernop0    ; 010 000 00  18 complement to end markernop0    ; 010 000 00  19 complement to end markernop1    ; 010 000 01  20 complement to end markerbx      ; 010 000 03  21sub     ; 010 000 11  22 cx = dx - bx (subtract to find length)nop1    ; 010 000 01  23 reproduction loop markernop1    ; 010 000 01  24 reproduction loop markernop0    ; 010 000 00  25 reproduction loop markernop1    ; 010 000 01  26 reproduction loop markercx      ; 010 000 04  27ax      ; 010 000 02  28movdd   ; 010 000 06  29 copy cx (length) to axdx      ; 010 000 05  30zero    ; 010 000 12  31dec     ; 010 000 0f  32 set dx to a negative value (to force better fit)ax      ; 010 000 02  33mal     ; 010 000 1e  34 allocate space for daughter with bestfit (addr into ax)dx      ; 010 000 05  35dx      ; 010 000 05  36dx      ; 010 000 05  37zero    ; 010 000 12  38 zero out dx so that adrf offset is zerocall    ; 010 000 1a  39nop0    ; 010 000 00  40 copy procedure complementnop0    ; 010 000 00  41 copy procedure complementnop1    ; 010 000 01  42 copy procedure complementnop1    ; 010 000 01  43 copy procedure complementzero    ; 010 000 12  44 zero out dx so that IP offset is zerodivide  ; 010 000 1f  45 create independent daughter celldx      ; 010 000 05  46dx      ; 010 000 05  47dx      ; 010 000 05  48zero    ; 010 000 12  49jmpb    ; 010 000 19  50nop0    ; 010 000 00  51 reproduction loop complementnop0    ; 010 000 00  52 reproduction loop complementnop1    ; 010 000 01  53 reproduction loop complementnop0    ; 010 000 00  54 reproduction loop complementifz     ; 010 000 16  55nop1    ; 010 000 01  56 copy procedure templatenop1    ; 010 000 01  57 copy procedure templatenop1    ; 010 000 01  58 copy procedure templatenop0    ; 010 000 00  59 copy procedure template