|
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_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0418 | | .CONST 0x0418 ; 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 0018 | | .CONST 0x0018 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call
0010 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call
0012 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call
0014 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0017 00c7 | | Action Elaborate_Subprogram
0018 BODY_0008:
0018 00bc | | Action Signal_Activated
0019 00bb | | Action Signal_Completion
001a 0000 0000 | | .BLANK 0000[0x6]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0065 | e | .CONST 0x0065 ; Address of begin
0021 01a3 | | .CONST 0x01a3 ; Address of exception handler
0022 0011 | | .CONST 0x0011 ; Number of locals
0023 INIT_0020:
0023 e5fb | | Load 0x2,-0x5
0024 00db | | Load_Top At_Offset_3
0025 e5fc | | Load 0x2,-0x4
0026 e001 | | Load 0x0,0x1
0027 18ba | | Execute Package,Field_Execute,Field_Number 0xba
0028 e5fb | | Load 0x2,-0x5
0029 e5ff | | Load 0x2,-0x1
002a e5fc | | Load 0x2,-0x4
002b e001 | | Load 0x0,0x1
002c 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
002d e002 | | Load 0x0,0x2
002e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002f 02c7 | | Declare_Variable Any
0030 e5fb | | Load 0x2,-0x5
0031 4801 |H | Short_Literal 0x1
0032 e5ff | | Load 0x2,-0x1
0033 e003 | | Load 0x0,0x3
0034 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0035 a404 | | Store_Unchecked 0x2,0x4
0036 e5fb | | Load 0x2,-0x5
0037 e5fc | | Load 0x2,-0x4
0038 e001 | | Load 0x0,0x1
0039 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
003a 00da | | Load_Top At_Offset_2
003b e004 | | Load 0x0,0x4
003c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
003d 00d8 | | Load_Top At_Offset_0
003e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
003f 0007 | | Action Break_Optional
0040 e005 | | Load 0x0,0x5
0041 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0042 00e1 | | Load_Encached Boolean_Cache
0043 00e1 | | Load_Encached Boolean_Cache
0044 e006 | | Load 0x0,0x6
0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0046 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0047 e006 | | Load 0x0,0x6
0048 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0049 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
004a e002 | | Load 0x0,0x2
004b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
004c 02ff | | Declare_Variable Variant_Record
004d 00d8 | | Load_Top At_Offset_0
004e 1c00 | | Execute_Immediate Run_Utility,0x0
004f e5ff | | Load 0x2,-0x1
0050 e002 | | Load 0x0,0x2
0051 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0052 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0053 e5fc | | Load 0x2,-0x4
0054 e001 | | Load 0x0,0x1
0055 18c2 | | Execute Package,Field_Execute,Field_Number 0xc2
0056 00e1 | | Load_Encached Boolean_Cache
0057 e002 | | Load 0x0,0x2
0058 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0059 1b11 | | Execute Package,Field_Read,Field_Number 0x11
005a 02c7 | | Declare_Variable Any
005b 00d8 | | Load_Top At_Offset_0
005c 1c00 | | Execute_Immediate Run_Utility,0x0
005d e002 | | Load 0x0,0x2
005e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
005f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0060 02c7 | | Declare_Variable Any
0061 00d8 | | Load_Top At_Offset_0
0062 1c00 | | Execute_Immediate Run_Utility,0x0
0063 00e1 | | Load_Encached Boolean_Cache
0064 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0065 BODY_0020:
0065 4800 |H | Short_Literal 0x0
0066 e405 | | Load 0x2,0x5
0067 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0068 e006 | | Load 0x0,0x6
0069 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
006a 7006 |p | Jump_Nonzero 0x71
006b e5fb | | Load 0x2,-0x5
006c 4806 |H | Short_Literal 0x6
006d e405 | | Load 0x2,0x5
006e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
006f e006 | | Load 0x0,0x6
0070 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0071 e5fb | | Load 0x2,-0x5
0072 e5ff | | Load 0x2,-0x1
0073 8210 | | Call 0x1,0x10
0074 e40c | | Load 0x2,0xc
0075 016d | m | Execute Variant_Record,Structure_Write
0076 e5fd | | Load 0x2,-0x3
0077 680a |h | Jump_Zero 0x82
0078 e40c | | Load 0x2,0xc
0079 e5fc | | Load 0x2,-0x4
007a e007 | | Load 0x0,0x7
007b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
007c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
007d 00d8 | | Load_Top At_Offset_0
007e 6803 |h | Jump_Zero 0x82
007f e40a | | Load 0x2,0xa
0080 a5fa | | Store_Unchecked 0x2,-0x6
0081 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0082 e403 | | Load 0x2,0x3
0083 01db | | Execute Vector,Length
0084 7024 |p$ | Jump_Nonzero 0xa9
0085 e5fb | | Load 0x2,-0x5
0086 00d8 | | Load_Top At_Offset_0
0087 4800 |H | Short_Literal 0x0
0088 e5ff | | Load 0x2,-0x1
0089 e003 | | Load 0x0,0x3
008a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
008b e003 | | Load 0x0,0x3
008c 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
008d 701b |p | Jump_Nonzero 0xa9
008e e008 | | Load 0x0,0x8
008f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0090 4801 |H | Short_Literal 0x1
0091 4801 |H | Short_Literal 0x1
0092 e009 | | Load 0x0,0x9
0093 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0094 035b | [ | Declare_Type Array,Constrained
0095 0337 | 7 | Declare_Variable Array
0096 00ea | | Load_Encached Null_String_Cache
0097 e009 | | Load 0x0,0x9
0098 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0099 e009 | | Load 0x0,0x9
009a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
009b 0119 | | Execute Any,Check_In_Formal_Type
009c 4801 |H | Short_Literal 0x1
009d 00da | | Load_Top At_Offset_2
009e 01d6 | | Execute Vector,Field_Write
009f 61bc |a | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00008210}
00a0 e006 | | Load 0x0,0x6
00a1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00a2 e009 | | Load 0x0,0x9
00a3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00a4 61b7 |a | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00008210}
00a5 e006 | | Load 0x0,0x6
00a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a7 a5fa | | Store_Unchecked 0x2,-0x6
00a8 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00a9 e5fc | | Load 0x2,-0x4
00aa e001 | | Load 0x0,0x1
00ab 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00ac e5fe | | Load 0x2,-0x2
00ad e5ff | | Load 0x2,-0x1
00ae e003 | | Load 0x0,0x3
00af 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b0 e00a | | Load 0x0,0xa
00b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b2 a40e | | Store_Unchecked 0x2,0xe
00b3 00db | | Load_Top At_Offset_3
00b4 7022 |p" | Jump_Nonzero 0xd7
00b5 4801 |H | Short_Literal 0x1
00b6 4802 |H | Short_Literal 0x2
00b7 e009 | | Load 0x0,0x9
00b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b9 035b | [ | Declare_Type Array,Constrained
00ba 0337 | 7 | Declare_Variable Array
00bb e009 | | Load 0x0,0x9
00bc 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00bd e009 | | Load 0x0,0x9
00be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bf 0119 | | Execute Any,Check_In_Formal_Type
00c0 4801 |H | Short_Literal 0x1
00c1 00da | | Load_Top At_Offset_2
00c2 01d6 | | Execute Vector,Field_Write
00c3 e5ff | | Load 0x2,-0x1
00c4 e003 | | Load 0x0,0x3
00c5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00c6 e009 | | Load 0x0,0x9
00c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c8 0119 | | Execute Any,Check_In_Formal_Type
00c9 4802 |H | Short_Literal 0x2
00ca 00da | | Load_Top At_Offset_2
00cb 01d6 | | Execute Vector,Field_Write
00cc 618b |a | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008126}
00cd e006 | | Load 0x0,0x6
00ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00cf a40a | | Store_Unchecked 0x2,0xa
00d0 e5fb | | Load 0x2,-0x5
00d1 e40a | | Load 0x2,0xa
00d2 e006 | | Load 0x0,0x6
00d3 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00d4 e40a | | Load 0x2,0xa
00d5 a5fa | | Store_Unchecked 0x2,-0x6
00d6 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00d7 4800 |H | Short_Literal 0x0
00d8 a5fa | | Store_Unchecked 0x2,-0x6
00d9 e40a | | Load 0x2,0xa
00da 00da | | Load_Top At_Offset_2
00db e40f | | Load 0x2,0xf
00dc e5fb | | Load 0x2,-0x5
00dd e5ff | | Load 0x2,-0x1
00de 820e | | Call 0x1,0xe
00df c40f | | Store 0x2,0xf
00e0 c410 | | Store 0x2,0x10
00e1 c40a | | Store 0x2,0xa
00e2 4800 |H | Short_Literal 0x0
00e3 e40a | | Load 0x2,0xa
00e4 e006 | | Load 0x0,0x6
00e5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00e6 7003 |p | Jump_Nonzero 0xea
00e7 e00b | | Load 0x0,0xb
00e8 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00e9 0257 | W | Execute Discrete,Raise
00ea 4800 |H | Short_Literal 0x0
00eb e40c | | Load 0x2,0xc
00ec e00b | | Load 0x0,0xb
00ed 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00ee e00b | | Load 0x0,0xb
00ef 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00f0 a408 | | Store_Unchecked 0x2,0x8
00f1 4800 |H | Short_Literal 0x0
00f2 e40c | | Load 0x2,0xc
00f3 e00b | | Load 0x0,0xb
00f4 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
00f5 e00b | | Load 0x0,0xb
00f6 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00f7 a409 | | Store_Unchecked 0x2,0x9
00f8 e408 | | Load 0x2,0x8
00f9 6821 |h! | Jump_Zero 0x11b
00fa e5fb | | Load 0x2,-0x5
00fb 4801 |H | Short_Literal 0x1
00fc 4802 |H | Short_Literal 0x2
00fd e009 | | Load 0x0,0x9
00fe 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ff 035b | [ | Declare_Type Array,Constrained
0100 0337 | 7 | Declare_Variable Array
0101 e5ff | | Load 0x2,-0x1
0102 e002 | | Load 0x0,0x2
0103 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0104 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0105 e009 | | Load 0x0,0x9
0106 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0107 e009 | | Load 0x0,0x9
0108 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0109 0119 | | Execute Any,Check_In_Formal_Type
010a 4801 |H | Short_Literal 0x1
010b 00da | | Load_Top At_Offset_2
010c 01d6 | | Execute Vector,Field_Write
010d 0092 03ff | | Action Push_String_Extended,0x3ff ; "Link"
010f e009 | | Load 0x0,0x9
0110 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0111 e009 | | Load 0x0,0x9
0112 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0113 0119 | | Execute Any,Check_In_Formal_Type
0114 4802 |H | Short_Literal 0x2
0115 00da | | Load_Top At_Offset_2
0116 01d6 | | Execute Vector,Field_Write
0117 613c |a< | Indirect_Literal Discrete,0x254,{0x00000000, 0x0000817a}
0118 e006 | | Load 0x0,0x6
0119 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
011a 7880 |x | Jump 0x19b
011b e40a | | Load 0x2,0xa
011c e005 | | Load 0x0,0x5
011d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
011e e5fb | | Load 0x2,-0x5
011f e409 | | Load 0x2,0x9
0120 e5fc | | Load 0x2,-0x4
0121 e402 | | Load 0x2,0x2
0122 e00c | | Load 0x0,0xc
0123 180d | | Execute Package,Field_Execute,Field_Number 0xd
0124 c407 | | Store 0x2,0x7
0125 c40a | | Store 0x2,0xa
0126 4800 |H | Short_Literal 0x0
0127 e40a | | Load 0x2,0xa
0128 e006 | | Load 0x0,0x6
0129 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
012a 7003 |p | Jump_Nonzero 0x12e
012b e00b | | Load 0x0,0xb
012c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
012d 0257 | W | Execute Discrete,Raise
012e e40a | | Load 0x2,0xa
012f e5fb | | Load 0x2,-0x5
0130 e408 | | Load 0x2,0x8
0131 e406 | | Load 0x2,0x6
0132 e403 | | Load 0x2,0x3
0133 e40c | | Load 0x2,0xc
0134 e407 | | Load 0x2,0x7
0135 e5fc | | Load 0x2,-0x4
0136 e00c | | Load 0x0,0xc
0137 180e | | Execute Package,Field_Execute,Field_Number 0xe
0138 c40a | | Store 0x2,0xa
0139 4800 |H | Short_Literal 0x0
013a e40a | | Load 0x2,0xa
013b e006 | | Load 0x0,0x6
013c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
013d 7003 |p | Jump_Nonzero 0x141
013e e00b | | Load 0x0,0xb
013f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0140 0257 | W | Execute Discrete,Raise
0141 e40a | | Load 0x2,0xa
0142 e5fb | | Load 0x2,-0x5
0143 e408 | | Load 0x2,0x8
0144 e406 | | Load 0x2,0x6
0145 e403 | | Load 0x2,0x3
0146 e40c | | Load 0x2,0xc
0147 e407 | | Load 0x2,0x7
0148 e5fc | | Load 0x2,-0x4
0149 e00c | | Load 0x0,0xc
014a 180f | | Execute Package,Field_Execute,Field_Number 0xf
014b c40a | | Store 0x2,0xa
014c 4800 |H | Short_Literal 0x0
014d e40a | | Load 0x2,0xa
014e e006 | | Load 0x0,0x6
014f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0150 7003 |p | Jump_Nonzero 0x154
0151 e00b | | Load 0x0,0xb
0152 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0153 0257 | W | Execute Discrete,Raise
0154 e40b | | Load 0x2,0xb
0155 e5fb | | Load 0x2,-0x5
0156 e408 | | Load 0x2,0x8
0157 e5fc | | Load 0x2,-0x4
0158 e40d | | Load 0x2,0xd
0159 e5fe | | Load 0x2,-0x2
015a e001 | | Load 0x0,0x1
015b 18df | | Execute Package,Field_Execute,Field_Number 0xdf
015c e40d | | Load 0x2,0xd
015d e5ff | | Load 0x2,-0x1
015e e40c | | Load 0x2,0xc
015f e407 | | Load 0x2,0x7
0160 e5fc | | Load 0x2,-0x4
0161 8211 | | Call 0x1,0x11
0162 c40b | | Store 0x2,0xb
0163 e40a | | Load 0x2,0xa
0164 e407 | | Load 0x2,0x7
0165 e5fb | | Load 0x2,-0x5
0166 e40c | | Load 0x2,0xc
0167 e5fc | | Load 0x2,-0x4
0168 e40d | | Load 0x2,0xd
0169 e5fe | | Load 0x2,-0x2
016a e001 | | Load 0x0,0x1
016b 18df | | Execute Package,Field_Execute,Field_Number 0xdf
016c e406 | | Load 0x2,0x6
016d e402 | | Load 0x2,0x2
016e e403 | | Load 0x2,0x3
016f e5fb | | Load 0x2,-0x5
0170 e5fc | | Load 0x2,-0x4
0171 e5ff | | Load 0x2,-0x1
0172 e00d | | Load 0x0,0xd
0173 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0174 180f | | Execute Package,Field_Execute,Field_Number 0xf
0175 e5ff | | Load 0x2,-0x1
0176 0092 03ff | | Action Push_String_Extended,0x3ff ; "Link"
0178 e001 | | Load 0x0,0x1
0179 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8
017a e40b | | Load 0x2,0xb
017b e001 | | Load 0x0,0x1
017c 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
017d e5fc | | Load 0x2,-0x4
017e e001 | | Load 0x0,0x1
017f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0180 e00e | | Load 0x0,0xe
0181 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0182 c407 | | Store 0x2,0x7
0183 c40a | | Store 0x2,0xa
0184 4800 |H | Short_Literal 0x0
0185 e40a | | Load 0x2,0xa
0186 e006 | | Load 0x0,0x6
0187 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0188 6812 |h | Jump_Zero 0x19b
0189 4800 |H | Short_Literal 0x0
018a e40b | | Load 0x2,0xb
018b e006 | | Load 0x0,0x6
018c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
018d 680b |h | Jump_Zero 0x199
018e e5fc | | Load 0x2,-0x4
018f e001 | | Load 0x0,0x1
0190 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0191 e5fe | | Load 0x2,-0x2
0192 e5ff | | Load 0x2,-0x1
0193 e003 | | Load 0x0,0x3
0194 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0195 e00a | | Load 0x0,0xa
0196 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0197 a40e | | Store_Unchecked 0x2,0xe
0198 7802 |x | Jump 0x19b
0199 e40b | | Load 0x2,0xb
019a a40a | | Store_Unchecked 0x2,0xa
019b e40a | | Load 0x2,0xa
019c a5fa | | Store_Unchecked 0x2,-0x6
019d e40a | | Load 0x2,0xa
019e e5fb | | Load 0x2,-0x5
019f 00db | | Load_Top At_Offset_3
01a0 820f | | Call 0x1,0xf
01a1 c40a | | Store 0x2,0xa
01a2 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01a3 TRAP_0020:
01a3 e00b | | Load 0x0,0xb
01a4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01a5 010f | | Execute Exception,Equal
01a6 6808 |h | Jump_Zero 0x1af
01a7 e40a | | Load 0x2,0xa
01a8 a5fa | | Store_Unchecked 0x2,-0x6
01a9 e40a | | Load 0x2,0xa
01aa e5fb | | Load 0x2,-0x5
01ab e410 | | Load 0x2,0x10
01ac 820f | | Call 0x1,0xf
01ad c40a | | Store 0x2,0xa
01ae 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01af e00b | | Load 0x0,0xb
01b0 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01b1 010f | | Execute Exception,Equal
01b2 6837 |h7 | Jump_Zero 0x1ea
01b3 4801 |H | Short_Literal 0x1
01b4 4802 |H | Short_Literal 0x2
01b5 e009 | | Load 0x0,0x9
01b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01b7 035b | [ | Declare_Type Array,Constrained
01b8 0337 | 7 | Declare_Variable Array
01b9 e009 | | Load 0x0,0x9
01ba 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01bb e009 | | Load 0x0,0x9
01bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01bd 0119 | | Execute Any,Check_In_Formal_Type
01be 4801 |H | Short_Literal 0x1
01bf 00da | | Load_Top At_Offset_2
01c0 01d6 | | Execute Vector,Field_Write
01c1 e5ff | | Load 0x2,-0x1
01c2 e003 | | Load 0x0,0x3
01c3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01c4 e009 | | Load 0x0,0x9
01c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c6 0119 | | Execute Any,Check_In_Formal_Type
01c7 4802 |H | Short_Literal 0x2
01c8 00da | | Load_Top At_Offset_2
01c9 01d6 | | Execute Vector,Field_Write
01ca 608d |` | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008126}
01cb e006 | | Load 0x0,0x6
01cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01cd a5fa | | Store_Unchecked 0x2,-0x6
01ce e5fb | | Load 0x2,-0x5
01cf 4801 |H | Short_Literal 0x1
01d0 4802 |H | Short_Literal 0x2
01d1 e009 | | Load 0x0,0x9
01d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d3 035b | [ | Declare_Type Array,Constrained
01d4 0337 | 7 | Declare_Variable Array
01d5 e009 | | Load 0x0,0x9
01d6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01d7 e009 | | Load 0x0,0x9
01d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d9 0119 | | Execute Any,Check_In_Formal_Type
01da 4801 |H | Short_Literal 0x1
01db 00da | | Load_Top At_Offset_2
01dc 01d6 | | Execute Vector,Field_Write
01dd e5ff | | Load 0x2,-0x1
01de e003 | | Load 0x0,0x3
01df 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01e0 e009 | | Load 0x0,0x9
01e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e2 0119 | | Execute Any,Check_In_Formal_Type
01e3 4802 |H | Short_Literal 0x2
01e4 00da | | Load_Top At_Offset_2
01e5 01d6 | | Execute Vector,Field_Write
01e6 6071 |`q | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008126}
01e7 e006 | | Load 0x0,0x6
01e8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01e9 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01ea e006 | | Load 0x0,0x6
01eb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01ec 010f | | Execute Exception,Equal
01ed 6824 |h$ | Jump_Zero 0x212
01ee e006 | | Load 0x0,0x6
01ef 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01f0 a5fa | | Store_Unchecked 0x2,-0x6
01f1 e40a | | Load 0x2,0xa
01f2 e5fb | | Load 0x2,-0x5
01f3 e410 | | Load 0x2,0x10
01f4 820f | | Call 0x1,0xf
01f5 c40a | | Store 0x2,0xa
01f6 e5fb | | Load 0x2,-0x5
01f7 4801 |H | Short_Literal 0x1
01f8 4802 |H | Short_Literal 0x2
01f9 e009 | | Load 0x0,0x9
01fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01fb 035b | [ | Declare_Type Array,Constrained
01fc 0337 | 7 | Declare_Variable Array
01fd e009 | | Load 0x0,0x9
01fe 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01ff e009 | | Load 0x0,0x9
0200 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0201 0119 | | Execute Any,Check_In_Formal_Type
0202 4801 |H | Short_Literal 0x1
0203 00da | | Load_Top At_Offset_2
0204 01d6 | | Execute Vector,Field_Write
0205 e5ff | | Load 0x2,-0x1
0206 e003 | | Load 0x0,0x3
0207 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0208 e009 | | Load 0x0,0x9
0209 1b0e | | Execute Package,Field_Read,Field_Number 0xe
020a 0119 | | Execute Any,Check_In_Formal_Type
020b 4802 |H | Short_Literal 0x2
020c 00da | | Load_Top At_Offset_2
020d 01d6 | | Execute Vector,Field_Write
020e 6049 |`I | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008126}
020f e006 | | Load 0x0,0x6
0210 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0211 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0212 e40a | | Load 0x2,0xa
0213 e5fb | | Load 0x2,-0x5
0214 e410 | | Load 0x2,0x10
0215 820f | | Call 0x1,0xf
0216 c40a | | Store 0x2,0xa
0217 4801 |H | Short_Literal 0x1
0218 4802 |H | Short_Literal 0x2
0219 e009 | | Load 0x0,0x9
021a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
021b 035b | [ | Declare_Type Array,Constrained
021c 0337 | 7 | Declare_Variable Array
021d e009 | | Load 0x0,0x9
021e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
021f e009 | | Load 0x0,0x9
0220 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0221 0119 | | Execute Any,Check_In_Formal_Type
0222 4801 |H | Short_Literal 0x1
0223 00da | | Load_Top At_Offset_2
0224 01d6 | | Execute Vector,Field_Write
0225 e5ff | | Load 0x2,-0x1
0226 e003 | | Load 0x0,0x3
0227 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0228 e009 | | Load 0x0,0x9
0229 1b0e | | Execute Package,Field_Read,Field_Number 0xe
022a 0119 | | Execute Any,Check_In_Formal_Type
022b 4802 |H | Short_Literal 0x2
022c 00da | | Load_Top At_Offset_2
022d 01d6 | | Execute Vector,Field_Write
022e 6029 |`) | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008126}
022f e006 | | Load 0x0,0x6
0230 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0231 a5fa | | Store_Unchecked 0x2,-0x6
0232 e5fb | | Load 0x2,-0x5
0233 4801 |H | Short_Literal 0x1
0234 4802 |H | Short_Literal 0x2
0235 e009 | | Load 0x0,0x9
0236 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0237 035b | [ | Declare_Type Array,Constrained
0238 0337 | 7 | Declare_Variable Array
0239 e009 | | Load 0x0,0x9
023a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
023b e009 | | Load 0x0,0x9
023c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023d 0119 | | Execute Any,Check_In_Formal_Type
023e 4801 |H | Short_Literal 0x1
023f 00da | | Load_Top At_Offset_2
0240 01d6 | | Execute Vector,Field_Write
0241 e5ff | | Load 0x2,-0x1
0242 e003 | | Load 0x0,0x3
0243 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0244 e009 | | Load 0x0,0x9
0245 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0246 0119 | | Execute Any,Check_In_Formal_Type
0247 4802 |H | Short_Literal 0x2
0248 00da | | Load_Top At_Offset_2
0249 01d6 | | Execute Vector,Field_Write
024a 600d |` | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008126}
024b e006 | | Load 0x0,0x6
024c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
024d e5fb | | Load 0x2,-0x5
024e 0092 0400 | | Action Push_String_Extended,0x400 ; "Rcf_Compilation.Link_Operations.Link"
0250 e00f | | Load 0x0,0xf
0251 180f | | Execute Package,Field_Execute,Field_Number 0xf
0252 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0253 0000 | | .XXX[0x1]
0254 0000 0000 | | .LITERAL {0x00000000, 0x0000817a}
0258 0000 0000 | | .LITERAL {0x00000000, 0x00008126}
025c 0000 0000 | | .LITERAL {0x00000000, 0x00008210}
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0265 | e | .CONST 0x0265 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0002 | | .CONST 0x0002 ; Number of locals
0263 INIT_0260:
0263 e002 | | Load 0x0,0x2
0264 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0265 BODY_0260:
0265 e002 | | Load 0x0,0x2
0266 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0267 e5fd | | Load 0x2,-0x3
0268 0120 | | Execute Any,Is_Value
0269 6804 |h | Jump_Zero 0x26e
026a e002 | | Load 0x0,0x2
026b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
026c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
026d 7801 |x | Jump 0x26f
026e e5fd | | Load 0x2,-0x3
026f 6068 |`h | Indirect_Literal Discrete,0x2d8,{0x00000000, 0x00004000}
0270 e010 | | Load 0x0,0x10
0271 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0272 4800 |H | Short_Literal 0x0
0273 e5ff | | Load 0x2,-0x1
0274 e002 | | Load 0x0,0x2
0275 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0276 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0277 c5fd | | Store 0x2,-0x3
0278 0059 | Y | Store_Top Discrete,At_Offset_1
0279 00d8 | | Load_Top At_Offset_0
027a 6821 |h! | Jump_Zero 0x29c
027b 4801 |H | Short_Literal 0x1
027c 4802 |H | Short_Literal 0x2
027d e009 | | Load 0x0,0x9
027e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
027f 035b | [ | Declare_Type Array,Constrained
0280 0337 | 7 | Declare_Variable Array
0281 e5ff | | Load 0x2,-0x1
0282 e009 | | Load 0x0,0x9
0283 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0284 e009 | | Load 0x0,0x9
0285 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0286 0119 | | Execute Any,Check_In_Formal_Type
0287 4801 |H | Short_Literal 0x1
0288 00da | | Load_Top At_Offset_2
0289 01d6 | | Execute Vector,Field_Write
028a 00d9 | | Load_Top At_Offset_1
028b e009 | | Load 0x0,0x9
028c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
028d e009 | | Load 0x0,0x9
028e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028f 0119 | | Execute Any,Check_In_Formal_Type
0290 4802 |H | Short_Literal 0x2
0291 00da | | Load_Top At_Offset_2
0292 01d6 | | Execute Vector,Field_Write
0293 6040 |`@ | Indirect_Literal Discrete,0x2d4,{0x00000000, 0x0000813d}
0294 e006 | | Load 0x0,0x6
0295 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0296 a5fb | | Store_Unchecked 0x2,-0x5
0297 e5fe | | Load 0x2,-0x2
0298 e5fb | | Load 0x2,-0x5
0299 e006 | | Load 0x0,0x6
029a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
029b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
029c e011 | | Load 0x0,0x11
029d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
029e e002 | | Load 0x0,0x2
029f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02a1 c5fc | | Store 0x2,-0x4
02a2 e002 | | Load 0x0,0x2
02a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a4 e011 | | Load 0x0,0x11
02a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02a6 e5fd | | Load 0x2,-0x3
02a7 e002 | | Load 0x0,0x2
02a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02aa 0059 | Y | Store_Top Discrete,At_Offset_1
02ab 00d8 | | Load_Top At_Offset_0
02ac 6820 |h | Jump_Zero 0x2cd
02ad 4801 |H | Short_Literal 0x1
02ae 4802 |H | Short_Literal 0x2
02af e009 | | Load 0x0,0x9
02b0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02b1 035b | [ | Declare_Type Array,Constrained
02b2 0337 | 7 | Declare_Variable Array
02b3 e5ff | | Load 0x2,-0x1
02b4 e009 | | Load 0x0,0x9
02b5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02b6 e009 | | Load 0x0,0x9
02b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b8 0119 | | Execute Any,Check_In_Formal_Type
02b9 4801 |H | Short_Literal 0x1
02ba 00da | | Load_Top At_Offset_2
02bb 01d6 | | Execute Vector,Field_Write
02bc 00d9 | | Load_Top At_Offset_1
02bd e009 | | Load 0x0,0x9
02be 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02bf e009 | | Load 0x0,0x9
02c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c1 0119 | | Execute Any,Check_In_Formal_Type
02c2 4802 |H | Short_Literal 0x2
02c3 00da | | Load_Top At_Offset_2
02c4 01d6 | | Execute Vector,Field_Write
02c5 600a |` | Indirect_Literal Discrete,0x2d0,{0x00000000, 0x00008159}
02c6 e006 | | Load 0x0,0x6
02c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c8 a5fb | | Store_Unchecked 0x2,-0x5
02c9 e5fe | | Load 0x2,-0x2
02ca e5fb | | Load 0x2,-0x5
02cb e006 | | Load 0x0,0x6
02cc 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
02cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ce 0000 0000 | | .XXX[0x2]
02d0 0000 0000 | | .LITERAL {0x00000000, 0x00008159}
02d4 0000 0000 | | .LITERAL {0x00000000, 0x0000813d}
02d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
02dc 0000 0000 | | .BLANK 0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e5 | | .CONST 0x02e5 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0002 | | .CONST 0x0002 ; Number of locals
02e3 INIT_02e0:
02e3 e002 | | Load 0x0,0x2
02e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e5 BODY_02e0:
02e5 4800 |H | Short_Literal 0x0
02e6 a5fd | | Store_Unchecked 0x2,-0x3
02e7 e002 | | Load 0x0,0x2
02e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e9 e011 | | Load 0x0,0x11
02ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02eb e5ff | | Load 0x2,-0x1
02ec e002 | | Load 0x0,0x2
02ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ee 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02ef 0059 | Y | Store_Top Discrete,At_Offset_1
02f0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02f1 0000 0000 | | .BLANK 0000[0x7]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0300 | | .CONST 0x0300 ; Address of begin
02f9 030c | | .CONST 0x030c ; Address of exception handler
02fa 0002 | | .CONST 0x0002 ; Number of locals
02fb INIT_02f8:
02fb e002 | | Load 0x0,0x2
02fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02fd 02c7 | | Declare_Variable Any
02fe 00d8 | | Load_Top At_Offset_0
02ff 1c00 | | Execute_Immediate Run_Utility,0x0
0300 BODY_02f8:
0300 e5fe | | Load 0x2,-0x2
0301 4800 |H | Short_Literal 0x0
0302 e5ff | | Load 0x2,-0x1
0303 e003 | | Load 0x0,0x3
0304 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0305 c402 | | Store 0x2,0x2
0306 e5fe | | Load 0x2,-0x2
0307 4800 |H | Short_Literal 0x0
0308 00da | | Load_Top At_Offset_2
0309 e003 | | Load 0x0,0x3
030a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
030b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
030c TRAP_02f8:
030c 0007 | | Action Break_Optional
030d e002 | | Load 0x0,0x2
030e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
030f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0324 | $ | .CONST 0x0324 ; Address of begin
0311 033f | ? | .CONST 0x033f ; Address of exception handler
0312 0006 | | .CONST 0x0006 ; Number of locals
0313 INIT_0310:
0313 e012 | | Load 0x0,0x12
0314 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0315 02c7 | | Declare_Variable Any
0316 00db | | Load_Top At_Offset_3
0317 e001 | | Load 0x0,0x1
0318 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0319 e013 | | Load 0x0,0x13
031a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
031b a402 | | Store_Unchecked 0x2,0x2
031c 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call
031e 029f 038b | | Declare_Subprogram INIT_0388,For_Call
0320 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call
0322 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
0324 BODY_0310:
0324 e5ff | | Load 0x2,-0x1
0325 e001 | | Load 0x0,0x1
0326 1887 | | Execute Package,Field_Execute,Field_Number 0x87
0327 01db | | Execute Vector,Length
0328 7001 |p | Jump_Nonzero 0x32a
0329 4509 |E | Exit_Suprogram New_Top_Offset 0x9
032a 8405 | | Call 0x2,0x5
032b e5f7 | | Load 0x2,-0x9
032c e5f8 | | Load 0x2,-0x8
032d e5f9 | | Load 0x2,-0x7
032e e5fd | | Load 0x2,-0x3
032f e5fe | | Load 0x2,-0x2
0330 00ea | | Load_Encached Null_String_Cache
0331 4800 |H | Short_Literal 0x0
0332 8404 | | Call 0x2,0x4
0333 4801 |H | Short_Literal 0x1
0334 8404 | | Call 0x2,0x4
0335 e5fb | | Load 0x2,-0x5
0336 e5ff | | Load 0x2,-0x1
0337 e001 | | Load 0x0,0x1
0338 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7
0339 e5ff | | Load 0x2,-0x1
033a e00c | | Load 0x0,0xc
033b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
033c c5f7 | | Store 0x2,-0x9
033d 8406 | | Call 0x2,0x6
033e 4509 |E | Exit_Suprogram New_Top_Offset 0x9
033f TRAP_0310:
033f e001 | | Load 0x0,0x1
0340 1bbc | | Execute Package,Field_Read,Field_Number 0xbc
0341 010f | | Execute Exception,Equal
0342 6824 |h$ | Jump_Zero 0x367
0343 4801 |H | Short_Literal 0x1
0344 4802 |H | Short_Literal 0x2
0345 e009 | | Load 0x0,0x9
0346 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0347 035b | [ | Declare_Type Array,Constrained
0348 0337 | 7 | Declare_Variable Array
0349 0092 03ff | | Action Push_String_Extended,0x3ff ; "Link"
034b e009 | | Load 0x0,0x9
034c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
034d e009 | | Load 0x0,0x9
034e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034f 0119 | | Execute Any,Check_In_Formal_Type
0350 4801 |H | Short_Literal 0x1
0351 00da | | Load_Top At_Offset_2
0352 01d6 | | Execute Vector,Field_Write
0353 e5ff | | Load 0x2,-0x1
0354 e001 | | Load 0x0,0x1
0355 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0356 e003 | | Load 0x0,0x3
0357 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0358 e009 | | Load 0x0,0x9
0359 1b0e | | Execute Package,Field_Read,Field_Number 0xe
035a 0119 | | Execute Any,Check_In_Formal_Type
035b 4802 |H | Short_Literal 0x2
035c 00da | | Load_Top At_Offset_2
035d 01d6 | | Execute Vector,Field_Write
035e 6009 |` | Indirect_Literal Discrete,0x368,{0x00000000, 0x0000818c}
035f e006 | | Load 0x0,0x6
0360 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0361 a5f7 | | Store_Unchecked 0x2,-0x9
0362 e5f8 | | Load 0x2,-0x8
0363 e5f7 | | Load 0x2,-0x9
0364 e006 | | Load 0x0,0x6
0365 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0366 4509 |E | Exit_Suprogram New_Top_Offset 0x9
0367 0100 | | Execute Exception,Raise
0368 0000 0000 | | .LITERAL {0x00000000, 0x0000818c}
036c 0000 0000 | | .BLANK 0000[0x4]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 6807 |h | Jump_Zero 0x37c
0375 4800 |H | Short_Literal 0x0
0376 e5fd | | Load 0x2,-0x3
0377 e00b | | Load 0x0,0xb
0378 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0379 e00b | | Load 0x0,0xb
037a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
037b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037c 4800 |H | Short_Literal 0x0
037d e5fd | | Load 0x2,-0x3
037e e00b | | Load 0x0,0xb
037f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0380 e00b | | Load 0x0,0xb
0381 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0382 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0383 0000 0000 | | .BLANK 0000[0x5]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 039e | | .CONST 0x039e ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0002 | | .CONST 0x0002 ; Number of locals
038b INIT_0388:
038b e5f8 | | Load 0x2,-0x8
038c e5fc | | Load 0x2,-0x4
038d e7ff | | Load 0x3,-0x1
038e 8403 | | Call 0x2,0x3
038f 4801 |H | Short_Literal 0x1
0390 e7ff | | Load 0x3,-0x1
0391 0272 | r | Execute Discrete,Minus
0392 00d8 | | Load_Top At_Offset_0
0393 e014 | | Load 0x0,0x14
0394 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0395 0260 | ` | Execute Discrete,In_Type
0396 7001 |p | Jump_Nonzero 0x398
0397 0801 | | Execute_Immediate Raise,0x1
0398 4803 |H | Short_Literal 0x3
0399 e5ff | | Load 0x2,-0x1
039a e001 | | Load 0x0,0x1
039b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
039c e014 | | Load 0x0,0x14
039d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
039e BODY_0388:
039e e5fa | | Load 0x2,-0x6
039f 01db | | Execute Vector,Length
03a0 7002 |p | Jump_Nonzero 0x3a3
03a1 00d8 | | Load_Top At_Offset_0
03a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a3 e5ff | | Load 0x2,-0x1
03a4 e001 | | Load 0x0,0x1
03a5 18d2 | | Execute Package,Field_Execute,Field_Number 0xd2
03a6 e7ff | | Load 0x3,-0x1
03a7 027f | | Execute Discrete,Equal
03a8 6825 |h% | Jump_Zero 0x3ce
03a9 00d8 | | Load_Top At_Offset_0
03aa 01db | | Execute Vector,Length
03ab 700e |p | Jump_Nonzero 0x3ba
03ac e402 | | Load 0x2,0x2
03ad e012 | | Load 0x0,0x12
03ae 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
03af e5ff | | Load 0x2,-0x1
03b0 e001 | | Load 0x0,0x1
03b1 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
03b2 01cc | | Execute Vector,Catenate
03b3 e402 | | Load 0x2,0x2
03b4 e012 | | Load 0x0,0x12
03b5 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
03b6 01cc | | Execute Vector,Catenate
03b7 e5fa | | Load 0x2,-0x6
03b8 01cc | | Execute Vector,Catenate
03b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ba 00d8 | | Load_Top At_Offset_0
03bb e402 | | Load 0x2,0x2
03bc e012 | | Load 0x0,0x12
03bd 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
03be 01cc | | Execute Vector,Catenate
03bf e402 | | Load 0x2,0x2
03c0 e012 | | Load 0x0,0x12
03c1 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
03c2 01cc | | Execute Vector,Catenate
03c3 e5ff | | Load 0x2,-0x1
03c4 e001 | | Load 0x0,0x1
03c5 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
03c6 01cc | | Execute Vector,Catenate
03c7 e402 | | Load 0x2,0x2
03c8 e012 | | Load 0x0,0x12
03c9 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
03ca 01cc | | Execute Vector,Catenate
03cb e5fa | | Load 0x2,-0x6
03cc 01cc | | Execute Vector,Catenate
03cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ce 00d8 | | Load_Top At_Offset_0
03cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d6 | | .CONST 0x03d6 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0002 | | .CONST 0x0002 ; Number of locals
03d3 INIT_03d0:
03d3 e5ff | | Load 0x2,-0x1
03d4 e001 | | Load 0x0,0x1
03d5 18ce | | Execute Package,Field_Execute,Field_Number 0xce
03d6 BODY_03d0:
03d6 00d8 | | Load_Top At_Offset_0
03d7 01db | | Execute Vector,Length
03d8 0c01 | | Execute_Immediate Greater_Equal,0x1
03d9 680a |h | Jump_Zero 0x3e4
03da e5f7 | | Load 0x2,-0x9
03db e5f8 | | Load 0x2,-0x8
03dc e5f9 | | Load 0x2,-0x7
03dd e5fd | | Load 0x2,-0x3
03de e5fe | | Load 0x2,-0x2
03df e602 | | Load 0x3,0x2
03e0 e5ff | | Load 0x2,-0x1
03e1 e00c | | Load 0x0,0xc
03e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e3 c5f7 | | Store 0x2,-0x9
03e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e5 0000 0000 | | .XXX[0x3]
03e7 0000 | |
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f0 | | .CONST 0x03f0 ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0003 | | .CONST 0x0003 ; Number of locals
03eb INIT_03e8:
03eb e006 | | Load 0x0,0x6
03ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ed e5ff | | Load 0x2,-0x1
03ee e001 | | Load 0x0,0x1
03ef 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
03f0 BODY_03e8:
03f0 00d8 | | Load_Top At_Offset_0
03f1 01db | | Execute Vector,Length
03f2 0c01 | | Execute_Immediate Greater_Equal,0x1
03f3 680a |h | Jump_Zero 0x3fe
03f4 00d9 | | Load_Top At_Offset_1
03f5 e5f8 | | Load 0x2,-0x8
03f6 e5f9 | | Load 0x2,-0x7
03f7 e5fd | | Load 0x2,-0x3
03f8 e5fe | | Load 0x2,-0x2
03f9 e603 | | Load 0x3,0x3
03fa e5ff | | Load 0x2,-0x1
03fb e00c | | Load 0x0,0xc
03fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03fd 005a | Z | Store_Top Discrete,At_Offset_2
03fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ff ; --------------------------------------------------------------------------------------
03ff ; STRING TABLE
03ff ; --------------------------------------------------------------------------------------
03ff 0006 | | .STRTAB 0x0006->0x0402 ; "Link"
0400 0008 | | .STRTAB 0x0008->0x0404 ; "Rcf_Compilation.Link_Operations.Link"
0401 002a | * | .STREND 0x002a->0x0416
0402 4c69 6e6b |Link| .STRTAB_STRINGS
0416 0000 0000 | | .XXX[0x2]
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug Table
0418 ; --------------------------------------------------------------------------------------
0418 0004 000f | | .DEBUG4 0x0004,0x000f,0x2c09,0x0000,0x0001,0x0000
041e 0000 0000 | | .BLANK 0000[0x1e2]