API tools faq
paste
Advertisement
kronicmage

Lmao 2

kronicmage
Apr 24th, 2019
762
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 20.11 KB | None | 0 0
raw download clone embed print report
  1. (define simp_code
  2.   '((fun (main)
  3.          (vars [(index 11) (index2 13) (count 1) (limit 1000)]
  4.                (set limit (- limit 2))
  5.                (print "3 5, 5 7")
  6.                (while (< count limit)
  7.                       (iif (and (prime? index) (prime? index2))
  8.                            (seq (print ", ") (print index) (print " ") (print index2) (set count (+ count 1)))
  9.                            (skip))
  10.                       (set index (+ index 6))
  11.                       (set index2 (+ index2 6)))
  12.                (return 0)))
  13.     (fun (mod-expt a power base)
  14.          (vars []
  15.                (iif (= power 1)
  16.                     (return a)
  17.                     (iif (= (mod power 2) 0)
  18.                          (return (mod-expt (mod (* a a) base) (div power 2) base))
  19.                          (return (mod (* a (mod-expt a (- power 1) base)) base))))))
  20.     (fun (mrfactor n choice_r_d)
  21.          (vars [(temp 0)]
  22.                (set n (- n 1))
  23.                (while (= (mod n 2) 0)
  24.                       (set temp (+ 1 temp))
  25.                       (set n (div n 2)))
  26.                (iif choice_r_d
  27.                     (return temp)
  28.                     (return n))))
  29.     (fun (millerrabin n base)
  30.          (vars [(r 0) (d 0) (ex 0)]
  31.                (set r (mrfactor n true))
  32.                (set d (mrfactor n false))
  33.                (set ex (mod-expt base d n))
  34.                (iif (= ex 1)
  35.                     (return true)
  36.                     (while (> r 0)
  37.                            (iif (= (- n ex) 1)
  38.                                 (return true)
  39.                                 (seq (set ex (mod (* ex ex) n)) (set r (- r 1))))))
  40.                (return false)))
  41.     (fun (prime? n)
  42.          (vars []
  43.                (return (and (millerrabin n 2)
  44.                             (millerrabin n 7)
  45.                             (millerrabin n 61)))))))
  46.  
  47. (define aprimp_code
  48. '((const STACK_BASE SP)
  49.   (move SP STACK_BASE)
  50.   (move FP STACK_BASE)
  51.   (add SP SP 1)
  52.   (add FP FP 1)
  53.   (jump _main_end_def)
  54.   (const _main_index 11)
  55.   (const _main_index2 13)
  56.   (const _main_count 1)
  57.   (const _main_limit 1000)
  58.   (label _main_start_label)
  59.   (move (0 SP) _main_index)
  60.   (move (1 SP) _main_index2)
  61.   (move (2 SP) _main_count)
  62.   (move (3 SP) _main_limit)
  63.   (add SP SP 4)
  64.   (move (0 SP) (6 FP))
  65.   (add SP SP 1)
  66.   (move (0 SP) 2)
  67.   (sub (-1 SP) (-1 SP) (0 SP))
  68.   (sub SP SP 1)
  69.   (move (6 FP) (0 SP))
  70.   (print-string "3 5, 5 7")
  71.   (label _WHILE_LABEL0_466)
  72.   (move (0 SP) (5 FP))
  73.   (add SP SP 1)
  74.   (move (0 SP) (6 FP))
  75.   (lt (-1 SP) (-1 SP) (0 SP))
  76.   (sub SP SP 1)
  77.   (branch (0 SP) _WHILE_LABEL1_467)
  78.   (jump _WHILE_LABEL2_468)
  79.   (label _WHILE_LABEL1_467)
  80.   (move (0 SP) #t)
  81.   (add SP SP 1)
  82.   (move (0 SP) 0)
  83.   (move (1 SP) 0)
  84.   (move (2 SP) FP)
  85.   (add SP SP 3)
  86.   (move (0 SP) (4 FP))
  87.   (add SP SP 1)
  88.   (move FP SP)
  89.   (sub FP FP 4)
  90.   (jsr (1 FP) _prime?_start_label)
  91.   (sub SP SP 1)
  92.   (land (-1 SP) (-1 SP) (0 SP))
  93.   (move (0 SP) 0)
  94.   (move (1 SP) 0)
  95.   (move (2 SP) FP)
  96.   (add SP SP 3)
  97.   (move (0 SP) (3 FP))
  98.   (add SP SP 1)
  99.   (move FP SP)
  100.   (sub FP FP 4)
  101.   (jsr (1 FP) _prime?_start_label)
  102.   (sub SP SP 1)
  103.   (land (-1 SP) (-1 SP) (0 SP))
  104.   (sub SP SP 1)
  105.   (branch (0 SP) _IF_LABEL0_469)
  106.   (jump _IF_LABEL1_470)
  107.   (label _IF_LABEL0_469)
  108.   (print-string ", ")
  109.   (move (0 SP) (3 FP))
  110.   (print-val (0 SP))
  111.   (print-string " ")
  112.   (move (0 SP) (4 FP))
  113.   (print-val (0 SP))
  114.   (move (0 SP) (5 FP))
  115.   (add SP SP 1)
  116.   (move (0 SP) 1)
  117.   (add (-1 SP) (-1 SP) (0 SP))
  118.   (sub SP SP 1)
  119.   (move (5 FP) (0 SP))
  120.   (jump _IF_LABEL2_471)
  121.   (label _IF_LABEL1_470)
  122.   (label _IF_LABEL2_471)
  123.   (move (0 SP) (3 FP))
  124.   (add SP SP 1)
  125.   (move (0 SP) 6)
  126.   (add (-1 SP) (-1 SP) (0 SP))
  127.   (sub SP SP 1)
  128.   (move (3 FP) (0 SP))
  129.   (move (0 SP) (4 FP))
  130.   (add SP SP 1)
  131.   (move (0 SP) 6)
  132.   (add (-1 SP) (-1 SP) (0 SP))
  133.   (sub SP SP 1)
  134.   (move (4 FP) (0 SP))
  135.   (jump _WHILE_LABEL0_466)
  136.   (label _WHILE_LABEL2_468)
  137.   (move (0 SP) 0)
  138.   (add SP SP 1)
  139.   (move (0 FP) (-1 SP))
  140.   (move SP FP)
  141.   (move FP (2 SP))
  142.   (add SP SP 1)
  143.   (jump (0 SP))
  144.   (label _main_end_def)
  145.   (jump _mod-expt_end_def)
  146.   (label _mod-expt_start_label)
  147.   (move (0 SP) (4 FP))
  148.   (add SP SP 1)
  149.   (move (0 SP) 1)
  150.   (equal (-1 SP) (-1 SP) (0 SP))
  151.   (sub SP SP 1)
  152.   (branch (0 SP) _IF_LABEL0_472)
  153.   (jump _IF_LABEL1_473)
  154.   (label _IF_LABEL0_472)
  155.   (move (0 SP) (3 FP))
  156.   (add SP SP 1)
  157.   (move (0 FP) (-1 SP))
  158.   (move SP FP)
  159.   (move FP (2 SP))
  160.   (add SP SP 1)
  161.   (jump (0 SP))
  162.   (jump _IF_LABEL2_474)
  163.   (label _IF_LABEL1_473)
  164.   (move (0 SP) (4 FP))
  165.   (add SP SP 1)
  166.   (move (0 SP) 2)
  167.   (mod (-1 SP) (-1 SP) (0 SP))
  168.   (move (0 SP) 0)
  169.   (equal (-1 SP) (-1 SP) (0 SP))
  170.   (sub SP SP 1)
  171.   (branch (0 SP) _IF_LABEL0_475)
  172.   (jump _IF_LABEL1_476)
  173.   (label _IF_LABEL0_475)
  174.   (move (0 SP) (3 FP))
  175.   (add SP SP 1)
  176.   (move (0 SP) (3 FP))
  177.   (mul (-1 SP) (-1 SP) (0 SP))
  178.   (move (0 SP) (5 FP))
  179.   (mod (-1 SP) (-1 SP) (0 SP))
  180.   (move (0 SP) (4 FP))
  181.   (add SP SP 1)
  182.   (move (0 SP) 2)
  183.   (div (-1 SP) (-1 SP) (0 SP))
  184.   (move (0 SP) (5 FP))
  185.   (add SP SP 1)
  186.   (sub SP SP 3)
  187.   (move (3 FP) (0 SP))
  188.   (move (4 FP) (1 SP))
  189.   (move (5 FP) (2 SP))
  190.   (move SP FP)
  191.   (add SP SP 7)
  192.   (jump _mod-expt_start_label)
  193.   (jump _IF_LABEL2_477)
  194.   (label _IF_LABEL1_476)
  195.   (move (0 SP) (3 FP))
  196.   (add SP SP 1)
  197.   (move (0 SP) 0)
  198.   (move (1 SP) 0)
  199.   (move (2 SP) FP)
  200.   (add SP SP 3)
  201.   (move (0 SP) (3 FP))
  202.   (add SP SP 1)
  203.   (move (0 SP) (4 FP))
  204.   (add SP SP 1)
  205.   (move (0 SP) 1)
  206.   (sub (-1 SP) (-1 SP) (0 SP))
  207.   (move (0 SP) (5 FP))
  208.   (add SP SP 1)
  209.   (move FP SP)
  210.   (sub FP FP 6)
  211.   (jsr (1 FP) _mod-expt_start_label)
  212.   (sub SP SP 1)
  213.   (mul (-1 SP) (-1 SP) (0 SP))
  214.   (move (0 SP) (5 FP))
  215.   (mod (-1 SP) (-1 SP) (0 SP))
  216.   (move (0 FP) (-1 SP))
  217.   (move SP FP)
  218.   (move FP (2 SP))
  219.   (add SP SP 1)
  220.   (jump (0 SP))
  221.   (label _IF_LABEL2_477)
  222.   (label _IF_LABEL2_474)
  223.   (label _mod-expt_end_def)
  224.   (jump _mrfactor_end_def)
  225.   (const _mrfactor_temp 0)
  226.   (label _mrfactor_start_label)
  227.   (move (0 SP) _mrfactor_temp)
  228.   (add SP SP 1)
  229.   (move (0 SP) (3 FP))
  230.   (add SP SP 1)
  231.   (move (0 SP) 1)
  232.   (sub (-1 SP) (-1 SP) (0 SP))
  233.   (sub SP SP 1)
  234.   (move (3 FP) (0 SP))
  235.   (label _WHILE_LABEL0_478)
  236.   (move (0 SP) (3 FP))
  237.   (add SP SP 1)
  238.   (move (0 SP) 2)
  239.   (mod (-1 SP) (-1 SP) (0 SP))
  240.   (move (0 SP) 0)
  241.   (equal (-1 SP) (-1 SP) (0 SP))
  242.   (sub SP SP 1)
  243.   (branch (0 SP) _WHILE_LABEL1_479)
  244.   (jump _WHILE_LABEL2_480)
  245.   (label _WHILE_LABEL1_479)
  246.   (move (0 SP) 1)
  247.   (add SP SP 1)
  248.   (move (0 SP) (5 FP))
  249.   (add (-1 SP) (-1 SP) (0 SP))
  250.   (sub SP SP 1)
  251.   (move (5 FP) (0 SP))
  252.   (move (0 SP) (3 FP))
  253.   (add SP SP 1)
  254.   (move (0 SP) 2)
  255.   (div (-1 SP) (-1 SP) (0 SP))
  256.   (sub SP SP 1)
  257.   (move (3 FP) (0 SP))
  258.   (jump _WHILE_LABEL0_478)
  259.   (label _WHILE_LABEL2_480)
  260.   (move (0 SP) (4 FP))
  261.   (branch (0 SP) _IF_LABEL0_481)
  262.   (jump _IF_LABEL1_482)
  263.   (label _IF_LABEL0_481)
  264.   (move (0 SP) (5 FP))
  265.   (add SP SP 1)
  266.   (move (0 FP) (-1 SP))
  267.   (move SP FP)
  268.   (move FP (2 SP))
  269.   (add SP SP 1)
  270.   (jump (0 SP))
  271.   (jump _IF_LABEL2_483)
  272.   (label _IF_LABEL1_482)
  273.   (move (0 SP) (3 FP))
  274.   (add SP SP 1)
  275.   (move (0 FP) (-1 SP))
  276.   (move SP FP)
  277.   (move FP (2 SP))
  278.   (add SP SP 1)
  279.   (jump (0 SP))
  280.   (label _IF_LABEL2_483)
  281.   (label _mrfactor_end_def)
  282.   (jump _millerrabin_end_def)
  283.   (const _millerrabin_r 0)
  284.   (const _millerrabin_d 0)
  285.   (const _millerrabin_ex 0)
  286.   (label _millerrabin_start_label)
  287.   (move (0 SP) _millerrabin_r)
  288.   (move (1 SP) _millerrabin_d)
  289.   (move (2 SP) _millerrabin_ex)
  290.   (add SP SP 3)
  291.   (move (0 SP) 0)
  292.   (move (1 SP) 0)
  293.   (move (2 SP) FP)
  294.   (add SP SP 3)
  295.   (move (0 SP) (3 FP))
  296.   (add SP SP 1)
  297.   (move (0 SP) #t)
  298.   (add SP SP 1)
  299.   (move FP SP)
  300.   (sub FP FP 5)
  301.   (jsr (1 FP) _mrfactor_start_label)
  302.   (sub SP SP 1)
  303.   (move (5 FP) (0 SP))
  304.   (move (0 SP) 0)
  305.   (move (1 SP) 0)
  306.   (move (2 SP) FP)
  307.   (add SP SP 3)
  308.   (move (0 SP) (3 FP))
  309.   (add SP SP 1)
  310.   (move (0 SP) #f)
  311.   (add SP SP 1)
  312.   (move FP SP)
  313.   (sub FP FP 5)
  314.   (jsr (1 FP) _mrfactor_start_label)
  315.   (sub SP SP 1)
  316.   (move (6 FP) (0 SP))
  317.   (move (0 SP) 0)
  318.   (move (1 SP) 0)
  319.   (move (2 SP) FP)
  320.   (add SP SP 3)
  321.   (move (0 SP) (4 FP))
  322.   (add SP SP 1)
  323.   (move (0 SP) (6 FP))
  324.   (add SP SP 1)
  325.   (move (0 SP) (3 FP))
  326.   (add SP SP 1)
  327.   (move FP SP)
  328.   (sub FP FP 6)
  329.   (jsr (1 FP) _mod-expt_start_label)
  330.   (sub SP SP 1)
  331.   (move (7 FP) (0 SP))
  332.   (move (0 SP) (7 FP))
  333.   (add SP SP 1)
  334.   (move (0 SP) 1)
  335.   (equal (-1 SP) (-1 SP) (0 SP))
  336.   (sub SP SP 1)
  337.   (branch (0 SP) _IF_LABEL0_484)
  338.   (jump _IF_LABEL1_485)
  339.   (label _IF_LABEL0_484)
  340.   (move (0 SP) #t)
  341.   (add SP SP 1)
  342.   (move (0 FP) (-1 SP))
  343.   (move SP FP)
  344.   (move FP (2 SP))
  345.   (add SP SP 1)
  346.   (jump (0 SP))
  347.   (jump _IF_LABEL2_486)
  348.   (label _IF_LABEL1_485)
  349.   (label _WHILE_LABEL0_487)
  350.   (move (0 SP) (5 FP))
  351.   (add SP SP 1)
  352.   (move (0 SP) 0)
  353.   (gt (-1 SP) (-1 SP) (0 SP))
  354.   (sub SP SP 1)
  355.   (branch (0 SP) _WHILE_LABEL1_488)
  356.   (jump _WHILE_LABEL2_489)
  357.   (label _WHILE_LABEL1_488)
  358.   (move (0 SP) (3 FP))
  359.   (add SP SP 1)
  360.   (move (0 SP) (7 FP))
  361.   (sub (-1 SP) (-1 SP) (0 SP))
  362.   (move (0 SP) 1)
  363.   (equal (-1 SP) (-1 SP) (0 SP))
  364.   (sub SP SP 1)
  365.   (branch (0 SP) _IF_LABEL0_490)
  366.   (jump _IF_LABEL1_491)
  367.   (label _IF_LABEL0_490)
  368.   (move (0 SP) #t)
  369.   (add SP SP 1)
  370.   (move (0 FP) (-1 SP))
  371.   (move SP FP)
  372.   (move FP (2 SP))
  373.   (add SP SP 1)
  374.   (jump (0 SP))
  375.   (jump _IF_LABEL2_492)
  376.   (label _IF_LABEL1_491)
  377.   (move (0 SP) (7 FP))
  378.   (add SP SP 1)
  379.   (move (0 SP) (7 FP))
  380.   (mul (-1 SP) (-1 SP) (0 SP))
  381.   (move (0 SP) (3 FP))
  382.   (mod (-1 SP) (-1 SP) (0 SP))
  383.   (sub SP SP 1)
  384.   (move (7 FP) (0 SP))
  385.   (move (0 SP) (5 FP))
  386.   (add SP SP 1)
  387.   (move (0 SP) 1)
  388.   (sub (-1 SP) (-1 SP) (0 SP))
  389.   (sub SP SP 1)
  390.   (move (5 FP) (0 SP))
  391.   (label _IF_LABEL2_492)
  392.   (jump _WHILE_LABEL0_487)
  393.   (label _WHILE_LABEL2_489)
  394.   (label _IF_LABEL2_486)
  395.   (move (0 SP) #f)
  396.   (add SP SP 1)
  397.   (move (0 FP) (-1 SP))
  398.   (move SP FP)
  399.   (move FP (2 SP))
  400.   (add SP SP 1)
  401.   (jump (0 SP))
  402.   (label _millerrabin_end_def)
  403.   (jump _prime?_end_def)
  404.   (label _prime?_start_label)
  405.   (move (0 SP) #t)
  406.   (add SP SP 1)
  407.   (move (0 SP) 0)
  408.   (move (1 SP) 0)
  409.   (move (2 SP) FP)
  410.   (add SP SP 3)
  411.   (move (0 SP) (3 FP))
  412.   (add SP SP 1)
  413.   (move (0 SP) 61)
  414.   (add SP SP 1)
  415.   (move FP SP)
  416.   (sub FP FP 5)
  417.   (jsr (1 FP) _millerrabin_start_label)
  418.   (sub SP SP 1)
  419.   (land (-1 SP) (-1 SP) (0 SP))
  420.   (move (0 SP) 0)
  421.   (move (1 SP) 0)
  422.   (move (2 SP) FP)
  423.   (add SP SP 3)
  424.   (move (0 SP) (3 FP))
  425.   (add SP SP 1)
  426.   (move (0 SP) 7)
  427.   (add SP SP 1)
  428.   (move FP SP)
  429.   (sub FP FP 5)
  430.   (jsr (1 FP) _millerrabin_start_label)
  431.   (sub SP SP 1)
  432.   (land (-1 SP) (-1 SP) (0 SP))
  433.   (move (0 SP) 0)
  434.   (move (1 SP) 0)
  435.   (move (2 SP) FP)
  436.   (add SP SP 3)
  437.   (move (0 SP) (3 FP))
  438.   (add SP SP 1)
  439.   (move (0 SP) 2)
  440.   (add SP SP 1)
  441.   (move FP SP)
  442.   (sub FP FP 5)
  443.   (jsr (1 FP) _millerrabin_start_label)
  444.   (sub SP SP 1)
  445.   (land (-1 SP) (-1 SP) (0 SP))
  446.   (move (0 FP) (-1 SP))
  447.   (move SP FP)
  448.   (move FP (2 SP))
  449.   (add SP SP 1)
  450.   (jump (0 SP))
  451.   (label _prime?_end_def)
  452.   (move (0 SP) 0)
  453.   (move (1 SP) 0)
  454.   (move (2 SP) FP)
  455.   (add SP SP 3)
  456.   (move FP SP)
  457.   (sub FP FP 3)
  458.   (jsr (1 FP) _main_start_label)
  459.   (data FP 0)
  460.   (data SP 0)))
  461.  
  462. (define primp_code
  463. '((move (366) 366)
  464.   (move (365) 366)
  465.   (add (366) (366) 1)
  466.   (add (365) (365) 1)
  467.   (jump 84)
  468.   (move (0 (366)) 11)
  469.   (move (1 (366)) 13)
  470.   (move (2 (366)) 1)
  471.   (move (3 (366)) 1000)
  472.   (add (366) (366) 4)
  473.   (move (0 (366)) (6 (365)))
  474.   (add (366) (366) 1)
  475.   (move (0 (366)) 2)
  476.   (sub (-1 (366)) (-1 (366)) (0 (366)))
  477.   (sub (366) (366) 1)
  478.   (move (6 (365)) (0 (366)))
  479.   (print-string "3 5, 5 7")
  480.   (move (0 (366)) (5 (365)))
  481.   (add (366) (366) 1)
  482.   (move (0 (366)) (6 (365)))
  483.   (lt (-1 (366)) (-1 (366)) (0 (366)))
  484.   (sub (366) (366) 1)
  485.   (branch (0 (366)) 24)
  486.   (jump 77)
  487.   (move (0 (366)) #t)
  488.   (add (366) (366) 1)
  489.   (move (0 (366)) 0)
  490.   (move (1 (366)) 0)
  491.   (move (2 (366)) (365))
  492.   (add (366) (366) 3)
  493.   (move (0 (366)) (4 (365)))
  494.   (add (366) (366) 1)
  495.   (move (365) (366))
  496.   (sub (365) (365) 4)
  497.   (jsr (1 (365)) 312)
  498.   (sub (366) (366) 1)
  499.   (land (-1 (366)) (-1 (366)) (0 (366)))
  500.   (move (0 (366)) 0)
  501.   (move (1 (366)) 0)
  502.   (move (2 (366)) (365))
  503.   (add (366) (366) 3)
  504.   (move (0 (366)) (3 (365)))
  505.   (add (366) (366) 1)
  506.   (move (365) (366))
  507.   (sub (365) (365) 4)
  508.   (jsr (1 (365)) 312)
  509.   (sub (366) (366) 1)
  510.   (land (-1 (366)) (-1 (366)) (0 (366)))
  511.   (sub (366) (366) 1)
  512.   (branch (0 (366)) 51)
  513.   (jump 64)
  514.   (print-string ", ")
  515.   (move (0 (366)) (3 (365)))
  516.   (print-val (0 (366)))
  517.   (print-string " ")
  518.   (move (0 (366)) (4 (365)))
  519.   (print-val (0 (366)))
  520.   (move (0 (366)) (5 (365)))
  521.   (add (366) (366) 1)
  522.   (move (0 (366)) 1)
  523.   (add (-1 (366)) (-1 (366)) (0 (366)))
  524.   (sub (366) (366) 1)
  525.   (move (5 (365)) (0 (366)))
  526.   (jump 64)
  527.   (move (0 (366)) (3 (365)))
  528.   (add (366) (366) 1)
  529.   (move (0 (366)) 6)
  530.   (add (-1 (366)) (-1 (366)) (0 (366)))
  531.   (sub (366) (366) 1)
  532.   (move (3 (365)) (0 (366)))
  533.   (move (0 (366)) (4 (365)))
  534.   (add (366) (366) 1)
  535.   (move (0 (366)) 6)
  536.   (add (-1 (366)) (-1 (366)) (0 (366)))
  537.   (sub (366) (366) 1)
  538.   (move (4 (365)) (0 (366)))
  539.   (jump 17)
  540.   (move (0 (366)) 0)
  541.   (add (366) (366) 1)
  542.   (move (0 (365)) (-1 (366)))
  543.   (move (366) (365))
  544.   (move (365) (2 (366)))
  545.   (add (366) (366) 1)
  546.   (jump (0 (366)))
  547.   (jump 155)
  548.   (move (0 (366)) (4 (365)))
  549.   (add (366) (366) 1)
  550.   (move (0 (366)) 1)
  551.   (equal (-1 (366)) (-1 (366)) (0 (366)))
  552.   (sub (366) (366) 1)
  553.   (branch (0 (366)) 92)
  554.   (jump 100)
  555.   (move (0 (366)) (3 (365)))
  556.   (add (366) (366) 1)
  557.   (move (0 (365)) (-1 (366)))
  558.   (move (366) (365))
  559.   (move (365) (2 (366)))
  560.   (add (366) (366) 1)
  561.   (jump (0 (366)))
  562.   (jump 155)
  563.   (move (0 (366)) (4 (365)))
  564.   (add (366) (366) 1)
  565.   (move (0 (366)) 2)
  566.   (mod (-1 (366)) (-1 (366)) (0 (366)))
  567.   (move (0 (366)) 0)
  568.   (equal (-1 (366)) (-1 (366)) (0 (366)))
  569.   (sub (366) (366) 1)
  570.   (branch (0 (366)) 109)
  571.   (jump 129)
  572.   (move (0 (366)) (3 (365)))
  573.   (add (366) (366) 1)
  574.   (move (0 (366)) (3 (365)))
  575.   (mul (-1 (366)) (-1 (366)) (0 (366)))
  576.   (move (0 (366)) (5 (365)))
  577.   (mod (-1 (366)) (-1 (366)) (0 (366)))
  578.   (move (0 (366)) (4 (365)))
  579.   (add (366) (366) 1)
  580.   (move (0 (366)) 2)
  581.   (div (-1 (366)) (-1 (366)) (0 (366)))
  582.   (move (0 (366)) (5 (365)))
  583.   (add (366) (366) 1)
  584.   (sub (366) (366) 3)
  585.   (move (3 (365)) (0 (366)))
  586.   (move (4 (365)) (1 (366)))
  587.   (move (5 (365)) (2 (366)))
  588.   (move (366) (365))
  589.   (add (366) (366) 7)
  590.   (jump 85)
  591.   (jump 155)
  592.   (move (0 (366)) (3 (365)))
  593.   (add (366) (366) 1)
  594.   (move (0 (366)) 0)
  595.   (move (1 (366)) 0)
  596.   (move (2 (366)) (365))
  597.   (add (366) (366) 3)
  598.   (move (0 (366)) (3 (365)))
  599.   (add (366) (366) 1)
  600.   (move (0 (366)) (4 (365)))
  601.   (add (366) (366) 1)
  602.   (move (0 (366)) 1)
  603.   (sub (-1 (366)) (-1 (366)) (0 (366)))
  604.   (move (0 (366)) (5 (365)))
  605.   (add (366) (366) 1)
  606.   (move (365) (366))
  607.   (sub (365) (365) 6)
  608.   (jsr (1 (365)) 85)
  609.   (sub (366) (366) 1)
  610.   (mul (-1 (366)) (-1 (366)) (0 (366)))
  611.   (move (0 (366)) (5 (365)))
  612.   (mod (-1 (366)) (-1 (366)) (0 (366)))
  613.   (move (0 (365)) (-1 (366)))
  614.   (move (366) (365))
  615.   (move (365) (2 (366)))
  616.   (add (366) (366) 1)
  617.   (jump (0 (366)))
  618.   (jump 204)
  619.   (move (0 (366)) 0)
  620.   (add (366) (366) 1)
  621.   (move (0 (366)) (3 (365)))
  622.   (add (366) (366) 1)
  623.   (move (0 (366)) 1)
  624.   (sub (-1 (366)) (-1 (366)) (0 (366)))
  625.   (sub (366) (366) 1)
  626.   (move (3 (365)) (0 (366)))
  627.   (move (0 (366)) (3 (365)))
  628.   (add (366) (366) 1)
  629.   (move (0 (366)) 2)
  630.   (mod (-1 (366)) (-1 (366)) (0 (366)))
  631.   (move (0 (366)) 0)
  632.   (equal (-1 (366)) (-1 (366)) (0 (366)))
  633.   (sub (366) (366) 1)
  634.   (branch (0 (366)) 173)
  635.   (jump 186)
  636.   (move (0 (366)) 1)
  637.   (add (366) (366) 1)
  638.   (move (0 (366)) (5 (365)))
  639.   (add (-1 (366)) (-1 (366)) (0 (366)))
  640.   (sub (366) (366) 1)
  641.   (move (5 (365)) (0 (366)))
  642.   (move (0 (366)) (3 (365)))
  643.   (add (366) (366) 1)
  644.   (move (0 (366)) 2)
  645.   (div (-1 (366)) (-1 (366)) (0 (366)))
  646.   (sub (366) (366) 1)
  647.   (move (3 (365)) (0 (366)))
  648.   (jump 164)
  649.   (move (0 (366)) (4 (365)))
  650.   (branch (0 (366)) 189)
  651.   (jump 197)
  652.   (move (0 (366)) (5 (365)))
  653.   (add (366) (366) 1)
  654.   (move (0 (365)) (-1 (366)))
  655.   (move (366) (365))
  656.   (move (365) (2 (366)))
  657.   (add (366) (366) 1)
  658.   (jump (0 (366)))
  659.   (jump 204)
  660.   (move (0 (366)) (3 (365)))
  661.   (add (366) (366) 1)
  662.   (move (0 (365)) (-1 (366)))
  663.   (move (366) (365))
  664.   (move (365) (2 (366)))
  665.   (add (366) (366) 1)
  666.   (jump (0 (366)))
  667.   (jump 311)
  668.   (move (0 (366)) 0)
  669.   (move (1 (366)) 0)
  670.   (move (2 (366)) 0)
  671.   (add (366) (366) 3)
  672.   (move (0 (366)) 0)
  673.   (move (1 (366)) 0)
  674.   (move (2 (366)) (365))
  675.   (add (366) (366) 3)
  676.   (move (0 (366)) (3 (365)))
  677.   (add (366) (366) 1)
  678.   (move (0 (366)) #t)
  679.   (add (366) (366) 1)
  680.   (move (365) (366))
  681.   (sub (365) (365) 5)
  682.   (jsr (1 (365)) 156)
  683.   (sub (366) (366) 1)
  684.   (move (5 (365)) (0 (366)))
  685.   (move (0 (366)) 0)
  686.   (move (1 (366)) 0)
  687.   (move (2 (366)) (365))
  688.   (add (366) (366) 3)
  689.   (move (0 (366)) (3 (365)))
  690.   (add (366) (366) 1)
  691.   (move (0 (366)) #f)
  692.   (add (366) (366) 1)
  693.   (move (365) (366))
  694.   (sub (365) (365) 5)
  695.   (jsr (1 (365)) 156)
  696.   (sub (366) (366) 1)
  697.   (move (6 (365)) (0 (366)))
  698.   (move (0 (366)) 0)
  699.   (move (1 (366)) 0)
  700.   (move (2 (366)) (365))
  701.   (add (366) (366) 3)
  702.   (move (0 (366)) (4 (365)))
  703.   (add (366) (366) 1)
  704.   (move (0 (366)) (6 (365)))
  705.   (add (366) (366) 1)
  706.   (move (0 (366)) (3 (365)))
  707.   (add (366) (366) 1)
  708.   (move (365) (366))
  709.   (sub (365) (365) 6)
  710.   (jsr (1 (365)) 85)
  711.   (sub (366) (366) 1)
  712.   (move (7 (365)) (0 (366)))
  713.   (move (0 (366)) (7 (365)))
  714.   (add (366) (366) 1)
  715.   (move (0 (366)) 1)
  716.   (equal (-1 (366)) (-1 (366)) (0 (366)))
  717.   (sub (366) (366) 1)
  718.   (branch (0 (366)) 257)
  719.   (jump 265)
  720.   (move (0 (366)) #t)
  721.   (add (366) (366) 1)
  722.   (move (0 (365)) (-1 (366)))
  723.   (move (366) (365))
  724.   (move (365) (2 (366)))
  725.   (add (366) (366) 1)
  726.   (jump (0 (366)))
  727.   (jump 304)
  728.   (move (0 (366)) (5 (365)))
  729.   (add (366) (366) 1)
  730.   (move (0 (366)) 0)
  731.   (gt (-1 (366)) (-1 (366)) (0 (366)))
  732.   (sub (366) (366) 1)
  733.   (branch (0 (366)) 272)
  734.   (jump 304)
  735.   (move (0 (366)) (3 (365)))
  736.   (add (366) (366) 1)
  737.   (move (0 (366)) (7 (365)))
  738.   (sub (-1 (366)) (-1 (366)) (0 (366)))
  739.   (move (0 (366)) 1)
  740.   (equal (-1 (366)) (-1 (366)) (0 (366)))
  741.   (sub (366) (366) 1)
  742.   (branch (0 (366)) 281)
  743.   (jump 289)
  744.   (move (0 (366)) #t)
  745.   (add (366) (366) 1)
  746.   (move (0 (365)) (-1 (366)))
  747.   (move (366) (365))
  748.   (move (365) (2 (366)))
  749.   (add (366) (366) 1)
  750.   (jump (0 (366)))
  751.   (jump 303)
  752.   (move (0 (366)) (7 (365)))
  753.   (add (366) (366) 1)
  754.   (move (0 (366)) (7 (365)))
  755.   (mul (-1 (366)) (-1 (366)) (0 (366)))
  756.   (move (0 (366)) (3 (365)))
  757.   (mod (-1 (366)) (-1 (366)) (0 (366)))
  758.   (sub (366) (366) 1)
  759.   (move (7 (365)) (0 (366)))
  760.   (move (0 (366)) (5 (365)))
  761.   (add (366) (366) 1)
  762.   (move (0 (366)) 1)
  763.   (sub (-1 (366)) (-1 (366)) (0 (366)))
  764.   (sub (366) (366) 1)
  765.   (move (5 (365)) (0 (366)))
  766.   (jump 265)
  767.   (move (0 (366)) #f)
  768.   (add (366) (366) 1)
  769.   (move (0 (365)) (-1 (366)))
  770.   (move (366) (365))
  771.   (move (365) (2 (366)))
  772.   (add (366) (366) 1)
  773.   (jump (0 (366)))
  774.   (jump 358)
  775.   (move (0 (366)) #t)
  776.   (add (366) (366) 1)
  777.   (move (0 (366)) 0)
  778.   (move (1 (366)) 0)
  779.   (move (2 (366)) (365))
  780.   (add (366) (366) 3)
  781.   (move (0 (366)) (3 (365)))
  782.   (add (366) (366) 1)
  783.   (move (0 (366)) 61)
  784.   (add (366) (366) 1)
  785.   (move (365) (366))
  786.   (sub (365) (365) 5)
  787.   (jsr (1 (365)) 205)
  788.   (sub (366) (366) 1)
  789.   (land (-1 (366)) (-1 (366)) (0 (366)))
  790.   (move (0 (366)) 0)
  791.   (move (1 (366)) 0)
  792.   (move (2 (366)) (365))
  793.   (add (366) (366) 3)
  794.   (move (0 (366)) (3 (365)))
  795.   (add (366) (366) 1)
  796.   (move (0 (366)) 7)
  797.   (add (366) (366) 1)
  798.   (move (365) (366))
  799.   (sub (365) (365) 5)
  800.   (jsr (1 (365)) 205)
  801.   (sub (366) (366) 1)
  802.   (land (-1 (366)) (-1 (366)) (0 (366)))
  803.   (move (0 (366)) 0)
  804.   (move (1 (366)) 0)
  805.   (move (2 (366)) (365))
  806.   (add (366) (366) 3)
  807.   (move (0 (366)) (3 (365)))
  808.   (add (366) (366) 1)
  809.   (move (0 (366)) 2)
  810.   (add (366) (366) 1)
  811.   (move (365) (366))
  812.   (sub (365) (365) 5)
  813.   (jsr (1 (365)) 205)
  814.   (sub (366) (366) 1)
  815.   (land (-1 (366)) (-1 (366)) (0 (366)))
  816.   (move (0 (365)) (-1 (366)))
  817.   (move (366) (365))
  818.   (move (365) (2 (366)))
  819.   (add (366) (366) 1)
  820.   (jump (0 (366)))
  821.   (move (0 (366)) 0)
  822.   (move (1 (366)) 0)
  823.   (move (2 (366)) (365))
  824.   (add (366) (366) 3)
  825.   (move (365) (366))
  826.   (sub (365) (365) 3)
  827.   (jsr (1 (365)) 5)
  828.   0
  829.   0))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!