|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 04d8 | | .CONST 0x04d8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00fc | | .CONST 0x00fc ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0031 | 1 | .CONST 0x0031 ; Number of locals
000b INIT_0008:
000b 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
000d 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
000f 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0011 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0013 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0015 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0017 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0019 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
001b 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
001d 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
001f 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0021 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0023 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0025 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0027 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0029 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
002b 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
002d 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
002f 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0031 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0033 0093 0000 | | push_full_address 0x0
0035 60e2 |` | Indirect_Literal Discrete,0x118,{0x80000000, 0x00010000}
0036 0273 | s | Execute Discrete,Plus
0037 e002 | | Load 0x0,0x2
0038 0273 | s | Execute Discrete,Plus
0039 e003 | | Load 0x0,0x3
003a 0273 | s | Execute Discrete,Plus
003b e004 | | Load 0x0,0x4
003c e005 | | Load 0x0,0x5
003d 4800 |H | Short_Literal 0x0
003e a006 | | Store_Unchecked 0x0,0x6
003f a007 | | Store_Unchecked 0x0,0x7
0040 a008 | | Store_Unchecked 0x0,0x8
0041 a009 | | Store_Unchecked 0x0,0x9
0042 a00a | | Store_Unchecked 0x0,0xa
0043 a00b | | Store_Unchecked 0x0,0xb
0044 a00c | | Store_Unchecked 0x0,0xc
0045 a00d | | Store_Unchecked 0x0,0xd
0046 a00e | | Store_Unchecked 0x0,0xe
0047 e00f | | Load 0x0,0xf
0048 0386 | | Declare_Variable Package,Visible
0049 00d8 | | Load_Top At_Offset_0
004a 020f | | Execute Module,Activate
004b 00e1 | | Load_Encached Boolean_Cache
004c e010 | | Load 0x0,0x10
004d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
004e e004 | | Load 0x0,0x4
004f 4801 |H | Short_Literal 0x1
0050 e011 | | Load 0x0,0x11
0051 4801 |H | Short_Literal 0x1
0052 e012 | | Load 0x0,0x12
0053 e221 | ! | Load 0x1,0x21
0054 0098 | | Execute Package,Field_Read_Dynamic
0055 029f 040b | | Declare_Subprogram INIT_0408,For_Call
0057 4802 |H | Short_Literal 0x2
0058 4802 |H | Short_Literal 0x2
0059 4802 |H | Short_Literal 0x2
005a 4800 |H | Short_Literal 0x0
005b 4801 |H | Short_Literal 0x1
005c 031e | | Declare_Type Variant_Record,Defined,Visible
005d 00e1 | | Load_Encached Boolean_Cache
005e e004 | | Load 0x0,0x4
005f 4801 |H | Short_Literal 0x1
0060 e012 | | Load 0x0,0x12
0061 e221 | ! | Load 0x1,0x21
0062 0098 | | Execute Package,Field_Read_Dynamic
0063 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call
0065 4801 |H | Short_Literal 0x1
0066 4801 |H | Short_Literal 0x1
0067 4801 |H | Short_Literal 0x1
0068 4800 |H | Short_Literal 0x0
0069 4801 |H | Short_Literal 0x1
006a 031e | | Declare_Type Variant_Record,Defined,Visible
006b 00e1 | | Load_Encached Boolean_Cache
006c 4802 |H | Short_Literal 0x2
006d 4800 |H | Short_Literal 0x0
006e 4801 |H | Short_Literal 0x1
006f 4803 |H | Short_Literal 0x3
0070 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0071 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
0073 00d9 | | Load_Top At_Offset_1
0074 012a | * | Execute Any,Change_Utility
0075 0007 | | Action Break_Optional
0076 00d8 | | Load_Top At_Offset_0
0077 02a0 | | Declare_Subprogram Null_Subprogram
0078 4818 |H | Short_Literal 0x18
0079 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
007a 4800 |H | Short_Literal 0x0
007b 4803 |H | Short_Literal 0x3
007c 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
007e 03fe | | Declare_Type Discrete,Defined,Visible
007f e222 | " | Load 0x1,0x22
0080 00e1 | | Load_Encached Boolean_Cache
0081 00da | | Load_Top At_Offset_2
0082 00e1 | | Load_Encached Boolean_Cache
0083 e013 | | Load 0x0,0x13
0084 e221 | ! | Load 0x1,0x21
0085 0098 | | Execute Package,Field_Read_Dynamic
0086 029f 049b | | Declare_Subprogram INIT_0498,For_Call
0088 4805 |H | Short_Literal 0x5
0089 032e | . | Declare_Type Record,Defined,Visible
008a 00bf | | Action Accept_Activation
008b 00d9 | | Load_Top At_Offset_1
008c 0266 | f | Execute Discrete,Bounds
008d 00e1 | | Load_Encached Boolean_Cache
008e 02a0 | | Declare_Subprogram Null_Subprogram
008f 4801 |H | Short_Literal 0x1
0090 035d | ] | Declare_Type Array,Defined
0091 00d8 | | Load_Top At_Offset_0
0092 0337 | 7 | Declare_Variable Array
0093 00d8 | | Load_Top At_Offset_0
0094 0335 | 5 | Declare_Variable Array,Duplicate
0095 00cd | | Action Spare6_Action
0096 4800 |H | Short_Literal 0x0
0097 4800 |H | Short_Literal 0x0
0098 00da | | Load_Top At_Offset_2
0099 01d6 | | Execute Vector,Field_Write
009a 4800 |H | Short_Literal 0x0
009b 4801 |H | Short_Literal 0x1
009c 00da | | Load_Top At_Offset_2
009d 01d6 | | Execute Vector,Field_Write
009e 4800 |H | Short_Literal 0x0
009f 4802 |H | Short_Literal 0x2
00a0 00da | | Load_Top At_Offset_2
00a1 01d6 | | Execute Vector,Field_Write
00a2 4801 |H | Short_Literal 0x1
00a3 4803 |H | Short_Literal 0x3
00a4 00da | | Load_Top At_Offset_2
00a5 01d6 | | Execute Vector,Field_Write
00a6 00d9 | | Load_Top At_Offset_1
00a7 01d4 | | Execute Vector,Structure_Write
00a8 e014 | | Load 0x0,0x14
00a9 e015 | | Load 0x0,0x15
00aa e226 | & | Load 0x1,0x26
00ab 4800 |H | Short_Literal 0x0
00ac 4801 |H | Short_Literal 0x1
00ad 4803 |H | Short_Literal 0x3
00ae 0092 04af | | Action Push_String_Extended,0x4af ; "others => Unspecified"
00b0 00ea | | Load_Encached Null_String_Cache
00b1 00ea | | Load_Encached Null_String_Cache
00b2 4801 |H | Short_Literal 0x1
00b3 4803 |H | Short_Literal 0x3
00b4 e016 | | Load 0x0,0x16
00b5 0387 | | Declare_Variable Package
00b6 00d8 | | Load_Top At_Offset_0
00b7 020f | | Execute Module,Activate
00b8 4801 |H | Short_Literal 0x1
00b9 e017 | | Load 0x0,0x17
00ba 4801 |H | Short_Literal 0x1
00bb e018 | | Load 0x0,0x18
00bc e221 | ! | Load 0x1,0x21
00bd 0098 | | Execute Package,Field_Read_Dynamic
00be 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
00c0 4802 |H | Short_Literal 0x2
00c1 4800 |H | Short_Literal 0x0
00c2 e224 | $ | Load 0x1,0x24
00c3 0307 | | Complete_Type Variant_Record,By_Defining
00c4 e225 | % | Load 0x1,0x25
00c5 03c4 | | Complete_Type Access,By_Component_Completion
00c6 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call
00c8 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call
00ca 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00d1 00c7 | | Action Elaborate_Subprogram
00d2 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00d5 00c7 | | Action Elaborate_Subprogram
00d6 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call
00d8 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call
00da 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call
00dc 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call
00de 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call
00e0 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00e3 00c7 | | Action Elaborate_Subprogram
00e4 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00e5 00c7 | | Action Elaborate_Subprogram
00e6 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00e7 00c7 | | Action Elaborate_Subprogram
00e8 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00e9 00c7 | | Action Elaborate_Subprogram
00ea 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00eb 00c7 | | Action Elaborate_Subprogram
00ec 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00ed 00c7 | | Action Elaborate_Subprogram
00ee 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00ef 00c7 | | Action Elaborate_Subprogram
00f0 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00f1 00c7 | | Action Elaborate_Subprogram
00f2 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00f3 00c7 | | Action Elaborate_Subprogram
00f4 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00f5 00c7 | | Action Elaborate_Subprogram
00f6 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00f7 00c7 | | Action Elaborate_Subprogram
00f8 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00f9 00c7 | | Action Elaborate_Subprogram
00fa 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00fb 00c7 | | Action Elaborate_Subprogram
00fc BODY_0008:
00fc 00bc | | Action Signal_Activated
00fd 00bb | | Action Signal_Completion
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0106 | | .CONST 0x0106 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 00db | | Load_Top At_Offset_3
0104 e222 | " | Load 0x1,0x22
0105 1c08 | | Execute_Immediate Run_Utility,0x8
0106 BODY_0100:
0106 00db | | Load_Top At_Offset_3
0107 00d9 | | Load_Top At_Offset_1
0108 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0109 e5fd | | Load 0x2,-0x3
010a 00d9 | | Load_Top At_Offset_1
010b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
010c e5fe | | Load 0x2,-0x2
010d 7006 |p | Jump_Nonzero 0x114
010e e5fd | | Load 0x2,-0x3
010f e019 | | Load 0x0,0x19
0110 e221 | ! | Load 0x1,0x21
0111 0096 | | Execute Package,Entry
0112 00d9 | | Load_Top At_Offset_1
0113 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0114 00d8 | | Load_Top At_Offset_0
0115 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0116 0000 0000 | | .XXX[0x2]
0118 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0130 | 0 | .CONST 0x0130 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0004 | | .CONST 0x0004 ; Number of locals
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 e22a | * | Load 0x1,0x2a
0125 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0126 4800 |H | Short_Literal 0x0
0127 4801 |H | Short_Literal 0x1
0128 00da | | Load_Top At_Offset_2
0129 e22a | * | Load 0x1,0x2a
012a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
012b 00e1 | | Load_Encached Boolean_Cache
012c 03f1 | | Declare_Variable Discrete,With_Value
012d 00d8 | | Load_Top At_Offset_0
012e e222 | " | Load 0x1,0x22
012f 1c08 | | Execute_Immediate Run_Utility,0x8
0130 BODY_0120:
0130 00da | | Load_Top At_Offset_2
0131 e22a | * | Load 0x1,0x2a
0132 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0133 7002 |p | Jump_Nonzero 0x136
0134 e01a | | Load 0x0,0x1a
0135 0257 | W | Execute Discrete,Raise
0136 e5fe | | Load 0x2,-0x2
0137 00ea | | Load_Encached Null_String_Cache
0138 4802 |H | Short_Literal 0x2
0139 e402 | | Load 0x2,0x2
013a e22a | * | Load 0x1,0x2a
013b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
013c 8006 | | Call 0x0,0x6
013d 00d9 | | Load_Top At_Offset_1
013e 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
013f e5fe | | Load 0x2,-0x2
0140 00d9 | | Load_Top At_Offset_1
0141 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0142 00d9 | | Load_Top At_Offset_1
0143 700b |p | Jump_Nonzero 0x14f
0144 e5fe | | Load 0x2,-0x2
0145 00ea | | Load_Encached Null_String_Cache
0146 4803 |H | Short_Literal 0x3
0147 e402 | | Load 0x2,0x2
0148 e22a | * | Load 0x1,0x2a
0149 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
014a e01b | | Load 0x0,0x1b
014b e221 | ! | Load 0x1,0x21
014c 0096 | | Execute Package,Entry
014d 00d9 | | Load_Top At_Offset_1
014e 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
014f 00d8 | | Load_Top At_Offset_0
0150 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015f | _ | .CONST 0x015f ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b e222 | " | Load 0x1,0x22
015c 02ff | | Declare_Variable Variant_Record
015d 00d8 | | Load_Top At_Offset_0
015e 1c00 | | Execute_Immediate Run_Utility,0x0
015f BODY_0158:
015f 00d8 | | Load_Top At_Offset_0
0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0161 0000 0000 | | .BLANK 0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 0833 | 3 | Execute_Immediate Raise,0x33
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 0833 | 3 | Execute_Immediate Raise,0x33
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c e5fd | | Load 0x2,-0x3
017d 016d | m | Execute Variant_Record,Structure_Write
017e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
017f 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
0184 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0186 0000 0000 | | .XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 0833 | 3 | Execute_Immediate Raise,0x33
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 0833 | 3 | Execute_Immediate Raise,0x33
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a3 | | .CONST 0x01a3 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0004 | | .CONST 0x0004 ; Number of locals
019b INIT_0198:
019b 00e1 | | Load_Encached Boolean_Cache
019c e01c | | Load 0x0,0x1c
019d 0007 | | Action Break_Optional
019e e222 | " | Load 0x1,0x22
019f 02ff | | Declare_Variable Variant_Record
01a0 e5ff | | Load 0x2,-0x1
01a1 00d9 | | Load_Top At_Offset_1
01a2 016d | m | Execute Variant_Record,Structure_Write
01a3 BODY_0198:
01a3 e5ff | | Load 0x2,-0x1
01a4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01a5 6818 |h | Jump_Zero 0x1be
01a6 00d8 | | Load_Top At_Offset_0
01a7 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01a8 e5ff | | Load 0x2,-0x1
01a9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01aa e5ff | | Load 0x2,-0x1
01ab 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01ac 822b | + | Call 0x1,0x2b
01ad 00d9 | | Load_Top At_Offset_1
01ae 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01af 00e1 | | Load_Encached Boolean_Cache
01b0 00da | | Load_Top At_Offset_2
01b1 e5fe | | Load 0x2,-0x2
01b2 00db | | Load_Top At_Offset_3
01b3 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01b4 801d | | Call 0x0,0x1d
01b5 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01b6 005b | [ | Store_Top Discrete,At_Offset_3
01b7 00d8 | | Load_Top At_Offset_0
01b8 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01b9 822c | , | Call 0x1,0x2c
01ba 00d9 | | Load_Top At_Offset_1
01bb 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01bc 00da | | Load_Top At_Offset_2
01bd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01be e5fe | | Load 0x2,-0x2
01bf e5ff | | Load 0x2,-0x1
01c0 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01c1 e01e | | Load 0x0,0x1e
01c2 e221 | ! | Load 0x1,0x21
01c3 0096 | | Execute Package,Entry
01c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00db | | Load_Top At_Offset_3
01cc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01cd 6801 |h | Jump_Zero 0x1cf
01ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01cf 00db | | Load_Top At_Offset_3
01d0 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01d1 00db | | Load_Top At_Offset_3
01d2 e01f | | Load 0x0,0x1f
01d3 e221 | ! | Load 0x1,0x21
01d4 0096 | | Execute Package,Entry
01d5 e5fe | | Load 0x2,-0x2
01d6 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 0833 | 3 | Execute_Immediate Raise,0x33
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01ef | | .CONST 0x01ef ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0003 | | .CONST 0x0003 ; Number of locals
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e5 00d8 | | Load_Top At_Offset_0
01e6 e224 | $ | Load 0x1,0x24
01e7 1c06 | | Execute_Immediate Run_Utility,0x6
01e8 e225 | % | Load 0x1,0x25
01e9 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
01ea e222 | " | Load 0x1,0x22
01eb 02ff | | Declare_Variable Variant_Record
01ec e5ff | | Load 0x2,-0x1
01ed 00d9 | | Load_Top At_Offset_1
01ee 016d | m | Execute Variant_Record,Structure_Write
01ef BODY_01e0:
01ef e5ff | | Load 0x2,-0x1
01f0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01f1 681b |h | Jump_Zero 0x20d
01f2 00d8 | | Load_Top At_Offset_0
01f3 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01f4 e5ff | | Load 0x2,-0x1
01f5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01f6 e5ff | | Load 0x2,-0x1
01f7 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01f8 822b | + | Call 0x1,0x2b
01f9 00d9 | | Load_Top At_Offset_1
01fa 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01fb 00d9 | | Load_Top At_Offset_1
01fc 0229 | ) | Execute Access,All_Read
01fd e017 | | Load 0x0,0x17
01fe 00d9 | | Load_Top At_Offset_1
01ff 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0200 00d1 | | Pop_Control Pop_Count_1
0201 00da | | Load_Top At_Offset_2
0202 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0203 8020 | | Call 0x0,0x20
0204 00d9 | | Load_Top At_Offset_1
0205 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0206 00d1 | | Pop_Control Pop_Count_1
0207 00d8 | | Load_Top At_Offset_0
0208 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0209 822c | , | Call 0x1,0x2c
020a 00d9 | | Load_Top At_Offset_1
020b 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
020c 7810 |x | Jump 0x21d
020d 00d9 | | Load_Top At_Offset_1
020e 0229 | ) | Execute Access,All_Read
020f e018 | | Load 0x0,0x18
0210 e221 | ! | Load 0x1,0x21
0211 0098 | | Execute Package,Field_Read_Dynamic
0212 00d9 | | Load_Top At_Offset_1
0213 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0214 00d1 | | Pop_Control Pop_Count_1
0215 e5ff | | Load 0x2,-0x1
0216 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0217 e021 | ! | Load 0x0,0x21
0218 e221 | ! | Load 0x1,0x21
0219 0096 | | Execute Package,Entry
021a 00d9 | | Load_Top At_Offset_1
021b 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
021c 00d1 | | Pop_Control Pop_Count_1
021d 00d9 | | Load_Top At_Offset_1
021e a5fe | | Store_Unchecked 0x2,-0x2
021f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 0227 | ' | Execute Access,All_Reference
0225 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0226 6809 |h | Jump_Zero 0x230
0227 00da | | Load_Top At_Offset_2
0228 0229 | ) | Execute Access,All_Read
0229 00d8 | | Load_Top At_Offset_0
022a 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
022b 8022 | " | Call 0x0,0x22
022c 00d9 | | Load_Top At_Offset_1
022d 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
022e 00d1 | | Pop_Control Pop_Count_1
022f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0230 00da | | Load_Top At_Offset_2
0231 0229 | ) | Execute Access,All_Read
0232 00d8 | | Load_Top At_Offset_0
0233 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0234 e023 | # | Load 0x0,0x23
0235 e221 | ! | Load 0x1,0x21
0236 0096 | | Execute Package,Entry
0237 00d9 | | Load_Top At_Offset_1
0238 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0239 00d1 | | Pop_Control Pop_Count_1
023a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
023b 0000 0000 | | .BLANK 0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 0227 | ' | Execute Access,All_Reference
0245 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0246 6805 |h | Jump_Zero 0x24c
0247 00da | | Load_Top At_Offset_2
0248 0227 | ' | Execute Access,All_Reference
0249 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
024a 8024 | $ | Call 0x0,0x24
024b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024c 00da | | Load_Top At_Offset_2
024d 0227 | ' | Execute Access,All_Reference
024e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
024f e025 | % | Load 0x0,0x25
0250 e221 | ! | Load 0x1,0x21
0251 0096 | | Execute Package,Entry
0252 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0253 0000 0000 | | .BLANK 0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c 0227 | ' | Execute Access,All_Reference
025d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
025e 6805 |h | Jump_Zero 0x264
025f 00da | | Load_Top At_Offset_2
0260 0227 | ' | Execute Access,All_Reference
0261 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0262 8026 | & | Call 0x0,0x26
0263 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0264 00da | | Load_Top At_Offset_2
0265 0227 | ' | Execute Access,All_Reference
0266 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0267 e027 | ' | Load 0x0,0x27
0268 e221 | ! | Load 0x1,0x21
0269 0096 | | Execute Package,Entry
026a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026b 0000 0000 | | .BLANK 0000[0x5]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0277 | w | .CONST 0x0277 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0002 | | .CONST 0x0002 ; Number of locals
0273 INIT_0270:
0273 e227 | ' | Load 0x1,0x27
0274 0322 | " | Declare_Variable Record
0275 00d8 | | Load_Top At_Offset_0
0276 1c00 | | Execute_Immediate Run_Utility,0x0
0277 BODY_0270:
0277 00db | | Load_Top At_Offset_3
0278 00d9 | | Load_Top At_Offset_1
0279 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
027a 4801 |H | Short_Literal 0x1
027b 00d9 | | Load_Top At_Offset_1
027c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
027d 00d8 | | Load_Top At_Offset_0
027e 00d9 | | Load_Top At_Offset_1
027f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0280 822d | - | Call 0x1,0x2d
0281 00d1 | | Pop_Control Pop_Count_1
0282 00d8 | | Load_Top At_Offset_0
0283 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0284 0000 0000 | | .BLANK 0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00da | | Load_Top At_Offset_2
028c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
028d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028e 0000 0000 | | .XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 029d | | .CONST 0x029d ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0003 | | .CONST 0x0003 ; Number of locals
0293 INIT_0290:
0293 00da | | Load_Top At_Offset_2
0294 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0295 e226 | & | Load 0x1,0x26
0296 011c | | Execute Any,Convert_Unchecked
0297 1c01 | | Execute_Immediate Run_Utility,0x1
0298 0092 04b0 | | Action Push_String_Extended,0x4b0 ; "=>"
029a 01cc | | Execute Vector,Catenate
029b 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call
029d BODY_0290:
029d e5ff | | Load 0x2,-0x1
029e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
029f e229 | ) | Load 0x1,0x29
02a0 01d7 | | Execute Vector,Field_Read
02a1 6802 |h | Jump_Zero 0x2a4
02a2 8403 | | Call 0x2,0x3
02a3 7807 |x | Jump 0x2ab
02a4 00d9 | | Load_Top At_Offset_1
02a5 e5ff | | Load 0x2,-0x1
02a6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02a7 e5ff | | Load 0x2,-0x1
02a8 8230 | 0 | Call 0x1,0x30
02a9 01cc | | Execute Vector,Catenate
02aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ab 0831 | 1 | Execute_Immediate Raise,0x31
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00da | | Load_Top At_Offset_2
02b4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b5 702f |p/ | Jump_Nonzero 0x2e5
02b6 00da | | Load_Top At_Offset_2
02b7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02b8 e229 | ) | Load 0x1,0x29
02b9 01d7 | | Execute Vector,Field_Read
02ba 680b |h | Jump_Zero 0x2c6
02bb 00da | | Load_Top At_Offset_2
02bc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02bd 00db | | Load_Top At_Offset_3
02be 822f | / | Call 0x1,0x2f
02bf 7006 |p | Jump_Nonzero 0x2c6
02c0 00da | | Load_Top At_Offset_2
02c1 00db | | Load_Top At_Offset_3
02c2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02c3 822e | . | Call 0x1,0x2e
02c4 00d1 | | Pop_Control Pop_Count_1
02c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02c6 00da | | Load_Top At_Offset_2
02c7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02c8 0f02 | | Execute_Immediate Equal,0x2
02c9 6808 |h | Jump_Zero 0x2d2
02ca 00da | | Load_Top At_Offset_2
02cb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02cc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02cd 6804 |h | Jump_Zero 0x2d2
02ce 4801 |H | Short_Literal 0x1
02cf 00db | | Load_Top At_Offset_3
02d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02d1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d2 00da | | Load_Top At_Offset_2
02d3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02d4 0f03 | | Execute_Immediate Equal,0x3
02d5 6804 |h | Jump_Zero 0x2da
02d6 4801 |H | Short_Literal 0x1
02d7 00db | | Load_Top At_Offset_3
02d8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02da e226 | & | Load 0x1,0x26
02db 00db | | Load_Top At_Offset_3
02dc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02dd 0268 | h | Execute Discrete,Successor
02de 00db | | Load_Top At_Offset_3
02df 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02e0 00da | | Load_Top At_Offset_2
02e1 00db | | Load_Top At_Offset_3
02e2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02e3 822d | - | Call 0x1,0x2d
02e4 00d1 | | Pop_Control Pop_Count_1
02e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02e6 0000 0000 | | .XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb BODY_02e8:
02eb INIT_02e8:
02eb INIT_02e8:
02eb 4609 |F | Jump_Case 0xa
02ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02ee 7808 |x | Jump 0x2f7 ; case 0x2
02ef 780b |x | Jump 0x2fb ; case 0x3
02f0 7810 |x | Jump 0x301 ; case 0x4
02f1 781a |x | Jump 0x30c ; case 0x5
02f2 7821 |x! | Jump 0x314 ; case 0x6
02f3 7827 |x' | Jump 0x31b ; case 0x7
02f4 7830 |x0 | Jump 0x325 ; case 0x8
02f5 7836 |x6 | Jump 0x32c ; case 0x9
02f6 4302 |C | .XXX[0x1]
02f7 4801 |H | Short_Literal 0x1
02f8 4803 |H | Short_Literal 0x3
02f9 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
02fa 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02fb e5fd | | Load 0x2,-0x3
02fc 00db | | Load_Top At_Offset_3
02fd 1c07 | | Execute_Immediate Run_Utility,0x7
02fe e5fe | | Load 0x2,-0x2
02ff 0306 | | Complete_Type Variant_Record,By_Renaming
0300 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0301 4801 |H | Short_Literal 0x1
0302 4803 |H | Short_Literal 0x3
0303 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0304 e5fe | | Load 0x2,-0x2
0305 00d8 | | Load_Top At_Offset_0
0306 e5ff | | Load 0x2,-0x1
0307 1c06 | | Execute_Immediate Run_Utility,0x6
0308 e5ff | | Load 0x2,-0x1
0309 00db | | Load_Top At_Offset_3
030a 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
030b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
030c 4801 |H | Short_Literal 0x1
030d 00db | | Load_Top At_Offset_3
030e 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
030f 0f01 | | Execute_Immediate Equal,0x1
0310 7000 |p | Jump_Nonzero 0x311
0311 e5ff | | Load 0x2,-0x1
0312 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
0313 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0314 00db | | Load_Top At_Offset_3
0315 0f01 | | Execute_Immediate Equal,0x1
0316 7002 |p | Jump_Nonzero 0x319
0317 4802 |H | Short_Literal 0x2
0318 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0319 4801 |H | Short_Literal 0x1
031a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
031b 00db | | Load_Top At_Offset_3
031c e5fe | | Load 0x2,-0x2
031d 0f01 | | Execute_Immediate Equal,0x1
031e 7002 |p | Jump_Nonzero 0x321
031f 4802 |H | Short_Literal 0x2
0320 7801 |x | Jump 0x322
0321 4801 |H | Short_Literal 0x1
0322 e5ff | | Load 0x2,-0x1
0323 031b | | Declare_Type Variant_Record,Constrained
0324 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0325 00db | | Load_Top At_Offset_3
0326 e5fe | | Load 0x2,-0x2
0327 e5ff | | Load 0x2,-0x1
0328 1c06 | | Execute_Immediate Run_Utility,0x6
0329 e5ff | | Load 0x2,-0x1
032a 02fc | | Declare_Variable Variant_Record,With_Constraint
032b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
032c 0869 | i | Execute_Immediate Raise,0x69
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 4607 |F | Jump_Case 0x8
0334 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0335 7807 |x | Jump 0x33d ; case 0x1
0336 780a |x | Jump 0x341 ; case 0x2
0337 780e |x | Jump 0x346 ; case 0x3
0338 7811 |x | Jump 0x34a ; case 0x4
0339 7812 |x | Jump 0x34c ; case 0x5
033a 7813 |x | Jump 0x34e ; case 0x6
033b 7816 |x | Jump 0x352 ; case 0x7
033c 4302 |C | .XXX[0x1]
033d 00da | | Load_Top At_Offset_2
033e 0091 04ab | | Action Push_String_Extended_Indexed,0x4ab ; "NONE"
0340 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0341 00db | | Load_Top At_Offset_3
0342 00db | | Load_Top At_Offset_3
0343 00e0 | | Load_Encached Standard_Cache
0344 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0345 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0346 00da | | Load_Top At_Offset_2
0347 00e0 | | Load_Encached Standard_Cache
0348 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0349 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
034a 00db | | Load_Top At_Offset_3
034b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
034c 00db | | Load_Top At_Offset_3
034d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
034e e226 | & | Load 0x1,0x26
034f 00dc | | Load_Top At_Offset_4
0350 0267 | g | Execute Discrete,Predecessor
0351 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0352 e226 | & | Load 0x1,0x26
0353 00dc | | Load_Top At_Offset_4
0354 0268 | h | Execute Discrete,Successor
0355 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0356 0000 0000 | | .XXX[0x2]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0362 | b | .CONST 0x0362 ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0003 | | .CONST 0x0003 ; Number of locals
035b INIT_0358:
035b e011 | | Load 0x0,0x11
035c 0007 | | Action Break_Optional
035d e028 | ( | Load 0x0,0x28
035e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
035f 02c7 | | Declare_Variable Any
0360 00d8 | | Load_Top At_Offset_0
0361 1c00 | | Execute_Immediate Run_Utility,0x0
0362 BODY_0358:
0362 e5fe | | Load 0x2,-0x2
0363 8029 | ) | Call 0x0,0x29
0364 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0365 00d9 | | Load_Top At_Offset_1
0366 e5ff | | Load 0x2,-0x1
0367 4800 |H | Short_Literal 0x0
0368 802a | * | Call 0x0,0x2a
0369 0032 | 2 | Store_Top Heap_Access,At_Offset_2
036a 00d8 | | Load_Top At_Offset_0
036b 00da | | Load_Top At_Offset_2
036c 802b | + | Call 0x0,0x2b
036d c403 | | Store 0x2,0x3
036e 4802 |H | Short_Literal 0x2
036f e5ff | | Load 0x2,-0x1
0370 00da | | Load_Top At_Offset_2
0371 802c | , | Call 0x0,0x2c
0372 00d9 | | Load_Top At_Offset_1
0373 a5fd | | Store_Unchecked 0x2,-0x3
0374 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0375 0000 0000 | | .XXX[0x3]
0377 0000 | |
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 4800 |H | Short_Literal 0x0
037d 802d | - | Call 0x0,0x2d
037e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
037f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2
0384 4800 |H | Short_Literal 0x0
0385 4802 |H | Short_Literal 0x2
0386 0262 | b | Execute Discrete,In_Range
0387 7008 |p | Jump_Nonzero 0x390
0388 00db | | Load_Top At_Offset_3
0389 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
038a 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
038b e02e | . | Load 0x0,0x2e
038c e221 | ! | Load 0x1,0x21
038d 0096 | | Execute Package,Entry
038e e5fe | | Load 0x2,-0x2
038f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0390 4801 |H | Short_Literal 0x1
0391 e5fe | | Load 0x2,-0x2
0392 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0393 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0394 0000 0000 | | .BLANK 0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 00da | | Load_Top At_Offset_2
039c 4800 |H | Short_Literal 0x0
039d 4802 |H | Short_Literal 0x2
039e 0262 | b | Execute Discrete,In_Range
039f 7006 |p | Jump_Nonzero 0x3a6
03a0 00db | | Load_Top At_Offset_3
03a1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
03a2 e02f | / | Load 0x0,0x2f
03a3 e221 | ! | Load 0x1,0x21
03a4 0096 | | Execute Package,Entry
03a5 00d1 | | Pop_Control Pop_Count_1
03a6 4800 |H | Short_Literal 0x0
03a7 e5fe | | Load 0x2,-0x2
03a8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03aa 0000 0000 | | .BLANK 0000[0x6]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 00db | | Load_Top At_Offset_3
03b4 4800 |H | Short_Literal 0x0
03b5 4802 |H | Short_Literal 0x2
03b6 0262 | b | Execute Discrete,In_Range
03b7 7006 |p | Jump_Nonzero 0x3be
03b8 00da | | Load_Top At_Offset_2
03b9 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
03ba e030 | 0 | Load 0x0,0x30
03bb e221 | ! | Load 0x1,0x21
03bc 0096 | | Execute Package,Entry
03bd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03be 0833 | 3 | Execute_Immediate Raise,0x33
03bf 0000 | | .XXX[0x1]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00db | | Load_Top At_Offset_3
03c4 4603 |F | Jump_Case 0x4
03c5 7803 |x | Jump 0x3c9 ; case 0x0
03c6 7803 |x | Jump 0x3ca ; case 0x1
03c7 7809 |x | Jump 0x3d1 ; case 0x2
03c8 7800 |x | Jump 0x3c9 ; case 0x3
03c9 0833 | 3 | Execute_Immediate Raise,0x33
03ca 00da | | Load_Top At_Offset_2
03cb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03cc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03cd 00e1 | | Load_Encached Boolean_Cache
03ce 011c | | Execute Any,Convert_Unchecked
03cf 1c01 | | Execute_Immediate Run_Utility,0x1
03d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03d1 00da | | Load_Top At_Offset_2
03d2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03d3 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03d4 8031 | 1 | Call 0x0,0x31
03d5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03d6 0000 0000 | | .XXX[0x2]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 00db | | Load_Top At_Offset_3
03dc 00db | | Load_Top At_Offset_3
03dd 822f | / | Call 0x1,0x2f
03de 6803 |h | Jump_Zero 0x3e2
03df 0092 04b1 | | Action Push_String_Extended,0x4b1 ; ")"
03e1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e2 00db | | Load_Top At_Offset_3
03e3 4800 |H | Short_Literal 0x0
03e4 4802 |H | Short_Literal 0x2
03e5 0262 | b | Execute Discrete,In_Range
03e6 7006 |p | Jump_Nonzero 0x3ed
03e7 00da | | Load_Top At_Offset_2
03e8 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
03e9 e032 | 2 | Load 0x0,0x32
03ea e221 | ! | Load 0x1,0x21
03eb 0096 | | Execute Package,Entry
03ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ed 0833 | 3 | Execute_Immediate Raise,0x33
03ee 0000 0000 | | .XXX[0x2]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f7 | | .CONST 0x03f7 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0002 | | .CONST 0x0002 ; Number of locals
03f3 INIT_03f0:
03f3 e5ff | | Load 0x2,-0x1
03f4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03f5 e5ff | | Load 0x2,-0x1
03f6 8231 | 1 | Call 0x1,0x31
03f7 BODY_03f0:
03f7 e5ff | | Load 0x2,-0x1
03f8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03f9 6808 |h | Jump_Zero 0x402
03fa e402 | | Load 0x2,0x2
03fb 0092 04b2 | | Action Push_String_Extended,0x4b2 ; "("
03fd 01cc | | Execute Vector,Catenate
03fe 00d9 | | Load_Top At_Offset_1
03ff 01cc | | Execute Vector,Catenate
0400 00cb | | Action Pop_Block_With_Result
0401 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0402 00d8 | | Load_Top At_Offset_0
0403 00cb | | Action Pop_Block_With_Result
0404 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0405 0000 0000 | | .XXX[0x3]
0407 0000 | |
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 4609 |F | Jump_Case 0xa
040c 7809 |x | Jump 0x416 ; case 0x0
040d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
040e 7818 |x | Jump 0x427 ; case 0x2
040f 781b |x | Jump 0x42b ; case 0x3
0410 783c |x< | Jump 0x44d ; case 0x4
0411 783b |x; | Jump 0x44d ; case 0x5
0412 781e |x | Jump 0x431 ; case 0x6
0413 7824 |x$ | Jump 0x438 ; case 0x7
0414 782d |x- | Jump 0x442 ; case 0x8
0415 7833 |x3 | Jump 0x449 ; case 0x9
0416 00da | | Load_Top At_Offset_2
0417 016c | l | Execute Variant_Record,Is_Constrained
0418 7009 |p | Jump_Nonzero 0x422
0419 00cf | | Action Mark_Auxiliary
041a 4801 |H | Short_Literal 0x1
041b e5ff | | Load 0x2,-0x1
041c 1c08 | | Execute_Immediate Run_Utility,0x8
041d 00d8 | | Load_Top At_Offset_0
041e 1c00 | | Execute_Immediate Run_Utility,0x0
041f c5ff | | Store 0x2,-0x1
0420 00ce | | Action Pop_Auxiliary
0421 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0422 00da | | Load_Top At_Offset_2
0423 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0424 0f01 | | Execute_Immediate Equal,0x1
0425 7000 |p | Jump_Nonzero 0x426
0426 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0427 4801 |H | Short_Literal 0x1
0428 4805 |H | Short_Literal 0x5
0429 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
042a 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
042b e5fd | | Load 0x2,-0x3
042c 00db | | Load_Top At_Offset_3
042d 1c07 | | Execute_Immediate Run_Utility,0x7
042e e5fe | | Load 0x2,-0x2
042f 0306 | | Complete_Type Variant_Record,By_Renaming
0430 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0431 00db | | Load_Top At_Offset_3
0432 0f01 | | Execute_Immediate Equal,0x1
0433 7002 |p | Jump_Nonzero 0x436
0434 4802 |H | Short_Literal 0x2
0435 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0436 4801 |H | Short_Literal 0x1
0437 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0438 00db | | Load_Top At_Offset_3
0439 e5fe | | Load 0x2,-0x2
043a 0f01 | | Execute_Immediate Equal,0x1
043b 7002 |p | Jump_Nonzero 0x43e
043c 4802 |H | Short_Literal 0x2
043d 7801 |x | Jump 0x43f
043e 4801 |H | Short_Literal 0x1
043f e5ff | | Load 0x2,-0x1
0440 031b | | Declare_Type Variant_Record,Constrained
0441 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0442 00db | | Load_Top At_Offset_3
0443 e5fe | | Load 0x2,-0x2
0444 e5ff | | Load 0x2,-0x1
0445 1c06 | | Execute_Immediate Run_Utility,0x6
0446 e5ff | | Load 0x2,-0x1
0447 02fc | | Declare_Variable Variant_Record,With_Constraint
0448 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0449 4801 |H | Short_Literal 0x1
044a 00db | | Load_Top At_Offset_3
044b 1c07 | | Execute_Immediate Run_Utility,0x7
044c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
044d 0869 | i | Execute_Immediate Raise,0x69
044e 0000 0000 | | .XXX[0x2]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 4609 |F | Jump_Case 0xa
0454 7809 |x | Jump 0x45e ; case 0x0
0455 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0456 7818 |x | Jump 0x46f ; case 0x2
0457 781b |x | Jump 0x473 ; case 0x3
0458 783c |x< | Jump 0x495 ; case 0x4
0459 783b |x; | Jump 0x495 ; case 0x5
045a 781e |x | Jump 0x479 ; case 0x6
045b 7824 |x$ | Jump 0x480 ; case 0x7
045c 782d |x- | Jump 0x48a ; case 0x8
045d 7833 |x3 | Jump 0x491 ; case 0x9
045e 00da | | Load_Top At_Offset_2
045f 016c | l | Execute Variant_Record,Is_Constrained
0460 7009 |p | Jump_Nonzero 0x46a
0461 00cf | | Action Mark_Auxiliary
0462 4801 |H | Short_Literal 0x1
0463 e5ff | | Load 0x2,-0x1
0464 1c08 | | Execute_Immediate Run_Utility,0x8
0465 00d8 | | Load_Top At_Offset_0
0466 1c00 | | Execute_Immediate Run_Utility,0x0
0467 c5ff | | Store 0x2,-0x1
0468 00ce | | Action Pop_Auxiliary
0469 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
046a 00da | | Load_Top At_Offset_2
046b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
046c 0f01 | | Execute_Immediate Equal,0x1
046d 7000 |p | Jump_Nonzero 0x46e
046e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
046f 4801 |H | Short_Literal 0x1
0470 4803 |H | Short_Literal 0x3
0471 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0472 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0473 e5fd | | Load 0x2,-0x3
0474 00db | | Load_Top At_Offset_3
0475 1c07 | | Execute_Immediate Run_Utility,0x7
0476 e5fe | | Load 0x2,-0x2
0477 0306 | | Complete_Type Variant_Record,By_Renaming
0478 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0479 00db | | Load_Top At_Offset_3
047a 6801 |h | Jump_Zero 0x47c
047b 7802 |x | Jump 0x47e
047c 4801 |H | Short_Literal 0x1
047d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
047e 48ff |H | Short_Literal 0xff
047f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0480 00db | | Load_Top At_Offset_3
0481 e5fe | | Load 0x2,-0x2
0482 0f01 | | Execute_Immediate Equal,0x1
0483 7002 |p | Jump_Nonzero 0x486
0484 4801 |H | Short_Literal 0x1
0485 7801 |x | Jump 0x487
0486 48ff |H | Short_Literal 0xff
0487 e5ff | | Load 0x2,-0x1
0488 031b | | Declare_Type Variant_Record,Constrained
0489 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
048a 00db | | Load_Top At_Offset_3
048b e5fe | | Load 0x2,-0x2
048c e5ff | | Load 0x2,-0x1
048d 1c06 | | Execute_Immediate Run_Utility,0x6
048e e5ff | | Load 0x2,-0x1
048f 02fc | | Declare_Variable Variant_Record,With_Constraint
0490 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0491 4801 |H | Short_Literal 0x1
0492 00db | | Load_Top At_Offset_3
0493 1c07 | | Execute_Immediate Run_Utility,0x7
0494 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0495 0869 | i | Execute_Immediate Raise,0x69
0496 0000 0000 | | .XXX[0x2]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 4601 |F | Jump_Case 0x2
049c 7801 |x | Jump 0x49e ; case 0x0
049d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
049e 00da | | Load_Top At_Offset_2
049f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04a0 1c00 | | Execute_Immediate Run_Utility,0x0
04a1 4800 |H | Short_Literal 0x0
04a2 00db | | Load_Top At_Offset_3
04a3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04a4 4801 |H | Short_Literal 0x1
04a5 00db | | Load_Top At_Offset_3
04a6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04a7 00da | | Load_Top At_Offset_2
04a8 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
04a9 1c00 | | Execute_Immediate Run_Utility,0x0
04aa 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04ab ; --------------------------------------------------------------------------------------
04ab ; STRING TABLE
04ab ; --------------------------------------------------------------------------------------
04ab 0012 | | .STRTAB 0x0012->0x04b4 ; "NONE"
04ac 0014 | | .STRTAB 0x0014->0x04b6 ; "FULL_SET"
04ad 001a | | .STRTAB 0x001a->0x04ba ; "THE_TEST_RUN"
04ae 0024 | $ | .STRTAB 0x0024->0x04c0 ; "THE_SUBSET"
04af 002c | , | .STRTAB 0x002c->0x04c5 ; "others => Unspecified"
04b0 003f | ? | .STRTAB 0x003f->0x04cf ; "=>"
04b1 003f | ? | .STRTAB 0x003f->0x04d0 ; ")"
04b2 003e | > | .STRTAB 0x003e->0x04d1 ; "("
04b3 003d | = | .STREND 0x003d->0x04d1
04b4 4e4f 4e45 |NONE| .STRTAB_STRINGS
04d2 0000 0000 | | .BLANK 0000[0x6]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; Debug Table
04d8 ; --------------------------------------------------------------------------------------
04d8 0004 000a | | .DEBUG4 0x0004,0x000a,0x0367,0x0000,0x0001,0x0000
04de 0000 0000 | | .BLANK 0000[0x122]