|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0270 | p | .CONST 0x0270 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0059 | Y | .CONST 0x0059 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001d | | .CONST 0x001d ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 0129 | ) | Execute Any,Make_Visible
000e 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0010 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0012 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0014 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0016 e002 | | Load 0x0,0x2
0017 0129 | ) | Execute Any,Make_Visible
0018 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
001a 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
001c 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
001e 00e3 | | Load_Encached Natural_Cache
001f 0266 | f | Execute Discrete,Bounds
0020 e003 | | Load 0x0,0x3
0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0022 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0024 4801 |H | Short_Literal 0x1
0025 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0026 00e3 | | Load_Encached Natural_Cache
0027 e004 | | Load 0x0,0x4
0028 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0029 4801 |H | Short_Literal 0x1
002a 6041 |`A | Indirect_Literal Discrete,0x6c,{0x00000000, 0x7fffffff}
002b e216 | | Load 0x1,0x16
002c 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
002d 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
002f 4800 |H | Short_Literal 0x0
0030 4801 |H | Short_Literal 0x1
0031 4801 |H | Short_Literal 0x1
0032 4800 |H | Short_Literal 0x0
0033 4801 |H | Short_Literal 0x1
0034 4801 |H | Short_Literal 0x1
0035 031e | | Declare_Type Variant_Record,Defined,Visible
0036 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0038 00bf | | Action Accept_Activation
0039 e005 | | Load 0x0,0x5
003a e006 | | Load 0x0,0x6
003b e003 | | Load 0x0,0x3
003c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003d e007 | | Load 0x0,0x7
003e 0387 | | Declare_Variable Package
003f 00d8 | | Load_Top At_Offset_0
0040 020f | | Execute Module,Activate
0041 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0042 00c7 | | Action Elaborate_Subprogram
0043 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0044 00c7 | | Action Elaborate_Subprogram
0045 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0046 00c7 | | Action Elaborate_Subprogram
0047 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0048 00c7 | | Action Elaborate_Subprogram
0049 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004a 00c7 | | Action Elaborate_Subprogram
004b 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004c 00c7 | | Action Elaborate_Subprogram
004d 1d15 | | Execute_Immediate Reference_Lex_1,0x15
004e 00c7 | | Action Elaborate_Subprogram
004f 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call
0051 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
0053 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
0055 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
0057 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0058 00c7 | | Action Elaborate_Subprogram
0059 BODY_0008:
0059 00bc | | Action Signal_Activated
005a 00bb | | Action Signal_Completion
005b 0000 0000 | | .BLANK 0000[0x5]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 00da | | Load_Top At_Offset_2
0064 e001 | | Load 0x0,0x1
0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0066 011e | | Execute Any,Convert
0067 e001 | | Load 0x0,0x1
0068 180e | | Execute Package,Field_Execute,Field_Number 0xe
0069 c5ff | | Store 0x2,-0x1
006a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006b 0000 | | .XXX[0x1]
006c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
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 00da | | Load_Top At_Offset_2
0074 e001 | | Load 0x0,0x1
0075 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0076 011e | | Execute Any,Convert
0077 e001 | | Load 0x0,0x1
0078 180f | | Execute Package,Field_Execute,Field_Number 0xf
0079 c5ff | | Store 0x2,-0x1
007a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007b 0000 0000 | | .BLANK 0000[0x5]
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 00da | | Load_Top At_Offset_2
0084 e001 | | Load 0x0,0x1
0085 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0086 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0087 0000 | | .XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c e001 | | Load 0x0,0x1
008d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008f 0000 | | .XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0099 | | .CONST 0x0099 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0003 | | .CONST 0x0003 ; Number of locals
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 e008 | | Load 0x0,0x8
0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0096 180d | | Execute Package,Field_Execute,Field_Number 0xd
0097 e009 | | Load 0x0,0x9
0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0099 BODY_0090:
0099 e009 | | Load 0x0,0x9
009a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009b e5fc | | Load 0x2,-0x4
009c 0120 | | Execute Any,Is_Value
009d 6804 |h | Jump_Zero 0xa2
009e e003 | | Load 0x0,0x3
009f 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
00a0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00a1 7801 |x | Jump 0xa3
00a2 e5fc | | Load 0x2,-0x4
00a3 e5fd | | Load 0x2,-0x3
00a4 e402 | | Load 0x2,0x2
00a5 e5fe | | Load 0x2,-0x2
00a6 e5fd | | Load 0x2,-0x3
00a7 4800 |H | Short_Literal 0x0
00a8 e5ff | | Load 0x2,-0x1
00a9 e00a | | Load 0x0,0xa
00aa 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00ab e001 | | Load 0x0,0x1
00ac 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00ad c5fc | | Store 0x2,-0x4
00ae 0059 | Y | Store_Top Discrete,At_Offset_1
00af e5fb | | Load 0x2,-0x5
00b0 00d9 | | Load_Top At_Offset_1
00b1 e00b | | Load 0x0,0xb
00b2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b3 c5fb | | Store 0x2,-0x5
00b4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c1 | | .CONST 0x00c1 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0003 | | .CONST 0x0003 ; Number of locals
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2
00bc e008 | | Load 0x0,0x8
00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00be 180d | | Execute Package,Field_Execute,Field_Number 0xd
00bf e009 | | Load 0x0,0x9
00c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c1 BODY_00b8:
00c1 e009 | | Load 0x0,0x9
00c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c3 e5fc | | Load 0x2,-0x4
00c4 e001 | | Load 0x0,0x1
00c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c6 011e | | Execute Any,Convert
00c7 e5fd | | Load 0x2,-0x3
00c8 e402 | | Load 0x2,0x2
00c9 e5fe | | Load 0x2,-0x2
00ca e5fd | | Load 0x2,-0x3
00cb 4800 |H | Short_Literal 0x0
00cc e5ff | | Load 0x2,-0x1
00cd e00a | | Load 0x0,0xa
00ce 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00cf e001 | | Load 0x0,0x1
00d0 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00d1 c5fc | | Store 0x2,-0x4
00d2 0059 | Y | Store_Top Discrete,At_Offset_1
00d3 e5fb | | Load 0x2,-0x5
00d4 00d9 | | Load_Top At_Offset_1
00d5 e00b | | Load 0x0,0xb
00d6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00d7 c5fb | | Store 0x2,-0x5
00d8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e9 | | .CONST 0x00e9 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0003 | | .CONST 0x0003 ; Number of locals
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 e008 | | Load 0x0,0x8
00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e6 180d | | Execute Package,Field_Execute,Field_Number 0xd
00e7 e009 | | Load 0x0,0x9
00e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e9 BODY_00e0:
00e9 e009 | | Load 0x0,0x9
00ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00eb 00e1 | | Load_Encached Boolean_Cache
00ec e5fe | | Load 0x2,-0x2
00ed e402 | | Load 0x2,0x2
00ee e5fe | | Load 0x2,-0x2
00ef 4800 |H | Short_Literal 0x0
00f0 e5ff | | Load 0x2,-0x1
00f1 e00a | | Load 0x0,0xa
00f2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00f3 e001 | | Load 0x0,0x1
00f4 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00f5 c5fd | | Store 0x2,-0x3
00f6 0059 | Y | Store_Top Discrete,At_Offset_1
00f7 e5fc | | Load 0x2,-0x4
00f8 00d9 | | Load_Top At_Offset_1
00f9 e00b | | Load 0x0,0xb
00fa 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00fb c5fc | | Store 0x2,-0x4
00fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00d1 | | Pop_Control Pop_Count_1
0104 00da | | Load_Top At_Offset_2
0105 01dc | | Execute Vector,Last
0106 00db | | Load_Top At_Offset_3
0107 01dd | | Execute Vector,First
0108 0263 | c | Execute Discrete,Above_Bound
0109 700a |p | Jump_Nonzero 0x114
010a 00d8 | | Load_Top At_Offset_0
010b e5ff | | Load 0x2,-0x1
010c 01d5 | | Execute Vector,Field_Reference
010d 0125 | % | Execute Any,Set_Constraint
010e 00d8 | | Load_Top At_Offset_0
010f e5ff | | Load 0x2,-0x1
0110 01d5 | | Execute Vector,Field_Reference
0111 1c00 | | Execute_Immediate Run_Utility,0x0
0112 0a01 | | Execute_Immediate Plus,0x1
0113 7ff4 | | Jump 0x108
0114 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0129 | ) | .CONST 0x0129 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0004 | | .CONST 0x0004 ; Number of locals
011b INIT_0118:
011b e219 | | Load 0x1,0x19
011c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
011d e003 | | Load 0x0,0x3
011e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011f 02c7 | | Declare_Variable Any
0120 e00c | | Load 0x0,0xc
0121 180e | | Execute Package,Field_Execute,Field_Number 0xe
0122 e5ff | | Load 0x2,-0x1
0123 e008 | | Load 0x0,0x8
0124 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0125 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0126 a403 | | Store_Unchecked 0x2,0x3
0127 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0129 BODY_0118:
0129 e219 | | Load 0x1,0x19
012a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
012b e219 | | Load 0x1,0x19
012c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
012d 003b | ; | Store_Top Access,At_Offset_3
012e e5ff | | Load 0x2,-0x1
012f 8404 | | Call 0x2,0x4
0130 00da | | Load_Top At_Offset_2
0131 821a | | Call 0x1,0x1a
0132 00db | | Load_Top At_Offset_3
0133 821b | | Call 0x1,0x1b
0134 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013f | ? | .CONST 0x013f ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0003 | | .CONST 0x0003 ; Number of locals
013b INIT_0138:
013b e219 | | Load 0x1,0x19
013c 1b18 | | Execute Package,Field_Read,Field_Number 0x18
013d 00e2 | | Load_Encached Integer_Cache
013e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
013f BODY_0138:
013f e219 | | Load 0x1,0x19
0140 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0141 e5ff | | Load 0x2,-0x1
0142 e219 | | Load 0x1,0x19
0143 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0144 003a | : | Store_Top Access,At_Offset_2
0145 00cf | | Action Mark_Auxiliary
0146 7808 |x | Jump 0x14f
0147 00d9 | | Load_Top At_Offset_1
0148 0a01 | | Execute_Immediate Plus,0x1
0149 005a | Z | Store_Top Discrete,At_Offset_2
014a 00da | | Load_Top At_Offset_2
014b e219 | | Load 0x1,0x19
014c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
014d 003b | ; | Store_Top Access,At_Offset_3
014e 00c9 | | Action Pop_Auxiliary_Loop
014f 00da | | Load_Top At_Offset_2
0150 e219 | | Load 0x1,0x19
0151 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0152 6ff4 |o | Jump_Zero 0x147
0153 00ce | | Action Pop_Auxiliary
0154 00d8 | | Load_Top At_Offset_0
0155 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0156 0000 0000 | | .XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0164 | d | .CONST 0x0164 ; Address of begin
0159 018b | | .CONST 0x018b ; Address of exception handler
015a 0004 | | .CONST 0x0004 ; Number of locals
015b INIT_0158:
015b 00db | | Load_Top At_Offset_3
015c e217 | | Load 0x1,0x17
015d 1c08 | | Execute_Immediate Run_Utility,0x8
015e 00d8 | | Load_Top At_Offset_0
015f 1c00 | | Execute_Immediate Run_Utility,0x0
0160 e219 | | Load 0x1,0x19
0161 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0162 00e2 | | Load_Encached Integer_Cache
0163 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0164 BODY_0158:
0164 e219 | | Load 0x1,0x19
0165 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0166 e5ff | | Load 0x2,-0x1
0167 e219 | | Load 0x1,0x19
0168 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0169 003a | : | Store_Top Access,At_Offset_2
016a 00cf | | Action Mark_Auxiliary
016b 780f |x | Jump 0x17b
016c 00da | | Load_Top At_Offset_2
016d e219 | | Load 0x1,0x19
016e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
016f 00da | | Load_Top At_Offset_2
0170 e402 | | Load 0x2,0x2
0171 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0172 01d6 | | Execute Vector,Field_Write
0173 00d9 | | Load_Top At_Offset_1
0174 0a01 | | Execute_Immediate Plus,0x1
0175 005a | Z | Store_Top Discrete,At_Offset_2
0176 00da | | Load_Top At_Offset_2
0177 e219 | | Load 0x1,0x19
0178 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0179 003b | ; | Store_Top Access,At_Offset_3
017a 00c9 | | Action Pop_Auxiliary_Loop
017b 00da | | Load_Top At_Offset_2
017c e219 | | Load 0x1,0x19
017d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
017e 6fed |o | Jump_Zero 0x16c
017f 00ce | | Action Pop_Auxiliary
0180 00da | | Load_Top At_Offset_2
0181 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0182 4800 |H | Short_Literal 0x0
0183 00ea | | Load_Encached Null_String_Cache
0184 00ea | | Load_Encached Null_String_Cache
0185 e004 | | Load 0x0,0x4
0186 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0187 00db | | Load_Top At_Offset_3
0188 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0189 00da | | Load_Top At_Offset_2
018a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
018b TRAP_0158:
018b 0007 | | Action Break_Optional
018c 00db | | Load_Top At_Offset_3
018d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
018e 4802 |H | Short_Literal 0x2
018f 00ea | | Load_Encached Null_String_Cache
0190 00ea | | Load_Encached Null_String_Cache
0191 e004 | | Load 0x0,0x4
0192 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0193 e402 | | Load 0x2,0x2
0194 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0195 00db | | Load_Top At_Offset_3
0196 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a0 | | .CONST 0x01a0 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b e003 | | Load 0x0,0x3
019c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
019d 02c7 | | Declare_Variable Any
019e 00d8 | | Load_Top At_Offset_0
019f 1c00 | | Execute_Immediate Run_Utility,0x0
01a0 BODY_0198:
01a0 e00c | | Load 0x0,0xc
01a1 180e | | Execute Package,Field_Execute,Field_Number 0xe
01a2 e00c | | Load 0x0,0xc
01a3 180e | | Execute Package,Field_Execute,Field_Number 0xe
01a4 e5ff | | Load 0x2,-0x1
01a5 e008 | | Load 0x0,0x8
01a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01a8 e003 | | Load 0x0,0x3
01a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01aa 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01ab 0092 025a | Z| Action Push_String_Extended,0x25a ; ".state."
01ad 01cc | | Execute Vector,Catenate
01ae e5fe | | Load 0x2,-0x2
01af 01cc | | Execute Vector,Catenate
01b0 e008 | | Load 0x0,0x8
01b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01b3 c402 | | Store 0x2,0x2
01b4 e003 | | Load 0x0,0x3
01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b6 e5fd | | Load 0x2,-0x3
01b7 0120 | | Execute Any,Is_Value
01b8 6803 |h | Jump_Zero 0x1bc
01b9 e00d | | Load 0x0,0xd
01ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01bb 7801 |x | Jump 0x1bd
01bc e5fd | | Load 0x2,-0x3
01bd 4800 |H | Short_Literal 0x0
01be 4800 |H | Short_Literal 0x0
01bf e00e | | Load 0x0,0xe
01c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c1 e402 | | Load 0x2,0x2
01c2 e00d | | Load 0x0,0xd
01c3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c4 c5fd | | Store 0x2,-0x3
01c5 c5fc | | Store 0x2,-0x4
01c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c7 0000 | | .XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cd | | .CONST 0x01cd ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb e003 | | Load 0x0,0x3
01cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cd BODY_01c8:
01cd e003 | | Load 0x0,0x3
01ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cf e5ff | | Load 0x2,-0x1
01d0 e00d | | Load 0x0,0xd
01d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d2 0059 | Y | Store_Top Discrete,At_Offset_1
01d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01ec | | .CONST 0x01ec ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0005 | | .CONST 0x0005 ; Number of locals
01db INIT_01d8:
01db e003 | | Load 0x0,0x3
01dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01dd 02c7 | | Declare_Variable Any
01de 00d8 | | Load_Top At_Offset_0
01df 1c00 | | Execute_Immediate Run_Utility,0x0
01e0 e00d | | Load 0x0,0xd
01e1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01e2 02c7 | | Declare_Variable Any
01e3 00d8 | | Load_Top At_Offset_0
01e4 1c00 | | Execute_Immediate Run_Utility,0x0
01e5 e00d | | Load 0x0,0xd
01e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e7 02c7 | | Declare_Variable Any
01e8 00d8 | | Load_Top At_Offset_0
01e9 1c00 | | Execute_Immediate Run_Utility,0x0
01ea e003 | | Load 0x0,0x3
01eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ec BODY_01d8:
01ec 00be | | Action Activate_Tasks
01ed e003 | | Load 0x0,0x3
01ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ef 00da | | Load_Top At_Offset_2
01f0 0092 025b | [| Action Push_String_Extended,0x25b ; "referencers"
01f2 e7ff | | Load 0x3,-0x1
01f3 821c | | Call 0x1,0x1c
01f4 c604 | | Store 0x3,0x4
01f5 0059 | Y | Store_Top Discrete,At_Offset_1
01f6 00d8 | | Load_Top At_Offset_0
01f7 6801 |h | Jump_Zero 0x1f9
01f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f9 00da | | Load_Top At_Offset_2
01fa 0120 | | Execute Any,Is_Value
01fb 6803 |h | Jump_Zero 0x1ff
01fc e00d | | Load 0x0,0xd
01fd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01fe 7801 |x | Jump 0x200
01ff 00da | | Load_Top At_Offset_2
0200 00da | | Load_Top At_Offset_2
0201 e00d | | Load 0x0,0xd
0202 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0203 c603 | | Store 0x3,0x3
0204 00cf | | Action Mark_Auxiliary
0205 7821 |x! | Jump 0x227
0206 00db | | Load_Top At_Offset_3
0207 e00d | | Load 0x0,0xd
0208 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0209 c602 | | Store 0x3,0x2
020a 4801 |H | Short_Literal 0x1
020b 0092 025c | \| Action Push_String_Extended,0x25c ; "[VERSION_ERROR]"
020d e602 | | Load 0x3,0x2
020e e003 | | Load 0x0,0x3
020f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0210 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0211 e00f | | Load 0x0,0xf
0212 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0213 700e |p | Jump_Nonzero 0x222
0214 e602 | | Load 0x3,0x2
0215 e402 | | Load 0x2,0x2
0216 e219 | | Load 0x1,0x19
0217 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0218 7009 |p | Jump_Nonzero 0x222
0219 e402 | | Load 0x2,0x2
021a e602 | | Load 0x3,0x2
021b e219 | | Load 0x1,0x19
021c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
021d c402 | | Store 0x2,0x2
021e e5fe | | Load 0x2,-0x2
021f 6802 |h | Jump_Zero 0x222
0220 e602 | | Load 0x3,0x2
0221 8404 | | Call 0x2,0x4
0222 00db | | Load_Top At_Offset_3
0223 e00d | | Load 0x0,0xd
0224 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0225 c603 | | Store 0x3,0x3
0226 00c9 | | Action Pop_Auxiliary_Loop
0227 00db | | Load_Top At_Offset_3
0228 e00d | | Load 0x0,0xd
0229 181b | | Execute Package,Field_Execute,Field_Number 0x1b
022a 6fdb |o | Jump_Zero 0x206
022b 00ce | | Action Pop_Auxiliary
022c 00d9 | | Load_Top At_Offset_1
022d 821d | | Call 0x1,0x1d
022e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 4608 |F | Jump_Case 0x9
0234 7808 |x | Jump 0x23d ; case 0x0
0235 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0236 7822 |x" | Jump 0x259 ; case 0x2
0237 7821 |x! | Jump 0x259 ; case 0x3
0238 7820 |x | Jump 0x259 ; case 0x4
0239 781f |x | Jump 0x259 ; case 0x5
023a 781e |x | Jump 0x259 ; case 0x6
023b 780a |x | Jump 0x246 ; case 0x7
023c 7812 |x | Jump 0x24f ; case 0x8
023d 00da | | Load_Top At_Offset_2
023e 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
023f 00da | | Load_Top At_Offset_2
0240 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0241 1c00 | | Execute_Immediate Run_Utility,0x0
0242 00da | | Load_Top At_Offset_2
0243 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0244 1c00 | | Execute_Immediate Run_Utility,0x0
0245 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0246 00db | | Load_Top At_Offset_3
0247 4801 |H | Short_Literal 0x1
0248 e5fe | | Load 0x2,-0x2
0249 e216 | | Load 0x1,0x16
024a 035b | [ | Declare_Type Array,Constrained
024b 4801 |H | Short_Literal 0x1
024c e5ff | | Load 0x2,-0x1
024d 031b | | Declare_Type Variant_Record,Constrained
024e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
024f 00db | | Load_Top At_Offset_3
0250 00db | | Load_Top At_Offset_3
0251 02fc | | Declare_Variable Variant_Record,With_Constraint
0252 4801 |H | Short_Literal 0x1
0253 e5fe | | Load 0x2,-0x2
0254 e216 | | Load 0x1,0x16
0255 0334 | 4 | Declare_Variable Array,With_Constraint
0256 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0257 016a | j | QQ_execute Variant_Record,XXX
0258 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0259 0869 | i | Execute_Immediate Raise,0x69
025a ; --------------------------------------------------------------------------------------
025a ; STRING TABLE
025a ; --------------------------------------------------------------------------------------
025a 0008 | | .STRTAB 0x0008->0x025e ; ".state."
025b 000d | | .STRTAB 0x000d->0x0261 ; "referencers"
025c 0016 | | .STRTAB 0x0016->0x0267 ; "[VERSION_ERROR]"
025d 0023 | # | .STREND 0x0023->0x026e
025e 2e73 7461 |.sta| .STRTAB_STRINGS
026f 0000 | | .XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; Debug Table
0270 ; --------------------------------------------------------------------------------------
0270 0004 000e | | .DEBUG4 0x0004,0x000e,0xa660,0x0000,0x0001,0x0000
0276 0000 0180 | | .XXX[0x1e]
0278 fed1 01e3 | |
027a 1800 1001 | |
027c 0000 0000 | |
027e 03ff 0000 | |
0280 1a3f f000 | ? |
0282 0000 5d90 | ] |
0284 234e 2350 |#N#P|
0286 3970 c84f |9p O|
0288 00d0 3cb3 | < |
028a 0000 0821 | !|
028c 00d0 02c3 | |
028e 0000 0801 | |
0290 0000 0000 | |
0292 8000 31a9 | 1 |
0294 0000 0000 | | .BLANK 0000[0x4]
0298 7044 cb57 |pD W| .XXX[0x14]
029a c5e5 8622 | "|
029c fd3c fd3d | < =|
029e 3970 fadc |9p |
02a0 f970 c622 | p "|
02a2 d093 d094 | |
02a4 234c 2350 |#L#P|
02a6 38b0 c9e2 |8 |
02a8 0000 007a | z|
02aa 0247 b170 | G p|
02ac 0000 0000 | | .BLANK 0000[0x5]
02b1 005e 120e | ^ | .XXX[0x8]
02b3 005e 169e | ^ |
02b5 0200 0a40 | @|
02b7 0891 8000 | |
02b9 0000 0000 | | .BLANK 0000[0xa]
02c3 0005 e145 | E| .XXX[0xe]
02c5 6005 e18e |` |
02c7 6020 010b |` |
02c9 0091 e400 | |
02cb 0001 0000 | |
02cd 0000 7a02 | z |
02cf 4791 f000 |G |
02d1 0000 0000 | | .BLANK 0000[0x5]
02d6 5e16 9e00 |^ | .XXX[0x7]
02d8 5e1b 2e02 |^ . |
02da 000a 4008 | @ |
02dc 9180 | |
02dd 0000 0000 | | .BLANK 0000[0xb]
02e8 05e1 8e60 | `| .XXX[0xd]
02ea 05e1 d760 | `|
02ec 2001 0b00 | |
02ee 91e4 0000 | |
02f0 0100 0000 | |
02f2 007a 0247 | z G|
02f4 9200 | |
02f5 0000 0000 | | .BLANK 0000[0x5]
02fa 005e 1b2e | ^ .| .XXX[0x6]
02fc 005e 1fbe | ^ |
02fe 0200 0a40 | @|
0300 0000 0000 | | .BLANK 0000[0x7]
0307 0001 | | .XXX[0x1]
0308 0000 0000 | | .BLANK 0000[0x17]
031f 0001 | | .XXX[0x1]
0320 0000 0000 | | .BLANK 0000[0x7]
0327 0004 | | .XXX[0x1]
0328 0000 0000 | | .BLANK 0000[0x9]
0331 05e2 2060 | `| .XXX[0xd]
0333 05e2 6960 | i`|
0335 2001 0b00 | |
0337 91e4 0000 | |
0339 0100 0000 | |
033b 007a 0247 | z G|
033d 9280 | |
033e 0000 0000 | | .BLANK 0000[0x5]
0343 005e 244e | ^$N| .XXX[0x8]
0345 005e 28de | ^( |
0347 0200 0a40 | @|
0349 0891 8000 | |
034b 0000 0000 | | .BLANK 0000[0xa]
0355 0005 e269 | i| .XXX[0xe]
0357 6005 e2b2 |` |
0359 6020 010b |` |
035b 0091 e400 | |
035d 0001 0000 | |
035f 0000 7a02 | z |
0361 4792 9000 |G |
0363 0000 0000 | | .BLANK 0000[0x5]
0368 5e28 de00 |^( | .XXX[0x7]
036a 5e2d 6e02 |^-n |
036c 000a 4008 | @ |
036e 9180 | |
036f 0000 0000 | | .BLANK 0000[0xb]
037a 05e2 b260 | `| .XXX[0xd]
037c 05e2 fb60 | `|
037e 2001 0b00 | |
0380 91ec 0000 | |
0382 0100 0000 | |
0384 007a 0247 | z G|
0386 b2a0 | |
0387 0000 0000 | | .BLANK 0000[0x5]
038c 005e 2d6e | ^-n| .XXX[0x8]
038e 005e 31fe | ^1 |
0390 0200 0a40 | @|
0392 0891 8000 | |
0394 0000 0000 | | .BLANK 0000[0xa]
039e 0005 e2fb | | .XXX[0xe]
03a0 6005 e344 |` D|
03a2 6020 010b |` |
03a4 0091 e400 | |
03a6 0001 0000 | |
03a8 0000 7a02 | z |
03aa 4792 4000 |G @ |
03ac 0000 0000 | | .BLANK 0000[0x5]
03b1 5e31 fe00 |^1 | .XXX[0x7]
03b3 5e36 8e02 |^6 |
03b5 000a 4008 | @ |
03b7 8c00 | |
03b8 0000 0000 | | .BLANK 0000[0xb]
03c3 05e3 4460 | D`| .XXX[0xd]
03c5 05e3 8d60 | `|
03c7 2001 0b00 | |
03c9 91e4 0000 | |
03cb 0100 0000 | |
03cd 007a 0247 | z G|
03cf 90d0 | |
03d0 0000 0000 | | .BLANK 0000[0x5]
03d5 005e 368e | ^6 | .XXX[0x8]
03d7 005e 3b1e | ^; |
03d9 0200 0a40 | @|
03db 0884 4000 | @ |
03dd 0000 0000 | | .BLANK 0000[0xa]
03e7 0005 | | .XXX[0x1]
03e8 0000 0000 | | .BLANK 0000[0x4]
03ec 00d0 44b3 | D | .XXX[0x14]
03ee 0000 0000 | |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 0000 0000 | |
03f6 0000 0024 | $|
03f8 ff69 0038 | i 8|
03fa 0800 0001 | |
03fc 0000 0000 | |
03fe 0000 0008 | |