|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧ └─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 05a0 | | .CONST 0x05a0 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00fc | | .CONST 0x00fc ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003b | ; | .CONST 0x003b ; Number of locals 000b INIT_0008: 000b 4805 |H | Short_Literal 0x5 000c 032b | + | Declare_Type Record,Incomplete,Visible 000d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0011 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0013 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0015 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0017 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0019 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 001b 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001d 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 001f 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0021 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0023 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0025 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0027 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0029 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 002b 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 002d 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 002f 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0031 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0033 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 0035 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 0037 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 0039 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 003b 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated 003d 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated 003f 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated 0041 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated 0043 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated 0045 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 0047 e002 | | Load 0x0,0x2 0048 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0049 e20d | | Load 0x1,0xd 004a 029f 056b | k| Declare_Subprogram INIT_0568,For_Call 004c 4802 |H | Short_Literal 0x2 004d 0328 | ( | Declare_Type Record,Defined_Incomplete,Visible 004e 00e4 | | Load_Encached Positive_Cache 004f 0266 | f | Execute Discrete,Bounds 0050 00da | | Load_Top At_Offset_2 0051 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call 0053 4801 |H | Short_Literal 0x1 0054 0349 | I | Declare_Type Array,Defined_Incomplete,Visible,Bounds_With_Object 0055 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated 0057 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated 0059 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated 005b 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated 005d 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 005f 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated 0061 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated 0063 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated 0065 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 0067 e003 | | Load 0x0,0x3 0068 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0069 00e5 | | Load_Encached Long_Integer_Cache 006a 00e1 | | Load_Encached Boolean_Cache 006b 00e6 | | Load_Encached Float_Cache 006c e004 | | Load 0x0,0x4 006d 02a0 | | Declare_Subprogram Null_Subprogram 006e e20d | | Load 0x1,0xd 006f 0326 | & | Complete_Type Record,By_Defining 0070 e22b | + | Load 0x1,0x2b 0071 0324 | $ | Complete_Type Record,By_Component_Completion 0072 e22c | , | Load 0x1,0x2c 0073 0340 | @ | Complete_Type Array,By_Component_Completion 0074 e20d | | Load 0x1,0xd 0075 0322 | " | Declare_Variable Record 0076 4800 |H | Short_Literal 0x0 0077 00d9 | | Load_Top At_Offset_1 0078 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0079 4800 |H | Short_Literal 0x0 007a 00d9 | | Load_Top At_Offset_1 007b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 007c 588f |X | Indirect_Literal Float,0x10c,0.0 007d 00d9 | | Load_Top At_Offset_1 007e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 007f e004 | | Load 0x0,0x4 0080 00d9 | | Load_Top At_Offset_1 0081 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0082 4800 |H | Short_Literal 0x0 0083 00d9 | | Load_Top At_Offset_1 0084 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0085 0129 | ) | Execute Any,Make_Visible 0086 e22b | + | Load 0x1,0x2b 0087 0322 | " | Declare_Variable Record 0088 0092 0575 | u| Action Push_String_Extended,0x575 ; "Uninitialized" 008a e002 | | Load 0x0,0x2 008b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 008c e22b | + | Load 0x1,0x2b 008d 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 008e 0119 | | Execute Any,Check_In_Formal_Type 008f 00d9 | | Load_Top At_Offset_1 0090 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0091 00d9 | | Load_Top At_Offset_1 0092 00d9 | | Load_Top At_Offset_1 0093 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0094 0129 | ) | Execute Any,Make_Visible 0095 e005 | | Load 0x0,0x5 0096 e006 | | Load 0x0,0x6 0097 e22b | + | Load 0x1,0x2b 0098 e22c | , | Load 0x1,0x2c 0099 e237 | 7 | Load 0x1,0x37 009a 606d |`m | Indirect_Literal Discrete,0x108,{0x00000000, 0x7fffffff} 009b e007 | | Load 0x0,0x7 009c 0386 | | Declare_Variable Package,Visible 009d 00d8 | | Load_Top At_Offset_0 009e 020f | | Execute Module,Activate 009f 00e3 | | Load_Encached Natural_Cache 00a0 00d9 | | Load_Top At_Offset_1 00a1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a2 029f 0533 | 3| Declare_Subprogram INIT_0530,For_Call 00a4 4800 |H | Short_Literal 0x0 00a5 4801 |H | Short_Literal 0x1 00a6 4800 |H | Short_Literal 0x0 00a7 4800 |H | Short_Literal 0x0 00a8 4801 |H | Short_Literal 0x1 00a9 4801 |H | Short_Literal 0x1 00aa 031e | | Declare_Type Variant_Record,Defined,Visible 00ab 00bf | | Action Accept_Activation 00ac 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call 00ae 029d 050b | | Declare_Subprogram INIT_0508,For_Outer_Call 00b0 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00dd 00c7 | | Action Elaborate_Subprogram 00de 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00e3 00c7 | | Action Elaborate_Subprogram 00e4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00e5 00c7 | | Action Elaborate_Subprogram 00e6 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00e9 00c7 | | Action Elaborate_Subprogram 00ea 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00eb 00c7 | | Action Elaborate_Subprogram 00ec 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 00ed 00c7 | | Action Elaborate_Subprogram 00ee 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 00ef 00c7 | | Action Elaborate_Subprogram 00f0 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00f1 00c7 | | Action Elaborate_Subprogram 00f2 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00f3 00c7 | | Action Elaborate_Subprogram 00f4 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00f5 00c7 | | Action Elaborate_Subprogram 00f6 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 00f7 00c7 | | Action Elaborate_Subprogram 00f8 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00f9 00c7 | | Action Elaborate_Subprogram 00fa 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 00fb 00c7 | | Action Elaborate_Subprogram 00fc BODY_0008: 00fc 00bc | | Action Signal_Activated 00fd 00bb | | Action Signal_Completion 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 e236 | 6 | Load 0x1,0x36 0104 00ca | | Action Exit_Nullary_Function 0105 0000 0000 | | .XXX[0x3] 0107 0000 | | 0108 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 010c 0000 0000 | | .DBL 0.0 010e 0000 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 821e | | Call 0x1,0x1e 0115 4606 |F | Jump_Case 0x7 0116 7809 |x | Jump 0x120 ; case 0x0 0117 7808 |x | Jump 0x120 ; case 0x1 0118 7804 |x | Jump 0x11d ; case 0x2 0119 7806 |x | Jump 0x120 ; case 0x3 011a 7805 |x | Jump 0x120 ; case 0x4 011b 7804 |x | Jump 0x120 ; case 0x5 011c 7800 |x | Jump 0x11d ; case 0x6 011d e003 | | Load 0x0,0x3 011e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 011f 0257 | W | Execute Discrete,Raise 0120 00da | | Load_Top At_Offset_2 0121 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0122 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0123 0000 0000 | | .BLANK 0000[0x5] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00da | | Load_Top At_Offset_2 012c 821e | | Call 0x1,0x1e 012d 0f03 | | Execute_Immediate Equal,0x3 012e 7003 |p | Jump_Nonzero 0x132 012f e003 | | Load 0x0,0x3 0130 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0131 0257 | W | Execute Discrete,Raise 0132 00da | | Load_Top At_Offset_2 0133 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0134 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0135 0000 0000 | | .XXX[0x3] 0137 0000 | | 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 013c 821e | | Call 0x1,0x1e 013d 0f05 | | Execute_Immediate Equal,0x5 013e 7003 |p | Jump_Nonzero 0x142 013f e003 | | Load 0x0,0x3 0140 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0141 0257 | W | Execute Discrete,Raise 0142 00da | | Load_Top At_Offset_2 0143 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0144 8008 | | Call 0x0,0x8 0145 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00da | | Load_Top At_Offset_2 014c 821e | | Call 0x1,0x1e 014d 4606 |F | Jump_Case 0x7 014e 7809 |x | Jump 0x158 ; case 0x0 014f 7805 |x | Jump 0x155 ; case 0x1 0150 7804 |x | Jump 0x155 ; case 0x2 0151 7803 |x | Jump 0x155 ; case 0x3 0152 7805 |x | Jump 0x158 ; case 0x4 0153 7801 |x | Jump 0x155 ; case 0x5 0154 7800 |x | Jump 0x155 ; case 0x6 0155 e003 | | Load 0x0,0x3 0156 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0157 0257 | W | Execute Discrete,Raise 0158 00da | | Load_Top At_Offset_2 0159 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 015a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015b 0000 0000 | | .BLANK 0000[0x5] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 821e | | Call 0x1,0x1e 0165 0f02 | | Execute_Immediate Equal,0x2 0166 7003 |p | Jump_Nonzero 0x16a 0167 e003 | | Load 0x0,0x3 0168 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0169 0257 | W | Execute Discrete,Raise 016a 00da | | Load_Top At_Offset_2 016b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 016c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 821e | | Call 0x1,0x1e 0175 0f06 | | Execute_Immediate Equal,0x6 0176 7003 |p | Jump_Nonzero 0x17a 0177 e003 | | Load 0x0,0x3 0178 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0179 0257 | W | Execute Discrete,Raise 017a 00da | | Load_Top At_Offset_2 017b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 017c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0195 | | .CONST 0x0195 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 e20d | | Load 0x1,0xd 0184 0322 | " | Declare_Variable Record 0185 4800 |H | Short_Literal 0x0 0186 00d9 | | Load_Top At_Offset_1 0187 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0188 00db | | Load_Top At_Offset_3 0189 00d9 | | Load_Top At_Offset_1 018a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 018b 5810 |X | Indirect_Literal Float,0x19c,0.0 018c 00d9 | | Load_Top At_Offset_1 018d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 018e e004 | | Load 0x0,0x4 018f 00d9 | | Load_Top At_Offset_1 0190 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0191 4800 |H | Short_Literal 0x0 0192 00d9 | | Load_Top At_Offset_1 0193 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0194 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0195 TRAP_0180: 0195 0007 | | Action Break_Optional 0196 e003 | | Load 0x0,0x3 0197 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0198 0257 | W | Execute Discrete,Raise 0199 0000 0000 | | .XXX[0x3] 019b 0000 | | 019c 0000 0000 | | .DBL 0.0 019e 0000 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 e20d | | Load 0x1,0xd 01a4 0322 | " | Declare_Variable Record 01a5 4800 |H | Short_Literal 0x0 01a6 00d9 | | Load_Top At_Offset_1 01a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01a8 00db | | Load_Top At_Offset_3 01a9 00d9 | | Load_Top At_Offset_1 01aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01ab 5ff0 |_ | Indirect_Literal Float,0x19c,0.0 01ac 00d9 | | Load_Top At_Offset_1 01ad 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01ae e004 | | Load 0x0,0x4 01af 00d9 | | Load_Top At_Offset_1 01b0 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01b1 4800 |H | Short_Literal 0x0 01b2 00d9 | | Load_Top At_Offset_1 01b3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b5 0000 0000 | | .XXX[0x3] 01b7 0000 | | 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb e20d | | Load 0x1,0xd 01bc 0322 | " | Declare_Variable Record 01bd 4801 |H | Short_Literal 0x1 01be 00d9 | | Load_Top At_Offset_1 01bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c0 00db | | Load_Top At_Offset_3 01c1 00d9 | | Load_Top At_Offset_1 01c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01c3 580c |X | Indirect_Literal Float,0x1d0,0.0 01c4 00d9 | | Load_Top At_Offset_1 01c5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01c6 e004 | | Load 0x0,0x4 01c7 00d9 | | Load_Top At_Offset_1 01c8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01c9 4800 |H | Short_Literal 0x0 01ca 00d9 | | Load_Top At_Offset_1 01cb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cd 0000 0000 | | .XXX[0x3] 01cf 0000 | | 01d0 0000 0000 | | .DBL 0.0 01d2 0000 0000 | | 01d4 0000 0000 | | .BLANK 0000[0x4] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 01ef | | .CONST 0x01ef ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db e20d | | Load 0x1,0xd 01dc 0322 | " | Declare_Variable Record 01dd 4802 |H | Short_Literal 0x2 01de 00d9 | | Load_Top At_Offset_1 01df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01e0 4800 |H | Short_Literal 0x0 01e1 00d9 | | Load_Top At_Offset_1 01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01e3 00db | | Load_Top At_Offset_3 01e4 e009 | | Load 0x0,0x9 01e5 180d | | Execute Package,Field_Execute,Field_Number 0xd 01e6 00d9 | | Load_Top At_Offset_1 01e7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01e8 e004 | | Load 0x0,0x4 01e9 00d9 | | Load_Top At_Offset_1 01ea 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01eb 4800 |H | Short_Literal 0x0 01ec 00d9 | | Load_Top At_Offset_1 01ed 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ef TRAP_01d8: 01ef 0007 | | Action Break_Optional 01f0 e003 | | Load 0x0,0x3 01f1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01f2 0257 | W | Execute Discrete,Raise 01f3 0000 0000 | | .BLANK 0000[0x5] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb e20d | | Load 0x1,0xd 01fc 0322 | " | Declare_Variable Record 01fd 4802 |H | Short_Literal 0x2 01fe 00d9 | | Load_Top At_Offset_1 01ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0200 4800 |H | Short_Literal 0x0 0201 00d9 | | Load_Top At_Offset_1 0202 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0203 00db | | Load_Top At_Offset_3 0204 00d9 | | Load_Top At_Offset_1 0205 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0206 e004 | | Load 0x0,0x4 0207 00d9 | | Load_Top At_Offset_1 0208 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0209 4800 |H | Short_Literal 0x0 020a 00d9 | | Load_Top At_Offset_1 020b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 020c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 020d 0000 0000 | | .XXX[0x3] 020f 0000 | | 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 e20d | | Load 0x1,0xd 0214 0322 | " | Declare_Variable Record 0215 4804 |H | Short_Literal 0x4 0216 00d9 | | Load_Top At_Offset_1 0217 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0218 00db | | Load_Top At_Offset_3 0219 00d9 | | Load_Top At_Offset_1 021a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 021b 580c |X | Indirect_Literal Float,0x228,0.0 021c 00d9 | | Load_Top At_Offset_1 021d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 021e e004 | | Load 0x0,0x4 021f 00d9 | | Load_Top At_Offset_1 0220 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0221 4800 |H | Short_Literal 0x0 0222 00d9 | | Load_Top At_Offset_1 0223 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0224 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 0228 0000 0000 | | .DBL 0.0 022a 0000 0000 | | 022c 0000 0000 | | .BLANK 0000[0x4] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 e20d | | Load 0x1,0xd 0234 0322 | " | Declare_Variable Record 0235 4803 |H | Short_Literal 0x3 0236 00d9 | | Load_Top At_Offset_1 0237 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0238 00db | | Load_Top At_Offset_3 0239 00d9 | | Load_Top At_Offset_1 023a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 023b 5fec |_ | Indirect_Literal Float,0x228,0.0 023c 00d9 | | Load_Top At_Offset_1 023d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 023e e004 | | Load 0x0,0x4 023f 00d9 | | Load_Top At_Offset_1 0240 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0241 4800 |H | Short_Literal 0x0 0242 00d9 | | Load_Top At_Offset_1 0243 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0244 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b e20d | | Load 0x1,0xd 024c 0322 | " | Declare_Variable Record 024d 4805 |H | Short_Literal 0x5 024e 00d9 | | Load_Top At_Offset_1 024f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0250 00db | | Load_Top At_Offset_3 0251 800a | | Call 0x0,0xa 0252 00d9 | | Load_Top At_Offset_1 0253 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0254 580b |X | Indirect_Literal Float,0x260,0.0 0255 00d9 | | Load_Top At_Offset_1 0256 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0257 e004 | | Load 0x0,0x4 0258 00d9 | | Load_Top At_Offset_1 0259 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 025a 4800 |H | Short_Literal 0x0 025b 00d9 | | Load_Top At_Offset_1 025c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025e 0000 0000 | | .XXX[0x2] 0260 0000 0000 | | .DBL 0.0 0262 0000 0000 | | 0264 0000 0000 | | .BLANK 0000[0x4] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b e20d | | Load 0x1,0xd 026c 0322 | " | Declare_Variable Record 026d 4806 |H | Short_Literal 0x6 026e 00d9 | | Load_Top At_Offset_1 026f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0270 4800 |H | Short_Literal 0x0 0271 00d9 | | Load_Top At_Offset_1 0272 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0273 5fec |_ | Indirect_Literal Float,0x260,0.0 0274 00d9 | | Load_Top At_Offset_1 0275 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0276 00db | | Load_Top At_Offset_3 0277 00d9 | | Load_Top At_Offset_1 0278 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0279 4800 |H | Short_Literal 0x0 027a 00d9 | | Load_Top At_Offset_1 027b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 027c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027d 0000 0000 | | .XXX[0x3] 027f 0000 | | 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00da | | Load_Top At_Offset_2 0284 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0285 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0286 0000 0000 | | .XXX[0x2] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028d | | .CONST 0x028d ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0002 | | .CONST 0x0002 ; Number of locals 028b INIT_0288: 028b 029f 051b | | Declare_Subprogram INIT_0518,For_Call 028d BODY_0288: 028d 00db | | Load_Top At_Offset_3 028e 821e | | Call 0x1,0x1e 028f 4606 |F | Jump_Case 0x7 0290 780c |x | Jump 0x29d ; case 0x0 0291 780b |x | Jump 0x29d ; case 0x1 0292 7817 |x | Jump 0x2aa ; case 0x2 0293 7809 |x | Jump 0x29d ; case 0x3 0294 7819 |x | Jump 0x2ae ; case 0x4 0295 780c |x | Jump 0x2a2 ; case 0x5 0296 7800 |x | Jump 0x297 ; case 0x6 0297 00db | | Load_Top At_Offset_3 0298 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0299 0217 | | Execute Heap_Access,All_Reference 029a 0335 | 5 | Declare_Variable Array,Duplicate 029b 00cd | | Action Spare6_Action 029c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029d 480a |H | Short_Literal 0xa 029e e5ff | | Load 0x2,-0x1 029f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a0 823b | ; | Call 0x1,0x3b 02a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a2 e00b | | Load 0x0,0xb 02a3 180f | | Execute Package,Field_Execute,Field_Number 0xf 02a4 4810 |H | Short_Literal 0x10 02a5 e5ff | | Load 0x2,-0x1 02a6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a7 823b | ; | Call 0x1,0x3b 02a8 01ca | | Execute Vector,Prepend 02a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02aa 8402 | | Call 0x2,0x2 02ab 0092 0576 | v| Action Push_String_Extended,0x576 ; "Unprintable floating point number" 02ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ae 480a |H | Short_Literal 0xa 02af e5ff | | Load 0x2,-0x1 02b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02b1 823b | ; | Call 0x1,0x3b 02b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b3 0000 0000 | | .BLANK 0000[0x5] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02be | | .CONST 0x02be ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0004 | | .CONST 0x0004 ; Number of locals 02bb INIT_02b8: 02bb 00e5 | | Load_Encached Long_Integer_Cache 02bc 00e5 | | Load_Encached Long_Integer_Cache 02bd 03e9 | | Declare_Variable Discrete,Duplicate 02be BODY_02b8: 02be e5ff | | Load 0x2,-0x1 02bf 821e | | Call 0x1,0x1e 02c0 0f03 | | Execute_Immediate Equal,0x3 02c1 681f |h | Jump_Zero 0x2e1 02c2 e5ff | | Load 0x2,-0x1 02c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02c4 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02c5 00da | | Load_Top At_Offset_2 02c6 09e0 | | Execute_Immediate Binary_Scale,-0x20 02c7 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02c8 00da | | Load_Top At_Offset_2 02c9 601a |` | Indirect_Literal Discrete,0x2e4,{0x00000001, 0x00000000} 02ca 026f | o | Execute Discrete,Remainder 02cb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02cc 00d9 | | Load_Top At_Offset_1 02cd 7005 |p | Jump_Nonzero 0x2d3 02ce 00d8 | | Load_Top At_Offset_0 02cf 7003 |p | Jump_Nonzero 0x2d3 02d0 0092 0577 | w| Action Push_String_Extended,0x577 ; "null" 02d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d3 0092 0578 | x| Action Push_String_Extended,0x578 ; "#" 02d5 4810 |H | Short_Literal 0x10 02d6 00db | | Load_Top At_Offset_3 02d7 823b | ; | Call 0x1,0x3b 02d8 01cc | | Execute Vector,Catenate 02d9 0092 0579 | y| Action Push_String_Extended,0x579 ; " #" 02db 01cc | | Execute Vector,Catenate 02dc 4810 |H | Short_Literal 0x10 02dd 00da | | Load_Top At_Offset_2 02de 823b | ; | Call 0x1,0x3b 02df 01cc | | Execute Vector,Catenate 02e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e1 e003 | | Load 0x0,0x3 02e2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02e3 0257 | W | Execute Discrete,Raise 02e4 0000 0001 | | .LITERAL {0x00000001, 0x00000000} 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02f6 | | .CONST 0x02f6 ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0002 | | .CONST 0x0002 ; Number of locals 02eb INIT_02e8: 02eb 00da | | Load_Top At_Offset_2 02ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ed 00d8 | | Load_Top At_Offset_0 02ee e00c | | Load 0x0,0xc 02ef 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02f0 0260 | ` | Execute Discrete,In_Type 02f1 7001 |p | Jump_Nonzero 0x2f3 02f2 0801 | | Execute_Immediate Raise,0x1 02f3 e00c | | Load 0x0,0xc 02f4 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02f5 03f1 | | Declare_Variable Discrete,With_Value 02f6 BODY_02e8: 02f6 00db | | Load_Top At_Offset_3 02f7 821e | | Call 0x1,0x1e 02f8 0f05 | | Execute_Immediate Equal,0x5 02f9 6803 |h | Jump_Zero 0x2fd 02fa 00d8 | | Load_Top At_Offset_0 02fb 800d | | Call 0x0,0xd 02fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02fd e003 | | Load 0x0,0x3 02fe 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02ff 0257 | W | Execute Discrete,Raise 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 00da | | Load_Top At_Offset_2 0304 821f | | Call 0x1,0x1f 0305 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0306 0000 0000 | | .XXX[0x2] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 00da | | Load_Top At_Offset_2 030c 821e | | Call 0x1,0x1e 030d 0f02 | | Execute_Immediate Equal,0x2 030e 7002 |p | Jump_Nonzero 0x311 030f 00ea | | Load_Encached Null_String_Cache 0310 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0311 0092 057a | z| Action Push_String_Extended,0x57a ; " [" 0313 00db | | Load_Top At_Offset_3 0314 8213 | | Call 0x1,0x13 0315 e009 | | Load 0x0,0x9 0316 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0317 01cc | | Execute Vector,Catenate 0318 0092 057b | {| Action Push_String_Extended,0x57b ; "]" 031a 01cc | | Execute Vector,Catenate 031b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 031c 0000 0000 | | .BLANK 0000[0x4] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0325 | % | .CONST 0x0325 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0003 | | .CONST 0x0003 ; Number of locals 0323 INIT_0320: 0323 00e5 | | Load_Encached Long_Integer_Cache 0324 00e1 | | Load_Encached Boolean_Cache 0325 BODY_0320: 0325 e5fe | | Load 0x2,-0x2 0326 4606 |F | Jump_Case 0x7 0327 787f |x | Jump 0x3a7 ; case 0x0 0328 787e |x~ | Jump 0x3a7 ; case 0x1 0329 78c9 |x | Jump 0x3f3 ; case 0x2 032a 787c |x| | Jump 0x3a7 ; case 0x3 032b 78c7 |x | Jump 0x3f3 ; case 0x4 032c 7804 |x | Jump 0x331 ; case 0x5 032d 7800 |x | Jump 0x32e ; case 0x6 032e e003 | | Load 0x0,0x3 032f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0330 0257 | W | Execute Discrete,Raise 0331 e5ff | | Load 0x2,-0x1 0332 01db | | Execute Vector,Length 0333 6839 |h9 | Jump_Zero 0x36d 0334 e5ff | | Load 0x2,-0x1 0335 01dd | | Execute Vector,First 0336 e5ff | | Load 0x2,-0x1 0337 01d7 | | Execute Vector,Field_Read 0338 e00b | | Load 0x0,0xb 0339 180f | | Execute Package,Field_Execute,Field_Number 0xf 033a 027f | | Execute Discrete,Equal 033b 6831 |h1 | Jump_Zero 0x36d 033c e5ff | | Load 0x2,-0x1 033d 01db | | Execute Vector,Length 033e 0c02 | | Execute_Immediate Greater_Equal,0x2 033f 681a |h | Jump_Zero 0x35a 0340 e5ff | | Load 0x2,-0x1 0341 01dd | | Execute Vector,First 0342 0a01 | | Execute_Immediate Plus,0x1 0343 e5ff | | Load 0x2,-0x1 0344 01d7 | | Execute Vector,Field_Read 0345 0f23 | # | Execute_Immediate Equal,0x23 0346 6813 |h | Jump_Zero 0x35a 0347 00e1 | | Load_Encached Boolean_Cache 0348 00e5 | | Load_Encached Long_Integer_Cache 0349 4810 |H | Short_Literal 0x10 034a e5ff | | Load 0x2,-0x1 034b 01dd | | Execute Vector,First 034c 0a02 | | Execute_Immediate Plus,0x2 034d 00d8 | | Load_Top At_Offset_0 034e 00e2 | | Load_Encached Integer_Cache 034f 0260 | ` | Execute Discrete,In_Type 0350 7001 |p | Jump_Nonzero 0x352 0351 0801 | | Execute_Immediate Raise,0x1 0352 e5ff | | Load 0x2,-0x1 0353 01dc | | Execute Vector,Last 0354 e5ff | | Load 0x2,-0x1 0355 01cf | | Execute Vector,Slice_Read 0356 823a | : | Call 0x1,0x3a 0357 005b | [ | Store_Top Discrete,At_Offset_3 0358 0059 | Y | Store_Top Discrete,At_Offset_1 0359 7836 |x6 | Jump 0x390 035a 00e1 | | Load_Encached Boolean_Cache 035b 00e5 | | Load_Encached Long_Integer_Cache 035c 4810 |H | Short_Literal 0x10 035d e5ff | | Load 0x2,-0x1 035e 01dd | | Execute Vector,First 035f 0a01 | | Execute_Immediate Plus,0x1 0360 00d8 | | Load_Top At_Offset_0 0361 00e2 | | Load_Encached Integer_Cache 0362 0260 | ` | Execute Discrete,In_Type 0363 7001 |p | Jump_Nonzero 0x365 0364 0801 | | Execute_Immediate Raise,0x1 0365 e5ff | | Load 0x2,-0x1 0366 01dc | | Execute Vector,Last 0367 e5ff | | Load 0x2,-0x1 0368 01cf | | Execute Vector,Slice_Read 0369 823a | : | Call 0x1,0x3a 036a 005b | [ | Store_Top Discrete,At_Offset_3 036b 0059 | Y | Store_Top Discrete,At_Offset_1 036c 7823 |x# | Jump 0x390 036d e5ff | | Load 0x2,-0x1 036e 01db | | Execute Vector,Length 036f 6819 |h | Jump_Zero 0x389 0370 e5ff | | Load 0x2,-0x1 0371 01dd | | Execute Vector,First 0372 e5ff | | Load 0x2,-0x1 0373 01d7 | | Execute Vector,Field_Read 0374 0f23 | # | Execute_Immediate Equal,0x23 0375 6813 |h | Jump_Zero 0x389 0376 00e1 | | Load_Encached Boolean_Cache 0377 00e5 | | Load_Encached Long_Integer_Cache 0378 4810 |H | Short_Literal 0x10 0379 e5ff | | Load 0x2,-0x1 037a 01dd | | Execute Vector,First 037b 0a01 | | Execute_Immediate Plus,0x1 037c 00d8 | | Load_Top At_Offset_0 037d 00e2 | | Load_Encached Integer_Cache 037e 0260 | ` | Execute Discrete,In_Type 037f 7001 |p | Jump_Nonzero 0x381 0380 0801 | | Execute_Immediate Raise,0x1 0381 e5ff | | Load 0x2,-0x1 0382 01dc | | Execute Vector,Last 0383 e5ff | | Load 0x2,-0x1 0384 01cf | | Execute Vector,Slice_Read 0385 823a | : | Call 0x1,0x3a 0386 005b | [ | Store_Top Discrete,At_Offset_3 0387 0059 | Y | Store_Top Discrete,At_Offset_1 0388 7807 |x | Jump 0x390 0389 00e1 | | Load_Encached Boolean_Cache 038a 00e5 | | Load_Encached Long_Integer_Cache 038b 4810 |H | Short_Literal 0x10 038c e5ff | | Load 0x2,-0x1 038d 823a | : | Call 0x1,0x3a 038e 005b | [ | Store_Top Discrete,At_Offset_3 038f 0059 | Y | Store_Top Discrete,At_Offset_1 0390 00d8 | | Load_Top At_Offset_0 0391 7003 |p | Jump_Nonzero 0x395 0392 e003 | | Load 0x0,0x3 0393 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0394 0257 | W | Execute Discrete,Raise 0395 e20d | | Load 0x1,0xd 0396 0322 | " | Declare_Variable Record 0397 4800 |H | Short_Literal 0x0 0398 00d9 | | Load_Top At_Offset_1 0399 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 039a 00da | | Load_Top At_Offset_2 039b 00d9 | | Load_Top At_Offset_1 039c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 039d 585a |XZ | Indirect_Literal Float,0x3f8,0.0 039e 00d9 | | Load_Top At_Offset_1 039f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03a0 e004 | | Load 0x0,0x4 03a1 00d9 | | Load_Top At_Offset_1 03a2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03a3 4800 |H | Short_Literal 0x0 03a4 00d9 | | Load_Top At_Offset_1 03a5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a7 00e1 | | Load_Encached Boolean_Cache 03a8 00e5 | | Load_Encached Long_Integer_Cache 03a9 480a |H | Short_Literal 0xa 03aa e5ff | | Load 0x2,-0x1 03ab 823a | : | Call 0x1,0x3a 03ac 005b | [ | Store_Top Discrete,At_Offset_3 03ad 0059 | Y | Store_Top Discrete,At_Offset_1 03ae 00d8 | | Load_Top At_Offset_0 03af 7003 |p | Jump_Nonzero 0x3b3 03b0 e003 | | Load 0x0,0x3 03b1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03b2 0257 | W | Execute Discrete,Raise 03b3 e5fe | | Load 0x2,-0x2 03b4 4606 |F | Jump_Case 0x7 03b5 782b |x+ | Jump 0x3e1 ; case 0x0 03b6 7806 |x | Jump 0x3bd ; case 0x1 03b7 783e |x> | Jump 0x3f6 ; case 0x2 03b8 7816 |x | Jump 0x3cf ; case 0x3 03b9 783c |x< | Jump 0x3f6 ; case 0x4 03ba 783b |x; | Jump 0x3f6 ; case 0x5 03bb 783a |x: | Jump 0x3f6 ; case 0x6 03bc 7839 |x9 | .XXX[0x1] 03bd e20d | | Load 0x1,0xd 03be 0322 | " | Declare_Variable Record 03bf 4801 |H | Short_Literal 0x1 03c0 00d9 | | Load_Top At_Offset_1 03c1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03c2 00da | | Load_Top At_Offset_2 03c3 00d9 | | Load_Top At_Offset_1 03c4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03c5 5832 |X2 | Indirect_Literal Float,0x3f8,0.0 03c6 00d9 | | Load_Top At_Offset_1 03c7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03c8 e004 | | Load 0x0,0x4 03c9 00d9 | | Load_Top At_Offset_1 03ca 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03cb 4800 |H | Short_Literal 0x0 03cc 00d9 | | Load_Top At_Offset_1 03cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03cf e20d | | Load 0x1,0xd 03d0 0322 | " | Declare_Variable Record 03d1 4801 |H | Short_Literal 0x1 03d2 00d9 | | Load_Top At_Offset_1 03d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03d4 00da | | Load_Top At_Offset_2 03d5 00d9 | | Load_Top At_Offset_1 03d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03d7 5820 |X | Indirect_Literal Float,0x3f8,0.0 03d8 00d9 | | Load_Top At_Offset_1 03d9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03da e004 | | Load 0x0,0x4 03db 00d9 | | Load_Top At_Offset_1 03dc 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03dd 4800 |H | Short_Literal 0x0 03de 00d9 | | Load_Top At_Offset_1 03df 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03e1 e20d | | Load 0x1,0xd 03e2 0322 | " | Declare_Variable Record 03e3 4800 |H | Short_Literal 0x0 03e4 00d9 | | Load_Top At_Offset_1 03e5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03e6 00da | | Load_Top At_Offset_2 03e7 00d9 | | Load_Top At_Offset_1 03e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03e9 580e |X | Indirect_Literal Float,0x3f8,0.0 03ea 00d9 | | Load_Top At_Offset_1 03eb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03ec e004 | | Load 0x0,0x4 03ed 00d9 | | Load_Top At_Offset_1 03ee 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03ef 4800 |H | Short_Literal 0x0 03f0 00d9 | | Load_Top At_Offset_1 03f1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03f2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03f3 e5ff | | Load 0x2,-0x1 03f4 8218 | | Call 0x1,0x18 03f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03f6 0831 | 1 | Execute_Immediate Raise,0x31 03f7 0000 | | .XXX[0x1] 03f8 0000 0000 | | .DBL 0.0 03fa 0000 0000 | | 03fc 0000 0000 | | .BLANK 0000[0x4] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 e20d | | Load 0x1,0xd 0404 0322 | " | Declare_Variable Record 0405 4803 |H | Short_Literal 0x3 0406 00d9 | | Load_Top At_Offset_1 0407 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0408 4800 |H | Short_Literal 0x0 0409 00d9 | | Load_Top At_Offset_1 040a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 040b 5fec |_ | Indirect_Literal Float,0x3f8,0.0 040c 00d9 | | Load_Top At_Offset_1 040d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 040e e004 | | Load 0x0,0x4 040f 00d9 | | Load_Top At_Offset_1 0410 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0411 4800 |H | Short_Literal 0x0 0412 00d9 | | Load_Top At_Offset_1 0413 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0414 00ca | | Action Exit_Nullary_Function 0415 0000 0000 | | .XXX[0x3] 0417 0000 | | 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b e20d | | Load 0x1,0xd 041c 0322 | " | Declare_Variable Record 041d 4803 |H | Short_Literal 0x3 041e 00d9 | | Load_Top At_Offset_1 041f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0420 4800 |H | Short_Literal 0x0 0421 00d9 | | Load_Top At_Offset_1 0422 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0423 580c |X | Indirect_Literal Float,0x430,0.0 0424 00d9 | | Load_Top At_Offset_1 0425 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0426 e004 | | Load 0x0,0x4 0427 00d9 | | Load_Top At_Offset_1 0428 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0429 4801 |H | Short_Literal 0x1 042a 00d9 | | Load_Top At_Offset_1 042b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 042c 00ca | | Action Exit_Nullary_Function 042d 0000 0000 | | .XXX[0x3] 042f 0000 | | 0430 0000 0000 | | .DBL 0.0 0432 0000 0000 | | 0434 0000 0000 | | .BLANK 0000[0x4] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b 00da | | Load_Top At_Offset_2 043c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 043d 0f03 | | Execute_Immediate Equal,0x3 043e 6803 |h | Jump_Zero 0x442 043f 00da | | Load_Top At_Offset_2 0440 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0441 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0442 4800 |H | Short_Literal 0x0 0443 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0444 0000 0000 | | .BLANK 0000[0x4] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b 00da | | Load_Top At_Offset_2 044c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 044d 0f03 | | Execute_Immediate Equal,0x3 044e 6804 |h | Jump_Zero 0x453 044f 00da | | Load_Top At_Offset_2 0450 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0451 0f00 | | Execute_Immediate Equal,0x0 0452 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0453 4800 |H | Short_Literal 0x0 0454 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0455 0000 0000 | | .XXX[0x3] 0457 0000 | | 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b 00da | | Load_Top At_Offset_2 045c 8226 | & | Call 0x1,0x26 045d 017f | | Execute Record,Equal 045e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 045f 0000 | | .XXX[0x1] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 00da | | Load_Top At_Offset_2 0464 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0465 0f05 | | Execute_Immediate Equal,0x5 0466 6804 |h | Jump_Zero 0x46b 0467 00da | | Load_Top At_Offset_2 0468 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0469 0f00 | | Execute_Immediate Equal,0x0 046a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 046b 4800 |H | Short_Literal 0x0 046c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 046d 0000 0000 | | .XXX[0x3] 046f 0000 | | 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 00d1 | | Pop_Control Pop_Count_1 0474 00da | | Load_Top At_Offset_2 0475 01dc | | Execute Vector,Last 0476 00db | | Load_Top At_Offset_3 0477 01dd | | Execute Vector,First 0478 0263 | c | Execute Discrete,Above_Bound 0479 7006 |p | Jump_Nonzero 0x480 047a 00d8 | | Load_Top At_Offset_0 047b e5ff | | Load 0x2,-0x1 047c 01d5 | | Execute Vector,Field_Reference 047d 1c00 | | Execute_Immediate Run_Utility,0x0 047e 0a01 | | Execute_Immediate Plus,0x1 047f 7ff8 | | Jump 0x478 0480 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0481 0000 0000 | | .BLANK 0000[0x7] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b 00db | | Load_Top At_Offset_3 048c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 048d e238 | 8 | Load 0x1,0x38 048e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 048f e5ff | | Load 0x2,-0x1 0490 e238 | 8 | Load 0x1,0x38 0491 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0492 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0493 0000 0000 | | .BLANK 0000[0x5] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049b | | .CONST 0x049b ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0001 | | .CONST 0x0001 ; Number of locals 049b BODY_0498: 049b INIT_0498: 049b 00db | | Load_Top At_Offset_3 049c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 049d 00db | | Load_Top At_Offset_3 049e e238 | 8 | Load 0x1,0x38 049f 181f | | Execute Package,Field_Execute,Field_Number 0x1f 04a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04a1 0000 0000 | | .BLANK 0000[0x7] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab 00da | | Load_Top At_Offset_2 04ac 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 04ad e238 | 8 | Load 0x1,0x38 04ae 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04b3 | | .CONST 0x04b3 ; Address of begin 04b1 0004 | | .CONST 0x0004 ; Address of exception handler 04b2 0001 | | .CONST 0x0001 ; Number of locals 04b3 BODY_04b0: 04b3 INIT_04b0: 04b3 00db | | Load_Top At_Offset_3 04b4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 04b5 00db | | Load_Top At_Offset_3 04b6 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 04b7 e238 | 8 | Load 0x1,0x38 04b8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04ba 0000 0000 | | .BLANK 0000[0x6] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 00da | | Load_Top At_Offset_2 04c4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 04c5 e238 | 8 | Load 0x1,0x38 04c6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 04c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 00da | | Load_Top At_Offset_2 04cc 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 04cd e238 | 8 | Load 0x1,0x38 04ce 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 04cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 00db | | Load_Top At_Offset_3 04d4 00db | | Load_Top At_Offset_3 04d5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 04d6 e238 | 8 | Load 0x1,0x38 04d7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 04d8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 04d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04da 0000 0000 | | .BLANK 0000[0x6] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04e3 | | .CONST 0x04e3 ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0001 | | .CONST 0x0001 ; Number of locals 04e3 BODY_04e0: 04e3 INIT_04e0: 04e3 00db | | Load_Top At_Offset_3 04e4 00db | | Load_Top At_Offset_3 04e5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 04e6 e238 | 8 | Load 0x1,0x38 04e7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 04e8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ea 0000 0000 | | .BLANK 0000[0x6] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f3 | | .CONST 0x04f3 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0001 | | .CONST 0x0001 ; Number of locals 04f3 BODY_04f0: 04f3 INIT_04f0: 04f3 e237 | 7 | Load 0x1,0x37 04f4 00ca | | Action Exit_Nullary_Function 04f5 0000 0000 | | .XXX[0x3] 04f7 0000 | | 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fb | | .CONST 0x04fb ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0001 | | .CONST 0x0001 ; Number of locals 04fb BODY_04f8: 04fb INIT_04f8: 04fb 00e1 | | Load_Encached Boolean_Cache 04fc 00e5 | | Load_Encached Long_Integer_Cache 04fd e5fe | | Load 0x2,-0x2 04fe e5ff | | Load 0x2,-0x1 04ff e00e | | Load 0x0,0xe 0500 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0501 c5fd | | Store 0x2,-0x3 0502 c5fc | | Store 0x2,-0x4 0503 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0504 0000 0000 | | .BLANK 0000[0x4] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b 4820 |H | Short_Literal 0x20 050c 4800 |H | Short_Literal 0x0 050d e5fe | | Load 0x2,-0x2 050e e5ff | | Load 0x2,-0x1 050f e00e | | Load 0x0,0xe 0510 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0511 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0512 0000 0000 | | .BLANK 0000[0x6] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051b | | .CONST 0x051b ; Address of begin 0519 0525 | % | .CONST 0x0525 ; Address of exception handler 051a 0001 | | .CONST 0x0001 ; Number of locals 051b BODY_0518: 051b INIT_0518: 051b 4805 |H | Short_Literal 0x5 051c e009 | | Load 0x0,0x9 051d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 051e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 051f e5ff | | Load 0x2,-0x1 0520 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0521 e009 | | Load 0x0,0x9 0522 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0523 00cb | | Action Pop_Block_With_Result 0524 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0525 TRAP_0518: 0525 e009 | | Load 0x0,0x9 0526 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0527 010f | | Execute Exception,Equal 0528 6804 |h | Jump_Zero 0x52d 0529 0092 0576 | v| Action Push_String_Extended,0x576 ; "Unprintable floating point number" 052b 00cb | | Action Pop_Block_With_Result 052c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 052d 0100 | | Execute Exception,Raise 052e 0000 0000 | | .XXX[0x2] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0533 | 3 | .CONST 0x0533 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0001 | | .CONST 0x0001 ; Number of locals 0533 BODY_0530: 0533 INIT_0530: 0533 4609 |F | Jump_Case 0xa 0534 7809 |x | Jump 0x53e ; case 0x0 0535 780e |x | Jump 0x544 ; case 0x1 0536 7810 |x | Jump 0x547 ; case 0x2 0537 7813 |x | Jump 0x54b ; case 0x3 0538 782b |x+ | Jump 0x564 ; case 0x4 0539 782a |x* | Jump 0x564 ; case 0x5 053a 7829 |x) | Jump 0x564 ; case 0x6 053b 7815 |x | Jump 0x551 ; case 0x7 053c 781d |x | Jump 0x55a ; case 0x8 053d 7826 |x& | Jump 0x564 ; case 0x9 053e 00da | | Load_Top At_Offset_2 053f 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 0540 00da | | Load_Top At_Offset_2 0541 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0542 1c00 | | Execute_Immediate Run_Utility,0x0 0543 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0544 00da | | Load_Top At_Offset_2 0545 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 0546 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0547 4801 |H | Short_Literal 0x1 0548 4802 |H | Short_Literal 0x2 0549 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 054a 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 054b e5fd | | Load 0x2,-0x3 054c 00db | | Load_Top At_Offset_3 054d 1c07 | | Execute_Immediate Run_Utility,0x7 054e e5fe | | Load 0x2,-0x2 054f 0306 | | Complete_Type Variant_Record,By_Renaming 0550 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0551 00db | | Load_Top At_Offset_3 0552 e5fe | | Load 0x2,-0x2 0553 e238 | 8 | Load 0x1,0x38 0554 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0555 1c07 | | Execute_Immediate Run_Utility,0x7 0556 4801 |H | Short_Literal 0x1 0557 e5ff | | Load 0x2,-0x1 0558 031b | | Declare_Type Variant_Record,Constrained 0559 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 055a 00db | | Load_Top At_Offset_3 055b 00db | | Load_Top At_Offset_3 055c 02fc | | Declare_Variable Variant_Record,With_Constraint 055d e5fe | | Load 0x2,-0x2 055e e238 | 8 | Load 0x1,0x38 055f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0560 1c08 | | Execute_Immediate Run_Utility,0x8 0561 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 0562 016a | j | QQ_execute Variant_Record,XXX 0563 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0564 0869 | i | Execute_Immediate Raise,0x69 0565 0000 0000 | | .XXX[0x3] 0567 0000 | | 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056b | k | .CONST 0x056b ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0001 | | .CONST 0x0001 ; Number of locals 056b BODY_0568: 056b INIT_0568: 056b 4601 |F | Jump_Case 0x2 056c 7801 |x | Jump 0x56e ; case 0x0 056d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 056e 00da | | Load_Top At_Offset_2 056f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0570 0125 | % | Execute Any,Set_Constraint 0571 00da | | Load_Top At_Offset_2 0572 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0573 1c00 | | Execute_Immediate Run_Utility,0x0 0574 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0575 ; -------------------------------------------------------------------------------------- 0575 ; STRING TABLE 0575 ; -------------------------------------------------------------------------------------- 0575 0010 | | .STRTAB 0x0010->0x057d ; "Uninitialized" 0576 001b | | .STRTAB 0x001b->0x0583 ; "Unprintable floating point number" 0577 003a | : | .STRTAB 0x003a->0x0594 ; "null" 0578 003c | < | .STRTAB 0x003c->0x0596 ; "#" 0579 003b | ; | .STRTAB 0x003b->0x0596 ; " #" 057a 003b | ; | .STRTAB 0x003b->0x0597 ; " [" 057b 003c | < | .STRTAB 0x003c->0x0599 ; "]" 057c 003b | ; | .STREND 0x003b->0x0599 057d 556e 696e |Unin| .STRTAB_STRINGS 059a 0000 0000 | | .BLANK 0000[0x6] 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; Debug Table 05a0 ; -------------------------------------------------------------------------------------- 05a0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a40,0x0000,0x0001,0x0000 05a6 0000 0000 | | .BLANK 0000[0x5a]