|
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_32d0d5
└─⟦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 0248 | H | .CONST 0x0248 ; 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 0053 | S | .CONST 0x0053 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b 00d9 | | Load_Top At_Offset_1 000c 0265 | e | Execute Discrete,Reverse_Bounds 000d 00db | | Load_Top At_Offset_3 000e 1c04 | | Execute_Immediate Run_Utility,0x4 000f 00d0 | | Action Swap_Control 0010 00db | | Load_Top At_Offset_3 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 00da | | Load_Top At_Offset_2 0017 0265 | e | Execute Discrete,Reverse_Bounds 0018 e20f | | Load 0x1,0xf 0019 1c04 | | Execute_Immediate Run_Utility,0x4 001a 00d0 | | Action Swap_Control 001b e20f | | Load 0x1,0xf 001c 1c04 | | Execute_Immediate Run_Utility,0x4 001d e002 | | Load 0x0,0x2 001e 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0020 4801 |H | Short_Literal 0x1 0021 035e | ^ | Declare_Type Array,Defined,Visible 0022 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0024 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0026 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0028 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 002a 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 002c 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 002e 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0030 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0032 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0034 00bf | | Action Accept_Activation 0035 e20e | | Load 0x1,0xe 0036 8003 | | Call 0x0,0x3 0037 e004 | | Load 0x0,0x4 0038 03f1 | | Declare_Variable Discrete,With_Value 0039 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call 003b 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 003d 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call 003f 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 0041 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0042 00c7 | | Action Elaborate_Subprogram 0043 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0044 00c7 | | Action Elaborate_Subprogram 0045 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0046 00c7 | | Action Elaborate_Subprogram 0047 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0048 00c7 | | Action Elaborate_Subprogram 0049 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004a 00c7 | | Action Elaborate_Subprogram 004b 1d18 | | Execute_Immediate Reference_Lex_1,0x18 004c 00c7 | | Action Elaborate_Subprogram 004d 1d19 | | Execute_Immediate Reference_Lex_1,0x19 004e 00c7 | | Action Elaborate_Subprogram 004f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0050 00c7 | | Action Elaborate_Subprogram 0051 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0052 00c7 | | Action Elaborate_Subprogram 0053 BODY_0008: 0053 00bc | | Action Signal_Activated 0054 00bb | | Action Signal_Completion 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00d1 | | Pop_Control Pop_Count_1 005c 00da | | Load_Top At_Offset_2 005d 01d8 | | Execute Vector,Element_Type 005e 02ff | | Declare_Variable Variant_Record 005f 00d8 | | Load_Top At_Offset_0 0060 1c00 | | Execute_Immediate Run_Utility,0x0 0061 00db | | Load_Top At_Offset_3 0062 01dc | | Execute Vector,Last 0063 e5ff | | Load 0x2,-0x1 0064 01dd | | Execute Vector,First 0065 0263 | c | Execute Discrete,Above_Bound 0066 7006 |p | Jump_Nonzero 0x6d 0067 00da | | Load_Top At_Offset_2 0068 00d9 | | Load_Top At_Offset_1 0069 e5ff | | Load 0x2,-0x1 006a 01d6 | | Execute Vector,Field_Write 006b 0a01 | | Execute_Immediate Plus,0x1 006c 7ff8 | | Jump 0x65 006d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 006e 0000 0000 | | .XXX[0x2] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 821d | | Call 0x1,0x1d 0074 e005 | | Load 0x0,0x5 0075 1c08 | | Execute_Immediate Run_Utility,0x8 0076 4800 |H | Short_Literal 0x0 0077 00d9 | | Load_Top At_Offset_1 0078 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0079 e21c | | Load 0x1,0x1c 007a 00d9 | | Load_Top At_Offset_1 007b 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 007c 00db | | Load_Top At_Offset_3 007d 821f | | Call 0x1,0x1f 007e 00d9 | | Load_Top At_Offset_1 007f 00d8 | | Load_Top At_Offset_0 0080 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0081 00da | | Load_Top At_Offset_2 0082 01da | | Execute Vector,Bounds 0083 00da | | Load_Top At_Offset_2 0084 01da | | Execute Vector,Bounds 0085 00da | | Load_Top At_Offset_2 0086 027f | | Execute Discrete,Equal 0087 7001 |p | Jump_Nonzero 0x89 0088 08e0 | | Execute_Immediate Raise,0xe0 0089 00cd | | Action Spare6_Action 008a 027f | | Execute Discrete,Equal 008b 7001 |p | Jump_Nonzero 0x8d 008c 08e0 | | Execute_Immediate Raise,0xe0 008d 00d2 | | Pop_Control Pop_Count_2 008e 00d9 | | Load_Top At_Offset_1 008f 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 0090 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0091 0000 0000 | | .BLANK 0000[0x7] 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 821d | | Call 0x1,0x1d 009c e005 | | Load 0x0,0x5 009d 1c08 | | Execute_Immediate Run_Utility,0x8 009e 4801 |H | Short_Literal 0x1 009f 00d9 | | Load_Top At_Offset_1 00a0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00a1 e21c | | Load 0x1,0x1c 00a2 00d9 | | Load_Top At_Offset_1 00a3 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00a4 00db | | Load_Top At_Offset_3 00a5 821f | | Call 0x1,0x1f 00a6 00d9 | | Load_Top At_Offset_1 00a7 00d8 | | Load_Top At_Offset_0 00a8 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 00a9 00da | | Load_Top At_Offset_2 00aa 01da | | Execute Vector,Bounds 00ab 00da | | Load_Top At_Offset_2 00ac 01da | | Execute Vector,Bounds 00ad 00da | | Load_Top At_Offset_2 00ae 027f | | Execute Discrete,Equal 00af 7001 |p | Jump_Nonzero 0xb1 00b0 08e0 | | Execute_Immediate Raise,0xe0 00b1 00cd | | Action Spare6_Action 00b2 027f | | Execute Discrete,Equal 00b3 7001 |p | Jump_Nonzero 0xb5 00b4 08e0 | | Execute_Immediate Raise,0xe0 00b5 00d2 | | Pop_Control Pop_Count_2 00b6 00d9 | | Load_Top At_Offset_1 00b7 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c5 | | .CONST 0x00c5 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 e211 | | Load 0x1,0x11 00c4 0337 | 7 | Declare_Variable Array 00c5 BODY_00c0: 00c5 00cf | | Action Mark_Auxiliary 00c6 e20f | | Load 0x1,0xf 00c7 0265 | e | Execute Discrete,Reverse_Bounds 00c8 0263 | c | Execute Discrete,Above_Bound 00c9 7018 |p | Jump_Nonzero 0xe2 00ca 00d8 | | Load_Top At_Offset_0 00cb 00d8 | | Load_Top At_Offset_0 00cc e20f | | Load 0x1,0xf 00cd 0260 | ` | Execute Discrete,In_Type 00ce 7001 |p | Jump_Nonzero 0xd0 00cf 0801 | | Execute_Immediate Raise,0x1 00d0 821e | | Call 0x1,0x1e 00d1 e5ff | | Load 0x2,-0x1 00d2 8006 | | Call 0x0,0x6 00d3 00d9 | | Load_Top At_Offset_1 00d4 e20f | | Load 0x1,0xf 00d5 1c04 | | Execute_Immediate Run_Utility,0x4 00d6 e402 | | Load 0x2,0x2 00d7 01d6 | | Execute Vector,Field_Write 00d8 00c8 | | Action Pop_Auxiliary_Range 00d9 00d9 | | Load_Top At_Offset_1 00da 00d9 | | Load_Top At_Offset_1 00db 027f | | Execute Discrete,Equal 00dc 7004 |p | Jump_Nonzero 0xe1 00dd e20f | | Load 0x1,0xf 00de 0122 | " | Execute Any,Make_Root_Type 00df 1c07 | | Execute_Immediate Run_Utility,0x7 00e0 7fe9 | | Jump 0xca 00e1 00d2 | | Pop_Control Pop_Count_2 00e2 00ce | | Action Pop_Auxiliary 00e3 00d8 | | Load_Top At_Offset_0 00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00db | | Load_Top At_Offset_3 00ec 00d8 | | Load_Top At_Offset_0 00ed e20f | | Load 0x1,0xf 00ee 0260 | ` | Execute Discrete,In_Type 00ef 7001 |p | Jump_Nonzero 0xf1 00f0 0801 | | Execute_Immediate Raise,0x1 00f1 821e | | Call 0x1,0x1e 00f2 00db | | Load_Top At_Offset_3 00f3 8006 | | Call 0x0,0x6 00f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc 01db | | Execute Vector,Length 00fd e007 | | Load 0x0,0x7 00fe 1c08 | | Execute_Immediate Run_Utility,0x8 00ff e21c | | Load 0x1,0x1c 0100 00d9 | | Load_Top At_Offset_1 0101 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0102 00db | | Load_Top At_Offset_3 0103 8220 | | Call 0x1,0x20 0104 00d9 | | Load_Top At_Offset_1 0105 00d8 | | Load_Top At_Offset_0 0106 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0107 00da | | Load_Top At_Offset_2 0108 01da | | Execute Vector,Bounds 0109 00da | | Load_Top At_Offset_2 010a 01da | | Execute Vector,Bounds 010b 00da | | Load_Top At_Offset_2 010c 027f | | Execute Discrete,Equal 010d 7001 |p | Jump_Nonzero 0x10f 010e 08e0 | | Execute_Immediate Raise,0xe0 010f 00cd | | Action Spare6_Action 0110 027f | | Execute Discrete,Equal 0111 7001 |p | Jump_Nonzero 0x113 0112 08e0 | | Execute_Immediate Raise,0xe0 0113 00d2 | | Pop_Control Pop_Count_2 0114 00d9 | | Load_Top At_Offset_1 0115 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0116 8008 | | Call 0x0,0x8 0117 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 8009 | | Call 0x0,0x9 011d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011e 0000 0000 | | .XXX[0x2] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00db | | Load_Top At_Offset_3 0124 01db | | Execute Vector,Length 0125 e007 | | Load 0x0,0x7 0126 1c08 | | Execute_Immediate Run_Utility,0x8 0127 e21c | | Load 0x1,0x1c 0128 00d9 | | Load_Top At_Offset_1 0129 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 012a e5fe | | Load 0x2,-0x2 012b 8220 | | Call 0x1,0x20 012c 00d9 | | Load_Top At_Offset_1 012d 00d8 | | Load_Top At_Offset_0 012e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 012f 00da | | Load_Top At_Offset_2 0130 01da | | Execute Vector,Bounds 0131 00da | | Load_Top At_Offset_2 0132 01da | | Execute Vector,Bounds 0133 00da | | Load_Top At_Offset_2 0134 027f | | Execute Discrete,Equal 0135 7001 |p | Jump_Nonzero 0x137 0136 08e0 | | Execute_Immediate Raise,0xe0 0137 00cd | | Action Spare6_Action 0138 027f | | Execute Discrete,Equal 0139 7001 |p | Jump_Nonzero 0x13b 013a 08e0 | | Execute_Immediate Raise,0xe0 013b 00d2 | | Pop_Control Pop_Count_2 013c 00d9 | | Load_Top At_Offset_1 013d 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 013e 00db | | Load_Top At_Offset_3 013f 800a | | Call 0x0,0xa 0140 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0141 0000 0000 | | .BLANK 0000[0x7] 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 e5fd | | Load 0x2,-0x3 014c e5fe | | Load 0x2,-0x2 014d 00d8 | | Load_Top At_Offset_0 014e e20f | | Load 0x1,0xf 014f 0260 | ` | Execute Discrete,In_Type 0150 7001 |p | Jump_Nonzero 0x152 0151 0801 | | Execute_Immediate Raise,0x1 0152 821e | | Call 0x1,0x1e 0153 e5ff | | Load 0x2,-0x1 0154 800b | | Call 0x0,0xb 0155 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0156 0000 0000 | | .XXX[0x2] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015d | ] | .CONST 0x015d ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b 00e1 | | Load_Encached Boolean_Cache 015c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 015d BODY_0158: 015d e5fe | | Load 0x2,-0x2 015e e20e | | Load 0x1,0xe 015f 0092 023f | ?| Action Push_String_Extended,0x23f ; "'(" 0161 01cc | | Execute Vector,Catenate 0162 800c | | Call 0x0,0xc 0163 e5fe | | Load 0x2,-0x2 0164 800d | | Call 0x0,0xd 0165 4801 |H | Short_Literal 0x1 0166 e5fe | | Load 0x2,-0x2 0167 800e | | Call 0x0,0xe 0168 00cf | | Action Mark_Auxiliary 0169 e20f | | Load 0x1,0xf 016a 0265 | e | Execute Discrete,Reverse_Bounds 016b 0263 | c | Execute Discrete,Above_Bound 016c 702a |p* | Jump_Nonzero 0x197 016d 00db | | Load_Top At_Offset_3 016e 7005 |p | Jump_Nonzero 0x174 016f e5fe | | Load 0x2,-0x2 0170 0092 0240 | @| Action Push_String_Extended,0x240 ; ", " 0172 800f | | Call 0x0,0xf 0173 7802 |x | Jump 0x176 0174 4800 |H | Short_Literal 0x0 0175 a402 | | Store_Unchecked 0x2,0x2 0176 e5fe | | Load 0x2,-0x2 0177 00d9 | | Load_Top At_Offset_1 0178 e20f | | Load 0x1,0xf 0179 1c04 | | Execute_Immediate Run_Utility,0x4 017a e20f | | Load 0x1,0xf 017b 0122 | " | Execute Any,Make_Root_Type 017c 011c | | Execute Any,Convert_Unchecked 017d 1c01 | | Execute_Immediate Run_Utility,0x1 017e 0092 0241 | A| Action Push_String_Extended,0x241 ; " =>" 0180 01cc | | Execute Vector,Catenate 0181 800c | | Call 0x0,0xc 0182 e5fe | | Load 0x2,-0x2 0183 00d9 | | Load_Top At_Offset_1 0184 00d8 | | Load_Top At_Offset_0 0185 e20f | | Load 0x1,0xf 0186 0260 | ` | Execute Discrete,In_Type 0187 7001 |p | Jump_Nonzero 0x189 0188 0801 | | Execute_Immediate Raise,0x1 0189 e5ff | | Load 0x2,-0x1 018a 8216 | | Call 0x1,0x16 018b 8210 | | Call 0x1,0x10 018c 800c | | Call 0x0,0xc 018d 00c8 | | Action Pop_Auxiliary_Range 018e 00d9 | | Load_Top At_Offset_1 018f 00d9 | | Load_Top At_Offset_1 0190 027f | | Execute Discrete,Equal 0191 7004 |p | Jump_Nonzero 0x196 0192 e20f | | Load 0x1,0xf 0193 0122 | " | Execute Any,Make_Root_Type 0194 1c07 | | Execute_Immediate Run_Utility,0x7 0195 7fd7 | | Jump 0x16d 0196 00d2 | | Pop_Control Pop_Count_2 0197 00ce | | Action Pop_Auxiliary 0198 e5fe | | Load 0x2,-0x2 0199 8010 | | Call 0x0,0x10 019a e5fe | | Load 0x2,-0x2 019b 0092 0242 | B| Action Push_String_Extended,0x242 ; ")" 019d 800f | | Call 0x0,0xf 019e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 019f 0000 | | .XXX[0x1] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01af | | .CONST 0x01af ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0003 | | .CONST 0x0003 ; Number of locals 01a3 INIT_01a0: 01a3 e20f | | Load 0x1,0xf 01a4 026a | j | Execute Discrete,First 01a5 e20f | | Load 0x1,0xf 01a6 1c04 | | Execute_Immediate Run_Utility,0x4 01a7 00e3 | | Load_Encached Natural_Cache 01a8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01a9 e20f | | Load 0x1,0xf 01aa 0269 | i | Execute Discrete,Last 01ab e20f | | Load 0x1,0xf 01ac 1c04 | | Execute_Immediate Run_Utility,0x4 01ad 00e3 | | Load_Encached Natural_Cache 01ae 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01af BODY_01a0: 01af 00d8 | | Load_Top At_Offset_0 01b0 00da | | Load_Top At_Offset_2 01b1 0272 | r | Execute Discrete,Minus 01b2 0a01 | | Execute_Immediate Plus,0x1 01b3 00d8 | | Load_Top At_Offset_0 01b4 00e3 | | Load_Encached Natural_Cache 01b5 0260 | ` | Execute Discrete,In_Type 01b6 7001 |p | Jump_Nonzero 0x1b8 01b7 0801 | | Execute_Immediate Raise,0x1 01b8 00ca | | Action Exit_Nullary_Function 01b9 0000 0000 | | .BLANK 0000[0x7] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 e20f | | Load 0x1,0xf 01c5 1c04 | | Execute_Immediate Run_Utility,0x4 01c6 e20f | | Load 0x1,0xf 01c7 026a | j | Execute Discrete,First 01c8 e20f | | Load 0x1,0xf 01c9 1c04 | | Execute_Immediate Run_Utility,0x4 01ca 0272 | r | Execute Discrete,Minus 01cb 0a01 | | Execute_Immediate Plus,0x1 01cc 00d8 | | Load_Top At_Offset_0 01cd e011 | | Load 0x0,0x11 01ce 0260 | ` | Execute Discrete,In_Type 01cf 7001 |p | Jump_Nonzero 0x1d1 01d0 0801 | | Execute_Immediate Raise,0x1 01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d2 0000 0000 | | .BLANK 0000[0x6] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e2 | | .CONST 0x01e2 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db 4801 |H | Short_Literal 0x1 01dc 821d | | Call 0x1,0x1d 01dd e012 | | Load 0x0,0x12 01de 035b | [ | Declare_Type Array,Constrained 01df 0337 | 7 | Declare_Variable Array 01e0 00d8 | | Load_Top At_Offset_0 01e1 1c00 | | Execute_Immediate Run_Utility,0x0 01e2 BODY_01d8: 01e2 00cf | | Action Mark_Auxiliary 01e3 e5ff | | Load 0x2,-0x1 01e4 01da | | Execute Vector,Bounds 01e5 e20f | | Load 0x1,0xf 01e6 1c05 | | Execute_Immediate Run_Utility,0x5 01e7 00d0 | | Action Swap_Control 01e8 e20f | | Load 0x1,0xf 01e9 1c05 | | Execute_Immediate Run_Utility,0x5 01ea 0263 | c | Execute Discrete,Above_Bound 01eb 7018 |p | Jump_Nonzero 0x204 01ec 00d8 | | Load_Top At_Offset_0 01ed e20f | | Load 0x1,0xf 01ee 1c04 | | Execute_Immediate Run_Utility,0x4 01ef e5ff | | Load 0x2,-0x1 01f0 01d5 | | Execute Vector,Field_Reference 01f1 00d9 | | Load_Top At_Offset_1 01f2 00d8 | | Load_Top At_Offset_0 01f3 e20f | | Load 0x1,0xf 01f4 0260 | ` | Execute Discrete,In_Type 01f5 7001 |p | Jump_Nonzero 0x1f7 01f6 0801 | | Execute_Immediate Raise,0x1 01f7 821e | | Call 0x1,0x1e 01f8 e402 | | Load 0x2,0x2 01f9 01d6 | | Execute Vector,Field_Write 01fa 00c8 | | Action Pop_Auxiliary_Range 01fb 00d9 | | Load_Top At_Offset_1 01fc 00d9 | | Load_Top At_Offset_1 01fd 027f | | Execute Discrete,Equal 01fe 7004 |p | Jump_Nonzero 0x203 01ff e20f | | Load 0x1,0xf 0200 0122 | " | Execute Any,Make_Root_Type 0201 1c07 | | Execute_Immediate Run_Utility,0x7 0202 7fe9 | | Jump 0x1ec 0203 00d2 | | Pop_Control Pop_Count_2 0204 00ce | | Action Pop_Auxiliary 0205 00d8 | | Load_Top At_Offset_0 0206 e012 | | Load 0x0,0x12 0207 01c6 | | Execute Vector,Convert_To_Formal 0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0209 0000 0000 | | .BLANK 0000[0x7] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0218 | | .CONST 0x0218 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0002 | | .CONST 0x0002 ; Number of locals 0213 INIT_0210: 0213 4801 |H | Short_Literal 0x1 0214 821d | | Call 0x1,0x1d 0215 e013 | | Load 0x0,0x13 0216 035b | [ | Declare_Type Array,Constrained 0217 0337 | 7 | Declare_Variable Array 0218 BODY_0210: 0218 00cf | | Action Mark_Auxiliary 0219 e5ff | | Load 0x2,-0x1 021a 01da | | Execute Vector,Bounds 021b e20f | | Load 0x1,0xf 021c 1c05 | | Execute_Immediate Run_Utility,0x5 021d 00d0 | | Action Swap_Control 021e e20f | | Load 0x1,0xf 021f 1c05 | | Execute_Immediate Run_Utility,0x5 0220 0263 | c | Execute Discrete,Above_Bound 0221 7018 |p | Jump_Nonzero 0x23a 0222 00d8 | | Load_Top At_Offset_0 0223 e20f | | Load 0x1,0xf 0224 1c04 | | Execute_Immediate Run_Utility,0x4 0225 e5ff | | Load 0x2,-0x1 0226 01d7 | | Execute Vector,Field_Read 0227 00d9 | | Load_Top At_Offset_1 0228 00d8 | | Load_Top At_Offset_0 0229 e20f | | Load 0x1,0xf 022a 0260 | ` | Execute Discrete,In_Type 022b 7001 |p | Jump_Nonzero 0x22d 022c 0801 | | Execute_Immediate Raise,0x1 022d 821e | | Call 0x1,0x1e 022e e402 | | Load 0x2,0x2 022f 01d6 | | Execute Vector,Field_Write 0230 00c8 | | Action Pop_Auxiliary_Range 0231 00d9 | | Load_Top At_Offset_1 0232 00d9 | | Load_Top At_Offset_1 0233 027f | | Execute Discrete,Equal 0234 7004 |p | Jump_Nonzero 0x239 0235 e20f | | Load 0x1,0xf 0236 0122 | " | Execute Any,Make_Root_Type 0237 1c07 | | Execute_Immediate Run_Utility,0x7 0238 7fe9 | | Jump 0x222 0239 00d2 | | Pop_Control Pop_Count_2 023a 00ce | | Action Pop_Auxiliary 023b 00d8 | | Load_Top At_Offset_0 023c e013 | | Load 0x0,0x13 023d 01c6 | | Execute Vector,Convert_To_Formal 023e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023f ; -------------------------------------------------------------------------------------- 023f ; STRING TABLE 023f ; -------------------------------------------------------------------------------------- 023f 000a | | .STRTAB 0x000a->0x0244 ; "'(" 0240 000a | | .STRTAB 0x000a->0x0245 ; ", " 0241 000a | | .STRTAB 0x000a->0x0246 ; " =>" 0242 000b | | .STRTAB 0x000b->0x0247 ; ")" 0243 000a | | .STREND 0x000a->0x0248 0244 2728 2c20 |'(, | .STRTAB_STRINGS 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug Table 0248 ; -------------------------------------------------------------------------------------- 0248 0004 0004 | | .DEBUG4 0x0004,0x0004,0x61ee,0x0000,0x0001,0x0010 024e 000b 028e | | .DBG4T 0x000b,0x028e,0xc000,0x8000 0252 0035 02a6 | 5 | .DBG4T 0x0035,0x02a6,0xc000,0x0000 0256 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x1005,0x0000 025a 0073 02b6 | s | .DBG4T 0x0073,0x02b6,0x1002,0x0000 025e 009b 02b9 | | .DBG4T 0x009b,0x02b9,0x1002,0x0000 0262 00c3 02bc | | .DBG4T 0x00c3,0x02bc,0x1002,0x0000 0266 00eb 02c2 | | .DBG4T 0x00eb,0x02c2,0x1002,0x0000 026a 00fb 02c5 | | .DBG4T 0x00fb,0x02c5,0x1001,0x0000 026e 011b 02c8 | | .DBG4T 0x011b,0x02c8,0x1001,0x0000 0272 0123 02cb | # | .DBG4T 0x0123,0x02cb,0x1001,0x0000 0276 014b 02ce | K | .DBG4T 0x014b,0x02ce,0x1001,0x0000 027a 015b 02d1 | [ | .DBG4T 0x015b,0x02d1,0x1001,0x0000 027e 01a3 02df | | .DBG4T 0x01a3,0x02df,0x1002,0x0000 0282 01c3 02e4 | | .DBG4T 0x01c3,0x02e4,0x1002,0x0000 0286 01db 02e7 | | .DBG4T 0x01db,0x02e7,0x1002,0x0000 028a 0213 02ed | | .DBG4T 0x0213,0x02ed,0x1002,0x0000 028e ; -------------------------------------------------------------------------------------- 028e ; Debug chain 028e ; -------------------------------------------------------------------------------------- 028e 000b 0000 | | .DBGLEN 0x000b,0x0000 0290 000b 0016 | | .DBGLNO 0x000b,0x0016,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032 029b 0001 0002 | | .XXX[0xb] 029d 0003 0004 | | 029f 0006 0007 | | 02a1 0008 0009 | | 02a3 000a 000b | | 02a5 000c | | 02a6 ; -------------------------------------------------------------------------------------- 02a6 ; Debug chain 02a6 ; -------------------------------------------------------------------------------------- 02a6 000e 0000 | | .DBGLEN 0x000e,0x0000 02a8 0035 0039 | 5 9| .DBGLNO 0x0035,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051 02b6 ; -------------------------------------------------------------------------------------- 02b6 ; Debug chain 02b6 ; -------------------------------------------------------------------------------------- 02b6 0000 0001 | | .DBGLEN 0x0000,0x0001 02b8 0073 | s | .DBGLNO 0x0073 02b9 ; -------------------------------------------------------------------------------------- 02b9 ; Debug chain 02b9 ; -------------------------------------------------------------------------------------- 02b9 0000 0001 | | .DBGLEN 0x0000,0x0001 02bb 009b | | .DBGLNO 0x009b 02bc ; -------------------------------------------------------------------------------------- 02bc ; Debug chain 02bc ; -------------------------------------------------------------------------------------- 02bc 0001 0003 | | .DBGLEN 0x0001,0x0003 02be 00c3 00c6 | | .DBGLNO 0x00c3,0x00c6,0x00ca,0x00e3 02c2 ; -------------------------------------------------------------------------------------- 02c2 ; Debug chain 02c2 ; -------------------------------------------------------------------------------------- 02c2 0000 0001 | | .DBGLEN 0x0000,0x0001 02c4 00eb | | .DBGLNO 0x00eb 02c5 ; -------------------------------------------------------------------------------------- 02c5 ; Debug chain 02c5 ; -------------------------------------------------------------------------------------- 02c5 0000 0001 | | .DBGLEN 0x0000,0x0001 02c7 00fb | | .DBGLNO 0x00fb 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; Debug chain 02c8 ; -------------------------------------------------------------------------------------- 02c8 0000 0001 | | .DBGLEN 0x0000,0x0001 02ca 011b | | .DBGLNO 0x011b 02cb ; -------------------------------------------------------------------------------------- 02cb ; Debug chain 02cb ; -------------------------------------------------------------------------------------- 02cb 0000 0001 | | .DBGLEN 0x0000,0x0001 02cd 0123 | # | .DBGLNO 0x0123 02ce ; -------------------------------------------------------------------------------------- 02ce ; Debug chain 02ce ; -------------------------------------------------------------------------------------- 02ce 0000 0001 | | .DBGLEN 0x0000,0x0001 02d0 014b | K | .DBGLNO 0x014b 02d1 ; -------------------------------------------------------------------------------------- 02d1 ; Debug chain 02d1 ; -------------------------------------------------------------------------------------- 02d1 0001 000b | | .DBGLEN 0x0001,0x000b 02d3 015b 015d | [ ]| .DBGLNO 0x015b,0x015d,0x0163,0x0165,0x0169,0x016d,0x016f,0x0174,0x0176,0x0182,0x0198,0x019a 02df ; -------------------------------------------------------------------------------------- 02df ; Debug chain 02df ; -------------------------------------------------------------------------------------- 02df 0002 0001 | | .DBGLEN 0x0002,0x0001 02e1 01a3 01a9 | | .DBGLNO 0x01a3,0x01a9,0x01af 02e4 ; -------------------------------------------------------------------------------------- 02e4 ; Debug chain 02e4 ; -------------------------------------------------------------------------------------- 02e4 0000 0001 | | .DBGLEN 0x0000,0x0001 02e6 01c3 | | .DBGLNO 0x01c3 02e7 ; -------------------------------------------------------------------------------------- 02e7 ; Debug chain 02e7 ; -------------------------------------------------------------------------------------- 02e7 0001 0003 | | .DBGLEN 0x0001,0x0003 02e9 01db 01e3 | | .DBGLNO 0x01db,0x01e3,0x01ec,0x0205 02ed ; -------------------------------------------------------------------------------------- 02ed ; Debug chain 02ed ; -------------------------------------------------------------------------------------- 02ed 0001 0003 | | .DBGLEN 0x0001,0x0003 02ef 0213 0219 | | .DBGLNO 0x0213,0x0219,0x0222,0x023b 02f3 0000 0000 | | .BLANK 0000[0x10d]