|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1a50b9
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0328 | ( | .CONST 0x0328 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0079 | y | .CONST 0x0079 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000f 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0011 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0013 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0015 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0017 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0019 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
001b 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
001d 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
001f 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0021 00bf | | Action Accept_Activation
0022 e002 | | Load 0x0,0x2
0023 0322 | " | Declare_Variable Record
0024 00d8 | | Load_Top At_Offset_0
0025 1c00 | | Execute_Immediate Run_Utility,0x0
0026 e003 | | Load 0x0,0x3
0027 0322 | " | Declare_Variable Record
0028 00d8 | | Load_Top At_Offset_0
0029 1c00 | | Execute_Immediate Run_Utility,0x0
002a e004 | | Load 0x0,0x4
002b 0337 | 7 | Declare_Variable Array
002c e005 | | Load 0x0,0x5
002d 0337 | 7 | Declare_Variable Array
002e 4801 |H | Short_Literal 0x1
002f 4802 |H | Short_Literal 0x2
0030 e006 | | Load 0x0,0x6
0031 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0032 035b | [ | Declare_Type Array,Constrained
0033 0337 | 7 | Declare_Variable Array
0034 4801 |H | Short_Literal 0x1
0035 4804 |H | Short_Literal 0x4
0036 e006 | | Load 0x0,0x6
0037 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0038 035b | [ | Declare_Type Array,Constrained
0039 0337 | 7 | Declare_Variable Array
003a 00d8 | | Load_Top At_Offset_0
003b 0335 | 5 | Declare_Variable Array,Duplicate
003c 00cd | | Action Spare6_Action
003d 48c1 |H | Short_Literal 0xc1
003e 4801 |H | Short_Literal 0x1
003f 00da | | Load_Top At_Offset_2
0040 01d6 | | Execute Vector,Field_Write
0041 4836 |H6 | Short_Literal 0x36
0042 4802 |H | Short_Literal 0x2
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 4892 |H | Short_Literal 0x92
0046 4803 |H | Short_Literal 0x3
0047 00da | | Load_Top At_Offset_2
0048 01d6 | | Execute Vector,Field_Write
0049 4885 |H | Short_Literal 0x85
004a 4804 |H | Short_Literal 0x4
004b 00da | | Load_Top At_Offset_2
004c 01d6 | | Execute Vector,Field_Write
004d 00d9 | | Load_Top At_Offset_1
004e 01d4 | | Execute Vector,Structure_Write
004f e007 | | Load 0x0,0x7
0050 02ff | | Declare_Variable Variant_Record
0051 00d8 | | Load_Top At_Offset_0
0052 1c00 | | Execute_Immediate Run_Utility,0x0
0053 0093 0000 | | push_full_address 0x0
0055 603a |`: | Indirect_Literal Discrete,0x90,{0x80000000, 0x00010000}
0056 0273 | s | Execute Discrete,Plus
0057 e20d | | Load 0x1,0xd
0058 6033 |`3 | Indirect_Literal Discrete,0x8c,{0x00000000, 0x0000ffff}
0059 0279 | y | Execute Discrete,And
005a 0273 | s | Execute Discrete,Plus
005b e008 | | Load 0x0,0x8
005c 0273 | s | Execute Discrete,Plus
005d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
005e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
005f e009 | | Load 0x0,0x9
0060 0387 | | Declare_Variable Package
0061 00d8 | | Load_Top At_Offset_0
0062 020f | | Execute Module,Activate
0063 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0064 00c7 | | Action Elaborate_Subprogram
0065 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0066 00c7 | | Action Elaborate_Subprogram
0067 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0068 00c7 | | Action Elaborate_Subprogram
0069 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006a 00c7 | | Action Elaborate_Subprogram
006b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
006c 00c7 | | Action Elaborate_Subprogram
006d 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006e 00c7 | | Action Elaborate_Subprogram
006f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0070 00c7 | | Action Elaborate_Subprogram
0071 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0072 00c7 | | Action Elaborate_Subprogram
0073 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0074 00c7 | | Action Elaborate_Subprogram
0075 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0076 00c7 | | Action Elaborate_Subprogram
0077 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0078 00c7 | | Action Elaborate_Subprogram
0079 BODY_0008:
0079 00bc | | Action Signal_Activated
007a 00bb | | Action Signal_Completion
007b 0000 0000 | | .BLANK 0000[0x5]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 e21c | | Load 0x1,0x1c
0084 800a | | Call 0x0,0xa
0085 00d1 | | Pop_Control Pop_Count_1
0086 e21b | | Load 0x1,0x1b
0087 800b | | Call 0x0,0xb
0088 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0089 0000 0000 | | .XXX[0x3]
008b 0000 | |
008c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0090 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00b3 | | .CONST 0x00b3 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 000a | | .CONST 0x000a ; Number of locals
009b INIT_0098:
009b e00c | | Load 0x0,0xc
009c 0322 | " | Declare_Variable Record
009d 00d8 | | Load_Top At_Offset_0
009e 1c00 | | Execute_Immediate Run_Utility,0x0
009f 00d8 | | Load_Top At_Offset_0
00a0 0322 | " | Declare_Variable Record
00a1 00d8 | | Load_Top At_Offset_0
00a2 1c00 | | Execute_Immediate Run_Utility,0x0
00a3 e00d | | Load 0x0,0xd
00a4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a5 e007 | | Load 0x0,0x7
00a6 02ff | | Declare_Variable Variant_Record
00a7 00d8 | | Load_Top At_Offset_0
00a8 1c00 | | Execute_Immediate Run_Utility,0x0
00a9 e007 | | Load 0x0,0x7
00aa 02ff | | Declare_Variable Variant_Record
00ab 00d8 | | Load_Top At_Offset_0
00ac 1c00 | | Execute_Immediate Run_Utility,0x0
00ad e00d | | Load 0x0,0xd
00ae 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00af e00d | | Load 0x0,0xd
00b0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00b1 00e1 | | Load_Encached Boolean_Cache
00b2 00e1 | | Load_Encached Boolean_Cache
00b3 BODY_0098:
00b3 0092 02be | | Action Push_String_Extended,0x2be ; "enregistrement aupres de l'orb"
00b5 800e | | Call 0x0,0xe
00b6 e221 | ! | Load 0x1,0x21
00b7 e5ff | | Load 0x2,-0x1
00b8 e00f | | Load 0x0,0xf
00b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ba 00d1 | | Pop_Control Pop_Count_1
00bb e404 | | Load 0x2,0x4
00bc e5ff | | Load 0x2,-0x1
00bd 8010 | | Call 0x0,0x10
00be e00d | | Load 0x0,0xd
00bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c0 a404 | | Store_Unchecked 0x2,0x4
00c1 e21d | | Load 0x1,0x1d
00c2 8011 | | Call 0x0,0x11
00c3 00d1 | | Pop_Control Pop_Count_1
00c4 e402 | | Load 0x2,0x2
00c5 e404 | | Load 0x2,0x4
00c6 e21d | | Load 0x1,0x1d
00c7 4800 |H | Short_Literal 0x0
00c8 e012 | | Load 0x0,0x12
00c9 e21e | | Load 0x1,0x1e
00ca 8013 | | Call 0x0,0x13
00cb 00d1 | | Pop_Control Pop_Count_1
00cc e21b | | Load 0x1,0x1b
00cd e402 | | Load 0x2,0x2
00ce 8014 | | Call 0x0,0x14
00cf 00d2 | | Pop_Control Pop_Count_2
00d0 e404 | | Load 0x2,0x4
00d1 e00d | | Load 0x0,0xd
00d2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d3 c404 | | Store 0x2,0x4
00d4 00cf | | Action Mark_Auxiliary
00d5 00e1 | | Load_Encached Boolean_Cache
00d6 e21c | | Load 0x1,0x1c
00d7 e403 | | Load 0x2,0x3
00d8 8015 | | Call 0x0,0x15
00d9 00d2 | | Pop_Control Pop_Count_2
00da 005a | Z | Store_Top Discrete,At_Offset_2
00db 0092 02bf | | Action Push_String_Extended,0x2bf ; "."
00dd 800e | | Call 0x0,0xe
00de 00d9 | | Load_Top At_Offset_1
00df 0f01 | | Execute_Immediate Equal,0x1
00e0 7002 |p | Jump_Nonzero 0xe3
00e1 00c9 | | Action Pop_Auxiliary_Loop
00e2 7ff2 | | Jump 0xd5
00e3 00ce | | Action Pop_Auxiliary
00e4 e403 | | Load 0x2,0x3
00e5 8016 | | Call 0x0,0x16
00e6 6804 |h | Jump_Zero 0xeb
00e7 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "erreur de registration"
00e9 800e | | Call 0x0,0xe
00ea 7804 |x | Jump 0xef
00eb e403 | | Load 0x2,0x3
00ec 8017 | | Call 0x0,0x17
00ed e21e | | Load 0x1,0x1e
00ee 01d4 | | Execute Vector,Structure_Write
00ef e21c | | Load 0x1,0x1c
00f0 8018 | | Call 0x0,0x18
00f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f2 0000 0000 | | .BLANK 0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0101 | | .CONST 0x0101 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0003 | | .CONST 0x0003 ; Number of locals
00fb INIT_00f8:
00fb e00c | | Load 0x0,0xc
00fc 0322 | " | Declare_Variable Record
00fd 00d8 | | Load_Top At_Offset_0
00fe 1c00 | | Execute_Immediate Run_Utility,0x0
00ff e00d | | Load 0x0,0xd
0100 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0101 BODY_00f8:
0101 0092 02c1 | | Action Push_String_Extended,0x2c1 ; "unregistration"
0103 800e | | Call 0x0,0xe
0104 e21d | | Load 0x1,0x1d
0105 8019 | | Call 0x0,0x19
0106 00d1 | | Pop_Control Pop_Count_1
0107 00d8 | | Load_Top At_Offset_0
0108 e221 | ! | Load 0x1,0x21
0109 e00d | | Load 0x0,0xd
010a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
010b 0039 | 9 | Store_Top Access,At_Offset_1
010c 00d9 | | Load_Top At_Offset_1
010d 00d9 | | Load_Top At_Offset_1
010e e21d | | Load 0x1,0x1d
010f 4801 |H | Short_Literal 0x1
0110 e012 | | Load 0x0,0x12
0111 e21e | | Load 0x1,0x1e
0112 8013 | | Call 0x0,0x13
0113 00d1 | | Pop_Control Pop_Count_1
0114 e21b | | Load 0x1,0x1b
0115 00da | | Load_Top At_Offset_2
0116 8014 | | Call 0x0,0x14
0117 00d2 | | Pop_Control Pop_Count_2
0118 801a | | Call 0x0,0x1a
0119 4501 |E | Exit_Suprogram New_Top_Offset 0x1
011a 0000 0000 | | .BLANK 0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0131 | 1 | .CONST 0x0131 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0005 | | .CONST 0x0005 ; Number of locals
0123 INIT_0120:
0123 e007 | | Load 0x0,0x7
0124 02ff | | Declare_Variable Variant_Record
0125 00d8 | | Load_Top At_Offset_0
0126 1c00 | | Execute_Immediate Run_Utility,0x0
0127 00d8 | | Load_Top At_Offset_0
0128 02ff | | Declare_Variable Variant_Record
0129 00d8 | | Load_Top At_Offset_0
012a 1c00 | | Execute_Immediate Run_Utility,0x0
012b e00c | | Load 0x0,0xc
012c 0322 | " | Declare_Variable Record
012d 00d8 | | Load_Top At_Offset_0
012e 1c00 | | Execute_Immediate Run_Utility,0x0
012f e00d | | Load 0x0,0xd
0130 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0131 BODY_0120:
0131 0092 02c2 | | Action Push_String_Extended,0x2c2 ; "souscription aupres d'un objet."
0133 800e | | Call 0x0,0xe
0134 00db | | Load_Top At_Offset_3
0135 e5ff | | Load 0x2,-0x1
0136 e00f | | Load 0x0,0xf
0137 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0138 00d1 | | Pop_Control Pop_Count_1
0139 00d8 | | Load_Top At_Offset_0
013a e402 | | Load 0x2,0x2
013b e00d | | Load 0x0,0xd
013c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
013d 0039 | 9 | Store_Top Access,At_Offset_1
013e 00da | | Load_Top At_Offset_2
013f e5fd | | Load 0x2,-0x3
0140 e00f | | Load 0x0,0xf
0141 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0142 00d1 | | Pop_Control Pop_Count_1
0143 00d8 | | Load_Top At_Offset_0
0144 00db | | Load_Top At_Offset_3
0145 e00d | | Load 0x0,0xd
0146 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0147 0039 | 9 | Store_Top Access,At_Offset_1
0148 e21d | | Load 0x1,0x1d
0149 8019 | | Call 0x0,0x19
014a 00d1 | | Pop_Control Pop_Count_1
014b 00d9 | | Load_Top At_Offset_1
014c 00d9 | | Load_Top At_Offset_1
014d e21d | | Load 0x1,0x1d
014e 4808 |H | Short_Literal 0x8
014f e5fe | | Load 0x2,-0x2
0150 e21e | | Load 0x1,0x1e
0151 8013 | | Call 0x0,0x13
0152 00d1 | | Pop_Control Pop_Count_1
0153 e21b | | Load 0x1,0x1b
0154 00da | | Load_Top At_Offset_2
0155 8014 | | Call 0x0,0x14
0156 00d2 | | Pop_Control Pop_Count_2
0157 e21d | | Load 0x1,0x1d
0158 0335 | 5 | Declare_Variable Array,Duplicate
0159 00cd | | Action Spare6_Action
015a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
015b 0000 0000 | | .BLANK 0000[0x5]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 e00d | | Load 0x0,0xd
0164 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0165 e5fe | | Load 0x2,-0x2
0166 e5ff | | Load 0x2,-0x1
0167 00e5 | | Load_Encached Long_Integer_Cache
0168 00e0 | | Load_Encached Standard_Cache
0169 1819 | | Execute Package,Field_Execute,Field_Number 0x19
016a 00d8 | | Load_Top At_Offset_0
016b e01b | | Load 0x0,0x1b
016c 0260 | ` | Execute Discrete,In_Type
016d 7001 |p | Jump_Nonzero 0x16f
016e 0801 | | Execute_Immediate Raise,0x1
016f 801c | | Call 0x0,0x1c
0170 00d1 | | Pop_Control Pop_Count_1
0171 c5fd | | Store 0x2,-0x3
0172 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0173 0000 0000 | | .BLANK 0000[0x5]
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 e00d | | Load 0x0,0xd
017c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
017d 00db | | Load_Top At_Offset_3
017e 00e5 | | Load_Encached Long_Integer_Cache
017f 00e0 | | Load_Encached Standard_Cache
0180 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0181 00d8 | | Load_Top At_Offset_0
0182 e01b | | Load 0x0,0x1b
0183 0260 | ` | Execute Discrete,In_Type
0184 7001 |p | Jump_Nonzero 0x186
0185 0801 | | Execute_Immediate Raise,0x1
0186 801d | | Call 0x0,0x1d
0187 c5fe | | Store 0x2,-0x2
0188 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0195 | | .CONST 0x0195 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 e01b | | Load 0x0,0x1b
0194 0007 | | Action Break_Optional
0195 BODY_0190:
0195 00db | | Load_Top At_Offset_3
0196 00e5 | | Load_Encached Long_Integer_Cache
0197 00e0 | | Load_Encached Standard_Cache
0198 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0199 00d8 | | Load_Top At_Offset_0
019a e01b | | Load 0x0,0x1b
019b 0260 | ` | Execute Discrete,In_Type
019c 7001 |p | Jump_Nonzero 0x19e
019d 0801 | | Execute_Immediate Raise,0x1
019e 801e | | Call 0x0,0x1e
019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01b4 | | .CONST 0x01b4 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0006 | | .CONST 0x0006 ; Number of locals
01a3 INIT_01a0:
01a3 e007 | | Load 0x0,0x7
01a4 02ff | | Declare_Variable Variant_Record
01a5 00d8 | | Load_Top At_Offset_0
01a6 1c00 | | Execute_Immediate Run_Utility,0x0
01a7 e007 | | Load 0x0,0x7
01a8 02ff | | Declare_Variable Variant_Record
01a9 00d8 | | Load_Top At_Offset_0
01aa 1c00 | | Execute_Immediate Run_Utility,0x0
01ab e00d | | Load 0x0,0xd
01ac 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ad e01f | | Load 0x0,0x1f
01ae 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01af 0322 | " | Declare_Variable Record
01b0 e00c | | Load 0x0,0xc
01b1 0322 | " | Declare_Variable Record
01b2 00d8 | | Load_Top At_Offset_0
01b3 1c00 | | Execute_Immediate Run_Utility,0x0
01b4 BODY_01a0:
01b4 0092 02c3 | | Action Push_String_Extended,0x2c3 ; "demande d'une requete"
01b6 800e | | Call 0x0,0xe
01b7 00db | | Load_Top At_Offset_3
01b8 e5ff | | Load 0x2,-0x1
01b9 e00f | | Load 0x0,0xf
01ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01bb 00d1 | | Pop_Control Pop_Count_1
01bc 00da | | Load_Top At_Offset_2
01bd e403 | | Load 0x2,0x3
01be e00d | | Load 0x0,0xd
01bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c0 003b | ; | Store_Top Access,At_Offset_3
01c1 e402 | | Load 0x2,0x2
01c2 e5fe | | Load 0x2,-0x2
01c3 e00f | | Load 0x0,0xf
01c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c5 00d1 | | Pop_Control Pop_Count_1
01c6 00da | | Load_Top At_Offset_2
01c7 e402 | | Load 0x2,0x2
01c8 e00d | | Load 0x0,0xd
01c9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ca 003b | ; | Store_Top Access,At_Offset_3
01cb e21d | | Load 0x1,0x1d
01cc 8019 | | Call 0x0,0x19
01cd 00d1 | | Pop_Control Pop_Count_1
01ce e5fd | | Load 0x2,-0x3
01cf e01f | | Load 0x0,0x1f
01d0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01d1 7004 |p | Jump_Nonzero 0x1d6
01d2 e5fd | | Load 0x2,-0x3
01d3 00db | | Load_Top At_Offset_3
01d4 8020 | | Call 0x0,0x20
01d5 003b | ; | Store_Top Access,At_Offset_3
01d6 e21d | | Load 0x1,0x1d
01d7 8019 | | Call 0x0,0x19
01d8 00d1 | | Pop_Control Pop_Count_1
01d9 00d8 | | Load_Top At_Offset_0
01da 00db | | Load_Top At_Offset_3
01db e21d | | Load 0x1,0x1d
01dc 4803 |H | Short_Literal 0x3
01dd e5fc | | Load 0x2,-0x4
01de e21e | | Load 0x1,0x1e
01df 8013 | | Call 0x0,0x13
01e0 00d1 | | Pop_Control Pop_Count_1
01e1 e21b | | Load 0x1,0x1b
01e2 00d9 | | Load_Top At_Offset_1
01e3 8014 | | Call 0x0,0x14
01e4 00d2 | | Pop_Control Pop_Count_2
01e5 e21d | | Load 0x1,0x1d
01e6 0335 | 5 | Declare_Variable Array,Duplicate
01e7 00cd | | Action Spare6_Action
01e8 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01e9 0000 0000 | | .BLANK 0000[0x7]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 020a | | .CONST 0x020a ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0009 | | .CONST 0x0009 ; Number of locals
01f3 INIT_01f0:
01f3 e00c | | Load 0x0,0xc
01f4 0322 | " | Declare_Variable Record
01f5 00d8 | | Load_Top At_Offset_0
01f6 1c00 | | Execute_Immediate Run_Utility,0x0
01f7 e00d | | Load 0x0,0xd
01f8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01f9 e007 | | Load 0x0,0x7
01fa 02ff | | Declare_Variable Variant_Record
01fb 00d8 | | Load_Top At_Offset_0
01fc 1c00 | | Execute_Immediate Run_Utility,0x0
01fd e007 | | Load 0x0,0x7
01fe 02ff | | Declare_Variable Variant_Record
01ff 00d8 | | Load_Top At_Offset_0
0200 1c00 | | Execute_Immediate Run_Utility,0x0
0201 00e3 | | Load_Encached Natural_Cache
0202 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0203 00e3 | | Load_Encached Natural_Cache
0204 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0205 e01f | | Load 0x0,0x1f
0206 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0207 0322 | " | Declare_Variable Record
0208 e00d | | Load 0x0,0xd
0209 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
020a BODY_01f0:
020a 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "publication d'une methode"
020c 800e | | Call 0x0,0xe
020d e403 | | Load 0x2,0x3
020e e221 | ! | Load 0x1,0x21
020f e00d | | Load 0x0,0xd
0210 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0211 a403 | | Store_Unchecked 0x2,0x3
0212 e403 | | Load 0x2,0x3
0213 e5ff | | Load 0x2,-0x1
0214 8010 | | Call 0x0,0x10
0215 e00d | | Load 0x0,0xd
0216 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0217 a403 | | Store_Unchecked 0x2,0x3
0218 e404 | | Load 0x2,0x4
0219 e5fe | | Load 0x2,-0x2
021a 8021 | ! | Call 0x0,0x21
021b 00e0 | | Load_Encached Standard_Cache
021c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
021d e00f | | Load 0x0,0xf
021e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
021f 00d1 | | Pop_Control Pop_Count_1
0220 e403 | | Load 0x2,0x3
0221 e404 | | Load 0x2,0x4
0222 e00d | | Load 0x0,0xd
0223 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0224 a403 | | Store_Unchecked 0x2,0x3
0225 e5fe | | Load 0x2,-0x2
0226 e403 | | Load 0x2,0x3
0227 8020 | | Call 0x0,0x20
0228 a403 | | Store_Unchecked 0x2,0x3
0229 e404 | | Load 0x2,0x4
022a e5fd | | Load 0x2,-0x3
022b 8021 | ! | Call 0x0,0x21
022c 00e0 | | Load_Encached Standard_Cache
022d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
022e e00f | | Load 0x0,0xf
022f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0230 00d1 | | Pop_Control Pop_Count_1
0231 e403 | | Load 0x2,0x3
0232 e404 | | Load 0x2,0x4
0233 e00d | | Load 0x0,0xd
0234 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0235 a403 | | Store_Unchecked 0x2,0x3
0236 e5fd | | Load 0x2,-0x3
0237 e403 | | Load 0x2,0x3
0238 8020 | | Call 0x0,0x20
0239 a403 | | Store_Unchecked 0x2,0x3
023a e21d | | Load 0x1,0x1d
023b 8019 | | Call 0x0,0x19
023c 00d1 | | Pop_Control Pop_Count_1
023d e402 | | Load 0x2,0x2
023e e403 | | Load 0x2,0x3
023f e21d | | Load 0x1,0x1d
0240 4806 |H | Short_Literal 0x6
0241 e012 | | Load 0x0,0x12
0242 e21e | | Load 0x1,0x1e
0243 8013 | | Call 0x0,0x13
0244 00d1 | | Pop_Control Pop_Count_1
0245 e21b | | Load 0x1,0x1b
0246 e402 | | Load 0x2,0x2
0247 8014 | | Call 0x0,0x14
0248 00d2 | | Pop_Control Pop_Count_2
0249 e403 | | Load 0x2,0x3
024a e00d | | Load 0x0,0xd
024b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
024c c403 | | Store 0x2,0x3
024d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
024e 0000 0000 | | .XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0259 | Y | .CONST 0x0259 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0003 | | .CONST 0x0003 ; Number of locals
0253 INIT_0250:
0253 e00c | | Load 0x0,0xc
0254 0322 | " | Declare_Variable Record
0255 00d8 | | Load_Top At_Offset_0
0256 1c00 | | Execute_Immediate Run_Utility,0x0
0257 e00d | | Load 0x0,0xd
0258 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0259 BODY_0250:
0259 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "retrait d'une methode aupres de l'orb"
025b 800e | | Call 0x0,0xe
025c e21d | | Load 0x1,0x1d
025d 8019 | | Call 0x0,0x19
025e 00d1 | | Pop_Control Pop_Count_1
025f 00d8 | | Load_Top At_Offset_0
0260 e221 | ! | Load 0x1,0x21
0261 e00d | | Load 0x0,0xd
0262 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0263 0039 | 9 | Store_Top Access,At_Offset_1
0264 00d8 | | Load_Top At_Offset_0
0265 e5ff | | Load 0x2,-0x1
0266 8010 | | Call 0x0,0x10
0267 e00d | | Load 0x0,0xd
0268 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0269 0039 | 9 | Store_Top Access,At_Offset_1
026a 00d9 | | Load_Top At_Offset_1
026b 00d9 | | Load_Top At_Offset_1
026c e21d | | Load 0x1,0x1d
026d 4807 |H | Short_Literal 0x7
026e e012 | | Load 0x0,0x12
026f e21e | | Load 0x1,0x1e
0270 8013 | | Call 0x0,0x13
0271 00d1 | | Pop_Control Pop_Count_1
0272 e21b | | Load 0x1,0x1b
0273 00da | | Load_Top At_Offset_2
0274 8014 | | Call 0x0,0x14
0275 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0289 | | .CONST 0x0289 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0006 | | .CONST 0x0006 ; Number of locals
027b INIT_0278:
027b e00c | | Load 0x0,0xc
027c 0322 | " | Declare_Variable Record
027d 00d8 | | Load_Top At_Offset_0
027e 1c00 | | Execute_Immediate Run_Utility,0x0
027f e00d | | Load 0x0,0xd
0280 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0281 00e1 | | Load_Encached Boolean_Cache
0282 03e9 | | Declare_Variable Discrete,Duplicate
0283 4801 |H | Short_Literal 0x1
0284 4806 |H | Short_Literal 0x6
0285 e022 | " | Load 0x0,0x22
0286 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0287 035b | [ | Declare_Type Array,Constrained
0288 0337 | 7 | Declare_Variable Array
0289 BODY_0278:
0289 e023 | # | Load 0x0,0x23
028a e21e | | Load 0x1,0x1e
028b 01d4 | | Execute Vector,Structure_Write
028c 00e1 | | Load_Encached Boolean_Cache
028d e21c | | Load 0x1,0x1c
028e e006 | | Load 0x0,0x6
028f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0290 e006 | | Load 0x0,0x6
0291 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0292 8024 | $ | Call 0x0,0x24
0293 00d1 | | Pop_Control Pop_Count_1
0294 005b | [ | Store_Top Discrete,At_Offset_3
0295 e21c | | Load 0x1,0x1c
0296 8025 | % | Call 0x0,0x25
0297 e21f | | Load 0x1,0x1f
0298 01d4 | | Execute Vector,Structure_Write
0299 e21c | | Load 0x1,0x1c
029a 8026 | & | Call 0x0,0x26
029b e220 | | Load 0x1,0x20
029c 01d4 | | Execute Vector,Structure_Write
029d 00e1 | | Load_Encached Boolean_Cache
029e e21b | | Load 0x1,0x1b
029f e5fe | | Load 0x2,-0x2
02a0 e5ff | | Load 0x2,-0x1
02a1 8027 | ' | Call 0x0,0x27
02a2 00d1 | | Pop_Control Pop_Count_1
02a3 005a | Z | Store_Top Discrete,At_Offset_2
02a4 4801 |H | Short_Literal 0x1
02a5 4802 |H | Short_Literal 0x2
02a6 e21f | | Load 0x1,0x1f
02a7 01cf | | Execute Vector,Slice_Read
02a8 4801 |H | Short_Literal 0x1
02a9 4802 |H | Short_Literal 0x2
02aa 00db | | Load_Top At_Offset_3
02ab 01ce | | Execute Vector,Slice_Write
02ac 4801 |H | Short_Literal 0x1
02ad 4804 |H | Short_Literal 0x4
02ae e220 | | Load 0x1,0x20
02af 01cf | | Execute Vector,Slice_Read
02b0 4803 |H | Short_Literal 0x3
02b1 4806 |H | Short_Literal 0x6
02b2 00db | | Load_Top At_Offset_3
02b3 01ce | | Execute Vector,Slice_Write
02b4 00d8 | | Load_Top At_Offset_0
02b5 e005 | | Load 0x0,0x5
02b6 01c7 | | Execute Vector,Convert
02b7 e21e | | Load 0x1,0x1e
02b8 01d4 | | Execute Vector,Structure_Write
02b9 00d9 | | Load_Top At_Offset_1
02ba 00db | | Load_Top At_Offset_3
02bb 0279 | y | Execute Discrete,And
02bc a5fd | | Store_Unchecked 0x2,-0x3
02bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02be ; --------------------------------------------------------------------------------------
02be ; STRING TABLE
02be ; --------------------------------------------------------------------------------------
02be 0012 | | .STRTAB 0x0012->0x02c7 ; "enregistrement aupres de l'orb"
02bf 002e | . | .STRTAB 0x002e->0x02d6 ; "."
02c0 002d | - | .STRTAB 0x002d->0x02d6 ; "erreur de registration"
02c1 0041 | A | .STRTAB 0x0041->0x02e1 ; "unregistration"
02c2 004d | M | .STRTAB 0x004d->0x02e8 ; "souscription aupres d'un objet."
02c3 006a | j | .STRTAB 0x006a->0x02f8 ; "demande d'une requete"
02c4 007d | } | .STRTAB 0x007d->0x0302 ; "publication d'une methode"
02c5 0094 | | .STRTAB 0x0094->0x030f ; "retrait d'une methode aupres de l'orb"
02c6 00b7 | | .STREND 0x00b7->0x0321
02c7 656e 7265 |enre| .STRTAB_STRINGS
0322 0000 0000 | | .BLANK 0000[0x6]
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug Table
0328 ; --------------------------------------------------------------------------------------
0328 0004 000a | | .DEBUG4 0x0004,0x000a,0x7bbe,0x0000,0x0001,0x000d
032e 000b 0362 | b| .DBG4T 0x000b,0x0362,0xc000,0x0000
0332 0022 036f | " o| .DBG4T 0x0022,0x036f,0xc000,0x0000
0336 0083 0384 | | .DBG4T 0x0083,0x0384,0x1001,0x0000
033a 009b 0388 | | .DBG4T 0x009b,0x0388,0x1001,0x4000
033e 00fb 03ae | | .DBG4T 0x00fb,0x03ae,0x1001,0x0000
0342 0123 03b8 | # | .DBG4T 0x0123,0x03b8,0x1002,0x0000
0346 0163 03c6 | c | .DBG4T 0x0163,0x03c6,0x1001,0x0000
034a 017b 03c9 | { | .DBG4T 0x017b,0x03c9,0x1001,0x0000
034e 0193 03cc | | .DBG4T 0x0193,0x03cc,0x1002,0x0000
0352 01a3 03d0 | | .DBG4T 0x01a3,0x03d0,0x1002,0x0000
0356 01f3 03e3 | | .DBG4T 0x01f3,0x03e3,0x1001,0x0000
035a 0253 03fa | S | .DBG4T 0x0253,0x03fa,0x1001,0x0000
035e 027b 0404 | { | .DBG4T 0x027b,0x0404,0x1001,0x0000
0362 ; --------------------------------------------------------------------------------------
0362 ; Debug chain
0362 ; --------------------------------------------------------------------------------------
0362 000b 0000 | | .DBGLEN 0x000b,0x0000
0364 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f
036f ; --------------------------------------------------------------------------------------
036f ; Debug chain
036f ; --------------------------------------------------------------------------------------
036f 0013 0000 | | .DBGLEN 0x0013,0x0000
0371 0022 0026 | " &| .DBGLNO 0x0022,0x0026,0x002a,0x002c,0x002e,0x0034,0x004f,0x0053,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077
0384 ; --------------------------------------------------------------------------------------
0384 ; Debug chain
0384 ; --------------------------------------------------------------------------------------
0384 0000 0002 | | .DBGLEN 0x0000,0x0002
0386 0083 0086 | | .DBGLNO 0x0083,0x0086
0388 ; --------------------------------------------------------------------------------------
0388 ; Debug chain
0388 ; --------------------------------------------------------------------------------------
0388 0008 000e | | .DBGLEN 0x0008,0x000e
038a 009b 00a3 | | .DBGLNO 0x009b,0x00a3,0x00a5,0x00a9,0x00ad,0x00af,0x00b1,0x00b2,0x00b3,0x00b6,0x00bb,0x00c1,0x00c4,0x00cc,0x00d0,0x00d5,0x00db,0x00de,0x00e4,0x00e7,0x00eb,0x00ef
03a0 0001 0002 | | .XXX[0xe]
03a2 0003 0004 | |
03a4 0005 0006 | |
03a6 0007 0009 | |
03a8 000a 000b | |
03aa 000c 000d | |
03ac 000e 000f | |
03ae ; --------------------------------------------------------------------------------------
03ae ; Debug chain
03ae ; --------------------------------------------------------------------------------------
03ae 0002 0006 | | .DBGLEN 0x0002,0x0006
03b0 00fb 00ff | | .DBGLNO 0x00fb,0x00ff,0x0101,0x0104,0x0107,0x010c,0x0114,0x0118
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug chain
03b8 ; --------------------------------------------------------------------------------------
03b8 0003 0009 | | .DBGLEN 0x0003,0x0009
03ba 0123 012b | # +| .DBGLNO 0x0123,0x012b,0x012f,0x0131,0x0134,0x0139,0x013e,0x0143,0x0148,0x014b,0x0153,0x0157
03c6 ; --------------------------------------------------------------------------------------
03c6 ; Debug chain
03c6 ; --------------------------------------------------------------------------------------
03c6 0000 0001 | | .DBGLEN 0x0000,0x0001
03c8 0163 | c | .DBGLNO 0x0163
03c9 ; --------------------------------------------------------------------------------------
03c9 ; Debug chain
03c9 ; --------------------------------------------------------------------------------------
03c9 0000 0001 | | .DBGLEN 0x0000,0x0001
03cb 017b | { | .DBGLNO 0x017b
03cc ; --------------------------------------------------------------------------------------
03cc ; Debug chain
03cc ; --------------------------------------------------------------------------------------
03cc 0001 0001 | | .DBGLEN 0x0001,0x0001
03ce 0193 0195 | | .DBGLNO 0x0193,0x0195
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug chain
03d0 ; --------------------------------------------------------------------------------------
03d0 0005 000c | | .DBGLEN 0x0005,0x000c
03d2 01a3 01a7 | | .DBGLNO 0x01a3,0x01a7,0x01ab,0x01ad,0x01b0,0x01b4,0x01b7,0x01bc,0x01c1,0x01c6,0x01cb,0x01ce,0x01d2,0x01d6,0x01d9,0x01e1,0x01e5
03e3 ; --------------------------------------------------------------------------------------
03e3 ; Debug chain
03e3 ; --------------------------------------------------------------------------------------
03e3 0008 000d | | .DBGLEN 0x0008,0x000d
03e5 01f3 01f7 | | .DBGLNO 0x01f3,0x01f7,0x01f9,0x01fd,0x0201,0x0203,0x0205,0x0208,0x020a,0x020d,0x0212,0x0218,0x0220,0x0225,0x0229,0x0231,0x0236,0x023a,0x023d,0x0245,0x0249
03fa ; --------------------------------------------------------------------------------------
03fa ; Debug chain
03fa ; --------------------------------------------------------------------------------------
03fa 0002 0006 | | .DBGLEN 0x0002,0x0006
03fc 0253 0257 | S W| .DBGLNO 0x0253,0x0257,0x0259,0x025c,0x025f,0x0264,0x026a,0x0272
0404 ; --------------------------------------------------------------------------------------
0404 ; Debug chain
0404 ; --------------------------------------------------------------------------------------
0404 0004 0009 | | .DBGLEN 0x0004,0x0009
0406 027b 027f | { | .DBGLNO 0x027b,0x027f,0x0281,0x0283,0x0289,0x028c,0x0295,0x0299,0x029d,0x02a4,0x02ac,0x02b4,0x02b9
0413 0000 0000 | | .BLANK 0000[0x1ed]