0060aaa.tie

地球模拟器

format: 3  bits: 3  EX      TC      TP      MF      MT      MB      
genotype: 0060aaa  parent genotype: 0666god
ploidy: 1  track: 0
comments: a parasite hand-made from the ancestor.

track 0: prot
          xwr
nop1    ; 010 000 01   0 beginning marker
nop1    ; 010 000 01   1 beginning marker
nop1    ; 010 000 01   2 beginning marker
nop1    ; 010 000 01   3 beginning marker
zero    ; 010 000 12   4 zero out ax so that adrb offset is zero
adrb    ; 010 000 1c   5 get (backward) address of beginning marker -> ax
nop0    ; 010 000 00   6 complement to beginning marker
nop0    ; 010 000 00   7 complement to beginning marker
nop0    ; 010 000 00   8 complement to beginning marker
nop0    ; 010 000 00   9 complement to beginning marker
bx      ; 010 000 03  10
sub     ; 010 000 11  11 bx = ax - bx (subtract template size from address)
ax      ; 010 000 02  12 set up register window so that
cx      ; 010 000 04  13     bx is not clobbered
dx      ; 010 000 05  14     by the adrf
zero    ; 010 000 12  15 zero out dx so that adrf offset is zero
adrf    ; 010 000 1d  16 get (forward) address of end marker -> ax
nop0    ; 010 000 00  17 complement to end marker
nop0    ; 010 000 00  18 complement to end marker
nop0    ; 010 000 00  19 complement to end marker
nop1    ; 010 000 01  20 complement to end marker
bx      ; 010 000 03  21
sub     ; 010 000 11  22 cx = dx - bx (subtract to find length)
nop1    ; 010 000 01  23 reproduction loop marker
nop1    ; 010 000 01  24 reproduction loop marker
nop0    ; 010 000 00  25 reproduction loop marker
nop1    ; 010 000 01  26 reproduction loop marker
cx      ; 010 000 04  27
ax      ; 010 000 02  28
movdd   ; 010 000 06  29 copy cx (length) to ax
dx      ; 010 000 05  30
zero    ; 010 000 12  31
dec     ; 010 000 0f  32 set dx to a negative value (to force better fit)
ax      ; 010 000 02  33
mal     ; 010 000 1e  34 allocate space for daughter with bestfit (addr into ax)
dx      ; 010 000 05  35
dx      ; 010 000 05  36
dx      ; 010 000 05  37
zero    ; 010 000 12  38 zero out dx so that adrf offset is zero
call    ; 010 000 1a  39
nop0    ; 010 000 00  40 copy procedure complement
nop0    ; 010 000 00  41 copy procedure complement
nop1    ; 010 000 01  42 copy procedure complement
nop1    ; 010 000 01  43 copy procedure complement
zero    ; 010 000 12  44 zero out dx so that IP offset is zero
divide  ; 010 000 1f  45 create independent daughter cell
dx      ; 010 000 05  46
dx      ; 010 000 05  47
dx      ; 010 000 05  48
zero    ; 010 000 12  49
jmpb    ; 010 000 19  50
nop0    ; 010 000 00  51 reproduction loop complement
nop0    ; 010 000 00  52 reproduction loop complement
nop1    ; 010 000 01  53 reproduction loop complement
nop0    ; 010 000 00  54 reproduction loop complement
ifz     ; 010 000 16  55
nop1    ; 010 000 01  56 copy procedure template
nop1    ; 010 000 01  57 copy procedure template
nop1    ; 010 000 01  58 copy procedure template
nop0    ; 010 000 00  59 copy procedure template