feat(compiler): GENZ80.MOD draft v1 + trigger closed + NATIVE found

1010 lines: emit core, regalloc, operators/statements from original
genz80.mcd (hardened disassembler). Trigger chain closed via
original media: shell bit2 -> scanOptions -> word2 -> (PASS1
epilogue) nativeCodeRequested. NATIVE module bundled in-file
(disasm saved). Harness ignores qualified externals.

docs/compiler/disasm/genz80.txt

@@ -0,0 +1,5831 @@
+module start at 39ec
+39ec : Module INTELL
+	depends on SCANNER 
+	depends on NATIVE 
+	depends on COMPILER 
+	depends on COMLINE 
+	depends on  
+
+INTELL.INTELL: 3966
+INTELL.CODE1 : 1b1b
+INTELL.CODE11: 1b43
+INTELL.CODE11: 1b7d
+INTELL.CODE11: 1bc7
+INTELL.CODE2 : 1c23
+INTELL.CODE12: 1c62
+INTELL.PUTCOD: 1a8c
+INTELL.WRITEC: 1d10
+INTELL.PUSHTO: 1dc9
+INTELL.POPTOP: 1dda
+INTELL.MAKEHA: 1dec
+INTELL.USEREG: 1ef8
+INTELL.ADDRES: 1f54
+INTELL.STORER: 1f6e
+INTELL.POPREG: 1ff9
+INTELL.REGALL: 205e
+INTELL.RESREG: 2101
+INTELL.NORMRE: 2113
+INTELL.DESTRO: 21c3
+INTELL.DROPRE: 21da
+INTELL.GETUSE: 223d
+INTELL.CONDJM: 26ea
+INTELL.LOAD  : 2c93
+INTELL.INPOUT: 25fb
+INTELL.STOREV: 33db
+INTELL.STORES: 37af
+INTELL.WRITEH: 1a35
+INTELL.FLUSHC: 1a41
+INTELL.WRITEN: 1b02
+INTELL.CODE11: 1cb1
+INTELL.EVEN  : 1d39
+INTELL.MOVREG: 1d4c
+INTELL.SWAPOP: 1dae
+INTELL.INREG : 1e00
+INTELL.POPREG: 1e47
+INTELL.LOOKIF: 1e92
+INTELL.SCRATC: 21e6
+INTELL.USESCR: 222c
+INTELL.NILT  : 2255
+INTELL.RR    : 22bd
+INTELL.DISPOS: 22f9
+INTELL.PREADD: 23d2
+INTELL.PRELUD: 2329
+INTELL.ACC   : 23af
+INTELL.LDAOP1: 2569
+INTELL.OPERAT: 25b0
+INTELL.LOADOP: 26b1
+INTELL.OVERFL: 2b3d
+INTELL.OPERAT: 2b70
+INTELL.ADDOP : 2b8e
+INTELL.MOVEVA: 3344
+
+
+1a35  d4 f9     enter -7
+1a37  95        load immediate 5
+1a38  d2        reserve
+1a39  32        store local word-2
+1a3a  8a        leave4
+1a3b  77        store stack word7
+1a3c  72        store stack word2
+1a3d  64        load stack word4
+1a3e  0c 00     load SCANNER.word0
+1a40  00        Error16
+1a41  d4 fb     enter -5
+1a43  8d 10     load immediate 16
+1a45  d2        reserve
+1a46  32        store local word-2
+1a47  4f        load global word15
+1a48  ab        eq0
+1a49  e3 0e     jpfalse 1a59
+1a4b  0c 24     load COMPILER.word4
+1a4d  22        load local word-2
+1a4e  8d 10     load immediate 16
+1a50  ef 00 10  call SCANNER.proc16
+1a53  8e f0 03  load immediate 1008
+1a56  33        store local word-3
+1a57  e2 04     jp 1a5d
+1a59  8e 00 04  load immediate 1024
+1a5c  33        store local word-3
+1a5d  0c 24     load COMPILER.word4
+1a5f  4f        load global word15
+1a60  8d 10     load immediate 16
+1a62  c0        uadd_checked
+1a63  90        load immediate 0
+1a64  21        swap
+1a65  ef 00 13  call SCANNER.proc19
+1a68  0c 24     load COMPILER.word4
+1a6a  2d 11     load global word 17
+1a6c  23        load local word-3
+1a6d  ef 00 10  call SCANNER.proc16
+1a70  4f        load global word15
+1a71  23        load local word-3
+1a72  c0        uadd_checked
+1a73  5f        store global word15
+1a74  2d 10     load global word 16
+1a76  23        load local word-3
+1a77  c0        uadd_checked
+1a78  3d 10     store global word 16
+1a7a  2d 11     load global word 17
+1a7c  23        load local word-3
+1a7d  c0        uadd_checked
+1a7e  2d 11     load global word 17
+1a80  42        load global word2
+1a81  4f        load global word15
+1a82  c1        usub_checked
+1a83  40 0e     MOVE
+1a85  88        leave0
+1a86  33        store local word-3
+1a87  6e        load stack word14
+1a88  02 13     load proc_addr proc19
+1a8a  00        Error16
+1a8b  00        Error16
+1a8c  d4 fd     enter -3
+1a8e  04        load param2
+1a8f  4f        load global word15
+1a90  a5        ugreater_or_equal
+1a91  e3 41     jpfalse 1ad4
+1a93  2d 11     load global word 17
+1a95  04        load param2
+1a96  4f        load global word15
+1a97  c1        usub_checked
+1a98  8e ff 07  load immediate 2047
+1a9b  dc        limit_check
+1a9c  0d        load indexed byte
+1a9d  2d 11     load global word 17
+1a9f  04        load param2
+1aa0  4f        load global word15
+1aa1  c1        usub_checked
+1aa2  91        load immediate 1
+1aa3  c0        uadd_checked
+1aa4  8e ff 07  load immediate 2047
+1aa7  dc        limit_check
+1aa8  0d        load indexed byte
+1aa9  8e 00 01  load immediate 256
+1aac  c2        umul_checked
+1aad  c0        uadd_checked
+1aae  32        store local word-2
+1aaf  2d 11     load global word 17
+1ab1  04        load param2
+1ab2  4f        load global word15
+1ab3  c1        usub_checked
+1ab4  8e ff 07  load immediate 2047
+1ab7  dc        limit_check
+1ab8  03        load param1
+1ab9  8d ff     load immediate 255
+1abb  e8        bitwise_and
+1abc  8d ff     load immediate 255
+1abe  dc        limit_check
+1abf  1d        store indexed byte
+1ac0  2d 11     load global word 17
+1ac2  04        load param2
+1ac3  4f        load global word15
+1ac4  c1        usub_checked
+1ac5  91        load immediate 1
+1ac6  c0        uadd_checked
+1ac7  8e ff 07  load immediate 2047
+1aca  dc        limit_check
+1acb  03        load param1
+1acc  b1 08     shr 8
+1ace  8d ff     load immediate 255
+1ad0  dc        limit_check
+1ad1  1d        store indexed byte
+1ad2  e2 21     jp 1af5
+1ad4  0c 24     load COMPILER.word4
+1ad6  04        load param2
+1ad7  8d 10     load immediate 16
+1ad9  c0        uadd_checked
+1ada  90        load immediate 0
+1adb  21        swap
+1adc  ef 00 13  call SCANNER.proc19
+1adf  0c 24     load COMPILER.word4
+1ae1  80 fe     load local address -2
+1ae3  f0 0a     call SCANNER.proc10
+1ae5  0c 24     load COMPILER.word4
+1ae7  04        load param2
+1ae8  8d 10     load immediate 16
+1aea  c0        uadd_checked
+1aeb  90        load immediate 0
+1aec  21        swap
+1aed  ef 00 13  call SCANNER.proc19
+1af0  0c 24     load COMPILER.word4
+1af2  03        load param1
+1af3  f0 0e     call SCANNER.proc14
+1af5  22        load local word-2
+1af6  85 82     fct_leave 130
+1af8  99        load immediate 9
+1af9  90        load immediate 0
+1afa  90        load immediate 0
+1afb  01        Raise
+1afc  bc        abs
+1afd  2f ff 49  load þœ@&­·¬.word73
+1b00  00        Error16
+1b01  00        Error16
+1b02  d4 ff     enter -1
+1b04  92        load immediate 2
+1b05  f0 3e     call COMLINE.proc14
+1b07  42        load global word2
+1b08  94        load immediate 4
+1b09  ed 1b     call proc27
+1b0b  92        load immediate 2
+1b0c  8c 03  .. load immediate string " : "
+1b11  92        load immediate 2
+1b12  f0 39     call COMLINE.proc9
+1b14  88        leave0
+1b15  02 13     load proc_addr proc19
+1b17  ba        long_to_card
+1b18  d4 00     enter +0
+1b1a  00        Error16
+1b1b  d4 ff     enter -1
+1b1d  0c 13     load NATIVE.word3
+1b1f  e3 01     jpfalse 1b22
+1b21  89        leave2
+1b22  42        load global word2
+1b23  2d 10     load global word 16
+1b25  a5        ugreater_or_equal
+1b26  e3 02     jpfalse 1b2a
+1b28  ed 1c     call proc28
+1b2a  2d 11     load global word 17
+1b2c  42        load global word2
+1b2d  4f        load global word15
+1b2e  c1        usub_checked
+1b2f  8e ff 07  load immediate 2047
+1b32  dc        limit_check
+1b33  03        load param1
+1b34  8d ff     load immediate 255
+1b36  dc        limit_check
+1b37  1d        store indexed byte
+1b38  42        load global word2
+1b39  91        load immediate 1
+1b3a  c0        uadd_checked
+1b3b  52        store global word2
+1b3c  89        leave2
+1b3d  02 13     load proc_addr proc19
+1b3f  52        store global word2
+1b40  9c        load immediate 12
+1b41  00        Error16
+1b42  00        Error16
+1b43  d4 ff     enter -1
+1b45  0c 13     load NATIVE.word3
+1b47  e3 01     jpfalse 1b4a
+1b49  8a        leave4
+1b4a  42        load global word2
+1b4b  91        load immediate 1
+1b4c  c0        uadd_checked
+1b4d  2d 10     load global word 16
+1b4f  a5        ugreater_or_equal
+1b50  e3 02     jpfalse 1b54
+1b52  ed 1c     call proc28
+1b54  2d 11     load global word 17
+1b56  42        load global word2
+1b57  4f        load global word15
+1b58  c1        usub_checked
+1b59  8e ff 07  load immediate 2047
+1b5c  dc        limit_check
+1b5d  04        load param2
+1b5e  8d ff     load immediate 255
+1b60  dc        limit_check
+1b61  1d        store indexed byte
+1b62  2d 11     load global word 17
+1b64  42        load global word2
+1b65  4f        load global word15
+1b66  c1        usub_checked
+1b67  91        load immediate 1
+1b68  c0        uadd_checked
+1b69  8e ff 07  load immediate 2047
+1b6c  dc        limit_check
+1b6d  03        load param1
+1b6e  8d ff     load immediate 255
+1b70  dc        limit_check
+1b71  1d        store indexed byte
+1b72  42        load global word2
+1b73  92        load immediate 2
+1b74  c0        uadd_checked
+1b75  52        store global word2
+1b76  8a        leave4
+1b77  02 13     load proc_addr proc19
+1b79  52        store global word2
+1b7a  9c        load immediate 12
+1b7b  00        Error16
+1b7c  00        Error16
+1b7d  d4 ff     enter -1
+1b7f  0c 13     load NATIVE.word3
+1b81  e3 01     jpfalse 1b84
+1b83  8b        leave6
+1b84  42        load global word2
+1b85  92        load immediate 2
+1b86  c0        uadd_checked
+1b87  2d 10     load global word 16
+1b89  a5        ugreater_or_equal
+1b8a  e3 02     jpfalse 1b8e
+1b8c  ed 1c     call proc28
+1b8e  2d 11     load global word 17
+1b90  42        load global word2
+1b91  4f        load global word15
+1b92  c1        usub_checked
+1b93  8e ff 07  load immediate 2047
+1b96  dc        limit_check
+1b97  05        load param3
+1b98  8d ff     load immediate 255
+1b9a  dc        limit_check
+1b9b  1d        store indexed byte
+1b9c  2d 11     load global word 17
+1b9e  42        load global word2
+1b9f  4f        load global word15
+1ba0  c1        usub_checked
+1ba1  91        load immediate 1
+1ba2  c0        uadd_checked
+1ba3  8e ff 07  load immediate 2047
+1ba6  dc        limit_check
+1ba7  04        load param2
+1ba8  8d ff     load immediate 255
+1baa  dc        limit_check
+1bab  1d        store indexed byte
+1bac  2d 11     load global word 17
+1bae  42        load global word2
+1baf  4f        load global word15
+1bb0  c1        usub_checked
+1bb1  92        load immediate 2
+1bb2  c0        uadd_checked
+1bb3  8e ff 07  load immediate 2047
+1bb6  dc        limit_check
+1bb7  03        load param1
+1bb8  8d ff     load immediate 255
+1bba  dc        limit_check
+1bbb  1d        store indexed byte
+1bbc  42        load global word2
+1bbd  93        load immediate 3
+1bbe  c0        uadd_checked
+1bbf  52        store global word2
+1bc0  8b        leave6
+1bc1  02 13     load proc_addr proc19
+1bc3  52        store global word2
+1bc4  9c        load immediate 12
+1bc5  00        Error16
+1bc6  00        Error16
+1bc7  d4 ff     enter -1
+1bc9  0c 13     load NATIVE.word3
+1bcb  e3 02     jpfalse 1bcf
+1bcd  84 84     leave 132
+1bcf  42        load global word2
+1bd0  93        load immediate 3
+1bd1  c0        uadd_checked
+1bd2  2d 10     load global word 16
+1bd4  a5        ugreater_or_equal
+1bd5  e3 02     jpfalse 1bd9
+1bd7  ed 1c     call proc28
+1bd9  2d 11     load global word 17
+1bdb  42        load global word2
+1bdc  4f        load global word15
+1bdd  c1        usub_checked
+1bde  8e ff 07  load immediate 2047
+1be1  dc        limit_check
+1be2  06        load param4
+1be3  8d ff     load immediate 255
+1be5  dc        limit_check
+1be6  1d        store indexed byte
+1be7  2d 11     load global word 17
+1be9  42        load global word2
+1bea  4f        load global word15
+1beb  c1        usub_checked
+1bec  91        load immediate 1
+1bed  c0        uadd_checked
+1bee  8e ff 07  load immediate 2047
+1bf1  dc        limit_check
+1bf2  05        load param3
+1bf3  8d ff     load immediate 255
+1bf5  dc        limit_check
+1bf6  1d        store indexed byte
+1bf7  2d 11     load global word 17
+1bf9  42        load global word2
+1bfa  4f        load global word15
+1bfb  c1        usub_checked
+1bfc  92        load immediate 2
+1bfd  c0        uadd_checked
+1bfe  8e ff 07  load immediate 2047
+1c01  dc        limit_check
+1c02  04        load param2
+1c03  8d ff     load immediate 255
+1c05  dc        limit_check
+1c06  1d        store indexed byte
+1c07  2d 11     load global word 17
+1c09  42        load global word2
+1c0a  4f        load global word15
+1c0b  c1        usub_checked
+1c0c  93        load immediate 3
+1c0d  c0        uadd_checked
+1c0e  8e ff 07  load immediate 2047
+1c11  dc        limit_check
+1c12  03        load param1
+1c13  8d ff     load immediate 255
+1c15  dc        limit_check
+1c16  1d        store indexed byte
+1c17  42        load global word2
+1c18  94        load immediate 4
+1c19  c0        uadd_checked
+1c1a  52        store global word2
+1c1b  84 84     leave 132
+1c1d  02 13     load proc_addr proc19
+1c1f  e0 d4 00  jp 1cf5
+1c22  00        Error16
+1c23  d4 ff     enter -1
+1c25  0c 13     load NATIVE.word3
+1c27  e3 01     jpfalse 1c2a
+1c29  89        leave2
+1c2a  42        load global word2
+1c2b  91        load immediate 1
+1c2c  c0        uadd_checked
+1c2d  2d 10     load global word 16
+1c2f  a5        ugreater_or_equal
+1c30  e3 02     jpfalse 1c34
+1c32  ed 1c     call proc28
+1c34  2d 11     load global word 17
+1c36  42        load global word2
+1c37  4f        load global word15
+1c38  c1        usub_checked
+1c39  8e ff 07  load immediate 2047
+1c3c  dc        limit_check
+1c3d  03        load param1
+1c3e  8d ff     load immediate 255
+1c40  e8        bitwise_and
+1c41  8d ff     load immediate 255
+1c43  dc        limit_check
+1c44  1d        store indexed byte
+1c45  2d 11     load global word 17
+1c47  42        load global word2
+1c48  4f        load global word15
+1c49  c1        usub_checked
+1c4a  91        load immediate 1
+1c4b  c0        uadd_checked
+1c4c  8e ff 07  load immediate 2047
+1c4f  dc        limit_check
+1c50  03        load param1
+1c51  b1 08     shr 8
+1c53  8d ff     load immediate 255
+1c55  dc        limit_check
+1c56  1d        store indexed byte
+1c57  42        load global word2
+1c58  92        load immediate 2
+1c59  c0        uadd_checked
+1c5a  52        store global word2
+1c5b  89        leave2
+1c5c  02 13     load proc_addr proc19
+1c5e  f6        call proc6
+1c5f  a1        not_equal
+1c60  00        Error16
+1c61  00        Error16
+1c62  d4 ff     enter -1
+1c64  0c 13     load NATIVE.word3
+1c66  e3 01     jpfalse 1c69
+1c68  8a        leave4
+1c69  42        load global word2
+1c6a  92        load immediate 2
+1c6b  c0        uadd_checked
+1c6c  2d 10     load global word 16
+1c6e  a5        ugreater_or_equal
+1c6f  e3 02     jpfalse 1c73
+1c71  ed 1c     call proc28
+1c73  2d 11     load global word 17
+1c75  42        load global word2
+1c76  4f        load global word15
+1c77  c1        usub_checked
+1c78  8e ff 07  load immediate 2047
+1c7b  dc        limit_check
+1c7c  04        load param2
+1c7d  8d ff     load immediate 255
+1c7f  dc        limit_check
+1c80  1d        store indexed byte
+1c81  2d 11     load global word 17
+1c83  42        load global word2
+1c84  4f        load global word15
+1c85  c1        usub_checked
+1c86  91        load immediate 1
+1c87  c0        uadd_checked
+1c88  8e ff 07  load immediate 2047
+1c8b  dc        limit_check
+1c8c  03        load param1
+1c8d  8d ff     load immediate 255
+1c8f  e8        bitwise_and
+1c90  8d ff     load immediate 255
+1c92  dc        limit_check
+1c93  1d        store indexed byte
+1c94  2d 11     load global word 17
+1c96  42        load global word2
+1c97  4f        load global word15
+1c98  c1        usub_checked
+1c99  92        load immediate 2
+1c9a  c0        uadd_checked
+1c9b  8e ff 07  load immediate 2047
+1c9e  dc        limit_check
+1c9f  03        load param1
+1ca0  b1 08     shr 8
+1ca2  8d ff     load immediate 255
+1ca4  dc        limit_check
+1ca5  1d        store indexed byte
+1ca6  42        load global word2
+1ca7  93        load immediate 3
+1ca8  c0        uadd_checked
+1ca9  52        store global word2
+1caa  8a        leave4
+1cab  02 13     load proc_addr proc19
+1cad  52        store global word2
+1cae  9c        load immediate 12
+1caf  00        Error16
+1cb0  00        Error16
+1cb1  d4 ff     enter -1
+1cb3  0c 13     load NATIVE.word3
+1cb5  e3 01     jpfalse 1cb8
+1cb7  8b        leave6
+1cb8  42        load global word2
+1cb9  93        load immediate 3
+1cba  c0        uadd_checked
+1cbb  2d 10     load global word 16
+1cbd  a5        ugreater_or_equal
+1cbe  e3 02     jpfalse 1cc2
+1cc0  ed 1c     call proc28
+1cc2  2d 11     load global word 17
+1cc4  42        load global word2
+1cc5  4f        load global word15
+1cc6  c1        usub_checked
+1cc7  8e ff 07  load immediate 2047
+1cca  dc        limit_check
+1ccb  05        load param3
+1ccc  8d ff     load immediate 255
+1cce  dc        limit_check
+1ccf  1d        store indexed byte
+1cd0  2d 11     load global word 17
+1cd2  42        load global word2
+1cd3  4f        load global word15
+1cd4  c1        usub_checked
+1cd5  91        load immediate 1
+1cd6  c0        uadd_checked
+1cd7  8e ff 07  load immediate 2047
+1cda  dc        limit_check
+1cdb  04        load param2
+1cdc  8d ff     load immediate 255
+1cde  dc        limit_check
+1cdf  1d        store indexed byte
+1ce0  2d 11     load global word 17
+1ce2  42        load global word2
+1ce3  4f        load global word15
+1ce4  c1        usub_checked
+1ce5  92        load immediate 2
+1ce6  c0        uadd_checked
+1ce7  8e ff 07  load immediate 2047
+1cea  dc        limit_check
+1ceb  03        load param1
+1cec  8d ff     load immediate 255
+1cee  e8        bitwise_and
+1cef  8d ff     load immediate 255
+1cf1  dc        limit_check
+1cf2  1d        store indexed byte
+1cf3  2d 11     load global word 17
+1cf5  42        load global word2
+1cf6  4f        load global word15
+1cf7  c1        usub_checked
+1cf8  93        load immediate 3
+1cf9  c0        uadd_checked
+1cfa  8e ff 07  load immediate 2047
+1cfd  dc        limit_check
+1cfe  03        load param1
+1cff  b1 08     shr 8
+1d01  8d ff     load immediate 255
+1d03  dc        limit_check
+1d04  1d        store indexed byte
+1d05  42        load global word2
+1d06  94        load immediate 4
+1d07  c0        uadd_checked
+1d08  52        store global word2
+1d09  8b        leave6
+1d0a  bc        abs
+1d0b  2f f3 0b  load �´ ãí!*.word11
+1d0e  00        Error16
+1d0f  00        Error16
+1d10  d4 ff     enter -1
+1d12  0c 24     load COMPILER.word4
+1d14  4f        load global word15
+1d15  8d 10     load immediate 16
+1d17  c0        uadd_checked
+1d18  90        load immediate 0
+1d19  21        swap
+1d1a  ef 00 13  call SCANNER.proc19
+1d1d  03        load param1
+1d1e  2d 11     load global word 17
+1d20  42        load global word2
+1d21  4f        load global word15
+1d22  c1        usub_checked
+1d23  ef 00 10  call SCANNER.proc16
+1d26  89        leave2
+1d27  90        load immediate 0
+1d28  52        store global word2
+1d29  90        load immediate 0
+1d2a  5f        store global word15
+1d2b  8e ff 07  load immediate 2047
+1d2e  3d 10     store global word 16
+1d30  e0 39 1c  jp 396b
+1d33  b2        iless_than
+1d34  19 3f     store global dword 63
+1d36  d6        real_add
+1d37  00        Error16
+1d38  00        Error16
+1d39  d4 ff     enter -1
+1d3b  03        load param1
+1d3c  03        load param1
+1d3d  91        load immediate 1
+1d3e  e8        bitwise_and
+1d3f  c0        uadd_checked
+1d40  85 81     fct_leave 129
+1d42  99        load immediate 9
+1d43  90        load immediate 0
+1d44  90        load immediate 0
+1d45  01        Raise
+1d46  94        load immediate 4
+1d47  78        store stack word8
+1d48  81 22     load global address 34
+1d4a  00        Error16
+1d4b  00        Error16
+1d4c  d4 fb     enter -5
+1d4e  06        load param4
+1d4f  94        load immediate 4
+1d50  a0        equal
+1d51  e3 2c     jpfalse 1d7f
+1d53  05        load param3
+1d54  e3 0f     jpfalse 1d65
+1d56  8d 71     load immediate 113
+1d58  32        store local word-2
+1d59  8d 70     load immediate 112
+1d5b  33        store local word-3
+1d5c  03        load param1
+1d5d  b1 03     shr 3
+1d5f  8d 30     load immediate 48
+1d61  dc        limit_check
+1d62  13        store param1
+1d63  e2 06     jp 1d6b
+1d65  8d 4e     load immediate 78
+1d67  32        store local word-2
+1d68  8d 46     load immediate 70
+1d6a  33        store local word-3
+1d6b  8d dd     load immediate 221
+1d6d  22        load local word-2
+1d6e  03        load param1
+1d6f  c0        uadd_checked
+1d70  04        load param2
+1d71  dd        check_positive
+1d72  f3        call proc3
+1d73  8d dd     load immediate 221
+1d75  23        load local word-3
+1d76  03        load param1
+1d77  c0        uadd_checked
+1d78  04        load param2
+1d79  91        load immediate 1
+1d7a  d0        iadd_checked
+1d7b  dd        check_positive
+1d7c  f3        call proc3
+1d7d  e2 27     jp 1da6
+1d7f  05        load param3
+1d80  98        load immediate 8
+1d81  c2        umul_checked
+1d82  32        store local word-2
+1d83  03        load param1
+1d84  8d 20     load immediate 32
+1d86  a0        equal
+1d87  e3 0d     jpfalse 1d96
+1d89  8d 2a     load immediate 42
+1d8b  22        load local word-2
+1d8c  c1        usub_checked
+1d8d  42        load global word2
+1d8e  91        load immediate 1
+1d8f  c0        uadd_checked
+1d90  04        load param2
+1d91  f0 12     call NATIVE.proc2
+1d93  f6        call proc6
+1d94  e2 10     jp 1da6
+1d96  8d ed     load immediate 237
+1d98  8d 4b     load immediate 75
+1d9a  22        load local word-2
+1d9b  c1        usub_checked
+1d9c  03        load param1
+1d9d  c0        uadd_checked
+1d9e  42        load global word2
+1d9f  92        load immediate 2
+1da0  c0        uadd_checked
+1da1  04        load param2
+1da2  f0 12     call NATIVE.proc2
+1da4  ed 1e     call proc30
+1da6  84 84     leave 132
+1da8  56        store global word6
+1da9  03        load param1
+1daa  bf        float_to_long
+1dab  56        store global word6
+1dac  00        Error16
+1dad  00        Error16
+1dae  d4 f9     enter -7
+1db0  46        load global word6
+1db1  32        store local word-2
+1db2  48        load global word8
+1db3  33        store local word-3
+1db4  4a        load global word10
+1db5  34        store local word-4
+1db6  47        load global word7
+1db7  56        store global word6
+1db8  49        load global word9
+1db9  58        store global word8
+1dba  4b        load global word11
+1dbb  5a        store global word10
+1dbc  22        load local word-2
+1dbd  57        store global word7
+1dbe  23        load local word-3
+1dbf  59        store global word9
+1dc0  24        load local word-4
+1dc1  5b        store global word11
+1dc2  88        leave0
+1dc3  8f 68 d1 51 00  load immediate dword 5362024
+1dc8  00        Error16
+1dc9  d4 ff     enter -1
+1dcb  44        load global word4
+1dcc  e3 05     jpfalse 1dd3
+1dce  8d e5     load immediate 229
+1dd0  f1        call proc1
+1dd1  90        load immediate 0
+1dd2  54        store global word4
+1dd3  88        leave0
+1dd4  bf        float_to_long
+1dd5  56        store global word6
+1dd6  c3        system
+1dd7  56        store global word6
+1dd8  00        Error16
+1dd9  00        Error16
+1dda  d4 ff     enter -1
+1ddc  44        load global word4
+1ddd  b6        not
+1dde  e3 05     jpfalse 1de5
+1de0  8d e1     load immediate 225
+1de2  f1        call proc1
+1de3  91        load immediate 1
+1de4  54        store global word4
+1de5  88        leave0
+1de6  74        store stack word4
+1de7  38        store local word-8
+1de8  0e        load indexed word
+1de9  01        Raise
+1dea  00        Error16
+1deb  00        Error16
+1dec  d4 ff     enter -1
+1dee  43        load global word3
+1def  03        load param1
+1df0  a1        not_equal
+1df1  e3 06     jpfalse 1df9
+1df3  f9        call proc9
+1df4  8d d9     load immediate 217
+1df6  f1        call proc1
+1df7  03        load param1
+1df8  53        store global word3
+1df9  89        leave2
+1dfa  da        urange_check
+1dfb  61        load stack word1
+1dfc  9c        load immediate 12
+1dfd  d1        isub_checked
+1dfe  00        Error16
+1dff  00        Error16
+1e00  d4 fb     enter -5
+1e02  05        load param3
+1e03  93        load immediate 3
+1e04  a0        equal
+1e05  de 03     andjp 1e0a
+1e07  0c 12     load NATIVE.word2
+1e09  ab        eq0
+1e0a  df 03     orjp 1e0f
+1e0c  05        load param3
+1e0d  94        load immediate 4
+1e0e  a0        equal
+1e0f  e3 29     jpfalse 1e3a
+1e11  90        load immediate 0
+1e12  32        store local word-2
+1e13  2d 1a     load global word 26
+1e15  22        load local word-2
+1e16  b0 03     shl 3
+1e18  a6        add
+1e19  33        store local word-3
+1e1a  23        load local word-3
+1e1b  61        load stack word1
+1e1c  04        load param2
+1e1d  a0        equal
+1e1e  de 04     andjp 1e24
+1e20  22        load local word-2
+1e21  2d 12     load global word 18
+1e23  e7        bitwise_in
+1e24  de 04     andjp 1e2a
+1e26  23        load local word-3
+1e27  60        load stack word0
+1e28  05        load param3
+1e29  a0        equal
+1e2a  e3 06     jpfalse 1e32
+1e2c  03        load param1
+1e2d  22        load local word-2
+1e2e  70        store stack word0
+1e2f  91        load immediate 1
+1e30  85 83     fct_leave 131
+1e32  22        load local word-2
+1e33  ac        inc
+1e34  32        store local word-2
+1e35  22        load local word-2
+1e36  93        load immediate 3
+1e37  a3        ugreater_than
+1e38  e5 27     jpfalse 1e13
+1e3a  90        load immediate 0
+1e3b  85 83     fct_leave 131
+1e3d  99        load immediate 9
+1e3e  90        load immediate 0
+1e3f  90        load immediate 0
+1e40  01        Raise
+1e41  bf        float_to_long
+1e42  56        store global word6
+1e43  81 22     load global address 34
+1e45  00        Error16
+1e46  00        Error16
+1e47  d4 f9     enter -7
+1e49  90        load immediate 0
+1e4a  32        store local word-2
+1e4b  03        load param1
+1e4c  33        store local word-3
+1e4d  22        load local word-2
+1e4e  23        load local word-3
+1e4f  a4        uless_or_equal
+1e50  e3 39     jpfalse 1e8b
+1e52  22        load local word-2
+1e53  93        load immediate 3
+1e54  dc        limit_check
+1e55  32        store local word-2
+1e56  22        load local word-2
+1e57  2d 15     load global word 21
+1e59  e7        bitwise_in
+1e5a  e3 2a     jpfalse 1e86
+1e5c  2d 1a     load global word 26
+1e5e  22        load local word-2
+1e5f  b0 03     shl 3
+1e61  a6        add
+1e62  34        store local word-4
+1e63  24        load local word-4
+1e64  62        load stack word2
+1e65  43        load global word3
+1e66  a0        equal
+1e67  df 02     orjp 1e6b
+1e69  44        load global word4
+1e6a  b6        not
+1e6b  f0 11     call NATIVE.proc1
+1e6d  24        load local word-4
+1e6e  62        load stack word2
+1e6f  fb        call proc11
+1e70  8d c1     load immediate 193
+1e72  24        load local word-4
+1e73  63        load stack word3
+1e74  c0        uadd_checked
+1e75  f1        call proc1
+1e76  2d 15     load global word 21
+1e78  22        load local word-2
+1e79  ea        power2
+1e7a  b7        complement
+1e7b  e8        bitwise_and
+1e7c  3d 15     store global word 21
+1e7e  2d 18     load global word 24
+1e80  22        load local word-2
+1e81  ea        power2
+1e82  b7        complement
+1e83  e8        bitwise_and
+1e84  3d 18     store global word 24
+1e86  22        load local word-2
+1e87  ac        inc
+1e88  32        store local word-2
+1e89  e4 3e     jp 1e4d
+1e8b  89        leave2
+1e8c  17        store param5
+1e8d  51        store stack dword0
+1e8e  6e        load stack word14
+1e8f  1d        store indexed byte
+1e90  00        Error16
+1e91  00        Error16
+1e92  d4 fb     enter -5
+1e94  07        load param5
+1e95  07        load param5
+1e96  91        load immediate 1
+1e97  e8        bitwise_and
+1e98  dd        check_positive
+1e99  d1        isub_checked
+1e9a  17        store param5
+1e9b  05        load param3
+1e9c  2c 08     load local word +8
+1e9e  07        load param5
+1e9f  80 fe     load local address -2
+1ea1  ed 22     call proc34
+1ea3  70        store stack word0
+1ea4  05        load param3
+1ea5  60        load stack word0
+1ea6  e3 48     jpfalse 1ef0
+1ea8  22        load local word-2
+1ea9  2d 15     load global word 21
+1eab  2d 18     load global word 24
+1ead  e8        bitwise_and
+1eae  e7        bitwise_in
+1eaf  b6        not
+1eb0  f0 11     call NATIVE.proc1
+1eb2  2d 1a     load global word 26
+1eb4  22        load local word-2
+1eb5  b0 03     shl 3
+1eb7  a6        add
+1eb8  33        store local word-3
+1eb9  04        load param2
+1eba  23        load local word-3
+1ebb  62        load stack word2
+1ebc  70        store stack word0
+1ebd  03        load param1
+1ebe  23        load local word-3
+1ebf  63        load stack word3
+1ec0  70        store stack word0
+1ec1  06        load param4
+1ec2  b6        not
+1ec3  e3 2b     jpfalse 1ef0
+1ec5  22        load local word-2
+1ec6  2d 18     load global word 24
+1ec8  e7        bitwise_in
+1ec9  e3 25     jpfalse 1ef0
+1ecb  22        load local word-2
+1ecc  2d 15     load global word 21
+1ece  e7        bitwise_in
+1ecf  e3 05     jpfalse 1ed6
+1ed1  22        load local word-2
+1ed2  ed 23     call proc35
+1ed4  e2 12     jp 1ee8
+1ed6  22        load local word-2
+1ed7  2d 14     load global word 20
+1ed9  e7        bitwise_in
+1eda  e3 0c     jpfalse 1ee8
+1edc  23        load local word-3
+1edd  62        load stack word2
+1ede  fb        call proc11
+1edf  23        load local word-3
+1ee0  60        load stack word0
+1ee1  90        load immediate 0
+1ee2  23        load local word-3
+1ee3  61        load stack word1
+1ee4  23        load local word-3
+1ee5  63        load stack word3
+1ee6  ed 20     call proc32
+1ee8  2d 18     load global word 24
+1eea  22        load local word-2
+1eeb  ea        power2
+1eec  b7        complement
+1eed  e8        bitwise_and
+1eee  3d 18     store global word 24
+1ef0  84 86     leave 134
+1ef2  50        end_program
+1ef3  19 81     store global dword 129
+1ef5  22        load local word-2
+1ef6  00        Error16
+1ef7  00        Error16
+1ef8  d4 f9     enter -7
+1efa  03        load param1
+1efb  ed 1f     call proc31
+1efd  8d ff     load immediate 255
+1eff  dc        limit_check
+1f00  13        store param1
+1f01  04        load param2
+1f02  32        store local word-2
+1f03  04        load param2
+1f04  03        load param1
+1f05  dd        check_positive
+1f06  d0        iadd_checked
+1f07  92        load immediate 2
+1f08  d1        isub_checked
+1f09  34        store local word-4
+1f0a  22        load local word-2
+1f0b  24        load local word-4
+1f0c  b4        iless_or_equal
+1f0d  e3 3e     jpfalse 1f4d
+1f0f  05        load param3
+1f10  22        load local word-2
+1f11  80 fd     load local address -3
+1f13  ed 22     call proc34
+1f15  e3 15     jpfalse 1f2c
+1f17  2d 16     load global word 22
+1f19  23        load local word-3
+1f1a  ea        power2
+1f1b  e6        bitwise_or
+1f1c  3d 16     store global word 22
+1f1e  23        load local word-3
+1f1f  2d 15     load global word 21
+1f21  2d 18     load global word 24
+1f23  e8        bitwise_and
+1f24  e7        bitwise_in
+1f25  e3 03     jpfalse 1f2a
+1f27  23        load local word-3
+1f28  ed 23     call proc35
+1f2a  e2 1c     jp 1f48
+1f2c  05        load param3
+1f2d  92        load immediate 2
+1f2e  c1        usub_checked
+1f2f  99        load immediate 9
+1f30  dc        limit_check
+1f31  22        load local word-2
+1f32  80 fd     load local address -3
+1f34  ed 22     call proc34
+1f36  e3 10     jpfalse 1f48
+1f38  2d 13     load global word 19
+1f3a  23        load local word-3
+1f3b  ea        power2
+1f3c  e6        bitwise_or
+1f3d  3d 13     store global word 19
+1f3f  23        load local word-3
+1f40  2d 15     load global word 21
+1f42  e7        bitwise_in
+1f43  e3 03     jpfalse 1f48
+1f45  23        load local word-3
+1f46  ed 23     call proc35
+1f48  22        load local word-2
+1f49  ac        inc
+1f4a  32        store local word-2
+1f4b  e4 43     jp 1f0a
+1f4d  8b        leave6
+1f4e  5e        store global word14
+1f4f  11 31     load outer frame 49
+1f51  66        load stack word6
+1f52  00        Error16
+1f53  00        Error16
+1f54  d4 fd     enter -3
+1f56  2d 12     load global word 18
+1f58  3d 13     store global word 19
+1f5a  90        load immediate 0
+1f5b  32        store local word-2
+1f5c  22        load local word-2
+1f5d  ed 23     call proc35
+1f5f  22        load local word-2
+1f60  ac        inc
+1f61  32        store local word-2
+1f62  22        load local word-2
+1f63  93        load immediate 3
+1f64  a3        ugreater_than
+1f65  e5 0b     jpfalse 1f5c
+1f67  88        leave0
+1f68  dc        limit_check
+1f69  51        store stack dword0
+1f6a  8d 60     load immediate 96
+1f6c  00        Error16
+1f6d  00        Error16
+1f6e  d4 f7     enter -9
+1f70  03        load param1
+1f71  33        store local word-3
+1f72  2d 13     load global word 19
+1f74  2d 15     load global word 21
+1f76  e8        bitwise_and
+1f77  90        load immediate 0
+1f78  a0        equal
+1f79  f0 11     call NATIVE.proc1
+1f7b  93        load immediate 3
+1f7c  32        store local word-2
+1f7d  90        load immediate 0
+1f7e  34        store local word-4
+1f7f  22        load local word-2
+1f80  ac        inc
+1f81  32        store local word-2
+1f82  22        load local word-2
+1f83  24        load local word-4
+1f84  ac        inc
+1f85  a5        ugreater_or_equal
+1f86  e3 5a     jpfalse 1fe2
+1f88  22        load local word-2
+1f89  ad        dec
+1f8a  32        store local word-2
+1f8b  22        load local word-2
+1f8c  93        load immediate 3
+1f8d  dc        limit_check
+1f8e  32        store local word-2
+1f8f  22        load local word-2
+1f90  2d 12     load global word 18
+1f92  e7        bitwise_in
+1f93  e3 4b     jpfalse 1fe0
+1f95  2d 1a     load global word 26
+1f97  22        load local word-2
+1f98  b0 03     shl 3
+1f9a  a6        add
+1f9b  35        store local word-5
+1f9c  22        load local word-2
+1f9d  2d 13     load global word 19
+1f9f  2d 14     load global word 20
+1fa1  b7        complement
+1fa2  e8        bitwise_and
+1fa3  e7        bitwise_in
+1fa4  e3 15     jpfalse 1fbb
+1fa6  25        load local word-5
+1fa7  62        load stack word2
+1fa8  fb        call proc11
+1fa9  25        load local word-5
+1faa  60        load stack word0
+1fab  91        load immediate 1
+1fac  25        load local word-5
+1fad  61        load stack word1
+1fae  25        load local word-5
+1faf  63        load stack word3
+1fb0  ed 20     call proc32
+1fb2  2d 14     load global word 20
+1fb4  22        load local word-2
+1fb5  ea        power2
+1fb6  e6        bitwise_or
+1fb7  3d 14     store global word 20
+1fb9  e2 25     jp 1fe0
+1fbb  22        load local word-2
+1fbc  2d 17     load global word 23
+1fbe  23        load local word-3
+1fbf  e8        bitwise_and
+1fc0  2d 14     load global word 20
+1fc2  2d 15     load global word 21
+1fc4  e6        bitwise_or
+1fc5  2d 18     load global word 24
+1fc7  e6        bitwise_or
+1fc8  b7        complement
+1fc9  e8        bitwise_and
+1fca  e7        bitwise_in
+1fcb  e3 13     jpfalse 1fe0
+1fcd  22        load local word-2
+1fce  ed 23     call proc35
+1fd0  25        load local word-5
+1fd1  62        load stack word2
+1fd2  fb        call proc11
+1fd3  8d c5     load immediate 197
+1fd5  25        load local word-5
+1fd6  63        load stack word3
+1fd7  c0        uadd_checked
+1fd8  f1        call proc1
+1fd9  2d 15     load global word 21
+1fdb  22        load local word-2
+1fdc  ea        power2
+1fdd  e6        bitwise_or
+1fde  3d 15     store global word 21
+1fe0  e4 60     jp 1f82
+1fe2  2d 18     load global word 24
+1fe4  2d 12     load global word 18
+1fe6  23        load local word-3
+1fe7  e8        bitwise_and
+1fe8  2d 13     load global word 19
+1fea  e6        bitwise_or
+1feb  2d 16     load global word 22
+1fed  b7        complement
+1fee  e8        bitwise_and
+1fef  e6        bitwise_or
+1ff0  3d 18     store global word 24
+1ff2  89        leave2
+1ff3  bf        float_to_long
+1ff4  56        store global word6
+1ff5  81 22     load global address 34
+1ff7  00        Error16
+1ff8  00        Error16
+1ff9  d4 fd     enter -3
+1ffb  44        load global word4
+1ffc  b6        not
+1ffd  de 02     andjp 2001
+1fff  43        load global word3
+2000  b6        not
+2001  de 05     andjp 2008
+2003  03        load param1
+2004  8e 14 01  load immediate 276
+2007  e7        bitwise_in
+2008  f0 11     call NATIVE.proc1
+200a  2d 15     load global word 21
+200c  90        load immediate 0
+200d  a0        equal
+200e  e3 01     jpfalse 2011
+2010  89        leave2
+2011  8d e1     load immediate 225
+2013  f1        call proc1
+2014  03        load param1
+2015  94        load immediate 4
+2016  a5        ugreater_or_equal
+2017  e3 03     jpfalse 201c
+2019  8d f1     load immediate 241
+201b  f1        call proc1
+201c  03        load param1
+201d  98        load immediate 8
+201e  a0        equal
+201f  e3 09     jpfalse 202a
+2021  91        load immediate 1
+2022  fb        call proc11
+2023  8d e1     load immediate 225
+2025  8d fd     load immediate 253
+2027  8d e1     load immediate 225
+2029  f3        call proc3
+202a  90        load immediate 0
+202b  32        store local word-2
+202c  22        load local word-2
+202d  2d 15     load global word 21
+202f  e7        bitwise_in
+2030  e3 03     jpfalse 2035
+2032  22        load local word-2
+2033  ed 23     call proc35
+2035  22        load local word-2
+2036  ac        inc
+2037  32        store local word-2
+2038  22        load local word-2
+2039  93        load immediate 3
+203a  a3        ugreater_than
+203b  e5 11     jpfalse 202c
+203d  03        load param1
+203e  98        load immediate 8
+203f  a0        equal
+2040  e3 09     jpfalse 204b
+2042  91        load immediate 1
+2043  fb        call proc11
+2044  8d fd     load immediate 253
+2046  8d e5     load immediate 229
+2048  8d e5     load immediate 229
+204a  f3        call proc3
+204b  90        load immediate 0
+204c  fb        call proc11
+204d  03        load param1
+204e  94        load immediate 4
+204f  a5        ugreater_or_equal
+2050  e3 03     jpfalse 2055
+2052  8d f5     load immediate 245
+2054  f1        call proc1
+2055  91        load immediate 1
+2056  54        store global word4
+2057  89        leave2
+2058  81 22     load global address 34
+205a  ae 3f     add 63
+205c  00        Error16
+205d  00        Error16
+205e  d4 f7     enter -9
+2060  04        load param2
+2061  33        store local word-3
+2062  23        load local word-3
+2063  03        load param1
+2064  c0        uadd_checked
+2065  34        store local word-4
+2066  03        load param1
+2067  94        load immediate 4
+2068  a3        ugreater_than
+2069  e3 04     jpfalse 206f
+206b  94        load immediate 4
+206c  34        store local word-4
+206d  90        load immediate 0
+206e  33        store local word-3
+206f  24        load local word-4
+2070  94        load immediate 4
+2071  a3        ugreater_than
+2072  e3 06     jpfalse 207a
+2074  94        load immediate 4
+2075  03        load param1
+2076  c1        usub_checked
+2077  33        store local word-3
+2078  94        load immediate 4
+2079  34        store local word-4
+207a  90        load immediate 0
+207b  3d 12     store global word 18
+207d  90        load immediate 0
+207e  3d 15     store global word 21
+2080  90        load immediate 0
+2081  3d 19     store global word 25
+2083  90        load immediate 0
+2084  3d 13     store global word 19
+2086  90        load immediate 0
+2087  3d 18     store global word 24
+2089  90        load immediate 0
+208a  32        store local word-2
+208b  22        load local word-2
+208c  24        load local word-4
+208d  a2        uless_than
+208e  e3 62     jpfalse 20f2
+2090  2d 12     load global word 18
+2092  22        load local word-2
+2093  93        load immediate 3
+2094  dc        limit_check
+2095  ea        power2
+2096  e6        bitwise_or
+2097  3d 12     store global word 18
+2099  2d 1a     load global word 26
+209b  22        load local word-2
+209c  93        load immediate 3
+209d  dc        limit_check
+209e  b0 03     shl 3
+20a0  a6        add
+20a1  35        store local word-5
+20a2  25        load local word-5
+20a3  05        load param3
+20a4  70        store stack word0
+20a5  25        load local word-5
+20a6  22        load local word-2
+20a7  92        load immediate 2
+20a8  a5        ugreater_or_equal
+20a9  72        store stack word2
+20aa  25        load local word-5
+20ab  22        load local word-2
+20ac  91        load immediate 1
+20ad  e8        bitwise_and
+20ae  8d 10     load immediate 16
+20b0  c2        umul_checked
+20b1  8d 30     load immediate 48
+20b3  dc        limit_check
+20b4  73        store stack word3
+20b5  22        load local word-2
+20b6  23        load local word-3
+20b7  a2        uless_than
+20b8  e3 15     jpfalse 20cf
+20ba  25        load local word-5
+20bb  04        load param2
+20bc  22        load local word-2
+20bd  c1        usub_checked
+20be  92        load immediate 2
+20bf  c2        umul_checked
+20c0  94        load immediate 4
+20c1  c0        uadd_checked
+20c2  dd        check_positive
+20c3  71        store stack word1
+20c4  2d 18     load global word 24
+20c6  22        load local word-2
+20c7  93        load immediate 3
+20c8  dc        limit_check
+20c9  ea        power2
+20ca  e6        bitwise_or
+20cb  3d 18     store global word 24
+20cd  e2 1d     jp 20ec
+20cf  05        load param3
+20d0  94        load immediate 4
+20d1  a0        equal
+20d2  e3 10     jpfalse 20e4
+20d4  25        load local word-5
+20d5  8e 00 01  load immediate 256
+20d8  22        load local word-2
+20d9  23        load local word-3
+20da  c1        usub_checked
+20db  dd        check_positive
+20dc  92        load immediate 2
+20dd  b8        imul
+20de  d1        isub_checked
+20df  94        load immediate 4
+20e0  d1        isub_checked
+20e1  71        store stack word1
+20e2  e2 08     jp 20ec
+20e4  25        load local word-5
+20e5  22        load local word-2
+20e6  92        load immediate 2
+20e7  c2        umul_checked
+20e8  94        load immediate 4
+20e9  c0        uadd_checked
+20ea  dd        check_positive
+20eb  71        store stack word1
+20ec  22        load local word-2
+20ed  91        load immediate 1
+20ee  c0        uadd_checked
+20ef  32        store local word-2
+20f0  e4 67     jp 208b
+20f2  2d 12     load global word 18
+20f4  3d 14     store global word 20
+20f6  2d 12     load global word 18
+20f8  3d 17     store global word 23
+20fa  8b        leave6
+20fb  31        copy string
+20fc  66        load stack word6
+20fd  81 22     load global address 34
+20ff  00        Error16
+2100  00        Error16
+2101  d4 ff     enter -1
+2103  90        load immediate 0
+2104  3d 13     store global word 19
+2106  90        load immediate 0
+2107  3d 16     store global word 22
+2109  90        load immediate 0
+210a  1c 14     store NATIVE.word4
+210c  88        leave0
+210d  05        load param3
+210e  62        load stack word2
+210f  22        load local word-2
+2110  19 00     store global dword 0
+2112  00        Error16
+2113  d4 f1     enter -15
+2115  04        load param2
+2116  60        load stack word0
+2117  9f        load immediate 15
+2118  e8        bitwise_and
+2119  34        store local word-4
+211a  90        load immediate 0
+211b  32        store local word-2
+211c  0c 13     load NATIVE.word3
+211e  e3 09     jpfalse 2129
+2120  24        load local word-4
+2121  3d 15     store global word 21
+2123  04        load param2
+2124  60        load stack word0
+2125  b1 04     shr 4
+2127  3d 18     store global word 24
+2129  93        load immediate 3
+212a  33        store local word-3
+212b  90        load immediate 0
+212c  37        store local word-7
+212d  23        load local word-3
+212e  ac        inc
+212f  33        store local word-3
+2130  23        load local word-3
+2131  27        load local word-7
+2132  ac        inc
+2133  a5        ugreater_or_equal
+2134  e3 5b     jpfalse 2191
+2136  23        load local word-3
+2137  ad        dec
+2138  33        store local word-3
+2139  23        load local word-3
+213a  93        load immediate 3
+213b  dc        limit_check
+213c  33        store local word-3
+213d  2d 1a     load global word 26
+213f  23        load local word-3
+2140  b0 03     shl 3
+2142  a6        add
+2143  38        store local word-8
+2144  03        load param1
+2145  de 08     andjp 214f
+2147  23        load local word-3
+2148  2d 15     load global word 21
+214a  e7        bitwise_in
+214b  23        load local word-3
+214c  24        load local word-4
+214d  e7        bitwise_in
+214e  a1        not_equal
+214f  36        store local word-6
+2150  26        load local word-6
+2151  e3 03     jpfalse 2156
+2153  23        load local word-3
+2154  ed 23     call proc35
+2156  23        load local word-3
+2157  2d 18     load global word 24
+2159  2d 14     load global word 20
+215b  e8        bitwise_and
+215c  2d 15     load global word 21
+215e  b7        complement
+215f  e8        bitwise_and
+2160  e7        bitwise_in
+2161  e3 14     jpfalse 2177
+2163  28        load local word-8
+2164  62        load stack word2
+2165  fb        call proc11
+2166  28        load local word-8
+2167  60        load stack word0
+2168  90        load immediate 0
+2169  28        load local word-8
+216a  61        load stack word1
+216b  28        load local word-8
+216c  63        load stack word3
+216d  ed 20     call proc32
+216f  2d 18     load global word 24
+2171  23        load local word-3
+2172  ea        power2
+2173  b7        complement
+2174  e8        bitwise_and
+2175  3d 18     store global word 24
+2177  26        load local word-6
+2178  e3 15     jpfalse 218f
+217a  23        load local word-3
+217b  24        load local word-4
+217c  e7        bitwise_in
+217d  e3 10     jpfalse 218f
+217f  28        load local word-8
+2180  62        load stack word2
+2181  fb        call proc11
+2182  8d c5     load immediate 197
+2184  28        load local word-8
+2185  63        load stack word3
+2186  c0        uadd_checked
+2187  f1        call proc1
+2188  2d 15     load global word 21
+218a  23        load local word-3
+218b  ea        power2
+218c  e6        bitwise_or
+218d  3d 15     store global word 21
+218f  e4 61     jp 2130
+2191  03        load param1
+2192  e3 0d     jpfalse 21a1
+2194  04        load param2
+2195  60        load stack word0
+2196  b1 04     shr 4
+2198  35        store local word-5
+2199  2d 18     load global word 24
+219b  25        load local word-5
+219c  e6        bitwise_or
+219d  3d 18     store global word 24
+219f  e2 0a     jp 21ab
+21a1  04        load param2
+21a2  2d 15     load global word 21
+21a4  2d 18     load global word 24
+21a6  8d 10     load immediate 16
+21a8  c2        umul_checked
+21a9  c0        uadd_checked
+21aa  70        store stack word0
+21ab  2d 18     load global word 24
+21ad  2d 15     load global word 21
+21af  b7        complement
+21b0  e8        bitwise_and
+21b1  90        load immediate 0
+21b2  a0        equal
+21b3  f0 11     call NATIVE.proc1
+21b5  90        load immediate 0
+21b6  3d 14     store global word 20
+21b8  2d 12     load global word 18
+21ba  3d 17     store global word 23
+21bc  8a        leave4
+21bd  23        load local word-3
+21be  66        load stack word6
+21bf  91        load immediate 1
+21c0  51        store stack dword0
+21c1  00        Error16
+21c2  00        Error16
+21c3  d4 fd     enter -3
+21c5  03        load param1
+21c6  32        store local word-2
+21c7  2d 18     load global word 24
+21c9  2d 12     load global word 18
+21cb  22        load local word-2
+21cc  e8        bitwise_and
+21cd  e6        bitwise_or
+21ce  2d 13     load global word 19
+21d0  e6        bitwise_or
+21d1  3d 18     store global word 24
+21d3  89        leave2
+21d4  81 51     load global address 81
+21d6  25        load local word-5
+21d7  19 00     store global dword 0
+21d9  00        Error16
+21da  d4 ff     enter -1
+21dc  90        load immediate 0
+21dd  3d 17     store global word 23
+21df  88        leave0
+21e0  42        load global word2
+21e1  60        load stack word0
+21e2  1a 0e     store stack dword 14
+21e4  00        Error16
+21e5  00        Error16
+21e6  d4 f9     enter -7
+21e8  43        load global word3
+21e9  92        load immediate 2
+21ea  c2        umul_checked
+21eb  93        load immediate 3
+21ec  dc        limit_check
+21ed  33        store local word-3
+21ee  23        load local word-3
+21ef  32        store local word-2
+21f0  23        load local word-3
+21f1  91        load immediate 1
+21f2  c0        uadd_checked
+21f3  34        store local word-4
+21f4  22        load local word-2
+21f5  24        load local word-4
+21f6  a4        uless_or_equal
+21f7  e3 26     jpfalse 221f
+21f9  22        load local word-2
+21fa  93        load immediate 3
+21fb  dc        limit_check
+21fc  32        store local word-2
+21fd  22        load local word-2
+21fe  9f        load immediate 15
+21ff  2d 12     load global word 18
+2201  b7        complement
+2202  e8        bitwise_and
+2203  2d 18     load global word 24
+2205  e6        bitwise_or
+2206  e7        bitwise_in
+2207  e3 11     jpfalse 221a
+2209  03        load param1
+220a  22        load local word-2
+220b  91        load immediate 1
+220c  e8        bitwise_and
+220d  8d 10     load immediate 16
+220f  c2        umul_checked
+2210  8d 30     load immediate 48
+2212  dc        limit_check
+2213  70        store stack word0
+2214  22        load local word-2
+2215  3d 1b     store global word 27
+2217  91        load immediate 1
+2218  85 81     fct_leave 129
+221a  22        load local word-2
+221b  ac        inc
+221c  32        store local word-2
+221d  e4 2b     jp 21f4
+221f  90        load immediate 0
+2220  85 81     fct_leave 129
+2222  99        load immediate 9
+2223  90        load immediate 0
+2224  90        load immediate 0
+2225  01        Raise
+2226  50        end_program
+2227  19 42     store global dword 66
+2229  60        load stack word0
+222a  00        Error16
+222b  00        Error16
+222c  d4 ff     enter -1
+222e  2d 19     load global word 25
+2230  2d 1b     load global word 27
+2232  ea        power2
+2233  e6        bitwise_or
+2234  3d 19     store global word 25
+2236  88        leave0
+2237  ca        dmod
+2238  6b        load stack word11
+2239  50        end_program
+223a  19 00     store global dword 0
+223c  00        Error16
+223d  d4 ff     enter -1
+223f  2d 12     load global word 18
+2241  2d 19     load global word 25
+2243  e6        bitwise_or
+2244  93        load immediate 3
+2245  e6        bitwise_or
+2246  8d ff     load immediate 255
+2248  dc        limit_check
+2249  85 80     fct_leave 128
+224b  99        load immediate 9
+224c  90        load immediate 0
+224d  90        load immediate 0
+224e  01        Raise
+224f  49        load global word9
+2250  3f 45 d6  store .word214
+2253  00        Error16
+2254  00        Error16
+2255  d4 f1     enter -15
+2257  03        load param1
+2258  37        store local word-7
+2259  27        load local word-7
+225a  62        load stack word2
+225b  92        load immediate 2
+225c  a0        equal
+225d  de 05     andjp 2264
+225f  27        load local word-7
+2260  63        load stack word3
+2261  8d 67     load immediate 103
+2263  a0        equal
+2264  e3 50     jpfalse 22b6
+2266  27        load local word-7
+2267  82 04     load stack address 4
+2269  90        load immediate 0
+226a  0e        load indexed word
+226b  38        store local word-8
+226c  28        load local word-8
+226d  62        load stack word2
+226e  28        load local word-8
+226f  63        load stack word3
+2270  90        load immediate 0
+2271  80 fc     load local address -4
+2273  80 fb     load local address -5
+2275  80 fa     load local address -6
+2277  ed 24     call proc36
+2279  24        load local word-4
+227a  e3 04     jpfalse 2280
+227c  25        load local word-5
+227d  fb        call proc11
+227e  e2 0b     jp 228b
+2280  27        load local word-7
+2281  82 04     load stack address 4
+2283  90        load immediate 0
+2284  0e        load indexed word
+2285  ed 17     call proc23
+2287  fa        call proc10
+2288  8d 20     load immediate 32
+228a  36        store local word-6
+228b  26        load local word-6
+228c  b1 03     shr 3
+228e  8d 30     load immediate 48
+2290  dc        limit_check
+2291  36        store local word-6
+2292  8d 79     load immediate 121
+2294  26        load local word-6
+2295  c0        uadd_checked
+2296  8d b0     load immediate 176
+2298  26        load local word-6
+2299  c0        uadd_checked
+229a  f2        call proc2
+229b  8d cc     load immediate 204
+229d  8e 57 05  load immediate 1367
+22a0  f6        call proc6
+22a1  27        load local word-7
+22a2  82 04     load stack address 4
+22a4  90        load immediate 0
+22a5  0e        load indexed word
+22a6  32        store local word-2
+22a7  03        load param1
+22a8  60        load stack word0
+22a9  33        store local word-3
+22aa  03        load param1
+22ab  22        load local word-2
+22ac  9c        load immediate 12
+22ad  30        copy block
+22ae  03        load param1
+22af  23        load local word-3
+22b0  70        store stack word0
+22b1  80 fe     load local address -2
+22b3  9c        load immediate 12
+22b4  40 06     DEALLOCATE
+22b6  89        leave2
+22b7  4b        load global word11
+22b8  d3        string_reserve
+22b9  57        store global word7
+22ba  d6        real_add
+22bb  00        Error16
+22bc  00        Error16
+22bd  d4 ff     enter -1
+22bf  03        load param1
+22c0  e2 12     jp 22d4
+22c2  90        load immediate 0
+22c3  85 81     fct_leave 129
+22c5  ce        jump_stack
+22c6  8d 10     load immediate 16
+22c8  85 81     fct_leave 129
+22ca  ce        jump_stack
+22cb  8d 20     load immediate 32
+22cd  85 81     fct_leave 129
+22cf  ce        jump_stack
+22d0  90        load immediate 0
+22d1  85 81     fct_leave 129
+22d3  ce        jump_stack
+22d4  cd 00 80 07 00 15 00  callswitch (return to 22ef)
+	case 90 => 22d0
+	case 91 => 22c2
+	case 92 => 22c6
+	case 93 => 22cb
+	case 94 => 22d0
+	case 95 => 22d0
+	case 96 => 22d0
+	case 97 => 22d0
+22eb  9d        load immediate 13
+22ec  90        load immediate 0
+22ed  90        load immediate 0
+22ee  01        Raise
+22ef  99        load immediate 9
+22f0  90        load immediate 0
+22f1  90        load immediate 0
+22f2  01        Raise
+22f3  bb        long_to_int
+22f4  66        load stack word6
+22f5  ab        eq0
+22f6  67        load stack word7
+22f7  00        Error16
+22f8  00        Error16
+22f9  d4 f9     enter -7
+22fb  03        load param1
+22fc  33        store local word-3
+22fd  23        load local word-3
+22fe  62        load stack word2
+22ff  92        load immediate 2
+2300  a0        equal
+2301  e3 1f     jpfalse 2322
+2303  91        load immediate 1
+2304  32        store local word-2
+2305  23        load local word-3
+2306  63        load stack word3
+2307  f0 14     call NATIVE.proc4
+2309  34        store local word-4
+230a  22        load local word-2
+230b  24        load local word-4
+230c  a4        uless_or_equal
+230d  e3 13     jpfalse 2322
+230f  23        load local word-3
+2310  82 04     load stack address 4
+2312  22        load local word-2
+2313  91        load immediate 1
+2314  91        load immediate 1
+2315  da        urange_check
+2316  ad        dec
+2317  b0 01     shl 1
+2319  a6        add
+231a  9c        load immediate 12
+231b  40 06     DEALLOCATE
+231d  22        load local word-2
+231e  ac        inc
+231f  32        store local word-2
+2320  e4 18     jp 230a
+2322  89        leave2
+2323  25        load local word-5
+2324  19 ef     store global dword 239
+2326  13        store param1
+2327  00        Error16
+2328  00        Error16
+2329  d4 ff     enter -1
+232b  2c 08     load local word +8
+232d  cb        not_zero
+232e  e3 74     jpfalse 23a4
+2330  2c 08     load local word +8
+2332  62        load stack word2
+2333  8d 7b     load immediate 123
+2335  e7        bitwise_in
+2336  f0 11     call NATIVE.proc1
+2338  07        load param5
+2339  2c 08     load local word +8
+233b  63        load stack word3
+233c  70        store stack word0
+233d  2c 08     load local word +8
+233f  62        load stack word2
+2340  e2 2a     jp 236c
+2342  06        load param4
+2343  94        load immediate 4
+2344  70        store stack word0
+2345  07        load param5
+2346  2c 08     load local word +8
+2348  82 03     load stack address 3
+234a  90        load immediate 0
+234b  0e        load indexed word
+234c  70        store stack word0
+234d  ce        jump_stack
+234e  06        load param4
+234f  97        load immediate 7
+2350  70        store stack word0
+2351  ce        jump_stack
+2352  06        load param4
+2353  95        load immediate 5
+2354  70        store stack word0
+2355  ce        jump_stack
+2356  f9        call proc9
+2357  8d dd     load immediate 221
+2359  8d e5     load immediate 229
+235b  f2        call proc2
+235c  06        load param4
+235d  97        load immediate 7
+235e  70        store stack word0
+235f  ce        jump_stack
+2360  06        load param4
+2361  96        load immediate 6
+2362  70        store stack word0
+2363  ce        jump_stack
+2364  2c 08     load local word +8
+2366  ed 17     call proc23
+2368  06        load param4
+2369  97        load immediate 7
+236a  70        store stack word0
+236b  ce        jump_stack
+236c  cd 00 80 06 00 13 00  callswitch (return to 2385)
+	case 90 => 2342
+	case 91 => 234e
+	case 92 => 2381
+	case 93 => 2360
+	case 94 => 2352
+	case 95 => 2364
+	case 96 => 2356
+2381  9d        load immediate 13
+2382  90        load immediate 0
+2383  90        load immediate 0
+2384  01        Raise
+2385  2c 08     load local word +8
+2387  62        load stack word2
+2388  2c 08     load local word +8
+238a  63        load stack word3
+238b  90        load immediate 0
+238c  05        load param3
+238d  04        load param2
+238e  03        load param1
+238f  ed 24     call proc36
+2391  05        load param3
+2392  60        load stack word0
+2393  e3 0d     jpfalse 23a2
+2395  03        load param1
+2396  60        load stack word0
+2397  ab        eq0
+2398  e3 05     jpfalse 239f
+239a  06        load param4
+239b  91        load immediate 1
+239c  70        store stack word0
+239d  e2 03     jp 23a2
+239f  06        load param4
+23a0  92        load immediate 2
+23a1  70        store stack word0
+23a2  e2 03     jp 23a7
+23a4  06        load param4
+23a5  90        load immediate 0
+23a6  70        store stack word0
+23a7  84 06     leave 6
+23a9  94        load immediate 4
+23aa  0b 57 d6  load .dword214
+23ad  00        Error16
+23ae  00        Error16
+23af  d4 ff     enter -1
+23b1  03        load param1
+23b2  ab        eq0
+23b3  e3 05     jpfalse 23ba
+23b5  91        load immediate 1
+23b6  85 01     fct_leave 1
+23b8  e2 0e     jp 23c8
+23ba  03        load param1
+23bb  8d 10     load immediate 16
+23bd  a0        equal
+23be  e3 05     jpfalse 23c5
+23c0  92        load immediate 2
+23c1  85 01     fct_leave 1
+23c3  e2 03     jp 23c8
+23c5  90        load immediate 0
+23c6  f0 11     call NATIVE.proc1
+23c8  99        load immediate 9
+23c9  90        load immediate 0
+23ca  90        load immediate 0
+23cb  01        Raise
+23cc  25        load local word-5
+23cd  19 5e     store global dword 94
+23cf  11 00     load outer frame 0
+23d1  00        Error16
+23d2  d4 fb     enter -5
+23d4  9c        load immediate 12
+23d5  03        load param1
+23d6  40 12     reserve_string
+23d8  13        store param1
+23d9  03        load param1
+23da  62        load stack word2
+23db  92        load immediate 2
+23dc  a0        equal
+23dd  e3 55     jpfalse 2434
+23df  0c 14     load NATIVE.word4
+23e1  de 06     andjp 23e9
+23e3  03        load param1
+23e4  63        load stack word3
+23e5  f0 14     call NATIVE.proc4
+23e7  92        load immediate 2
+23e8  a5        ugreater_or_equal
+23e9  de 09     andjp 23f4
+23eb  03        load param1
+23ec  82 04     load stack address 4
+23ee  91        load immediate 1
+23ef  0e        load indexed word
+23f0  62        load stack word2
+23f1  8d 84     load immediate 132
+23f3  e7        bitwise_in
+23f4  e3 07     jpfalse 23fd
+23f6  03        load param1
+23f7  82 04     load stack address 4
+23f9  90        load immediate 0
+23fa  0e        load indexed word
+23fb  ed 17     call proc23
+23fd  91        load immediate 1
+23fe  32        store local word-2
+23ff  03        load param1
+2400  63        load stack word3
+2401  f0 14     call NATIVE.proc4
+2403  33        store local word-3
+2404  22        load local word-2
+2405  23        load local word-3
+2406  a4        uless_or_equal
+2407  e3 2b     jpfalse 2434
+2409  03        load param1
+240a  82 04     load stack address 4
+240c  22        load local word-2
+240d  91        load immediate 1
+240e  91        load immediate 1
+240f  da        urange_check
+2410  ad        dec
+2411  0e        load indexed word
+2412  ed 27     call proc39
+2414  03        load param1
+2415  82 04     load stack address 4
+2417  22        load local word-2
+2418  91        load immediate 1
+2419  91        load immediate 1
+241a  da        urange_check
+241b  ad        dec
+241c  0e        load indexed word
+241d  62        load stack word2
+241e  8e 84 03  load immediate 900
+2421  e7        bitwise_in
+2422  e3 0b     jpfalse 242f
+2424  03        load param1
+2425  82 04     load stack address 4
+2427  22        load local word-2
+2428  91        load immediate 1
+2429  91        load immediate 1
+242a  da        urange_check
+242b  ad        dec
+242c  0e        load indexed word
+242d  ed 17     call proc23
+242f  22        load local word-2
+2430  ac        inc
+2431  32        store local word-2
+2432  e4 30     jp 2404
+2434  03        load param1
+2435  61        load stack word1
+2436  94        load immediate 4
+2437  a5        ugreater_or_equal
+2438  e3 01     jpfalse 243b
+243a  89        leave2
+243b  03        load param1
+243c  82 04     load stack address 4
+243e  90        load immediate 0
+243f  0e        load indexed word
+2440  81 0a     load global address 10
+2442  81 06     load global address 6
+2444  81 1c     load global address 28
+2446  81 1e     load global address 30
+2448  81 08     load global address 8
+244a  ec 2b     nested_call proc43
+244c  03        load param1
+244d  82 04     load stack address 4
+244f  91        load immediate 1
+2450  0e        load indexed word
+2451  81 0b     load global address 11
+2453  81 07     load global address 7
+2455  81 1d     load global address 29
+2457  81 1f     load global address 31
+2459  81 09     load global address 9
+245b  ec 2b     nested_call proc43
+245d  2d 1c     load global word 28
+245f  e3 1b     jpfalse 247c
+2461  2d 1e     load global word 30
+2463  fb        call proc11
+2464  2d 1d     load global word 29
+2466  de 05     andjp 246d
+2468  2d 1e     load global word 30
+246a  2d 1f     load global word 31
+246c  a1        not_equal
+246d  e3 0b     jpfalse 247a
+246f  f9        call proc9
+2470  8d c5     load immediate 197
+2472  48        load global word8
+2473  c0        uadd_checked
+2474  f1        call proc1
+2475  2d 1f     load global word 31
+2477  fb        call proc11
+2478  97        load immediate 7
+2479  56        store global word6
+247a  e2 07     jp 2483
+247c  2d 1d     load global word 29
+247e  e3 03     jpfalse 2483
+2480  2d 1f     load global word 31
+2482  fb        call proc11
+2483  47        load global word7
+2484  97        load immediate 7
+2485  a0        equal
+2486  de 01     andjp 2489
+2488  44        load global word4
+2489  e3 04     jpfalse 248f
+248b  93        load immediate 3
+248c  57        store global word7
+248d  90        load immediate 0
+248e  54        store global word4
+248f  81 0d     load global address 13
+2491  ed 25     call proc37
+2493  5c        store global word12
+2494  4d        load global word13
+2495  ec 2c     nested_call proc44
+2497  5e        store global word14
+2498  4c        load global word12
+2499  de 04     andjp 249f
+249b  46        load global word6
+249c  8d c8     load immediate 200
+249e  e7        bitwise_in
+249f  e3 1f     jpfalse 24c0
+24a1  47        load global word7
+24a2  97        load immediate 7
+24a3  a0        equal
+24a4  e3 0b     jpfalse 24b1
+24a6  ed 26     call proc38
+24a8  8d c1     load immediate 193
+24aa  4d        load global word13
+24ab  c0        uadd_checked
+24ac  f1        call proc1
+24ad  4e        load global word14
+24ae  57        store global word7
+24af  e2 0f     jp 24c0
+24b1  47        load global word7
+24b2  96        load immediate 6
+24b3  a0        equal
+24b4  e3 0a     jpfalse 24c0
+24b6  ed 26     call proc38
+24b8  93        load immediate 3
+24b9  90        load immediate 0
+24ba  4b        load global word11
+24bb  4d        load global word13
+24bc  ed 20     call proc32
+24be  4e        load global word14
+24bf  57        store global word7
+24c0  4c        load global word12
+24c1  de 03     andjp 24c6
+24c3  47        load global word7
+24c4  93        load immediate 3
+24c5  a0        equal
+24c6  e3 1d     jpfalse 24e5
+24c8  ed 26     call proc38
+24ca  46        load global word6
+24cb  97        load immediate 7
+24cc  a0        equal
+24cd  e3 09     jpfalse 24d8
+24cf  8d c1     load immediate 193
+24d1  4d        load global word13
+24d2  c0        uadd_checked
+24d3  f1        call proc1
+24d4  4e        load global word14
+24d5  56        store global word6
+24d6  e2 0d     jp 24e5
+24d8  46        load global word6
+24d9  96        load immediate 6
+24da  a0        equal
+24db  e3 08     jpfalse 24e5
+24dd  93        load immediate 3
+24de  90        load immediate 0
+24df  4a        load global word10
+24e0  4d        load global word13
+24e1  ed 20     call proc32
+24e3  4e        load global word14
+24e4  56        store global word6
+24e5  47        load global word7
+24e6  97        load immediate 7
+24e7  a0        equal
+24e8  e3 0c     jpfalse 24f6
+24ea  46        load global word6
+24eb  93        load immediate 3
+24ec  a1        not_equal
+24ed  f0 11     call NATIVE.proc1
+24ef  fa        call proc10
+24f0  93        load immediate 3
+24f1  57        store global word7
+24f2  90        load immediate 0
+24f3  54        store global word4
+24f4  e2 0f     jp 2505
+24f6  46        load global word6
+24f7  97        load immediate 7
+24f8  a0        equal
+24f9  de 03     andjp 24fe
+24fb  47        load global word7
+24fc  93        load immediate 3
+24fd  a1        not_equal
+24fe  e3 05     jpfalse 2505
+2500  fa        call proc10
+2501  93        load immediate 3
+2502  56        store global word6
+2503  90        load immediate 0
+2504  54        store global word4
+2505  46        load global word6
+2506  96        load immediate 6
+2507  a0        equal
+2508  e3 1c     jpfalse 2526
+250a  47        load global word7
+250b  93        load immediate 3
+250c  a1        not_equal
+250d  e3 03     jpfalse 2512
+250f  f9        call proc9
+2510  e2 09     jp 251b
+2512  8d eb     load immediate 235
+2514  8d e5     load immediate 229
+2516  f2        call proc2
+2517  91        load immediate 1
+2518  55        store global word5
+2519  92        load immediate 2
+251a  57        store global word7
+251b  93        load immediate 3
+251c  90        load immediate 0
+251d  4a        load global word10
+251e  8d 20     load immediate 32
+2520  ed 20     call proc32
+2522  93        load immediate 3
+2523  56        store global word6
+2524  e2 10     jp 2536
+2526  46        load global word6
+2527  97        load immediate 7
+2528  a0        equal
+2529  e3 0b     jpfalse 2536
+252b  8d eb     load immediate 235
+252d  8d e3     load immediate 227
+252f  f2        call proc2
+2530  91        load immediate 1
+2531  55        store global word5
+2532  92        load immediate 2
+2533  57        store global word7
+2534  93        load immediate 3
+2535  56        store global word6
+2536  47        load global word7
+2537  96        load immediate 6
+2538  a0        equal
+2539  e3 1f     jpfalse 255a
+253b  46        load global word6
+253c  93        load immediate 3
+253d  a0        equal
+253e  e3 10     jpfalse 2550
+2540  8d d5     load immediate 213
+2542  f1        call proc1
+2543  93        load immediate 3
+2544  90        load immediate 0
+2545  4b        load global word11
+2546  8d 10     load immediate 16
+2548  ed 20     call proc32
+254a  91        load immediate 1
+254b  55        store global word5
+254c  92        load immediate 2
+254d  57        store global word7
+254e  e2 0a     jp 255a
+2550  f9        call proc9
+2551  93        load immediate 3
+2552  90        load immediate 0
+2553  4b        load global word11
+2554  8d 20     load immediate 32
+2556  ed 20     call proc32
+2558  93        load immediate 3
+2559  57        store global word7
+255a  46        load global word6
+255b  ed 28     call proc40
+255d  58        store global word8
+255e  47        load global word7
+255f  ed 28     call proc40
+2561  59        store global word9
+2562  89        leave2
+2563  7d        store stack word13
+2564  00        Error16
+2565  94        load immediate 4
+2566  9a        load immediate 10
+2567  00        Error16
+2568  00        Error16
+2569  d4 fd     enter -3
+256b  46        load global word6
+256c  e2 26     jp 2594
+256e  8d 79     load immediate 121
+2570  48        load global word8
+2571  b1 03     shr 3
+2573  c0        uadd_checked
+2574  03        load param1
+2575  c1        usub_checked
+2576  f1        call proc1
+2577  ce        jump_stack
+2578  03        load param1
+2579  e3 06     jpfalse 2581
+257b  4a        load global word10
+257c  b1 08     shr 8
+257e  32        store local word-2
+257f  e2 05     jp 2586
+2581  4a        load global word10
+2582  8d ff     load immediate 255
+2584  e8        bitwise_and
+2585  32        store local word-2
+2586  8d 3e     load immediate 62
+2588  22        load local word-2
+2589  f2        call proc2
+258a  ce        jump_stack
+258b  8d dd     load immediate 221
+258d  8d 7e     load immediate 126
+258f  4a        load global word10
+2590  03        load param1
+2591  c0        uadd_checked
+2592  f3        call proc3
+2593  ce        jump_stack
+2594  cd 01 80 04 00 0f 00  callswitch (return to 25a9)
+	case 91 => 256e
+	case 92 => 256e
+	case 93 => 256e
+	case 94 => 2578
+	case 95 => 258b
+25a5  9d        load immediate 13
+25a6  90        load immediate 0
+25a7  90        load immediate 0
+25a8  01        Raise
+25a9  89        leave2
+25aa  d8        real_mul
+25ab  18 3d     store local dword +61
+25ad  6b        load stack word11
+25ae  00        Error16
+25af  00        Error16
+25b0  d4 fd     enter -3
+25b2  47        load global word7
+25b3  e2 2a     jp 25df
+25b5  04        load param2
+25b6  91        load immediate 1
+25b7  c0        uadd_checked
+25b8  49        load global word9
+25b9  b1 03     shr 3
+25bb  c0        uadd_checked
+25bc  03        load param1
+25bd  c1        usub_checked
+25be  f1        call proc1
+25bf  ce        jump_stack
+25c0  03        load param1
+25c1  e3 06     jpfalse 25c9
+25c3  4b        load global word11
+25c4  b1 08     shr 8
+25c6  32        store local word-2
+25c7  e2 05     jp 25ce
+25c9  4b        load global word11
+25ca  8d ff     load immediate 255
+25cc  e8        bitwise_and
+25cd  32        store local word-2
+25ce  04        load param2
+25cf  8d 46     load immediate 70
+25d1  c0        uadd_checked
+25d2  22        load local word-2
+25d3  f2        call proc2
+25d4  ce        jump_stack
+25d5  8d dd     load immediate 221
+25d7  04        load param2
+25d8  96        load immediate 6
+25d9  c0        uadd_checked
+25da  4b        load global word11
+25db  03        load param1
+25dc  c0        uadd_checked
+25dd  f3        call proc3
+25de  ce        jump_stack
+25df  cd 01 80 04 00 0f 00  callswitch (return to 25f4)
+	case 91 => 25b5
+	case 92 => 25b5
+	case 93 => 25b5
+	case 94 => 25c0
+	case 95 => 25d5
+25f0  9d        load immediate 13
+25f1  90        load immediate 0
+25f2  90        load immediate 0
+25f3  01        Raise
+25f4  8a        leave4
+25f5  92        load immediate 2
+25f6  56        store global word6
+25f7  32        store local word-2
+25f8  6e        load stack word14
+25f9  00        Error16
+25fa  00        Error16
+25fb  d4 fb     enter -5
+25fd  03        load param1
+25fe  b6        not
+25ff  e3 26     jpfalse 2627
+2601  80 fe     load local address -2
+2603  9c        load immediate 12
+2604  40 05     ALLOCATE
+2606  22        load local word-2
+2607  92        load immediate 2
+2608  72        store stack word2
+2609  22        load local word-2
+260a  8d 55     load immediate 85
+260c  73        store stack word3
+260d  22        load local word-2
+260e  82 04     load stack address 4
+2610  90        load immediate 0
+2611  b0 01     shl 1
+2613  a6        add
+2614  f0 1c     call NATIVE.proc12
+2616  22        load local word-2
+2617  82 04     load stack address 4
+2619  91        load immediate 1
+261a  b0 01     shl 1
+261c  a6        add
+261d  f0 1c     call NATIVE.proc12
+261f  22        load local word-2
+2620  ed 2a     call proc42
+2622  90        load immediate 0
+2623  ed 2d     call proc45
+2625  ed 21     call proc33
+2627  46        load global word6
+2628  94        load immediate 4
+2629  a0        equal
+262a  de 01     andjp 262d
+262c  91        load immediate 1
+262d  e3 13     jpfalse 2642
+262f  8d d3     load immediate 211
+2631  03        load param1
+2632  98        load immediate 8
+2633  c2        umul_checked
+2634  c0        uadd_checked
+2635  4a        load global word10
+2636  8d ff     load immediate 255
+2638  e8        bitwise_and
+2639  f2        call proc2
+263a  03        load param1
+263b  e3 03     jpfalse 2640
+263d  8d 6f     load immediate 111
+263f  f1        call proc1
+2640  e2 3e     jp 2680
+2642  46        load global word6
+2643  91        load immediate 1
+2644  a1        not_equal
+2645  e3 27     jpfalse 266e
+2647  4c        load global word12
+2648  de 02     andjp 264c
+264a  4d        load global word13
+264b  ab        eq0
+264c  b6        not
+264d  33        store local word-3
+264e  23        load local word-3
+264f  e3 05     jpfalse 2656
+2651  8d c5     load immediate 197
+2653  f1        call proc1
+2654  e2 02     jp 2658
+2656  ed 26     call proc38
+2658  46        load global word6
+2659  95        load immediate 5
+265a  a0        equal
+265b  e3 08     jpfalse 2665
+265d  8d dd     load immediate 221
+265f  8d 4e     load immediate 78
+2661  4a        load global word10
+2662  f3        call proc3
+2663  e2 07     jp 266c
+2665  8d 49     load immediate 73
+2667  48        load global word8
+2668  b1 03     shr 3
+266a  c0        uadd_checked
+266b  f1        call proc1
+266c  e2 02     jp 2670
+266e  90        load immediate 0
+266f  33        store local word-3
+2670  8d ed     load immediate 237
+2672  8d 79     load immediate 121
+2674  03        load param1
+2675  8d 11     load immediate 17
+2677  c2        umul_checked
+2678  c1        usub_checked
+2679  f2        call proc2
+267a  23        load local word-3
+267b  e3 03     jpfalse 2680
+267d  8d c1     load immediate 193
+267f  f1        call proc1
+2680  45        load global word5
+2681  e3 05     jpfalse 2688
+2683  8d d1     load immediate 209
+2685  f1        call proc1
+2686  90        load immediate 0
+2687  55        store global word5
+2688  03        load param1
+2689  e3 06     jpfalse 2691
+268b  8d 26     load immediate 38
+268d  90        load immediate 0
+268e  f2        call proc2
+268f  e2 19     jp 26aa
+2691  22        load local word-2
+2692  82 04     load stack address 4
+2694  90        load immediate 0
+2695  b0 01     shl 1
+2697  a6        add
+2698  9c        load immediate 12
+2699  40 06     DEALLOCATE
+269b  22        load local word-2
+269c  82 04     load stack address 4
+269e  91        load immediate 1
+269f  b0 01     shl 1
+26a1  a6        add
+26a2  9c        load immediate 12
+26a3  40 06     DEALLOCATE
+26a5  80 fe     load local address -2
+26a7  9c        load immediate 12
+26a8  40 06     DEALLOCATE
+26aa  89        leave2
+26ab  1f        store indexed dword
+26ac  02 b3     load proc_addr proc179
+26ae  56        store global word6
+26af  00        Error16
+26b0  00        Error16
+26b1  d4 ff     enter -1
+26b3  46        load global word6
+26b4  95        load immediate 5
+26b5  a0        equal
+26b6  e3 09     jpfalse 26c1
+26b8  94        load immediate 4
+26b9  90        load immediate 0
+26ba  4a        load global word10
+26bb  8d 20     load immediate 32
+26bd  ed 20     call proc32
+26bf  e2 1d     jp 26de
+26c1  46        load global word6
+26c2  96        load immediate 6
+26c3  e7        bitwise_in
+26c4  e3 0f     jpfalse 26d5
+26c6  8d 60     load immediate 96
+26c8  48        load global word8
+26c9  b1 03     shr 3
+26cb  c0        uadd_checked
+26cc  8d 69     load immediate 105
+26ce  48        load global word8
+26cf  b1 03     shr 3
+26d1  c0        uadd_checked
+26d2  f2        call proc2
+26d3  e2 09     jp 26de
+26d5  46        load global word6
+26d6  94        load immediate 4
+26d7  a0        equal
+26d8  e3 04     jpfalse 26de
+26da  8d 21     load immediate 33
+26dc  4a        load global word10
+26dd  f6        call proc6
+26de  93        load immediate 3
+26df  56        store global word6
+26e0  8d 20     load immediate 32
+26e2  58        store global word8
+26e3  88        leave0
+26e4  6a        load stack word10
+26e5  4b        load global word11
+26e6  09 45     load global dword69
+26e8  00        Error16
+26e9  00        Error16
+26ea  d4 ed     enter -19
+26ec  90        load immediate 0
+26ed  36        store local word-6
+26ee  06        load param4
+26ef  3a        store local word-10
+26f0  2a        load local word-10
+26f1  62        load stack word2
+26f2  2a        load local word-10
+26f3  63        load stack word3
+26f4  90        load immediate 0
+26f5  80 fe     load local address -2
+26f7  80 fd     load local address -3
+26f9  80 fc     load local address -4
+26fb  ed 24     call proc36
+26fd  2a        load local word-10
+26fe  62        load stack word2
+26ff  8e 80 03  load immediate 896
+2702  e7        bitwise_in
+2703  e3 03     jpfalse 2708
+2705  06        load param4
+2706  ed 17     call proc23
+2708  2a        load local word-10
+2709  62        load stack word2
+270a  e0 39 03  jp 2a45
+270d  2a        load local word-10
+270e  82 03     load stack address 3
+2710  90        load immediate 0
+2711  0e        load indexed word
+2712  91        load immediate 1
+2713  e8        bitwise_and
+2714  e3 04     jpfalse 271a
+2716  91        load immediate 1
+2717  35        store local word-5
+2718  e2 02     jp 271c
+271a  92        load immediate 2
+271b  35        store local word-5
+271c  ce        jump_stack
+271d  22        load local word-2
+271e  e3 0f     jpfalse 272f
+2720  23        load local word-3
+2721  fb        call proc11
+2722  8d cb     load immediate 203
+2724  8d 41     load immediate 65
+2726  24        load local word-4
+2727  b1 03     shr 3
+2729  c0        uadd_checked
+272a  f2        call proc2
+272b  90        load immediate 0
+272c  35        store local word-5
+272d  e2 24     jp 2753
+272f  2a        load local word-10
+2730  62        load stack word2
+2731  94        load immediate 4
+2732  a0        equal
+2733  e3 0e     jpfalse 2743
+2735  8d dd     load immediate 221
+2737  8d cb     load immediate 203
+2739  2a        load local word-10
+273a  63        load stack word3
+273b  dd        check_positive
+273c  8d 46     load immediate 70
+273e  f4        call proc4
+273f  90        load immediate 0
+2740  35        store local word-5
+2741  e2 10     jp 2753
+2743  8d 3a     load immediate 58
+2745  42        load global word2
+2746  91        load immediate 1
+2747  c0        uadd_checked
+2748  2a        load local word-10
+2749  63        load stack word3
+274a  f0 12     call NATIVE.proc2
+274c  f6        call proc6
+274d  8d 1f     load immediate 31
+274f  f1        call proc1
+2750  8d 18     load immediate 24
+2752  35        store local word-5
+2753  ce        jump_stack
+2754  f9        call proc9
+2755  8d 21     load immediate 33
+2757  42        load global word2
+2758  91        load immediate 1
+2759  c0        uadd_checked
+275a  2a        load local word-10
+275b  63        load stack word3
+275c  f0 12     call NATIVE.proc2
+275e  f6        call proc6
+275f  8d cb     load immediate 203
+2761  8d 45     load immediate 69
+2763  f2        call proc2
+2764  90        load immediate 0
+2765  35        store local word-5
+2766  ce        jump_stack
+2767  f9        call proc9
+2768  8d dd     load immediate 221
+276a  8d e5     load immediate 229
+276c  8d f1     load immediate 241
+276e  f3        call proc3
+276f  8d 18     load immediate 24
+2771  35        store local word-5
+2772  ce        jump_stack
+2773  44        load global word4
+2774  e3 0b     jpfalse 2781
+2776  8d cb     load immediate 203
+2778  8d 45     load immediate 69
+277a  f2        call proc2
+277b  90        load immediate 0
+277c  35        store local word-5
+277d  90        load immediate 0
+277e  54        store global word4
+277f  e2 06     jp 2787
+2781  8d f1     load immediate 241
+2783  f1        call proc1
+2784  8d 18     load immediate 24
+2786  35        store local word-5
+2787  ce        jump_stack
+2788  2a        load local word-10
+2789  63        load stack word3
+278a  8d a0     load immediate 160
+278c  a5        ugreater_or_equal
+278d  de 05     andjp 2794
+278f  2a        load local word-10
+2790  63        load stack word3
+2791  8d a5     load immediate 165
+2793  a4        uless_or_equal
+2794  df 0c     orjp 27a2
+2796  2a        load local word-10
+2797  63        load stack word3
+2798  8d b2     load immediate 178
+279a  a5        ugreater_or_equal
+279b  de 05     andjp 27a2
+279d  2a        load local word-10
+279e  63        load stack word3
+279f  8d b5     load immediate 181
+27a1  a4        uless_or_equal
+27a2  e1 53 01  jpfalse 28f7
+27a5  06        load param4
+27a6  ed 2a     call proc42
+27a8  47        load global word7
+27a9  94        load immediate 4
+27aa  a0        equal
+27ab  de 05     andjp 27b2
+27ad  2a        load local word-10
+27ae  63        load stack word3
+27af  8d a3     load immediate 163
+27b1  a0        equal
+27b2  de 02     andjp 27b6
+27b4  4b        load global word11
+27b5  ab        eq0
+27b6  e3 04     jpfalse 27bc
+27b8  2a        load local word-10
+27b9  8d a1     load immediate 161
+27bb  73        store stack word3
+27bc  47        load global word7
+27bd  94        load immediate 4
+27be  a0        equal
+27bf  de 04     andjp 27c5
+27c1  4b        load global word11
+27c2  8d ff     load immediate 255
+27c4  a4        uless_or_equal
+27c5  de 0c     andjp 27d3
+27c7  2a        load local word-10
+27c8  63        load stack word3
+27c9  8d a0     load immediate 160
+27cb  a0        equal
+27cc  df 05     orjp 27d3
+27ce  2a        load local word-10
+27cf  63        load stack word3
+27d0  8d a1     load immediate 161
+27d2  a0        equal
+27d3  e3 17     jpfalse 27ec
+27d5  90        load immediate 0
+27d6  ed 2d     call proc45
+27d8  4b        load global word11
+27d9  cb        not_zero
+27da  e3 05     jpfalse 27e1
+27dc  8d 90     load immediate 144
+27de  90        load immediate 0
+27df  ed 2e     call proc46
+27e1  ed 21     call proc33
+27e3  8d b0     load immediate 176
+27e5  91        load immediate 1
+27e6  ed 2e     call proc46
+27e8  ed 21     call proc33
+27ea  e2 9a     jp 2886
+27ec  2a        load local word-10
+27ed  63        load stack word3
+27ee  8d a4     load immediate 164
+27f0  a0        equal
+27f1  df 05     orjp 27f8
+27f3  2a        load local word-10
+27f4  63        load stack word3
+27f5  8d b4     load immediate 180
+27f7  a0        equal
+27f8  e3 0b     jpfalse 2805
+27fa  ed 21     call proc33
+27fc  2a        load local word-10
+27fd  2a        load local word-10
+27fe  63        load stack word3
+27ff  91        load immediate 1
+2800  c0        uadd_checked
+2801  8d ff     load immediate 255
+2803  dc        limit_check
+2804  73        store stack word3
+2805  2a        load local word-10
+2806  63        load stack word3
+2807  8d a3     load immediate 163
+2809  a0        equal
+280a  df 05     orjp 2811
+280c  2a        load local word-10
+280d  63        load stack word3
+280e  8d b3     load immediate 179
+2810  a0        equal
+2811  e3 0b     jpfalse 281e
+2813  ed 21     call proc33
+2815  2a        load local word-10
+2816  2a        load local word-10
+2817  63        load stack word3
+2818  91        load immediate 1
+2819  c1        usub_checked
+281a  8d ff     load immediate 255
+281c  dc        limit_check
+281d  73        store stack word3
+281e  2a        load local word-10
+281f  63        load stack word3
+2820  8d a0     load immediate 160
+2822  a0        equal
+2823  df 05     orjp 282a
+2825  2a        load local word-10
+2826  63        load stack word3
+2827  8d a1     load immediate 161
+2829  a0        equal
+282a  e3 4a     jpfalse 2876
+282c  46        load global word6
+282d  47        load global word7
+282e  a3        ugreater_than
+282f  e3 02     jpfalse 2833
+2831  ed 21     call proc33
+2833  47        load global word7
+2834  93        load immediate 3
+2835  a0        equal
+2836  de 03     andjp 283b
+2838  46        load global word6
+2839  96        load immediate 6
+283a  e7        bitwise_in
+283b  e3 0b     jpfalse 2848
+283d  8d b7     load immediate 183
+283f  8d ed     load immediate 237
+2841  8d 42     load immediate 66
+2843  48        load global word8
+2844  c0        uadd_checked
+2845  f3        call proc3
+2846  e2 2c     jp 2874
+2848  90        load immediate 0
+2849  ed 2d     call proc45
+284b  8d 90     load immediate 144
+284d  90        load immediate 0
+284e  ed 2e     call proc46
+2850  43        load global word3
+2851  39        store local word-9
+2852  2a        load local word-10
+2853  63        load stack word3
+2854  8d a0     load immediate 160
+2856  a0        equal
+2857  05        load param3
+2858  a0        equal
+2859  e3 09     jpfalse 2864
+285b  8d c2     load immediate 194
+285d  80 fa     load local address -6
+285f  04        load param2
+2860  f0 1a     call NATIVE.proc10
+2862  e2 08     jp 286c
+2864  8d c2     load immediate 194
+2866  03        load param1
+2867  04        load param2
+2868  f0 1a     call NATIVE.proc10
+286a  29        load local word-9
+286b  fb        call proc11
+286c  91        load immediate 1
+286d  ed 2d     call proc45
+286f  8d 98     load immediate 152
+2871  91        load immediate 1
+2872  ed 2e     call proc46
+2874  e2 10     jp 2886
+2876  90        load immediate 0
+2877  ed 2d     call proc45
+2879  8d 90     load immediate 144
+287b  90        load immediate 0
+287c  ed 2e     call proc46
+287e  91        load immediate 1
+287f  ed 2d     call proc45
+2881  8d 98     load immediate 152
+2883  91        load immediate 1
+2884  ed 2e     call proc46
+2886  2a        load local word-10
+2887  63        load stack word3
+2888  e2 33     jp 28bd
+288a  98        load immediate 8
+288b  35        store local word-5
+288c  ce        jump_stack
+288d  90        load immediate 0
+288e  35        store local word-5
+288f  ce        jump_stack
+2890  8d 10     load immediate 16
+2892  35        store local word-5
+2893  ce        jump_stack
+2894  8d 18     load immediate 24
+2896  35        store local word-5
+2897  ce        jump_stack
+2898  8d e2     load immediate 226
+289a  80 fa     load local address -6
+289c  90        load immediate 0
+289d  f0 1a     call NATIVE.proc10
+289f  8d ee     load immediate 238
+28a1  8d 80     load immediate 128
+28a3  f2        call proc2
+28a4  80 fa     load local address -6
+28a6  f0 19     call NATIVE.proc9
+28a8  80 fa     load local address -6
+28aa  9c        load immediate 12
+28ab  40 06     DEALLOCATE
+28ad  2a        load local word-10
+28ae  63        load stack word3
+28af  8d b5     load immediate 181
+28b1  a0        equal
+28b2  e3 05     jpfalse 28b9
+28b4  8d 30     load immediate 48
+28b6  35        store local word-5
+28b7  e2 03     jp 28bc
+28b9  8d 38     load immediate 56
+28bb  35        store local word-5
+28bc  ce        jump_stack
+28bd  cd a0 80 15 00 31 00  callswitch (return to 28f4)
+	case 250 => 288a
+	case 251 => 288d
+	case 252 => 2894
+	case 253 => 28f0
+	case 254 => 28f0
+	case 255 => 2890
+	case 256 => 28f0
+	case 257 => 28f0
+	case 258 => 28f0
+	case 259 => 28f0
+	case 260 => 28f0
+	case 261 => 28f0
+	case 262 => 28f0
+	case 263 => 28f0
+	case 264 => 28f0
+	case 265 => 28f0
+	case 266 => 28f0
+	case 267 => 28f0
+	case 268 => 2898
+	case 269 => 28f0
+	case 270 => 28f0
+	case 271 => 2898
+28f0  9d        load immediate 13
+28f1  90        load immediate 0
+28f2  90        load immediate 0
+28f3  01        Raise
+28f4  e0 4b 01  jp 2a41
+28f7  2a        load local word-10
+28f8  63        load stack word3
+28f9  8d e7     load immediate 231
+28fb  a0        equal
+28fc  e3 6c     jpfalse 296a
+28fe  2a        load local word-10
+28ff  82 04     load stack address 4
+2901  90        load immediate 0
+2902  0e        load indexed word
+2903  62        load stack word2
+2904  ab        eq0
+2905  e3 47     jpfalse 294e
+2907  2a        load local word-10
+2908  82 04     load stack address 4
+290a  91        load immediate 1
+290b  0e        load indexed word
+290c  62        load stack word2
+290d  8e 84 03  load immediate 900
+2910  e7        bitwise_in
+2911  e3 07     jpfalse 291a
+2913  2a        load local word-10
+2914  82 04     load stack address 4
+2916  91        load immediate 1
+2917  0e        load indexed word
+2918  ed 17     call proc23
+291a  06        load param4
+291b  ed 2a     call proc42
+291d  ed 21     call proc33
+291f  4b        load global word11
+2920  8d 10     load immediate 16
+2922  a5        ugreater_or_equal
+2923  e3 04     jpfalse 2929
+2925  92        load immediate 2
+2926  35        store local word-5
+2927  e2 23     jp 294c
+2929  46        load global word6
+292a  8d 30     load immediate 48
+292c  e7        bitwise_in
+292d  e3 02     jpfalse 2931
+292f  ed 2f     call proc47
+2931  4b        load global word11
+2932  98        load immediate 8
+2933  b9        idiv
+2934  dd        check_positive
+2935  37        store local word-7
+2936  4b        load global word11
+2937  97        load immediate 7
+2938  e8        bitwise_and
+2939  98        load immediate 8
+293a  b8        imul
+293b  dd        check_positive
+293c  38        store local word-8
+293d  90        load immediate 0
+293e  35        store local word-5
+293f  8d cb     load immediate 203
+2941  8d 41     load immediate 65
+2943  48        load global word8
+2944  b1 03     shr 3
+2946  c0        uadd_checked
+2947  27        load local word-7
+2948  c1        usub_checked
+2949  28        load local word-8
+294a  c0        uadd_checked
+294b  f2        call proc2
+294c  e2 1a     jp 2968
+294e  2a        load local word-10
+294f  82 04     load stack address 4
+2951  90        load immediate 0
+2952  0e        load indexed word
+2953  ed 17     call proc23
+2955  2a        load local word-10
+2956  82 04     load stack address 4
+2958  91        load immediate 1
+2959  0e        load indexed word
+295a  ed 17     call proc23
+295c  f9        call proc9
+295d  8d e7     load immediate 231
+295f  f0 15     call NATIVE.proc5
+2961  f9        call proc9
+2962  8d f1     load immediate 241
+2964  f1        call proc1
+2965  8d 18     load immediate 24
+2967  35        store local word-5
+2968  e2 d7     jp 2a41
+296a  2a        load local word-10
+296b  63        load stack word3
+296c  8d 91     load immediate 145
+296e  a0        equal
+296f  e3 14     jpfalse 2985
+2971  2a        load local word-10
+2972  82 04     load stack address 4
+2974  90        load immediate 0
+2975  0e        load indexed word
+2976  ed 17     call proc23
+2978  fa        call proc10
+2979  90        load immediate 0
+297a  54        store global word4
+297b  8d 7e     load immediate 126
+297d  8d 1f     load immediate 31
+297f  f2        call proc2
+2980  8d 18     load immediate 24
+2982  35        store local word-5
+2983  e2 bc     jp 2a41
+2985  2a        load local word-10
+2986  63        load stack word3
+2987  8d de     load immediate 222
+2989  a0        equal
+298a  df 05     orjp 2991
+298c  2a        load local word-10
+298d  63        load stack word3
+298e  8d df     load immediate 223
+2990  a0        equal
+2991  e3 36     jpfalse 29c9
+2993  2a        load local word-10
+2994  63        load stack word3
+2995  8d de     load immediate 222
+2997  a0        equal
+2998  05        load param3
+2999  a0        equal
+299a  e3 0e     jpfalse 29aa
+299c  2a        load local word-10
+299d  82 04     load stack address 4
+299f  90        load immediate 0
+29a0  0e        load indexed word
+29a1  05        load param3
+29a2  b6        not
+29a3  04        load param2
+29a4  80 fa     load local address -6
+29a6  ed 16     call proc22
+29a8  e2 0a     jp 29b4
+29aa  2a        load local word-10
+29ab  82 04     load stack address 4
+29ad  90        load immediate 0
+29ae  0e        load indexed word
+29af  05        load param3
+29b0  04        load param2
+29b1  03        load param1
+29b2  ed 16     call proc22
+29b4  2a        load local word-10
+29b5  82 04     load stack address 4
+29b7  91        load immediate 1
+29b8  0e        load indexed word
+29b9  05        load param3
+29ba  04        load param2
+29bb  03        load param1
+29bc  ed 16     call proc22
+29be  05        load param3
+29bf  e3 04     jpfalse 29c5
+29c1  92        load immediate 2
+29c2  35        store local word-5
+29c3  e2 02     jp 29c7
+29c5  91        load immediate 1
+29c6  35        store local word-5
+29c7  e2 78     jp 2a41
+29c9  2a        load local word-10
+29ca  63        load stack word3
+29cb  8d b6     load immediate 182
+29cd  a0        equal
+29ce  e3 16     jpfalse 29e6
+29d0  2a        load local word-10
+29d1  82 04     load stack address 4
+29d3  90        load immediate 0
+29d4  0e        load indexed word
+29d5  05        load param3
+29d6  b6        not
+29d7  04        load param2
+29d8  03        load param1
+29d9  ed 16     call proc22
+29db  05        load param3
+29dc  e3 04     jpfalse 29e2
+29de  92        load immediate 2
+29df  35        store local word-5
+29e0  e2 02     jp 29e4
+29e2  91        load immediate 1
+29e3  35        store local word-5
+29e4  e2 5b     jp 2a41
+29e6  2a        load local word-10
+29e7  63        load stack word3
+29e8  8d e8     load immediate 232
+29ea  a0        equal
+29eb  de 07     andjp 29f4
+29ed  2a        load local word-10
+29ee  82 04     load stack address 4
+29f0  91        load immediate 1
+29f1  0e        load indexed word
+29f2  62        load stack word2
+29f3  ab        eq0
+29f4  e3 26     jpfalse 2a1c
+29f6  90        load immediate 0
+29f7  2a        load local word-10
+29f8  82 04     load stack address 4
+29fa  91        load immediate 1
+29fb  0e        load indexed word
+29fc  82 03     load stack address 3
+29fe  90        load immediate 0
+29ff  0e        load indexed word
+2a00  e7        bitwise_in
+2a01  e3 15     jpfalse 2a18
+2a03  2a        load local word-10
+2a04  82 04     load stack address 4
+2a06  90        load immediate 0
+2a07  0e        load indexed word
+2a08  05        load param3
+2a09  04        load param2
+2a0a  03        load param1
+2a0b  ed 16     call proc22
+2a0d  05        load param3
+2a0e  e3 04     jpfalse 2a14
+2a10  92        load immediate 2
+2a11  35        store local word-5
+2a12  e2 02     jp 2a16
+2a14  91        load immediate 1
+2a15  35        store local word-5
+2a16  e2 02     jp 2a1a
+2a18  92        load immediate 2
+2a19  35        store local word-5
+2a1a  e2 25     jp 2a41
+2a1c  2a        load local word-10
+2a1d  63        load stack word3
+2a1e  f0 17     call NATIVE.proc7
+2a20  e3 15     jpfalse 2a37
+2a22  2a        load local word-10
+2a23  82 04     load stack address 4
+2a25  90        load immediate 0
+2a26  0e        load indexed word
+2a27  ed 17     call proc23
+2a29  2a        load local word-10
+2a2a  82 04     load stack address 4
+2a2c  91        load immediate 1
+2a2d  0e        load indexed word
+2a2e  ed 17     call proc23
+2a30  f9        call proc9
+2a31  2a        load local word-10
+2a32  63        load stack word3
+2a33  f0 15     call NATIVE.proc5
+2a35  e2 03     jp 2a3a
+2a37  06        load param4
+2a38  ed 17     call proc23
+2a3a  f9        call proc9
+2a3b  8d f1     load immediate 241
+2a3d  f1        call proc1
+2a3e  8d 18     load immediate 24
+2a40  35        store local word-5
+2a41  06        load param4
+2a42  ed 29     call proc41
+2a44  ce        jump_stack
+2a45  cd 00 80 06 00 13 00  callswitch (return to 2a5e)
+	case 90 => 270d
+	case 91 => 2773
+	case 92 => 2788
+	case 93 => 271d
+	case 94 => 271d
+	case 95 => 2754
+	case 96 => 2767
+2a5a  9d        load immediate 13
+2a5b  90        load immediate 0
+2a5c  90        load immediate 0
+2a5d  01        Raise
+2a5e  05        load param3
+2a5f  b6        not
+2a60  e3 9c     jpfalse 2afe
+2a62  25        load local word-5
+2a63  e2 1c     jp 2a81
+2a65  91        load immediate 1
+2a66  35        store local word-5
+2a67  ce        jump_stack
+2a68  92        load immediate 2
+2a69  35        store local word-5
+2a6a  ce        jump_stack
+2a6b  8d 10     load immediate 16
+2a6d  35        store local word-5
+2a6e  ce        jump_stack
+2a6f  8d 18     load immediate 24
+2a71  35        store local word-5
+2a72  ce        jump_stack
+2a73  90        load immediate 0
+2a74  35        store local word-5
+2a75  ce        jump_stack
+2a76  98        load immediate 8
+2a77  35        store local word-5
+2a78  ce        jump_stack
+2a79  8d 38     load immediate 56
+2a7b  35        store local word-5
+2a7c  ce        jump_stack
+2a7d  8d 30     load immediate 48
+2a7f  35        store local word-5
+2a80  ce        jump_stack
+2a81  cd 00 80 38 00 77 00  callswitch (return to 2afe)
+	case 90 => 2a76
+	case 91 => 2a68
+	case 92 => 2a65
+	case 93 => 2afa
+	case 94 => 2afa
+	case 95 => 2afa
+	case 96 => 2afa
+	case 97 => 2afa
+	case 98 => 2a73
+	case 99 => 2afa
+	case 100 => 2afa
+	case 101 => 2afa
+	case 102 => 2afa
+	case 103 => 2afa
+	case 104 => 2afa
+	case 105 => 2afa
+	case 106 => 2a6f
+	case 107 => 2afa
+	case 108 => 2afa
+	case 109 => 2afa
+	case 110 => 2afa
+	case 111 => 2afa
+	case 112 => 2afa
+	case 113 => 2afa
+	case 114 => 2a6b
+	case 115 => 2afa
+	case 116 => 2afa
+	case 117 => 2afa
+	case 118 => 2afa
+	case 119 => 2afa
+	case 120 => 2afa
+	case 121 => 2afa
+	case 122 => 2afa
+	case 123 => 2afa
+	case 124 => 2afa
+	case 125 => 2afa
+	case 126 => 2afa
+	case 127 => 2afa
+	case 128 => 2afa
+	case 129 => 2afa
+	case 130 => 2afa
+	case 131 => 2afa
+	case 132 => 2afa
+	case 133 => 2afa
+	case 134 => 2afa
+	case 135 => 2afa
+	case 136 => 2afa
+	case 137 => 2afa
+	case 138 => 2a79
+	case 139 => 2afa
+	case 140 => 2afa
+	case 141 => 2afa
+	case 142 => 2afa
+	case 143 => 2afa
+	case 144 => 2afa
+	case 145 => 2afa
+	case 146 => 2a7d
+2afa  9d        load immediate 13
+2afb  90        load immediate 0
+2afc  90        load immediate 0
+2afd  01        Raise
+2afe  45        load global word5
+2aff  e3 05     jpfalse 2b06
+2b01  8d d1     load immediate 209
+2b03  f1        call proc1
+2b04  90        load immediate 0
+2b05  55        store global word5
+2b06  25        load local word-5
+2b07  92        load immediate 2
+2b08  a1        not_equal
+2b09  e3 08     jpfalse 2b13
+2b0b  8d c2     load immediate 194
+2b0d  25        load local word-5
+2b0e  c0        uadd_checked
+2b0f  03        load param1
+2b10  04        load param2
+2b11  f0 1a     call NATIVE.proc10
+2b13  26        load local word-6
+2b14  cb        not_zero
+2b15  e3 12     jpfalse 2b29
+2b17  04        load param2
+2b18  e3 06     jpfalse 2b20
+2b1a  26        load local word-6
+2b1b  82 03     load stack address 3
+2b1d  91        load immediate 1
+2b1e  ed 12     call proc18
+2b20  80 fa     load local address -6
+2b22  f0 19     call NATIVE.proc9
+2b24  80 fa     load local address -6
+2b26  9c        load immediate 12
+2b27  40 06     DEALLOCATE
+2b29  2a        load local word-10
+2b2a  91        load immediate 1
+2b2b  72        store stack word2
+2b2c  2a        load local word-10
+2b2d  2a        load local word-10
+2b2e  61        load stack word1
+2b2f  ed 1f     call proc31
+2b31  8d ff     load immediate 255
+2b33  dc        limit_check
+2b34  71        store stack word1
+2b35  84 84     leave 132
+2b37  bc        abs
+2b38  19 db     store global dword 219
+2b3a  3e 00     store stack word 0
+2b3c  00        Error16
+2b3d  d4 ff     enter -1
+2b3f  05        load param3
+2b40  8d c0     load immediate 192
+2b42  a0        equal
+2b43  df 04     orjp 2b49
+2b45  05        load param3
+2b46  8d c1     load immediate 193
+2b48  a0        equal
+2b49  e3 0a     jpfalse 2b55
+2b4b  8d c4     load immediate 196
+2b4d  04        load param2
+2b4e  c0        uadd_checked
+2b4f  8e 52 05  load immediate 1362
+2b52  f6        call proc6
+2b53  e2 14     jp 2b69
+2b55  05        load param3
+2b56  8d d0     load immediate 208
+2b58  a0        equal
+2b59  df 04     orjp 2b5f
+2b5b  05        load param3
+2b5c  8d d1     load immediate 209
+2b5e  a0        equal
+2b5f  e3 08     jpfalse 2b69
+2b61  8d c4     load immediate 196
+2b63  03        load param1
+2b64  c0        uadd_checked
+2b65  8e 52 05  load immediate 1362
+2b68  f6        call proc6
+2b69  8b        leave6
+2b6a  d8        real_mul
+2b6b  18 3d     store local dword +61
+2b6d  6b        load stack word11
+2b6e  00        Error16
+2b6f  00        Error16
+2b70  d4 ff     enter -1
+2b72  90        load immediate 0
+2b73  ed 2d     call proc45
+2b75  04        load param2
+2b76  90        load immediate 0
+2b77  ed 2e     call proc46
+2b79  8d 6f     load immediate 111
+2b7b  f1        call proc1
+2b7c  91        load immediate 1
+2b7d  ed 2d     call proc45
+2b7f  03        load param1
+2b80  91        load immediate 1
+2b81  ed 2e     call proc46
+2b83  8d 67     load immediate 103
+2b85  f1        call proc1
+2b86  84 02     leave 2
+2b88  5e        store global word14
+2b89  11 fc     load outer frame 252
+2b8b  d2        reserve
+2b8c  00        Error16
+2b8d  00        Error16
+2b8e  d4 fb     enter -5
+2b90  46        load global word6
+2b91  47        load global word7
+2b92  a3        ugreater_than
+2b93  e3 02     jpfalse 2b97
+2b95  ed 21     call proc33
+2b97  47        load global word7
+2b98  95        load immediate 5
+2b99  a0        equal
+2b9a  de 03     andjp 2b9f
+2b9c  46        load global word6
+2b9d  94        load immediate 4
+2b9e  a0        equal
+2b9f  de 03     andjp 2ba4
+2ba1  4a        load global word10
+2ba2  94        load immediate 4
+2ba3  a4        uless_or_equal
+2ba4  e3 04     jpfalse 2baa
+2ba6  ed 21     call proc33
+2ba8  ed 2f     call proc47
+2baa  46        load global word6
+2bab  96        load immediate 6
+2bac  e7        bitwise_in
+2bad  e3 29     jpfalse 2bd8
+2baf  47        load global word7
+2bb0  96        load immediate 6
+2bb1  e7        bitwise_in
+2bb2  e3 09     jpfalse 2bbd
+2bb4  f9        call proc9
+2bb5  ed 21     call proc33
+2bb7  ed 2f     call proc47
+2bb9  ed 21     call proc33
+2bbb  e2 1b     jp 2bd8
+2bbd  47        load global word7
+2bbe  94        load immediate 4
+2bbf  a0        equal
+2bc0  e3 16     jpfalse 2bd8
+2bc2  f9        call proc9
+2bc3  4b        load global word11
+2bc4  92        load immediate 2
+2bc5  a4        uless_or_equal
+2bc6  de 04     andjp 2bcc
+2bc8  03        load param1
+2bc9  8d a6     load immediate 166
+2bcb  a0        equal
+2bcc  e3 04     jpfalse 2bd2
+2bce  ed 2f     call proc47
+2bd0  e2 06     jp 2bd8
+2bd2  8d 21     load immediate 33
+2bd4  4b        load global word11
+2bd5  f6        call proc6
+2bd6  93        load immediate 3
+2bd7  57        store global word7
+2bd8  10        load outer frame
+2bd9  af 12     sub 18
+2bdb  8d 18     load immediate 24
+2bdd  70        store stack word0
+2bde  4c        load global word12
+2bdf  de 03     andjp 2be4
+2be1  46        load global word6
+2be2  93        load immediate 3
+2be3  a0        equal
+2be4  de 03     andjp 2be9
+2be6  47        load global word7
+2be7  94        load immediate 4
+2be8  a0        equal
+2be9  de 14     andjp 2bff
+2beb  03        load param1
+2bec  8d a6     load immediate 166
+2bee  a0        equal
+2bef  de 03     andjp 2bf4
+2bf1  4b        load global word11
+2bf2  93        load immediate 3
+2bf3  a3        ugreater_than
+2bf4  df 09     orjp 2bff
+2bf6  03        load param1
+2bf7  8d a6     load immediate 166
+2bf9  a1        not_equal
+2bfa  de 03     andjp 2bff
+2bfc  4b        load global word11
+2bfd  91        load immediate 1
+2bfe  a3        ugreater_than
+2bff  e3 0d     jpfalse 2c0e
+2c01  ed 26     call proc38
+2c03  91        load immediate 1
+2c04  4d        load global word13
+2c05  c0        uadd_checked
+2c06  4b        load global word11
+2c07  f6        call proc6
+2c08  4e        load global word14
+2c09  57        store global word7
+2c0a  4d        load global word13
+2c0b  59        store global word9
+2c0c  ed 21     call proc33
+2c0e  47        load global word7
+2c0f  93        load immediate 3
+2c10  a0        equal
+2c11  de 03     andjp 2c16
+2c13  46        load global word6
+2c14  96        load immediate 6
+2c15  e7        bitwise_in
+2c16  e3 17     jpfalse 2c2f
+2c18  03        load param1
+2c19  8d d0     load immediate 208
+2c1b  a0        equal
+2c1c  e3 0b     jpfalse 2c29
+2c1e  8d b7     load immediate 183
+2c20  8d ed     load immediate 237
+2c22  8d 4a     load immediate 74
+2c24  48        load global word8
+2c25  c0        uadd_checked
+2c26  f3        call proc3
+2c27  e2 04     jp 2c2d
+2c29  99        load immediate 9
+2c2a  48        load global word8
+2c2b  c0        uadd_checked
+2c2c  f1        call proc1
+2c2d  e2 53     jp 2c82
+2c2f  46        load global word6
+2c30  93        load immediate 3
+2c31  a0        equal
+2c32  de 03     andjp 2c37
+2c34  47        load global word7
+2c35  94        load immediate 4
+2c36  a0        equal
+2c37  de 03     andjp 2c3c
+2c39  4b        load global word11
+2c3a  96        load immediate 6
+2c3b  a4        uless_or_equal
+2c3c  de 04     andjp 2c42
+2c3e  03        load param1
+2c3f  8d a6     load immediate 166
+2c41  a0        equal
+2c42  e3 19     jpfalse 2c5d
+2c44  91        load immediate 1
+2c45  32        store local word-2
+2c46  4b        load global word11
+2c47  dd        check_positive
+2c48  33        store local word-3
+2c49  22        load local word-2
+2c4a  23        load local word-3
+2c4b  a4        uless_or_equal
+2c4c  e3 0d     jpfalse 2c5b
+2c4e  10        load outer frame
+2c4f  af 04     sub 4
+2c51  22        load local word-2
+2c52  70        store stack word0
+2c53  8d 23     load immediate 35
+2c55  f1        call proc1
+2c56  22        load local word-2
+2c57  ac        inc
+2c58  32        store local word-2
+2c59  e4 12     jp 2c49
+2c5b  e2 25     jp 2c82
+2c5d  46        load global word6
+2c5e  93        load immediate 3
+2c5f  a0        equal
+2c60  de 03     andjp 2c65
+2c62  47        load global word7
+2c63  94        load immediate 4
+2c64  a0        equal
+2c65  de 03     andjp 2c6a
+2c67  4b        load global word11
+2c68  91        load immediate 1
+2c69  a0        equal
+2c6a  e3 0f     jpfalse 2c7b
+2c6c  8d 2c     load immediate 44
+2c6e  8d 20     load immediate 32
+2c70  94        load immediate 4
+2c71  8d 24     load immediate 36
+2c73  f4        call proc4
+2c74  10        load outer frame
+2c75  af 12     sub 18
+2c77  98        load immediate 8
+2c78  70        store stack word0
+2c79  e2 07     jp 2c82
+2c7b  8d 80     load immediate 128
+2c7d  8d 88     load immediate 136
+2c7f  10        load outer frame
+2c80  ee 31     call_with_frame proc49
+2c82  03        load param1
+2c83  10        load outer frame
+2c84  af 12     sub 18
+2c86  60        load stack word0
+2c87  8d 28     load immediate 40
+2c89  ed 30     call proc48
+2c8b  84 01     leave 1
+2c8d  1f        store indexed dword
+2c8e  02 35     load proc_addr proc53
+2c90  d6        real_add
+2c91  00        Error16
+2c92  00        Error16
+2c93  d4 eb     enter -21
+2c95  90        load immediate 0
+2c96  34        store local word-4
+2c97  90        load immediate 0
+2c98  35        store local word-5
+2c99  03        load param1
+2c9a  ab        eq0
+2c9b  e3 01     jpfalse 2c9e
+2c9d  89        leave2
+2c9e  03        load param1
+2c9f  ed 27     call proc39
+2ca1  03        load param1
+2ca2  3a        store local word-10
+2ca3  2a        load local word-10
+2ca4  62        load stack word2
+2ca5  e0 49 06  jp 32f0
+2ca8  ce        jump_stack
+2ca9  f9        call proc9
+2caa  2a        load local word-10
+2cab  61        load stack word1
+2cac  94        load immediate 4
+2cad  a0        equal
+2cae  e3 0b     jpfalse 2cbb
+2cb0  8d 21     load immediate 33
+2cb2  2a        load local word-10
+2cb3  82 03     load stack address 3
+2cb5  91        load immediate 1
+2cb6  0e        load indexed word
+2cb7  f6        call proc6
+2cb8  8d e5     load immediate 229
+2cba  f1        call proc1
+2cbb  8d 21     load immediate 33
+2cbd  2a        load local word-10
+2cbe  82 03     load stack address 3
+2cc0  90        load immediate 0
+2cc1  0e        load indexed word
+2cc2  f6        call proc6
+2cc3  91        load immediate 1
+2cc4  54        store global word4
+2cc5  ce        jump_stack
+2cc6  2a        load local word-10
+2cc7  63        load stack word3
+2cc8  92        load immediate 2
+2cc9  b9        idiv
+2cca  5a        store global word10
+2ccb  2a        load local word-10
+2ccc  62        load stack word2
+2ccd  94        load immediate 4
+2cce  a0        equal
+2ccf  de 04     andjp 2cd5
+2cd1  4a        load global word10
+2cd2  8d 40     load immediate 64
+2cd4  b5        igreater_or_equal
+2cd5  e3 05     jpfalse 2cdc
+2cd7  4a        load global word10
+2cd8  8d 80     load immediate 128
+2cda  d0        iadd_checked
+2cdb  5a        store global word10
+2cdc  2a        load local word-10
+2cdd  62        load stack word2
+2cde  2a        load local word-10
+2cdf  63        load stack word3
+2ce0  90        load immediate 0
+2ce1  81 1c     load global address 28
+2ce3  81 1e     load global address 30
+2ce5  81 08     load global address 8
+2ce7  ed 24     call proc36
+2ce9  2a        load local word-10
+2cea  61        load stack word1
+2ceb  94        load immediate 4
+2cec  a0        equal
+2ced  de 03     andjp 2cf2
+2cef  2d 1c     load global word 28
+2cf1  b6        not
+2cf2  e3 10     jpfalse 2d04
+2cf4  f9        call proc9
+2cf5  8d 3e     load immediate 62
+2cf7  4a        load global word10
+2cf8  dd        check_positive
+2cf9  f2        call proc2
+2cfa  98        load immediate 8
+2cfb  2a        load local word-10
+2cfc  62        load stack word2
+2cfd  93        load immediate 3
+2cfe  a0        equal
+2cff  c0        uadd_checked
+2d00  f0 15     call NATIVE.proc5
+2d02  e2 5b     jp 2d5f
+2d04  2a        load local word-10
+2d05  61        load stack word1
+2d06  98        load immediate 8
+2d07  a0        equal
+2d08  de 03     andjp 2d0d
+2d0a  2d 1c     load global word 28
+2d0c  b6        not
+2d0d  e3 12     jpfalse 2d21
+2d0f  f9        call proc9
+2d10  8d 2e     load immediate 46
+2d12  2a        load local word-10
+2d13  62        load stack word2
+2d14  93        load immediate 3
+2d15  a0        equal
+2d16  8d 3e     load immediate 62
+2d18  4a        load global word10
+2d19  dd        check_positive
+2d1a  f4        call proc4
+2d1b  8d 12     load immediate 18
+2d1d  f0 15     call NATIVE.proc5
+2d1f  e2 3e     jp 2d5f
+2d21  2a        load local word-10
+2d22  61        load stack word1
+2d23  32        store local word-2
+2d24  2a        load local word-10
+2d25  63        load stack word3
+2d26  22        load local word-2
+2d27  dd        check_positive
+2d28  d0        iadd_checked
+2d29  5a        store global word10
+2d2a  22        load local word-2
+2d2b  cb        not_zero
+2d2c  e3 31     jpfalse 2d5f
+2d2e  22        load local word-2
+2d2f  92        load immediate 2
+2d30  c1        usub_checked
+2d31  32        store local word-2
+2d32  4a        load global word10
+2d33  92        load immediate 2
+2d34  d1        isub_checked
+2d35  5a        store global word10
+2d36  f9        call proc9
+2d37  2a        load local word-10
+2d38  62        load stack word2
+2d39  4a        load global word10
+2d3a  90        load immediate 0
+2d3b  81 1c     load global address 28
+2d3d  81 1e     load global address 30
+2d3f  81 08     load global address 8
+2d41  ed 24     call proc36
+2d43  2d 1c     load global word 28
+2d45  e3 0a     jpfalse 2d51
+2d47  2d 1e     load global word 30
+2d49  fb        call proc11
+2d4a  8d c5     load immediate 197
+2d4c  48        load global word8
+2d4d  c0        uadd_checked
+2d4e  f1        call proc1
+2d4f  e2 08     jp 2d59
+2d51  2a        load local word-10
+2d52  62        load stack word2
+2d53  90        load immediate 0
+2d54  4a        load global word10
+2d55  8d 20     load immediate 32
+2d57  ed 20     call proc32
+2d59  2d 1c     load global word 28
+2d5b  b6        not
+2d5c  54        store global word4
+2d5d  e4 35     jp 2d2a
+2d5f  ce        jump_stack
+2d60  f9        call proc9
+2d61  8d 21     load immediate 33
+2d63  42        load global word2
+2d64  91        load immediate 1
+2d65  c0        uadd_checked
+2d66  2a        load local word-10
+2d67  63        load stack word3
+2d68  f0 12     call NATIVE.proc2
+2d6a  f6        call proc6
+2d6b  91        load immediate 1
+2d6c  54        store global word4
+2d6d  ce        jump_stack
+2d6e  f9        call proc9
+2d6f  8d dd     load immediate 221
+2d71  8d e5     load immediate 229
+2d73  f2        call proc2
+2d74  ce        jump_stack
+2d75  2d 15     load global word 21
+2d77  36        store local word-6
+2d78  2d 17     load global word 23
+2d7a  37        store local word-7
+2d7b  90        load immediate 0
+2d7c  3d 15     store global word 21
+2d7e  2d 16     load global word 22
+2d80  9f        load immediate 15
+2d81  26        load local word-6
+2d82  b7        complement
+2d83  e8        bitwise_and
+2d84  e6        bitwise_or
+2d85  3d 17     store global word 23
+2d87  03        load param1
+2d88  f0 1e     call NATIVE.proc14
+2d8a  2a        load local word-10
+2d8b  61        load stack word1
+2d8c  ff        call proc15
+2d8d  26        load local word-6
+2d8e  3d 15     store global word 21
+2d90  27        load local word-7
+2d91  3d 17     store global word 23
+2d93  ce        jump_stack
+2d94  f9        call proc9
+2d95  8d cd     load immediate 205
+2d97  42        load global word2
+2d98  2a        load local word-10
+2d99  63        load stack word3
+2d9a  c0        uadd_checked
+2d9b  93        load immediate 3
+2d9c  c0        uadd_checked
+2d9d  f6        call proc6
+2d9e  f0 18     call NATIVE.proc8
+2da0  90        load immediate 0
+2da1  32        store local word-2
+2da2  2a        load local word-10
+2da3  63        load stack word3
+2da4  91        load immediate 1
+2da5  c1        usub_checked
+2da6  3b        store local word-11
+2da7  22        load local word-2
+2da8  2b        load local word-11
+2da9  a4        uless_or_equal
+2daa  e3 0d     jpfalse 2db9
+2dac  2a        load local word-10
+2dad  64        load stack word4
+2dae  22        load local word-2
+2daf  8d 7f     load immediate 127
+2db1  dc        limit_check
+2db2  0d        load indexed byte
+2db3  f1        call proc1
+2db4  22        load local word-2
+2db5  ac        inc
+2db6  32        store local word-2
+2db7  e4 12     jp 2da7
+2db9  2a        load local word-10
+2dba  82 04     load stack address 4
+2dbc  8d 80     load immediate 128
+2dbe  40 06     DEALLOCATE
+2dc0  ce        jump_stack
+2dc1  f9        call proc9
+2dc2  8d 21     load immediate 33
+2dc4  0c 15     load NATIVE.word5
+2dc6  2a        load local word-10
+2dc7  63        load stack word3
+2dc8  0e        load indexed word
+2dc9  f6        call proc6
+2dca  91        load immediate 1
+2dcb  54        store global word4
+2dcc  f0 18     call NATIVE.proc8
+2dce  ce        jump_stack
+2dcf  2a        load local word-10
+2dd0  63        load stack word3
+2dd1  f0 16     call NATIVE.proc6
+2dd3  df 0e     orjp 2de3
+2dd5  2a        load local word-10
+2dd6  63        load stack word3
+2dd7  8d a8     load immediate 168
+2dd9  a0        equal
+2dda  de 07     andjp 2de3
+2ddc  2a        load local word-10
+2ddd  82 04     load stack address 4
+2ddf  91        load immediate 1
+2de0  0e        load indexed word
+2de1  62        load stack word2
+2de2  cb        not_zero
+2de3  e3 85     jpfalse 2e6a
+2de5  91        load immediate 1
+2de6  32        store local word-2
+2de7  2a        load local word-10
+2de8  63        load stack word3
+2de9  f0 14     call NATIVE.proc4
+2deb  3b        store local word-11
+2dec  22        load local word-2
+2ded  2b        load local word-11
+2dee  a4        uless_or_equal
+2def  e3 10     jpfalse 2e01
+2df1  2a        load local word-10
+2df2  82 04     load stack address 4
+2df4  22        load local word-2
+2df5  91        load immediate 1
+2df6  91        load immediate 1
+2df7  da        urange_check
+2df8  ad        dec
+2df9  0e        load indexed word
+2dfa  ed 17     call proc23
+2dfc  22        load local word-2
+2dfd  ac        inc
+2dfe  32        store local word-2
+2dff  e4 15     jp 2dec
+2e01  f9        call proc9
+2e02  2a        load local word-10
+2e03  63        load stack word3
+2e04  8d 92     load immediate 146
+2e06  a0        equal
+2e07  e3 02     jpfalse 2e0b
+2e09  e2 5c     jp 2e67
+2e0b  2a        load local word-10
+2e0c  63        load stack word3
+2e0d  8d 42     load immediate 66
+2e0f  a5        ugreater_or_equal
+2e10  de 05     andjp 2e17
+2e12  2a        load local word-10
+2e13  63        load stack word3
+2e14  8d 4f     load immediate 79
+2e16  a4        uless_or_equal
+2e17  df 0c     orjp 2e25
+2e19  2a        load local word-10
+2e1a  63        load stack word3
+2e1b  8d 52     load immediate 82
+2e1d  a5        ugreater_or_equal
+2e1e  de 05     andjp 2e25
+2e20  2a        load local word-10
+2e21  63        load stack word3
+2e22  8d 56     load immediate 86
+2e24  a4        uless_or_equal
+2e25  e3 16     jpfalse 2e3d
+2e27  8d 3e     load immediate 62
+2e29  2a        load local word-10
+2e2a  63        load stack word3
+2e2b  8d 42     load immediate 66
+2e2d  c1        usub_checked
+2e2e  2a        load local word-10
+2e2f  63        load stack word3
+2e30  8d 52     load immediate 82
+2e32  a5        ugreater_or_equal
+2e33  92        load immediate 2
+2e34  c2        umul_checked
+2e35  c1        usub_checked
+2e36  f2        call proc2
+2e37  8d 40     load immediate 64
+2e39  f0 15     call NATIVE.proc5
+2e3b  e2 2a     jp 2e67
+2e3d  2a        load local word-10
+2e3e  63        load stack word3
+2e3f  8d 20     load immediate 32
+2e41  a5        ugreater_or_equal
+2e42  de 05     andjp 2e49
+2e44  2a        load local word-10
+2e45  63        load stack word3
+2e46  8d 2a     load immediate 42
+2e48  a4        uless_or_equal
+2e49  e3 18     jpfalse 2e63
+2e4b  8d 2e     load immediate 46
+2e4d  2a        load local word-10
+2e4e  63        load stack word3
+2e4f  8d 20     load immediate 32
+2e51  c1        usub_checked
+2e52  f2        call proc2
+2e53  2a        load local word-10
+2e54  63        load stack word3
+2e55  8d 22     load immediate 34
+2e57  a0        equal
+2e58  e3 03     jpfalse 2e5d
+2e5a  8d af     load immediate 175
+2e5c  f1        call proc1
+2e5d  8d 12     load immediate 18
+2e5f  f0 15     call NATIVE.proc5
+2e61  e2 04     jp 2e67
+2e63  2a        load local word-10
+2e64  63        load stack word3
+2e65  f0 15     call NATIVE.proc5
+2e67  e0 61 04  jp 32ca
+2e6a  2a        load local word-10
+2e6b  63        load stack word3
+2e6c  f0 17     call NATIVE.proc7
+2e6e  e3 35     jpfalse 2ea5
+2e70  03        load param1
+2e71  91        load immediate 1
+2e72  90        load immediate 0
+2e73  80 fc     load local address -4
+2e75  ed 16     call proc22
+2e77  8d b7     load immediate 183
+2e79  f1        call proc1
+2e7a  8d c3     load immediate 195
+2e7c  80 fb     load local address -5
+2e7e  90        load immediate 0
+2e7f  f0 1a     call NATIVE.proc10
+2e81  80 fc     load local address -4
+2e83  f0 19     call NATIVE.proc9
+2e85  80 fc     load local address -4
+2e87  9c        load immediate 12
+2e88  40 06     DEALLOCATE
+2e8a  8d 37     load immediate 55
+2e8c  f1        call proc1
+2e8d  80 fb     load local address -5
+2e8f  f0 19     call NATIVE.proc9
+2e91  80 fb     load local address -5
+2e93  9c        load immediate 12
+2e94  40 06     DEALLOCATE
+2e96  f9        call proc9
+2e97  8d 21     load immediate 33
+2e99  90        load immediate 0
+2e9a  f6        call proc6
+2e9b  8d cb     load immediate 203
+2e9d  8d 15     load immediate 21
+2e9f  f2        call proc2
+2ea0  91        load immediate 1
+2ea1  54        store global word4
+2ea2  e0 26 04  jp 32ca
+2ea5  03        load param1
+2ea6  ed 2a     call proc42
+2ea8  46        load global word6
+2ea9  93        load immediate 3
+2eaa  a1        not_equal
+2eab  de 03     andjp 2eb0
+2ead  47        load global word7
+2eae  93        load immediate 3
+2eaf  a1        not_equal
+2eb0  e3 01     jpfalse 2eb3
+2eb2  f9        call proc9
+2eb3  2a        load local word-10
+2eb4  63        load stack word3
+2eb5  e0 c3 02  jp 317a
+2eb8  91        load immediate 1
+2eb9  ed 18     call proc24
+2ebb  ce        jump_stack
+2ebc  ed 2f     call proc47
+2ebe  8d 7d     load immediate 125
+2ec0  8d e6     load immediate 230
+2ec2  8d 40     load immediate 64
+2ec4  f3        call proc3
+2ec5  8d 1f     load immediate 31
+2ec7  8d 2f     load immediate 47
+2ec9  8d a5     load immediate 165
+2ecb  8d 6f     load immediate 111
+2ecd  f4        call proc4
+2ece  ce        jump_stack
+2ecf  ed 2f     call proc47
+2ed1  8d 7d     load immediate 125
+2ed3  8d 2f     load immediate 47
+2ed5  8d 6f     load immediate 111
+2ed7  f3        call proc3
+2ed8  8d 7c     load immediate 124
+2eda  8d 2f     load immediate 47
+2edc  8d 67     load immediate 103
+2ede  f3        call proc3
+2edf  ce        jump_stack
+2ee0  2a        load local word-10
+2ee1  82 04     load stack address 4
+2ee3  90        load immediate 0
+2ee4  0e        load indexed word
+2ee5  ed 17     call proc23
+2ee7  fa        call proc10
+2ee8  8d e3     load immediate 227
+2eea  8d 7c     load immediate 124
+2eec  f2        call proc2
+2eed  2a        load local word-10
+2eee  63        load stack word3
+2eef  8d 7b     load immediate 123
+2ef1  a0        equal
+2ef2  e3 07     jpfalse 2efb
+2ef4  8d ee     load immediate 238
+2ef6  8d 80     load immediate 128
+2ef8  f2        call proc2
+2ef9  e2 05     jp 2f00
+2efb  8d e6     load immediate 230
+2efd  8d 7f     load immediate 127
+2eff  f2        call proc2
+2f00  8d 67     load immediate 103
+2f02  8d e3     load immediate 227
+2f04  f2        call proc2
+2f05  ce        jump_stack
+2f06  2a        load local word-10
+2f07  82 04     load stack address 4
+2f09  90        load immediate 0
+2f0a  0e        load indexed word
+2f0b  ed 17     call proc23
+2f0d  f9        call proc9
+2f0e  8d 21     load immediate 33
+2f10  90        load immediate 0
+2f11  f6        call proc6
+2f12  91        load immediate 1
+2f13  54        store global word4
+2f14  8d e3     load immediate 227
+2f16  f1        call proc1
+2f17  ce        jump_stack
+2f18  2a        load local word-10
+2f19  63        load stack word3
+2f1a  ec 32     nested_call proc50
+2f1c  ce        jump_stack
+2f1d  46        load global word6
+2f1e  94        load immediate 4
+2f1f  a0        equal
+2f20  de 03     andjp 2f25
+2f22  47        load global word7
+2f23  96        load immediate 6
+2f24  e7        bitwise_in
+2f25  e3 07     jpfalse 2f2e
+2f27  f9        call proc9
+2f28  8d 21     load immediate 33
+2f2a  4a        load global word10
+2f2b  f6        call proc6
+2f2c  93        load immediate 3
+2f2d  56        store global word6
+2f2e  46        load global word6
+2f2f  96        load immediate 6
+2f30  e7        bitwise_in
+2f31  de 03     andjp 2f36
+2f33  47        load global word7
+2f34  94        load immediate 4
+2f35  a0        equal
+2f36  de 03     andjp 2f3b
+2f38  4b        load global word11
+2f39  94        load immediate 4
+2f3a  a2        uless_than
+2f3b  de 05     andjp 2f42
+2f3d  2a        load local word-10
+2f3e  63        load stack word3
+2f3f  8d a7     load immediate 167
+2f41  a0        equal
+2f42  e3 02     jpfalse 2f46
+2f44  ed 2f     call proc47
+2f46  8d 18     load immediate 24
+2f48  39        store local word-9
+2f49  8d 28     load immediate 40
+2f4b  38        store local word-8
+2f4c  4c        load global word12
+2f4d  de 03     andjp 2f52
+2f4f  46        load global word6
+2f50  93        load immediate 3
+2f51  a0        equal
+2f52  de 03     andjp 2f57
+2f54  47        load global word7
+2f55  94        load immediate 4
+2f56  a0        equal
+2f57  de 16     andjp 2f6f
+2f59  2a        load local word-10
+2f5a  63        load stack word3
+2f5b  8d a7     load immediate 167
+2f5d  a0        equal
+2f5e  de 03     andjp 2f63
+2f60  4b        load global word11
+2f61  94        load immediate 4
+2f62  a3        ugreater_than
+2f63  df 0a     orjp 2f6f
+2f65  2a        load local word-10
+2f66  63        load stack word3
+2f67  8d a7     load immediate 167
+2f69  a1        not_equal
+2f6a  de 03     andjp 2f6f
+2f6c  4b        load global word11
+2f6d  91        load immediate 1
+2f6e  a3        ugreater_than
+2f6f  e3 0b     jpfalse 2f7c
+2f71  ed 26     call proc38
+2f73  91        load immediate 1
+2f74  4d        load global word13
+2f75  c0        uadd_checked
+2f76  4b        load global word11
+2f77  f6        call proc6
+2f78  4e        load global word14
+2f79  57        store global word7
+2f7a  4d        load global word13
+2f7b  59        store global word9
+2f7c  46        load global word6
+2f7d  93        load immediate 3
+2f7e  a0        equal
+2f7f  de 03     andjp 2f84
+2f81  47        load global word7
+2f82  96        load immediate 6
+2f83  e7        bitwise_in
+2f84  e3 0b     jpfalse 2f91
+2f86  8d b7     load immediate 183
+2f88  8d ed     load immediate 237
+2f8a  8d 42     load immediate 66
+2f8c  49        load global word9
+2f8d  c0        uadd_checked
+2f8e  f3        call proc3
+2f8f  e2 59     jp 2fea
+2f91  46        load global word6
+2f92  93        load immediate 3
+2f93  a0        equal
+2f94  de 03     andjp 2f99
+2f96  47        load global word7
+2f97  94        load immediate 4
+2f98  a0        equal
+2f99  de 03     andjp 2f9e
+2f9b  4b        load global word11
+2f9c  96        load immediate 6
+2f9d  a4        uless_or_equal
+2f9e  de 05     andjp 2fa5
+2fa0  2a        load local word-10
+2fa1  63        load stack word3
+2fa2  8d a7     load immediate 167
+2fa4  a0        equal
+2fa5  e3 14     jpfalse 2fbb
+2fa7  91        load immediate 1
+2fa8  32        store local word-2
+2fa9  4b        load global word11
+2faa  dd        check_positive
+2fab  3b        store local word-11
+2fac  22        load local word-2
+2fad  2b        load local word-11
+2fae  a4        uless_or_equal
+2faf  e3 08     jpfalse 2fb9
+2fb1  8d 2b     load immediate 43
+2fb3  f1        call proc1
+2fb4  22        load local word-2
+2fb5  ac        inc
+2fb6  32        store local word-2
+2fb7  e4 0d     jp 2fac
+2fb9  e2 2f     jp 2fea
+2fbb  46        load global word6
+2fbc  93        load immediate 3
+2fbd  a0        equal
+2fbe  de 03     andjp 2fc3
+2fc0  47        load global word7
+2fc1  94        load immediate 4
+2fc2  a0        equal
+2fc3  de 03     andjp 2fc8
+2fc5  4b        load global word11
+2fc6  91        load immediate 1
+2fc7  a0        equal
+2fc8  e3 1a     jpfalse 2fe4
+2fca  8d 7c     load immediate 124
+2fcc  f1        call proc1
+2fcd  2a        load local word-10
+2fce  63        load stack word3
+2fcf  8d d1     load immediate 209
+2fd1  a0        equal
+2fd2  e3 05     jpfalse 2fd9
+2fd4  8d ee     load immediate 238
+2fd6  8d 80     load immediate 128
+2fd8  f2        call proc2
+2fd9  8d b5     load immediate 181
+2fdb  8d 2b     load immediate 43
+2fdd  f2        call proc2
+2fde  98        load immediate 8
+2fdf  38        store local word-8
+2fe0  98        load immediate 8
+2fe1  39        store local word-9
+2fe2  e2 06     jp 2fea
+2fe4  8d 90     load immediate 144
+2fe6  8d 98     load immediate 152
+2fe8  ec 31     nested_call proc49
+2fea  2a        load local word-10
+2feb  63        load stack word3
+2fec  29        load local word-9
+2fed  28        load local word-8
+2fee  ed 30     call proc48
+2ff0  ce        jump_stack
+2ff1  46        load global word6
+2ff2  8d 3e     load immediate 62
+2ff4  e7        bitwise_in
+2ff5  de 03     andjp 2ffa
+2ff7  47        load global word7
+2ff8  94        load immediate 4
+2ff9  a0        equal
+2ffa  f0 11     call NATIVE.proc1
+2ffc  46        load global word6
+2ffd  8d 30     load immediate 48
+2fff  e7        bitwise_in
+3000  e3 02     jpfalse 3004
+3002  ed 2f     call proc47
+3004  4b        load global word11
+3005  32        store local word-2
+3006  90        load immediate 0
+3007  33        store local word-3
+3008  22        load local word-2
+3009  91        load immediate 1
+300a  a3        ugreater_than
+300b  e3 0e     jpfalse 301b
+300d  23        load local word-3
+300e  91        load immediate 1
+300f  c0        uadd_checked
+3010  22        load local word-2
+3011  91        load immediate 1
+3012  e8        bitwise_and
+3013  c0        uadd_checked
+3014  33        store local word-3
+3015  22        load local word-2
+3016  b1 01     shr 1
+3018  32        store local word-2
+3019  e4 13     jp 3008
+301b  23        load local word-3
+301c  9c        load immediate 12
+301d  a4        uless_or_equal
+301e  e3 41     jpfalse 3061
+3020  46        load global word6
+3021  93        load immediate 3
+3022  a0        equal
+3023  e3 0e     jpfalse 3033
+3025  8d d5     load immediate 213
+3027  8d 5d     load immediate 93
+3029  8d 54     load immediate 84
+302b  f3        call proc3
+302c  8d 10     load immediate 16
+302e  59        store global word9
+302f  91        load immediate 1
+3030  55        store global word5
+3031  e2 04     jp 3037
+3033  48        load global word8
+3034  59        store global word9
+3035  ed 2f     call proc47
+3037  9f        load immediate 15
+3038  32        store local word-2
+3039  22        load local word-2
+303a  cb        not_zero
+303b  de 04     andjp 3041
+303d  22        load local word-2
+303e  4b        load global word11
+303f  e7        bitwise_in
+3040  b6        not
+3041  e3 06     jpfalse 3049
+3043  22        load local word-2
+3044  91        load immediate 1
+3045  c1        usub_checked
+3046  32        store local word-2
+3047  e4 10     jp 3039
+3049  22        load local word-2
+304a  cb        not_zero
+304b  e3 12     jpfalse 305f
+304d  22        load local word-2
+304e  91        load immediate 1
+304f  c1        usub_checked
+3050  32        store local word-2
+3051  8d 29     load immediate 41
+3053  f1        call proc1
+3054  22        load local word-2
+3055  4b        load global word11
+3056  e7        bitwise_in
+3057  e3 04     jpfalse 305d
+3059  99        load immediate 9
+305a  49        load global word9
+305b  c0        uadd_checked
+305c  f1        call proc1
+305d  e4 16     jp 3049
+305f  e2 13     jp 3074
+3061  8d c5     load immediate 197
+3063  48        load global word8
+3064  c0        uadd_checked
+3065  f1        call proc1
+3066  8d 21     load immediate 33
+3068  4b        load global word11
+3069  f6        call proc6
+306a  8d e5     load immediate 229
+306c  f1        call proc1
+306d  8d a8     load immediate 168
+306f  f0 15     call NATIVE.proc5
+3071  8d e1     load immediate 225
+3073  f1        call proc1
+3074  ce        jump_stack
+3075  2a        load local word-10
+3076  63        load stack word3
+3077  8d e6     load immediate 230
+3079  a0        equal
+307a  e3 05     jpfalse 3081
+307c  8d b0     load immediate 176
+307e  33        store local word-3
+307f  e2 0f     jp 3090
+3081  2a        load local word-10
+3082  63        load stack word3
+3083  8d e8     load immediate 232
+3085  a0        equal
+3086  e3 05     jpfalse 308d
+3088  8d a0     load immediate 160
+308a  33        store local word-3
+308b  e2 03     jp 3090
+308d  8d a8     load immediate 168
+308f  33        store local word-3
+3090  23        load local word-3
+3091  8d ff     load immediate 255
+3093  dc        limit_check
+3094  23        load local word-3
+3095  8d ff     load immediate 255
+3097  dc        limit_check
+3098  ec 31     nested_call proc49
+309a  ce        jump_stack
+309b  ed 2f     call proc47
+309d  2a        load local word-10
+309e  61        load stack word1
+309f  92        load immediate 2
+30a0  a0        equal
+30a1  e3 0b     jpfalse 30ae
+30a3  8d 7e     load immediate 126
+30a5  8d 23     load immediate 35
+30a7  8d 66     load immediate 102
+30a9  8d 6f     load immediate 111
+30ab  f4        call proc4
+30ac  e2 06     jp 30b4
+30ae  8d 6e     load immediate 110
+30b0  8d 26     load immediate 38
+30b2  90        load immediate 0
+30b3  f3        call proc3
+30b4  ce        jump_stack
+30b5  47        load global word7
+30b6  94        load immediate 4
+30b7  a0        equal
+30b8  e3 04     jpfalse 30be
+30ba  4b        load global word11
+30bb  b0 01     shl 1
+30bd  5b        store global word11
+30be  4c        load global word12
+30bf  de 04     andjp 30c5
+30c1  46        load global word6
+30c2  96        load immediate 6
+30c3  e7        bitwise_in
+30c4  b6        not
+30c5  de 03     andjp 30ca
+30c7  47        load global word7
+30c8  95        load immediate 5
+30c9  a0        equal
+30ca  e3 0a     jpfalse 30d6
+30cc  ed 26     call proc38
+30ce  94        load immediate 4
+30cf  90        load immediate 0
+30d0  4b        load global word11
+30d1  4d        load global word13
+30d2  ed 20     call proc32
+30d4  4e        load global word14
+30d5  57        store global word7
+30d6  47        load global word7
+30d7  95        load immediate 5
+30d8  a0        equal
+30d9  e3 20     jpfalse 30fb
+30db  46        load global word6
+30dc  93        load immediate 3
+30dd  a0        equal
+30de  e3 10     jpfalse 30f0
+30e0  8d d5     load immediate 213
+30e2  f1        call proc1
+30e3  91        load immediate 1
+30e4  55        store global word5
+30e5  94        load immediate 4
+30e6  90        load immediate 0
+30e7  4b        load global word11
+30e8  8d 10     load immediate 16
+30ea  ed 20     call proc32
+30ec  92        load immediate 2
+30ed  57        store global word7
+30ee  e2 09     jp 30f9
+30f0  94        load immediate 4
+30f1  90        load immediate 0
+30f2  4b        load global word11
+30f3  8d 20     load immediate 32
+30f5  ed 20     call proc32
+30f7  93        load immediate 3
+30f8  57        store global word7
+30f9  e2 21     jp 311c
+30fb  46        load global word6
+30fc  95        load immediate 5
+30fd  a0        equal
+30fe  de 03     andjp 3103
+3100  47        load global word7
+3101  96        load immediate 6
+3102  e7        bitwise_in
+3103  e3 0b     jpfalse 3110
+3105  94        load immediate 4
+3106  90        load immediate 0
+3107  4a        load global word10
+3108  8d 20     load immediate 32
+310a  ed 20     call proc32
+310c  93        load immediate 3
+310d  56        store global word6
+310e  e2 0c     jp 311c
+3110  47        load global word7
+3111  96        load immediate 6
+3112  e7        bitwise_in
+3113  de 03     andjp 3118
+3115  46        load global word6
+3116  96        load immediate 6
+3117  e7        bitwise_in
+3118  e3 02     jpfalse 311c
+311a  ed 2f     call proc47
+311c  46        load global word6
+311d  ed 28     call proc40
+311f  58        store global word8
+3120  47        load global word7
+3121  ed 28     call proc40
+3123  59        store global word9
+3124  47        load global word7
+3125  93        load immediate 3
+3126  a0        equal
+3127  e3 05     jpfalse 312e
+3129  8d 29     load immediate 41
+312b  f1        call proc1
+312c  e2 09     jp 3137
+312e  47        load global word7
+312f  96        load immediate 6
+3130  e7        bitwise_in
+3131  e3 04     jpfalse 3137
+3133  8d a6     load immediate 166
+3135  ec 32     nested_call proc50
+3137  8d a6     load immediate 166
+3139  ec 32     nested_call proc50
+313b  ce        jump_stack
+313c  2a        load local word-10
+313d  63        load stack word3
+313e  8d b1     load immediate 177
+3140  a0        equal
+3141  33        store local word-3
+3142  ed 2f     call proc47
+3144  4b        load global word11
+3145  98        load immediate 8
+3146  b5        igreater_or_equal
+3147  e3 0e     jpfalse 3157
+3149  8d 65     load immediate 101
+314b  23        load local word-3
+314c  97        load immediate 7
+314d  c2        umul_checked
+314e  c0        uadd_checked
+314f  8d 2e     load immediate 46
+3151  23        load local word-3
+3152  98        load immediate 8
+3153  c2        umul_checked
+3154  c1        usub_checked
+3155  90        load immediate 0
+3156  f3        call proc3
+3157  91        load immediate 1
+3158  32        store local word-2
+3159  4b        load global word11
+315a  97        load immediate 7
+315b  e8        bitwise_and
+315c  3b        store local word-11
+315d  22        load local word-2
+315e  2b        load local word-11
+315f  a4        uless_or_equal
+3160  e3 17     jpfalse 3179
+3162  23        load local word-3
+3163  ab        eq0
+3164  e3 05     jpfalse 316b
+3166  8d 29     load immediate 41
+3168  f1        call proc1
+3169  e2 09     jp 3174
+316b  8d cb     load immediate 203
+316d  8d 3c     load immediate 60
+316f  8d cb     load immediate 203
+3171  8d 1d     load immediate 29
+3173  f4        call proc4
+3174  22        load local word-2
+3175  ac        inc
+3176  32        store local word-2
+3177  e4 1c     jp 315d
+3179  ce        jump_stack
+317a  cd 54 80 95 00 48 01  callswitch (return to 32c8)
+	case 174 => 2eb8
+	case 175 => 32ad
+	case 176 => 32ad
+	case 177 => 32ad
+	case 178 => 32ad
+	case 179 => 32ad
+	case 180 => 32ad
+	case 181 => 32ad
+	case 182 => 32ad
+	case 183 => 32ad
+	case 184 => 32ad
+	case 185 => 32ad
+	case 186 => 32ad
+	case 187 => 32ad
+	case 188 => 32ad
+	case 189 => 32ad
+	case 190 => 32ad
+	case 191 => 32ad
+	case 192 => 2ebc
+	case 193 => 32ad
+	case 194 => 32ad
+	case 195 => 32ad
+	case 196 => 32ad
+	case 197 => 32ad
+	case 198 => 32ad
+	case 199 => 32ad
+	case 200 => 32ad
+	case 201 => 32ad
+	case 202 => 32ad
+	case 203 => 32ad
+	case 204 => 32ad
+	case 205 => 32ad
+	case 206 => 32ad
+	case 207 => 32ad
+	case 208 => 32ad
+	case 209 => 32ad
+	case 210 => 32ad
+	case 211 => 32ad
+	case 212 => 32ad
+	case 213 => 2ee0
+	case 214 => 2ee0
+	case 215 => 2f06
+	case 216 => 32ad
+	case 217 => 32ad
+	case 218 => 32ad
+	case 219 => 32ad
+	case 220 => 32ad
+	case 221 => 32ad
+	case 222 => 32ad
+	case 223 => 32ad
+	case 224 => 32ad
+	case 225 => 32ad
+	case 226 => 32ad
+	case 227 => 32ad
+	case 228 => 32ad
+	case 229 => 32ad
+	case 230 => 32ad
+	case 231 => 32ad
+	case 232 => 32ad
+	case 233 => 32ad
+	case 234 => 32ad
+	case 235 => 309b
+	case 236 => 32ad
+	case 237 => 30b5
+	case 238 => 32ad
+	case 239 => 32ad
+	case 240 => 32ad
+	case 241 => 32ad
+	case 242 => 32ad
+	case 243 => 32ad
+	case 244 => 32ad
+	case 245 => 32ad
+	case 246 => 32ad
+	case 247 => 32ad
+	case 248 => 32ad
+	case 249 => 32ad
+	case 250 => 32ad
+	case 251 => 32ad
+	case 252 => 32ad
+	case 253 => 32ad
+	case 254 => 32ad
+	case 255 => 32ad
+	case 256 => 2f18
+	case 257 => 2f1d
+	case 258 => 2ff1
+	case 259 => 32ad
+	case 260 => 32ad
+	case 261 => 32ad
+	case 262 => 32ad
+	case 263 => 32ad
+	case 264 => 32ad
+	case 265 => 32ad
+	case 266 => 313c
+	case 267 => 313c
+	case 268 => 32ad
+	case 269 => 32ad
+	case 270 => 32ad
+	case 271 => 32ad
+	case 272 => 32ad
+	case 273 => 2ecf
+	case 274 => 32ad
+	case 275 => 32ad
+	case 276 => 32ad
+	case 277 => 32ad
+	case 278 => 32ad
+	case 279 => 32ad
+	case 280 => 32ad
+	case 281 => 32ad
+	case 282 => 2f18
+	case 283 => 2f1d
+	case 284 => 32ad
+	case 285 => 32ad
+	case 286 => 32ad
+	case 287 => 32ad
+	case 288 => 32ad
+	case 289 => 32ad
+	case 290 => 32ad
+	case 291 => 32ad
+	case 292 => 32ad
+	case 293 => 32ad
+	case 294 => 32ad
+	case 295 => 32ad
+	case 296 => 32ad
+	case 297 => 32ad
+	case 298 => 2f18
+	case 299 => 2f1d
+	case 300 => 32ad
+	case 301 => 32ad
+	case 302 => 32ad
+	case 303 => 32ad
+	case 304 => 32ad
+	case 305 => 32ad
+	case 306 => 32ad
+	case 307 => 32ad
+	case 308 => 32ad
+	case 309 => 32ad
+	case 310 => 32ad
+	case 311 => 32ad
+	case 312 => 32ad
+	case 313 => 32ad
+	case 314 => 32ad
+	case 315 => 32ad
+	case 316 => 32ad
+	case 317 => 32ad
+	case 318 => 32ad
+	case 319 => 32ad
+	case 320 => 3075
+	case 321 => 32ad
+	case 322 => 3075
+	case 323 => 3075
+32ad  92        load immediate 2
+32ae  8c 09  .. load immediate string "**** op ="
+32b9  98        load immediate 8
+32ba  f0 39     call COMLINE.proc9
+32bc  92        load immediate 2
+32bd  2a        load local word-10
+32be  63        load stack word3
+32bf  96        load immediate 6
+32c0  f0 3b     call COMLINE.proc11
+32c2  92        load immediate 2
+32c3  f0 3e     call COMLINE.proc14
+32c5  90        load immediate 0
+32c6  f0 11     call NATIVE.proc1
+32c8  91        load immediate 1
+32c9  54        store global word4
+32ca  2a        load local word-10
+32cb  62        load stack word2
+32cc  92        load immediate 2
+32cd  a0        equal
+32ce  e3 1f     jpfalse 32ef
+32d0  91        load immediate 1
+32d1  32        store local word-2
+32d2  2a        load local word-10
+32d3  63        load stack word3
+32d4  f0 14     call NATIVE.proc4
+32d6  3b        store local word-11
+32d7  22        load local word-2
+32d8  2b        load local word-11
+32d9  a4        uless_or_equal
+32da  e3 13     jpfalse 32ef
+32dc  2a        load local word-10
+32dd  82 04     load stack address 4
+32df  22        load local word-2
+32e0  91        load immediate 1
+32e1  91        load immediate 1
+32e2  da        urange_check
+32e3  ad        dec
+32e4  b0 01     shl 1
+32e6  a6        add
+32e7  9c        load immediate 12
+32e8  40 06     DEALLOCATE
+32ea  22        load local word-2
+32eb  ac        inc
+32ec  32        store local word-2
+32ed  e4 18     jp 32d7
+32ef  ce        jump_stack
+32f0  cd 00 80 09 00 32 00  callswitch (return to 3328)
+	case 90 => 2ca9
+	case 91 => 2ca8
+	case 92 => 2dcf
+	case 93 => 2cc6
+	case 94 => 2cc6
+	case 95 => 2d60
+	case 96 => 2d6e
+	case 97 => 2d75
+	case 98 => 2d94
+	case 99 => 2dc1
+330b  92        load immediate 2
+330c  8c 0b  .. load immediate string "**** kind ="
+3319  9a        load immediate 10
+331a  f0 39     call COMLINE.proc9
+331c  92        load immediate 2
+331d  2a        load local word-10
+331e  62        load stack word2
+331f  96        load immediate 6
+3320  f0 3b     call COMLINE.proc11
+3322  92        load immediate 2
+3323  f0 3e     call COMLINE.proc14
+3325  90        load immediate 0
+3326  f0 11     call NATIVE.proc1
+3328  2a        load local word-10
+3329  91        load immediate 1
+332a  72        store stack word2
+332b  2a        load local word-10
+332c  2a        load local word-10
+332d  61        load stack word1
+332e  ed 1f     call proc31
+3330  8d ff     load immediate 255
+3332  dc        limit_check
+3333  71        store stack word1
+3334  45        load global word5
+3335  e3 06     jpfalse 333d
+3337  fa        call proc10
+3338  8d d1     load immediate 209
+333a  f1        call proc1
+333b  90        load immediate 0
+333c  55        store global word5
+333d  89        leave2
+333e  94        load immediate 4
+333f  78        store stack word8
+3340  22        load local word-2
+3341  03        load param1
+3342  00        Error16
+3343  00        Error16
+3344  d4 ef     enter -17
+3346  f9        call proc9
+3347  90        load immediate 0
+3348  38        store local word-8
+3349  03        load param1
+334a  92        load immediate 2
+334b  c1        usub_checked
+334c  39        store local word-9
+334d  28        load local word-8
+334e  29        load local word-9
+334f  a4        uless_or_equal
+3350  e3 81     jpfalse 33d3
+3352  07        load param5
+3353  06        load param4
+3354  91        load immediate 1
+3355  80 fe     load local address -2
+3357  80 fc     load local address -4
+3359  80 fa     load local address -6
+335b  ed 24     call proc36
+335d  05        load param3
+335e  04        load param2
+335f  90        load immediate 0
+3360  80 fd     load local address -3
+3362  80 fb     load local address -5
+3364  80 f9     load local address -7
+3366  ed 24     call proc36
+3368  23        load local word-3
+3369  e3 04     jpfalse 336f
+336b  25        load local word-5
+336c  fb        call proc11
+336d  e2 05     jp 3374
+336f  22        load local word-2
+3370  e3 02     jpfalse 3374
+3372  24        load local word-4
+3373  fb        call proc11
+3374  23        load local word-3
+3375  b6        not
+3376  de 02     andjp 337a
+3378  22        load local word-2
+3379  b6        not
+337a  e3 0b     jpfalse 3387
+337c  91        load immediate 1
+337d  33        store local word-3
+337e  8d 20     load immediate 32
+3380  37        store local word-7
+3381  05        load param3
+3382  90        load immediate 0
+3383  04        load param2
+3384  27        load local word-7
+3385  ed 20     call proc32
+3387  22        load local word-2
+3388  e3 32     jpfalse 33bc
+338a  23        load local word-3
+338b  e3 27     jpfalse 33b4
+338d  25        load local word-5
+338e  24        load local word-4
+338f  a1        not_equal
+3390  e3 0f     jpfalse 33a1
+3392  f9        call proc9
+3393  8d c5     load immediate 197
+3395  27        load local word-7
+3396  c0        uadd_checked
+3397  f1        call proc1
+3398  24        load local word-4
+3399  fb        call proc11
+339a  8d c1     load immediate 193
+339c  26        load local word-6
+339d  c0        uadd_checked
+339e  f1        call proc1
+339f  e2 11     jp 33b2
+33a1  8d 40     load immediate 64
+33a3  26        load local word-6
+33a4  c0        uadd_checked
+33a5  27        load local word-7
+33a6  b1 03     shr 3
+33a8  c0        uadd_checked
+33a9  8d 49     load immediate 73
+33ab  26        load local word-6
+33ac  c0        uadd_checked
+33ad  27        load local word-7
+33ae  b1 03     shr 3
+33b0  c0        uadd_checked
+33b1  f2        call proc2
+33b2  e2 06     jp 33ba
+33b4  05        load param3
+33b5  90        load immediate 0
+33b6  04        load param2
+33b7  26        load local word-6
+33b8  ed 20     call proc32
+33ba  e2 09     jp 33c5
+33bc  23        load local word-3
+33bd  f0 11     call NATIVE.proc1
+33bf  07        load param5
+33c0  91        load immediate 1
+33c1  06        load param4
+33c2  27        load local word-7
+33c3  ed 20     call proc32
+33c5  06        load param4
+33c6  92        load immediate 2
+33c7  d0        iadd_checked
+33c8  16        store param4
+33c9  04        load param2
+33ca  92        load immediate 2
+33cb  d0        iadd_checked
+33cc  14        store param2
+33cd  28        load local word-8
+33ce  ae 02     add 2
+33d0  38        store local word-8
+33d1  e4 86     jp 334d
+33d3  84 85     leave 133
+33d5  dc        limit_check
+33d6  51        store stack dword0
+33d7  1d        store indexed byte
+33d8  77        store stack word7
+33d9  00        Error16
+33da  00        Error16
+33db  d4 e1     enter -31
+33dd  03        load param1
+33de  92        load immediate 2
+33df  b8        imul
+33e0  3c f2     store local word -14
+33e2  05        load param3
+33e3  94        load immediate 4
+33e4  a0        equal
+33e5  de 05     andjp 33ec
+33e7  2c f2     load local word -14
+33e9  8d ff     load immediate 255
+33eb  b3        igreater_than
+33ec  e3 08     jpfalse 33f6
+33ee  2c f2     load local word -14
+33f0  8e 00 01  load immediate 256
+33f3  d1        isub_checked
+33f4  3c f2     store local word -14
+33f6  80 f8     load local address -8
+33f8  f0 1c     call NATIVE.proc12
+33fa  f0 1d     call NATIVE.proc13
+33fc  f0 11     call NATIVE.proc1
+33fe  28        load local word-8
+33ff  3c f1     store local word -15
+3401  2c f1     load local word -15
+3403  61        load stack word1
+3404  ed 1f     call proc31
+3406  04        load param2
+3407  a0        equal
+3408  f0 11     call NATIVE.proc1
+340a  05        load param3
+340b  2c f2     load local word -14
+340d  04        load param2
+340e  fc        call proc12
+340f  2c f1     load local word -15
+3411  62        load stack word2
+3412  97        load immediate 7
+3413  a0        equal
+3414  e3 11     jpfalse 3427
+3416  05        load param3
+3417  2c f2     load local word -14
+3419  80 f3     load local address -13
+341b  ed 22     call proc34
+341d  e3 05     jpfalse 3424
+341f  28        load local word-8
+3420  ed 17     call proc23
+3422  e2 03     jp 3427
+3424  28        load local word-8
+3425  f0 1e     call NATIVE.proc14
+3427  2c f1     load local word -15
+3429  62        load stack word2
+342a  8e 00 03  load immediate 768
+342d  e7        bitwise_in
+342e  e3 03     jpfalse 3433
+3430  28        load local word-8
+3431  ed 17     call proc23
+3433  05        load param3
+3434  2c f2     load local word -14
+3436  91        load immediate 1
+3437  80 fb     load local address -5
+3439  80 fc     load local address -4
+343b  80 fe     load local address -2
+343d  ed 24     call proc36
+343f  04        load param2
+3440  94        load immediate 4
+3441  a0        equal
+3442  de 02     andjp 3446
+3444  25        load local word-5
+3445  b6        not
+3446  e3 19     jpfalse 3461
+3448  28        load local word-8
+3449  ed 17     call proc23
+344b  f9        call proc9
+344c  80 f8     load local address -8
+344e  9c        load immediate 12
+344f  40 06     DEALLOCATE
+3451  8d 3e     load immediate 62
+3453  03        load param1
+3454  dd        check_positive
+3455  f2        call proc2
+3456  8d 18     load immediate 24
+3458  05        load param3
+3459  93        load immediate 3
+345a  a0        equal
+345b  c0        uadd_checked
+345c  f0 15     call NATIVE.proc5
+345e  8b        leave6
+345f  e2 23     jp 3484
+3461  04        load param2
+3462  98        load immediate 8
+3463  a0        equal
+3464  de 02     andjp 3468
+3466  25        load local word-5
+3467  b6        not
+3468  e3 1a     jpfalse 3484
+346a  28        load local word-8
+346b  ed 17     call proc23
+346d  f9        call proc9
+346e  80 f8     load local address -8
+3470  9c        load immediate 12
+3471  40 06     DEALLOCATE
+3473  8d 2e     load immediate 46
+3475  94        load immediate 4
+3476  05        load param3
+3477  93        load immediate 3
+3478  a0        equal
+3479  c0        uadd_checked
+347a  8d 3e     load immediate 62
+347c  03        load param1
+347d  dd        check_positive
+347e  f4        call proc4
+347f  8d 12     load immediate 18
+3481  f0 15     call NATIVE.proc5
+3483  8b        leave6
+3484  2c f1     load local word -15
+3486  62        load stack word2
+3487  92        load immediate 2
+3488  a0        equal
+3489  de 07     andjp 3492
+348b  2c f1     load local word -15
+348d  82 04     load stack address 4
+348f  90        load immediate 0
+3490  0e        load indexed word
+3491  cb        not_zero
+3492  e1 dd 01  jpfalse 3671
+3495  2c f1     load local word -15
+3497  63        load stack word3
+3498  b1 01     shr 1
+349a  92        load immediate 2
+349b  c2        umul_checked
+349c  3a        store local word-10
+349d  2c f1     load local word -15
+349f  63        load stack word3
+34a0  91        load immediate 1
+34a1  e8        bitwise_and
+34a2  91        load immediate 1
+34a3  dc        limit_check
+34a4  39        store local word-9
+34a5  2c f1     load local word -15
+34a7  82 04     load stack address 4
+34a9  90        load immediate 0
+34aa  0e        load indexed word
+34ab  62        load stack word2
+34ac  2c f1     load local word -15
+34ae  82 04     load stack address 4
+34b0  90        load immediate 0
+34b1  0e        load indexed word
+34b2  63        load stack word3
+34b3  90        load immediate 0
+34b4  80 f9     load local address -7
+34b6  80 fa     load local address -6
+34b8  80 fd     load local address -3
+34ba  ed 24     call proc36
+34bc  2c f1     load local word -15
+34be  63        load stack word3
+34bf  8d 91     load immediate 145
+34c1  a0        equal
+34c2  e3 37     jpfalse 34fb
+34c4  04        load param2
+34c5  92        load immediate 2
+34c6  a0        equal
+34c7  f0 11     call NATIVE.proc1
+34c9  25        load local word-5
+34ca  e3 29     jpfalse 34f5
+34cc  2c f1     load local word -15
+34ce  82 04     load stack address 4
+34d0  90        load immediate 0
+34d1  0e        load indexed word
+34d2  ed 17     call proc23
+34d4  24        load local word-4
+34d5  fb        call proc11
+34d6  fa        call proc10
+34d7  8d 4e     load immediate 78
+34d9  22        load local word-2
+34da  c0        uadd_checked
+34db  f1        call proc1
+34dc  2c f1     load local word -15
+34de  61        load stack word1
+34df  91        load immediate 1
+34e0  a0        equal
+34e1  e3 07     jpfalse 34ea
+34e3  96        load immediate 6
+34e4  22        load local word-2
+34e5  c0        uadd_checked
+34e6  90        load immediate 0
+34e7  f2        call proc2
+34e8  e2 07     jp 34f1
+34ea  8d 23     load immediate 35
+34ec  8d 46     load immediate 70
+34ee  22        load local word-2
+34ef  c0        uadd_checked
+34f0  f2        call proc2
+34f1  90        load immediate 0
+34f2  54        store global word4
+34f3  e2 03     jp 34f8
+34f5  28        load local word-8
+34f6  ed 17     call proc23
+34f8  e0 77 01  jp 3671
+34fb  2a        load local word-10
+34fc  8d a6     load immediate 166
+34fe  a0        equal
+34ff  df 04     orjp 3505
+3501  2a        load local word-10
+3502  8d c0     load immediate 192
+3504  a0        equal
+3505  df 04     orjp 350b
+3507  2a        load local word-10
+3508  8d d0     load immediate 208
+350a  a0        equal
+350b  de 09     andjp 3516
+350d  2c f1     load local word -15
+350f  82 04     load stack address 4
+3511  90        load immediate 0
+3512  0e        load indexed word
+3513  62        load stack word2
+3514  05        load param3
+3515  a0        equal
+3516  de 0a     andjp 3522
+3518  2c f2     load local word -14
+351a  2c f1     load local word -15
+351c  82 04     load stack address 4
+351e  90        load immediate 0
+351f  0e        load indexed word
+3520  63        load stack word3
+3521  a0        equal
+3522  de 08     andjp 352c
+3524  2c f1     load local word -15
+3526  82 04     load stack address 4
+3528  91        load immediate 1
+3529  0e        load indexed word
+352a  62        load stack word2
+352b  ab        eq0
+352c  e1 40 01  jpfalse 366e
+352f  2c f1     load local word -15
+3531  82 04     load stack address 4
+3533  91        load immediate 1
+3534  0e        load indexed word
+3535  82 03     load stack address 3
+3537  90        load immediate 0
+3538  0e        load indexed word
+3539  3b        store local word-11
+353a  25        load local word-5
+353b  e3 79     jpfalse 35b6
+353d  24        load local word-4
+353e  fb        call proc11
+353f  2a        load local word-10
+3540  8d a6     load immediate 166
+3542  a0        equal
+3543  e3 28     jpfalse 356d
+3545  2b        load local word-11
+3546  96        load immediate 6
+3547  a4        uless_or_equal
+3548  e3 1e     jpfalse 3568
+354a  91        load immediate 1
+354b  3c f4     store local word -12
+354d  2b        load local word-11
+354e  3c f0     store local word -16
+3550  2c f4     load local word -12
+3552  2c f0     load local word -16
+3554  a4        uless_or_equal
+3555  e3 0f     jpfalse 3566
+3557  93        load immediate 3
+3558  22        load local word-2
+3559  c0        uadd_checked
+355a  29        load local word-9
+355b  98        load immediate 8
+355c  c2        umul_checked
+355d  c0        uadd_checked
+355e  f1        call proc1
+355f  2c f4     load local word -12
+3561  ac        inc
+3562  3c f4     store local word -12
+3564  e4 16     jp 3550
+3566  e2 03     jp 356b
+3568  28        load local word-8
+3569  ed 17     call proc23
+356b  e2 47     jp 35b4
+356d  2b        load local word-11
+356e  91        load immediate 1
+356f  a0        equal
+3570  e3 3f     jpfalse 35b1
+3572  29        load local word-9
+3573  ab        eq0
+3574  e3 14     jpfalse 358a
+3576  9c        load immediate 12
+3577  22        load local word-2
+3578  c0        uadd_checked
+3579  8d 20     load immediate 32
+357b  94        load immediate 4
+357c  94        load immediate 4
+357d  22        load local word-2
+357e  c0        uadd_checked
+357f  f4        call proc4
+3580  2c f1     load local word -15
+3582  63        load stack word3
+3583  98        load immediate 8
+3584  8d 28     load immediate 40
+3586  ed 30     call proc48
+3588  e2 25     jp 35af
+358a  8d 78     load immediate 120
+358c  22        load local word-2
+358d  b1 03     shr 3
+358f  c0        uadd_checked
+3590  f1        call proc1
+3591  2c f1     load local word -15
+3593  63        load stack word3
+3594  8d d1     load immediate 209
+3596  a0        equal
+3597  e3 05     jpfalse 359e
+3599  8d ee     load immediate 238
+359b  8d 80     load immediate 128
+359d  f2        call proc2
+359e  8d b1     load immediate 177
+35a0  22        load local word-2
+35a1  b1 03     shr 3
+35a3  c0        uadd_checked
+35a4  9b        load immediate 11
+35a5  22        load local word-2
+35a6  c0        uadd_checked
+35a7  f2        call proc2
+35a8  2c f1     load local word -15
+35aa  63        load stack word3
+35ab  98        load immediate 8
+35ac  98        load immediate 8
+35ad  ed 30     call proc48
+35af  e2 03     jp 35b4
+35b1  28        load local word-8
+35b2  ed 17     call proc23
+35b4  e2 b6     jp 366c
+35b6  05        load param3
+35b7  94        load immediate 4
+35b8  a0        equal
+35b9  de 03     andjp 35be
+35bb  2b        load local word-11
+35bc  91        load immediate 1
+35bd  a0        equal
+35be  de 02     andjp 35c2
+35c0  29        load local word-9
+35c1  ab        eq0
+35c2  e3 27     jpfalse 35eb
+35c4  8d dd     load immediate 221
+35c6  8d 34     load immediate 52
+35c8  2c f2     load local word -14
+35ca  dd        check_positive
+35cb  f3        call proc3
+35cc  8d 20     load immediate 32
+35ce  92        load immediate 2
+35cf  2a        load local word-10
+35d0  8d a6     load immediate 166
+35d2  a0        equal
+35d3  c1        usub_checked
+35d4  93        load immediate 3
+35d5  c2        umul_checked
+35d6  f2        call proc2
+35d7  8d dd     load immediate 221
+35d9  8d 34     load immediate 52
+35db  2c f2     load local word -14
+35dd  91        load immediate 1
+35de  d0        iadd_checked
+35df  dd        check_positive
+35e0  f3        call proc3
+35e1  2c f1     load local word -15
+35e3  63        load stack word3
+35e4  98        load immediate 8
+35e5  8d 28     load immediate 40
+35e7  ed 30     call proc48
+35e9  e2 81     jp 366c
+35eb  05        load param3
+35ec  94        load immediate 4
+35ed  a0        equal
+35ee  de 04     andjp 35f4
+35f0  2b        load local word-11
+35f1  8d ff     load immediate 255
+35f3  a4        uless_or_equal
+35f4  e3 73     jpfalse 3669
+35f6  8d dd     load immediate 221
+35f8  8d 7e     load immediate 126
+35fa  2c f2     load local word -14
+35fc  dd        check_positive
+35fd  f3        call proc3
+35fe  8d c6     load immediate 198
+3600  29        load local word-9
+3601  8d 10     load immediate 16
+3603  c2        umul_checked
+3604  c0        uadd_checked
+3605  2b        load local word-11
+3606  f2        call proc2
+3607  8d dd     load immediate 221
+3609  8d 77     load immediate 119
+360b  2c f2     load local word -14
+360d  dd        check_positive
+360e  f3        call proc3
+360f  8d 30     load immediate 48
+3611  92        load immediate 2
+3612  2a        load local word-10
+3613  8d a6     load immediate 166
+3615  a0        equal
+3616  c1        usub_checked
+3617  93        load immediate 3
+3618  c2        umul_checked
+3619  2c f1     load local word -15
+361b  63        load stack word3
+361c  8d c1     load immediate 193
+361e  a0        equal
+361f  95        load immediate 5
+3620  c2        umul_checked
+3621  c0        uadd_checked
+3622  f2        call proc2
+3623  2c f1     load local word -15
+3625  63        load stack word3
+3626  8d c1     load immediate 193
+3628  a0        equal
+3629  e3 28     jpfalse 3653
+362b  8d dd     load immediate 221
+362d  8d 7e     load immediate 126
+362f  2c f2     load local word -14
+3631  91        load immediate 1
+3632  d0        iadd_checked
+3633  dd        check_positive
+3634  f3        call proc3
+3635  8d ce     load immediate 206
+3637  29        load local word-9
+3638  8d 10     load immediate 16
+363a  c2        umul_checked
+363b  c0        uadd_checked
+363c  90        load immediate 0
+363d  f2        call proc2
+363e  8d dd     load immediate 221
+3640  8d 77     load immediate 119
+3642  2c f2     load local word -14
+3644  91        load immediate 1
+3645  d0        iadd_checked
+3646  dd        check_positive
+3647  f3        call proc3
+3648  2c f1     load local word -15
+364a  63        load stack word3
+364b  8d 18     load immediate 24
+364d  8d 18     load immediate 24
+364f  ed 30     call proc48
+3651  e2 14     jp 3667
+3653  8d dd     load immediate 221
+3655  8d 34     load immediate 52
+3657  29        load local word-9
+3658  c0        uadd_checked
+3659  2c f2     load local word -14
+365b  91        load immediate 1
+365c  d0        iadd_checked
+365d  dd        check_positive
+365e  f3        call proc3
+365f  2c f1     load local word -15
+3661  63        load stack word3
+3662  98        load immediate 8
+3663  8d 28     load immediate 40
+3665  ed 30     call proc48
+3667  e2 03     jp 366c
+3669  28        load local word-8
+366a  ed 17     call proc23
+366c  e2 03     jp 3671
+366e  28        load local word-8
+366f  ed 17     call proc23
+3671  2c f1     load local word -15
+3673  62        load stack word2
+3674  92        load immediate 2
+3675  a0        equal
+3676  e3 34     jpfalse 36ac
+3678  2c f1     load local word -15
+367a  82 04     load stack address 4
+367c  90        load immediate 0
+367d  0e        load indexed word
+367e  ab        eq0
+367f  e3 03     jpfalse 3684
+3681  28        load local word-8
+3682  ed 17     call proc23
+3684  91        load immediate 1
+3685  3c f4     store local word -12
+3687  2c f1     load local word -15
+3689  63        load stack word3
+368a  f0 14     call NATIVE.proc4
+368c  3c f0     store local word -16
+368e  2c f4     load local word -12
+3690  2c f0     load local word -16
+3692  a4        uless_or_equal
+3693  e3 17     jpfalse 36ac
+3695  2c f1     load local word -15
+3697  82 04     load stack address 4
+3699  2c f4     load local word -12
+369b  91        load immediate 1
+369c  91        load immediate 1
+369d  da        urange_check
+369e  ad        dec
+369f  b0 01     shl 1
+36a1  a6        add
+36a2  9c        load immediate 12
+36a3  40 06     DEALLOCATE
+36a5  2c f4     load local word -12
+36a7  ac        inc
+36a8  3c f4     store local word -12
+36aa  e4 1e     jp 368e
+36ac  90        load immediate 0
+36ad  3c f4     store local word -12
+36af  04        load param2
+36b0  b1 01     shr 1
+36b2  91        load immediate 1
+36b3  c1        usub_checked
+36b4  3c f0     store local word -16
+36b6  2c f4     load local word -12
+36b8  2c f0     load local word -16
+36ba  a4        uless_or_equal
+36bb  e3 e2     jpfalse 379f
+36bd  05        load param3
+36be  2c f2     load local word -14
+36c0  91        load immediate 1
+36c1  80 fb     load local address -5
+36c3  80 fc     load local address -4
+36c5  80 fe     load local address -2
+36c7  ed 24     call proc36
+36c9  2c f1     load local word -15
+36cb  62        load stack word2
+36cc  e2 94     jp 3762
+36ce  25        load local word-5
+36cf  e3 11     jpfalse 36e2
+36d1  24        load local word-4
+36d2  fb        call proc11
+36d3  91        load immediate 1
+36d4  22        load local word-2
+36d5  c0        uadd_checked
+36d6  2c f1     load local word -15
+36d8  82 03     load stack address 3
+36da  2c f4     load local word -12
+36dc  91        load immediate 1
+36dd  dc        limit_check
+36de  0e        load indexed word
+36df  f6        call proc6
+36e0  e2 44     jp 3726
+36e2  05        load param3
+36e3  94        load immediate 4
+36e4  a0        equal
+36e5  e3 2b     jpfalse 3712
+36e7  8d dd     load immediate 221
+36e9  8d 36     load immediate 54
+36eb  2c f2     load local word -14
+36ed  dd        check_positive
+36ee  2c f1     load local word -15
+36f0  82 03     load stack address 3
+36f2  2c f4     load local word -12
+36f4  91        load immediate 1
+36f5  dc        limit_check
+36f6  0e        load indexed word
+36f7  8d ff     load immediate 255
+36f9  e8        bitwise_and
+36fa  f4        call proc4
+36fb  8d dd     load immediate 221
+36fd  8d 36     load immediate 54
+36ff  2c f2     load local word -14
+3701  91        load immediate 1
+3702  d0        iadd_checked
+3703  dd        check_positive
+3704  2c f1     load local word -15
+3706  82 03     load stack address 3
+3708  2c f4     load local word -12
+370a  91        load immediate 1
+370b  dc        limit_check
+370c  0e        load indexed word
+370d  b1 08     shr 8
+370f  f4        call proc4
+3710  e2 14     jp 3726
+3712  8d 21     load immediate 33
+3714  2c f1     load local word -15
+3716  82 03     load stack address 3
+3718  2c f4     load local word -12
+371a  91        load immediate 1
+371b  dc        limit_check
+371c  0e        load indexed word
+371d  f6        call proc6
+371e  05        load param3
+371f  91        load immediate 1
+3720  2c f2     load local word -14
+3722  8d 20     load immediate 32
+3724  ed 20     call proc32
+3726  ce        jump_stack
+3727  25        load local word-5
+3728  e3 17     jpfalse 3741
+372a  24        load local word-4
+372b  fb        call proc11
+372c  44        load global word4
+372d  e3 0b     jpfalse 373a
+372f  8d 44     load immediate 68
+3731  22        load local word-2
+3732  c0        uadd_checked
+3733  8d 4d     load immediate 77
+3735  22        load local word-2
+3736  c0        uadd_checked
+3737  f2        call proc2
+3738  e2 05     jp 373f
+373a  8d c1     load immediate 193
+373c  22        load local word-2
+373d  c0        uadd_checked
+373e  f1        call proc1
+373f  e2 09     jp 374a
+3741  fa        call proc10
+3742  05        load param3
+3743  91        load immediate 1
+3744  2c f2     load local word -14
+3746  8d 20     load immediate 32
+3748  ed 20     call proc32
+374a  90        load immediate 0
+374b  54        store global word4
+374c  ce        jump_stack
+374d  05        load param3
+374e  2c f2     load local word -14
+3750  2c f1     load local word -15
+3752  62        load stack word2
+3753  2c f1     load local word -15
+3755  63        load stack word3
+3756  92        load immediate 2
+3757  ed 33     call proc51
+3759  2c f1     load local word -15
+375b  20        dup
+375c  63        load stack word3
+375d  92        load immediate 2
+375e  d0        iadd_checked
+375f  73        store stack word3
+3760  ce        jump_stack
+3761  ce        jump_stack
+3762  cd 00 80 04 00 0f 00  callswitch (return to 3777)
+	case 90 => 36ce
+	case 91 => 3727
+	case 92 => 3761
+	case 93 => 374d
+	case 94 => 374d
+3773  9d        load immediate 13
+3774  90        load immediate 0
+3775  90        load immediate 0
+3776  01        Raise
+3777  05        load param3
+3778  2c f2     load local word -14
+377a  80 f3     load local address -13
+377c  ed 22     call proc34
+377e  e3 12     jpfalse 3792
+3780  2d 18     load global word 24
+3782  2c f3     load local word -13
+3784  ea        power2
+3785  b7        complement
+3786  e8        bitwise_and
+3787  3d 18     store global word 24
+3789  2d 14     load global word 20
+378b  2c f3     load local word -13
+378d  ea        power2
+378e  b7        complement
+378f  e8        bitwise_and
+3790  3d 14     store global word 20
+3792  2c f2     load local word -14
+3794  92        load immediate 2
+3795  d0        iadd_checked
+3796  3c f2     store local word -14
+3798  2c f4     load local word -12
+379a  ac        inc
+379b  3c f4     store local word -12
+379d  e4 e9     jp 36b6
+379f  80 f8     load local address -8
+37a1  9c        load immediate 12
+37a2  40 06     DEALLOCATE
+37a4  44        load global word4
+37a5  b6        not
+37a6  f0 11     call NATIVE.proc1
+37a8  8b        leave6
+37a9  dc        limit_check
+37aa  51        store stack dword0
+37ab  31        copy string
+37ac  66        load stack word6
+37ad  00        Error16
+37ae  00        Error16
+37af  d4 e9     enter -23
+37b1  80 f7     load local address -9
+37b3  f0 1c     call NATIVE.proc12
+37b5  80 f8     load local address -8
+37b7  f0 1c     call NATIVE.proc12
+37b9  f0 1d     call NATIVE.proc13
+37bb  f0 11     call NATIVE.proc1
+37bd  28        load local word-8
+37be  61        load stack word1
+37bf  92        load immediate 2
+37c0  a0        equal
+37c1  f0 11     call NATIVE.proc1
+37c3  03        load param1
+37c4  ed 1f     call proc31
+37c6  29        load local word-9
+37c7  61        load stack word1
+37c8  ed 1f     call proc31
+37ca  a0        equal
+37cb  f0 11     call NATIVE.proc1
+37cd  03        load param1
+37ce  94        load immediate 4
+37cf  a5        ugreater_or_equal
+37d0  e3 1f     jpfalse 37f1
+37d2  28        load local word-8
+37d3  ed 17     call proc23
+37d5  29        load local word-9
+37d6  ed 17     call proc23
+37d8  f9        call proc9
+37d9  03        load param1
+37da  94        load immediate 4
+37db  a0        equal
+37dc  e3 06     jpfalse 37e4
+37de  8d 51     load immediate 81
+37e0  f0 15     call NATIVE.proc5
+37e2  e2 0a     jp 37ee
+37e4  8d 2e     load immediate 46
+37e6  96        load immediate 6
+37e7  8d af     load immediate 175
+37e9  f3        call proc3
+37ea  8d 12     load immediate 18
+37ec  f0 15     call NATIVE.proc5
+37ee  e0 57 01  jp 3947
+37f1  0c 14     load NATIVE.word4
+37f3  e3 03     jpfalse 37f8
+37f5  28        load local word-8
+37f6  ed 17     call proc23
+37f8  29        load local word-9
+37f9  62        load stack word2
+37fa  8e 84 03  load immediate 900
+37fd  e7        bitwise_in
+37fe  e3 03     jpfalse 3803
+3800  29        load local word-9
+3801  ed 17     call proc23
+3803  28        load local word-8
+3804  ed 27     call proc39
+3806  28        load local word-8
+3807  62        load stack word2
+3808  92        load immediate 2
+3809  a0        equal
+380a  de 08     andjp 3814
+380c  28        load local word-8
+380d  82 04     load stack address 4
+380f  90        load immediate 0
+3810  0e        load indexed word
+3811  62        load stack word2
+3812  91        load immediate 1
+3813  a0        equal
+3814  e3 03     jpfalse 3819
+3816  28        load local word-8
+3817  ed 17     call proc23
+3819  28        load local word-8
+381a  62        load stack word2
+381b  28        load local word-8
+381c  63        load stack word3
+381d  90        load immediate 0
+381e  80 fb     load local address -5
+3820  80 fc     load local address -4
+3822  80 fe     load local address -2
+3824  ed 24     call proc36
+3826  29        load local word-9
+3827  62        load stack word2
+3828  29        load local word-9
+3829  63        load stack word3
+382a  90        load immediate 0
+382b  80 f9     load local address -7
+382d  80 fa     load local address -6
+382f  80 fd     load local address -3
+3831  ed 24     call proc36
+3833  28        load local word-8
+3834  62        load stack word2
+3835  91        load immediate 1
+3836  a0        equal
+3837  de 04     andjp 383d
+3839  29        load local word-9
+383a  62        load stack word2
+383b  91        load immediate 1
+383c  a0        equal
+383d  e3 04     jpfalse 3843
+383f  fa        call proc10
+3840  8d e3     load immediate 227
+3842  f1        call proc1
+3843  28        load local word-8
+3844  ed 17     call proc23
+3846  27        load local word-7
+3847  e3 02     jpfalse 384b
+3849  26        load local word-6
+384a  fb        call proc11
+384b  fa        call proc10
+384c  29        load local word-9
+384d  3b        store local word-11
+384e  90        load immediate 0
+384f  3a        store local word-10
+3850  03        load param1
+3851  91        load immediate 1
+3852  c1        usub_checked
+3853  3c f4     store local word -12
+3855  2a        load local word-10
+3856  2c f4     load local word -12
+3858  a4        uless_or_equal
+3859  e3 ec     jpfalse 3947
+385b  2a        load local word-10
+385c  cb        not_zero
+385d  e3 03     jpfalse 3862
+385f  8d 23     load immediate 35
+3861  f1        call proc1
+3862  2b        load local word-11
+3863  62        load stack word2
+3864  e2 c7     jp 392d
+3866  8d 36     load immediate 54
+3868  2b        load local word-11
+3869  82 03     load stack address 3
+386b  2a        load local word-10
+386c  93        load immediate 3
+386d  dc        limit_check
+386e  0d        load indexed byte
+386f  f2        call proc2
+3870  ce        jump_stack
+3871  80 fd     load local address -3
+3873  ed 25     call proc37
+3875  e3 1d     jpfalse 3894
+3877  ed 26     call proc38
+3879  2a        load local word-10
+387a  91        load immediate 1
+387b  e8        bitwise_and
+387c  e3 09     jpfalse 3887
+387e  8d 70     load immediate 112
+3880  23        load local word-3
+3881  b1 03     shr 3
+3883  c0        uadd_checked
+3884  f1        call proc1
+3885  e2 0b     jp 3892
+3887  8d c1     load immediate 193
+3889  23        load local word-3
+388a  c0        uadd_checked
+388b  8d 71     load immediate 113
+388d  23        load local word-3
+388e  b1 03     shr 3
+3890  c0        uadd_checked
+3891  f2        call proc2
+3892  e2 19     jp 38ad
+3894  2a        load local word-10
+3895  91        load immediate 1
+3896  e8        bitwise_and
+3897  e3 09     jpfalse 38a2
+3899  8d 72     load immediate 114
+389b  8d d1     load immediate 209
+389d  f2        call proc2
+389e  90        load immediate 0
+389f  55        store global word5
+38a0  e2 0b     jp 38ad
+38a2  8d eb     load immediate 235
+38a4  8d e3     load immediate 227
+38a6  8d eb     load immediate 235
+38a8  8d 73     load immediate 115
+38aa  f4        call proc4
+38ab  91        load immediate 1
+38ac  55        store global word5
+38ad  ce        jump_stack
+38ae  2b        load local word-11
+38af  62        load stack word2
+38b0  2b        load local word-11
+38b1  63        load stack word3
+38b2  90        load immediate 0
+38b3  80 f9     load local address -7
+38b5  80 fa     load local address -6
+38b7  80 fd     load local address -3
+38b9  ed 24     call proc36
+38bb  27        load local word-7
+38bc  e3 10     jpfalse 38ce
+38be  26        load local word-6
+38bf  fb        call proc11
+38c0  fa        call proc10
+38c1  8d 71     load immediate 113
+38c3  23        load local word-3
+38c4  b1 03     shr 3
+38c6  c0        uadd_checked
+38c7  2a        load local word-10
+38c8  91        load immediate 1
+38c9  e8        bitwise_and
+38ca  c1        usub_checked
+38cb  f1        call proc1
+38cc  e2 58     jp 3926
+38ce  2b        load local word-11
+38cf  62        load stack word2
+38d0  94        load immediate 4
+38d1  a0        equal
+38d2  e3 0c     jpfalse 38e0
+38d4  8d dd     load immediate 221
+38d6  8d 7e     load immediate 126
+38d8  2b        load local word-11
+38d9  63        load stack word3
+38da  dd        check_positive
+38db  8d 77     load immediate 119
+38dd  f4        call proc4
+38de  e2 46     jp 3926
+38e0  80 fd     load local address -3
+38e2  ed 25     call proc37
+38e4  e3 21     jpfalse 3907
+38e6  ed 26     call proc38
+38e8  2a        load local word-10
+38e9  91        load immediate 1
+38ea  e8        bitwise_and
+38eb  e3 09     jpfalse 38f6
+38ed  8d 70     load immediate 112
+38ef  23        load local word-3
+38f0  b1 03     shr 3
+38f2  c0        uadd_checked
+38f3  f1        call proc1
+38f4  e2 0f     jp 3905
+38f6  2b        load local word-11
+38f7  62        load stack word2
+38f8  90        load immediate 0
+38f9  2b        load local word-11
+38fa  63        load stack word3
+38fb  23        load local word-3
+38fc  ed 20     call proc32
+38fe  8d 71     load immediate 113
+3900  23        load local word-3
+3901  b1 03     shr 3
+3903  c0        uadd_checked
+3904  f1        call proc1
+3905  e2 1f     jp 3926
+3907  2a        load local word-10
+3908  91        load immediate 1
+3909  e8        bitwise_and
+390a  e3 09     jpfalse 3915
+390c  8d 72     load immediate 114
+390e  8d d1     load immediate 209
+3910  f2        call proc2
+3911  90        load immediate 0
+3912  55        store global word5
+3913  e2 11     jp 3926
+3915  8d d5     load immediate 213
+3917  f1        call proc1
+3918  2b        load local word-11
+3919  62        load stack word2
+391a  90        load immediate 0
+391b  2b        load local word-11
+391c  63        load stack word3
+391d  8d 10     load immediate 16
+391f  ed 20     call proc32
+3921  8d 73     load immediate 115
+3923  f1        call proc1
+3924  91        load immediate 1
+3925  55        store global word5
+3926  2b        load local word-11
+3927  20        dup
+3928  63        load stack word3
+3929  91        load immediate 1
+392a  d0        iadd_checked
+392b  73        store stack word3
+392c  ce        jump_stack
+392d  cd 00 80 04 00 0f 00  callswitch (return to 3942)
+	case 90 => 3866
+	case 91 => 3871
+	case 92 => 393e
+	case 93 => 38ae
+	case 94 => 38ae
+393e  9d        load immediate 13
+393f  90        load immediate 0
+3940  90        load immediate 0
+3941  01        Raise
+3942  2a        load local word-10
+3943  ac        inc
+3944  3a        store local word-10
+3945  e4 f2     jp 3855
+3947  80 f7     load local address -9
+3949  9c        load immediate 12
+394a  40 06     DEALLOCATE
+394c  80 f8     load local address -8
+394e  9c        load immediate 12
+394f  40 06     DEALLOCATE
+3951  90        load immediate 0
+3952  54        store global word4
+3953  45        load global word5
+3954  e3 05     jpfalse 395b
+3956  8d d1     load immediate 209
+3958  f1        call proc1
+3959  90        load immediate 0
+395a  55        store global word5
+395b  f0 1d     call NATIVE.proc13
+395d  f0 11     call NATIVE.proc1
+395f  89        leave2
+3960  22        load local word-2
+3961  6d        load stack word13
+3962  b2        iless_than
+3963  3f 00 00  store SCANNER.word0
+3966  d4 ff     enter -1
+3968  e0 bd e3  jp 1d27
+396b  50        end_program
+396c  d7        real_sub
+396d  f9        call proc9
+396e  1f        store indexed dword
+396f  f2        call proc2
+3970  ff        call proc15
+3971  f1        call proc1
+3972  ca        dmod
+3973  f1        call proc1
+3974  3c ed     store local word -19
+3976  39        store local word-9
+3977  ec f0     nested_call proc240
+3979  eb        extern_proc_call
+397a  34        store local word-4
+397b  ea        power2
+397c  ac        inc
+397d  e9        bitwise_xor
+397e  53        store global word3
+397f  ea        power2
+3980  78        store stack word8
+3981  e9        bitwise_xor
+3982  3a        store local word-10
+3983  e9        bitwise_xor
+3984  d0        iadd_checked
+3985  e8        bitwise_and
+3986  a5        ugreater_or_equal
+3987  e8        bitwise_and
+3988  5d        store global word13
+3989  e8        bitwise_and
+398a  07        load param5
+398b  e5 ba     jpfalse 38d3
+398d  e4 71     jp 391e
+398f  e4 1d     jp 3974
+3991  e4 b9     jp 38da
+3993  e3 a4     jpfalse 3a39
+3995  e3 1a     jpfalse 39b1
+3997  e3 69     jpfalse 3a02
+3999  e1 a6 e0  jpfalse 1a41
+399c  98        load immediate 8
+399d  e0 10 fe  jp 37af
+39a0  3a        store local word-10
+39a1  fa        call proc10
+39a2  58        store global word8
+39a3  ec ee     nested_call proc238
+39a5  f2        call proc2
+39a6  43        load global word3
+39a7  ed 94     call proc148
+39a9  e8        bitwise_and
+39aa  2f e8 16  load ð2�^�#ð2.word22
+39ad  e8        bitwise_and
+39ae  64        load stack word4
+39af  e7        bitwise_in
+39b0  50        end_program
+39b1  e7        bitwise_in
+39b2  ab        eq0
+39b3  e6        bitwise_or
+39b4  44        load global word4
+39b5  e6        bitwise_or
+39b6  b7        complement
+39b7  e5 9b     jpfalse 391e
+39b9  e5 3d     jpfalse 397e
+39bb  e5 2f     jpfalse 398e
+39bd  e4 1b     jp 39a4
+39bf  e4 08     jp 39b9
+39c1  e4 4d     jp 3976
+39c3  e3 c7     jpfalse 3a8c
+39c5  e0 9b e2  jp 1c62
+39c8  5a        store global word10
+39c9  e2 fc     jp 3ac7
+39cb  e1 b0 e1  jpfalse 1b7d
+39ce  74        store stack word4
+39cf  e1 4a e1  jpfalse 1b1b
+
+
+

docs/compiler/disasm/native.txt

@@ -0,0 +1,4499 @@
+module start at 19f1
+19f1 : Module NATIVE
+	depends on Zâüá°átá 
+	depends on °átáJá“ÿ 
+	depends on COMPILER 
+	depends on INTELL 
+	depends on TEXTS 
+
+NATIVE.NATIVE: 18ce
+NATIVE.ASSERT: 0016
+NATIVE.DPATCH: 0381
+NATIVE.OPSIZ : 0067
+NATIVE.OPERAN: 0083
+NATIVE.INTERP: 00a6
+NATIVE.RUNTIM: 00c6
+NATIVE.RELOP : 00e3
+NATIVE.PATCH : 0346
+NATIVE.SETLAB: 05f6
+NATIVE.GEN1L2: 07ed
+NATIVE.PUSHIT: 098f
+NATIVE.POPIT : 099f
+NATIVE.STACKE: 0b01
+NATIVE.GENCAL: 0b18
+NATIVE.AAAAAA: 0000
+NATIVE.FATAL : 003d
+NATIVE.OPFILL: 0100
+NATIVE.INIT  : 012f
+NATIVE.WRITEP: 03ae
+NATIVE.GETBYT: 03e4
+NATIVE.NEXTBY: 03fd
+NATIVE.NEXTWO: 0420
+NATIVE.LOOKAH: 0435
+NATIVE.NEWLIN: 044b
+NATIVE.WRITEH: 0454
+NATIVE.WRITET: 04b3
+NATIVE.WRITEA: 0581
+NATIVE.PUSHOP: 09b9
+NATIVE.PUSHBA: 05cb
+NATIVE.GENBLA: 062f
+NATIVE.EXHAND: 0699
+NATIVE.CHECKP: 0702
+NATIVE.GENFLA: 077d
+NATIVE.ENTERC: 085d
+NATIVE.ENTERM: 0948
+NATIVE.GLOBAL: 0962
+NATIVE.PUSHLE: 0a06
+NATIVE.PUSHCO: 0a2c
+NATIVE.PUSHEX: 0a4d
+NATIVE.PUSHDE: 0a69
+NATIVE.PUSHME: 0aa4
+NATIVE.LOADAL: 0af4
+NATIVE.LOADIT: 0add
+NATIVE.MAKECA: 0c84
+NATIVE.GENRET: 0d04
+NATIVE.TRANSL: 0f0b
+NATIVE.LOADST: 0e21
+NATIVE.DISP  : 0eee
+NATIVE.SCAN  : 16d7
+NATIVE.OUTPN : 1698
+NATIVE.0BZNVE: 1944
+
+
+0000  0f        load indexed dword
+0001  61        load stack word1
+0002  73        store stack word3
+0003  73        store stack word3
+0004  65        load stack word5
+0005  72        store stack word2
+0006  74        store stack word4
+0007  69        load stack word9
+0008  6f        load stack word15
+0009  6e        load stack word14
+000a  66        load stack word6
+000b  61        load stack word1
+000c  69        load stack word9
+000d  6c        load stack word12
+000e  65        load stack word5
+000f  64        load stack word4
+0010  34        store local word-4
+0011  68        load stack word8
+0012  b6        not
+0013  6d        load stack word13
+0014  00        Error16
+0015  00        Error16
+0016  d4 ff     enter -1
+0018  03        load param1
+0019  b6        not
+001a  e3 1a     jpfalse 0036
+001c  92        load immediate 2
+001d  8c 05  .. load immediate string "nlc ="
+0024  94        load immediate 4
+0025  f0 59     call ›âZâüá°á.proc9
+0027  92        load immediate 2
+0028  0c 32     load INTELL.word2
+002a  96        load immediate 6
+002b  f0 5b     call ›âZâüá°á.proc11
+002d  92        load immediate 2
+002e  f0 5e     call ›âZâüá°á.proc14
+0030  8e 0f 01  load immediate 271
+0033  90        load immediate 0
+0034  90        load immediate 0
+0035  01        Raise
+0036  89        leave2
+0037  31        copy string
+0038  6b        load stack word11
+0039  56        store global word6
+003a  d2        reserve
+003b  00        Error16
+003c  00        Error16
+003d  d4 ff     enter -1
+003f  03        load param1
+0040  ac        inc
+0041  04        load param2
+0042  40 12     reserve_string
+0044  14        store param2
+0045  92        load immediate 2
+0046  8c 07  .. load immediate string "ERROR: "
+004f  96        load immediate 6
+0050  f0 59     call ›âZâüá°á.proc9
+0052  92        load immediate 2
+0053  04        load param2
+0054  03        load param1
+0055  f0 59     call ›âZâüá°á.proc9
+0057  92        load immediate 2
+0058  f0 5e     call ›âZâüá°á.proc14
+005a  83 00 04  load address Zâüá°átá.WORD4
+005d  f0 14     call °átáJá“ÿ.proc4
+005f  50        end_program
+0060  8a        leave4
+0061  d0        iadd_checked
+0062  67        load stack word7
+0063  72        store stack word2
+0064  d4 00     enter +0
+0066  00        Error16
+0067  d4 ff     enter -1
+0069  4c        load global word12
+006a  03        load param1
+006b  8d ff     load immediate 255
+006d  dc        limit_check
+006e  0e        load indexed word
+006f  8d 3f     load immediate 63
+0071  e8        bitwise_and
+0072  b1 02     shr 2
+0074  8d ff     load immediate 255
+0076  dc        limit_check
+0077  85 81     fct_leave 129
+0079  99        load immediate 9
+007a  90        load immediate 0
+007b  90        load immediate 0
+007c  01        Raise
+007d  d8        real_mul
+007e  18 65     store local dword +101
+0080  49        load global word9
+0081  00        Error16
+0082  00        Error16
+0083  d4 fd     enter -3
+0085  4c        load global word12
+0086  03        load param1
+0087  8d ff     load immediate 255
+0089  dc        limit_check
+008a  0e        load indexed word
+008b  8e ff 01  load immediate 511
+008e  e8        bitwise_and
+008f  b1 06     shr 6
+0091  32        store local word-2
+0092  22        load local word-2
+0093  97        load immediate 7
+0094  a1        not_equal
+0095  f1        call proc1
+0096  22        load local word-2
+0097  8d ff     load immediate 255
+0099  dc        limit_check
+009a  85 81     fct_leave 129
+009c  99        load immediate 9
+009d  90        load immediate 0
+009e  90        load immediate 0
+009f  01        Raise
+00a0  22        load local word-2
+00a1  6d        load stack word13
+00a2  26        load local word-6
+00a3  57        store global word7
+00a4  00        Error16
+00a5  00        Error16
+00a6  d4 fd     enter -3
+00a8  4c        load global word12
+00a9  03        load param1
+00aa  8d ff     load immediate 255
+00ac  dc        limit_check
+00ad  0e        load indexed word
+00ae  b1 09     shr 9
+00b0  32        store local word-2
+00b1  22        load local word-2
+00b2  cb        not_zero
+00b3  f1        call proc1
+00b4  8d cd     load immediate 205
+00b6  8e 30 04  load immediate 1072
+00b9  22        load local word-2
+00ba  95        load immediate 5
+00bb  a8        umul
+00bc  a6        add
+00bd  f0 36     call INTELL.proc6
+00bf  89        leave2
+00c0  5d        store global word13
+00c1  4c        load global word12
+00c2  f3        call proc3
+00c3  44        load global word4
+00c4  00        Error16
+00c5  00        Error16
+00c6  d4 fd     enter -3
+00c8  4c        load global word12
+00c9  03        load param1
+00ca  8d ff     load immediate 255
+00cc  dc        limit_check
+00cd  0e        load indexed word
+00ce  93        load immediate 3
+00cf  e8        bitwise_and
+00d0  32        store local word-2
+00d1  22        load local word-2
+00d2  cb        not_zero
+00d3  f1        call proc1
+00d4  22        load local word-2
+00d5  91        load immediate 1
+00d6  a0        equal
+00d7  85 81     fct_leave 129
+00d9  99        load immediate 9
+00da  90        load immediate 0
+00db  90        load immediate 0
+00dc  01        Raise
+00dd  b5        igreater_or_equal
+00de  3e fc     store stack word 252
+00e0  d2        reserve
+00e1  00        Error16
+00e2  00        Error16
+00e3  d4 fd     enter -3
+00e5  4c        load global word12
+00e6  03        load param1
+00e7  8d ff     load immediate 255
+00e9  dc        limit_check
+00ea  0e        load indexed word
+00eb  93        load immediate 3
+00ec  e8        bitwise_and
+00ed  32        store local word-2
+00ee  22        load local word-2
+00ef  cb        not_zero
+00f0  f1        call proc1
+00f1  22        load local word-2
+00f2  93        load immediate 3
+00f3  a0        equal
+00f4  85 81     fct_leave 129
+00f6  99        load immediate 9
+00f7  90        load immediate 0
+00f8  90        load immediate 0
+00f9  01        Raise
+00fa  7c        store stack word12
+00fb  1e        store indexed word
+00fc  b6        not
+00fd  3f 00 00  store Zâüá°átá.word0
+0100  d4 f9     enter -7
+0102  03        load param1
+0103  b1 09     shr 9
+0105  32        store local word-2
+0106  90        load immediate 0
+0107  33        store local word-3
+0108  04        load param2
+0109  ad        dec
+010a  34        store local word-4
+010b  23        load local word-3
+010c  24        load local word-4
+010d  a4        uless_or_equal
+010e  e3 18     jpfalse 0128
+0110  4c        load global word12
+0111  05        load param3
+0112  23        load local word-3
+0113  a6        add
+0114  8d ff     load immediate 255
+0116  dc        limit_check
+0117  03        load param1
+0118  1e        store indexed word
+0119  22        load local word-2
+011a  cb        not_zero
+011b  e3 06     jpfalse 0123
+011d  03        load param1
+011e  8e 00 02  load immediate 512
+0121  a6        add
+0122  13        store param1
+0123  23        load local word-3
+0124  ac        inc
+0125  33        store local word-3
+0126  e4 1d     jp 010b
+0128  8b        leave6
+0129  16        store param4
+012a  2f 45 d6  load .word214
+012d  00        Error16
+012e  00        Error16
+012f  d4 fd     enter -3
+0131  90        load immediate 0
+0132  32        store local word-2
+0133  03        load param1
+0134  22        load local word-2
+0135  8d ff     load immediate 255
+0137  dc        limit_check
+0138  8e f8 01  load immediate 504
+013b  1e        store indexed word
+013c  22        load local word-2
+013d  ac        inc
+013e  32        store local word-2
+013f  22        load local word-2
+0140  8d ff     load immediate 255
+0142  a3        ugreater_than
+0143  e5 12     jpfalse 0133
+0145  03        load param1
+0146  91        load immediate 1
+0147  8e dc 02  load immediate 732
+014a  1e        store indexed word
+014b  03        load param1
+014c  98        load immediate 8
+014d  8e dc 05  load immediate 1500
+0150  1e        store indexed word
+0151  03        load param1
+0152  99        load immediate 9
+0153  8e dc 07  load immediate 2012
+0156  1e        store indexed word
+0157  03        load param1
+0158  9f        load immediate 15
+0159  8e 91 08  load immediate 2193
+015c  1e        store indexed word
+015d  03        load param1
+015e  8d 12     load immediate 18
+0160  8e dc 0b  load immediate 3036
+0163  1e        store indexed word
+0164  03        load param1
+0165  8d 18     load immediate 24
+0167  8e dc 0d  load immediate 3548
+016a  1e        store indexed word
+016b  03        load param1
+016c  8d 19     load immediate 25
+016e  8e dc 0f  load immediate 4060
+0171  1e        store indexed word
+0172  03        load param1
+0173  8d 1f     load immediate 31
+0175  8e dc 10  load immediate 4316
+0178  1e        store indexed word
+0179  03        load param1
+017a  8d 22     load immediate 34
+017c  8d 61     load immediate 97
+017e  1e        store indexed word
+017f  03        load param1
+0180  8d 28     load immediate 40
+0182  8d a1     load immediate 161
+0184  1e        store indexed word
+0185  03        load param1
+0186  8d 30     load immediate 48
+0188  8e dc 12  load immediate 4828
+018b  1e        store indexed word
+018c  03        load param1
+018d  8d 31     load immediate 49
+018f  8e 1c 15  load immediate 5404
+0192  1e        store indexed word
+0193  03        load param1
+0194  8d 40     load immediate 64
+0196  8e dc 17  load immediate 6108
+0199  1e        store indexed word
+019a  03        load param1
+019b  8d 41     load immediate 65
+019d  8e 51 18  load immediate 6225
+01a0  1e        store indexed word
+01a1  03        load param1
+01a2  8d 43     load immediate 67
+01a4  99        load immediate 9
+01a5  1e        store indexed word
+01a6  03        load param1
+01a7  8d 44     load immediate 68
+01a9  8d 5c     load immediate 92
+01ab  1e        store indexed word
+01ac  03        load param1
+01ad  8d 45     load immediate 69
+01af  8d 51     load immediate 81
+01b1  1e        store indexed word
+01b2  03        load param1
+01b3  8d 46     load immediate 70
+01b5  8d 89     load immediate 137
+01b7  1e        store indexed word
+01b8  03        load param1
+01b9  8d 47     load immediate 71
+01bb  8d 9c     load immediate 156
+01bd  1e        store indexed word
+01be  03        load param1
+01bf  8d 48     load immediate 72
+01c1  8d 9c     load immediate 156
+01c3  1e        store indexed word
+01c4  03        load param1
+01c5  8d 49     load immediate 73
+01c7  8d 5c     load immediate 92
+01c9  1e        store indexed word
+01ca  03        load param1
+01cb  8d 4a     load immediate 74
+01cd  8d 5c     load immediate 92
+01cf  1e        store indexed word
+01d0  03        load param1
+01d1  8d 4b     load immediate 75
+01d3  99        load immediate 9
+01d4  1e        store indexed word
+01d5  03        load param1
+01d6  8d 4c     load immediate 76
+01d8  8d 9c     load immediate 156
+01da  1e        store indexed word
+01db  03        load param1
+01dc  8d 4d     load immediate 77
+01de  8d dc     load immediate 220
+01e0  1e        store indexed word
+01e1  03        load param1
+01e2  8d 4e     load immediate 78
+01e4  8e 1c 01  load immediate 284
+01e7  1e        store indexed word
+01e8  03        load param1
+01e9  8d 4f     load immediate 79
+01eb  8d 9c     load immediate 156
+01ed  1e        store indexed word
+01ee  03        load param1
+01ef  8d 50     load immediate 80
+01f1  8e 1c 1a  load immediate 6684
+01f4  1e        store indexed word
+01f5  03        load param1
+01f6  8d 51     load immediate 81
+01f8  8e 9c 1c  load immediate 7324
+01fb  1e        store indexed word
+01fc  03        load param1
+01fd  8d 52     load immediate 82
+01ff  8d dc     load immediate 220
+0201  1e        store indexed word
+0202  03        load param1
+0203  8d 53     load immediate 83
+0205  8d dc     load immediate 220
+0207  1e        store indexed word
+0208  03        load param1
+0209  8d 54     load immediate 84
+020b  8d 4a     load immediate 74
+020d  1e        store indexed word
+020e  03        load param1
+020f  8d 55     load immediate 85
+0211  8d 9c     load immediate 156
+0213  1e        store indexed word
+0214  03        load param1
+0215  8d 56     load immediate 86
+0217  8d 89     load immediate 137
+0219  1e        store indexed word
+021a  03        load param1
+021b  8d 66     load immediate 102
+021d  8d 4a     load immediate 74
+021f  1e        store indexed word
+0220  03        load param1
+0221  8d 67     load immediate 103
+0223  8d 48     load immediate 72
+0225  1e        store indexed word
+0226  8d 7b     load immediate 123
+0228  93        load immediate 3
+0229  8d 52     load immediate 82
+022b  ed 11     call proc17
+022d  03        load param1
+022e  8d 87     load immediate 135
+0230  8e dc 27  load immediate 10204
+0233  1e        store indexed word
+0234  03        load param1
+0235  8d 91     load immediate 145
+0237  8d 5e     load immediate 94
+0239  1e        store indexed word
+023a  03        load param1
+023b  8d 92     load immediate 146
+023d  8d 9d     load immediate 157
+023f  1e        store indexed word
+0240  03        load param1
+0241  8d 93     load immediate 147
+0243  8d 8a     load immediate 138
+0245  1e        store indexed word
+0246  8d a0     load immediate 160
+0248  96        load immediate 6
+0249  8d 8b     load immediate 139
+024b  ed 11     call proc17
+024d  8d a6     load immediate 166
+024f  92        load immediate 2
+0250  8d 8a     load immediate 138
+0252  ed 11     call proc17
+0254  03        load param1
+0255  8d a8     load immediate 168
+0257  8e 8a 28  load immediate 10378
+025a  1e        store indexed word
+025b  8d a9     load immediate 169
+025d  92        load immediate 2
+025e  8e 89 2a  load immediate 10889
+0261  ed 11     call proc17
+0263  8d b0     load immediate 176
+0265  92        load immediate 2
+0266  8d 8a     load immediate 138
+0268  ed 11     call proc17
+026a  8d b2     load immediate 178
+026c  94        load immediate 4
+026d  8d 8b     load immediate 139
+026f  ed 11     call proc17
+0271  03        load param1
+0272  8d b6     load immediate 182
+0274  8d 4b     load immediate 75
+0276  1e        store indexed word
+0277  03        load param1
+0278  8d b7     load immediate 183
+027a  8d 4a     load immediate 74
+027c  1e        store indexed word
+027d  8d b8     load immediate 184
+027f  92        load immediate 2
+0280  8e 89 2e  load immediate 11913
+0283  ed 11     call proc17
+0285  8d ba     load immediate 186
+0287  93        load immediate 3
+0288  8e 49 32  load immediate 12873
+028b  ed 11     call proc17
+028d  8d bd     load immediate 189
+028f  92        load immediate 2
+0290  8e 51 38  load immediate 14417
+0293  ed 11     call proc17
+0295  03        load param1
+0296  8d bf     load immediate 191
+0298  8e 51 3c  load immediate 15441
+029b  1e        store indexed word
+029c  8d c0     load immediate 192
+029e  92        load immediate 2
+029f  8d 8a     load immediate 138
+02a1  ed 11     call proc17
+02a3  03        load param1
+02a4  8d c2     load immediate 194
+02a6  8e 89 3e  load immediate 16009
+02a9  1e        store indexed word
+02aa  03        load param1
+02ab  8d c3     load immediate 195
+02ad  8e 9c 40  load immediate 16540
+02b0  1e        store indexed word
+02b1  8d c4     load immediate 196
+02b3  92        load immediate 2
+02b4  8e 89 42  load immediate 17033
+02b7  ed 11     call proc17
+02b9  8d c6     load immediate 198
+02bb  95        load immediate 5
+02bc  8e 91 46  load immediate 18065
+02bf  ed 11     call proc17
+02c1  03        load param1
+02c2  8d cc     load immediate 204
+02c4  8e 51 50  load immediate 20561
+02c7  1e        store indexed word
+02c8  8d d0     load immediate 208
+02ca  92        load immediate 2
+02cb  8d 8a     load immediate 138
+02cd  ed 11     call proc17
+02cf  03        load param1
+02d0  8d d2     load immediate 210
+02d2  8e 49 54  load immediate 21577
+02d5  1e        store indexed word
+02d6  03        load param1
+02d7  8d d3     load immediate 211
+02d9  8e 89 56  load immediate 22153
+02dc  1e        store indexed word
+02dd  03        load param1
+02de  8d d4     load immediate 212
+02e0  8e dc 73  load immediate 29660
+02e3  1e        store indexed word
+02e4  03        load param1
+02e5  8d d5     load immediate 213
+02e7  8e 89 58  load immediate 22665
+02ea  1e        store indexed word
+02eb  8d d6     load immediate 214
+02ed  94        load immediate 4
+02ee  8e 91 5a  load immediate 23185
+02f1  ed 11     call proc17
+02f3  8d da     load immediate 218
+02f5  92        load immediate 2
+02f6  8e 89 62  load immediate 25225
+02f9  ed 11     call proc17
+02fb  03        load param1
+02fc  8d dc     load immediate 220
+02fe  8e 89 66  load immediate 26249
+0301  1e        store indexed word
+0302  03        load param1
+0303  8d dd     load immediate 221
+0305  8e 49 68  load immediate 26697
+0308  1e        store indexed word
+0309  8d de     load immediate 222
+030b  92        load immediate 2
+030c  8d 8b     load immediate 139
+030e  ed 11     call proc17
+0310  03        load param1
+0311  8d e6     load immediate 230
+0313  8d 8a     load immediate 138
+0315  1e        store indexed word
+0316  03        load param1
+0317  8d e7     load immediate 231
+0319  8e 8b 6a  load immediate 27275
+031c  1e        store indexed word
+031d  8d e8     load immediate 232
+031f  92        load immediate 2
+0320  8d 8a     load immediate 138
+0322  ed 11     call proc17
+0324  03        load param1
+0325  8d ea     load immediate 234
+0327  8e 49 6c  load immediate 27721
+032a  1e        store indexed word
+032b  03        load param1
+032c  8d eb     load immediate 235
+032e  8e dc 6f  load immediate 28636
+0331  1e        store indexed word
+0332  03        load param1
+0333  8d ef     load immediate 239
+0335  8e dc 71  load immediate 29148
+0338  1e        store indexed word
+0339  89        leave2
+033a  4c        load global word12
+033b  ed 12     call proc18
+033d  e0 94 15  jp 18d3
+0340  3b        store local word-11
+0341  6b        load stack word11
+0342  c0        uadd_checked
+0343  d1        isub_checked
+0344  00        Error16
+0345  00        Error16
+0346  d4 ff     enter -1
+0348  4f        load global word15
+0349  8e 00 02  load immediate 512
+034c  a5        ugreater_or_equal
+034d  e3 1d     jpfalse 036c
+034f  8c 17  .. load immediate string "INTERNAL TABLE OVERFLOW"
+0368  8d 16     load immediate 22
+036a  ed 10     call proc16
+036c  4e        load global word14
+036d  4f        load global word15
+036e  8e ff 01  load immediate 511
+0371  dc        limit_check
+0372  0c 32     load INTELL.word2
+0374  af 02     sub 2
+0376  1e        store indexed word
+0377  4f        load global word15
+0378  ac        inc
+0379  5f        store global word15
+037a  88        leave0
+037b  3d 02     store global word 2
+037d  db        irange_check
+037e  27        load local word-7
+037f  00        Error16
+0380  00        Error16
+0381  d4 fd     enter -3
+0383  03        load param1
+0384  92        load immediate 2
+0385  b9        idiv
+0386  13        store param1
+0387  4d        load global word13
+0388  03        load param1
+0389  8e 27 01  load immediate 295
+038c  8e d8 ff  load immediate -40
+038f  db        irange_check
+0390  ae 28     add 40
+0392  0e        load indexed word
+0393  32        store local word-2
+0394  4d        load global word13
+0395  03        load param1
+0396  8e 27 01  load immediate 295
+0399  8e d8 ff  load immediate -40
+039c  db        irange_check
+039d  ae 28     add 40
+039f  04        load param2
+03a0  1e        store indexed word
+03a1  22        load local word-2
+03a2  85 82     fct_leave 130
+03a4  99        load immediate 9
+03a5  90        load immediate 0
+03a6  90        load immediate 0
+03a7  01        Raise
+03a8  bc        abs
+03a9  2f 47 55  load .word85
+03ac  00        Error16
+03ad  00        Error16
+03ae  d4 ff     enter -1
+03b0  0c 04     load Zâüá°átá.word4
+03b2  4e        load global word14
+03b3  4f        load global word15
+03b4  b0 01     shl 1
+03b6  ef 01 10  call °átáJá“ÿ.proc16
+03b9  88        leave0
+03ba  8e d8 ff  load immediate -40
+03bd  3d 10     store global word 16
+03bf  4d        load global word13
+03c0  2d 10     load global word 16
+03c2  8e 27 01  load immediate 295
+03c5  8e d8 ff  load immediate -40
+03c8  db        irange_check
+03c9  ae 28     add 40
+03cb  90        load immediate 0
+03cc  1e        store indexed word
+03cd  2d 10     load global word 16
+03cf  ac        inc
+03d0  3d 10     store global word 16
+03d2  2d 10     load global word 16
+03d4  8d ff     load immediate 255
+03d6  b3        igreater_than
+03d7  e5 1a     jpfalse 03bf
+03d9  90        load immediate 0
+03da  5f        store global word15
+03db  e0 f9 14  jp 18d6
+03de  ca        dmod
+03df  6b        load stack word11
+03e0  bd        int_to_long
+03e1  6e        load stack word14
+03e2  00        Error16
+03e3  00        Error16
+03e4  d4 ff     enter -1
+03e6  2d 13     load global word 19
+03e8  46        load global word6
+03e9  8e 1f 4e  load immediate 19999
+03ec  dc        limit_check
+03ed  0d        load indexed byte
+03ee  3d 11     store global word 17
+03f0  46        load global word6
+03f1  ac        inc
+03f2  56        store global word6
+03f3  47        load global word7
+03f4  ad        dec
+03f5  57        store global word7
+03f6  88        leave0
+03f7  61        load stack word1
+03f8  82 99     load stack address 153
+03fa  87 00     asmcode 0
+03fc  00        Error16
+03fd  d4 ff     enter -1
+03ff  2d 13     load global word 19
+0401  46        load global word6
+0402  8e 1f 4e  load immediate 19999
+0405  dc        limit_check
+0406  0d        load indexed byte
+0407  3d 11     store global word 17
+0409  46        load global word6
+040a  ac        inc
+040b  56        store global word6
+040c  47        load global word7
+040d  ad        dec
+040e  57        store global word7
+040f  2d 11     load global word 17
+0411  8d ff     load immediate 255
+0413  dc        limit_check
+0414  85 80     fct_leave 128
+0416  99        load immediate 9
+0417  90        load immediate 0
+0418  90        load immediate 0
+0419  01        Raise
+041a  61        load stack word1
+041b  82 4f     load stack address 79
+041d  52        store global word2
+041e  00        Error16
+041f  00        Error16
+0420  d4 ff     enter -1
+0422  ed 15     call proc21
+0424  ed 15     call proc21
+0426  b0 08     shl 8
+0428  a6        add
+0429  85 80     fct_leave 128
+042b  99        load immediate 9
+042c  90        load immediate 0
+042d  90        load immediate 0
+042e  01        Raise
+042f  17        store param5
+0430  51        store stack dword0
+0431  86 27     longfct_leave 39
+0433  00        Error16
+0434  00        Error16
+0435  d4 ff     enter -1
+0437  2d 13     load global word 19
+0439  46        load global word6
+043a  8e 1f 4e  load immediate 19999
+043d  dc        limit_check
+043e  0d        load indexed byte
+043f  85 80     fct_leave 128
+0441  99        load immediate 9
+0442  90        load immediate 0
+0443  90        load immediate 0
+0444  01        Raise
+0445  bd        int_to_long
+0446  7c        store stack word12
+0447  8f 4a 00 00 d4  load immediate dword -738197430
+044c  ff        call proc15
+044d  88        leave0
+044e  bc        abs
+044f  2f 27 28  load .word40
+0452  00        Error16
+0453  00        Error16
+0454  d4 f9     enter -7
+0456  0c 32     load INTELL.word2
+0458  46        load global word6
+0459  a7        sub
+045a  32        store local word-2
+045b  2d 15     load global word 21
+045d  33        store local word-3
+045e  91        load immediate 1
+045f  3d 18     store global word 24
+0461  2d 16     load global word 22
+0463  63        load stack word3
+0464  34        store local word-4
+0465  2d 18     load global word 24
+0467  24        load local word-4
+0468  a4        uless_or_equal
+0469  e3 11     jpfalse 047c
+046b  23        load local word-3
+046c  20        dup
+046d  65        load stack word5
+046e  22        load local word-2
+046f  a6        add
+0470  75        store stack word5
+0471  23        load local word-3
+0472  ae 0c     add 12
+0474  33        store local word-3
+0475  2d 18     load global word 24
+0477  ac        inc
+0478  3d 18     store global word 24
+047a  e4 17     jp 0465
+047c  2d 16     load global word 22
+047e  34        store local word-4
+047f  24        load local word-4
+0480  20        dup
+0481  60        load stack word0
+0482  22        load local word-2
+0483  8d 2a     load immediate 42
+0485  2d 12     load global word 18
+0487  a6        add
+0488  4f        load global word15
+0489  a6        add
+048a  b0 01     shl 1
+048c  a6        add
+048d  a6        add
+048e  70        store stack word0
+048f  24        load local word-4
+0490  20        dup
+0491  61        load stack word1
+0492  22        load local word-2
+0493  a6        add
+0494  71        store stack word1
+0495  24        load local word-4
+0496  20        dup
+0497  62        load stack word2
+0498  22        load local word-2
+0499  a6        add
+049a  72        store stack word2
+049b  0c 04     load Zâüá°átá.word4
+049d  90        load immediate 0
+049e  90        load immediate 0
+049f  21        swap
+04a0  ef 01 13  call °átáJá“ÿ.proc19
+04a3  0c 04     load Zâüá°átá.word4
+04a5  2d 16     load global word 22
+04a7  8d 10     load immediate 16
+04a9  ef 01 10  call °átáJá“ÿ.proc16
+04ac  88        leave0
+04ad  bc        abs
+04ae  2f d7 6b  load n.word107
+04b1  00        Error16
+04b2  00        Error16
+04b3  d4 f7     enter -9
+04b5  94        load immediate 4
+04b6  d2        reserve
+04b7  34        store local word-4
+04b8  2d 14     load global word 20
+04ba  20        dup
+04bb  2e 28     load stack word 40
+04bd  91        load immediate 1
+04be  ea        power2
+04bf  e6        bitwise_or
+04c0  3e 28     store stack word 40
+04c2  8d 20     load immediate 32
+04c4  2d 14     load global word 20
+04c6  82 28     load stack address 40
+04c8  93        load immediate 3
+04c9  0d        load indexed byte
+04ca  a7        sub
+04cb  b0 01     shl 1
+04cd  33        store local word-3
+04ce  2d 14     load global word 20
+04d0  0c 32     load INTELL.word2
+04d2  af 02     sub 2
+04d4  3e 27     store stack word 39
+04d6  0c 04     load Zâüá°átá.word4
+04d8  2d 14     load global word 20
+04da  23        load local word-3
+04db  a6        add
+04dc  8d 5c     load immediate 92
+04de  23        load local word-3
+04df  a7        sub
+04e0  af 08     sub 8
+04e2  2d 12     load global word 18
+04e4  b0 01     shl 1
+04e6  a6        add
+04e7  ef 01 10  call °átáJá“ÿ.proc16
+04ea  2d 15     load global word 21
+04ec  32        store local word-2
+04ed  91        load immediate 1
+04ee  33        store local word-3
+04ef  2d 16     load global word 22
+04f1  63        load stack word3
+04f2  35        store local word-5
+04f3  23        load local word-3
+04f4  25        load local word-5
+04f5  a4        uless_or_equal
+04f6  e3 10     jpfalse 0508
+04f8  0c 04     load Zâüá°átá.word4
+04fa  22        load local word-2
+04fb  9c        load immediate 12
+04fc  ef 01 10  call °átáJá“ÿ.proc16
+04ff  22        load local word-2
+0500  ae 0c     add 12
+0502  32        store local word-2
+0503  23        load local word-3
+0504  ac        inc
+0505  33        store local word-3
+0506  e4 15     jp 04f3
+0508  24        load local word-4
+0509  2d 16     load global word 22
+050b  61        load stack word1
+050c  ae 50     add 80
+050e  70        store stack word0
+050f  24        load local word-4
+0510  4f        load global word15
+0511  71        store stack word1
+0512  0c 04     load Zâüá°átá.word4
+0514  24        load local word-4
+0515  94        load immediate 4
+0516  ef 01 10  call °átáJá“ÿ.proc16
+0519  0c 04     load Zâüá°átá.word4
+051b  4d        load global word13
+051c  8d 2a     load immediate 42
+051e  2d 12     load global word 18
+0520  a6        add
+0521  b0 01     shl 1
+0523  ef 01 10  call °átáJá“ÿ.proc16
+0526  ed 13     call proc19
+0528  92        load immediate 2
+0529  8c 0f  .. load immediate string "Compiled bytes:"
+053a  9e        load immediate 14
+053b  f0 59     call ›âZâüá°á.proc9
+053d  92        load immediate 2
+053e  2d 16     load global word 22
+0540  61        load stack word1
+0541  ae 40     add 64
+0543  96        load immediate 6
+0544  f0 5b     call ›âZâüá°á.proc11
+0546  92        load immediate 2
+0547  f0 5e     call ›âZâüá°á.proc14
+0549  92        load immediate 2
+054a  8c 11  .. load immediate string "Native-code file "
+055d  8d 10     load immediate 16
+055f  f0 59     call ›âZâüá°á.proc9
+0561  92        load immediate 2
+0562  0c 44     load TEXTS.word4
+0564  8d 13     load immediate 19
+0566  f0 59     call ›âZâüá°á.proc9
+0568  92        load immediate 2
+0569  8c 09  .. load immediate string " produced"
+0574  98        load immediate 8
+0575  f0 59     call ›âZâüá°á.proc9
+0577  92        load immediate 2
+0578  f0 5e     call ›âZâüá°á.proc14
+057a  88        leave0
+057b  bc        abs
+057c  2f ab 00  load .word0
+057f  00        Error16
+0580  00        Error16
+0581  d4 ff     enter -1
+0583  ed 19     call proc25
+0585  0c 04     load Zâüá°átá.word4
+0587  f0 38     call INTELL.proc8
+0589  ed 1a     call proc26
+058b  88        leave0
+058c  2f 00 15  load Zâüá°átá.word21
+058f  ae 10     add 16
+0591  3d 13     store global word 19
+0593  90        load immediate 0
+0594  56        store global word6
+0595  96        load immediate 6
+0596  57        store global word7
+0597  2f 00 15  load Zâüá°átá.word21
+059a  3d 16     store global word 22
+059c  2f 00 15  load Zâüá°átá.word21
+059f  ae 10     add 16
+05a1  2d 16     load global word 22
+05a3  61        load stack word1
+05a4  a6        add
+05a5  3d 14     store global word 20
+05a7  2f 00 15  load Zâüá°átá.word21
+05aa  ae 10     add 16
+05ac  2d 16     load global word 22
+05ae  62        load stack word2
+05af  a6        add
+05b0  3d 15     store global word 21
+05b2  2d 14     load global word 20
+05b4  82 28     load stack address 40
+05b6  91        load immediate 1
+05b7  0d        load indexed byte
+05b8  3d 12     store global word 18
+05ba  2d 17     load global word 23
+05bc  2d 14     load global word 20
+05be  82 2a     load stack address 42
+05c0  98        load immediate 8
+05c1  30        copy block
+05c2  e0 15 13  jp 18d9
+05c5  8f 68 2d 00 00  load immediate dword 11624
+05ca  00        Error16
+05cb  d4 fb     enter -5
+05cd  90        load immediate 0
+05ce  33        store local word-3
+05cf  80 fd     load local address -3
+05d1  91        load immediate 1
+05d2  ef 03 12  call INTELL.proc18
+05d5  80 fe     load local address -2
+05d7  9c        load immediate 12
+05d8  40 05     ALLOCATE
+05da  22        load local word-2
+05db  90        load immediate 0
+05dc  71        store stack word1
+05dd  22        load local word-2
+05de  46        load global word6
+05df  72        store stack word2
+05e0  22        load local word-2
+05e1  0c 32     load INTELL.word2
+05e3  73        store stack word3
+05e4  22        load local word-2
+05e5  0c 33     load INTELL.word3
+05e7  74        store stack word4
+05e8  22        load local word-2
+05e9  2d 19     load global word 25
+05eb  75        store stack word5
+05ec  22        load local word-2
+05ed  3d 19     store global word 25
+05ef  88        leave0
+05f0  d6        real_add
+05f1  6b        load stack word11
+05f2  af 05     sub 5
+05f4  00        Error16
+05f5  00        Error16
+05f6  d4 fd     enter -3
+05f8  03        load param1
+05f9  60        load stack word0
+05fa  ab        eq0
+05fb  e3 0b     jpfalse 0608
+05fd  03        load param1
+05fe  9c        load immediate 12
+05ff  40 05     ALLOCATE
+0601  03        load param1
+0602  60        load stack word0
+0603  0c 33     load INTELL.word3
+0605  71        store stack word1
+0606  e2 15     jp 061d
+0608  03        load param1
+0609  60        load stack word0
+060a  61        load stack word1
+060b  f0 3b     call INTELL.proc11
+060d  03        load param1
+060e  60        load stack word0
+060f  60        load stack word0
+0610  32        store local word-2
+0611  22        load local word-2
+0612  cb        not_zero
+0613  e3 08     jpfalse 061d
+0615  22        load local word-2
+0616  0c 32     load INTELL.word2
+0618  f0 37     call INTELL.proc7
+061a  32        store local word-2
+061b  e4 0c     jp 0611
+061d  03        load param1
+061e  60        load stack word0
+061f  0c 32     load INTELL.word2
+0621  70        store stack word0
+0622  03        load param1
+0623  60        load stack word0
+0624  90        load immediate 0
+0625  72        store stack word2
+0626  90        load immediate 0
+0627  53        store global word3
+0628  89        leave2
+0629  f2        call proc2
+062a  49        load global word9
+062b  a3        ugreater_than
+062c  01        Raise
+062d  00        Error16
+062e  00        Error16
+062f  d4 f5     enter -11
+0631  90        load immediate 0
+0632  53        store global word3
+0633  46        load global word6
+0634  06        load param4
+0635  a7        sub
+0636  33        store local word-3
+0637  2d 19     load global word 25
+0639  cb        not_zero
+063a  de 05     andjp 0641
+063c  2d 19     load global word 25
+063e  62        load stack word2
+063f  23        load local word-3
+0640  a0        equal
+0641  df 02     orjp 0645
+0643  05        load param3
+0644  b6        not
+0645  f1        call proc1
+0646  2d 19     load global word 25
+0648  34        store local word-4
+0649  24        load local word-4
+064a  cb        not_zero
+064b  de 04     andjp 0651
+064d  24        load local word-4
+064e  62        load stack word2
+064f  23        load local word-3
+0650  a1        not_equal
+0651  e3 07     jpfalse 065a
+0653  24        load local word-4
+0654  35        store local word-5
+0655  25        load local word-5
+0656  65        load stack word5
+0657  34        store local word-4
+0658  e4 11     jp 0649
+065a  24        load local word-4
+065b  cb        not_zero
+065c  f1        call proc1
+065d  03        load param1
+065e  24        load local word-4
+065f  60        load stack word0
+0660  70        store stack word0
+0661  24        load local word-4
+0662  63        load stack word3
+0663  32        store local word-2
+0664  24        load local word-4
+0665  64        load stack word4
+0666  36        store local word-6
+0667  24        load local word-4
+0668  2d 19     load global word 25
+066a  a0        equal
+066b  e3 07     jpfalse 0674
+066d  2d 19     load global word 25
+066f  65        load stack word5
+0670  3d 19     store global word 25
+0672  e2 04     jp 0678
+0674  25        load local word-5
+0675  24        load local word-4
+0676  65        load stack word5
+0677  75        store stack word5
+0678  80 fc     load local address -4
+067a  9c        load immediate 12
+067b  40 06     DEALLOCATE
+067d  04        load param2
+067e  9c        load immediate 12
+067f  40 05     ALLOCATE
+0681  04        load param2
+0682  60        load stack word0
+0683  22        load local word-2
+0684  70        store stack word0
+0685  04        load param2
+0686  60        load stack word0
+0687  26        load local word-6
+0688  71        store stack word1
+0689  04        load param2
+068a  60        load stack word0
+068b  90        load immediate 0
+068c  72        store stack word2
+068d  04        load param2
+068e  60        load stack word0
+068f  90        load immediate 0
+0690  73        store stack word3
+0691  84 84     leave 132
+0693  ea        power2
+0694  2a        load local word-10
+0695  da        urange_check
+0696  12 00 00  ll_longreal +0
+0699  d4 f3     enter -13
+069b  90        load immediate 0
+069c  53        store global word3
+069d  90        load immediate 0
+069e  32        store local word-2
+069f  90        load immediate 0
+06a0  37        store local word-7
+06a1  03        load param1
+06a2  62        load stack word2
+06a3  60        load stack word0
+06a4  33        store local word-3
+06a5  03        load param1
+06a6  82 02     load stack address 2
+06a8  9c        load immediate 12
+06a9  40 06     DEALLOCATE
+06ab  23        load local word-3
+06ac  0c 32     load INTELL.word2
+06ae  23        load local word-3
+06af  a7        sub
+06b0  ad        dec
+06b1  f0 37     call INTELL.proc7
+06b3  34        store local word-4
+06b4  ed 15     call proc21
+06b6  34        store local word-4
+06b7  24        load local word-4
+06b8  f0 31     call INTELL.proc1
+06ba  90        load immediate 0
+06bb  35        store local word-5
+06bc  24        load local word-4
+06bd  cb        not_zero
+06be  e3 32     jpfalse 06f2
+06c0  ed 16     call proc22
+06c2  f0 35     call INTELL.proc5
+06c4  26        load local word-6
+06c5  35        store local word-5
+06c6  ed 16     call proc22
+06c8  36        store local word-6
+06c9  26        load local word-6
+06ca  ae 04     add 4
+06cc  25        load local word-5
+06cd  a1        not_equal
+06ce  e3 15     jpfalse 06e5
+06d0  22        load local word-2
+06d1  cb        not_zero
+06d2  e3 05     jpfalse 06d9
+06d4  80 fe     load local address -2
+06d6  9c        load immediate 12
+06d7  40 06     DEALLOCATE
+06d9  26        load local word-6
+06da  ad        dec
+06db  b7        complement
+06dc  ac        inc
+06dd  dd        check_positive
+06de  90        load immediate 0
+06df  80 fe     load local address -2
+06e1  80 f9     load local address -7
+06e3  ed 1e     call proc30
+06e5  22        load local word-2
+06e6  60        load stack word0
+06e7  0c 32     load INTELL.word2
+06e9  ac        inc
+06ea  a7        sub
+06eb  f0 35     call INTELL.proc5
+06ed  24        load local word-4
+06ee  ad        dec
+06ef  34        store local word-4
+06f0  e4 36     jp 06bc
+06f2  22        load local word-2
+06f3  cb        not_zero
+06f4  e3 05     jpfalse 06fb
+06f6  80 fe     load local address -2
+06f8  9c        load immediate 12
+06f9  40 06     DEALLOCATE
+06fb  89        leave2
+06fc  9c        load immediate 12
+06fd  17        store param5
+06fe  1a 56     store stack dword 86
+0700  00        Error16
+0701  00        Error16
+0702  d4 fd     enter -3
+0704  2d 1a     load global word 26
+0706  cb        not_zero
+0707  de 05     andjp 070e
+0709  46        load global word6
+070a  2d 1a     load global word 26
+070c  61        load stack word1
+070d  a5        ugreater_or_equal
+070e  e3 66     jpfalse 0776
+0710  46        load global word6
+0711  2d 1a     load global word 26
+0713  61        load stack word1
+0714  a0        equal
+0715  f1        call proc1
+0716  2d 1a     load global word 26
+0718  60        load stack word0
+0719  91        load immediate 1
+071a  a0        equal
+071b  e3 06     jpfalse 0723
+071d  2d 1a     load global word 26
+071f  ed 1f     call proc31
+0721  e2 44     jp 0767
+0723  2d 1a     load global word 26
+0725  60        load stack word0
+0726  92        load immediate 2
+0727  a3        ugreater_than
+0728  e3 07     jpfalse 0731
+072a  2d 1a     load global word 26
+072c  60        load stack word0
+072d  ed 1c     call proc28
+072f  e2 36     jp 0767
+0731  2d 1a     load global word 26
+0733  62        load stack word2
+0734  cb        not_zero
+0735  f1        call proc1
+0736  ed 17     call proc23
+0738  8d 84     load immediate 132
+073a  a1        not_equal
+073b  e3 13     jpfalse 0750
+073d  03        load param1
+073e  53        store global word3
+073f  4b        load global word11
+0740  b6        not
+0741  e3 09     jpfalse 074c
+0743  2d 1a     load global word 26
+0745  62        load stack word2
+0746  82 03     load stack address 3
+0748  91        load immediate 1
+0749  ef 03 12  call INTELL.proc18
+074c  90        load immediate 0
+074d  53        store global word3
+074e  90        load immediate 0
+074f  13        store param1
+0750  2d 1a     load global word 26
+0752  60        load stack word0
+0753  92        load immediate 2
+0754  a0        equal
+0755  e3 04     jpfalse 075b
+0757  8d c9     load immediate 201
+0759  f0 31     call INTELL.proc1
+075b  2d 1a     load global word 26
+075d  82 02     load stack address 2
+075f  f9        call proc9
+0760  2d 1a     load global word 26
+0762  82 02     load stack address 2
+0764  9c        load immediate 12
+0765  40 06     DEALLOCATE
+0767  2d 1a     load global word 26
+0769  32        store local word-2
+076a  2d 1a     load global word 26
+076c  63        load stack word3
+076d  3d 1a     store global word 26
+076f  80 fe     load local address -2
+0771  9c        load immediate 12
+0772  40 06     DEALLOCATE
+0774  e4 72     jp 0704
+0776  89        leave2
+0777  f2        call proc2
+0778  49        load global word9
+0779  a7        sub
+077a  01        Raise
+077b  00        Error16
+077c  00        Error16
+077d  d4 f7     enter -9
+077f  43        load global word3
+0780  e3 0d     jpfalse 078f
+0782  03        load param1
+0783  60        load stack word0
+0784  cb        not_zero
+0785  e3 04     jpfalse 078b
+0787  03        load param1
+0788  9c        load immediate 12
+0789  40 06     DEALLOCATE
+078b  91        load immediate 1
+078c  ed 20     call proc32
+078e  8b        leave6
+078f  91        load immediate 1
+0790  ed 20     call proc32
+0792  46        load global word6
+0793  04        load param2
+0794  a6        add
+0795  32        store local word-2
+0796  2d 1a     load global word 26
+0798  ab        eq0
+0799  df 03     orjp 079e
+079b  05        load param3
+079c  92        load immediate 2
+079d  a4        uless_or_equal
+079e  df 05     orjp 07a5
+07a0  22        load local word-2
+07a1  2d 1a     load global word 26
+07a3  61        load stack word1
+07a4  a4        uless_or_equal
+07a5  df 02     orjp 07a9
+07a7  47        load global word7
+07a8  ab        eq0
+07a9  f1        call proc1
+07aa  80 fd     load local address -3
+07ac  9c        load immediate 12
+07ad  40 05     ALLOCATE
+07af  23        load local word-3
+07b0  05        load param3
+07b1  70        store stack word0
+07b2  23        load local word-3
+07b3  22        load local word-2
+07b4  71        store stack word1
+07b5  23        load local word-3
+07b6  03        load param1
+07b7  60        load stack word0
+07b8  72        store stack word2
+07b9  23        load local word-3
+07ba  2d 1a     load global word 26
+07bc  73        store stack word3
+07bd  2d 1a     load global word 26
+07bf  ab        eq0
+07c0  df 05     orjp 07c7
+07c2  22        load local word-2
+07c3  2d 1a     load global word 26
+07c5  61        load stack word1
+07c6  a4        uless_or_equal
+07c7  e3 05     jpfalse 07ce
+07c9  23        load local word-3
+07ca  3d 1a     store global word 26
+07cc  e2 18     jp 07e6
+07ce  2d 1a     load global word 26
+07d0  34        store local word-4
+07d1  24        load local word-4
+07d2  35        store local word-5
+07d3  25        load local word-5
+07d4  63        load stack word3
+07d5  34        store local word-4
+07d6  24        load local word-4
+07d7  ab        eq0
+07d8  df 04     orjp 07de
+07da  22        load local word-2
+07db  24        load local word-4
+07dc  61        load stack word1
+07dd  a4        uless_or_equal
+07de  e5 0f     jpfalse 07d1
+07e0  23        load local word-3
+07e1  24        load local word-4
+07e2  73        store stack word3
+07e3  25        load local word-5
+07e4  23        load local word-3
+07e5  73        store stack word3
+07e6  8b        leave6
+07e7  f2        call proc2
+07e8  49        load global word9
+07e9  ad        dec
+07ea  9f        load immediate 15
+07eb  00        Error16
+07ec  00        Error16
+07ed  d4 f5     enter -11
+07ef  43        load global word3
+07f0  b6        not
+07f1  e3 63     jpfalse 0856
+07f3  04        load param2
+07f4  60        load stack word0
+07f5  ab        eq0
+07f6  35        store local word-5
+07f7  25        load local word-5
+07f8  e3 11     jpfalse 080b
+07fa  04        load param2
+07fb  9c        load immediate 12
+07fc  40 05     ALLOCATE
+07fe  04        load param2
+07ff  60        load stack word0
+0800  90        load immediate 0
+0801  70        store stack word0
+0802  04        load param2
+0803  60        load stack word0
+0804  0c 33     load INTELL.word3
+0806  71        store stack word1
+0807  04        load param2
+0808  60        load stack word0
+0809  91        load immediate 1
+080a  72        store stack word2
+080b  03        load param1
+080c  e3 09     jpfalse 0817
+080e  04        load param2
+080f  60        load stack word0
+0810  82 03     load stack address 3
+0812  25        load local word-5
+0813  b6        not
+0814  ef 03 12  call INTELL.proc18
+0817  04        load param2
+0818  60        load stack word0
+0819  60        load stack word0
+081a  32        store local word-2
+081b  04        load param2
+081c  60        load stack word0
+081d  61        load stack word1
+081e  36        store local word-6
+081f  22        load local word-2
+0820  23        load local word-3
+0821  f0 37     call INTELL.proc7
+0823  33        store local word-3
+0824  22        load local word-2
+0825  23        load local word-3
+0826  f0 37     call INTELL.proc7
+0828  34        store local word-4
+0829  04        load param2
+082a  60        load stack word0
+082b  62        load stack word2
+082c  e3 0b     jpfalse 0839
+082e  26        load local word-6
+082f  f0 3b     call INTELL.proc11
+0831  04        load param2
+0832  60        load stack word0
+0833  0c 32     load INTELL.word2
+0835  ac        inc
+0836  70        store stack word0
+0837  e2 15     jp 084e
+0839  0c 33     load INTELL.word3
+083b  26        load local word-6
+083c  a1        not_equal
+083d  de 07     andjp 0846
+083f  23        load local word-3
+0840  8d ff     load immediate 255
+0842  e8        bitwise_and
+0843  8d d9     load immediate 217
+0845  a0        equal
+0846  e3 06     jpfalse 084e
+0848  22        load local word-2
+0849  ac        inc
+084a  32        store local word-2
+084b  26        load local word-6
+084c  b6        not
+084d  36        store local word-6
+084e  26        load local word-6
+084f  f0 3b     call INTELL.proc11
+0851  05        load param3
+0852  22        load local word-2
+0853  f0 36     call INTELL.proc6
+0855  f8        call proc8
+0856  8b        leave6
+0857  1e        store indexed word
+0858  6d        load stack word13
+0859  d2        reserve
+085a  0d        load indexed byte
+085b  00        Error16
+085c  00        Error16
+085d  d4 ef     enter -17
+085f  ed 16     call proc22
+0861  8e 00 80  load immediate -32768
+0864  a6        add
+0865  37        store local word-7
+0866  ed 16     call proc22
+0868  35        store local word-5
+0869  8d d9     load immediate 217
+086b  f0 31     call INTELL.proc1
+086d  80 fa     load local address -6
+086f  9c        load immediate 12
+0870  40 05     ALLOCATE
+0872  26        load local word-6
+0873  0c 32     load INTELL.word2
+0875  ac        inc
+0876  70        store stack word0
+0877  26        load local word-6
+0878  90        load immediate 0
+0879  71        store stack word1
+087a  92        load immediate 2
+087b  ed 16     call proc22
+087d  ad        dec
+087e  80 fa     load local address -6
+0880  ed 21     call proc33
+0882  8d 21     load immediate 33
+0884  90        load immediate 0
+0885  f0 36     call INTELL.proc6
+0887  f8        call proc8
+0888  8d e5     load immediate 229
+088a  8d d9     load immediate 217
+088c  f0 32     call INTELL.proc2
+088e  8d d5     load immediate 213
+0890  f0 31     call INTELL.proc1
+0892  27        load local word-7
+0893  cb        not_zero
+0894  e3 0e     jpfalse 08a4
+0896  8d 11     load immediate 17
+0898  8e ff ff  load immediate -1
+089b  27        load local word-7
+089c  a7        sub
+089d  ac        inc
+089e  f0 36     call INTELL.proc6
+08a0  8d 19     load immediate 25
+08a2  f0 31     call INTELL.proc1
+08a4  8d eb     load immediate 235
+08a6  f0 31     call INTELL.proc1
+08a8  8d 21     load immediate 33
+08aa  8e ff ff  load immediate -1
+08ad  25        load local word-5
+08ae  a7        sub
+08af  f0 36     call INTELL.proc6
+08b1  8d 19     load immediate 25
+08b3  f0 31     call INTELL.proc1
+08b5  8d da     load immediate 218
+08b7  0c 32     load INTELL.word2
+08b9  ae 0e     add 14
+08bb  25        load local word-5
+08bc  ac        inc
+08bd  b0 01     shl 1
+08bf  a6        add
+08c0  f0 36     call INTELL.proc6
+08c2  f8        call proc8
+08c3  8d 21     load immediate 33
+08c5  0c 32     load INTELL.word2
+08c7  ae 0b     add 11
+08c9  f0 36     call INTELL.proc6
+08cb  f8        call proc8
+08cc  8d 19     load immediate 25
+08ce  8d 19     load immediate 25
+08d0  f0 32     call INTELL.proc2
+08d2  8d 5e     load immediate 94
+08d4  8d 23     load immediate 35
+08d6  f0 32     call INTELL.proc2
+08d8  8d 56     load immediate 86
+08da  8d 19     load immediate 25
+08dc  f0 32     call INTELL.proc2
+08de  8d d1     load immediate 209
+08e0  8d e9     load immediate 233
+08e2  f0 32     call INTELL.proc2
+08e4  25        load local word-5
+08e5  ac        inc
+08e6  35        store local word-5
+08e7  25        load local word-5
+08e8  ad        dec
+08e9  35        store local word-5
+08ea  ed 16     call proc22
+08ec  33        store local word-3
+08ed  46        load global word6
+08ee  23        load local word-3
+08ef  a6        add
+08f0  ad        dec
+08f1  32        store local word-2
+08f2  22        load local word-2
+08f3  46        load global word6
+08f4  a2        uless_than
+08f5  e3 24     jpfalse 091b
+08f7  2d 19     load global word 25
+08f9  38        store local word-8
+08fa  28        load local word-8
+08fb  cb        not_zero
+08fc  de 04     andjp 0902
+08fe  28        load local word-8
+08ff  62        load stack word2
+0900  22        load local word-2
+0901  a1        not_equal
+0902  e3 05     jpfalse 0909
+0904  28        load local word-8
+0905  65        load stack word5
+0906  38        store local word-8
+0907  e4 0f     jp 08fa
+0909  28        load local word-8
+090a  cb        not_zero
+090b  f1        call proc1
+090c  28        load local word-8
+090d  91        load immediate 1
+090e  71        store stack word1
+090f  28        load local word-8
+0910  63        load stack word3
+0911  0c 32     load INTELL.word2
+0913  a7        sub
+0914  ad        dec
+0915  34        store local word-4
+0916  24        load local word-4
+0917  f0 35     call INTELL.proc5
+0919  e2 04     jp 091f
+091b  23        load local word-3
+091c  ac        inc
+091d  f0 35     call INTELL.proc5
+091f  25        load local word-5
+0920  ab        eq0
+0921  e5 3c     jpfalse 08e7
+0923  8d d1     load immediate 209
+0925  f0 31     call INTELL.proc1
+0927  2d 19     load global word 25
+0929  38        store local word-8
+092a  28        load local word-8
+092b  cb        not_zero
+092c  de 02     andjp 0930
+092e  28        load local word-8
+092f  61        load stack word1
+0930  e3 0c     jpfalse 093e
+0932  28        load local word-8
+0933  39        store local word-9
+0934  28        load local word-8
+0935  65        load stack word5
+0936  38        store local word-8
+0937  80 f7     load local address -9
+0939  9c        load immediate 12
+093a  40 06     DEALLOCATE
+093c  e4 14     jp 092a
+093e  28        load local word-8
+093f  3d 19     store global word 25
+0941  88        leave0
+0942  1e        store indexed word
+0943  6d        load stack word13
+0944  3a        store local word-10
+0945  46        load global word6
+0946  00        Error16
+0947  00        Error16
+0948  d4 ff     enter -1
+094a  2d 19     load global word 25
+094c  cb        not_zero
+094d  f1        call proc1
+094e  2d 19     load global word 25
+0950  49        load global word9
+0951  70        store stack word0
+0952  88        leave0
+0953  90        load immediate 0
+0954  3d 1a     store global word 26
+0956  90        load immediate 0
+0957  3d 19     store global word 25
+0959  e0 81 0f  jp 18dc
+095c  a0        equal
+095d  50        end_program
+095e  0d        load indexed byte
+095f  3e 00     store stack word 0
+0961  00        Error16
+0962  d4 fb     enter -5
+0964  04        load param2
+0965  8d 3c     load immediate 60
+0967  e7        bitwise_in
+0968  e3 1e     jpfalse 0988
+096a  04        load param2
+096b  32        store local word-2
+096c  04        load param2
+096d  03        load param1
+096e  b1 01     shr 1
+0970  a6        add
+0971  33        store local word-3
+0972  23        load local word-3
+0973  96        load immediate 6
+0974  a3        ugreater_than
+0975  e3 02     jpfalse 0979
+0977  96        load immediate 6
+0978  33        store local word-3
+0979  49        load global word9
+097a  22        load local word-2
+097b  9f        load immediate 15
+097c  dc        limit_check
+097d  ea        power2
+097e  e6        bitwise_or
+097f  59        store global word9
+0980  22        load local word-2
+0981  ac        inc
+0982  32        store local word-2
+0983  22        load local word-2
+0984  23        load local word-3
+0985  a0        equal
+0986  e5 0f     jpfalse 0979
+0988  8a        leave4
+0989  8f 68 63 6c 00  load immediate dword 7103336
+098e  00        Error16
+098f  d4 ff     enter -1
+0991  03        load param1
+0992  2d 1b     load global word 27
+0994  70        store stack word0
+0995  03        load param1
+0996  3d 1b     store global word 27
+0998  89        leave2
+0999  bf        float_to_long
+099a  56        store global word6
+099b  8e d3 00  load immediate 211
+099e  00        Error16
+099f  d4 ff     enter -1
+09a1  2d 1b     load global word 27
+09a3  cb        not_zero
+09a4  f1        call proc1
+09a5  03        load param1
+09a6  2d 1b     load global word 27
+09a8  70        store stack word0
+09a9  2d 1b     load global word 27
+09ab  60        load stack word0
+09ac  3d 1b     store global word 27
+09ae  03        load param1
+09af  60        load stack word0
+09b0  90        load immediate 0
+09b1  70        store stack word0
+09b2  89        leave2
+09b3  8f 68 b7 56 00  load immediate dword 5683048
+09b8  00        Error16
+09b9  d4 f9     enter -7
+09bb  80 fc     load local address -4
+09bd  9c        load immediate 12
+09be  40 05     ALLOCATE
+09c0  24        load local word-4
+09c1  92        load immediate 2
+09c2  72        store stack word2
+09c3  24        load local word-4
+09c4  03        load param1
+09c5  73        store stack word3
+09c6  03        load param1
+09c7  f4        call proc4
+09c8  33        store local word-3
+09c9  92        load immediate 2
+09ca  32        store local word-2
+09cb  22        load local word-2
+09cc  23        load local word-3
+09cd  a3        ugreater_than
+09ce  e3 0f     jpfalse 09df
+09d0  24        load local word-4
+09d1  82 04     load stack address 4
+09d3  22        load local word-2
+09d4  91        load immediate 1
+09d5  91        load immediate 1
+09d6  da        urange_check
+09d7  ad        dec
+09d8  90        load immediate 0
+09d9  1e        store indexed word
+09da  22        load local word-2
+09db  ad        dec
+09dc  32        store local word-2
+09dd  e4 14     jp 09cb
+09df  22        load local word-2
+09e0  cb        not_zero
+09e1  e3 11     jpfalse 09f4
+09e3  24        load local word-4
+09e4  82 04     load stack address 4
+09e6  22        load local word-2
+09e7  91        load immediate 1
+09e8  91        load immediate 1
+09e9  da        urange_check
+09ea  ad        dec
+09eb  b0 01     shl 1
+09ed  a6        add
+09ee  fc        call proc12
+09ef  22        load local word-2
+09f0  ad        dec
+09f1  32        store local word-2
+09f2  e4 15     jp 09df
+09f4  24        load local word-4
+09f5  03        load param1
+09f6  f3        call proc3
+09f7  71        store stack word1
+09f8  24        load local word-4
+09f9  2d 1b     load global word 27
+09fb  70        store stack word0
+09fc  24        load local word-4
+09fd  3d 1b     store global word 27
+09ff  89        leave2
+0a00  8f 68 39 18 00  load immediate dword 1587560
+0a05  00        Error16
+0a06  d4 fd     enter -3
+0a08  80 fe     load local address -2
+0a0a  9c        load immediate 12
+0a0b  40 05     ALLOCATE
+0a0d  22        load local word-2
+0a0e  04        load param2
+0a0f  71        store stack word1
+0a10  22        load local word-2
+0a11  05        load param3
+0a12  72        store stack word2
+0a13  22        load local word-2
+0a14  03        load param1
+0a15  92        load immediate 2
+0a16  b8        imul
+0a17  73        store stack word3
+0a18  05        load param3
+0a19  22        load local word-2
+0a1a  63        load stack word3
+0a1b  04        load param2
+0a1c  f0 3c     call INTELL.proc12
+0a1e  22        load local word-2
+0a1f  2d 1b     load global word 27
+0a21  70        store stack word0
+0a22  22        load local word-2
+0a23  3d 1b     store global word 27
+0a25  8b        leave6
+0a26  8f 68 4b 4f 00  load immediate dword 5196648
+0a2b  00        Error16
+0a2c  d4 fd     enter -3
+0a2e  80 fe     load local address -2
+0a30  9c        load immediate 12
+0a31  40 05     ALLOCATE
+0a33  22        load local word-2
+0a34  92        load immediate 2
+0a35  71        store stack word1
+0a36  22        load local word-2
+0a37  90        load immediate 0
+0a38  72        store stack word2
+0a39  22        load local word-2
+0a3a  82 03     load stack address 3
+0a3c  90        load immediate 0
+0a3d  03        load param1
+0a3e  1e        store indexed word
+0a3f  22        load local word-2
+0a40  2d 1b     load global word 27
+0a42  70        store stack word0
+0a43  22        load local word-2
+0a44  3d 1b     store global word 27
+0a46  89        leave2
+0a47  8f 68 5b 82 00  load immediate dword 8543080
+0a4c  00        Error16
+0a4d  d4 ff     enter -1
+0a4f  93        load immediate 3
+0a50  92        load immediate 2
+0a51  04        load param2
+0a52  dd        check_positive
+0a53  b7        complement
+0a54  ac        inc
+0a55  af 09     sub 9
+0a57  ed 25     call proc37
+0a59  03        load param1
+0a5a  b0 01     shl 1
+0a5c  ed 26     call proc38
+0a5e  8d a6     load immediate 166
+0a60  ed 1c     call proc28
+0a62  8a        leave4
+0a63  8f 68 09 17 00  load immediate dword 1509736
+0a68  00        Error16
+0a69  d4 fb     enter -5
+0a6b  80 fd     load local address -3
+0a6d  9c        load immediate 12
+0a6e  40 05     ALLOCATE
+0a70  23        load local word-3
+0a71  92        load immediate 2
+0a72  72        store stack word2
+0a73  23        load local word-3
+0a74  8d 91     load immediate 145
+0a76  73        store stack word3
+0a77  23        load local word-3
+0a78  03        load param1
+0a79  71        store stack word1
+0a7a  23        load local word-3
+0a7b  82 04     load stack address 4
+0a7d  90        load immediate 0
+0a7e  b0 01     shl 1
+0a80  a6        add
+0a81  fc        call proc12
+0a82  92        load immediate 2
+0a83  32        store local word-2
+0a84  23        load local word-3
+0a85  82 04     load stack address 4
+0a87  22        load local word-2
+0a88  91        load immediate 1
+0a89  91        load immediate 1
+0a8a  da        urange_check
+0a8b  ad        dec
+0a8c  90        load immediate 0
+0a8d  1e        store indexed word
+0a8e  22        load local word-2
+0a8f  ac        inc
+0a90  32        store local word-2
+0a91  22        load local word-2
+0a92  92        load immediate 2
+0a93  a3        ugreater_than
+0a94  e5 12     jpfalse 0a84
+0a96  23        load local word-3
+0a97  2d 1b     load global word 27
+0a99  70        store stack word0
+0a9a  23        load local word-3
+0a9b  3d 1b     store global word 27
+0a9d  89        leave2
+0a9e  8f 68 5f 18 00  load immediate dword 1597288
+0aa3  00        Error16
+0aa4  d4 fd     enter -3
+0aa6  80 fe     load local address -2
+0aa8  9c        load immediate 12
+0aa9  40 05     ALLOCATE
+0aab  22        load local word-2
+0aac  92        load immediate 2
+0aad  72        store stack word2
+0aae  22        load local word-2
+0aaf  8d 92     load immediate 146
+0ab1  73        store stack word3
+0ab2  22        load local word-2
+0ab3  82 04     load stack address 4
+0ab5  91        load immediate 1
+0ab6  b0 01     shl 1
+0ab8  a6        add
+0ab9  fc        call proc12
+0aba  22        load local word-2
+0abb  82 04     load stack address 4
+0abd  90        load immediate 0
+0abe  b0 01     shl 1
+0ac0  a6        add
+0ac1  fc        call proc12
+0ac2  22        load local word-2
+0ac3  22        load local word-2
+0ac4  82 04     load stack address 4
+0ac6  90        load immediate 0
+0ac7  0e        load indexed word
+0ac8  61        load stack word1
+0ac9  22        load local word-2
+0aca  82 04     load stack address 4
+0acc  91        load immediate 1
+0acd  0e        load indexed word
+0ace  61        load stack word1
+0acf  a6        add
+0ad0  8d ff     load immediate 255
+0ad2  dc        limit_check
+0ad3  71        store stack word1
+0ad4  22        load local word-2
+0ad5  fb        call proc11
+0ad6  88        leave0
+0ad7  1f        store indexed dword
+0ad8  02 5f     load proc_addr proc95
+0ada  6c        load stack word12
+0adb  00        Error16
+0adc  00        Error16
+0add  d4 ff     enter -1
+0adf  03        load param1
+0ae0  cb        not_zero
+0ae1  e3 09     jpfalse 0aec
+0ae3  03        load param1
+0ae4  60        load stack word0
+0ae5  10        load outer frame
+0ae6  ee 2b     call_with_frame proc43
+0ae8  03        load param1
+0ae9  ef 03 17  call INTELL.proc23
+0aec  84 01     leave 1
+0aee  1f        store indexed dword
+0aef  02 0f     load proc_addr proc15
+0af1  3e 00     store stack word 0
+0af3  00        Error16
+0af4  d4 ff     enter -1
+0af6  2d 1b     load global word 27
+0af8  ec 2b     nested_call proc43
+0afa  88        leave0
+0afb  e4 02     jp 0afb
+0afd  0e        load indexed word
+0afe  18 00     store local dword +0
+0b00  00        Error16
+0b01  d4 ff     enter -1
+0b03  2d 1b     load global word 27
+0b05  ab        eq0
+0b06  85 80     fct_leave 128
+0b08  99        load immediate 9
+0b09  90        load immediate 0
+0b0a  90        load immediate 0
+0b0b  01        Raise
+0b0c  90        load immediate 0
+0b0d  3d 1b     store global word 27
+0b0f  e0 ce 0d  jp 18df
+0b12  f2        call proc2
+0b13  49        load global word9
+0b14  0e        load indexed word
+0b15  3e 00     store stack word 0
+0b17  00        Error16
+0b18  d4 f3     enter -13
+0b1a  03        load param1
+0b1b  37        store local word-7
+0b1c  27        load local word-7
+0b1d  63        load stack word3
+0b1e  b1 0c     shr 12
+0b20  33        store local word-3
+0b21  27        load local word-7
+0b22  63        load stack word3
+0b23  8e ff 0f  load immediate 4095
+0b26  e8        bitwise_and
+0b27  b1 08     shr 8
+0b29  35        store local word-5
+0b2a  27        load local word-7
+0b2b  63        load stack word3
+0b2c  8d ff     load immediate 255
+0b2e  e8        bitwise_and
+0b2f  34        store local word-4
+0b30  48        load global word8
+0b31  24        load local word-4
+0b32  8d ff     load immediate 255
+0b34  dc        limit_check
+0b35  0e        load indexed word
+0b36  36        store local word-6
+0b37  23        load local word-3
+0b38  8d 11     load immediate 17
+0b3a  e7        bitwise_in
+0b3b  e3 0f     jpfalse 0b4c
+0b3d  2f 02 1a  load COMPILER.word26
+0b40  e3 06     jpfalse 0b48
+0b42  8e 01 ff  load immediate -255
+0b45  36        store local word-6
+0b46  e2 04     jp 0b4c
+0b48  8e 3d ff  load immediate -195
+0b4b  36        store local word-6
+0b4c  23        load local word-3
+0b4d  91        load immediate 1
+0b4e  a0        equal
+0b4f  de 03     andjp 0b54
+0b51  91        load immediate 1
+0b52  26        load local word-6
+0b53  e7        bitwise_in
+0b54  e3 04     jpfalse 0b5a
+0b56  f0 3d     call INTELL.proc13
+0b58  e2 1b     jp 0b75
+0b5a  42        load global word2
+0b5b  ab        eq0
+0b5c  e3 17     jpfalse 0b75
+0b5e  92        load immediate 2
+0b5f  32        store local word-2
+0b60  22        load local word-2
+0b61  26        load local word-6
+0b62  e7        bitwise_in
+0b63  e3 08     jpfalse 0b6d
+0b65  95        load immediate 5
+0b66  22        load local word-2
+0b67  b0 01     shl 1
+0b69  dd        check_positive
+0b6a  92        load immediate 2
+0b6b  f0 3c     call INTELL.proc12
+0b6d  22        load local word-2
+0b6e  ac        inc
+0b6f  32        store local word-2
+0b70  22        load local word-2
+0b71  95        load immediate 5
+0b72  a3        ugreater_than
+0b73  e5 15     jpfalse 0b60
+0b75  f0 39     call INTELL.proc9
+0b77  26        load local word-6
+0b78  b1 08     shr 8
+0b7a  8d ff     load immediate 255
+0b7c  dc        limit_check
+0b7d  f0 3e     call INTELL.proc14
+0b7f  27        load local word-7
+0b80  64        load stack word4
+0b81  cb        not_zero
+0b82  e3 0b     jpfalse 0b8f
+0b84  27        load local word-7
+0b85  64        load stack word4
+0b86  ef 03 17  call INTELL.proc23
+0b89  27        load local word-7
+0b8a  82 04     load stack address 4
+0b8c  9c        load immediate 12
+0b8d  40 06     DEALLOCATE
+0b8f  23        load local word-3
+0b90  ab        eq0
+0b91  e3 0b     jpfalse 0b9e
+0b93  27        load local word-7
+0b94  65        load stack word5
+0b95  ef 03 17  call INTELL.proc23
+0b98  27        load local word-7
+0b99  82 05     load stack address 5
+0b9b  9c        load immediate 12
+0b9c  40 06     DEALLOCATE
+0b9e  90        load immediate 0
+0b9f  f0 3b     call INTELL.proc11
+0ba1  23        load local word-3
+0ba2  e2 66     jp 0c0a
+0ba4  f0 3a     call INTELL.proc10
+0ba6  90        load immediate 0
+0ba7  1c 34     store INTELL.word4
+0ba9  ce        jump_stack
+0baa  f0 39     call INTELL.proc9
+0bac  8d dd     load immediate 221
+0bae  8d e5     load immediate 229
+0bb0  8d c1     load immediate 193
+0bb2  f0 33     call INTELL.proc3
+0bb4  ce        jump_stack
+0bb5  f0 39     call INTELL.proc9
+0bb7  91        load immediate 1
+0bb8  90        load immediate 0
+0bb9  f0 36     call INTELL.proc6
+0bbb  ce        jump_stack
+0bbc  27        load local word-7
+0bbd  65        load stack word5
+0bbe  62        load stack word2
+0bbf  94        load immediate 4
+0bc0  a0        equal
+0bc1  e3 12     jpfalse 0bd5
+0bc3  f0 39     call INTELL.proc9
+0bc5  8d dd     load immediate 221
+0bc7  8d 4e     load immediate 78
+0bc9  90        load immediate 0
+0bca  f0 33     call INTELL.proc3
+0bcc  8d dd     load immediate 221
+0bce  8d 46     load immediate 70
+0bd0  91        load immediate 1
+0bd1  f0 33     call INTELL.proc3
+0bd3  e2 10     jp 0be5
+0bd5  27        load local word-7
+0bd6  65        load stack word5
+0bd7  ef 03 17  call INTELL.proc23
+0bda  f0 3a     call INTELL.proc10
+0bdc  90        load immediate 0
+0bdd  1c 34     store INTELL.word4
+0bdf  8d 4d     load immediate 77
+0be1  8d 44     load immediate 68
+0be3  f0 32     call INTELL.proc2
+0be5  27        load local word-7
+0be6  82 05     load stack address 5
+0be8  9c        load immediate 12
+0be9  40 06     DEALLOCATE
+0beb  ce        jump_stack
+0bec  f0 39     call INTELL.proc9
+0bee  8d 2a     load immediate 42
+0bf0  0c 32     load INTELL.word2
+0bf2  ac        inc
+0bf3  25        load local word-5
+0bf4  dd        check_positive
+0bf5  92        load immediate 2
+0bf6  b8        imul
+0bf7  b7        complement
+0bf8  ac        inc
+0bf9  af 12     sub 18
+0bfb  f2        call proc2
+0bfc  f0 36     call INTELL.proc6
+0bfe  8d 1e     load immediate 30
+0c00  24        load local word-4
+0c01  dd        check_positive
+0c02  b7        complement
+0c03  ac        inc
+0c04  8d ff     load immediate 255
+0c06  e8        bitwise_and
+0c07  f0 32     call INTELL.proc2
+0c09  ce        jump_stack
+0c0a  cd 00 80 04 00 0f 00  callswitch (return to 0c1f)
+	case 90 => 0ba4
+	case 91 => 0baa
+	case 92 => 0bb5
+	case 93 => 0bbc
+	case 94 => 0bec
+0c1b  9d        load immediate 13
+0c1c  90        load immediate 0
+0c1d  90        load immediate 0
+0c1e  01        Raise
+0c1f  23        load local word-3
+0c20  9e        load immediate 14
+0c21  e7        bitwise_in
+0c22  e3 25     jpfalse 0c49
+0c24  8d cd     load immediate 205
+0c26  45        load global word5
+0c27  24        load local word-4
+0c28  8d ff     load immediate 255
+0c2a  dc        limit_check
+0c2b  0e        load indexed word
+0c2c  f0 36     call INTELL.proc6
+0c2e  f8        call proc8
+0c2f  24        load local word-4
+0c30  9f        load immediate 15
+0c31  e8        bitwise_and
+0c32  4a        load global word10
+0c33  24        load local word-4
+0c34  b1 04     shr 4
+0c36  9f        load immediate 15
+0c37  dc        limit_check
+0c38  0e        load indexed word
+0c39  e7        bitwise_in
+0c3a  b6        not
+0c3b  e3 0a     jpfalse 0c47
+0c3d  45        load global word5
+0c3e  24        load local word-4
+0c3f  8d ff     load immediate 255
+0c41  dc        limit_check
+0c42  0c 32     load INTELL.word2
+0c44  af 02     sub 2
+0c46  1e        store indexed word
+0c47  e2 04     jp 0c4d
+0c49  23        load local word-3
+0c4a  ae eb     add 235
+0c4c  f5        call proc5
+0c4d  26        load local word-6
+0c4e  b1 08     shr 8
+0c50  8d ff     load immediate 255
+0c52  dc        limit_check
+0c53  ef 03 13  call INTELL.proc19
+0c56  27        load local word-7
+0c57  61        load stack word1
+0c58  8e 15 01  load immediate 277
+0c5b  e7        bitwise_in
+0c5c  f1        call proc1
+0c5d  27        load local word-7
+0c5e  61        load stack word1
+0c5f  cb        not_zero
+0c60  e3 05     jpfalse 0c67
+0c62  27        load local word-7
+0c63  91        load immediate 1
+0c64  72        store stack word2
+0c65  e2 07     jp 0c6e
+0c67  fd        call proc13
+0c68  f1        call proc1
+0c69  80 03     load local address +3
+0c6b  9c        load immediate 12
+0c6c  40 06     DEALLOCATE
+0c6e  23        load local word-3
+0c6f  8d 11     load immediate 17
+0c71  e7        bitwise_in
+0c72  df 03     orjp 0c77
+0c74  24        load local word-4
+0c75  42        load global word2
+0c76  a1        not_equal
+0c77  e3 04     jpfalse 0c7d
+0c79  49        load global word9
+0c7a  26        load local word-6
+0c7b  e6        bitwise_or
+0c7c  59        store global word9
+0c7d  89        leave2
+0c7e  74        store stack word4
+0c7f  38        store local word-8
+0c80  50        end_program
+0c81  00        Error16
+0c82  00        Error16
+0c83  00        Error16
+0c84  d4 ef     enter -17
+0c86  ed 15     call proc21
+0c88  35        store local word-5
+0c89  ed 15     call proc21
+0c8b  36        store local word-6
+0c8c  05        load param3
+0c8d  af eb     sub 235
+0c8f  37        store local word-7
+0c90  27        load local word-7
+0c91  99        load immediate 9
+0c92  e7        bitwise_in
+0c93  e3 05     jpfalse 0c9a
+0c95  80 fc     load local address -4
+0c97  fc        call proc12
+0c98  e2 02     jp 0c9c
+0c9a  90        load immediate 0
+0c9b  34        store local word-4
+0c9c  27        load local word-7
+0c9d  8d 11     load immediate 17
+0c9f  e7        bitwise_in
+0ca0  e3 04     jpfalse 0ca6
+0ca2  91        load immediate 1
+0ca3  54        store global word4
+0ca4  e2 09     jp 0caf
+0ca6  90        load immediate 0
+0ca7  48        load global word8
+0ca8  03        load param1
+0ca9  8d ff     load immediate 255
+0cab  dc        limit_check
+0cac  0e        load indexed word
+0cad  e7        bitwise_in
+0cae  54        store global word4
+0caf  25        load local word-5
+0cb0  38        store local word-8
+0cb1  28        load local word-8
+0cb2  91        load immediate 1
+0cb3  a3        ugreater_than
+0cb4  e3 07     jpfalse 0cbd
+0cb6  ed 29     call proc41
+0cb8  28        load local word-8
+0cb9  ad        dec
+0cba  38        store local word-8
+0cbb  e4 0c     jp 0cb1
+0cbd  25        load local word-5
+0cbe  ab        eq0
+0cbf  e3 04     jpfalse 0cc5
+0cc1  90        load immediate 0
+0cc2  33        store local word-3
+0cc3  e2 03     jp 0cc8
+0cc5  80 fd     load local address -3
+0cc7  fc        call proc12
+0cc8  80 fe     load local address -2
+0cca  9c        load immediate 12
+0ccb  40 05     ALLOCATE
+0ccd  22        load local word-2
+0cce  39        store local word-9
+0ccf  29        load local word-9
+0cd0  26        load local word-6
+0cd1  8d ff     load immediate 255
+0cd3  dc        limit_check
+0cd4  71        store stack word1
+0cd5  29        load local word-9
+0cd6  97        load immediate 7
+0cd7  72        store stack word2
+0cd8  29        load local word-9
+0cd9  27        load local word-7
+0cda  b0 0c     shl 12
+0cdc  04        load param2
+0cdd  b0 08     shl 8
+0cdf  a6        add
+0ce0  03        load param1
+0ce1  a6        add
+0ce2  73        store stack word3
+0ce3  29        load local word-9
+0ce4  23        load local word-3
+0ce5  74        store stack word4
+0ce6  29        load local word-9
+0ce7  24        load local word-4
+0ce8  75        store stack word5
+0ce9  26        load local word-6
+0cea  ab        eq0
+0ceb  e3 0e     jpfalse 0cfb
+0ced  ed 17     call proc23
+0cef  8d 84     load immediate 132
+0cf1  a0        equal
+0cf2  e3 03     jpfalse 0cf7
+0cf4  ef 03 14  call INTELL.proc20
+0cf7  22        load local word-2
+0cf8  fe        call proc14
+0cf9  e2 02     jp 0cfd
+0cfb  22        load local word-2
+0cfc  fb        call proc11
+0cfd  8b        leave6
+0cfe  f2        call proc2
+0cff  49        load global word9
+0d00  d5        real_compare
+0d01  6b        load stack word11
+0d02  00        Error16
+0d03  00        Error16
+0d04  d4 fb     enter -5
+0d06  03        load param1
+0d07  cb        not_zero
+0d08  03        load param1
+0d09  9f        load immediate 15
+0d0a  dc        limit_check
+0d0b  ea        power2
+0d0c  a8        umul
+0d0d  32        store local word-2
+0d0e  22        load local word-2
+0d0f  8e 15 01  load immediate 277
+0d12  e7        bitwise_in
+0d13  f1        call proc1
+0d14  22        load local word-2
+0d15  cb        not_zero
+0d16  e3 1b     jpfalse 0d33
+0d18  80 fd     load local address -3
+0d1a  fc        call proc12
+0d1b  ef 03 14  call INTELL.proc20
+0d1e  23        load local word-3
+0d1f  62        load stack word2
+0d20  97        load immediate 7
+0d21  a0        equal
+0d22  e3 04     jpfalse 0d28
+0d24  23        load local word-3
+0d25  fe        call proc14
+0d26  e2 04     jp 0d2c
+0d28  23        load local word-3
+0d29  ef 03 17  call INTELL.proc23
+0d2c  80 fd     load local address -3
+0d2e  9c        load immediate 12
+0d2f  40 06     DEALLOCATE
+0d31  f0 39     call INTELL.proc9
+0d33  90        load immediate 0
+0d34  f0 3b     call INTELL.proc11
+0d36  fd        call proc13
+0d37  de 03     andjp 0d3c
+0d39  0c 34     load INTELL.word4
+0d3b  b6        not
+0d3c  f1        call proc1
+0d3d  43        load global word3
+0d3e  e3 02     jpfalse 0d42
+0d40  e2 d3     jp 0e15
+0d42  2d 1c     load global word 28
+0d44  cb        not_zero
+0d45  e3 09     jpfalse 0d50
+0d47  8d c3     load immediate 195
+0d49  2d 1c     load global word 28
+0d4b  f0 36     call INTELL.proc6
+0d4d  f8        call proc8
+0d4e  e2 c5     jp 0e15
+0d50  0c 32     load INTELL.word2
+0d52  3d 1c     store global word 28
+0d54  22        load local word-2
+0d55  92        load immediate 2
+0d56  a5        ugreater_or_equal
+0d57  e3 06     jpfalse 0d5f
+0d59  8d fd     load immediate 253
+0d5b  8d e1     load immediate 225
+0d5d  f0 32     call INTELL.proc2
+0d5f  22        load local word-2
+0d60  94        load immediate 4
+0d61  a5        ugreater_or_equal
+0d62  e3 08     jpfalse 0d6c
+0d64  8d d9     load immediate 217
+0d66  8d e1     load immediate 225
+0d68  8d d9     load immediate 217
+0d6a  f0 33     call INTELL.proc3
+0d6c  22        load local word-2
+0d6d  98        load immediate 8
+0d6e  a0        equal
+0d6f  e3 07     jpfalse 0d78
+0d71  8d f1     load immediate 241
+0d73  98        load immediate 8
+0d74  8d f1     load immediate 241
+0d76  f0 33     call INTELL.proc3
+0d78  8d dd     load immediate 221
+0d7a  8d f9     load immediate 249
+0d7c  f0 32     call INTELL.proc2
+0d7e  8d c1     load immediate 193
+0d80  8d dd     load immediate 221
+0d82  8d e1     load immediate 225
+0d84  f0 33     call INTELL.proc3
+0d86  05        load param3
+0d87  b6        not
+0d88  de 02     andjp 0d8c
+0d8a  04        load param2
+0d8b  ab        eq0
+0d8c  de 02     andjp 0d90
+0d8e  22        load local word-2
+0d8f  ab        eq0
+0d90  e3 06     jpfalse 0d98
+0d92  8d c9     load immediate 201
+0d94  f0 31     call INTELL.proc1
+0d96  e2 7d     jp 0e15
+0d98  8d e1     load immediate 225
+0d9a  f0 31     call INTELL.proc1
+0d9c  04        load param2
+0d9d  94        load immediate 4
+0d9e  a4        uless_or_equal
+0d9f  e3 0f     jpfalse 0db0
+0da1  04        load param2
+0da2  cb        not_zero
+0da3  e3 09     jpfalse 0dae
+0da5  8d d1     load immediate 209
+0da7  f0 31     call INTELL.proc1
+0da9  04        load param2
+0daa  ad        dec
+0dab  14        store param2
+0dac  e4 0d     jp 0da1
+0dae  e2 2d     jp 0ddd
+0db0  8d eb     load immediate 235
+0db2  f0 31     call INTELL.proc1
+0db4  22        load local word-2
+0db5  98        load immediate 8
+0db6  a0        equal
+0db7  e3 04     jpfalse 0dbd
+0db9  8d f5     load immediate 245
+0dbb  f0 31     call INTELL.proc1
+0dbd  8d 21     load immediate 33
+0dbf  04        load param2
+0dc0  22        load local word-2
+0dc1  98        load immediate 8
+0dc2  a0        equal
+0dc3  a6        add
+0dc4  b0 01     shl 1
+0dc6  f0 36     call INTELL.proc6
+0dc8  8d 39     load immediate 57
+0dca  f0 31     call INTELL.proc1
+0dcc  22        load local word-2
+0dcd  98        load immediate 8
+0dce  a0        equal
+0dcf  e3 04     jpfalse 0dd5
+0dd1  8d f1     load immediate 241
+0dd3  f0 31     call INTELL.proc1
+0dd5  8d f9     load immediate 249
+0dd7  f0 31     call INTELL.proc1
+0dd9  8d eb     load immediate 235
+0ddb  f0 31     call INTELL.proc1
+0ddd  22        load local word-2
+0dde  98        load immediate 8
+0ddf  a0        equal
+0de0  e3 07     jpfalse 0de9
+0de2  8d f5     load immediate 245
+0de4  98        load immediate 8
+0de5  8d f5     load immediate 245
+0de7  f0 33     call INTELL.proc3
+0de9  22        load local word-2
+0dea  94        load immediate 4
+0deb  a5        ugreater_or_equal
+0dec  e3 08     jpfalse 0df6
+0dee  8d d9     load immediate 217
+0df0  8d e5     load immediate 229
+0df2  8d d9     load immediate 217
+0df4  f0 33     call INTELL.proc3
+0df6  22        load local word-2
+0df7  92        load immediate 2
+0df8  a5        ugreater_or_equal
+0df9  e3 06     jpfalse 0e01
+0dfb  8d fd     load immediate 253
+0dfd  8d e5     load immediate 229
+0dff  f0 32     call INTELL.proc2
+0e01  05        load param3
+0e02  e3 0d     jpfalse 0e11
+0e04  8d 79     load immediate 121
+0e06  8d b0     load immediate 176
+0e08  f0 32     call INTELL.proc2
+0e0a  8d c2     load immediate 194
+0e0c  8e 7b 04  load immediate 1147
+0e0f  f0 36     call INTELL.proc6
+0e11  8d e9     load immediate 233
+0e13  f0 31     call INTELL.proc1
+0e15  91        load immediate 1
+0e16  53        store global word3
+0e17  91        load immediate 1
+0e18  ed 20     call proc32
+0e1a  8b        leave6
+0e1b  1f        store indexed dword
+0e1c  02 db     load proc_addr proc219
+0e1e  6d        load stack word13
+0e1f  00        Error16
+0e20  00        Error16
+0e21  d4 ef     enter -17
+0e23  03        load param1
+0e24  93        load immediate 3
+0e25  e8        bitwise_and
+0e26  33        store local word-3
+0e27  03        load param1
+0e28  b1 02     shr 2
+0e2a  34        store local word-4
+0e2b  24        load local word-4
+0e2c  8e 40 82  load immediate -32192
+0e2f  e7        bitwise_in
+0e30  38        store local word-8
+0e31  24        load local word-4
+0e32  8e 00 88  load immediate -30720
+0e35  e7        bitwise_in
+0e36  b0 01     shl 1
+0e38  24        load local word-4
+0e39  8d 44     load immediate 68
+0e3b  e7        bitwise_in
+0e3c  b0 02     shl 2
+0e3e  a6        add
+0e3f  24        load local word-4
+0e40  8e 00 03  load immediate 768
+0e43  e7        bitwise_in
+0e44  b0 03     shl 3
+0e46  a6        add
+0e47  8d ff     load immediate 255
+0e49  dc        limit_check
+0e4a  32        store local word-2
+0e4b  28        load local word-8
+0e4c  e3 03     jpfalse 0e51
+0e4e  80 f7     load local address -9
+0e50  fc        call proc12
+0e51  23        load local word-3
+0e52  92        load immediate 2
+0e53  a0        equal
+0e54  e3 0c     jpfalse 0e62
+0e56  ed 15     call proc21
+0e58  b0 01     shl 1
+0e5a  ed 26     call proc38
+0e5c  8d a6     load immediate 166
+0e5e  ed 1c     call proc28
+0e60  e2 0b     jp 0e6d
+0e62  23        load local word-3
+0e63  93        load immediate 3
+0e64  a0        equal
+0e65  e3 06     jpfalse 0e6d
+0e67  ed 15     call proc21
+0e69  ed 15     call proc21
+0e6b  ed 27     call proc39
+0e6d  28        load local word-8
+0e6e  e3 02     jpfalse 0e72
+0e70  29        load local word-9
+0e71  fb        call proc11
+0e72  23        load local word-3
+0e73  91        load immediate 1
+0e74  a4        uless_or_equal
+0e75  e3 42     jpfalse 0eb9
+0e77  ed 15     call proc21
+0e79  35        store local word-5
+0e7a  23        load local word-3
+0e7b  ab        eq0
+0e7c  de 04     andjp 0e82
+0e7e  25        load local word-5
+0e7f  8d 80     load immediate 128
+0e81  a5        ugreater_or_equal
+0e82  e3 06     jpfalse 0e8a
+0e84  25        load local word-5
+0e85  af 80     sub 128
+0e87  36        store local word-6
+0e88  e2 02     jp 0e8c
+0e8a  25        load local word-5
+0e8b  36        store local word-6
+0e8c  94        load immediate 4
+0e8d  03        load param1
+0e8e  91        load immediate 1
+0e8f  e8        bitwise_and
+0e90  a7        sub
+0e91  99        load immediate 9
+0e92  dc        limit_check
+0e93  37        store local word-7
+0e94  28        load local word-8
+0e95  e3 09     jpfalse 0ea0
+0e97  27        load local word-7
+0e98  22        load local word-2
+0e99  25        load local word-5
+0e9a  dd        check_positive
+0e9b  ef 03 19  call INTELL.proc25
+0e9e  e2 06     jp 0ea6
+0ea0  27        load local word-7
+0ea1  22        load local word-2
+0ea2  26        load local word-6
+0ea3  dd        check_positive
+0ea4  ed 25     call proc37
+0ea6  23        load local word-3
+0ea7  91        load immediate 1
+0ea8  a0        equal
+0ea9  e3 0c     jpfalse 0eb7
+0eab  25        load local word-5
+0eac  22        load local word-2
+0ead  ed 24     call proc36
+0eaf  28        load local word-8
+0eb0  e3 05     jpfalse 0eb7
+0eb2  49        load global word9
+0eb3  90        load immediate 0
+0eb4  ea        power2
+0eb5  e6        bitwise_or
+0eb6  59        store global word9
+0eb7  e2 2d     jp 0ee6
+0eb9  28        load local word-8
+0eba  e3 0b     jpfalse 0ec7
+0ebc  22        load local word-2
+0ebd  ef 03 1a  call INTELL.proc26
+0ec0  49        load global word9
+0ec1  90        load immediate 0
+0ec2  ea        power2
+0ec3  e6        bitwise_or
+0ec4  59        store global word9
+0ec5  e2 1f     jp 0ee6
+0ec7  24        load local word-4
+0ec8  8d 20     load immediate 32
+0eca  a1        not_equal
+0ecb  e3 19     jpfalse 0ee6
+0ecd  22        load local word-2
+0ece  92        load immediate 2
+0ecf  a0        equal
+0ed0  e3 05     jpfalse 0ed7
+0ed2  22        load local word-2
+0ed3  ed 28     call proc40
+0ed5  e2 0f     jp 0ee6
+0ed7  22        load local word-2
+0ed8  94        load immediate 4
+0ed9  a0        equal
+0eda  e3 06     jpfalse 0ee2
+0edc  8d 41     load immediate 65
+0ede  ed 1c     call proc28
+0ee0  e2 04     jp 0ee6
+0ee2  8d 22     load immediate 34
+0ee4  ed 1c     call proc28
+0ee6  84 01     leave 1
+0ee8  bb        long_to_int
+0ee9  66        load stack word6
+0eea  41        load stack dword0
+0eeb  d6        real_add
+0eec  00        Error16
+0eed  00        Error16
+0eee  d4 fd     enter -3
+0ef0  03        load param1
+0ef1  cb        not_zero
+0ef2  e3 0d     jpfalse 0f01
+0ef4  80 fe     load local address -2
+0ef6  fc        call proc12
+0ef7  80 fe     load local address -2
+0ef9  9c        load immediate 12
+0efa  40 06     DEALLOCATE
+0efc  03        load param1
+0efd  ad        dec
+0efe  13        store param1
+0eff  e4 11     jp 0ef0
+0f01  fd        call proc13
+0f02  f1        call proc1
+0f03  84 01     leave 1
+0f05  99        load immediate 9
+0f06  02 c5     load proc_addr proc197
+0f08  40 00     drop
+0f0a  00        Error16
+0f0b  d4 ed     enter -19
+0f0d  90        load immediate 0
+0f0e  32        store local word-2
+0f0f  90        load immediate 0
+0f10  33        store local word-3
+0f11  90        load immediate 0
+0f12  36        store local word-6
+0f13  90        load immediate 0
+0f14  37        store local word-7
+0f15  90        load immediate 0
+0f16  39        store local word-9
+0f17  47        load global word7
+0f18  cb        not_zero
+0f19  e1 76 07  jpfalse 1691
+0f1c  ed 14     call proc20
+0f1e  2d 11     load global word 17
+0f20  f3        call proc3
+0f21  35        store local word-5
+0f22  2d 11     load global word 17
+0f24  8d ff     load immediate 255
+0f26  dc        limit_check
+0f27  34        store local word-4
+0f28  90        load immediate 0
+0f29  38        store local word-8
+0f2a  2d 11     load global word 17
+0f2c  e0 43 05  jp 1471
+0f2f  ed 15     call proc21
+0f31  34        store local word-4
+0f32  24        load local word-4
+0f33  9a        load immediate 10
+0f34  a5        ugreater_or_equal
+0f35  de 03     andjp 0f3a
+0f37  24        load local word-4
+0f38  9f        load immediate 15
+0f39  a4        uless_or_equal
+0f3a  e3 1c     jpfalse 0f58
+0f3c  fd        call proc13
+0f3d  f1        call proc1
+0f3e  24        load local word-4
+0f3f  9b        load immediate 11
+0f40  a0        equal
+0f41  e3 05     jpfalse 0f48
+0f43  90        load immediate 0
+0f44  f0 3b     call INTELL.proc11
+0f46  e2 0c     jp 0f54
+0f48  24        load local word-4
+0f49  8e 00 c0  load immediate -16384
+0f4c  e7        bitwise_in
+0f4d  e3 05     jpfalse 0f54
+0f4f  90        load immediate 0
+0f50  1c 33     store INTELL.word3
+0f52  90        load immediate 0
+0f53  53        store global word3
+0f54  ed 1d     call proc29
+0f56  e2 53     jp 0fab
+0f58  24        load local word-4
+0f59  8d 14     load immediate 20
+0f5b  a0        equal
+0f5c  e3 02     jpfalse 0f60
+0f5e  e2 4b     jp 0fab
+0f60  24        load local word-4
+0f61  8d 15     load immediate 21
+0f63  a0        equal
+0f64  e3 1a     jpfalse 0f80
+0f66  ed 2a     call proc42
+0f68  90        load immediate 0
+0f69  f0 3b     call INTELL.proc11
+0f6b  f0 3a     call INTELL.proc10
+0f6d  90        load immediate 0
+0f6e  1c 34     store INTELL.word4
+0f70  90        load immediate 0
+0f71  37        store local word-7
+0f72  80 f9     load local address -7
+0f74  91        load immediate 1
+0f75  ef 03 12  call INTELL.proc18
+0f78  90        load immediate 0
+0f79  f0 3b     call INTELL.proc11
+0f7b  91        load immediate 1
+0f7c  ec 30     nested_call proc48
+0f7e  e2 2b     jp 0fab
+0f80  24        load local word-4
+0f81  8d 16     load immediate 22
+0f83  a0        equal
+0f84  e3 04     jpfalse 0f8a
+0f86  ed 29     call proc41
+0f88  e2 21     jp 0fab
+0f8a  24        load local word-4
+0f8b  8d 17     load immediate 23
+0f8d  a0        equal
+0f8e  e3 0f     jpfalse 0f9f
+0f90  80 fe     load local address -2
+0f92  9c        load immediate 12
+0f93  40 05     ALLOCATE
+0f95  22        load local word-2
+0f96  92        load immediate 2
+0f97  71        store stack word1
+0f98  22        load local word-2
+0f99  91        load immediate 1
+0f9a  72        store stack word2
+0f9b  22        load local word-2
+0f9c  fb        call proc11
+0f9d  e2 0c     jp 0fab
+0f9f  24        load local word-4
+0fa0  8d 18     load immediate 24
+0fa2  a0        equal
+0fa3  e3 04     jpfalse 0fa9
+0fa5  90        load immediate 0
+0fa6  5b        store global word11
+0fa7  e2 02     jp 0fab
+0fa9  90        load immediate 0
+0faa  f1        call proc1
+0fab  ce        jump_stack
+0fac  ed 2a     call proc42
+0fae  f0 39     call INTELL.proc9
+0fb0  24        load local word-4
+0fb1  f5        call proc5
+0fb2  49        load global word9
+0fb3  90        load immediate 0
+0fb4  ea        power2
+0fb5  e6        bitwise_or
+0fb6  59        store global word9
+0fb7  24        load local word-4
+0fb8  f4        call proc4
+0fb9  ec 30     nested_call proc48
+0fbb  ce        jump_stack
+0fbc  80 fe     load local address -2
+0fbe  9c        load immediate 12
+0fbf  40 05     ALLOCATE
+0fc1  22        load local word-2
+0fc2  92        load immediate 2
+0fc3  71        store stack word1
+0fc4  22        load local word-2
+0fc5  99        load immediate 9
+0fc6  72        store stack word2
+0fc7  22        load local word-2
+0fc8  ed 15     call proc21
+0fca  73        store stack word3
+0fcb  22        load local word-2
+0fcc  fb        call proc11
+0fcd  ce        jump_stack
+0fce  94        load immediate 4
+0fcf  92        load immediate 2
+0fd0  2d 11     load global word 17
+0fd2  dd        check_positive
+0fd3  ed 25     call proc37
+0fd5  ce        jump_stack
+0fd6  24        load local word-4
+0fd7  ec 2f     nested_call proc47
+0fd9  ce        jump_stack
+0fda  ed 14     call proc20
+0fdc  2d 11     load global word 17
+0fde  b1 04     shr 4
+0fe0  8d ff     load immediate 255
+0fe2  dc        limit_check
+0fe3  2d 11     load global word 17
+0fe5  9f        load immediate 15
+0fe6  e8        bitwise_and
+0fe7  8d ff     load immediate 255
+0fe9  dc        limit_check
+0fea  ed 27     call proc39
+0fec  92        load immediate 2
+0fed  ed 28     call proc40
+0fef  ce        jump_stack
+0ff0  8d a6     load immediate 166
+0ff2  ed 1c     call proc28
+0ff4  91        load immediate 1
+0ff5  ed 28     call proc40
+0ff7  ce        jump_stack
+0ff8  8d 93     load immediate 147
+0ffa  ed 1c     call proc28
+0ffc  92        load immediate 2
+0ffd  ed 28     call proc40
+0fff  ce        jump_stack
+1000  2d 11     load global word 17
+1002  8d ff     load immediate 255
+1004  dc        limit_check
+1005  ed 1c     call proc28
+1007  ce        jump_stack
+1008  94        load immediate 4
+1009  92        load immediate 2
+100a  90        load immediate 0
+100b  ed 25     call proc37
+100d  24        load local word-4
+100e  8d 11     load immediate 17
+1010  a0        equal
+1011  e3 12     jpfalse 1025
+1013  92        load immediate 2
+1014  37        store local word-7
+1015  ed 15     call proc21
+1017  3a        store local word-10
+1018  27        load local word-7
+1019  2a        load local word-10
+101a  a4        uless_or_equal
+101b  e3 08     jpfalse 1025
+101d  92        load immediate 2
+101e  ed 28     call proc40
+1020  27        load local word-7
+1021  ac        inc
+1022  37        store local word-7
+1023  e4 0d     jp 1018
+1025  ed 17     call proc23
+1027  34        store local word-4
+1028  24        load local word-4
+1029  8d ee     load immediate 238
+102b  a0        equal
+102c  e3 02     jpfalse 1030
+102e  e2 3f     jp 106f
+1030  24        load local word-4
+1031  8d af     load immediate 175
+1033  a0        equal
+1034  e3 34     jpfalse 106a
+1036  ed 14     call proc20
+1038  ed 15     call proc21
+103a  ed 26     call proc38
+103c  8d a7     load immediate 167
+103e  ed 1c     call proc28
+1040  ed 17     call proc23
+1042  34        store local word-4
+1043  24        load local word-4
+1044  8d 2e     load immediate 46
+1046  a0        equal
+1047  e3 04     jpfalse 104d
+1049  92        load immediate 2
+104a  35        store local word-5
+104b  e2 0c     jp 1059
+104d  24        load local word-4
+104e  8d 41     load immediate 65
+1050  a0        equal
+1051  e3 04     jpfalse 1057
+1053  94        load immediate 4
+1054  35        store local word-5
+1055  e2 02     jp 1059
+1057  98        load immediate 8
+1058  35        store local word-5
+1059  2d 11     load global word 17
+105b  dd        check_positive
+105c  25        load local word-5
+105d  dd        check_positive
+105e  a7        sub
+105f  98        load immediate 8
+1060  b4        iless_or_equal
+1061  e3 05     jpfalse 1068
+1063  49        load global word9
+1064  91        load immediate 1
+1065  ea        power2
+1066  e6        bitwise_or
+1067  59        store global word9
+1068  e2 05     jp 106f
+106a  49        load global word9
+106b  91        load immediate 1
+106c  ea        power2
+106d  e6        bitwise_or
+106e  59        store global word9
+106f  ce        jump_stack
+1070  ed 15     call proc21
+1072  34        store local word-4
+1073  24        load local word-4
+1074  97        load immediate 7
+1075  a4        uless_or_equal
+1076  e3 0a     jpfalse 1082
+1078  24        load local word-4
+1079  ae 20     add 32
+107b  8d ff     load immediate 255
+107d  dc        limit_check
+107e  ec 2f     nested_call proc47
+1080  e2 39     jp 10bb
+1082  24        load local word-4
+1083  98        load immediate 8
+1084  a0        equal
+1085  e3 08     jpfalse 108f
+1087  8d 28     load immediate 40
+1089  ed 1c     call proc28
+108b  ed 14     call proc20
+108d  e2 2c     jp 10bb
+108f  24        load local word-4
+1090  99        load immediate 9
+1091  a0        equal
+1092  e3 13     jpfalse 10a7
+1094  ed 2a     call proc42
+1096  f0 39     call INTELL.proc9
+1098  8d 2e     load immediate 46
+109a  99        load immediate 9
+109b  f0 32     call INTELL.proc2
+109d  8d 12     load immediate 18
+109f  f5        call proc5
+10a0  93        load immediate 3
+10a1  ec 30     nested_call proc48
+10a3  ed 14     call proc20
+10a5  e2 14     jp 10bb
+10a7  ed 15     call proc21
+10a9  34        store local word-4
+10aa  24        load local word-4
+10ab  8d 80     load immediate 128
+10ad  a5        ugreater_or_equal
+10ae  de 04     andjp 10b4
+10b0  2f 02 1a  load COMPILER.word26
+10b3  b6        not
+10b4  24        load local word-4
+10b5  8d 7f     load immediate 127
+10b7  e8        bitwise_and
+10b8  93        load immediate 3
+10b9  ed 2d     call proc45
+10bb  ce        jump_stack
+10bc  94        load immediate 4
+10bd  92        load immediate 2
+10be  2d 11     load global word 17
+10c0  9f        load immediate 15
+10c1  e8        bitwise_and
+10c2  dd        check_positive
+10c3  ef 03 19  call INTELL.proc25
+10c6  ce        jump_stack
+10c7  ed 14     call proc20
+10c9  80 fe     load local address -2
+10cb  fc        call proc12
+10cc  2d 11     load global word 17
+10ce  b1 04     shr 4
+10d0  8d ff     load immediate 255
+10d2  dc        limit_check
+10d3  2d 11     load global word 17
+10d5  9f        load immediate 15
+10d6  e8        bitwise_and
+10d7  8d ff     load immediate 255
+10d9  dc        limit_check
+10da  ed 27     call proc39
+10dc  22        load local word-2
+10dd  fb        call proc11
+10de  92        load immediate 2
+10df  ef 03 1a  call INTELL.proc26
+10e2  49        load global word9
+10e3  90        load immediate 0
+10e4  ea        power2
+10e5  e6        bitwise_or
+10e6  59        store global word9
+10e7  ce        jump_stack
+10e8  80 fe     load local address -2
+10ea  fc        call proc12
+10eb  8d a6     load immediate 166
+10ed  ed 1c     call proc28
+10ef  22        load local word-2
+10f0  fb        call proc11
+10f1  91        load immediate 1
+10f2  ef 03 1a  call INTELL.proc26
+10f5  49        load global word9
+10f6  90        load immediate 0
+10f7  ea        power2
+10f8  e6        bitwise_or
+10f9  59        store global word9
+10fa  ce        jump_stack
+10fb  80 fe     load local address -2
+10fd  fc        call proc12
+10fe  8d 93     load immediate 147
+1100  ed 1c     call proc28
+1102  22        load local word-2
+1103  fb        call proc11
+1104  92        load immediate 2
+1105  ef 03 1a  call INTELL.proc26
+1108  49        load global word9
+1109  90        load immediate 0
+110a  ea        power2
+110b  e6        bitwise_or
+110c  59        store global word9
+110d  ce        jump_stack
+110e  ed 2a     call proc42
+1110  80 fe     load local address -2
+1112  fc        call proc12
+1113  22        load local word-2
+1114  62        load stack word2
+1115  91        load immediate 1
+1116  a0        equal
+1117  f1        call proc1
+1118  f0 3a     call INTELL.proc10
+111a  f0 39     call INTELL.proc9
+111c  91        load immediate 1
+111d  1c 34     store INTELL.word4
+111f  80 fd     load local address -3
+1121  9c        load immediate 12
+1122  40 05     ALLOCATE
+1124  23        load local word-3
+1125  22        load local word-2
+1126  9c        load immediate 12
+1127  30        copy block
+1128  22        load local word-2
+1129  fb        call proc11
+112a  23        load local word-3
+112b  fb        call proc11
+112c  ce        jump_stack
+112d  80 fe     load local address -2
+112f  fc        call proc12
+1130  80 fd     load local address -3
+1132  fc        call proc12
+1133  22        load local word-2
+1134  fb        call proc11
+1135  23        load local word-3
+1136  fb        call proc11
+1137  22        load local word-2
+1138  61        load stack word1
+1139  92        load immediate 2
+113a  a0        equal
+113b  de 04     andjp 1141
+113d  23        load local word-3
+113e  61        load stack word1
+113f  92        load immediate 2
+1140  a0        equal
+1141  f1        call proc1
+1142  ce        jump_stack
+1143  94        load immediate 4
+1144  92        load immediate 2
+1145  8d 80     load immediate 128
+1147  2d 11     load global word 17
+1149  9f        load immediate 15
+114a  e8        bitwise_and
+114b  a7        sub
+114c  dd        check_positive
+114d  ed 25     call proc37
+114f  ce        jump_stack
+1150  94        load immediate 4
+1151  92        load immediate 2
+1152  8e 00 01  load immediate 256
+1155  2d 11     load global word 17
+1157  9f        load immediate 15
+1158  e8        bitwise_and
+1159  a7        sub
+115a  dd        check_positive
+115b  ef 03 19  call INTELL.proc25
+115e  ce        jump_stack
+115f  ed 15     call proc21
+1161  34        store local word-4
+1162  24        load local word-4
+1163  e2 51     jp 11b6
+1165  90        load immediate 0
+1166  37        store local word-7
+1167  80 f9     load local address -7
+1169  91        load immediate 1
+116a  ef 03 12  call INTELL.proc18
+116d  8d e1     load immediate 225
+116f  f0 31     call INTELL.proc1
+1171  ce        jump_stack
+1172  24        load local word-4
+1173  ae 42     add 66
+1175  24        load local word-4
+1176  9d        load immediate 13
+1177  a3        ugreater_than
+1178  b0 01     shl 1
+117a  a6        add
+117b  8d ff     load immediate 255
+117d  dc        limit_check
+117e  ed 1c     call proc28
+1180  ce        jump_stack
+1181  ed 2a     call proc42
+1183  f0 39     call INTELL.proc9
+1185  90        load immediate 0
+1186  f0 3e     call INTELL.proc14
+1188  90        load immediate 0
+1189  ef 03 13  call INTELL.proc19
+118c  8d 3e     load immediate 62
+118e  24        load local word-4
+118f  f0 32     call INTELL.proc2
+1191  8d 40     load immediate 64
+1193  f5        call proc5
+1194  24        load local word-4
+1195  92        load immediate 2
+1196  a0        equal
+1197  e3 0a     jpfalse 11a3
+1199  80 fe     load local address -2
+119b  fc        call proc12
+119c  80 fe     load local address -2
+119e  9c        load immediate 12
+119f  40 06     DEALLOCATE
+11a1  e2 0d     jp 11b0
+11a3  8d 42     load immediate 66
+11a5  24        load local word-4
+11a6  a6        add
+11a7  24        load local word-4
+11a8  9d        load immediate 13
+11a9  a3        ugreater_than
+11aa  b0 01     shl 1
+11ac  a6        add
+11ad  f4        call proc4
+11ae  ec 30     nested_call proc48
+11b0  ce        jump_stack
+11b1  90        load immediate 0
+11b2  ef 03 18  call INTELL.proc24
+11b5  ce        jump_stack
+11b6  cd 00 80 12 00 2b 00  callswitch (return to 11e7)
+	case 90 => 1165
+	case 91 => 1172
+	case 92 => 1181
+	case 93 => 1172
+	case 94 => 1172
+	case 95 => 1181
+	case 96 => 1181
+	case 97 => 1181
+	case 98 => 1181
+	case 99 => 1172
+	case 100 => 1181
+	case 101 => 1181
+	case 102 => 1181
+	case 103 => 1181
+	case 104 => 1181
+	case 105 => 1181
+	case 106 => 1172
+	case 107 => 11b1
+	case 108 => 1172
+11e3  9d        load immediate 13
+11e4  90        load immediate 0
+11e5  90        load immediate 0
+11e6  01        Raise
+11e7  ce        jump_stack
+11e8  2d 11     load global word 17
+11ea  9f        load immediate 15
+11eb  e8        bitwise_and
+11ec  dd        check_positive
+11ed  36        store local word-6
+11ee  26        load local word-6
+11ef  dd        check_positive
+11f0  92        load immediate 2
+11f1  ed 24     call proc36
+11f3  93        load immediate 3
+11f4  92        load immediate 2
+11f5  26        load local word-6
+11f6  ed 25     call proc37
+11f8  ce        jump_stack
+11f9  2d 11     load global word 17
+11fb  9f        load immediate 15
+11fc  e8        bitwise_and
+11fd  dd        check_positive
+11fe  36        store local word-6
+11ff  49        load global word9
+1200  90        load immediate 0
+1201  ea        power2
+1202  e6        bitwise_or
+1203  59        store global word9
+1204  26        load local word-6
+1205  dd        check_positive
+1206  92        load immediate 2
+1207  ed 24     call proc36
+1209  93        load immediate 3
+120a  92        load immediate 2
+120b  2d 11     load global word 17
+120d  9f        load immediate 15
+120e  e8        bitwise_and
+120f  dd        check_positive
+1210  ef 03 19  call INTELL.proc25
+1213  ce        jump_stack
+1214  80 fe     load local address -2
+1216  fc        call proc12
+1217  22        load local word-2
+1218  61        load stack word1
+1219  92        load immediate 2
+121a  a0        equal
+121b  f1        call proc1
+121c  22        load local word-2
+121d  62        load stack word2
+121e  91        load immediate 1
+121f  a0        equal
+1220  e3 05     jpfalse 1227
+1222  f0 3a     call INTELL.proc10
+1224  90        load immediate 0
+1225  1c 34     store INTELL.word4
+1227  80 fe     load local address -2
+1229  9c        load immediate 12
+122a  40 06     DEALLOCATE
+122c  ce        jump_stack
+122d  ed 15     call proc21
+122f  b0 01     shl 1
+1231  dd        check_positive
+1232  36        store local word-6
+1233  ed 15     call proc21
+1235  35        store local word-5
+1236  26        load local word-6
+1237  8d ff     load immediate 255
+1239  b3        igreater_than
+123a  e3 06     jpfalse 1242
+123c  26        load local word-6
+123d  8e 00 ff  load immediate -256
+1240  a6        add
+1241  36        store local word-6
+1242  96        load immediate 6
+1243  26        load local word-6
+1244  25        load local word-5
+1245  f0 3c     call INTELL.proc12
+1247  96        load immediate 6
+1248  92        load immediate 2
+1249  90        load immediate 0
+124a  ed 25     call proc37
+124c  26        load local word-6
+124d  8d 7f     load immediate 127
+124f  b4        iless_or_equal
+1250  e3 06     jpfalse 1258
+1252  26        load local word-6
+1253  dd        check_positive
+1254  ed 26     call proc38
+1256  e2 08     jp 1260
+1258  8e 00 ff  load immediate -256
+125b  26        load local word-6
+125c  dd        check_positive
+125d  a6        add
+125e  ed 26     call proc38
+1260  8d a6     load immediate 166
+1262  ed 1c     call proc28
+1264  ce        jump_stack
+1265  ed 15     call proc21
+1267  36        store local word-6
+1268  ed 15     call proc21
+126a  35        store local word-5
+126b  95        load immediate 5
+126c  26        load local word-6
+126d  92        load immediate 2
+126e  b8        imul
+126f  25        load local word-5
+1270  f0 3c     call INTELL.proc12
+1272  26        load local word-6
+1273  dd        check_positive
+1274  25        load local word-5
+1275  ed 24     call proc36
+1277  95        load immediate 5
+1278  92        load immediate 2
+1279  26        load local word-6
+127a  ed 25     call proc37
+127c  ce        jump_stack
+127d  2d 11     load global word 17
+127f  af 84     sub 132
+1281  8d ff     load immediate 255
+1283  dc        limit_check
+1284  35        store local word-5
+1285  ed 15     call proc21
+1287  34        store local word-4
+1288  24        load local word-4
+1289  8d 80     load immediate 128
+128b  a5        ugreater_or_equal
+128c  de 04     andjp 1292
+128e  2f 02 1a  load COMPILER.word26
+1291  b6        not
+1292  24        load local word-4
+1293  8d 7f     load immediate 127
+1295  e8        bitwise_and
+1296  25        load local word-5
+1297  ed 2d     call proc45
+1299  ce        jump_stack
+129a  80 fe     load local address -2
+129c  9c        load immediate 12
+129d  40 05     ALLOCATE
+129f  22        load local word-2
+12a0  92        load immediate 2
+12a1  71        store stack word1
+12a2  22        load local word-2
+12a3  98        load immediate 8
+12a4  72        store stack word2
+12a5  22        load local word-2
+12a6  ed 15     call proc21
+12a8  73        store stack word3
+12a9  22        load local word-2
+12aa  82 04     load stack address 4
+12ac  8d 80     load immediate 128
+12ae  40 05     ALLOCATE
+12b0  90        load immediate 0
+12b1  37        store local word-7
+12b2  27        load local word-7
+12b3  22        load local word-2
+12b4  63        load stack word3
+12b5  a2        uless_than
+12b6  e3 0e     jpfalse 12c6
+12b8  22        load local word-2
+12b9  64        load stack word4
+12ba  27        load local word-7
+12bb  8d 7f     load immediate 127
+12bd  dc        limit_check
+12be  ed 15     call proc21
+12c0  1d        store indexed byte
+12c1  27        load local word-7
+12c2  ac        inc
+12c3  37        store local word-7
+12c4  e4 14     jp 12b2
+12c6  22        load local word-2
+12c7  fb        call proc11
+12c8  ce        jump_stack
+12c9  ed 15     call proc21
+12cb  ed 26     call proc38
+12cd  ce        jump_stack
+12ce  ed 16     call proc22
+12d0  ed 26     call proc38
+12d2  ce        jump_stack
+12d3  80 fe     load local address -2
+12d5  9c        load immediate 12
+12d6  40 05     ALLOCATE
+12d8  22        load local word-2
+12d9  94        load immediate 4
+12da  71        store stack word1
+12db  22        load local word-2
+12dc  90        load immediate 0
+12dd  72        store stack word2
+12de  22        load local word-2
+12df  82 03     load stack address 3
+12e1  90        load immediate 0
+12e2  ed 16     call proc22
+12e4  1e        store indexed word
+12e5  22        load local word-2
+12e6  82 03     load stack address 3
+12e8  91        load immediate 1
+12e9  ed 16     call proc22
+12eb  1e        store indexed word
+12ec  22        load local word-2
+12ed  fb        call proc11
+12ee  ce        jump_stack
+12ef  2d 11     load global word 17
+12f1  9f        load immediate 15
+12f2  e8        bitwise_and
+12f3  ed 26     call proc38
+12f5  ce        jump_stack
+12f6  2d 11     load global word 17
+12f8  af 06     sub 6
+12fa  8d ff     load immediate 255
+12fc  dc        limit_check
+12fd  34        store local word-4
+12fe  91        load immediate 1
+12ff  ed 26     call proc38
+1301  24        load local word-4
+1302  ed 1c     call proc28
+1304  ce        jump_stack
+1305  2d 11     load global word 17
+1307  af 08     sub 8
+1309  8d ff     load immediate 255
+130b  dc        limit_check
+130c  34        store local word-4
+130d  ed 15     call proc21
+130f  ed 26     call proc38
+1311  24        load local word-4
+1312  ed 1c     call proc28
+1314  ce        jump_stack
+1315  2d 11     load global word 17
+1317  8d ff     load immediate 255
+1319  dc        limit_check
+131a  34        store local word-4
+131b  ed 15     call proc21
+131d  ed 26     call proc38
+131f  24        load local word-4
+1320  ed 1c     call proc28
+1322  ce        jump_stack
+1323  ed 29     call proc41
+1325  ed 29     call proc41
+1327  2d 11     load global word 17
+1329  8d ff     load immediate 255
+132b  dc        limit_check
+132c  ed 1c     call proc28
+132e  ce        jump_stack
+132f  ed 22     call proc34
+1331  ce        jump_stack
+1332  fd        call proc13
+1333  f1        call proc1
+1334  90        load immediate 0
+1335  37        store local word-7
+1336  80 f9     load local address -7
+1338  91        load immediate 1
+1339  ef 03 12  call INTELL.proc18
+133c  90        load immediate 0
+133d  f0 3b     call INTELL.proc11
+133f  8d c9     load immediate 201
+1341  f0 31     call INTELL.proc1
+1343  ce        jump_stack
+1344  fd        call proc13
+1345  f1        call proc1
+1346  90        load immediate 0
+1347  37        store local word-7
+1348  80 f9     load local address -7
+134a  91        load immediate 1
+134b  ef 03 12  call INTELL.proc18
+134e  90        load immediate 0
+134f  f0 3b     call INTELL.proc11
+1351  ed 16     call proc22
+1353  ad        dec
+1354  36        store local word-6
+1355  8d 21     load immediate 33
+1357  80 f8     load local address -8
+1359  91        load immediate 1
+135a  fa        call proc10
+135b  8d e5     load immediate 229
+135d  f0 31     call INTELL.proc1
+135f  90        load immediate 0
+1360  26        load local word-6
+1361  dd        check_positive
+1362  80 f8     load local address -8
+1364  ed 21     call proc33
+1366  ce        jump_stack
+1367  80 fe     load local address -2
+1369  fc        call proc12
+136a  80 fd     load local address -3
+136c  fc        call proc12
+136d  23        load local word-3
+136e  62        load stack word2
+136f  ab        eq0
+1370  de 03     andjp 1375
+1372  22        load local word-2
+1373  62        load stack word2
+1374  ab        eq0
+1375  f1        call proc1
+1376  22        load local word-2
+1377  82 03     load stack address 3
+1379  91        load immediate 1
+137a  23        load local word-3
+137b  82 03     load stack address 3
+137d  90        load immediate 0
+137e  0e        load indexed word
+137f  1e        store indexed word
+1380  22        load local word-2
+1381  94        load immediate 4
+1382  71        store stack word1
+1383  22        load local word-2
+1384  fb        call proc11
+1385  80 fd     load local address -3
+1387  9c        load immediate 12
+1388  40 06     DEALLOCATE
+138a  2d 11     load global word 17
+138c  8d ff     load immediate 255
+138e  dc        limit_check
+138f  ed 1c     call proc28
+1391  ce        jump_stack
+1392  2d 11     load global word 17
+1394  8d ff     load immediate 255
+1396  dc        limit_check
+1397  34        store local word-4
+1398  ed 15     call proc21
+139a  36        store local word-6
+139b  24        load local word-4
+139c  26        load local word-6
+139d  dd        check_positive
+139e  80 f8     load local address -8
+13a0  ed 21     call proc33
+13a2  ce        jump_stack
+13a3  2d 11     load global word 17
+13a5  8d ff     load immediate 255
+13a7  dc        limit_check
+13a8  34        store local word-4
+13a9  24        load local word-4
+13aa  8d e1     load immediate 225
+13ac  a4        uless_or_equal
+13ad  e3 06     jpfalse 13b5
+13af  ed 16     call proc22
+13b1  ad        dec
+13b2  36        store local word-6
+13b3  e2 11     jp 13c6
+13b5  24        load local word-4
+13b6  8d e3     load immediate 227
+13b8  a4        uless_or_equal
+13b9  e3 05     jpfalse 13c0
+13bb  ed 15     call proc21
+13bd  36        store local word-6
+13be  e2 06     jp 13c6
+13c0  ed 15     call proc21
+13c2  dd        check_positive
+13c3  b7        complement
+13c4  ac        inc
+13c5  36        store local word-6
+13c6  26        load local word-6
+13c7  90        load immediate 0
+13c8  b2        iless_than
+13c9  e3 43     jpfalse 140e
+13cb  26        load local word-6
+13cc  b7        complement
+13cd  ac        inc
+13ce  dd        check_positive
+13cf  4b        load global word11
+13d0  b6        not
+13d1  80 f8     load local address -8
+13d3  80 f7     load local address -9
+13d5  ed 1e     call proc30
+13d7  4b        load global word11
+13d8  e3 34     jpfalse 140e
+13da  42        load global word2
+13db  ab        eq0
+13dc  e3 19     jpfalse 13f7
+13de  92        load immediate 2
+13df  37        store local word-7
+13e0  27        load local word-7
+13e1  29        load local word-9
+13e2  e7        bitwise_in
+13e3  e3 08     jpfalse 13ed
+13e5  95        load immediate 5
+13e6  27        load local word-7
+13e7  b0 01     shl 1
+13e9  dd        check_positive
+13ea  92        load immediate 2
+13eb  f0 3c     call INTELL.proc12
+13ed  27        load local word-7
+13ee  ac        inc
+13ef  37        store local word-7
+13f0  27        load local word-7
+13f1  95        load immediate 5
+13f2  a3        ugreater_than
+13f3  e5 15     jpfalse 13e0
+13f5  e2 02     jp 13f9
+13f7  f0 3d     call INTELL.proc13
+13f9  29        load local word-9
+13fa  b1 08     shr 8
+13fc  8d ff     load immediate 255
+13fe  dc        limit_check
+13ff  f0 3e     call INTELL.proc14
+1401  29        load local word-9
+1402  b1 08     shr 8
+1404  8d ff     load immediate 255
+1406  dc        limit_check
+1407  ef 03 13  call INTELL.proc19
+140a  49        load global word9
+140b  29        load local word-9
+140c  e6        bitwise_or
+140d  59        store global word9
+140e  24        load local word-4
+140f  91        load immediate 1
+1410  e8        bitwise_and
+1411  e3 12     jpfalse 1425
+1413  80 fe     load local address -2
+1415  fc        call proc12
+1416  22        load local word-2
+1417  90        load immediate 0
+1418  91        load immediate 1
+1419  80 f8     load local address -8
+141b  ef 03 16  call INTELL.proc22
+141e  80 fe     load local address -2
+1420  9c        load immediate 12
+1421  40 06     DEALLOCATE
+1423  e2 07     jp 142c
+1425  8d c3     load immediate 195
+1427  80 f8     load local address -8
+1429  4b        load global word11
+142a  b6        not
+142b  fa        call proc10
+142c  26        load local word-6
+142d  90        load immediate 0
+142e  b5        igreater_or_equal
+142f  e3 09     jpfalse 143a
+1431  90        load immediate 0
+1432  26        load local word-6
+1433  dd        check_positive
+1434  80 f8     load local address -8
+1436  ed 21     call proc33
+1438  e2 05     jp 143f
+143a  80 f8     load local address -8
+143c  9c        load immediate 12
+143d  40 06     DEALLOCATE
+143f  ce        jump_stack
+1440  8d eb     load immediate 235
+1442  90        load immediate 0
+1443  90        load immediate 0
+1444  ed 2c     call proc44
+1446  ce        jump_stack
+1447  2d 11     load global word 17
+1449  90        load immediate 0
+144a  ed 15     call proc21
+144c  ed 2c     call proc44
+144e  ce        jump_stack
+144f  8d ef     load immediate 239
+1451  ed 15     call proc21
+1453  ed 15     call proc21
+1455  ed 2c     call proc44
+1457  ce        jump_stack
+1458  ed 14     call proc20
+145a  8d ef     load immediate 239
+145c  2d 11     load global word 17
+145e  b1 04     shr 4
+1460  2d 11     load global word 17
+1462  9f        load immediate 15
+1463  e8        bitwise_and
+1464  ed 2c     call proc44
+1466  ce        jump_stack
+1467  8d ed     load immediate 237
+1469  90        load immediate 0
+146a  2d 11     load global word 17
+146c  9f        load immediate 15
+146d  e8        bitwise_and
+146e  ed 2c     call proc44
+1470  ce        jump_stack
+1471  cd 00 80 ff 00 0c 02  callswitch (return to 1683)
+	case 90 => 0f2f
+	case 91 => 0fac
+	case 92 => 0fbc
+	case 93 => 0fce
+	case 94 => 0fce
+	case 95 => 0fce
+	case 96 => 0fce
+	case 97 => 0fce
+	case 98 => 0fd6
+	case 99 => 0fd6
+	case 100 => 0fd6
+	case 101 => 0fd6
+	case 102 => 0fda
+	case 103 => 0ff0
+	case 104 => 0ff8
+	case 105 => 1000
+	case 106 => 1008
+	case 107 => 1008
+	case 108 => 1070
+	case 109 => 10bc
+	case 110 => 10bc
+	case 111 => 10bc
+	case 112 => 10bc
+	case 113 => 10bc
+	case 114 => 0fd6
+	case 115 => 0fd6
+	case 116 => 0fd6
+	case 117 => 0fd6
+	case 118 => 10c7
+	case 119 => 10e8
+	case 120 => 10fb
+	case 121 => 0fac
+	case 122 => 110e
+	case 123 => 112d
+	case 124 => 1143
+	case 125 => 1143
+	case 126 => 1143
+	case 127 => 1143
+	case 128 => 1143
+	case 129 => 1143
+	case 130 => 1143
+	case 131 => 1143
+	case 132 => 1143
+	case 133 => 1143
+	case 134 => 0fd6
+	case 135 => 0fd6
+	case 136 => 0fd6
+	case 137 => 0fd6
+	case 138 => 0fac
+	case 139 => 0fac
+	case 140 => 1150
+	case 141 => 1150
+	case 142 => 1150
+	case 143 => 1150
+	case 144 => 1150
+	case 145 => 1150
+	case 146 => 1150
+	case 147 => 1150
+	case 148 => 1150
+	case 149 => 1150
+	case 150 => 0fd6
+	case 151 => 0fd6
+	case 152 => 0fd6
+	case 153 => 0fd6
+	case 154 => 115f
+	case 155 => 1000
+	case 156 => 11e8
+	case 157 => 11e8
+	case 158 => 11e8
+	case 159 => 11e8
+	case 160 => 11e8
+	case 161 => 11e8
+	case 162 => 11e8
+	case 163 => 11e8
+	case 164 => 11e8
+	case 165 => 11e8
+	case 166 => 11e8
+	case 167 => 11e8
+	case 168 => 11e8
+	case 169 => 11e8
+	case 170 => 0fac
+	case 171 => 0fac
+	case 172 => 11f9
+	case 173 => 11f9
+	case 174 => 11f9
+	case 175 => 11f9
+	case 176 => 11f9
+	case 177 => 11f9
+	case 178 => 11f9
+	case 179 => 11f9
+	case 180 => 11f9
+	case 181 => 11f9
+	case 182 => 11f9
+	case 183 => 11f9
+	case 184 => 11f9
+	case 185 => 11f9
+	case 186 => 1678
+	case 187 => 1678
+	case 188 => 1678
+	case 189 => 1678
+	case 190 => 1678
+	case 191 => 1214
+	case 192 => 1000
+	case 193 => 1000
+	case 194 => 1678
+	case 195 => 1678
+	case 196 => 1678
+	case 197 => 1678
+	case 198 => 1678
+	case 199 => 1678
+	case 200 => 1678
+	case 201 => 1678
+	case 202 => 1678
+	case 203 => 1678
+	case 204 => 1678
+	case 205 => 1678
+	case 206 => 1678
+	case 207 => 1678
+	case 208 => 1678
+	case 209 => 1678
+	case 210 => 1678
+	case 211 => 1678
+	case 212 => 1678
+	case 213 => 1000
+	case 214 => 1000
+	case 215 => 1000
+	case 216 => 1678
+	case 217 => 1678
+	case 218 => 122d
+	case 219 => 1265
+	case 220 => 0fd6
+	case 221 => 0fd6
+	case 222 => 127d
+	case 223 => 127d
+	case 224 => 127d
+	case 225 => 1678
+	case 226 => 1678
+	case 227 => 1678
+	case 228 => 1678
+	case 229 => 1678
+	case 230 => 129a
+	case 231 => 12c9
+	case 232 => 12ce
+	case 233 => 12d3
+	case 234 => 12ef
+	case 235 => 12ef
+	case 236 => 12ef
+	case 237 => 12ef
+	case 238 => 12ef
+	case 239 => 12ef
+	case 240 => 12ef
+	case 241 => 12ef
+	case 242 => 12ef
+	case 243 => 12ef
+	case 244 => 12ef
+	case 245 => 12ef
+	case 246 => 12ef
+	case 247 => 12ef
+	case 248 => 12ef
+	case 249 => 12ef
+	case 250 => 1000
+	case 251 => 1000
+	case 252 => 1000
+	case 253 => 1000
+	case 254 => 1000
+	case 255 => 1000
+	case 256 => 1000
+	case 257 => 1000
+	case 258 => 1000
+	case 259 => 1000
+	case 260 => 1000
+	case 261 => 1678
+	case 262 => 12f6
+	case 263 => 12f6
+	case 264 => 1305
+	case 265 => 1305
+	case 266 => 1315
+	case 267 => 1315
+	case 268 => 1000
+	case 269 => 1000
+	case 270 => 1000
+	case 271 => 1000
+	case 272 => 1000
+	case 273 => 1000
+	case 274 => 1000
+	case 275 => 1000
+	case 276 => 1000
+	case 277 => 1000
+	case 278 => 1000
+	case 279 => 1000
+	case 280 => 1000
+	case 281 => 1000
+	case 282 => 1000
+	case 283 => 1000
+	case 284 => 1000
+	case 285 => 0fac
+	case 286 => 1323
+	case 287 => 1000
+	case 288 => 1000
+	case 289 => 1000
+	case 290 => 1000
+	case 291 => 1000
+	case 292 => 1000
+	case 293 => 1678
+	case 294 => 1000
+	case 295 => 132f
+	case 296 => 1332
+	case 297 => 1344
+	case 298 => 1000
+	case 299 => 1000
+	case 300 => 1000
+	case 301 => 1000
+	case 302 => 1678
+	case 303 => 1000
+	case 304 => 1000
+	case 305 => 1000
+	case 306 => 1000
+	case 307 => 1000
+	case 308 => 1367
+	case 309 => 1367
+	case 310 => 1000
+	case 311 => 1000
+	case 312 => 1392
+	case 313 => 1392
+	case 314 => 13a3
+	case 315 => 13a3
+	case 316 => 13a3
+	case 317 => 13a3
+	case 318 => 13a3
+	case 319 => 13a3
+	case 320 => 1000
+	case 321 => 1000
+	case 322 => 1000
+	case 323 => 1000
+	case 324 => 1000
+	case 325 => 1440
+	case 326 => 1447
+	case 327 => 1447
+	case 328 => 1447
+	case 329 => 144f
+	case 330 => 1458
+	case 331 => 1467
+	case 332 => 1467
+	case 333 => 1467
+	case 334 => 1467
+	case 335 => 1467
+	case 336 => 1467
+	case 337 => 1467
+	case 338 => 1467
+	case 339 => 1467
+	case 340 => 1467
+	case 341 => 1467
+	case 342 => 1467
+	case 343 => 1467
+	case 344 => 1467
+	case 345 => 1467
+1678  92        load immediate 2
+1679  2d 11     load global word 17
+167b  96        load immediate 6
+167c  f0 5b     call ›âZâüá°á.proc11
+167e  92        load immediate 2
+167f  f0 5e     call ›âZâüá°á.proc14
+1681  90        load immediate 0
+1682  f1        call proc1
+1683  90        load immediate 0
+1684  ed 20     call proc32
+1686  ed 18     call proc24
+1688  fd        call proc13
+1689  e3 03     jpfalse 168e
+168b  ef 03 11  call INTELL.proc17
+168e  e0 87 f8  jp 0f17
+1691  88        leave0
+1692  32        store local word-2
+1693  6e        load stack word14
+1694  b1 d2     shr 210
+1696  00        Error16
+1697  00        Error16
+1698  d4 fb     enter -5
+169a  91        load immediate 1
+169b  32        store local word-2
+169c  03        load param1
+169d  8d 26     load immediate 38
+169f  aa        umod
+16a0  33        store local word-3
+16a1  03        load param1
+16a2  8d 26     load immediate 38
+16a4  a9        udiv
+16a5  13        store param1
+16a6  23        load local word-3
+16a7  8d 1a     load immediate 26
+16a9  a2        uless_than
+16aa  e3 08     jpfalse 16b4
+16ac  92        load immediate 2
+16ad  23        load local word-3
+16ae  ae 41     add 65
+16b0  f0 58     call ›âZâüá°á.proc8
+16b2  e2 13     jp 16c7
+16b4  23        load local word-3
+16b5  8d 24     load immediate 36
+16b7  a2        uless_than
+16b8  e3 08     jpfalse 16c2
+16ba  92        load immediate 2
+16bb  23        load local word-3
+16bc  ae 16     add 22
+16be  f0 58     call ›âZâüá°á.proc8
+16c0  e2 05     jp 16c7
+16c2  92        load immediate 2
+16c3  8d 20     load immediate 32
+16c5  f0 58     call ›âZâüá°á.proc8
+16c7  22        load local word-2
+16c8  ac        inc
+16c9  32        store local word-2
+16ca  22        load local word-2
+16cb  93        load immediate 3
+16cc  a3        ugreater_than
+16cd  e5 33     jpfalse 169c
+16cf  84 01     leave 1
+16d1  5e        store global word14
+16d2  00        Error16
+16d3  3f d6 00  store .word0
+16d6  00        Error16
+16d7  d4 e9     enter -23
+16d9  ed 14     call proc20
+16db  90        load immediate 0
+16dc  3d 1c     store global word 28
+16de  90        load immediate 0
+16df  59        store global word9
+16e0  91        load immediate 1
+16e1  5b        store global word11
+16e2  90        load immediate 0
+16e3  1c 33     store INTELL.word3
+16e5  90        load immediate 0
+16e6  1c 34     store INTELL.word4
+16e8  90        load immediate 0
+16e9  53        store global word3
+16ea  2d 11     load global word 17
+16ec  ab        eq0
+16ed  f1        call proc1
+16ee  ed 15     call proc21
+16f0  93        load immediate 3
+16f1  91        load immediate 1
+16f2  da        urange_check
+16f3  32        store local word-2
+16f4  22        load local word-2
+16f5  e0 74 01  jp 186b
+16f8  ed 15     call proc21
+16fa  52        store global word2
+16fb  45        load global word5
+16fc  42        load global word2
+16fd  8d ff     load immediate 255
+16ff  dc        limit_check
+1700  0c 32     load INTELL.word2
+1702  1e        store indexed word
+1703  ed 15     call proc21
+1705  57        store global word7
+1706  47        load global word7
+1707  f0 31     call INTELL.proc1
+1709  47        load global word7
+170a  cb        not_zero
+170b  e3 06     jpfalse 1713
+170d  ed 15     call proc21
+170f  f0 31     call INTELL.proc1
+1711  e4 0a     jp 1709
+1713  ce        jump_stack
+1714  ed 15     call proc21
+1716  52        store global word2
+1717  ed 16     call proc22
+1719  57        store global word7
+171a  45        load global word5
+171b  42        load global word2
+171c  8d ff     load immediate 255
+171e  dc        limit_check
+171f  0c 32     load INTELL.word2
+1721  1e        store indexed word
+1722  47        load global word7
+1723  cb        not_zero
+1724  e3 06     jpfalse 172c
+1726  ed 15     call proc21
+1728  f0 31     call INTELL.proc1
+172a  e4 0a     jp 1722
+172c  ce        jump_stack
+172d  ed 15     call proc21
+172f  52        store global word2
+1730  ed 15     call proc21
+1732  36        store local word-6
+1733  ed 16     call proc22
+1735  ad        dec
+1736  57        store global word7
+1737  ed 16     call proc22
+1739  34        store local word-4
+173a  24        load local word-4
+173b  ec 32     nested_call proc50
+173d  24        load local word-4
+173e  f0 35     call INTELL.proc5
+1740  ed 16     call proc22
+1742  34        store local word-4
+1743  24        load local word-4
+1744  ec 32     nested_call proc50
+1746  24        load local word-4
+1747  f0 35     call INTELL.proc5
+1749  ed 16     call proc22
+174b  33        store local word-3
+174c  92        load immediate 2
+174d  0c 32     load INTELL.word2
+174f  96        load immediate 6
+1750  f0 5b     call ›âZâüá°á.proc11
+1752  0c 32     load INTELL.word2
+1754  3c f4     store local word -12
+1756  23        load local word-3
+1757  cb        not_zero
+1758  e3 13     jpfalse 176d
+175a  80 f8     load local address -8
+175c  9c        load immediate 12
+175d  40 05     ALLOCATE
+175f  91        load immediate 1
+1760  23        load local word-3
+1761  ad        dec
+1762  80 f8     load local address -8
+1764  ed 21     call proc33
+1766  28        load local word-8
+1767  0c 32     load INTELL.word2
+1769  70        store stack word0
+176a  28        load local word-8
+176b  90        load immediate 0
+176c  71        store stack word1
+176d  90        load immediate 0
+176e  f0 35     call INTELL.proc5
+1770  93        load immediate 3
+1771  90        load immediate 0
+1772  90        load immediate 0
+1773  ef 03 10  call INTELL.proc16
+1776  45        load global word5
+1777  42        load global word2
+1778  8d ff     load immediate 255
+177a  dc        limit_check
+177b  0e        load indexed word
+177c  3b        store local word-11
+177d  45        load global word5
+177e  42        load global word2
+177f  8d ff     load immediate 255
+1781  dc        limit_check
+1782  0c 32     load INTELL.word2
+1784  1e        store indexed word
+1785  4a        load global word10
+1786  42        load global word2
+1787  b1 04     shr 4
+1789  9f        load immediate 15
+178a  dc        limit_check
+178b  b0 01     shl 1
+178d  a6        add
+178e  20        dup
+178f  60        load stack word0
+1790  42        load global word2
+1791  9f        load immediate 15
+1792  e8        bitwise_and
+1793  9f        load immediate 15
+1794  dc        limit_check
+1795  ea        power2
+1796  e6        bitwise_or
+1797  70        store stack word0
+1798  2b        load local word-11
+1799  8e ff ff  load immediate -1
+179c  a1        not_equal
+179d  e3 08     jpfalse 17a7
+179f  2b        load local word-11
+17a0  0c 32     load INTELL.word2
+17a2  f0 37     call INTELL.proc7
+17a4  3b        store local word-11
+17a5  e4 0f     jp 1798
+17a7  ed 14     call proc20
+17a9  2d 11     load global word 17
+17ab  8d 87     load immediate 135
+17ad  a0        equal
+17ae  e3 1c     jpfalse 17cc
+17b0  42        load global word2
+17b1  cb        not_zero
+17b2  f1        call proc1
+17b3  8d 3e     load immediate 62
+17b5  ed 15     call proc21
+17b7  f0 32     call INTELL.proc2
+17b9  8d 87     load immediate 135
+17bb  f5        call proc5
+17bc  47        load global word7
+17bd  cb        not_zero
+17be  e3 06     jpfalse 17c6
+17c0  ed 15     call proc21
+17c2  f0 31     call INTELL.proc1
+17c4  e4 0a     jp 17bc
+17c6  8e 00 ff  load immediate -256
+17c9  59        store global word9
+17ca  e2 6c     jp 1838
+17cc  2d 11     load global word 17
+17ce  8d d4     load immediate 212
+17d0  a0        equal
+17d1  f1        call proc1
+17d2  8d ff     load immediate 255
+17d4  ed 15     call proc21
+17d6  a7        sub
+17d7  b1 01     shr 1
+17d9  37        store local word-7
+17da  8d 21     load immediate 33
+17dc  27        load local word-7
+17dd  b0 01     shl 1
+17df  dd        check_positive
+17e0  b7        complement
+17e1  ac        inc
+17e2  f0 36     call INTELL.proc6
+17e4  8d d4     load immediate 212
+17e6  f5        call proc5
+17e7  23        load local word-3
+17e8  ab        eq0
+17e9  39        store local word-9
+17ea  94        load immediate 4
+17eb  3a        store local word-10
+17ec  42        load global word2
+17ed  ab        eq0
+17ee  e3 0c     jpfalse 17fc
+17f0  29        load local word-9
+17f1  de 03     andjp 17f6
+17f3  2f 02 1a  load COMPILER.word26
+17f6  39        store local word-9
+17f7  2d 12     load global word 18
+17f9  37        store local word-7
+17fa  93        load immediate 3
+17fb  3a        store local word-10
+17fc  29        load local word-9
+17fd  e3 06     jpfalse 1805
+17ff  2a        load local word-10
+1800  26        load local word-6
+1801  27        load local word-7
+1802  ef 03 10  call INTELL.proc16
+1805  42        load global word2
+1806  ab        eq0
+1807  e3 25     jpfalse 182e
+1809  92        load immediate 2
+180a  34        store local word-4
+180b  2d 17     load global word 23
+180d  24        load local word-4
+180e  93        load immediate 3
+180f  92        load immediate 2
+1810  da        urange_check
+1811  af 02     sub 2
+1813  0e        load indexed word
+1814  cb        not_zero
+1815  e3 08     jpfalse 181f
+1817  95        load immediate 5
+1818  24        load local word-4
+1819  b0 01     shl 1
+181b  dd        check_positive
+181c  92        load immediate 2
+181d  f0 3c     call INTELL.proc12
+181f  24        load local word-4
+1820  ac        inc
+1821  34        store local word-4
+1822  24        load local word-4
+1823  95        load immediate 5
+1824  a3        ugreater_than
+1825  e5 1c     jpfalse 180b
+1827  90        load immediate 0
+1828  ef 03 13  call INTELL.proc19
+182b  ef 03 11  call INTELL.proc17
+182e  ed 2e     call proc46
+1830  49        load global word9
+1831  ef 03 15  call INTELL.proc21
+1834  b0 08     shl 8
+1836  e6        bitwise_or
+1837  59        store global word9
+1838  48        load global word8
+1839  42        load global word2
+183a  8d ff     load immediate 255
+183c  dc        limit_check
+183d  49        load global word9
+183e  1e        store indexed word
+183f  92        load immediate 2
+1840  0c 32     load INTELL.word2
+1842  2c f4     load local word -12
+1844  a7        sub
+1845  96        load immediate 6
+1846  f0 5b     call ›âZâüá°á.proc11
+1848  92        load immediate 2
+1849  f0 5e     call ›âZâüá°á.proc14
+184b  ce        jump_stack
+184c  ed 16     call proc22
+184e  ad        dec
+184f  57        store global word7
+1850  93        load immediate 3
+1851  90        load immediate 0
+1852  90        load immediate 0
+1853  ef 03 10  call INTELL.proc16
+1856  90        load immediate 0
+1857  1c 33     store INTELL.word3
+1859  90        load immediate 0
+185a  1c 34     store INTELL.word4
+185c  ed 1d     call proc29
+185e  ed 2e     call proc46
+1860  49        load global word9
+1861  ef 03 15  call INTELL.proc21
+1864  b0 08     shl 8
+1866  e6        bitwise_or
+1867  59        store global word9
+1868  ed 23     call proc35
+186a  ce        jump_stack
+186b  cd 01 80 03 00 0d 00  callswitch (return to 187e)
+	case 91 => 16f8
+	case 92 => 1714
+	case 93 => 172d
+	case 94 => 184c
+187a  9d        load immediate 13
+187b  90        load immediate 0
+187c  90        load immediate 0
+187d  01        Raise
+187e  96        load immediate 6
+187f  57        store global word7
+1880  22        load local word-2
+1881  93        load immediate 3
+1882  a0        equal
+1883  de 02     andjp 1887
+1885  42        load global word2
+1886  ab        eq0
+1887  e1 50 fe  jpfalse 16d9
+188a  8e 00 01  load immediate 256
+188d  34        store local word-4
+188e  24        load local word-4
+188f  ad        dec
+1890  34        store local word-4
+1891  45        load global word5
+1892  24        load local word-4
+1893  8d ff     load immediate 255
+1895  dc        limit_check
+1896  0e        load indexed word
+1897  8e ff ff  load immediate -1
+189a  a1        not_equal
+189b  e5 0f     jpfalse 188e
+189d  24        load local word-4
+189e  ac        inc
+189f  34        store local word-4
+18a0  24        load local word-4
+18a1  b0 01     shl 1
+18a3  57        store global word7
+18a4  24        load local word-4
+18a5  ad        dec
+18a6  34        store local word-4
+18a7  45        load global word5
+18a8  24        load local word-4
+18a9  8d ff     load immediate 255
+18ab  dc        limit_check
+18ac  0e        load indexed word
+18ad  8e ff ff  load immediate -1
+18b0  a1        not_equal
+18b1  f1        call proc1
+18b2  45        load global word5
+18b3  24        load local word-4
+18b4  8d ff     load immediate 255
+18b6  dc        limit_check
+18b7  0e        load indexed word
+18b8  0c 32     load INTELL.word2
+18ba  ac        inc
+18bb  a7        sub
+18bc  35        store local word-5
+18bd  25        load local word-5
+18be  f0 35     call INTELL.proc5
+18c0  ed 16     call proc22
+18c2  35        store local word-5
+18c3  24        load local word-4
+18c4  ab        eq0
+18c5  e5 23     jpfalse 18a4
+18c7  88        leave0
+18c8  39        store local word-9
+18c9  6b        load stack word11
+18ca  b6        not
+18cb  19 99     store global dword 153
+18cd  00        Error16
+18ce  d4 ff     enter -1
+18d0  e0 68 ea  jp 033a
+18d3  e0 e5 ea  jp 03ba
+18d6  e0 b4 ec  jp 058c
+18d9  e0 78 f0  jp 0953
+18dc  e0 2e f2  jp 0b0c
+18df  90        load immediate 0
+18e0  3d 1d     store global word 29
+18e2  48        load global word8
+18e3  2d 1d     load global word 29
+18e5  8d ff     load immediate 255
+18e7  dc        limit_check
+18e8  8e ff ff  load immediate -1
+18eb  1e        store indexed word
+18ec  45        load global word5
+18ed  2d 1d     load global word 29
+18ef  8d ff     load immediate 255
+18f1  dc        limit_check
+18f2  8e ff ff  load immediate -1
+18f5  1e        store indexed word
+18f6  2d 1d     load global word 29
+18f8  ac        inc
+18f9  3d 1d     store global word 29
+18fb  2d 1d     load global word 29
+18fd  8d ff     load immediate 255
+18ff  a3        ugreater_than
+1900  e5 20     jpfalse 18e2
+1902  90        load immediate 0
+1903  3d 1d     store global word 29
+1905  4a        load global word10
+1906  2d 1d     load global word 29
+1908  9f        load immediate 15
+1909  dc        limit_check
+190a  90        load immediate 0
+190b  1e        store indexed word
+190c  2d 1d     load global word 29
+190e  ac        inc
+190f  3d 1d     store global word 29
+1911  2d 1d     load global word 29
+1913  9f        load immediate 15
+1914  a3        ugreater_than
+1915  e5 12     jpfalse 1905
+1917  92        load immediate 2
+1918  8c 12  .. load immediate string "NAME   START   LEN"
+192c  8d 11     load immediate 17
+192e  f0 59     call ›âZâüá°á.proc9
+1930  92        load immediate 2
+1931  f0 5e     call ›âZâüá°á.proc14
+1933  ed 31     call proc49
+1935  92        load immediate 2
+1936  f0 5e     call ›âZâüá°á.proc14
+1938  ed 1b     call proc27
+193a  83 00 04  load address Zâüá°átá.WORD4
+193d  0c 44     load TEXTS.word4
+193f  8d 13     load immediate 19
+1941  f0 15     call °átáJá“ÿ.proc5
+1943  50        end_program
+1944  8c 0d  .. load immediate string "OUT OF MEMORY"
+1953  9c        load immediate 12
+1954  ed 10     call proc16
+1956  50        end_program
+1957  8c 09  .. load immediate string "DISK FULL"
+1962  98        load immediate 8
+1963  ed 10     call proc16
+1965  50        end_program
+1966  02 1a     load proc_addr proc26
+1968  03        load param1
+1969  ed ff     call proc255
+196b  05        load param3
+196c  00        Error16
+196d  d6        real_add
+196e  ff        call proc15
+196f  28        load local word-8
+1970  fd        call proc13
+1971  65        load stack word5
+1972  fd        call proc13
+1973  7a        store stack word10
+1974  f5        call proc5
+1975  ab        eq0
+1976  f4        call proc4
+1977  93        load immediate 3
+1978  f5        call proc5
+1979  8a        leave4
+197a  f3        call proc3
+197b  08 f3     load local dword-13
+197d  5f        store global word15
+197e  f1        call proc1
+197f  74        store stack word4
+1980  f1        call proc1
+1981  22        load local word-2
+1982  f1        call proc1
+1983  e5 f0     jpfalse 1895
+1985  c7        dsub
+1986  f0 a4     call .proc4
+1988  f0 7c     call .proc12
+198a  f0 d6     call .proc6
+198c  ef ba ef  call �H�œ�I.proc239
+198f  cd ee eb ed 6e ed 03  callswitch (return to 1d82)
+1996  ed 97     call proc151
+1998  ec 31     nested_call proc49
+199a  ec 1d     nested_call proc29
+199c  f0 e3     call .proc3
+199e  eb        extern_proc_call
+199f  13        store param1
+19a0  eb        extern_proc_call
+19a1  b2        iless_than
+19a2  ea        power2
+19a3  a7        sub
+19a4  ea        power2
+19a5  8f ea 78 ea 53  load immediate dword 1407875306
+19aa  ea        power2
+19ab  38        store local word-8
+19ac  ea        power2
+19ad  00        Error16
+19ae  ea        power2
+19af  7f        store stack word15
+19b0  e7        bitwise_in
+19b1  4e        load global word14
+19b2  e7        bitwise_in
+19b3  89        leave2
+19b4  e6        bitwise_or
+19b5  4a        load global word10
+19b6  e6        bitwise_or
+19b7  60        load stack word0
+19b8  f1        call proc1
+19b9  47        load global word7
+19ba  f1        call proc1
+19bb  e3 ef     jpfalse 1aac
+19bd  d1        isub_checked
+19be  ef 2d ee  call .proc238
+19c1  34        store local word-4
+19c2  ec 82     nested_call proc130
+19c4  e9        bitwise_xor
+19c5  1d        store indexed byte
+19c6  e7        bitwise_in
+19c7  fe        call proc14
+19c8  e6        bitwise_or
+19c9  dc        limit_check
+19ca  e6        bitwise_or
+19cb  b7        complement
+19cc  e6        bitwise_or
+19cd  99        load immediate 9
+19ce  e6        bitwise_or
+19cf  b1 e9     shr 233
+19d1  44        load global word4
+19d2  e6        bitwise_or
+
+
+

src/compiler/GENZ80.MOD

@@ -0,0 +1,1010 @@
+(* GENZ80.MOD — DRAFT v1, assembled 2026-10-04, NOT verified.
+   Reconstructed from /tmp/opencode/genz80.txt (5831 lines, disassembled
+   from the ORIGINAL Turbo Modula-2 CP/M disk /home/eric/bin/CPM/cpm-dist/D/
+   genz80.mcd via hardened unassemble_fix) by three parallel passes
+   (groups 1 @1a35-1dc9 emit core, 2 @1dae-23af stack/registers,
+   3 @23af-end operators/statements). MCD diff pending.
+
+   Module name decodes as INTELL (kept in comments; file stays GENZ80.MOD
+   since Loader.Call("GENZ80") loads by file name). Dep table: SCANNER,
+   NATIVE, COMPILER, COMLINE (+ nonempty 5th slot = TEXTS?). NATIVE module
+   has no recovered DEF — N-prefix calls are NATIVE.procN, kept as local
+   FORWARD stubs. E1/E2/E3/E4 normalized to EmitByte(s)/EmitOpWord forms.
+   Group-2 MovReg dropped in favor of group-1 MoveReg (same MCD @1d4c).
+   Driver (callswitch @392d, cases 90-94) + epilogue (DEALLOCATEs,
+   NATIVE.proc13/proc1) NOT covered by any group — next mini-pass.
+   Frame rule: "param1" = LAST pushed word. Words(X)^[N] = untyped pun.
+   GOTO-free; Z80 opcode decimals kept alongside hex where identified. *)
+
+IMPLEMENTATION MODULE GenZ80;
+IMPORT SCANNER, Compiler, ComLine, Native;
+FROM SYSTEM IMPORT ADDRESS, WORD, VAL;
+FROM STORAGE IMPORT ALLOCATE, DEALLOCATE;
+
+TYPE Words = POINTER TO ARRAY [0..4095] OF WORD;
+
+VAR
+  codePos: CARDINAL;    (* word2: next emit offset *)
+  opMode: CARDINAL;     (* word3: operand mode (group2 opReg) *)
+  opFlag: CARDINAL;     (* word4: operand-stack flag (group3 G4 reads TBD) *)
+  auxFlag5: CARDINAL;   (* word5: prefix-pending flag (group3 G5) *)
+  opSaveA0, opSaveA1: CARDINAL; (* words 6,7: saved pair A (group3: kinds) *)
+  opSaveB0, opSaveB1: CARDINAL; (* words 8,9: saved pair B (group3: reg codes) *)
+  opSaveC0, opSaveC1: CARDINAL; (* words 10,11: saved pair C (group3: disps) *)
+  fixA, fixB, fixC: CARDINAL;   (* words 12-14: fixup slots (group3 G12-14) *)
+  codeBase: CARDINAL;   (* word15: file offset of window start *)
+  codeLimit: CARDINAL;  (* word16: first offset NOT buffered *)
+  codeBuf: ADDRESS;     (* word17: 2K staging buffer base *)
+  codeBytes: POINTER TO ARRAY [0..2047] OF BYTE; (* byte overlay *)
+  regAlloc: BITSET;     (* word18: allocated regs mask *)
+  regTmp: BITSET;       (* word19: temp/locked set *)
+  regKeep: BITSET;      (* word20: live-across set *)
+  regUsed: BITSET;      (* word21: used/dirty set *)
+  regWant: BITSET;      (* word22: wanted set *)
+  regDrop: BITSET;      (* word23: droppable set *)
+  regDest: BITSET;      (* word24: destroyed set *)
+  regScr: BITSET;       (* word25: scratch set *)
+  regDesc: ADDRESS;     (* word26: reg descriptor table, 8 bytes/entry *)
+  scrReg: CARDINAL;     (* word27: current scratch reg *)
+
+(* ---- group-1 local FORWARDs ---- *)
+PROCEDURE Proc27WriteHex(val, width: CARDINAL); FORWARD;
+PROCEDURE Proc6Sync(); FORWARD;
+PROCEDURE Proc30Sync(); FORWARD;
+PROCEDURE NatStore3(a, b, c: CARDINAL); FORWARD; (* NATIVE.proc2 3-push site *)
+PROCEDURE NatStore4(a, b, c, d: CARDINAL); FORWARD; (* NATIVE.proc2 4-push site *)
+(* ---- group-2 externals (same-module, outside covered ranges?) ---- *)
+PROCEDURE EmitOp(b1, b2: CARDINAL); FORWARD;
+PROCEDURE EmitOp3(b1, b2, b3: CARDINAL); FORWARD;
+PROCEDURE LoadRegField(d: ADDRESS); FORWARD;
+PROCEDURE SpillReg(r: CARDINAL); FORWARD;
+PROCEDURE FillReg(r: CARDINAL); FORWARD;
+PROCEDURE MoveOp(a, b, c, d: CARDINAL); FORWARD;
+PROCEDURE FlushOp(a, b, c: CARDINAL); FORWARD;
+PROCEDURE CheckRegs(cond: BOOLEAN); FORWARD; (* NATIVE.proc1 *)
+PROCEDURE EmitFor(a, b: CARDINAL); FORWARD;
+PROCEDURE AllocTemp(a, b, c: ADDRESS; d: BOOLEAN; e, f: CARDINAL); FORWARD; (* FIXME arity *)
+PROCEDURE MatchOp(a, b: CARDINAL; VAR r: CARDINAL): BOOLEAN; FORWARD; (* FIXME *)
+(* ---- group-3 externals ---- *)
+PROCEDURE P9; FORWARD; PROCEDURE P10; FORWARD;
+PROCEDURE P11(x: CARDINAL); FORWARD;
+PROCEDURE P12(a, b, c: CARDINAL); FORWARD;
+PROCEDURE P18(a: CARDINAL; b: CARDINAL); FORWARD;
+PROCEDURE P22(a: ADDRESS; b: BOOLEAN; c, d: CARDINAL); FORWARD;
+PROCEDURE P23(x: ADDRESS); FORWARD;
+PROCEDURE P24(x: CARDINAL); FORWARD;
+PROCEDURE P31(x: CARDINAL): CARDINAL; FORWARD;
+PROCEDURE P32(a: CARDINAL; b: CARDINAL; c: ADDRESS; d: CARDINAL); FORWARD;
+PROCEDURE P33; FORWARD;
+PROCEDURE P34(a, b: CARDINAL): BOOLEAN; FORWARD;
+PROCEDURE P36(a, b: CARDINAL; c: CARDINAL; VAR d, e: ADDRESS; VAR f: CARDINAL); FORWARD; (* FIXME *)
+PROCEDURE P37(x: CARDINAL): BOOLEAN; FORWARD;
+PROCEDURE P38; FORWARD;
+PROCEDURE P39(x: CARDINAL); FORWARD;
+PROCEDURE P40(x: CARDINAL): CARDINAL; FORWARD;
+PROCEDURE P41(x: ADDRESS); FORWARD;
+PROCEDURE P42(x: ADDRESS); FORWARD;
+PROCEDURE P45(x: CARDINAL); FORWARD;
+PROCEDURE P46(a, b: CARDINAL); FORWARD;
+PROCEDURE P47; FORWARD;
+PROCEDURE P48(a, b, c: CARDINAL); FORWARD;
+PROCEDURE P49(a, b: CARDINAL); FORWARD;
+PROCEDURE P50(x: CARDINAL); FORWARD;
+PROCEDURE P51(a, b, c, d, e: CARDINAL); FORWARD;
+PROCEDURE N1(x: CARDINAL); FORWARD; PROCEDURE N2(x: CARDINAL); FORWARD;
+PROCEDURE N4(): BOOLEAN; FORWARD; PROCEDURE N5(x: CARDINAL); FORWARD;
+PROCEDURE N6(x: CARDINAL): BOOLEAN; FORWARD; PROCEDURE N7(x: CARDINAL): BOOLEAN; FORWARD;
+PROCEDURE N8; FORWARD; PROCEDURE N9(x: CARDINAL); FORWARD;
+PROCEDURE N10(a, b, c: CARDINAL); FORWARD;
+PROCEDURE N12(x: ADDRESS); FORWARD; PROCEDURE N13; FORWARD; PROCEDURE N14(x: CARDINAL); FORWARD;
+PROCEDURE N46(a, b: CARDINAL); FORWARD;
+PROCEDURE Raise(code: CARDINAL); FORWARD; (* MCode RAISE emulation TBD *)
+
+(* GENZ80 group 1 — emit core @1a35-1dc9 (+ entry 3966).
+   Module name "INTELL" kept verbatim (decoded MCD name quirk).
+   Dep table: SCANNER, NATIVE, COMPILER, COMLINE (no CodeGen/Files/Texts). *)
+
+(* WRITEH {1a35}: 6-byte body only (enter -7, reserve 5, leave4).
+   Abandoned stub or misclassified data. UNKNOWN. *)
+PROCEDURE Stub1a35;
+VAR tmp: ADDRESS;
+BEGIN
+END Stub1a35;
+
+(* FLUSHC {1a41} -> FlushCode: flush emit window, compact staging buffer. *)
+PROCEDURE FlushCode;
+VAR tmp: ADDRESS;
+    n: CARDINAL;
+BEGIN (* {1a41} *)
+  IF codeBase = 0 THEN (* {1a47-1a49} *)
+    n := 1008; (* {1a53-1a56} FIXME: 3-push call arities vs SCANNER.DEF *)
+  ELSE
+    n := 1024; (* {1a59-1a5c} *)
+  END;
+  (* {1a5d-1a65} FIXME: seek code output to codeBase+16? *)
+  (* {1a68-1a6d} FIXME: write n bytes from codeBuf? *)
+  codeBase  := codeBase + n; (* {1a70-1a73} *)
+  codeLimit := codeLimit + n; (* {1a74-1a78} *)
+  (* {1a7a-1a83} MOVE(src, dst, len) sliding compaction FIXME order *)
+END FlushCode;
+
+(* PUTCOD {1a8c} -> PutCode: patch addressed word, return previous word. *)
+PROCEDURE PutCode(mAddr, value: CARDINAL): CARDINAL;
+VAR old: CARDINAL;
+BEGIN (* {1a8c} *)
+  IF mAddr >= codeBase THEN (* {1a8e-1a91} *)
+    old := VAL(CARDINAL, codeBytes^[mAddr - codeBase])
+         + 256 * VAL(CARDINAL, codeBytes^[mAddr - codeBase + 1]); (* {1a93-1aad} *)
+    codeBytes^[mAddr - codeBase] := VAL(BYTE, value MOD 256); (* {1aaf-1abc} *)
+    codeBytes^[mAddr - codeBase + 1] := VAL(BYTE, value DIV 256); (* {1ac0-1ad1} *)
+  ELSE
+    (* {1ad4-1af3} spilled-to-file path FIXME transliterated *)
+    old := 0; (* FIXME placeholder *)
+  END;
+  RETURN old; (* {1af5} *)
+END PutCode;
+
+(* WRITEN {1b02} -> WriteCodeListing: ComLine listing helper. *)
+PROCEDURE WriteCodeListing;
+BEGIN (* {1b02} *)
+  ComLine.proc14(2); (* {1b04-1b05} FIXME *)
+  Proc27WriteHex(codePos, 4); (* {1b07-1b09} local proc27 FIXME *)
+  ComLine.proc9(2, " : ", 2); (* {1b0c-1b12} FIXME *)
+END WriteCodeListing;
+
+(* CODE1 {1b1b} -> EmitByte. Flush-if-full append. *)
+PROCEDURE EmitByte(b: CARDINAL);
+BEGIN (* {1b1b} *)
+  IF Native.word3 THEN RETURN END; (* {1b1d-1b21} FIXME direct flag *)
+  IF codePos >= codeLimit THEN FlushCode END; (* {1b22-1b28} FIXME: local proc28 ~ FlushCode alias? *)
+  codeBytes^[codePos - codeBase] := VAL(BYTE, b MOD 256); (* {1b2a-1b37} *)
+  INC(codePos); (* {1b38-1b3b} *)
+END EmitByte;
+
+(* CODE11 {1b43} -> EmitBytes2. *)
+PROCEDURE EmitBytes2(b0, b1: CARDINAL);
+BEGIN (* {1b43} *)
+  IF Native.word3 THEN RETURN END;
+  IF codePos + 1 >= codeLimit THEN FlushCode END;
+  codeBytes^[codePos - codeBase] := VAL(BYTE, b0 MOD 256);
+  codeBytes^[codePos - codeBase + 1] := VAL(BYTE, b1 MOD 256);
+  codePos := codePos + 2;
+END EmitBytes2;
+
+(* CODE11 {1b7d} -> EmitBytes3. *)
+PROCEDURE EmitBytes3(b0, b1, b2: CARDINAL);
+BEGIN (* {1b7d} *)
+  IF Native.word3 THEN RETURN END;
+  IF codePos + 2 >= codeLimit THEN FlushCode END;
+  codeBytes^[codePos - codeBase] := VAL(BYTE, b0 MOD 256);
+  codeBytes^[codePos - codeBase + 1] := VAL(BYTE, b1 MOD 256);
+  codeBytes^[codePos - codeBase + 2] := VAL(BYTE, b2 MOD 256);
+  codePos := codePos + 3;
+END EmitBytes3;
+
+(* CODE11 {1bc7} -> EmitBytes4. *)
+PROCEDURE EmitBytes4(b0, b1, b2, b3: CARDINAL);
+BEGIN (* {1bc7} *)
+  IF Native.word3 THEN RETURN END;
+  IF codePos + 3 >= codeLimit THEN FlushCode END;
+  codeBytes^[codePos - codeBase] := VAL(BYTE, b0 MOD 256);
+  codeBytes^[codePos - codeBase + 1] := VAL(BYTE, b1 MOD 256);
+  codeBytes^[codePos - codeBase + 2] := VAL(BYTE, b2 MOD 256);
+  codeBytes^[codePos - codeBase + 3] := VAL(BYTE, b3 MOD 256);
+  codePos := codePos + 4;
+END EmitBytes4;
+
+(* CODE2 {1c23} -> EmitWord: little-endian 16-bit append. *)
+PROCEDURE EmitWord(w: CARDINAL);
+BEGIN (* {1c23} *)
+  IF Native.word3 THEN RETURN END;
+  IF codePos + 1 >= codeLimit THEN FlushCode END;
+  codeBytes^[codePos - codeBase] := VAL(BYTE, w MOD 256);
+  codeBytes^[codePos - codeBase + 1] := VAL(BYTE, w DIV 256);
+  codePos := codePos + 2;
+END EmitWord;
+
+(* CODE12 {1c62} -> EmitOpWord: opcode + 16-bit operand. *)
+PROCEDURE EmitOpWord(op, w: CARDINAL);
+BEGIN (* {1c62} *)
+  IF Native.word3 THEN RETURN END;
+  IF codePos + 2 >= codeLimit THEN FlushCode END;
+  codeBytes^[codePos - codeBase] := VAL(BYTE, op MOD 256);
+  codeBytes^[codePos - codeBase + 1] := VAL(BYTE, w MOD 256);
+  codeBytes^[codePos - codeBase + 2] := VAL(BYTE, w DIV 256);
+  codePos := codePos + 3;
+END EmitOpWord;
+
+(* CODE12 {1cb1} -> EmitOpByteWord: opcode + byte + word. *)
+PROCEDURE EmitOpByteWord(op, b, w: CARDINAL);
+BEGIN (* {1cb1} *)
+  IF Native.word3 THEN RETURN END;
+  IF codePos + 3 >= codeLimit THEN FlushCode END;
+  codeBytes^[codePos - codeBase] := VAL(BYTE, op MOD 256);
+  codeBytes^[codePos - codeBase + 1] := VAL(BYTE, b MOD 256);
+  codeBytes^[codePos - codeBase + 2] := VAL(BYTE, w MOD 256);
+  codeBytes^[codePos - codeBase + 3] := VAL(BYTE, w DIV 256);
+  codePos := codePos + 4;
+END EmitOpByteWord;
+
+(* WRITEC {1d10} -> WriteCode: flush staged bytes, reset window. *)
+PROCEDURE WriteCode(dest: CARDINAL);
+BEGIN (* {1d10} *)
+  (* {1d12-1d23} FIXME: seek + write staged bytes, helper arities TBD *)
+  codePos   := 0;    (* {1d27-1d29} shared init block *)
+  codeBase  := 0;
+  codeLimit := 2047; (* 2K window *)
+  (* {1d30} jp 396b: driver epilogue tail (groups 2+, callswitch @392d) *)
+END WriteCode;
+
+(* EVEN {1d39} -> AlignEven: round address UP to even. *)
+PROCEDURE AlignEven(a: CARDINAL): CARDINAL;
+BEGIN (* {1d39} *)
+  RETURN a + (a MOD 2); (* {1d3b-1d40} *)
+END AlignEven;
+
+(* MOVREG {1d4c} -> MoveReg: Z80 register/move emitter (DD/ED prefixes).
+   Pushes source-order (mode, flag, disp, reg): param4 = mode (word/IX
+   class iff = 4), param3 = flag, param2 = displacement, param1 = reg. *)
+PROCEDURE MoveReg(mode, flag, disp, reg: CARDINAL);
+VAR lo, hi: CARDINAL;
+BEGIN (* {1d4c} *)
+  IF mode = 4 THEN (* word/IX class *)
+    IF flag <> 0 THEN lo := 113; hi := 112; (* 71H/70H *)
+    ELSE lo := 78; hi := 70; END; (* 4EH/46H *)
+    reg := reg DIV 8; (* FIXME: callee modifies param; 48-limit TBD *)
+    EmitBytes3(221, lo + reg, disp); (* DD prefix *)
+    EmitBytes3(221, hi + reg, disp + 1);
+  ELSE
+    lo := flag * 8;
+    IF reg = 32 THEN (* 20H class *)
+      NatStore3(42 - lo, codePos + 1, disp); (* 2AH FIXME *)
+      Proc6Sync();
+    ELSE
+      NatStore4(237, 75 - lo + reg, codePos + 2, disp); (* ED FIXME; arity paradox, see header *)
+      Proc30Sync();
+    END;
+  END;
+END MoveReg;
+
+(* GENZ80 group 2 — operand stack + Z80 register allocator.
+   Externals (same-module procs outside this range, or NATIVE module):
+   EmitByte=proc1, EmitOp=proc3(2-byte), EmitOp3=proc3(3-arg use),
+   LoadRegField=proc11, SpillReg=proc35, FillReg=proc23, MoveOp=proc32,
+   FlushOp=proc20, CheckRegs=NATIVE.proc1. Kept as FORWARDs. *)
+
+PROCEDURE PushOperand(); (* 1dc9 PUSHTO *)
+BEGIN
+  IF opFlag THEN EmitByte(229); (* PUSH HL FIXME *) opFlag := FALSE END;
+END PushOperand;
+
+PROCEDURE PopOperand(); (* 1dda POPTOP *)
+BEGIN
+  IF NOT opFlag THEN EmitByte(225); (* POP HL FIXME *) opFlag := TRUE END;
+END PopOperand;
+
+PROCEDURE MakeHandle(mode: CARDINAL); (* 1dec MAKEHA FIXME *)
+BEGIN
+  IF opMode <> mode THEN
+    PopOperand(); EmitByte(217); (* EXCH? FIXME *) opMode := mode;
+  END;
+END MakeHandle;
+
+(* MovReg @1d4c: group-1 MoveReg kept (same MCD proc); group-2 variant dropped. *)
+
+PROCEDURE SwapOperands(); (* 1dae SWAPOP *)
+VAR t2, t3, t4: CARDINAL;
+BEGIN
+  t2 := opSaveA0; t3 := opSaveB0; t4 := opSaveC0;
+  opSaveA0 := opSaveA1; opSaveB0 := opSaveB1; opSaveC0 := opSaveC1;
+  opSaveA1 := t2; opSaveB1 := t3; opSaveC1 := t4;
+END SwapOperands;
+
+PROCEDURE InRegister(p1: CARDINAL; p2: CARDINAL; p3: CARDINAL): BOOLEAN; (* 1e00 INREG FIXME *)
+VAR i: CARDINAL; d: ADDRESS;
+BEGIN
+  IF ((p3 = 3) AND (Native.word2 = 0)) OR (p3 = 4) THEN
+    i := 0;
+    LOOP
+      d := regDesc + i * 8;
+      IF (Words(d)^[1] = p2) AND (i IN regAlloc) AND (Words(d)^[0] = p3) THEN p1 := i; RETURN TRUE END;
+      INC(i); IF i > 3 THEN EXIT END;
+    END;
+  END;
+  RETURN FALSE;
+END InRegister;
+
+PROCEDURE FreeReg(lo: CARDINAL); (* 1e47 POPREG FIXME *)
+VAR i: CARDINAL; d: ADDRESS;
+BEGIN
+  i := 0;
+  WHILE i <= lo DO
+    i := ORD(BITSET{i} * BITSET{3}); (* limit_check FIXME *)
+    IF i IN regUsed THEN
+      d := regDesc + i * 8;
+      CheckRegs((Words(d)^[2] = opMode) OR NOT opFlag);
+      LoadRegField(d); EmitByte(193 + Words(d)^[3]); (* POP reg FIXME *)
+      regUsed := regUsed - BITSET{i}; regDest := regDest - BITSET{i};
+    END;
+    INC(i);
+  END;
+END FreeReg;
+
+PROCEDURE LookIf(p1: CARDINAL; p2: CARDINAL; p3: CARDINAL; p4: CARDINAL; p5: CARDINAL); (* 1e92 LOOKIF FIXME *)
+VAR reg, d: CARDINAL;
+BEGIN
+  p5 := p5 - (p5 AND 1);
+  IF MatchOp(p3, p5 - 8, p5, reg) THEN (* proc34 FIXME *)
+    IF p3 # 0 THEN
+      CheckRegs(NOT (reg IN (regUsed * regDest)));
+      d := regDesc + reg * 8;
+      p2 := Words(d)^[2]; p1 := Words(d)^[3]; (* FIXME field order *)
+      IF NOT p4 AND (reg IN regDest) THEN
+        IF reg IN regUsed THEN SpillReg(reg)
+        ELSIF reg IN regKeep THEN
+          LoadRegField(d); MoveOp(Words(d)^[0], 0, Words(d)^[1], Words(d)^[3]);
+        END;
+        regDest := regDest - BITSET{reg};
+      END;
+    END;
+  END;
+END LookIf;
+
+PROCEDURE UseReg(kind: CARDINAL; size: CARDINAL; mode: CARDINAL): CARDINAL; (* 1ef8 USEREG FIXME *)
+VAR i, r, last: CARDINAL;
+BEGIN
+  kind := kind MOD 256; i := size; last := kind + i - 2;
+  WHILE i <= last DO
+    IF MatchOp(mode, i, r) THEN (* proc34 *)
+      regWant := regWant + BITSET{r};
+      IF r IN (regUsed * regDest) THEN SpillReg(r) END;
+    ELSIF MatchOp(mode - 2, 9, i, r) THEN
+      regTmp := regTmp + BITSET{r};
+      IF r IN regUsed THEN SpillReg(r) END;
+    END;
+    INC(i);
+  END;
+END UseReg;
+
+PROCEDURE LoadAddress(); (* 1f54 ADDRES FIXME *)
+VAR i: CARDINAL;
+BEGIN
+  regTmp := regAlloc; i := 0;
+  WHILE i <= 3 DO SpillReg(i); INC(i) END;
+END LoadAddress;
+
+PROCEDURE StoreResult(mode: CARDINAL); (* 1f6e STORER FIXME *)
+VAR i, cnt: CARDINAL; d: ADDRESS;
+BEGIN
+  CheckRegs((regTmp * regUsed) = BITSET{});
+  i := 3; cnt := 0;
+  LOOP
+    INC(i);
+    IF i < cnt + 1 THEN EXIT END;
+    DEC(i);
+    IF i IN regAlloc THEN
+      d := regDesc + i * 8;
+      IF (i IN (regTmp - regKeep)) THEN
+        LoadRegField(d); MoveOp(Words(d)^[0], 1, Words(d)^[1], Words(d)^[3]);
+        regKeep := regKeep + BITSET{i};
+      ELSIF (i IN (regDrop * BITSET{mode} - (regKeep + regUsed + regDest))) THEN
+        SpillReg(i); LoadRegField(d); EmitByte(197 + Words(d)^[3]); (* PUSH reg FIXME *)
+        regUsed := regUsed + BITSET{i};
+      END;
+    END;
+  END;
+  regDest := regDest + (regAlloc * BITSET{mode} + regTmp - regWant);
+END StoreResult;
+
+PROCEDURE PushReg(kind: CARDINAL); (* 1ff9 POPREG(2nd label) FIXME *)
+VAR i: CARDINAL;
+BEGIN
+  CheckRegs(NOT opFlag AND NOT (opMode # 0) AND (kind IN BITSET{276}));
+  IF regUsed # BITSET{} THEN
+    EmitByte(225); (* POP HL FIXME *)
+    IF kind >= 4 THEN EmitByte(241) END; (* POP AF FIXME *)
+    IF kind = 8 THEN LoadRegField(1); EmitBytes3(225, 253, 225) END;
+    i := 0;
+    WHILE i <= 3 DO IF i IN regUsed THEN SpillReg(i) END; INC(i) END;
+    IF kind = 8 THEN LoadRegField(1); EmitBytes3(253, 229, 229) END;
+    LoadRegField(0);
+    IF kind >= 4 THEN EmitByte(245) END;
+    opFlag := TRUE;
+  END;
+END PushReg;
+
+PROCEDURE AllocReg(p1: CARDINAL; p2: CARDINAL; p3: CARDINAL); (* 205e REGALL FIXME *)
+VAR i, n, base: CARDINAL; d: ADDRESS;
+BEGIN
+  base := p2; n := base + p1;
+  IF p1 > 4 THEN n := 4; base := 0 END;
+  IF n > 4 THEN base := 4 - p1; n := 4 END;
+  regAlloc := {}; regUsed := {}; regScr := {}; regTmp := {}; regDest := {};
+  i := 0;
+  WHILE i < n DO
+    regAlloc := regAlloc + BITSET{i MOD 4};
+    d := regDesc + (i MOD 4) * 8;
+    Words(d)^[0] := p3; Words(d)^[2] := ORD(i >= 2); Words(d)^[3] := (i MOD 2) * 16 + 48;
+    IF i < base THEN
+      Words(d)^[1] := (p2 - i) * 2 + 4; regDest := regDest + BITSET{i MOD 4};
+    ELSIF p3 = 4 THEN
+      Words(d)^[1] := 256 - (i - base) * 2 - 4;
+    ELSE
+      Words(d)^[1] := i * 2 + 4;
+    END;
+    INC(i);
+  END;
+  regKeep := regAlloc; regDrop := regAlloc;
+END AllocReg;
+
+PROCEDURE FreeAllRegs(); (* 2101 RESREG FIXME *)
+BEGIN
+  regTmp := {}; regWant := {}; Native.word4 := 0;
+END FreeAllRegs;
+
+PROCEDURE NormResult(p1: BOOLEAN; p2: CARDINAL): CARDINAL; (* 2113 NORMRE FIXME *)
+VAR lo, i, cnt, lim: CARDINAL; d: ADDRESS; keep: BOOLEAN;
+BEGIN
+  lo := p2 MOD 16; i := 0;
+  IF Native.word3 THEN regUsed := lo; regDest := p2 DIV 16 END;
+  i := 3; cnt := 0;
+  LOOP INC(i); IF i >= cnt + 1 THEN EXIT END; DEC(i);
+    d := regDesc + i * 8;
+    keep := p1 AND (i IN regUsed) <> (i IN BITSET{lo});
+    IF keep THEN SpillReg(i) END;
+    IF i IN (regDest * regKeep - regUsed) THEN
+      LoadRegField(d); MoveOp(Words(d)^[0], 0, Words(d)^[1], Words(d)^[3]);
+      regDest := regDest - BITSET{i};
+    END;
+    IF keep AND (i IN BITSET{lo}) THEN
+      LoadRegField(d); EmitByte(197 + Words(d)^[3]); (* PUSH FIXME *)
+      regUsed := regUsed + BITSET{i};
+    END;
+  END;
+  IF p1 THEN lim := p2 DIV 16; regDest := regDest + BITSET{lim} END
+  ELSE p2 := regUsed + regDest * 16;
+  END;
+  CheckRegs((regDest * (BITSET{} - regUsed)) = BITSET{});
+  regKeep := {}; regDrop := regAlloc;
+  RETURN i;
+END NormResult;
+
+PROCEDURE DestroyReg(r: CARDINAL); (* 21c3 DESTRO FIXME *)
+BEGIN
+  regDest := regDest + (regDest * regAlloc * BITSET{r}) + regTmp;
+END DestroyReg;
+
+PROCEDURE DropRegs(); (* 21da DROPRE FIXME *)
+BEGIN
+  regDrop := {};
+END DropRegs;
+
+PROCEDURE ScratchAlloc(p1: CARDINAL): BOOLEAN; (* 21e6 SCRATC FIXME *)
+VAR lo, hi, i: CARDINAL;
+BEGIN
+  lo := (opMode * 2) MOD 4; hi := lo + 1; i := lo;
+  WHILE i <= hi DO
+    IF (i IN (BITSET{15} - regAlloc + regDest)) THEN
+      p1 := (i MOD 2) * 16 + 48; scrReg := i; RETURN TRUE;
+    END;
+    INC(i);
+  END;
+  RETURN FALSE;
+END ScratchAlloc;
+
+PROCEDURE UseScratch(); (* 222c USESCR FIXME *)
+BEGIN
+  regScr := regScr + BITSET{scrReg};
+END UseScratch;
+
+PROCEDURE GetUse(): CARDINAL; (* 223d GETUSE FIXME *)
+BEGIN
+  RETURN ORD(regAlloc + regScr + BITSET{3}) MOD 256;
+END GetUse;
+
+PROCEDURE NilTest(op: ADDRESS); (* 2255 NILT FIXME *)
+VAR mode: CARDINAL; tmp: ADDRESS; ok: BOOLEAN;
+BEGIN
+  mode := Words(op)^[0];
+  IF (Words(op)^[2] = 2) AND (Words(op)^[3] = 103) THEN
+    op := Words(op)^[4]; AllocTemp(op, tmp, ok); (* proc36 FIXME *)
+    IF ok THEN LoadRegField(tmp)
+    ELSE FillReg(Words(op)^[0]); FlushOp(4, 121 + Words(tmp)^[2], 176 + Words(tmp)^[2]);
+    END;
+    EmitOp(204, 1367); (* CALL FIXME *)
+    op := Words(op)^[0];
+    DEALLOCATE(op, 12);
+  END;
+END NilTest;
+
+PROCEDURE RotateReg(r: CARDINAL): CARDINAL; (* 22bd RR FIXME *)
+BEGIN
+  CASE r OF
+    91: RETURN 0 | 92: RETURN 16 | 93: RETURN 32 |
+  ELSE RETURN 0;
+  END;
+END RotateReg;
+
+PROCEDURE Dispose(op: ADDRESS); (* 22f9 DISPOS FIXME *)
+VAR i, n: CARDINAL;
+BEGIN
+  IF (Words(op)^[2] = 2) THEN
+    i := 1; n := Native.proc4(Words(op)^[3]); (* FIXME *)
+    WHILE i <= n DO DEALLOCATE(Words(op)^[4 + (i - 1) * 2], 12); INC(i) END;
+  END;
+END Dispose;
+
+PROCEDURE Prelude(p1, p2, p3, p4, p5, frame: ADDRESS); (* 2329 PRELUD FIXME *)
+VAR sw: CARDINAL;
+BEGIN
+  IF frame # NIL THEN
+    CheckRegs(123 IN BITSET{frame^[2]}); (* FIXME: frame word pun *)
+    IF frame^[2] = 90 THEN EmitFor(p4, 4) (* FIXME: EmitFor NYC *)
+    ELSIF frame^[2] = 91 THEN EmitFor(p4, 7)
+    ELSIF frame^[2] = 93 THEN EmitByte(221); EmitByte(229)
+    ELSIF frame^[2] = 94 THEN EmitFor(p4, 5)
+    ELSIF frame^[2] = 95 THEN FillReg(frame); EmitFor(p4, 7)
+    ELSIF frame^[2] = 96 THEN EmitByte(221); EmitByte(229); EmitFor(p4, 7)
+    END;
+    AllocTemp(p3, p2, p1, frame, p5, p4); (* proc36 FIXME *)
+    IF p3^[0] # 0 THEN
+      IF p1^[0] = 0 THEN p4 := 1 ELSE p4 := 2 END;
+    ELSE p4 := 0;
+    END;
+  END;
+END Prelude;
+
+PROCEDURE Accum(p1: CARDINAL): CARDINAL; (* 23af ACC FIXME *)
+BEGIN
+  IF p1 = 0 THEN RETURN 1
+  ELSIF p1 = 16 THEN RETURN 2
+  ELSE CheckRegs(FALSE);
+  END;
+END Accum;
+
+PROCEDURE Preadjust(op: ADDRESS); (* 23d2 PREADD FIXME *)
+VAR tmp: ADDRESS; i, n: CARDINAL;
+BEGIN
+  tmp := op + 12; op := tmp;
+  IF (Words(op)^[2] = 2) THEN
+    IF Native.word4 AND (Native.proc4(Words(op)^[3]) >= 2) THEN
+      FillReg(Words(op)^[4]);
+    END;
+    i := 1; n := Native.proc4(Words(op)^[3]);
+    WHILE i <= n DO
+      FillReg(Words(op)^[4 + (i - 1)]);
+      INC(i);
+    END;
+  END;
+  IF Words(op)^[1] >= 4 THEN RETURN END;
+END Preadjust;
+(* GENZ80 group 3 — operators/statements @23af-end.
+   E1/E2/E3/E4 = EmitByte(s) procs; Pxx = local procs; Nxx = NATIVE module;
+   G-words mapped: codePos codePos, G3 opMode?, opFlag opFlag, auxFlag5 auxFlag5,
+   opSaveA0/opSaveA1 opSaveA-pair (operand kinds), opSaveB0/opSaveB1 opSaveB-pair (reg codes),
+   opSaveC0/opSaveC1 opSaveC-pair (displacements), fixA-14 fixA/B/C. *)
+
+PROCEDURE AccSize(op: CARDINAL): CARDINAL; (* ACC {23af} *)
+BEGIN
+  IF op = 0 THEN RETURN 1 END; (* {23b1} *)
+  IF op = 16 THEN RETURN 2 END; (* {23ba} *)
+  N1(0); (* {23c5} FIXME: trap bad size *)
+END AccSize;
+
+PROCEDURE LoadOperand1(disp: CARDINAL); (* LDAOP1 {2569}, op-A to ACC *)
+VAR k: CARDINAL;
+BEGIN
+  k := opSaveA0; (* opSaveA0 FIXME *)
+  CASE k OF
+    91, 92, 93: EmitByte(121 + (opSaveB0 DIV 8) - disp); (* {256e} LD A,r FIXME *)
+  | 94: IF disp # 0 THEN EmitBytes2(62, dispA DIV 256)
+        ELSE EmitBytes2(62, dispA MOD 256) END; (* {2578} LD A,n FIXME *)
+  | 95: EmitBytes3(221, 126, dispA + disp); (* {258b} LD A,(IX+d) FIXME *)
+  ELSE Raise(13); END;
+END LoadOperand1;
+
+PROCEDURE Operate(disp, base: CARDINAL); (* OPERAT {25b0}, ALU op B-side *)
+VAR k: CARDINAL;
+BEGIN
+  k := opSaveA1; (* opSaveA1 FIXME *)
+  CASE k OF
+    91, 92, 93: EmitByte(base + 1 + (opRegB DIV 8) - disp); (* {25b5} FIXME *)
+  | 94: IF disp # 0 THEN EmitBytes2(base + 70, dispB DIV 256)
+        ELSE EmitBytes2(base + 70, dispB MOD 256) END; (* {25c0} FIXME *)
+  | 95: EmitBytes3(221, base + 6, dispB + disp); (* {25d5} DD-prefixed FIXME *)
+  ELSE Raise(13); END;
+END Operate;
+
+PROCEDURE InOutPort(isOut: BOOLEAN); (* INPOUT {25fb} *)
+VAR tmp: ADDRESS; i: CARDINAL;
+BEGIN
+  IF NOT isOut THEN (* {25fd} IN path needs temp FIXME *)
+    Scanner.Allocate(tmp, 12); (* FIXME: group wrote NEW *)
+    N12(tmp); N12(tmp + 1);
+    P42(tmp); P45(0); P33;
+  END;
+  IF (opSaveA0 = 4) & isOut THEN (* {2627} FIXME exact cond *)
+    EmitBytes2(211 + 8 * ORD(isOut), dispA MOD 256); (* D3 OUT (n),A FIXME *)
+    IF isOut THEN EmitByte(111) END; (* 6F LD L,A FIXME *)
+  ELSIF opSaveA0 # 1 THEN (* {2642} *)
+    IF fixA # 0 & (fixB = 0) THEN EmitByte(197) ELSE P38 END; (* {2647} FIXME *)
+    IF opSaveA0 = 5 THEN EmitBytes3(221, 78, dispA) (* {265d} FIXME *)
+    ELSE EmitByte(73 + (opSaveB0 DIV 8)) END; (* {2665} FIXME *)
+  ELSE
+    EmitBytes2(237, 121 - 17 * ORD(isOut)); (* ED 79/68 FIXME *)
+  END;
+  IF auxFlag5 THEN EmitByte(209); auxFlag5 := 0 END; (* {2680} D1 POP DE? FIXME *)
+  IF isOut THEN EmitBytes2(38, 0) (* JR C? FIXME *)
+  ELSE
+    N12(tmp); N12(tmp + 1); Scanner.Deallocate(tmp, 12); (* FIXME *)
+  END;
+END InOutPort;
+
+PROCEDURE LoadOperator(); (* LOADOP {26b1} normalize operator state *)
+BEGIN
+  IF opSaveA0 = 5 THEN P32(4, 0, dispA, 32); (* {26b3} FIXME *)
+  ELSIF opSaveA0 IN BITSET{6} THEN (* FIXME set pun *)
+    EmitBytes2(96 + (opSaveB0 DIV 8), 105 + (opSaveB0 DIV 8)); (* {26c6} FIXME *)
+  ELSIF opSaveA0 = 4 THEN EmitOpWord(33, dispA); END; (* LD rr,nn FIXME *)
+  opSaveA0 := 3; opSaveB0 := 32; (* {26de} FIXME *)
+END LoadOperator;
+
+PROCEDURE CondJump(p1, p2: CARDINAL; p3: BOOLEAN; p4: ADDRESS);
+(* CONDJM {26ea}: MCode relop in p4 -> Z80 JP cc. *)
+VAR cc, tmpW, tmpB, saveG3: CARDINAL; desc: ADDRESS;
+    flag, bit: CARDINAL;
+BEGIN
+  cc := 0; desc := p4; (* {26ec} *)
+  P36(Words(desc)^[2], Words(desc)^[3], 0, flag, bit, tmpW); (* decode left FIXME *)
+  IF Words(desc)^[2] = 896 THEN P23(p4) END; (* 380h FIXME *)
+  CASE Words(desc)^[3] OF (* relop *)
+    90: IF ODD(Words(desc)^[0]) THEN cc := 1 ELSE cc := 2 END; (* ODD? *)
+  | 91: IF opFlag # 0 THEN EmitBytes2(203, 69); cc := 0; opFlag := 0; (* CB 45 FIXME *)
+        ELSE EmitByte(241); cc := 24 END; (* POP AF FIXME *)
+  | 93, 94: IF flag # 0 THEN P11(bit); EmitBytes2(203, 65 + (tmpW DIV 8)); cc := 0;
+        ELSIF Words(desc)^[2] = 4 THEN EmitBytes3(221, 203, Words(desc)^[3]);
+          EmitBytes4(70, Words(desc)^[3], 0, 0); cc := 0; (* FIXME *)
+        ELSE EmitBytes2(58, 0); N2(0); EmitByte(31); cc := 24 END;
+  | 92: IF (Words(desc)^[3] >= 160) & (Words(desc)^[3] <= 165) OR
+           (Words(desc)^[3] >= 178) & (Words(desc)^[3] <= 181) THEN
+          P42(p4);
+          IF (opSaveA1 = 4) & (Words(desc)^[3] = 163) & (dispB = 0) THEN Words(desc)^[3] := 161 END;
+          IF (opSaveA1 = 4) & (dispB <= 255) & (Words(desc)^[3] IN BITSET{160, 161}) THEN
+            P45(0);
+            IF dispB # 0 THEN N46(144, 0) END;
+            P33; N46(176, 1); P33; (* 8-bit compare FIXME *)
+          ELSIF (Words(desc)^[3] IN BITSET{164, 180}) THEN
+            P33; Words(desc)^[3] := Words(desc)^[3] + 1;
+          ELSIF (Words(desc)^[3] IN BITSET{163, 179}) THEN
+            P33; Words(desc)^[3] := Words(desc)^[3] - 1;
+          ELSIF Words(desc)^[3] IN BITSET{160, 161} THEN
+            IF opSaveA0 > opSaveA1 THEN P33 END;
+            IF (opSaveA1 = 3) & (opSaveA0 IN BITSET{6}) THEN
+              EmitBytes3(183, 237, 66 + opSaveB0); (* OR A / ED FIXME *)
+            ELSE
+              P45(0); N46(144, 0); saveG3 := opMode; (* G3 FIXME *)
+              IF (Words(desc)^[3] = 160) = p3 THEN EmitByte(194) END; (* FIXME *)
+              P11(saveG3); P45(1); N46(152, 1);
+            END;
+          ELSE
+            P45(0); N46(144, 0); P45(1); N46(152, 1);
+          END;
+        ELSE
+          CASE Words(desc)^[3] OF (* jump-kind FIXME *)
+            250: cc := 8; (* Z *)
+          | 251: cc := 0; (* NZ *)
+          | 255: cc := 16; (* NC *)
+          | 252: cc := 24; (* C *)
+          | 268, 271: EmitBytes2(226, 0); EmitBytes2(238, 128); (* BIT n,(HL) FIXME *)
+              N9(0);
+              IF Words(desc)^[3] = 181 THEN cc := 48 ELSE cc := 56 END;
+          ELSE Raise(13); END;
+        END;
+  | 95: IF (Words(desc)^[0] = 0) & (Words(desc)^[1] = 900) THEN (* FIXME magic *)
+          P42(p4); P33;
+          IF dispB >= 16 THEN cc := 2
+          ELSE
+            tmpW := dispB DIV 8; tmpB := dispB MOD 8;
+            cc := 0; EmitBytes2(203, 65 + (opSaveB0 DIV 8) - tmpW + tmpB);
+          END;
+        ELSE
+          P23(Words(desc)^[0]); P23(Words(desc)^[1]); P9;
+          N5(231); P9; EmitByte(241); cc := 24; (* E7 FIXME *)
+        END;
+  | 96: IF Words(desc)^[3] IN BITSET{222, 223} THEN
+          IF (Words(desc)^[3] = 222) = p3 THEN P22(Words(desc)^[0], NOT p3, p2, p1)
+          ELSE P22(Words(desc)^[0], p3, p2, p1) END;
+          P22(Words(desc)^[1], p3, p2, p1);
+          IF p3 THEN cc := 2 ELSE cc := 1 END;
+        ELSIF Words(desc)^[3] = 182 THEN
+          P22(Words(desc)^[0], NOT p3, p2, p1);
+          IF p3 THEN cc := 2 ELSE cc := 1 END;
+        ELSIF (Words(desc)^[3] = 232) & (Words(desc)^[1] = 0) THEN
+          P22(Words(desc)^[0], p3, p2, p1);
+          IF p3 THEN cc := 2 ELSE cc := 1 END;
+        ELSIF N7(Words(desc)^[3]) THEN
+          P23(Words(desc)^[0]); P23(Words(desc)^[1]); P9; N5(Words(desc)^[3]);
+        ELSE P23(p4) END;
+        P9; EmitByte(241); cc := 24;
+  ELSE Raise(13); END;
+  P41(p4); (* spill/dirty FIXME *)
+  IF NOT p3 THEN (* MCode cc -> Z80 cc field *)
+    CASE cc OF
+      90: cc := 8; | 91: cc := 2; | 92: cc := 1;
+    | 98: cc := 0; | 106: cc := 24; | 114: cc := 16;
+    | 138: cc := 56; | 146: cc := 48;
+    ELSE Raise(13); END;
+  END;
+  IF auxFlag5 THEN EmitByte(209); auxFlag5 := 0 END; (* D1 FIXME *)
+  IF cc # 2 THEN N10(194 + cc, p1, p2); END; (* JP cc,nn FIXME *)
+  IF flag # 0 THEN
+    IF p2 # 0 THEN P18(flag, 1) END;
+    N9(0);
+  END;
+END CondJump;
+
+PROCEDURE OverflowOp(p1, p2, p3: CARDINAL); (* OVERFL {2b3d} checked CALL *)
+BEGIN
+  IF (p3 = 192) OR (p3 = 193) THEN (* ADD/ADC class FIXME *)
+    EmitOpWord(196, p2 + 1362); (* C4 CALL NZ FIXME *)
+  ELSIF (p3 = 208) OR (p3 = 209) THEN (* SUB/SBC class FIXME *)
+    EmitOpWord(196, p1 + 1362);
+  END;
+END OverflowOp;
+
+PROCEDURE OperateHL(p1, p2: CARDINAL); (* OPERAT {2b70} ACC -> HL FIXME *)
+BEGIN
+  P45(0); N46(p2, 0); EmitByte(111); (* LD L,A? FIXME *)
+  P45(1); N46(p1, 1); EmitByte(103); (* LD H,A? FIXME *)
+END OperateHL;
+
+PROCEDURE AddOp(p1: CARDINAL); (* ADDOP {2b8e} ADD/ADC peephole FIXME *)
+VAR i, n: CARDINAL;
+BEGIN
+  IF opSaveA0 > opSaveA1 THEN P33 END; (* flush ACC FIXME *)
+  IF (opSaveA1 = 5) & (opSaveA0 = 4) & (dispA <= 4) THEN P33; P47 END;
+  IF opSaveA0 IN BITSET{6} THEN
+    IF opSaveA1 IN BITSET{6} THEN
+      IF opSaveA1 IN BITSET{6} THEN P9; P33; P47; P33
+      ELSE P9;
+        IF (dispB <= 2) & (p1 = 166) THEN P47
+        ELSE EmitOpWord(33, dispB) END;
+        opSaveA1 := 3;
+      END;
+    END;
+    IF fixA # 0 & (opSaveA0 = 3) & (opSaveA1 = 4) THEN
+      IF ((p1 = 166) & (dispB > 3)) OR ((p1 # 166) & (dispB > 1)) THEN
+        P38; EmitOpWord(1 + fixB, dispB); opSaveA1 := fixC; opRegB := fixB; P33;
+      END;
+    END;
+  END;
+  IF (opSaveA1 = 3) & (opSaveA0 IN BITSET{6}) THEN
+    IF p1 = 208 THEN EmitBytes3(183, 237, 74 + opSaveB0) (* OR A / SBC HL FIXME *)
+    ELSE EmitByte(153 + opSaveB0) END; (* ADD HL FIXME *)
+  ELSIF (opSaveA1 = 3) & (opSaveA0 = 4) & (dispB <= 6) & (p1 = 166) THEN
+    i := 1; n := dispB;
+    WHILE i <= n DO EmitByte(35); INC(i) END; (* INC HL FIXME *)
+  ELSIF (opSaveA1 = 3) & (opSaveA0 = 4) & (dispB = 1) THEN
+    EmitBytes4(44, 32, 4, 36); P48(0, 8, 0); (* FIXME *)
+  ELSE N49(128, 136) END;
+  P48(p1, 0, 40); (* outer-18 FIXME *)
+END AddOp;
+
+PROCEDURE LoadVar(p1: CARDINAL); (* LOAD {2c93} MCode LOAD -> Z80 *)
+VAR k, idx, cnt, size: CARDINAL; d: ADDRESS;
+    i, n: CARDINAL;
+BEGIN
+  IF p1 = 0 THEN RETURN END;
+  P39(p1); k := p1; d := p1; (* kind-size? FIXME *)
+  CASE Words(d)^[2] OF
+    91: P9;
+        IF Words(d)^[1] = 4 THEN EmitOpWord(33, Words(d)^[3] + 1); EmitByte(229) END; (* LD rr,nn/PUSH HL *)
+        EmitOpWord(33, Words(d)^[3]); opFlag := 1;
+  | 93, 94: dispA := Words(d)^[3] DIV 2; (* idiv 2 FIXME *)
+        IF (Words(d)^[2] = 4) & (dispA >= 64) THEN dispA := dispA + 128 END;
+        P36(Words(d)^[2], Words(d)^[3], 0, 0, 0, 0); (* FIXME out-args *)
+        IF (Words(d)^[1] = 4) THEN
+          P9; EmitBytes2(62, dispA); N5(8 + ORD(Words(d)^[2] = 3));
+        ELSE
+          P9; EmitBytes4(46, Words(d)^[2], 62, dispA); N5(18);
+        END;
+  | 95: P9; P33; P9; EmitBytes2(221, 229); (* DD E5 PUSH IX FIXME *)
+  | 96: P9; (* FIXME *)
+  | 97: P9; EmitBytes2(205, 0); (* CALL FIXME *)
+  | 98: P9; EmitBytes2(205, 0); cnt := 0; (* CALL + const block FIXME *)
+        WHILE cnt <= Words(d)^[3] - 1 DO EmitByte(Words(d)^[4 + cnt]); INC(cnt) END;
+  | 99: IF N6(Words(d)^[3]) OR (Words(d)^[3] = 168) & (Words(d)^[1] # 0) THEN (* FIXME *)
+          i := 1;
+          WHILE i <= 99 DO P23(d); INC(i) END; (* FIXME bound *)
+          P9;
+        ELSE (* range/char-class emits FIXME *) END;
+  | 92: IF N7(Words(d)^[3]) THEN P22(p1, 1, 0, 0); (* FIXME *)
+          EmitByte(183); P49(195, 0);
+        ELSE P42(p1);
+          IF (opSaveA0 # 3) OR (opSaveA1 # 3) THEN P9 END;
+        END;
+  | 174: P24(1);
+  | 192, 193: P47; EmitBytes3(125, 230, 64); EmitBytes4(31, 47, 165, 111); (* FIXME *)
+  | 213, 214: P23(Words(d)^[0]); P10; EmitBytes2(227, 124); EmitBytes2(238, 128); EmitBytes2(103, 227); (* FIXME *)
+  | 215: P23(Words(d)^[0]); P9; EmitOpWord(33, 0); opFlag := 1; EmitByte(227); (* FIXME *)
+  | 235: P47;
+        IF Words(d)^[1] = 2 THEN EmitBytes4(126, 35, 102, 111) ELSE EmitBytes3(110, 38, 0) END; (* FIXME *)
+  | 237: IF opSaveA1 = 4 THEN dispB := dispB * 2 END;
+        IF fixA # 0 & NOT (opSaveA0 IN BITSET{6}) & (opSaveA1 = 5) THEN
+          P38; P32(4, 0, dispB, fixB);
+        END;
+        IF (opSaveA1 = 5) & (opSaveA0 = 3) THEN EmitByte(213); auxFlag5 := 1;
+          P32(4, 0, dispB, 16);
+        ELSIF (opSaveA0 = 5) & (opSaveA1 IN BITSET{6}) THEN P32(4, 0, dispA, 32);
+        ELSIF (opSaveA1 IN BITSET{6}) & (opSaveA0 IN BITSET{6}) THEN P47 END;
+        opRegB := P40(opSaveA0); opRegB := P40(opSaveA1);
+        IF opSaveA1 = 3 THEN EmitByte(41) ELSE P50(166) END;
+        P50(166);
+  | 256, 282, 298: IF (opSaveA0 = 4) & (opSaveA1 IN BITSET{6}) THEN
+          P9; EmitOpWord(33, dispA); opSaveA0 := 3;
+        END;
+        IF (opSaveA0 IN BITSET{6}) & (opSaveA1 = 4) & (dispB < 4) & (Words(d)^[3] = 167) THEN P47 END;
+  | 257, 283, 299: (* reg combine FIXME *)
+  | 258: IF opSaveA0 IN BITSET{62} THEN
+          IF opSaveA1 = 4 THEN (* ... *) END;
+        END;
+        size := 0; n := 0;
+        WHILE n > 1 DO n := n DIV 2; size := size + dispB MOD 2 END; (* popcount FIXME *)
+        IF size <= 12 THEN
+          IF opSaveA0 = 3 THEN EmitBytes3(213, 93, 84)
+          ELSE opRegB := opSaveB0; P47 END;
+          auxFlag5 := 1;
+        ELSE EmitByte(197 + opSaveB0); EmitOpWord(33, dispB); EmitByte(229); N5(168); EmitByte(225) END;
+  | 320, 322, 323: IF Words(d)^[3] = 230 THEN i := 176 ELSIF Words(d)^[3] = 232 THEN i := 160 ELSE i := 168 END;
+        P49(i, 255); (* port emit FIXME *)
+  | 266, 267: P47; (* range check FIXME *)
+        IF dispB >= 8 THEN EmitBytes3(101, 0, 46) END; (* FIXME *)
+        cnt := 1; n := dispB MOD 8;
+        WHILE cnt <= n DO EmitByte(41); INC(cnt) END;
+  | 273: P23(Words(d)^[0]); P10; EmitBytes2(227, 126); EmitBytes2(103, 227); (* FIXME *)
+  ELSE N1(0); opFlag := 1; END;
+  IF Words(d)^[2] = 2 THEN
+    i := 1;
+    WHILE i <= 99 DO N12; INC(i) END; (* free index temps FIXME bound *)
+  END;
+  Words(d)^[1] := Words(d)^[1] + 1; (* bump low byte FIXME *)
+  IF auxFlag5 THEN P10; EmitByte(209); auxFlag5 := 0 END;
+END LoadVar;
+
+PROCEDURE MoveVar(p1: CARDINAL; p2: ADDRESS; p3: CARDINAL; p4: ADDRESS; p5: ADDRESS);
+(* MOVEVA {3344} word-by-word block move *)
+VAR i, n: CARDINAL; ok1, ok2: BOOLEAN;
+    a1, a2, a3, b1, b2, b3: ADDRESS; mode: CARDINAL;
+BEGIN
+  P9; i := 0; n := p1 - 2; (* {3346} *)
+  WHILE i <= n DO
+    P36(p5, p4, 1, a1, a2, a3); (* src descriptor FIXME *)
+    P36(p3, p2, 0, b1, b2, b3); (* dst descriptor FIXME *)
+    IF ok1 THEN (* FIXME: P36 flag *)
+      IF ok2 THEN P11(b1) END;
+    ELSIF ok2 THEN P11(a1) END;
+    IF NOT ok1 & NOT ok2 THEN
+      ok1 := TRUE; mode := 32; P32(p3, 0, p2, mode);
+    END;
+    IF ok2 THEN
+      IF ok1 THEN
+        IF b1 # a1 THEN
+          P9; EmitByte(197 + mode); P11(a1); (* PUSH FIXME *)
+          EmitByte(193 + b1); (* POP FIXME *)
+        ELSE EmitBytes2(64 + b1, 73) END; (* LD r,r' FIXME *)
+      ELSE P32(p3, 0, p2, b1) END;
+    ELSIF ok1 THEN P32(p5, 1, p4, mode);
+    END;
+    p4 := p4 + 2; p2 := p2 + 2; i := i + 2;
+  END;
+END MoveVar;
+
+PROCEDURE StoreVar(p1: CARDINAL; p2: CARDINAL; p3: CARDINAL);
+(* STOREV {33db} indexed store *)
+VAR disp, k: CARDINAL;
+    i, n, lim, w: CARDINAL; ok: BOOLEAN;
+BEGIN
+  disp := p1 * 2; (* {33dd} *)
+  IF (p3 = 4) & (disp > 255) THEN disp := disp - 256 END;
+  N12(0); N13; N1(0); (* alloc FIXME *)
+  k := 0; (* descriptor FIXME *)
+  IF P31(k) # p2 THEN N1(0) END;
+  P12(p3, disp, p2); (* FIXME proc12 *)
+  IF k = 7 THEN (* {3411} FIXME: group wrote k[2]=7 *)
+    IF P34(p3, disp) THEN P23(k) ELSE N14(k) END;
+  END;
+  P36(p3, disp, 1, 0, 0, 0); (* FIXME out-args *)
+  IF (p2 = 4) THEN
+    P23(k); P9; N12; N13;
+    EmitBytes2(62, p1); N5(24 + ORD(p3 = 3));
+  ELSIF (p2 = 8) THEN
+    P23(k); P9; N12; N13;
+    EmitBytes4(46, 4 + ORD(p3 = 3), 62, p1); N5(18);
+  END;
+  IF k = 2 THEN
+    n := k; i := k; (* half/glue FIXME *)
+    P36(k, k, 0, 0, 0, 0);
+    IF k = 145 THEN (* string/const FIXME *)
+      IF p2 = 2 THEN N1(0) END;
+      P23(k); P11(n); P10;
+      EmitBytes2(78, 2);
+      opFlag := 0;
+    ELSE P23(k) END;
+    IF k = 2 THEN
+      i := 1;
+      WHILE i <= 99 DO N12; INC(i) END; (* free index temps FIXME bound *)
+    END;
+    i := 0; n := p2 DIV 2 - 1;
+    WHILE i <= n DO
+      P36(p3, disp + 1, 0, 0, 0, 0);
+      CASE k OF
+        90: IF TRUE THEN P11(n); EmitOpWord(1 + 2, k) END; (* FIXME *)
+      | 91: IF p3 = 4 THEN EmitBytes4(221, 54, disp, k) END; (* LD (IX+d) FIXME *)
+      | 93, 94: P51(p3, disp, k, k, 2); (* FIXME *)
+      ELSE Raise(13); END;
+      IF P34(p3, disp) THEN (* INCL bitsets FIXME *) END;
+      disp := disp + 2; INC(i);
+    END;
+  END;
+  IF NOT opFlag THEN N1(0) END; (* {37a4} FIXME *)
+END StoreVar;
+
+PROCEDURE StoreStatic(p1: CARDINAL);
+(* STORES {37af} static/direct store *)
+VAR a, b: ADDRESS; i, n, lim: CARDINAL;
+BEGIN
+  N12(a); N12(b); N13; N1(0); (* alloc pair FIXME *)
+  IF P31(b) # 2 THEN N1(0) END;
+  IF p1 >= 4 THEN
+    P23(a); P23(b); P9;
+    IF p1 = 4 THEN N5(81) ELSE EmitBytes3(46, 6, 175); N5(18) END; (* FIXME *)
+  ELSE
+    IF Native.word4 THEN P23(a) END; (* FIXME *)
+    P39(a);
+    IF Words(a)^[2] = 2 THEN P23(a) END; (* FIXME *)
+    P36(Words(a)^[2], Words(a)^[3], 0, 0, 0, 0);
+    P36(Words(b)^[2], Words(b)^[3], 0, 0, 0, 0);
+    IF (Words(a)^[2] = 1) & (Words(b)^[2] = 1) THEN P10; EmitByte(227) END; (* EX DE,HL FIXME *)
+    P23(a);
+    P10; lim := p1 - 1;
+    WHILE i <= lim DO
+      IF i # 0 THEN EmitByte(35) END; (* INC HL FIXME; i init TBD *)
+      CASE Words(b)^[11] OF (* mem-kind FIXME *)
+        90: EmitBytes2(54, Words(b)^[10 + i]); (* LD (HL),n FIXME *)
+      | 91: IF P37(0) THEN (* FIXME arg *)
+              P38;
+              IF ODD(i) THEN EmitByte(112) ELSE EmitBytes2(193, 115) END; (* FIXME *)
+            ELSE
+              IF ODD(i) THEN EmitBytes2(114, 209) ELSE EmitBytes4(235, 227, 235, 115) END; (* FIXME *)
+            END;
+      | 93, 94: P36(b, 0, 0, 0, 0, 0); (* FIXME args *)
+            IF TRUE THEN P11(0); P10; (* FIXME *)
+              EmitByte(113);
+            ELSIF Words(b)^[2] = 4 THEN EmitBytes4(221, 126, Words(b)^[3], 119)
+            ELSE
+              IF P37(0) THEN (* FIXME *)
+                P38;
+                IF ODD(i) THEN EmitByte(112) ELSE P32(Words(b)^[2], 0, Words(b)^[3], 2) END;
+                EmitByte(113);
+              ELSE
+                IF ODD(i) THEN EmitBytes2(114, 209); auxFlag5 := 0
+                ELSE EmitByte(213); P32(Words(b)^[2], 0, Words(b)^[3], 16); EmitByte(115); auxFlag5 := 1 END;
+              END;
+            END;
+      ELSE Raise(13); END;
+      Words(b)^[3] := Words(b)^[3] + 1; INC(i);
+    END;
+  END;
+  auxFlag5 := 0;
+  IF auxFlag5 THEN EmitByte(209); auxFlag5 := 0 END;
+  N13; N1(0);
+END StoreStatic;
+
+(* Module body = INTELL entry {3966}: trampoline into shared init block.
+   Driver (callswitch @392d, cases 90-94) + epilogue belong to groups 2+;
+   HOW/WHEN the driver runs is UNRESOLVED. *)
+BEGIN (* {3966} -> {1d27} *)
+  codePos   := 0;
+  codeBase  := 0;
+  codeLimit := 2047;
+END GenZ80.

tools/mcdiff.sh

@@ -41,7 +41,7 @@ for f in "$SRC"/*.MOD "$SRC"/*.DEF; do
 import re, sys, pathlib
 src = pathlib.Path(sys.argv[1]).read_text()
 nos = re.sub(r'\(\*.*?\*\)', '', src, flags=re.S)  # drop (* *) comments
-hits = re.findall(r'\b(?:global|proc|param|local)\d+\b|\bPROC\d+\b', nos)
+hits = re.findall(r'(?<!\.)\b(?:global|proc|param|local)\d+\b|(?<!\.)\bPROC\d+\b', nos)
 if hits:
     from collections import Counter
     print(f'{sys.argv[1]}: {dict(Counter(hits))}')