|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_2e3cb9
└─⟦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 02a0 | | .CONST 0x02a0 ; 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 0062 | b | .CONST 0x0062 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001f | | .CONST 0x001f ; Number of locals
000b INIT_0008:
000b 48f6 |H | Short_Literal 0xf6
000c e002 | | Load 0x0,0x2
000d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000e 1c07 | | Execute_Immediate Run_Utility,0x7
000f 0129 | ) | Execute Any,Make_Visible
0010 00d8 | | Load_Top At_Offset_0
0011 00e2 | | Load_Encached Integer_Cache
0012 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
0014 4802 |H | Short_Literal 0x2
0015 032e | . | Declare_Type Record,Defined,Visible
0016 e003 | | Load 0x0,0x3
0017 e004 | | Load 0x0,0x4
0018 00da | | Load_Top At_Offset_2
0019 e005 | | Load 0x0,0x5
001a 0386 | | Declare_Variable Package,Visible
001b 00d8 | | Load_Top At_Offset_0
001c 020f | | Execute Module,Activate
001d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
001f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0021 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0023 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0025 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0027 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0029 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
002b 00e2 | | Load_Encached Integer_Cache
002c 00e2 | | Load_Encached Integer_Cache
002d 02a0 | | Declare_Subprogram Null_Subprogram
002e 4802 |H | Short_Literal 0x2
002f 032e | . | Declare_Type Record,Defined,Visible
0030 e006 | | Load 0x0,0x6
0031 e007 | | Load 0x0,0x7
0032 00da | | Load_Top At_Offset_2
0033 e005 | | Load 0x0,0x5
0034 0386 | | Declare_Variable Package,Visible
0035 00d8 | | Load_Top At_Offset_0
0036 020f | | Execute Module,Activate
0037 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0039 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
003b 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
003d 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
003f 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0041 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0043 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0045 00bf | | Action Accept_Activation
0046 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0047 00c7 | | Action Elaborate_Subprogram
0048 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0049 00c7 | | Action Elaborate_Subprogram
004a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004b 00c7 | | Action Elaborate_Subprogram
004c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004d 00c7 | | Action Elaborate_Subprogram
004e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004f 00c7 | | Action Elaborate_Subprogram
0050 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0051 00c7 | | Action Elaborate_Subprogram
0052 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0053 00c7 | | Action Elaborate_Subprogram
0054 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0055 00c7 | | Action Elaborate_Subprogram
0056 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0057 00c7 | | Action Elaborate_Subprogram
0058 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0059 00c7 | | Action Elaborate_Subprogram
005a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
005b 00c7 | | Action Elaborate_Subprogram
005c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
005d 00c7 | | Action Elaborate_Subprogram
005e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
005f 00c7 | | Action Elaborate_Subprogram
0060 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0061 00c7 | | Action Elaborate_Subprogram
0062 BODY_0008:
0062 00bc | | Action Signal_Activated
0063 00bb | | Action Signal_Completion
0064 0000 0000 | | .BLANK 0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006f | o | .CONST 0x006f ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b e008 | | Load 0x0,0x8
006c 0606 | | Execute_Immediate Set_Value_Unchecked,0x6
006d e008 | | Load 0x0,0x8
006e 0007 | | Action Break_Optional
006f BODY_0068:
006f e008 | | Load 0x0,0x8
0070 e5ff | | Load 0x2,-0x1
0071 8009 | | Call 0x0,0x9
0072 0059 | Y | Store_Top Discrete,At_Offset_1
0073 00d8 | | Load_Top At_Offset_0
0074 e008 | | Load 0x0,0x8
0075 011c | | Execute Any,Convert_Unchecked
0076 1c01 | | Execute_Immediate Run_Utility,0x1
0077 00da | | Load_Top At_Offset_2
0078 e008 | | Load 0x0,0x8
0079 011c | | Execute Any,Convert_Unchecked
007a 1c01 | | Execute_Immediate Run_Utility,0x1
007b 01df | | Execute Vector,Equal
007c 6802 |h | Jump_Zero 0x7f
007d 4801 |H | Short_Literal 0x1
007e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007f 4800 |H | Short_Literal 0x0
0080 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0081 0000 0000 | | .BLANK 0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008f | | .CONST 0x008f ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0003 | | .CONST 0x0003 ; Number of locals
008b INIT_0088:
008b e008 | | Load 0x0,0x8
008c 0607 | | Execute_Immediate Set_Value_Unchecked,0x7
008d e008 | | Load 0x0,0x8
008e 0007 | | Action Break_Optional
008f BODY_0088:
008f e008 | | Load 0x0,0x8
0090 e5ff | | Load 0x2,-0x1
0091 8009 | | Call 0x0,0x9
0092 0059 | Y | Store_Top Discrete,At_Offset_1
0093 00d8 | | Load_Top At_Offset_0
0094 e008 | | Load 0x0,0x8
0095 011c | | Execute Any,Convert_Unchecked
0096 1c01 | | Execute_Immediate Run_Utility,0x1
0097 00da | | Load_Top At_Offset_2
0098 e008 | | Load 0x0,0x8
0099 011c | | Execute Any,Convert_Unchecked
009a 1c01 | | Execute_Immediate Run_Utility,0x1
009b 01df | | Execute Vector,Equal
009c 6802 |h | Jump_Zero 0x9f
009d 4801 |H | Short_Literal 0x1
009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009f 4800 |H | Short_Literal 0x0
00a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a1 0000 0000 | | .BLANK 0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b0 | | .CONST 0x00b0 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab e00a | | Load 0x0,0xa
00ac 02ff | | Declare_Variable Variant_Record
00ad 00d8 | | Load_Top At_Offset_0
00ae 1c00 | | Execute_Immediate Run_Utility,0x0
00af 00e2 | | Load_Encached Integer_Cache
00b0 BODY_00a8:
00b0 00d9 | | Load_Top At_Offset_1
00b1 e5ff | | Load 0x2,-0x1
00b2 800b | | Call 0x0,0xb
00b3 00d1 | | Pop_Control Pop_Count_1
00b4 00d9 | | Load_Top At_Offset_1
00b5 e5fe | | Load 0x2,-0x2
00b6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b7 00e2 | | Load_Encached Integer_Cache
00b8 e5ff | | Load 0x2,-0x1
00b9 800c | | Call 0x0,0xc
00ba 0059 | Y | Store_Top Discrete,At_Offset_1
00bb 00d8 | | Load_Top At_Offset_0
00bc e5fe | | Load 0x2,-0x2
00bd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bf 0000 | | .XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00db | | Load_Top At_Offset_3
00c4 00db | | Load_Top At_Offset_3
00c5 e20f | | Load 0x1,0xf
00c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c7 a5fe | | Store_Unchecked 0x2,-0x2
00c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c9 0000 0000 | | .BLANK 0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d7 | | .CONST 0x00d7 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0003 | | .CONST 0x0003 ; Number of locals
00d3 INIT_00d0:
00d3 e20f | | Load 0x1,0xf
00d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00d5 e20f | | Load 0x1,0xf
00d6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00d7 BODY_00d0:
00d7 e20f | | Load 0x1,0xf
00d8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00d9 e5fe | | Load 0x2,-0x2
00da e20f | | Load 0x1,0xf
00db 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00dc 0039 | 9 | Store_Top Access,At_Offset_1
00dd 00cf | | Action Mark_Auxiliary
00de 7817 |x | Jump 0xf6
00df 00d9 | | Load_Top At_Offset_1
00e0 e20f | | Load 0x1,0xf
00e1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00e2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00e3 e002 | | Load 0x0,0x2
00e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e5 e5ff | | Load 0x2,-0x1
00e6 e002 | | Load 0x0,0x2
00e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e8 01de | | Execute Vector,Not_Equal
00e9 6807 |h | Jump_Zero 0xf1
00ea 00da | | Load_Top At_Offset_2
00eb 00da | | Load_Top At_Offset_2
00ec e20f | | Load 0x1,0xf
00ed 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00ee e20f | | Load 0x1,0xf
00ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f0 003b | ; | Store_Top Access,At_Offset_3
00f1 00d9 | | Load_Top At_Offset_1
00f2 e20f | | Load 0x1,0xf
00f3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f4 003a | : | Store_Top Access,At_Offset_2
00f5 00c9 | | Action Pop_Auxiliary_Loop
00f6 00d9 | | Load_Top At_Offset_1
00f7 e20f | | Load 0x1,0xf
00f8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00f9 6fe5 |o | Jump_Zero 0xdf
00fa 00ce | | Action Pop_Auxiliary
00fb 00d9 | | Load_Top At_Offset_1
00fc a5fe | | Store_Unchecked 0x2,-0x2
00fd 00d9 | | Load_Top At_Offset_1
00fe e20f | | Load 0x1,0xf
00ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0100 003a | : | Store_Top Access,At_Offset_2
0101 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0102 0000 0000 | | .BLANK 0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d | | .CONST 0x010d ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b e20f | | Load 0x1,0xf
010c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
010d BODY_0108:
010d e20f | | Load 0x1,0xf
010e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
010f e5ff | | Load 0x2,-0x1
0110 e20f | | Load 0x1,0xf
0111 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0112 0039 | 9 | Store_Top Access,At_Offset_1
0113 00cf | | Action Mark_Auxiliary
0114 7818 |x | Jump 0x12d
0115 00d9 | | Load_Top At_Offset_1
0116 e20f | | Load 0x1,0xf
0117 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0118 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0119 e002 | | Load 0x0,0x2
011a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011b e00d | | Load 0x0,0xd
011c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
011d 00d9 | | Load_Top At_Offset_1
011e e20f | | Load 0x1,0xf
011f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0120 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0121 e002 | | Load 0x0,0x2
0122 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0123 e5fe | | Load 0x2,-0x2
0124 e002 | | Load 0x0,0x2
0125 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0126 01df | | Execute Vector,Equal
0127 7009 |p | Jump_Nonzero 0x131
0128 00d9 | | Load_Top At_Offset_1
0129 e20f | | Load 0x1,0xf
012a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
012b 003a | : | Store_Top Access,At_Offset_2
012c 00c9 | | Action Pop_Auxiliary_Loop
012d 00d9 | | Load_Top At_Offset_1
012e e20f | | Load 0x1,0xf
012f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0130 6fe4 |o | Jump_Zero 0x115
0131 00ce | | Action Pop_Auxiliary
0132 00d8 | | Load_Top At_Offset_0
0133 e20f | | Load 0x1,0xf
0134 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0135 7006 |p | Jump_Nonzero 0x13c
0136 0092 0289 | | Action Push_String_Extended,0x289 ; "Je passe a vrai"
0138 e00d | | Load 0x0,0xd
0139 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
013a 4801 |H | Short_Literal 0x1
013b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
013c 0092 028a | | Action Push_String_Extended,0x28a ; "Je passe a faux"
013e e00d | | Load 0x0,0xd
013f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0140 4800 |H | Short_Literal 0x0
0141 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0142 0000 0000 | | .BLANK 0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014d | M | .CONST 0x014d ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e20f | | Load 0x1,0xf
014c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
014d BODY_0148:
014d e20f | | Load 0x1,0xf
014e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
014f e5ff | | Load 0x2,-0x1
0150 e20f | | Load 0x1,0xf
0151 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0152 0039 | 9 | Store_Top Access,At_Offset_1
0153 00cf | | Action Mark_Auxiliary
0154 7805 |x | Jump 0x15a
0155 00d9 | | Load_Top At_Offset_1
0156 e20f | | Load 0x1,0xf
0157 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0158 003a | : | Store_Top Access,At_Offset_2
0159 00c9 | | Action Pop_Auxiliary_Loop
015a 00d9 | | Load_Top At_Offset_1
015b e20f | | Load 0x1,0xf
015c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
015d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
015e e002 | | Load 0x0,0x2
015f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0160 e5fe | | Load 0x2,-0x2
0161 e002 | | Load 0x0,0x2
0162 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0163 01de | | Execute Vector,Not_Equal
0164 77f0 |w | Jump_Nonzero 0x155
0165 00ce | | Action Pop_Auxiliary
0166 00d8 | | Load_Top At_Offset_0
0167 e20f | | Load 0x1,0xf
0168 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0169 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
016a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016b 0000 0000 | | .BLANK 0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0177 | w | .CONST 0x0177 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 e008 | | Load 0x0,0x8
0174 0608 | | Execute_Immediate Set_Value_Unchecked,0x8
0175 e008 | | Load 0x0,0x8
0176 0007 | | Action Break_Optional
0177 BODY_0170:
0177 e008 | | Load 0x0,0x8
0178 e5ff | | Load 0x2,-0x1
0179 8009 | | Call 0x0,0x9
017a 0059 | Y | Store_Top Discrete,At_Offset_1
017b 00d8 | | Load_Top At_Offset_0
017c e008 | | Load 0x0,0x8
017d 011c | | Execute Any,Convert_Unchecked
017e 1c01 | | Execute_Immediate Run_Utility,0x1
017f 00da | | Load_Top At_Offset_2
0180 e008 | | Load 0x0,0x8
0181 011c | | Execute Any,Convert_Unchecked
0182 1c01 | | Execute_Immediate Run_Utility,0x1
0183 01df | | Execute Vector,Equal
0184 6802 |h | Jump_Zero 0x187
0185 4801 |H | Short_Literal 0x1
0186 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0187 4800 |H | Short_Literal 0x0
0188 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0197 | | .CONST 0x0197 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0003 | | .CONST 0x0003 ; Number of locals
0193 INIT_0190:
0193 e008 | | Load 0x0,0x8
0194 0609 | | Execute_Immediate Set_Value_Unchecked,0x9
0195 e008 | | Load 0x0,0x8
0196 0007 | | Action Break_Optional
0197 BODY_0190:
0197 e008 | | Load 0x0,0x8
0198 e5ff | | Load 0x2,-0x1
0199 8009 | | Call 0x0,0x9
019a 0059 | Y | Store_Top Discrete,At_Offset_1
019b 00d8 | | Load_Top At_Offset_0
019c e008 | | Load 0x0,0x8
019d 011c | | Execute Any,Convert_Unchecked
019e 1c01 | | Execute_Immediate Run_Utility,0x1
019f 00da | | Load_Top At_Offset_2
01a0 e008 | | Load 0x0,0x8
01a1 011c | | Execute Any,Convert_Unchecked
01a2 1c01 | | Execute_Immediate Run_Utility,0x1
01a3 01df | | Execute Vector,Equal
01a4 6802 |h | Jump_Zero 0x1a7
01a5 4801 |H | Short_Literal 0x1
01a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a7 4800 |H | Short_Literal 0x0
01a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a9 0000 0000 | | .BLANK 0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01ba | | .CONST 0x01ba ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0005 | | .CONST 0x0005 ; Number of locals
01b3 INIT_01b0:
01b3 e00a | | Load 0x0,0xa
01b4 02ff | | Declare_Variable Variant_Record
01b5 00d8 | | Load_Top At_Offset_0
01b6 1c00 | | Execute_Immediate Run_Utility,0x0
01b7 00e2 | | Load_Encached Integer_Cache
01b8 00e2 | | Load_Encached Integer_Cache
01b9 00e1 | | Load_Encached Boolean_Cache
01ba BODY_01b0:
01ba 00db | | Load_Top At_Offset_3
01bb e5fe | | Load 0x2,-0x2
01bc 800b | | Call 0x0,0xb
01bd 00d1 | | Pop_Control Pop_Count_1
01be 00db | | Load_Top At_Offset_3
01bf e20d | | Load 0x1,0xd
01c0 0161 | a | Execute Variant_Record,Check_In_Formal_Type
01c1 e5ff | | Load 0x2,-0x1
01c2 8215 | | Call 0x1,0x15
01c3 6806 |h | Jump_Zero 0x1ca
01c4 00db | | Load_Top At_Offset_3
01c5 e20d | | Load 0x1,0xd
01c6 0161 | a | Execute Variant_Record,Check_In_Formal_Type
01c7 e5ff | | Load 0x2,-0x1
01c8 8216 | | Call 0x1,0x16
01c9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01ca 00d9 | | Load_Top At_Offset_1
01cb e5fd | | Load 0x2,-0x3
01cc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01cd 00e2 | | Load_Encached Integer_Cache
01ce e5fe | | Load 0x2,-0x2
01cf 800c | | Call 0x0,0xc
01d0 005b | [ | Store_Top Discrete,At_Offset_3
01d1 00da | | Load_Top At_Offset_2
01d2 e5fd | | Load 0x2,-0x3
01d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00db | | Load_Top At_Offset_3
01dc 00db | | Load_Top At_Offset_3
01dd e218 | | Load 0x1,0x18
01de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01df a5fe | | Store_Unchecked 0x2,-0x2
01e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ef | | .CONST 0x01ef ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0003 | | .CONST 0x0003 ; Number of locals
01eb INIT_01e8:
01eb e218 | | Load 0x1,0x18
01ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ed e218 | | Load 0x1,0x18
01ee 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01ef BODY_01e8:
01ef e218 | | Load 0x1,0x18
01f0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01f1 e5fe | | Load 0x2,-0x2
01f2 e218 | | Load 0x1,0x18
01f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01f4 0039 | 9 | Store_Top Access,At_Offset_1
01f5 00cf | | Action Mark_Auxiliary
01f6 7817 |x | Jump 0x20e
01f7 00d9 | | Load_Top At_Offset_1
01f8 e218 | | Load 0x1,0x18
01f9 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01fb 00e0 | | Load_Encached Standard_Cache
01fc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01fd e5ff | | Load 0x2,-0x1
01fe 00e0 | | Load_Encached Standard_Cache
01ff 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0200 01de | | Execute Vector,Not_Equal
0201 6807 |h | Jump_Zero 0x209
0202 00da | | Load_Top At_Offset_2
0203 00da | | Load_Top At_Offset_2
0204 e218 | | Load 0x1,0x18
0205 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0206 e218 | | Load 0x1,0x18
0207 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0208 003b | ; | Store_Top Access,At_Offset_3
0209 00d9 | | Load_Top At_Offset_1
020a e218 | | Load 0x1,0x18
020b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
020c 003a | : | Store_Top Access,At_Offset_2
020d 00c9 | | Action Pop_Auxiliary_Loop
020e 00d9 | | Load_Top At_Offset_1
020f e218 | | Load 0x1,0x18
0210 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0211 6fe5 |o | Jump_Zero 0x1f7
0212 00ce | | Action Pop_Auxiliary
0213 00d9 | | Load_Top At_Offset_1
0214 a5fe | | Store_Unchecked 0x2,-0x2
0215 00d9 | | Load_Top At_Offset_1
0216 e218 | | Load 0x1,0x18
0217 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0218 003a | : | Store_Top Access,At_Offset_2
0219 4502 |E | Exit_Suprogram New_Top_Offset 0x2
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0225 | % | .CONST 0x0225 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 e218 | | Load 0x1,0x18
0224 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0225 BODY_0220:
0225 e218 | | Load 0x1,0x18
0226 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0227 e5ff | | Load 0x2,-0x1
0228 e218 | | Load 0x1,0x18
0229 181b | | Execute Package,Field_Execute,Field_Number 0x1b
022a 0039 | 9 | Store_Top Access,At_Offset_1
022b 00cf | | Action Mark_Auxiliary
022c 7810 |x | Jump 0x23d
022d 00d9 | | Load_Top At_Offset_1
022e e218 | | Load 0x1,0x18
022f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0230 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0231 00e0 | | Load_Encached Standard_Cache
0232 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0233 e5fe | | Load 0x2,-0x2
0234 00e0 | | Load_Encached Standard_Cache
0235 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0236 01df | | Execute Vector,Equal
0237 7009 |p | Jump_Nonzero 0x241
0238 00d9 | | Load_Top At_Offset_1
0239 e218 | | Load 0x1,0x18
023a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
023b 003a | : | Store_Top Access,At_Offset_2
023c 00c9 | | Action Pop_Auxiliary_Loop
023d 00d9 | | Load_Top At_Offset_1
023e e218 | | Load 0x1,0x18
023f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0240 6fec |o | Jump_Zero 0x22d
0241 00ce | | Action Pop_Auxiliary
0242 00d8 | | Load_Top At_Offset_0
0243 e218 | | Load 0x1,0x18
0244 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0245 7002 |p | Jump_Nonzero 0x248
0246 4801 |H | Short_Literal 0x1
0247 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0248 4800 |H | Short_Literal 0x0
0249 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
024a 0000 0000 | | .BLANK 0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0255 | U | .CONST 0x0255 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 e218 | | Load 0x1,0x18
0254 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0255 BODY_0250:
0255 e218 | | Load 0x1,0x18
0256 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0257 e5ff | | Load 0x2,-0x1
0258 e218 | | Load 0x1,0x18
0259 181b | | Execute Package,Field_Execute,Field_Number 0x1b
025a 0039 | 9 | Store_Top Access,At_Offset_1
025b 00cf | | Action Mark_Auxiliary
025c 7805 |x | Jump 0x262
025d 00d9 | | Load_Top At_Offset_1
025e e218 | | Load 0x1,0x18
025f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0260 003a | : | Store_Top Access,At_Offset_2
0261 00c9 | | Action Pop_Auxiliary_Loop
0262 00d9 | | Load_Top At_Offset_1
0263 e218 | | Load 0x1,0x18
0264 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0265 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0266 00e0 | | Load_Encached Standard_Cache
0267 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0268 e5fe | | Load 0x2,-0x2
0269 00e0 | | Load_Encached Standard_Cache
026a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026b 01de | | Execute Vector,Not_Equal
026c 77f0 |w | Jump_Nonzero 0x25d
026d 00ce | | Action Pop_Auxiliary
026e 00d8 | | Load_Top At_Offset_0
026f e218 | | Load 0x1,0x18
0270 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0271 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0272 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0273 0000 0000 | | .BLANK 0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 4601 |F | Jump_Case 0x2
027c 7801 |x | Jump 0x27e ; case 0x0
027d 7807 |x | Jump 0x285 ; case 0x1
027e 00da | | Load_Top At_Offset_2
027f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0280 0125 | % | Execute Any,Set_Constraint
0281 00da | | Load_Top At_Offset_2
0282 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0283 1c00 | | Execute_Immediate Run_Utility,0x0
0284 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0285 00da | | Load_Top At_Offset_2
0286 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0287 0125 | % | Execute Any,Set_Constraint
0288 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0289 ; --------------------------------------------------------------------------------------
0289 ; STRING TABLE
0289 ; --------------------------------------------------------------------------------------
0289 0006 | | .STRTAB 0x0006->0x028c ; "Je passe a vrai"
028a 0013 | | .STRTAB 0x0013->0x0293 ; "Je passe a faux"
028b 0020 | | .STREND 0x0020->0x029b
028c 4a65 2070 |Je p| .STRTAB_STRINGS
029b 0000 0000 | | .BLANK 0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug Table
02a0 ; --------------------------------------------------------------------------------------
02a0 0004 000a | | .DEBUG4 0x0004,0x000a,0x445b,0x0000,0x0001,0x0011
02a6 000b 02ea | | .DBG4T 0x000b,0x02ea,0x8000,0x0000
02aa 0046 02ff | F | .DBG4T 0x0046,0x02ff,0x8000,0x0000
02ae 006b 030f | k | .DBG4T 0x006b,0x030f,0x0002,0x0000
02b2 008b 0317 | | .DBG4T 0x008b,0x0317,0x0002,0x0000
02b6 00ab 031f | | .DBG4T 0x00ab,0x031f,0x0001,0x0000
02ba 00c3 0327 | '| .DBG4T 0x00c3,0x0327,0x0001,0x0000
02be 00d3 032a | *| .DBG4T 0x00d3,0x032a,0x0001,0x4000
02c2 010b 033c | <| .DBG4T 0x010b,0x033c,0x0002,0x4000
02c6 014b 0353 | K S| .DBG4T 0x014b,0x0353,0x0002,0x4000
02ca 0173 035e | s ^| .DBG4T 0x0173,0x035e,0x0002,0x0000
02ce 0193 0366 | f| .DBG4T 0x0193,0x0366,0x0002,0x0000
02d2 01b3 036e | n| .DBG4T 0x01b3,0x036e,0x0001,0x0000
02d6 01db 037a | z| .DBG4T 0x01db,0x037a,0x0001,0x0000
02da 01eb 037d | }| .DBG4T 0x01eb,0x037d,0x0001,0x4000
02de 0223 038f | # | .DBG4T 0x0223,0x038f,0x0002,0x4000
02e2 0253 03a0 | S | .DBG4T 0x0253,0x03a0,0x0002,0x4000
02e6 027b 0000 | { | .DBG4T 0x027b,0x0000,0x0005,0x0000
02ea ; --------------------------------------------------------------------------------------
02ea ; Debug chain
02ea ; --------------------------------------------------------------------------------------
02ea 0013 0000 | | .DBGLEN 0x0013,0x0000
02ec 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0016,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x0030,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043
02ff ; --------------------------------------------------------------------------------------
02ff ; Debug chain
02ff ; --------------------------------------------------------------------------------------
02ff 000e 0000 | | .DBGLEN 0x000e,0x0000
0301 0046 0048 | F H| .DBGLNO 0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060
030f ; --------------------------------------------------------------------------------------
030f ; Debug chain
030f ; --------------------------------------------------------------------------------------
030f 0002 0004 | | .DBGLEN 0x0002,0x0004
0311 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x006f,0x0073,0x007d,0x007f
0317 ; --------------------------------------------------------------------------------------
0317 ; Debug chain
0317 ; --------------------------------------------------------------------------------------
0317 0002 0004 | | .DBGLEN 0x0002,0x0004
0319 008b 008d | | .DBGLNO 0x008b,0x008d,0x008f,0x0093,0x009d,0x009f
031f ; --------------------------------------------------------------------------------------
031f ; Debug chain
031f ; --------------------------------------------------------------------------------------
031f 0002 0004 | | .DBGLEN 0x0002,0x0004
0321 00ab 00af | | .DBGLNO 0x00ab,0x00af,0x00b0,0x00b4,0x00b7,0x00bb
0327 ; --------------------------------------------------------------------------------------
0327 ; Debug chain
0327 ; --------------------------------------------------------------------------------------
0327 0000 0001 | | .DBGLEN 0x0000,0x0001
0329 00c3 | | .DBGLNO 0x00c3
032a ; --------------------------------------------------------------------------------------
032a ; Debug chain
032a ; --------------------------------------------------------------------------------------
032a 0002 0007 | | .DBGLEN 0x0002,0x0007
032c 00d3 00d5 | | .DBGLNO 0x00d3,0x00d5,0x00d7,0x00df,0x00ea,0x00f1,0x00f6,0x00fb,0x00fd
0335 0001 0003 | | .XXX[0x7]
0337 0004 0005 | |
0339 0002 0006 | |
033b 0007 | |
033c ; --------------------------------------------------------------------------------------
033c ; Debug chain
033c ; --------------------------------------------------------------------------------------
033c 0001 000a | | .DBGLEN 0x0001,0x000a
033e 010b 010d | | .DBGLNO 0x010b,0x010d,0x0115,0x011d,0x0128,0x012d,0x0132,0x0136,0x013a,0x013c,0x0140
0349 0001 0003 | | .XXX[0xa]
034b 0004 0005 | |
034d 0002 0006 | |
034f 0007 0008 | |
0351 0009 000a | |
0353 ; --------------------------------------------------------------------------------------
0353 ; Debug chain
0353 ; --------------------------------------------------------------------------------------
0353 0001 0004 | | .DBGLEN 0x0001,0x0004
0355 014b 014d | K M| .DBGLNO 0x014b,0x014d,0x0155,0x015a,0x0166
035a 0001 0003 | | .XXX[0x4]
035c 0002 0004 | |
035e ; --------------------------------------------------------------------------------------
035e ; Debug chain
035e ; --------------------------------------------------------------------------------------
035e 0002 0004 | | .DBGLEN 0x0002,0x0004
0360 0173 0175 | s u| .DBGLNO 0x0173,0x0175,0x0177,0x017b,0x0185,0x0187
0366 ; --------------------------------------------------------------------------------------
0366 ; Debug chain
0366 ; --------------------------------------------------------------------------------------
0366 0002 0004 | | .DBGLEN 0x0002,0x0004
0368 0193 0195 | | .DBGLNO 0x0193,0x0195,0x0197,0x019b,0x01a5,0x01a7
036e ; --------------------------------------------------------------------------------------
036e ; Debug chain
036e ; --------------------------------------------------------------------------------------
036e 0004 0006 | | .DBGLEN 0x0004,0x0006
0370 01b3 01b7 | | .DBGLNO 0x01b3,0x01b7,0x01b8,0x01b9,0x01ba,0x01be,0x01c4,0x01ca,0x01cd,0x01d1
037a ; --------------------------------------------------------------------------------------
037a ; Debug chain
037a ; --------------------------------------------------------------------------------------
037a 0000 0001 | | .DBGLEN 0x0000,0x0001
037c 01db | | .DBGLNO 0x01db
037d ; --------------------------------------------------------------------------------------
037d ; Debug chain
037d ; --------------------------------------------------------------------------------------
037d 0002 0007 | | .DBGLEN 0x0002,0x0007
037f 01eb 01ed | | .DBGLNO 0x01eb,0x01ed,0x01ef,0x01f7,0x0202,0x0209,0x020e,0x0213,0x0215
0388 0001 0003 | | .XXX[0x7]
038a 0004 0005 | |
038c 0002 0006 | |
038e 0007 | |
038f ; --------------------------------------------------------------------------------------
038f ; Debug chain
038f ; --------------------------------------------------------------------------------------
038f 0001 0007 | | .DBGLEN 0x0001,0x0007
0391 0223 0225 | # %| .DBGLNO 0x0223,0x0225,0x022d,0x0238,0x023d,0x0242,0x0246,0x0248
0399 0001 0003 | | .XXX[0x7]
039b 0004 0002 | |
039d 0005 0006 | |
039f 0007 | |
03a0 ; --------------------------------------------------------------------------------------
03a0 ; Debug chain
03a0 ; --------------------------------------------------------------------------------------
03a0 0001 0004 | | .DBGLEN 0x0001,0x0004
03a2 0253 0255 | S U| .DBGLNO 0x0253,0x0255,0x025d,0x0262,0x026e
03a7 0001 0003 | | .XXX[0x4]
03a9 0002 0004 | |
03ab 0000 0000 | | .BLANK 0000[0x55]