|
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: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 0838 | 8 | .CONST 0x0838 ; 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 0005 | | .CONST 0x0005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00ba | | .CONST 0x00ba ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003a | : | .CONST 0x003a ; Number of locals 000b INIT_0008: 000b 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 0007 | | Action Break_Optional 000f 0007 | | Action Break_Optional 0010 0007 | | Action Break_Optional 0011 0007 | | Action Break_Optional 0012 e002 | | Load 0x0,0x2 0013 0007 | | Action Break_Optional 0014 e003 | | Load 0x0,0x3 0015 00d8 | | Load_Top At_Offset_0 0016 e004 | | Load 0x0,0x4 0017 00d8 | | Load_Top At_Offset_0 0018 e004 | | Load 0x0,0x4 0019 00d8 | | Load_Top At_Offset_0 001a 02a0 | | Declare_Subprogram Null_Subprogram 001b 4806 |H | Short_Literal 0x6 001c 032d | - | Declare_Type Record,Defined 001d 00d8 | | Load_Top At_Offset_0 001e 02a0 | | Declare_Subprogram Null_Subprogram 001f 4818 |H | Short_Literal 0x18 0020 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0021 e005 | | Load 0x0,0x5 0022 0266 | f | Execute Discrete,Bounds 0023 00da | | Load_Top At_Offset_2 0024 02a0 | | Declare_Subprogram Null_Subprogram 0025 4801 |H | Short_Literal 0x1 0026 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0027 00d8 | | Load_Top At_Offset_0 0028 02a0 | | Declare_Subprogram Null_Subprogram 0029 4818 |H | Short_Literal 0x18 002a 03d3 | | Declare_Type Access,Defined,Accesses_Protected 002b a006 | | Store_Unchecked 0x0,0x6 002c 00c6 | | Action Check_Subprogram_Elaborated 002d 00db | | Load_Top At_Offset_3 002e 00db | | Load_Top At_Offset_3 002f e007 | | Load 0x0,0x7 0030 e008 | | Load 0x0,0x8 0031 4800 |H | Short_Literal 0x0 0032 0007 | | Action Break_Optional 0033 029b 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Unelaborated 0035 e004 | | Load 0x0,0x4 0036 0632 | 2 | Execute_Immediate Set_Value_Unchecked,0x32 0037 e004 | | Load 0x0,0x4 0038 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 0039 e004 | | Load 0x0,0x4 003a 0640 | @ | Execute_Immediate Set_Value_Unchecked,0x40 003b 4800 |H | Short_Literal 0x0 003c 4823 |H# | Short_Literal 0x23 003d e009 | | Load 0x0,0x9 003e 035b | [ | Declare_Type Array,Constrained 003f 0337 | 7 | Declare_Variable Array 0040 4800 |H | Short_Literal 0x0 0041 4823 |H# | Short_Literal 0x23 0042 e009 | | Load 0x0,0x9 0043 035b | [ | Declare_Type Array,Constrained 0044 0337 | 7 | Declare_Variable Array 0045 e004 | | Load 0x0,0x4 0046 0007 | | Action Break_Optional 0047 e00a | | Load 0x0,0xa 0048 0322 | " | Declare_Variable Record 0049 e00a | | Load 0x0,0xa 004a 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 004b 0337 | 7 | Declare_Variable Array 004c 4801 |H | Short_Literal 0x1 004d 481f |H | Short_Literal 0x1f 004e 00da | | Load_Top At_Offset_2 004f 01d6 | | Execute Vector,Field_Write 0050 4801 |H | Short_Literal 0x1 0051 481e |H | Short_Literal 0x1e 0052 00da | | Load_Top At_Offset_2 0053 01d6 | | Execute Vector,Field_Write 0054 481d |H | Short_Literal 0x1d 0055 4800 |H | Short_Literal 0x0 0056 4800 |H | Short_Literal 0x0 0057 00d9 | | Load_Top At_Offset_1 0058 e220 | | Load 0x1,0x20 0059 01d6 | | Execute Vector,Field_Write 005a 3ffb |? | Loop_Increasing 0x56 005b e00a | | Load 0x0,0xa 005c 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 005d 0119 | | Execute Any,Check_In_Formal_Type 005e 00d9 | | Load_Top At_Offset_1 005f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0060 4801 |H | Short_Literal 0x1 0061 00d9 | | Load_Top At_Offset_1 0062 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0063 4801 |H | Short_Literal 0x1 0064 00d9 | | Load_Top At_Offset_1 0065 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0066 e00b | | Load 0x0,0xb 0067 00d9 | | Load_Top At_Offset_1 0068 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0069 e00c | | Load 0x0,0xc 006a 00d9 | | Load_Top At_Offset_1 006b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 006c 4800 |H | Short_Literal 0x0 006d 00d9 | | Load_Top At_Offset_1 006e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 006f 4800 |H | Short_Literal 0x0 0070 00d9 | | Load_Top At_Offset_1 0071 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0072 e00b | | Load 0x0,0xb 0073 00d9 | | Load_Top At_Offset_1 0074 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0075 e00c | | Load 0x0,0xc 0076 00d9 | | Load_Top At_Offset_1 0077 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0078 e00d | | Load 0x0,0xd 0079 0007 | | Action Break_Optional 007a e00e | | Load 0x0,0xe 007b 0322 | " | Declare_Variable Record 007c e00f | | Load 0x0,0xf 007d 0007 | | Action Break_Optional 007e e010 | | Load 0x0,0x10 007f 0007 | | Action Break_Optional 0080 e010 | | Load 0x0,0x10 0081 0007 | | Action Break_Optional 0082 e011 | | Load 0x0,0x11 0083 0322 | " | Declare_Variable Record 0084 00e1 | | Load_Encached Boolean_Cache 0085 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0086 00e1 | | Load_Encached Boolean_Cache 0087 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0088 00e1 | | Load_Encached Boolean_Cache 0089 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 008a 00e1 | | Load_Encached Boolean_Cache 008b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 008c 00e1 | | Load_Encached Boolean_Cache 008d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 008e 4800 |H | Short_Literal 0x0 008f 48ff |H | Short_Literal 0xff 0090 e012 | | Load 0x0,0x12 0091 035b | [ | Declare_Type Array,Constrained 0092 0337 | 7 | Declare_Variable Array 0093 00d8 | | Load_Top At_Offset_0 0094 1c00 | | Execute_Immediate Run_Utility,0x0 0095 e212 | | Load 0x1,0x12 0096 0007 | | Action Break_Optional 0097 4800 |H | Short_Literal 0x0 0098 480c |H | Short_Literal 0xc 0099 e013 | | Load 0x0,0x13 009a 0334 | 4 | Declare_Variable Array,With_Constraint 009b 52dc |R | Indirect_Literal Any,0x378,{0x35303078, 0x3530302b} 009c e014 | | Load 0x0,0x14 009d 0007 | | Action Break_Optional 009e e00f | | Load 0x0,0xf 009f 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00a0 e004 | | Load 0x0,0x4 00a1 0007 | | Action Break_Optional 00a2 e015 | | Load 0x0,0x15 00a3 0322 | " | Declare_Variable Record 00a4 e015 | | Load 0x0,0x15 00a5 0322 | " | Declare_Variable Record 00a6 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call 00a8 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call 00aa 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00ab 00c7 | | Action Elaborate_Subprogram 00ac 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 00ae 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call 00b0 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call 00b2 029d 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call 00b4 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call 00b6 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00b7 00c7 | | Action Elaborate_Subprogram 00b8 029f 06cb | | Declare_Subprogram INIT_06c8,For_Call 00ba BODY_0008: 00ba 823a | : | Call 0x1,0x3a 00bb 00bc | | Action Signal_Activated 00bc 00bb | | Action Signal_Completion 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00f5 | | .CONST 0x00f5 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0014 | | .CONST 0x0014 ; Number of locals 00c3 INIT_00c0: 00c3 e016 | | Load 0x0,0x16 00c4 0007 | | Action Break_Optional 00c5 e016 | | Load 0x0,0x16 00c6 0007 | | Action Break_Optional 00c7 49f4 |I | Short_Literal 0x1f4 00c8 e004 | | Load 0x0,0x4 00c9 03f1 | | Declare_Variable Discrete,With_Value 00ca 49f4 |I | Short_Literal 0x1f4 00cb e004 | | Load 0x0,0x4 00cc 03f1 | | Declare_Variable Discrete,With_Value 00cd e004 | | Load 0x0,0x4 00ce 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00cf e004 | | Load 0x0,0x4 00d0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00d1 e017 | | Load 0x0,0x17 00d2 0007 | | Action Break_Optional 00d3 e018 | | Load 0x0,0x18 00d4 0322 | " | Declare_Variable Record 00d5 00d8 | | Load_Top At_Offset_0 00d6 1c00 | | Execute_Immediate Run_Utility,0x0 00d7 e019 | | Load 0x0,0x19 00d8 0322 | " | Declare_Variable Record 00d9 00d8 | | Load_Top At_Offset_0 00da 1c00 | | Execute_Immediate Run_Utility,0x0 00db e01a | | Load 0x0,0x1a 00dc 0337 | 7 | Declare_Variable Array 00dd e01b | | Load 0x0,0x1b 00de 0322 | " | Declare_Variable Record 00df 00d8 | | Load_Top At_Offset_0 00e0 1c00 | | Execute_Immediate Run_Utility,0x0 00e1 00e1 | | Load_Encached Boolean_Cache 00e2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00e3 00e1 | | Load_Encached Boolean_Cache 00e4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00e5 e01c | | Load 0x0,0x1c 00e6 0322 | " | Declare_Variable Record 00e7 00d8 | | Load_Top At_Offset_0 00e8 1c00 | | Execute_Immediate Run_Utility,0x0 00e9 e5ff | | Load 0x2,-0x1 00ea 801d | | Call 0x0,0x1d 00eb e01e | | Load 0x0,0x1e 00ec 02ff | | Declare_Variable Variant_Record 00ed 00d8 | | Load_Top At_Offset_0 00ee 1c00 | | Execute_Immediate Run_Utility,0x0 00ef e004 | | Load 0x0,0x4 00f0 0007 | | Action Break_Optional 00f1 e004 | | Load 0x0,0x4 00f2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00f3 029f 070b | | Declare_Subprogram INIT_0708,For_Call 00f5 BODY_00c0: 00f5 e5fd | | Load 0x2,-0x3 00f6 a219 | | Store_Unchecked 0x1,0x19 00f7 e5fb | | Load 0x2,-0x5 00f8 a21b | | Store_Unchecked 0x1,0x1b 00f9 e5fc | | Load 0x2,-0x4 00fa a21a | | Store_Unchecked 0x1,0x1a 00fb e5ff | | Load 0x2,-0x1 00fc e016 | | Load 0x0,0x16 00fd 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00fe a402 | | Store_Unchecked 0x2,0x2 00ff e5fe | | Load 0x2,-0x2 0100 e016 | | Load 0x0,0x16 0101 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0102 a403 | | Store_Unchecked 0x2,0x3 0103 e5fa | | Load 0x2,-0x6 0104 a228 | ( | Store_Unchecked 0x1,0x28 0105 e5f9 | | Load 0x2,-0x7 0106 a229 | ) | Store_Unchecked 0x1,0x29 0107 e5f8 | | Load 0x2,-0x8 0108 a22a | * | Store_Unchecked 0x1,0x2a 0109 00cf | | Action Mark_Auxiliary 010a e21c | | Load 0x1,0x1c 010b 01d9 | | Execute Vector,Reverse_Bounds 010c 0007 | | Action Break_Optional 010d e21a | | Load 0x1,0x1a 010e 0237 | 7 | Execute Float,Convert_From_Discrete 010f 00d9 | | Load_Top At_Offset_1 0110 0237 | 7 | Execute Float,Convert_From_Discrete 0111 5a62 |Zb | Indirect_Literal Float,0x374,2.0 0112 023b | ; | Execute Float,Times 0113 5a5c |Z\ | Indirect_Literal Float,0x370,3.141592653589793 0114 023b | ; | Execute Float,Times 0115 5a56 |ZV | Indirect_Literal Float,0x36c,36.0 0116 023a | : | Execute Float,Divide 0117 801f | | Call 0x0,0x1f 0118 023b | ; | Execute Float,Times 0119 0235 | 5 | Execute Float,Round_To_Discrete 011a e004 | | Load 0x0,0x4 011b 025e | ^ | Execute Discrete,Convert 011c 00d9 | | Load_Top At_Offset_1 011d e21c | | Load 0x1,0x1c 011e 01d6 | | Execute Vector,Field_Write 011f e21a | | Load 0x1,0x1a 0120 0237 | 7 | Execute Float,Convert_From_Discrete 0121 00d9 | | Load_Top At_Offset_1 0122 0237 | 7 | Execute Float,Convert_From_Discrete 0123 5a50 |ZP | Indirect_Literal Float,0x374,2.0 0124 023b | ; | Execute Float,Times 0125 5a4a |ZJ | Indirect_Literal Float,0x370,3.141592653589793 0126 023b | ; | Execute Float,Times 0127 5a44 |ZD | Indirect_Literal Float,0x36c,36.0 0128 023a | : | Execute Float,Divide 0129 8020 | | Call 0x0,0x20 012a 023b | ; | Execute Float,Times 012b 0235 | 5 | Execute Float,Round_To_Discrete 012c e004 | | Load 0x0,0x4 012d 025e | ^ | Execute Discrete,Convert 012e 00d9 | | Load_Top At_Offset_1 012f e21d | | Load 0x1,0x1d 0130 01d6 | | Execute Vector,Field_Write 0131 00c8 | | Action Pop_Auxiliary_Range 0132 3fda |? | Loop_Increasing 0x10d 0133 00ce | | Action Pop_Auxiliary 0134 e40f | | Load 0x2,0xf 0135 e00d | | Load 0x0,0xd 0136 e410 | | Load 0x2,0x10 0137 8021 | ! | Call 0x0,0x21 0138 c220 | | Store 0x1,0x20 0139 00d1 | | Pop_Control Pop_Count_1 013a e220 | | Load 0x1,0x20 013b e00d | | Load 0x0,0xd 013c 022f | / | Execute Access,Equal 013d 6809 |h | Jump_Zero 0x147 013e 0092 0810 | | Action Push_String_Extended,0x810 ; "Cannot open display: " 0140 e40f | | Load 0x2,0xf 0141 8022 | " | Call 0x0,0x22 0142 8023 | # | Call 0x0,0x23 0143 01cc | | Execute Vector,Catenate 0144 e024 | $ | Load 0x0,0x24 0145 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0146 08e2 | | Execute_Immediate Raise,0xe2 0147 e220 | | Load 0x1,0x20 0148 8025 | % | Call 0x0,0x25 0149 a222 | " | Store_Unchecked 0x1,0x22 014a 4900 |I | Short_Literal 0x100 014b a21e | | Store_Unchecked 0x1,0x1e 014c e5fa | | Load 0x2,-0x6 014d 680d |h | Jump_Zero 0x15b 014e e222 | " | Load 0x1,0x22 014f e220 | | Load 0x1,0x20 0150 8026 | & | Call 0x0,0x26 0151 a404 | | Store_Unchecked 0x2,0x4 0152 e222 | " | Load 0x1,0x22 0153 e220 | | Load 0x1,0x20 0154 8027 | ' | Call 0x0,0x27 0155 a405 | | Store_Unchecked 0x2,0x5 0156 4800 |H | Short_Literal 0x0 0157 a406 | | Store_Unchecked 0x2,0x6 0158 4800 |H | Short_Literal 0x0 0159 a407 | | Store_Unchecked 0x2,0x7 015a 7801 |x | Jump 0x15c 015b 8414 | | Call 0x2,0x14 015c e222 | " | Load 0x1,0x22 015d e220 | | Load 0x1,0x20 015e 8028 | ( | Call 0x0,0x28 015f a22e | . | Store_Unchecked 0x1,0x2e 0160 e222 | " | Load 0x1,0x22 0161 e220 | | Load 0x1,0x20 0162 8029 | ) | Call 0x0,0x29 0163 a22f | / | Store_Unchecked 0x1,0x2f 0164 e222 | " | Load 0x1,0x22 0165 e220 | | Load 0x1,0x20 0166 802a | * | Call 0x0,0x2a 0167 e225 | % | Load 0x1,0x25 0168 017d | } | Execute Record,Structure_Write 0169 e222 | " | Load 0x1,0x22 016a e220 | | Load 0x1,0x20 016b 802b | + | Call 0x0,0x2b 016c 0c03 | | Execute_Immediate Greater_Equal,0x3 016d 6803 |h | Jump_Zero 0x171 016e e221 | ! | Load 0x1,0x21 016f 8239 | 9 | Call 0x1,0x39 0170 7806 |x | Jump 0x177 0171 4800 |H | Short_Literal 0x0 0172 a226 | & | Store_Unchecked 0x1,0x26 0173 e222 | " | Load 0x1,0x22 0174 e220 | | Load 0x1,0x20 0175 802c | , | Call 0x0,0x2c 0176 a230 | 0 | Store_Unchecked 0x1,0x30 0177 e01a | | Load 0x0,0x1a 0178 0337 | 7 | Declare_Variable Array 0179 4801 |H | Short_Literal 0x1 017a 481e |H | Short_Literal 0x1e 017b 00da | | Load_Top At_Offset_2 017c 01d6 | | Execute Vector,Field_Write 017d 4801 |H | Short_Literal 0x1 017e 4812 |H | Short_Literal 0x12 017f 00da | | Load_Top At_Offset_2 0180 01d6 | | Execute Vector,Field_Write 0181 4811 |H | Short_Literal 0x11 0182 4800 |H | Short_Literal 0x0 0183 4800 |H | Short_Literal 0x0 0184 00d9 | | Load_Top At_Offset_1 0185 e415 | | Load 0x2,0x15 0186 01d6 | | Execute Vector,Field_Write 0187 3ffb |? | Loop_Increasing 0x183 0188 481d |H | Short_Literal 0x1d 0189 4813 |H | Short_Literal 0x13 018a 4800 |H | Short_Literal 0x0 018b 00d9 | | Load_Top At_Offset_1 018c e415 | | Load 0x2,0x15 018d 01d6 | | Execute Vector,Field_Write 018e 3ffb |? | Loop_Increasing 0x18a 018f 4800 |H | Short_Literal 0x0 0190 481f |H | Short_Literal 0x1f 0191 00da | | Load_Top At_Offset_2 0192 01d6 | | Execute Vector,Field_Write 0193 e01a | | Load 0x0,0x1a 0194 01c3 | | Execute Vector,Check_In_Type 0195 e40b | | Load 0x2,0xb 0196 01d4 | | Execute Vector,Structure_Write 0197 e230 | 0 | Load 0x1,0x30 0198 e40c | | Load 0x2,0xc 0199 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 019a e225 | % | Load 0x1,0x25 019b e40c | | Load 0x2,0xc 019c 380d |8 | Execute Record,Field_Write,Field_Number 0xd 019d e40c | | Load 0x2,0xc 019e e40b | | Load 0x2,0xb 019f e22e | . | Load 0x1,0x2e 01a0 4801 |H | Short_Literal 0x1 01a1 e22f | / | Load 0x1,0x2f 01a2 4800 |H | Short_Literal 0x0 01a3 e405 | | Load 0x2,0x5 01a4 00d8 | | Load_Top At_Offset_0 01a5 e02d | - | Load 0x0,0x2d 01a6 0260 | ` | Execute Discrete,In_Type 01a7 7001 |p | Jump_Nonzero 0x1a9 01a8 0801 | | Execute_Immediate Raise,0x1 01a9 00d8 | | Load_Top At_Offset_0 01aa e02e | . | Load 0x0,0x2e 01ab 0260 | ` | Execute Discrete,In_Type 01ac 7001 |p | Jump_Nonzero 0x1ae 01ad 0801 | | Execute_Immediate Raise,0x1 01ae e404 | | Load 0x2,0x4 01af 00d8 | | Load_Top At_Offset_0 01b0 e02d | - | Load 0x0,0x2d 01b1 0260 | ` | Execute Discrete,In_Type 01b2 7001 |p | Jump_Nonzero 0x1b4 01b3 0801 | | Execute_Immediate Raise,0x1 01b4 00d8 | | Load_Top At_Offset_0 01b5 e02e | . | Load 0x0,0x2e 01b6 0260 | ` | Execute Discrete,In_Type 01b7 7001 |p | Jump_Nonzero 0x1b9 01b8 0801 | | Execute_Immediate Raise,0x1 01b9 e407 | | Load 0x2,0x7 01ba 00d8 | | Load_Top At_Offset_0 01bb e02f | / | Load 0x0,0x2f 01bc 0260 | ` | Execute Discrete,In_Type 01bd 7001 |p | Jump_Nonzero 0x1bf 01be 0801 | | Execute_Immediate Raise,0x1 01bf e406 | | Load 0x2,0x6 01c0 00d8 | | Load_Top At_Offset_0 01c1 e02f | / | Load 0x0,0x2f 01c2 0260 | ` | Execute Discrete,In_Type 01c3 7001 |p | Jump_Nonzero 0x1c5 01c4 0801 | | Execute_Immediate Raise,0x1 01c5 e222 | " | Load 0x1,0x22 01c6 e220 | | Load 0x1,0x20 01c7 8030 | 0 | Call 0x0,0x30 01c8 e220 | | Load 0x1,0x20 01c9 8031 | 1 | Call 0x0,0x31 01ca e221 | ! | Load 0x1,0x21 01cb 017d | } | Execute Record,Structure_Write 01cc e032 | 2 | Load 0x0,0x32 01cd 0337 | 7 | Declare_Variable Array 01ce 4801 |H | Short_Literal 0x1 01cf 481d |H | Short_Literal 0x1d 01d0 00da | | Load_Top At_Offset_2 01d1 01d6 | | Execute Vector,Field_Write 01d2 4801 |H | Short_Literal 0x1 01d3 481c |H | Short_Literal 0x1c 01d4 00da | | Load_Top At_Offset_2 01d5 01d6 | | Execute Vector,Field_Write 01d6 481b |H | Short_Literal 0x1b 01d7 4800 |H | Short_Literal 0x0 01d8 4800 |H | Short_Literal 0x0 01d9 00d9 | | Load_Top At_Offset_1 01da e415 | | Load 0x2,0x15 01db 01d6 | | Execute Vector,Field_Write 01dc 3ffb |? | Loop_Increasing 0x1d8 01dd 4800 |H | Short_Literal 0x0 01de 481e |H | Short_Literal 0x1e 01df 00da | | Load_Top At_Offset_2 01e0 01d6 | | Execute Vector,Field_Write 01e1 4800 |H | Short_Literal 0x0 01e2 481f |H | Short_Literal 0x1f 01e3 00da | | Load_Top At_Offset_2 01e4 01d6 | | Execute Vector,Field_Write 01e5 e032 | 2 | Load 0x0,0x32 01e6 01c3 | | Execute Vector,Check_In_Type 01e7 e409 | | Load 0x2,0x9 01e8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01e9 e406 | | Load 0x2,0x6 01ea e409 | | Load 0x2,0x9 01eb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01ec e407 | | Load 0x2,0x7 01ed e409 | | Load 0x2,0x9 01ee 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01ef e404 | | Load 0x2,0x4 01f0 e409 | | Load 0x2,0x9 01f1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01f2 e405 | | Load 0x2,0x5 01f3 e409 | | Load 0x2,0x9 01f4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01f5 e017 | | Load 0x0,0x17 01f6 e033 | 3 | Load 0x0,0x33 01f7 e21f | | Load 0x1,0x1f 01f8 e409 | | Load 0x2,0x9 01f9 4801 |H | Short_Literal 0x1 01fa 4800 |H | Short_Literal 0x0 01fb e034 | 4 | Load 0x0,0x34 01fc 0334 | 4 | Declare_Variable Array,With_Constraint 01fd 4800 |H | Short_Literal 0x0 01fe 4804 |H | Short_Literal 0x4 01ff e013 | | Load 0x0,0x13 0200 0334 | 4 | Declare_Variable Array,With_Constraint 0201 517e |Q~ | Indirect_Literal Any,0x380,{0x576f726d, 0x73000000} 0202 4800 |H | Short_Literal 0x0 0203 4804 |H | Short_Literal 0x4 0204 e013 | | Load 0x0,0x13 0205 0334 | 4 | Declare_Variable Array,With_Constraint 0206 517d |Q} | Indirect_Literal Any,0x384,{0x576f726d, 0x73000000} 0207 e221 | ! | Load 0x1,0x21 0208 e220 | | Load 0x1,0x20 0209 8035 | 5 | Call 0x0,0x35 020a c408 | | Store 0x2,0x8 020b 4800 |H | Short_Literal 0x0 020c 4800 |H | Short_Literal 0x0 020d 480b |H | Short_Literal 0xb 020e e013 | | Load 0x0,0x13 020f 0334 | 4 | Declare_Variable Array,With_Constraint 0210 5177 |Qw | Indirect_Literal Any,0x388,{0x574d5f50, 0x524f544f} 0211 e220 | | Load 0x1,0x20 0212 8036 | 6 | Call 0x0,0x36 0213 e231 | 1 | Load 0x1,0x31 0214 017d | } | Execute Record,Structure_Write 0215 4800 |H | Short_Literal 0x0 0216 4800 |H | Short_Literal 0x0 0217 480f |H | Short_Literal 0xf 0218 e013 | | Load 0x0,0x13 0219 0334 | 4 | Declare_Variable Array,With_Constraint 021a 5175 |Qu | Indirect_Literal Any,0x390,{0x574d5f44, 0x454c4554} 021b e220 | | Load 0x1,0x20 021c 8036 | 6 | Call 0x0,0x36 021d e232 | 2 | Load 0x1,0x32 021e 017d | } | Execute Record,Structure_Write 021f e017 | | Load 0x0,0x17 0220 4801 |H | Short_Literal 0x1 0221 4801 |H | Short_Literal 0x1 0222 e037 | 7 | Load 0x0,0x37 0223 0334 | 4 | Declare_Variable Array,With_Constraint 0224 e232 | 2 | Load 0x1,0x32 0225 4801 |H | Short_Literal 0x1 0226 00da | | Load_Top At_Offset_2 0227 01d6 | | Execute Vector,Field_Write 0228 e221 | ! | Load 0x1,0x21 0229 e220 | | Load 0x1,0x20 022a 8038 | 8 | Call 0x0,0x38 022b c408 | | Store 0x2,0x8 022c e221 | ! | Load 0x1,0x21 022d e220 | | Load 0x1,0x20 022e 8039 | 9 | Call 0x0,0x39 022f e03a | : | Load 0x0,0x3a 0230 0337 | 7 | Declare_Variable Array 0231 4801 |H | Short_Literal 0x1 0232 4810 |H | Short_Literal 0x10 0233 00da | | Load_Top At_Offset_2 0234 01d6 | | Execute Vector,Field_Write 0235 4801 |H | Short_Literal 0x1 0236 480e |H | Short_Literal 0xe 0237 00da | | Load_Top At_Offset_2 0238 01d6 | | Execute Vector,Field_Write 0239 4801 |H | Short_Literal 0x1 023a 481d |H | Short_Literal 0x1d 023b 00da | | Load_Top At_Offset_2 023c 01d6 | | Execute Vector,Field_Write 023d 4801 |H | Short_Literal 0x1 023e 481f |H | Short_Literal 0x1f 023f 00da | | Load_Top At_Offset_2 0240 01d6 | | Execute Vector,Field_Write 0241 4801 |H | Short_Literal 0x1 0242 480f |H | Short_Literal 0xf 0243 00da | | Load_Top At_Offset_2 0244 01d6 | | Execute Vector,Field_Write 0245 480d |H | Short_Literal 0xd 0246 4800 |H | Short_Literal 0x0 0247 4800 |H | Short_Literal 0x0 0248 00d9 | | Load_Top At_Offset_1 0249 e415 | | Load 0x2,0x15 024a 01d6 | | Execute Vector,Field_Write 024b 3ffb |? | Loop_Increasing 0x247 024c 481c |H | Short_Literal 0x1c 024d 4811 |H | Short_Literal 0x11 024e 4800 |H | Short_Literal 0x0 024f 00d9 | | Load_Top At_Offset_1 0250 e415 | | Load 0x2,0x15 0251 01d6 | | Execute Vector,Field_Write 0252 3ffb |? | Loop_Increasing 0x24e 0253 4800 |H | Short_Literal 0x0 0254 481e |H | Short_Literal 0x1e 0255 00da | | Load_Top At_Offset_2 0256 01d6 | | Execute Vector,Field_Write 0257 e03a | : | Load 0x0,0x3a 0258 01c3 | | Execute Vector,Check_In_Type 0259 e221 | ! | Load 0x1,0x21 025a e220 | | Load 0x1,0x20 025b 803b | ; | Call 0x0,0x3b 025c e03c | < | Load 0x0,0x3c 025d e03d | = | Load 0x0,0x3d 025e e221 | ! | Load 0x1,0x21 025f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0260 e220 | | Load 0x1,0x20 0261 803e | > | Call 0x0,0x3e 0262 a223 | # | Store_Unchecked 0x1,0x23 0263 e03c | < | Load 0x0,0x3c 0264 e03d | = | Load 0x0,0x3d 0265 e221 | ! | Load 0x1,0x21 0266 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0267 e220 | | Load 0x1,0x20 0268 803e | > | Call 0x0,0x3e 0269 a224 | $ | Store_Unchecked 0x1,0x24 026a e222 | " | Load 0x1,0x22 026b e220 | | Load 0x1,0x20 026c 803f | ? | Call 0x0,0x3f 026d e224 | $ | Load 0x1,0x24 026e e220 | | Load 0x1,0x20 026f 8040 | @ | Call 0x0,0x40 0270 4800 |H | Short_Literal 0x0 0271 e21b | | Load 0x1,0x1b 0272 0aff | | Execute_Immediate Plus,-0x1 0273 e212 | | Load 0x1,0x12 0274 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 0275 a22c | , | Store_Unchecked 0x1,0x2c 0276 00cf | | Action Mark_Auxiliary 0277 e22c | , | Load 0x1,0x2c 0278 0227 | ' | Execute Access,All_Reference 0279 01d9 | | Execute Vector,Reverse_Bounds 027a 0263 | c | Execute Discrete,Above_Bound 027b 700a |p | Jump_Nonzero 0x286 027c e219 | | Load 0x1,0x19 027d e405 | | Load 0x2,0x5 027e e404 | | Load 0x2,0x4 027f 8218 | | Call 0x1,0x18 0280 00d9 | | Load_Top At_Offset_1 0281 e22c | , | Load 0x1,0x2c 0282 0227 | ' | Execute Access,All_Reference 0283 01d6 | | Execute Vector,Field_Write 0284 00c8 | | Action Pop_Auxiliary_Range 0285 3ff6 |? | Loop_Increasing 0x27c 0286 00c9 | | Action Pop_Auxiliary_Loop 0287 0007 | | Action Break_Optional 0288 e220 | | Load 0x1,0x20 0289 8041 | A | Call 0x0,0x41 028a 7004 |p | Jump_Nonzero 0x28f 028b e40d | | Load 0x2,0xd 028c 7002 |p | Jump_Nonzero 0x28f 028d e40e | | Load 0x2,0xe 028e 70a4 |p | Jump_Nonzero 0x333 028f e411 | | Load 0x2,0x11 0290 e220 | | Load 0x1,0x20 0291 8042 | B | Call 0x0,0x42 0292 00d1 | | Pop_Control Pop_Count_1 0293 e411 | | Load 0x2,0x11 0294 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0295 0f0f | | Execute_Immediate Equal,0xf 0296 680b |h | Jump_Zero 0x2a2 0297 e411 | | Load 0x2,0x11 0298 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf 0299 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 029a 0f02 | | Execute_Immediate Equal,0x2 029b 6803 |h | Jump_Zero 0x29f 029c 4800 |H | Short_Literal 0x0 029d a40e | | Store_Unchecked 0x2,0xe 029e 7894 |x | Jump 0x333 029f 4801 |H | Short_Literal 0x1 02a0 a40e | | Store_Unchecked 0x2,0xe 02a1 7891 |x | Jump 0x333 02a2 e411 | | Load 0x2,0x11 02a3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02a4 0f04 | | Execute_Immediate Equal,0x4 02a5 6806 |h | Jump_Zero 0x2ac 02a6 e411 | | Load 0x2,0x11 02a7 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7 02a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a9 0f02 | | Execute_Immediate Equal,0x2 02aa 6888 |h | Jump_Zero 0x333 02ab 4509 |E | Exit_Suprogram New_Top_Offset 0x9 02ac e411 | | Load 0x2,0x11 02ad 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02ae 0f02 | | Execute_Immediate Equal,0x2 02af 680c |h | Jump_Zero 0x2bc 02b0 4800 |H | Short_Literal 0x0 02b1 e411 | | Load 0x2,0x11 02b2 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 02b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02b4 e220 | | Load 0x1,0x20 02b5 8043 | C | Call 0x0,0x43 02b6 8044 | D | Call 0x0,0x44 02b7 707b |p{ | Jump_Nonzero 0x333 02b8 e40d | | Load 0x2,0xd 02b9 0f00 | | Execute_Immediate Equal,0x0 02ba a40d | | Store_Unchecked 0x2,0xd 02bb 7877 |xw | Jump 0x333 02bc e411 | | Load 0x2,0x11 02bd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02be 0f16 | | Execute_Immediate Equal,0x16 02bf 6849 |hI | Jump_Zero 0x309 02c0 e411 | | Load 0x2,0x11 02c1 2616 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x16 02c2 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 02c3 a404 | | Store_Unchecked 0x2,0x4 02c4 e411 | | Load 0x2,0x11 02c5 2616 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x16 02c6 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 02c7 a405 | | Store_Unchecked 0x2,0x5 02c8 00cf | | Action Mark_Auxiliary 02c9 e22c | , | Load 0x1,0x2c 02ca 0227 | ' | Execute Access,All_Reference 02cb 01d9 | | Execute Vector,Reverse_Bounds 02cc 0263 | c | Execute Discrete,Above_Bound 02cd 7034 |p4 | Jump_Nonzero 0x302 02ce 00d8 | | Load_Top At_Offset_0 02cf e22c | , | Load 0x1,0x2c 02d0 0229 | ) | Execute Access,All_Read 02d1 01d7 | | Execute Vector,Field_Read 02d2 0229 | ) | Execute Access,All_Read 02d3 00d8 | | Load_Top At_Offset_0 02d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02d5 e045 | E | Load 0x0,0x45 02d6 e046 | F | Load 0x0,0x46 02d7 a047 | G | Store_Unchecked 0x0,0x47 02d8 8006 | | Call 0x0,0x6 02d9 00d9 | | Load_Top At_Offset_1 02da 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02db 00d1 | | Pop_Control Pop_Count_1 02dc 00d8 | | Load_Top At_Offset_0 02dd e22c | , | Load 0x1,0x2c 02de 0229 | ) | Execute Access,All_Read 02df 01d7 | | Execute Vector,Field_Read 02e0 0229 | ) | Execute Access,All_Read 02e1 00d8 | | Load_Top At_Offset_0 02e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02e3 e045 | E | Load 0x0,0x45 02e4 e046 | F | Load 0x0,0x46 02e5 a047 | G | Store_Unchecked 0x0,0x47 02e6 8006 | | Call 0x0,0x6 02e7 00d9 | | Load_Top At_Offset_1 02e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02e9 00d1 | | Pop_Control Pop_Count_1 02ea e22c | , | Load 0x1,0x2c 02eb 0229 | ) | Execute Access,All_Read 02ec 00d9 | | Load_Top At_Offset_1 02ed 00d8 | | Load_Top At_Offset_0 02ee 00da | | Load_Top At_Offset_2 02ef 01d7 | | Execute Vector,Field_Read 02f0 e213 | | Load 0x1,0x13 02f1 e214 | | Load 0x1,0x14 02f2 1d15 | | Execute_Immediate Reference_Lex_1,0x15 02f3 8006 | | Call 0x0,0x6 02f4 00d9 | | Load_Top At_Offset_1 02f5 00db | | Load_Top At_Offset_3 02f6 01d6 | | Execute Vector,Field_Write 02f7 00d2 | | Pop_Control Pop_Count_2 02f8 e219 | | Load 0x1,0x19 02f9 e405 | | Load 0x2,0x5 02fa e404 | | Load 0x2,0x4 02fb 8218 | | Call 0x1,0x18 02fc 00d9 | | Load_Top At_Offset_1 02fd e22c | , | Load 0x1,0x2c 02fe 0227 | ' | Execute Access,All_Reference 02ff 01d6 | | Execute Vector,Field_Write 0300 00c8 | | Action Pop_Auxiliary_Range 0301 3fcc |? | Loop_Increasing 0x2ce 0302 00ce | | Action Pop_Auxiliary 0303 e221 | ! | Load 0x1,0x21 0304 e220 | | Load 0x1,0x20 0305 8048 | H | Call 0x0,0x48 0306 e220 | | Load 0x1,0x20 0307 8049 | I | Call 0x0,0x49 0308 782a |x* | Jump 0x333 0309 e411 | | Load 0x2,0x11 030a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 030b 0f21 | ! | Execute_Immediate Equal,0x21 030c 6810 |h | Jump_Zero 0x31d 030d e411 | | Load 0x2,0x11 030e 2621 |&! | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x21 030f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0310 e231 | 1 | Load 0x1,0x31 0311 017f | | Execute Record,Equal 0312 6820 |h | Jump_Zero 0x333 0313 4800 |H | Short_Literal 0x0 0314 e411 | | Load 0x2,0x11 0315 2621 |&! | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x21 0316 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0317 804a | J | Call 0x0,0x4a 0318 e232 | 2 | Load 0x1,0x32 0319 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 031a 027f | | Execute Discrete,Equal 031b 6817 |h | Jump_Zero 0x333 031c 4509 |E | Exit_Suprogram New_Top_Offset 0x9 031d e411 | | Load 0x2,0x11 031e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 031f 0f07 | | Execute_Immediate Equal,0x7 0320 6804 |h | Jump_Zero 0x325 0321 e225 | % | Load 0x1,0x25 0322 e220 | | Load 0x1,0x20 0323 804b | K | Call 0x0,0x4b 0324 780e |x | Jump 0x333 0325 e411 | | Load 0x2,0x11 0326 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0327 0f08 | | Execute_Immediate Equal,0x8 0328 6804 |h | Jump_Zero 0x32d 0329 e225 | % | Load 0x1,0x25 032a e220 | | Load 0x1,0x20 032b 804c | L | Call 0x0,0x4c 032c 7806 |x | Jump 0x333 032d e411 | | Load 0x2,0x11 032e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 032f 0f0c | | Execute_Immediate Equal,0xc 0330 6802 |h | Jump_Zero 0x333 0331 4801 |H | Short_Literal 0x1 0332 a40e | | Store_Unchecked 0x2,0xe 0333 e229 | ) | Load 0x1,0x29 0334 6805 |h | Jump_Zero 0x33a 0335 e226 | & | Load 0x1,0x26 0336 6803 |h | Jump_Zero 0x33a 0337 e227 | ' | Load 0x1,0x27 0338 6801 |h | Jump_Zero 0x33a 0339 8234 | 4 | Call 0x1,0x34 033a 00cf | | Action Mark_Auxiliary 033b e22c | , | Load 0x1,0x2c 033c 0227 | ' | Execute Access,All_Reference 033d 01d9 | | Execute Vector,Reverse_Bounds 033e 0263 | c | Execute Discrete,Above_Bound 033f 7017 |p | Jump_Nonzero 0x357 0340 00d8 | | Load_Top At_Offset_0 0341 e21e | | Load 0x1,0x1e 0342 0271 | q | Execute Discrete,Times 0343 e21b | | Load 0x1,0x1b 0344 0270 | p | Execute Discrete,Divide 0345 e413 | | Load 0x2,0x13 0346 0273 | s | Execute Discrete,Plus 0347 e21e | | Load 0x1,0x1e 0348 026f | o | Execute Discrete,Remainder 0349 c412 | | Store 0x2,0x12 034a e412 | | Load 0x2,0x12 034b e22b | + | Load 0x1,0x2b 034c 01d5 | | Execute Vector,Field_Reference 034d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 034e e405 | | Load 0x2,0x5 034f e404 | | Load 0x2,0x4 0350 00db | | Load_Top At_Offset_3 0351 e22c | , | Load 0x1,0x2c 0352 0227 | ' | Execute Access,All_Reference 0353 01d7 | | Execute Vector,Field_Read 0354 8236 | 6 | Call 0x1,0x36 0355 00c8 | | Action Pop_Auxiliary_Range 0356 3fe9 |? | Loop_Increasing 0x340 0357 00ce | | Action Pop_Auxiliary 0358 e22a | * | Load 0x1,0x2a 0359 680a |h | Jump_Zero 0x364 035a 00da | | Load_Top At_Offset_2 035b 600c |` | Indirect_Literal Discrete,0x368,{0x00000000, 0x7fffffff} 035c 027f | | Execute Discrete,Equal 035d 6803 |h | Jump_Zero 0x361 035e 4800 |H | Short_Literal 0x0 035f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0360 7803 |x | Jump 0x364 0361 00da | | Load_Top At_Offset_2 0362 0a01 | | Execute_Immediate Plus,0x1 0363 005b | [ | Store_Top Discrete,At_Offset_3 0364 00c9 | | Action Pop_Auxiliary_Loop 0365 7f22 | " | Jump 0x288 0366 0000 0000 | | .XXX[0x2] 0368 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 036c 4042 0000 |@B | .DBL 36.0 036e 0000 0000 | | 0370 4009 21fb |@ ! | .DBL 3.141592653589793 0372 5444 2d18 |TD- | 0374 4000 0000 |@ | .DBL 2.0 0376 0000 0000 | | 0378 3530 3078 |500x| .LITERAL {0x35303078, 0x3530302b} 037c 3130 2b31 |10+1| .XXX[0x4] 037e 3000 0000 |0 | 0380 576f 726d |Worm| .LITERAL {0x576f726d, 0x73000000} 0384 576f 726d |Worm| .LITERAL {0x576f726d, 0x73000000} 0388 574d 5f50 |WM_P| .LITERAL {0x574d5f50, 0x524f544f} 038c 434f 4c53 |COLS| .XXX[0x4] 038e 0000 0000 | | 0390 574d 5f44 |WM_D| .LITERAL {0x574d5f44, 0x454c4554} 0394 455f 5749 |E_WI| .XXX[0x4] 0396 4e44 4f57 |NDOW| 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039d | | .CONST 0x039d ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0002 | | .CONST 0x0002 ; Number of locals 039b INIT_0398: 039b e210 | | Load 0x1,0x10 039c 03bc | | Declare_Variable Access,By_Allocation 039d BODY_0398: 039d e5fd | | Load 0x2,-0x3 039e 0c01 | | Execute_Immediate Greater_Equal,0x1 039f 682b |h+ | Jump_Zero 0x3cb 03a0 4800 |H | Short_Literal 0x0 03a1 e5fd | | Load 0x2,-0x3 03a2 0aff | | Execute_Immediate Plus,-0x1 03a3 e003 | | Load 0x0,0x3 03a4 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 03a5 00d9 | | Load_Top At_Offset_1 03a6 0227 | ' | Execute Access,All_Reference 03a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03a8 4800 |H | Short_Literal 0x0 03a9 e5fd | | Load 0x2,-0x3 03aa 0aff | | Execute_Immediate Plus,-0x1 03ab e003 | | Load 0x0,0x3 03ac 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 03ad 00d9 | | Load_Top At_Offset_1 03ae 0227 | ' | Execute Access,All_Reference 03af 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03b0 00cf | | Action Mark_Auxiliary 03b1 00d9 | | Load_Top At_Offset_1 03b2 0227 | ' | Execute Access,All_Reference 03b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03b4 0227 | ' | Execute Access,All_Reference 03b5 01d9 | | Execute Vector,Reverse_Bounds 03b6 0263 | c | Execute Discrete,Above_Bound 03b7 7012 |p | Jump_Nonzero 0x3ca 03b8 e5ff | | Load 0x2,-0x1 03b9 09ff | | Execute_Immediate Binary_Scale,-0x1 03ba 00d9 | | Load_Top At_Offset_1 03bb e402 | | Load 0x2,0x2 03bc 0227 | ' | Execute Access,All_Reference 03bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03be 0227 | ' | Execute Access,All_Reference 03bf 01d6 | | Execute Vector,Field_Write 03c0 e5fe | | Load 0x2,-0x2 03c1 09ff | | Execute_Immediate Binary_Scale,-0x1 03c2 00d9 | | Load_Top At_Offset_1 03c3 e402 | | Load 0x2,0x2 03c4 0227 | ' | Execute Access,All_Reference 03c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03c6 0227 | ' | Execute Access,All_Reference 03c7 01d6 | | Execute Vector,Field_Write 03c8 00c8 | | Action Pop_Auxiliary_Range 03c9 3fee |? | Loop_Increasing 0x3b8 03ca 00ce | | Action Pop_Auxiliary 03cb 8233 | 3 | Call 0x1,0x33 03cc 4824 |H$ | Short_Literal 0x24 03cd 026f | o | Execute Discrete,Remainder 03ce 00d9 | | Load_Top At_Offset_1 03cf 0227 | ' | Execute Access,All_Reference 03d0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03d1 4800 |H | Short_Literal 0x0 03d2 00d9 | | Load_Top At_Offset_1 03d3 0227 | ' | Execute Access,All_Reference 03d4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03d5 00db | | Load_Top At_Offset_3 03d6 09ff | | Execute_Immediate Binary_Scale,-0x1 03d7 00d9 | | Load_Top At_Offset_1 03d8 0227 | ' | Execute Access,All_Reference 03d9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03da e5fe | | Load 0x2,-0x2 03db 09ff | | Execute_Immediate Binary_Scale,-0x1 03dc 00d9 | | Load_Top At_Offset_1 03dd 0227 | ' | Execute Access,All_Reference 03de 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 03df 00d8 | | Load_Top At_Offset_0 03e0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03e1 0000 0000 | | .BLANK 0000[0x7] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03ee | | .CONST 0x03ee ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0003 | | .CONST 0x0003 ; Number of locals 03eb INIT_03e8: 03eb e004 | | Load 0x0,0x4 03ec 0007 | | Action Break_Optional 03ed 00e6 | | Load_Encached Float_Cache 03ee BODY_03e8: 03ee e20e | | Load 0x1,0xe 03ef 804d | M | Call 0x0,0x4d 03f0 0041 | A | Store_Top_Unchecked Float,At_Offset_1 03f1 7800 |x | Jump 0x3f2 03f2 5809 |X | Indirect_Literal Float,0x3fc,1073741823.0 03f3 00d9 | | Load_Top At_Offset_1 03f4 023b | ; | Execute Float,Times 03f5 0235 | 5 | Execute Float,Round_To_Discrete 03f6 e004 | | Load 0x0,0x4 03f7 025e | ^ | Execute Discrete,Convert 03f8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 03f9 00d9 | | Load_Top At_Offset_1 03fa 00ca | | Action Exit_Nullary_Function 03fb 0000 | | .XXX[0x1] 03fc 41cf ffff |A | .DBL 1073741823.0 03fe ff80 0000 | | 0400 430f ffff |C | .XXX[0x4] 0402 ffff fff8 | | 0404 0000 0000 | | .BLANK 0000[0x4] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040d | | .CONST 0x040d ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0002 | | .CONST 0x0002 ; Number of locals 040b INIT_0408: 040b e004 | | Load 0x0,0x4 040c 0007 | | Action Break_Optional 040d BODY_0408: 040d 4801 |H | Short_Literal 0x1 040e e22b | + | Load 0x1,0x2b 040f 01d5 | | Execute Vector,Field_Reference 0410 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0411 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0412 00cf | | Action Mark_Auxiliary 0413 e21e | | Load 0x1,0x1e 0414 0afe | | Execute_Immediate Plus,-0x2 0415 4801 |H | Short_Literal 0x1 0416 0263 | c | Execute Discrete,Above_Bound 0417 700b |p | Jump_Nonzero 0x423 0418 00d8 | | Load_Top At_Offset_0 0419 0a01 | | Execute_Immediate Plus,0x1 041a e22b | + | Load 0x1,0x2b 041b 01d5 | | Execute Vector,Field_Reference 041c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 041d 00d9 | | Load_Top At_Offset_1 041e e22b | + | Load 0x1,0x2b 041f 01d5 | | Execute Vector,Field_Reference 0420 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0421 00c8 | | Action Pop_Auxiliary_Range 0422 3ff5 |? | Loop_Increasing 0x418 0423 00ce | | Action Pop_Auxiliary 0424 00d8 | | Load_Top At_Offset_0 0425 e21e | | Load 0x1,0x1e 0426 0aff | | Execute_Immediate Plus,-0x1 0427 e22b | + | Load 0x1,0x2b 0428 01d5 | | Execute Vector,Field_Reference 0429 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 042a e22b | + | Load 0x1,0x2b 042b e225 | % | Load 0x1,0x25 042c e220 | | Load 0x1,0x20 042d 804e | N | Call 0x0,0x4e 042e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 042f 0000 | | .XXX[0x1] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0433 | 3 | .CONST 0x0433 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0001 | | .CONST 0x0001 ; Number of locals 0433 BODY_0430: 0433 INIT_0430: 0433 e5fd | | Load 0x2,-0x3 0434 e223 | # | Load 0x1,0x23 0435 e220 | | Load 0x1,0x20 0436 8040 | @ | Call 0x0,0x40 0437 e21a | | Load 0x1,0x1a 0438 00d8 | | Load_Top At_Offset_0 0439 e02d | - | Load 0x0,0x2d 043a 0260 | ` | Execute Discrete,In_Type 043b 7001 |p | Jump_Nonzero 0x43d 043c 0801 | | Execute_Immediate Raise,0x1 043d e21a | | Load 0x1,0x1a 043e 00d8 | | Load_Top At_Offset_0 043f e02d | - | Load 0x0,0x2d 0440 0260 | ` | Execute Discrete,In_Type 0441 7001 |p | Jump_Nonzero 0x443 0442 0801 | | Execute_Immediate Raise,0x1 0443 e5fe | | Load 0x2,-0x2 0444 00d8 | | Load_Top At_Offset_0 0445 e02f | / | Load 0x0,0x2f 0446 0260 | ` | Execute Discrete,In_Type 0447 7001 |p | Jump_Nonzero 0x449 0448 0801 | | Execute_Immediate Raise,0x1 0449 e5ff | | Load 0x2,-0x1 044a 00d8 | | Load_Top At_Offset_0 044b e02f | / | Load 0x0,0x2f 044c 0260 | ` | Execute Discrete,In_Type 044d 7001 |p | Jump_Nonzero 0x44f 044e 0801 | | Execute_Immediate Raise,0x1 044f e223 | # | Load 0x1,0x23 0450 e221 | ! | Load 0x1,0x21 0451 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0452 e220 | | Load 0x1,0x20 0453 804f | O | Call 0x0,0x4f 0454 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0455 0000 0000 | | .XXX[0x3] 0457 0000 | | 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045f | _ | .CONST 0x045f ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0003 | | .CONST 0x0003 ; Number of locals 045b INIT_0458: 045b e004 | | Load 0x0,0x4 045c 0007 | | Action Break_Optional 045d e004 | | Load 0x0,0x4 045e 0007 | | Action Break_Optional 045f BODY_0458: 045f e219 | | Load 0x1,0x19 0460 0c01 | | Execute_Immediate Greater_Equal,0x1 0461 6837 |h7 | Jump_Zero 0x499 0462 e5ff | | Load 0x2,-0x1 0463 0227 | ' | Execute Access,All_Reference 0464 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0465 0a01 | | Execute_Immediate Plus,0x1 0466 e219 | | Load 0x1,0x19 0467 026f | o | Execute Discrete,Remainder 0468 e5ff | | Load 0x2,-0x1 0469 0227 | ' | Execute Access,All_Reference 046a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 046b e5ff | | Load 0x2,-0x1 046c 0227 | ' | Execute Access,All_Reference 046d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 046e e5ff | | Load 0x2,-0x1 046f 0227 | ' | Execute Access,All_Reference 0470 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0471 0227 | ' | Execute Access,All_Reference 0472 01d7 | | Execute Vector,Field_Read 0473 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0474 e5ff | | Load 0x2,-0x1 0475 0227 | ' | Execute Access,All_Reference 0476 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0477 e5ff | | Load 0x2,-0x1 0478 0227 | ' | Execute Access,All_Reference 0479 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 047a 0227 | ' | Execute Access,All_Reference 047b 01d7 | | Execute Vector,Field_Read 047c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 047d 4800 |H | Short_Literal 0x0 047e e21a | | Load 0x1,0x1a 047f 00d8 | | Load_Top At_Offset_0 0480 e02d | - | Load 0x0,0x2d 0481 0260 | ` | Execute Discrete,In_Type 0482 7001 |p | Jump_Nonzero 0x484 0483 0801 | | Execute_Immediate Raise,0x1 0484 e21a | | Load 0x1,0x1a 0485 00d8 | | Load_Top At_Offset_0 0486 e02d | - | Load 0x0,0x2d 0487 0260 | ` | Execute Discrete,In_Type 0488 7001 |p | Jump_Nonzero 0x48a 0489 0801 | | Execute_Immediate Raise,0x1 048a 00db | | Load_Top At_Offset_3 048b 00d8 | | Load_Top At_Offset_0 048c e02f | / | Load 0x0,0x2f 048d 0260 | ` | Execute Discrete,In_Type 048e 7001 |p | Jump_Nonzero 0x490 048f 0801 | | Execute_Immediate Raise,0x1 0490 e402 | | Load 0x2,0x2 0491 00d8 | | Load_Top At_Offset_0 0492 e02f | / | Load 0x0,0x2f 0493 0260 | ` | Execute Discrete,In_Type 0494 7001 |p | Jump_Nonzero 0x496 0495 0801 | | Execute_Immediate Raise,0x1 0496 e221 | ! | Load 0x1,0x21 0497 e220 | | Load 0x1,0x20 0498 8050 | P | Call 0x0,0x50 0499 8233 | 3 | Call 0x1,0x33 049a 4802 |H | Short_Literal 0x2 049b 026f | o | Execute Discrete,Remainder 049c 680a |h | Jump_Zero 0x4a7 049d e5ff | | Load 0x2,-0x1 049e 0227 | ' | Execute Access,All_Reference 049f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04a0 0a01 | | Execute_Immediate Plus,0x1 04a1 4824 |H$ | Short_Literal 0x24 04a2 026f | o | Execute Discrete,Remainder 04a3 e5ff | | Load 0x2,-0x1 04a4 0227 | ' | Execute Access,All_Reference 04a5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 04a6 7809 |x | Jump 0x4b0 04a7 e5ff | | Load 0x2,-0x1 04a8 0227 | ' | Execute Access,All_Reference 04a9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04aa 0a23 | # | Execute_Immediate Plus,0x23 04ab 4824 |H$ | Short_Literal 0x24 04ac 026f | o | Execute Discrete,Remainder 04ad e5ff | | Load 0x2,-0x1 04ae 0227 | ' | Execute Access,All_Reference 04af 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 04b0 e5ff | | Load 0x2,-0x1 04b1 0227 | ' | Execute Access,All_Reference 04b2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04b3 e5ff | | Load 0x2,-0x1 04b4 0227 | ' | Execute Access,All_Reference 04b5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04b6 e21d | | Load 0x1,0x1d 04b7 01d7 | | Execute Vector,Field_Read 04b8 0273 | s | Execute Discrete,Plus 04b9 e5fe | | Load 0x2,-0x2 04ba 0273 | s | Execute Discrete,Plus 04bb e5fe | | Load 0x2,-0x2 04bc 026f | o | Execute Discrete,Remainder 04bd 005a | Z | Store_Top Discrete,At_Offset_2 04be e5ff | | Load 0x2,-0x1 04bf 0227 | ' | Execute Access,All_Reference 04c0 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 04c1 e5ff | | Load 0x2,-0x1 04c2 0227 | ' | Execute Access,All_Reference 04c3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04c4 e21c | | Load 0x1,0x1c 04c5 01d7 | | Execute Vector,Field_Read 04c6 0273 | s | Execute Discrete,Plus 04c7 e5fd | | Load 0x2,-0x3 04c8 0273 | s | Execute Discrete,Plus 04c9 e5fd | | Load 0x2,-0x3 04ca 026f | o | Execute Discrete,Remainder 04cb 0059 | Y | Store_Top Discrete,At_Offset_1 04cc e219 | | Load 0x1,0x19 04cd 0c01 | | Execute_Immediate Greater_Equal,0x1 04ce 6812 |h | Jump_Zero 0x4e1 04cf 00d9 | | Load_Top At_Offset_1 04d0 e5ff | | Load 0x2,-0x1 04d1 0227 | ' | Execute Access,All_Reference 04d2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04d3 e5ff | | Load 0x2,-0x1 04d4 0227 | ' | Execute Access,All_Reference 04d5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04d6 0227 | ' | Execute Access,All_Reference 04d7 01d6 | | Execute Vector,Field_Write 04d8 00d8 | | Load_Top At_Offset_0 04d9 e5ff | | Load 0x2,-0x1 04da 0227 | ' | Execute Access,All_Reference 04db 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04dc e5ff | | Load 0x2,-0x1 04dd 0227 | ' | Execute Access,All_Reference 04de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04df 0227 | ' | Execute Access,All_Reference 04e0 01d6 | | Execute Vector,Field_Write 04e1 e226 | & | Load 0x1,0x26 04e2 6805 |h | Jump_Zero 0x4e8 04e3 e5fc | | Load 0x2,-0x4 04e4 00d9 | | Load_Top At_Offset_1 04e5 00db | | Load_Top At_Offset_3 04e6 8235 | 5 | Call 0x1,0x35 04e7 781d |x | Jump 0x505 04e8 e21a | | Load 0x1,0x1a 04e9 00d8 | | Load_Top At_Offset_0 04ea e02d | - | Load 0x0,0x2d 04eb 0260 | ` | Execute Discrete,In_Type 04ec 7001 |p | Jump_Nonzero 0x4ee 04ed 0801 | | Execute_Immediate Raise,0x1 04ee e21a | | Load 0x1,0x1a 04ef 00d8 | | Load_Top At_Offset_0 04f0 e02d | - | Load 0x0,0x2d 04f1 0260 | ` | Execute Discrete,In_Type 04f2 7001 |p | Jump_Nonzero 0x4f4 04f3 0801 | | Execute_Immediate Raise,0x1 04f4 00da | | Load_Top At_Offset_2 04f5 00d8 | | Load_Top At_Offset_0 04f6 e02f | / | Load 0x0,0x2f 04f7 0260 | ` | Execute Discrete,In_Type 04f8 7001 |p | Jump_Nonzero 0x4fa 04f9 0801 | | Execute_Immediate Raise,0x1 04fa e402 | | Load 0x2,0x2 04fb 00d8 | | Load_Top At_Offset_0 04fc e02f | / | Load 0x0,0x2f 04fd 0260 | ` | Execute Discrete,In_Type 04fe 7001 |p | Jump_Nonzero 0x500 04ff 0801 | | Execute_Immediate Raise,0x1 0500 e224 | $ | Load 0x1,0x24 0501 e221 | ! | Load 0x1,0x21 0502 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0503 e220 | | Load 0x1,0x20 0504 804f | O | Call 0x0,0x4f 0505 00d9 | | Load_Top At_Offset_1 0506 e5ff | | Load 0x2,-0x1 0507 0227 | ' | Execute Access,All_Reference 0508 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0509 00d8 | | Load_Top At_Offset_0 050a e5ff | | Load 0x2,-0x1 050b 0227 | ' | Execute Access,All_Reference 050c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 050d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 050e 0000 0000 | | .XXX[0x2] 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 0519 | | .CONST 0x0519 ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 0002 | | .CONST 0x0002 ; Number of locals 0513 INIT_0510: 0513 00da | | Load_Top At_Offset_2 0514 0235 | 5 | Execute Float,Round_To_Discrete 0515 e004 | | Load 0x0,0x4 0516 025e | ^ | Execute Discrete,Convert 0517 e004 | | Load 0x0,0x4 0518 03f1 | | Declare_Variable Discrete,With_Value 0519 BODY_0510: 0519 00d8 | | Load_Top At_Offset_0 051a 0237 | 7 | Execute Float,Convert_From_Discrete 051b e5ff | | Load 0x2,-0x1 051c 0245 | E | Execute Float,Greater 051d 6808 |h | Jump_Zero 0x526 051e 00d8 | | Load_Top At_Offset_0 051f 0aff | | Execute_Immediate Plus,-0x1 0520 00d8 | | Load_Top At_Offset_0 0521 e004 | | Load 0x0,0x4 0522 0260 | ` | Execute Discrete,In_Type 0523 7001 |p | Jump_Nonzero 0x525 0524 0801 | | Execute_Immediate Raise,0x1 0525 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0526 00d8 | | Load_Top At_Offset_0 0527 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 0534 | 4 | .CONST 0x0534 ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0007 | | .CONST 0x0007 ; Number of locals 052b INIT_0528: 052b 00da | | Load_Top At_Offset_2 052c 00e6 | | Load_Encached Float_Cache 052d 03df | | Declare_Variable Float,With_Value 052e 00e6 | | Load_Encached Float_Cache 052f 00e6 | | Load_Encached Float_Cache 0530 00e6 | | Load_Encached Float_Cache 0531 00e6 | | Load_Encached Float_Cache 0532 e004 | | Load 0x0,0x4 0533 0007 | | Action Break_Optional 0534 BODY_0528: 0534 e5fe | | Load 0x2,-0x2 0535 7007 |p | Jump_Nonzero 0x53d 0536 e5fd | | Load 0x2,-0x3 0537 a5fc | | Store_Unchecked 0x2,-0x4 0538 e5fd | | Load 0x2,-0x3 0539 a5fb | | Store_Unchecked 0x2,-0x5 053a e5fd | | Load 0x2,-0x3 053b a5fa | | Store_Unchecked 0x2,-0x6 053c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 053d e402 | | Load 0x2,0x2 053e 00d8 | | Load_Top At_Offset_0 053f 8237 | 7 | Call 0x1,0x37 0540 0237 | 7 | Execute Float,Convert_From_Discrete 0541 023c | < | Execute Float,Minus 0542 a402 | | Store_Unchecked 0x2,0x2 0543 e402 | | Load 0x2,0x2 0544 585f |X_ | Indirect_Literal Float,0x5a4,6.0 0545 023b | ; | Execute Float,Times 0546 a402 | | Store_Unchecked 0x2,0x2 0547 e402 | | Load 0x2,0x2 0548 8237 | 7 | Call 0x1,0x37 0549 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 054a e402 | | Load 0x2,0x2 054b 00d9 | | Load_Top At_Offset_1 054c 0237 | 7 | Execute Float,Convert_From_Discrete 054d 023c | < | Execute Float,Minus 054e a403 | | Store_Unchecked 0x2,0x3 054f e5fd | | Load 0x2,-0x3 0550 584f |XO | Indirect_Literal Float,0x5a0,1.0 0551 e5fe | | Load 0x2,-0x2 0552 023c | < | Execute Float,Minus 0553 023b | ; | Execute Float,Times 0554 a404 | | Store_Unchecked 0x2,0x4 0555 e5fd | | Load 0x2,-0x3 0556 5849 |XI | Indirect_Literal Float,0x5a0,1.0 0557 e5fe | | Load 0x2,-0x2 0558 e403 | | Load 0x2,0x3 0559 023b | ; | Execute Float,Times 055a 023c | < | Execute Float,Minus 055b 023b | ; | Execute Float,Times 055c 0043 | C | Store_Top_Uncheched Float,At_Offset_3 055d e5fd | | Load 0x2,-0x3 055e 5841 |XA | Indirect_Literal Float,0x5a0,1.0 055f e5fe | | Load 0x2,-0x2 0560 583f |X? | Indirect_Literal Float,0x5a0,1.0 0561 e403 | | Load 0x2,0x3 0562 023c | < | Execute Float,Minus 0563 023b | ; | Execute Float,Times 0564 023c | < | Execute Float,Minus 0565 023b | ; | Execute Float,Times 0566 0042 | B | Store_Top_Unchecked Float,At_Offset_2 0567 00d8 | | Load_Top At_Offset_0 0568 00d8 | | Load_Top At_Offset_0 0569 4800 |H | Short_Literal 0x0 056a 4805 |H | Short_Literal 0x5 056b 0262 | b | Execute Discrete,In_Range 056c 6831 |h1 | Jump_Zero 0x59e 056d 4605 |F | Jump_Case 0x6 056e 780c |x | Jump 0x57b ; case 0x0 056f 7812 |x | Jump 0x582 ; case 0x1 0570 7818 |x | Jump 0x589 ; case 0x2 0571 781e |x | Jump 0x590 ; case 0x3 0572 7824 |x$ | Jump 0x597 ; case 0x4 0573 7800 |x | Jump 0x574 ; case 0x5 0574 e5fd | | Load 0x2,-0x3 0575 a5fc | | Store_Unchecked 0x2,-0x4 0576 00db | | Load_Top At_Offset_3 0577 a5fb | | Store_Unchecked 0x2,-0x5 0578 00da | | Load_Top At_Offset_2 0579 a5fa | | Store_Unchecked 0x2,-0x6 057a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 057b e5fd | | Load 0x2,-0x3 057c a5fc | | Store_Unchecked 0x2,-0x4 057d 00d9 | | Load_Top At_Offset_1 057e a5fb | | Store_Unchecked 0x2,-0x5 057f 00db | | Load_Top At_Offset_3 0580 a5fa | | Store_Unchecked 0x2,-0x6 0581 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0582 00da | | Load_Top At_Offset_2 0583 a5fc | | Store_Unchecked 0x2,-0x4 0584 e5fd | | Load 0x2,-0x3 0585 a5fb | | Store_Unchecked 0x2,-0x5 0586 00db | | Load_Top At_Offset_3 0587 a5fa | | Store_Unchecked 0x2,-0x6 0588 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0589 00db | | Load_Top At_Offset_3 058a a5fc | | Store_Unchecked 0x2,-0x4 058b e5fd | | Load 0x2,-0x3 058c a5fb | | Store_Unchecked 0x2,-0x5 058d 00d9 | | Load_Top At_Offset_1 058e a5fa | | Store_Unchecked 0x2,-0x6 058f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0590 00db | | Load_Top At_Offset_3 0591 a5fc | | Store_Unchecked 0x2,-0x4 0592 00da | | Load_Top At_Offset_2 0593 a5fb | | Store_Unchecked 0x2,-0x5 0594 e5fd | | Load 0x2,-0x3 0595 a5fa | | Store_Unchecked 0x2,-0x6 0596 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0597 00d9 | | Load_Top At_Offset_1 0598 a5fc | | Store_Unchecked 0x2,-0x4 0599 00db | | Load_Top At_Offset_3 059a a5fb | | Store_Unchecked 0x2,-0x5 059b e5fd | | Load 0x2,-0x3 059c a5fa | | Store_Unchecked 0x2,-0x6 059d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 059e 00d1 | | Pop_Control Pop_Count_1 059f 08e0 | | Execute_Immediate Raise,0xe0 05a0 3ff0 0000 |? | .DBL 1.0 05a2 0000 0000 | | 05a4 4018 0000 |@ | .DBL 6.0 05a6 0000 0000 | | 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05cc | | .CONST 0x05cc ; Address of begin 05a9 0004 | | .CONST 0x0004 ; Address of exception handler 05aa 000a | | .CONST 0x000a ; Number of locals 05ab INIT_05a8: 05ab 4800 |H | Short_Literal 0x0 05ac 48ff |H | Short_Literal 0xff 05ad e051 | Q | Load 0x0,0x51 05ae 035b | [ | Declare_Type Array,Constrained 05af 0337 | 7 | Declare_Variable Array 05b0 4801 |H | Short_Literal 0x1 05b1 4800 |H | Short_Literal 0x0 05b2 e052 | R | Load 0x0,0x52 05b3 035b | [ | Declare_Type Array,Constrained 05b4 0337 | 7 | Declare_Variable Array 05b5 e053 | S | Load 0x0,0x53 05b6 0322 | " | Declare_Variable Record 05b7 00d8 | | Load_Top At_Offset_0 05b8 1c00 | | Execute_Immediate Run_Utility,0x0 05b9 e004 | | Load 0x0,0x4 05ba 0007 | | Action Break_Optional 05bb e004 | | Load 0x0,0x4 05bc 0007 | | Action Break_Optional 05bd 4800 |H | Short_Literal 0x0 05be 48ff |H | Short_Literal 0xff 05bf e012 | | Load 0x0,0x12 05c0 035b | [ | Declare_Type Array,Constrained 05c1 0337 | 7 | Declare_Variable Array 05c2 00d8 | | Load_Top At_Offset_0 05c3 1c00 | | Execute_Immediate Run_Utility,0x0 05c4 e00f | | Load 0x0,0xf 05c5 0007 | | Action Break_Optional 05c6 e017 | | Load 0x0,0x17 05c7 0007 | | Action Break_Optional 05c8 0007 | | Action Break_Optional 05c9 0007 | | Action Break_Optional 05ca 029f 0753 | S| Declare_Subprogram INIT_0750,For_Call 05cc BODY_05a8: 05cc e222 | " | Load 0x1,0x22 05cd e220 | | Load 0x1,0x20 05ce 8054 | T | Call 0x0,0x54 05cf 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 05d0 e017 | | Load 0x0,0x17 05d1 e404 | | Load 0x2,0x4 05d2 4803 |H | Short_Literal 0x3 05d3 e408 | | Load 0x2,0x8 05d4 e222 | " | Load 0x1,0x22 05d5 e220 | | Load 0x1,0x20 05d6 8055 | U | Call 0x0,0x55 05d7 00d1 | | Pop_Control Pop_Count_1 05d8 005a | Z | Store_Top Discrete,At_Offset_2 05d9 00d9 | | Load_Top At_Offset_1 05da 0f01 | | Execute_Immediate Equal,0x1 05db 6801 |h | Jump_Zero 0x5dd 05dc 781a |x | Jump 0x5f7 05dd e017 | | Load 0x0,0x17 05de e404 | | Load 0x2,0x4 05df 4801 |H | Short_Literal 0x1 05e0 e408 | | Load 0x2,0x8 05e1 e222 | " | Load 0x1,0x22 05e2 e220 | | Load 0x1,0x20 05e3 8055 | U | Call 0x0,0x55 05e4 00d1 | | Pop_Control Pop_Count_1 05e5 005a | Z | Store_Top Discrete,At_Offset_2 05e6 00d9 | | Load_Top At_Offset_1 05e7 0f01 | | Execute_Immediate Equal,0x1 05e8 6801 |h | Jump_Zero 0x5ea 05e9 780d |x | Jump 0x5f7 05ea e017 | | Load 0x0,0x17 05eb e404 | | Load 0x2,0x4 05ec 4805 |H | Short_Literal 0x5 05ed e408 | | Load 0x2,0x8 05ee e222 | " | Load 0x1,0x22 05ef e220 | | Load 0x1,0x20 05f0 8055 | U | Call 0x0,0x55 05f1 00d1 | | Pop_Control Pop_Count_1 05f2 005a | Z | Store_Top Discrete,At_Offset_2 05f3 00d9 | | Load_Top At_Offset_1 05f4 0f01 | | Execute_Immediate Equal,0x1 05f5 68bc |h | Jump_Zero 0x6b2 05f6 7800 |x | Jump 0x5f7 05f7 0008 | | Action Idle 05f8 0007 | | Action Break_Optional 05f9 e404 | | Load 0x2,0x4 05fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05fb a22e | . | Store_Unchecked 0x1,0x2e 05fc e404 | | Load 0x2,0x4 05fd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 05fe a22f | / | Store_Unchecked 0x1,0x2f 05ff 4800 |H | Short_Literal 0x0 0600 e22e | . | Load 0x1,0x2e 0601 e222 | " | Load 0x1,0x22 0602 e220 | | Load 0x1,0x20 0603 8030 | 0 | Call 0x0,0x30 0604 e220 | | Load 0x1,0x20 0605 8056 | V | Call 0x0,0x56 0606 e225 | % | Load 0x1,0x25 0607 017d | } | Execute Record,Structure_Write 0608 e404 | | Load 0x2,0x4 0609 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 060a a21e | | Store_Unchecked 0x1,0x1e 060b 00cf | | Action Mark_Auxiliary 060c 4810 |H | Short_Literal 0x10 060d e21e | | Load 0x1,0x1e 060e 0264 | d | Execute Discrete,Below_Bound 060f 701b |p | Jump_Nonzero 0x62b 0610 e402 | | Load 0x2,0x2 0611 4800 |H | Short_Literal 0x0 0612 00da | | Load_Top At_Offset_2 0613 0aff | | Execute_Immediate Plus,-0x1 0614 00da | | Load_Top At_Offset_2 0615 035b | [ | Declare_Type Array,Constrained 0616 00d0 | | Action Swap_Control 0617 01cd | | Execute Vector,Slice_Reference 0618 e017 | | Load 0x0,0x17 0619 00d9 | | Load_Top At_Offset_1 061a e403 | | Load 0x2,0x3 061b 4800 |H | Short_Literal 0x0 061c e225 | % | Load 0x1,0x25 061d e220 | | Load 0x1,0x20 061e 8057 | W | Call 0x0,0x57 061f 00d2 | | Pop_Control Pop_Count_2 0620 c409 | | Store 0x2,0x9 0621 00d1 | | Pop_Control Pop_Count_1 0622 e409 | | Load 0x2,0x9 0623 0f01 | | Execute_Immediate Equal,0x1 0624 6804 |h | Jump_Zero 0x629 0625 00d8 | | Load_Top At_Offset_0 0626 a21e | | Store_Unchecked 0x1,0x1e 0627 00d2 | | Pop_Control Pop_Count_2 0628 7802 |x | Jump 0x62b 0629 00c8 | | Action Pop_Auxiliary_Range 062a 37e5 |7 | Loop_Decreasing 0x610 062b 00ce | | Action Pop_Auxiliary 062c e21e | | Load 0x1,0x1e 062d 0f10 | | Execute_Immediate Equal,0x10 062e 6867 |hg | Jump_Zero 0x696 062f 0092 0811 | | Action Push_String_Extended,0x811 ; "Couldn't allocate even 16 colors - exiting" 0631 e024 | $ | Load 0x0,0x24 0632 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0633 08e2 | | Execute_Immediate Raise,0xe2 0634 4800 00d9 |H | .XXX[0x62] 0636 e40b 01d6 | | 0638 3ffb e058 |? X| 063a 01c3 4800 | H | 063c e22b 01d5 | + | 063e 3804 00cf |8 | 0640 e21e 0aff | | 0642 4801 0263 |H c| 0644 704b 00d8 |pK | 0646 e402 01d7 | | 0648 00d9 e22b | +| 064a 01d5 3800 | 8 | 064c 8233 4900 | 3I | 064e 026f 0908 | o | 0650 00d8 e02d | -| 0652 0260 7001 | `p | 0654 0801 00d9 | | 0656 e22b 01d5 | + | 0658 3801 8233 |8 3| 065a 4900 026f |I o| 065c 0908 00d8 | | 065e e02d 0260 | - `| 0660 7001 0801 |p | 0662 00d9 e22b | +| 0664 01d5 3802 | 8 | 0666 8233 4900 | 3I | 0668 026f 0908 | o | 066a 00d8 e02d | -| 066c 0260 7001 | `p | 066e 0801 00d9 | | 0670 e22b 01d5 | + | 0672 3803 e058 |8 X| 0674 0337 4801 | 7H | 0676 4807 00da |H | 0678 01d6 4801 | H | 067a 4806 00da |H | 067c 01d6 4801 | H | 067e 4805 00da |H | 0680 01d6 4804 | H | 0682 4800 4800 |H H | 0684 00d9 e40e | | 0686 01d6 3ffb | ? | 0688 e058 01c3 | X | 068a 00d9 e22b | +| 068c 01d5 3804 | 8 | 068e 00c8 3fb5 | ? | 0690 00ce e22b | +| 0692 e225 e220 | % | 0694 804e 7819 | Nx | 0696 0007 | | Action Break_Optional 0697 840a | | Call 0x2,0xa 0698 7816 |x | Jump 0x6af 0699 00d8 00d9 | | .XXX[0x16] 069b e407 01d5 | | 069d 3800 00c8 |8 | 069f 3ff9 00ce |? | 06a1 00db e222 | "| 06a3 e220 802a | *| 06a5 e220 8059 | Y| 06a7 00d1 00db | | 06a9 e225 e220 | % | 06ab 804e 00db | N | 06ad e22b 01d4 | + | 06af 4801 |H | Short_Literal 0x1 06b0 a227 | ' | Store_Unchecked 0x1,0x27 06b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06b2 0008 | | Action Idle 06b3 0007 | | Action Break_Optional 06b4 4800 |H | Short_Literal 0x0 06b5 a227 | ' | Store_Unchecked 0x1,0x27 06b6 e404 | | Load 0x2,0x4 06b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06b8 a22e | . | Store_Unchecked 0x1,0x2e 06b9 e404 | | Load 0x2,0x4 06ba 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 06bb a22f | / | Store_Unchecked 0x1,0x2f 06bc 00cf | | Action Mark_Auxiliary 06bd e22b | + | Load 0x1,0x2b 06be 01d9 | | Execute Vector,Reverse_Bounds 06bf 0007 | | Action Break_Optional 06c0 8233 | 3 | Call 0x1,0x33 06c1 00d9 | | Load_Top At_Offset_1 06c2 e22b | + | Load 0x1,0x2b 06c3 01d5 | | Execute Vector,Field_Reference 06c4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06c5 00c8 | | Action Pop_Auxiliary_Range 06c6 3ff9 |? | Loop_Increasing 0x6c0 06c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; SUBPROGRAM 06c8 ; -------------------------------------------------------------------------------------- 06c8 06d3 | | .CONST 0x06d3 ; Address of begin 06c9 0004 | | .CONST 0x0004 ; Address of exception handler 06ca 0003 | | .CONST 0x0003 ; Number of locals 06cb INIT_06c8: 06cb e05a | Z | Load 0x0,0x5a 06cc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 06cd e05a | Z | Load 0x0,0x5a 06ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06cf e05a | Z | Load 0x0,0x5a 06d0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 06d1 03f1 | | Declare_Variable Discrete,With_Value 06d2 00e3 | | Load_Encached Natural_Cache 06d3 BODY_06c8: 06d3 00d9 | | Load_Top At_Offset_1 06d4 602b |`+ | Indirect_Literal Discrete,0x700,{0x00000000, 0x00320000} 06d5 0270 | p | Execute Discrete,Divide 06d6 00d8 | | Load_Top At_Offset_0 06d7 00e3 | | Load_Encached Natural_Cache 06d8 0260 | ` | Execute Discrete,In_Type 06d9 7001 |p | Jump_Nonzero 0x6db 06da 0801 | | Execute_Immediate Raise,0x1 06db 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 06dc 00d9 | | Load_Top At_Offset_1 06dd 4ff1 |O | Short_Literal -0xf 06de 00da | | Load_Top At_Offset_2 06df 090f | | Execute_Immediate Binary_Scale,0xf 06e0 601f |` | Indirect_Literal Discrete,0x700,{0x00000000, 0x00320000} 06e1 0141 | A | Execute Discrete,Multiply_And_Scale 06e2 00d8 | | Load_Top At_Offset_0 06e3 00e7 | | Load_Encached Duration_Cache 06e4 0260 | ` | Execute Discrete,In_Type 06e5 7001 |p | Jump_Nonzero 0x6e7 06e6 0801 | | Execute_Immediate Raise,0x1 06e7 0272 | r | Execute Discrete,Minus 06e8 00d8 | | Load_Top At_Offset_0 06e9 e05a | Z | Load 0x0,0x5a 06ea 1b11 | | Execute Package,Field_Read,Field_Number 0x11 06eb 0260 | ` | Execute Discrete,In_Type 06ec 7001 |p | Jump_Nonzero 0x6ee 06ed 0801 | | Execute_Immediate Raise,0x1 06ee 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 06ef 4fe2 |O | Short_Literal -0x1e 06f0 00da | | Load_Top At_Offset_2 06f1 600a |` | Indirect_Literal Discrete,0x6fc,{0x00000000, 0x01446f86} 06f2 090f | | Execute_Immediate Binary_Scale,0xf 06f3 0141 | A | Execute Discrete,Multiply_And_Scale 06f4 00d8 | | Load_Top At_Offset_0 06f5 e005 | | Load 0x0,0x5 06f6 0260 | ` | Execute Discrete,In_Type 06f7 7001 |p | Jump_Nonzero 0x6f9 06f8 0801 | | Execute_Immediate Raise,0x1 06f9 805b | [ | Call 0x0,0x5b 06fa a20e | | Store_Unchecked 0x1,0xe 06fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06fc 0000 0000 | | .LITERAL {0x00000000, 0x01446f86} 0700 0000 0000 | | .LITERAL {0x00000000, 0x00320000} 0704 0000 0000 | | .BLANK 0000[0x4] 0708 ; -------------------------------------------------------------------------------------- 0708 ; SUBPROGRAM 0708 ; -------------------------------------------------------------------------------------- 0708 070d | | .CONST 0x070d ; Address of begin 0709 0004 | | .CONST 0x0004 ; Address of exception handler 070a 0002 | | .CONST 0x0002 ; Number of locals 070b INIT_0708: 070b e05c | \ | Load 0x0,0x5c 070c 0337 | 7 | Declare_Variable Array 070d BODY_0708: 070d e403 | | Load 0x2,0x3 070e 7004 |p | Jump_Nonzero 0x713 070f e22d | - | Load 0x1,0x2d 0710 e016 | | Load 0x0,0x16 0711 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0712 a403 | | Store_Unchecked 0x2,0x3 0713 00d8 | | Load_Top At_Offset_0 0714 e405 | | Load 0x2,0x5 0715 e02d | - | Load 0x0,0x2d 0716 025e | ^ | Execute Discrete,Convert 0717 e404 | | Load 0x2,0x4 0718 e02d | - | Load 0x0,0x2d 0719 025e | ^ | Execute Discrete,Convert 071a e407 | | Load 0x2,0x7 071b e02f | / | Load 0x0,0x2f 071c 025e | ^ | Execute Discrete,Convert 071d e406 | | Load 0x2,0x6 071e e02f | / | Load 0x0,0x2f 071f 025e | ^ | Execute Discrete,Convert 0720 e403 | | Load 0x2,0x3 0721 0227 | ' | Execute Access,All_Reference 0722 805d | ] | Call 0x0,0x5d 0723 c406 | | Store 0x2,0x6 0724 c407 | | Store 0x2,0x7 0725 c404 | | Store 0x2,0x4 0726 c405 | | Store 0x2,0x5 0727 00d1 | | Pop_Control Pop_Count_1 0728 481f |H | Short_Literal 0x1f 0729 00d9 | | Load_Top At_Offset_1 072a 01d7 | | Execute Vector,Field_Read 072b 680c |h | Jump_Zero 0x738 072c 481b |H | Short_Literal 0x1b 072d 00d9 | | Load_Top At_Offset_1 072e 01d7 | | Execute Vector,Field_Read 072f 6808 |h | Jump_Zero 0x738 0730 e406 | | Load 0x2,0x6 0731 e222 | " | Load 0x1,0x22 0732 e220 | | Load 0x1,0x20 0733 8026 | & | Call 0x0,0x26 0734 0273 | s | Execute Discrete,Plus 0735 e404 | | Load 0x2,0x4 0736 0272 | r | Execute Discrete,Minus 0737 c406 | | Store 0x2,0x6 0738 481e |H | Short_Literal 0x1e 0739 00d9 | | Load_Top At_Offset_1 073a 01d7 | | Execute Vector,Field_Read 073b 680c |h | Jump_Zero 0x748 073c 481a |H | Short_Literal 0x1a 073d 00d9 | | Load_Top At_Offset_1 073e 01d7 | | Execute Vector,Field_Read 073f 6808 |h | Jump_Zero 0x748 0740 e407 | | Load 0x2,0x7 0741 e222 | " | Load 0x1,0x22 0742 e220 | | Load 0x1,0x20 0743 8027 | ' | Call 0x0,0x27 0744 0273 | s | Execute Discrete,Plus 0745 e405 | | Load 0x2,0x5 0746 0272 | r | Execute Discrete,Minus 0747 c407 | | Store 0x2,0x7 0748 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0749 0000 0000 | | .BLANK 0000[0x7] 0750 ; -------------------------------------------------------------------------------------- 0750 ; SUBPROGRAM 0750 ; -------------------------------------------------------------------------------------- 0750 0759 | Y | .CONST 0x0759 ; Address of begin 0751 0004 | | .CONST 0x0004 ; Address of exception handler 0752 0007 | | .CONST 0x0007 ; Number of locals 0753 INIT_0750: 0753 00e6 | | Load_Encached Float_Cache 0754 00e6 | | Load_Encached Float_Cache 0755 00e6 | | Load_Encached Float_Cache 0756 00e6 | | Load_Encached Float_Cache 0757 00e6 | | Load_Encached Float_Cache 0758 00e6 | | Load_Encached Float_Cache 0759 BODY_0750: 0759 58b2 |X | Indirect_Literal Float,0x80c,0.8999999999999999 075a a603 | | Store_Unchecked 0x3,0x3 075b 58ac |X | Indirect_Literal Float,0x808,1.0 075c a604 | | Store_Unchecked 0x3,0x4 075d 4800 |H | Short_Literal 0x0 075e e402 | | Load 0x2,0x2 075f 01d7 | | Execute Vector,Field_Read 0760 a230 | 0 | Store_Unchecked 0x1,0x30 0761 4800 |H | Short_Literal 0x0 0762 e402 | | Load 0x2,0x2 0763 01d7 | | Execute Vector,Field_Read 0764 4800 |H | Short_Literal 0x0 0765 e22b | + | Load 0x1,0x2b 0766 01d5 | | Execute Vector,Field_Reference 0767 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0768 4800 |H | Short_Literal 0x0 0769 4800 |H | Short_Literal 0x0 076a e22b | + | Load 0x1,0x2b 076b 01d5 | | Execute Vector,Field_Reference 076c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 076d 4800 |H | Short_Literal 0x0 076e 4800 |H | Short_Literal 0x0 076f e22b | + | Load 0x1,0x2b 0770 01d5 | | Execute Vector,Field_Reference 0771 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0772 4800 |H | Short_Literal 0x0 0773 4800 |H | Short_Literal 0x0 0774 e22b | + | Load 0x1,0x2b 0775 01d5 | | Execute Vector,Field_Reference 0776 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0777 e058 | X | Load 0x0,0x58 0778 0337 | 7 | Declare_Variable Array 0779 4801 |H | Short_Literal 0x1 077a 4807 |H | Short_Literal 0x7 077b 00da | | Load_Top At_Offset_2 077c 01d6 | | Execute Vector,Field_Write 077d 4801 |H | Short_Literal 0x1 077e 4806 |H | Short_Literal 0x6 077f 00da | | Load_Top At_Offset_2 0780 01d6 | | Execute Vector,Field_Write 0781 4801 |H | Short_Literal 0x1 0782 4805 |H | Short_Literal 0x5 0783 00da | | Load_Top At_Offset_2 0784 01d6 | | Execute Vector,Field_Write 0785 4804 |H | Short_Literal 0x4 0786 4800 |H | Short_Literal 0x0 0787 4800 |H | Short_Literal 0x0 0788 00d9 | | Load_Top At_Offset_1 0789 e608 | | Load 0x3,0x8 078a 01d6 | | Execute Vector,Field_Write 078b 3ffb |? | Loop_Increasing 0x787 078c e058 | X | Load 0x0,0x58 078d 01c3 | | Execute Vector,Check_In_Type 078e 4800 |H | Short_Literal 0x0 078f e22b | + | Load 0x1,0x2b 0790 01d5 | | Execute Vector,Field_Reference 0791 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0792 00cf | | Action Mark_Auxiliary 0793 e21e | | Load 0x1,0x1e 0794 0aff | | Execute_Immediate Plus,-0x1 0795 4801 |H | Short_Literal 0x1 0796 0263 | c | Execute Discrete,Above_Bound 0797 7064 |pd | Jump_Nonzero 0x7fc 0798 00d8 | | Load_Top At_Offset_0 0799 0237 | 7 | Execute Float,Convert_From_Discrete 079a e21e | | Load 0x1,0x1e 079b 0237 | 7 | Execute Float,Convert_From_Discrete 079c 023a | : | Execute Float,Divide 079d a602 | | Store_Unchecked 0x3,0x2 079e 00db | | Load_Top At_Offset_3 079f e606 | | Load 0x3,0x6 07a0 e605 | | Load 0x3,0x5 07a1 e604 | | Load 0x3,0x4 07a2 e603 | | Load 0x3,0x3 07a3 e602 | | Load 0x3,0x2 07a4 8238 | 8 | Call 0x1,0x38 07a5 c605 | | Store 0x3,0x5 07a6 c606 | | Store 0x3,0x6 07a7 c607 | | Store 0x3,0x7 07a8 00d8 | | Load_Top At_Offset_0 07a9 e402 | | Load 0x2,0x2 07aa 01d7 | | Execute Vector,Field_Read 07ab 00d9 | | Load_Top At_Offset_1 07ac e22b | + | Load 0x1,0x2b 07ad 01d5 | | Execute Vector,Field_Reference 07ae 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07af e605 | | Load 0x3,0x5 07b0 5853 |XS | Indirect_Literal Float,0x804,255.0 07b1 023b | ; | Execute Float,Times 07b2 0235 | 5 | Execute Float,Round_To_Discrete 07b3 e004 | | Load 0x0,0x4 07b4 025e | ^ | Execute Discrete,Convert 07b5 0908 | | Execute_Immediate Binary_Scale,0x8 07b6 00d8 | | Load_Top At_Offset_0 07b7 e02d | - | Load 0x0,0x2d 07b8 0260 | ` | Execute Discrete,In_Type 07b9 7001 |p | Jump_Nonzero 0x7bb 07ba 0801 | | Execute_Immediate Raise,0x1 07bb 00d9 | | Load_Top At_Offset_1 07bc e22b | + | Load 0x1,0x2b 07bd 01d5 | | Execute Vector,Field_Reference 07be 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07bf e606 | | Load 0x3,0x6 07c0 5843 |XC | Indirect_Literal Float,0x804,255.0 07c1 023b | ; | Execute Float,Times 07c2 0235 | 5 | Execute Float,Round_To_Discrete 07c3 e004 | | Load 0x0,0x4 07c4 025e | ^ | Execute Discrete,Convert 07c5 0908 | | Execute_Immediate Binary_Scale,0x8 07c6 00d8 | | Load_Top At_Offset_0 07c7 e02d | - | Load 0x0,0x2d 07c8 0260 | ` | Execute Discrete,In_Type 07c9 7001 |p | Jump_Nonzero 0x7cb 07ca 0801 | | Execute_Immediate Raise,0x1 07cb 00d9 | | Load_Top At_Offset_1 07cc e22b | + | Load 0x1,0x2b 07cd 01d5 | | Execute Vector,Field_Reference 07ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 07cf 00db | | Load_Top At_Offset_3 07d0 5833 |X3 | Indirect_Literal Float,0x804,255.0 07d1 023b | ; | Execute Float,Times 07d2 0235 | 5 | Execute Float,Round_To_Discrete 07d3 e004 | | Load 0x0,0x4 07d4 025e | ^ | Execute Discrete,Convert 07d5 0908 | | Execute_Immediate Binary_Scale,0x8 07d6 00d8 | | Load_Top At_Offset_0 07d7 e02d | - | Load 0x0,0x2d 07d8 0260 | ` | Execute Discrete,In_Type 07d9 7001 |p | Jump_Nonzero 0x7db 07da 0801 | | Execute_Immediate Raise,0x1 07db 00d9 | | Load_Top At_Offset_1 07dc e22b | + | Load 0x1,0x2b 07dd 01d5 | | Execute Vector,Field_Reference 07de 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 07df e058 | X | Load 0x0,0x58 07e0 0337 | 7 | Declare_Variable Array 07e1 4801 |H | Short_Literal 0x1 07e2 4807 |H | Short_Literal 0x7 07e3 00da | | Load_Top At_Offset_2 07e4 01d6 | | Execute Vector,Field_Write 07e5 4801 |H | Short_Literal 0x1 07e6 4806 |H | Short_Literal 0x6 07e7 00da | | Load_Top At_Offset_2 07e8 01d6 | | Execute Vector,Field_Write 07e9 4801 |H | Short_Literal 0x1 07ea 4805 |H | Short_Literal 0x5 07eb 00da | | Load_Top At_Offset_2 07ec 01d6 | | Execute Vector,Field_Write 07ed 4804 |H | Short_Literal 0x4 07ee 4800 |H | Short_Literal 0x0 07ef 4800 |H | Short_Literal 0x0 07f0 00d9 | | Load_Top At_Offset_1 07f1 e60b | | Load 0x3,0xb 07f2 01d6 | | Execute Vector,Field_Write 07f3 3ffb |? | Loop_Increasing 0x7ef 07f4 e058 | X | Load 0x0,0x58 07f5 01c3 | | Execute Vector,Check_In_Type 07f6 00d9 | | Load_Top At_Offset_1 07f7 e22b | + | Load 0x1,0x2b 07f8 01d5 | | Execute Vector,Field_Reference 07f9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 07fa 00c8 | | Action Pop_Auxiliary_Range 07fb 3f9c |? | Loop_Increasing 0x798 07fc 00ce | | Action Pop_Auxiliary 07fd e22b | + | Load 0x1,0x2b 07fe e225 | % | Load 0x1,0x25 07ff e220 | | Load 0x1,0x20 0800 804e | N | Call 0x0,0x4e 0801 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0802 0000 0000 | | .XXX[0x2] 0804 406f e000 |@o | .DBL 255.0 0806 0000 0000 | | 0808 3ff0 0000 |? | .DBL 1.0 080a 0000 0000 | | 080c 3fec cccc |? | .DBL 0.8999999999999999 080e cccc cccc | | 0810 ; -------------------------------------------------------------------------------------- 0810 ; STRING TABLE 0810 ; -------------------------------------------------------------------------------------- 0810 0006 | | .STRTAB 0x0006->0x0813 ; "Cannot open display: " 0811 0019 | | .STRTAB 0x0019->0x081d ; "Couldn't allocate even 16 colors - exiting" 0812 0041 | A | .STREND 0x0041->0x0832 0813 4361 6e6e |Cann| .STRTAB_STRINGS 0833 0000 0000 | | .BLANK 0000[0x5] 0838 ; -------------------------------------------------------------------------------------- 0838 ; Debug Table 0838 ; -------------------------------------------------------------------------------------- 0838 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6895,0x0000,0x0001,0x000e 083e 000b 0876 | v| .DBG4T 0x000b,0x0876,0x8000,0x0000 0842 000e 0879 | y| .DBG4T 0x000e,0x0879,0x8000,0x0000 0846 00c3 08aa | | .DBG4T 0x00c3,0x08aa,0x0001,0x0000 084a 039b 091a | | .DBG4T 0x039b,0x091a,0x0002,0x0000 084e 03eb 0928 | (| .DBG4T 0x03eb,0x0928,0x0002,0x4000 0852 040b 0934 | 4| .DBG4T 0x040b,0x0934,0x0001,0x0000 0856 0433 093c | 3 <| .DBG4T 0x0433,0x093c,0x0001,0x0000 085a 045b 0940 | [ @| .DBG4T 0x045b,0x0940,0x0001,0x0000 085e 0513 0956 | V| .DBG4T 0x0513,0x0956,0x0002,0x0000 0862 052b 095c | + \| .DBG4T 0x052b,0x095c,0x0001,0x4000 0866 05ab 09a2 | | .DBG4T 0x05ab,0x09a2,0x0001,0x4000 086a 06cb 0a07 | | .DBG4T 0x06cb,0x0a07,0x0004,0x0000 086e 070b 0a0e | | .DBG4T 0x070b,0x0a0e,0x0004,0x0000 0872 0753 0a18 | S | .DBG4T 0x0753,0x0a18,0x0004,0x0000 0876 ; -------------------------------------------------------------------------------------- 0876 ; Debug chain 0876 ; -------------------------------------------------------------------------------------- 0876 0001 0000 | | .DBGLEN 0x0001,0x0000 0878 000b | | .DBGLNO 0x000b 0879 ; -------------------------------------------------------------------------------------- 0879 ; Debug chain 0879 ; -------------------------------------------------------------------------------------- 0879 002e 0001 | . | .DBGLEN 0x002e,0x0001 087b 000e 000f | | .DBGLNO 0x000e,0x000f,0x0010,0x0011,0x0012,0x0014,0x001d,0x0021,0x0027,0x002b,0x0033,0x0035,0x0037,0x0039,0x003b,0x0040,0x0045,0x0047,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0095,0x0097,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00ba 08aa ; -------------------------------------------------------------------------------------- 08aa ; Debug chain 08aa ; -------------------------------------------------------------------------------------- 08aa 0012 005c | \| .DBGLEN 0x0012,0x005c 08ac 00c3 00c5 | | .DBGLNO 0x00c3,0x00c5,0x00c7,0x00ca,0x00cd,0x00cf,0x00d1,0x00d3,0x00d7,0x00db,0x00dd,0x00e1,0x00e3,0x00e5,0x00e9,0x00eb,0x00ef,0x00f1,0x00f5,0x00f7,0x00f9,0x00fb,0x00ff,0x0103,0x0105,0x0107,0x010a,0x010d,0x011f,0x0134,0x013a,0x013e,0x0146,0x0147,0x014a,0x014c,0x014e,0x0152,0x0156,0x0158,0x015b,0x015c,0x0160,0x0164,0x0169,0x016e,0x0171,0x0173,0x0177,0x0197,0x019a,0x019d,0x01cc,0x01e9,0x01ec,0x01ef,0x01f2,0x01f5,0x020b,0x0215,0x021f,0x022c,0x022f,0x025c,0x0263,0x026a,0x0270,0x0277,0x027c,0x0287,0x0288,0x028f,0x0293,0x0297,0x029c,0x029f,0x02a2,0x02a6,0x02ab,0x02ac,0x02b0,0x02b8,0x02bc,0x02c0,0x02c4,0x02c9,0x02ce,0x02dc,0x02ea,0x02f8,0x0303,0x0306,0x0309,0x030d,0x031c,0x031d,0x0321,0x0325,0x0329,0x032d,0x0331,0x0333,0x0339,0x033b,0x0340,0x034a,0x0358,0x035a,0x035e,0x0361 091a ; -------------------------------------------------------------------------------------- 091a ; Debug chain 091a ; -------------------------------------------------------------------------------------- 091a 0001 000b | | .DBGLEN 0x0001,0x000b 091c 039b 039d | | .DBGLNO 0x039b,0x039d,0x03a0,0x03a8,0x03b1,0x03b8,0x03c0,0x03cb,0x03d1,0x03d5,0x03da,0x03df 0928 ; -------------------------------------------------------------------------------------- 0928 ; Debug chain 0928 ; -------------------------------------------------------------------------------------- 0928 0002 0004 | | .DBGLEN 0x0002,0x0004 092a 03eb 03ed | | .DBGLNO 0x03eb,0x03ed,0x03ee,0x03f1,0x03f2,0x03f9 0930 0001 0002 | | .XXX[0x4] 0932 0004 0005 | | 0934 ; -------------------------------------------------------------------------------------- 0934 ; Debug chain 0934 ; -------------------------------------------------------------------------------------- 0934 0001 0005 | | .DBGLEN 0x0001,0x0005 0936 040b 040d | | .DBGLNO 0x040b,0x040d,0x0413,0x0418,0x0424,0x042a 093c ; -------------------------------------------------------------------------------------- 093c ; Debug chain 093c ; -------------------------------------------------------------------------------------- 093c 0000 0002 | | .DBGLEN 0x0000,0x0002 093e 0433 0437 | 3 7| .DBGLNO 0x0433,0x0437 0940 ; -------------------------------------------------------------------------------------- 0940 ; Debug chain 0940 ; -------------------------------------------------------------------------------------- 0940 0002 0012 | | .DBGLEN 0x0002,0x0012 0942 045b 045d | [ ]| .DBGLNO 0x045b,0x045d,0x045f,0x0462,0x046b,0x0474,0x047d,0x0499,0x049d,0x04a7,0x04b0,0x04be,0x04cc,0x04cf,0x04d8,0x04e1,0x04e3,0x04e8,0x0505,0x0509 0956 ; -------------------------------------------------------------------------------------- 0956 ; Debug chain 0956 ; -------------------------------------------------------------------------------------- 0956 0001 0003 | | .DBGLEN 0x0001,0x0003 0958 0513 0519 | | .DBGLNO 0x0513,0x0519,0x051e,0x0526 095c ; -------------------------------------------------------------------------------------- 095c ; Debug chain 095c ; -------------------------------------------------------------------------------------- 095c 0006 001f | | .DBGLEN 0x0006,0x001f 095e 052b 052e | + .| .DBGLNO 0x052b,0x052e,0x052f,0x0530,0x0531,0x0532,0x0534,0x0536,0x0538,0x053a,0x053d,0x0543,0x0547,0x054a,0x054f,0x0555,0x055d,0x0567,0x0574,0x0576,0x0578,0x057b,0x057d,0x057f,0x0582,0x0584,0x0586,0x0589,0x058b,0x058d,0x0590,0x0592,0x0594,0x0597,0x0599,0x059b,0x059f 0983 0001 0002 | | .XXX[0x1f] 0985 0003 0004 | | 0987 0005 0006 | | 0989 0007 0008 | | 098b 0009 000a | | 098d 000b 000c | | 098f 001c 001d | | 0991 001e 000d | | 0993 000e 000f | | 0995 0010 0011 | | 0997 0012 0013 | | 0999 0014 0015 | | 099b 0016 0017 | | 099d 0018 0019 | | 099f 001a 001b | | 09a1 001f | | 09a2 ; -------------------------------------------------------------------------------------- 09a2 ; Debug chain 09a2 ; -------------------------------------------------------------------------------------- 09a2 000b 002c | ,| .DBGLEN 0x000b,0x002c 09a4 05ab 05b0 | | .DBGLNO 0x05ab,0x05b0,0x05b5,0x05b9,0x05bb,0x05bd,0x05c4,0x05c6,0x05c8,0x05c9,0x05ca,0x05cc,0x05d0,0x05d9,0x05dc,0x05dd,0x05e6,0x05e9,0x05ea,0x05f3,0x05f6,0x05f7,0x05f9,0x05fc,0x05ff,0x0608,0x060c,0x0610,0x0622,0x0625,0x0627,0x062c,0x062f,0x0633,0x0640,0x0645,0x064c,0x0659,0x0666,0x0673,0x0691,0x0696,0x0697,0x0699,0x06a1,0x06a8,0x06ac,0x06af,0x06b1,0x06b2,0x06b4,0x06b6,0x06b9,0x06bd,0x06c0 09db 0001 0002 | | .XXX[0x2c] 09dd 0003 0004 | | 09df 0005 0006 | | 09e1 0007 0008 | | 09e3 0009 000a | | 09e5 000c 000d | | 09e7 000e 000f | | 09e9 0010 0011 | | 09eb 0012 0013 | | 09ed 0014 0015 | | 09ef 0016 0017 | | 09f1 0018 0020 | | 09f3 0021 0022 | ! "| 09f5 0023 0024 | # $| 09f7 0025 0026 | % &| 09f9 0027 0028 | ' (| 09fb 002a 002b | * +| 09fd 002c 002d | , -| 09ff 002e 002f | . /| 0a01 0030 0031 | 0 1| 0a03 0032 0033 | 2 3| 0a05 0034 0035 | 4 5| 0a07 ; -------------------------------------------------------------------------------------- 0a07 ; Debug chain 0a07 ; -------------------------------------------------------------------------------------- 0a07 0002 0003 | | .DBGLEN 0x0002,0x0003 0a09 06cb 06d2 | | .DBGLNO 0x06cb,0x06d2,0x06d3,0x06dc,0x06ef 0a0e ; -------------------------------------------------------------------------------------- 0a0e ; Debug chain 0a0e ; -------------------------------------------------------------------------------------- 0a0e 0001 0007 | | .DBGLEN 0x0001,0x0007 0a10 070b 070d | | .DBGLNO 0x070b,0x070d,0x070f,0x0713,0x0728,0x0730,0x0738,0x0740 0a18 ; -------------------------------------------------------------------------------------- 0a18 ; Debug chain 0a18 ; -------------------------------------------------------------------------------------- 0a18 0006 0011 | | .DBGLEN 0x0006,0x0011 0a1a 0753 0754 | S T| .DBGLNO 0x0753,0x0754,0x0755,0x0756,0x0757,0x0758,0x0759,0x075b,0x075d,0x0761,0x0768,0x076d,0x0772,0x0777,0x0793,0x0798,0x079e,0x07a8,0x07af,0x07bf,0x07cf,0x07df,0x07fd 0a31 0000 0000 | | .BLANK 0000[0x1cf]