|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦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 0318 | | .CONST 0x0318 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ad | | .CONST 0x00ad ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0031 | 1 | .CONST 0x0031 ; Number of locals
000b INIT_0008:
000b 03a9 | | Declare_Type Heap_Access,Incomplete,Visible
000c 00e3 | | Load_Encached Natural_Cache
000d 0266 | f | Execute Discrete,Bounds
000e 00da | | Load_Top At_Offset_2
000f 02a0 | | Declare_Subprogram Null_Subprogram
0010 4801 |H | Short_Literal 0x1
0011 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0012 03a9 | | Declare_Type Heap_Access,Incomplete,Visible
0013 00c4 | | Action Make_Default
0014 e001 | | Load 0x0,0x1
0015 0129 | ) | Execute Any,Make_Visible
0016 e002 | | Load 0x0,0x2
0017 0129 | ) | Execute Any,Make_Visible
0018 e003 | | Load 0x0,0x3
0019 0129 | ) | Execute Any,Make_Visible
001a 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
001c 029a 00e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e0
001e 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
0020 029a 0193 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0190
0022 029a 019b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0198
0024 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0026 029a 01bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b8
0028 029a 01cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c8
002a 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
002c 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8
002e 029a 020b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0208
0030 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
0032 029a 023b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0238
0034 029a 024b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0248
0036 029a 025b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0258
0038 029a 026b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0268
003a 029a 027b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0278
003c 029a 028b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0288
003e 029a 029b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0298
0040 029a 02ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02a8
0042 029a 02bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b8
0044 029a 02cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02c8
0046 00e9 | | Load_Encached String_Cache
0047 02a0 | | Declare_Subprogram Null_Subprogram
0048 03ad | | Declare_Type Heap_Access,Defined
0049 00e2 | | Load_Encached Integer_Cache
004a 00e9 | | Load_Encached String_Cache
004b 029f 02f3 | | Declare_Subprogram For_Call,INIT_02f0
004d 4800 |H | Short_Literal 0x0
004e 4801 |H | Short_Literal 0x1
004f 4800 |H | Short_Literal 0x0
0050 4800 |H | Short_Literal 0x0
0051 4801 |H | Short_Literal 0x1
0052 4801 |H | Short_Literal 0x1
0053 031d | | Declare_Type Variant_Record,Defined
0054 00d8 | | Load_Top At_Offset_0
0055 02a0 | | Declare_Subprogram Null_Subprogram
0056 e20d | | Load 0x1,0xd
0057 03a3 | | Complete_Type Heap_Access,By_Defining
0058 e20d | | Load 0x1,0xd
0059 0007 | | Action Break_Optional
005a e20e | | Load 0x1,0xe
005b 02a0 | | Declare_Subprogram Null_Subprogram
005c 03ad | | Declare_Type Heap_Access,Defined
005d 00d8 | | Load_Top At_Offset_0
005e 0007 | | Action Break_Optional
005f e22a | * | Load 0x1,0x2a
0060 00d8 | | Load_Top At_Offset_0
0061 e22a | * | Load 0x1,0x2a
0062 00d8 | | Load_Top At_Offset_0
0063 e22a | * | Load 0x1,0x2a
0064 00d8 | | Load_Top At_Offset_0
0065 e22a | * | Load 0x1,0x2a
0066 00d8 | | Load_Top At_Offset_0
0067 e22a | * | Load 0x1,0x2a
0068 00e1 | | Load_Encached Boolean_Cache
0069 e22a | * | Load 0x1,0x2a
006a 00e2 | | Load_Encached Integer_Cache
006b 00e2 | | Load_Encached Integer_Cache
006c e22a | * | Load 0x1,0x2a
006d 00d8 | | Load_Top At_Offset_0
006e e22a | * | Load 0x1,0x2a
006f 00d8 | | Load_Top At_Offset_0
0070 e22d | - | Load 0x1,0x2d
0071 00d8 | | Load_Top At_Offset_0
0072 02a0 | | Declare_Subprogram Null_Subprogram
0073 4813 |H | Short_Literal 0x13
0074 032d | - | Declare_Type Record,Defined
0075 00d8 | | Load_Top At_Offset_0
0076 02a0 | | Declare_Subprogram Null_Subprogram
0077 e20f | | Load 0x1,0xf
0078 03a3 | | Complete_Type Heap_Access,By_Defining
0079 e20f | | Load 0x1,0xf
007a 0129 | ) | Execute Any,Make_Visible
007b c210 | | Store 0x1,0x10
007c 00bf | | Action Accept_Activation
007d 029d 02db | | Declare_Subprogram For_Outer_Call,INIT_02d8
007f 029d 02eb | | Declare_Subprogram For_Outer_Call,INIT_02e8
0081 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0082 00c7 | | Action Elaborate_Subprogram
0083 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0084 00c7 | | Action Elaborate_Subprogram
0085 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0086 00c7 | | Action Elaborate_Subprogram
0087 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0088 00c7 | | Action Elaborate_Subprogram
0089 1d18 | | Execute_Immediate Reference_Lex_1,0x18
008a 00c7 | | Action Elaborate_Subprogram
008b 1d19 | | Execute_Immediate Reference_Lex_1,0x19
008c 00c7 | | Action Elaborate_Subprogram
008d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
008e 00c7 | | Action Elaborate_Subprogram
008f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0090 00c7 | | Action Elaborate_Subprogram
0091 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0092 00c7 | | Action Elaborate_Subprogram
0093 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0094 00c7 | | Action Elaborate_Subprogram
0095 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0096 00c7 | | Action Elaborate_Subprogram
0097 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0098 00c7 | | Action Elaborate_Subprogram
0099 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
009a 00c7 | | Action Elaborate_Subprogram
009b 1d20 | | Execute_Immediate Reference_Lex_1,0x20
009c 00c7 | | Action Elaborate_Subprogram
009d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
009e 00c7 | | Action Elaborate_Subprogram
009f 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00ac 00c7 | | Action Elaborate_Subprogram
00ad BODY_0008:
00ad 00bc | | Action Signal_Activated
00ae 00bb | | Action Signal_Completion
00af 0000 | | .XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b7 | | .CONST 0x00b7 ; Address of begin
00b1 00ce | | .CONST 0x00ce ; Address of exception handler
00b2 0003 | | .CONST 0x0003 ; Number of locals
00b3 INIT_00b0:
00b3 e004 | | Load 0x0,0x4
00b4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00b5 e20d | | Load 0x1,0xd
00b6 0007 | | Action Break_Optional
00b7 BODY_00b0:
00b7 e5ff | | Load 0x2,-0x1
00b8 01db | | Execute Vector,Length
00b9 7002 |p | Jump_Nonzero 0xbc
00ba e20d | | Load 0x1,0xd
00bb 4402 |D | Exit_Subprogram With_Result,0x2
00bc e5fe | | Load 0x2,-0x2
00bd e005 | | Load 0x0,0x5
00be 180f | | Execute Package,Field_Execute,Field_Number 0xf
00bf 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00c0 e5ff | | Load 0x2,-0x1
00c1 01db | | Execute Vector,Length
00c2 e22b | + | Load 0x1,0x2b
00c3 1c08 | | Execute_Immediate Run_Utility,0x8
00c4 e20d | | Load 0x1,0xd
00c5 00db | | Load_Top At_Offset_3
00c6 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
00c7 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00c8 e5ff | | Load 0x2,-0x1
00c9 00d9 | | Load_Top At_Offset_1
00ca 0217 | | Execute Heap_Access,All_Reference
00cb 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00cc 00d8 | | Load_Top At_Offset_0
00cd 4402 |D | Exit_Subprogram With_Result,0x2
00ce TRAP_00b0:
00ce e005 | | Load 0x0,0x5
00cf 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00d0 010f | | Execute Exception,Equal
00d1 6802 |h | Jump_Zero 0xd4
00d2 e212 | | Load 0x1,0x12
00d3 0257 | W | Execute Discrete,Raise
00d4 e005 | | Load 0x0,0x5
00d5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00d6 010f | | Execute Exception,Equal
00d7 6802 |h | Jump_Zero 0xda
00d8 e211 | | Load 0x1,0x11
00d9 0257 | W | Execute Discrete,Raise
00da 0100 | | Execute Exception,Raise
00db 0000 0000 | | .BLANK 0000[0x5]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00eb | | .CONST 0x00eb ; Address of begin
00e1 0177 | w | .CONST 0x0177 ; Address of exception handler
00e2 0005 | | .CONST 0x0005 ; Number of locals
00e3 INIT_00e0:
00e3 e22d | - | Load 0x1,0x2d
00e4 0007 | | Action Break_Optional
00e5 00d8 | | Load_Top At_Offset_0
00e6 0007 | | Action Break_Optional
00e7 e20f | | Load 0x1,0xf
00e8 0007 | | Action Break_Optional
00e9 e004 | | Load 0x0,0x4
00ea 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00eb BODY_00e0:
00eb e5ee | | Load 0x2,-0x12
00ec 01db | | Execute Vector,Length
00ed 7003 |p | Jump_Nonzero 0xf1
00ee e22d | - | Load 0x1,0x2d
00ef a402 | | Store_Unchecked 0x2,0x2
00f0 7809 |x | Jump 0xfa
00f1 e5ec | | Load 0x2,-0x14
00f2 e005 | | Load 0x0,0x5
00f3 180f | | Execute Package,Field_Execute,Field_Number 0xf
00f4 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00f5 e5ee | | Load 0x2,-0x12
00f6 e22d | - | Load 0x1,0x2d
00f7 00da | | Load_Top At_Offset_2
00f8 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
00f9 a402 | | Store_Unchecked 0x2,0x2
00fa e5ed | | Load 0x2,-0x13
00fb 01db | | Execute Vector,Length
00fc 7003 |p | Jump_Nonzero 0x100
00fd e22d | - | Load 0x1,0x2d
00fe 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00ff 7809 |x | Jump 0x109
0100 e5ec | | Load 0x2,-0x14
0101 e005 | | Load 0x0,0x5
0102 180f | | Execute Package,Field_Execute,Field_Number 0xf
0103 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0104 e5ed | | Load 0x2,-0x13
0105 e22d | - | Load 0x1,0x2d
0106 00da | | Load_Top At_Offset_2
0107 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0108 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0109 e20f | | Load 0x1,0xf
010a 00d9 | | Load_Top At_Offset_1
010b 039c | | Declare_Variable Heap_Access,By_Allocation
010c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
010d 00d8 | | Load_Top At_Offset_0
010e e5ff | | Load 0x2,-0x1
010f 8230 | 0 | Call 0x1,0x30
0110 00da | | Load_Top At_Offset_2
0111 0217 | | Execute Heap_Access,All_Reference
0112 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0113 00d8 | | Load_Top At_Offset_0
0114 e5fe | | Load 0x2,-0x2
0115 8230 | 0 | Call 0x1,0x30
0116 00da | | Load_Top At_Offset_2
0117 0217 | | Execute Heap_Access,All_Reference
0118 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0119 00d8 | | Load_Top At_Offset_0
011a e5fd | | Load 0x2,-0x3
011b 8230 | 0 | Call 0x1,0x30
011c 00da | | Load_Top At_Offset_2
011d 0217 | | Execute Heap_Access,All_Reference
011e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
011f 00d8 | | Load_Top At_Offset_0
0120 e5fc | | Load 0x2,-0x4
0121 8230 | 0 | Call 0x1,0x30
0122 00da | | Load_Top At_Offset_2
0123 0217 | | Execute Heap_Access,All_Reference
0124 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0125 00d8 | | Load_Top At_Offset_0
0126 e5fb | | Load 0x2,-0x5
0127 8230 | 0 | Call 0x1,0x30
0128 00da | | Load_Top At_Offset_2
0129 0217 | | Execute Heap_Access,All_Reference
012a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
012b 00d8 | | Load_Top At_Offset_0
012c e5fa | | Load 0x2,-0x6
012d 8230 | 0 | Call 0x1,0x30
012e 00da | | Load_Top At_Offset_2
012f 0217 | | Execute Heap_Access,All_Reference
0130 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0131 00d8 | | Load_Top At_Offset_0
0132 e5f9 | | Load 0x2,-0x7
0133 8230 | 0 | Call 0x1,0x30
0134 00da | | Load_Top At_Offset_2
0135 0217 | | Execute Heap_Access,All_Reference
0136 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0137 00d8 | | Load_Top At_Offset_0
0138 e5f8 | | Load 0x2,-0x8
0139 8230 | 0 | Call 0x1,0x30
013a 00da | | Load_Top At_Offset_2
013b 0217 | | Execute Heap_Access,All_Reference
013c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
013d 00d8 | | Load_Top At_Offset_0
013e e5f7 | | Load 0x2,-0x9
013f 8230 | 0 | Call 0x1,0x30
0140 00da | | Load_Top At_Offset_2
0141 0217 | | Execute Heap_Access,All_Reference
0142 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0143 e5f6 | | Load 0x2,-0xa
0144 00da | | Load_Top At_Offset_2
0145 0217 | | Execute Heap_Access,All_Reference
0146 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0147 00d8 | | Load_Top At_Offset_0
0148 e5f5 | | Load 0x2,-0xb
0149 8230 | 0 | Call 0x1,0x30
014a 00da | | Load_Top At_Offset_2
014b 0217 | | Execute Heap_Access,All_Reference
014c 380a |8 | Execute Record,Field_Write,Field_Number 0xa
014d e5f4 | | Load 0x2,-0xc
014e 00da | | Load_Top At_Offset_2
014f 0217 | | Execute Heap_Access,All_Reference
0150 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0151 e5f3 | | Load 0x2,-0xd
0152 00da | | Load_Top At_Offset_2
0153 0217 | | Execute Heap_Access,All_Reference
0154 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0155 00d8 | | Load_Top At_Offset_0
0156 e5f2 | | Load 0x2,-0xe
0157 8230 | 0 | Call 0x1,0x30
0158 00da | | Load_Top At_Offset_2
0159 0217 | | Execute Heap_Access,All_Reference
015a 380d |8 | Execute Record,Field_Write,Field_Number 0xd
015b 00d8 | | Load_Top At_Offset_0
015c e5f1 | | Load 0x2,-0xf
015d 8230 | 0 | Call 0x1,0x30
015e 00da | | Load_Top At_Offset_2
015f 0217 | | Execute Heap_Access,All_Reference
0160 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0161 00d8 | | Load_Top At_Offset_0
0162 e5f0 | | Load 0x2,-0x10
0163 8230 | 0 | Call 0x1,0x30
0164 00da | | Load_Top At_Offset_2
0165 0217 | | Execute Heap_Access,All_Reference
0166 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0167 00d8 | | Load_Top At_Offset_0
0168 e5ef | | Load 0x2,-0x11
0169 8230 | 0 | Call 0x1,0x30
016a 00da | | Load_Top At_Offset_2
016b 0217 | | Execute Heap_Access,All_Reference
016c 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
016d 00db | | Load_Top At_Offset_3
016e 00da | | Load_Top At_Offset_2
016f 0217 | | Execute Heap_Access,All_Reference
0170 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0171 00da | | Load_Top At_Offset_2
0172 00da | | Load_Top At_Offset_2
0173 0217 | | Execute Heap_Access,All_Reference
0174 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0175 00d9 | | Load_Top At_Offset_1
0176 4414 |D | Exit_Subprogram With_Result,0x14
0177 TRAP_00e0:
0177 e005 | | Load 0x0,0x5
0178 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0179 010f | | Execute Exception,Equal
017a 6802 |h | Jump_Zero 0x17d
017b e212 | | Load 0x1,0x12
017c 0257 | W | Execute Discrete,Raise
017d e005 | | Load 0x0,0x5
017e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
017f 010f | | Execute Exception,Equal
0180 6802 |h | Jump_Zero 0x183
0181 e211 | | Load 0x1,0x11
0182 0257 | W | Execute Discrete,Raise
0183 0100 | | Execute Exception,Raise
0184 0000 0000 | | .BLANK 0000[0x4]
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 00db | | Load_Top At_Offset_3
018c e006 | | Load 0x0,0x6
018d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
018e c5fe | | Store 0x2,-0x2
018f 4502 |E | Exit_Subprogram 0x2
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 4502 |E | Exit_Subprogram 0x2
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 8231 | 1 | Call 0x1,0x31
019d 6802 |h | Jump_Zero 0x1a0
019e e213 | | Load 0x1,0x13
019f 0257 | W | Execute Discrete,Raise
01a0 00da | | Load_Top At_Offset_2
01a1 0217 | | Execute Heap_Access,All_Reference
01a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a3 0217 | | Execute Heap_Access,All_Reference
01a4 0335 | 5 | Declare_Variable Array,Duplicate
01a5 00cd | | Action Spare6_Action
01a6 4401 |D | Exit_Subprogram With_Result,0x1
01a7 0000 | | .XXX[0x1]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac 8231 | 1 | Call 0x1,0x31
01ad 6802 |h | Jump_Zero 0x1b0
01ae e213 | | Load 0x1,0x13
01af 0257 | W | Execute Discrete,Raise
01b0 00da | | Load_Top At_Offset_2
01b1 0217 | | Execute Heap_Access,All_Reference
01b2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b3 0217 | | Execute Heap_Access,All_Reference
01b4 0335 | 5 | Declare_Variable Array,Duplicate
01b5 00cd | | Action Spare6_Action
01b6 4401 |D | Exit_Subprogram With_Result,0x1
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 8231 | 1 | Call 0x1,0x31
01bd 6802 |h | Jump_Zero 0x1c0
01be e213 | | Load 0x1,0x13
01bf 0257 | W | Execute Discrete,Raise
01c0 00da | | Load_Top At_Offset_2
01c1 0217 | | Execute Heap_Access,All_Reference
01c2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01c3 0217 | | Execute Heap_Access,All_Reference
01c4 0335 | 5 | Declare_Variable Array,Duplicate
01c5 00cd | | Action Spare6_Action
01c6 4401 |D | Exit_Subprogram With_Result,0x1
01c7 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
01cc 8231 | 1 | Call 0x1,0x31
01cd 6802 |h | Jump_Zero 0x1d0
01ce e213 | | Load 0x1,0x13
01cf 0257 | W | Execute Discrete,Raise
01d0 00da | | Load_Top At_Offset_2
01d1 0217 | | Execute Heap_Access,All_Reference
01d2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01d3 0217 | | Execute Heap_Access,All_Reference
01d4 0335 | 5 | Declare_Variable Array,Duplicate
01d5 00cd | | Action Spare6_Action
01d6 4401 |D | Exit_Subprogram With_Result,0x1
01d7 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
01dc 8231 | 1 | Call 0x1,0x31
01dd 6802 |h | Jump_Zero 0x1e0
01de e213 | | Load 0x1,0x13
01df 0257 | W | Execute Discrete,Raise
01e0 00da | | Load_Top At_Offset_2
01e1 0217 | | Execute Heap_Access,All_Reference
01e2 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
01e3 0217 | | Execute Heap_Access,All_Reference
01e4 0335 | 5 | Declare_Variable Array,Duplicate
01e5 00cd | | Action Spare6_Action
01e6 4401 |D | Exit_Subprogram With_Result,0x1
01e7 0000 | | .XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 8231 | 1 | Call 0x1,0x31
01ed 6802 |h | Jump_Zero 0x1f0
01ee e213 | | Load 0x1,0x13
01ef 0257 | W | Execute Discrete,Raise
01f0 00da | | Load_Top At_Offset_2
01f1 0217 | | Execute Heap_Access,All_Reference
01f2 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
01f3 7002 |p | Jump_Nonzero 0x1f6
01f4 4800 |H | Short_Literal 0x0
01f5 4401 |D | Exit_Subprogram With_Result,0x1
01f6 00da | | Load_Top At_Offset_2
01f7 0217 | | Execute Heap_Access,All_Reference
01f8 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
01f9 0217 | | Execute Heap_Access,All_Reference
01fa 01db | | Execute Vector,Length
01fb 00d8 | | Load_Top At_Offset_0
01fc 00e2 | | Load_Encached Integer_Cache
01fd 0260 | ` | Execute Discrete,In_Type
01fe 7001 |p | Jump_Nonzero 0x200
01ff 0801 | | Execute_Immediate Raise,0x1
0200 4401 |D | Exit_Subprogram With_Result,0x1
0201 0000 0000 | | .BLANK 0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c 8231 | 1 | Call 0x1,0x31
020d 6802 |h | Jump_Zero 0x210
020e e213 | | Load 0x1,0x13
020f 0257 | W | Execute Discrete,Raise
0210 00da | | Load_Top At_Offset_2
0211 0217 | | Execute Heap_Access,All_Reference
0212 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
0213 0217 | | Execute Heap_Access,All_Reference
0214 0335 | 5 | Declare_Variable Array,Duplicate
0215 00cd | | Action Spare6_Action
0216 4401 |D | Exit_Subprogram With_Result,0x1
0217 0000 | | .XXX[0x1]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 8231 | 1 | Call 0x1,0x31
021d 6802 |h | Jump_Zero 0x220
021e e213 | | Load 0x1,0x13
021f 0257 | W | Execute Discrete,Raise
0220 00da | | Load_Top At_Offset_2
0221 0217 | | Execute Heap_Access,All_Reference
0222 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
0223 7002 |p | Jump_Nonzero 0x226
0224 4800 |H | Short_Literal 0x0
0225 4401 |D | Exit_Subprogram With_Result,0x1
0226 00da | | Load_Top At_Offset_2
0227 0217 | | Execute Heap_Access,All_Reference
0228 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
0229 0217 | | Execute Heap_Access,All_Reference
022a 01db | | Execute Vector,Length
022b 00d8 | | Load_Top At_Offset_0
022c 00e2 | | Load_Encached Integer_Cache
022d 0260 | ` | Execute Discrete,In_Type
022e 7001 |p | Jump_Nonzero 0x230
022f 0801 | | Execute_Immediate Raise,0x1
0230 4401 |D | Exit_Subprogram With_Result,0x1
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2
023c 8231 | 1 | Call 0x1,0x31
023d 6802 |h | Jump_Zero 0x240
023e e213 | | Load 0x1,0x13
023f 0257 | W | Execute Discrete,Raise
0240 00da | | Load_Top At_Offset_2
0241 0217 | | Execute Heap_Access,All_Reference
0242 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0243 0217 | | Execute Heap_Access,All_Reference
0244 0335 | 5 | Declare_Variable Array,Duplicate
0245 00cd | | Action Spare6_Action
0246 4401 |D | Exit_Subprogram With_Result,0x1
0247 0000 | | .XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00da | | Load_Top At_Offset_2
024c 8231 | 1 | Call 0x1,0x31
024d 6802 |h | Jump_Zero 0x250
024e e213 | | Load 0x1,0x13
024f 0257 | W | Execute Discrete,Raise
0250 00da | | Load_Top At_Offset_2
0251 0217 | | Execute Heap_Access,All_Reference
0252 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0253 4401 |D | Exit_Subprogram With_Result,0x1
0254 0000 0000 | | .BLANK 0000[0x4]
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 8231 | 1 | Call 0x1,0x31
025d 6802 |h | Jump_Zero 0x260
025e e213 | | Load 0x1,0x13
025f 0257 | W | Execute Discrete,Raise
0260 00da | | Load_Top At_Offset_2
0261 0217 | | Execute Heap_Access,All_Reference
0262 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
0263 4401 |D | Exit_Subprogram With_Result,0x1
0264 0000 0000 | | .BLANK 0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c 8231 | 1 | Call 0x1,0x31
026d 6802 |h | Jump_Zero 0x270
026e e213 | | Load 0x1,0x13
026f 0257 | W | Execute Discrete,Raise
0270 00da | | Load_Top At_Offset_2
0271 0217 | | Execute Heap_Access,All_Reference
0272 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
0273 0217 | | Execute Heap_Access,All_Reference
0274 0335 | 5 | Declare_Variable Array,Duplicate
0275 00cd | | Action Spare6_Action
0276 4401 |D | Exit_Subprogram With_Result,0x1
0277 0000 | | .XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c 8231 | 1 | Call 0x1,0x31
027d 6802 |h | Jump_Zero 0x280
027e e213 | | Load 0x1,0x13
027f 0257 | W | Execute Discrete,Raise
0280 00da | | Load_Top At_Offset_2
0281 0217 | | Execute Heap_Access,All_Reference
0282 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
0283 0217 | | Execute Heap_Access,All_Reference
0284 01db | | Execute Vector,Length
0285 0e00 | | Execute_Immediate Not_Equal,0x0
0286 4401 |D | Exit_Subprogram With_Result,0x1
0287 0000 | | .XXX[0x1]
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 8231 | 1 | Call 0x1,0x31
028d 6802 |h | Jump_Zero 0x290
028e e213 | | Load 0x1,0x13
028f 0257 | W | Execute Discrete,Raise
0290 00da | | Load_Top At_Offset_2
0291 0217 | | Execute Heap_Access,All_Reference
0292 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
0293 0217 | | Execute Heap_Access,All_Reference
0294 0335 | 5 | Declare_Variable Array,Duplicate
0295 00cd | | Action Spare6_Action
0296 4401 |D | Exit_Subprogram With_Result,0x1
0297 0000 | | .XXX[0x1]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 8231 | 1 | Call 0x1,0x31
029d 6802 |h | Jump_Zero 0x2a0
029e e213 | | Load 0x1,0x13
029f 0257 | W | Execute Discrete,Raise
02a0 00da | | Load_Top At_Offset_2
02a1 0217 | | Execute Heap_Access,All_Reference
02a2 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
02a3 4401 |D | Exit_Subprogram With_Result,0x1
02a4 0000 0000 | | .BLANK 0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00da | | Load_Top At_Offset_2
02ac 8231 | 1 | Call 0x1,0x31
02ad 6802 |h | Jump_Zero 0x2b0
02ae e213 | | Load 0x1,0x13
02af 0257 | W | Execute Discrete,Raise
02b0 00da | | Load_Top At_Offset_2
02b1 0217 | | Execute Heap_Access,All_Reference
02b2 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
02b3 0217 | | Execute Heap_Access,All_Reference
02b4 0335 | 5 | Declare_Variable Array,Duplicate
02b5 00cd | | Action Spare6_Action
02b6 4401 |D | Exit_Subprogram With_Result,0x1
02b7 0000 | | .XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 00da | | Load_Top At_Offset_2
02bc 8231 | 1 | Call 0x1,0x31
02bd 6802 |h | Jump_Zero 0x2c0
02be e213 | | Load 0x1,0x13
02bf 0257 | W | Execute Discrete,Raise
02c0 00da | | Load_Top At_Offset_2
02c1 0217 | | Execute Heap_Access,All_Reference
02c2 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
02c3 0217 | | Execute Heap_Access,All_Reference
02c4 0335 | 5 | Declare_Variable Array,Duplicate
02c5 00cd | | Action Spare6_Action
02c6 4401 |D | Exit_Subprogram With_Result,0x1
02c7 0000 | | .XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc 0217 | | Execute Heap_Access,All_Reference
02cd 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
02ce 0335 | 5 | Declare_Variable Array,Duplicate
02cf 00cd | | Action Spare6_Action
02d0 4401 |D | Exit_Subprogram With_Result,0x1
02d1 0000 0000 | | .BLANK 0000[0x7]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02dd | | .CONST 0x02dd ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0002 | | .CONST 0x0002 ; Number of locals
02db INIT_02d8:
02db e22a | * | Load 0x1,0x2a
02dc 0007 | | Action Break_Optional
02dd BODY_02d8:
02dd 00db | | Load_Top At_Offset_3
02de e22a | * | Load 0x1,0x2a
02df e5fe | | Load 0x2,-0x2
02e0 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
02e1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
02e2 00d8 | | Load_Top At_Offset_0
02e3 4402 |D | Exit_Subprogram With_Result,0x2
02e4 0000 0000 | | .BLANK 0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
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 INIT_02e8:
02eb 00da | | Load_Top At_Offset_2
02ec 021d | | Execute Heap_Access,Is_Null
02ed 4401 |D | Exit_Subprogram With_Result,0x1
02ee 0000 0000 | | .XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 4608 |F | Jump_Case 0x8
02f4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
02f5 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
02f6 7819 |x | Jump 0x310 ; case 0x2
02f7 7818 |x | Jump 0x310 ; case 0x3
02f8 7817 |x | Jump 0x310 ; case 0x4
02f9 7816 |x | Jump 0x310 ; case 0x5
02fa 7815 |x | Jump 0x310 ; case 0x6
02fb 7801 |x | Jump 0x2fd ; case 0x7
02fc 7809 |x | Jump 0x306 ; case 0x8
02fd 00db | | Load_Top At_Offset_3
02fe 4801 |H | Short_Literal 0x1
02ff e5fe | | Load 0x2,-0x2
0300 00e9 | | Load_Encached String_Cache
0301 035b | [ | Declare_Type Array,Constrained
0302 4801 |H | Short_Literal 0x1
0303 e5ff | | Load 0x2,-0x1
0304 031b | | Declare_Type Variant_Record,Constrained
0305 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0306 00db | | Load_Top At_Offset_3
0307 00db | | Load_Top At_Offset_3
0308 02fc | | Declare_Variable Variant_Record,With_Constraint
0309 4801 |H | Short_Literal 0x1
030a e5fe | | Load 0x2,-0x2
030b 00e9 | | Load_Encached String_Cache
030c 0334 | 4 | Declare_Variable Array,With_Constraint
030d 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
030e 016a | j | Execute Variant_Record,Indirects_Appended
030f 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0310 0869 | i | Execute_Immediate Raise,0x69
0311 0000 0000 | | .BLANK 0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug Table
0318 ; --------------------------------------------------------------------------------------
0318 0004 000c | | .DEBUG4 0x0004,0x000c,0x2e73,0x0000,0x0001,0x0000
031e 0000 0000 | | .BLANK 0000[0xe2]