|
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_7b78f4
└─⟦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 0260 | ` | .CONST 0x0260 ; 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 0050 | P | .CONST 0x0050 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4807 |H | Short_Literal 0x7 000d 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0012 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0014 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0016 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0018 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 001a 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 001c 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 001e 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0020 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0022 00c4 | | Action Make_Default 0023 e20d | | Load 0x1,0xd 0024 4801 |H | Short_Literal 0x1 0025 00e2 | | Load_Encached Integer_Cache 0026 4801 |H | Short_Literal 0x1 0027 e006 | | Load 0x0,0x6 0028 4801 |H | Short_Literal 0x1 0029 e007 | | Load 0x0,0x7 002a 4801 |H | Short_Literal 0x1 002b e008 | | Load 0x0,0x8 002c 4801 |H | Short_Literal 0x1 002d e009 | | Load 0x0,0x9 002e 4801 |H | Short_Literal 0x1 002f e008 | | Load 0x0,0x8 0030 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0032 4806 |H | Short_Literal 0x6 0033 4800 |H | Short_Literal 0x0 0034 4806 |H | Short_Literal 0x6 0035 4800 |H | Short_Literal 0x0 0036 4801 |H | Short_Literal 0x1 0037 031e | | Declare_Type Variant_Record,Defined,Visible 0038 4807 |H | Short_Literal 0x7 0039 00d9 | | Load_Top At_Offset_1 003a 1c08 | | Execute_Immediate Run_Utility,0x8 003b 0129 | ) | Execute Any,Make_Visible 003c c217 | | Store 0x1,0x17 003d 00bf | | Action Accept_Activation 003e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003f 00c7 | | Action Elaborate_Subprogram 0040 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0041 00c7 | | Action Elaborate_Subprogram 0042 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0043 00c7 | | Action Elaborate_Subprogram 0044 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0045 00c7 | | Action Elaborate_Subprogram 0046 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0047 00c7 | | Action Elaborate_Subprogram 0048 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0049 00c7 | | Action Elaborate_Subprogram 004a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004b 00c7 | | Action Elaborate_Subprogram 004c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004d 00c7 | | Action Elaborate_Subprogram 004e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 004f 00c7 | | Action Elaborate_Subprogram 0050 BODY_0008: 0050 00bc | | Action Signal_Activated 0051 00bb | | Action Signal_Completion 0052 0000 0000 | | .BLANK 0000[0x6] 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 4607 |F | Jump_Case 0x8 005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 005d 7807 |x | Jump 0x65 ; case 0x1 005e 780a |x | Jump 0x69 ; case 0x2 005f 780e |x | Jump 0x6e ; case 0x3 0060 7811 |x | Jump 0x72 ; case 0x4 0061 7812 |x | Jump 0x74 ; case 0x5 0062 7813 |x | Jump 0x76 ; case 0x6 0063 7816 |x | Jump 0x7a ; case 0x7 0064 4302 |C | .XXX[0x1] 0065 00da | | Load_Top At_Offset_2 0066 0091 0221 | !| Action Push_String_Extended_Indexed,0x221 ; "SENTENCE" 0068 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0069 00db | | Load_Top At_Offset_3 006a 00db | | Load_Top At_Offset_3 006b 00e0 | | Load_Encached Standard_Cache 006c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006e 00da | | Load_Top At_Offset_2 006f 00e0 | | Load_Encached Standard_Cache 0070 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0071 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0072 00db | | Load_Top At_Offset_3 0073 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0074 00db | | Load_Top At_Offset_3 0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0076 e20d | | Load 0x1,0xd 0077 00dc | | Load_Top At_Offset_4 0078 0267 | g | Execute Discrete,Predecessor 0079 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007a e20d | | Load 0x1,0xd 007b 00dc | | Load_Top At_Offset_4 007c 0268 | h | Execute Discrete,Successor 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e 0000 0000 | | .XXX[0x2] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 4800 |H | Short_Literal 0x0 0084 e218 | | Load 0x1,0x18 0085 1c08 | | Execute_Immediate Run_Utility,0x8 0086 00db | | Load_Top At_Offset_3 0087 00d9 | | Load_Top At_Offset_1 0088 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0089 e5fe | | Load 0x2,-0x2 008a 016d | m | Execute Variant_Record,Structure_Write 008b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4801 |H | Short_Literal 0x1 0094 e218 | | Load 0x1,0x18 0095 1c08 | | Execute_Immediate Run_Utility,0x8 0096 00db | | Load_Top At_Offset_3 0097 00d9 | | Load_Top At_Offset_1 0098 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0099 e5fe | | Load 0x2,-0x2 009a 016d | m | Execute Variant_Record,Structure_Write 009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009c 0000 0000 | | .BLANK 0000[0x4] 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 4802 |H | Short_Literal 0x2 00a4 e218 | | Load 0x1,0x18 00a5 1c08 | | Execute_Immediate Run_Utility,0x8 00a6 00db | | Load_Top At_Offset_3 00a7 00d9 | | Load_Top At_Offset_1 00a8 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 00a9 e5fe | | Load 0x2,-0x2 00aa 016d | m | Execute Variant_Record,Structure_Write 00ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ac 0000 0000 | | .BLANK 0000[0x4] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 4803 |H | Short_Literal 0x3 00b4 e218 | | Load 0x1,0x18 00b5 1c08 | | Execute_Immediate Run_Utility,0x8 00b6 00db | | Load_Top At_Offset_3 00b7 00d9 | | Load_Top At_Offset_1 00b8 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 00b9 e5fe | | Load 0x2,-0x2 00ba 016d | m | Execute Variant_Record,Structure_Write 00bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4804 |H | Short_Literal 0x4 00c4 e218 | | Load 0x1,0x18 00c5 1c08 | | Execute_Immediate Run_Utility,0x8 00c6 00db | | Load_Top At_Offset_3 00c7 00d9 | | Load_Top At_Offset_1 00c8 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 00c9 e5fe | | Load 0x2,-0x2 00ca 016d | m | Execute Variant_Record,Structure_Write 00cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 4805 |H | Short_Literal 0x5 00d4 e218 | | Load 0x1,0x18 00d5 1c08 | | Execute_Immediate Run_Utility,0x8 00d6 00db | | Load_Top At_Offset_3 00d7 016d | m | Execute Variant_Record,Structure_Write 00d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d9 0000 0000 | | .BLANK 0000[0x7] 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 4806 |H | Short_Literal 0x6 00e4 e218 | | Load 0x1,0x18 00e5 1c08 | | Execute_Immediate Run_Utility,0x8 00e6 00db | | Load_Top At_Offset_3 00e7 00d9 | | Load_Top At_Offset_1 00e8 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 00e9 e5fe | | Load 0x2,-0x2 00ea 016d | m | Execute Variant_Record,Structure_Write 00eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00f5 4607 |F | Jump_Case 0x8 00f6 7808 |x | Jump 0xff ; case 0x0 00f7 787a |xz | Jump 0x172 ; case 0x1 00f8 780d |x | Jump 0x106 ; case 0x2 00f9 7813 |x | Jump 0x10d ; case 0x3 00fa 7819 |x | Jump 0x114 ; case 0x4 00fb 782a |x* | Jump 0x126 ; case 0x5 00fc 785b |x[ | Jump 0x158 ; case 0x6 00fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7 00fe 4502 |E | .XXX[0x1] 00ff e00a | | Load 0x0,0xa 0100 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0101 00db | | Load_Top At_Offset_3 0102 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0103 800b | | Call 0x0,0xb 0104 800c | | Call 0x0,0xc 0105 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0106 e00a | | Load 0x0,0xa 0107 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0108 00db | | Load_Top At_Offset_3 0109 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 010a 800d | | Call 0x0,0xd 010b 800c | | Call 0x0,0xc 010c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010d e00a | | Load 0x0,0xa 010e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 010f 00db | | Load_Top At_Offset_3 0110 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 0111 800e | | Call 0x0,0xe 0112 800c | | Call 0x0,0xc 0113 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0114 00da | | Load_Top At_Offset_2 0115 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0116 800f | | Call 0x0,0xf 0117 680d |h | Jump_Zero 0x125 0118 e00a | | Load 0x0,0xa 0119 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 011a 00db | | Load_Top At_Offset_3 011b 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 011c 8010 | | Call 0x0,0x10 011d 00d8 | | Load_Top At_Offset_0 011e 00e4 | | Load_Encached Positive_Cache 011f 0260 | ` | Execute Discrete,In_Type 0120 7001 |p | Jump_Nonzero 0x122 0121 0801 | | Execute_Immediate Raise,0x1 0122 8011 | | Call 0x0,0x11 0123 8012 | | Call 0x0,0x12 0124 800c | | Call 0x0,0xc 0125 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0126 8011 | | Call 0x0,0x11 0127 8013 | | Call 0x0,0x13 0128 00cf | | Action Mark_Auxiliary 0129 7827 |x' | Jump 0x151 012a 8011 | | Call 0x0,0x11 012b 8014 | | Call 0x0,0x14 012c 8015 | | Call 0x0,0x15 012d 00d8 | | Load_Top At_Offset_0 012e 00e4 | | Load_Encached Positive_Cache 012f 0260 | ` | Execute Discrete,In_Type 0130 7001 |p | Jump_Nonzero 0x132 0131 0801 | | Execute_Immediate Raise,0x1 0132 8011 | | Call 0x0,0x11 0133 8016 | | Call 0x0,0x16 0134 0092 0229 | )| Action Push_String_Extended,0x229 ; "normal" 0136 8017 | | Call 0x0,0x17 0137 027f | | Execute Discrete,Equal 0138 6815 |h | Jump_Zero 0x14e 0139 e00a | | Load 0x0,0xa 013a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 013b 8011 | | Call 0x0,0x11 013c 8014 | | Call 0x0,0x14 013d 8018 | | Call 0x0,0x18 013e 00d8 | | Load_Top At_Offset_0 013f 00e4 | | Load_Encached Positive_Cache 0140 0260 | ` | Execute Discrete,In_Type 0141 7001 |p | Jump_Nonzero 0x143 0142 0801 | | Execute_Immediate Raise,0x1 0143 8011 | | Call 0x0,0x11 0144 8012 | | Call 0x0,0x12 0145 0092 022a | *| Action Push_String_Extended,0x22a ; " : " 0147 01cc | | Execute Vector,Catenate 0148 8011 | | Call 0x0,0x11 0149 8014 | | Call 0x0,0x14 014a 01cc | | Execute Vector,Catenate 014b 800c | | Call 0x0,0xc 014c 4801 |H | Short_Literal 0x1 014d 8019 | | Call 0x0,0x19 014e 8011 | | Call 0x0,0x11 014f 801a | | Call 0x0,0x1a 0150 00c9 | | Action Pop_Auxiliary_Loop 0151 8011 | | Call 0x0,0x11 0152 801b | | Call 0x0,0x1b 0153 6fd6 |o | Jump_Zero 0x12a 0154 00ce | | Action Pop_Auxiliary 0155 4805 |H | Short_Literal 0x5 0156 8019 | | Call 0x0,0x19 0157 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0158 801c | | Call 0x0,0x1c 0159 00cf | | Action Mark_Auxiliary 015a 7813 |x | Jump 0x16e 015b 801d | | Call 0x0,0x1d 015c e5ff | | Load 0x2,-0x1 015d 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7 015e 801e | | Call 0x0,0x1e 015f 027f | | Execute Discrete,Equal 0160 801f | | Call 0x0,0x1f 0161 8020 | | Call 0x0,0x20 0162 01de | | Execute Vector,Not_Equal 0163 0279 | y | Execute Discrete,And 0164 6807 |h | Jump_Zero 0x16c 0165 e00a | | Load 0x0,0xa 0166 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0167 8020 | | Call 0x0,0x20 0168 0092 022b | +| Action Push_String_Extended,0x22b ; " " 016a 01cc | | Execute Vector,Catenate 016b 800c | | Call 0x0,0xc 016c 8021 | ! | Call 0x0,0x21 016d 00c9 | | Action Pop_Auxiliary_Loop 016e 8022 | " | Call 0x0,0x22 016f 6feb |o | Jump_Zero 0x15b 0170 00ce | | Action Pop_Auxiliary 0171 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0172 e00a | | Load 0x0,0xa 0173 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0174 00db | | Load_Top At_Offset_3 0175 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0176 00e0 | | Load_Encached Standard_Cache 0177 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0178 800c | | Call 0x0,0xc 0179 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 0092 022c | ,| Action Push_String_Extended,0x22c ; "View : Kind : " 0185 00db | | Load_Top At_Offset_3 0186 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0187 e20d | | Load 0x1,0xd 0188 011c | | Execute Any,Convert_Unchecked 0189 1c01 | | Execute_Immediate Run_Utility,0x1 018a 01cc | | Execute Vector,Catenate 018b 0092 022d | -| Action Push_String_Extended,0x22d ; " Image : " 018d 01cc | | Execute Vector,Catenate 018e e023 | # | Load 0x0,0x23 018f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0190 00da | | Load_Top At_Offset_2 0191 8215 | | Call 0x1,0x15 0192 4801 |H | Short_Literal 0x1 0193 e023 | # | Load 0x0,0x23 0194 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0195 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0196 0000 0000 | | .XXX[0x2] 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 4609 |F | Jump_Case 0xa 019c 7809 |x | Jump 0x1a6 ; case 0x0 019d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 019e 7837 |x7 | Jump 0x1d6 ; case 0x2 019f 783a |x: | Jump 0x1da ; case 0x3 01a0 787f |x | Jump 0x220 ; case 0x4 01a1 787e |x~ | Jump 0x220 ; case 0x5 01a2 783d |x= | Jump 0x1e0 ; case 0x6 01a3 7854 |xT | Jump 0x1f8 ; case 0x7 01a4 7870 |xp | Jump 0x215 ; case 0x8 01a5 7876 |xv | Jump 0x21c ; case 0x9 01a6 00da | | Load_Top At_Offset_2 01a7 016c | l | Execute Variant_Record,Is_Constrained 01a8 7009 |p | Jump_Nonzero 0x1b2 01a9 00cf | | Action Mark_Auxiliary 01aa 4807 |H | Short_Literal 0x7 01ab e5ff | | Load 0x2,-0x1 01ac 1c08 | | Execute_Immediate Run_Utility,0x8 01ad 00d8 | | Load_Top At_Offset_0 01ae 1c00 | | Execute_Immediate Run_Utility,0x0 01af c5ff | | Store 0x2,-0x1 01b0 00ce | | Action Pop_Auxiliary 01b1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01b2 00da | | Load_Top At_Offset_2 01b3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01b4 4607 |F | Jump_Case 0x8 01b5 780c |x | Jump 0x1c2 ; case 0x0 01b6 7807 |x | Jump 0x1be ; case 0x1 01b7 780e |x | Jump 0x1c6 ; case 0x2 01b8 7811 |x | Jump 0x1ca ; case 0x3 01b9 7814 |x | Jump 0x1ce ; case 0x4 01ba 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 01bb 7816 |x | Jump 0x1d2 ; case 0x6 01bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 01bd 4302 |C | .XXX[0x1] 01be 4800 |H | Short_Literal 0x0 01bf 00db | | Load_Top At_Offset_3 01c0 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 01c1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01c2 e002 | | Load 0x0,0x2 01c3 00db | | Load_Top At_Offset_3 01c4 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01c6 e003 | | Load 0x0,0x3 01c7 00db | | Load_Top At_Offset_3 01c8 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 01c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01ca e004 | | Load 0x0,0x4 01cb 00db | | Load_Top At_Offset_3 01cc 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 01cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01ce e005 | | Load 0x0,0x5 01cf 00db | | Load_Top At_Offset_3 01d0 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 01d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01d2 e004 | | Load 0x0,0x4 01d3 00db | | Load_Top At_Offset_3 01d4 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 01d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01d6 4801 |H | Short_Literal 0x1 01d7 4807 |H | Short_Literal 0x7 01d8 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 01d9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01da e5fd | | Load 0x2,-0x3 01db 00db | | Load_Top At_Offset_3 01dc 1c07 | | Execute_Immediate Run_Utility,0x7 01dd e5fe | | Load 0x2,-0x2 01de 0306 | | Complete_Type Variant_Record,By_Renaming 01df 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 01e0 00db | | Load_Top At_Offset_3 01e1 4607 |F | Jump_Case 0x8 01e2 780b |x | Jump 0x1ee ; case 0x0 01e3 7808 |x | Jump 0x1ec ; case 0x1 01e4 780b |x | Jump 0x1f0 ; case 0x2 01e5 780c |x | Jump 0x1f2 ; case 0x3 01e6 780d |x | Jump 0x1f4 ; case 0x4 01e7 7802 |x | Jump 0x1ea ; case 0x5 01e8 780d |x | Jump 0x1f6 ; case 0x6 01e9 7800 |x | Jump 0x1ea ; case 0x7 01ea 48ff |H | Short_Literal 0xff 01eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ec 4801 |H | Short_Literal 0x1 01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ee 4802 |H | Short_Literal 0x2 01ef 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f0 4803 |H | Short_Literal 0x3 01f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f2 4804 |H | Short_Literal 0x4 01f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f4 4805 |H | Short_Literal 0x5 01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f6 4806 |H | Short_Literal 0x6 01f7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f8 00db | | Load_Top At_Offset_3 01f9 e5fe | | Load 0x2,-0x2 01fa 4607 |F | Jump_Case 0x8 01fb 780b |x | Jump 0x207 ; case 0x0 01fc 7808 |x | Jump 0x205 ; case 0x1 01fd 780b |x | Jump 0x209 ; case 0x2 01fe 780c |x | Jump 0x20b ; case 0x3 01ff 780d |x | Jump 0x20d ; case 0x4 0200 780e |x | Jump 0x20f ; case 0x5 0201 780f |x | Jump 0x211 ; case 0x6 0202 7800 |x | Jump 0x203 ; case 0x7 0203 48ff |H | Short_Literal 0xff 0204 780d |x | Jump 0x212 0205 4801 |H | Short_Literal 0x1 0206 780b |x | Jump 0x212 0207 4802 |H | Short_Literal 0x2 0208 7809 |x | Jump 0x212 0209 4803 |H | Short_Literal 0x3 020a 7807 |x | Jump 0x212 020b 4804 |H | Short_Literal 0x4 020c 7805 |x | Jump 0x212 020d 4805 |H | Short_Literal 0x5 020e 7803 |x | Jump 0x212 020f 48ff |H | Short_Literal 0xff 0210 7801 |x | Jump 0x212 0211 4806 |H | Short_Literal 0x6 0212 e5ff | | Load 0x2,-0x1 0213 031b | | Declare_Type Variant_Record,Constrained 0214 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0215 00db | | Load_Top At_Offset_3 0216 e5fe | | Load 0x2,-0x2 0217 e5ff | | Load 0x2,-0x1 0218 1c06 | | Execute_Immediate Run_Utility,0x6 0219 e5ff | | Load 0x2,-0x1 021a 02fc | | Declare_Variable Variant_Record,With_Constraint 021b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 021c 4807 |H | Short_Literal 0x7 021d 00db | | Load_Top At_Offset_3 021e 1c07 | | Execute_Immediate Run_Utility,0x7 021f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0220 0869 | i | Execute_Immediate Raise,0x69 0221 ; -------------------------------------------------------------------------------------- 0221 ; STRING TABLE 0221 ; -------------------------------------------------------------------------------------- 0221 001c | | .STRTAB 0x001c->0x022f ; "SENTENCE" 0222 0022 | " | .STRTAB 0x0022->0x0233 ; "NUMBER" 0223 0026 | & | .STRTAB 0x0026->0x0236 ; "SINGLE_ATTRIBUTE" 0224 0034 | 4 | .STRTAB 0x0034->0x023e ; "NAME" 0225 0036 | 6 | .STRTAB 0x0036->0x0240 ; "SINGLE_EXIT" 0226 003f | ? | .STRTAB 0x003f->0x0245 ; "EXITS" 0227 0042 | B | .STRTAB 0x0042->0x0248 ; "CONTENTS" 0228 0048 | H | .STRTAB 0x0048->0x024c ; "UNKNOWN" 0229 004d | M | .STRTAB 0x004d->0x024f ; "normal" 022a 0051 | Q | .STRTAB 0x0051->0x0252 ; " : " 022b 0052 | R | .STRTAB 0x0052->0x0254 ; " " 022c 0051 | Q | .STRTAB 0x0051->0x0254 ; "View : Kind : " 022d 005d | ] | .STRTAB 0x005d->0x025b ; " Image : " 022e 0064 | d | .STREND 0x0064->0x0260 022f 5345 4e54 |SENT| .STRTAB_STRINGS 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug Table 0260 ; -------------------------------------------------------------------------------------- 0260 0004 0008 | | .DEBUG4 0x0004,0x0008,0xffe0,0x0000,0x0001,0x000d 0266 000b 029a | | .DBG4T 0x000b,0x029a,0x8000,0x8000 026a 003e 02b6 | > | .DBG4T 0x003e,0x02b6,0x8000,0x0000 026e 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x0005,0x0000 0272 0083 02c1 | | .DBG4T 0x0083,0x02c1,0x0001,0x0000 0276 0093 02c4 | | .DBG4T 0x0093,0x02c4,0x0001,0x0000 027a 00a3 02c7 | | .DBG4T 0x00a3,0x02c7,0x0001,0x0000 027e 00b3 02ca | | .DBG4T 0x00b3,0x02ca,0x0001,0x0000 0282 00c3 02cd | | .DBG4T 0x00c3,0x02cd,0x0001,0x0000 0286 00d3 02d0 | | .DBG4T 0x00d3,0x02d0,0x0001,0x0000 028a 00e3 02d3 | | .DBG4T 0x00e3,0x02d3,0x0001,0x0000 028e 00f3 02d6 | | .DBG4T 0x00f3,0x02d6,0x0001,0x4000 0292 0183 02fe | | .DBG4T 0x0183,0x02fe,0x0001,0x0000 0296 019b 0000 | | .DBG4T 0x019b,0x0000,0x0005,0x0000 029a ; -------------------------------------------------------------------------------------- 029a ; Debug chain 029a ; -------------------------------------------------------------------------------------- 029a 000d 0000 | | .DBGLEN 0x000d,0x0000 029c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0023,0x0038 02a9 0001 0003 | | .XXX[0xd] 02ab 0004 0005 | | 02ad 0006 0007 | | 02af 0008 0009 | | 02b1 000a 000b | | 02b3 000c 000d | | 02b5 000e | | 02b6 ; -------------------------------------------------------------------------------------- 02b6 ; Debug chain 02b6 ; -------------------------------------------------------------------------------------- 02b6 0009 0000 | | .DBGLEN 0x0009,0x0000 02b8 003e 0040 | > @| .DBGLNO 0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e 02c1 ; -------------------------------------------------------------------------------------- 02c1 ; Debug chain 02c1 ; -------------------------------------------------------------------------------------- 02c1 0000 0001 | | .DBGLEN 0x0000,0x0001 02c3 0083 | | .DBGLNO 0x0083 02c4 ; -------------------------------------------------------------------------------------- 02c4 ; Debug chain 02c4 ; -------------------------------------------------------------------------------------- 02c4 0000 0001 | | .DBGLEN 0x0000,0x0001 02c6 0093 | | .DBGLNO 0x0093 02c7 ; -------------------------------------------------------------------------------------- 02c7 ; Debug chain 02c7 ; -------------------------------------------------------------------------------------- 02c7 0000 0001 | | .DBGLEN 0x0000,0x0001 02c9 00a3 | | .DBGLNO 0x00a3 02ca ; -------------------------------------------------------------------------------------- 02ca ; Debug chain 02ca ; -------------------------------------------------------------------------------------- 02ca 0000 0001 | | .DBGLEN 0x0000,0x0001 02cc 00b3 | | .DBGLNO 0x00b3 02cd ; -------------------------------------------------------------------------------------- 02cd ; Debug chain 02cd ; -------------------------------------------------------------------------------------- 02cd 0000 0001 | | .DBGLEN 0x0000,0x0001 02cf 00c3 | | .DBGLNO 0x00c3 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; Debug chain 02d0 ; -------------------------------------------------------------------------------------- 02d0 0000 0001 | | .DBGLEN 0x0000,0x0001 02d2 00d3 | | .DBGLNO 0x00d3 02d3 ; -------------------------------------------------------------------------------------- 02d3 ; Debug chain 02d3 ; -------------------------------------------------------------------------------------- 02d3 0000 0001 | | .DBGLEN 0x0000,0x0001 02d5 00e3 | | .DBGLNO 0x00e3 02d6 ; -------------------------------------------------------------------------------------- 02d6 ; Debug chain 02d6 ; -------------------------------------------------------------------------------------- 02d6 0000 0013 | | .DBGLEN 0x0000,0x0013 02d8 00f3 00ff | | .DBGLNO 0x00f3,0x00ff,0x0106,0x010d,0x0114,0x0118,0x0126,0x012a,0x0139,0x014c,0x014e,0x0151,0x0155,0x0158,0x015b,0x0165,0x016c,0x016e,0x0172 02eb 0001 0003 | | .XXX[0x13] 02ed 0004 0005 | | 02ef 0006 0007 | | 02f1 0008 000a | | 02f3 000b 000c | | 02f5 000d 0009 | | 02f7 000e 000f | | 02f9 0011 0012 | | 02fb 0013 0010 | | 02fd 0002 | | 02fe ; -------------------------------------------------------------------------------------- 02fe ; Debug chain 02fe ; -------------------------------------------------------------------------------------- 02fe 0000 0003 | | .DBGLEN 0x0000,0x0003 0300 0183 0190 | | .DBGLNO 0x0183,0x0190,0x0192 0303 0000 0000 | | .BLANK 0000[0xfd]