|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_11cacfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0960 | ` | .CONST 0x0960 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0033 | 3 | .CONST 0x0033 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b e5fc | | Load 0x2,-0x4 000c 01dd | | Execute Vector,First 000d 00e4 | | Load_Encached Positive_Cache 000e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 000f e5fb | | Load 0x2,-0x5 0010 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 0011 0007 | | Action Break_Optional 0012 e5fb | | Load 0x2,-0x5 0013 2405 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5 0014 0007 | | Action Break_Optional 0015 029f 0303 | | Declare_Subprogram INIT_0300,For_Call 0017 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 0019 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call 001b 029f 036b | k| Declare_Subprogram INIT_0368,For_Call 001d 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call 001f 029f 0493 | | Declare_Subprogram INIT_0490,For_Call 0021 029f 0513 | | Declare_Subprogram INIT_0510,For_Call 0023 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call 0025 029f 05db | | Declare_Subprogram INIT_05d8,For_Call 0027 029f 05f3 | | Declare_Subprogram INIT_05f0,For_Call 0029 029f 0613 | | Declare_Subprogram INIT_0610,For_Call 002b 029f 065b | [| Declare_Subprogram INIT_0658,For_Call 002d 029f 066b | k| Declare_Subprogram INIT_0668,For_Call 002f 029f 067b | {| Declare_Subprogram INIT_0678,For_Call 0031 029f 082b | +| Declare_Subprogram INIT_0828,For_Call 0033 BODY_0008: 0033 00cf | | Action Mark_Auxiliary 0034 e5fc | | Load 0x2,-0x4 0035 01d9 | | Execute Vector,Reverse_Bounds 0036 0263 | c | Execute Discrete,Above_Bound 0037 00a5 02d9 | | Action Jump_Nonzero_Extended,0x2d9 0039 00d8 | | Load_Top At_Offset_0 003a e5fc | | Load 0x2,-0x4 003b 01d7 | | Execute Vector,Field_Read 003c 4820 |H | Short_Literal 0x20 003d 487e |H~ | Short_Literal 0x7e 003e 0262 | b | Execute Discrete,In_Range 003f 70c4 |p | Jump_Nonzero 0x104 0040 e5fb | | Load 0x2,-0x5 0041 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 0042 700f |p | Jump_Nonzero 0x52 0043 00d8 | | Load_Top At_Offset_0 0044 0a01 | | Execute_Immediate Plus,0x1 0045 00d8 | | Load_Top At_Offset_0 0046 00e3 | | Load_Encached Natural_Cache 0047 0260 | ` | Execute Discrete,In_Type 0048 7001 |p | Jump_Nonzero 0x4a 0049 0801 | | Execute_Immediate Raise,0x1 004a 00d9 | | Load_Top At_Offset_1 004b 0aff | | Execute_Immediate Plus,-0x1 004c 00d8 | | Load_Top At_Offset_0 004d 00e3 | | Load_Encached Natural_Cache 004e 0260 | ` | Execute Discrete,In_Type 004f 7001 |p | Jump_Nonzero 0x51 0050 0801 | | Execute_Immediate Raise,0x1 0051 840a | | Call 0x2,0xa 0052 00d8 | | Load_Top At_Offset_0 0053 e5fc | | Load 0x2,-0x4 0054 01d7 | | Execute Vector,Field_Read 0055 00d8 | | Load_Top At_Offset_0 0056 0c1c | | Execute_Immediate Greater_Equal,0x1c 0057 702b |p+ | Jump_Nonzero 0x83 0058 461b |F | Jump_Case 0x1c 0059 7a7c |z| | Jump 0x2d6 ; case 0x0 005a 78a6 |x | Jump 0x101 ; case 0x1 005b 78a5 |x | Jump 0x101 ; case 0x2 005c 78a4 |x | Jump 0x101 ; case 0x3 005d 78a3 |x | Jump 0x101 ; case 0x4 005e 7827 |x' | Jump 0x86 ; case 0x5 005f 78a1 |x | Jump 0x101 ; case 0x6 0060 785c |x\ | Jump 0xbd ; case 0x7 0061 7827 |x' | Jump 0x89 ; case 0x8 0062 7829 |x) | Jump 0x8c ; case 0x9 0063 7887 |x | Jump 0xeb ; case 0xa 0064 7886 |x | Jump 0xeb ; case 0xb 0065 7885 |x | Jump 0xeb ; case 0xc 0066 785a |xZ | Jump 0xc1 ; case 0xd 0067 7869 |xi | Jump 0xd1 ; case 0xe 0068 7874 |xt | Jump 0xdd ; case 0xf 0069 7897 |x | Jump 0x101 ; case 0x10 006a 7896 |x | Jump 0x101 ; case 0x11 006b 7895 |x | Jump 0x101 ; case 0x12 006c 7894 |x | Jump 0x101 ; case 0x13 006d 7893 |x | Jump 0x101 ; case 0x14 006e 7892 |x | Jump 0x101 ; case 0x15 006f 7891 |x | Jump 0x101 ; case 0x16 0070 7890 |x | Jump 0x101 ; case 0x17 0071 7877 |xw | Jump 0xe9 ; case 0x18 0072 788e |x | Jump 0x101 ; case 0x19 0073 7875 |xu | Jump 0xe9 ; case 0x1a 0074 7800 |x | Jump 0x75 ; case 0x1b 0075 4801 |H | Short_Literal 0x1 0076 e5fb | | Load 0x2,-0x5 0077 2810 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x10 0078 4800 |H | Short_Literal 0x0 0079 e5fb | | Load 0x2,-0x5 007a 2811 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x11 007b 00d8 | | Load_Top At_Offset_0 007c e5fc | | Load 0x2,-0x4 007d 01d7 | | Execute Vector,Field_Read 007e 4801 |H | Short_Literal 0x1 007f e5fb | | Load 0x2,-0x5 0080 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 0081 01d6 | | Execute Vector,Field_Write 0082 7a53 |zS | Jump 0x2d6 0083 0f7f | | Execute_Immediate Equal,0x7f 0084 7251 |rQ | Jump_Nonzero 0x2d6 0085 787b |x{ | Jump 0x101 0086 e218 | | Load 0x1,0x18 0087 85fe | | Call 0x2,-0x2 0088 7a4d |zM | Jump 0x2d6 0089 4fff |O | Short_Literal -0x1 008a 8406 | | Call 0x2,0x6 008b 7a4a |zJ | Jump 0x2d6 008c 00cf | | Action Mark_Auxiliary 008d e404 | | Load 0x2,0x4 008e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 008f e403 | | Load 0x2,0x3 0090 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0091 0a01 | | Execute_Immediate Plus,0x1 0092 00d8 | | Load_Top At_Offset_0 0093 00e2 | | Load_Encached Integer_Cache 0094 0260 | ` | Execute Discrete,In_Type 0095 7001 |p | Jump_Nonzero 0x97 0096 0801 | | Execute_Immediate Raise,0x1 0097 0263 | c | Execute Discrete,Above_Bound 0098 7022 |p" | Jump_Nonzero 0xbb 0099 00d8 | | Load_Top At_Offset_0 009a e5fb | | Load 0x2,-0x5 009b 2514 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x14 009c 01d7 | | Execute Vector,Field_Read 009d 7005 |p | Jump_Nonzero 0xa3 009e 00d8 | | Load_Top At_Offset_0 009f e404 | | Load 0x2,0x4 00a0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00a1 027f | | Execute Discrete,Equal 00a2 6816 |h | Jump_Zero 0xb9 00a3 e404 | | Load 0x2,0x4 00a4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00a5 00d9 | | Load_Top At_Offset_1 00a6 00d8 | | Load_Top At_Offset_0 00a7 00e3 | | Load_Encached Natural_Cache 00a8 0260 | ` | Execute Discrete,In_Type 00a9 7001 |p | Jump_Nonzero 0xab 00aa 0801 | | Execute_Immediate Raise,0x1 00ab e403 | | Load 0x2,0x3 00ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ad e5fb | | Load 0x2,-0x5 00ae 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 00af 0272 | r | Execute Discrete,Minus 00b0 0a01 | | Execute_Immediate Plus,0x1 00b1 00d8 | | Load_Top At_Offset_0 00b2 00e3 | | Load_Encached Natural_Cache 00b3 0260 | ` | Execute Discrete,In_Type 00b4 7001 |p | Jump_Nonzero 0xb6 00b5 0801 | | Execute_Immediate Raise,0x1 00b6 8409 | | Call 0x2,0x9 00b7 00d2 | | Pop_Control Pop_Count_2 00b8 7802 |x | Jump 0xbb 00b9 00c8 | | Action Pop_Auxiliary_Range 00ba 3fde |? | Loop_Increasing 0x99 00bb 00ce | | Action Pop_Auxiliary 00bc 7a19 |z | Jump 0x2d6 00bd e5fd | | Load 0x2,-0x3 00be e001 | | Load 0x0,0x1 00bf 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00c0 7a15 |z | Jump 0x2d6 00c1 e404 | | Load 0x2,0x4 00c2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00c3 4801 |H | Short_Literal 0x1 00c4 e403 | | Load 0x2,0x3 00c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c6 e5fb | | Load 0x2,-0x5 00c7 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 00c8 0272 | r | Execute Discrete,Minus 00c9 0a01 | | Execute_Immediate Plus,0x1 00ca 00d8 | | Load_Top At_Offset_0 00cb 00e3 | | Load_Encached Natural_Cache 00cc 0260 | ` | Execute Discrete,In_Type 00cd 7001 |p | Jump_Nonzero 0xcf 00ce 0801 | | Execute_Immediate Raise,0x1 00cf 8409 | | Call 0x2,0x9 00d0 7a05 |z | Jump 0x2d6 00d1 0092 0902 | | Action Push_String_Extended,0x902 ; "ascii.SO" 00d3 8405 | | Call 0x2,0x5 00d4 4801 |H | Short_Literal 0x1 00d5 e5fb | | Load 0x2,-0x5 00d6 280f |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xf 00d7 e5fb | | Load 0x2,-0x5 00d8 2c0e |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe 00d9 e403 | | Load 0x2,0x3 00da 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00db 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00dc 79f9 |y | Jump 0x2d6 00dd 0092 0903 | | Action Push_String_Extended,0x903 ; "ascii.SI" 00df 8405 | | Call 0x2,0x5 00e0 4800 |H | Short_Literal 0x0 00e1 e5fb | | Load 0x2,-0x5 00e2 280f |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xf 00e3 e5fb | | Load 0x2,-0x5 00e4 2c0d |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xd 00e5 e403 | | Load 0x2,0x3 00e6 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00e7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e8 79ed |y | Jump 0x2d6 00e9 8413 | | Call 0x2,0x13 00ea 79eb |y | Jump 0x2d6 00eb 4801 |H | Short_Literal 0x1 00ec 4801 |H | Short_Literal 0x1 00ed 8408 | | Call 0x2,0x8 00ee e5fb | | Load 0x2,-0x5 00ef 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 00f0 69e5 |i | Jump_Zero 0x2d6 00f1 e404 | | Load 0x2,0x4 00f2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00f3 4801 |H | Short_Literal 0x1 00f4 e403 | | Load 0x2,0x3 00f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f6 e5fb | | Load 0x2,-0x5 00f7 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 00f8 0272 | r | Execute Discrete,Minus 00f9 0a01 | | Execute_Immediate Plus,0x1 00fa 00d8 | | Load_Top At_Offset_0 00fb 00e3 | | Load_Encached Natural_Cache 00fc 0260 | ` | Execute Discrete,In_Type 00fd 7001 |p | Jump_Nonzero 0xff 00fe 0801 | | Execute_Immediate Raise,0x1 00ff 8409 | | Call 0x2,0x9 0100 79d5 |y | Jump 0x2d6 0101 00d8 | | Load_Top At_Offset_0 0102 a402 | | Store_Unchecked 0x2,0x2 0103 79d2 |y | Jump 0x2d6 0104 e5fb | | Load 0x2,-0x5 0105 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 0106 0c01 | | Execute_Immediate Greater_Equal,0x1 0107 69ce |i | Jump_Zero 0x2d6 0108 e5fb | | Load 0x2,-0x5 0109 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 010a 0a01 | | Execute_Immediate Plus,0x1 010b e5fb | | Load 0x2,-0x5 010c 2810 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x10 010d 00d8 | | Load_Top At_Offset_0 010e e5fc | | Load 0x2,-0x4 010f 01d7 | | Execute Vector,Field_Read 0110 e5fb | | Load 0x2,-0x5 0111 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 0112 e5fb | | Load 0x2,-0x5 0113 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 0114 01d6 | | Execute Vector,Field_Write 0115 00d8 | | Load_Top At_Offset_0 0116 0a01 | | Execute_Immediate Plus,0x1 0117 c402 | | Store 0x2,0x2 0118 e5fb | | Load 0x2,-0x5 0119 2c11 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x11 011a 680c |h | Jump_Zero 0x127 011b e5fb | | Load 0x2,-0x5 011c 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 011d e5fb | | Load 0x2,-0x5 011e 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 011f 01d7 | | Execute Vector,Field_Read 0120 4840 |H@ | Short_Literal 0x40 0121 487e |H~ | Short_Literal 0x7e 0122 0262 | b | Execute Discrete,In_Range 0123 69b2 |i | Jump_Zero 0x2d6 0124 8412 | | Call 0x2,0x12 0125 8413 | | Call 0x2,0x13 0126 79af |y | Jump 0x2d6 0127 4802 |H | Short_Literal 0x2 0128 e5fb | | Load 0x2,-0x5 0129 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 012a 01d7 | | Execute Vector,Field_Read 012b 467f |F | Jump_Case 0x80 012c 787f |x | Jump 0x1ac ; case 0x0 012d 787e |x~ | Jump 0x1ac ; case 0x1 012e 787d |x} | Jump 0x1ac ; case 0x2 012f 787c |x| | Jump 0x1ac ; case 0x3 0130 787b |x{ | Jump 0x1ac ; case 0x4 0131 787a |xz | Jump 0x1ac ; case 0x5 0132 7879 |xy | Jump 0x1ac ; case 0x6 0133 7878 |xx | Jump 0x1ac ; case 0x7 0134 7877 |xw | Jump 0x1ac ; case 0x8 0135 7876 |xv | Jump 0x1ac ; case 0x9 0136 7875 |xu | Jump 0x1ac ; case 0xa 0137 7874 |xt | Jump 0x1ac ; case 0xb 0138 7873 |xs | Jump 0x1ac ; case 0xc 0139 7872 |xr | Jump 0x1ac ; case 0xd 013a 7871 |xq | Jump 0x1ac ; case 0xe 013b 7870 |xp | Jump 0x1ac ; case 0xf 013c 786f |xo | Jump 0x1ac ; case 0x10 013d 786e |xn | Jump 0x1ac ; case 0x11 013e 786d |xm | Jump 0x1ac ; case 0x12 013f 786c |xl | Jump 0x1ac ; case 0x13 0140 786b |xk | Jump 0x1ac ; case 0x14 0141 786a |xj | Jump 0x1ac ; case 0x15 0142 7869 |xi | Jump 0x1ac ; case 0x16 0143 7868 |xh | Jump 0x1ac ; case 0x17 0144 7867 |xg | Jump 0x1ac ; case 0x18 0145 7866 |xf | Jump 0x1ac ; case 0x19 0146 7865 |xe | Jump 0x1ac ; case 0x1a 0147 7864 |xd | Jump 0x1ac ; case 0x1b 0148 7863 |xc | Jump 0x1ac ; case 0x1c 0149 7862 |xb | Jump 0x1ac ; case 0x1d 014a 7861 |xa | Jump 0x1ac ; case 0x1e 014b 7860 |x` | Jump 0x1ac ; case 0x1f 014c 785f |x_ | Jump 0x1ac ; case 0x20 014d 785e |x^ | Jump 0x1ac ; case 0x21 014e 785d |x] | Jump 0x1ac ; case 0x22 014f 7906 |y | Jump 0x256 ; case 0x23 0150 785b |x[ | Jump 0x1ac ; case 0x24 0151 785a |xZ | Jump 0x1ac ; case 0x25 0152 7859 |xY | Jump 0x1ac ; case 0x26 0153 7858 |xX | Jump 0x1ac ; case 0x27 0154 792a |y* | Jump 0x27f ; case 0x28 0155 7953 |yS | Jump 0x2a9 ; case 0x29 0156 7855 |xU | Jump 0x1ac ; case 0x2a 0157 7854 |xT | Jump 0x1ac ; case 0x2b 0158 7853 |xS | Jump 0x1ac ; case 0x2c 0159 7852 |xR | Jump 0x1ac ; case 0x2d 015a 7851 |xQ | Jump 0x1ac ; case 0x2e 015b 7850 |xP | Jump 0x1ac ; case 0x2f 015c 784f |xO | Jump 0x1ac ; case 0x30 015d 784e |xN | Jump 0x1ac ; case 0x31 015e 784d |xM | Jump 0x1ac ; case 0x32 015f 784c |xL | Jump 0x1ac ; case 0x33 0160 784b |xK | Jump 0x1ac ; case 0x34 0161 784a |xJ | Jump 0x1ac ; case 0x35 0162 7849 |xI | Jump 0x1ac ; case 0x36 0163 78d8 |x | Jump 0x23c ; case 0x37 0164 78dc |x | Jump 0x241 ; case 0x38 0165 7846 |xF | Jump 0x1ac ; case 0x39 0166 7845 |xE | Jump 0x1ac ; case 0x3a 0167 7844 |xD | Jump 0x1ac ; case 0x3b 0168 78e8 |x | Jump 0x251 ; case 0x3c 0169 78dd |x | Jump 0x247 ; case 0x3d 016a 78e1 |x | Jump 0x24c ; case 0x3e 016b 7840 |x@ | Jump 0x1ac ; case 0x3f 016c 783f |x? | Jump 0x1ac ; case 0x40 016d 7844 |xD | Jump 0x1b2 ; case 0x41 016e 7848 |xH | Jump 0x1b7 ; case 0x42 016f 784c |xL | Jump 0x1bc ; case 0x43 0170 784f |xO | Jump 0x1c0 ; case 0x44 0171 7859 |xY | Jump 0x1cb ; case 0x45 0172 786c |xl | Jump 0x1df ; case 0x46 0173 7871 |xq | Jump 0x1e5 ; case 0x47 0174 7876 |xv | Jump 0x1eb ; case 0x48 0175 7890 |x | Jump 0x206 ; case 0x49 0176 7894 |x | Jump 0x20b ; case 0x4a 0177 7899 |x | Jump 0x211 ; case 0x4b 0178 7833 |x3 | Jump 0x1ac ; case 0x4c 0179 789d |x | Jump 0x217 ; case 0x4d 017a 7831 |x1 | Jump 0x1ac ; case 0x4e 017b 7830 |x0 | Jump 0x1ac ; case 0x4f 017c 782f |x/ | Jump 0x1ac ; case 0x50 017d 782e |x. | Jump 0x1ac ; case 0x51 017e 782d |x- | Jump 0x1ac ; case 0x52 017f 782c |x, | Jump 0x1ac ; case 0x53 0180 782b |x+ | Jump 0x1ac ; case 0x54 0181 782a |x* | Jump 0x1ac ; case 0x55 0182 7829 |x) | Jump 0x1ac ; case 0x56 0183 7828 |x( | Jump 0x1ac ; case 0x57 0184 7827 |x' | Jump 0x1ac ; case 0x58 0185 7896 |x | Jump 0x21c ; case 0x59 0186 78b2 |x | Jump 0x239 ; case 0x5a 0187 794b |yK | Jump 0x2d3 ; case 0x5b 0188 7823 |x# | Jump 0x1ac ; case 0x5c 0189 7822 |x" | Jump 0x1ac ; case 0x5d 018a 7821 |x! | Jump 0x1ac ; case 0x5e 018b 7820 |x | Jump 0x1ac ; case 0x5f 018c 781f |x | Jump 0x1ac ; case 0x60 018d 781e |x | Jump 0x1ac ; case 0x61 018e 781d |x | Jump 0x1ac ; case 0x62 018f 7820 |x | Jump 0x1b0 ; case 0x63 0190 781b |x | Jump 0x1ac ; case 0x64 0191 781a |x | Jump 0x1ac ; case 0x65 0192 7819 |x | Jump 0x1ac ; case 0x66 0193 7818 |x | Jump 0x1ac ; case 0x67 0194 7817 |x | Jump 0x1ac ; case 0x68 0195 7816 |x | Jump 0x1ac ; case 0x69 0196 7815 |x | Jump 0x1ac ; case 0x6a 0197 7814 |x | Jump 0x1ac ; case 0x6b 0198 7813 |x | Jump 0x1ac ; case 0x6c 0199 7812 |x | Jump 0x1ac ; case 0x6d 019a 7811 |x | Jump 0x1ac ; case 0x6e 019b 7810 |x | Jump 0x1ac ; case 0x6f 019c 780f |x | Jump 0x1ac ; case 0x70 019d 780e |x | Jump 0x1ac ; case 0x71 019e 780d |x | Jump 0x1ac ; case 0x72 019f 780c |x | Jump 0x1ac ; case 0x73 01a0 780b |x | Jump 0x1ac ; case 0x74 01a1 780a |x | Jump 0x1ac ; case 0x75 01a2 7809 |x | Jump 0x1ac ; case 0x76 01a3 7808 |x | Jump 0x1ac ; case 0x77 01a4 7807 |x | Jump 0x1ac ; case 0x78 01a5 7806 |x | Jump 0x1ac ; case 0x79 01a6 7805 |x | Jump 0x1ac ; case 0x7a 01a7 7804 |x | Jump 0x1ac ; case 0x7b 01a8 7803 |x | Jump 0x1ac ; case 0x7c 01a9 7802 |x | Jump 0x1ac ; case 0x7d 01aa 7801 |x | Jump 0x1ac ; case 0x7e 01ab 7800 |x | Jump 0x1ac ; case 0x7f 01ac 8413 | | Call 0x2,0x13 01ad 00d8 | | Load_Top At_Offset_0 01ae a402 | | Store_Unchecked 0x2,0x2 01af 7926 |y& | Jump 0x2d6 01b0 8413 | | Call 0x2,0x13 01b1 7924 |y$ | Jump 0x2d6 01b2 4800 |H | Short_Literal 0x0 01b3 4fff |O | Short_Literal -0x1 01b4 8408 | | Call 0x2,0x8 01b5 8413 | | Call 0x2,0x13 01b6 791f |y | Jump 0x2d6 01b7 4800 |H | Short_Literal 0x0 01b8 4801 |H | Short_Literal 0x1 01b9 8408 | | Call 0x2,0x8 01ba 8413 | | Call 0x2,0x13 01bb 791a |y | Jump 0x2d6 01bc 4801 |H | Short_Literal 0x1 01bd 8406 | | Call 0x2,0x6 01be 8413 | | Call 0x2,0x13 01bf 7916 |y | Jump 0x2d6 01c0 e5fb | | Load 0x2,-0x5 01c1 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 01c2 6803 |h | Jump_Zero 0x1c6 01c3 4fff |O | Short_Literal -0x1 01c4 8406 | | Call 0x2,0x6 01c5 7803 |x | Jump 0x1c9 01c6 4801 |H | Short_Literal 0x1 01c7 4801 |H | Short_Literal 0x1 01c8 8408 | | Call 0x2,0x8 01c9 8413 | | Call 0x2,0x13 01ca 790b |y | Jump 0x2d6 01cb 4801 |H | Short_Literal 0x1 01cc 4801 |H | Short_Literal 0x1 01cd 8408 | | Call 0x2,0x8 01ce e404 | | Load 0x2,0x4 01cf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01d0 4801 |H | Short_Literal 0x1 01d1 e403 | | Load 0x2,0x3 01d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d3 e5fb | | Load 0x2,-0x5 01d4 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 01d5 0272 | r | Execute Discrete,Minus 01d6 0a01 | | Execute_Immediate Plus,0x1 01d7 00d8 | | Load_Top At_Offset_0 01d8 00e3 | | Load_Encached Natural_Cache 01d9 0260 | ` | Execute Discrete,In_Type 01da 7001 |p | Jump_Nonzero 0x1dc 01db 0801 | | Execute_Immediate Raise,0x1 01dc 8409 | | Call 0x2,0x9 01dd 8413 | | Call 0x2,0x13 01de 78f7 |x | Jump 0x2d6 01df 4801 |H | Short_Literal 0x1 01e0 e403 | | Load 0x2,0x3 01e1 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01e2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01e3 8413 | | Call 0x2,0x13 01e4 78f1 |x | Jump 0x2d6 01e5 4800 |H | Short_Literal 0x0 01e6 e403 | | Load 0x2,0x3 01e7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01e8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01e9 8413 | | Call 0x2,0x13 01ea 78eb |x | Jump 0x2d6 01eb e5fb | | Load 0x2,-0x5 01ec 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 01ed 6806 |h | Jump_Zero 0x1f4 01ee e404 | | Load 0x2,0x4 01ef 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01f0 4801 |H | Short_Literal 0x1 01f1 4801 |H | Short_Literal 0x1 01f2 8409 | | Call 0x2,0x9 01f3 7810 |x | Jump 0x204 01f4 e5fb | | Load 0x2,-0x5 01f5 00d8 | | Load_Top At_Offset_0 01f6 2514 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x14 01f7 00d8 | | Load_Top At_Offset_0 01f8 e403 | | Load 0x2,0x3 01f9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01fa e404 | | Load 0x2,0x4 01fb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01fc 822e | . | Call 0x1,0x2e 01fd 4801 |H | Short_Literal 0x1 01fe 00d9 | | Load_Top At_Offset_1 01ff 00db | | Load_Top At_Offset_3 0200 01d6 | | Execute Vector,Field_Write 0201 00d2 | | Pop_Control Pop_Count_2 0202 00d0 | | Action Swap_Control 0203 2914 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x14 0204 8413 | | Call 0x2,0x13 0205 78d0 |x | Jump 0x2d6 0206 4801 |H | Short_Literal 0x1 0207 4fff |O | Short_Literal -0x1 0208 8408 | | Call 0x2,0x8 0209 8413 | | Call 0x2,0x13 020a 78cb |x | Jump 0x2d6 020b 4820 |H | Short_Literal 0x20 020c 4802 |H | Short_Literal 0x2 020d 4801 |H | Short_Literal 0x1 020e 840c | | Call 0x2,0xc 020f 8413 | | Call 0x2,0x13 0210 78c5 |x | Jump 0x2d6 0211 4820 |H | Short_Literal 0x20 0212 4802 |H | Short_Literal 0x2 0213 4800 |H | Short_Literal 0x0 0214 840c | | Call 0x2,0xc 0215 8413 | | Call 0x2,0x13 0216 78bf |x | Jump 0x2d6 0217 4801 |H | Short_Literal 0x1 0218 4fff |O | Short_Literal -0x1 0219 8408 | | Call 0x2,0x8 021a 8413 | | Call 0x2,0x13 021b 78ba |x | Jump 0x2d6 021c e5fb | | Load 0x2,-0x5 021d 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 021e 0c04 | | Execute_Immediate Greater_Equal,0x4 021f 68b6 |h | Jump_Zero 0x2d6 0220 e404 | | Load 0x2,0x4 0221 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0222 4804 |H | Short_Literal 0x4 0223 e5fb | | Load 0x2,-0x5 0224 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 0225 01d7 | | Execute Vector,Field_Read 0226 0ae1 | | Execute_Immediate Plus,-0x1f 0227 00d8 | | Load_Top At_Offset_0 0228 00e3 | | Load_Encached Natural_Cache 0229 0260 | ` | Execute Discrete,In_Type 022a 7001 |p | Jump_Nonzero 0x22c 022b 0801 | | Execute_Immediate Raise,0x1 022c 4803 |H | Short_Literal 0x3 022d e5fb | | Load 0x2,-0x5 022e 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 022f 01d7 | | Execute Vector,Field_Read 0230 0ae1 | | Execute_Immediate Plus,-0x1f 0231 00d8 | | Load_Top At_Offset_0 0232 00e3 | | Load_Encached Natural_Cache 0233 0260 | ` | Execute Discrete,In_Type 0234 7001 |p | Jump_Nonzero 0x236 0235 0801 | | Execute_Immediate Raise,0x1 0236 8409 | | Call 0x2,0x9 0237 8413 | | Call 0x2,0x13 0238 789d |x | Jump 0x2d6 0239 840b | | Call 0x2,0xb 023a 8413 | | Call 0x2,0x13 023b 789a |x | Jump 0x2d6 023c e403 | | Load 0x2,0x3 023d e5fb | | Load 0x2,-0x5 023e 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc 023f 8413 | | Call 0x2,0x13 0240 7895 |x | Jump 0x2d6 0241 e5fb | | Load 0x2,-0x5 0242 240c |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xc 0243 e403 | | Load 0x2,0x3 0244 017d | } | Execute Record,Structure_Write 0245 8413 | | Call 0x2,0x13 0246 788f |x | Jump 0x2d6 0247 4801 |H | Short_Literal 0x1 0248 e5fb | | Load 0x2,-0x5 0249 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa 024a 8413 | | Call 0x2,0x13 024b 788a |x | Jump 0x2d6 024c 4800 |H | Short_Literal 0x0 024d e5fb | | Load 0x2,-0x5 024e 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa 024f 8413 | | Call 0x2,0x13 0250 7885 |x | Jump 0x2d6 0251 4800 |H | Short_Literal 0x0 0252 e5fb | | Load 0x2,-0x5 0253 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 0254 8413 | | Call 0x2,0x13 0255 7880 |x | Jump 0x2d6 0256 e5fb | | Load 0x2,-0x5 0257 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 0258 0c03 | | Execute_Immediate Greater_Equal,0x3 0259 687c |h| | Jump_Zero 0x2d6 025a 4803 |H | Short_Literal 0x3 025b e5fb | | Load 0x2,-0x5 025c 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 025d 01d7 | | Execute Vector,Field_Read 025e 00d8 | | Load_Top At_Offset_0 025f 4833 |H3 | Short_Literal 0x33 0260 4838 |H8 | Short_Literal 0x38 0261 0262 | b | Execute Discrete,In_Range 0262 680d |h | Jump_Zero 0x270 0263 0acd | | Execute_Immediate Plus,-0x33 0264 4605 |F | Jump_Case 0x6 0265 7815 |x | Jump 0x27b ; case 0x0 0266 780b |x | Jump 0x272 ; case 0x1 0267 780d |x | Jump 0x275 ; case 0x2 0268 780f |x | Jump 0x278 ; case 0x3 0269 7813 |x | Jump 0x27d ; case 0x4 026a 7800 |x | Jump 0x26b ; case 0x5 026b 4845 |HE | Short_Literal 0x45 026c 4801 |H | Short_Literal 0x1 026d 4801 |H | Short_Literal 0x1 026e 840c | | Call 0x2,0xc 026f 780d |x | Jump 0x27d 0270 00d1 | | Pop_Control Pop_Count_1 0271 780b |x | Jump 0x27d 0272 4803 |H | Short_Literal 0x3 0273 840d | | Call 0x2,0xd 0274 7808 |x | Jump 0x27d 0275 4800 |H | Short_Literal 0x0 0276 840d | | Call 0x2,0xd 0277 7805 |x | Jump 0x27d 0278 4801 |H | Short_Literal 0x1 0279 840d | | Call 0x2,0xd 027a 7802 |x | Jump 0x27d 027b 4802 |H | Short_Literal 0x2 027c 840d | | Call 0x2,0xd 027d 8413 | | Call 0x2,0x13 027e 7857 |xW | Jump 0x2d6 027f e5fb | | Load 0x2,-0x5 0280 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 0281 0c03 | | Execute_Immediate Greater_Equal,0x3 0282 6853 |hS | Jump_Zero 0x2d6 0283 4803 |H | Short_Literal 0x3 0284 e5fb | | Load 0x2,-0x5 0285 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 0286 01d7 | | Execute Vector,Field_Read 0287 00d8 | | Load_Top At_Offset_0 0288 4830 |H0 | Short_Literal 0x30 0289 4842 |HB | Short_Literal 0x42 028a 0262 | b | Execute Discrete,In_Range 028b 6809 |h | Jump_Zero 0x295 028c 0b30 | 0 | Execute_Immediate Case_Compare,0x30 028d 7009 |p | Jump_Nonzero 0x297 028e 0b32 | 2 | Execute_Immediate Case_Compare,0x32 028f 7007 |p | Jump_Nonzero 0x297 0290 4833 |H3 | Short_Literal 0x33 0291 4840 |H@ | Short_Literal 0x40 0292 0262 | b | Execute Discrete,In_Range 0293 700b |p | Jump_Nonzero 0x29f 0294 7807 |x | Jump 0x29c 0295 00d1 | | Pop_Control Pop_Count_1 0296 7808 |x | Jump 0x29f 0297 00d1 | | Pop_Control Pop_Count_1 0298 4801 |H | Short_Literal 0x1 0299 e5fb | | Load 0x2,-0x5 029a 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd 029b 7803 |x | Jump 0x29f 029c 4800 |H | Short_Literal 0x0 029d e5fb | | Load 0x2,-0x5 029e 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd 029f 8413 | | Call 0x2,0x13 02a0 e5fb | | Load 0x2,-0x5 02a1 2c0f |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xf 02a2 7033 |p3 | Jump_Nonzero 0x2d6 02a3 e5fb | | Load 0x2,-0x5 02a4 2c0d |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xd 02a5 e403 | | Load 0x2,0x3 02a6 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02a8 782d |x- | Jump 0x2d6 02a9 e5fb | | Load 0x2,-0x5 02aa 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 02ab 0c03 | | Execute_Immediate Greater_Equal,0x3 02ac 6829 |h) | Jump_Zero 0x2d6 02ad 4803 |H | Short_Literal 0x3 02ae e5fb | | Load 0x2,-0x5 02af 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 02b0 01d7 | | Execute Vector,Field_Read 02b1 00d8 | | Load_Top At_Offset_0 02b2 4830 |H0 | Short_Literal 0x30 02b3 4842 |HB | Short_Literal 0x42 02b4 0262 | b | Execute Discrete,In_Range 02b5 6809 |h | Jump_Zero 0x2bf 02b6 0b30 | 0 | Execute_Immediate Case_Compare,0x30 02b7 7009 |p | Jump_Nonzero 0x2c1 02b8 0b32 | 2 | Execute_Immediate Case_Compare,0x32 02b9 7007 |p | Jump_Nonzero 0x2c1 02ba 4833 |H3 | Short_Literal 0x33 02bb 4840 |H@ | Short_Literal 0x40 02bc 0262 | b | Execute Discrete,In_Range 02bd 700b |p | Jump_Nonzero 0x2c9 02be 7807 |x | Jump 0x2c6 02bf 00d1 | | Pop_Control Pop_Count_1 02c0 7808 |x | Jump 0x2c9 02c1 00d1 | | Pop_Control Pop_Count_1 02c2 4801 |H | Short_Literal 0x1 02c3 e5fb | | Load 0x2,-0x5 02c4 280e |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xe 02c5 7803 |x | Jump 0x2c9 02c6 4800 |H | Short_Literal 0x0 02c7 e5fb | | Load 0x2,-0x5 02c8 280e |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xe 02c9 8413 | | Call 0x2,0x13 02ca e5fb | | Load 0x2,-0x5 02cb 2c0f |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xf 02cc 6809 |h | Jump_Zero 0x2d6 02cd e5fb | | Load 0x2,-0x5 02ce 2c0e |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe 02cf e403 | | Load 0x2,0x3 02d0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02d1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02d2 7803 |x | Jump 0x2d6 02d3 4801 |H | Short_Literal 0x1 02d4 e5fb | | Load 0x2,-0x5 02d5 2811 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x11 02d6 00c8 | | Action Pop_Auxiliary_Range 02d7 00a4 0039 | 9| Action Loop_Increasing_Extended,0x39 02d9 00ce | | Action Pop_Auxiliary 02da e5fc | | Load 0x2,-0x4 02db 01dc | | Execute Vector,Last 02dc 00d8 | | Load_Top At_Offset_0 02dd 00e3 | | Load_Encached Natural_Cache 02de 0260 | ` | Execute Discrete,In_Type 02df 7001 |p | Jump_Nonzero 0x2e1 02e0 0801 | | Execute_Immediate Raise,0x1 02e1 e5fc | | Load 0x2,-0x4 02e2 01dc | | Execute Vector,Last 02e3 00d8 | | Load_Top At_Offset_0 02e4 00e3 | | Load_Encached Natural_Cache 02e5 0260 | ` | Execute Discrete,In_Type 02e6 7001 |p | Jump_Nonzero 0x2e8 02e7 0801 | | Execute_Immediate Raise,0x1 02e8 840a | | Call 0x2,0xa 02e9 4800 |H | Short_Literal 0x0 02ea e403 | | Load 0x2,0x3 02eb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ec e404 | | Load 0x2,0x4 02ed 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02ee 822e | . | Call 0x1,0x2e 02ef 00d8 | | Load_Top At_Offset_0 02f0 00e4 | | Load_Encached Positive_Cache 02f1 0260 | ` | Execute Discrete,In_Type 02f2 7001 |p | Jump_Nonzero 0x2f4 02f3 0801 | | Execute_Immediate Raise,0x1 02f4 e403 | | Load 0x2,0x3 02f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02f6 e5fd | | Load 0x2,-0x3 02f7 e001 | | Load 0x0,0x1 02f8 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 02f9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02fa 0000 0000 | | .BLANK 0000[0x6] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 e008 | | Load 0x0,0x8 0304 180e | | Execute Package,Field_Execute,Field_Number 0xe 0305 4801 |H | Short_Literal 0x1 0306 e7ff | | Load 0x3,-0x1 0307 e009 | | Load 0x0,0x9 0308 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0309 4502 |E | Exit_Suprogram New_Top_Offset 0x2 030a 0000 0000 | | .BLANK 0000[0x6] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 e403 | | Load 0x2,0x3 0314 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0315 e404 | | Load 0x2,0x4 0316 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0317 822e | . | Call 0x1,0x2e 0318 e403 | | Load 0x2,0x3 0319 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 031a e403 | | Load 0x2,0x3 031b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 031c 00db | | Load_Top At_Offset_3 031d 0273 | s | Execute Discrete,Plus 031e 00d8 | | Load_Top At_Offset_0 031f 00e2 | | Load_Encached Integer_Cache 0320 0260 | ` | Execute Discrete,In_Type 0321 7001 |p | Jump_Nonzero 0x323 0322 0801 | | Execute_Immediate Raise,0x1 0323 e404 | | Load 0x2,0x4 0324 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0325 822e | . | Call 0x1,0x2e 0326 4801 |H | Short_Literal 0x1 0327 822f | / | Call 0x1,0x2f 0328 e403 | | Load 0x2,0x3 0329 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 032a 0092 0904 | | Action Push_String_Extended,0x904 ; "move " 032c 00db | | Load_Top At_Offset_3 032d 00e0 | | Load_Encached Standard_Cache 032e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 032f 01cc | | Execute Vector,Catenate 0330 0092 0905 | | Action Push_String_Extended,0x905 ; " to column" 0332 01cc | | Execute Vector,Catenate 0333 e403 | | Load 0x2,0x3 0334 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0335 00e0 | | Load_Encached Standard_Cache 0336 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0337 01cc | | Execute Vector,Catenate 0338 8405 | | Call 0x2,0x5 0339 4502 |E | Exit_Suprogram New_Top_Offset 0x2 033a 0000 0000 | | .BLANK 0000[0x6] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 e5fb | | Load 0x2,-0x5 0344 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0345 00db | | Load_Top At_Offset_3 0346 0273 | s | Execute Discrete,Plus 0347 e5fb | | Load 0x2,-0x5 0348 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0349 e403 | | Load 0x2,0x3 034a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 034b 00db | | Load_Top At_Offset_3 034c 0273 | s | Execute Discrete,Plus 034d e403 | | Load 0x2,0x3 034e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 034f e404 | | Load 0x2,0x4 0350 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0351 00db | | Load_Top At_Offset_3 0352 0273 | s | Execute Discrete,Plus 0353 e404 | | Load 0x2,0x4 0354 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0355 e404 | | Load 0x2,0x4 0356 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0357 00db | | Load_Top At_Offset_3 0358 0273 | s | Execute Discrete,Plus 0359 e404 | | Load 0x2,0x4 035a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 035b e5fb | | Load 0x2,-0x5 035c 240c |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xc 035d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 035e 00db | | Load_Top At_Offset_3 035f 0273 | s | Execute Discrete,Plus 0360 e5fb | | Load 0x2,-0x5 0361 240c |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xc 0362 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0363 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0364 0000 0000 | | .BLANK 0000[0x4] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 0374 | t | .CONST 0x0374 ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0004 | | .CONST 0x0004 ; Number of locals 036b INIT_0368: 036b e403 | | Load 0x2,0x3 036c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 036d 00db | | Load_Top At_Offset_3 036e 0273 | s | Execute Discrete,Plus 036f 00e2 | | Load_Encached Integer_Cache 0370 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0371 00e3 | | Load_Encached Natural_Cache 0372 029f 0843 | C| Declare_Subprogram INIT_0840,For_Call 0374 BODY_0368: 0374 e403 | | Load 0x2,0x3 0375 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0376 e404 | | Load 0x2,0x4 0377 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0378 822e | . | Call 0x1,0x2e 0379 e403 | | Load 0x2,0x3 037a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 037b 00da | | Load_Top At_Offset_2 037c e404 | | Load 0x2,0x4 037d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 037e 027c | | | Execute Discrete,Less 037f 6845 |hE | Jump_Zero 0x3c5 0380 e7fe | | Load 0x3,-0x2 0381 683e |h> | Jump_Zero 0x3c0 0382 e404 | | Load 0x2,0x4 0383 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0384 00db | | Load_Top At_Offset_3 0385 0272 | r | Execute Discrete,Minus 0386 005a | Z | Store_Top Discrete,At_Offset_2 0387 0092 0906 | | Action Push_String_Extended,0x906 ; "down" 0389 8604 | | Call 0x3,0x4 038a 00d9 | | Load_Top At_Offset_1 038b e404 | | Load 0x2,0x4 038c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 038d e404 | | Load 0x2,0x4 038e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 038f 0272 | r | Execute Discrete,Minus 0390 0a01 | | Execute_Immediate Plus,0x1 0391 00d8 | | Load_Top At_Offset_0 0392 00e2 | | Load_Encached Integer_Cache 0393 0260 | ` | Execute Discrete,In_Type 0394 7001 |p | Jump_Nonzero 0x396 0395 0801 | | Execute_Immediate Raise,0x1 0396 822e | . | Call 0x1,0x2e 0397 005a | Z | Store_Top Discrete,At_Offset_2 0398 4800 |H | Short_Literal 0x0 0399 4801 |H | Short_Literal 0x1 039a e404 | | Load 0x2,0x4 039b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 039c e603 | | Load 0x3,0x3 039d 0272 | r | Execute Discrete,Minus 039e 0a01 | | Execute_Immediate Plus,0x1 039f 00d8 | | Load_Top At_Offset_0 03a0 00e4 | | Load_Encached Positive_Cache 03a1 0260 | ` | Execute Discrete,In_Type 03a2 7001 |p | Jump_Nonzero 0x3a4 03a3 0801 | | Execute_Immediate Raise,0x1 03a4 e5fd | | Load 0x2,-0x3 03a5 e001 | | Load 0x0,0x1 03a6 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03a7 00d9 | | Load_Top At_Offset_1 03a8 e5fd | | Load 0x2,-0x3 03a9 e001 | | Load 0x0,0x1 03aa 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 03ab e404 | | Load 0x2,0x4 03ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ad e5fb | | Load 0x2,-0x5 03ae 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 03af 0272 | r | Execute Discrete,Minus 03b0 0a01 | | Execute_Immediate Plus,0x1 03b1 00d8 | | Load_Top At_Offset_0 03b2 00e3 | | Load_Encached Natural_Cache 03b3 0260 | ` | Execute Discrete,In_Type 03b4 7001 |p | Jump_Nonzero 0x3b6 03b5 0801 | | Execute_Immediate Raise,0x1 03b6 4801 |H | Short_Literal 0x1 03b7 e404 | | Load 0x2,0x4 03b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03b9 e5fd | | Load 0x2,-0x3 03ba e001 | | Load 0x0,0x1 03bb 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03bc 00d9 | | Load_Top At_Offset_1 03bd e5fd | | Load 0x2,-0x3 03be e001 | | Load 0x0,0x1 03bf 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 03c0 e404 | | Load 0x2,0x4 03c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03c2 e403 | | Load 0x2,0x3 03c3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03c4 7865 |xe | Jump 0x42a 03c5 00da | | Load_Top At_Offset_2 03c6 e404 | | Load 0x2,0x4 03c7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03c8 027d | } | Execute Discrete,Greater 03c9 685d |h] | Jump_Zero 0x427 03ca e7fe | | Load 0x3,-0x2 03cb 6856 |hV | Jump_Zero 0x422 03cc 00da | | Load_Top At_Offset_2 03cd e404 | | Load 0x2,0x4 03ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03cf 0272 | r | Execute Discrete,Minus 03d0 005a | Z | Store_Top Discrete,At_Offset_2 03d1 0092 0907 | | Action Push_String_Extended,0x907 ; "up" 03d3 8604 | | Call 0x3,0x4 03d4 00d9 | | Load_Top At_Offset_1 03d5 e404 | | Load 0x2,0x4 03d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03d7 e404 | | Load 0x2,0x4 03d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03d9 0272 | r | Execute Discrete,Minus 03da 0a01 | | Execute_Immediate Plus,0x1 03db 00d8 | | Load_Top At_Offset_0 03dc 00e2 | | Load_Encached Integer_Cache 03dd 0260 | ` | Execute Discrete,In_Type 03de 7001 |p | Jump_Nonzero 0x3e0 03df 0801 | | Execute_Immediate Raise,0x1 03e0 822e | . | Call 0x1,0x2e 03e1 005a | Z | Store_Top Discrete,At_Offset_2 03e2 e404 | | Load 0x2,0x4 03e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03e4 e5fb | | Load 0x2,-0x5 03e5 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 03e6 027f | | Execute Discrete,Equal 03e7 6812 |h | Jump_Zero 0x3fa 03e8 e404 | | Load 0x2,0x4 03e9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03ea e404 | | Load 0x2,0x4 03eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ec e5fb | | Load 0x2,-0x5 03ed 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03ee 0273 | s | Execute Discrete,Plus 03ef 0aff | | Execute_Immediate Plus,-0x1 03f0 027f | | Execute Discrete,Equal 03f1 6808 |h | Jump_Zero 0x3fa 03f2 00d9 | | Load_Top At_Offset_1 03f3 00d8 | | Load_Top At_Offset_0 03f4 00e4 | | Load_Encached Positive_Cache 03f5 0260 | ` | Execute Discrete,In_Type 03f6 7001 |p | Jump_Nonzero 0x3f8 03f7 0801 | | Execute_Immediate Raise,0x1 03f8 8407 | | Call 0x2,0x7 03f9 7828 |x( | Jump 0x422 03fa e404 | | Load 0x2,0x4 03fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03fc e5fb | | Load 0x2,-0x5 03fd 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 03fe 0272 | r | Execute Discrete,Minus 03ff 0a01 | | Execute_Immediate Plus,0x1 0400 00d8 | | Load_Top At_Offset_0 0401 00e3 | | Load_Encached Natural_Cache 0402 0260 | ` | Execute Discrete,In_Type 0403 7001 |p | Jump_Nonzero 0x405 0404 0801 | | Execute_Immediate Raise,0x1 0405 4801 |H | Short_Literal 0x1 0406 e404 | | Load 0x2,0x4 0407 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0408 e5fd | | Load 0x2,-0x3 0409 e001 | | Load 0x0,0x1 040a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 040b 00d9 | | Load_Top At_Offset_1 040c e5fd | | Load 0x2,-0x3 040d e001 | | Load 0x0,0x1 040e 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 040f 4800 |H | Short_Literal 0x0 0410 4801 |H | Short_Literal 0x1 0411 e404 | | Load 0x2,0x4 0412 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0413 e603 | | Load 0x3,0x3 0414 0272 | r | Execute Discrete,Minus 0415 0a01 | | Execute_Immediate Plus,0x1 0416 00d8 | | Load_Top At_Offset_0 0417 00e4 | | Load_Encached Positive_Cache 0418 0260 | ` | Execute Discrete,In_Type 0419 7001 |p | Jump_Nonzero 0x41b 041a 0801 | | Execute_Immediate Raise,0x1 041b e5fd | | Load 0x2,-0x3 041c e001 | | Load 0x0,0x1 041d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 041e 00d9 | | Load_Top At_Offset_1 041f e5fd | | Load 0x2,-0x3 0420 e001 | | Load 0x0,0x1 0421 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0422 e404 | | Load 0x2,0x4 0423 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0424 e403 | | Load 0x2,0x3 0425 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0426 7803 |x | Jump 0x42a 0427 00da | | Load_Top At_Offset_2 0428 e403 | | Load 0x2,0x3 0429 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 042a 0092 0904 | | Action Push_String_Extended,0x904 ; "move " 042c e7ff | | Load 0x3,-0x1 042d 00e0 | | Load_Encached Standard_Cache 042e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 042f 01cc | | Execute Vector,Catenate 0430 0092 0908 | | Action Push_String_Extended,0x908 ; " to line" 0432 01cc | | Execute Vector,Catenate 0433 e403 | | Load 0x2,0x3 0434 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0435 00e0 | | Load_Encached Standard_Cache 0436 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0437 01cc | | Execute Vector,Catenate 0438 8405 | | Call 0x2,0x5 0439 4503 |E | Exit_Suprogram New_Top_Offset 0x3 043a 0000 0000 | | .BLANK 0000[0x6] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 044d | M | .CONST 0x044d ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0003 | | .CONST 0x0003 ; Number of locals 0443 INIT_0440: 0443 00da | | Load_Top At_Offset_2 0444 4801 |H | Short_Literal 0x1 0445 822f | / | Call 0x1,0x2f 0446 e220 | | Load 0x1,0x20 0447 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0448 e7fe | | Load 0x3,-0x2 0449 4801 |H | Short_Literal 0x1 044a 822f | / | Call 0x1,0x2f 044b e221 | ! | Load 0x1,0x21 044c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 044d BODY_0440: 044d e7fd | | Load 0x3,-0x3 044e 6810 |h | Jump_Zero 0x45f 044f e404 | | Load 0x2,0x4 0450 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0451 e404 | | Load 0x2,0x4 0452 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0453 00db | | Load_Top At_Offset_3 0454 0273 | s | Execute Discrete,Plus 0455 0aff | | Execute_Immediate Plus,-0x1 0456 00d8 | | Load_Top At_Offset_0 0457 00e2 | | Load_Encached Integer_Cache 0458 0260 | ` | Execute Discrete,In_Type 0459 7001 |p | Jump_Nonzero 0x45b 045a 0801 | | Execute_Immediate Raise,0x1 045b 822e | . | Call 0x1,0x2e 045c e403 | | Load 0x2,0x3 045d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 045e 7807 |x | Jump 0x466 045f e5fb | | Load 0x2,-0x5 0460 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0461 00da | | Load_Top At_Offset_2 0462 0273 | s | Execute Discrete,Plus 0463 0aff | | Execute_Immediate Plus,-0x1 0464 e403 | | Load 0x2,0x3 0465 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0466 e404 | | Load 0x2,0x4 0467 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0468 00d9 | | Load_Top At_Offset_1 0469 822e | . | Call 0x1,0x2e 046a e403 | | Load 0x2,0x3 046b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 046c 0092 0909 | | Action Push_String_Extended,0x909 ; "move_to line" 046e e403 | | Load 0x2,0x3 046f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0470 00e0 | | Load_Encached Standard_Cache 0471 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0472 01cc | | Execute Vector,Catenate 0473 0092 090a | | Action Push_String_Extended,0x90a ; ", column" 0475 01cc | | Execute Vector,Catenate 0476 e403 | | Load 0x2,0x3 0477 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0478 00e0 | | Load_Encached Standard_Cache 0479 1818 | | Execute Package,Field_Execute,Field_Number 0x18 047a 01cc | | Execute Vector,Catenate 047b 8405 | | Call 0x2,0x5 047c e403 | | Load 0x2,0x3 047d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 047e e5fb | | Load 0x2,-0x5 047f 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0480 027f | | Execute Discrete,Equal 0481 680b |h | Jump_Zero 0x48d 0482 4800 |H | Short_Literal 0x0 0483 4801 |H | Short_Literal 0x1 0484 e403 | | Load 0x2,0x3 0485 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0486 e5fd | | Load 0x2,-0x3 0487 e001 | | Load 0x0,0x1 0488 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0489 4800 |H | Short_Literal 0x0 048a e00a | | Load 0x0,0xa 048b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 048c 180d | | Execute Package,Field_Execute,Field_Number 0xd 048d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 048e 0000 0000 | | .XXX[0x2] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0494 | | .CONST 0x0494 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0002 | | .CONST 0x0002 ; Number of locals 0493 INIT_0490: 0493 00e3 | | Load_Encached Natural_Cache 0494 BODY_0490: 0494 00db | | Load_Top At_Offset_3 0495 e402 | | Load 0x2,0x2 0496 027b | { | Execute Discrete,Greater_Equal 0497 680a |h | Jump_Zero 0x4a2 0498 4822 |H" | Short_Literal 0x22 0499 0092 090b | | Action Push_String_Extended,0x90b ; "display \x22" 049b e402 | | Load 0x2,0x2 049c e7ff | | Load 0x3,-0x1 049d e5fc | | Load 0x2,-0x4 049e 01cf | | Execute Vector,Slice_Read 049f 01cc | | Execute Vector,Catenate 04a0 01cb | | Execute Vector,Append 04a1 8405 | | Call 0x2,0x5 04a2 00cf | | Action Mark_Auxiliary 04a3 785f |x_ | Jump 0x503 04a4 e7ff | | Load 0x3,-0x1 04a5 e402 | | Load 0x2,0x2 04a6 0272 | r | Execute Discrete,Minus 04a7 0a01 | | Execute_Immediate Plus,0x1 04a8 005a | Z | Store_Top Discrete,At_Offset_2 04a9 e403 | | Load 0x2,0x3 04aa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04ab e404 | | Load 0x2,0x4 04ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04ad 027d | } | Execute Discrete,Greater 04ae 681e |h | Jump_Zero 0x4cd 04af e5fb | | Load 0x2,-0x5 04b0 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7 04b1 6813 |h | Jump_Zero 0x4c5 04b2 4801 |H | Short_Literal 0x1 04b3 4801 |H | Short_Literal 0x1 04b4 8408 | | Call 0x2,0x8 04b5 e404 | | Load 0x2,0x4 04b6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04b7 4801 |H | Short_Literal 0x1 04b8 e403 | | Load 0x2,0x3 04b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ba e5fb | | Load 0x2,-0x5 04bb 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 04bc 0272 | r | Execute Discrete,Minus 04bd 0a01 | | Execute_Immediate Plus,0x1 04be 00d8 | | Load_Top At_Offset_0 04bf 00e3 | | Load_Encached Natural_Cache 04c0 0260 | ` | Execute Discrete,In_Type 04c1 7001 |p | Jump_Nonzero 0x4c3 04c2 0801 | | Execute_Immediate Raise,0x1 04c3 8409 | | Call 0x2,0x9 04c4 7808 |x | Jump 0x4cd 04c5 e404 | | Load 0x2,0x4 04c6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04c7 e403 | | Load 0x2,0x3 04c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04c9 e7ff | | Load 0x3,-0x1 04ca c402 | | Store 0x2,0x2 04cb 4801 |H | Short_Literal 0x1 04cc 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 04cd 00d9 | | Load_Top At_Offset_1 04ce e404 | | Load 0x2,0x4 04cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04d0 e403 | | Load 0x2,0x3 04d1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04d2 0272 | r | Execute Discrete,Minus 04d3 0a01 | | Execute_Immediate Plus,0x1 04d4 027d | } | Execute Discrete,Greater 04d5 6807 |h | Jump_Zero 0x4dd 04d6 e404 | | Load 0x2,0x4 04d7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04d8 e403 | | Load 0x2,0x3 04d9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04da 0272 | r | Execute Discrete,Minus 04db 0a01 | | Execute_Immediate Plus,0x1 04dc 005a | Z | Store_Top Discrete,At_Offset_2 04dd 4800 |H | Short_Literal 0x0 04de e403 | | Load 0x2,0x3 04df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04e0 e403 | | Load 0x2,0x3 04e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04e2 e5fd | | Load 0x2,-0x3 04e3 e001 | | Load 0x0,0x1 04e4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 04e5 e403 | | Load 0x2,0x3 04e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04e7 e403 | | Load 0x2,0x3 04e8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 04e9 e402 | | Load 0x2,0x2 04ea 00d8 | | Load_Top At_Offset_0 04eb e602 | | Load 0x3,0x2 04ec 0273 | s | Execute Discrete,Plus 04ed 0aff | | Execute_Immediate Plus,-0x1 04ee 00d8 | | Load_Top At_Offset_0 04ef 00e2 | | Load_Encached Integer_Cache 04f0 0260 | ` | Execute Discrete,In_Type 04f1 7001 |p | Jump_Nonzero 0x4f3 04f2 0801 | | Execute_Immediate Raise,0x1 04f3 e5fc | | Load 0x2,-0x4 04f4 01cf | | Execute Vector,Slice_Read 04f5 e5fd | | Load 0x2,-0x3 04f6 e001 | | Load 0x0,0x1 04f7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 04f8 e402 | | Load 0x2,0x2 04f9 00da | | Load_Top At_Offset_2 04fa 0273 | s | Execute Discrete,Plus 04fb c402 | | Store 0x2,0x2 04fc e403 | | Load 0x2,0x3 04fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04fe 00da | | Load_Top At_Offset_2 04ff 0273 | s | Execute Discrete,Plus 0500 e403 | | Load 0x2,0x3 0501 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0502 00c9 | | Action Pop_Auxiliary_Loop 0503 e7ff | | Load 0x3,-0x1 0504 e402 | | Load 0x2,0x2 0505 027b | { | Execute Discrete,Greater_Equal 0506 779d |w | Jump_Nonzero 0x4a4 0507 00ce | | Action Pop_Auxiliary 0508 e7fe | | Load 0x3,-0x2 0509 c402 | | Store 0x2,0x2 050a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 050b 0000 0000 | | .BLANK 0000[0x5] 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 0513 | | .CONST 0x0513 ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 0001 | | .CONST 0x0001 ; Number of locals 0513 BODY_0510: 0513 INIT_0510: 0513 e5fb | | Load 0x2,-0x5 0514 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 0515 6804 |h | Jump_Zero 0x51a 0516 0092 090c | | Action Push_String_Extended,0x90c ; "\x1b/Z" 0518 85fe | | Call 0x2,-0x2 0519 4501 |E | Exit_Suprogram New_Top_Offset 0x1 051a e219 | | Load 0x1,0x19 051b 85fe | | Call 0x2,-0x2 051c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 051d 0000 0000 | | .XXX[0x3] 051f 0000 | | 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0539 | 9 | .CONST 0x0539 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0003 | | .CONST 0x0003 ; Number of locals 0523 INIT_0520: 0523 4801 |H | Short_Literal 0x1 0524 e404 | | Load 0x2,0x4 0525 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0526 00e9 | | Load_Encached String_Cache 0527 035b | [ | Declare_Type Array,Constrained 0528 0337 | 7 | Declare_Variable Array 0529 00d8 | | Load_Top At_Offset_0 052a 0335 | 5 | Declare_Variable Array,Duplicate 052b 00cd | | Action Spare6_Action 052c 00d9 | | Load_Top At_Offset_1 052d 01d9 | | Execute Vector,Reverse_Bounds 052e 0263 | c | Execute Discrete,Above_Bound 052f 7005 |p | Jump_Nonzero 0x535 0530 e7fd | | Load 0x3,-0x3 0531 00d9 | | Load_Top At_Offset_1 0532 e603 | | Load 0x3,0x3 0533 01d6 | | Execute Vector,Field_Write 0534 3ffb |? | Loop_Increasing 0x530 0535 00d9 | | Load_Top At_Offset_1 0536 01d4 | | Execute Vector,Structure_Write 0537 029f 0863 | c| Declare_Subprogram INIT_0860,For_Call 0539 BODY_0520: 0539 e403 | | Load 0x2,0x3 053a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 053b e404 | | Load 0x2,0x4 053c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 053d 822e | . | Call 0x1,0x2e 053e e403 | | Load 0x2,0x3 053f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0540 e7fe | | Load 0x3,-0x2 0541 4602 |F | Jump_Case 0x3 0542 783b |x; | Jump 0x57e ; case 0x0 0543 785e |x^ | Jump 0x5a2 ; case 0x1 0544 7800 |x | Jump 0x545 ; case 0x2 0545 4800 |H | Short_Literal 0x0 0546 e403 | | Load 0x2,0x3 0547 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0548 e403 | | Load 0x2,0x3 0549 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 054a e5fd | | Load 0x2,-0x3 054b e001 | | Load 0x0,0x1 054c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 054d e403 | | Load 0x2,0x3 054e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 054f e001 | | Load 0x0,0x1 0550 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0551 e403 | | Load 0x2,0x3 0552 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0553 e602 | | Load 0x3,0x2 0554 01dc | | Execute Vector,Last 0555 e602 | | Load 0x3,0x2 0556 01cf | | Execute Vector,Slice_Read 0557 e5fd | | Load 0x2,-0x3 0558 e001 | | Load 0x0,0x1 0559 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 055a e7ff | | Load 0x3,-0x1 055b 0f01 | | Execute_Immediate Equal,0x1 055c 6820 |h | Jump_Zero 0x57d 055d 00cf | | Action Mark_Auxiliary 055e e5fb | | Load 0x2,-0x5 055f 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0560 e5fb | | Load 0x2,-0x5 0561 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0562 0273 | s | Execute Discrete,Plus 0563 0aff | | Execute_Immediate Plus,-0x1 0564 00d8 | | Load_Top At_Offset_0 0565 00e2 | | Load_Encached Integer_Cache 0566 0260 | ` | Execute Discrete,In_Type 0567 7001 |p | Jump_Nonzero 0x569 0568 0801 | | Execute_Immediate Raise,0x1 0569 e403 | | Load 0x2,0x3 056a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 056b 0a01 | | Execute_Immediate Plus,0x1 056c 00d8 | | Load_Top At_Offset_0 056d 00e2 | | Load_Encached Integer_Cache 056e 0260 | ` | Execute Discrete,In_Type 056f 7001 |p | Jump_Nonzero 0x571 0570 0801 | | Execute_Immediate Raise,0x1 0571 0263 | c | Execute Discrete,Above_Bound 0572 7009 |p | Jump_Nonzero 0x57c 0573 00d8 | | Load_Top At_Offset_0 0574 00d8 | | Load_Top At_Offset_0 0575 00e4 | | Load_Encached Positive_Cache 0576 0260 | ` | Execute Discrete,In_Type 0577 7001 |p | Jump_Nonzero 0x579 0578 0801 | | Execute_Immediate Raise,0x1 0579 8603 | | Call 0x3,0x3 057a 00c8 | | Action Pop_Auxiliary_Range 057b 3ff7 |? | Loop_Increasing 0x573 057c 00ce | | Action Pop_Auxiliary 057d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 057e e7ff | | Load 0x3,-0x1 057f 0f01 | | Execute_Immediate Equal,0x1 0580 680d |h | Jump_Zero 0x58e 0581 00cf | | Action Mark_Auxiliary 0582 e403 | | Load 0x2,0x3 0583 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0584 0aff | | Execute_Immediate Plus,-0x1 0585 e5fb | | Load 0x2,-0x5 0586 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0587 0263 | c | Execute Discrete,Above_Bound 0588 7004 |p | Jump_Nonzero 0x58d 0589 00d8 | | Load_Top At_Offset_0 058a 8603 | | Call 0x3,0x3 058b 00c8 | | Action Pop_Auxiliary_Range 058c 3ffc |? | Loop_Increasing 0x589 058d 00ce | | Action Pop_Auxiliary 058e 4800 |H | Short_Literal 0x0 058f 4801 |H | Short_Literal 0x1 0590 e403 | | Load 0x2,0x3 0591 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0592 e5fd | | Load 0x2,-0x3 0593 e001 | | Load 0x0,0x1 0594 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0595 e403 | | Load 0x2,0x3 0596 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0597 e001 | | Load 0x0,0x1 0598 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0599 4801 |H | Short_Literal 0x1 059a e403 | | Load 0x2,0x3 059b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 059c e602 | | Load 0x3,0x2 059d 01cf | | Execute Vector,Slice_Read 059e e5fd | | Load 0x2,-0x3 059f e001 | | Load 0x0,0x1 05a0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 05a1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05a2 e7ff | | Load 0x3,-0x1 05a3 0f01 | | Execute_Immediate Equal,0x1 05a4 7004 |p | Jump_Nonzero 0x5a9 05a5 e403 | | Load 0x2,0x3 05a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05a7 8603 | | Call 0x3,0x3 05a8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05a9 e5fb | | Load 0x2,-0x5 05aa 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 05ab 8407 | | Call 0x2,0x7 05ac e403 | | Load 0x2,0x3 05ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05ae e5fb | | Load 0x2,-0x5 05af 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 05b0 0272 | r | Execute Discrete,Minus 05b1 0a01 | | Execute_Immediate Plus,0x1 05b2 00d8 | | Load_Top At_Offset_0 05b3 00e3 | | Load_Encached Natural_Cache 05b4 0260 | ` | Execute Discrete,In_Type 05b5 7001 |p | Jump_Nonzero 0x5b7 05b6 0801 | | Execute_Immediate Raise,0x1 05b7 e403 | | Load 0x2,0x3 05b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05b9 e403 | | Load 0x2,0x3 05ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05bb e5fd | | Load 0x2,-0x3 05bc e001 | | Load 0x0,0x1 05bd 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 05be e5fb | | Load 0x2,-0x5 05bf 00d8 | | Load_Top At_Offset_0 05c0 2513 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x13 05c1 00d8 | | Load_Top At_Offset_0 05c2 0335 | 5 | Declare_Variable Array,Duplicate 05c3 00cd | | Action Spare6_Action 05c4 00d9 | | Load_Top At_Offset_1 05c5 01d9 | | Execute Vector,Reverse_Bounds 05c6 0263 | c | Execute Discrete,Above_Bound 05c7 7005 |p | Jump_Nonzero 0x5cd 05c8 4800 |H | Short_Literal 0x0 05c9 00d9 | | Load_Top At_Offset_1 05ca e606 | | Load 0x3,0x6 05cb 01d6 | | Execute Vector,Field_Write 05cc 3ffb |? | Loop_Increasing 0x5c8 05cd 00cd | | Action Spare6_Action 05ce 00d9 | | Load_Top At_Offset_1 05cf 2913 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x13 05d0 00d1 | | Pop_Control Pop_Count_1 05d1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05d2 0000 0000 | | .BLANK 0000[0x6] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db e5fb | | Load 0x2,-0x5 05dc 00d8 | | Load_Top At_Offset_0 05dd 2513 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x13 05de 00d8 | | Load_Top At_Offset_0 05df e403 | | Load 0x2,0x3 05e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05e1 e5fb | | Load 0x2,-0x5 05e2 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 05e3 0272 | r | Execute Discrete,Minus 05e4 0a01 | | Execute_Immediate Plus,0x1 05e5 e7ff | | Load 0x3,-0x1 05e6 00d9 | | Load_Top At_Offset_1 05e7 00db | | Load_Top At_Offset_3 05e8 01d6 | | Execute Vector,Field_Write 05e9 00d2 | | Pop_Control Pop_Count_2 05ea 00d0 | | Action Swap_Control 05eb 2913 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x13 05ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05ed 0000 0000 | | .XXX[0x3] 05ef 0000 | | 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f5 | | .CONST 0x05f5 ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0002 | | .CONST 0x0002 ; Number of locals 05f3 INIT_05f0: 05f3 00e4 | | Load_Encached Positive_Cache 05f4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 05f5 BODY_05f0: 05f5 00cf | | Action Mark_Auxiliary 05f6 e5fb | | Load 0x2,-0x5 05f7 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 05f8 0aff | | Execute_Immediate Plus,-0x1 05f9 4803 |H | Short_Literal 0x3 05fa 0263 | c | Execute Discrete,Above_Bound 05fb 700b |p | Jump_Nonzero 0x607 05fc 00d8 | | Load_Top At_Offset_0 05fd e5fb | | Load 0x2,-0x5 05fe 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 05ff 01d7 | | Execute Vector,Field_Read 0600 0f3b | ; | Execute_Immediate Equal,0x3b 0601 6803 |h | Jump_Zero 0x605 0602 00db | | Load_Top At_Offset_3 0603 0a01 | | Execute_Immediate Plus,0x1 0604 c602 | | Store 0x3,0x2 0605 00c8 | | Action Pop_Auxiliary_Range 0606 3ff5 |? | Loop_Increasing 0x5fc 0607 00ce | | Action Pop_Auxiliary 0608 00d8 | | Load_Top At_Offset_0 0609 00ca | | Action Exit_Nullary_Function 060a 0000 0000 | | .BLANK 0000[0x6] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0615 | | .CONST 0x0615 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0002 | | .CONST 0x0002 ; Number of locals 0613 INIT_0610: 0613 00e4 | | Load_Encached Positive_Cache 0614 0603 | | Execute_Immediate Set_Value_Unchecked,0x3 0615 BODY_0610: 0615 00cf | | Action Mark_Auxiliary 0616 e7ff | | Load 0x3,-0x1 0617 0aff | | Execute_Immediate Plus,-0x1 0618 4801 |H | Short_Literal 0x1 0619 0263 | c | Execute Discrete,Above_Bound 061a 7019 |p | Jump_Nonzero 0x634 061b 00cf | | Action Mark_Auxiliary 061c 780b |x | Jump 0x628 061d e602 | | Load 0x3,0x2 061e 0a01 | | Execute_Immediate Plus,0x1 061f c602 | | Store 0x3,0x2 0620 e602 | | Load 0x3,0x2 0621 e5fb | | Load 0x2,-0x5 0622 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 0623 027b | { | Execute Discrete,Greater_Equal 0624 6802 |h | Jump_Zero 0x627 0625 00ea | | Load_Encached Null_String_Cache 0626 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0627 00c9 | | Action Pop_Auxiliary_Loop 0628 e602 | | Load 0x3,0x2 0629 e5fb | | Load 0x2,-0x5 062a 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 062b 01d7 | | Execute Vector,Field_Read 062c 0e3b | ; | Execute_Immediate Not_Equal,0x3b 062d 77ef |w | Jump_Nonzero 0x61d 062e 00ce | | Action Pop_Auxiliary 062f 00db | | Load_Top At_Offset_3 0630 0a01 | | Execute_Immediate Plus,0x1 0631 c602 | | Store 0x3,0x2 0632 00c8 | | Action Pop_Auxiliary_Range 0633 3fe7 |? | Loop_Increasing 0x61b 0634 00c9 | | Action Pop_Auxiliary_Loop 0635 e5fb | | Load 0x2,-0x5 0636 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 0637 0aff | | Execute_Immediate Plus,-0x1 0638 00da | | Load_Top At_Offset_2 0639 0263 | c | Execute Discrete,Above_Bound 063a 7011 |p | Jump_Nonzero 0x64c 063b 00d8 | | Load_Top At_Offset_0 063c e5fb | | Load 0x2,-0x5 063d 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 063e 01d7 | | Execute Vector,Field_Read 063f 0f3b | ; | Execute_Immediate Equal,0x3b 0640 6809 |h | Jump_Zero 0x64a 0641 00db | | Load_Top At_Offset_3 0642 00d9 | | Load_Top At_Offset_1 0643 0aff | | Execute_Immediate Plus,-0x1 0644 e5fb | | Load 0x2,-0x5 0645 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 0646 01cf | | Execute Vector,Slice_Read 0647 0335 | 5 | Declare_Variable Array,Duplicate 0648 00cd | | Action Spare6_Action 0649 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 064a 00c8 | | Action Pop_Auxiliary_Range 064b 3fef |? | Loop_Increasing 0x63b 064c 00ce | | Action Pop_Auxiliary 064d 00d8 | | Load_Top At_Offset_0 064e e5fb | | Load 0x2,-0x5 064f 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 0650 0aff | | Execute_Immediate Plus,-0x1 0651 e5fb | | Load 0x2,-0x5 0652 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 0653 01cf | | Execute Vector,Slice_Read 0654 0335 | 5 | Declare_Variable Array,Duplicate 0655 00cd | | Action Spare6_Action 0656 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0657 0000 | | .XXX[0x1] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065f | _ | .CONST 0x065f ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0003 | | .CONST 0x0003 ; Number of locals 065b INIT_0658: 065b 00da | | Load_Top At_Offset_2 065c 840f | | Call 0x2,0xf 065d 029f 088b | | Declare_Subprogram INIT_0888,For_Call 065f BODY_0658: 065f 00d9 | | Load_Top At_Offset_1 0660 01db | | Execute Vector,Length 0661 7002 |p | Jump_Nonzero 0x664 0662 e7fe | | Load 0x3,-0x2 0663 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0664 8603 | | Call 0x3,0x3 0665 0831 | 1 | Execute_Immediate Raise,0x31 0666 0000 0000 | | .XXX[0x2] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066d | m | .CONST 0x066d ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0002 | | .CONST 0x0002 ; Number of locals 066b INIT_0668: 066b 029f 08a3 | | Declare_Subprogram INIT_08a0,For_Call 066d BODY_0668: 066d 00cf | | Action Mark_Auxiliary 066e 840e | | Call 0x2,0xe 066f 4801 |H | Short_Literal 0x1 0670 0263 | c | Execute Discrete,Above_Bound 0671 7003 |p | Jump_Nonzero 0x675 0672 8602 | | Call 0x3,0x2 0673 00c8 | | Action Pop_Auxiliary_Range 0674 3ffd |? | Loop_Increasing 0x672 0675 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0676 0000 0000 | | .XXX[0x2] 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 067b | { | .CONST 0x067b ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0001 | | .CONST 0x0001 ; Number of locals 067b BODY_0678: 067b INIT_0678: 067b e5fb | | Load 0x2,-0x5 067c 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 067d e5fb | | Load 0x2,-0x5 067e 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 067f 01d7 | | Execute Vector,Field_Read 0680 00d8 | | Load_Top At_Offset_0 0681 0d41 | A | Execute_Immediate Less,0x41 0682 7041 |pA | Jump_Nonzero 0x6c4 0683 0abf | | Execute_Immediate Plus,-0x41 0684 463e |F> | Jump_Case 0x3f 0685 7992 |y | Jump 0x818 ; case 0x0 0686 784e |xN | Jump 0x6d5 ; case 0x1 0687 783e |x> | Jump 0x6c6 ; case 0x2 0688 786f |xo | Jump 0x6f8 ; case 0x3 0689 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4 068a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x5 068b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x6 068c 783e |x> | Jump 0x6cb ; case 0x7 068d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x8 068e 7934 |y4 | Jump 0x7c3 ; case 0x9 068f 784b |xK | Jump 0x6db ; case 0xa 0690 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xb 0691 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xc 0692 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xd 0693 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xe 0694 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xf 0695 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x10 0696 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x11 0697 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x12 0698 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x13 0699 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x14 069a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x15 069b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x16 069c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x17 069d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x18 069e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x19 069f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1a 06a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1b 06a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1c 06a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1d 06a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1e 06a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1f 06a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x20 06a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x21 06a7 796e |yn | Jump 0x816 ; case 0x22 06a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x23 06a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x24 06aa 7820 |x | Jump 0x6cb ; case 0x25 06ab 7852 |xR | Jump 0x6fe ; case 0x26 06ac 7881 |x | Jump 0x72e ; case 0x27 06ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x28 06ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x29 06af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2a 06b0 7880 |x | Jump 0x731 ; case 0x2b 06b1 7882 |x | Jump 0x734 ; case 0x2c 06b2 78b8 |x | Jump 0x76b ; case 0x2d 06b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2e 06b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2f 06b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x30 06b6 7929 |y) | Jump 0x7e0 ; case 0x31 06b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x32 06b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x33 06b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x34 06ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x35 06bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x36 06bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x37 06bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x38 06be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x39 06bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3a 06c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3b 06c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3c 06c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3d 06c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3e 06c4 00d1 | | Pop_Control Pop_Count_1 06c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06c6 4801 |H | Short_Literal 0x1 06c7 4801 |H | Short_Literal 0x1 06c8 8410 | | Call 0x2,0x10 06c9 8406 | | Call 0x2,0x6 06ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06cb e404 | | Load 0x2,0x4 06cc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 06cd 4801 |H | Short_Literal 0x1 06ce 4802 |H | Short_Literal 0x2 06cf 8410 | | Call 0x2,0x10 06d0 4801 |H | Short_Literal 0x1 06d1 4801 |H | Short_Literal 0x1 06d2 8410 | | Call 0x2,0x10 06d3 8409 | | Call 0x2,0x9 06d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06d5 4800 |H | Short_Literal 0x0 06d6 4801 |H | Short_Literal 0x1 06d7 4801 |H | Short_Literal 0x1 06d8 8410 | | Call 0x2,0x10 06d9 8408 | | Call 0x2,0x8 06da 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06db 4800 |H | Short_Literal 0x0 06dc 4801 |H | Short_Literal 0x1 06dd 8410 | | Call 0x2,0x10 06de 0b01 | | Execute_Immediate Case_Compare,0x1 06df 7007 |p | Jump_Nonzero 0x6e7 06e0 0b02 | | Execute_Immediate Case_Compare,0x2 06e1 700b |p | Jump_Nonzero 0x6ed 06e2 4803 |H | Short_Literal 0x3 06e3 613c |a< | Indirect_Literal Discrete,0x820,{0x00000000, 0x7fffffff} 06e4 0262 | b | Execute Discrete,In_Range 06e5 7138 |q8 | Jump_Nonzero 0x81e 06e6 780c |x | Jump 0x6f3 06e7 00d1 | | Pop_Control Pop_Count_1 06e8 4820 |H | Short_Literal 0x20 06e9 4800 |H | Short_Literal 0x0 06ea 4800 |H | Short_Literal 0x0 06eb 840c | | Call 0x2,0xc 06ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06ed 00d1 | | Pop_Control Pop_Count_1 06ee 4820 |H | Short_Literal 0x20 06ef 4801 |H | Short_Literal 0x1 06f0 4800 |H | Short_Literal 0x0 06f1 840c | | Call 0x2,0xc 06f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06f3 4820 |H | Short_Literal 0x20 06f4 4802 |H | Short_Literal 0x2 06f5 4800 |H | Short_Literal 0x0 06f6 840c | | Call 0x2,0xc 06f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06f8 4801 |H | Short_Literal 0x1 06f9 4801 |H | Short_Literal 0x1 06fa 8410 | | Call 0x2,0x10 06fb 0275 | u | Execute Discrete,Unary_Minus 06fc 8406 | | Call 0x2,0x6 06fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06fe 4800 |H | Short_Literal 0x0 06ff 4801 |H | Short_Literal 0x1 0700 8410 | | Call 0x2,0x10 0701 0b00 | | Execute_Immediate Case_Compare,0x0 0702 7019 |p | Jump_Nonzero 0x71c 0703 0f03 | | Execute_Immediate Equal,0x3 0704 7001 |p | Jump_Nonzero 0x706 0705 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0706 00cf | | Action Mark_Auxiliary 0707 e5fb | | Load 0x2,-0x5 0708 2514 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x14 0709 01d9 | | Execute Vector,Reverse_Bounds 070a 0263 | c | Execute Discrete,Above_Bound 070b 700e |p | Jump_Nonzero 0x71a 070c e5fb | | Load 0x2,-0x5 070d 00d8 | | Load_Top At_Offset_0 070e 2514 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x14 070f 00d8 | | Load_Top At_Offset_0 0710 00db | | Load_Top At_Offset_3 0711 4800 |H | Short_Literal 0x0 0712 00d9 | | Load_Top At_Offset_1 0713 00db | | Load_Top At_Offset_3 0714 01d6 | | Execute Vector,Field_Write 0715 00d2 | | Pop_Control Pop_Count_2 0716 00d0 | | Action Swap_Control 0717 2914 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x14 0718 00c8 | | Action Pop_Auxiliary_Range 0719 3ff2 |? | Loop_Increasing 0x70c 071a 00ce | | Action Pop_Auxiliary 071b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 071c 00d1 | | Pop_Control Pop_Count_1 071d e5fb | | Load 0x2,-0x5 071e 00d8 | | Load_Top At_Offset_0 071f 2514 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x14 0720 00d8 | | Load_Top At_Offset_0 0721 e403 | | Load 0x2,0x3 0722 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0723 e404 | | Load 0x2,0x4 0724 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0725 822e | . | Call 0x1,0x2e 0726 4800 |H | Short_Literal 0x0 0727 00d9 | | Load_Top At_Offset_1 0728 00db | | Load_Top At_Offset_3 0729 01d6 | | Execute Vector,Field_Write 072a 00d2 | | Pop_Control Pop_Count_2 072b 00d0 | | Action Swap_Control 072c 2914 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x14 072d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 072e 4801 |H | Short_Literal 0x1 072f 8411 | | Call 0x2,0x11 0730 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0731 4800 |H | Short_Literal 0x0 0732 8411 | | Call 0x2,0x11 0733 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0734 00cf | | Action Mark_Auxiliary 0735 840e | | Call 0x2,0xe 0736 4801 |H | Short_Literal 0x1 0737 0263 | c | Execute Discrete,Above_Bound 0738 7030 |p0 | Jump_Nonzero 0x769 0739 4800 |H | Short_Literal 0x0 073a 00d9 | | Load_Top At_Offset_1 073b 8410 | | Call 0x2,0x10 073c 00d8 | | Load_Top At_Offset_0 073d 0c08 | | Execute_Immediate Greater_Equal,0x8 073e 700f |p | Jump_Nonzero 0x74e 073f 4607 |F | Jump_Case 0x8 0740 7821 |x! | Jump 0x762 ; case 0x0 0741 780e |x | Jump 0x750 ; case 0x1 0742 7824 |x$ | Jump 0x767 ; case 0x2 0743 7823 |x# | Jump 0x767 ; case 0x3 0744 7811 |x | Jump 0x756 ; case 0x4 0745 7816 |x | Jump 0x75c ; case 0x5 0746 7820 |x | Jump 0x767 ; case 0x6 0747 7800 |x | Jump 0x748 ; case 0x7 0748 4801 |H | Short_Literal 0x1 0749 e403 | | Load 0x2,0x3 074a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 074b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 074c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 074d 7819 |x | Jump 0x767 074e 00d1 | | Pop_Control Pop_Count_1 074f 7817 |x | Jump 0x767 0750 4801 |H | Short_Literal 0x1 0751 e403 | | Load 0x2,0x3 0752 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0753 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0754 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0755 7811 |x | Jump 0x767 0756 4801 |H | Short_Literal 0x1 0757 e403 | | Load 0x2,0x3 0758 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0759 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 075a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 075b 780b |x | Jump 0x767 075c 4801 |H | Short_Literal 0x1 075d e403 | | Load 0x2,0x3 075e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 075f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0760 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0761 7805 |x | Jump 0x767 0762 e001 | | Load 0x0,0x1 0763 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0764 e403 | | Load 0x2,0x3 0765 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0766 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0767 00c8 | | Action Pop_Auxiliary_Range 0768 3fd0 |? | Loop_Increasing 0x739 0769 00ce | | Action Pop_Auxiliary 076a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 076b 4800 |H | Short_Literal 0x0 076c 4801 |H | Short_Literal 0x1 076d 8410 | | Call 0x2,0x10 076e 0b05 | | Execute_Immediate Case_Compare,0x5 076f 704e |pN | Jump_Nonzero 0x7be 0770 0f06 | | Execute_Immediate Equal,0x6 0771 7001 |p | Jump_Nonzero 0x773 0772 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0773 e404 | | Load 0x2,0x4 0774 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0775 6824 |h$ | Jump_Zero 0x79a 0776 4852 |HR | Short_Literal 0x52 0777 483b |H; | Short_Literal 0x3b 0778 0092 090d | | Action Push_String_Extended,0x90d ; "\x1b[" 077a 4820 |H | Short_Literal 0x20 077b e403 | | Load 0x2,0x3 077c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 077d e404 | | Load 0x2,0x4 077e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 077f 0272 | r | Execute Discrete,Minus 0780 0a01 | | Execute_Immediate Plus,0x1 0781 00d8 | | Load_Top At_Offset_0 0782 00e2 | | Load_Encached Integer_Cache 0783 0260 | ` | Execute Discrete,In_Type 0784 7001 |p | Jump_Nonzero 0x786 0785 0801 | | Execute_Immediate Raise,0x1 0786 00e0 | | Load_Encached Standard_Cache 0787 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0788 e006 | | Load 0x0,0x6 0789 181c | | Execute Package,Field_Execute,Field_Number 0x1c 078a 01cc | | Execute Vector,Catenate 078b 01cb | | Execute Vector,Append 078c 4820 |H | Short_Literal 0x20 078d e403 | | Load 0x2,0x3 078e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 078f e404 | | Load 0x2,0x4 0790 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0791 822e | . | Call 0x1,0x2e 0792 00e0 | | Load_Encached Standard_Cache 0793 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0794 e006 | | Load 0x0,0x6 0795 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0796 01cc | | Execute Vector,Catenate 0797 01cb | | Execute Vector,Append 0798 85fe | | Call 0x2,-0x2 0799 4501 |E | Exit_Suprogram New_Top_Offset 0x1 079a 4852 |HR | Short_Literal 0x52 079b 483b |H; | Short_Literal 0x3b 079c 0092 090d | | Action Push_String_Extended,0x90d ; "\x1b[" 079e 4820 |H | Short_Literal 0x20 079f e403 | | Load 0x2,0x3 07a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07a1 e5fb | | Load 0x2,-0x5 07a2 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 07a3 0272 | r | Execute Discrete,Minus 07a4 0a01 | | Execute_Immediate Plus,0x1 07a5 00d8 | | Load_Top At_Offset_0 07a6 00e2 | | Load_Encached Integer_Cache 07a7 0260 | ` | Execute Discrete,In_Type 07a8 7001 |p | Jump_Nonzero 0x7aa 07a9 0801 | | Execute_Immediate Raise,0x1 07aa 00e0 | | Load_Encached Standard_Cache 07ab 1818 | | Execute Package,Field_Execute,Field_Number 0x18 07ac e006 | | Load 0x0,0x6 07ad 181c | | Execute Package,Field_Execute,Field_Number 0x1c 07ae 01cc | | Execute Vector,Catenate 07af 01cb | | Execute Vector,Append 07b0 4820 |H | Short_Literal 0x20 07b1 e403 | | Load 0x2,0x3 07b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07b3 e404 | | Load 0x2,0x4 07b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 07b5 822e | . | Call 0x1,0x2e 07b6 00e0 | | Load_Encached Standard_Cache 07b7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 07b8 e006 | | Load 0x0,0x6 07b9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 07ba 01cc | | Execute Vector,Catenate 07bb 01cb | | Execute Vector,Append 07bc 85fe | | Call 0x2,-0x2 07bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07be 00d1 | | Pop_Control Pop_Count_1 07bf 0092 090e | | Action Push_String_Extended,0x90e ; "\x1b[0n" 07c1 85fe | | Call 0x2,-0x2 07c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07c3 4800 |H | Short_Literal 0x0 07c4 4801 |H | Short_Literal 0x1 07c5 8410 | | Call 0x2,0x10 07c6 0b01 | | Execute_Immediate Case_Compare,0x1 07c7 7007 |p | Jump_Nonzero 0x7cf 07c8 0b02 | | Execute_Immediate Case_Compare,0x2 07c9 700b |p | Jump_Nonzero 0x7d5 07ca 4803 |H | Short_Literal 0x3 07cb 6054 |`T | Indirect_Literal Discrete,0x820,{0x00000000, 0x7fffffff} 07cc 0262 | b | Execute Discrete,In_Range 07cd 7011 |p | Jump_Nonzero 0x7df 07ce 780c |x | Jump 0x7db 07cf 00d1 | | Pop_Control Pop_Count_1 07d0 4820 |H | Short_Literal 0x20 07d1 4800 |H | Short_Literal 0x0 07d2 4801 |H | Short_Literal 0x1 07d3 840c | | Call 0x2,0xc 07d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07d5 00d1 | | Pop_Control Pop_Count_1 07d6 4820 |H | Short_Literal 0x20 07d7 4801 |H | Short_Literal 0x1 07d8 4801 |H | Short_Literal 0x1 07d9 840c | | Call 0x2,0xc 07da 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07db 4820 |H | Short_Literal 0x20 07dc 4802 |H | Short_Literal 0x2 07dd 4801 |H | Short_Literal 0x1 07de 840c | | Call 0x2,0xc 07df 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07e0 e5fb | | Load 0x2,-0x5 07e1 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 07e2 4801 |H | Short_Literal 0x1 07e3 4801 |H | Short_Literal 0x1 07e4 8410 | | Call 0x2,0x10 07e5 4801 |H | Short_Literal 0x1 07e6 822f | / | Call 0x1,0x2f 07e7 0273 | s | Execute Discrete,Plus 07e8 0aff | | Execute_Immediate Plus,-0x1 07e9 e404 | | Load 0x2,0x4 07ea 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07eb e5fb | | Load 0x2,-0x5 07ec 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 07ed e5fb | | Load 0x2,-0x5 07ee 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07ef 4802 |H | Short_Literal 0x2 07f0 8410 | | Call 0x2,0x10 07f1 e5fb | | Load 0x2,-0x5 07f2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07f3 822e | . | Call 0x1,0x2e 07f4 0273 | s | Execute Discrete,Plus 07f5 0aff | | Execute_Immediate Plus,-0x1 07f6 00d8 | | Load_Top At_Offset_0 07f7 00e2 | | Load_Encached Integer_Cache 07f8 0260 | ` | Execute Discrete,In_Type 07f9 7001 |p | Jump_Nonzero 0x7fb 07fa 0801 | | Execute_Immediate Raise,0x1 07fb e404 | | Load 0x2,0x4 07fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07fd 822f | / | Call 0x1,0x2f 07fe e404 | | Load 0x2,0x4 07ff 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0800 0092 090f | | Action Push_String_Extended,0x90f ; "Margin.Top :=" 0802 e404 | | Load 0x2,0x4 0803 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0804 00e0 | | Load_Encached Standard_Cache 0805 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0806 01cc | | Execute Vector,Catenate 0807 0092 0910 | | Action Push_String_Extended,0x910 ; ", Bottom :=" 0809 01cc | | Execute Vector,Catenate 080a e404 | | Load 0x2,0x4 080b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 080c 00e0 | | Load_Encached Standard_Cache 080d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 080e 01cc | | Execute Vector,Catenate 080f 8405 | | Call 0x2,0x5 0810 e404 | | Load 0x2,0x4 0811 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0812 4801 |H | Short_Literal 0x1 0813 4801 |H | Short_Literal 0x1 0814 8409 | | Call 0x2,0x9 0815 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0816 840b | | Call 0x2,0xb 0817 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0818 4800 |H | Short_Literal 0x0 0819 4801 |H | Short_Literal 0x1 081a 4801 |H | Short_Literal 0x1 081b 8410 | | Call 0x2,0x10 081c 0275 | u | Execute Discrete,Unary_Minus 081d 8408 | | Call 0x2,0x8 081e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 081f 0000 | | .XXX[0x1] 0820 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0824 0000 0000 | | .BLANK 0000[0x4] 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 082b | + | .CONST 0x082b ; Address of begin 0829 0004 | | .CONST 0x0004 ; Address of exception handler 082a 0001 | | .CONST 0x0001 ; Number of locals 082b BODY_0828: 082b INIT_0828: 082b 0092 0911 | | Action Push_String_Extended,0x911 ; "Escape_Sequence_End: " 082d 4801 |H | Short_Literal 0x1 082e e5fb | | Load 0x2,-0x5 082f 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10 0830 e5fb | | Load 0x2,-0x5 0831 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12 0832 01cf | | Execute Vector,Slice_Read 0833 01cc | | Execute Vector,Catenate 0834 8405 | | Call 0x2,0x5 0835 4800 |H | Short_Literal 0x0 0836 e5fb | | Load 0x2,-0x5 0837 2810 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x10 0838 4800 |H | Short_Literal 0x0 0839 e5fb | | Load 0x2,-0x5 083a 2811 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x11 083b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 083c 0000 0000 | | .BLANK 0000[0x4] 0840 ; -------------------------------------------------------------------------------------- 0840 ; SUBPROGRAM 0840 ; -------------------------------------------------------------------------------------- 0840 0843 | C | .CONST 0x0843 ; Address of begin 0841 0004 | | .CONST 0x0004 ; Address of exception handler 0842 0001 | | .CONST 0x0001 ; Number of locals 0843 BODY_0840: 0843 INIT_0840: 0843 0092 0912 | | Action Push_String_Extended,0x912 ; "scroll" 0845 e404 | | Load 0x2,0x4 0846 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0847 00e0 | | Load_Encached Standard_Cache 0848 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0849 01cc | | Execute Vector,Catenate 084a 0092 0913 | | Action Push_String_Extended,0x913 ; " .." 084c 01cc | | Execute Vector,Catenate 084d e404 | | Load 0x2,0x4 084e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 084f 00e0 | | Load_Encached Standard_Cache 0850 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0851 01cc | | Execute Vector,Catenate 0852 0092 0914 | | Action Push_String_Extended,0x914 ; " " 0854 01cc | | Execute Vector,Catenate 0855 00db | | Load_Top At_Offset_3 0856 01cc | | Execute Vector,Catenate 0857 e603 | | Load 0x3,0x3 0858 00e0 | | Load_Encached Standard_Cache 0859 1818 | | Execute Package,Field_Execute,Field_Number 0x18 085a 01cc | | Execute Vector,Catenate 085b 8405 | | Call 0x2,0x5 085c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 085d 0000 0000 | | .XXX[0x3] 085f 0000 | | 0860 ; -------------------------------------------------------------------------------------- 0860 ; SUBPROGRAM 0860 ; -------------------------------------------------------------------------------------- 0860 0863 | c | .CONST 0x0863 ; Address of begin 0861 0004 | | .CONST 0x0004 ; Address of exception handler 0862 0001 | | .CONST 0x0001 ; Number of locals 0863 BODY_0860: 0863 INIT_0860: 0863 4800 |H | Short_Literal 0x0 0864 4801 |H | Short_Literal 0x1 0865 e9ff | | Load 0x4,-0x1 0866 e5fd | | Load 0x2,-0x3 0867 e001 | | Load 0x0,0x1 0868 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0869 e403 | | Load 0x2,0x3 086a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 086b e001 | | Load 0x0,0x1 086c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 086d e602 | | Load 0x3,0x2 086e e5fd | | Load 0x2,-0x3 086f e001 | | Load 0x0,0x1 0870 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0871 e5fb | | Load 0x2,-0x5 0872 00d8 | | Load_Top At_Offset_0 0873 2513 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x13 0874 00d8 | | Load_Top At_Offset_0 0875 e9ff | | Load 0x4,-0x1 0876 e5fb | | Load 0x2,-0x5 0877 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0878 0272 | r | Execute Discrete,Minus 0879 0a01 | | Execute_Immediate Plus,0x1 087a 4800 |H | Short_Literal 0x0 087b 00d9 | | Load_Top At_Offset_1 087c 00db | | Load_Top At_Offset_3 087d 01d6 | | Execute Vector,Field_Write 087e 00d2 | | Pop_Control Pop_Count_2 087f 00d0 | | Action Swap_Control 0880 2913 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x13 0881 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0882 0000 0000 | | .BLANK 0000[0x6] 0888 ; -------------------------------------------------------------------------------------- 0888 ; SUBPROGRAM 0888 ; -------------------------------------------------------------------------------------- 0888 088b | | .CONST 0x088b ; Address of begin 0889 0896 | | .CONST 0x0896 ; Address of exception handler 088a 0001 | | .CONST 0x0001 ; Number of locals 088b BODY_0888: 088b INIT_0888: 088b e602 | | Load 0x3,0x2 088c 00e2 | | Load_Encached Integer_Cache 088d 00e0 | | Load_Encached Standard_Cache 088e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 088f 00d8 | | Load_Top At_Offset_0 0890 00e3 | | Load_Encached Natural_Cache 0891 0260 | ` | Execute Discrete,In_Type 0892 7001 |p | Jump_Nonzero 0x894 0893 0801 | | Execute_Immediate Raise,0x1 0894 00cb | | Action Pop_Block_With_Result 0895 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0896 TRAP_0888: 0896 0007 | | Action Break_Optional 0897 e7fe | | Load 0x3,-0x2 0898 00cb | | Action Pop_Block_With_Result 0899 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 089a 0000 0000 | | .BLANK 0000[0x6] 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08a5 | | .CONST 0x08a5 ; Address of begin 08a1 0900 | | .CONST 0x0900 ; Address of exception handler 08a2 0002 | | .CONST 0x0002 ; Number of locals 08a3 INIT_08a0: 08a3 e605 | | Load 0x3,0x5 08a4 840f | | Call 0x2,0xf 08a5 BODY_08a0: 08a5 00d8 | | Load_Top At_Offset_0 08a6 01db | | Execute Vector,Length 08a7 7001 |p | Jump_Nonzero 0x8a9 08a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08a9 00d8 | | Load_Top At_Offset_0 08aa 01dd | | Execute Vector,First 08ab 00d9 | | Load_Top At_Offset_1 08ac 01d7 | | Execute Vector,Field_Read 08ad 0f3f | ? | Execute_Immediate Equal,0x3f 08ae 6846 |hF | Jump_Zero 0x8f5 08af 00d8 | | Load_Top At_Offset_0 08b0 01dd | | Execute Vector,First 08b1 0a01 | | Execute_Immediate Plus,0x1 08b2 00d9 | | Load_Top At_Offset_1 08b3 01d7 | | Execute Vector,Field_Read 08b4 00d8 | | Load_Top At_Offset_0 08b5 4831 |H1 | Short_Literal 0x31 08b6 4837 |H7 | Short_Literal 0x37 08b7 0262 | b | Execute Discrete,In_Range 08b8 680d |h | Jump_Zero 0x8c6 08b9 0acf | | Execute_Immediate Plus,-0x31 08ba 4606 |F | Jump_Case 0x7 08bb 7835 |x5 | Jump 0x8f1 ; case 0x0 08bc 780b |x | Jump 0x8c8 ; case 0x1 08bd 780f |x | Jump 0x8cd ; case 0x2 08be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3 08bf 7824 |x$ | Jump 0x8e4 ; case 0x4 08c0 7827 |x' | Jump 0x8e8 ; case 0x5 08c1 7800 |x | Jump 0x8c2 ; case 0x6 08c2 e7ff | | Load 0x3,-0x1 08c3 e5fb | | Load 0x2,-0x5 08c4 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7 08c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08c6 00d1 | | Pop_Control Pop_Count_1 08c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08c8 e7ff | | Load 0x3,-0x1 08c9 0f00 | | Execute_Immediate Equal,0x0 08ca e5fb | | Load 0x2,-0x5 08cb 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 08cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08cd e7ff | | Load 0x3,-0x1 08ce 6804 |h | Jump_Zero 0x8d3 08cf 4884 |H | Short_Literal 0x84 08d0 e404 | | Load 0x2,0x4 08d1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 08d2 7803 |x | Jump 0x8d6 08d3 4850 |HP | Short_Literal 0x50 08d4 e404 | | Load 0x2,0x4 08d5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 08d6 e403 | | Load 0x2,0x3 08d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 08d8 e404 | | Load 0x2,0x4 08d9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 08da 0a01 | | Execute_Immediate Plus,0x1 08db 00d8 | | Load_Top At_Offset_0 08dc 00e2 | | Load_Encached Integer_Cache 08dd 0260 | ` | Execute Discrete,In_Type 08de 7001 |p | Jump_Nonzero 0x8e0 08df 0801 | | Execute_Immediate Raise,0x1 08e0 822e | . | Call 0x1,0x2e 08e1 e403 | | Load 0x2,0x3 08e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 08e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08e4 e7ff | | Load 0x3,-0x1 08e5 e5fb | | Load 0x2,-0x5 08e6 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb 08e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08e8 e7ff | | Load 0x3,-0x1 08e9 e404 | | Load 0x2,0x4 08ea 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 08eb e404 | | Load 0x2,0x4 08ec 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 08ed 4801 |H | Short_Literal 0x1 08ee 4801 |H | Short_Literal 0x1 08ef 8409 | | Call 0x2,0x9 08f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08f1 e7ff | | Load 0x3,-0x1 08f2 e5fb | | Load 0x2,-0x5 08f3 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9 08f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08f5 00d8 | | Load_Top At_Offset_0 08f6 00e2 | | Load_Encached Integer_Cache 08f7 00e0 | | Load_Encached Standard_Cache 08f8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 08f9 0f14 | | Execute_Immediate Equal,0x14 08fa 7001 |p | Jump_Nonzero 0x8fc 08fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08fc e7ff | | Load 0x3,-0x1 08fd e5fb | | Load 0x2,-0x5 08fe 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8 08ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0900 TRAP_08a0: 0900 0007 | | Action Break_Optional 0901 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0902 ; -------------------------------------------------------------------------------------- 0902 ; STRING TABLE 0902 ; -------------------------------------------------------------------------------------- 0902 0028 | ( | .STRTAB 0x0028->0x0916 ; "ascii.SO" 0903 002e | . | .STRTAB 0x002e->0x091a ; "ascii.SI" 0904 0034 | 4 | .STRTAB 0x0034->0x091e ; "move " 0905 0037 | 7 | .STRTAB 0x0037->0x0920 ; " to column" 0906 003f | ? | .STRTAB 0x003f->0x0925 ; "down" 0907 0041 | A | .STRTAB 0x0041->0x0927 ; "up" 0908 0041 | A | .STRTAB 0x0041->0x0928 ; " to line" 0909 0047 | G | .STRTAB 0x0047->0x092c ; "move_to line" 090a 0051 | Q | .STRTAB 0x0051->0x0932 ; ", column" 090b 0057 | W | .STRTAB 0x0057->0x0936 ; "display \x22" 090c 005e | ^ | .STRTAB 0x005e->0x093b ; "\x1b/Z" 090d 005f | _ | .STRTAB 0x005f->0x093c ; "\x1b[" 090e 005f | _ | .STRTAB 0x005f->0x093d ; "\x1b[0n" 090f 0061 | a | .STRTAB 0x0061->0x093f ; "Margin.Top :=" 0910 006c | l | .STRTAB 0x006c->0x0946 ; ", Bottom :=" 0911 0075 | u | .STRTAB 0x0075->0x094b ; "Escape_Sequence_End: " 0912 0088 | | .STRTAB 0x0088->0x0956 ; "scroll" 0913 008c | | .STRTAB 0x008c->0x0959 ; " .." 0914 008d | | .STRTAB 0x008d->0x095a ; " " 0915 008c | | .STREND 0x008c->0x095b 0916 6173 6369 |asci| .STRTAB_STRINGS 095b 0000 0000 | | .BLANK 0000[0x5] 0960 ; -------------------------------------------------------------------------------------- 0960 ; Debug Table 0960 ; -------------------------------------------------------------------------------------- 0960 0004 000a | | .DEBUG4 0x0004,0x000a,0xf6a4,0x0000,0x0001,0x0000 0966 95d8 bdc9 | | .XXX[0x9a] 0968 bdcd 94bd | | 096a cdd5 c1c1 | | 096c bdc9 d0bd | | 096e cdd5 c1c1 | | 0970 bdc9 d0b9 | | 0972 a1a0 017d | }| 0974 7cc1 d1a1 || | 0976 a5cc e9c0 | | 0978 a0c0 b0d0 | | 097a d8d0 a4f4 | | 097c a8a0 c0b0 | | 097e d0c8 d8a4 | | 0980 017d 7cc1 | }| | 0982 7d7d 99c9 |}} | 0984 9594 e9c0 | | 0986 a0c0 b0c4 | | 0988 a401 8985 | | 098a cd95 7d85 | } | 098c 91c9 7d7c | }|| 098e c4e5 4995 | I | 0990 7d09 95a1 |} | 0992 85d9 a5bd | | 0994 c97d 3585 | }5 | 0996 b985 9d95 | | 0998 c90d 19d8 | | 099a e998 a0c0 | | 099c b0cc c4a4 | | 099e 017d 7cc1 | }| | 09a0 d1a1 a5cc | | 09a2 e9c0 a0c0 | | 09a4 b0d0 d8d0 | | 09a6 a401 cda5 | | 09a8 e995 7dbd | } | 09aa 997d 7cc4 | }| | 09ac e549 957d | I }| 09ae 0995 a185 | | 09b0 d9a5 bdc9 | | 09b2 7d35 85b9 |}5 | 09b4 859d 95c9 | | 09b6 0d19 d8e9 | | 09b8 98a0 c0b0 | | 09ba e0a4 017d | }| 09bc 7cc1 d1a1 || | 09be a5cc e9c0 | | 09c0 a0c0 b0d0 | | 09c2 d8d0 a401 | | 09c4 7d7d 91d1 |}} | 09c6 7d7c c4c9 |}| | 09c8 4995 7d41 |I }A| 09ca c97d 4dd1 | }M | 09cc c9a5 b99d | | 09ce 19d8 e998 | | 09d0 a0c0 b0c8 | | 09d2 a401 7d7c | }|| 09d4 c1d1 a1a5 | | 09d6 cce9 c0a0 | | 09d8 c0b0 d0cc | | 09da dca4 017d | }| 09dc 7cc1 7d7d || }}| 09de 99c9 9594 | | 09e0 e9c0 a0c0 | | 09e2 b0c4 a401 | | 09e4 8db1 bdb9 | | 09e6 957d 7cc4 | }| | 09e8 c949 957d | I }| 09ea 41c9 7d4d |A }M| 09ec d1c9 a5b9 | | 09ee 9d0d 19d8 | | 09f0 e998 a0c0 | | 09f2 b0d0 d8d4 | | 09f4 a4f4 a8a0 | | 09f6 c0b0 d0c8 | | 09f8 dca4 017d | }| 09fa 7cc1 d1a1 || | 09fc a5cc e9c0 | | 09fe a0c0 b0d0 | |