format: 3  bits: 2156009669  EXsh    TCsh    TPs     MFs     MTd     MBh     genotype: 0080aaa  parent genotype: 0666god1st_daughter:  flags: 0  inst: 827  mov_daught: 80          breed_true: 12nd_daughter:  flags: 0  inst: 809  mov_daught: 80          breed_true: 1Origin: InstExe: 0,0  clock: 0  Thu Jan 01 -5:00:00 1970MaxPropPop: 0.8306  MaxPropInst: 0.4239 mpp_time: 0,0 ploidy: 1  track: 0comments: the ancestor, written by a human, mother of all other creatures.track 0: prot          xwrnop1    ; 010 110 01   0 beginning markernop1    ; 010 110 01   1 beginning markernop1    ; 010 110 01   2 beginning markernop1    ; 010 110 01   3 beginning markerzero    ; 010 110 04   4 put zero in cxnot0    ; 010 110 02   5 put 1 in first bit of cxshl     ; 010 110 03   6 shift left cx (cx = 2)shl     ; 010 110 03   7 shift left cx (cx = 4)movcd   ; 010 110 18   8 move cx to dx (dx = 4)adrb    ; 010 110 1c   9 get (backward) address of beginning marker -> axnop0    ; 010 100 00  10 complement to beginning markernop0    ; 010 100 00  11 complement to beginning markernop0    ; 010 100 00  12 complement to beginning markernop0    ; 010 100 00  13 complement to beginning markersub_ac  ; 010 110 07  14 subtract cx from ax, result in axmovab   ; 010 110 19  15 move ax to bx, bx now contains start address of motheradrf    ; 010 110 1d  16 get (forward) address of end marker -> axnop0    ; 010 100 00  17 complement to end markernop0    ; 010 100 00  18 complement to end markernop0    ; 010 100 00  19 complement to end markernop1    ; 010 100 01  20 complement to end markerinc_a   ; 010 110 08  21 increment ax, to include dummy instruction at endsub_ab  ; 010 110 06  22 subtract bx from ax to get size, result in cxnop1    ; 010 110 01  23 reproduction loop markernop1    ; 010 110 01  24 reproduction loop markernop0    ; 010 110 00  25 reproduction loop markernop1    ; 010 110 01  26 reproduction loop markermal     ; 010 110 1e  27 allocate space (cx) for daughter, address to axcall    ; 010 110 16  28 call template below (copy procedure)nop0    ; 010 100 00  29 copy procedure complementnop0    ; 010 100 00  30 copy procedure complementnop1    ; 010 100 01  31 copy procedure complementnop1    ; 010 100 01  32 copy procedure complementdivide  ; 010 110 1f  33 create independent daughter celljmp     ; 010 110 14  34 jump to template below (reproduction loop)nop0    ; 010 100 00  35 reproduction loop complementnop0    ; 010 100 00  36 reproduction loop complementnop1    ; 010 100 01  37 reproduction loop complementnop0    ; 010 100 00  38 reproduction loop complementifz     ; 010 000 05  39 dummy instruction to separate templatesnop1    ; 010 110 01  40 copy procedure templatenop1    ; 010 110 01  41 copy procedure templatenop0    ; 010 110 00  42 copy procedure templatenop0    ; 010 110 00  43 copy procedure templatepushax  ; 010 110 0c  44 push ax onto stackpushbx  ; 010 110 0d  45 push bx onto stackpushcx  ; 010 110 0e  46 push cx onto stacknop1    ; 010 110 01  47 copy loop templatenop0    ; 010 110 00  48 copy loop templatenop1    ; 010 110 01  49 copy loop templatenop0    ; 010 110 00  50 copy loop templatemovii   ; 010 110 1a  51 move contents of [bx] to [ax] (copy one instruction)dec_c   ; 010 110 0a  52 decrement cx (size)ifz     ; 010 110 05  53 if cx == 0 perform next instruction, otherwise skip itjmp     ; 010 110 14  54 jump to template below (copy procedure exit)nop0    ; 010 110 00  55 copy procedure exit complementnop1    ; 010 110 01  56 copy procedure exit complementnop0    ; 010 110 00  57 copy procedure exit complementnop0    ; 010 110 00  58 copy procedure exit complementinc_a   ; 010 110 08  59 increment ax (address in daughter to copy to)inc_b   ; 010 110 09  60 increment bx (address in mother to copy from)jmp     ; 010 110 14  61 bidirectional jump to template below (copy loop)nop0    ; 010 100 00  62 copy loop complementnop1    ; 010 100 01  63 copy loop complementnop0    ; 010 100 00  64 copy loop complementnop1    ; 010 100 01  65 copy loop complementifz     ; 010 000 05  66 this is a dummy instruction to separate templatesnop1    ; 010 110 01  67 copy procedure exit templatenop0    ; 010 110 00  68 copy procedure exit templatenop1    ; 010 110 01  69 copy procedure exit templatenop1    ; 010 110 01  70 copy procedure exit templatepopcx   ; 010 110 12  71 pop cx off stack (size)popbx   ; 010 110 11  72 pop bx off stack (start address of mother)popax   ; 010 110 10  73 pop ax off stack (start address of daughter)ret     ; 010 110 17  74 return from copy procedurenop1    ; 010 100 01  75 end templatenop1    ; 010 100 01  76 end templatenop1    ; 010 100 01  77 end templatenop0    ; 010 100 00  78 end templateifz     ; 010 000 05  79 dummy instruction to separate creature