home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / StdEnv / Clean System Files / _SystemArray.abc < prev    next >
Encoding:
Text File  |  1997-04-22  |  101.8 KB  |  6,626 lines  |  [TEXT/3PRM]
  1. .comp 914 010111011
  2. .code       0       0       0
  3. .start _nostart_
  4. .depend "_SystemArray"
  5. .endinfo
  6. .implab _cycle_in_spine
  7. .implab _type_error
  8. .implab _hnf
  9. .impdesc _ind
  10. .implab _indirection _eaind
  11. .impdesc e_system_dif
  12. .implab e_system_nif e_system_eaif
  13. .impdesc e_system_dAP
  14. .implab e_system_nAP e_system_eaAP
  15. .implab e_system_sif
  16. .implab e_system_sAP
  17. .impdesc _Cons
  18. .impdesc _Nil
  19. .impdesc _Tuple
  20. .impdesc d_S.1
  21. .implab n_S.1 ea_S.1
  22. .impdesc d_S.2
  23. .implab n_S.2 ea_S.2
  24. .impdesc d_S.3
  25. .implab n_S.3 ea_S.3
  26. .impdesc d_S.4
  27. .implab n_S.4 ea_S.4
  28. .impdesc d_S.5
  29. .implab n_S.5 ea_S.5
  30. .impdesc d_S.6
  31. .implab n_S.6 ea_S.6
  32. .implab _driver
  33. .string m__SystemArray "_SystemArray"
  34. .export e__SystemArray_d_createArrayc;#;i
  35. .export e__SystemArray_s_createArrayc;#;i
  36. .export e__SystemArray_n_createArrayc;#;i
  37. .desc e__SystemArray_d_createArrayc;#;i e__SystemArray_n_createArrayc;#;i e__SystemArray_l_createArrayc;#;i 1 "_createArrayc;# (Int)"
  38. .o 2 0
  39. e__SystemArray_l_createArrayc;#;i
  40.     pop_a 1
  41. .d 1 0
  42.     jsr ea_1
  43. .o 1 0
  44.     create
  45.     push_a 1
  46.     fill ARRAY 1 _hnf 1
  47.     update_a 0 1
  48.     pop_a 1
  49. .d 1 0
  50.     rtn
  51. .n 1 e__SystemArray_d_createArrayc;#;i
  52. .o 1 0
  53. e__SystemArray_n_createArrayc;#;i
  54.     push_node _cycle_in_spine 1
  55. .d 1 0
  56.     jsr ea_1
  57. .o 1 0
  58.     push_a 0
  59.     fill ARRAY 1 _hnf 2
  60.     pop_a 1
  61. .d 1 0
  62.     rtn
  63. .o 1 0
  64. ea_1
  65.     jsr_eval 0
  66.     pushI_a 0
  67.     pop_a 1
  68. .o 0 1 i
  69. e__SystemArray_s_createArrayc;#;i
  70.     push_b 0
  71.     update_b 0 1
  72.     pop_b 1
  73.     create_array_ INT 0 1
  74. .d 1 0
  75.     rtn
  76. .export e__SystemArray_d_createArrayc;#;b
  77. .export e__SystemArray_s_createArrayc;#;b
  78. .export e__SystemArray_n_createArrayc;#;b
  79. .desc e__SystemArray_d_createArrayc;#;b e__SystemArray_n_createArrayc;#;b e__SystemArray_l_createArrayc;#;b 1 "_createArrayc;# (Bool)"
  80. .o 2 0
  81. e__SystemArray_l_createArrayc;#;b
  82.     pop_a 1
  83. .d 1 0
  84.     jsr ea_2
  85. .o 1 0
  86.     create
  87.     push_a 1
  88.     fill ARRAY 1 _hnf 1
  89.     update_a 0 1
  90.     pop_a 1
  91. .d 1 0
  92.     rtn
  93. .n 1 e__SystemArray_d_createArrayc;#;b
  94. .o 1 0
  95. e__SystemArray_n_createArrayc;#;b
  96.     push_node _cycle_in_spine 1
  97. .d 1 0
  98.     jsr ea_2
  99. .o 1 0
  100.     push_a 0
  101.     fill ARRAY 1 _hnf 2
  102.     pop_a 1
  103. .d 1 0
  104.     rtn
  105. .o 1 0
  106. ea_2
  107.     jsr_eval 0
  108.     pushI_a 0
  109.     pop_a 1
  110. .o 0 1 i
  111. e__SystemArray_s_createArrayc;#;b
  112.     push_b 0
  113.     update_b 0 1
  114.     pop_b 1
  115.     create_array_ BOOL 0 1
  116. .d 1 0
  117.     rtn
  118. .export e__SystemArray_d_createArrayc;#;c
  119. .export e__SystemArray_s_createArrayc;#;c
  120. .export e__SystemArray_n_createArrayc;#;c
  121. .desc e__SystemArray_d_createArrayc;#;c e__SystemArray_n_createArrayc;#;c e__SystemArray_l_createArrayc;#;c 1 "_createArrayc;# (Char)"
  122. .o 2 0
  123. e__SystemArray_l_createArrayc;#;c
  124.     pop_a 1
  125. .d 1 0
  126.     jsr ea_3
  127. .o 1 0
  128.     create
  129.     push_a 1
  130.     fill ARRAY 1 _hnf 1
  131.     update_a 0 1
  132.     pop_a 1
  133. .d 1 0
  134.     rtn
  135. .n 1 e__SystemArray_d_createArrayc;#;c
  136. .o 1 0
  137. e__SystemArray_n_createArrayc;#;c
  138.     push_node _cycle_in_spine 1
  139. .d 1 0
  140.     jsr ea_3
  141. .o 1 0
  142.     push_a 0
  143.     fill ARRAY 1 _hnf 2
  144.     pop_a 1
  145. .d 1 0
  146.     rtn
  147. .o 1 0
  148. ea_3
  149.     jsr_eval 0
  150.     pushI_a 0
  151.     pop_a 1
  152. .o 0 1 i
  153. e__SystemArray_s_createArrayc;#;c
  154.     push_b 0
  155.     update_b 0 1
  156.     pop_b 1
  157.     create_array_ CHAR 0 1
  158. .d 1 0
  159.     rtn
  160. .export e__SystemArray_d_createArrayc;#;r
  161. .export e__SystemArray_s_createArrayc;#;r
  162. .export e__SystemArray_n_createArrayc;#;r
  163. .desc e__SystemArray_d_createArrayc;#;r e__SystemArray_n_createArrayc;#;r e__SystemArray_l_createArrayc;#;r 1 "_createArrayc;# (Real)"
  164. .o 2 0
  165. e__SystemArray_l_createArrayc;#;r
  166.     pop_a 1
  167. .d 1 0
  168.     jsr ea_4
  169. .o 1 0
  170.     create
  171.     push_a 1
  172.     fill ARRAY 1 _hnf 1
  173.     update_a 0 1
  174.     pop_a 1
  175. .d 1 0
  176.     rtn
  177. .n 1 e__SystemArray_d_createArrayc;#;r
  178. .o 1 0
  179. e__SystemArray_n_createArrayc;#;r
  180.     push_node _cycle_in_spine 1
  181. .d 1 0
  182.     jsr ea_4
  183. .o 1 0
  184.     push_a 0
  185.     fill ARRAY 1 _hnf 2
  186.     pop_a 1
  187. .d 1 0
  188.     rtn
  189. .o 1 0
  190. ea_4
  191.     jsr_eval 0
  192.     pushI_a 0
  193.     pop_a 1
  194. .o 0 1 i
  195. e__SystemArray_s_createArrayc;#;r
  196.     push_b 0
  197.     update_b 0 1
  198.     pop_b 1
  199.     create_array_ REAL 0 2
  200. .d 1 0
  201.     rtn
  202. .export e__SystemArray_d_createArrayc;#;f
  203. .export e__SystemArray_s_createArrayc;#;f
  204. .export e__SystemArray_n_createArrayc;#;f
  205. .desc e__SystemArray_d_createArrayc;#;f e__SystemArray_n_createArrayc;#;f e__SystemArray_l_createArrayc;#;f 1 "_createArrayc;# (File)"
  206. .o 2 0
  207. e__SystemArray_l_createArrayc;#;f
  208.     pop_a 1
  209. .d 1 0
  210.     jsr ea_5
  211. .o 1 0
  212.     create
  213.     push_a 1
  214.     fill ARRAY 1 _hnf 1
  215.     update_a 0 1
  216.     pop_a 1
  217. .d 1 0
  218.     rtn
  219. .n 1 e__SystemArray_d_createArrayc;#;f
  220. .o 1 0
  221. e__SystemArray_n_createArrayc;#;f
  222.     push_node _cycle_in_spine 1
  223. .d 1 0
  224.     jsr ea_5
  225. .o 1 0
  226.     push_a 0
  227.     fill ARRAY 1 _hnf 2
  228.     pop_a 1
  229. .d 1 0
  230.     rtn
  231. .o 1 0
  232. ea_5
  233.     jsr_eval 0
  234.     pushI_a 0
  235.     pop_a 1
  236. .o 0 1 i
  237. e__SystemArray_s_createArrayc;#;f
  238.     push_b 0
  239.     update_b 0 1
  240.     pop_b 1
  241.     create_array_ FILE 0 2
  242. .d 1 0
  243.     rtn
  244. .export e__SystemArray_d_createArrayc;#;<0>
  245. .export e__SystemArray_s_createArrayc;#;<0>
  246. .export e__SystemArray_n_createArrayc;#;<0>
  247. .desc e__SystemArray_d_createArrayc;#;<0> e__SystemArray_n_createArrayc;#;<0> e__SystemArray_l_createArrayc;#;<0> 2 "_createArrayc;# (0)"
  248. .o 2 0
  249. e__SystemArray_l_createArrayc;#;<0>
  250.     repl_args 1 1
  251. .d 2 0
  252.     jsr ea_6
  253. .o 1 0
  254.     create
  255.     push_a 1
  256.     fill ARRAY 1 _hnf 1
  257.     update_a 0 1
  258.     pop_a 1
  259. .d 1 0
  260.     rtn
  261. .n 2 e__SystemArray_d_createArrayc;#;<0>
  262. .o 1 0
  263. e__SystemArray_n_createArrayc;#;<0>
  264.     push_node _cycle_in_spine 2
  265. .d 2 0
  266.     jsr ea_6
  267. .o 1 0
  268.     push_a 0
  269.     fill ARRAY 1 _hnf 2
  270.     pop_a 1
  271. .d 1 0
  272.     rtn
  273. .o 2 0
  274. ea_6
  275.     jsr_eval 1
  276.     jsr_eval 0
  277.     pushI_a 1
  278.     update_a 0 1
  279.     pop_a 1
  280. .o 1 1 i
  281. e__SystemArray_s_createArrayc;#;<0>
  282.     push_b 0
  283.     push_a 0
  284.     update_a 0 1
  285.     update_b 0 1
  286.     pop_a 1
  287.     pop_b 1
  288.     push_a 0
  289.     buildI_b 0
  290.     pop_b 1
  291.     update_a 0 2
  292.     pop_a 1
  293. .d 2 0
  294.     jsr e_system_sAP
  295. .o 1 0
  296.     push_array 0
  297.     update_a 0 1
  298.     pop_a 1
  299. .d 1 0
  300.     rtn
  301. .export e__SystemArray_d_updatei;#;i
  302. .export e__SystemArray_s_updatei;#;i
  303. .export e__SystemArray_n_updatei;#;i
  304. .desc e__SystemArray_d_updatei;#;i e__SystemArray_n_updatei;#;i e__SystemArray_l_updatei;#;i 3 "_updatei;# (Int)"
  305. .o 2 0
  306. e__SystemArray_l_updatei;#;i
  307.     repl_args 2 2
  308. .d 3 0
  309.     jsr ea_7
  310. .o 1 0
  311.     create
  312.     push_a 1
  313.     fill ARRAY 1 _hnf 1
  314.     update_a 0 1
  315.     pop_a 1
  316. .d 1 0
  317.     rtn
  318. .n 3 e__SystemArray_d_updatei;#;i
  319. .o 1 0
  320. e__SystemArray_n_updatei;#;i
  321.     push_node _cycle_in_spine 3
  322. .d 3 0
  323.     jsr ea_7
  324. .o 1 0
  325.     push_a 0
  326.     fill ARRAY 1 _hnf 2
  327.     pop_a 1
  328. .d 1 0
  329.     rtn
  330. .o 3 0
  331. ea_7
  332.     jsr_eval 2
  333.     jsr_eval 1
  334.     jsr_eval 0
  335.     push_args 0 2 2
  336.     jsr_eval 1
  337.     jsr_eval 0
  338.     pushI_a 4
  339.     pushI_a 3
  340.     push_array 1
  341.     push_array 1
  342.     update_a 1 6
  343.     update_a 0 5
  344.     pop_a 5
  345. .o 2 2 ii
  346. e__SystemArray_s_updatei;#;i
  347.     push_b 1
  348.     push_b 1
  349.     push_a 1
  350.     push_a 1
  351.     update_a 1 3
  352.     update_a 0 2
  353.     update_b 1 3
  354.     update_b 0 2
  355.     pop_a 2
  356.     pop_b 2
  357.     update INT 0 1
  358. .keep 0 1
  359.     pop_a 1
  360. .d 1 0
  361.     rtn
  362. .export e__SystemArray_d_updatei;#;b
  363. .export e__SystemArray_s_updatei;#;b
  364. .export e__SystemArray_n_updatei;#;b
  365. .desc e__SystemArray_d_updatei;#;b e__SystemArray_n_updatei;#;b e__SystemArray_l_updatei;#;b 3 "_updatei;# (Bool)"
  366. .o 2 0
  367. e__SystemArray_l_updatei;#;b
  368.     repl_args 2 2
  369. .d 3 0
  370.     jsr ea_8
  371. .o 1 0
  372.     create
  373.     push_a 1
  374.     fill ARRAY 1 _hnf 1
  375.     update_a 0 1
  376.     pop_a 1
  377. .d 1 0
  378.     rtn
  379. .n 3 e__SystemArray_d_updatei;#;b
  380. .o 1 0
  381. e__SystemArray_n_updatei;#;b
  382.     push_node _cycle_in_spine 3
  383. .d 3 0
  384.     jsr ea_8
  385. .o 1 0
  386.     push_a 0
  387.     fill ARRAY 1 _hnf 2
  388.     pop_a 1
  389. .d 1 0
  390.     rtn
  391. .o 3 0
  392. ea_8
  393.     jsr_eval 2
  394.     jsr_eval 1
  395.     jsr_eval 0
  396.     push_args 0 2 2
  397.     jsr_eval 1
  398.     jsr_eval 0
  399.     pushB_a 4
  400.     pushI_a 3
  401.     push_array 1
  402.     push_array 1
  403.     update_a 1 6
  404.     update_a 0 5
  405.     pop_a 5
  406. .o 2 2 ib
  407. e__SystemArray_s_updatei;#;b
  408.     push_b 1
  409.     push_b 1
  410.     push_a 1
  411.     push_a 1
  412.     update_a 1 3
  413.     update_a 0 2
  414.     update_b 1 3
  415.     update_b 0 2
  416.     pop_a 2
  417.     pop_b 2
  418.     update BOOL 0 1
  419. .keep 0 1
  420.     pop_a 1
  421. .d 1 0
  422.     rtn
  423. .export e__SystemArray_d_updatei;#;c
  424. .export e__SystemArray_s_updatei;#;c
  425. .export e__SystemArray_n_updatei;#;c
  426. .desc e__SystemArray_d_updatei;#;c e__SystemArray_n_updatei;#;c e__SystemArray_l_updatei;#;c 3 "_updatei;# (Char)"
  427. .o 2 0
  428. e__SystemArray_l_updatei;#;c
  429.     repl_args 2 2
  430. .d 3 0
  431.     jsr ea_9
  432. .o 1 0
  433.     create
  434.     push_a 1
  435.     fill ARRAY 1 _hnf 1
  436.     update_a 0 1
  437.     pop_a 1
  438. .d 1 0
  439.     rtn
  440. .n 3 e__SystemArray_d_updatei;#;c
  441. .o 1 0
  442. e__SystemArray_n_updatei;#;c
  443.     push_node _cycle_in_spine 3
  444. .d 3 0
  445.     jsr ea_9
  446. .o 1 0
  447.     push_a 0
  448.     fill ARRAY 1 _hnf 2
  449.     pop_a 1
  450. .d 1 0
  451.     rtn
  452. .o 3 0
  453. ea_9
  454.     jsr_eval 2
  455.     jsr_eval 1
  456.     jsr_eval 0
  457.     push_args 0 2 2
  458.     jsr_eval 1
  459.     jsr_eval 0
  460.     pushC_a 4
  461.     pushI_a 3
  462.     push_array 1
  463.     push_array 1
  464.     update_a 1 6
  465.     update_a 0 5
  466.     pop_a 5
  467. .o 2 2 ic
  468. e__SystemArray_s_updatei;#;c
  469.     push_b 1
  470.     push_b 1
  471.     push_a 1
  472.     push_a 1
  473.     update_a 1 3
  474.     update_a 0 2
  475.     update_b 1 3
  476.     update_b 0 2
  477.     pop_a 2
  478.     pop_b 2
  479.     update CHAR 0 1
  480. .keep 0 1
  481.     pop_a 1
  482. .d 1 0
  483.     rtn
  484. .export e__SystemArray_d_updatei;#;r
  485. .export e__SystemArray_s_updatei;#;r
  486. .export e__SystemArray_n_updatei;#;r
  487. .desc e__SystemArray_d_updatei;#;r e__SystemArray_n_updatei;#;r e__SystemArray_l_updatei;#;r 3 "_updatei;# (Real)"
  488. .o 2 0
  489. e__SystemArray_l_updatei;#;r
  490.     repl_args 2 2
  491. .d 3 0
  492.     jsr ea_10
  493. .o 1 0
  494.     create
  495.     push_a 1
  496.     fill ARRAY 1 _hnf 1
  497.     update_a 0 1
  498.     pop_a 1
  499. .d 1 0
  500.     rtn
  501. .n 3 e__SystemArray_d_updatei;#;r
  502. .o 1 0
  503. e__SystemArray_n_updatei;#;r
  504.     push_node _cycle_in_spine 3
  505. .d 3 0
  506.     jsr ea_10
  507. .o 1 0
  508.     push_a 0
  509.     fill ARRAY 1 _hnf 2
  510.     pop_a 1
  511. .d 1 0
  512.     rtn
  513. .o 3 0
  514. ea_10
  515.     jsr_eval 2
  516.     jsr_eval 1
  517.     jsr_eval 0
  518.     push_args 0 2 2
  519.     jsr_eval 1
  520.     jsr_eval 0
  521.     pushR_a 4
  522.     pushI_a 3
  523.     push_array 1
  524.     push_array 1
  525.     update_a 1 6
  526.     update_a 0 5
  527.     pop_a 5
  528. .o 2 3 ir
  529. e__SystemArray_s_updatei;#;r
  530.     push_b 2
  531.     push_b 2
  532.     push_b 2
  533.     push_a 1
  534.     push_a 1
  535.     update_a 1 3
  536.     update_a 0 2
  537.     update_b 2 5
  538.     update_b 1 4
  539.     update_b 0 3
  540.     pop_a 2
  541.     pop_b 3
  542.     update REAL 0 2
  543. .keep 0 1
  544.     pop_a 1
  545. .d 1 0
  546.     rtn
  547. .export e__SystemArray_d_updatei;#;f
  548. .export e__SystemArray_s_updatei;#;f
  549. .export e__SystemArray_n_updatei;#;f
  550. .desc e__SystemArray_d_updatei;#;f e__SystemArray_n_updatei;#;f e__SystemArray_l_updatei;#;f 3 "_updatei;# (File)"
  551. .o 2 0
  552. e__SystemArray_l_updatei;#;f
  553.     repl_args 2 2
  554. .d 3 0
  555.     jsr ea_11
  556. .o 1 0
  557.     create
  558.     push_a 1
  559.     fill ARRAY 1 _hnf 1
  560.     update_a 0 1
  561.     pop_a 1
  562. .d 1 0
  563.     rtn
  564. .n 3 e__SystemArray_d_updatei;#;f
  565. .o 1 0
  566. e__SystemArray_n_updatei;#;f
  567.     push_node _cycle_in_spine 3
  568. .d 3 0
  569.     jsr ea_11
  570. .o 1 0
  571.     push_a 0
  572.     fill ARRAY 1 _hnf 2
  573.     pop_a 1
  574. .d 1 0
  575.     rtn
  576. .o 3 0
  577. ea_11
  578.     jsr_eval 2
  579.     jsr_eval 1
  580.     jsr_eval 0
  581.     push_args 0 2 2
  582.     jsr_eval 1
  583.     jsr_eval 0
  584.     pushF_a 4
  585.     pushI_a 3
  586.     push_array 1
  587.     push_array 1
  588.     update_a 1 6
  589.     update_a 0 5
  590.     pop_a 5
  591. .o 2 3 if
  592. e__SystemArray_s_updatei;#;f
  593.     push_b 2
  594.     push_b 2
  595.     push_b 2
  596.     push_a 1
  597.     push_a 1
  598.     update_a 1 3
  599.     update_a 0 2
  600.     update_b 2 5
  601.     update_b 1 4
  602.     update_b 0 3
  603.     pop_a 2
  604.     pop_b 3
  605.     update FILE 0 2
  606. .keep 0 1
  607.     pop_a 1
  608. .d 1 0
  609.     rtn
  610. .export e__SystemArray_d_updatei;#;<1>
  611. .export e__SystemArray_s_updatei;#;<1>
  612. .export e__SystemArray_n_updatei;#;<1>
  613. .desc e__SystemArray_d_updatei;#;<1> e__SystemArray_n_updatei;#;<1> e__SystemArray_l_updatei;#;<1> 4 "_updatei;# (1)"
  614. .o 2 0
  615. e__SystemArray_l_updatei;#;<1>
  616.     repl_args 3 3
  617. .d 4 0
  618.     jsr ea_12
  619. .o 1 0
  620.     create
  621.     push_a 1
  622.     fill ARRAY 1 _hnf 1
  623.     update_a 0 1
  624.     pop_a 1
  625. .d 1 0
  626.     rtn
  627. .n 4 e__SystemArray_d_updatei;#;<1>
  628. .o 1 0
  629. e__SystemArray_n_updatei;#;<1>
  630.     push_node _cycle_in_spine 4
  631. .d 4 0
  632.     jsr ea_12
  633. .o 1 0
  634.     push_a 0
  635.     fill ARRAY 1 _hnf 2
  636.     pop_a 1
  637. .d 1 0
  638.     rtn
  639. .o 4 0
  640. ea_12
  641.     jsr_eval 3
  642.     jsr_eval 2
  643.     push_a 1
  644.     jsr_eval 0
  645.     repl_args 2 2
  646.     jsr_eval 1
  647.     jsr_eval 0
  648.     jsr_eval 2
  649.     pushI_a 4
  650.     push_array 1
  651.     push_array 1
  652.     update_a 1 6
  653.     update_a 0 5
  654.     pop_a 4
  655. .o 4 1 i
  656. e__SystemArray_s_updatei;#;<1>
  657.     push_a 3
  658.     push_b 0
  659.     push_a 3
  660.     push_a 3
  661.     push_a 3
  662.     update_a 3 7
  663.     update_a 2 6
  664.     update_a 1 5
  665.     update_a 0 4
  666.     update_b 0 1
  667.     pop_a 4
  668.     pop_b 1
  669.     create
  670.     push_a 3
  671.     fill ARRAY 1 _hnf 1
  672.     create
  673.     push_a 3
  674.     fill ARRAY 1 _hnf 1
  675.     build _Tuple 2 _hnf
  676.     update_a 0 2
  677.     buildI_b 0
  678.     pop_b 1
  679.     update_a 0 4
  680.     pop_a 2
  681. .d 2 0
  682.     jsr e_system_sAP
  683. .o 1 0
  684. .d 2 0
  685.     jsr e_system_sAP
  686. .o 1 0
  687. .d 2 0
  688.     jsr e_system_sAP
  689. .o 1 0
  690.     push_array 0
  691.     update_a 0 1
  692.     pop_a 1
  693. .d 1 0
  694.     rtn
  695. .export e__SystemArray_d_uselectf;#;i
  696. .export e__SystemArray_s_uselectf;#;i
  697. .export e__SystemArray_n_uselectf;#;i
  698. .desc e__SystemArray_d_uselectf;#;i e__SystemArray_n_uselectf;#;i e__SystemArray_l_uselectf;#;i 2 "_uselectf;# (Int)"
  699. .o 2 0
  700. e__SystemArray_l_uselectf;#;i
  701.     repl_args 1 1
  702. .d 2 0
  703.     jsr ea_13
  704. .o 1 1 i
  705.     create
  706.     push_a 1
  707.     fill ARRAY 1 _hnf 1
  708.     buildI_b 0
  709.     build _Tuple 2 _hnf
  710.     update_a 0 1
  711.     pop_a 1
  712.     pop_b 1
  713. .d 1 0
  714.     rtn
  715. .n 2 e__SystemArray_d_uselectf;#;i
  716. .o 1 0
  717. e__SystemArray_n_uselectf;#;i
  718.     push_node _cycle_in_spine 2
  719. .d 2 0
  720.     jsr ea_13
  721. .o 1 1 i
  722.     create
  723.     push_a 1
  724.     fill ARRAY 1 _hnf 1
  725.     buildI_b 0
  726.     fill _Tuple 2 _hnf 3
  727.     pop_a 1
  728.     pop_b 1
  729. .d 1 0
  730.     rtn
  731. .o 2 0
  732. ea_13
  733.     jsr_eval 1
  734.     jsr_eval 0
  735.     pushI_a 1
  736.     push_array 0
  737.     update_a 0 2
  738.     pop_a 2
  739. .o 1 1 i
  740. e__SystemArray_s_uselectf;#;i
  741.     push_b 0
  742.     push_a 0
  743.     update_a 0 1
  744.     update_b 0 1
  745.     pop_a 1
  746.     pop_b 1
  747.     push_a 0
  748.     select INT 0 1
  749. .d 1 1 i
  750.     rtn
  751. .export e__SystemArray_d_uselectf;#;b
  752. .export e__SystemArray_s_uselectf;#;b
  753. .export e__SystemArray_n_uselectf;#;b
  754. .desc e__SystemArray_d_uselectf;#;b e__SystemArray_n_uselectf;#;b e__SystemArray_l_uselectf;#;b 2 "_uselectf;# (Bool)"
  755. .o 2 0
  756. e__SystemArray_l_uselectf;#;b
  757.     repl_args 1 1
  758. .d 2 0
  759.     jsr ea_14
  760. .o 1 1 b
  761.     create
  762.     push_a 1
  763.     fill ARRAY 1 _hnf 1
  764.     buildB_b 0
  765.     build _Tuple 2 _hnf
  766.     update_a 0 1
  767.     pop_a 1
  768.     pop_b 1
  769. .d 1 0
  770.     rtn
  771. .n 2 e__SystemArray_d_uselectf;#;b
  772. .o 1 0
  773. e__SystemArray_n_uselectf;#;b
  774.     push_node _cycle_in_spine 2
  775. .d 2 0
  776.     jsr ea_14
  777. .o 1 1 b
  778.     create
  779.     push_a 1
  780.     fill ARRAY 1 _hnf 1
  781.     buildB_b 0
  782.     fill _Tuple 2 _hnf 3
  783.     pop_a 1
  784.     pop_b 1
  785. .d 1 0
  786.     rtn
  787. .o 2 0
  788. ea_14
  789.     jsr_eval 1
  790.     jsr_eval 0
  791.     pushI_a 1
  792.     push_array 0
  793.     update_a 0 2
  794.     pop_a 2
  795. .o 1 1 i
  796. e__SystemArray_s_uselectf;#;b
  797.     push_b 0
  798.     push_a 0
  799.     update_a 0 1
  800.     update_b 0 1
  801.     pop_a 1
  802.     pop_b 1
  803.     push_a 0
  804.     select BOOL 0 1
  805. .d 1 1 b
  806.     rtn
  807. .export e__SystemArray_d_uselectf;#;c
  808. .export e__SystemArray_s_uselectf;#;c
  809. .export e__SystemArray_n_uselectf;#;c
  810. .desc e__SystemArray_d_uselectf;#;c e__SystemArray_n_uselectf;#;c e__SystemArray_l_uselectf;#;c 2 "_uselectf;# (Char)"
  811. .o 2 0
  812. e__SystemArray_l_uselectf;#;c
  813.     repl_args 1 1
  814. .d 2 0
  815.     jsr ea_15
  816. .o 1 1 c
  817.     create
  818.     push_a 1
  819.     fill ARRAY 1 _hnf 1
  820.     buildC_b 0
  821.     build _Tuple 2 _hnf
  822.     update_a 0 1
  823.     pop_a 1
  824.     pop_b 1
  825. .d 1 0
  826.     rtn
  827. .n 2 e__SystemArray_d_uselectf;#;c
  828. .o 1 0
  829. e__SystemArray_n_uselectf;#;c
  830.     push_node _cycle_in_spine 2
  831. .d 2 0
  832.     jsr ea_15
  833. .o 1 1 c
  834.     create
  835.     push_a 1
  836.     fill ARRAY 1 _hnf 1
  837.     buildC_b 0
  838.     fill _Tuple 2 _hnf 3
  839.     pop_a 1
  840.     pop_b 1
  841. .d 1 0
  842.     rtn
  843. .o 2 0
  844. ea_15
  845.     jsr_eval 1
  846.     jsr_eval 0
  847.     pushI_a 1
  848.     push_array 0
  849.     update_a 0 2
  850.     pop_a 2
  851. .o 1 1 i
  852. e__SystemArray_s_uselectf;#;c
  853.     push_b 0
  854.     push_a 0
  855.     update_a 0 1
  856.     update_b 0 1
  857.     pop_a 1
  858.     pop_b 1
  859.     push_a 0
  860.     select CHAR 0 1
  861. .d 1 1 c
  862.     rtn
  863. .export e__SystemArray_d_uselectf;#;r
  864. .export e__SystemArray_s_uselectf;#;r
  865. .export e__SystemArray_n_uselectf;#;r
  866. .desc e__SystemArray_d_uselectf;#;r e__SystemArray_n_uselectf;#;r e__SystemArray_l_uselectf;#;r 2 "_uselectf;# (Real)"
  867. .o 2 0
  868. e__SystemArray_l_uselectf;#;r
  869.     repl_args 1 1
  870. .d 2 0
  871.     jsr ea_16
  872. .o 1 2 r
  873.     create
  874.     push_a 1
  875.     fill ARRAY 1 _hnf 1
  876.     buildR_b 0
  877.     build _Tuple 2 _hnf
  878.     update_a 0 1
  879.     pop_a 1
  880.     pop_b 2
  881. .d 1 0
  882.     rtn
  883. .n 2 e__SystemArray_d_uselectf;#;r
  884. .o 1 0
  885. e__SystemArray_n_uselectf;#;r
  886.     push_node _cycle_in_spine 2
  887. .d 2 0
  888.     jsr ea_16
  889. .o 1 2 r
  890.     create
  891.     push_a 1
  892.     fill ARRAY 1 _hnf 1
  893.     buildR_b 0
  894.     fill _Tuple 2 _hnf 3
  895.     pop_a 1
  896.     pop_b 2
  897. .d 1 0
  898.     rtn
  899. .o 2 0
  900. ea_16
  901.     jsr_eval 1
  902.     jsr_eval 0
  903.     pushI_a 1
  904.     push_array 0
  905.     update_a 0 2
  906.     pop_a 2
  907. .o 1 1 i
  908. e__SystemArray_s_uselectf;#;r
  909.     push_b 0
  910.     push_a 0
  911.     update_a 0 1
  912.     update_b 0 1
  913.     pop_a 1
  914.     pop_b 1
  915.     push_a 0
  916.     select REAL 0 2
  917. .d 1 2 r
  918.     rtn
  919. .export e__SystemArray_d_uselectf;#;f
  920. .export e__SystemArray_s_uselectf;#;f
  921. .export e__SystemArray_n_uselectf;#;f
  922. .desc e__SystemArray_d_uselectf;#;f e__SystemArray_n_uselectf;#;f e__SystemArray_l_uselectf;#;f 2 "_uselectf;# (File)"
  923. .o 2 0
  924. e__SystemArray_l_uselectf;#;f
  925.     repl_args 1 1
  926. .d 2 0
  927.     jsr ea_17
  928. .o 1 2 f
  929.     create
  930.     push_a 1
  931.     fill ARRAY 1 _hnf 1
  932.     buildF_b 0
  933.     build _Tuple 2 _hnf
  934.     update_a 0 1
  935.     pop_a 1
  936.     pop_b 2
  937. .d 1 0
  938.     rtn
  939. .n 2 e__SystemArray_d_uselectf;#;f
  940. .o 1 0
  941. e__SystemArray_n_uselectf;#;f
  942.     push_node _cycle_in_spine 2
  943. .d 2 0
  944.     jsr ea_17
  945. .o 1 2 f
  946.     create
  947.     push_a 1
  948.     fill ARRAY 1 _hnf 1
  949.     buildF_b 0
  950.     fill _Tuple 2 _hnf 3
  951.     pop_a 1
  952.     pop_b 2
  953. .d 1 0
  954.     rtn
  955. .o 2 0
  956. ea_17
  957.     jsr_eval 1
  958.     jsr_eval 0
  959.     pushI_a 1
  960.     push_array 0
  961.     update_a 0 2
  962.     pop_a 2
  963. .o 1 1 i
  964. e__SystemArray_s_uselectf;#;f
  965.     push_b 0
  966.     push_a 0
  967.     update_a 0 1
  968.     update_b 0 1
  969.     pop_a 1
  970.     pop_b 1
  971.     push_a 0
  972.     select FILE 0 2
  973. .d 1 2 f
  974.     rtn
  975. .export e__SystemArray_d_uselectf;#;<2>
  976. .export e__SystemArray_s_uselectf;#;<2>
  977. .export e__SystemArray_n_uselectf;#;<2>
  978. .desc e__SystemArray_d_uselectf;#;<2> e__SystemArray_n_uselectf;#;<2> e__SystemArray_l_uselectf;#;<2> 3 "_uselectf;# (2)"
  979. .o 2 0
  980. e__SystemArray_l_uselectf;#;<2>
  981.     repl_args 2 2
  982. .d 3 0
  983.     jsr ea_18
  984. .o 2 0
  985.     create
  986.     push_a 2
  987.     fill ARRAY 1 _hnf 1
  988.     push_a 1
  989.     build _Tuple 2 _hnf
  990.     update_a 0 2
  991.     pop_a 2
  992. .d 1 0
  993.     rtn
  994. .n 3 e__SystemArray_d_uselectf;#;<2>
  995. .o 1 0
  996. e__SystemArray_n_uselectf;#;<2>
  997.     push_node _cycle_in_spine 3
  998. .d 3 0
  999.     jsr ea_18
  1000. .o 2 0
  1001.     create
  1002.     push_a 2
  1003.     fill ARRAY 1 _hnf 1
  1004.     push_a 1
  1005.     fill _Tuple 2 _hnf 4
  1006.     pop_a 2
  1007. .d 1 0
  1008.     rtn
  1009. .o 3 0
  1010. ea_18
  1011.     jsr_eval 2
  1012.     jsr_eval 1
  1013.     jsr_eval 0
  1014.     pushI_a 2
  1015.     push_array 1
  1016.     update_a 0 3
  1017.     update_a 1 2
  1018.     pop_a 2
  1019. .o 2 1 i
  1020. e__SystemArray_s_uselectf;#;<2>
  1021.     push_b 0
  1022.     push_a 1
  1023.     push_a 1
  1024.     update_a 1 3
  1025.     update_a 0 2
  1026.     update_b 0 1
  1027.     pop_a 2
  1028.     pop_b 1
  1029.     push_a 0
  1030.     create
  1031.     push_a 3
  1032.     fill ARRAY 1 _hnf 1
  1033.     update_a 0 2
  1034.     buildI_b 0
  1035.     pop_b 1
  1036.     update_a 0 4
  1037.     pop_a 2
  1038. .d 2 0
  1039.     jsr e_system_sAP
  1040. .o 1 0
  1041. .d 2 0
  1042.     jsr e_system_sAP
  1043. .o 1 0
  1044.     repl_args 2 2
  1045.     push_array 1
  1046.     update_a 0 2
  1047.     pop_a 1
  1048. .d 2 0
  1049.     rtn
  1050. .export e__SystemArray_d_uselectl;#;i
  1051. .export e__SystemArray_s_uselectl;#;i
  1052. .export e__SystemArray_n_uselectl;#;i
  1053. .desc e__SystemArray_d_uselectl;#;i e__SystemArray_n_uselectl;#;i e__SystemArray_l_uselectl;#;i 2 "_uselectl;# (Int)"
  1054. .o 2 0
  1055. e__SystemArray_l_uselectl;#;i
  1056.     repl_args 1 1
  1057. .d 2 0
  1058.     jsr ea_19
  1059. .o 1 1 i
  1060.     create
  1061.     push_a 1
  1062.     fill ARRAY 1 _hnf 1
  1063.     buildI_b 0
  1064.     build _Tuple 2 _hnf
  1065.     update_a 0 1
  1066.     pop_a 1
  1067.     pop_b 1
  1068. .d 1 0
  1069.     rtn
  1070. .n 2 e__SystemArray_d_uselectl;#;i
  1071. .o 1 0
  1072. e__SystemArray_n_uselectl;#;i
  1073.     push_node _cycle_in_spine 2
  1074. .d 2 0
  1075.     jsr ea_19
  1076. .o 1 1 i
  1077.     create
  1078.     push_a 1
  1079.     fill ARRAY 1 _hnf 1
  1080.     buildI_b 0
  1081.     fill _Tuple 2 _hnf 3
  1082.     pop_a 1
  1083.     pop_b 1
  1084. .d 1 0
  1085.     rtn
  1086. .o 2 0
  1087. ea_19
  1088.     jsr_eval 1
  1089.     jsr_eval 0
  1090.     push_args 0 2 2
  1091.     jsr_eval 1
  1092.     jsr_eval 0
  1093.     pushI_a 3
  1094.     push_array 1
  1095.     push_array 1
  1096.     update_a 1 5
  1097.     update_a 0 4
  1098.     pop_a 4
  1099. .o 2 1 i
  1100. e__SystemArray_s_uselectl;#;i
  1101.     push_b 0
  1102.     push_a 1
  1103.     push_a 1
  1104.     update_a 1 3
  1105.     update_a 0 2
  1106.     update_b 0 1
  1107.     pop_a 2
  1108.     pop_b 1
  1109.     select INT 0 1
  1110. .d 1 1 i
  1111.     rtn
  1112. .export e__SystemArray_d_uselectl;#;b
  1113. .export e__SystemArray_s_uselectl;#;b
  1114. .export e__SystemArray_n_uselectl;#;b
  1115. .desc e__SystemArray_d_uselectl;#;b e__SystemArray_n_uselectl;#;b e__SystemArray_l_uselectl;#;b 2 "_uselectl;# (Bool)"
  1116. .o 2 0
  1117. e__SystemArray_l_uselectl;#;b
  1118.     repl_args 1 1
  1119. .d 2 0
  1120.     jsr ea_20
  1121. .o 1 1 b
  1122.     create
  1123.     push_a 1
  1124.     fill ARRAY 1 _hnf 1
  1125.     buildB_b 0
  1126.     build _Tuple 2 _hnf
  1127.     update_a 0 1
  1128.     pop_a 1
  1129.     pop_b 1
  1130. .d 1 0
  1131.     rtn
  1132. .n 2 e__SystemArray_d_uselectl;#;b
  1133. .o 1 0
  1134. e__SystemArray_n_uselectl;#;b
  1135.     push_node _cycle_in_spine 2
  1136. .d 2 0
  1137.     jsr ea_20
  1138. .o 1 1 b
  1139.     create
  1140.     push_a 1
  1141.     fill ARRAY 1 _hnf 1
  1142.     buildB_b 0
  1143.     fill _Tuple 2 _hnf 3
  1144.     pop_a 1
  1145.     pop_b 1
  1146. .d 1 0
  1147.     rtn
  1148. .o 2 0
  1149. ea_20
  1150.     jsr_eval 1
  1151.     jsr_eval 0
  1152.     push_args 0 2 2
  1153.     jsr_eval 1
  1154.     jsr_eval 0
  1155.     pushI_a 3
  1156.     push_array 1
  1157.     push_array 1
  1158.     update_a 1 5
  1159.     update_a 0 4
  1160.     pop_a 4
  1161. .o 2 1 i
  1162. e__SystemArray_s_uselectl;#;b
  1163.     push_b 0
  1164.     push_a 1
  1165.     push_a 1
  1166.     update_a 1 3
  1167.     update_a 0 2
  1168.     update_b 0 1
  1169.     pop_a 2
  1170.     pop_b 1
  1171.     select BOOL 0 1
  1172. .d 1 1 b
  1173.     rtn
  1174. .export e__SystemArray_d_uselectl;#;c
  1175. .export e__SystemArray_s_uselectl;#;c
  1176. .export e__SystemArray_n_uselectl;#;c
  1177. .desc e__SystemArray_d_uselectl;#;c e__SystemArray_n_uselectl;#;c e__SystemArray_l_uselectl;#;c 2 "_uselectl;# (Char)"
  1178. .o 2 0
  1179. e__SystemArray_l_uselectl;#;c
  1180.     repl_args 1 1
  1181. .d 2 0
  1182.     jsr ea_21
  1183. .o 1 1 c
  1184.     create
  1185.     push_a 1
  1186.     fill ARRAY 1 _hnf 1
  1187.     buildC_b 0
  1188.     build _Tuple 2 _hnf
  1189.     update_a 0 1
  1190.     pop_a 1
  1191.     pop_b 1
  1192. .d 1 0
  1193.     rtn
  1194. .n 2 e__SystemArray_d_uselectl;#;c
  1195. .o 1 0
  1196. e__SystemArray_n_uselectl;#;c
  1197.     push_node _cycle_in_spine 2
  1198. .d 2 0
  1199.     jsr ea_21
  1200. .o 1 1 c
  1201.     create
  1202.     push_a 1
  1203.     fill ARRAY 1 _hnf 1
  1204.     buildC_b 0
  1205.     fill _Tuple 2 _hnf 3
  1206.     pop_a 1
  1207.     pop_b 1
  1208. .d 1 0
  1209.     rtn
  1210. .o 2 0
  1211. ea_21
  1212.     jsr_eval 1
  1213.     jsr_eval 0
  1214.     push_args 0 2 2
  1215.     jsr_eval 1
  1216.     jsr_eval 0
  1217.     pushI_a 3
  1218.     push_array 1
  1219.     push_array 1
  1220.     update_a 1 5
  1221.     update_a 0 4
  1222.     pop_a 4
  1223. .o 2 1 i
  1224. e__SystemArray_s_uselectl;#;c
  1225.     push_b 0
  1226.     push_a 1
  1227.     push_a 1
  1228.     update_a 1 3
  1229.     update_a 0 2
  1230.     update_b 0 1
  1231.     pop_a 2
  1232.     pop_b 1
  1233.     select CHAR 0 1
  1234. .d 1 1 c
  1235.     rtn
  1236. .export e__SystemArray_d_uselectl;#;r
  1237. .export e__SystemArray_s_uselectl;#;r
  1238. .export e__SystemArray_n_uselectl;#;r
  1239. .desc e__SystemArray_d_uselectl;#;r e__SystemArray_n_uselectl;#;r e__SystemArray_l_uselectl;#;r 2 "_uselectl;# (Real)"
  1240. .o 2 0
  1241. e__SystemArray_l_uselectl;#;r
  1242.     repl_args 1 1
  1243. .d 2 0
  1244.     jsr ea_22
  1245. .o 1 2 r
  1246.     create
  1247.     push_a 1
  1248.     fill ARRAY 1 _hnf 1
  1249.     buildR_b 0
  1250.     build _Tuple 2 _hnf
  1251.     update_a 0 1
  1252.     pop_a 1
  1253.     pop_b 2
  1254. .d 1 0
  1255.     rtn
  1256. .n 2 e__SystemArray_d_uselectl;#;r
  1257. .o 1 0
  1258. e__SystemArray_n_uselectl;#;r
  1259.     push_node _cycle_in_spine 2
  1260. .d 2 0
  1261.     jsr ea_22
  1262. .o 1 2 r
  1263.     create
  1264.     push_a 1
  1265.     fill ARRAY 1 _hnf 1
  1266.     buildR_b 0
  1267.     fill _Tuple 2 _hnf 3
  1268.     pop_a 1
  1269.     pop_b 2
  1270. .d 1 0
  1271.     rtn
  1272. .o 2 0
  1273. ea_22
  1274.     jsr_eval 1
  1275.     jsr_eval 0
  1276.     push_args 0 2 2
  1277.     jsr_eval 1
  1278.     jsr_eval 0
  1279.     pushI_a 3
  1280.     push_array 1
  1281.     push_array 1
  1282.     update_a 1 5
  1283.     update_a 0 4
  1284.     pop_a 4
  1285. .o 2 1 i
  1286. e__SystemArray_s_uselectl;#;r
  1287.     push_b 0
  1288.     push_a 1
  1289.     push_a 1
  1290.     update_a 1 3
  1291.     update_a 0 2
  1292.     update_b 0 1
  1293.     pop_a 2
  1294.     pop_b 1
  1295.     select REAL 0 2
  1296. .d 1 2 r
  1297.     rtn
  1298. .export e__SystemArray_d_uselectl;#;f
  1299. .export e__SystemArray_s_uselectl;#;f
  1300. .export e__SystemArray_n_uselectl;#;f
  1301. .desc e__SystemArray_d_uselectl;#;f e__SystemArray_n_uselectl;#;f e__SystemArray_l_uselectl;#;f 2 "_uselectl;# (File)"
  1302. .o 2 0
  1303. e__SystemArray_l_uselectl;#;f
  1304.     repl_args 1 1
  1305. .d 2 0
  1306.     jsr ea_23
  1307. .o 1 2 f
  1308.     create
  1309.     push_a 1
  1310.     fill ARRAY 1 _hnf 1
  1311.     buildF_b 0
  1312.     build _Tuple 2 _hnf
  1313.     update_a 0 1
  1314.     pop_a 1
  1315.     pop_b 2
  1316. .d 1 0
  1317.     rtn
  1318. .n 2 e__SystemArray_d_uselectl;#;f
  1319. .o 1 0
  1320. e__SystemArray_n_uselectl;#;f
  1321.     push_node _cycle_in_spine 2
  1322. .d 2 0
  1323.     jsr ea_23
  1324. .o 1 2 f
  1325.     create
  1326.     push_a 1
  1327.     fill ARRAY 1 _hnf 1
  1328.     buildF_b 0
  1329.     fill _Tuple 2 _hnf 3
  1330.     pop_a 1
  1331.     pop_b 2
  1332. .d 1 0
  1333.     rtn
  1334. .o 2 0
  1335. ea_23
  1336.     jsr_eval 1
  1337.     jsr_eval 0
  1338.     push_args 0 2 2
  1339.     jsr_eval 1
  1340.     jsr_eval 0
  1341.     pushI_a 3
  1342.     push_array 1
  1343.     push_array 1
  1344.     update_a 1 5
  1345.     update_a 0 4
  1346.     pop_a 4
  1347. .o 2 1 i
  1348. e__SystemArray_s_uselectl;#;f
  1349.     push_b 0
  1350.     push_a 1
  1351.     push_a 1
  1352.     update_a 1 3
  1353.     update_a 0 2
  1354.     update_b 0 1
  1355.     pop_a 2
  1356.     pop_b 1
  1357.     select FILE 0 2
  1358. .d 1 2 f
  1359.     rtn
  1360. .export e__SystemArray_d_uselectl;#;<3>
  1361. .export e__SystemArray_s_uselectl;#;<3>
  1362. .export e__SystemArray_n_uselectl;#;<3>
  1363. .desc e__SystemArray_d_uselectl;#;<3> e__SystemArray_n_uselectl;#;<3> e__SystemArray_l_uselectl;#;<3> 3 "_uselectl;# (3)"
  1364. .o 2 0
  1365. e__SystemArray_l_uselectl;#;<3>
  1366.     repl_args 2 2
  1367. .d 3 0
  1368.     jsr ea_24
  1369. .o 2 0
  1370.     create
  1371.     push_a 2
  1372.     fill ARRAY 1 _hnf 1
  1373.     push_a 1
  1374.     build _Tuple 2 _hnf
  1375.     update_a 0 2
  1376.     pop_a 2
  1377. .d 1 0
  1378.     rtn
  1379. .n 3 e__SystemArray_d_uselectl;#;<3>
  1380. .o 1 0
  1381. e__SystemArray_n_uselectl;#;<3>
  1382.     push_node _cycle_in_spine 3
  1383. .d 3 0
  1384.     jsr ea_24
  1385. .o 2 0
  1386.     create
  1387.     push_a 2
  1388.     fill ARRAY 1 _hnf 1
  1389.     push_a 1
  1390.     fill _Tuple 2 _hnf 4
  1391.     pop_a 2
  1392. .d 1 0
  1393.     rtn
  1394. .o 3 0
  1395. ea_24
  1396.     jsr_eval 2
  1397.     push_a 1
  1398.     jsr_eval 0
  1399.     repl_args 2 2
  1400.     jsr_eval 1
  1401.     jsr_eval 0
  1402.     jsr_eval 2
  1403.     pushI_a 4
  1404.     push_array 1
  1405.     push_array 1
  1406.     update_a 1 6
  1407.     update_a 0 5
  1408.     pop_a 4
  1409. .o 3 1 i
  1410. e__SystemArray_s_uselectl;#;<3>
  1411.     push_b 0
  1412.     push_a 2
  1413.     push_a 2
  1414.     push_a 2
  1415.     update_a 2 5
  1416.     update_a 1 4
  1417.     update_a 0 3
  1418.     update_b 0 1
  1419.     pop_a 3
  1420.     pop_b 1
  1421.     create
  1422.     push_a 3
  1423.     fill ARRAY 1 _hnf 1
  1424.     create
  1425.     push_a 3
  1426.     fill ARRAY 1 _hnf 1
  1427.     build _Tuple 2 _hnf
  1428.     update_a 0 2
  1429.     buildI_b 0
  1430.     pop_b 1
  1431.     update_a 0 4
  1432.     pop_a 2
  1433. .d 2 0
  1434.     jsr e_system_sAP
  1435. .o 1 0
  1436. .d 2 0
  1437.     jsr e_system_sAP
  1438. .o 1 0
  1439.     repl_args 2 2
  1440.     push_array 1
  1441.     update_a 0 2
  1442.     pop_a 1
  1443. .d 2 0
  1444.     rtn
  1445. .export e__SystemArray_d_uselectn;#;i
  1446. .export e__SystemArray_s_uselectn;#;i
  1447. .export e__SystemArray_n_uselectn;#;i
  1448. .desc e__SystemArray_d_uselectn;#;i e__SystemArray_n_uselectn;#;i e__SystemArray_l_uselectn;#;i 2 "_uselectn;# (Int)"
  1449. .o 2 0
  1450. e__SystemArray_l_uselectn;#;i
  1451.     repl_args 1 1
  1452. .d 2 0
  1453.     jsr ea_25
  1454. .o 1 1 i
  1455.     create
  1456.     push_a 1
  1457.     fill ARRAY 1 _hnf 1
  1458.     buildI_b 0
  1459.     build _Tuple 2 _hnf
  1460.     update_a 0 1
  1461.     pop_a 1
  1462.     pop_b 1
  1463. .d 1 0
  1464.     rtn
  1465. .n 2 e__SystemArray_d_uselectn;#;i
  1466. .o 1 0
  1467. e__SystemArray_n_uselectn;#;i
  1468.     push_node _cycle_in_spine 2
  1469. .d 2 0
  1470.     jsr ea_25
  1471. .o 1 1 i
  1472.     create
  1473.     push_a 1
  1474.     fill ARRAY 1 _hnf 1
  1475.     buildI_b 0
  1476.     fill _Tuple 2 _hnf 3
  1477.     pop_a 1
  1478.     pop_b 1
  1479. .d 1 0
  1480.     rtn
  1481. .o 2 0
  1482. ea_25
  1483.     jsr_eval 1
  1484.     jsr_eval 0
  1485.     push_args 0 2 2
  1486.     jsr_eval 1
  1487.     jsr_eval 0
  1488.     pushI_a 3
  1489.     push_array 1
  1490.     push_array 1
  1491.     update_a 1 5
  1492.     update_a 0 4
  1493.     pop_a 4
  1494. .o 2 1 i
  1495. e__SystemArray_s_uselectn;#;i
  1496.     push_b 0
  1497.     push_a 1
  1498.     push_a 1
  1499.     update_a 1 3
  1500.     update_a 0 2
  1501.     update_b 0 1
  1502.     pop_a 2
  1503.     pop_b 1
  1504.     select INT 0 1
  1505. .d 1 1 i
  1506.     rtn
  1507. .export e__SystemArray_d_uselectn;#;b
  1508. .export e__SystemArray_s_uselectn;#;b
  1509. .export e__SystemArray_n_uselectn;#;b
  1510. .desc e__SystemArray_d_uselectn;#;b e__SystemArray_n_uselectn;#;b e__SystemArray_l_uselectn;#;b 2 "_uselectn;# (Bool)"
  1511. .o 2 0
  1512. e__SystemArray_l_uselectn;#;b
  1513.     repl_args 1 1
  1514. .d 2 0
  1515.     jsr ea_26
  1516. .o 1 1 b
  1517.     create
  1518.     push_a 1
  1519.     fill ARRAY 1 _hnf 1
  1520.     buildB_b 0
  1521.     build _Tuple 2 _hnf
  1522.     update_a 0 1
  1523.     pop_a 1
  1524.     pop_b 1
  1525. .d 1 0
  1526.     rtn
  1527. .n 2 e__SystemArray_d_uselectn;#;b
  1528. .o 1 0
  1529. e__SystemArray_n_uselectn;#;b
  1530.     push_node _cycle_in_spine 2
  1531. .d 2 0
  1532.     jsr ea_26
  1533. .o 1 1 b
  1534.     create
  1535.     push_a 1
  1536.     fill ARRAY 1 _hnf 1
  1537.     buildB_b 0
  1538.     fill _Tuple 2 _hnf 3
  1539.     pop_a 1
  1540.     pop_b 1
  1541. .d 1 0
  1542.     rtn
  1543. .o 2 0
  1544. ea_26
  1545.     jsr_eval 1
  1546.     jsr_eval 0
  1547.     push_args 0 2 2
  1548.     jsr_eval 1
  1549.     jsr_eval 0
  1550.     pushI_a 3
  1551.     push_array 1
  1552.     push_array 1
  1553.     update_a 1 5
  1554.     update_a 0 4
  1555.     pop_a 4
  1556. .o 2 1 i
  1557. e__SystemArray_s_uselectn;#;b
  1558.     push_b 0
  1559.     push_a 1
  1560.     push_a 1
  1561.     update_a 1 3
  1562.     update_a 0 2
  1563.     update_b 0 1
  1564.     pop_a 2
  1565.     pop_b 1
  1566.     select BOOL 0 1
  1567. .d 1 1 b
  1568.     rtn
  1569. .export e__SystemArray_d_uselectn;#;c
  1570. .export e__SystemArray_s_uselectn;#;c
  1571. .export e__SystemArray_n_uselectn;#;c
  1572. .desc e__SystemArray_d_uselectn;#;c e__SystemArray_n_uselectn;#;c e__SystemArray_l_uselectn;#;c 2 "_uselectn;# (Char)"
  1573. .o 2 0
  1574. e__SystemArray_l_uselectn;#;c
  1575.     repl_args 1 1
  1576. .d 2 0
  1577.     jsr ea_27
  1578. .o 1 1 c
  1579.     create
  1580.     push_a 1
  1581.     fill ARRAY 1 _hnf 1
  1582.     buildC_b 0
  1583.     build _Tuple 2 _hnf
  1584.     update_a 0 1
  1585.     pop_a 1
  1586.     pop_b 1
  1587. .d 1 0
  1588.     rtn
  1589. .n 2 e__SystemArray_d_uselectn;#;c
  1590. .o 1 0
  1591. e__SystemArray_n_uselectn;#;c
  1592.     push_node _cycle_in_spine 2
  1593. .d 2 0
  1594.     jsr ea_27
  1595. .o 1 1 c
  1596.     create
  1597.     push_a 1
  1598.     fill ARRAY 1 _hnf 1
  1599.     buildC_b 0
  1600.     fill _Tuple 2 _hnf 3
  1601.     pop_a 1
  1602.     pop_b 1
  1603. .d 1 0
  1604.     rtn
  1605. .o 2 0
  1606. ea_27
  1607.     jsr_eval 1
  1608.     jsr_eval 0
  1609.     push_args 0 2 2
  1610.     jsr_eval 1
  1611.     jsr_eval 0
  1612.     pushI_a 3
  1613.     push_array 1
  1614.     push_array 1
  1615.     update_a 1 5
  1616.     update_a 0 4
  1617.     pop_a 4
  1618. .o 2 1 i
  1619. e__SystemArray_s_uselectn;#;c
  1620.     push_b 0
  1621.     push_a 1
  1622.     push_a 1
  1623.     update_a 1 3
  1624.     update_a 0 2
  1625.     update_b 0 1
  1626.     pop_a 2
  1627.     pop_b 1
  1628.     select CHAR 0 1
  1629. .d 1 1 c
  1630.     rtn
  1631. .export e__SystemArray_d_uselectn;#;r
  1632. .export e__SystemArray_s_uselectn;#;r
  1633. .export e__SystemArray_n_uselectn;#;r
  1634. .desc e__SystemArray_d_uselectn;#;r e__SystemArray_n_uselectn;#;r e__SystemArray_l_uselectn;#;r 2 "_uselectn;# (Real)"
  1635. .o 2 0
  1636. e__SystemArray_l_uselectn;#;r
  1637.     repl_args 1 1
  1638. .d 2 0
  1639.     jsr ea_28
  1640. .o 1 2 r
  1641.     create
  1642.     push_a 1
  1643.     fill ARRAY 1 _hnf 1
  1644.     buildR_b 0
  1645.     build _Tuple 2 _hnf
  1646.     update_a 0 1
  1647.     pop_a 1
  1648.     pop_b 2
  1649. .d 1 0
  1650.     rtn
  1651. .n 2 e__SystemArray_d_uselectn;#;r
  1652. .o 1 0
  1653. e__SystemArray_n_uselectn;#;r
  1654.     push_node _cycle_in_spine 2
  1655. .d 2 0
  1656.     jsr ea_28
  1657. .o 1 2 r
  1658.     create
  1659.     push_a 1
  1660.     fill ARRAY 1 _hnf 1
  1661.     buildR_b 0
  1662.     fill _Tuple 2 _hnf 3
  1663.     pop_a 1
  1664.     pop_b 2
  1665. .d 1 0
  1666.     rtn
  1667. .o 2 0
  1668. ea_28
  1669.     jsr_eval 1
  1670.     jsr_eval 0
  1671.     push_args 0 2 2
  1672.     jsr_eval 1
  1673.     jsr_eval 0
  1674.     pushI_a 3
  1675.     push_array 1
  1676.     push_array 1
  1677.     update_a 1 5
  1678.     update_a 0 4
  1679.     pop_a 4
  1680. .o 2 1 i
  1681. e__SystemArray_s_uselectn;#;r
  1682.     push_b 0
  1683.     push_a 1
  1684.     push_a 1
  1685.     update_a 1 3
  1686.     update_a 0 2
  1687.     update_b 0 1
  1688.     pop_a 2
  1689.     pop_b 1
  1690.     select REAL 0 2
  1691. .d 1 2 r
  1692.     rtn
  1693. .export e__SystemArray_d_uselectn;#;f
  1694. .export e__SystemArray_s_uselectn;#;f
  1695. .export e__SystemArray_n_uselectn;#;f
  1696. .desc e__SystemArray_d_uselectn;#;f e__SystemArray_n_uselectn;#;f e__SystemArray_l_uselectn;#;f 2 "_uselectn;# (File)"
  1697. .o 2 0
  1698. e__SystemArray_l_uselectn;#;f
  1699.     repl_args 1 1
  1700. .d 2 0
  1701.     jsr ea_29
  1702. .o 1 2 f
  1703.     create
  1704.     push_a 1
  1705.     fill ARRAY 1 _hnf 1
  1706.     buildF_b 0
  1707.     build _Tuple 2 _hnf
  1708.     update_a 0 1
  1709.     pop_a 1
  1710.     pop_b 2
  1711. .d 1 0
  1712.     rtn
  1713. .n 2 e__SystemArray_d_uselectn;#;f
  1714. .o 1 0
  1715. e__SystemArray_n_uselectn;#;f
  1716.     push_node _cycle_in_spine 2
  1717. .d 2 0
  1718.     jsr ea_29
  1719. .o 1 2 f
  1720.     create
  1721.     push_a 1
  1722.     fill ARRAY 1 _hnf 1
  1723.     buildF_b 0
  1724.     fill _Tuple 2 _hnf 3
  1725.     pop_a 1
  1726.     pop_b 2
  1727. .d 1 0
  1728.     rtn
  1729. .o 2 0
  1730. ea_29
  1731.     jsr_eval 1
  1732.     jsr_eval 0
  1733.     push_args 0 2 2
  1734.     jsr_eval 1
  1735.     jsr_eval 0
  1736.     pushI_a 3
  1737.     push_array 1
  1738.     push_array 1
  1739.     update_a 1 5
  1740.     update_a 0 4
  1741.     pop_a 4
  1742. .o 2 1 i
  1743. e__SystemArray_s_uselectn;#;f
  1744.     push_b 0
  1745.     push_a 1
  1746.     push_a 1
  1747.     update_a 1 3
  1748.     update_a 0 2
  1749.     update_b 0 1
  1750.     pop_a 2
  1751.     pop_b 1
  1752.     select FILE 0 2
  1753. .d 1 2 f
  1754.     rtn
  1755. .export e__SystemArray_d_uselectn;#;<4>
  1756. .export e__SystemArray_s_uselectn;#;<4>
  1757. .export e__SystemArray_n_uselectn;#;<4>
  1758. .desc e__SystemArray_d_uselectn;#;<4> e__SystemArray_n_uselectn;#;<4> e__SystemArray_l_uselectn;#;<4> 3 "_uselectn;# (4)"
  1759. .o 2 0
  1760. e__SystemArray_l_uselectn;#;<4>
  1761.     repl_args 2 2
  1762. .d 3 0
  1763.     jsr ea_30
  1764. .o 2 0
  1765.     create
  1766.     push_a 2
  1767.     fill ARRAY 1 _hnf 1
  1768.     push_a 1
  1769.     build _Tuple 2 _hnf
  1770.     update_a 0 2
  1771.     pop_a 2
  1772. .d 1 0
  1773.     rtn
  1774. .n 3 e__SystemArray_d_uselectn;#;<4>
  1775. .o 1 0
  1776. e__SystemArray_n_uselectn;#;<4>
  1777.     push_node _cycle_in_spine 3
  1778. .d 3 0
  1779.     jsr ea_30
  1780. .o 2 0
  1781.     create
  1782.     push_a 2
  1783.     fill ARRAY 1 _hnf 1
  1784.     push_a 1
  1785.     fill _Tuple 2 _hnf 4
  1786.     pop_a 2
  1787. .d 1 0
  1788.     rtn
  1789. .o 3 0
  1790. ea_30
  1791.     jsr_eval 2
  1792.     push_a 1
  1793.     jsr_eval 0
  1794.     repl_args 2 2
  1795.     jsr_eval 1
  1796.     jsr_eval 0
  1797.     jsr_eval 2
  1798.     pushI_a 4
  1799.     push_array 1
  1800.     push_array 1
  1801.     update_a 1 6
  1802.     update_a 0 5
  1803.     pop_a 4
  1804. .o 3 1 i
  1805. e__SystemArray_s_uselectn;#;<4>
  1806.     push_b 0
  1807.     push_a 2
  1808.     push_a 2
  1809.     push_a 2
  1810.     update_a 2 5
  1811.     update_a 1 4
  1812.     update_a 0 3
  1813.     update_b 0 1
  1814.     pop_a 3
  1815.     pop_b 1
  1816.     create
  1817.     push_a 3
  1818.     fill ARRAY 1 _hnf 1
  1819.     create
  1820.     push_a 3
  1821.     fill ARRAY 1 _hnf 1
  1822.     build _Tuple 2 _hnf
  1823.     update_a 0 2
  1824.     buildI_b 0
  1825.     pop_b 1
  1826.     update_a 0 4
  1827.     pop_a 2
  1828. .d 2 0
  1829.     jsr e_system_sAP
  1830. .o 1 0
  1831. .d 2 0
  1832.     jsr e_system_sAP
  1833. .o 1 0
  1834.     repl_args 2 2
  1835.     push_array 1
  1836.     update_a 0 2
  1837.     pop_a 1
  1838. .d 2 0
  1839.     rtn
  1840. .export e__SystemArray_dcreateArray;#;i
  1841. .export e__SystemArray_screateArray;#;i
  1842. .export e__SystemArray_ncreateArray;#;i
  1843. .desc e__SystemArray_dcreateArray;#;i e__SystemArray_ncreateArray;#;i e__SystemArray_lcreateArray;#;i 2 "createArray;# (Int)"
  1844. .o 2 0
  1845. e__SystemArray_lcreateArray;#;i
  1846.     repl_args 1 1
  1847. .d 2 0
  1848.     jsr ea_31
  1849. .o 1 0
  1850.     create
  1851.     push_a 1
  1852.     fill ARRAY 1 _hnf 1
  1853.     update_a 0 1
  1854.     pop_a 1
  1855. .d 1 0
  1856.     rtn
  1857. .n 2 e__SystemArray_dcreateArray;#;i
  1858. .o 1 0
  1859. e__SystemArray_ncreateArray;#;i
  1860.     push_node _cycle_in_spine 2
  1861. .d 2 0
  1862.     jsr ea_31
  1863. .o 1 0
  1864.     push_a 0
  1865.     fill ARRAY 1 _hnf 2
  1866.     pop_a 1
  1867. .d 1 0
  1868.     rtn
  1869. .o 2 0
  1870. ea_31
  1871.     jsr_eval 1
  1872.     jsr_eval 0
  1873.     pushI_a 1
  1874.     pushI_a 0
  1875.     pop_a 2
  1876. .o 0 2 ii
  1877. e__SystemArray_screateArray;#;i
  1878.     push_b 1
  1879.     push_b 1
  1880.     update_b 1 3
  1881.     update_b 0 2
  1882.     pop_b 2
  1883.     create_array INT 0 1
  1884. .d 1 0
  1885.     rtn
  1886. .export e__SystemArray_dcreateArray;#;b
  1887. .export e__SystemArray_screateArray;#;b
  1888. .export e__SystemArray_ncreateArray;#;b
  1889. .desc e__SystemArray_dcreateArray;#;b e__SystemArray_ncreateArray;#;b e__SystemArray_lcreateArray;#;b 2 "createArray;# (Bool)"
  1890. .o 2 0
  1891. e__SystemArray_lcreateArray;#;b
  1892.     repl_args 1 1
  1893. .d 2 0
  1894.     jsr ea_32
  1895. .o 1 0
  1896.     create
  1897.     push_a 1
  1898.     fill ARRAY 1 _hnf 1
  1899.     update_a 0 1
  1900.     pop_a 1
  1901. .d 1 0
  1902.     rtn
  1903. .n 2 e__SystemArray_dcreateArray;#;b
  1904. .o 1 0
  1905. e__SystemArray_ncreateArray;#;b
  1906.     push_node _cycle_in_spine 2
  1907. .d 2 0
  1908.     jsr ea_32
  1909. .o 1 0
  1910.     push_a 0
  1911.     fill ARRAY 1 _hnf 2
  1912.     pop_a 1
  1913. .d 1 0
  1914.     rtn
  1915. .o 2 0
  1916. ea_32
  1917.     jsr_eval 1
  1918.     jsr_eval 0
  1919.     pushB_a 1
  1920.     pushI_a 0
  1921.     pop_a 2
  1922. .o 0 2 ib
  1923. e__SystemArray_screateArray;#;b
  1924.     push_b 1
  1925.     push_b 1
  1926.     update_b 1 3
  1927.     update_b 0 2
  1928.     pop_b 2
  1929.     create_array BOOL 0 1
  1930. .d 1 0
  1931.     rtn
  1932. .export e__SystemArray_dcreateArray;#;c
  1933. .export e__SystemArray_screateArray;#;c
  1934. .export e__SystemArray_ncreateArray;#;c
  1935. .desc e__SystemArray_dcreateArray;#;c e__SystemArray_ncreateArray;#;c e__SystemArray_lcreateArray;#;c 2 "createArray;# (Char)"
  1936. .o 2 0
  1937. e__SystemArray_lcreateArray;#;c
  1938.     repl_args 1 1
  1939. .d 2 0
  1940.     jsr ea_33
  1941. .o 1 0
  1942.     create
  1943.     push_a 1
  1944.     fill ARRAY 1 _hnf 1
  1945.     update_a 0 1
  1946.     pop_a 1
  1947. .d 1 0
  1948.     rtn
  1949. .n 2 e__SystemArray_dcreateArray;#;c
  1950. .o 1 0
  1951. e__SystemArray_ncreateArray;#;c
  1952.     push_node _cycle_in_spine 2
  1953. .d 2 0
  1954.     jsr ea_33
  1955. .o 1 0
  1956.     push_a 0
  1957.     fill ARRAY 1 _hnf 2
  1958.     pop_a 1
  1959. .d 1 0
  1960.     rtn
  1961. .o 2 0
  1962. ea_33
  1963.     jsr_eval 1
  1964.     jsr_eval 0
  1965.     pushC_a 1
  1966.     pushI_a 0
  1967.     pop_a 2
  1968. .o 0 2 ic
  1969. e__SystemArray_screateArray;#;c
  1970.     push_b 1
  1971.     push_b 1
  1972.     update_b 1 3
  1973.     update_b 0 2
  1974.     pop_b 2
  1975.     create_array CHAR 0 1
  1976. .d 1 0
  1977.     rtn
  1978. .export e__SystemArray_dcreateArray;#;r
  1979. .export e__SystemArray_screateArray;#;r
  1980. .export e__SystemArray_ncreateArray;#;r
  1981. .desc e__SystemArray_dcreateArray;#;r e__SystemArray_ncreateArray;#;r e__SystemArray_lcreateArray;#;r 2 "createArray;# (Real)"
  1982. .o 2 0
  1983. e__SystemArray_lcreateArray;#;r
  1984.     repl_args 1 1
  1985. .d 2 0
  1986.     jsr ea_34
  1987. .o 1 0
  1988.     create
  1989.     push_a 1
  1990.     fill ARRAY 1 _hnf 1
  1991.     update_a 0 1
  1992.     pop_a 1
  1993. .d 1 0
  1994.     rtn
  1995. .n 2 e__SystemArray_dcreateArray;#;r
  1996. .o 1 0
  1997. e__SystemArray_ncreateArray;#;r
  1998.     push_node _cycle_in_spine 2
  1999. .d 2 0
  2000.     jsr ea_34
  2001. .o 1 0
  2002.     push_a 0
  2003.     fill ARRAY 1 _hnf 2
  2004.     pop_a 1
  2005. .d 1 0
  2006.     rtn
  2007. .o 2 0
  2008. ea_34
  2009.     jsr_eval 1
  2010.     jsr_eval 0
  2011.     pushR_a 1
  2012.     pushI_a 0
  2013.     pop_a 2
  2014. .o 0 3 ir
  2015. e__SystemArray_screateArray;#;r
  2016.     push_b 2
  2017.     push_b 2
  2018.     push_b 2
  2019.     update_b 2 5
  2020.     update_b 1 4
  2021.     update_b 0 3
  2022.     pop_b 3
  2023.     create_array REAL 0 2
  2024. .d 1 0
  2025.     rtn
  2026. .export e__SystemArray_dcreateArray;#;f
  2027. .export e__SystemArray_screateArray;#;f
  2028. .export e__SystemArray_ncreateArray;#;f
  2029. .desc e__SystemArray_dcreateArray;#;f e__SystemArray_ncreateArray;#;f e__SystemArray_lcreateArray;#;f 2 "createArray;# (File)"
  2030. .o 2 0
  2031. e__SystemArray_lcreateArray;#;f
  2032.     repl_args 1 1
  2033. .d 2 0
  2034.     jsr ea_35
  2035. .o 1 0
  2036.     create
  2037.     push_a 1
  2038.     fill ARRAY 1 _hnf 1
  2039.     update_a 0 1
  2040.     pop_a 1
  2041. .d 1 0
  2042.     rtn
  2043. .n 2 e__SystemArray_dcreateArray;#;f
  2044. .o 1 0
  2045. e__SystemArray_ncreateArray;#;f
  2046.     push_node _cycle_in_spine 2
  2047. .d 2 0
  2048.     jsr ea_35
  2049. .o 1 0
  2050.     push_a 0
  2051.     fill ARRAY 1 _hnf 2
  2052.     pop_a 1
  2053. .d 1 0
  2054.     rtn
  2055. .o 2 0
  2056. ea_35
  2057.     jsr_eval 1
  2058.     jsr_eval 0
  2059.     pushF_a 1
  2060.     pushI_a 0
  2061.     pop_a 2
  2062. .o 0 3 if
  2063. e__SystemArray_screateArray;#;f
  2064.     push_b 2
  2065.     push_b 2
  2066.     push_b 2
  2067.     update_b 2 5
  2068.     update_b 1 4
  2069.     update_b 0 3
  2070.     pop_b 3
  2071.     create_array FILE 0 2
  2072. .d 1 0
  2073.     rtn
  2074. .export e__SystemArray_dcreateArray;#;<5>
  2075. .export e__SystemArray_screateArray;#;<5>
  2076. .export e__SystemArray_ncreateArray;#;<5>
  2077. .desc e__SystemArray_dcreateArray;#;<5> e__SystemArray_ncreateArray;#;<5> e__SystemArray_lcreateArray;#;<5> 3 "createArray;# (5)"
  2078. .o 2 0
  2079. e__SystemArray_lcreateArray;#;<5>
  2080.     repl_args 2 2
  2081. .d 3 0
  2082.     jsr ea_36
  2083. .o 1 0
  2084.     create
  2085.     push_a 1
  2086.     fill ARRAY 1 _hnf 1
  2087.     update_a 0 1
  2088.     pop_a 1
  2089. .d 1 0
  2090.     rtn
  2091. .n 3 e__SystemArray_dcreateArray;#;<5>
  2092. .o 1 0
  2093. e__SystemArray_ncreateArray;#;<5>
  2094.     push_node _cycle_in_spine 3
  2095. .d 3 0
  2096.     jsr ea_36
  2097. .o 1 0
  2098.     push_a 0
  2099.     fill ARRAY 1 _hnf 2
  2100.     pop_a 1
  2101. .d 1 0
  2102.     rtn
  2103. .o 3 0
  2104. ea_36
  2105.     jsr_eval 2
  2106.     jsr_eval 1
  2107.     jsr_eval 0
  2108.     pushI_a 1
  2109.     update_a 0 1
  2110.     pop_a 1
  2111. .o 2 1 i
  2112. e__SystemArray_screateArray;#;<5>
  2113.     push_a 1
  2114.     push_b 0
  2115.     push_a 1
  2116.     update_a 1 3
  2117.     update_a 0 2
  2118.     update_b 0 1
  2119.     pop_a 2
  2120.     pop_b 1
  2121.     push_a 0
  2122.     buildI_b 0
  2123.     pop_b 1
  2124.     update_a 0 2
  2125.     pop_a 1
  2126. .d 2 0
  2127.     jsr e_system_sAP
  2128. .o 1 0
  2129. .d 2 0
  2130.     jsr e_system_sAP
  2131. .o 1 0
  2132.     push_array 0
  2133.     update_a 0 1
  2134.     pop_a 1
  2135. .d 1 0
  2136.     rtn
  2137. .export e__SystemArray_dreplace;#;i
  2138. .export e__SystemArray_sreplace;#;i
  2139. .export e__SystemArray_nreplace;#;i
  2140. .desc e__SystemArray_dreplace;#;i e__SystemArray_nreplace;#;i e__SystemArray_lreplace;#;i 3 "replace;# (Int)"
  2141. .o 2 0
  2142. e__SystemArray_lreplace;#;i
  2143.     repl_args 2 2
  2144. .d 3 0
  2145.     jsr ea_37
  2146. .o 1 1 i
  2147.     create
  2148.     push_a 1
  2149.     fill ARRAY 1 _hnf 1
  2150.     buildI_b 0
  2151.     build _Tuple 2 _hnf
  2152.     update_a 0 1
  2153.     pop_a 1
  2154.     pop_b 1
  2155. .d 1 0
  2156.     rtn
  2157. .n 3 e__SystemArray_dreplace;#;i
  2158. .o 1 0
  2159. e__SystemArray_nreplace;#;i
  2160.     push_node _cycle_in_spine 3
  2161. .d 3 0
  2162.     jsr ea_37
  2163. .o 1 1 i
  2164.     create
  2165.     push_a 1
  2166.     fill ARRAY 1 _hnf 1
  2167.     buildI_b 0
  2168.     fill _Tuple 2 _hnf 3
  2169.     pop_a 1
  2170.     pop_b 1
  2171. .d 1 0
  2172.     rtn
  2173. .o 3 0
  2174. ea_37
  2175.     jsr_eval 2
  2176.     jsr_eval 1
  2177.     jsr_eval 0
  2178.     pushI_a 2
  2179.     pushI_a 1
  2180.     push_array 0
  2181.     update_a 0 3
  2182.     pop_a 3
  2183. .o 1 2 ii
  2184. e__SystemArray_sreplace;#;i
  2185.     push_b 1
  2186.     push_b 1
  2187.     push_a 0
  2188.     update_a 0 1
  2189.     update_b 1 3
  2190.     update_b 0 2
  2191.     pop_a 1
  2192.     pop_b 2
  2193.     replace INT 0 1
  2194. .d 1 1 i
  2195.     rtn
  2196. .export e__SystemArray_dreplace;#;b
  2197. .export e__SystemArray_sreplace;#;b
  2198. .export e__SystemArray_nreplace;#;b
  2199. .desc e__SystemArray_dreplace;#;b e__SystemArray_nreplace;#;b e__SystemArray_lreplace;#;b 3 "replace;# (Bool)"
  2200. .o 2 0
  2201. e__SystemArray_lreplace;#;b
  2202.     repl_args 2 2
  2203. .d 3 0
  2204.     jsr ea_38
  2205. .o 1 1 b
  2206.     create
  2207.     push_a 1
  2208.     fill ARRAY 1 _hnf 1
  2209.     buildB_b 0
  2210.     build _Tuple 2 _hnf
  2211.     update_a 0 1
  2212.     pop_a 1
  2213.     pop_b 1
  2214. .d 1 0
  2215.     rtn
  2216. .n 3 e__SystemArray_dreplace;#;b
  2217. .o 1 0
  2218. e__SystemArray_nreplace;#;b
  2219.     push_node _cycle_in_spine 3
  2220. .d 3 0
  2221.     jsr ea_38
  2222. .o 1 1 b
  2223.     create
  2224.     push_a 1
  2225.     fill ARRAY 1 _hnf 1
  2226.     buildB_b 0
  2227.     fill _Tuple 2 _hnf 3
  2228.     pop_a 1
  2229.     pop_b 1
  2230. .d 1 0
  2231.     rtn
  2232. .o 3 0
  2233. ea_38
  2234.     jsr_eval 2
  2235.     jsr_eval 1
  2236.     jsr_eval 0
  2237.     pushB_a 2
  2238.     pushI_a 1
  2239.     push_array 0
  2240.     update_a 0 3
  2241.     pop_a 3
  2242. .o 1 2 ib
  2243. e__SystemArray_sreplace;#;b
  2244.     push_b 1
  2245.     push_b 1
  2246.     push_a 0
  2247.     update_a 0 1
  2248.     update_b 1 3
  2249.     update_b 0 2
  2250.     pop_a 1
  2251.     pop_b 2
  2252.     replace BOOL 0 1
  2253. .d 1 1 b
  2254.     rtn
  2255. .export e__SystemArray_dreplace;#;c
  2256. .export e__SystemArray_sreplace;#;c
  2257. .export e__SystemArray_nreplace;#;c
  2258. .desc e__SystemArray_dreplace;#;c e__SystemArray_nreplace;#;c e__SystemArray_lreplace;#;c 3 "replace;# (Char)"
  2259. .o 2 0
  2260. e__SystemArray_lreplace;#;c
  2261.     repl_args 2 2
  2262. .d 3 0
  2263.     jsr ea_39
  2264. .o 1 1 c
  2265.     create
  2266.     push_a 1
  2267.     fill ARRAY 1 _hnf 1
  2268.     buildC_b 0
  2269.     build _Tuple 2 _hnf
  2270.     update_a 0 1
  2271.     pop_a 1
  2272.     pop_b 1
  2273. .d 1 0
  2274.     rtn
  2275. .n 3 e__SystemArray_dreplace;#;c
  2276. .o 1 0
  2277. e__SystemArray_nreplace;#;c
  2278.     push_node _cycle_in_spine 3
  2279. .d 3 0
  2280.     jsr ea_39
  2281. .o 1 1 c
  2282.     create
  2283.     push_a 1
  2284.     fill ARRAY 1 _hnf 1
  2285.     buildC_b 0
  2286.     fill _Tuple 2 _hnf 3
  2287.     pop_a 1
  2288.     pop_b 1
  2289. .d 1 0
  2290.     rtn
  2291. .o 3 0
  2292. ea_39
  2293.     jsr_eval 2
  2294.     jsr_eval 1
  2295.     jsr_eval 0
  2296.     pushC_a 2
  2297.     pushI_a 1
  2298.     push_array 0
  2299.     update_a 0 3
  2300.     pop_a 3
  2301. .o 1 2 ic
  2302. e__SystemArray_sreplace;#;c
  2303.     push_b 1
  2304.     push_b 1
  2305.     push_a 0
  2306.     update_a 0 1
  2307.     update_b 1 3
  2308.     update_b 0 2
  2309.     pop_a 1
  2310.     pop_b 2
  2311.     replace CHAR 0 1
  2312. .d 1 1 c
  2313.     rtn
  2314. .export e__SystemArray_dreplace;#;r
  2315. .export e__SystemArray_sreplace;#;r
  2316. .export e__SystemArray_nreplace;#;r
  2317. .desc e__SystemArray_dreplace;#;r e__SystemArray_nreplace;#;r e__SystemArray_lreplace;#;r 3 "replace;# (Real)"
  2318. .o 2 0
  2319. e__SystemArray_lreplace;#;r
  2320.     repl_args 2 2
  2321. .d 3 0
  2322.     jsr ea_40
  2323. .o 1 2 r
  2324.     create
  2325.     push_a 1
  2326.     fill ARRAY 1 _hnf 1
  2327.     buildR_b 0
  2328.     build _Tuple 2 _hnf
  2329.     update_a 0 1
  2330.     pop_a 1
  2331.     pop_b 2
  2332. .d 1 0
  2333.     rtn
  2334. .n 3 e__SystemArray_dreplace;#;r
  2335. .o 1 0
  2336. e__SystemArray_nreplace;#;r
  2337.     push_node _cycle_in_spine 3
  2338. .d 3 0
  2339.     jsr ea_40
  2340. .o 1 2 r
  2341.     create
  2342.     push_a 1
  2343.     fill ARRAY 1 _hnf 1
  2344.     buildR_b 0
  2345.     fill _Tuple 2 _hnf 3
  2346.     pop_a 1
  2347.     pop_b 2
  2348. .d 1 0
  2349.     rtn
  2350. .o 3 0
  2351. ea_40
  2352.     jsr_eval 2
  2353.     jsr_eval 1
  2354.     jsr_eval 0
  2355.     pushR_a 2
  2356.     pushI_a 1
  2357.     push_array 0
  2358.     update_a 0 3
  2359.     pop_a 3
  2360. .o 1 3 ir
  2361. e__SystemArray_sreplace;#;r
  2362.     push_b 2
  2363.     push_b 2
  2364.     push_b 2
  2365.     push_a 0
  2366.     update_a 0 1
  2367.     update_b 2 5
  2368.     update_b 1 4
  2369.     update_b 0 3
  2370.     pop_a 1
  2371.     pop_b 3
  2372.     replace REAL 0 2
  2373. .d 1 2 r
  2374.     rtn
  2375. .export e__SystemArray_dreplace;#;f
  2376. .export e__SystemArray_sreplace;#;f
  2377. .export e__SystemArray_nreplace;#;f
  2378. .desc e__SystemArray_dreplace;#;f e__SystemArray_nreplace;#;f e__SystemArray_lreplace;#;f 3 "replace;# (File)"
  2379. .o 2 0
  2380. e__SystemArray_lreplace;#;f
  2381.     repl_args 2 2
  2382. .d 3 0
  2383.     jsr ea_41
  2384. .o 1 2 f
  2385.     create
  2386.     push_a 1
  2387.     fill ARRAY 1 _hnf 1
  2388.     buildF_b 0
  2389.     build _Tuple 2 _hnf
  2390.     update_a 0 1
  2391.     pop_a 1
  2392.     pop_b 2
  2393. .d 1 0
  2394.     rtn
  2395. .n 3 e__SystemArray_dreplace;#;f
  2396. .o 1 0
  2397. e__SystemArray_nreplace;#;f
  2398.     push_node _cycle_in_spine 3
  2399. .d 3 0
  2400.     jsr ea_41
  2401. .o 1 2 f
  2402.     create
  2403.     push_a 1
  2404.     fill ARRAY 1 _hnf 1
  2405.     buildF_b 0
  2406.     fill _Tuple 2 _hnf 3
  2407.     pop_a 1
  2408.     pop_b 2
  2409. .d 1 0
  2410.     rtn
  2411. .o 3 0
  2412. ea_41
  2413.     jsr_eval 2
  2414.     jsr_eval 1
  2415.     jsr_eval 0
  2416.     pushF_a 2
  2417.     pushI_a 1
  2418.     push_array 0
  2419.     update_a 0 3
  2420.     pop_a 3
  2421. .o 1 3 if
  2422. e__SystemArray_sreplace;#;f
  2423.     push_b 2
  2424.     push_b 2
  2425.     push_b 2
  2426.     push_a 0
  2427.     update_a 0 1
  2428.     update_b 2 5
  2429.     update_b 1 4
  2430.     update_b 0 3
  2431.     pop_a 1
  2432.     pop_b 3
  2433.     replace FILE 0 2
  2434. .d 1 2 f
  2435.     rtn
  2436. .export e__SystemArray_dreplace;#;<6>
  2437. .export e__SystemArray_sreplace;#;<6>
  2438. .export e__SystemArray_nreplace;#;<6>
  2439. .desc e__SystemArray_dreplace;#;<6> e__SystemArray_nreplace;#;<6> e__SystemArray_lreplace;#;<6> 4 "replace;# (6)"
  2440. .o 2 0
  2441. e__SystemArray_lreplace;#;<6>
  2442.     repl_args 3 3
  2443. .d 4 0
  2444.     jsr ea_42
  2445. .o 2 0
  2446.     create
  2447.     push_a 2
  2448.     fill ARRAY 1 _hnf 1
  2449.     push_a 1
  2450.     build _Tuple 2 _hnf
  2451.     update_a 0 2
  2452.     pop_a 2
  2453. .d 1 0
  2454.     rtn
  2455. .n 4 e__SystemArray_dreplace;#;<6>
  2456. .o 1 0
  2457. e__SystemArray_nreplace;#;<6>
  2458.     push_node _cycle_in_spine 4
  2459. .d 4 0
  2460.     jsr ea_42
  2461. .o 2 0
  2462.     create
  2463.     push_a 2
  2464.     fill ARRAY 1 _hnf 1
  2465.     push_a 1
  2466.     fill _Tuple 2 _hnf 4
  2467.     pop_a 2
  2468. .d 1 0
  2469.     rtn
  2470. .o 4 0
  2471. ea_42
  2472.     jsr_eval 3
  2473.     jsr_eval 2
  2474.     jsr_eval 1
  2475.     jsr_eval 0
  2476.     pushI_a 2
  2477.     push_array 1
  2478.     update_a 0 3
  2479.     update_a 1 2
  2480.     pop_a 2
  2481. .o 3 1 i
  2482. e__SystemArray_sreplace;#;<6>
  2483.     push_a 2
  2484.     push_b 0
  2485.     push_a 2
  2486.     push_a 2
  2487.     update_a 2 5
  2488.     update_a 1 4
  2489.     update_a 0 3
  2490.     update_b 0 1
  2491.     pop_a 3
  2492.     pop_b 1
  2493.     push_a 0
  2494.     create
  2495.     push_a 3
  2496.     fill ARRAY 1 _hnf 1
  2497.     update_a 0 2
  2498.     buildI_b 0
  2499.     pop_b 1
  2500.     update_a 0 4
  2501.     pop_a 2
  2502. .d 2 0
  2503.     jsr e_system_sAP
  2504. .o 1 0
  2505. .d 2 0
  2506.     jsr e_system_sAP
  2507. .o 1 0
  2508. .d 2 0
  2509.     jsr e_system_sAP
  2510. .o 1 0
  2511.     repl_args 2 2
  2512.     push_array 1
  2513.     update_a 0 2
  2514.     pop_a 1
  2515. .d 2 0
  2516.     rtn
  2517. .export e__SystemArray_dselect;#;i
  2518. .export e__SystemArray_sselect;#;i
  2519. .export e__SystemArray_nselect;#;i
  2520. .desc e__SystemArray_dselect;#;i e__SystemArray_nselect;#;i e__SystemArray_lselect;#;i 2 "select;# (Int)"
  2521. .o 2 0
  2522. e__SystemArray_lselect;#;i
  2523.     repl_args 1 1
  2524. .d 2 0
  2525.     jsr ea_43
  2526. .o 0 1 i
  2527.     buildI_b 0
  2528.     pop_b 1
  2529. .d 1 0
  2530.     rtn
  2531. .n 2 e__SystemArray_dselect;#;i
  2532. .o 1 0
  2533. e__SystemArray_nselect;#;i
  2534.     push_node _cycle_in_spine 2
  2535. .d 2 0
  2536.     jsr ea_43
  2537. .o 0 1 i
  2538.     fillI_b 0 0
  2539.     pop_b 1
  2540. .d 1 0
  2541.     rtn
  2542. .o 2 0
  2543. ea_43
  2544.     jsr_eval 1
  2545.     jsr_eval 0
  2546.     pushI_a 1
  2547.     push_array 0
  2548.     update_a 0 2
  2549.     pop_a 2
  2550. .o 1 1 i
  2551. e__SystemArray_sselect;#;i
  2552.     push_b 0
  2553.     push_a 0
  2554.     update_a 0 1
  2555.     update_b 0 1
  2556.     pop_a 1
  2557.     pop_b 1
  2558.     select INT 0 1
  2559. .d 0 1 i
  2560.     rtn
  2561. .export e__SystemArray_dselect;#;b
  2562. .export e__SystemArray_sselect;#;b
  2563. .export e__SystemArray_nselect;#;b
  2564. .desc e__SystemArray_dselect;#;b e__SystemArray_nselect;#;b e__SystemArray_lselect;#;b 2 "select;# (Bool)"
  2565. .o 2 0
  2566. e__SystemArray_lselect;#;b
  2567.     repl_args 1 1
  2568. .d 2 0
  2569.     jsr ea_44
  2570. .o 0 1 b
  2571.     buildB_b 0
  2572.     pop_b 1
  2573. .d 1 0
  2574.     rtn
  2575. .n 2 e__SystemArray_dselect;#;b
  2576. .o 1 0
  2577. e__SystemArray_nselect;#;b
  2578.     push_node _cycle_in_spine 2
  2579. .d 2 0
  2580.     jsr ea_44
  2581. .o 0 1 b
  2582.     fillB_b 0 0
  2583.     pop_b 1
  2584. .d 1 0
  2585.     rtn
  2586. .o 2 0
  2587. ea_44
  2588.     jsr_eval 1
  2589.     jsr_eval 0
  2590.     pushI_a 1
  2591.     push_array 0
  2592.     update_a 0 2
  2593.     pop_a 2
  2594. .o 1 1 i
  2595. e__SystemArray_sselect;#;b
  2596.     push_b 0
  2597.     push_a 0
  2598.     update_a 0 1
  2599.     update_b 0 1
  2600.     pop_a 1
  2601.     pop_b 1
  2602.     select BOOL 0 1
  2603. .d 0 1 b
  2604.     rtn
  2605. .export e__SystemArray_dselect;#;c
  2606. .export e__SystemArray_sselect;#;c
  2607. .export e__SystemArray_nselect;#;c
  2608. .desc e__SystemArray_dselect;#;c e__SystemArray_nselect;#;c e__SystemArray_lselect;#;c 2 "select;# (Char)"
  2609. .o 2 0
  2610. e__SystemArray_lselect;#;c
  2611.     repl_args 1 1
  2612. .d 2 0
  2613.     jsr ea_45
  2614. .o 0 1 c
  2615.     buildC_b 0
  2616.     pop_b 1
  2617. .d 1 0
  2618.     rtn
  2619. .n 2 e__SystemArray_dselect;#;c
  2620. .o 1 0
  2621. e__SystemArray_nselect;#;c
  2622.     push_node _cycle_in_spine 2
  2623. .d 2 0
  2624.     jsr ea_45
  2625. .o 0 1 c
  2626.     fillC_b 0 0
  2627.     pop_b 1
  2628. .d 1 0
  2629.     rtn
  2630. .o 2 0
  2631. ea_45
  2632.     jsr_eval 1
  2633.     jsr_eval 0
  2634.     pushI_a 1
  2635.     push_array 0
  2636.     update_a 0 2
  2637.     pop_a 2
  2638. .o 1 1 i
  2639. e__SystemArray_sselect;#;c
  2640.     push_b 0
  2641.     push_a 0
  2642.     update_a 0 1
  2643.     update_b 0 1
  2644.     pop_a 1
  2645.     pop_b 1
  2646.     select CHAR 0 1
  2647. .d 0 1 c
  2648.     rtn
  2649. .export e__SystemArray_dselect;#;r
  2650. .export e__SystemArray_sselect;#;r
  2651. .export e__SystemArray_nselect;#;r
  2652. .desc e__SystemArray_dselect;#;r e__SystemArray_nselect;#;r e__SystemArray_lselect;#;r 2 "select;# (Real)"
  2653. .o 2 0
  2654. e__SystemArray_lselect;#;r
  2655.     repl_args 1 1
  2656. .d 2 0
  2657.     jsr ea_46
  2658. .o 0 2 r
  2659.     buildR_b 0
  2660.     pop_b 2
  2661. .d 1 0
  2662.     rtn
  2663. .n 2 e__SystemArray_dselect;#;r
  2664. .o 1 0
  2665. e__SystemArray_nselect;#;r
  2666.     push_node _cycle_in_spine 2
  2667. .d 2 0
  2668.     jsr ea_46
  2669. .o 0 2 r
  2670.     fillR_b 0 0
  2671.     pop_b 2
  2672. .d 1 0
  2673.     rtn
  2674. .o 2 0
  2675. ea_46
  2676.     jsr_eval 1
  2677.     jsr_eval 0
  2678.     pushI_a 1
  2679.     push_array 0
  2680.     update_a 0 2
  2681.     pop_a 2
  2682. .o 1 1 i
  2683. e__SystemArray_sselect;#;r
  2684.     push_b 0
  2685.     push_a 0
  2686.     update_a 0 1
  2687.     update_b 0 1
  2688.     pop_a 1
  2689.     pop_b 1
  2690.     select REAL 0 2
  2691. .d 0 2 r
  2692.     rtn
  2693. .export e__SystemArray_dselect;#;f
  2694. .export e__SystemArray_sselect;#;f
  2695. .export e__SystemArray_nselect;#;f
  2696. .desc e__SystemArray_dselect;#;f e__SystemArray_nselect;#;f e__SystemArray_lselect;#;f 2 "select;# (File)"
  2697. .o 2 0
  2698. e__SystemArray_lselect;#;f
  2699.     repl_args 1 1
  2700. .d 2 0
  2701.     jsr ea_47
  2702. .o 0 2 f
  2703.     buildF_b 0
  2704.     pop_b 2
  2705. .d 1 0
  2706.     rtn
  2707. .n 2 e__SystemArray_dselect;#;f
  2708. .o 1 0
  2709. e__SystemArray_nselect;#;f
  2710.     push_node _cycle_in_spine 2
  2711. .d 2 0
  2712.     jsr ea_47
  2713. .o 0 2 f
  2714.     fillF_b 0 0
  2715.     pop_b 2
  2716. .d 1 0
  2717.     rtn
  2718. .o 2 0
  2719. ea_47
  2720.     jsr_eval 1
  2721.     jsr_eval 0
  2722.     pushI_a 1
  2723.     push_array 0
  2724.     update_a 0 2
  2725.     pop_a 2
  2726. .o 1 1 i
  2727. e__SystemArray_sselect;#;f
  2728.     push_b 0
  2729.     push_a 0
  2730.     update_a 0 1
  2731.     update_b 0 1
  2732.     pop_a 1
  2733.     pop_b 1
  2734.     select FILE 0 2
  2735. .d 0 2 f
  2736.     rtn
  2737. .export e__SystemArray_dselect;#;<7>
  2738. .export e__SystemArray_sselect;#;<7>
  2739. .export e__SystemArray_nselect;#;<7>
  2740. .desc e__SystemArray_dselect;#;<7> e__SystemArray_nselect;#;<7> e__SystemArray_lselect;#;<7> 3 "select;# (7)"
  2741. .o 2 0
  2742. e__SystemArray_lselect;#;<7>
  2743.     repl_args 2 2
  2744. .d 3 0
  2745.     jmp ea_48
  2746. .n 3 e__SystemArray_dselect;#;<7> _
  2747. .o 1 0
  2748. e__SystemArray_nselect;#;<7>
  2749.     push_node _cycle_in_spine 3
  2750. .d 3 0
  2751.     jsr ea_48
  2752. .o 1 0
  2753.     fill_a 0 1
  2754.     pop_a 1
  2755. .d 1 0
  2756.     rtn
  2757. .o 3 0
  2758. ea_48
  2759.     jsr_eval 2
  2760.     jsr_eval 1
  2761.     jsr_eval 0
  2762.     pushI_a 2
  2763.     push_array 1
  2764.     update_a 0 3
  2765.     update_a 1 2
  2766.     pop_a 2
  2767. .o 2 1 i
  2768. e__SystemArray_sselect;#;<7>
  2769.     push_b 0
  2770.     push_a 1
  2771.     push_a 1
  2772.     update_a 1 3
  2773.     update_a 0 2
  2774.     update_b 0 1
  2775.     pop_a 2
  2776.     pop_b 1
  2777.     push_a 0
  2778.     create
  2779.     push_a 3
  2780.     fill ARRAY 1 _hnf 1
  2781.     update_a 0 2
  2782.     buildI_b 0
  2783.     pop_b 1
  2784.     update_a 0 4
  2785.     pop_a 2
  2786. .d 2 0
  2787.     jsr e_system_sAP
  2788. .o 1 0
  2789. .d 2 0
  2790.     jmp e_system_sAP
  2791. .d 1 0
  2792.     rtn
  2793. .export e__SystemArray_dsize;#;i
  2794. .export e__SystemArray_ssize;#;i
  2795. .export e__SystemArray_nsize;#;i
  2796. .desc e__SystemArray_dsize;#;i e__SystemArray_nsize;#;i e__SystemArray_lsize;#;i 1 "size;# (Int)"
  2797. .o 2 0
  2798. e__SystemArray_lsize;#;i
  2799.     pop_a 1
  2800. .d 1 0
  2801.     jsr ea_49
  2802. .o 0 1 i
  2803.     buildI_b 0
  2804.     pop_b 1
  2805. .d 1 0
  2806.     rtn
  2807. .n 1 e__SystemArray_dsize;#;i
  2808. .o 1 0
  2809. e__SystemArray_nsize;#;i
  2810.     push_node _cycle_in_spine 1
  2811. .d 1 0
  2812.     jsr ea_49
  2813. .o 0 1 i
  2814.     fillI_b 0 0
  2815.     pop_b 1
  2816. .d 1 0
  2817.     rtn
  2818. .o 1 0
  2819. ea_49
  2820.     jsr_eval 0
  2821.     push_array 0
  2822.     update_a 0 1
  2823.     pop_a 1
  2824. .o 1 0
  2825. e__SystemArray_ssize;#;i
  2826.     push_a 0
  2827.     update_a 0 1
  2828.     pop_a 1
  2829.     push_arraysize INT 0 1
  2830. .d 0 1 i
  2831.     rtn
  2832. .export e__SystemArray_dsize;#;b
  2833. .export e__SystemArray_ssize;#;b
  2834. .export e__SystemArray_nsize;#;b
  2835. .desc e__SystemArray_dsize;#;b e__SystemArray_nsize;#;b e__SystemArray_lsize;#;b 1 "size;# (Bool)"
  2836. .o 2 0
  2837. e__SystemArray_lsize;#;b
  2838.     pop_a 1
  2839. .d 1 0
  2840.     jsr ea_50
  2841. .o 0 1 i
  2842.     buildI_b 0
  2843.     pop_b 1
  2844. .d 1 0
  2845.     rtn
  2846. .n 1 e__SystemArray_dsize;#;b
  2847. .o 1 0
  2848. e__SystemArray_nsize;#;b
  2849.     push_node _cycle_in_spine 1
  2850. .d 1 0
  2851.     jsr ea_50
  2852. .o 0 1 i
  2853.     fillI_b 0 0
  2854.     pop_b 1
  2855. .d 1 0
  2856.     rtn
  2857. .o 1 0
  2858. ea_50
  2859.     jsr_eval 0
  2860.     push_array 0
  2861.     update_a 0 1
  2862.     pop_a 1
  2863. .o 1 0
  2864. e__SystemArray_ssize;#;b
  2865.     push_a 0
  2866.     update_a 0 1
  2867.     pop_a 1
  2868.     push_arraysize BOOL 0 1
  2869. .d 0 1 i
  2870.     rtn
  2871. .export e__SystemArray_dsize;#;c
  2872. .export e__SystemArray_ssize;#;c
  2873. .export e__SystemArray_nsize;#;c
  2874. .desc e__SystemArray_dsize;#;c e__SystemArray_nsize;#;c e__SystemArray_lsize;#;c 1 "size;# (Char)"
  2875. .o 2 0
  2876. e__SystemArray_lsize;#;c
  2877.     pop_a 1
  2878. .d 1 0
  2879.     jsr ea_51
  2880. .o 0 1 i
  2881.     buildI_b 0
  2882.     pop_b 1
  2883. .d 1 0
  2884.     rtn
  2885. .n 1 e__SystemArray_dsize;#;c
  2886. .o 1 0
  2887. e__SystemArray_nsize;#;c
  2888.     push_node _cycle_in_spine 1
  2889. .d 1 0
  2890.     jsr ea_51
  2891. .o 0 1 i
  2892.     fillI_b 0 0
  2893.     pop_b 1
  2894. .d 1 0
  2895.     rtn
  2896. .o 1 0
  2897. ea_51
  2898.     jsr_eval 0
  2899.     push_array 0
  2900.     update_a 0 1
  2901.     pop_a 1
  2902. .o 1 0
  2903. e__SystemArray_ssize;#;c
  2904.     push_a 0
  2905.     update_a 0 1
  2906.     pop_a 1
  2907.     push_arraysize CHAR 0 1
  2908. .d 0 1 i
  2909.     rtn
  2910. .export e__SystemArray_dsize;#;r
  2911. .export e__SystemArray_ssize;#;r
  2912. .export e__SystemArray_nsize;#;r
  2913. .desc e__SystemArray_dsize;#;r e__SystemArray_nsize;#;r e__SystemArray_lsize;#;r 1 "size;# (Real)"
  2914. .o 2 0
  2915. e__SystemArray_lsize;#;r
  2916.     pop_a 1
  2917. .d 1 0
  2918.     jsr ea_52
  2919. .o 0 1 i
  2920.     buildI_b 0
  2921.     pop_b 1
  2922. .d 1 0
  2923.     rtn
  2924. .n 1 e__SystemArray_dsize;#;r
  2925. .o 1 0
  2926. e__SystemArray_nsize;#;r
  2927.     push_node _cycle_in_spine 1
  2928. .d 1 0
  2929.     jsr ea_52
  2930. .o 0 1 i
  2931.     fillI_b 0 0
  2932.     pop_b 1
  2933. .d 1 0
  2934.     rtn
  2935. .o 1 0
  2936. ea_52
  2937.     jsr_eval 0
  2938.     push_array 0
  2939.     update_a 0 1
  2940.     pop_a 1
  2941. .o 1 0
  2942. e__SystemArray_ssize;#;r
  2943.     push_a 0
  2944.     update_a 0 1
  2945.     pop_a 1
  2946.     push_arraysize REAL 0 2
  2947. .d 0 1 i
  2948.     rtn
  2949. .export e__SystemArray_dsize;#;f
  2950. .export e__SystemArray_ssize;#;f
  2951. .export e__SystemArray_nsize;#;f
  2952. .desc e__SystemArray_dsize;#;f e__SystemArray_nsize;#;f e__SystemArray_lsize;#;f 1 "size;# (File)"
  2953. .o 2 0
  2954. e__SystemArray_lsize;#;f
  2955.     pop_a 1
  2956. .d 1 0
  2957.     jsr ea_53
  2958. .o 0 1 i
  2959.     buildI_b 0
  2960.     pop_b 1
  2961. .d 1 0
  2962.     rtn
  2963. .n 1 e__SystemArray_dsize;#;f
  2964. .o 1 0
  2965. e__SystemArray_nsize;#;f
  2966.     push_node _cycle_in_spine 1
  2967. .d 1 0
  2968.     jsr ea_53
  2969. .o 0 1 i
  2970.     fillI_b 0 0
  2971.     pop_b 1
  2972. .d 1 0
  2973.     rtn
  2974. .o 1 0
  2975. ea_53
  2976.     jsr_eval 0
  2977.     push_array 0
  2978.     update_a 0 1
  2979.     pop_a 1
  2980. .o 1 0
  2981. e__SystemArray_ssize;#;f
  2982.     push_a 0
  2983.     update_a 0 1
  2984.     pop_a 1
  2985.     push_arraysize FILE 0 2
  2986. .d 0 1 i
  2987.     rtn
  2988. .export e__SystemArray_dsize;#;<8>
  2989. .export e__SystemArray_ssize;#;<8>
  2990. .export e__SystemArray_nsize;#;<8>
  2991. .desc e__SystemArray_dsize;#;<8> e__SystemArray_nsize;#;<8> e__SystemArray_lsize;#;<8> 2 "size;# (8)"
  2992. .o 2 0
  2993. e__SystemArray_lsize;#;<8>
  2994.     repl_args 1 1
  2995. .d 2 0
  2996.     jsr ea_54
  2997. .o 0 1 i
  2998.     buildI_b 0
  2999.     pop_b 1
  3000. .d 1 0
  3001.     rtn
  3002. .n 2 e__SystemArray_dsize;#;<8>
  3003. .o 1 0
  3004. e__SystemArray_nsize;#;<8>
  3005.     push_node _cycle_in_spine 2
  3006. .d 2 0
  3007.     jsr ea_54
  3008. .o 0 1 i
  3009.     fillI_b 0 0
  3010.     pop_b 1
  3011. .d 1 0
  3012.     rtn
  3013. .o 2 0
  3014. ea_54
  3015.     jsr_eval 1
  3016.     jsr_eval 0
  3017.     push_array 1
  3018.     update_a 0 2
  3019.     pop_a 1
  3020. .o 2 0
  3021. e__SystemArray_ssize;#;<8>
  3022.     push_a 1
  3023.     push_a 1
  3024.     update_a 1 3
  3025.     update_a 0 2
  3026.     pop_a 2
  3027.     create
  3028.     push_a 2
  3029.     fill ARRAY 1 _hnf 1
  3030.     update_a 0 2
  3031.     pop_a 1
  3032. .d 2 0
  3033.     jsr e_system_sAP
  3034. .o 1 0
  3035.     pushI_a 0
  3036.     pop_a 1
  3037. .d 0 1 i
  3038.     rtn
  3039. .export e__SystemArray_dupdate;#;i
  3040. .export e__SystemArray_supdate;#;i
  3041. .export e__SystemArray_nupdate;#;i
  3042. .desc e__SystemArray_dupdate;#;i e__SystemArray_nupdate;#;i e__SystemArray_lupdate;#;i 3 "update;# (Int)"
  3043. .o 2 0
  3044. e__SystemArray_lupdate;#;i
  3045.     repl_args 2 2
  3046. .d 3 0
  3047.     jsr ea_55
  3048. .o 1 0
  3049.     create
  3050.     push_a 1
  3051.     fill ARRAY 1 _hnf 1
  3052.     update_a 0 1
  3053.     pop_a 1
  3054. .d 1 0
  3055.     rtn
  3056. .n 3 e__SystemArray_dupdate;#;i
  3057. .o 1 0
  3058. e__SystemArray_nupdate;#;i
  3059.     push_node _cycle_in_spine 3
  3060. .d 3 0
  3061.     jsr ea_55
  3062. .o 1 0
  3063.     push_a 0
  3064.     fill ARRAY 1 _hnf 2
  3065.     pop_a 1
  3066. .d 1 0
  3067.     rtn
  3068. .o 3 0
  3069. ea_55
  3070.     jsr_eval 2
  3071.     jsr_eval 1
  3072.     jsr_eval 0
  3073.     pushI_a 2
  3074.     pushI_a 1
  3075.     push_array 0
  3076.     update_a 0 3
  3077.     pop_a 3
  3078. .o 1 2 ii
  3079. e__SystemArray_supdate;#;i
  3080.     push_b 1
  3081.     push_b 1
  3082.     push_a 0
  3083.     update_a 0 1
  3084.     update_b 1 3
  3085.     update_b 0 2
  3086.     pop_a 1
  3087.     pop_b 2
  3088.     update INT 0 1
  3089. .d 1 0
  3090.     rtn
  3091. .export e__SystemArray_dupdate;#;b
  3092. .export e__SystemArray_supdate;#;b
  3093. .export e__SystemArray_nupdate;#;b
  3094. .desc e__SystemArray_dupdate;#;b e__SystemArray_nupdate;#;b e__SystemArray_lupdate;#;b 3 "update;# (Bool)"
  3095. .o 2 0
  3096. e__SystemArray_lupdate;#;b
  3097.     repl_args 2 2
  3098. .d 3 0
  3099.     jsr ea_56
  3100. .o 1 0
  3101.     create
  3102.     push_a 1
  3103.     fill ARRAY 1 _hnf 1
  3104.     update_a 0 1
  3105.     pop_a 1
  3106. .d 1 0
  3107.     rtn
  3108. .n 3 e__SystemArray_dupdate;#;b
  3109. .o 1 0
  3110. e__SystemArray_nupdate;#;b
  3111.     push_node _cycle_in_spine 3
  3112. .d 3 0
  3113.     jsr ea_56
  3114. .o 1 0
  3115.     push_a 0
  3116.     fill ARRAY 1 _hnf 2
  3117.     pop_a 1
  3118. .d 1 0
  3119.     rtn
  3120. .o 3 0
  3121. ea_56
  3122.     jsr_eval 2
  3123.     jsr_eval 1
  3124.     jsr_eval 0
  3125.     pushB_a 2
  3126.     pushI_a 1
  3127.     push_array 0
  3128.     update_a 0 3
  3129.     pop_a 3
  3130. .o 1 2 ib
  3131. e__SystemArray_supdate;#;b
  3132.     push_b 1
  3133.     push_b 1
  3134.     push_a 0
  3135.     update_a 0 1
  3136.     update_b 1 3
  3137.     update_b 0 2
  3138.     pop_a 1
  3139.     pop_b 2
  3140.     update BOOL 0 1
  3141. .d 1 0
  3142.     rtn
  3143. .export e__SystemArray_dupdate;#;c
  3144. .export e__SystemArray_supdate;#;c
  3145. .export e__SystemArray_nupdate;#;c
  3146. .desc e__SystemArray_dupdate;#;c e__SystemArray_nupdate;#;c e__SystemArray_lupdate;#;c 3 "update;# (Char)"
  3147. .o 2 0
  3148. e__SystemArray_lupdate;#;c
  3149.     repl_args 2 2
  3150. .d 3 0
  3151.     jsr ea_57
  3152. .o 1 0
  3153.     create
  3154.     push_a 1
  3155.     fill ARRAY 1 _hnf 1
  3156.     update_a 0 1
  3157.     pop_a 1
  3158. .d 1 0
  3159.     rtn
  3160. .n 3 e__SystemArray_dupdate;#;c
  3161. .o 1 0
  3162. e__SystemArray_nupdate;#;c
  3163.     push_node _cycle_in_spine 3
  3164. .d 3 0
  3165.     jsr ea_57
  3166. .o 1 0
  3167.     push_a 0
  3168.     fill ARRAY 1 _hnf 2
  3169.     pop_a 1
  3170. .d 1 0
  3171.     rtn
  3172. .o 3 0
  3173. ea_57
  3174.     jsr_eval 2
  3175.     jsr_eval 1
  3176.     jsr_eval 0
  3177.     pushC_a 2
  3178.     pushI_a 1
  3179.     push_array 0
  3180.     update_a 0 3
  3181.     pop_a 3
  3182. .o 1 2 ic
  3183. e__SystemArray_supdate;#;c
  3184.     push_b 1
  3185.     push_b 1
  3186.     push_a 0
  3187.     update_a 0 1
  3188.     update_b 1 3
  3189.     update_b 0 2
  3190.     pop_a 1
  3191.     pop_b 2
  3192.     update CHAR 0 1
  3193. .d 1 0
  3194.     rtn
  3195. .export e__SystemArray_dupdate;#;r
  3196. .export e__SystemArray_supdate;#;r
  3197. .export e__SystemArray_nupdate;#;r
  3198. .desc e__SystemArray_dupdate;#;r e__SystemArray_nupdate;#;r e__SystemArray_lupdate;#;r 3 "update;# (Real)"
  3199. .o 2 0
  3200. e__SystemArray_lupdate;#;r
  3201.     repl_args 2 2
  3202. .d 3 0
  3203.     jsr ea_58
  3204. .o 1 0
  3205.     create
  3206.     push_a 1
  3207.     fill ARRAY 1 _hnf 1
  3208.     update_a 0 1
  3209.     pop_a 1
  3210. .d 1 0
  3211.     rtn
  3212. .n 3 e__SystemArray_dupdate;#;r
  3213. .o 1 0
  3214. e__SystemArray_nupdate;#;r
  3215.     push_node _cycle_in_spine 3
  3216. .d 3 0
  3217.     jsr ea_58
  3218. .o 1 0
  3219.     push_a 0
  3220.     fill ARRAY 1 _hnf 2
  3221.     pop_a 1
  3222. .d 1 0
  3223.     rtn
  3224. .o 3 0
  3225. ea_58
  3226.     jsr_eval 2
  3227.     jsr_eval 1
  3228.     jsr_eval 0
  3229.     pushR_a 2
  3230.     pushI_a 1
  3231.     push_array 0
  3232.     update_a 0 3
  3233.     pop_a 3
  3234. .o 1 3 ir
  3235. e__SystemArray_supdate;#;r
  3236.     push_b 2
  3237.     push_b 2
  3238.     push_b 2
  3239.     push_a 0
  3240.     update_a 0 1
  3241.     update_b 2 5
  3242.     update_b 1 4
  3243.     update_b 0 3
  3244.     pop_a 1
  3245.     pop_b 3
  3246.     update REAL 0 2
  3247. .d 1 0
  3248.     rtn
  3249. .export e__SystemArray_dupdate;#;f
  3250. .export e__SystemArray_supdate;#;f
  3251. .export e__SystemArray_nupdate;#;f
  3252. .desc e__SystemArray_dupdate;#;f e__SystemArray_nupdate;#;f e__SystemArray_lupdate;#;f 3 "update;# (File)"
  3253. .o 2 0
  3254. e__SystemArray_lupdate;#;f
  3255.     repl_args 2 2
  3256. .d 3 0
  3257.     jsr ea_59
  3258. .o 1 0
  3259.     create
  3260.     push_a 1
  3261.     fill ARRAY 1 _hnf 1
  3262.     update_a 0 1
  3263.     pop_a 1
  3264. .d 1 0
  3265.     rtn
  3266. .n 3 e__SystemArray_dupdate;#;f
  3267. .o 1 0
  3268. e__SystemArray_nupdate;#;f
  3269.     push_node _cycle_in_spine 3
  3270. .d 3 0
  3271.     jsr ea_59
  3272. .o 1 0
  3273.     push_a 0
  3274.     fill ARRAY 1 _hnf 2
  3275.     pop_a 1
  3276. .d 1 0
  3277.     rtn
  3278. .o 3 0
  3279. ea_59
  3280.     jsr_eval 2
  3281.     jsr_eval 1
  3282.     jsr_eval 0
  3283.     pushF_a 2
  3284.     pushI_a 1
  3285.     push_array 0
  3286.     update_a 0 3
  3287.     pop_a 3
  3288. .o 1 3 if
  3289. e__SystemArray_supdate;#;f
  3290.     push_b 2
  3291.     push_b 2
  3292.     push_b 2
  3293.     push_a 0
  3294.     update_a 0 1
  3295.     update_b 2 5
  3296.     update_b 1 4
  3297.     update_b 0 3
  3298.     pop_a 1
  3299.     pop_b 3
  3300.     update FILE 0 2
  3301. .d 1 0
  3302.     rtn
  3303. .export e__SystemArray_dupdate;#;<9>
  3304. .export e__SystemArray_supdate;#;<9>
  3305. .export e__SystemArray_nupdate;#;<9>
  3306. .desc e__SystemArray_dupdate;#;<9> e__SystemArray_nupdate;#;<9> e__SystemArray_lupdate;#;<9> 4 "update;# (9)"
  3307. .o 2 0
  3308. e__SystemArray_lupdate;#;<9>
  3309.     repl_args 3 3
  3310. .d 4 0
  3311.     jsr ea_60
  3312. .o 1 0
  3313.     create
  3314.     push_a 1
  3315.     fill ARRAY 1 _hnf 1
  3316.     update_a 0 1
  3317.     pop_a 1
  3318. .d 1 0
  3319.     rtn
  3320. .n 4 e__SystemArray_dupdate;#;<9>
  3321. .o 1 0
  3322. e__SystemArray_nupdate;#;<9>
  3323.     push_node _cycle_in_spine 4
  3324. .d 4 0
  3325.     jsr ea_60
  3326. .o 1 0
  3327.     push_a 0
  3328.     fill ARRAY 1 _hnf 2
  3329.     pop_a 1
  3330. .d 1 0
  3331.     rtn
  3332. .o 4 0
  3333. ea_60
  3334.     jsr_eval 3
  3335.     jsr_eval 2
  3336.     jsr_eval 1
  3337.     jsr_eval 0
  3338.     pushI_a 2
  3339.     push_array 1
  3340.     update_a 0 3
  3341.     update_a 1 2
  3342.     pop_a 2
  3343. .o 3 1 i
  3344. e__SystemArray_supdate;#;<9>
  3345.     push_a 2
  3346.     push_b 0
  3347.     push_a 2
  3348.     push_a 2
  3349.     update_a 2 5
  3350.     update_a 1 4
  3351.     update_a 0 3
  3352.     update_b 0 1
  3353.     pop_a 3
  3354.     pop_b 1
  3355.     push_a 0
  3356.     create
  3357.     push_a 3
  3358.     fill ARRAY 1 _hnf 1
  3359.     update_a 0 2
  3360.     buildI_b 0
  3361.     pop_b 1
  3362.     update_a 0 4
  3363.     pop_a 2
  3364. .d 2 0
  3365.     jsr e_system_sAP
  3366. .o 1 0
  3367. .d 2 0
  3368.     jsr e_system_sAP
  3369. .o 1 0
  3370. .d 2 0
  3371.     jsr e_system_sAP
  3372. .o 1 0
  3373.     push_array 0
  3374.     update_a 0 1
  3375.     pop_a 1
  3376. .d 1 0
  3377.     rtn
  3378. .export e__SystemArray_duselect;#;i
  3379. .export e__SystemArray_suselect;#;i
  3380. .export e__SystemArray_nuselect;#;i
  3381. .desc e__SystemArray_duselect;#;i e__SystemArray_nuselect;#;i e__SystemArray_luselect;#;i 2 "uselect;# (Int)"
  3382. .o 2 0
  3383. e__SystemArray_luselect;#;i
  3384.     repl_args 1 1
  3385. .d 2 0
  3386.     jsr ea_61
  3387. .o 1 1 i
  3388.     create
  3389.     push_a 1
  3390.     fill ARRAY 1 _hnf 1
  3391.     buildI_b 0
  3392.     build _Tuple 2 _hnf
  3393.     update_a 0 1
  3394.     pop_a 1
  3395.     pop_b 1
  3396. .d 1 0
  3397.     rtn
  3398. .n 2 e__SystemArray_duselect;#;i
  3399. .o 1 0
  3400. e__SystemArray_nuselect;#;i
  3401.     push_node _cycle_in_spine 2
  3402. .d 2 0
  3403.     jsr ea_61
  3404. .o 1 1 i
  3405.     create
  3406.     push_a 1
  3407.     fill ARRAY 1 _hnf 1
  3408.     buildI_b 0
  3409.     fill _Tuple 2 _hnf 3
  3410.     pop_a 1
  3411.     pop_b 1
  3412. .d 1 0
  3413.     rtn
  3414. .o 2 0
  3415. ea_61
  3416.     jsr_eval 1
  3417.     jsr_eval 0
  3418.     pushI_a 1
  3419.     push_array 0
  3420.     update_a 0 2
  3421.     pop_a 2
  3422. .o 1 1 i
  3423. e__SystemArray_suselect;#;i
  3424.     push_b 0
  3425.     push_a 0
  3426.     update_a 0 1
  3427.     update_b 0 1
  3428.     pop_a 1
  3429.     pop_b 1
  3430.     push_a 0
  3431.     select INT 0 1
  3432. .d 1 1 i
  3433.     rtn
  3434. .export e__SystemArray_duselect;#;b
  3435. .export e__SystemArray_suselect;#;b
  3436. .export e__SystemArray_nuselect;#;b
  3437. .desc e__SystemArray_duselect;#;b e__SystemArray_nuselect;#;b e__SystemArray_luselect;#;b 2 "uselect;# (Bool)"
  3438. .o 2 0
  3439. e__SystemArray_luselect;#;b
  3440.     repl_args 1 1
  3441. .d 2 0
  3442.     jsr ea_62
  3443. .o 1 1 b
  3444.     create
  3445.     push_a 1
  3446.     fill ARRAY 1 _hnf 1
  3447.     buildB_b 0
  3448.     build _Tuple 2 _hnf
  3449.     update_a 0 1
  3450.     pop_a 1
  3451.     pop_b 1
  3452. .d 1 0
  3453.     rtn
  3454. .n 2 e__SystemArray_duselect;#;b
  3455. .o 1 0
  3456. e__SystemArray_nuselect;#;b
  3457.     push_node _cycle_in_spine 2
  3458. .d 2 0
  3459.     jsr ea_62
  3460. .o 1 1 b
  3461.     create
  3462.     push_a 1
  3463.     fill ARRAY 1 _hnf 1
  3464.     buildB_b 0
  3465.     fill _Tuple 2 _hnf 3
  3466.     pop_a 1
  3467.     pop_b 1
  3468. .d 1 0
  3469.     rtn
  3470. .o 2 0
  3471. ea_62
  3472.     jsr_eval 1
  3473.     jsr_eval 0
  3474.     pushI_a 1
  3475.     push_array 0
  3476.     update_a 0 2
  3477.     pop_a 2
  3478. .o 1 1 i
  3479. e__SystemArray_suselect;#;b
  3480.     push_b 0
  3481.     push_a 0
  3482.     update_a 0 1
  3483.     update_b 0 1
  3484.     pop_a 1
  3485.     pop_b 1
  3486.     push_a 0
  3487.     select BOOL 0 1
  3488. .d 1 1 b
  3489.     rtn
  3490. .export e__SystemArray_duselect;#;c
  3491. .export e__SystemArray_suselect;#;c
  3492. .export e__SystemArray_nuselect;#;c
  3493. .desc e__SystemArray_duselect;#;c e__SystemArray_nuselect;#;c e__SystemArray_luselect;#;c 2 "uselect;# (Char)"
  3494. .o 2 0
  3495. e__SystemArray_luselect;#;c
  3496.     repl_args 1 1
  3497. .d 2 0
  3498.     jsr ea_63
  3499. .o 1 1 c
  3500.     create
  3501.     push_a 1
  3502.     fill ARRAY 1 _hnf 1
  3503.     buildC_b 0
  3504.     build _Tuple 2 _hnf
  3505.     update_a 0 1
  3506.     pop_a 1
  3507.     pop_b 1
  3508. .d 1 0
  3509.     rtn
  3510. .n 2 e__SystemArray_duselect;#;c
  3511. .o 1 0
  3512. e__SystemArray_nuselect;#;c
  3513.     push_node _cycle_in_spine 2
  3514. .d 2 0
  3515.     jsr ea_63
  3516. .o 1 1 c
  3517.     create
  3518.     push_a 1
  3519.     fill ARRAY 1 _hnf 1
  3520.     buildC_b 0
  3521.     fill _Tuple 2 _hnf 3
  3522.     pop_a 1
  3523.     pop_b 1
  3524. .d 1 0
  3525.     rtn
  3526. .o 2 0
  3527. ea_63
  3528.     jsr_eval 1
  3529.     jsr_eval 0
  3530.     pushI_a 1
  3531.     push_array 0
  3532.     update_a 0 2
  3533.     pop_a 2
  3534. .o 1 1 i
  3535. e__SystemArray_suselect;#;c
  3536.     push_b 0
  3537.     push_a 0
  3538.     update_a 0 1
  3539.     update_b 0 1
  3540.     pop_a 1
  3541.     pop_b 1
  3542.     push_a 0
  3543.     select CHAR 0 1
  3544. .d 1 1 c
  3545.     rtn
  3546. .export e__SystemArray_duselect;#;r
  3547. .export e__SystemArray_suselect;#;r
  3548. .export e__SystemArray_nuselect;#;r
  3549. .desc e__SystemArray_duselect;#;r e__SystemArray_nuselect;#;r e__SystemArray_luselect;#;r 2 "uselect;# (Real)"
  3550. .o 2 0
  3551. e__SystemArray_luselect;#;r
  3552.     repl_args 1 1
  3553. .d 2 0
  3554.     jsr ea_64
  3555. .o 1 2 r
  3556.     create
  3557.     push_a 1
  3558.     fill ARRAY 1 _hnf 1
  3559.     buildR_b 0
  3560.     build _Tuple 2 _hnf
  3561.     update_a 0 1
  3562.     pop_a 1
  3563.     pop_b 2
  3564. .d 1 0
  3565.     rtn
  3566. .n 2 e__SystemArray_duselect;#;r
  3567. .o 1 0
  3568. e__SystemArray_nuselect;#;r
  3569.     push_node _cycle_in_spine 2
  3570. .d 2 0
  3571.     jsr ea_64
  3572. .o 1 2 r
  3573.     create
  3574.     push_a 1
  3575.     fill ARRAY 1 _hnf 1
  3576.     buildR_b 0
  3577.     fill _Tuple 2 _hnf 3
  3578.     pop_a 1
  3579.     pop_b 2
  3580. .d 1 0
  3581.     rtn
  3582. .o 2 0
  3583. ea_64
  3584.     jsr_eval 1
  3585.     jsr_eval 0
  3586.     pushI_a 1
  3587.     push_array 0
  3588.     update_a 0 2
  3589.     pop_a 2
  3590. .o 1 1 i
  3591. e__SystemArray_suselect;#;r
  3592.     push_b 0
  3593.     push_a 0
  3594.     update_a 0 1
  3595.     update_b 0 1
  3596.     pop_a 1
  3597.     pop_b 1
  3598.     push_a 0
  3599.     select REAL 0 2
  3600. .d 1 2 r
  3601.     rtn
  3602. .export e__SystemArray_duselect;#;f
  3603. .export e__SystemArray_suselect;#;f
  3604. .export e__SystemArray_nuselect;#;f
  3605. .desc e__SystemArray_duselect;#;f e__SystemArray_nuselect;#;f e__SystemArray_luselect;#;f 2 "uselect;# (File)"
  3606. .o 2 0
  3607. e__SystemArray_luselect;#;f
  3608.     repl_args 1 1
  3609. .d 2 0
  3610.     jsr ea_65
  3611. .o 1 2 f
  3612.     create
  3613.     push_a 1
  3614.     fill ARRAY 1 _hnf 1
  3615.     buildF_b 0
  3616.     build _Tuple 2 _hnf
  3617.     update_a 0 1
  3618.     pop_a 1
  3619.     pop_b 2
  3620. .d 1 0
  3621.     rtn
  3622. .n 2 e__SystemArray_duselect;#;f
  3623. .o 1 0
  3624. e__SystemArray_nuselect;#;f
  3625.     push_node _cycle_in_spine 2
  3626. .d 2 0
  3627.     jsr ea_65
  3628. .o 1 2 f
  3629.     create
  3630.     push_a 1
  3631.     fill ARRAY 1 _hnf 1
  3632.     buildF_b 0
  3633.     fill _Tuple 2 _hnf 3
  3634.     pop_a 1
  3635.     pop_b 2
  3636. .d 1 0
  3637.     rtn
  3638. .o 2 0
  3639. ea_65
  3640.     jsr_eval 1
  3641.     jsr_eval 0
  3642.     pushI_a 1
  3643.     push_array 0
  3644.     update_a 0 2
  3645.     pop_a 2
  3646. .o 1 1 i
  3647. e__SystemArray_suselect;#;f
  3648.     push_b 0
  3649.     push_a 0
  3650.     update_a 0 1
  3651.     update_b 0 1
  3652.     pop_a 1
  3653.     pop_b 1
  3654.     push_a 0
  3655.     select FILE 0 2
  3656. .d 1 2 f
  3657.     rtn
  3658. .export e__SystemArray_duselect;#;<10>
  3659. .export e__SystemArray_suselect;#;<10>
  3660. .export e__SystemArray_nuselect;#;<10>
  3661. .desc e__SystemArray_duselect;#;<10> e__SystemArray_nuselect;#;<10> e__SystemArray_luselect;#;<10> 3 "uselect;# (10)"
  3662. .o 2 0
  3663. e__SystemArray_luselect;#;<10>
  3664.     repl_args 2 2
  3665. .d 3 0
  3666.     jsr ea_66
  3667. .o 2 0
  3668.     create
  3669.     push_a 2
  3670.     fill ARRAY 1 _hnf 1
  3671.     push_a 1
  3672.     build _Tuple 2 _hnf
  3673.     update_a 0 2
  3674.     pop_a 2
  3675. .d 1 0
  3676.     rtn
  3677. .n 3 e__SystemArray_duselect;#;<10>
  3678. .o 1 0
  3679. e__SystemArray_nuselect;#;<10>
  3680.     push_node _cycle_in_spine 3
  3681. .d 3 0
  3682.     jsr ea_66
  3683. .o 2 0
  3684.     create
  3685.     push_a 2
  3686.     fill ARRAY 1 _hnf 1
  3687.     push_a 1
  3688.     fill _Tuple 2 _hnf 4
  3689.     pop_a 2
  3690. .d 1 0
  3691.     rtn
  3692. .o 3 0
  3693. ea_66
  3694.     jsr_eval 2
  3695.     jsr_eval 1
  3696.     jsr_eval 0
  3697.     pushI_a 2
  3698.     push_array 1
  3699.     update_a 0 3
  3700.     update_a 1 2
  3701.     pop_a 2
  3702. .o 2 1 i
  3703. e__SystemArray_suselect;#;<10>
  3704.     push_b 0
  3705.     push_a 1
  3706.     push_a 1
  3707.     update_a 1 3
  3708.     update_a 0 2
  3709.     update_b 0 1
  3710.     pop_a 2
  3711.     pop_b 1
  3712.     push_a 0
  3713.     create
  3714.     push_a 3
  3715.     fill ARRAY 1 _hnf 1
  3716.     update_a 0 2
  3717.     buildI_b 0
  3718.     pop_b 1
  3719.     update_a 0 4
  3720.     pop_a 2
  3721. .d 2 0
  3722.     jsr e_system_sAP
  3723. .o 1 0
  3724. .d 2 0
  3725.     jsr e_system_sAP
  3726. .o 1 0
  3727.     repl_args 2 2
  3728.     push_array 1
  3729.     update_a 0 2
  3730.     pop_a 1
  3731. .d 2 0
  3732.     rtn
  3733. .export e__SystemArray_dusize;#;i
  3734. .export e__SystemArray_susize;#;i
  3735. .export e__SystemArray_nusize;#;i
  3736. .desc e__SystemArray_dusize;#;i e__SystemArray_nusize;#;i e__SystemArray_lusize;#;i 1 "usize;# (Int)"
  3737. .o 2 0
  3738. e__SystemArray_lusize;#;i
  3739.     pop_a 1
  3740. .d 1 0
  3741.     jsr ea_67
  3742. .o 1 1 i
  3743.     create
  3744.     push_a 1
  3745.     fill ARRAY 1 _hnf 1
  3746.     buildI_b 0
  3747.     build _Tuple 2 _hnf
  3748.     update_a 0 1
  3749.     pop_a 1
  3750.     pop_b 1
  3751. .d 1 0
  3752.     rtn
  3753. .n 1 e__SystemArray_dusize;#;i
  3754. .o 1 0
  3755. e__SystemArray_nusize;#;i
  3756.     push_node _cycle_in_spine 1
  3757. .d 1 0
  3758.     jsr ea_67
  3759. .o 1 1 i
  3760.     create
  3761.     push_a 1
  3762.     fill ARRAY 1 _hnf 1
  3763.     buildI_b 0
  3764.     fill _Tuple 2 _hnf 3
  3765.     pop_a 1
  3766.     pop_b 1
  3767. .d 1 0
  3768.     rtn
  3769. .o 1 0
  3770. ea_67
  3771.     jsr_eval 0
  3772.     push_array 0
  3773.     update_a 0 1
  3774.     pop_a 1
  3775. .o 1 0
  3776. e__SystemArray_susize;#;i
  3777.     push_a 0
  3778.     update_a 0 1
  3779.     pop_a 1
  3780.     push_a 0
  3781.     push_arraysize INT 0 1
  3782. .d 1 1 i
  3783.     rtn
  3784. .export e__SystemArray_dusize;#;b
  3785. .export e__SystemArray_susize;#;b
  3786. .export e__SystemArray_nusize;#;b
  3787. .desc e__SystemArray_dusize;#;b e__SystemArray_nusize;#;b e__SystemArray_lusize;#;b 1 "usize;# (Bool)"
  3788. .o 2 0
  3789. e__SystemArray_lusize;#;b
  3790.     pop_a 1
  3791. .d 1 0
  3792.     jsr ea_68
  3793. .o 1 1 i
  3794.     create
  3795.     push_a 1
  3796.     fill ARRAY 1 _hnf 1
  3797.     buildI_b 0
  3798.     build _Tuple 2 _hnf
  3799.     update_a 0 1
  3800.     pop_a 1
  3801.     pop_b 1
  3802. .d 1 0
  3803.     rtn
  3804. .n 1 e__SystemArray_dusize;#;b
  3805. .o 1 0
  3806. e__SystemArray_nusize;#;b
  3807.     push_node _cycle_in_spine 1
  3808. .d 1 0
  3809.     jsr ea_68
  3810. .o 1 1 i
  3811.     create
  3812.     push_a 1
  3813.     fill ARRAY 1 _hnf 1
  3814.     buildI_b 0
  3815.     fill _Tuple 2 _hnf 3
  3816.     pop_a 1
  3817.     pop_b 1
  3818. .d 1 0
  3819.     rtn
  3820. .o 1 0
  3821. ea_68
  3822.     jsr_eval 0
  3823.     push_array 0
  3824.     update_a 0 1
  3825.     pop_a 1
  3826. .o 1 0
  3827. e__SystemArray_susize;#;b
  3828.     push_a 0
  3829.     update_a 0 1
  3830.     pop_a 1
  3831.     push_a 0
  3832.     push_arraysize BOOL 0 1
  3833. .d 1 1 i
  3834.     rtn
  3835. .export e__SystemArray_dusize;#;c
  3836. .export e__SystemArray_susize;#;c
  3837. .export e__SystemArray_nusize;#;c
  3838. .desc e__SystemArray_dusize;#;c e__SystemArray_nusize;#;c e__SystemArray_lusize;#;c 1 "usize;# (Char)"
  3839. .o 2 0
  3840. e__SystemArray_lusize;#;c
  3841.     pop_a 1
  3842. .d 1 0
  3843.     jsr ea_69
  3844. .o 1 1 i
  3845.     create
  3846.     push_a 1
  3847.     fill ARRAY 1 _hnf 1
  3848.     buildI_b 0
  3849.     build _Tuple 2 _hnf
  3850.     update_a 0 1
  3851.     pop_a 1
  3852.     pop_b 1
  3853. .d 1 0
  3854.     rtn
  3855. .n 1 e__SystemArray_dusize;#;c
  3856. .o 1 0
  3857. e__SystemArray_nusize;#;c
  3858.     push_node _cycle_in_spine 1
  3859. .d 1 0
  3860.     jsr ea_69
  3861. .o 1 1 i
  3862.     create
  3863.     push_a 1
  3864.     fill ARRAY 1 _hnf 1
  3865.     buildI_b 0
  3866.     fill _Tuple 2 _hnf 3
  3867.     pop_a 1
  3868.     pop_b 1
  3869. .d 1 0
  3870.     rtn
  3871. .o 1 0
  3872. ea_69
  3873.     jsr_eval 0
  3874.     push_array 0
  3875.     update_a 0 1
  3876.     pop_a 1
  3877. .o 1 0
  3878. e__SystemArray_susize;#;c
  3879.     push_a 0
  3880.     update_a 0 1
  3881.     pop_a 1
  3882.     push_a 0
  3883.     push_arraysize CHAR 0 1
  3884. .d 1 1 i
  3885.     rtn
  3886. .export e__SystemArray_dusize;#;r
  3887. .export e__SystemArray_susize;#;r
  3888. .export e__SystemArray_nusize;#;r
  3889. .desc e__SystemArray_dusize;#;r e__SystemArray_nusize;#;r e__SystemArray_lusize;#;r 1 "usize;# (Real)"
  3890. .o 2 0
  3891. e__SystemArray_lusize;#;r
  3892.     pop_a 1
  3893. .d 1 0
  3894.     jsr ea_70
  3895. .o 1 1 i
  3896.     create
  3897.     push_a 1
  3898.     fill ARRAY 1 _hnf 1
  3899.     buildI_b 0
  3900.     build _Tuple 2 _hnf
  3901.     update_a 0 1
  3902.     pop_a 1
  3903.     pop_b 1
  3904. .d 1 0
  3905.     rtn
  3906. .n 1 e__SystemArray_dusize;#;r
  3907. .o 1 0
  3908. e__SystemArray_nusize;#;r
  3909.     push_node _cycle_in_spine 1
  3910. .d 1 0
  3911.     jsr ea_70
  3912. .o 1 1 i
  3913.     create
  3914.     push_a 1
  3915.     fill ARRAY 1 _hnf 1
  3916.     buildI_b 0
  3917.     fill _Tuple 2 _hnf 3
  3918.     pop_a 1
  3919.     pop_b 1
  3920. .d 1 0
  3921.     rtn
  3922. .o 1 0
  3923. ea_70
  3924.     jsr_eval 0
  3925.     push_array 0
  3926.     update_a 0 1
  3927.     pop_a 1
  3928. .o 1 0
  3929. e__SystemArray_susize;#;r
  3930.     push_a 0
  3931.     update_a 0 1
  3932.     pop_a 1
  3933.     push_a 0
  3934.     push_arraysize REAL 0 2
  3935. .d 1 1 i
  3936.     rtn
  3937. .export e__SystemArray_dusize;#;f
  3938. .export e__SystemArray_susize;#;f
  3939. .export e__SystemArray_nusize;#;f
  3940. .desc e__SystemArray_dusize;#;f e__SystemArray_nusize;#;f e__SystemArray_lusize;#;f 1 "usize;# (File)"
  3941. .o 2 0
  3942. e__SystemArray_lusize;#;f
  3943.     pop_a 1
  3944. .d 1 0
  3945.     jsr ea_71
  3946. .o 1 1 i
  3947.     create
  3948.     push_a 1
  3949.     fill ARRAY 1 _hnf 1
  3950.     buildI_b 0
  3951.     build _Tuple 2 _hnf
  3952.     update_a 0 1
  3953.     pop_a 1
  3954.     pop_b 1
  3955. .d 1 0
  3956.     rtn
  3957. .n 1 e__SystemArray_dusize;#;f
  3958. .o 1 0
  3959. e__SystemArray_nusize;#;f
  3960.     push_node _cycle_in_spine 1
  3961. .d 1 0
  3962.     jsr ea_71
  3963. .o 1 1 i
  3964.     create
  3965.     push_a 1
  3966.     fill ARRAY 1 _hnf 1
  3967.     buildI_b 0
  3968.     fill _Tuple 2 _hnf 3
  3969.     pop_a 1
  3970.     pop_b 1
  3971. .d 1 0
  3972.     rtn
  3973. .o 1 0
  3974. ea_71
  3975.     jsr_eval 0
  3976.     push_array 0
  3977.     update_a 0 1
  3978.     pop_a 1
  3979. .o 1 0
  3980. e__SystemArray_susize;#;f
  3981.     push_a 0
  3982.     update_a 0 1
  3983.     pop_a 1
  3984.     push_a 0
  3985.     push_arraysize FILE 0 2
  3986. .d 1 1 i
  3987.     rtn
  3988. .export e__SystemArray_dusize;#;<11>
  3989. .export e__SystemArray_susize;#;<11>
  3990. .export e__SystemArray_nusize;#;<11>
  3991. .desc e__SystemArray_dusize;#;<11> e__SystemArray_nusize;#;<11> e__SystemArray_lusize;#;<11> 2 "usize;# (11)"
  3992. .o 2 0
  3993. e__SystemArray_lusize;#;<11>
  3994.     repl_args 1 1
  3995. .d 2 0
  3996.     jsr ea_72
  3997. .o 1 1 i
  3998.     create
  3999.     push_a 1
  4000.     fill ARRAY 1 _hnf 1
  4001.     buildI_b 0
  4002.     build _Tuple 2 _hnf
  4003.     update_a 0 1
  4004.     pop_a 1
  4005.     pop_b 1
  4006. .d 1 0
  4007.     rtn
  4008. .n 2 e__SystemArray_dusize;#;<11>
  4009. .o 1 0
  4010. e__SystemArray_nusize;#;<11>
  4011.     push_node _cycle_in_spine 2
  4012. .d 2 0
  4013.     jsr ea_72
  4014. .o 1 1 i
  4015.     create
  4016.     push_a 1
  4017.     fill ARRAY 1 _hnf 1
  4018.     buildI_b 0
  4019.     fill _Tuple 2 _hnf 3
  4020.     pop_a 1
  4021.     pop_b 1
  4022. .d 1 0
  4023.     rtn
  4024. .o 2 0
  4025. ea_72
  4026.     jsr_eval 1
  4027.     jsr_eval 0
  4028.     push_array 1
  4029.     update_a 0 2
  4030.     pop_a 1
  4031. .o 2 0
  4032. e__SystemArray_susize;#;<11>
  4033.     push_a 1
  4034.     push_a 1
  4035.     update_a 1 3
  4036.     update_a 0 2
  4037.     pop_a 2
  4038.     create
  4039.     push_a 2
  4040.     fill ARRAY 1 _hnf 1
  4041.     update_a 0 2
  4042.     pop_a 1
  4043. .d 2 0
  4044.     jsr e_system_sAP
  4045. .o 1 0
  4046.     repl_args 2 2
  4047.     pushI_a 0
  4048.     pop_a 1
  4049.     push_array 0
  4050.     update_a 0 1
  4051.     pop_a 1
  4052. .d 1 1 i
  4053.     rtn
  4054. .export e__SystemArray_d_createArrayc;a;d
  4055. .export e__SystemArray_s_createArrayc;a;d
  4056. .export e__SystemArray_n_createArrayc;a;d
  4057. .desc e__SystemArray_d_createArrayc;a;d e__SystemArray_n_createArrayc;a;d e__SystemArray_l_createArrayc;a;d 1 "_createArrayc;a (<default>)"
  4058. .o 2 0
  4059. e__SystemArray_l_createArrayc;a;d
  4060.     pop_a 1
  4061. .d 1 0
  4062.     jsr ea1
  4063. .o 1 0
  4064.     create
  4065.     push_a 1
  4066.     fill ARRAY 1 _hnf 1
  4067.     update_a 0 1
  4068.     pop_a 1
  4069. .d 1 0
  4070.     rtn
  4071. .n 1 e__SystemArray_d_createArrayc;a;d
  4072. .o 1 0
  4073. e__SystemArray_n_createArrayc;a;d
  4074.     push_node _cycle_in_spine 1
  4075. .d 1 0
  4076.     jsr ea1
  4077. .o 1 0
  4078.     push_a 0
  4079.     fill ARRAY 1 _hnf 2
  4080.     pop_a 1
  4081. .d 1 0
  4082.     rtn
  4083. .o 1 0
  4084. ea1
  4085.     jsr_eval 0
  4086.     pushI_a 0
  4087.     pop_a 1
  4088. .o 0 1 i
  4089. e__SystemArray_s_createArrayc;a;d
  4090.     push_b 0
  4091.     update_b 0 1
  4092.     pop_b 1
  4093.     create_array_ _ 1 0
  4094. .d 1 0
  4095.     rtn
  4096. .export e__SystemArray_d_createArrayc;a;<0>
  4097. .export e__SystemArray_s_createArrayc;a;<0>
  4098. .export e__SystemArray_n_createArrayc;a;<0>
  4099. .desc e__SystemArray_d_createArrayc;a;<0> e__SystemArray_n_createArrayc;a;<0> e__SystemArray_l_createArrayc;a;<0> 2 "_createArrayc;a (0)"
  4100. .o 2 0
  4101. e__SystemArray_l_createArrayc;a;<0>
  4102.     repl_args 1 1
  4103. .d 2 0
  4104.     jsr ea2
  4105. .o 1 0
  4106.     create
  4107.     push_a 1
  4108.     fill ARRAY 1 _hnf 1
  4109.     update_a 0 1
  4110.     pop_a 1
  4111. .d 1 0
  4112.     rtn
  4113. .n 2 e__SystemArray_d_createArrayc;a;<0>
  4114. .o 1 0
  4115. e__SystemArray_n_createArrayc;a;<0>
  4116.     push_node _cycle_in_spine 2
  4117. .d 2 0
  4118.     jsr ea2
  4119. .o 1 0
  4120.     push_a 0
  4121.     fill ARRAY 1 _hnf 2
  4122.     pop_a 1
  4123. .d 1 0
  4124.     rtn
  4125. .o 2 0
  4126. ea2
  4127.     jsr_eval 1
  4128.     jsr_eval 0
  4129.     pushI_a 1
  4130.     update_a 0 1
  4131.     pop_a 1
  4132. .o 1 1 i
  4133. e__SystemArray_s_createArrayc;a;<0>
  4134.     push_b 0
  4135.     push_a 0
  4136.     update_a 0 1
  4137.     update_b 0 1
  4138.     pop_a 1
  4139.     pop_b 1
  4140.     pop_a 1
  4141.     create_array_ _ 1 0
  4142. .d 1 0
  4143.     rtn
  4144. .export e__SystemArray_d_createArrayc;!;d
  4145. .export e__SystemArray_s_createArrayc;!;d
  4146. .export e__SystemArray_n_createArrayc;!;d
  4147. .desc e__SystemArray_d_createArrayc;!;d e__SystemArray_n_createArrayc;!;d e__SystemArray_l_createArrayc;!;d 1 "_createArrayc;! (<default>)"
  4148. .o 2 0
  4149. e__SystemArray_l_createArrayc;!;d
  4150.     pop_a 1
  4151. .d 1 0
  4152.     jsr ea3
  4153. .o 1 0
  4154.     create
  4155.     push_a 1
  4156.     fill ARRAY 1 _hnf 1
  4157.     update_a 0 1
  4158.     pop_a 1
  4159. .d 1 0
  4160.     rtn
  4161. .n 1 e__SystemArray_d_createArrayc;!;d
  4162. .o 1 0
  4163. e__SystemArray_n_createArrayc;!;d
  4164.     push_node _cycle_in_spine 1
  4165. .d 1 0
  4166.     jsr ea3
  4167. .o 1 0
  4168.     push_a 0
  4169.     fill ARRAY 1 _hnf 2
  4170.     pop_a 1
  4171. .d 1 0
  4172.     rtn
  4173. .o 1 0
  4174. ea3
  4175.     jsr_eval 0
  4176.     pushI_a 0
  4177.     pop_a 1
  4178. .o 0 1 i
  4179. e__SystemArray_s_createArrayc;!;d
  4180.     push_b 0
  4181.     update_b 0 1
  4182.     pop_b 1
  4183.     create_array_ _ 1 0
  4184. .d 1 0
  4185.     rtn
  4186. .export e__SystemArray_d_createArrayc;!;<0>
  4187. .export e__SystemArray_s_createArrayc;!;<0>
  4188. .export e__SystemArray_n_createArrayc;!;<0>
  4189. .desc e__SystemArray_d_createArrayc;!;<0> e__SystemArray_n_createArrayc;!;<0> e__SystemArray_l_createArrayc;!;<0> 2 "_createArrayc;! (0)"
  4190. .o 2 0
  4191. e__SystemArray_l_createArrayc;!;<0>
  4192.     repl_args 1 1
  4193. .d 2 0
  4194.     jsr ea4
  4195. .o 1 0
  4196.     create
  4197.     push_a 1
  4198.     fill ARRAY 1 _hnf 1
  4199.     update_a 0 1
  4200.     pop_a 1
  4201. .d 1 0
  4202.     rtn
  4203. .n 2 e__SystemArray_d_createArrayc;!;<0>
  4204. .o 1 0
  4205. e__SystemArray_n_createArrayc;!;<0>
  4206.     push_node _cycle_in_spine 2
  4207. .d 2 0
  4208.     jsr ea4
  4209. .o 1 0
  4210.     push_a 0
  4211.     fill ARRAY 1 _hnf 2
  4212.     pop_a 1
  4213. .d 1 0
  4214.     rtn
  4215. .o 2 0
  4216. ea4
  4217.     jsr_eval 1
  4218.     jsr_eval 0
  4219.     pushI_a 1
  4220.     update_a 0 1
  4221.     pop_a 1
  4222. .o 1 1 i
  4223. e__SystemArray_s_createArrayc;!;<0>
  4224.     push_b 0
  4225.     push_a 0
  4226.     update_a 0 1
  4227.     update_b 0 1
  4228.     pop_a 1
  4229.     pop_b 1
  4230.     pop_a 1
  4231.     create_array_ _ 1 0
  4232. .d 1 0
  4233.     rtn
  4234. .export e__SystemArray_d_updatei;a;d
  4235. .export e__SystemArray_s_updatei;a;d
  4236. .export e__SystemArray_n_updatei;a;d
  4237. .desc e__SystemArray_d_updatei;a;d e__SystemArray_n_updatei;a;d e__SystemArray_l_updatei;a;d 3 "_updatei;a (<default>)"
  4238. .o 2 0
  4239. e__SystemArray_l_updatei;a;d
  4240.     repl_args 2 2
  4241. .d 3 0
  4242.     jsr ea5
  4243. .o 1 0
  4244.     create
  4245.     push_a 1
  4246.     fill ARRAY 1 _hnf 1
  4247.     update_a 0 1
  4248.     pop_a 1
  4249. .d 1 0
  4250.     rtn
  4251. .n 3 e__SystemArray_d_updatei;a;d
  4252. .o 1 0
  4253. e__SystemArray_n_updatei;a;d
  4254.     push_node _cycle_in_spine 3
  4255. .d 3 0
  4256.     jsr ea5
  4257. .o 1 0
  4258.     push_a 0
  4259.     fill ARRAY 1 _hnf 2
  4260.     pop_a 1
  4261. .d 1 0
  4262.     rtn
  4263. .o 3 0
  4264. ea5
  4265.     jsr_eval 1
  4266.     jsr_eval 0
  4267.     push_args 0 2 2
  4268.     jsr_eval 1
  4269.     jsr_eval 0
  4270.     pushI_a 3
  4271.     push_array 1
  4272.     push_array 1
  4273.     update_a 1 5
  4274.     update_a 0 4
  4275.     pop_a 4
  4276. .o 3 1 i
  4277. e__SystemArray_s_updatei;a;d
  4278.     push_a 2
  4279.     push_b 0
  4280.     push_a 2
  4281.     push_a 2
  4282.     update_a 2 5
  4283.     update_a 1 4
  4284.     update_a 0 3
  4285.     update_b 0 1
  4286.     pop_a 3
  4287.     pop_b 1
  4288.     push_a 1
  4289.     update_a 3 2
  4290.     update_a 0 3
  4291.     pop_a 1
  4292.     update _ 1 0
  4293. .keep 0 1
  4294.     pop_a 1
  4295. .d 1 0
  4296.     rtn
  4297. .export e__SystemArray_d_updatei;a;<1>
  4298. .export e__SystemArray_s_updatei;a;<1>
  4299. .export e__SystemArray_n_updatei;a;<1>
  4300. .desc e__SystemArray_d_updatei;a;<1> e__SystemArray_n_updatei;a;<1> e__SystemArray_l_updatei;a;<1> 4 "_updatei;a (1)"
  4301. .o 2 0
  4302. e__SystemArray_l_updatei;a;<1>
  4303.     repl_args 3 3
  4304. .d 4 0
  4305.     jsr ea6
  4306. .o 1 0
  4307.     create
  4308.     push_a 1
  4309.     fill ARRAY 1 _hnf 1
  4310.     update_a 0 1
  4311.     pop_a 1
  4312. .d 1 0
  4313.     rtn
  4314. .n 4 e__SystemArray_d_updatei;a;<1>
  4315. .o 1 0
  4316. e__SystemArray_n_updatei;a;<1>
  4317.     push_node _cycle_in_spine 4
  4318. .d 4 0
  4319.     jsr ea6
  4320. .o 1 0
  4321.     push_a 0
  4322.     fill ARRAY 1 _hnf 2
  4323.     pop_a 1
  4324. .d 1 0
  4325.     rtn
  4326. .o 4 0
  4327. ea6
  4328.     jsr_eval 2
  4329.     push_a 1
  4330.     jsr_eval 0
  4331.     repl_args 2 2
  4332.     jsr_eval 1
  4333.     jsr_eval 0
  4334.     jsr_eval 2
  4335.     pushI_a 4
  4336.     push_array 1
  4337.     push_array 1
  4338.     update_a 1 6
  4339.     update_a 0 5
  4340.     pop_a 4
  4341. .o 4 1 i
  4342. e__SystemArray_s_updatei;a;<1>
  4343.     push_a 3
  4344.     push_b 0
  4345.     push_a 3
  4346.     push_a 3
  4347.     push_a 3
  4348.     update_a 3 7
  4349.     update_a 2 6
  4350.     update_a 1 5
  4351.     update_a 0 4
  4352.     update_b 0 1
  4353.     pop_a 4
  4354.     pop_b 1
  4355.     pop_a 1
  4356.     push_a 1
  4357.     update_a 3 2
  4358.     update_a 0 3
  4359.     pop_a 1
  4360.     update _ 1 0
  4361. .keep 0 1
  4362.     pop_a 1
  4363. .d 1 0
  4364.     rtn
  4365. .export e__SystemArray_d_updatei;!;d
  4366. .export e__SystemArray_s_updatei;!;d
  4367. .export e__SystemArray_n_updatei;!;d
  4368. .desc e__SystemArray_d_updatei;!;d e__SystemArray_n_updatei;!;d e__SystemArray_l_updatei;!;d 3 "_updatei;! (<default>)"
  4369. .o 2 0
  4370. e__SystemArray_l_updatei;!;d
  4371.     repl_args 2 2
  4372. .d 3 0
  4373.     jsr ea7
  4374. .o 1 0
  4375.     create
  4376.     push_a 1
  4377.     fill ARRAY 1 _hnf 1
  4378.     update_a 0 1
  4379.     pop_a 1
  4380. .d 1 0
  4381.     rtn
  4382. .n 3 e__SystemArray_d_updatei;!;d
  4383. .o 1 0
  4384. e__SystemArray_n_updatei;!;d
  4385.     push_node _cycle_in_spine 3
  4386. .d 3 0
  4387.     jsr ea7
  4388. .o 1 0
  4389.     push_a 0
  4390.     fill ARRAY 1 _hnf 2
  4391.     pop_a 1
  4392. .d 1 0
  4393.     rtn
  4394. .o 3 0
  4395. ea7
  4396.     jsr_eval 2
  4397.     jsr_eval 1
  4398.     jsr_eval 0
  4399.     push_args 0 2 2
  4400.     jsr_eval 1
  4401.     jsr_eval 0
  4402.     pushI_a 3
  4403.     push_array 1
  4404.     push_array 1
  4405.     update_a 1 5
  4406.     update_a 0 4
  4407.     pop_a 4
  4408. .o 3 1 i
  4409. e__SystemArray_s_updatei;!;d
  4410.     push_a 2
  4411.     push_b 0
  4412.     push_a 2
  4413.     push_a 2
  4414.     update_a 2 5
  4415.     update_a 1 4
  4416.     update_a 0 3
  4417.     update_b 0 1
  4418.     pop_a 3
  4419.     pop_b 1
  4420.     push_a 1
  4421.     update_a 3 2
  4422.     update_a 0 3
  4423.     pop_a 1
  4424.     update _ 1 0
  4425. .keep 0 1
  4426.     pop_a 1
  4427. .d 1 0
  4428.     rtn
  4429. .export e__SystemArray_d_updatei;!;<1>
  4430. .export e__SystemArray_s_updatei;!;<1>
  4431. .export e__SystemArray_n_updatei;!;<1>
  4432. .desc e__SystemArray_d_updatei;!;<1> e__SystemArray_n_updatei;!;<1> e__SystemArray_l_updatei;!;<1> 4 "_updatei;! (1)"
  4433. .o 2 0
  4434. e__SystemArray_l_updatei;!;<1>
  4435.     repl_args 3 3
  4436. .d 4 0
  4437.     jsr ea8
  4438. .o 1 0
  4439.     create
  4440.     push_a 1
  4441.     fill ARRAY 1 _hnf 1
  4442.     update_a 0 1
  4443.     pop_a 1
  4444. .d 1 0
  4445.     rtn
  4446. .n 4 e__SystemArray_d_updatei;!;<1>
  4447. .o 1 0
  4448. e__SystemArray_n_updatei;!;<1>
  4449.     push_node _cycle_in_spine 4
  4450. .d 4 0
  4451.     jsr ea8
  4452. .o 1 0
  4453.     push_a 0
  4454.     fill ARRAY 1 _hnf 2
  4455.     pop_a 1
  4456. .d 1 0
  4457.     rtn
  4458. .o 4 0
  4459. ea8
  4460.     jsr_eval 3
  4461.     jsr_eval 2
  4462.     push_a 1
  4463.     jsr_eval 0
  4464.     repl_args 2 2
  4465.     jsr_eval 1
  4466.     jsr_eval 0
  4467.     jsr_eval 2
  4468.     pushI_a 4
  4469.     push_array 1
  4470.     push_array 1
  4471.     update_a 1 6
  4472.     update_a 0 5
  4473.     pop_a 4
  4474. .o 4 1 i
  4475. e__SystemArray_s_updatei;!;<1>
  4476.     push_a 3
  4477.     push_b 0
  4478.     push_a 3
  4479.     push_a 3
  4480.     push_a 3
  4481.     update_a 3 7
  4482.     update_a 2 6
  4483.     update_a 1 5
  4484.     update_a 0 4
  4485.     update_b 0 1
  4486.     pop_a 4
  4487.     pop_b 1
  4488.     pop_a 1
  4489.     push_a 1
  4490.     update_a 3 2
  4491.     update_a 0 3
  4492.     pop_a 1
  4493.     update _ 1 0
  4494. .keep 0 1
  4495.     pop_a 1
  4496. .d 1 0
  4497.     rtn
  4498. .export e__SystemArray_d_uselectf;a;d
  4499. .export e__SystemArray_s_uselectf;a;d
  4500. .export e__SystemArray_n_uselectf;a;d
  4501. .desc e__SystemArray_d_uselectf;a;d e__SystemArray_n_uselectf;a;d e__SystemArray_l_uselectf;a;d 2 "_uselectf;a (<default>)"
  4502. .o 2 0
  4503. e__SystemArray_l_uselectf;a;d
  4504.     repl_args 1 1
  4505. .d 2 0
  4506.     jsr ea9
  4507. .o 2 0
  4508.     create
  4509.     push_a 2
  4510.     fill ARRAY 1 _hnf 1
  4511.     push_a 1
  4512.     build _Tuple 2 _hnf
  4513.     update_a 0 2
  4514.     pop_a 2
  4515. .d 1 0
  4516.     rtn
  4517. .n 2 e__SystemArray_d_uselectf;a;d
  4518. .o 1 0
  4519. e__SystemArray_n_uselectf;a;d
  4520.     push_node _cycle_in_spine 2
  4521. .d 2 0
  4522.     jsr ea9
  4523. .o 2 0
  4524.     create
  4525.     push_a 2
  4526.     fill ARRAY 1 _hnf 1
  4527.     push_a 1
  4528.     fill _Tuple 2 _hnf 4
  4529.     pop_a 2
  4530. .d 1 0
  4531.     rtn
  4532. .o 2 0
  4533. ea9
  4534.     jsr_eval 1
  4535.     jsr_eval 0
  4536.     pushI_a 1
  4537.     push_array 0
  4538.     update_a 0 2
  4539.     pop_a 2
  4540. .o 1 1 i
  4541. e__SystemArray_s_uselectf;a;d
  4542.     push_b 0
  4543.     push_a 0
  4544.     update_a 0 1
  4545.     update_b 0 1
  4546.     pop_a 1
  4547.     pop_b 1
  4548.     push_a 0
  4549.     select _ 1 0
  4550. .d 2 0
  4551.     rtn
  4552. .export e__SystemArray_d_uselectf;a;<2>
  4553. .export e__SystemArray_s_uselectf;a;<2>
  4554. .export e__SystemArray_n_uselectf;a;<2>
  4555. .desc e__SystemArray_d_uselectf;a;<2> e__SystemArray_n_uselectf;a;<2> e__SystemArray_l_uselectf;a;<2> 3 "_uselectf;a (2)"
  4556. .o 2 0
  4557. e__SystemArray_l_uselectf;a;<2>
  4558.     repl_args 2 2
  4559. .d 3 0
  4560.     jsr ea10
  4561. .o 2 0
  4562.     create
  4563.     push_a 2
  4564.     fill ARRAY 1 _hnf 1
  4565.     push_a 1
  4566.     build _Tuple 2 _hnf
  4567.     update_a 0 2
  4568.     pop_a 2
  4569. .d 1 0
  4570.     rtn
  4571. .n 3 e__SystemArray_d_uselectf;a;<2>
  4572. .o 1 0
  4573. e__SystemArray_n_uselectf;a;<2>
  4574.     push_node _cycle_in_spine 3
  4575. .d 3 0
  4576.     jsr ea10
  4577. .o 2 0
  4578.     create
  4579.     push_a 2
  4580.     fill ARRAY 1 _hnf 1
  4581.     push_a 1
  4582.     fill _Tuple 2 _hnf 4
  4583.     pop_a 2
  4584. .d 1 0
  4585.     rtn
  4586. .o 3 0
  4587. ea10
  4588.     jsr_eval 2
  4589.     jsr_eval 1
  4590.     jsr_eval 0
  4591.     pushI_a 2
  4592.     push_array 1
  4593.     update_a 0 3
  4594.     update_a 1 2
  4595.     pop_a 2
  4596. .o 2 1 i
  4597. e__SystemArray_s_uselectf;a;<2>
  4598.     push_b 0
  4599.     push_a 1
  4600.     push_a 1
  4601.     update_a 1 3
  4602.     update_a 0 2
  4603.     update_b 0 1
  4604.     pop_a 2
  4605.     pop_b 1
  4606.     pop_a 1
  4607.     push_a 0
  4608.     select _ 1 0
  4609. .d 2 0
  4610.     rtn
  4611. .export e__SystemArray_d_uselectf;!;d
  4612. .export e__SystemArray_s_uselectf;!;d
  4613. .export e__SystemArray_n_uselectf;!;d
  4614. .desc e__SystemArray_d_uselectf;!;d e__SystemArray_n_uselectf;!;d e__SystemArray_l_uselectf;!;d 2 "_uselectf;! (<default>)"
  4615. .o 2 0
  4616. e__SystemArray_l_uselectf;!;d
  4617.     repl_args 1 1
  4618. .d 2 0
  4619.     jsr ea11
  4620. .o 2 0
  4621.     create
  4622.     push_a 2
  4623.     fill ARRAY 1 _hnf 1
  4624.     push_a 1
  4625.     build _Tuple 2 _hnf
  4626.     update_a 0 2
  4627.     pop_a 2
  4628. .d 1 0
  4629.     rtn
  4630. .n 2 e__SystemArray_d_uselectf;!;d
  4631. .o 1 0
  4632. e__SystemArray_n_uselectf;!;d
  4633.     push_node _cycle_in_spine 2
  4634. .d 2 0
  4635.     jsr ea11
  4636. .o 2 0
  4637.     create
  4638.     push_a 2
  4639.     fill ARRAY 1 _hnf 1
  4640.     push_a 1
  4641.     fill _Tuple 2 _hnf 4
  4642.     pop_a 2
  4643. .d 1 0
  4644.     rtn
  4645. .o 2 0
  4646. ea11
  4647.     jsr_eval 1
  4648.     jsr_eval 0
  4649.     pushI_a 1
  4650.     push_array 0
  4651.     update_a 0 2
  4652.     pop_a 2
  4653. .o 1 1 i
  4654. e__SystemArray_s_uselectf;!;d
  4655.     push_b 0
  4656.     push_a 0
  4657.     update_a 0 1
  4658.     update_b 0 1
  4659.     pop_a 1
  4660.     pop_b 1
  4661.     push_a 0
  4662.     select _ 1 0
  4663. .d 2 0
  4664.     rtn
  4665. .export e__SystemArray_d_uselectf;!;<2>
  4666. .export e__SystemArray_s_uselectf;!;<2>
  4667. .export e__SystemArray_n_uselectf;!;<2>
  4668. .desc e__SystemArray_d_uselectf;!;<2> e__SystemArray_n_uselectf;!;<2> e__SystemArray_l_uselectf;!;<2> 3 "_uselectf;! (2)"
  4669. .o 2 0
  4670. e__SystemArray_l_uselectf;!;<2>
  4671.     repl_args 2 2
  4672. .d 3 0
  4673.     jsr ea12
  4674. .o 2 0
  4675.     create
  4676.     push_a 2
  4677.     fill ARRAY 1 _hnf 1
  4678.     push_a 1
  4679.     build _Tuple 2 _hnf
  4680.     update_a 0 2
  4681.     pop_a 2
  4682. .d 1 0
  4683.     rtn
  4684. .n 3 e__SystemArray_d_uselectf;!;<2>
  4685. .o 1 0
  4686. e__SystemArray_n_uselectf;!;<2>
  4687.     push_node _cycle_in_spine 3
  4688. .d 3 0
  4689.     jsr ea12
  4690. .o 2 0
  4691.     create
  4692.     push_a 2
  4693.     fill ARRAY 1 _hnf 1
  4694.     push_a 1
  4695.     fill _Tuple 2 _hnf 4
  4696.     pop_a 2
  4697. .d 1 0
  4698.     rtn
  4699. .o 3 0
  4700. ea12
  4701.     jsr_eval 2
  4702.     jsr_eval 1
  4703.     jsr_eval 0
  4704.     pushI_a 2
  4705.     push_array 1
  4706.     update_a 0 3
  4707.     update_a 1 2
  4708.     pop_a 2
  4709. .o 2 1 i
  4710. e__SystemArray_s_uselectf;!;<2>
  4711.     push_b 0
  4712.     push_a 1
  4713.     push_a 1
  4714.     update_a 1 3
  4715.     update_a 0 2
  4716.     update_b 0 1
  4717.     pop_a 2
  4718.     pop_b 1
  4719.     pop_a 1
  4720.     push_a 0
  4721.     select _ 1 0
  4722. .d 2 0
  4723.     rtn
  4724. .export e__SystemArray_d_uselectl;a;d
  4725. .export e__SystemArray_s_uselectl;a;d
  4726. .export e__SystemArray_n_uselectl;a;d
  4727. .desc e__SystemArray_d_uselectl;a;d e__SystemArray_n_uselectl;a;d e__SystemArray_l_uselectl;a;d 2 "_uselectl;a (<default>)"
  4728. .o 2 0
  4729. e__SystemArray_l_uselectl;a;d
  4730.     repl_args 1 1
  4731. .d 2 0
  4732.     jsr ea13
  4733. .o 2 0
  4734.     create
  4735.     push_a 2
  4736.     fill ARRAY 1 _hnf 1
  4737.     push_a 1
  4738.     build _Tuple 2 _hnf
  4739.     update_a 0 2
  4740.     pop_a 2
  4741. .d 1 0
  4742.     rtn
  4743. .n 2 e__SystemArray_d_uselectl;a;d
  4744. .o 1 0
  4745. e__SystemArray_n_uselectl;a;d
  4746.     push_node _cycle_in_spine 2
  4747. .d 2 0
  4748.     jsr ea13
  4749. .o 2 0
  4750.     create
  4751.     push_a 2
  4752.     fill ARRAY 1 _hnf 1
  4753.     push_a 1
  4754.     fill _Tuple 2 _hnf 4
  4755.     pop_a 2
  4756. .d 1 0
  4757.     rtn
  4758. .o 2 0
  4759. ea13
  4760.     jsr_eval 1
  4761.     jsr_eval 0
  4762.     push_args 0 2 2
  4763.     jsr_eval 1
  4764.     jsr_eval 0
  4765.     pushI_a 3
  4766.     push_array 1
  4767.     push_array 1
  4768.     update_a 1 5
  4769.     update_a 0 4
  4770.     pop_a 4
  4771. .o 2 1 i
  4772. e__SystemArray_s_uselectl;a;d
  4773.     push_b 0
  4774.     push_a 1
  4775.     push_a 1
  4776.     update_a 1 3
  4777.     update_a 0 2
  4778.     update_b 0 1
  4779.     pop_a 2
  4780.     pop_b 1
  4781.     select _ 1 0
  4782. .d 2 0
  4783.     rtn
  4784. .export e__SystemArray_d_uselectl;a;<3>
  4785. .export e__SystemArray_s_uselectl;a;<3>
  4786. .export e__SystemArray_n_uselectl;a;<3>
  4787. .desc e__SystemArray_d_uselectl;a;<3> e__SystemArray_n_uselectl;a;<3> e__SystemArray_l_uselectl;a;<3> 3 "_uselectl;a (3)"
  4788. .o 2 0
  4789. e__SystemArray_l_uselectl;a;<3>
  4790.     repl_args 2 2
  4791. .d 3 0
  4792.     jsr ea14
  4793. .o 2 0
  4794.     create
  4795.     push_a 2
  4796.     fill ARRAY 1 _hnf 1
  4797.     push_a 1
  4798.     build _Tuple 2 _hnf
  4799.     update_a 0 2
  4800.     pop_a 2
  4801. .d 1 0
  4802.     rtn
  4803. .n 3 e__SystemArray_d_uselectl;a;<3>
  4804. .o 1 0
  4805. e__SystemArray_n_uselectl;a;<3>
  4806.     push_node _cycle_in_spine 3
  4807. .d 3 0
  4808.     jsr ea14
  4809. .o 2 0
  4810.     create
  4811.     push_a 2
  4812.     fill ARRAY 1 _hnf 1
  4813.     push_a 1
  4814.     fill _Tuple 2 _hnf 4
  4815.     pop_a 2
  4816. .d 1 0
  4817.     rtn
  4818. .o 3 0
  4819. ea14
  4820.     jsr_eval 2
  4821.     push_a 1
  4822.     jsr_eval 0
  4823.     repl_args 2 2
  4824.     jsr_eval 1
  4825.     jsr_eval 0
  4826.     jsr_eval 2
  4827.     pushI_a 4
  4828.     push_array 1
  4829.     push_array 1
  4830.     update_a 1 6
  4831.     update_a 0 5
  4832.     pop_a 4
  4833. .o 3 1 i
  4834. e__SystemArray_s_uselectl;a;<3>
  4835.     push_b 0
  4836.     push_a 2
  4837.     push_a 2
  4838.     push_a 2
  4839.     update_a 2 5
  4840.     update_a 1 4
  4841.     update_a 0 3
  4842.     update_b 0 1
  4843.     pop_a 3
  4844.     pop_b 1
  4845.     pop_a 1
  4846.     select _ 1 0
  4847. .d 2 0
  4848.     rtn
  4849. .export e__SystemArray_d_uselectl;!;d
  4850. .export e__SystemArray_s_uselectl;!;d
  4851. .export e__SystemArray_n_uselectl;!;d
  4852. .desc e__SystemArray_d_uselectl;!;d e__SystemArray_n_uselectl;!;d e__SystemArray_l_uselectl;!;d 2 "_uselectl;! (<default>)"
  4853. .o 2 0
  4854. e__SystemArray_l_uselectl;!;d
  4855.     repl_args 1 1
  4856. .d 2 0
  4857.     jsr ea15
  4858. .o 2 0
  4859.     create
  4860.     push_a 2
  4861.     fill ARRAY 1 _hnf 1
  4862.     push_a 1
  4863.     build _Tuple 2 _hnf
  4864.     update_a 0 2
  4865.     pop_a 2
  4866. .d 1 0
  4867.     rtn
  4868. .n 2 e__SystemArray_d_uselectl;!;d
  4869. .o 1 0
  4870. e__SystemArray_n_uselectl;!;d
  4871.     push_node _cycle_in_spine 2
  4872. .d 2 0
  4873.     jsr ea15
  4874. .o 2 0
  4875.     create
  4876.     push_a 2
  4877.     fill ARRAY 1 _hnf 1
  4878.     push_a 1
  4879.     fill _Tuple 2 _hnf 4
  4880.     pop_a 2
  4881. .d 1 0
  4882.     rtn
  4883. .o 2 0
  4884. ea15
  4885.     jsr_eval 1
  4886.     jsr_eval 0
  4887.     push_args 0 2 2
  4888.     jsr_eval 1
  4889.     jsr_eval 0
  4890.     pushI_a 3
  4891.     push_array 1
  4892.     push_array 1
  4893.     update_a 1 5
  4894.     update_a 0 4
  4895.     pop_a 4
  4896. .o 2 1 i
  4897. e__SystemArray_s_uselectl;!;d
  4898.     push_b 0
  4899.     push_a 1
  4900.     push_a 1
  4901.     update_a 1 3
  4902.     update_a 0 2
  4903.     update_b 0 1
  4904.     pop_a 2
  4905.     pop_b 1
  4906.     select _ 1 0
  4907. .d 2 0
  4908.     rtn
  4909. .export e__SystemArray_d_uselectl;!;<3>
  4910. .export e__SystemArray_s_uselectl;!;<3>
  4911. .export e__SystemArray_n_uselectl;!;<3>
  4912. .desc e__SystemArray_d_uselectl;!;<3> e__SystemArray_n_uselectl;!;<3> e__SystemArray_l_uselectl;!;<3> 3 "_uselectl;! (3)"
  4913. .o 2 0
  4914. e__SystemArray_l_uselectl;!;<3>
  4915.     repl_args 2 2
  4916. .d 3 0
  4917.     jsr ea16
  4918. .o 2 0
  4919.     create
  4920.     push_a 2
  4921.     fill ARRAY 1 _hnf 1
  4922.     push_a 1
  4923.     build _Tuple 2 _hnf
  4924.     update_a 0 2
  4925.     pop_a 2
  4926. .d 1 0
  4927.     rtn
  4928. .n 3 e__SystemArray_d_uselectl;!;<3>
  4929. .o 1 0
  4930. e__SystemArray_n_uselectl;!;<3>
  4931.     push_node _cycle_in_spine 3
  4932. .d 3 0
  4933.     jsr ea16
  4934. .o 2 0
  4935.     create
  4936.     push_a 2
  4937.     fill ARRAY 1 _hnf 1
  4938.     push_a 1
  4939.     fill _Tuple 2 _hnf 4
  4940.     pop_a 2
  4941. .d 1 0
  4942.     rtn
  4943. .o 3 0
  4944. ea16
  4945.     jsr_eval 2
  4946.     push_a 1
  4947.     jsr_eval 0
  4948.     repl_args 2 2
  4949.     jsr_eval 1
  4950.     jsr_eval 0
  4951.     jsr_eval 2
  4952.     pushI_a 4
  4953.     push_array 1
  4954.     push_array 1
  4955.     update_a 1 6
  4956.     update_a 0 5
  4957.     pop_a 4
  4958. .o 3 1 i
  4959. e__SystemArray_s_uselectl;!;<3>
  4960.     push_b 0
  4961.     push_a 2
  4962.     push_a 2
  4963.     push_a 2
  4964.     update_a 2 5
  4965.     update_a 1 4
  4966.     update_a 0 3
  4967.     update_b 0 1
  4968.     pop_a 3
  4969.     pop_b 1
  4970.     pop_a 1
  4971.     select _ 1 0
  4972. .d 2 0
  4973.     rtn
  4974. .export e__SystemArray_d_uselectn;a;d
  4975. .export e__SystemArray_s_uselectn;a;d
  4976. .export e__SystemArray_n_uselectn;a;d
  4977. .desc e__SystemArray_d_uselectn;a;d e__SystemArray_n_uselectn;a;d e__SystemArray_l_uselectn;a;d 2 "_uselectn;a (<default>)"
  4978. .o 2 0
  4979. e__SystemArray_l_uselectn;a;d
  4980.     repl_args 1 1
  4981. .d 2 0
  4982.     jsr ea17
  4983. .o 2 0
  4984.     create
  4985.     push_a 2
  4986.     fill ARRAY 1 _hnf 1
  4987.     push_a 1
  4988.     build _Tuple 2 _hnf
  4989.     update_a 0 2
  4990.     pop_a 2
  4991. .d 1 0
  4992.     rtn
  4993. .n 2 e__SystemArray_d_uselectn;a;d
  4994. .o 1 0
  4995. e__SystemArray_n_uselectn;a;d
  4996.     push_node _cycle_in_spine 2
  4997. .d 2 0
  4998.     jsr ea17
  4999. .o 2 0
  5000.     create
  5001.     push_a 2
  5002.     fill ARRAY 1 _hnf 1
  5003.     push_a 1
  5004.     fill _Tuple 2 _hnf 4
  5005.     pop_a 2
  5006. .d 1 0
  5007.     rtn
  5008. .o 2 0
  5009. ea17
  5010.     jsr_eval 1
  5011.     jsr_eval 0
  5012.     push_args 0 2 2
  5013.     jsr_eval 1
  5014.     jsr_eval 0
  5015.     pushI_a 3
  5016.     push_array 1
  5017.     push_array 1
  5018.     update_a 1 5
  5019.     update_a 0 4
  5020.     pop_a 4
  5021. .o 2 1 i
  5022. e__SystemArray_s_uselectn;a;d
  5023.     push_b 0
  5024.     push_a 1
  5025.     push_a 1
  5026.     update_a 1 3
  5027.     update_a 0 2
  5028.     update_b 0 1
  5029.     pop_a 2
  5030.     pop_b 1
  5031.     select _ 1 0
  5032. .d 2 0
  5033.     rtn
  5034. .export e__SystemArray_d_uselectn;a;<4>
  5035. .export e__SystemArray_s_uselectn;a;<4>
  5036. .export e__SystemArray_n_uselectn;a;<4>
  5037. .desc e__SystemArray_d_uselectn;a;<4> e__SystemArray_n_uselectn;a;<4> e__SystemArray_l_uselectn;a;<4> 3 "_uselectn;a (4)"
  5038. .o 2 0
  5039. e__SystemArray_l_uselectn;a;<4>
  5040.     repl_args 2 2
  5041. .d 3 0
  5042.     jsr ea18
  5043. .o 2 0
  5044.     create
  5045.     push_a 2
  5046.     fill ARRAY 1 _hnf 1
  5047.     push_a 1
  5048.     build _Tuple 2 _hnf
  5049.     update_a 0 2
  5050.     pop_a 2
  5051. .d 1 0
  5052.     rtn
  5053. .n 3 e__SystemArray_d_uselectn;a;<4>
  5054. .o 1 0
  5055. e__SystemArray_n_uselectn;a;<4>
  5056.     push_node _cycle_in_spine 3
  5057. .d 3 0
  5058.     jsr ea18
  5059. .o 2 0
  5060.     create
  5061.     push_a 2
  5062.     fill ARRAY 1 _hnf 1
  5063.     push_a 1
  5064.     fill _Tuple 2 _hnf 4
  5065.     pop_a 2
  5066. .d 1 0
  5067.     rtn
  5068. .o 3 0
  5069. ea18
  5070.     jsr_eval 2
  5071.     push_a 1
  5072.     jsr_eval 0
  5073.     repl_args 2 2
  5074.     jsr_eval 1
  5075.     jsr_eval 0
  5076.     jsr_eval 2
  5077.     pushI_a 4
  5078.     push_array 1
  5079.     push_array 1
  5080.     update_a 1 6
  5081.     update_a 0 5
  5082.     pop_a 4
  5083. .o 3 1 i
  5084. e__SystemArray_s_uselectn;a;<4>
  5085.     push_b 0
  5086.     push_a 2
  5087.     push_a 2
  5088.     push_a 2
  5089.     update_a 2 5
  5090.     update_a 1 4
  5091.     update_a 0 3
  5092.     update_b 0 1
  5093.     pop_a 3
  5094.     pop_b 1
  5095.     pop_a 1
  5096.     select _ 1 0
  5097. .d 2 0
  5098.     rtn
  5099. .export e__SystemArray_d_uselectn;!;d
  5100. .export e__SystemArray_s_uselectn;!;d
  5101. .export e__SystemArray_n_uselectn;!;d
  5102. .desc e__SystemArray_d_uselectn;!;d e__SystemArray_n_uselectn;!;d e__SystemArray_l_uselectn;!;d 2 "_uselectn;! (<default>)"
  5103. .o 2 0
  5104. e__SystemArray_l_uselectn;!;d
  5105.     repl_args 1 1
  5106. .d 2 0
  5107.     jsr ea19
  5108. .o 2 0
  5109.     create
  5110.     push_a 2
  5111.     fill ARRAY 1 _hnf 1
  5112.     push_a 1
  5113.     build _Tuple 2 _hnf
  5114.     update_a 0 2
  5115.     pop_a 2
  5116. .d 1 0
  5117.     rtn
  5118. .n 2 e__SystemArray_d_uselectn;!;d
  5119. .o 1 0
  5120. e__SystemArray_n_uselectn;!;d
  5121.     push_node _cycle_in_spine 2
  5122. .d 2 0
  5123.     jsr ea19
  5124. .o 2 0
  5125.     create
  5126.     push_a 2
  5127.     fill ARRAY 1 _hnf 1
  5128.     push_a 1
  5129.     fill _Tuple 2 _hnf 4
  5130.     pop_a 2
  5131. .d 1 0
  5132.     rtn
  5133. .o 2 0
  5134. ea19
  5135.     jsr_eval 1
  5136.     jsr_eval 0
  5137.     push_args 0 2 2
  5138.     jsr_eval 1
  5139.     jsr_eval 0
  5140.     pushI_a 3
  5141.     push_array 1
  5142.     push_array 1
  5143.     update_a 1 5
  5144.     update_a 0 4
  5145.     pop_a 4
  5146. .o 2 1 i
  5147. e__SystemArray_s_uselectn;!;d
  5148.     push_b 0
  5149.     push_a 1
  5150.     push_a 1
  5151.     update_a 1 3
  5152.     update_a 0 2
  5153.     update_b 0 1
  5154.     pop_a 2
  5155.     pop_b 1
  5156.     select _ 1 0
  5157. .d 2 0
  5158.     rtn
  5159. .export e__SystemArray_d_uselectn;!;<4>
  5160. .export e__SystemArray_s_uselectn;!;<4>
  5161. .export e__SystemArray_n_uselectn;!;<4>
  5162. .desc e__SystemArray_d_uselectn;!;<4> e__SystemArray_n_uselectn;!;<4> e__SystemArray_l_uselectn;!;<4> 3 "_uselectn;! (4)"
  5163. .o 2 0
  5164. e__SystemArray_l_uselectn;!;<4>
  5165.     repl_args 2 2
  5166. .d 3 0
  5167.     jsr ea20
  5168. .o 2 0
  5169.     create
  5170.     push_a 2
  5171.     fill ARRAY 1 _hnf 1
  5172.     push_a 1
  5173.     build _Tuple 2 _hnf
  5174.     update_a 0 2
  5175.     pop_a 2
  5176. .d 1 0
  5177.     rtn
  5178. .n 3 e__SystemArray_d_uselectn;!;<4>
  5179. .o 1 0
  5180. e__SystemArray_n_uselectn;!;<4>
  5181.     push_node _cycle_in_spine 3
  5182. .d 3 0
  5183.     jsr ea20
  5184. .o 2 0
  5185.     create
  5186.     push_a 2
  5187.     fill ARRAY 1 _hnf 1
  5188.     push_a 1
  5189.     fill _Tuple 2 _hnf 4
  5190.     pop_a 2
  5191. .d 1 0
  5192.     rtn
  5193. .o 3 0
  5194. ea20
  5195.     jsr_eval 2
  5196.     push_a 1
  5197.     jsr_eval 0
  5198.     repl_args 2 2
  5199.     jsr_eval 1
  5200.     jsr_eval 0
  5201.     jsr_eval 2
  5202.     pushI_a 4
  5203.     push_array 1
  5204.     push_array 1
  5205.     update_a 1 6
  5206.     update_a 0 5
  5207.     pop_a 4
  5208. .o 3 1 i
  5209. e__SystemArray_s_uselectn;!;<4>
  5210.     push_b 0
  5211.     push_a 2
  5212.     push_a 2
  5213.     push_a 2
  5214.     update_a 2 5
  5215.     update_a 1 4
  5216.     update_a 0 3
  5217.     update_b 0 1
  5218.     pop_a 3
  5219.     pop_b 1
  5220.     pop_a 1
  5221.     select _ 1 0
  5222. .d 2 0
  5223.     rtn
  5224. .export e__SystemArray_dcreateArray;a;d
  5225. .export e__SystemArray_screateArray;a;d
  5226. .export e__SystemArray_ncreateArray;a;d
  5227. .desc e__SystemArray_dcreateArray;a;d e__SystemArray_ncreateArray;a;d e__SystemArray_lcreateArray;a;d 2 "createArray;a (<default>)"
  5228. .o 2 0
  5229. e__SystemArray_lcreateArray;a;d
  5230.     repl_args 1 1
  5231. .d 2 0
  5232.     jsr ea21
  5233. .o 1 0
  5234.     create
  5235.     push_a 1
  5236.     fill ARRAY 1 _hnf 1
  5237.     update_a 0 1
  5238.     pop_a 1
  5239. .d 1 0
  5240.     rtn
  5241. .n 2 e__SystemArray_dcreateArray;a;d
  5242. .o 1 0
  5243. e__SystemArray_ncreateArray;a;d
  5244.     push_node _cycle_in_spine 2
  5245. .d 2 0
  5246.     jsr ea21
  5247. .o 1 0
  5248.     push_a 0
  5249.     fill ARRAY 1 _hnf 2
  5250.     pop_a 1
  5251. .d 1 0
  5252.     rtn
  5253. .o 2 0
  5254. ea21
  5255.     jsr_eval 0
  5256.     pushI_a 0
  5257.     pop_a 1
  5258. .o 1 1 i
  5259. e__SystemArray_screateArray;a;d
  5260.     push_a 0
  5261.     push_b 0
  5262.     update_a 0 1
  5263.     update_b 0 1
  5264.     pop_a 1
  5265.     pop_b 1
  5266.     create_array _ 1 0
  5267. .d 1 0
  5268.     rtn
  5269. .export e__SystemArray_dcreateArray;a;<5>
  5270. .export e__SystemArray_screateArray;a;<5>
  5271. .export e__SystemArray_ncreateArray;a;<5>
  5272. .desc e__SystemArray_dcreateArray;a;<5> e__SystemArray_ncreateArray;a;<5> e__SystemArray_lcreateArray;a;<5> 3 "createArray;a (5)"
  5273. .o 2 0
  5274. e__SystemArray_lcreateArray;a;<5>
  5275.     repl_args 2 2
  5276. .d 3 0
  5277.     jsr ea22
  5278. .o 1 0
  5279.     create
  5280.     push_a 1
  5281.     fill ARRAY 1 _hnf 1
  5282.     update_a 0 1
  5283.     pop_a 1
  5284. .d 1 0
  5285.     rtn
  5286. .n 3 e__SystemArray_dcreateArray;a;<5>
  5287. .o 1 0
  5288. e__SystemArray_ncreateArray;a;<5>
  5289.     push_node _cycle_in_spine 3
  5290. .d 3 0
  5291.     jsr ea22
  5292. .o 1 0
  5293.     push_a 0
  5294.     fill ARRAY 1 _hnf 2
  5295.     pop_a 1
  5296. .d 1 0
  5297.     rtn
  5298. .o 3 0
  5299. ea22
  5300.     jsr_eval 1
  5301.     jsr_eval 0
  5302.     pushI_a 1
  5303.     update_a 0 1
  5304.     pop_a 1
  5305. .o 2 1 i
  5306. e__SystemArray_screateArray;a;<5>
  5307.     push_a 1
  5308.     push_b 0
  5309.     push_a 1
  5310.     update_a 1 3
  5311.     update_a 0 2
  5312.     update_b 0 1
  5313.     pop_a 2
  5314.     pop_b 1
  5315.     pop_a 1
  5316.     create_array _ 1 0
  5317. .d 1 0
  5318.     rtn
  5319. .export e__SystemArray_dcreateArray;!;d
  5320. .export e__SystemArray_screateArray;!;d
  5321. .export e__SystemArray_ncreateArray;!;d
  5322. .desc e__SystemArray_dcreateArray;!;d e__SystemArray_ncreateArray;!;d e__SystemArray_lcreateArray;!;d 2 "createArray;! (<default>)"
  5323. .o 2 0
  5324. e__SystemArray_lcreateArray;!;d
  5325.     repl_args 1 1
  5326. .d 2 0
  5327.     jsr ea23
  5328. .o 1 0
  5329.     create
  5330.     push_a 1
  5331.     fill ARRAY 1 _hnf 1
  5332.     update_a 0 1
  5333.     pop_a 1
  5334. .d 1 0
  5335.     rtn
  5336. .n 2 e__SystemArray_dcreateArray;!;d
  5337. .o 1 0
  5338. e__SystemArray_ncreateArray;!;d
  5339.     push_node _cycle_in_spine 2
  5340. .d 2 0
  5341.     jsr ea23
  5342. .o 1 0
  5343.     push_a 0
  5344.     fill ARRAY 1 _hnf 2
  5345.     pop_a 1
  5346. .d 1 0
  5347.     rtn
  5348. .o 2 0
  5349. ea23
  5350.     jsr_eval 1
  5351.     jsr_eval 0
  5352.     pushI_a 0
  5353.     pop_a 1
  5354. .o 1 1 i
  5355. e__SystemArray_screateArray;!;d
  5356.     push_a 0
  5357.     push_b 0
  5358.     update_a 0 1
  5359.     update_b 0 1
  5360.     pop_a 1
  5361.     pop_b 1
  5362.     create_array _ 1 0
  5363. .d 1 0
  5364.     rtn
  5365. .export e__SystemArray_dcreateArray;!;<5>
  5366. .export e__SystemArray_screateArray;!;<5>
  5367. .export e__SystemArray_ncreateArray;!;<5>
  5368. .desc e__SystemArray_dcreateArray;!;<5> e__SystemArray_ncreateArray;!;<5> e__SystemArray_lcreateArray;!;<5> 3 "createArray;! (5)"
  5369. .o 2 0
  5370. e__SystemArray_lcreateArray;!;<5>
  5371.     repl_args 2 2
  5372. .d 3 0
  5373.     jsr ea24
  5374. .o 1 0
  5375.     create
  5376.     push_a 1
  5377.     fill ARRAY 1 _hnf 1
  5378.     update_a 0 1
  5379.     pop_a 1
  5380. .d 1 0
  5381.     rtn
  5382. .n 3 e__SystemArray_dcreateArray;!;<5>
  5383. .o 1 0
  5384. e__SystemArray_ncreateArray;!;<5>
  5385.     push_node _cycle_in_spine 3
  5386. .d 3 0
  5387.     jsr ea24
  5388. .o 1 0
  5389.     push_a 0
  5390.     fill ARRAY 1 _hnf 2
  5391.     pop_a 1
  5392. .d 1 0
  5393.     rtn
  5394. .o 3 0
  5395. ea24
  5396.     jsr_eval 2
  5397.     jsr_eval 1
  5398.     jsr_eval 0
  5399.     pushI_a 1
  5400.     update_a 0 1
  5401.     pop_a 1
  5402. .o 2 1 i
  5403. e__SystemArray_screateArray;!;<5>
  5404.     push_a 1
  5405.     push_b 0
  5406.     push_a 1
  5407.     update_a 1 3
  5408.     update_a 0 2
  5409.     update_b 0 1
  5410.     pop_a 2
  5411.     pop_b 1
  5412.     pop_a 1
  5413.     create_array _ 1 0
  5414. .d 1 0
  5415.     rtn
  5416. .export e__SystemArray_dreplace;a;d
  5417. .export e__SystemArray_sreplace;a;d
  5418. .export e__SystemArray_nreplace;a;d
  5419. .desc e__SystemArray_dreplace;a;d e__SystemArray_nreplace;a;d e__SystemArray_lreplace;a;d 3 "replace;a (<default>)"
  5420. .o 2 0
  5421. e__SystemArray_lreplace;a;d
  5422.     repl_args 2 2
  5423. .d 3 0
  5424.     jsr ea25
  5425. .o 2 0
  5426.     create
  5427.     push_a 2
  5428.     fill ARRAY 1 _hnf 1
  5429.     push_a 1
  5430.     build _Tuple 2 _hnf
  5431.     update_a 0 2
  5432.     pop_a 2
  5433. .d 1 0
  5434.     rtn
  5435. .n 3 e__SystemArray_dreplace;a;d
  5436. .o 1 0
  5437. e__SystemArray_nreplace;a;d
  5438.     push_node _cycle_in_spine 3
  5439. .d 3 0
  5440.     jsr ea25
  5441. .o 2 0
  5442.     create
  5443.     push_a 2
  5444.     fill ARRAY 1 _hnf 1
  5445.     push_a 1
  5446.     fill _Tuple 2 _hnf 4
  5447.     pop_a 2
  5448. .d 1 0
  5449.     rtn
  5450. .o 3 0
  5451. ea25
  5452.     jsr_eval 1
  5453.     jsr_eval 0
  5454.     pushI_a 1
  5455.     push_array 0
  5456.     update_a 0 2
  5457.     pop_a 2
  5458. .o 2 1 i
  5459. e__SystemArray_sreplace;a;d
  5460.     push_a 1
  5461.     push_b 0
  5462.     push_a 1
  5463.     update_a 1 3
  5464.     update_a 0 2
  5465.     update_b 0 1
  5466.     pop_a 2
  5467.     pop_b 1
  5468.     replace _ 1 0
  5469. .d 2 0
  5470.     rtn
  5471. .export e__SystemArray_dreplace;a;<6>
  5472. .export e__SystemArray_sreplace;a;<6>
  5473. .export e__SystemArray_nreplace;a;<6>
  5474. .desc e__SystemArray_dreplace;a;<6> e__SystemArray_nreplace;a;<6> e__SystemArray_lreplace;a;<6> 4 "replace;a (6)"
  5475. .o 2 0
  5476. e__SystemArray_lreplace;a;<6>
  5477.     repl_args 3 3
  5478. .d 4 0
  5479.     jsr ea26
  5480. .o 2 0
  5481.     create
  5482.     push_a 2
  5483.     fill ARRAY 1 _hnf 1
  5484.     push_a 1
  5485.     build _Tuple 2 _hnf
  5486.     update_a 0 2
  5487.     pop_a 2
  5488. .d 1 0
  5489.     rtn
  5490. .n 4 e__SystemArray_dreplace;a;<6>
  5491. .o 1 0
  5492. e__SystemArray_nreplace;a;<6>
  5493.     push_node _cycle_in_spine 4
  5494. .d 4 0
  5495.     jsr ea26
  5496. .o 2 0
  5497.     create
  5498.     push_a 2
  5499.     fill ARRAY 1 _hnf 1
  5500.     push_a 1
  5501.     fill _Tuple 2 _hnf 4
  5502.     pop_a 2
  5503. .d 1 0
  5504.     rtn
  5505. .o 4 0
  5506. ea26
  5507.     jsr_eval 2
  5508.     jsr_eval 1
  5509.     jsr_eval 0
  5510.     pushI_a 2
  5511.     push_array 1
  5512.     update_a 0 3
  5513.     update_a 1 2
  5514.     pop_a 2
  5515. .o 3 1 i
  5516. e__SystemArray_sreplace;a;<6>
  5517.     push_a 2
  5518.     push_b 0
  5519.     push_a 2
  5520.     push_a 2
  5521.     update_a 2 5
  5522.     update_a 1 4
  5523.     update_a 0 3
  5524.     update_b 0 1
  5525.     pop_a 3
  5526.     pop_b 1
  5527.     pop_a 1
  5528.     replace _ 1 0
  5529. .d 2 0
  5530.     rtn
  5531. .export e__SystemArray_dreplace;!;d
  5532. .export e__SystemArray_sreplace;!;d
  5533. .export e__SystemArray_nreplace;!;d
  5534. .desc e__SystemArray_dreplace;!;d e__SystemArray_nreplace;!;d e__SystemArray_lreplace;!;d 3 "replace;! (<default>)"
  5535. .o 2 0
  5536. e__SystemArray_lreplace;!;d
  5537.     repl_args 2 2
  5538. .d 3 0
  5539.     jsr ea27
  5540. .o 2 0
  5541.     create
  5542.     push_a 2
  5543.     fill ARRAY 1 _hnf 1
  5544.     push_a 1
  5545.     build _Tuple 2 _hnf
  5546.     update_a 0 2
  5547.     pop_a 2
  5548. .d 1 0
  5549.     rtn
  5550. .n 3 e__SystemArray_dreplace;!;d
  5551. .o 1 0
  5552. e__SystemArray_nreplace;!;d
  5553.     push_node _cycle_in_spine 3
  5554. .d 3 0
  5555.     jsr ea27
  5556. .o 2 0
  5557.     create
  5558.     push_a 2
  5559.     fill ARRAY 1 _hnf 1
  5560.     push_a 1
  5561.     fill _Tuple 2 _hnf 4
  5562.     pop_a 2
  5563. .d 1 0
  5564.     rtn
  5565. .o 3 0
  5566. ea27
  5567.     jsr_eval 2
  5568.     jsr_eval 1
  5569.     jsr_eval 0
  5570.     pushI_a 1
  5571.     push_array 0
  5572.     update_a 0 2
  5573.     pop_a 2
  5574. .o 2 1 i
  5575. e__SystemArray_sreplace;!;d
  5576.     push_a 1
  5577.     push_b 0
  5578.     push_a 1
  5579.     update_a 1 3
  5580.     update_a 0 2
  5581.     update_b 0 1
  5582.     pop_a 2
  5583.     pop_b 1
  5584.     replace _ 1 0
  5585. .d 2 0
  5586.     rtn
  5587. .export e__SystemArray_dreplace;!;<6>
  5588. .export e__SystemArray_sreplace;!;<6>
  5589. .export e__SystemArray_nreplace;!;<6>
  5590. .desc e__SystemArray_dreplace;!;<6> e__SystemArray_nreplace;!;<6> e__SystemArray_lreplace;!;<6> 4 "replace;! (6)"
  5591. .o 2 0
  5592. e__SystemArray_lreplace;!;<6>
  5593.     repl_args 3 3
  5594. .d 4 0
  5595.     jsr ea28
  5596. .o 2 0
  5597.     create
  5598.     push_a 2
  5599.     fill ARRAY 1 _hnf 1
  5600.     push_a 1
  5601.     build _Tuple 2 _hnf
  5602.     update_a 0 2
  5603.     pop_a 2
  5604. .d 1 0
  5605.     rtn
  5606. .n 4 e__SystemArray_dreplace;!;<6>
  5607. .o 1 0
  5608. e__SystemArray_nreplace;!;<6>
  5609.     push_node _cycle_in_spine 4
  5610. .d 4 0
  5611.     jsr ea28
  5612. .o 2 0
  5613.     create
  5614.     push_a 2
  5615.     fill ARRAY 1 _hnf 1
  5616.     push_a 1
  5617.     fill _Tuple 2 _hnf 4
  5618.     pop_a 2
  5619. .d 1 0
  5620.     rtn
  5621. .o 4 0
  5622. ea28
  5623.     jsr_eval 3
  5624.     jsr_eval 2
  5625.     jsr_eval 1
  5626.     jsr_eval 0
  5627.     pushI_a 2
  5628.     push_array 1
  5629.     update_a 0 3
  5630.     update_a 1 2
  5631.     pop_a 2
  5632. .o 3 1 i
  5633. e__SystemArray_sreplace;!;<6>
  5634.     push_a 2
  5635.     push_b 0
  5636.     push_a 2
  5637.     push_a 2
  5638.     update_a 2 5
  5639.     update_a 1 4
  5640.     update_a 0 3
  5641.     update_b 0 1
  5642.     pop_a 3
  5643.     pop_b 1
  5644.     pop_a 1
  5645.     replace _ 1 0
  5646. .d 2 0
  5647.     rtn
  5648. .export e__SystemArray_dselect;a;d
  5649. .export e__SystemArray_sselect;a;d
  5650. .export e__SystemArray_nselect;a;d
  5651. .desc e__SystemArray_dselect;a;d e__SystemArray_nselect;a;d e__SystemArray_lselect;a;d 2 "select;a (<default>)"
  5652. .o 2 0
  5653. e__SystemArray_lselect;a;d
  5654.     repl_args 1 1
  5655. .d 2 0
  5656.     jmp ea29
  5657. .n 2 e__SystemArray_dselect;a;d _
  5658. .o 1 0
  5659. e__SystemArray_nselect;a;d
  5660.     push_node _cycle_in_spine 2
  5661. .d 2 0
  5662.     jsr ea29
  5663. .o 1 0
  5664.     fill_a 0 1
  5665.     pop_a 1
  5666. .d 1 0
  5667.     rtn
  5668. .o 2 0
  5669. ea29
  5670.     jsr_eval 1
  5671.     jsr_eval 0
  5672.     pushI_a 1
  5673.     push_array 0
  5674.     update_a 0 2
  5675.     pop_a 2
  5676. .o 1 1 i
  5677. e__SystemArray_sselect;a;d
  5678.     push_b 0
  5679.     push_a 0
  5680.     update_a 0 1
  5681.     update_b 0 1
  5682.     pop_a 1
  5683.     pop_b 1
  5684.     select _ 1 0
  5685.     jmp_eval
  5686. .export e__SystemArray_dselect;a;<7>
  5687. .export e__SystemArray_sselect;a;<7>
  5688. .export e__SystemArray_nselect;a;<7>
  5689. .desc e__SystemArray_dselect;a;<7> e__SystemArray_nselect;a;<7> e__SystemArray_lselect;a;<7> 3 "select;a (7)"
  5690. .o 2 0
  5691. e__SystemArray_lselect;a;<7>
  5692.     repl_args 2 2
  5693. .d 3 0
  5694.     jmp ea30
  5695. .n 3 e__SystemArray_dselect;a;<7> _
  5696. .o 1 0
  5697. e__SystemArray_nselect;a;<7>
  5698.     push_node _cycle_in_spine 3
  5699. .d 3 0
  5700.     jsr ea30
  5701. .o 1 0
  5702.     fill_a 0 1
  5703.     pop_a 1
  5704. .d 1 0
  5705.     rtn
  5706. .o 3 0
  5707. ea30
  5708.     jsr_eval 2
  5709.     jsr_eval 1
  5710.     jsr_eval 0
  5711.     pushI_a 2
  5712.     push_array 1
  5713.     update_a 0 3
  5714.     update_a 1 2
  5715.     pop_a 2
  5716. .o 2 1 i
  5717. e__SystemArray_sselect;a;<7>
  5718.     push_b 0
  5719.     push_a 1
  5720.     push_a 1
  5721.     update_a 1 3
  5722.     update_a 0 2
  5723.     update_b 0 1
  5724.     pop_a 2
  5725.     pop_b 1
  5726.     pop_a 1
  5727.     select _ 1 0
  5728.     jmp_eval
  5729. .export e__SystemArray_dselect;!;d
  5730. .export e__SystemArray_sselect;!;d
  5731. .export e__SystemArray_nselect;!;d
  5732. .desc e__SystemArray_dselect;!;d e__SystemArray_nselect;!;d e__SystemArray_lselect;!;d 2 "select;! (<default>)"
  5733. .o 2 0
  5734. e__SystemArray_lselect;!;d
  5735.     repl_args 1 1
  5736. .d 2 0
  5737.     jmp ea31
  5738. .n 2 e__SystemArray_dselect;!;d _
  5739. .o 1 0
  5740. e__SystemArray_nselect;!;d
  5741.     push_node _cycle_in_spine 2
  5742. .d 2 0
  5743.     jsr ea31
  5744. .o 1 0
  5745.     fill_a 0 1
  5746.     pop_a 1
  5747. .d 1 0
  5748.     rtn
  5749. .o 2 0
  5750. ea31
  5751.     jsr_eval 1
  5752.     jsr_eval 0
  5753.     pushI_a 1
  5754.     push_array 0
  5755.     update_a 0 2
  5756.     pop_a 2
  5757. .o 1 1 i
  5758. e__SystemArray_sselect;!;d
  5759.     push_b 0
  5760.     push_a 0
  5761.     update_a 0 1
  5762.     update_b 0 1
  5763.     pop_a 1
  5764.     pop_b 1
  5765.     select _ 1 0
  5766. .d 1 0
  5767.     rtn
  5768. .export e__SystemArray_dselect;!;<7>
  5769. .export e__SystemArray_sselect;!;<7>
  5770. .export e__SystemArray_nselect;!;<7>
  5771. .desc e__SystemArray_dselect;!;<7> e__SystemArray_nselect;!;<7> e__SystemArray_lselect;!;<7> 3 "select;! (7)"
  5772. .o 2 0
  5773. e__SystemArray_lselect;!;<7>
  5774.     repl_args 2 2
  5775. .d 3 0
  5776.     jmp ea32
  5777. .n 3 e__SystemArray_dselect;!;<7> _
  5778. .o 1 0
  5779. e__SystemArray_nselect;!;<7>
  5780.     push_node _cycle_in_spine 3
  5781. .d 3 0
  5782.     jsr ea32
  5783. .o 1 0
  5784.     fill_a 0 1
  5785.     pop_a 1
  5786. .d 1 0
  5787.     rtn
  5788. .o 3 0
  5789. ea32
  5790.     jsr_eval 2
  5791.     jsr_eval 1
  5792.     jsr_eval 0
  5793.     pushI_a 2
  5794.     push_array 1
  5795.     update_a 0 3
  5796.     update_a 1 2
  5797.     pop_a 2
  5798. .o 2 1 i
  5799. e__SystemArray_sselect;!;<7>
  5800.     push_b 0
  5801.     push_a 1
  5802.     push_a 1
  5803.     update_a 1 3
  5804.     update_a 0 2
  5805.     update_b 0 1
  5806.     pop_a 2
  5807.     pop_b 1
  5808.     pop_a 1
  5809.     select _ 1 0
  5810. .d 1 0
  5811.     rtn
  5812. .export e__SystemArray_dsize;a;d
  5813. .export e__SystemArray_ssize;a;d
  5814. .export e__SystemArray_nsize;a;d
  5815. .desc e__SystemArray_dsize;a;d e__SystemArray_nsize;a;d e__SystemArray_lsize;a;d 1 "size;a (<default>)"
  5816. .o 2 0
  5817. e__SystemArray_lsize;a;d
  5818.     pop_a 1
  5819. .d 1 0
  5820.     jsr ea33
  5821. .o 0 1 i
  5822.     buildI_b 0
  5823.     pop_b 1
  5824. .d 1 0
  5825.     rtn
  5826. .n 1 e__SystemArray_dsize;a;d
  5827. .o 1 0
  5828. e__SystemArray_nsize;a;d
  5829.     push_node _cycle_in_spine 1
  5830. .d 1 0
  5831.     jsr ea33
  5832. .o 0 1 i
  5833.     fillI_b 0 0
  5834.     pop_b 1
  5835. .d 1 0
  5836.     rtn
  5837. .o 1 0
  5838. ea33
  5839.     jsr_eval 0
  5840.     push_array 0
  5841.     update_a 0 1
  5842.     pop_a 1
  5843. .o 1 0
  5844. e__SystemArray_ssize;a;d
  5845.     push_a 0
  5846.     update_a 0 1
  5847.     pop_a 1
  5848.     push_arraysize _ 1 0
  5849. .d 0 1 i
  5850.     rtn
  5851. .export e__SystemArray_dsize;a;<8>
  5852. .export e__SystemArray_ssize;a;<8>
  5853. .export e__SystemArray_nsize;a;<8>
  5854. .desc e__SystemArray_dsize;a;<8> e__SystemArray_nsize;a;<8> e__SystemArray_lsize;a;<8> 2 "size;a (8)"
  5855. .o 2 0
  5856. e__SystemArray_lsize;a;<8>
  5857.     repl_args 1 1
  5858. .d 2 0
  5859.     jsr ea34
  5860. .o 0 1 i
  5861.     buildI_b 0
  5862.     pop_b 1
  5863. .d 1 0
  5864.     rtn
  5865. .n 2 e__SystemArray_dsize;a;<8>
  5866. .o 1 0
  5867. e__SystemArray_nsize;a;<8>
  5868.     push_node _cycle_in_spine 2
  5869. .d 2 0
  5870.     jsr ea34
  5871. .o 0 1 i
  5872.     fillI_b 0 0
  5873.     pop_b 1
  5874. .d 1 0
  5875.     rtn
  5876. .o 2 0
  5877. ea34
  5878.     jsr_eval 1
  5879.     jsr_eval 0
  5880.     push_array 1
  5881.     update_a 0 2
  5882.     pop_a 1
  5883. .o 2 0
  5884. e__SystemArray_ssize;a;<8>
  5885.     push_a 1
  5886.     push_a 1
  5887.     update_a 1 3
  5888.     update_a 0 2
  5889.     pop_a 2
  5890.     pop_a 1
  5891.     push_arraysize _ 1 0
  5892. .d 0 1 i
  5893.     rtn
  5894. .export e__SystemArray_dsize;!;d
  5895. .export e__SystemArray_ssize;!;d
  5896. .export e__SystemArray_nsize;!;d
  5897. .desc e__SystemArray_dsize;!;d e__SystemArray_nsize;!;d e__SystemArray_lsize;!;d 1 "size;! (<default>)"
  5898. .o 2 0
  5899. e__SystemArray_lsize;!;d
  5900.     pop_a 1
  5901. .d 1 0
  5902.     jsr ea35
  5903. .o 0 1 i
  5904.     buildI_b 0
  5905.     pop_b 1
  5906. .d 1 0
  5907.     rtn
  5908. .n 1 e__SystemArray_dsize;!;d
  5909. .o 1 0
  5910. e__SystemArray_nsize;!;d
  5911.     push_node _cycle_in_spine 1
  5912. .d 1 0
  5913.     jsr ea35
  5914. .o 0 1 i
  5915.     fillI_b 0 0
  5916.     pop_b 1
  5917. .d 1 0
  5918.     rtn
  5919. .o 1 0
  5920. ea35
  5921.     jsr_eval 0
  5922.     push_array 0
  5923.     update_a 0 1
  5924.     pop_a 1
  5925. .o 1 0
  5926. e__SystemArray_ssize;!;d
  5927.     push_a 0
  5928.     update_a 0 1
  5929.     pop_a 1
  5930.     push_arraysize _ 1 0
  5931. .d 0 1 i
  5932.     rtn
  5933. .export e__SystemArray_dsize;!;<8>
  5934. .export e__SystemArray_ssize;!;<8>
  5935. .export e__SystemArray_nsize;!;<8>
  5936. .desc e__SystemArray_dsize;!;<8> e__SystemArray_nsize;!;<8> e__SystemArray_lsize;!;<8> 2 "size;! (8)"
  5937. .o 2 0
  5938. e__SystemArray_lsize;!;<8>
  5939.     repl_args 1 1
  5940. .d 2 0
  5941.     jsr ea36
  5942. .o 0 1 i
  5943.     buildI_b 0
  5944.     pop_b 1
  5945. .d 1 0
  5946.     rtn
  5947. .n 2 e__SystemArray_dsize;!;<8>
  5948. .o 1 0
  5949. e__SystemArray_nsize;!;<8>
  5950.     push_node _cycle_in_spine 2
  5951. .d 2 0
  5952.     jsr ea36
  5953. .o 0 1 i
  5954.     fillI_b 0 0
  5955.     pop_b 1
  5956. .d 1 0
  5957.     rtn
  5958. .o 2 0
  5959. ea36
  5960.     jsr_eval 1
  5961.     jsr_eval 0
  5962.     push_array 1
  5963.     update_a 0 2
  5964.     pop_a 1
  5965. .o 2 0
  5966. e__SystemArray_ssize;!;<8>
  5967.     push_a 1
  5968.     push_a 1
  5969.     update_a 1 3
  5970.     update_a 0 2
  5971.     pop_a 2
  5972.     pop_a 1
  5973.     push_arraysize _ 1 0
  5974. .d 0 1 i
  5975.     rtn
  5976. .export e__SystemArray_dupdate;a;d
  5977. .export e__SystemArray_supdate;a;d
  5978. .export e__SystemArray_nupdate;a;d
  5979. .desc e__SystemArray_dupdate;a;d e__SystemArray_nupdate;a;d e__SystemArray_lupdate;a;d 3 "update;a (<default>)"
  5980. .o 2 0
  5981. e__SystemArray_lupdate;a;d
  5982.     repl_args 2 2
  5983. .d 3 0
  5984.     jsr ea37
  5985. .o 1 0
  5986.     create
  5987.     push_a 1
  5988.     fill ARRAY 1 _hnf 1
  5989.     update_a 0 1
  5990.     pop_a 1
  5991. .d 1 0
  5992.     rtn
  5993. .n 3 e__SystemArray_dupdate;a;d
  5994. .o 1 0
  5995. e__SystemArray_nupdate;a;d
  5996.     push_node _cycle_in_spine 3
  5997. .d 3 0
  5998.     jsr ea37
  5999. .o 1 0
  6000.     push_a 0
  6001.     fill ARRAY 1 _hnf 2
  6002.     pop_a 1
  6003. .d 1 0
  6004.     rtn
  6005. .o 3 0
  6006. ea37
  6007.     jsr_eval 1
  6008.     jsr_eval 0
  6009.     pushI_a 1
  6010.     push_array 0
  6011.     update_a 0 2
  6012.     pop_a 2
  6013. .o 2 1 i
  6014. e__SystemArray_supdate;a;d
  6015.     push_a 1
  6016.     push_b 0
  6017.     push_a 1
  6018.     update_a 1 3
  6019.     update_a 0 2
  6020.     update_b 0 1
  6021.     pop_a 2
  6022.     pop_b 1
  6023.     update _ 1 0
  6024. .d 1 0
  6025.     rtn
  6026. .export e__SystemArray_dupdate;a;<9>
  6027. .export e__SystemArray_supdate;a;<9>
  6028. .export e__SystemArray_nupdate;a;<9>
  6029. .desc e__SystemArray_dupdate;a;<9> e__SystemArray_nupdate;a;<9> e__SystemArray_lupdate;a;<9> 4 "update;a (9)"
  6030. .o 2 0
  6031. e__SystemArray_lupdate;a;<9>
  6032.     repl_args 3 3
  6033. .d 4 0
  6034.     jsr ea38
  6035. .o 1 0
  6036.     create
  6037.     push_a 1
  6038.     fill ARRAY 1 _hnf 1
  6039.     update_a 0 1
  6040.     pop_a 1
  6041. .d 1 0
  6042.     rtn
  6043. .n 4 e__SystemArray_dupdate;a;<9>
  6044. .o 1 0
  6045. e__SystemArray_nupdate;a;<9>
  6046.     push_node _cycle_in_spine 4
  6047. .d 4 0
  6048.     jsr ea38
  6049. .o 1 0
  6050.     push_a 0
  6051.     fill ARRAY 1 _hnf 2
  6052.     pop_a 1
  6053. .d 1 0
  6054.     rtn
  6055. .o 4 0
  6056. ea38
  6057.     jsr_eval 2
  6058.     jsr_eval 1
  6059.     jsr_eval 0
  6060.     pushI_a 2
  6061.     push_array 1
  6062.     update_a 0 3
  6063.     update_a 1 2
  6064.     pop_a 2
  6065. .o 3 1 i
  6066. e__SystemArray_supdate;a;<9>
  6067.     push_a 2
  6068.     push_b 0
  6069.     push_a 2
  6070.     push_a 2
  6071.     update_a 2 5
  6072.     update_a 1 4
  6073.     update_a 0 3
  6074.     update_b 0 1
  6075.     pop_a 3
  6076.     pop_b 1
  6077.     pop_a 1
  6078.     update _ 1 0
  6079. .d 1 0
  6080.     rtn
  6081. .export e__SystemArray_dupdate;!;d
  6082. .export e__SystemArray_supdate;!;d
  6083. .export e__SystemArray_nupdate;!;d
  6084. .desc e__SystemArray_dupdate;!;d e__SystemArray_nupdate;!;d e__SystemArray_lupdate;!;d 3 "update;! (<default>)"
  6085. .o 2 0
  6086. e__SystemArray_lupdate;!;d
  6087.     repl_args 2 2
  6088. .d 3 0
  6089.     jsr ea39
  6090. .o 1 0
  6091.     create
  6092.     push_a 1
  6093.     fill ARRAY 1 _hnf 1
  6094.     update_a 0 1
  6095.     pop_a 1
  6096. .d 1 0
  6097.     rtn
  6098. .n 3 e__SystemArray_dupdate;!;d
  6099. .o 1 0
  6100. e__SystemArray_nupdate;!;d
  6101.     push_node _cycle_in_spine 3
  6102. .d 3 0
  6103.     jsr ea39
  6104. .o 1 0
  6105.     push_a 0
  6106.     fill ARRAY 1 _hnf 2
  6107.     pop_a 1
  6108. .d 1 0
  6109.     rtn
  6110. .o 3 0
  6111. ea39
  6112.     jsr_eval 2
  6113.     jsr_eval 1
  6114.     jsr_eval 0
  6115.     pushI_a 1
  6116.     push_array 0
  6117.     update_a 0 2
  6118.     pop_a 2
  6119. .o 2 1 i
  6120. e__SystemArray_supdate;!;d
  6121.     push_a 1
  6122.     push_b 0
  6123.     push_a 1
  6124.     update_a 1 3
  6125.     update_a 0 2
  6126.     update_b 0 1
  6127.     pop_a 2
  6128.     pop_b 1
  6129.     update _ 1 0
  6130. .d 1 0
  6131.     rtn
  6132. .export e__SystemArray_dupdate;!;<9>
  6133. .export e__SystemArray_supdate;!;<9>
  6134. .export e__SystemArray_nupdate;!;<9>
  6135. .desc e__SystemArray_dupdate;!;<9> e__SystemArray_nupdate;!;<9> e__SystemArray_lupdate;!;<9> 4 "update;! (9)"
  6136. .o 2 0
  6137. e__SystemArray_lupdate;!;<9>
  6138.     repl_args 3 3
  6139. .d 4 0
  6140.     jsr ea40
  6141. .o 1 0
  6142.     create
  6143.     push_a 1
  6144.     fill ARRAY 1 _hnf 1
  6145.     update_a 0 1
  6146.     pop_a 1
  6147. .d 1 0
  6148.     rtn
  6149. .n 4 e__SystemArray_dupdate;!;<9>
  6150. .o 1 0
  6151. e__SystemArray_nupdate;!;<9>
  6152.     push_node _cycle_in_spine 4
  6153. .d 4 0
  6154.     jsr ea40
  6155. .o 1 0
  6156.     push_a 0
  6157.     fill ARRAY 1 _hnf 2
  6158.     pop_a 1
  6159. .d 1 0
  6160.     rtn
  6161. .o 4 0
  6162. ea40
  6163.     jsr_eval 3
  6164.     jsr_eval 2
  6165.     jsr_eval 1
  6166.     jsr_eval 0
  6167.     pushI_a 2
  6168.     push_array 1
  6169.     update_a 0 3
  6170.     update_a 1 2
  6171.     pop_a 2
  6172. .o 3 1 i
  6173. e__SystemArray_supdate;!;<9>
  6174.     push_a 2
  6175.     push_b 0
  6176.     push_a 2
  6177.     push_a 2
  6178.     update_a 2 5
  6179.     update_a 1 4
  6180.     update_a 0 3
  6181.     update_b 0 1
  6182.     pop_a 3
  6183.     pop_b 1
  6184.     pop_a 1
  6185.     update _ 1 0
  6186. .d 1 0
  6187.     rtn
  6188. .export e__SystemArray_duselect;a;d
  6189. .export e__SystemArray_suselect;a;d
  6190. .export e__SystemArray_nuselect;a;d
  6191. .desc e__SystemArray_duselect;a;d e__SystemArray_nuselect;a;d e__SystemArray_luselect;a;d 2 "uselect;a (<default>)"
  6192. .o 2 0
  6193. e__SystemArray_luselect;a;d
  6194.     repl_args 1 1
  6195. .d 2 0
  6196.     jsr ea41
  6197. .o 2 0
  6198.     create
  6199.     push_a 2
  6200.     fill ARRAY 1 _hnf 1
  6201.     push_a 1
  6202.     build _Tuple 2 _hnf
  6203.     update_a 0 2
  6204.     pop_a 2
  6205. .d 1 0
  6206.     rtn
  6207. .n 2 e__SystemArray_duselect;a;d
  6208. .o 1 0
  6209. e__SystemArray_nuselect;a;d
  6210.     push_node _cycle_in_spine 2
  6211. .d 2 0
  6212.     jsr ea41
  6213. .o 2 0
  6214.     create
  6215.     push_a 2
  6216.     fill ARRAY 1 _hnf 1
  6217.     push_a 1
  6218.     fill _Tuple 2 _hnf 4
  6219.     pop_a 2
  6220. .d 1 0
  6221.     rtn
  6222. .o 2 0
  6223. ea41
  6224.     jsr_eval 1
  6225.     jsr_eval 0
  6226.     pushI_a 1
  6227.     push_array 0
  6228.     update_a 0 2
  6229.     pop_a 2
  6230. .o 1 1 i
  6231. e__SystemArray_suselect;a;d
  6232.     push_b 0
  6233.     push_a 0
  6234.     update_a 0 1
  6235.     update_b 0 1
  6236.     pop_a 1
  6237.     pop_b 1
  6238.     push_a 0
  6239.     select _ 1 0
  6240. .d 2 0
  6241.     rtn
  6242. .export e__SystemArray_duselect;a;<10>
  6243. .export e__SystemArray_suselect;a;<10>
  6244. .export e__SystemArray_nuselect;a;<10>
  6245. .desc e__SystemArray_duselect;a;<10> e__SystemArray_nuselect;a;<10> e__SystemArray_luselect;a;<10> 3 "uselect;a (10)"
  6246. .o 2 0
  6247. e__SystemArray_luselect;a;<10>
  6248.     repl_args 2 2
  6249. .d 3 0
  6250.     jsr ea42
  6251. .o 2 0
  6252.     create
  6253.     push_a 2
  6254.     fill ARRAY 1 _hnf 1
  6255.     push_a 1
  6256.     build _Tuple 2 _hnf
  6257.     update_a 0 2
  6258.     pop_a 2
  6259. .d 1 0
  6260.     rtn
  6261. .n 3 e__SystemArray_duselect;a;<10>
  6262. .o 1 0
  6263. e__SystemArray_nuselect;a;<10>
  6264.     push_node _cycle_in_spine 3
  6265. .d 3 0
  6266.     jsr ea42
  6267. .o 2 0
  6268.     create
  6269.     push_a 2
  6270.     fill ARRAY 1 _hnf 1
  6271.     push_a 1
  6272.     fill _Tuple 2 _hnf 4
  6273.     pop_a 2
  6274. .d 1 0
  6275.     rtn
  6276. .o 3 0
  6277. ea42
  6278.     jsr_eval 2
  6279.     jsr_eval 1
  6280.     jsr_eval 0
  6281.     pushI_a 2
  6282.     push_array 1
  6283.     update_a 0 3
  6284.     update_a 1 2
  6285.     pop_a 2
  6286. .o 2 1 i
  6287. e__SystemArray_suselect;a;<10>
  6288.     push_b 0
  6289.     push_a 1
  6290.     push_a 1
  6291.     update_a 1 3
  6292.     update_a 0 2
  6293.     update_b 0 1
  6294.     pop_a 2
  6295.     pop_b 1
  6296.     pop_a 1
  6297.     push_a 0
  6298.     select _ 1 0
  6299. .d 2 0
  6300.     rtn
  6301. .export e__SystemArray_duselect;!;d
  6302. .export e__SystemArray_suselect;!;d
  6303. .export e__SystemArray_nuselect;!;d
  6304. .desc e__SystemArray_duselect;!;d e__SystemArray_nuselect;!;d e__SystemArray_luselect;!;d 2 "uselect;! (<default>)"
  6305. .o 2 0
  6306. e__SystemArray_luselect;!;d
  6307.     repl_args 1 1
  6308. .d 2 0
  6309.     jsr ea43
  6310. .o 2 0
  6311.     create
  6312.     push_a 2
  6313.     fill ARRAY 1 _hnf 1
  6314.     push_a 1
  6315.     build _Tuple 2 _hnf
  6316.     update_a 0 2
  6317.     pop_a 2
  6318. .d 1 0
  6319.     rtn
  6320. .n 2 e__SystemArray_duselect;!;d
  6321. .o 1 0
  6322. e__SystemArray_nuselect;!;d
  6323.     push_node _cycle_in_spine 2
  6324. .d 2 0
  6325.     jsr ea43
  6326. .o 2 0
  6327.     create
  6328.     push_a 2
  6329.     fill ARRAY 1 _hnf 1
  6330.     push_a 1
  6331.     fill _Tuple 2 _hnf 4
  6332.     pop_a 2
  6333. .d 1 0
  6334.     rtn
  6335. .o 2 0
  6336. ea43
  6337.     jsr_eval 1
  6338.     jsr_eval 0
  6339.     pushI_a 1
  6340.     push_array 0
  6341.     update_a 0 2
  6342.     pop_a 2
  6343. .o 1 1 i
  6344. e__SystemArray_suselect;!;d
  6345.     push_b 0
  6346.     push_a 0
  6347.     update_a 0 1
  6348.     update_b 0 1
  6349.     pop_a 1
  6350.     pop_b 1
  6351.     push_a 0
  6352.     select _ 1 0
  6353. .d 2 0
  6354.     rtn
  6355. .export e__SystemArray_duselect;!;<10>
  6356. .export e__SystemArray_suselect;!;<10>
  6357. .export e__SystemArray_nuselect;!;<10>
  6358. .desc e__SystemArray_duselect;!;<10> e__SystemArray_nuselect;!;<10> e__SystemArray_luselect;!;<10> 3 "uselect;! (10)"
  6359. .o 2 0
  6360. e__SystemArray_luselect;!;<10>
  6361.     repl_args 2 2
  6362. .d 3 0
  6363.     jsr ea44
  6364. .o 2 0
  6365.     create
  6366.     push_a 2
  6367.     fill ARRAY 1 _hnf 1
  6368.     push_a 1
  6369.     build _Tuple 2 _hnf
  6370.     update_a 0 2
  6371.     pop_a 2
  6372. .d 1 0
  6373.     rtn
  6374. .n 3 e__SystemArray_duselect;!;<10>
  6375. .o 1 0
  6376. e__SystemArray_nuselect;!;<10>
  6377.     push_node _cycle_in_spine 3
  6378. .d 3 0
  6379.     jsr ea44
  6380. .o 2 0
  6381.     create
  6382.     push_a 2
  6383.     fill ARRAY 1 _hnf 1
  6384.     push_a 1
  6385.     fill _Tuple 2 _hnf 4
  6386.     pop_a 2
  6387. .d 1 0
  6388.     rtn
  6389. .o 3 0
  6390. ea44
  6391.     jsr_eval 2
  6392.     jsr_eval 1
  6393.     jsr_eval 0
  6394.     pushI_a 2
  6395.     push_array 1
  6396.     update_a 0 3
  6397.     update_a 1 2
  6398.     pop_a 2
  6399. .o 2 1 i
  6400. e__SystemArray_suselect;!;<10>
  6401.     push_b 0
  6402.     push_a 1
  6403.     push_a 1
  6404.     update_a 1 3
  6405.     update_a 0 2
  6406.     update_b 0 1
  6407.     pop_a 2
  6408.     pop_b 1
  6409.     pop_a 1
  6410.     push_a 0
  6411.     select _ 1 0
  6412. .d 2 0
  6413.     rtn
  6414. .export e__SystemArray_dusize;a;d
  6415. .export e__SystemArray_susize;a;d
  6416. .export e__SystemArray_nusize;a;d
  6417. .desc e__SystemArray_dusize;a;d e__SystemArray_nusize;a;d e__SystemArray_lusize;a;d 1 "usize;a (<default>)"
  6418. .o 2 0
  6419. e__SystemArray_lusize;a;d
  6420.     pop_a 1
  6421. .d 1 0
  6422.     jsr ea45
  6423. .o 1 1 i
  6424.     create
  6425.     push_a 1
  6426.     fill ARRAY 1 _hnf 1
  6427.     buildI_b 0
  6428.     build _Tuple 2 _hnf
  6429.     update_a 0 1
  6430.     pop_a 1
  6431.     pop_b 1
  6432. .d 1 0
  6433.     rtn
  6434. .n 1 e__SystemArray_dusize;a;d
  6435. .o 1 0
  6436. e__SystemArray_nusize;a;d
  6437.     push_node _cycle_in_spine 1
  6438. .d 1 0
  6439.     jsr ea45
  6440. .o 1 1 i
  6441.     create
  6442.     push_a 1
  6443.     fill ARRAY 1 _hnf 1
  6444.     buildI_b 0
  6445.     fill _Tuple 2 _hnf 3
  6446.     pop_a 1
  6447.     pop_b 1
  6448. .d 1 0
  6449.     rtn
  6450. .o 1 0
  6451. ea45
  6452.     jsr_eval 0
  6453.     push_array 0
  6454.     update_a 0 1
  6455.     pop_a 1
  6456. .o 1 0
  6457. e__SystemArray_susize;a;d
  6458.     push_a 0
  6459.     update_a 0 1
  6460.     pop_a 1
  6461.     push_a 0
  6462.     push_arraysize _ 1 0
  6463. .d 1 1 i
  6464.     rtn
  6465. .export e__SystemArray_dusize;a;<11>
  6466. .export e__SystemArray_susize;a;<11>
  6467. .export e__SystemArray_nusize;a;<11>
  6468. .desc e__SystemArray_dusize;a;<11> e__SystemArray_nusize;a;<11> e__SystemArray_lusize;a;<11> 2 "usize;a (11)"
  6469. .o 2 0
  6470. e__SystemArray_lusize;a;<11>
  6471.     repl_args 1 1
  6472. .d 2 0
  6473.     jsr ea46
  6474. .o 1 1 i
  6475.     create
  6476.     push_a 1
  6477.     fill ARRAY 1 _hnf 1
  6478.     buildI_b 0
  6479.     build _Tuple 2 _hnf
  6480.     update_a 0 1
  6481.     pop_a 1
  6482.     pop_b 1
  6483. .d 1 0
  6484.     rtn
  6485. .n 2 e__SystemArray_dusize;a;<11>
  6486. .o 1 0
  6487. e__SystemArray_nusize;a;<11>
  6488.     push_node _cycle_in_spine 2
  6489. .d 2 0
  6490.     jsr ea46
  6491. .o 1 1 i
  6492.     create
  6493.     push_a 1
  6494.     fill ARRAY 1 _hnf 1
  6495.     buildI_b 0
  6496.     fill _Tuple 2 _hnf 3
  6497.     pop_a 1
  6498.     pop_b 1
  6499. .d 1 0
  6500.     rtn
  6501. .o 2 0
  6502. ea46
  6503.     jsr_eval 1
  6504.     jsr_eval 0
  6505.     push_array 1
  6506.     update_a 0 2
  6507.     pop_a 1
  6508. .o 2 0
  6509. e__SystemArray_susize;a;<11>
  6510.     push_a 1
  6511.     push_a 1
  6512.     update_a 1 3
  6513.     update_a 0 2
  6514.     pop_a 2
  6515.     pop_a 1
  6516.     push_a 0
  6517.     push_arraysize _ 1 0
  6518. .d 1 1 i
  6519.     rtn
  6520. .export e__SystemArray_dusize;!;d
  6521. .export e__SystemArray_susize;!;d
  6522. .export e__SystemArray_nusize;!;d
  6523. .desc e__SystemArray_dusize;!;d e__SystemArray_nusize;!;d e__SystemArray_lusize;!;d 1 "usize;! (<default>)"
  6524. .o 2 0
  6525. e__SystemArray_lusize;!;d
  6526.     pop_a 1
  6527. .d 1 0
  6528.     jsr ea47
  6529. .o 1 1 i
  6530.     create
  6531.     push_a 1
  6532.     fill ARRAY 1 _hnf 1
  6533.     buildI_b 0
  6534.     build _Tuple 2 _hnf
  6535.     update_a 0 1
  6536.     pop_a 1
  6537.     pop_b 1
  6538. .d 1 0
  6539.     rtn
  6540. .n 1 e__SystemArray_dusize;!;d
  6541. .o 1 0
  6542. e__SystemArray_nusize;!;d
  6543.     push_node _cycle_in_spine 1
  6544. .d 1 0
  6545.     jsr ea47
  6546. .o 1 1 i
  6547.     create
  6548.     push_a 1
  6549.     fill ARRAY 1 _hnf 1
  6550.     buildI_b 0
  6551.     fill _Tuple 2 _hnf 3
  6552.     pop_a 1
  6553.     pop_b 1
  6554. .d 1 0
  6555.     rtn
  6556. .o 1 0
  6557. ea47
  6558.     jsr_eval 0
  6559.     push_array 0
  6560.     update_a 0 1
  6561.     pop_a 1
  6562. .o 1 0
  6563. e__SystemArray_susize;!;d
  6564.     push_a 0
  6565.     update_a 0 1
  6566.     pop_a 1
  6567.     push_a 0
  6568.     push_arraysize _ 1 0
  6569. .d 1 1 i
  6570.     rtn
  6571. .export e__SystemArray_dusize;!;<11>
  6572. .export e__SystemArray_susize;!;<11>
  6573. .export e__SystemArray_nusize;!;<11>
  6574. .desc e__SystemArray_dusize;!;<11> e__SystemArray_nusize;!;<11> e__SystemArray_lusize;!;<11> 2 "usize;! (11)"
  6575. .o 2 0
  6576. e__SystemArray_lusize;!;<11>
  6577.     repl_args 1 1
  6578. .d 2 0
  6579.     jsr ea48
  6580. .o 1 1 i
  6581.     create
  6582.     push_a 1
  6583.     fill ARRAY 1 _hnf 1
  6584.     buildI_b 0
  6585.     build _Tuple 2 _hnf
  6586.     update_a 0 1
  6587.     pop_a 1
  6588.     pop_b 1
  6589. .d 1 0
  6590.     rtn
  6591. .n 2 e__SystemArray_dusize;!;<11>
  6592. .o 1 0
  6593. e__SystemArray_nusize;!;<11>
  6594.     push_node _cycle_in_spine 2
  6595. .d 2 0
  6596.     jsr ea48
  6597. .o 1 1 i
  6598.     create
  6599.     push_a 1
  6600.     fill ARRAY 1 _hnf 1
  6601.     buildI_b 0
  6602.     fill _Tuple 2 _hnf 3
  6603.     pop_a 1
  6604.     pop_b 1
  6605. .d 1 0
  6606.     rtn
  6607. .o 2 0
  6608. ea48
  6609.     jsr_eval 1
  6610.     jsr_eval 0
  6611.     push_array 1
  6612.     update_a 0 2
  6613.     pop_a 1
  6614. .o 2 0
  6615. e__SystemArray_susize;!;<11>
  6616.     push_a 1
  6617.     push_a 1
  6618.     update_a 1 3
  6619.     update_a 0 2
  6620.     pop_a 2
  6621.     pop_a 1
  6622.     push_a 0
  6623.     push_arraysize _ 1 0
  6624. .d 1 1 i
  6625.     rtn
  6626.