The Standard Ancestor Program, 348AAAA

1 | 101100 | ||

2 | et_collect | ||

3 | nwm_clear | ||

4 | adrb | ||

5 | nop_10 | ||

6 | nop_11 | ||

7 | nop_00 | ||

8 | push_a | ||

9 | pop_c | ||

10 | et_collect | ||

11 | dec_c | ||

12 | dec_c | ||

13 | dec_c | ||

14 | dec_c | ||

15 | dec_c | ||

16 | dec_c | ||

17 | push_c | ||

18 | pop_a | ||

19 | swap_ab | ||

20 | et_collect | ||

21 | adrf | ||

22 | nop_01 | ||

23 | nop_00 | ||

24 | nop_11 | ||

25 | nop_00 | ||

26 | nop_01 | ||

27 | nop_11 | ||

28 | swap_ab | ||

29 | set_jmp | ||

30 | et_collect | ||

31 | et_collect | ||

32 | clr_f | ||

33 | mov_ic | ||

34 | push_c | ||

35 | swap_cd | ||

36 | push_c | ||

37 | swap_ab | ||

38 | sub_ab | ||

39 | swap_ab | ||

40 | pop_c | ||

41 | swap_cd | ||

42 | pop_c | ||

43 | if_not_fl | ||

44 | nwm_write | ||

45 | if_fl | ||

46 | clr_jmp | ||

47 | jmp | ||

48 | et_collect | ||

49 | reg_create | ||

50 | nop_00 | ||

51 | nop_10 | ||

52 | nop_11 | ||

53 | nop_00 | ||

54 | nwm_divide | ||

55 | move | ||

56 | stop | ||

57-58 | 010011000111 | ||

promoter |
101100 |

1999-05-29