|
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: 2048 (0x800) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_13388c9
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02b0 | | .CONST 0x02b0 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0065 | e | .CONST 0x0065 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0025 | % | .CONST 0x0025 ; 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 00e2 | | Load_Encached Integer_Cache 0013 02a0 | | Declare_Subprogram Null_Subprogram 0014 4801 |H | Short_Literal 0x1 0015 035e | ^ | Declare_Type Array,Defined,Visible 0016 00d9 | | Load_Top At_Offset_1 0017 0265 | e | Execute Discrete,Reverse_Bounds 0018 00db | | Load_Top At_Offset_3 0019 1c04 | | Execute_Immediate Run_Utility,0x4 001a 00d0 | | Action Swap_Control 001b 00db | | Load_Top At_Offset_3 001c 1c04 | | Execute_Immediate Run_Utility,0x4 001d e003 | | Load 0x0,0x3 001e 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 0020 4801 |H | Short_Literal 0x1 0021 035e | ^ | Declare_Type Array,Defined,Visible 0022 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0024 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0026 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0028 0007 | | Action Break_Optional 0029 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 002b 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 002d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 002f 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0031 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0033 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0035 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0037 0093 0000 | | push_full_address 0x0 0039 605a |`Z | Indirect_Literal Discrete,0x94,{0x80000000, 0x00020000} 003a 0273 | s | Execute Discrete,Plus 003b e20d | | Load 0x1,0xd 003c 6053 |`S | Indirect_Literal Discrete,0x90,{0x00000000, 0x0000ffff} 003d 0279 | y | Execute Discrete,And 003e 0273 | s | Execute Discrete,Plus 003f 0129 | ) | Execute Any,Make_Visible 0040 00bf | | Action Accept_Activation 0041 e004 | | Load 0x0,0x4 0042 0007 | | Action Break_Optional 0043 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call 0045 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 0047 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call 0049 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call 004b 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call 004d 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call 004f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0050 00c7 | | Action Elaborate_Subprogram 0051 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0052 00c7 | | Action Elaborate_Subprogram 0053 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0054 00c7 | | Action Elaborate_Subprogram 0055 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call 0057 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0058 00c7 | | Action Elaborate_Subprogram 0059 1d16 | | Execute_Immediate Reference_Lex_1,0x16 005a 00c7 | | Action Elaborate_Subprogram 005b 1d18 | | Execute_Immediate Reference_Lex_1,0x18 005c 00c7 | | Action Elaborate_Subprogram 005d 1d19 | | Execute_Immediate Reference_Lex_1,0x19 005e 00c7 | | Action Elaborate_Subprogram 005f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0060 00c7 | | Action Elaborate_Subprogram 0061 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0062 00c7 | | Action Elaborate_Subprogram 0063 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0064 00c7 | | Action Elaborate_Subprogram 0065 BODY_0008: 0065 8224 | $ | Call 0x1,0x24 0066 e20f | | Load 0x1,0xf 0067 e20e | | Load 0x1,0xe 0068 00d8 | | Load_Top At_Offset_0 0069 e005 | | Load 0x0,0x5 006a 0260 | ` | Execute Discrete,In_Type 006b 7001 |p | Jump_Nonzero 0x6d 006c 0801 | | Execute_Immediate Raise,0x1 006d 8006 | | Call 0x0,0x6 006e a21e | | Store_Unchecked 0x1,0x1e 006f e21e | | Load 0x1,0x1e 0070 8007 | | Call 0x0,0x7 0071 00bc | | Action Signal_Activated 0072 00bb | | Action Signal_Completion 0073 0000 0000 | | .BLANK 0000[0x5] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00d1 | | Pop_Control Pop_Count_1 007c 00da | | Load_Top At_Offset_2 007d 01dc | | Execute Vector,Last 007e 00db | | Load_Top At_Offset_3 007f 01dd | | Execute Vector,First 0080 0263 | c | Execute Discrete,Above_Bound 0081 700a |p | Jump_Nonzero 0x8c 0082 00d8 | | Load_Top At_Offset_0 0083 e5ff | | Load 0x2,-0x1 0084 01d5 | | Execute Vector,Field_Reference 0085 0125 | % | Execute Any,Set_Constraint 0086 00d8 | | Load_Top At_Offset_0 0087 e5ff | | Load 0x2,-0x1 0088 01d5 | | Execute Vector,Field_Reference 0089 1c00 | | Execute_Immediate Run_Utility,0x0 008a 0a01 | | Execute_Immediate Plus,0x1 008b 7ff4 | | Jump 0x80 008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 0094 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b e21e | | Load 0x1,0x1e 009c 00ca | | Action Exit_Nullary_Function 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 821f | | Call 0x1,0x1f 00a4 e008 | | Load 0x0,0x8 00a5 1c08 | | Execute_Immediate Run_Utility,0x8 00a6 4800 |H | Short_Literal 0x0 00a7 00d9 | | Load_Top At_Offset_1 00a8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00a9 e21e | | Load 0x1,0x1e 00aa 8009 | | Call 0x0,0x9 00ab 00d9 | | Load_Top At_Offset_1 00ac 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00ad 00db | | Load_Top At_Offset_3 00ae 8222 | " | Call 0x1,0x22 00af 00d9 | | Load_Top At_Offset_1 00b0 00d8 | | Load_Top At_Offset_0 00b1 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 00b2 00da | | Load_Top At_Offset_2 00b3 01da | | Execute Vector,Bounds 00b4 00da | | Load_Top At_Offset_2 00b5 01da | | Execute Vector,Bounds 00b6 00da | | Load_Top At_Offset_2 00b7 027f | | Execute Discrete,Equal 00b8 7001 |p | Jump_Nonzero 0xba 00b9 08e0 | | Execute_Immediate Raise,0xe0 00ba 00cd | | Action Spare6_Action 00bb 027f | | Execute Discrete,Equal 00bc 7001 |p | Jump_Nonzero 0xbe 00bd 08e0 | | Execute_Immediate Raise,0xe0 00be 00d2 | | Pop_Control Pop_Count_2 00bf 00d9 | | Load_Top At_Offset_1 00c0 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 00c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c2 0000 0000 | | .BLANK 0000[0x6] 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 821f | | Call 0x1,0x1f 00cc e008 | | Load 0x0,0x8 00cd 1c08 | | Execute_Immediate Run_Utility,0x8 00ce 4801 |H | Short_Literal 0x1 00cf 00d9 | | Load_Top At_Offset_1 00d0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00d1 e21e | | Load 0x1,0x1e 00d2 8009 | | Call 0x0,0x9 00d3 00d9 | | Load_Top At_Offset_1 00d4 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00d5 00db | | Load_Top At_Offset_3 00d6 8222 | " | Call 0x1,0x22 00d7 00d9 | | Load_Top At_Offset_1 00d8 00d8 | | Load_Top At_Offset_0 00d9 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 00da 00da | | Load_Top At_Offset_2 00db 01da | | Execute Vector,Bounds 00dc 00da | | Load_Top At_Offset_2 00dd 01da | | Execute Vector,Bounds 00de 00da | | Load_Top At_Offset_2 00df 027f | | Execute Discrete,Equal 00e0 7001 |p | Jump_Nonzero 0xe2 00e1 08e0 | | Execute_Immediate Raise,0xe0 00e2 00cd | | Action Spare6_Action 00e3 027f | | Execute Discrete,Equal 00e4 7001 |p | Jump_Nonzero 0xe6 00e5 08e0 | | Execute_Immediate Raise,0xe0 00e6 00d2 | | Pop_Control Pop_Count_2 00e7 00d9 | | Load_Top At_Offset_1 00e8 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 00e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f5 | | .CONST 0x00f5 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 e211 | | Load 0x1,0x11 00f4 0337 | 7 | Declare_Variable Array 00f5 BODY_00f0: 00f5 00db | | Load_Top At_Offset_3 00f6 8225 | % | Call 0x1,0x25 00f7 00cf | | Action Mark_Auxiliary 00f8 e210 | | Load 0x1,0x10 00f9 0265 | e | Execute Discrete,Reverse_Bounds 00fa 0263 | c | Execute Discrete,Above_Bound 00fb 7018 |p | Jump_Nonzero 0x114 00fc 00d8 | | Load_Top At_Offset_0 00fd 00d8 | | Load_Top At_Offset_0 00fe e210 | | Load 0x1,0x10 00ff 0260 | ` | Execute Discrete,In_Type 0100 7001 |p | Jump_Nonzero 0x102 0101 0801 | | Execute_Immediate Raise,0x1 0102 8221 | ! | Call 0x1,0x21 0103 e5ff | | Load 0x2,-0x1 0104 800a | | Call 0x0,0xa 0105 00d9 | | Load_Top At_Offset_1 0106 e210 | | Load 0x1,0x10 0107 1c04 | | Execute_Immediate Run_Utility,0x4 0108 e402 | | Load 0x2,0x2 0109 01d6 | | Execute Vector,Field_Write 010a 00c8 | | Action Pop_Auxiliary_Range 010b 00d9 | | Load_Top At_Offset_1 010c 00d9 | | Load_Top At_Offset_1 010d 027f | | Execute Discrete,Equal 010e 7004 |p | Jump_Nonzero 0x113 010f e210 | | Load 0x1,0x10 0110 0122 | " | Execute Any,Make_Root_Type 0111 1c07 | | Execute_Immediate Run_Utility,0x7 0112 7fe9 | | Jump 0xfc 0113 00d2 | | Pop_Control Pop_Count_2 0114 00ce | | Action Pop_Auxiliary 0115 00d8 | | Load_Top At_Offset_0 0116 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0117 0000 | | .XXX[0x1] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 011c 8225 | % | Call 0x1,0x25 011d 00db | | Load_Top At_Offset_3 011e 00d8 | | Load_Top At_Offset_0 011f e210 | | Load 0x1,0x10 0120 0260 | ` | Execute Discrete,In_Type 0121 7001 |p | Jump_Nonzero 0x123 0122 0801 | | Execute_Immediate Raise,0x1 0123 8221 | ! | Call 0x1,0x21 0124 00db | | Load_Top At_Offset_3 0125 800a | | Call 0x0,0xa 0126 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0127 0000 | | .XXX[0x1] 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 8223 | # | Call 0x1,0x23 012d e21e | | Load 0x1,0x1e 012e 800b | | Call 0x0,0xb 012f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 8225 | % | Call 0x1,0x25 0135 00da | | Load_Top At_Offset_2 0136 800c | | Call 0x0,0xc 0137 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 8225 | % | Call 0x1,0x25 013d 00db | | Load_Top At_Offset_3 013e 8223 | # | Call 0x1,0x23 013f 00db | | Load_Top At_Offset_3 0140 800d | | Call 0x0,0xd 0141 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0142 0000 0000 | | .BLANK 0000[0x6] 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 8225 | % | Call 0x1,0x25 014d e5fd | | Load 0x2,-0x3 014e e5fe | | Load 0x2,-0x2 014f 00d8 | | Load_Top At_Offset_0 0150 e210 | | Load 0x1,0x10 0151 0260 | ` | Execute Discrete,In_Type 0152 7001 |p | Jump_Nonzero 0x154 0153 0801 | | Execute_Immediate Raise,0x1 0154 8221 | ! | Call 0x1,0x21 0155 e5ff | | Load 0x2,-0x1 0156 800e | | Call 0x0,0xe 0157 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0165 | e | .CONST 0x0165 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0003 | | .CONST 0x0003 ; Number of locals 015b INIT_0158: 015b 00e1 | | Load_Encached Boolean_Cache 015c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 015d e21e | | Load 0x1,0x1e 015e 8009 | | Call 0x0,0x9 015f e005 | | Load 0x0,0x5 0160 1c04 | | Execute_Immediate Run_Utility,0x4 0161 e005 | | Load 0x0,0x5 0162 0122 | " | Execute Any,Make_Root_Type 0163 011c | | Execute Any,Convert_Unchecked 0164 1c01 | | Execute_Immediate Run_Utility,0x1 0165 BODY_0158: 0165 e5fd | | Load 0x2,-0x3 0166 8225 | % | Call 0x1,0x25 0167 e5fc | | Load 0x2,-0x4 0168 00d9 | | Load_Top At_Offset_1 0169 0092 02a3 | | Action Push_String_Extended,0x2a3 ; "'(" 016b 01cc | | Execute Vector,Catenate 016c 800f | | Call 0x0,0xf 016d e5fc | | Load 0x2,-0x4 016e 8010 | | Call 0x0,0x10 016f 4801 |H | Short_Literal 0x1 0170 e5fc | | Load 0x2,-0x4 0171 8011 | | Call 0x0,0x11 0172 00cf | | Action Mark_Auxiliary 0173 e210 | | Load 0x1,0x10 0174 0265 | e | Execute Discrete,Reverse_Bounds 0175 0263 | c | Execute Discrete,Above_Bound 0176 702b |p+ | Jump_Nonzero 0x1a2 0177 e402 | | Load 0x2,0x2 0178 7005 |p | Jump_Nonzero 0x17e 0179 e5fc | | Load 0x2,-0x4 017a 0092 02a4 | | Action Push_String_Extended,0x2a4 ; ", " 017c 8012 | | Call 0x0,0x12 017d 7802 |x | Jump 0x180 017e 4800 |H | Short_Literal 0x0 017f a402 | | Store_Unchecked 0x2,0x2 0180 e5fc | | Load 0x2,-0x4 0181 00d9 | | Load_Top At_Offset_1 0182 e210 | | Load 0x1,0x10 0183 1c04 | | Execute_Immediate Run_Utility,0x4 0184 e210 | | Load 0x1,0x10 0185 0122 | " | Execute Any,Make_Root_Type 0186 011c | | Execute Any,Convert_Unchecked 0187 1c01 | | Execute_Immediate Run_Utility,0x1 0188 0092 02a5 | | Action Push_String_Extended,0x2a5 ; " =>" 018a 01cc | | Execute Vector,Catenate 018b 800f | | Call 0x0,0xf 018c e5fc | | Load 0x2,-0x4 018d 00d9 | | Load_Top At_Offset_1 018e 00d8 | | Load_Top At_Offset_0 018f e210 | | Load 0x1,0x10 0190 0260 | ` | Execute Discrete,In_Type 0191 7001 |p | Jump_Nonzero 0x193 0192 0801 | | Execute_Immediate Raise,0x1 0193 e5fd | | Load 0x2,-0x3 0194 8217 | | Call 0x1,0x17 0195 00da | | Load_Top At_Offset_2 0196 85fe | | Call 0x2,-0x2 0197 800f | | Call 0x0,0xf 0198 00c8 | | Action Pop_Auxiliary_Range 0199 00d9 | | Load_Top At_Offset_1 019a 00d9 | | Load_Top At_Offset_1 019b 027f | | Execute Discrete,Equal 019c 7004 |p | Jump_Nonzero 0x1a1 019d e210 | | Load 0x1,0x10 019e 0122 | " | Execute Any,Make_Root_Type 019f 1c07 | | Execute_Immediate Run_Utility,0x7 01a0 7fd6 | | Jump 0x177 01a1 00d2 | | Pop_Control Pop_Count_2 01a2 00ce | | Action Pop_Auxiliary 01a3 e5fc | | Load 0x2,-0x4 01a4 8013 | | Call 0x0,0x13 01a5 e5fc | | Load 0x2,-0x4 01a6 0092 02a6 | | Action Push_String_Extended,0x2a6 ; ")" 01a8 8012 | | Call 0x0,0x12 01a9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01aa 0000 0000 | | .BLANK 0000[0x6] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01bf | | .CONST 0x01bf ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0003 | | .CONST 0x0003 ; Number of locals 01b3 INIT_01b0: 01b3 e210 | | Load 0x1,0x10 01b4 026a | j | Execute Discrete,First 01b5 e210 | | Load 0x1,0x10 01b6 1c04 | | Execute_Immediate Run_Utility,0x4 01b7 00e3 | | Load_Encached Natural_Cache 01b8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01b9 e210 | | Load 0x1,0x10 01ba 0269 | i | Execute Discrete,Last 01bb e210 | | Load 0x1,0x10 01bc 1c04 | | Execute_Immediate Run_Utility,0x4 01bd 00e3 | | Load_Encached Natural_Cache 01be 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01bf BODY_01b0: 01bf 00d8 | | Load_Top At_Offset_0 01c0 00da | | Load_Top At_Offset_2 01c1 0272 | r | Execute Discrete,Minus 01c2 0a01 | | Execute_Immediate Plus,0x1 01c3 00d8 | | Load_Top At_Offset_0 01c4 00e3 | | Load_Encached Natural_Cache 01c5 0260 | ` | Execute Discrete,In_Type 01c6 7001 |p | Jump_Nonzero 0x1c8 01c7 0801 | | Execute_Immediate Raise,0x1 01c8 00ca | | Action Exit_Nullary_Function 01c9 0000 0000 | | .BLANK 0000[0x7] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 e210 | | Load 0x1,0x10 01d5 1c04 | | Execute_Immediate Run_Utility,0x4 01d6 e210 | | Load 0x1,0x10 01d7 026a | j | Execute Discrete,First 01d8 e210 | | Load 0x1,0x10 01d9 1c04 | | Execute_Immediate Run_Utility,0x4 01da 0272 | r | Execute Discrete,Minus 01db 0a01 | | Execute_Immediate Plus,0x1 01dc 00d8 | | Load_Top At_Offset_0 01dd e014 | | Load 0x0,0x14 01de 0260 | ` | Execute Discrete,In_Type 01df 7001 |p | Jump_Nonzero 0x1e1 01e0 0801 | | Execute_Immediate Raise,0x1 01e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e2 0000 0000 | | .BLANK 0000[0x6] 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 e210 | | Load 0x1,0x10 01ed 1c04 | | Execute_Immediate Run_Utility,0x4 01ee e210 | | Load 0x1,0x10 01ef 026a | j | Execute Discrete,First 01f0 e210 | | Load 0x1,0x10 01f1 1c04 | | Execute_Immediate Run_Utility,0x4 01f2 0272 | r | Execute Discrete,Minus 01f3 0a01 | | Execute_Immediate Plus,0x1 01f4 00d8 | | Load_Top At_Offset_0 01f5 e015 | | Load 0x0,0x15 01f6 0260 | ` | Execute Discrete,In_Type 01f7 7001 |p | Jump_Nonzero 0x1f9 01f8 0801 | | Execute_Immediate Raise,0x1 01f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fa 0000 0000 | | .BLANK 0000[0x6] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 020a | | .CONST 0x020a ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0002 | | .CONST 0x0002 ; Number of locals 0203 INIT_0200: 0203 4801 |H | Short_Literal 0x1 0204 821f | | Call 0x1,0x1f 0205 e016 | | Load 0x0,0x16 0206 035b | [ | Declare_Type Array,Constrained 0207 0337 | 7 | Declare_Variable Array 0208 00d8 | | Load_Top At_Offset_0 0209 1c00 | | Execute_Immediate Run_Utility,0x0 020a BODY_0200: 020a 00cf | | Action Mark_Auxiliary 020b e5ff | | Load 0x2,-0x1 020c 01da | | Execute Vector,Bounds 020d e210 | | Load 0x1,0x10 020e 1c05 | | Execute_Immediate Run_Utility,0x5 020f 00d0 | | Action Swap_Control 0210 e210 | | Load 0x1,0x10 0211 1c05 | | Execute_Immediate Run_Utility,0x5 0212 0263 | c | Execute Discrete,Above_Bound 0213 7018 |p | Jump_Nonzero 0x22c 0214 00d8 | | Load_Top At_Offset_0 0215 e210 | | Load 0x1,0x10 0216 1c04 | | Execute_Immediate Run_Utility,0x4 0217 e5ff | | Load 0x2,-0x1 0218 01d7 | | Execute Vector,Field_Read 0219 00d9 | | Load_Top At_Offset_1 021a 00d8 | | Load_Top At_Offset_0 021b e210 | | Load 0x1,0x10 021c 0260 | ` | Execute Discrete,In_Type 021d 7001 |p | Jump_Nonzero 0x21f 021e 0801 | | Execute_Immediate Raise,0x1 021f 8220 | | Call 0x1,0x20 0220 e402 | | Load 0x2,0x2 0221 01d6 | | Execute Vector,Field_Write 0222 00c8 | | Action Pop_Auxiliary_Range 0223 00d9 | | Load_Top At_Offset_1 0224 00d9 | | Load_Top At_Offset_1 0225 027f | | Execute Discrete,Equal 0226 7004 |p | Jump_Nonzero 0x22b 0227 e210 | | Load 0x1,0x10 0228 0122 | " | Execute Any,Make_Root_Type 0229 1c07 | | Execute_Immediate Run_Utility,0x7 022a 7fe9 | | Jump 0x214 022b 00d2 | | Pop_Control Pop_Count_2 022c 00ce | | Action Pop_Auxiliary 022d 00d8 | | Load_Top At_Offset_0 022e e016 | | Load 0x0,0x16 022f 01c6 | | Execute Vector,Convert_To_Formal 0230 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0231 0000 0000 | | .BLANK 0000[0x7] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0240 | @ | .CONST 0x0240 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b 4801 |H | Short_Literal 0x1 023c 821f | | Call 0x1,0x1f 023d e017 | | Load 0x0,0x17 023e 035b | [ | Declare_Type Array,Constrained 023f 0337 | 7 | Declare_Variable Array 0240 BODY_0238: 0240 00cf | | Action Mark_Auxiliary 0241 e5ff | | Load 0x2,-0x1 0242 01da | | Execute Vector,Bounds 0243 e210 | | Load 0x1,0x10 0244 1c05 | | Execute_Immediate Run_Utility,0x5 0245 00d0 | | Action Swap_Control 0246 e210 | | Load 0x1,0x10 0247 1c05 | | Execute_Immediate Run_Utility,0x5 0248 0263 | c | Execute Discrete,Above_Bound 0249 7018 |p | Jump_Nonzero 0x262 024a 00d8 | | Load_Top At_Offset_0 024b e210 | | Load 0x1,0x10 024c 1c04 | | Execute_Immediate Run_Utility,0x4 024d e5ff | | Load 0x2,-0x1 024e 01d7 | | Execute Vector,Field_Read 024f 00d9 | | Load_Top At_Offset_1 0250 00d8 | | Load_Top At_Offset_0 0251 e210 | | Load 0x1,0x10 0252 0260 | ` | Execute Discrete,In_Type 0253 7001 |p | Jump_Nonzero 0x255 0254 0801 | | Execute_Immediate Raise,0x1 0255 8221 | ! | Call 0x1,0x21 0256 e402 | | Load 0x2,0x2 0257 01d6 | | Execute Vector,Field_Write 0258 00c8 | | Action Pop_Auxiliary_Range 0259 00d9 | | Load_Top At_Offset_1 025a 00d9 | | Load_Top At_Offset_1 025b 027f | | Execute Discrete,Equal 025c 7004 |p | Jump_Nonzero 0x261 025d e210 | | Load 0x1,0x10 025e 0122 | " | Execute Any,Make_Root_Type 025f 1c07 | | Execute_Immediate Run_Utility,0x7 0260 7fe9 | | Jump 0x24a 0261 00d2 | | Pop_Control Pop_Count_2 0262 00ce | | Action Pop_Auxiliary 0263 00d8 | | Load_Top At_Offset_0 0264 e017 | | Load 0x0,0x17 0265 01c6 | | Execute Vector,Convert_To_Formal 0266 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0267 0000 | | .XXX[0x1] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0270 | p | .CONST 0x0270 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0002 | | .CONST 0x0002 ; Number of locals 026b INIT_0268: 026b 4801 |H | Short_Literal 0x1 026c 821f | | Call 0x1,0x1f 026d e018 | | Load 0x0,0x18 026e 035b | [ | Declare_Type Array,Constrained 026f 0337 | 7 | Declare_Variable Array 0270 BODY_0268: 0270 00cf | | Action Mark_Auxiliary 0271 e210 | | Load 0x1,0x10 0272 0265 | e | Execute Discrete,Reverse_Bounds 0273 0263 | c | Execute Discrete,Above_Bound 0274 701b |p | Jump_Nonzero 0x290 0275 00d8 | | Load_Top At_Offset_0 0276 e210 | | Load 0x1,0x10 0277 1c04 | | Execute_Immediate Run_Utility,0x4 0278 e210 | | Load 0x1,0x10 0279 0122 | " | Execute Any,Make_Root_Type 027a 011c | | Execute Any,Convert_Unchecked 027b 1c01 | | Execute_Immediate Run_Utility,0x1 027c 8019 | | Call 0x0,0x19 027d 00d9 | | Load_Top At_Offset_1 027e 00d8 | | Load_Top At_Offset_0 027f e210 | | Load 0x1,0x10 0280 0260 | ` | Execute Discrete,In_Type 0281 7001 |p | Jump_Nonzero 0x283 0282 0801 | | Execute_Immediate Raise,0x1 0283 8221 | ! | Call 0x1,0x21 0284 e402 | | Load 0x2,0x2 0285 01d6 | | Execute Vector,Field_Write 0286 00c8 | | Action Pop_Auxiliary_Range 0287 00d9 | | Load_Top At_Offset_1 0288 00d9 | | Load_Top At_Offset_1 0289 027f | | Execute Discrete,Equal 028a 7004 |p | Jump_Nonzero 0x28f 028b e210 | | Load 0x1,0x10 028c 0122 | " | Execute Any,Make_Root_Type 028d 1c07 | | Execute_Immediate Run_Utility,0x7 028e 7fe6 | | Jump 0x275 028f 00d2 | | Pop_Control Pop_Count_2 0290 00ce | | Action Pop_Auxiliary 0291 00d8 | | Load_Top At_Offset_0 0292 e018 | | Load 0x0,0x18 0293 01c6 | | Execute Vector,Convert_To_Formal 0294 00ca | | Action Exit_Nullary_Function 0295 0000 0000 | | .XXX[0x3] 0297 0000 | | 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c 801a | | Call 0x0,0x1a 029d e21e | | Load 0x1,0x1e 029e 022e | . | Execute Access,Not_Equal 029f 6802 |h | Jump_Zero 0x2a2 02a0 e21d | | Load 0x1,0x1d 02a1 0257 | W | Execute Discrete,Raise 02a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a3 ; -------------------------------------------------------------------------------------- 02a3 ; STRING TABLE 02a3 ; -------------------------------------------------------------------------------------- 02a3 000a | | .STRTAB 0x000a->0x02a8 ; "'(" 02a4 000a | | .STRTAB 0x000a->0x02a9 ; ", " 02a5 000a | | .STRTAB 0x000a->0x02aa ; " =>" 02a6 000b | | .STRTAB 0x000b->0x02ab ; ")" 02a7 000a | | .STREND 0x000a->0x02ac 02a8 2728 2c20 |'(, | .STRTAB_STRINGS 02ac 0000 0000 | | .BLANK 0000[0x4] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; Debug Table 02b0 ; -------------------------------------------------------------------------------------- 02b0 0004 0004 | | .DEBUG4 0x0004,0x0004,0x9603,0x0000,0x0001,0x0014 02b6 000b 0306 | | .DBG4T 0x000b,0x0306,0x4000,0x0000 02ba 0041 0316 | A | .DBG4T 0x0041,0x0316,0x4000,0x0000 02be 007b 0000 | { | .DBG4T 0x007b,0x0000,0x1005,0x0000 02c2 009b 032c | ,| .DBG4T 0x009b,0x032c,0x1002,0x0000 02c6 00a3 032f | /| .DBG4T 0x00a3,0x032f,0x1002,0x0000 02ca 00cb 0332 | 2| .DBG4T 0x00cb,0x0332,0x1002,0x0000 02ce 00f3 0335 | 5| .DBG4T 0x00f3,0x0335,0x1002,0x0000 02d2 011b 033c | <| .DBG4T 0x011b,0x033c,0x1002,0x0000 02d6 012b 0340 | + @| .DBG4T 0x012b,0x0340,0x1001,0x0000 02da 0133 0343 | 3 C| .DBG4T 0x0133,0x0343,0x1001,0x0000 02de 013b 0347 | ; G| .DBG4T 0x013b,0x0347,0x1001,0x0000 02e2 014b 034b | K K| .DBG4T 0x014b,0x034b,0x1001,0x0000 02e6 015b 034f | [ O| .DBG4T 0x015b,0x034f,0x3801,0x0002 02ea 01b3 035f | _| .DBG4T 0x01b3,0x035f,0x1002,0x0000 02ee 01d3 0364 | d| .DBG4T 0x01d3,0x0364,0x1002,0x0000 02f2 01eb 0367 | g| .DBG4T 0x01eb,0x0367,0x1002,0x0000 02f6 0203 036a | j| .DBG4T 0x0203,0x036a,0x1002,0x0000 02fa 023b 0370 | ; p| .DBG4T 0x023b,0x0370,0x1002,0x0000 02fe 026b 0376 | k v| .DBG4T 0x026b,0x0376,0x1002,0x0000 0302 029b 037c | || .DBG4T 0x029b,0x037c,0x1001,0x0000 0306 ; -------------------------------------------------------------------------------------- 0306 ; Debug chain 0306 ; -------------------------------------------------------------------------------------- 0306 000e 0000 | | .DBGLEN 0x000e,0x0000 0308 000b 0016 | | .DBGLNO 0x000b,0x0016,0x0022,0x0024,0x0026,0x0028,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037 0316 ; -------------------------------------------------------------------------------------- 0316 ; Debug chain 0316 ; -------------------------------------------------------------------------------------- 0316 0012 0002 | | .DBGLEN 0x0012,0x0002 0318 0041 0043 | A C| .DBGLNO 0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x006f 032c ; -------------------------------------------------------------------------------------- 032c ; Debug chain 032c ; -------------------------------------------------------------------------------------- 032c 0000 0001 | | .DBGLEN 0x0000,0x0001 032e 009b | | .DBGLNO 0x009b 032f ; -------------------------------------------------------------------------------------- 032f ; Debug chain 032f ; -------------------------------------------------------------------------------------- 032f 0000 0001 | | .DBGLEN 0x0000,0x0001 0331 00a3 | | .DBGLNO 0x00a3 0332 ; -------------------------------------------------------------------------------------- 0332 ; Debug chain 0332 ; -------------------------------------------------------------------------------------- 0332 0000 0001 | | .DBGLEN 0x0000,0x0001 0334 00cb | | .DBGLNO 0x00cb 0335 ; -------------------------------------------------------------------------------------- 0335 ; Debug chain 0335 ; -------------------------------------------------------------------------------------- 0335 0001 0004 | | .DBGLEN 0x0001,0x0004 0337 00f3 00f5 | | .DBGLNO 0x00f3,0x00f5,0x00f8,0x00fc,0x0115 033c ; -------------------------------------------------------------------------------------- 033c ; Debug chain 033c ; -------------------------------------------------------------------------------------- 033c 0000 0002 | | .DBGLEN 0x0000,0x0002 033e 011b 011d | | .DBGLNO 0x011b,0x011d 0340 ; -------------------------------------------------------------------------------------- 0340 ; Debug chain 0340 ; -------------------------------------------------------------------------------------- 0340 0000 0001 | | .DBGLEN 0x0000,0x0001 0342 012b | + | .DBGLNO 0x012b 0343 ; -------------------------------------------------------------------------------------- 0343 ; Debug chain 0343 ; -------------------------------------------------------------------------------------- 0343 0000 0002 | | .DBGLEN 0x0000,0x0002 0345 0133 0135 | 3 5| .DBGLNO 0x0133,0x0135 0347 ; -------------------------------------------------------------------------------------- 0347 ; Debug chain 0347 ; -------------------------------------------------------------------------------------- 0347 0000 0002 | | .DBGLEN 0x0000,0x0002 0349 013b 013d | ; =| .DBGLNO 0x013b,0x013d 034b ; -------------------------------------------------------------------------------------- 034b ; Debug chain 034b ; -------------------------------------------------------------------------------------- 034b 0000 0002 | | .DBGLEN 0x0000,0x0002 034d 014b 014d | K M| .DBGLNO 0x014b,0x014d 034f ; -------------------------------------------------------------------------------------- 034f ; Debug chain 034f ; -------------------------------------------------------------------------------------- 034f 0002 000c | | .DBGLEN 0x0002,0x000c 0351 015b 015d | [ ]| .DBGLNO 0x015b,0x015d,0x0165,0x0167,0x016d,0x016f,0x0173,0x0177,0x0179,0x017e,0x0180,0x018c,0x01a3,0x01a5 035f ; -------------------------------------------------------------------------------------- 035f ; Debug chain 035f ; -------------------------------------------------------------------------------------- 035f 0002 0001 | | .DBGLEN 0x0002,0x0001 0361 01b3 01b9 | | .DBGLNO 0x01b3,0x01b9,0x01bf 0364 ; -------------------------------------------------------------------------------------- 0364 ; Debug chain 0364 ; -------------------------------------------------------------------------------------- 0364 0000 0001 | | .DBGLEN 0x0000,0x0001 0366 01d3 | | .DBGLNO 0x01d3 0367 ; -------------------------------------------------------------------------------------- 0367 ; Debug chain 0367 ; -------------------------------------------------------------------------------------- 0367 0000 0001 | | .DBGLEN 0x0000,0x0001 0369 01eb | | .DBGLNO 0x01eb 036a ; -------------------------------------------------------------------------------------- 036a ; Debug chain 036a ; -------------------------------------------------------------------------------------- 036a 0001 0003 | | .DBGLEN 0x0001,0x0003 036c 0203 020b | | .DBGLNO 0x0203,0x020b,0x0214,0x022d 0370 ; -------------------------------------------------------------------------------------- 0370 ; Debug chain 0370 ; -------------------------------------------------------------------------------------- 0370 0001 0003 | | .DBGLEN 0x0001,0x0003 0372 023b 0241 | ; A| .DBGLNO 0x023b,0x0241,0x024a,0x0263 0376 ; -------------------------------------------------------------------------------------- 0376 ; Debug chain 0376 ; -------------------------------------------------------------------------------------- 0376 0001 0003 | | .DBGLEN 0x0001,0x0003 0378 026b 0271 | k q| .DBGLNO 0x026b,0x0271,0x0275,0x0291 037c ; -------------------------------------------------------------------------------------- 037c ; Debug chain 037c ; -------------------------------------------------------------------------------------- 037c 0000 0002 | | .DBGLEN 0x0000,0x0002 037e 029b 02a0 | | .DBGLNO 0x029b,0x02a0 0380 0000 0000 | | .BLANK 0000[0x80]