|
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_2de4ab
└─⟦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 0368 | h | .CONST 0x0368 ; 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 007e | ~ | .CONST 0x007e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0029 | ) | .CONST 0x0029 ; Number of locals
000b INIT_0008:
000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
000f 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0011 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0013 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0015 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0017 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0019 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
001b 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
001d 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
001f 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0021 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0023 0093 0000 | | push_full_address 0x0
0025 609a |` | Indirect_Literal Discrete,0xc0,{0x80000000, 0x00010000}
0026 0273 | s | Execute Discrete,Plus
0027 e20d | | Load 0x1,0xd
0028 6093 |` | Indirect_Literal Discrete,0xbc,{0x00000000, 0x0000ffff}
0029 0279 | y | Execute Discrete,And
002a 0273 | s | Execute Discrete,Plus
002b 0129 | ) | Execute Any,Make_Visible
002c 0093 0000 | | push_full_address 0x0
002e 6089 |` | Indirect_Literal Discrete,0xb8,{0x80000000, 0x00020000}
002f 0273 | s | Execute Discrete,Plus
0030 e20d | | Load 0x1,0xd
0031 608a |` | Indirect_Literal Discrete,0xbc,{0x00000000, 0x0000ffff}
0032 0279 | y | Execute Discrete,And
0033 0273 | s | Execute Discrete,Plus
0034 0129 | ) | Execute Any,Make_Visible
0035 0093 0000 | | push_full_address 0x0
0037 607c |`| | Indirect_Literal Discrete,0xb4,{0x80000000, 0x00030000}
0038 0273 | s | Execute Discrete,Plus
0039 e20d | | Load 0x1,0xd
003a 6081 |` | Indirect_Literal Discrete,0xbc,{0x00000000, 0x0000ffff}
003b 0279 | y | Execute Discrete,And
003c 0273 | s | Execute Discrete,Plus
003d 0129 | ) | Execute Any,Make_Visible
003e e20e | | Load 0x1,0xe
003f 00e3 | | Load_Encached Natural_Cache
0040 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
0042 4802 |H | Short_Literal 0x2
0043 032e | . | Declare_Type Record,Defined,Visible
0044 4801 |H | Short_Literal 0x1
0045 e20f | | Load 0x1,0xf
0046 00da | | Load_Top At_Offset_2
0047 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
0049 4801 |H | Short_Literal 0x1
004a 035e | ^ | Declare_Type Array,Defined,Visible
004b 4801 |H | Short_Literal 0x1
004c e210 | | Load 0x1,0x10
004d 00e3 | | Load_Encached Natural_Cache
004e 02a0 | | Declare_Subprogram Null_Subprogram
004f 4801 |H | Short_Literal 0x1
0050 035e | ^ | Declare_Type Array,Defined,Visible
0051 00e3 | | Load_Encached Natural_Cache
0052 00da | | Load_Top At_Offset_2
0053 00da | | Load_Top At_Offset_2
0054 029f 034b | K| Declare_Subprogram INIT_0348,For_Call
0056 4803 |H | Short_Literal 0x3
0057 032e | . | Declare_Type Record,Defined,Visible
0058 00e3 | | Load_Encached Natural_Cache
0059 00e1 | | Load_Encached Boolean_Cache
005a 00e3 | | Load_Encached Natural_Cache
005b 00e3 | | Load_Encached Natural_Cache
005c 02a0 | | Declare_Subprogram Null_Subprogram
005d 4804 |H | Short_Literal 0x4
005e 032e | . | Declare_Type Record,Defined,Visible
005f 00bf | | Action Accept_Activation
0060 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0061 00c7 | | Action Elaborate_Subprogram
0062 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call
0064 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
0066 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0068 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0069 00c7 | | Action Elaborate_Subprogram
006a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
006b 00c7 | | Action Elaborate_Subprogram
006c 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006d 00c7 | | Action Elaborate_Subprogram
006e 1d19 | | Execute_Immediate Reference_Lex_1,0x19
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0073 00c7 | | Action Elaborate_Subprogram
0074 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0075 00c7 | | Action Elaborate_Subprogram
0076 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0077 00c7 | | Action Elaborate_Subprogram
0078 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0079 00c7 | | Action Elaborate_Subprogram
007a 1d17 | | Execute_Immediate Reference_Lex_1,0x17
007b 00c7 | | Action Elaborate_Subprogram
007c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
007d 00c7 | | Action Elaborate_Subprogram
007e BODY_0008:
007e 00bc | | Action Signal_Activated
007f 00bb | | Action Signal_Completion
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 00cf | | Action Mark_Auxiliary
0084 00db | | Load_Top At_Offset_3
0085 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0086 01d9 | | Execute Vector,Reverse_Bounds
0087 0263 | c | Execute Discrete,Above_Bound
0088 7007 |p | Jump_Nonzero 0x90
0089 4800 |H | Short_Literal 0x0
008a 00d9 | | Load_Top At_Offset_1
008b e5ff | | Load 0x2,-0x1
008c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
008d 01d6 | | Execute Vector,Field_Write
008e 00c8 | | Action Pop_Auxiliary_Range
008f 3ff9 |? | Loop_Increasing 0x89
0090 00ce | | Action Pop_Auxiliary
0091 4801 |H | Short_Literal 0x1
0092 00db | | Load_Top At_Offset_3
0093 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0094 00cf | | Action Mark_Auxiliary
0095 e223 | # | Load 0x1,0x23
0096 01dc | | Execute Vector,Last
0097 0aff | | Execute_Immediate Plus,-0x1
0098 00d8 | | Load_Top At_Offset_0
0099 00e2 | | Load_Encached Integer_Cache
009a 0260 | ` | Execute Discrete,In_Type
009b 7001 |p | Jump_Nonzero 0x9d
009c 0801 | | Execute_Immediate Raise,0x1
009d 4801 |H | Short_Literal 0x1
009e 0263 | c | Execute Discrete,Above_Bound
009f 7009 |p | Jump_Nonzero 0xa9
00a0 00d8 | | Load_Top At_Offset_0
00a1 0a01 | | Execute_Immediate Plus,0x1
00a2 00d9 | | Load_Top At_Offset_1
00a3 e5ff | | Load 0x2,-0x1
00a4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00a5 01d5 | | Execute Vector,Field_Reference
00a6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a7 00c8 | | Action Pop_Auxiliary_Range
00a8 3ff7 |? | Loop_Increasing 0xa0
00a9 00ce | | Action Pop_Auxiliary
00aa 4800 |H | Short_Literal 0x0
00ab 00db | | Load_Top At_Offset_3
00ac 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00ad 01dc | | Execute Vector,Last
00ae e5ff | | Load 0x2,-0x1
00af 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00b0 01d5 | | Execute Vector,Field_Reference
00b1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b3 0000 | | .XXX[0x1]
00b4 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
00b8 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00bc 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00c0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cd | | .CONST 0x00cd ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0003 | | .CONST 0x0003 ; Number of locals
00cb INIT_00c8:
00cb 00e3 | | Load_Encached Natural_Cache
00cc 00e3 | | Load_Encached Natural_Cache
00cd BODY_00c8:
00cd 00d9 | | Load_Top At_Offset_1
00ce e5fe | | Load 0x2,-0x2
00cf 8228 | ( | Call 0x1,0x28
00d0 00d1 | | Pop_Control Pop_Count_1
00d1 005a | Z | Store_Top Discrete,At_Offset_2
00d2 e5ff | | Load 0x2,-0x1
00d3 00da | | Load_Top At_Offset_2
00d4 e5fe | | Load 0x2,-0x2
00d5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00d6 01d5 | | Execute Vector,Field_Reference
00d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d8 e5ff | | Load 0x2,-0x1
00d9 8211 | | Call 0x1,0x11
00da 8227 | ' | Call 0x1,0x27
00db 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00dc 00d8 | | Load_Top At_Offset_0
00dd e5fe | | Load 0x2,-0x2
00de 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00df 01d7 | | Execute Vector,Field_Read
00e0 00da | | Load_Top At_Offset_2
00e1 e5fe | | Load 0x2,-0x2
00e2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00e3 01d5 | | Execute Vector,Field_Reference
00e4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e5 00d9 | | Load_Top At_Offset_1
00e6 00d9 | | Load_Top At_Offset_1
00e7 e5fe | | Load 0x2,-0x2
00e8 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00e9 01d6 | | Execute Vector,Field_Write
00ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00eb 0000 0000 | | .BLANK 0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f6 | | .CONST 0x00f6 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0004 | | .CONST 0x0004 ; Number of locals
00f3 INIT_00f0:
00f3 00e3 | | Load_Encached Natural_Cache
00f4 00e3 | | Load_Encached Natural_Cache
00f5 00e3 | | Load_Encached Natural_Cache
00f6 BODY_00f0:
00f6 e5ff | | Load 0x2,-0x1
00f7 8211 | | Call 0x1,0x11
00f8 8227 | ' | Call 0x1,0x27
00f9 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
00fa 00da | | Load_Top At_Offset_2
00fb e5fe | | Load 0x2,-0x2
00fc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00fd 01d7 | | Execute Vector,Field_Read
00fe 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00ff 00d9 | | Load_Top At_Offset_1
0100 7002 |p | Jump_Nonzero 0x103
0101 e220 | | Load 0x1,0x20
0102 0257 | W | Execute Discrete,Raise
0103 00d9 | | Load_Top At_Offset_1
0104 e5fe | | Load 0x2,-0x2
0105 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0106 01d5 | | Execute Vector,Field_Reference
0107 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0108 e5ff | | Load 0x2,-0x1
0109 012f | / | Execute Any,Equal
010a 680e |h | Jump_Zero 0x119
010b 00d9 | | Load_Top At_Offset_1
010c e5fe | | Load 0x2,-0x2
010d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
010e 01d5 | | Execute Vector,Field_Reference
010f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0110 00db | | Load_Top At_Offset_3
0111 e5fe | | Load 0x2,-0x2
0112 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0113 01d6 | | Execute Vector,Field_Write
0114 e5fe | | Load 0x2,-0x2
0115 00da | | Load_Top At_Offset_2
0116 8229 | ) | Call 0x1,0x29
0117 00d1 | | Pop_Control Pop_Count_1
0118 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0119 00d9 | | Load_Top At_Offset_1
011a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
011b 00d9 | | Load_Top At_Offset_1
011c e5fe | | Load 0x2,-0x2
011d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
011e 01d5 | | Execute Vector,Field_Reference
011f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0120 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0121 00cf | | Action Mark_Auxiliary
0122 7820 |x | Jump 0x143
0123 00da | | Load_Top At_Offset_2
0124 e5fe | | Load 0x2,-0x2
0125 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0126 01d5 | | Execute Vector,Field_Reference
0127 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0128 e5ff | | Load 0x2,-0x1
0129 012f | / | Execute Any,Equal
012a 680f |h | Jump_Zero 0x13a
012b 00da | | Load_Top At_Offset_2
012c e5fe | | Load 0x2,-0x2
012d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
012e 01d5 | | Execute Vector,Field_Reference
012f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0130 00da | | Load_Top At_Offset_2
0131 e5fe | | Load 0x2,-0x2
0132 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0133 01d5 | | Execute Vector,Field_Reference
0134 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0135 e5fe | | Load 0x2,-0x2
0136 00db | | Load_Top At_Offset_3
0137 8229 | ) | Call 0x1,0x29
0138 00d1 | | Pop_Control Pop_Count_1
0139 780b |x | Jump 0x145
013a 00da | | Load_Top At_Offset_2
013b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
013c 00da | | Load_Top At_Offset_2
013d e5fe | | Load 0x2,-0x2
013e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
013f 01d5 | | Execute Vector,Field_Reference
0140 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0141 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0142 00c9 | | Action Pop_Auxiliary_Loop
0143 00da | | Load_Top At_Offset_2
0144 77de |w | Jump_Nonzero 0x123
0145 00ce | | Action Pop_Auxiliary
0146 00d9 | | Load_Top At_Offset_1
0147 7002 |p | Jump_Nonzero 0x14a
0148 e220 | | Load 0x1,0x20
0149 0257 | W | Execute Discrete,Raise
014a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014b 0000 0000 | | .BLANK 0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 e5fd | | Load 0x2,-0x3
0154 00db | | Load_Top At_Offset_3
0155 e20e | | Load 0x1,0xe
0156 0119 | | Execute Any,Check_In_Formal_Type
0157 8215 | | Call 0x1,0x15
0158 00d1 | | Pop_Control Pop_Count_1
0159 e5fd | | Load 0x2,-0x3
015a e5fe | | Load 0x2,-0x2
015b e20e | | Load 0x1,0xe
015c 0119 | | Execute Any,Check_In_Formal_Type
015d 8214 | | Call 0x1,0x14
015e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015f 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
0164 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0165 0f00 | | Execute_Immediate Equal,0x0
0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0170 | p | .CONST 0x0170 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0003 | | .CONST 0x0003 ; Number of locals
016b INIT_0168:
016b 00e3 | | Load_Encached Natural_Cache
016c e5fe | | Load 0x2,-0x2
016d 8211 | | Call 0x1,0x11
016e 00e3 | | Load_Encached Natural_Cache
016f 03f1 | | Declare_Variable Discrete,With_Value
0170 BODY_0168:
0170 00d8 | | Load_Top At_Offset_0
0171 8227 | ' | Call 0x1,0x27
0172 e5ff | | Load 0x2,-0x1
0173 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0174 01d7 | | Execute Vector,Field_Read
0175 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0176 00cf | | Action Mark_Auxiliary
0177 781a |x | Jump 0x192
0178 00d9 | | Load_Top At_Offset_1
0179 00db | | Load_Top At_Offset_3
017a e5ff | | Load 0x2,-0x1
017b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
017c 01d5 | | Execute Vector,Field_Reference
017d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
017e 8211 | | Call 0x1,0x11
017f 027f | | Execute Discrete,Equal
0180 680a |h | Jump_Zero 0x18b
0181 00da | | Load_Top At_Offset_2
0182 e5ff | | Load 0x2,-0x1
0183 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0184 01d5 | | Execute Vector,Field_Reference
0185 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0186 e5fe | | Load 0x2,-0x2
0187 012f | / | Execute Any,Equal
0188 6802 |h | Jump_Zero 0x18b
0189 4801 |H | Short_Literal 0x1
018a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
018b 00da | | Load_Top At_Offset_2
018c e5ff | | Load 0x2,-0x1
018d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
018e 01d5 | | Execute Vector,Field_Reference
018f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0190 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0191 00c9 | | Action Pop_Auxiliary_Loop
0192 00da | | Load_Top At_Offset_2
0193 77e4 |w | Jump_Nonzero 0x178
0194 00ce | | Action Pop_Auxiliary
0195 4800 |H | Short_Literal 0x0
0196 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019c | | .CONST 0x019c ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b 00e3 | | Load_Encached Natural_Cache
019c BODY_0198:
019c 00db | | Load_Top At_Offset_3
019d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
019e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
019f 0092 0352 | R| Action Push_String_Extended,0x352 ; "postes libres : ->"
01a1 e002 | | Load 0x0,0x2
01a2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01a3 00cf | | Action Mark_Auxiliary
01a4 780f |x | Jump 0x1b4
01a5 00d9 | | Load_Top At_Offset_1
01a6 00e0 | | Load_Encached Standard_Cache
01a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01a8 0092 0353 | S| Action Push_String_Extended,0x353 ; "->"
01aa 01cc | | Execute Vector,Catenate
01ab e002 | | Load 0x0,0x2
01ac 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01ad 00d9 | | Load_Top At_Offset_1
01ae e5ff | | Load 0x2,-0x1
01af 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01b0 01d5 | | Execute Vector,Field_Reference
01b1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01b3 00c9 | | Action Pop_Auxiliary_Loop
01b4 00d9 | | Load_Top At_Offset_1
01b5 77ef |w | Jump_Nonzero 0x1a5
01b6 00ce | | Action Pop_Auxiliary
01b7 4801 |H | Short_Literal 0x1
01b8 e002 | | Load 0x0,0x2
01b9 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01ba 00cf | | Action Mark_Auxiliary
01bb e224 | $ | Load 0x1,0x24
01bc 01d9 | | Execute Vector,Reverse_Bounds
01bd 0263 | c | Execute Discrete,Above_Bound
01be 702c |p, | Jump_Nonzero 0x1eb
01bf 0092 0354 | T| Action Push_String_Extended,0x354 ; "hash("
01c1 00d9 | | Load_Top At_Offset_1
01c2 00e0 | | Load_Encached Standard_Cache
01c3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01c4 01cc | | Execute Vector,Catenate
01c5 0092 0355 | U| Action Push_String_Extended,0x355 ; ") ->"
01c7 01cc | | Execute Vector,Catenate
01c8 e002 | | Load 0x0,0x2
01c9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01ca 00d8 | | Load_Top At_Offset_0
01cb e5ff | | Load 0x2,-0x1
01cc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01cd 01d7 | | Execute Vector,Field_Read
01ce a402 | | Store_Unchecked 0x2,0x2
01cf 00cf | | Action Mark_Auxiliary
01d0 7812 |x | Jump 0x1e3
01d1 e402 | | Load 0x2,0x2
01d2 e5ff | | Load 0x2,-0x1
01d3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01d4 01d5 | | Execute Vector,Field_Reference
01d5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d6 8212 | | Call 0x1,0x12
01d7 0092 0353 | S| Action Push_String_Extended,0x353 ; "->"
01d9 01cc | | Execute Vector,Catenate
01da e002 | | Load 0x0,0x2
01db 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01dc e402 | | Load 0x2,0x2
01dd e5ff | | Load 0x2,-0x1
01de 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01df 01d5 | | Execute Vector,Field_Reference
01e0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01e1 a402 | | Store_Unchecked 0x2,0x2
01e2 00c9 | | Action Pop_Auxiliary_Loop
01e3 e402 | | Load 0x2,0x2
01e4 77ec |w | Jump_Nonzero 0x1d1
01e5 00ce | | Action Pop_Auxiliary
01e6 4801 |H | Short_Literal 0x1
01e7 e002 | | Load 0x0,0x2
01e8 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01e9 00c8 | | Action Pop_Auxiliary_Range
01ea 3fd4 |? | Loop_Increasing 0x1bf
01eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ec 0000 0000 | | .BLANK 0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5 | | .CONST 0x01f5 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 e226 | & | Load 0x1,0x26
01f4 0322 | " | Declare_Variable Record
01f5 BODY_01f0:
01f5 4800 |H | Short_Literal 0x0
01f6 00d9 | | Load_Top At_Offset_1
01f7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01f8 4801 |H | Short_Literal 0x1
01f9 00d9 | | Load_Top At_Offset_1
01fa 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01fb 4800 |H | Short_Literal 0x0
01fc 00d9 | | Load_Top At_Offset_1
01fd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01fe 00cf | | Action Mark_Auxiliary
01ff 780d |x | Jump 0x20d
0200 00d9 | | Load_Top At_Offset_1
0201 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0202 e5ff | | Load 0x2,-0x1
0203 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0204 01d7 | | Execute Vector,Field_Read
0205 6801 |h | Jump_Zero 0x207
0206 780b |x | Jump 0x212
0207 00d9 | | Load_Top At_Offset_1
0208 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0209 0a01 | | Execute_Immediate Plus,0x1
020a 00da | | Load_Top At_Offset_2
020b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
020c 00c9 | | Action Pop_Auxiliary_Loop
020d 00d9 | | Load_Top At_Offset_1
020e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
020f e210 | | Load 0x1,0x10
0210 027e | ~ | Execute Discrete,Not_Equal
0211 77ee |w | Jump_Nonzero 0x200
0212 00ce | | Action Pop_Auxiliary
0213 00d8 | | Load_Top At_Offset_0
0214 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0215 e5ff | | Load 0x2,-0x1
0216 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0217 01d7 | | Execute Vector,Field_Read
0218 00d9 | | Load_Top At_Offset_1
0219 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
021a 00d8 | | Load_Top At_Offset_0
021b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021c 0000 0000 | | .BLANK 0000[0x4]
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 e226 | & | Load 0x1,0x26
0224 0322 | " | Declare_Variable Record
0225 BODY_0220:
0225 4801 |H | Short_Literal 0x1
0226 00d9 | | Load_Top At_Offset_1
0227 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0228 e5fe | | Load 0x2,-0x2
0229 00d9 | | Load_Top At_Offset_1
022a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
022b e5fe | | Load 0x2,-0x2
022c 8227 | ' | Call 0x1,0x27
022d e5ff | | Load 0x2,-0x1
022e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
022f 01d7 | | Execute Vector,Field_Read
0230 00d9 | | Load_Top At_Offset_1
0231 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0232 00cf | | Action Mark_Auxiliary
0233 7815 |x | Jump 0x249
0234 00d9 | | Load_Top At_Offset_1
0235 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0236 e5ff | | Load 0x2,-0x1
0237 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0238 01d5 | | Execute Vector,Field_Reference
0239 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023a 8211 | | Call 0x1,0x11
023b 00da | | Load_Top At_Offset_2
023c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
023d 027f | | Execute Discrete,Equal
023e 6801 |h | Jump_Zero 0x240
023f 780c |x | Jump 0x24c
0240 00d9 | | Load_Top At_Offset_1
0241 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0242 e5ff | | Load 0x2,-0x1
0243 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0244 01d5 | | Execute Vector,Field_Reference
0245 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0246 00da | | Load_Top At_Offset_2
0247 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0248 00c9 | | Action Pop_Auxiliary_Loop
0249 00d9 | | Load_Top At_Offset_1
024a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
024b 77e8 |w | Jump_Nonzero 0x234
024c 00ce | | Action Pop_Auxiliary
024d 00d8 | | Load_Top At_Offset_0
024e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
024f 0000 | | .XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00db | | Load_Top At_Offset_3
0254 821e | | Call 0x1,0x1e
0255 6802 |h | Jump_Zero 0x258
0256 e221 | ! | Load 0x1,0x21
0257 0257 | W | Execute Discrete,Raise
0258 00db | | Load_Top At_Offset_3
0259 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025a 6824 |h$ | Jump_Zero 0x27f
025b 00db | | Load_Top At_Offset_3
025c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
025d 00db | | Load_Top At_Offset_3
025e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
025f 01d5 | | Execute Vector,Field_Reference
0260 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0261 e5fe | | Load 0x2,-0x2
0262 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0263 00cf | | Action Mark_Auxiliary
0264 7815 |x | Jump 0x27a
0265 e5fe | | Load 0x2,-0x2
0266 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0267 e5ff | | Load 0x2,-0x1
0268 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0269 01d5 | | Execute Vector,Field_Reference
026a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
026b 8211 | | Call 0x1,0x11
026c e5fe | | Load 0x2,-0x2
026d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
026e 027f | | Execute Discrete,Equal
026f 6801 |h | Jump_Zero 0x271
0270 780c |x | Jump 0x27d
0271 e5fe | | Load 0x2,-0x2
0272 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0273 e5ff | | Load 0x2,-0x1
0274 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0275 01d5 | | Execute Vector,Field_Reference
0276 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0277 e5fe | | Load 0x2,-0x2
0278 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0279 00c9 | | Action Pop_Auxiliary_Loop
027a e5fe | | Load 0x2,-0x2
027b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
027c 77e8 |w | Jump_Nonzero 0x265
027d 00ce | | Action Pop_Auxiliary
027e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
027f 00db | | Load_Top At_Offset_3
0280 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0281 00db | | Load_Top At_Offset_3
0282 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0283 01d5 | | Execute Vector,Field_Reference
0284 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0285 e5fe | | Load 0x2,-0x2
0286 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0287 00db | | Load_Top At_Offset_3
0288 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0289 7026 |p& | Jump_Nonzero 0x2b0
028a 00db | | Load_Top At_Offset_3
028b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
028c e210 | | Load 0x1,0x10
028d 027e | ~ | Execute Discrete,Not_Equal
028e 6821 |h! | Jump_Zero 0x2b0
028f 00db | | Load_Top At_Offset_3
0290 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0291 0a01 | | Execute_Immediate Plus,0x1
0292 e5fe | | Load 0x2,-0x2
0293 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0294 00cf | | Action Mark_Auxiliary
0295 780d |x | Jump 0x2a3
0296 e5fe | | Load 0x2,-0x2
0297 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0298 e5ff | | Load 0x2,-0x1
0299 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
029a 01d7 | | Execute Vector,Field_Read
029b 6801 |h | Jump_Zero 0x29d
029c 780b |x | Jump 0x2a8
029d e5fe | | Load 0x2,-0x2
029e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
029f 0a01 | | Execute_Immediate Plus,0x1
02a0 e5fe | | Load 0x2,-0x2
02a1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02a2 00c9 | | Action Pop_Auxiliary_Loop
02a3 e5fe | | Load 0x2,-0x2
02a4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02a5 e210 | | Load 0x1,0x10
02a6 027e | ~ | Execute Discrete,Not_Equal
02a7 77ee |w | Jump_Nonzero 0x296
02a8 00ce | | Action Pop_Auxiliary
02a9 00db | | Load_Top At_Offset_3
02aa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02ab 00db | | Load_Top At_Offset_3
02ac 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02ad 01d7 | | Execute Vector,Field_Read
02ae e5fe | | Load 0x2,-0x2
02af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02b1 0000 0000 | | .BLANK 0000[0x7]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 00da | | Load_Top At_Offset_2
02bc 821e | | Call 0x1,0x1e
02bd 6802 |h | Jump_Zero 0x2c0
02be e221 | ! | Load 0x1,0x21
02bf 0257 | W | Execute Discrete,Raise
02c0 00da | | Load_Top At_Offset_2
02c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c2 e5fe | | Load 0x2,-0x2
02c3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02c4 01d5 | | Execute Vector,Field_Reference
02c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c6 00d8 | | Load_Top At_Offset_0
02c7 0120 | | Execute Any,Is_Value
02c8 7002 |p | Jump_Nonzero 0x2cb
02c9 00d8 | | Load_Top At_Offset_0
02ca 011e | | Execute Any,Convert
02cb e20e | | Load 0x1,0xe
02cc 0119 | | Execute Any,Check_In_Formal_Type
02cd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02ce 0000 0000 | | .XXX[0x2]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 00da | | Load_Top At_Offset_2
02d4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d5 6804 |h | Jump_Zero 0x2da
02d6 00da | | Load_Top At_Offset_2
02d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d8 0f00 | | Execute_Immediate Equal,0x0
02d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02da 00da | | Load_Top At_Offset_2
02db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02dc 0f00 | | Execute_Immediate Equal,0x0
02dd 00db | | Load_Top At_Offset_3
02de 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02df e210 | | Load 0x1,0x10
02e0 027b | { | Execute Discrete,Greater_Equal
02e1 0279 | y | Execute Discrete,And
02e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e3 0000 0000 | | .BLANK 0000[0x5]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 00d1 | | Pop_Control Pop_Count_1
02ec 00da | | Load_Top At_Offset_2
02ed 01dc | | Execute Vector,Last
02ee 00db | | Load_Top At_Offset_3
02ef 01dd | | Execute Vector,First
02f0 0263 | c | Execute Discrete,Above_Bound
02f1 7006 |p | Jump_Nonzero 0x2f8
02f2 00d8 | | Load_Top At_Offset_0
02f3 e5ff | | Load 0x2,-0x1
02f4 01d5 | | Execute Vector,Field_Reference
02f5 1c00 | | Execute_Immediate Run_Utility,0x0
02f6 0a01 | | Execute_Immediate Plus,0x1
02f7 7ff8 | | Jump 0x2f0
02f8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02f9 0000 0000 | | .BLANK 0000[0x7]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 00da | | Load_Top At_Offset_2
0304 e210 | | Load 0x1,0x10
0305 026e | n | Execute Discrete,Modulo
0306 0a01 | | Execute_Immediate Plus,0x1
0307 00d8 | | Load_Top At_Offset_0
0308 00e3 | | Load_Encached Natural_Cache
0309 0260 | ` | Execute Discrete,In_Type
030a 7001 |p | Jump_Nonzero 0x30c
030b 0801 | | Execute_Immediate Raise,0x1
030c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0315 7002 |p | Jump_Nonzero 0x318
0316 e21f | | Load 0x1,0x1f
0317 0257 | W | Execute Discrete,Raise
0318 00da | | Load_Top At_Offset_2
0319 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
031a a5fe | | Store_Unchecked 0x2,-0x2
031b 00db | | Load_Top At_Offset_3
031c 00db | | Load_Top At_Offset_3
031d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
031e 01d5 | | Execute Vector,Field_Reference
031f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0320 00db | | Load_Top At_Offset_3
0321 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0322 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0323 0000 0000 | | .BLANK 0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00db | | Load_Top At_Offset_3
032c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
032d 00db | | Load_Top At_Offset_3
032e e5fe | | Load 0x2,-0x2
032f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0330 01d5 | | Execute Vector,Field_Reference
0331 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0332 00da | | Load_Top At_Offset_2
0333 e5fe | | Load 0x2,-0x2
0334 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0335 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0336 0000 0000 | | .XXX[0x2]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 4601 |F | Jump_Case 0x2
033c 7801 |x | Jump 0x33e ; case 0x0
033d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
033e 00da | | Load_Top At_Offset_2
033f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0340 0125 | % | Execute Any,Set_Constraint
0341 00da | | Load_Top At_Offset_2
0342 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0343 1c00 | | Execute_Immediate Run_Utility,0x0
0344 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0345 0000 0000 | | .XXX[0x3]
0347 0000 | |
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 4601 |F | Jump_Case 0x2
034c 7801 |x | Jump 0x34e ; case 0x0
034d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
034e 00da | | Load_Top At_Offset_2
034f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0350 1c00 | | Execute_Immediate Run_Utility,0x0
0351 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0352 ; --------------------------------------------------------------------------------------
0352 ; STRING TABLE
0352 ; --------------------------------------------------------------------------------------
0352 000a | | .STRTAB 0x000a->0x0357 ; "postes libres : ->"
0353 001a | | .STRTAB 0x001a->0x0360 ; "->"
0354 001a | | .STRTAB 0x001a->0x0361 ; "hash("
0355 001d | | .STRTAB 0x001d->0x0363 ; ") ->"
0356 001f | | .STREND 0x001f->0x0365
0357 706f 7374 |post| .STRTAB_STRINGS
0366 0000 0000 | | .XXX[0x2]
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug Table
0368 ; --------------------------------------------------------------------------------------
0368 0004 0009 | | .DEBUG4 0x0004,0x0009,0x831c,0x0000,0x0001,0x0014
036e 000b 03be | | .DBG4T 0x000b,0x03be,0xc000,0x8000
0372 0060 03e8 | ` | .DBG4T 0x0060,0x03e8,0xc000,0x8000
0376 0083 0408 | | .DBG4T 0x0083,0x0408,0x1001,0x0000
037a 00cb 0410 | | .DBG4T 0x00cb,0x0410,0x1001,0x0000
037e 00f3 0419 | | .DBG4T 0x00f3,0x0419,0x1001,0x4000
0382 0153 0442 | S B| .DBG4T 0x0153,0x0442,0x1001,0x0000
0386 0163 0446 | c F| .DBG4T 0x0163,0x0446,0x1002,0x0000
038a 016b 0449 | k I| .DBG4T 0x016b,0x0449,0x1002,0x4000
038e 019b 045b | [| .DBG4T 0x019b,0x045b,0x1001,0x4000
0392 01f3 0478 | x| .DBG4T 0x01f3,0x0478,0x1002,0x4000
0396 0223 048d | # | .DBG4T 0x0223,0x048d,0x1002,0x4000
039a 0253 04a0 | S | .DBG4T 0x0253,0x04a0,0x1001,0x4000
039e 02bb 04c4 | | .DBG4T 0x02bb,0x04c4,0x1002,0x0000
03a2 02d3 04c9 | | .DBG4T 0x02d3,0x04c9,0x1002,0x0000
03a6 02eb 0000 | | .DBG4T 0x02eb,0x0000,0x1005,0x0000
03aa 0303 04ce | | .DBG4T 0x0303,0x04ce,0x1002,0x0000
03ae 0313 04d1 | | .DBG4T 0x0313,0x04d1,0x1001,0x0000
03b2 032b 04d7 | + | .DBG4T 0x032b,0x04d7,0x1001,0x0000
03b6 033b 0000 | ; | .DBG4T 0x033b,0x0000,0x1005,0x0000
03ba 034b 0000 | K | .DBG4T 0x034b,0x0000,0x1005,0x0000
03be ; --------------------------------------------------------------------------------------
03be ; Debug chain
03be ; --------------------------------------------------------------------------------------
03be 0014 0000 | | .DBGLEN 0x0014,0x0000
03c0 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x002c,0x0035,0x003e,0x0044,0x004b,0x0051,0x0058
03d4 0003 0004 | | .XXX[0x14]
03d6 0005 0006 | |
03d8 0007 0008 | |
03da 0009 000a | |
03dc 000b 000c | |
03de 000d 000e | |
03e0 000f 0010 | |
03e2 0011 0012 | |
03e4 0013 0014 | |
03e6 0015 0016 | |
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug chain
03e8 ; --------------------------------------------------------------------------------------
03e8 000f 0000 | | .DBGLEN 0x000f,0x0000
03ea 0060 0062 | ` b| .DBGLNO 0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c
03f9 0002 0003 | | .XXX[0xf]
03fb 0004 0005 | |
03fd 0006 0007 | |
03ff 0008 0009 | |
0401 000a 000b | |
0403 000c 000d | |
0405 000e 000f | |
0407 0010 | |
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug chain
0408 ; --------------------------------------------------------------------------------------
0408 0000 0006 | | .DBGLEN 0x0000,0x0006
040a 0084 0089 | | .DBGLNO 0x0084,0x0089,0x0091,0x0095,0x00a0,0x00aa
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug chain
0410 ; --------------------------------------------------------------------------------------
0410 0002 0005 | | .DBGLEN 0x0002,0x0005
0412 00cb 00cc | | .DBGLNO 0x00cb,0x00cc,0x00cd,0x00d2,0x00d8,0x00dc,0x00e5
0419 ; --------------------------------------------------------------------------------------
0419 ; Debug chain
0419 ; --------------------------------------------------------------------------------------
0419 0003 0012 | | .DBGLEN 0x0003,0x0012
041b 00f3 00f4 | | .DBGLNO 0x00f3,0x00f4,0x00f5,0x00f6,0x00fa,0x00ff,0x0101,0x0103,0x010b,0x0114,0x0119,0x011b,0x0123,0x012b,0x0135,0x0139,0x013a,0x013c,0x0143,0x0146,0x0148
0430 0001 0002 | | .XXX[0x12]
0432 0003 0004 | |
0434 0005 0006 | |
0436 0007 0008 | |
0438 0009 000b | |
043a 000c 000d | |
043c 000e 000f | |
043e 0010 000a | |
0440 0011 0012 | |
0442 ; --------------------------------------------------------------------------------------
0442 ; Debug chain
0442 ; --------------------------------------------------------------------------------------
0442 0000 0002 | | .DBGLEN 0x0000,0x0002
0444 0153 0159 | S Y| .DBGLNO 0x0153,0x0159
0446 ; --------------------------------------------------------------------------------------
0446 ; Debug chain
0446 ; --------------------------------------------------------------------------------------
0446 0000 0001 | | .DBGLEN 0x0000,0x0001
0448 0163 | c | .DBGLNO 0x0163
0449 ; --------------------------------------------------------------------------------------
0449 ; Debug chain
0449 ; --------------------------------------------------------------------------------------
0449 0002 0007 | | .DBGLEN 0x0002,0x0007
044b 016b 016c | k l| .DBGLNO 0x016b,0x016c,0x0170,0x0178,0x0181,0x0189,0x018b,0x0192,0x0195
0454 0001 0003 | | .XXX[0x7]
0456 0004 0005 | |
0458 0006 0002 | |
045a 0007 | |
045b ; --------------------------------------------------------------------------------------
045b ; Debug chain
045b ; --------------------------------------------------------------------------------------
045b 0001 000d | | .DBGLEN 0x0001,0x000d
045d 019b 019c | | .DBGLNO 0x019b,0x019c,0x019f,0x01a5,0x01ad,0x01b4,0x01b7,0x01bb,0x01bf,0x01ca,0x01d1,0x01dc,0x01e3,0x01e6
046b 0001 0002 | | .XXX[0xd]
046d 0004 0005 | |
046f 0003 0006 | |
0471 0007 0008 | |
0473 0009 000b | |
0475 000c 000a | |
0477 000d | |
0478 ; --------------------------------------------------------------------------------------
0478 ; Debug chain
0478 ; --------------------------------------------------------------------------------------
0478 0001 0009 | | .DBGLEN 0x0001,0x0009
047a 01f3 01f5 | | .DBGLNO 0x01f3,0x01f5,0x01f8,0x01fb,0x0200,0x0206,0x0207,0x020d,0x0213,0x021a
0484 0001 0002 | | .XXX[0x9]
0486 0003 0005 | |
0488 0006 0007 | |
048a 0004 0008 | |
048c 0009 | |
048d ; --------------------------------------------------------------------------------------
048d ; Debug chain
048d ; --------------------------------------------------------------------------------------
048d 0001 0008 | | .DBGLEN 0x0001,0x0008
048f 0223 0225 | # %| .DBGLNO 0x0223,0x0225,0x0228,0x022b,0x0234,0x023f,0x0240,0x0249,0x024d
0498 0001 0002 | | .XXX[0x8]
049a 0003 0005 | |
049c 0006 0007 | |
049e 0004 0008 | |
04a0 ; --------------------------------------------------------------------------------------
04a0 ; Debug chain
04a0 ; --------------------------------------------------------------------------------------
04a0 0000 0011 | | .DBGLEN 0x0000,0x0011
04a2 0253 0256 | S V| .DBGLNO 0x0253,0x0256,0x0258,0x025b,0x0265,0x0270,0x0271,0x027a,0x027f,0x0287,0x028a,0x028f,0x0296,0x029c,0x029d,0x02a3,0x02a9
04b3 0001 0002 | | .XXX[0x11]
04b5 0003 0004 | |
04b7 0006 0007 | |
04b9 0008 0005 | |
04bb 0009 000a | |
04bd 000b 000c | |
04bf 000e 000f | |
04c1 0010 000d | |
04c3 0011 | |
04c4 ; --------------------------------------------------------------------------------------
04c4 ; Debug chain
04c4 ; --------------------------------------------------------------------------------------
04c4 0000 0003 | | .DBGLEN 0x0000,0x0003
04c6 02bb 02be | | .DBGLNO 0x02bb,0x02be,0x02c0
04c9 ; --------------------------------------------------------------------------------------
04c9 ; Debug chain
04c9 ; --------------------------------------------------------------------------------------
04c9 0000 0003 | | .DBGLEN 0x0000,0x0003
04cb 02d3 02d6 | | .DBGLNO 0x02d3,0x02d6,0x02da
04ce ; --------------------------------------------------------------------------------------
04ce ; Debug chain
04ce ; --------------------------------------------------------------------------------------
04ce 0000 0001 | | .DBGLEN 0x0000,0x0001
04d0 0303 | | .DBGLNO 0x0303
04d1 ; --------------------------------------------------------------------------------------
04d1 ; Debug chain
04d1 ; --------------------------------------------------------------------------------------
04d1 0000 0004 | | .DBGLEN 0x0000,0x0004
04d3 0313 0316 | | .DBGLNO 0x0313,0x0316,0x0318,0x031b
04d7 ; --------------------------------------------------------------------------------------
04d7 ; Debug chain
04d7 ; --------------------------------------------------------------------------------------
04d7 0000 0002 | | .DBGLEN 0x0000,0x0002
04d9 032b 0332 | + 2| .DBGLNO 0x032b,0x0332
04db 0000 0000 | | .BLANK 0000[0x125]