|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_79a0bb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 0320 | | .CONST 0x0320 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0050 | P | .CONST 0x0050 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "Trame Ihm-68"
000d 0129 | ) | Execute Any,Make_Visible
000e 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "Fin Trame Ihm-68"
0010 0129 | ) | Execute Any,Make_Visible
0011 4800 |H | Short_Literal 0x0
0012 4807 |H | Short_Literal 0x7
0013 029f 005b | [| Declare_Subprogram For_Call,INIT_0058
0015 03fe | | Declare_Type Discrete,Defined,Visible
0016 4800 |H | Short_Literal 0x0
0017 4808 |H | Short_Literal 0x8
0018 029f 008b | | Declare_Subprogram For_Call,INIT_0088
001a 03fe | | Declare_Type Discrete,Defined,Visible
001b 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
001d 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0
001f 029a 00d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d0
0021 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8
0023 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
0025 029a 00fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f8
0027 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
0029 0093 0000 | | PushFullAddress InMicrocode
002b 6058 |`X | Indirect_Literal Discrete,0x84,{0x80000000, 0x00010000}
002c 0273 | s | Execute Discrete,Plus
002d 0129 | ) | Execute Any,Make_Visible
002e 4805 |H | Short_Literal 0x5
002f 4807 |H | Short_Literal 0x7
0030 e20f | | Load 0x1,0xf
0031 03f9 | | Declare_Type Discrete,Constrained,Visible
0032 e20f | | Load 0x1,0xf
0033 4802 |H | Short_Literal 0x2
0034 e210 | | Load 0x1,0x10
0035 4801 |H | Short_Literal 0x1
0036 6049 |`I | Indirect_Literal Discrete,0x80,{0x00000000, 0x00000400}
0037 00e9 | | Load_Encached String_Cache
0038 035c | \ | Declare_Type Array,Constrained,Visible
0039 029f 026b | k| Declare_Subprogram For_Call,INIT_0268
003b 4802 |H | Short_Literal 0x2
003c 4800 |H | Short_Literal 0x0
003d 4801 |H | Short_Literal 0x1
003e 4800 |H | Short_Literal 0x0
003f 4801 |H | Short_Literal 0x1
0040 031e | | Declare_Type Variant_Record,Defined,Visible
0041 00bf | | Action Accept_Activation
0042 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0043 00c7 | | Action Elaborate_Subprogram
0044 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0045 00c7 | | Action Elaborate_Subprogram
0046 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0047 00c7 | | Action Elaborate_Subprogram
0048 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0049 00c7 | | Action Elaborate_Subprogram
004a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
004b 00c7 | | Action Elaborate_Subprogram
004c 1d16 | | Execute_Immediate Reference_Lex_1,0x16
004d 00c7 | | Action Elaborate_Subprogram
004e 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004f 00c7 | | Action Elaborate_Subprogram
0050 BODY_0008:
0050 00bc | | Action Signal_Activated
0051 00bb | | Action Signal_Completion
0052 0000 0000 | | .BLANK 0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 4607 |F | Jump_Case 0x7
005c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
005d 7807 |x | Jump 0x65 ; case 0x1
005e 780a |x | Jump 0x69 ; case 0x2
005f 780e |x | Jump 0x6e ; case 0x3
0060 7811 |x | Jump 0x72 ; case 0x4
0061 7812 |x | Jump 0x74 ; case 0x5
0062 7813 |x | Jump 0x76 ; case 0x6
0063 7816 |x | Jump 0x7a ; case 0x7
0064 4302 |C | .XXX[0x1]
0065 00da | | Load_Top At_Offset_2
0066 0091 02b4 | | Action Push_String_Extended_Indexed,0x2b4 ; "PAS_D_ACTION"
0068 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0069 00db | | Load_Top At_Offset_3
006a 00db | | Load_Top At_Offset_3
006b 00e0 | | Load_Encached Standard_Cache
006c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
006d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
006e 00da | | Load_Top At_Offset_2
006f 00e0 | | Load_Encached Standard_Cache
0070 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0071 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0072 00db | | Load_Top At_Offset_3
0073 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0074 00db | | Load_Top At_Offset_3
0075 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0076 e20f | | Load 0x1,0xf
0077 00dc | | Load_Top At_Offset_4
0078 0267 | g | Execute Discrete,Predecessor
0079 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
007a e20f | | Load 0x1,0xf
007b 00dc | | Load_Top At_Offset_4
007c 0268 | h | Execute Discrete,Successor
007d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
007e 0000 0000 | | .XXX[0x2]
0080 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0084 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 4607 |F | Jump_Case 0x7
008c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
008d 7807 |x | Jump 0x95 ; case 0x1
008e 780a |x | Jump 0x99 ; case 0x2
008f 780e |x | Jump 0x9e ; case 0x3
0090 7811 |x | Jump 0xa2 ; case 0x4
0091 7812 |x | Jump 0xa4 ; case 0x5
0092 7813 |x | Jump 0xa6 ; case 0x6
0093 7816 |x | Jump 0xaa ; case 0x7
0094 4302 |C | .XXX[0x1]
0095 00da | | Load_Top At_Offset_2
0096 0091 02bc | | Action Push_String_Extended_Indexed,0x2bc ; "PAS_D_OBJET"
0098 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0099 00db | | Load_Top At_Offset_3
009a 00db | | Load_Top At_Offset_3
009b 00e0 | | Load_Encached Standard_Cache
009c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
009e 00da | | Load_Top At_Offset_2
009f 00e0 | | Load_Encached Standard_Cache
00a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a1 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00a2 00db | | Load_Top At_Offset_3
00a3 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00a4 00db | | Load_Top At_Offset_3
00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00a6 e210 | | Load 0x1,0x10
00a7 00dc | | Load_Top At_Offset_4
00a8 0267 | g | Execute Discrete,Predecessor
00a9 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00aa e210 | | Load 0x1,0x10
00ab 00dc | | Load_Top At_Offset_4
00ac 0268 | h | Execute Discrete,Successor
00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00ae 0000 0000 | | .XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b5 | | .CONST 0x00b5 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0002 | | .CONST 0x0002 ; Number of locals
00b3 INIT_00b0:
00b3 029f 01cb | | Declare_Subprogram For_Call,INIT_01c8
00b5 BODY_00b0:
00b5 00db | | Load_Top At_Offset_3
00b6 e219 | | Load 0x1,0x19
00b7 0260 | ` | Execute Discrete,In_Type
00b8 6802 |h | Jump_Zero 0xbb
00b9 e218 | | Load 0x1,0x18
00ba 0257 | W | Execute Discrete,Raise
00bb 8402 | | Call 0x2,0x2
00bc 4502 |E | Exit_Subprogram 0x2
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5 | | .CONST 0x00c5 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 029f 01db | | Declare_Subprogram For_Call,INIT_01d8
00c5 BODY_00c0:
00c5 00db | | Load_Top At_Offset_3
00c6 e219 | | Load 0x1,0x19
00c7 0260 | ` | Execute Discrete,In_Type
00c8 6802 |h | Jump_Zero 0xcb
00c9 8402 | | Call 0x2,0x2
00ca 4504 |E | Exit_Subprogram 0x4
00cb e218 | | Load 0x1,0x18
00cc 0257 | W | Execute Discrete,Raise
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00d5 4401 |D | Exit_Subprogram With_Result,0x1
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00dd e219 | | Load 0x1,0x19
00de 0260 | ` | Execute Discrete,In_Type
00df 6803 |h | Jump_Zero 0xe3
00e0 00da | | Load_Top At_Offset_2
00e1 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
00e2 4401 |D | Exit_Subprogram With_Result,0x1
00e3 e218 | | Load 0x1,0x18
00e4 0257 | W | Execute Discrete,Raise
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2
00ec 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ed e219 | | Load 0x1,0x19
00ee 0260 | ` | Execute Discrete,In_Type
00ef 6804 |h | Jump_Zero 0xf4
00f0 00da | | Load_Top At_Offset_2
00f1 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00f2 8002 | | Call 0x0,0x2
00f3 4401 |D | Exit_Subprogram With_Result,0x1
00f4 e218 | | Load 0x1,0x18
00f5 0257 | W | Execute Discrete,Raise
00f6 0000 0000 | | .XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fd | | .CONST 0x00fd ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb 029f 023b | ;| Declare_Subprogram For_Call,INIT_0238
00fd BODY_00f8:
00fd 00db | | Load_Top At_Offset_3
00fe 8213 | | Call 0x1,0x13
00ff e219 | | Load 0x1,0x19
0100 0260 | ` | Execute Discrete,In_Type
0101 6802 |h | Jump_Zero 0x104
0102 8402 | | Call 0x2,0x2
0103 780c |x | Jump 0x110
0104 4823 |H# | Short_Literal 0x23
0105 e20d | | Load 0x1,0xd
0106 e5ff | | Load 0x2,-0x1
0107 8213 | | Call 0x1,0x13
0108 e20f | | Load 0x1,0xf
0109 011c | | Execute Any,Convert_Unchecked
010a 1c01 | | Execute_Immediate Run_Utility,0x1
010b 01cc | | Execute Vector,Catenate
010c 01cb | | Execute Vector,Append
010d e20e | | Load 0x1,0xe
010e 01cc | | Execute Vector,Catenate
010f 4401 |D | Exit_Subprogram With_Result,0x1
0110 0831 | 1 | Execute_Immediate Raise,0x31
0111 0000 0000 | | .BLANK 0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0129 | ) | .CONST 0x0129 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 000a | | .CONST 0x000a ; Number of locals
011b INIT_0118:
011b e20f | | Load 0x1,0xf
011c 0007 | | Action Break_Optional
011d e210 | | Load 0x1,0x10
011e 0007 | | Action Break_Optional
011f 00e3 | | Load_Encached Natural_Cache
0120 00e3 | | Load_Encached Natural_Cache
0121 03e9 | | Declare_Variable Discrete,Duplicate
0122 03e9 | | Declare_Variable Discrete,Duplicate
0123 03e9 | | Declare_Variable Discrete,Duplicate
0124 03e9 | | Declare_Variable Discrete,Duplicate
0125 e21a | | Load 0x1,0x1a
0126 02ff | | Declare_Variable Variant_Record
0127 00d8 | | Load_Top At_Offset_0
0128 1c00 | | Execute_Immediate Run_Utility,0x0
0129 BODY_0118:
0129 e405 | | Load 0x2,0x5
012a e20d | | Load 0x1,0xd
012b e5ff | | Load 0x2,-0x1
012c 8003 | | Call 0x0,0x3
012d c405 | | Store 0x2,0x5
012e e406 | | Load 0x2,0x6
012f 4823 |H# | Short_Literal 0x23
0130 e405 | | Load 0x2,0x5
0131 0a01 | | Execute_Immediate Plus,0x1
0132 00d8 | | Load_Top At_Offset_0
0133 00e2 | | Load_Encached Integer_Cache
0134 0260 | ` | Execute Discrete,In_Type
0135 7001 |p | Jump_Nonzero 0x137
0136 0801 | | Execute_Immediate Raise,0x1
0137 e5ff | | Load 0x2,-0x1
0138 01dc | | Execute Vector,Last
0139 e5ff | | Load 0x2,-0x1
013a 01cf | | Execute Vector,Slice_Read
013b 8004 | | Call 0x0,0x4
013c c406 | | Store 0x2,0x6
013d e405 | | Load 0x2,0x5
013e 0a01 | | Execute_Immediate Plus,0x1
013f 00d8 | | Load_Top At_Offset_0
0140 00e2 | | Load_Encached Integer_Cache
0141 0260 | ` | Execute Discrete,In_Type
0142 7001 |p | Jump_Nonzero 0x144
0143 0801 | | Execute_Immediate Raise,0x1
0144 e406 | | Load 0x2,0x6
0145 0aff | | Execute_Immediate Plus,-0x1
0146 e5ff | | Load 0x2,-0x1
0147 01cf | | Execute Vector,Slice_Read
0148 e20f | | Load 0x1,0xf
0149 1c02 | | Execute_Immediate Run_Utility,0x2
014a a402 | | Store_Unchecked 0x2,0x2
014b e402 | | Load 0x2,0x2
014c e219 | | Load 0x1,0x19
014d 0260 | ` | Execute Discrete,In_Type
014e 6863 |hc | Jump_Zero 0x1b2
014f 00db | | Load_Top At_Offset_3
0150 4823 |H# | Short_Literal 0x23
0151 e406 | | Load 0x2,0x6
0152 0a01 | | Execute_Immediate Plus,0x1
0153 00d8 | | Load_Top At_Offset_0
0154 00e2 | | Load_Encached Integer_Cache
0155 0260 | ` | Execute Discrete,In_Type
0156 7001 |p | Jump_Nonzero 0x158
0157 0801 | | Execute_Immediate Raise,0x1
0158 e5ff | | Load 0x2,-0x1
0159 01dc | | Execute Vector,Last
015a e5ff | | Load 0x2,-0x1
015b 01cf | | Execute Vector,Slice_Read
015c 8004 | | Call 0x0,0x4
015d c407 | | Store 0x2,0x7
015e e406 | | Load 0x2,0x6
015f 0a01 | | Execute_Immediate Plus,0x1
0160 00d8 | | Load_Top At_Offset_0
0161 00e2 | | Load_Encached Integer_Cache
0162 0260 | ` | Execute Discrete,In_Type
0163 7001 |p | Jump_Nonzero 0x165
0164 0801 | | Execute_Immediate Raise,0x1
0165 e407 | | Load 0x2,0x7
0166 0aff | | Execute_Immediate Plus,-0x1
0167 e5ff | | Load 0x2,-0x1
0168 01cf | | Execute Vector,Slice_Read
0169 e210 | | Load 0x1,0x10
016a 1c02 | | Execute_Immediate Run_Utility,0x2
016b a403 | | Store_Unchecked 0x2,0x3
016c 00da | | Load_Top At_Offset_2
016d 4823 |H# | Short_Literal 0x23
016e e407 | | Load 0x2,0x7
016f 0a01 | | Execute_Immediate Plus,0x1
0170 00d8 | | Load_Top At_Offset_0
0171 00e2 | | Load_Encached Integer_Cache
0172 0260 | ` | Execute Discrete,In_Type
0173 7001 |p | Jump_Nonzero 0x175
0174 0801 | | Execute_Immediate Raise,0x1
0175 e5ff | | Load 0x2,-0x1
0176 01dc | | Execute Vector,Last
0177 e5ff | | Load 0x2,-0x1
0178 01cf | | Execute Vector,Slice_Read
0179 8004 | | Call 0x0,0x4
017a 005b | [ | Store_Top Discrete,At_Offset_3
017b 00db | | Load_Top At_Offset_3
017c 0a01 | | Execute_Immediate Plus,0x1
017d 00d8 | | Load_Top At_Offset_0
017e 00e2 | | Load_Encached Integer_Cache
017f 0260 | ` | Execute Discrete,In_Type
0180 7001 |p | Jump_Nonzero 0x182
0181 0801 | | Execute_Immediate Raise,0x1
0182 00db | | Load_Top At_Offset_3
0183 0aff | | Execute_Immediate Plus,-0x1
0184 e5ff | | Load 0x2,-0x1
0185 01cf | | Execute Vector,Slice_Read
0186 00e2 | | Load_Encached Integer_Cache
0187 00e0 | | Load_Encached Standard_Cache
0188 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0189 c404 | | Store 0x2,0x4
018a 00d9 | | Load_Top At_Offset_1
018b e20e | | Load 0x1,0xe
018c e408 | | Load 0x2,0x8
018d e404 | | Load 0x2,0x4
018e 0273 | s | Execute Discrete,Plus
018f 0a02 | | Execute_Immediate Plus,0x2
0190 00d8 | | Load_Top At_Offset_0
0191 00e2 | | Load_Encached Integer_Cache
0192 0260 | ` | Execute Discrete,In_Type
0193 7001 |p | Jump_Nonzero 0x195
0194 0801 | | Execute_Immediate Raise,0x1
0195 e5ff | | Load 0x2,-0x1
0196 01dc | | Execute Vector,Last
0197 e5ff | | Load 0x2,-0x1
0198 01cf | | Execute Vector,Slice_Read
0199 8003 | | Call 0x0,0x3
019a 005a | Z | Store_Top Discrete,At_Offset_2
019b 00d8 | | Load_Top At_Offset_0
019c 00db | | Load_Top At_Offset_3
019d 0a01 | | Execute_Immediate Plus,0x1
019e 00d8 | | Load_Top At_Offset_0
019f 00e2 | | Load_Encached Integer_Cache
01a0 0260 | ` | Execute Discrete,In_Type
01a1 7001 |p | Jump_Nonzero 0x1a3
01a2 0801 | | Execute_Immediate Raise,0x1
01a3 e408 | | Load 0x2,0x8
01a4 e404 | | Load 0x2,0x4
01a5 0273 | s | Execute Discrete,Plus
01a6 00d8 | | Load_Top At_Offset_0
01a7 00e2 | | Load_Encached Integer_Cache
01a8 0260 | ` | Execute Discrete,In_Type
01a9 7001 |p | Jump_Nonzero 0x1ab
01aa 0801 | | Execute_Immediate Raise,0x1
01ab e5ff | | Load 0x2,-0x1
01ac 01cf | | Execute Vector,Slice_Read
01ad e403 | | Load 0x2,0x3
01ae e402 | | Load 0x2,0x2
01af 8212 | | Call 0x1,0x12
01b0 00d1 | | Pop_Control Pop_Count_1
01b1 7813 |x | Jump 0x1c5
01b2 00db | | Load_Top At_Offset_3
01b3 e20e | | Load 0x1,0xe
01b4 e406 | | Load 0x2,0x6
01b5 0a01 | | Execute_Immediate Plus,0x1
01b6 00d8 | | Load_Top At_Offset_0
01b7 00e2 | | Load_Encached Integer_Cache
01b8 0260 | ` | Execute Discrete,In_Type
01b9 7001 |p | Jump_Nonzero 0x1bb
01ba 0801 | | Execute_Immediate Raise,0x1
01bb e5ff | | Load 0x2,-0x1
01bc 01dc | | Execute Vector,Last
01bd e5ff | | Load 0x2,-0x1
01be 01cf | | Execute Vector,Slice_Read
01bf 8003 | | Call 0x0,0x3
01c0 c407 | | Store 0x2,0x7
01c1 00d8 | | Load_Top At_Offset_0
01c2 e402 | | Load 0x2,0x2
01c3 8211 | | Call 0x1,0x11
01c4 00d1 | | Pop_Control Pop_Count_1
01c5 00d8 | | Load_Top At_Offset_0
01c6 4401 |D | Exit_Subprogram With_Result,0x1
01c7 0000 | | .XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01ce | | .CONST 0x01ce ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb e5ff | | Load 0x2,-0x1
01cc e21a | | Load 0x1,0x1a
01cd 1c08 | | Execute_Immediate Run_Utility,0x8
01ce BODY_01c8:
01ce 00d8 | | Load_Top At_Offset_0
01cf e5fe | | Load 0x2,-0x2
01d0 016d | m | Execute Variant_Record,Structure_Write
01d1 4501 |E | Exit_Subprogram 0x1
01d2 0000 0000 | | .BLANK 0000[0x6]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01de | | .CONST 0x01de ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db e5ff | | Load 0x2,-0x1
01dc e21a | | Load 0x1,0x1a
01dd 1c08 | | Execute_Immediate Run_Utility,0x8
01de BODY_01d8:
01de e5fe | | Load 0x2,-0x2
01df 00d9 | | Load_Top At_Offset_1
01e0 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01e1 e5fd | | Load 0x2,-0x3
01e2 01db | | Execute Vector,Length
01e3 6050 |`P | Indirect_Literal Discrete,0x234,{0x00000000, 0x00000400}
01e4 027d | } | Execute Discrete,Greater
01e5 6811 |h | Jump_Zero 0x1f7
01e6 e5fd | | Load 0x2,-0x3
01e7 01dd | | Execute Vector,First
01e8 e5fd | | Load 0x2,-0x3
01e9 01dd | | Execute Vector,First
01ea 6049 |`I | Indirect_Literal Discrete,0x234,{0x00000000, 0x00000400}
01eb 0273 | s | Execute Discrete,Plus
01ec 0aff | | Execute_Immediate Plus,-0x1
01ed 00d8 | | Load_Top At_Offset_0
01ee 00e2 | | Load_Encached Integer_Cache
01ef 0260 | ` | Execute Discrete,In_Type
01f0 7001 |p | Jump_Nonzero 0x1f2
01f1 0801 | | Execute_Immediate Raise,0x1
01f2 e5fd | | Load 0x2,-0x3
01f3 01cf | | Execute Vector,Slice_Read
01f4 00d9 | | Load_Top At_Offset_1
01f5 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01f6 7839 |x9 | Jump 0x230
01f7 e5fd | | Load 0x2,-0x3
01f8 00d9 | | Load_Top At_Offset_1
01f9 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01fa 01dd | | Execute Vector,First
01fb 00da | | Load_Top At_Offset_2
01fc 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01fd 01dd | | Execute Vector,First
01fe e5fd | | Load 0x2,-0x3
01ff 01db | | Execute Vector,Length
0200 0273 | s | Execute Discrete,Plus
0201 0aff | | Execute_Immediate Plus,-0x1
0202 00d8 | | Load_Top At_Offset_0
0203 00e2 | | Load_Encached Integer_Cache
0204 0260 | ` | Execute Discrete,In_Type
0205 7001 |p | Jump_Nonzero 0x207
0206 0801 | | Execute_Immediate Raise,0x1
0207 00db | | Load_Top At_Offset_3
0208 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0209 01ce | | Execute Vector,Slice_Write
020a 00d8 | | Load_Top At_Offset_0
020b 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
020c 01dd | | Execute Vector,First
020d e5fd | | Load 0x2,-0x3
020e 01db | | Execute Vector,Length
020f 0273 | s | Execute Discrete,Plus
0210 00d9 | | Load_Top At_Offset_1
0211 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0212 01dc | | Execute Vector,Last
0213 00e9 | | Load_Encached String_Cache
0214 035b | [ | Declare_Type Array,Constrained
0215 0337 | 7 | Declare_Variable Array
0216 00d8 | | Load_Top At_Offset_0
0217 01d9 | | Execute Vector,Reverse_Bounds
0218 0263 | c | Execute Discrete,Above_Bound
0219 7005 |p | Jump_Nonzero 0x21f
021a 4820 |H | Short_Literal 0x20
021b 00d9 | | Load_Top At_Offset_1
021c e603 | | Load 0x3,0x3
021d 01d6 | | Execute Vector,Field_Write
021e 3ffb |? | Loop_Increasing 0x21a
021f 00d9 | | Load_Top At_Offset_1
0220 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0221 01dd | | Execute Vector,First
0222 e5fd | | Load 0x2,-0x3
0223 01db | | Execute Vector,Length
0224 0273 | s | Execute Discrete,Plus
0225 00d8 | | Load_Top At_Offset_0
0226 00e2 | | Load_Encached Integer_Cache
0227 0260 | ` | Execute Discrete,In_Type
0228 7001 |p | Jump_Nonzero 0x22a
0229 0801 | | Execute_Immediate Raise,0x1
022a 00da | | Load_Top At_Offset_2
022b 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
022c 01dc | | Execute Vector,Last
022d 00db | | Load_Top At_Offset_3
022e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
022f 01ce | | Execute Vector,Slice_Write
0230 00d8 | | Load_Top At_Offset_0
0231 e5fc | | Load 0x2,-0x4
0232 016d | m | Execute Variant_Record,Structure_Write
0233 4501 |E | Exit_Subprogram 0x1
0234 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d | = | .CONST 0x023d ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b e5ff | | Load 0x2,-0x1
023c 8215 | | Call 0x1,0x15
023d BODY_0238:
023d 4823 |H# | Short_Literal 0x23
023e 4823 |H# | Short_Literal 0x23
023f 4823 |H# | Short_Literal 0x23
0240 4823 |H# | Short_Literal 0x23
0241 e20d | | Load 0x1,0xd
0242 e5ff | | Load 0x2,-0x1
0243 8213 | | Call 0x1,0x13
0244 e20f | | Load 0x1,0xf
0245 011c | | Execute Any,Convert_Unchecked
0246 1c01 | | Execute_Immediate Run_Utility,0x1
0247 01cc | | Execute Vector,Catenate
0248 01cb | | Execute Vector,Append
0249 e5ff | | Load 0x2,-0x1
024a 8214 | | Call 0x1,0x14
024b e210 | | Load 0x1,0x10
024c 011c | | Execute Any,Convert_Unchecked
024d 1c01 | | Execute_Immediate Run_Utility,0x1
024e 01cc | | Execute Vector,Catenate
024f 01cb | | Execute Vector,Append
0250 00db | | Load_Top At_Offset_3
0251 01db | | Execute Vector,Length
0252 00d8 | | Load_Top At_Offset_0
0253 00e2 | | Load_Encached Integer_Cache
0254 0260 | ` | Execute Discrete,In_Type
0255 7001 |p | Jump_Nonzero 0x257
0256 0801 | | Execute_Immediate Raise,0x1
0257 00e0 | | Load_Encached Standard_Cache
0258 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0259 8005 | | Call 0x0,0x5
025a 01cc | | Execute Vector,Catenate
025b 01cb | | Execute Vector,Append
025c 00da | | Load_Top At_Offset_2
025d 01cc | | Execute Vector,Catenate
025e 01cb | | Execute Vector,Append
025f e20e | | Load 0x1,0xe
0260 01cc | | Execute Vector,Catenate
0261 00cb | | Action Pop_Block_With_Result
0262 4401 |D | Exit_Subprogram With_Result,0x1
0263 0000 0000 | | .BLANK 0000[0x5]
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 4609 |F | Jump_Case 0x9
026c 7809 |x | Jump 0x276 ; case 0x0
026d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
026e 781a |x | Jump 0x289 ; case 0x2
026f 781d |x | Jump 0x28d ; case 0x3
0270 7842 |xB | Jump 0x2b3 ; case 0x4
0271 7841 |xA | Jump 0x2b3 ; case 0x5
0272 7820 |x | Jump 0x293 ; case 0x6
0273 7828 |x( | Jump 0x29c ; case 0x7
0274 7833 |x3 | Jump 0x2a8 ; case 0x8
0275 7839 |x9 | Jump 0x2af ; case 0x9
0276 00da | | Load_Top At_Offset_2
0277 016c | l | Execute Variant_Record,Is_Constrained
0278 7009 |p | Jump_Nonzero 0x282
0279 00cf | | Action Mark_Auxiliary
027a 4800 |H | Short_Literal 0x0
027b e5ff | | Load 0x2,-0x1
027c 1c08 | | Execute_Immediate Run_Utility,0x8
027d 00d8 | | Load_Top At_Offset_0
027e 1c00 | | Execute_Immediate Run_Utility,0x0
027f c5ff | | Store 0x2,-0x1
0280 00ce | | Action Pop_Auxiliary
0281 4302 |C | Exit_Subprogram From_Utility,0x2
0282 00da | | Load_Top At_Offset_2
0283 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0284 4805 |H | Short_Literal 0x5
0285 4807 |H | Short_Literal 0x7
0286 0262 | b | Execute Discrete,In_Range
0287 7000 |p | Jump_Nonzero 0x288
0288 4302 |C | Exit_Subprogram From_Utility,0x2
0289 4801 |H | Short_Literal 0x1
028a 4803 |H | Short_Literal 0x3
028b 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
028c 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
028d e5fd | | Load 0x2,-0x3
028e 00db | | Load_Top At_Offset_3
028f 1c07 | | Execute_Immediate Run_Utility,0x7
0290 e5fe | | Load 0x2,-0x2
0291 0306 | | Complete_Type Variant_Record,By_Renaming
0292 4304 |C | Exit_Subprogram From_Utility,0x4
0293 00db | | Load_Top At_Offset_3
0294 4805 |H | Short_Literal 0x5
0295 4807 |H | Short_Literal 0x7
0296 0262 | b | Execute Discrete,In_Range
0297 7002 |p | Jump_Nonzero 0x29a
0298 48ff |H | Short_Literal 0xff
0299 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
029a 4801 |H | Short_Literal 0x1
029b 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
029c 00db | | Load_Top At_Offset_3
029d e5fe | | Load 0x2,-0x2
029e 4805 |H | Short_Literal 0x5
029f 4807 |H | Short_Literal 0x7
02a0 0262 | b | Execute Discrete,In_Range
02a1 7002 |p | Jump_Nonzero 0x2a4
02a2 48ff |H | Short_Literal 0xff
02a3 7801 |x | Jump 0x2a5
02a4 4801 |H | Short_Literal 0x1
02a5 e5ff | | Load 0x2,-0x1
02a6 031b | | Declare_Type Variant_Record,Constrained
02a7 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02a8 00db | | Load_Top At_Offset_3
02a9 e5fe | | Load 0x2,-0x2
02aa e5ff | | Load 0x2,-0x1
02ab 1c06 | | Execute_Immediate Run_Utility,0x6
02ac e5ff | | Load 0x2,-0x1
02ad 02fc | | Declare_Variable Variant_Record,With_Constraint
02ae 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02af 4800 |H | Short_Literal 0x0
02b0 00db | | Load_Top At_Offset_3
02b1 1c07 | | Execute_Immediate Run_Utility,0x7
02b2 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
02b3 0869 | i | Execute_Immediate Raise,0x69
02b4 ; --------------------------------------------------------------------------------------
02b4 ; STRING TABLE
02b4 ; --------------------------------------------------------------------------------------
02b4 0028 | ( | .STRTAB 0x0028->0x02c8 ; "PAS_D_ACTION"
02b5 0032 | 2 | .STRTAB 0x0032->0x02ce ; "CONFIG"
02b6 0036 | 6 | .STRTAB 0x0036->0x02d1 ; "FIN_CONFIG"
02b7 003e | > | .STRTAB 0x003e->0x02d6 ; "RAPPORT"
02b8 0043 | C | .STRTAB 0x0043->0x02d9 ; "ACK"
02b9 0044 | D | .STRTAB 0x0044->0x02db ; "CREATION"
02ba 004a | J | .STRTAB 0x004a->0x02df ; "MODIFICATION"
02bb 0054 | T | .STRTAB 0x0054->0x02e5 ; "SUPPRESSION"
02bc 005d | ] | .STRTAB 0x005d->0x02ea ; "PAS_D_OBJET"
02bd 0066 | f | .STRTAB 0x0066->0x02f0 ; "LECTEUR"
02be 006b | k | .STRTAB 0x006b->0x02f3 ; "PLAGE"
02bf 006e | n | .STRTAB 0x006e->0x02f6 ; "ACCES"
02c0 0071 | q | .STRTAB 0x0071->0x02f8 ; "CARTE"
02c1 0074 | t | .STRTAB 0x0074->0x02fb ; "LECTEUR_ZONE"
02c2 007e | ~ | .STRTAB 0x007e->0x0301 ; "CARTE_GROUPE"
02c3 0088 | | .STRTAB 0x0088->0x0307 ; "HORAIRE"
02c4 008d | | .STRTAB 0x008d->0x030a ; "EVENEMENT"
02c5 0094 | | .STRTAB 0x0094->0x030f ; "Trame Ihm-68"
02c6 009e | | .STRTAB 0x009e->0x0315 ; "Fin Trame Ihm-68"
02c7 00ac | | .STREND 0x00ac->0x031d
02c8 5041 535f |PAS_| .STRTAB_STRINGS
031d 0000 0000 | | .XXX[0x3]
031f 0000 | |
0320 ; --------------------------------------------------------------------------------------
0320 ; Debug Table
0320 ; --------------------------------------------------------------------------------------
0320 0004 0009 | | .DEBUG4 0x0004,0x0009,0x7e2e,0x0000,0x0001,0x000f
0326 000b 0362 | b| .DBG4T 0x000b,0x0362,0x8000,0x8000
032a 0042 0380 | B | .DBG4T 0x0042,0x0380,0x8000,0x8000
032e 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x0005,0x0000
0332 008b 0000 | | .DBG4T 0x008b,0x0000,0x0005,0x0000
0336 00b3 0390 | | .DBG4T 0x00b3,0x0390,0x0001,0x0000
033a 00c3 0395 | | .DBG4T 0x00c3,0x0395,0x0001,0x0000
033e 00d3 039a | | .DBG4T 0x00d3,0x039a,0x0002,0x0000
0342 00db 039d | | .DBG4T 0x00db,0x039d,0x0002,0x0000
0346 00eb 03a2 | | .DBG4T 0x00eb,0x03a2,0x0002,0x0000
034a 00fb 03a7 | | .DBG4T 0x00fb,0x03a7,0x0002,0x0000
034e 011b 03ac | | .DBG4T 0x011b,0x03ac,0x0002,0x0000
0352 01cb 03c0 | | .DBG4T 0x01cb,0x03c0,0x0004,0x0000
0356 01db 03c4 | | .DBG4T 0x01db,0x03c4,0x0004,0x0000
035a 023b 03cd | ; | .DBG4T 0x023b,0x03cd,0x0004,0x0000
035e 026b 0000 | k | .DBG4T 0x026b,0x0000,0x0005,0x0000
0362 ; --------------------------------------------------------------------------------------
0362 ; Debug chain
0362 ; --------------------------------------------------------------------------------------
0362 000e 0000 | | .DBGLEN 0x000e,0x0000
0364 000b 000e | | .DBGLNO 0x000b,0x000e,0x0011,0x0016,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002e,0x0032
0372 0001 0002 | | .XXX[0xe]
0374 0004 0005 | |
0376 0008 0009 | |
0378 000a 000b | |
037a 000c 000d | |
037c 000e 000f | |
037e 0010 0011 | |
0380 ; --------------------------------------------------------------------------------------
0380 ; Debug chain
0380 ; --------------------------------------------------------------------------------------
0380 0007 0000 | | .DBGLEN 0x0007,0x0000
0382 0042 0044 | B D| .DBGLNO 0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e
0389 0002 0003 | | .XXX[0x7]
038b 0004 0005 | |
038d 0006 0007 | |
038f 0008 | |
0390 ; --------------------------------------------------------------------------------------
0390 ; Debug chain
0390 ; --------------------------------------------------------------------------------------
0390 0000 0003 | | .DBGLEN 0x0000,0x0003
0392 00b5 00b9 | | .DBGLNO 0x00b5,0x00b9,0x00bb
0395 ; --------------------------------------------------------------------------------------
0395 ; Debug chain
0395 ; --------------------------------------------------------------------------------------
0395 0000 0003 | | .DBGLEN 0x0000,0x0003
0397 00c5 00c9 | | .DBGLNO 0x00c5,0x00c9,0x00cb
039a ; --------------------------------------------------------------------------------------
039a ; Debug chain
039a ; --------------------------------------------------------------------------------------
039a 0000 0001 | | .DBGLEN 0x0000,0x0001
039c 00d3 | | .DBGLNO 0x00d3
039d ; --------------------------------------------------------------------------------------
039d ; Debug chain
039d ; --------------------------------------------------------------------------------------
039d 0000 0003 | | .DBGLEN 0x0000,0x0003
039f 00db 00e0 | | .DBGLNO 0x00db,0x00e0,0x00e3
03a2 ; --------------------------------------------------------------------------------------
03a2 ; Debug chain
03a2 ; --------------------------------------------------------------------------------------
03a2 0000 0003 | | .DBGLEN 0x0000,0x0003
03a4 00eb 00f0 | | .DBGLNO 0x00eb,0x00f0,0x00f4
03a7 ; --------------------------------------------------------------------------------------
03a7 ; Debug chain
03a7 ; --------------------------------------------------------------------------------------
03a7 0000 0003 | | .DBGLEN 0x0000,0x0003
03a9 00fd 0102 | | .DBGLNO 0x00fd,0x0102,0x0104
03ac ; --------------------------------------------------------------------------------------
03ac ; Debug chain
03ac ; --------------------------------------------------------------------------------------
03ac 0005 000d | | .DBGLEN 0x0005,0x000d
03ae 011b 011d | | .DBGLNO 0x011b,0x011d,0x011f,0x0120,0x0125,0x0129,0x012e,0x013d,0x014b,0x014f,0x015e,0x016c,0x017b,0x018a,0x019b,0x01b2,0x01c1,0x01c5
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug chain
03c0 ; --------------------------------------------------------------------------------------
03c0 0001 0001 | | .DBGLEN 0x0001,0x0001
03c2 01cb 01ce | | .DBGLNO 0x01cb,0x01ce
03c4 ; --------------------------------------------------------------------------------------
03c4 ; Debug chain
03c4 ; --------------------------------------------------------------------------------------
03c4 0001 0006 | | .DBGLEN 0x0001,0x0006
03c6 01db 01de | | .DBGLNO 0x01db,0x01de,0x01e1,0x01e6,0x01f7,0x020a,0x0230
03cd ; --------------------------------------------------------------------------------------
03cd ; Debug chain
03cd ; --------------------------------------------------------------------------------------
03cd 0001 0001 | | .DBGLEN 0x0001,0x0001
03cf 023b 023d | ; =| .DBGLNO 0x023b,0x023d
03d1 0000 0000 | | .BLANK 0000[0x2f]