|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_45d4e6
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 03c8 | | .CONST 0x03c8 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0096 | | .CONST 0x0096 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0031 | 1 | .CONST 0x0031 ; Number of locals 000b INIT_0008: 000b 00d8 | | Load_Top At_Offset_0 000c 0265 | e | Execute Discrete,Reverse_Bounds 000d 00da | | Load_Top At_Offset_2 000e 1c04 | | Execute_Immediate Run_Utility,0x4 000f 00d0 | | Action Swap_Control 0010 00da | | Load_Top At_Offset_2 0011 1c04 | | Execute_Immediate Run_Utility,0x4 0012 e003 | | Load 0x0,0x3 0013 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0015 4801 |H | Short_Literal 0x1 0016 035e | ^ | Declare_Type Array,Defined,Visible 0017 00d9 | | Load_Top At_Offset_1 0018 0265 | e | Execute Discrete,Reverse_Bounds 0019 00db | | Load_Top At_Offset_3 001a 1c04 | | Execute_Immediate Run_Utility,0x4 001b 00d0 | | Action Swap_Control 001c 00db | | Load_Top At_Offset_3 001d 1c04 | | Execute_Immediate Run_Utility,0x4 001e e004 | | Load 0x0,0x4 001f 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0021 4801 |H | Short_Literal 0x1 0022 035e | ^ | Declare_Type Array,Defined,Visible 0023 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0025 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0027 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0029 0007 | | Action Break_Optional 002a 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 002c 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 002e 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0030 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0032 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0034 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0036 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0038 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 003a 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 003c 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 003e 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0040 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0042 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0044 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0046 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0048 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 004a 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 004c 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 004e 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0050 0093 0000 | | push_full_address 0x0 0052 6071 |`q | Indirect_Literal Discrete,0xc4,{0x80000000, 0x00020000} 0053 0273 | s | Execute Discrete,Plus 0054 e20d | | Load 0x1,0xd 0055 606a |`j | Indirect_Literal Discrete,0xc0,{0x00000000, 0x0000ffff} 0056 0279 | y | Execute Discrete,And 0057 0273 | s | Execute Discrete,Plus 0058 0129 | ) | Execute Any,Make_Visible 0059 00bf | | Action Accept_Activation 005a e005 | | Load 0x0,0x5 005b 0007 | | Action Break_Optional 005c 029d 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call 005e 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call 0060 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 0062 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call 0064 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call 0066 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call 0068 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0069 00c7 | | Action Elaborate_Subprogram 006a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 006b 00c7 | | Action Elaborate_Subprogram 006c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 006d 00c7 | | Action Elaborate_Subprogram 006e 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call 0070 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0071 00c7 | | Action Elaborate_Subprogram 0072 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0073 00c7 | | Action Elaborate_Subprogram 0074 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0075 00c7 | | Action Elaborate_Subprogram 0076 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0077 00c7 | | Action Elaborate_Subprogram 0078 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0079 00c7 | | Action Elaborate_Subprogram 007a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 007b 00c7 | | Action Elaborate_Subprogram 007c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 007d 00c7 | | Action Elaborate_Subprogram 007e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 007f 00c7 | | Action Elaborate_Subprogram 0080 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0081 00c7 | | Action Elaborate_Subprogram 0082 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0083 00c7 | | Action Elaborate_Subprogram 0084 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0085 00c7 | | Action Elaborate_Subprogram 0086 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0087 00c7 | | Action Elaborate_Subprogram 0088 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0089 00c7 | | Action Elaborate_Subprogram 008a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 008b 00c7 | | Action Elaborate_Subprogram 008c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 008d 00c7 | | Action Elaborate_Subprogram 008e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 008f 00c7 | | Action Elaborate_Subprogram 0090 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0091 00c7 | | Action Elaborate_Subprogram 0092 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0093 00c7 | | Action Elaborate_Subprogram 0094 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0095 00c7 | | Action Elaborate_Subprogram 0096 BODY_0008: 0096 8230 | 0 | Call 0x1,0x30 0097 e20f | | Load 0x1,0xf 0098 e20e | | Load 0x1,0xe 0099 00d8 | | Load_Top At_Offset_0 009a e006 | | Load 0x0,0x6 009b 0260 | ` | Execute Discrete,In_Type 009c 7001 |p | Jump_Nonzero 0x9e 009d 0801 | | Execute_Immediate Raise,0x1 009e 8007 | | Call 0x0,0x7 009f a22a | * | Store_Unchecked 0x1,0x2a 00a0 e22a | * | Load 0x1,0x2a 00a1 8008 | | Call 0x0,0x8 00a2 00bc | | Action Signal_Activated 00a3 00bb | | Action Signal_Completion 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00d1 | | Pop_Control Pop_Count_1 00ac 00da | | Load_Top At_Offset_2 00ad 01d8 | | Execute Vector,Element_Type 00ae 02ff | | Declare_Variable Variant_Record 00af 00d8 | | Load_Top At_Offset_0 00b0 1c00 | | Execute_Immediate Run_Utility,0x0 00b1 00db | | Load_Top At_Offset_3 00b2 01dc | | Execute Vector,Last 00b3 e5ff | | Load 0x2,-0x1 00b4 01dd | | Execute Vector,First 00b5 0263 | c | Execute Discrete,Above_Bound 00b6 7006 |p | Jump_Nonzero 0xbd 00b7 00da | | Load_Top At_Offset_2 00b8 00d9 | | Load_Top At_Offset_1 00b9 e5ff | | Load 0x2,-0x1 00ba 01d6 | | Execute Vector,Field_Write 00bb 0a01 | | Execute_Immediate Plus,0x1 00bc 7ff8 | | Jump 0xb5 00bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00be 0000 0000 | | .XXX[0x2] 00c0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 00c4 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00d1 | | Pop_Control Pop_Count_1 00cc 00da | | Load_Top At_Offset_2 00cd 01dc | | Execute Vector,Last 00ce 00db | | Load_Top At_Offset_3 00cf 01dd | | Execute Vector,First 00d0 0263 | c | Execute Discrete,Above_Bound 00d1 700a |p | Jump_Nonzero 0xdc 00d2 00d8 | | Load_Top At_Offset_0 00d3 e5ff | | Load 0x2,-0x1 00d4 01d5 | | Execute Vector,Field_Reference 00d5 0125 | % | Execute Any,Set_Constraint 00d6 00d8 | | Load_Top At_Offset_0 00d7 e5ff | | Load 0x2,-0x1 00d8 01d5 | | Execute Vector,Field_Reference 00d9 1c00 | | Execute_Immediate Run_Utility,0x0 00da 0a01 | | Execute_Immediate Plus,0x1 00db 7ff4 | | Jump 0xd0 00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00dd 0000 0000 | | .XXX[0x3] 00df 0000 | | 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 e22a | * | Load 0x1,0x2a 00e4 00ca | | Action Exit_Nullary_Function 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 822b | + | Call 0x1,0x2b 00ec e009 | | Load 0x0,0x9 00ed 1c08 | | Execute_Immediate Run_Utility,0x8 00ee 4800 |H | Short_Literal 0x0 00ef 00d9 | | Load_Top At_Offset_1 00f0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00f1 e22a | * | Load 0x1,0x2a 00f2 800a | | Call 0x0,0xa 00f3 00d9 | | Load_Top At_Offset_1 00f4 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00f5 00db | | Load_Top At_Offset_3 00f6 822e | . | Call 0x1,0x2e 00f7 00d9 | | Load_Top At_Offset_1 00f8 00d8 | | Load_Top At_Offset_0 00f9 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 00fa 00da | | Load_Top At_Offset_2 00fb 01da | | Execute Vector,Bounds 00fc 00da | | Load_Top At_Offset_2 00fd 01da | | Execute Vector,Bounds 00fe 00da | | Load_Top At_Offset_2 00ff 027f | | Execute Discrete,Equal 0100 7001 |p | Jump_Nonzero 0x102 0101 08e0 | | Execute_Immediate Raise,0xe0 0102 00cd | | Action Spare6_Action 0103 027f | | Execute Discrete,Equal 0104 7001 |p | Jump_Nonzero 0x106 0105 08e0 | | Execute_Immediate Raise,0xe0 0106 00d2 | | Pop_Control Pop_Count_2 0107 00d9 | | Load_Top At_Offset_1 0108 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 0109 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010a 0000 0000 | | .BLANK 0000[0x6] 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 822b | + | Call 0x1,0x2b 0114 e009 | | Load 0x0,0x9 0115 1c08 | | Execute_Immediate Run_Utility,0x8 0116 4801 |H | Short_Literal 0x1 0117 00d9 | | Load_Top At_Offset_1 0118 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0119 e22a | * | Load 0x1,0x2a 011a 800a | | Call 0x0,0xa 011b 00d9 | | Load_Top At_Offset_1 011c 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 011d 00db | | Load_Top At_Offset_3 011e 822e | . | Call 0x1,0x2e 011f 00d9 | | Load_Top At_Offset_1 0120 00d8 | | Load_Top At_Offset_0 0121 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0122 00da | | Load_Top At_Offset_2 0123 01da | | Execute Vector,Bounds 0124 00da | | Load_Top At_Offset_2 0125 01da | | Execute Vector,Bounds 0126 00da | | Load_Top At_Offset_2 0127 027f | | Execute Discrete,Equal 0128 7001 |p | Jump_Nonzero 0x12a 0129 08e0 | | Execute_Immediate Raise,0xe0 012a 00cd | | Action Spare6_Action 012b 027f | | Execute Discrete,Equal 012c 7001 |p | Jump_Nonzero 0x12e 012d 08e0 | | Execute_Immediate Raise,0xe0 012e 00d2 | | Pop_Control Pop_Count_2 012f 00d9 | | Load_Top At_Offset_1 0130 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 0131 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0132 0000 0000 | | .BLANK 0000[0x6] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013f | ? | .CONST 0x013f ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b e211 | | Load 0x1,0x11 013c 0337 | 7 | Declare_Variable Array 013d 00d8 | | Load_Top At_Offset_0 013e 1c00 | | Execute_Immediate Run_Utility,0x0 013f BODY_0138: 013f 00db | | Load_Top At_Offset_3 0140 8231 | 1 | Call 0x1,0x31 0141 00cf | | Action Mark_Auxiliary 0142 e210 | | Load 0x1,0x10 0143 0265 | e | Execute Discrete,Reverse_Bounds 0144 0263 | c | Execute Discrete,Above_Bound 0145 7018 |p | Jump_Nonzero 0x15e 0146 00d8 | | Load_Top At_Offset_0 0147 00d8 | | Load_Top At_Offset_0 0148 e210 | | Load 0x1,0x10 0149 0260 | ` | Execute Discrete,In_Type 014a 7001 |p | Jump_Nonzero 0x14c 014b 0801 | | Execute_Immediate Raise,0x1 014c 822d | - | Call 0x1,0x2d 014d e5ff | | Load 0x2,-0x1 014e 800b | | Call 0x0,0xb 014f 00d9 | | Load_Top At_Offset_1 0150 e210 | | Load 0x1,0x10 0151 1c04 | | Execute_Immediate Run_Utility,0x4 0152 e402 | | Load 0x2,0x2 0153 01d6 | | Execute Vector,Field_Write 0154 00c8 | | Action Pop_Auxiliary_Range 0155 00d9 | | Load_Top At_Offset_1 0156 00d9 | | Load_Top At_Offset_1 0157 027f | | Execute Discrete,Equal 0158 7004 |p | Jump_Nonzero 0x15d 0159 e210 | | Load 0x1,0x10 015a 0122 | " | Execute Any,Make_Root_Type 015b 1c07 | | Execute_Immediate Run_Utility,0x7 015c 7fe9 | | Jump 0x146 015d 00d2 | | Pop_Control Pop_Count_2 015e 00ce | | Action Pop_Auxiliary 015f 00d8 | | Load_Top At_Offset_0 0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0161 0000 0000 | | .BLANK 0000[0x7] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 8231 | 1 | Call 0x1,0x31 016d 00db | | Load_Top At_Offset_3 016e 00d8 | | Load_Top At_Offset_0 016f e210 | | Load 0x1,0x10 0170 0260 | ` | Execute Discrete,In_Type 0171 7001 |p | Jump_Nonzero 0x173 0172 0801 | | Execute_Immediate Raise,0x1 0173 822d | - | Call 0x1,0x2d 0174 00db | | Load_Top At_Offset_3 0175 800b | | Call 0x0,0xb 0176 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0177 0000 | | .XXX[0x1] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00db | | Load_Top At_Offset_3 017c 00d8 | | Load_Top At_Offset_0 017d e210 | | Load 0x1,0x10 017e 0260 | ` | Execute Discrete,In_Type 017f 7001 |p | Jump_Nonzero 0x181 0180 0801 | | Execute_Immediate Raise,0x1 0181 00db | | Load_Top At_Offset_3 0182 8217 | | Call 0x1,0x17 0183 800c | | Call 0x0,0xc 0184 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0185 0000 0000 | | .XXX[0x3] 0187 0000 | | 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00db | | Load_Top At_Offset_3 018c 00d8 | | Load_Top At_Offset_0 018d e210 | | Load 0x1,0x10 018e 0260 | ` | Execute Discrete,In_Type 018f 7001 |p | Jump_Nonzero 0x191 0190 0801 | | Execute_Immediate Raise,0x1 0191 00db | | Load_Top At_Offset_3 0192 8217 | | Call 0x1,0x17 0193 800d | | Call 0x0,0xd 0194 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00db | | Load_Top At_Offset_3 019c 00d8 | | Load_Top At_Offset_0 019d e210 | | Load 0x1,0x10 019e 0260 | ` | Execute Discrete,In_Type 019f 7001 |p | Jump_Nonzero 0x1a1 01a0 0801 | | Execute_Immediate Raise,0x1 01a1 00db | | Load_Top At_Offset_3 01a2 8217 | | Call 0x1,0x17 01a3 800e | | Call 0x0,0xe 01a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a5 0000 0000 | | .XXX[0x3] 01a7 0000 | | 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00db | | Load_Top At_Offset_3 01ac 00d8 | | Load_Top At_Offset_0 01ad e210 | | Load 0x1,0x10 01ae 0260 | ` | Execute Discrete,In_Type 01af 7001 |p | Jump_Nonzero 0x1b1 01b0 0801 | | Execute_Immediate Raise,0x1 01b1 00db | | Load_Top At_Offset_3 01b2 8217 | | Call 0x1,0x17 01b3 800f | | Call 0x0,0xf 01b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 00db | | Load_Top At_Offset_3 01bc 00d8 | | Load_Top At_Offset_0 01bd e210 | | Load 0x1,0x10 01be 0260 | ` | Execute Discrete,In_Type 01bf 7001 |p | Jump_Nonzero 0x1c1 01c0 0801 | | Execute_Immediate Raise,0x1 01c1 00db | | Load_Top At_Offset_3 01c2 8217 | | Call 0x1,0x17 01c3 8010 | | Call 0x0,0x10 01c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01c5 0000 0000 | | .XXX[0x3] 01c7 0000 | | 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00db | | Load_Top At_Offset_3 01cc 00d8 | | Load_Top At_Offset_0 01cd e210 | | Load 0x1,0x10 01ce 0260 | ` | Execute Discrete,In_Type 01cf 7001 |p | Jump_Nonzero 0x1d1 01d0 0801 | | Execute_Immediate Raise,0x1 01d1 00db | | Load_Top At_Offset_3 01d2 8217 | | Call 0x1,0x17 01d3 8011 | | Call 0x0,0x11 01d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc 822f | / | Call 0x1,0x2f 01dd e22a | * | Load 0x1,0x2a 01de 8012 | | Call 0x0,0x12 01df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00da | | Load_Top At_Offset_2 01e4 8231 | 1 | Call 0x1,0x31 01e5 00da | | Load_Top At_Offset_2 01e6 8013 | | Call 0x0,0x13 01e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 8231 | 1 | Call 0x1,0x31 01ed 00db | | Load_Top At_Offset_3 01ee 822f | / | Call 0x1,0x2f 01ef 00db | | Load_Top At_Offset_3 01f0 8014 | | Call 0x0,0x14 01f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f2 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 01fc 8231 | 1 | Call 0x1,0x31 01fd e5fd | | Load 0x2,-0x3 01fe e5fe | | Load 0x2,-0x2 01ff 00d8 | | Load_Top At_Offset_0 0200 e210 | | Load 0x1,0x10 0201 0260 | ` | Execute Discrete,In_Type 0202 7001 |p | Jump_Nonzero 0x204 0203 0801 | | Execute_Immediate Raise,0x1 0204 822d | - | Call 0x1,0x2d 0205 e5ff | | Load 0x2,-0x1 0206 8015 | | Call 0x0,0x15 0207 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b e5fd | | Load 0x2,-0x3 020c 8016 | | Call 0x0,0x16 020d e5fe | | Load 0x2,-0x2 020e 00d8 | | Load_Top At_Offset_0 020f e210 | | Load 0x1,0x10 0210 0260 | ` | Execute Discrete,In_Type 0211 7001 |p | Jump_Nonzero 0x213 0212 0801 | | Execute_Immediate Raise,0x1 0213 e5ff | | Load 0x2,-0x1 0214 8221 | ! | Call 0x1,0x21 0215 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0216 0000 0000 | | .XXX[0x2] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b e5fd | | Load 0x2,-0x3 021c 8017 | | Call 0x0,0x17 021d e5fe | | Load 0x2,-0x2 021e 00d8 | | Load_Top At_Offset_0 021f e210 | | Load 0x1,0x10 0220 0260 | ` | Execute Discrete,In_Type 0221 7001 |p | Jump_Nonzero 0x223 0222 0801 | | Execute_Immediate Raise,0x1 0223 e5ff | | Load 0x2,-0x1 0224 8221 | ! | Call 0x1,0x21 0225 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b e5fd | | Load 0x2,-0x3 022c 8018 | | Call 0x0,0x18 022d e5fe | | Load 0x2,-0x2 022e 00d8 | | Load_Top At_Offset_0 022f e210 | | Load 0x1,0x10 0230 0260 | ` | Execute Discrete,In_Type 0231 7001 |p | Jump_Nonzero 0x233 0232 0801 | | Execute_Immediate Raise,0x1 0233 e5ff | | Load 0x2,-0x1 0234 8221 | ! | Call 0x1,0x21 0235 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b e5fd | | Load 0x2,-0x3 023c 8019 | | Call 0x0,0x19 023d e5fe | | Load 0x2,-0x2 023e 00d8 | | Load_Top At_Offset_0 023f e210 | | Load 0x1,0x10 0240 0260 | ` | Execute Discrete,In_Type 0241 7001 |p | Jump_Nonzero 0x243 0242 0801 | | Execute_Immediate Raise,0x1 0243 e5ff | | Load 0x2,-0x1 0244 8221 | ! | Call 0x1,0x21 0245 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0246 0000 0000 | | .XXX[0x2] 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 e5fd | | Load 0x2,-0x3 024c 801a | | Call 0x0,0x1a 024d e5fe | | Load 0x2,-0x2 024e 00d8 | | Load_Top At_Offset_0 024f e210 | | Load 0x1,0x10 0250 0260 | ` | Execute Discrete,In_Type 0251 7001 |p | Jump_Nonzero 0x253 0252 0801 | | Execute_Immediate Raise,0x1 0253 e5ff | | Load 0x2,-0x1 0254 8221 | ! | Call 0x1,0x21 0255 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0256 0000 0000 | | .XXX[0x2] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b e5fd | | Load 0x2,-0x3 025c 801b | | Call 0x0,0x1b 025d e5fe | | Load 0x2,-0x2 025e 00d8 | | Load_Top At_Offset_0 025f e210 | | Load 0x1,0x10 0260 0260 | ` | Execute Discrete,In_Type 0261 7001 |p | Jump_Nonzero 0x263 0262 0801 | | Execute_Immediate Raise,0x1 0263 e5ff | | Load 0x2,-0x1 0264 8221 | ! | Call 0x1,0x21 0265 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0266 0000 0000 | | .XXX[0x2] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0275 | u | .CONST 0x0275 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0003 | | .CONST 0x0003 ; Number of locals 026b INIT_0268: 026b 00e1 | | Load_Encached Boolean_Cache 026c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 026d e22a | * | Load 0x1,0x2a 026e 800a | | Call 0x0,0xa 026f e006 | | Load 0x0,0x6 0270 1c04 | | Execute_Immediate Run_Utility,0x4 0271 e006 | | Load 0x0,0x6 0272 0122 | " | Execute Any,Make_Root_Type 0273 011c | | Execute Any,Convert_Unchecked 0274 1c01 | | Execute_Immediate Run_Utility,0x1 0275 BODY_0268: 0275 e5fd | | Load 0x2,-0x3 0276 8231 | 1 | Call 0x1,0x31 0277 e5fc | | Load 0x2,-0x4 0278 00d9 | | Load_Top At_Offset_1 0279 0092 03bb | | Action Push_String_Extended,0x3bb ; "'(" 027b 01cc | | Execute Vector,Catenate 027c 801c | | Call 0x0,0x1c 027d e5fc | | Load 0x2,-0x4 027e 801d | | Call 0x0,0x1d 027f 4801 |H | Short_Literal 0x1 0280 e5fc | | Load 0x2,-0x4 0281 801e | | Call 0x0,0x1e 0282 00cf | | Action Mark_Auxiliary 0283 e210 | | Load 0x1,0x10 0284 0265 | e | Execute Discrete,Reverse_Bounds 0285 0263 | c | Execute Discrete,Above_Bound 0286 702b |p+ | Jump_Nonzero 0x2b2 0287 e402 | | Load 0x2,0x2 0288 7005 |p | Jump_Nonzero 0x28e 0289 e5fc | | Load 0x2,-0x4 028a 0092 03bc | | Action Push_String_Extended,0x3bc ; ", " 028c 801f | | Call 0x0,0x1f 028d 7802 |x | Jump 0x290 028e 4800 |H | Short_Literal 0x0 028f a402 | | Store_Unchecked 0x2,0x2 0290 e5fc | | Load 0x2,-0x4 0291 00d9 | | Load_Top At_Offset_1 0292 e210 | | Load 0x1,0x10 0293 1c04 | | Execute_Immediate Run_Utility,0x4 0294 e210 | | Load 0x1,0x10 0295 0122 | " | Execute Any,Make_Root_Type 0296 011c | | Execute Any,Convert_Unchecked 0297 1c01 | | Execute_Immediate Run_Utility,0x1 0298 0092 03bd | | Action Push_String_Extended,0x3bd ; " =>" 029a 01cc | | Execute Vector,Catenate 029b 801c | | Call 0x0,0x1c 029c e5fc | | Load 0x2,-0x4 029d 00d9 | | Load_Top At_Offset_1 029e 00d8 | | Load_Top At_Offset_0 029f e210 | | Load 0x1,0x10 02a0 0260 | ` | Execute Discrete,In_Type 02a1 7001 |p | Jump_Nonzero 0x2a3 02a2 0801 | | Execute_Immediate Raise,0x1 02a3 e5fd | | Load 0x2,-0x3 02a4 8217 | | Call 0x1,0x17 02a5 00da | | Load_Top At_Offset_2 02a6 85fe | | Call 0x2,-0x2 02a7 801c | | Call 0x0,0x1c 02a8 00c8 | | Action Pop_Auxiliary_Range 02a9 00d9 | | Load_Top At_Offset_1 02aa 00d9 | | Load_Top At_Offset_1 02ab 027f | | Execute Discrete,Equal 02ac 7004 |p | Jump_Nonzero 0x2b1 02ad e210 | | Load 0x1,0x10 02ae 0122 | " | Execute Any,Make_Root_Type 02af 1c07 | | Execute_Immediate Run_Utility,0x7 02b0 7fd6 | | Jump 0x287 02b1 00d2 | | Pop_Control Pop_Count_2 02b2 00ce | | Action Pop_Auxiliary 02b3 e5fc | | Load 0x2,-0x4 02b4 8020 | | Call 0x0,0x20 02b5 e5fc | | Load 0x2,-0x4 02b6 0092 03be | | Action Push_String_Extended,0x3be ; ")" 02b8 801f | | Call 0x0,0x1f 02b9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02ba 0000 0000 | | .BLANK 0000[0x6] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02cf | | .CONST 0x02cf ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0003 | | .CONST 0x0003 ; Number of locals 02c3 INIT_02c0: 02c3 e210 | | Load 0x1,0x10 02c4 026a | j | Execute Discrete,First 02c5 e210 | | Load 0x1,0x10 02c6 1c04 | | Execute_Immediate Run_Utility,0x4 02c7 00e3 | | Load_Encached Natural_Cache 02c8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02c9 e210 | | Load 0x1,0x10 02ca 0269 | i | Execute Discrete,Last 02cb e210 | | Load 0x1,0x10 02cc 1c04 | | Execute_Immediate Run_Utility,0x4 02cd 00e3 | | Load_Encached Natural_Cache 02ce 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02cf BODY_02c0: 02cf 00d8 | | Load_Top At_Offset_0 02d0 00da | | Load_Top At_Offset_2 02d1 0272 | r | Execute Discrete,Minus 02d2 0a01 | | Execute_Immediate Plus,0x1 02d3 00d8 | | Load_Top At_Offset_0 02d4 00e3 | | Load_Encached Natural_Cache 02d5 0260 | ` | Execute Discrete,In_Type 02d6 7001 |p | Jump_Nonzero 0x2d8 02d7 0801 | | Execute_Immediate Raise,0x1 02d8 00ca | | Action Exit_Nullary_Function 02d9 0000 0000 | | .BLANK 0000[0x7] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 e210 | | Load 0x1,0x10 02e5 1c04 | | Execute_Immediate Run_Utility,0x4 02e6 e210 | | Load 0x1,0x10 02e7 026a | j | Execute Discrete,First 02e8 e210 | | Load 0x1,0x10 02e9 1c04 | | Execute_Immediate Run_Utility,0x4 02ea 0272 | r | Execute Discrete,Minus 02eb 0a01 | | Execute_Immediate Plus,0x1 02ec 00d8 | | Load_Top At_Offset_0 02ed e021 | ! | Load 0x0,0x21 02ee 0260 | ` | Execute Discrete,In_Type 02ef 7001 |p | Jump_Nonzero 0x2f1 02f0 0801 | | Execute_Immediate Raise,0x1 02f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f2 0000 0000 | | .BLANK 0000[0x6] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 00da | | Load_Top At_Offset_2 02fc e210 | | Load 0x1,0x10 02fd 1c04 | | Execute_Immediate Run_Utility,0x4 02fe e210 | | Load 0x1,0x10 02ff 026a | j | Execute Discrete,First 0300 e210 | | Load 0x1,0x10 0301 1c04 | | Execute_Immediate Run_Utility,0x4 0302 0272 | r | Execute Discrete,Minus 0303 0a01 | | Execute_Immediate Plus,0x1 0304 00d8 | | Load_Top At_Offset_0 0305 e022 | " | Load 0x0,0x22 0306 0260 | ` | Execute Discrete,In_Type 0307 7001 |p | Jump_Nonzero 0x309 0308 0801 | | Execute_Immediate Raise,0x1 0309 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030a 0000 0000 | | .BLANK 0000[0x6] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 031a | | .CONST 0x031a ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0002 | | .CONST 0x0002 ; Number of locals 0313 INIT_0310: 0313 4801 |H | Short_Literal 0x1 0314 822b | + | Call 0x1,0x2b 0315 e023 | # | Load 0x0,0x23 0316 035b | [ | Declare_Type Array,Constrained 0317 0337 | 7 | Declare_Variable Array 0318 00d8 | | Load_Top At_Offset_0 0319 1c00 | | Execute_Immediate Run_Utility,0x0 031a BODY_0310: 031a 00cf | | Action Mark_Auxiliary 031b e5ff | | Load 0x2,-0x1 031c 01da | | Execute Vector,Bounds 031d e210 | | Load 0x1,0x10 031e 1c05 | | Execute_Immediate Run_Utility,0x5 031f 00d0 | | Action Swap_Control 0320 e210 | | Load 0x1,0x10 0321 1c05 | | Execute_Immediate Run_Utility,0x5 0322 0263 | c | Execute Discrete,Above_Bound 0323 7018 |p | Jump_Nonzero 0x33c 0324 00d8 | | Load_Top At_Offset_0 0325 e210 | | Load 0x1,0x10 0326 1c04 | | Execute_Immediate Run_Utility,0x4 0327 e5ff | | Load 0x2,-0x1 0328 01d7 | | Execute Vector,Field_Read 0329 00d9 | | Load_Top At_Offset_1 032a 00d8 | | Load_Top At_Offset_0 032b e210 | | Load 0x1,0x10 032c 0260 | ` | Execute Discrete,In_Type 032d 7001 |p | Jump_Nonzero 0x32f 032e 0801 | | Execute_Immediate Raise,0x1 032f 822c | , | Call 0x1,0x2c 0330 e402 | | Load 0x2,0x2 0331 01d6 | | Execute Vector,Field_Write 0332 00c8 | | Action Pop_Auxiliary_Range 0333 00d9 | | Load_Top At_Offset_1 0334 00d9 | | Load_Top At_Offset_1 0335 027f | | Execute Discrete,Equal 0336 7004 |p | Jump_Nonzero 0x33b 0337 e210 | | Load 0x1,0x10 0338 0122 | " | Execute Any,Make_Root_Type 0339 1c07 | | Execute_Immediate Run_Utility,0x7 033a 7fe9 | | Jump 0x324 033b 00d2 | | Pop_Control Pop_Count_2 033c 00ce | | Action Pop_Auxiliary 033d 00d8 | | Load_Top At_Offset_0 033e e023 | # | Load 0x0,0x23 033f 01c6 | | Execute Vector,Convert_To_Formal 0340 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0341 0000 0000 | | .BLANK 0000[0x7] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0352 | R | .CONST 0x0352 ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0002 | | .CONST 0x0002 ; Number of locals 034b INIT_0348: 034b 4801 |H | Short_Literal 0x1 034c 822b | + | Call 0x1,0x2b 034d e024 | $ | Load 0x0,0x24 034e 035b | [ | Declare_Type Array,Constrained 034f 0337 | 7 | Declare_Variable Array 0350 00d8 | | Load_Top At_Offset_0 0351 1c00 | | Execute_Immediate Run_Utility,0x0 0352 BODY_0348: 0352 00cf | | Action Mark_Auxiliary 0353 e5ff | | Load 0x2,-0x1 0354 01da | | Execute Vector,Bounds 0355 e210 | | Load 0x1,0x10 0356 1c05 | | Execute_Immediate Run_Utility,0x5 0357 00d0 | | Action Swap_Control 0358 e210 | | Load 0x1,0x10 0359 1c05 | | Execute_Immediate Run_Utility,0x5 035a 0263 | c | Execute Discrete,Above_Bound 035b 7018 |p | Jump_Nonzero 0x374 035c 00d8 | | Load_Top At_Offset_0 035d e210 | | Load 0x1,0x10 035e 1c04 | | Execute_Immediate Run_Utility,0x4 035f e5ff | | Load 0x2,-0x1 0360 01d5 | | Execute Vector,Field_Reference 0361 00d9 | | Load_Top At_Offset_1 0362 00d8 | | Load_Top At_Offset_0 0363 e210 | | Load 0x1,0x10 0364 0260 | ` | Execute Discrete,In_Type 0365 7001 |p | Jump_Nonzero 0x367 0366 0801 | | Execute_Immediate Raise,0x1 0367 822d | - | Call 0x1,0x2d 0368 e402 | | Load 0x2,0x2 0369 01d6 | | Execute Vector,Field_Write 036a 00c8 | | Action Pop_Auxiliary_Range 036b 00d9 | | Load_Top At_Offset_1 036c 00d9 | | Load_Top At_Offset_1 036d 027f | | Execute Discrete,Equal 036e 7004 |p | Jump_Nonzero 0x373 036f e210 | | Load 0x1,0x10 0370 0122 | " | Execute Any,Make_Root_Type 0371 1c07 | | Execute_Immediate Run_Utility,0x7 0372 7fe9 | | Jump 0x35c 0373 00d2 | | Pop_Control Pop_Count_2 0374 00ce | | Action Pop_Auxiliary 0375 00d8 | | Load_Top At_Offset_0 0376 e024 | $ | Load 0x0,0x24 0377 01c6 | | Execute Vector,Convert_To_Formal 0378 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0379 0000 0000 | | .BLANK 0000[0x7] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0388 | | .CONST 0x0388 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0002 | | .CONST 0x0002 ; Number of locals 0383 INIT_0380: 0383 4801 |H | Short_Literal 0x1 0384 822b | + | Call 0x1,0x2b 0385 e025 | % | Load 0x0,0x25 0386 035b | [ | Declare_Type Array,Constrained 0387 0337 | 7 | Declare_Variable Array 0388 BODY_0380: 0388 00cf | | Action Mark_Auxiliary 0389 e210 | | Load 0x1,0x10 038a 0265 | e | Execute Discrete,Reverse_Bounds 038b 0263 | c | Execute Discrete,Above_Bound 038c 701b |p | Jump_Nonzero 0x3a8 038d 00d8 | | Load_Top At_Offset_0 038e e210 | | Load 0x1,0x10 038f 1c04 | | Execute_Immediate Run_Utility,0x4 0390 e210 | | Load 0x1,0x10 0391 0122 | " | Execute Any,Make_Root_Type 0392 011c | | Execute Any,Convert_Unchecked 0393 1c01 | | Execute_Immediate Run_Utility,0x1 0394 8026 | & | Call 0x0,0x26 0395 00d9 | | Load_Top At_Offset_1 0396 00d8 | | Load_Top At_Offset_0 0397 e210 | | Load 0x1,0x10 0398 0260 | ` | Execute Discrete,In_Type 0399 7001 |p | Jump_Nonzero 0x39b 039a 0801 | | Execute_Immediate Raise,0x1 039b 822d | - | Call 0x1,0x2d 039c e402 | | Load 0x2,0x2 039d 01d6 | | Execute Vector,Field_Write 039e 00c8 | | Action Pop_Auxiliary_Range 039f 00d9 | | Load_Top At_Offset_1 03a0 00d9 | | Load_Top At_Offset_1 03a1 027f | | Execute Discrete,Equal 03a2 7004 |p | Jump_Nonzero 0x3a7 03a3 e210 | | Load 0x1,0x10 03a4 0122 | " | Execute Any,Make_Root_Type 03a5 1c07 | | Execute_Immediate Run_Utility,0x7 03a6 7fe6 | | Jump 0x38d 03a7 00d2 | | Pop_Control Pop_Count_2 03a8 00ce | | Action Pop_Auxiliary 03a9 00d8 | | Load_Top At_Offset_0 03aa e025 | % | Load 0x0,0x25 03ab 01c6 | | Execute Vector,Convert_To_Formal 03ac 00ca | | Action Exit_Nullary_Function 03ad 0000 0000 | | .XXX[0x3] 03af 0000 | | 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 00da | | Load_Top At_Offset_2 03b4 8027 | ' | Call 0x0,0x27 03b5 e22a | * | Load 0x1,0x2a 03b6 022e | . | Execute Access,Not_Equal 03b7 6802 |h | Jump_Zero 0x3ba 03b8 e229 | ) | Load 0x1,0x29 03b9 0257 | W | Execute Discrete,Raise 03ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03bb ; -------------------------------------------------------------------------------------- 03bb ; STRING TABLE 03bb ; -------------------------------------------------------------------------------------- 03bb 000a | | .STRTAB 0x000a->0x03c0 ; "'(" 03bc 000a | | .STRTAB 0x000a->0x03c1 ; ", " 03bd 000a | | .STRTAB 0x000a->0x03c2 ; " =>" 03be 000b | | .STRTAB 0x000b->0x03c3 ; ")" 03bf 000a | | .STREND 0x000a->0x03c4 03c0 2728 2c20 |'(, | .STRTAB_STRINGS 03c4 0000 0000 | | .BLANK 0000[0x4] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; Debug Table 03c8 ; -------------------------------------------------------------------------------------- 03c8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x9ac9,0x0000,0x0001,0x0021 03ce 000b 0452 | R| .DBG4T 0x000b,0x0452,0x4000,0x0000 03d2 005a 046e | Z n| .DBG4T 0x005a,0x046e,0x4000,0x0000 03d6 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x1005,0x0000 03da 00cb 0000 | | .DBG4T 0x00cb,0x0000,0x1005,0x0000 03de 00e3 0490 | | .DBG4T 0x00e3,0x0490,0x1002,0x0000 03e2 00eb 0493 | | .DBG4T 0x00eb,0x0493,0x1002,0x0000 03e6 0113 0496 | | .DBG4T 0x0113,0x0496,0x1002,0x0000 03ea 013b 0499 | ; | .DBG4T 0x013b,0x0499,0x1002,0x0000 03ee 016b 04a0 | k | .DBG4T 0x016b,0x04a0,0x1002,0x0000 03f2 017b 04a4 | { | .DBG4T 0x017b,0x04a4,0x1002,0x0000 03f6 018b 04a7 | | .DBG4T 0x018b,0x04a7,0x1002,0x0000 03fa 019b 04aa | | .DBG4T 0x019b,0x04aa,0x1002,0x0000 03fe 01ab 04ad | | .DBG4T 0x01ab,0x04ad,0x1002,0x0000 0402 01bb 04b0 | | .DBG4T 0x01bb,0x04b0,0x1002,0x0000 0406 01cb 04b3 | | .DBG4T 0x01cb,0x04b3,0x1002,0x0000 040a 01db 04b6 | | .DBG4T 0x01db,0x04b6,0x1001,0x0000 040e 01e3 04b9 | | .DBG4T 0x01e3,0x04b9,0x1001,0x0000 0412 01eb 04bd | | .DBG4T 0x01eb,0x04bd,0x1001,0x0000 0416 01fb 04c1 | | .DBG4T 0x01fb,0x04c1,0x1001,0x0000 041a 020b 04c5 | | .DBG4T 0x020b,0x04c5,0x1001,0x0000 041e 021b 04c8 | | .DBG4T 0x021b,0x04c8,0x1001,0x0000 0422 022b 04cb | + | .DBG4T 0x022b,0x04cb,0x1001,0x0000 0426 023b 04ce | ; | .DBG4T 0x023b,0x04ce,0x1001,0x0000 042a 024b 04d1 | K | .DBG4T 0x024b,0x04d1,0x1001,0x0000 042e 025b 04d4 | [ | .DBG4T 0x025b,0x04d4,0x1001,0x0000 0432 026b 04d7 | k | .DBG4T 0x026b,0x04d7,0x3801,0x0002 0436 02c3 04e7 | | .DBG4T 0x02c3,0x04e7,0x1002,0x0000 043a 02e3 04ec | | .DBG4T 0x02e3,0x04ec,0x1002,0x0000 043e 02fb 04ef | | .DBG4T 0x02fb,0x04ef,0x1002,0x0000 0442 0313 04f2 | | .DBG4T 0x0313,0x04f2,0x1002,0x0000 0446 034b 04f8 | K | .DBG4T 0x034b,0x04f8,0x1002,0x0000 044a 0383 04fe | | .DBG4T 0x0383,0x04fe,0x1002,0x0000 044e 03b3 0504 | | .DBG4T 0x03b3,0x0504,0x1001,0x0000 0452 ; -------------------------------------------------------------------------------------- 0452 ; Debug chain 0452 ; -------------------------------------------------------------------------------------- 0452 001a 0000 | | .DBGLEN 0x001a,0x0000 0454 000b 0017 | | .DBGLNO 0x000b,0x0017,0x0023,0x0025,0x0027,0x0029,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050 046e ; -------------------------------------------------------------------------------------- 046e ; Debug chain 046e ; -------------------------------------------------------------------------------------- 046e 001e 0002 | | .DBGLEN 0x001e,0x0002 0470 005a 005c | Z \| .DBGLNO 0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x00a0 0490 ; -------------------------------------------------------------------------------------- 0490 ; Debug chain 0490 ; -------------------------------------------------------------------------------------- 0490 0000 0001 | | .DBGLEN 0x0000,0x0001 0492 00e3 | | .DBGLNO 0x00e3 0493 ; -------------------------------------------------------------------------------------- 0493 ; Debug chain 0493 ; -------------------------------------------------------------------------------------- 0493 0000 0001 | | .DBGLEN 0x0000,0x0001 0495 00eb | | .DBGLNO 0x00eb 0496 ; -------------------------------------------------------------------------------------- 0496 ; Debug chain 0496 ; -------------------------------------------------------------------------------------- 0496 0000 0001 | | .DBGLEN 0x0000,0x0001 0498 0113 | | .DBGLNO 0x0113 0499 ; -------------------------------------------------------------------------------------- 0499 ; Debug chain 0499 ; -------------------------------------------------------------------------------------- 0499 0001 0004 | | .DBGLEN 0x0001,0x0004 049b 013b 013f | ; ?| .DBGLNO 0x013b,0x013f,0x0142,0x0146,0x015f 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; Debug chain 04a0 ; -------------------------------------------------------------------------------------- 04a0 0000 0002 | | .DBGLEN 0x0000,0x0002 04a2 016b 016d | k m| .DBGLNO 0x016b,0x016d 04a4 ; -------------------------------------------------------------------------------------- 04a4 ; Debug chain 04a4 ; -------------------------------------------------------------------------------------- 04a4 0000 0001 | | .DBGLEN 0x0000,0x0001 04a6 017b | { | .DBGLNO 0x017b 04a7 ; -------------------------------------------------------------------------------------- 04a7 ; Debug chain 04a7 ; -------------------------------------------------------------------------------------- 04a7 0000 0001 | | .DBGLEN 0x0000,0x0001 04a9 018b | | .DBGLNO 0x018b 04aa ; -------------------------------------------------------------------------------------- 04aa ; Debug chain 04aa ; -------------------------------------------------------------------------------------- 04aa 0000 0001 | | .DBGLEN 0x0000,0x0001 04ac 019b | | .DBGLNO 0x019b 04ad ; -------------------------------------------------------------------------------------- 04ad ; Debug chain 04ad ; -------------------------------------------------------------------------------------- 04ad 0000 0001 | | .DBGLEN 0x0000,0x0001 04af 01ab | | .DBGLNO 0x01ab 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; Debug chain 04b0 ; -------------------------------------------------------------------------------------- 04b0 0000 0001 | | .DBGLEN 0x0000,0x0001 04b2 01bb | | .DBGLNO 0x01bb 04b3 ; -------------------------------------------------------------------------------------- 04b3 ; Debug chain 04b3 ; -------------------------------------------------------------------------------------- 04b3 0000 0001 | | .DBGLEN 0x0000,0x0001 04b5 01cb | | .DBGLNO 0x01cb 04b6 ; -------------------------------------------------------------------------------------- 04b6 ; Debug chain 04b6 ; -------------------------------------------------------------------------------------- 04b6 0000 0001 | | .DBGLEN 0x0000,0x0001 04b8 01db | | .DBGLNO 0x01db 04b9 ; -------------------------------------------------------------------------------------- 04b9 ; Debug chain 04b9 ; -------------------------------------------------------------------------------------- 04b9 0000 0002 | | .DBGLEN 0x0000,0x0002 04bb 01e3 01e5 | | .DBGLNO 0x01e3,0x01e5 04bd ; -------------------------------------------------------------------------------------- 04bd ; Debug chain 04bd ; -------------------------------------------------------------------------------------- 04bd 0000 0002 | | .DBGLEN 0x0000,0x0002 04bf 01eb 01ed | | .DBGLNO 0x01eb,0x01ed 04c1 ; -------------------------------------------------------------------------------------- 04c1 ; Debug chain 04c1 ; -------------------------------------------------------------------------------------- 04c1 0000 0002 | | .DBGLEN 0x0000,0x0002 04c3 01fb 01fd | | .DBGLNO 0x01fb,0x01fd 04c5 ; -------------------------------------------------------------------------------------- 04c5 ; Debug chain 04c5 ; -------------------------------------------------------------------------------------- 04c5 0000 0001 | | .DBGLEN 0x0000,0x0001 04c7 020b | | .DBGLNO 0x020b 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; Debug chain 04c8 ; -------------------------------------------------------------------------------------- 04c8 0000 0001 | | .DBGLEN 0x0000,0x0001 04ca 021b | | .DBGLNO 0x021b 04cb ; -------------------------------------------------------------------------------------- 04cb ; Debug chain 04cb ; -------------------------------------------------------------------------------------- 04cb 0000 0001 | | .DBGLEN 0x0000,0x0001 04cd 022b | + | .DBGLNO 0x022b 04ce ; -------------------------------------------------------------------------------------- 04ce ; Debug chain 04ce ; -------------------------------------------------------------------------------------- 04ce 0000 0001 | | .DBGLEN 0x0000,0x0001 04d0 023b | ; | .DBGLNO 0x023b 04d1 ; -------------------------------------------------------------------------------------- 04d1 ; Debug chain 04d1 ; -------------------------------------------------------------------------------------- 04d1 0000 0001 | | .DBGLEN 0x0000,0x0001 04d3 024b | K | .DBGLNO 0x024b 04d4 ; -------------------------------------------------------------------------------------- 04d4 ; Debug chain 04d4 ; -------------------------------------------------------------------------------------- 04d4 0000 0001 | | .DBGLEN 0x0000,0x0001 04d6 025b | [ | .DBGLNO 0x025b 04d7 ; -------------------------------------------------------------------------------------- 04d7 ; Debug chain 04d7 ; -------------------------------------------------------------------------------------- 04d7 0002 000c | | .DBGLEN 0x0002,0x000c 04d9 026b 026d | k m| .DBGLNO 0x026b,0x026d,0x0275,0x0277,0x027d,0x027f,0x0283,0x0287,0x0289,0x028e,0x0290,0x029c,0x02b3,0x02b5 04e7 ; -------------------------------------------------------------------------------------- 04e7 ; Debug chain 04e7 ; -------------------------------------------------------------------------------------- 04e7 0002 0001 | | .DBGLEN 0x0002,0x0001 04e9 02c3 02c9 | | .DBGLNO 0x02c3,0x02c9,0x02cf 04ec ; -------------------------------------------------------------------------------------- 04ec ; Debug chain 04ec ; -------------------------------------------------------------------------------------- 04ec 0000 0001 | | .DBGLEN 0x0000,0x0001 04ee 02e3 | | .DBGLNO 0x02e3 04ef ; -------------------------------------------------------------------------------------- 04ef ; Debug chain 04ef ; -------------------------------------------------------------------------------------- 04ef 0000 0001 | | .DBGLEN 0x0000,0x0001 04f1 02fb | | .DBGLNO 0x02fb 04f2 ; -------------------------------------------------------------------------------------- 04f2 ; Debug chain 04f2 ; -------------------------------------------------------------------------------------- 04f2 0001 0003 | | .DBGLEN 0x0001,0x0003 04f4 0313 031b | | .DBGLNO 0x0313,0x031b,0x0324,0x033d 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; Debug chain 04f8 ; -------------------------------------------------------------------------------------- 04f8 0001 0003 | | .DBGLEN 0x0001,0x0003 04fa 034b 0353 | K S| .DBGLNO 0x034b,0x0353,0x035c,0x0375 04fe ; -------------------------------------------------------------------------------------- 04fe ; Debug chain 04fe ; -------------------------------------------------------------------------------------- 04fe 0001 0003 | | .DBGLEN 0x0001,0x0003 0500 0383 0389 | | .DBGLNO 0x0383,0x0389,0x038d,0x03a9 0504 ; -------------------------------------------------------------------------------------- 0504 ; Debug chain 0504 ; -------------------------------------------------------------------------------------- 0504 0000 0002 | | .DBGLEN 0x0000,0x0002 0506 03b3 03b8 | | .DBGLNO 0x03b3,0x03b8 0508 0000 0000 | | .BLANK 0000[0xf8]