|
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_115cc7
└─⟦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 0040 | @ | .CONST 0x0040 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 0266 | f | Execute Discrete,Bounds
000d e002 | | Load 0x0,0x2
000e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000f 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
0011 4801 |H | Short_Literal 0x1
0012 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0013 00e3 | | Load_Encached Natural_Cache
0014 e003 | | Load 0x0,0x3
0015 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0016 4801 |H | Short_Literal 0x1
0017 6048 |`H | Indirect_Literal Discrete,0x60,{0x00000000, 0x7fffffff}
0018 e20d | | Load 0x1,0xd
0019 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
001a 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
001c 4800 |H | Short_Literal 0x0
001d 4801 |H | Short_Literal 0x1
001e 4801 |H | Short_Literal 0x1
001f 4800 |H | Short_Literal 0x0
0020 4801 |H | Short_Literal 0x1
0021 4801 |H | Short_Literal 0x1
0022 031e | | Declare_Type Variant_Record,Defined,Visible
0023 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0025 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0027 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0029 00bf | | Action Accept_Activation
002a e004 | | Load 0x0,0x4
002b e005 | | Load 0x0,0x5
002c e002 | | Load 0x0,0x2
002d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002e e006 | | Load 0x0,0x6
002f 0387 | | Declare_Variable Package
0030 00d8 | | Load_Top At_Offset_0
0031 020f | | Execute Module,Activate
0032 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call
0034 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call
0036 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call
0038 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call
003a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003b 00c7 | | Action Elaborate_Subprogram
003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003d 00c7 | | Action Elaborate_Subprogram
003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003f 00c7 | | Action Elaborate_Subprogram
0040 BODY_0008:
0040 00bc | | Action Signal_Activated
0041 00bb | | Action Signal_Completion
0042 0000 0000 | | .BLANK 0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 00d1 | | Pop_Control Pop_Count_1
004c 00da | | Load_Top At_Offset_2
004d 01dc | | Execute Vector,Last
004e 00db | | Load_Top At_Offset_3
004f 01dd | | Execute Vector,First
0050 0263 | c | Execute Discrete,Above_Bound
0051 700a |p | Jump_Nonzero 0x5c
0052 00d8 | | Load_Top At_Offset_0
0053 e5ff | | Load 0x2,-0x1
0054 01d5 | | Execute Vector,Field_Reference
0055 0125 | % | Execute Any,Set_Constraint
0056 00d8 | | Load_Top At_Offset_0
0057 e5ff | | Load 0x2,-0x1
0058 01d5 | | Execute Vector,Field_Reference
0059 1c00 | | Execute_Immediate Run_Utility,0x0
005a 0a01 | | Execute_Immediate Plus,0x1
005b 7ff4 | | Jump 0x50
005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
005d 0000 0000 | | .XXX[0x3]
005f 0000 | |
0060 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0064 0000 0000 | | .BLANK 0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0075 | u | .CONST 0x0075 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0004 | | .CONST 0x0004 ; Number of locals
006b INIT_0068:
006b e212 | | Load 0x1,0x12
006c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
006d e002 | | Load 0x0,0x2
006e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006f 02c7 | | Declare_Variable Any
0070 e5ff | | Load 0x2,-0x1
0071 8007 | | Call 0x0,0x7
0072 a403 | | Store_Unchecked 0x2,0x3
0073 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call
0075 BODY_0068:
0075 e212 | | Load 0x1,0x12
0076 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0077 e212 | | Load 0x1,0x12
0078 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0079 003b | ; | Store_Top Access,At_Offset_3
007a e5ff | | Load 0x2,-0x1
007b 8404 | | Call 0x2,0x4
007c 00da | | Load_Top At_Offset_2
007d 8213 | | Call 0x1,0x13
007e 00db | | Load_Top At_Offset_3
007f 8214 | | Call 0x1,0x14
0080 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0081 0000 0000 | | .BLANK 0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0095 | | .CONST 0x0095 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0004 | | .CONST 0x0004 ; Number of locals
008b INIT_0088:
008b e212 | | Load 0x1,0x12
008c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
008d e002 | | Load 0x0,0x2
008e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
008f 02c7 | | Declare_Variable Any
0090 e5ff | | Load 0x2,-0x1
0091 8007 | | Call 0x0,0x7
0092 a403 | | Store_Unchecked 0x2,0x3
0093 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0095 BODY_0088:
0095 e212 | | Load 0x1,0x12
0096 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0097 e212 | | Load 0x1,0x12
0098 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0099 003b | ; | Store_Top Access,At_Offset_3
009a e5ff | | Load 0x2,-0x1
009b 8404 | | Call 0x2,0x4
009c 00da | | Load_Top At_Offset_2
009d 8213 | | Call 0x1,0x13
009e 00db | | Load_Top At_Offset_3
009f 8214 | | Call 0x1,0x14
00a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a1 0000 0000 | | .BLANK 0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4801 |H | Short_Literal 0x1
00ac e5fe | | Load 0x2,-0x2
00ad 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ae e003 | | Load 0x0,0x3
00af 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b0 7013 |p | Jump_Nonzero 0xc4
00b1 00cf | | Action Mark_Auxiliary
00b2 e5fe | | Load 0x2,-0x2
00b3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00b4 01dc | | Execute Vector,Last
00b5 4801 |H | Short_Literal 0x1
00b6 0263 | c | Execute Discrete,Above_Bound
00b7 700b |p | Jump_Nonzero 0xc3
00b8 e5ff | | Load 0x2,-0x1
00b9 00d9 | | Load_Top At_Offset_1
00ba e5fe | | Load 0x2,-0x2
00bb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00bc 01d7 | | Execute Vector,Field_Read
00bd 012f | / | Execute Any,Equal
00be 6802 |h | Jump_Zero 0xc1
00bf 4801 |H | Short_Literal 0x1
00c0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c1 00c8 | | Action Pop_Auxiliary_Range
00c2 3ff5 |? | Loop_Increasing 0xb8
00c3 00ce | | Action Pop_Auxiliary
00c4 4800 |H | Short_Literal 0x0
00c5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cf | | .CONST 0x00cf ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0003 | | .CONST 0x0003 ; Number of locals
00cb INIT_00c8:
00cb e212 | | Load 0x1,0x12
00cc 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00cd 00e2 | | Load_Encached Integer_Cache
00ce 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00cf BODY_00c8:
00cf e212 | | Load 0x1,0x12
00d0 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00d1 e5ff | | Load 0x2,-0x1
00d2 e212 | | Load 0x1,0x12
00d3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00d4 003a | : | Store_Top Access,At_Offset_2
00d5 00cf | | Action Mark_Auxiliary
00d6 7808 |x | Jump 0xdf
00d7 00d9 | | Load_Top At_Offset_1
00d8 0a01 | | Execute_Immediate Plus,0x1
00d9 005a | Z | Store_Top Discrete,At_Offset_2
00da 00da | | Load_Top At_Offset_2
00db e212 | | Load 0x1,0x12
00dc 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00dd 003b | ; | Store_Top Access,At_Offset_3
00de 00c9 | | Action Pop_Auxiliary_Loop
00df 00da | | Load_Top At_Offset_2
00e0 e212 | | Load 0x1,0x12
00e1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e2 6ff4 |o | Jump_Zero 0xd7
00e3 00ce | | Action Pop_Auxiliary
00e4 00d8 | | Load_Top At_Offset_0
00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f4 | | .CONST 0x00f4 ; Address of begin
00e9 011b | | .CONST 0x011b ; Address of exception handler
00ea 0004 | | .CONST 0x0004 ; Number of locals
00eb INIT_00e8:
00eb 00db | | Load_Top At_Offset_3
00ec e20e | | Load 0x1,0xe
00ed 1c08 | | Execute_Immediate Run_Utility,0x8
00ee 00d8 | | Load_Top At_Offset_0
00ef 1c00 | | Execute_Immediate Run_Utility,0x0
00f0 e212 | | Load 0x1,0x12
00f1 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00f2 00e2 | | Load_Encached Integer_Cache
00f3 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00f4 BODY_00e8:
00f4 e212 | | Load 0x1,0x12
00f5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00f6 e5ff | | Load 0x2,-0x1
00f7 e212 | | Load 0x1,0x12
00f8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00f9 003a | : | Store_Top Access,At_Offset_2
00fa 00cf | | Action Mark_Auxiliary
00fb 780f |x | Jump 0x10b
00fc 00da | | Load_Top At_Offset_2
00fd e212 | | Load 0x1,0x12
00fe 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ff 00da | | Load_Top At_Offset_2
0100 e402 | | Load 0x2,0x2
0101 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0102 01d6 | | Execute Vector,Field_Write
0103 00d9 | | Load_Top At_Offset_1
0104 0a01 | | Execute_Immediate Plus,0x1
0105 005a | Z | Store_Top Discrete,At_Offset_2
0106 00da | | Load_Top At_Offset_2
0107 e212 | | Load 0x1,0x12
0108 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0109 003b | ; | Store_Top Access,At_Offset_3
010a 00c9 | | Action Pop_Auxiliary_Loop
010b 00da | | Load_Top At_Offset_2
010c e212 | | Load 0x1,0x12
010d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
010e 6fed |o | Jump_Zero 0xfc
010f 00ce | | Action Pop_Auxiliary
0110 00da | | Load_Top At_Offset_2
0111 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0112 4800 |H | Short_Literal 0x0
0113 00ea | | Load_Encached Null_String_Cache
0114 00ea | | Load_Encached Null_String_Cache
0115 e003 | | Load 0x0,0x3
0116 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0117 00db | | Load_Top At_Offset_3
0118 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0119 00da | | Load_Top At_Offset_2
011a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011b TRAP_00e8:
011b 0007 | | Action Break_Optional
011c 00db | | Load_Top At_Offset_3
011d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
011e 4802 |H | Short_Literal 0x2
011f 00ea | | Load_Encached Null_String_Cache
0120 00ea | | Load_Encached Null_String_Cache
0121 e003 | | Load 0x0,0x3
0122 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0123 e402 | | Load 0x2,0x2
0124 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0125 00db | | Load_Top At_Offset_3
0126 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0127 0000 | | .XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0130 | 0 | .CONST 0x0130 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b e002 | | Load 0x0,0x2
012c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012d 02c7 | | Declare_Variable Any
012e 00d8 | | Load_Top At_Offset_0
012f 1c00 | | Execute_Immediate Run_Utility,0x0
0130 BODY_0128:
0130 00db | | Load_Top At_Offset_3
0131 8007 | | Call 0x0,0x7
0132 e002 | | Load 0x0,0x2
0133 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0134 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0135 0092 0245 | E| Action Push_String_Extended,0x245 ; ".state."
0137 01cc | | Execute Vector,Catenate
0138 e5fe | | Load 0x2,-0x2
0139 01cc | | Execute Vector,Catenate
013a 8008 | | Call 0x0,0x8
013b c402 | | Store 0x2,0x2
013c e002 | | Load 0x0,0x2
013d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013e e5fd | | Load 0x2,-0x3
013f 0120 | | Execute Any,Is_Value
0140 6803 |h | Jump_Zero 0x144
0141 e009 | | Load 0x0,0x9
0142 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0143 7801 |x | Jump 0x145
0144 e5fd | | Load 0x2,-0x3
0145 4800 |H | Short_Literal 0x0
0146 4800 |H | Short_Literal 0x0
0147 e00a | | Load 0x0,0xa
0148 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0149 e402 | | Load 0x2,0x2
014a e009 | | Load 0x0,0x9
014b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014c c5fd | | Store 0x2,-0x3
014d c5fc | | Store 0x2,-0x4
014e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
014f 0000 | | .XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0155 | U | .CONST 0x0155 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 e002 | | Load 0x0,0x2
0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0155 BODY_0150:
0155 e002 | | Load 0x0,0x2
0156 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0157 e5ff | | Load 0x2,-0x1
0158 e009 | | Load 0x0,0x9
0159 1811 | | Execute Package,Field_Execute,Field_Number 0x11
015a 0059 | Y | Store_Top Discrete,At_Offset_1
015b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0174 | t | .CONST 0x0174 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0005 | | .CONST 0x0005 ; Number of locals
0163 INIT_0160:
0163 e002 | | Load 0x0,0x2
0164 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0165 02c7 | | Declare_Variable Any
0166 00d8 | | Load_Top At_Offset_0
0167 1c00 | | Execute_Immediate Run_Utility,0x0
0168 e009 | | Load 0x0,0x9
0169 1b17 | | Execute Package,Field_Read,Field_Number 0x17
016a 02c7 | | Declare_Variable Any
016b 00d8 | | Load_Top At_Offset_0
016c 1c00 | | Execute_Immediate Run_Utility,0x0
016d e009 | | Load 0x0,0x9
016e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016f 02c7 | | Declare_Variable Any
0170 00d8 | | Load_Top At_Offset_0
0171 1c00 | | Execute_Immediate Run_Utility,0x0
0172 e002 | | Load 0x0,0x2
0173 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0174 BODY_0160:
0174 00be | | Action Activate_Tasks
0175 e002 | | Load 0x0,0x2
0176 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0177 00da | | Load_Top At_Offset_2
0178 0092 0246 | F| Action Push_String_Extended,0x246 ; "referencers"
017a e7ff | | Load 0x3,-0x1
017b 8215 | | Call 0x1,0x15
017c c604 | | Store 0x3,0x4
017d 0059 | Y | Store_Top Discrete,At_Offset_1
017e 00d8 | | Load_Top At_Offset_0
017f 6801 |h | Jump_Zero 0x181
0180 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0181 00da | | Load_Top At_Offset_2
0182 0120 | | Execute Any,Is_Value
0183 6803 |h | Jump_Zero 0x187
0184 e009 | | Load 0x0,0x9
0185 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0186 7801 |x | Jump 0x188
0187 00da | | Load_Top At_Offset_2
0188 00da | | Load_Top At_Offset_2
0189 e009 | | Load 0x0,0x9
018a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
018b c603 | | Store 0x3,0x3
018c 00cf | | Action Mark_Auxiliary
018d 7821 |x! | Jump 0x1af
018e 00db | | Load_Top At_Offset_3
018f e009 | | Load 0x0,0x9
0190 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0191 c602 | | Store 0x3,0x2
0192 4801 |H | Short_Literal 0x1
0193 0092 0247 | G| Action Push_String_Extended,0x247 ; "[VERSION_ERROR]"
0195 e602 | | Load 0x3,0x2
0196 e002 | | Load 0x0,0x2
0197 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0198 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0199 e00b | | Load 0x0,0xb
019a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
019b 700e |p | Jump_Nonzero 0x1aa
019c e602 | | Load 0x3,0x2
019d e402 | | Load 0x2,0x2
019e e212 | | Load 0x1,0x12
019f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01a0 7009 |p | Jump_Nonzero 0x1aa
01a1 e402 | | Load 0x2,0x2
01a2 e602 | | Load 0x3,0x2
01a3 e212 | | Load 0x1,0x12
01a4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01a5 c402 | | Store 0x2,0x2
01a6 e5fe | | Load 0x2,-0x2
01a7 6802 |h | Jump_Zero 0x1aa
01a8 e602 | | Load 0x3,0x2
01a9 8404 | | Call 0x2,0x4
01aa 00db | | Load_Top At_Offset_3
01ab e009 | | Load 0x0,0x9
01ac 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ad c603 | | Store 0x3,0x3
01ae 00c9 | | Action Pop_Auxiliary_Loop
01af 00db | | Load_Top At_Offset_3
01b0 e009 | | Load 0x0,0x9
01b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b2 6fdb |o | Jump_Zero 0x18e
01b3 00ce | | Action Pop_Auxiliary
01b4 00d9 | | Load_Top At_Offset_1
01b5 8216 | | Call 0x1,0x16
01b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01cc | | .CONST 0x01cc ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0005 | | .CONST 0x0005 ; Number of locals
01bb INIT_01b8:
01bb e002 | | Load 0x0,0x2
01bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01bd 02c7 | | Declare_Variable Any
01be 00d8 | | Load_Top At_Offset_0
01bf 1c00 | | Execute_Immediate Run_Utility,0x0
01c0 e009 | | Load 0x0,0x9
01c1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01c2 02c7 | | Declare_Variable Any
01c3 00d8 | | Load_Top At_Offset_0
01c4 1c00 | | Execute_Immediate Run_Utility,0x0
01c5 e009 | | Load 0x0,0x9
01c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c7 02c7 | | Declare_Variable Any
01c8 00d8 | | Load_Top At_Offset_0
01c9 1c00 | | Execute_Immediate Run_Utility,0x0
01ca e002 | | Load 0x0,0x2
01cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cc BODY_01b8:
01cc 00be | | Action Activate_Tasks
01cd e002 | | Load 0x0,0x2
01ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cf 00da | | Load_Top At_Offset_2
01d0 0092 0248 | H| Action Push_String_Extended,0x248 ; "imports"
01d2 e7ff | | Load 0x3,-0x1
01d3 8215 | | Call 0x1,0x15
01d4 c604 | | Store 0x3,0x4
01d5 0059 | Y | Store_Top Discrete,At_Offset_1
01d6 00d8 | | Load_Top At_Offset_0
01d7 6801 |h | Jump_Zero 0x1d9
01d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d9 00da | | Load_Top At_Offset_2
01da 0120 | | Execute Any,Is_Value
01db 6803 |h | Jump_Zero 0x1df
01dc e009 | | Load 0x0,0x9
01dd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01de 7801 |x | Jump 0x1e0
01df 00da | | Load_Top At_Offset_2
01e0 00da | | Load_Top At_Offset_2
01e1 e009 | | Load 0x0,0x9
01e2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01e3 c603 | | Store 0x3,0x3
01e4 00cf | | Action Mark_Auxiliary
01e5 7821 |x! | Jump 0x207
01e6 00db | | Load_Top At_Offset_3
01e7 e009 | | Load 0x0,0x9
01e8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01e9 c602 | | Store 0x3,0x2
01ea 4801 |H | Short_Literal 0x1
01eb 0092 0247 | G| Action Push_String_Extended,0x247 ; "[VERSION_ERROR]"
01ed e602 | | Load 0x3,0x2
01ee e002 | | Load 0x0,0x2
01ef 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01f1 e00b | | Load 0x0,0xb
01f2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01f3 700e |p | Jump_Nonzero 0x202
01f4 e602 | | Load 0x3,0x2
01f5 e402 | | Load 0x2,0x2
01f6 e212 | | Load 0x1,0x12
01f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01f8 7009 |p | Jump_Nonzero 0x202
01f9 e402 | | Load 0x2,0x2
01fa e602 | | Load 0x3,0x2
01fb e212 | | Load 0x1,0x12
01fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01fd c402 | | Store 0x2,0x2
01fe e5fe | | Load 0x2,-0x2
01ff 6802 |h | Jump_Zero 0x202
0200 e602 | | Load 0x3,0x2
0201 8404 | | Call 0x2,0x4
0202 00db | | Load_Top At_Offset_3
0203 e009 | | Load 0x0,0x9
0204 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0205 c603 | | Store 0x3,0x3
0206 00c9 | | Action Pop_Auxiliary_Loop
0207 00db | | Load_Top At_Offset_3
0208 e009 | | Load 0x0,0x9
0209 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020a 6fdb |o | Jump_Zero 0x1e6
020b 00ce | | Action Pop_Auxiliary
020c 00d9 | | Load_Top At_Offset_1
020d 8216 | | Call 0x1,0x16
020e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020f 0000 | | .XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 4609 |F | Jump_Case 0xa
0214 7809 |x | Jump 0x21e ; case 0x0
0215 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0216 7810 |x | Jump 0x227 ; case 0x2
0217 7813 |x | Jump 0x22b ; case 0x3
0218 782b |x+ | Jump 0x244 ; case 0x4
0219 782a |x* | Jump 0x244 ; case 0x5
021a 7829 |x) | Jump 0x244 ; case 0x6
021b 7815 |x | Jump 0x231 ; case 0x7
021c 781d |x | Jump 0x23a ; case 0x8
021d 7826 |x& | Jump 0x244 ; case 0x9
021e 00da | | Load_Top At_Offset_2
021f 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0220 00da | | Load_Top At_Offset_2
0221 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0222 1c00 | | Execute_Immediate Run_Utility,0x0
0223 00da | | Load_Top At_Offset_2
0224 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0225 1c00 | | Execute_Immediate Run_Utility,0x0
0226 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0227 4801 |H | Short_Literal 0x1
0228 4803 |H | Short_Literal 0x3
0229 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
022a 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
022b e5fd | | Load 0x2,-0x3
022c 00db | | Load_Top At_Offset_3
022d 1c07 | | Execute_Immediate Run_Utility,0x7
022e e5fe | | Load 0x2,-0x2
022f 0306 | | Complete_Type Variant_Record,By_Renaming
0230 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0231 00db | | Load_Top At_Offset_3
0232 4801 |H | Short_Literal 0x1
0233 e5fe | | Load 0x2,-0x2
0234 e20d | | Load 0x1,0xd
0235 035b | [ | Declare_Type Array,Constrained
0236 4801 |H | Short_Literal 0x1
0237 e5ff | | Load 0x2,-0x1
0238 031b | | Declare_Type Variant_Record,Constrained
0239 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
023a 00db | | Load_Top At_Offset_3
023b 00db | | Load_Top At_Offset_3
023c 02fc | | Declare_Variable Variant_Record,With_Constraint
023d 4801 |H | Short_Literal 0x1
023e e5fe | | Load 0x2,-0x2
023f e20d | | Load 0x1,0xd
0240 0334 | 4 | Declare_Variable Array,With_Constraint
0241 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0242 016a | j | QQ_execute Variant_Record,XXX
0243 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0244 0869 | i | Execute_Immediate Raise,0x69
0245 ; --------------------------------------------------------------------------------------
0245 ; STRING TABLE
0245 ; --------------------------------------------------------------------------------------
0245 000a | | .STRTAB 0x000a->0x024a ; ".state."
0246 000f | | .STRTAB 0x000f->0x024d ; "referencers"
0247 0018 | | .STRTAB 0x0018->0x0253 ; "[VERSION_ERROR]"
0248 0025 | % | .STRTAB 0x0025->0x025a ; "imports"
0249 002a | * | .STREND 0x002a->0x025e
024a 2e73 7461 |.sta| .STRTAB_STRINGS
025e 0000 0000 | | .XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug Table
0260 ; --------------------------------------------------------------------------------------
0260 0004 0009 | | .DEBUG4 0x0004,0x0009,0x57fc,0x0000,0x0001,0x000d
0266 000b 029a | | .DBG4T 0x000b,0x029a,0x8000,0x0000
026a 002a 02a1 | * | .DBG4T 0x002a,0x02a1,0x8000,0x8000
026e 004b 0000 | K | .DBG4T 0x004b,0x0000,0x0005,0x0000
0272 006b 02b3 | k | .DBG4T 0x006b,0x02b3,0x0002,0x0000
0276 008b 02bb | | .DBG4T 0x008b,0x02bb,0x0002,0x0000
027a 00ab 02c3 | | .DBG4T 0x00ab,0x02c3,0x0002,0x0000
027e 00cb 02ca | | .DBG4T 0x00cb,0x02ca,0x0002,0x4000
0282 00eb 02d8 | | .DBG4T 0x00eb,0x02d8,0x0002,0x4000
0286 012b 02ef | + | .DBG4T 0x012b,0x02ef,0x0001,0x0000
028a 0153 02f4 | S | .DBG4T 0x0153,0x02f4,0x0001,0x0000
028e 0163 02f8 | c | .DBG4T 0x0163,0x02f8,0x0001,0x4000
0292 01bb 0318 | | .DBG4T 0x01bb,0x0318,0x0001,0x4000
0296 0213 0000 | | .DBG4T 0x0213,0x0000,0x0005,0x0000
029a ; --------------------------------------------------------------------------------------
029a ; Debug chain
029a ; --------------------------------------------------------------------------------------
029a 0005 0000 | | .DBGLEN 0x0005,0x0000
029c 000b 0013 | | .DBGLNO 0x000b,0x0013,0x0023,0x0025,0x0027
02a1 ; --------------------------------------------------------------------------------------
02a1 ; Debug chain
02a1 ; --------------------------------------------------------------------------------------
02a1 0008 0000 | | .DBGLEN 0x0008,0x0000
02a3 002a 0032 | * 2| .DBGLNO 0x002a,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e
02ab 0003 0004 | | .XXX[0x8]
02ad 0005 0006 | |
02af 0007 0008 | |
02b1 0009 000a | |
02b3 ; --------------------------------------------------------------------------------------
02b3 ; Debug chain
02b3 ; --------------------------------------------------------------------------------------
02b3 0003 0003 | | .DBGLEN 0x0003,0x0003
02b5 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x0073,0x0075,0x007a,0x007c
02bb ; --------------------------------------------------------------------------------------
02bb ; Debug chain
02bb ; --------------------------------------------------------------------------------------
02bb 0003 0003 | | .DBGLEN 0x0003,0x0003
02bd 008b 008d | | .DBGLNO 0x008b,0x008d,0x0093,0x0095,0x009a,0x009c
02c3 ; --------------------------------------------------------------------------------------
02c3 ; Debug chain
02c3 ; --------------------------------------------------------------------------------------
02c3 0000 0005 | | .DBGLEN 0x0000,0x0005
02c5 00ab 00b2 | | .DBGLNO 0x00ab,0x00b2,0x00b8,0x00bf,0x00c4
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug chain
02ca ; --------------------------------------------------------------------------------------
02ca 0002 0005 | | .DBGLEN 0x0002,0x0005
02cc 00cb 00cd | | .DBGLNO 0x00cb,0x00cd,0x00cf,0x00d7,0x00da,0x00df,0x00e4
02d3 0001 0003 | | .XXX[0x5]
02d5 0004 0002 | |
02d7 0005 | |
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug chain
02d8 ; --------------------------------------------------------------------------------------
02d8 0003 0009 | | .DBGLEN 0x0003,0x0009
02da 00eb 00f0 | | .DBGLNO 0x00eb,0x00f0,0x00f2,0x00f4,0x00fc,0x0103,0x0106,0x010b,0x0110,0x0119,0x011c,0x0125
02e6 0001 0003 | | .XXX[0x9]
02e8 0004 0005 | |
02ea 0002 0006 | |
02ec 0007 0008 | |
02ee 0009 | |
02ef ; --------------------------------------------------------------------------------------
02ef ; Debug chain
02ef ; --------------------------------------------------------------------------------------
02ef 0001 0002 | | .DBGLEN 0x0001,0x0002
02f1 012b 0130 | + 0| .DBGLNO 0x012b,0x0130,0x013c
02f4 ; --------------------------------------------------------------------------------------
02f4 ; Debug chain
02f4 ; --------------------------------------------------------------------------------------
02f4 0001 0001 | | .DBGLEN 0x0001,0x0001
02f6 0153 0155 | S U| .DBGLNO 0x0153,0x0155
02f8 ; --------------------------------------------------------------------------------------
02f8 ; Debug chain
02f8 ; --------------------------------------------------------------------------------------
02f8 0004 000d | | .DBGLEN 0x0004,0x000d
02fa 0163 0168 | c h| .DBGLNO 0x0163,0x0168,0x016d,0x0172,0x0175,0x017e,0x0180,0x0181,0x018e,0x0192,0x019c,0x01a1,0x01a6,0x01a8,0x01aa,0x01af,0x01b4
030b 0001 0002 | | .XXX[0xd]
030d 0003 0004 | |
030f 0006 0007 | |
0311 0008 0009 | |
0313 000a 000b | |
0315 000c 0005 | |
0317 000d | |
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug chain
0318 ; --------------------------------------------------------------------------------------
0318 0004 000d | | .DBGLEN 0x0004,0x000d
031a 01bb 01c0 | | .DBGLNO 0x01bb,0x01c0,0x01c5,0x01ca,0x01cd,0x01d6,0x01d8,0x01d9,0x01e6,0x01ea,0x01f4,0x01f9,0x01fe,0x0200,0x0202,0x0207,0x020c
032b 0001 0002 | | .XXX[0xd]
032d 0003 0004 | |
032f 0006 0007 | |
0331 0008 0009 | |
0333 000a 000b | |
0335 000c 0005 | |
0337 000d | |
0338 0000 0000 | | .BLANK 0000[0xc8]