|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6060f0
└─⟦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 01e8 | | .CONST 0x01e8 ; 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 0044 | D | .CONST 0x0044 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 4800 |H | Short_Literal 0x0
000d 4801 |H | Short_Literal 0x1
000e 4801 |H | Short_Literal 0x1
000f 4804 |H | Short_Literal 0x4
0010 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0011 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0013 00d9 | | Load_Top At_Offset_1
0014 012a | * | Execute Any,Change_Utility
0015 0007 | | Action Break_Optional
0016 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
0018 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
001a 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
001c 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
001e 00e1 | | Load_Encached Boolean_Cache
001f 4801 |H | Short_Literal 0x1
0020 e001 | | Load 0x0,0x1
0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 4802 |H | Short_Literal 0x2
0023 e20f | | Load 0x1,0xf
0024 e210 | | Load 0x1,0x10
0025 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
0027 4803 |H | Short_Literal 0x3
0028 4800 |H | Short_Literal 0x0
0029 4802 |H | Short_Literal 0x2
002a 4800 |H | Short_Literal 0x0
002b 4801 |H | Short_Literal 0x1
002c 031d | | Declare_Type Variant_Record,Defined
002d 00d8 | | Load_Top At_Offset_0
002e 00e3 | | Load_Encached Natural_Cache
002f 00e9 | | Load_Encached String_Cache
0030 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0032 4800 |H | Short_Literal 0x0
0033 4801 |H | Short_Literal 0x1
0034 4802 |H | Short_Literal 0x2
0035 e213 | | Load 0x1,0x13
0036 0307 | | Complete_Type Variant_Record,By_Defining
0037 00bf | | Action Accept_Activation
0038 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0039 00c7 | | Action Elaborate_Subprogram
003a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003b 00c7 | | Action Elaborate_Subprogram
003c 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call
003e 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
0040 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0041 00c7 | | Action Elaborate_Subprogram
0042 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0043 00c7 | | Action Elaborate_Subprogram
0044 BODY_0008:
0044 00bc | | Action Signal_Activated
0045 00bb | | Action Signal_Completion
0046 0000 0000 | | .XXX[0x2]
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 4800 |H | Short_Literal 0x0
004c e218 | | Load 0x1,0x18
004d 1c08 | | Execute_Immediate Run_Utility,0x8
004e 00db | | Load_Top At_Offset_3
004f 00d9 | | Load_Top At_Offset_1
0050 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0051 e5fe | | Load 0x2,-0x2
0052 e218 | | Load 0x1,0x18
0053 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4
0054 0119 | | Execute Any,Check_In_Formal_Type
0055 00d9 | | Load_Top At_Offset_1
0056 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0057 e5fd | | Load 0x2,-0x3
0058 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0059 4800 |H | Short_Literal 0x0
005a e5fd | | Load 0x2,-0x3
005b 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
005c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
005d 0000 0000 | | .XXX[0x3]
005f 0000 | |
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 4801 |H | Short_Literal 0x1
0064 e218 | | Load 0x1,0x18
0065 1c08 | | Execute_Immediate Run_Utility,0x8
0066 00db | | Load_Top At_Offset_3
0067 e218 | | Load 0x1,0x18
0068 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
0069 0119 | | Execute Any,Check_In_Formal_Type
006a 00d9 | | Load_Top At_Offset_1
006b 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
006c e5fe | | Load 0x2,-0x2
006d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
006e 4800 |H | Short_Literal 0x0
006f e5fe | | Load 0x2,-0x2
0070 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0071 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0089 | | .CONST 0x0089 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0004 | | .CONST 0x0004 ; Number of locals
007b INIT_0078:
007b 4801 |H | Short_Literal 0x1
007c e5fd | | Load 0x2,-0x3
007d 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
007e e5fd | | Load 0x2,-0x3
007f 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0080 01cf | | Execute Vector,Slice_Read
0081 00db | | Load_Top At_Offset_3
0082 01cc | | Execute Vector,Catenate
0083 0007 | | Action Break_Optional
0084 00d8 | | Load_Top At_Offset_0
0085 01dd | | Execute Vector,First
0086 00e3 | | Load_Encached Natural_Cache
0087 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0088 00e3 | | Load_Encached Natural_Cache
0089 BODY_0078:
0089 e5fe | | Load 0x2,-0x2
008a 01db | | Execute Vector,Length
008b 0c01 | | Execute_Immediate Greater_Equal,0x1
008c 6815 |h | Jump_Zero 0xa2
008d 4800 |H | Short_Literal 0x0
008e 00db | | Load_Top At_Offset_3
008f e5fe | | Load 0x2,-0x2
0090 e002 | | Load 0x0,0x2
0091 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0092 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0093 00d8 | | Load_Top At_Offset_0
0094 0c01 | | Execute_Immediate Greater_Equal,0x1
0095 6806 |h | Jump_Zero 0x9c
0096 4801 |H | Short_Literal 0x1
0097 a5fc | | Store_Unchecked 0x2,-0x4
0098 00d8 | | Load_Top At_Offset_0
0099 0aff | | Execute_Immediate Plus,-0x1
009a 0059 | Y | Store_Top Discrete,At_Offset_1
009b 780b |x | Jump 0xa7
009c 4800 |H | Short_Literal 0x0
009d a5fc | | Store_Unchecked 0x2,-0x4
009e 00da | | Load_Top At_Offset_2
009f 01dc | | Execute Vector,Last
00a0 0059 | Y | Store_Top Discrete,At_Offset_1
00a1 7805 |x | Jump 0xa7
00a2 4800 |H | Short_Literal 0x0
00a3 a5fc | | Store_Unchecked 0x2,-0x4
00a4 00da | | Load_Top At_Offset_2
00a5 01dc | | Execute Vector,Last
00a6 0059 | Y | Store_Top Discrete,At_Offset_1
00a7 00cf | | Action Mark_Auxiliary
00a8 00d9 | | Load_Top At_Offset_1
00a9 e402 | | Load 0x2,0x2
00aa 01dd | | Execute Vector,First
00ab 0263 | c | Execute Discrete,Above_Bound
00ac 7017 |p | Jump_Nonzero 0xc4
00ad 00d8 | | Load_Top At_Offset_0
00ae e402 | | Load 0x2,0x2
00af 01d7 | | Execute Vector,Field_Read
00b0 e212 | | Load 0x1,0x12
00b1 027f | | Execute Discrete,Equal
00b2 680f |h | Jump_Zero 0xc2
00b3 e5fd | | Load 0x2,-0x3
00b4 e403 | | Load 0x2,0x3
00b5 00da | | Load_Top At_Offset_2
00b6 0aff | | Execute_Immediate Plus,-0x1
00b7 00d8 | | Load_Top At_Offset_0
00b8 00e2 | | Load_Encached Integer_Cache
00b9 0260 | ` | Execute Discrete,In_Type
00ba 7001 |p | Jump_Nonzero 0xbc
00bb 0801 | | Execute_Immediate Raise,0x1
00bc e402 | | Load 0x2,0x2
00bd 01cf | | Execute Vector,Slice_Read
00be 8219 | | Call 0x1,0x19
00bf 00d8 | | Load_Top At_Offset_0
00c0 0a01 | | Execute_Immediate Plus,0x1
00c1 c403 | | Store 0x2,0x3
00c2 00c8 | | Action Pop_Auxiliary_Range
00c3 3fe9 |? | Loop_Increasing 0xad
00c4 00ce | | Action Pop_Auxiliary
00c5 00d9 | | Load_Top At_Offset_1
00c6 00db | | Load_Top At_Offset_3
00c7 01dd | | Execute Vector,First
00c8 027f | | Execute Discrete,Equal
00c9 681e |h | Jump_Zero 0xe8
00ca 00da | | Load_Top At_Offset_2
00cb 01db | | Execute Vector,Length
00cc e5fd | | Load 0x2,-0x3
00cd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ce 027d | } | Execute Discrete,Greater
00cf 6807 |h | Jump_Zero 0xd7
00d0 4800 |H | Short_Literal 0x0
00d1 e5fd | | Load 0x2,-0x3
00d2 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00d3 e5fd | | Load 0x2,-0x3
00d4 00db | | Load_Top At_Offset_3
00d5 821a | | Call 0x1,0x1a
00d6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d7 00da | | Load_Top At_Offset_2
00d8 01db | | Execute Vector,Length
00d9 e5fd | | Load 0x2,-0x3
00da 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00db 00da | | Load_Top At_Offset_2
00dc 4801 |H | Short_Literal 0x1
00dd e402 | | Load 0x2,0x2
00de 01db | | Execute Vector,Length
00df 00d8 | | Load_Top At_Offset_0
00e0 00e2 | | Load_Encached Integer_Cache
00e1 0260 | ` | Execute Discrete,In_Type
00e2 7001 |p | Jump_Nonzero 0xe4
00e3 0801 | | Execute_Immediate Raise,0x1
00e4 e5fd | | Load 0x2,-0x3
00e5 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00e6 01ce | | Execute Vector,Slice_Write
00e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e8 00d9 | | Load_Top At_Offset_1
00e9 00d9 | | Load_Top At_Offset_1
00ea 027a | z | Execute Discrete,Less_Equal
00eb 6822 |h" | Jump_Zero 0x10e
00ec 00d8 | | Load_Top At_Offset_0
00ed 00da | | Load_Top At_Offset_2
00ee 0272 | r | Execute Discrete,Minus
00ef 0a01 | | Execute_Immediate Plus,0x1
00f0 e5fd | | Load 0x2,-0x3
00f1 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00f2 e5fd | | Load 0x2,-0x3
00f3 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00f4 e5fd | | Load 0x2,-0x3
00f5 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00f6 01dc | | Execute Vector,Last
00f7 027a | z | Execute Discrete,Less_Equal
00f8 680b |h | Jump_Zero 0x104
00f9 00d9 | | Load_Top At_Offset_1
00fa 00d9 | | Load_Top At_Offset_1
00fb e402 | | Load 0x2,0x2
00fc 01cf | | Execute Vector,Slice_Read
00fd 4801 |H | Short_Literal 0x1
00fe e5fd | | Load 0x2,-0x3
00ff 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0100 e5fd | | Load 0x2,-0x3
0101 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0102 01ce | | Execute Vector,Slice_Write
0103 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0104 4800 |H | Short_Literal 0x0
0105 e5fd | | Load 0x2,-0x3
0106 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0107 e5fd | | Load 0x2,-0x3
0108 00da | | Load_Top At_Offset_2
0109 00da | | Load_Top At_Offset_2
010a e402 | | Load 0x2,0x2
010b 01cf | | Execute Vector,Slice_Read
010c 821a | | Call 0x1,0x1a
010d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010e 4800 |H | Short_Literal 0x0
010f e5fd | | Load 0x2,-0x3
0110 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0111 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
011d 0c01 | | Execute_Immediate Greater_Equal,0x1
011e 680b |h | Jump_Zero 0x12a
011f 00da | | Load_Top At_Offset_2
0120 4801 |H | Short_Literal 0x1
0121 e5ff | | Load 0x2,-0x1
0122 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0123 e5ff | | Load 0x2,-0x1
0124 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0125 01cf | | Execute Vector,Slice_Read
0126 8219 | | Call 0x1,0x19
0127 4800 |H | Short_Literal 0x0
0128 00db | | Load_Top At_Offset_3
0129 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
012a 00da | | Load_Top At_Offset_2
012b 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
012c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
012d 6805 |h | Jump_Zero 0x133
012e 00da | | Load_Top At_Offset_2
012f 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0130 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0131 e001 | | Load 0x0,0x1
0132 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0133 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0134 0000 0000 | | .BLANK 0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00db | | Load_Top At_Offset_3
013c 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
013d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
013e 7010 |p | Jump_Nonzero 0x14f
013f 00db | | Load_Top At_Offset_3
0140 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0141 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0142 e210 | | Load 0x1,0x10
0143 0119 | | Execute Any,Check_In_Formal_Type
0144 e5fe | | Load 0x2,-0x2
0145 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0146 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0147 00d8 | | Load_Top At_Offset_0
0148 e20f | | Load 0x1,0xf
0149 0260 | ` | Execute Discrete,In_Type
014a 7001 |p | Jump_Nonzero 0x14c
014b 0801 | | Execute_Immediate Raise,0x1
014c e5ff | | Load 0x2,-0x1
014d 8211 | | Call 0x1,0x11
014e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
014f 00da | | Load_Top At_Offset_2
0150 e5fe | | Load 0x2,-0x2
0151 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0152 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0153 e001 | | Load 0x0,0x1
0154 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0155 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0156 0000 0000 | | .XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00db | | Load_Top At_Offset_3
015c 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
015d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
015e 7010 |p | Jump_Nonzero 0x16f
015f 00db | | Load_Top At_Offset_3
0160 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0161 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0162 e210 | | Load 0x1,0x10
0163 0119 | | Execute Any,Check_In_Formal_Type
0164 e5fe | | Load 0x2,-0x2
0165 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0166 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0167 00d8 | | Load_Top At_Offset_0
0168 e20f | | Load 0x1,0xf
0169 0260 | ` | Execute Discrete,In_Type
016a 7001 |p | Jump_Nonzero 0x16c
016b 0801 | | Execute_Immediate Raise,0x1
016c e5ff | | Load 0x2,-0x1
016d 8211 | | Call 0x1,0x11
016e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
016f 00da | | Load_Top At_Offset_2
0170 e5fe | | Load 0x2,-0x2
0171 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0172 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0173 e001 | | Load 0x0,0x1
0174 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
0175 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0176 0000 0000 | | .XXX[0x2]
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 4608 |F | Jump_Case 0x9
017c 7808 |x | Jump 0x185 ; case 0x0
017d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
017e 783a |x: | Jump 0x1b9 ; case 0x2
017f 7839 |x9 | Jump 0x1b9 ; case 0x3
0180 7838 |x8 | Jump 0x1b9 ; case 0x4
0181 7837 |x7 | Jump 0x1b9 ; case 0x5
0182 781e |x | Jump 0x1a1 ; case 0x6
0183 7824 |x$ | Jump 0x1a8 ; case 0x7
0184 782d |x- | Jump 0x1b2 ; case 0x8
0185 00da | | Load_Top At_Offset_2
0186 016c | l | Execute Variant_Record,Is_Constrained
0187 7009 |p | Jump_Nonzero 0x191
0188 00cf | | Action Mark_Auxiliary
0189 4801 |H | Short_Literal 0x1
018a e5ff | | Load 0x2,-0x1
018b 1c08 | | Execute_Immediate Run_Utility,0x8
018c 00d8 | | Load_Top At_Offset_0
018d 1c00 | | Execute_Immediate Run_Utility,0x0
018e c5ff | | Store 0x2,-0x1
018f 00ce | | Action Pop_Auxiliary
0190 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0191 00da | | Load_Top At_Offset_2
0192 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0193 0f01 | | Execute_Immediate Equal,0x1
0194 7006 |p | Jump_Nonzero 0x19b
0195 00da | | Load_Top At_Offset_2
0196 2204 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x4
0197 00da | | Load_Top At_Offset_2
0198 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0199 1c00 | | Execute_Immediate Run_Utility,0x0
019a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
019b 00da | | Load_Top At_Offset_2
019c 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
019d 00da | | Load_Top At_Offset_2
019e 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
019f 1c00 | | Execute_Immediate Run_Utility,0x0
01a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01a1 00db | | Load_Top At_Offset_3
01a2 0f01 | | Execute_Immediate Equal,0x1
01a3 7002 |p | Jump_Nonzero 0x1a6
01a4 4802 |H | Short_Literal 0x2
01a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01a6 4801 |H | Short_Literal 0x1
01a7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01a8 00db | | Load_Top At_Offset_3
01a9 e5fe | | Load 0x2,-0x2
01aa 0f01 | | Execute_Immediate Equal,0x1
01ab 7002 |p | Jump_Nonzero 0x1ae
01ac 4802 |H | Short_Literal 0x2
01ad 7801 |x | Jump 0x1af
01ae 4801 |H | Short_Literal 0x1
01af e5ff | | Load 0x2,-0x1
01b0 031b | | Declare_Type Variant_Record,Constrained
01b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b2 00db | | Load_Top At_Offset_3
01b3 e5fe | | Load 0x2,-0x2
01b4 e5ff | | Load 0x2,-0x1
01b5 1c06 | | Execute_Immediate Run_Utility,0x6
01b6 e5ff | | Load 0x2,-0x1
01b7 02fc | | Declare_Variable Variant_Record,With_Constraint
01b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b9 0869 | i | Execute_Immediate Raise,0x69
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 INIT_01c0:
01c3 4608 |F | Jump_Case 0x9
01c4 7808 |x | Jump 0x1cd ; case 0x0
01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01c6 7820 |x | Jump 0x1e7 ; case 0x2
01c7 781f |x | Jump 0x1e7 ; case 0x3
01c8 781e |x | Jump 0x1e7 ; case 0x4
01c9 781d |x | Jump 0x1e7 ; case 0x5
01ca 781c |x | Jump 0x1e7 ; case 0x6
01cb 7808 |x | Jump 0x1d4 ; case 0x7
01cc 7810 |x | Jump 0x1dd ; case 0x8
01cd 00da | | Load_Top At_Offset_2
01ce 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
01cf 1c00 | | Execute_Immediate Run_Utility,0x0
01d0 4800 |H | Short_Literal 0x0
01d1 00db | | Load_Top At_Offset_3
01d2 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01d4 00db | | Load_Top At_Offset_3
01d5 4801 |H | Short_Literal 0x1
01d6 e5fe | | Load 0x2,-0x2
01d7 00e9 | | Load_Encached String_Cache
01d8 035b | [ | Declare_Type Array,Constrained
01d9 4801 |H | Short_Literal 0x1
01da e5ff | | Load 0x2,-0x1
01db 031b | | Declare_Type Variant_Record,Constrained
01dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01dd 00db | | Load_Top At_Offset_3
01de 00db | | Load_Top At_Offset_3
01df 02fc | | Declare_Variable Variant_Record,With_Constraint
01e0 4801 |H | Short_Literal 0x1
01e1 e5fe | | Load 0x2,-0x2
01e2 00e9 | | Load_Encached String_Cache
01e3 0334 | 4 | Declare_Variable Array,With_Constraint
01e4 2d04 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
01e5 016a | j | QQ_execute Variant_Record,XXX
01e6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e7 0869 | i | Execute_Immediate Raise,0x69
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug Table
01e8 ; --------------------------------------------------------------------------------------
01e8 0004 000e | | .DEBUG4 0x0004,0x000e,0xf404,0x0000,0x0001,0x0000
01ee 0800 0145 | E| .XXX[0x12]
01f0 9062 4215 | bB |
01f2 0003 8000 | |
01f4 28b2 0000 |( |
01f6 28b3 0022 |( "|
01f8 742b 0000 |t+ |
01fa 0000 0064 | d|
01fc 41a4 0000 |A |
01fe 0000 0000 | |