|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_2c520d6
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02a8 | | .CONST 0x02a8 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0031 | 1 | .CONST 0x0031 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0002 | | .CONST 0x0002 ; Number of locals 001b INIT_0018: 001b 4800 |H | Short_Literal 0x0 001c 0093 003b | ;| push_full_address INIT_0038 001e 02a0 | | Declare_Subprogram Null_Subprogram 001f 038e | | Declare_Type Package,Defined 0020 0387 | | Declare_Variable Package 0021 e001 | | Load 0x0,0x1 0022 e002 | | Load 0x0,0x2 0023 e003 | | Load 0x0,0x3 0024 e004 | | Load 0x0,0x4 0025 e005 | | Load 0x0,0x5 0026 e006 | | Load 0x0,0x6 0027 e007 | | Load 0x0,0x7 0028 e008 | | Load 0x0,0x8 0029 e009 | | Load 0x0,0x9 002a e00a | | Load 0x0,0xa 002b e00b | | Load 0x0,0xb 002c 480b |H | Short_Literal 0xb 002d e402 | | Load 0x2,0x2 002e 020e | | Execute Module,Augment_Imports 002f 00d8 | | Load_Top At_Offset_0 0030 020f | | Execute Module,Activate 0031 BODY_0018: 0031 00d8 | | Load_Top At_Offset_0 0032 180d | | Execute Package,Field_Execute,Field_Number 0xd 0033 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0044 | D | .CONST 0x0044 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 000f | | .CONST 0x000f ; Number of locals 003b INIT_0038: 003b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 003d 00bf | | Action Accept_Activation 003e 029d 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call 0040 029d 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call 0042 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0043 00c7 | | Action Elaborate_Subprogram 0044 BODY_0038: 0044 00bc | | Action Signal_Activated 0045 00bb | | Action Signal_Completion 0046 0000 0000 | | .XXX[0x2] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b e001 | | Load 0x0,0x1 004c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 004d e002 | | Load 0x0,0x2 004e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 004f 00cf | | Action Mark_Auxiliary 0050 820f | | Call 0x1,0xf 0051 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0063 | c | .CONST 0x0063 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0005 | | .CONST 0x0005 ; Number of locals 005b INIT_0058: 005b 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 005d 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 005f 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 0061 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 0063 BODY_0058: 0063 8402 | | Call 0x2,0x2 0064 8403 | | Call 0x2,0x3 0065 8404 | | Call 0x2,0x4 0066 8405 | | Call 0x2,0x5 0067 4800 |H | Short_Literal 0x0 0068 00ca | | Action Exit_Nullary_Function 0069 0000 0000 | | .BLANK 0000[0x7] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 00cf | | Action Mark_Auxiliary 0074 820e | | Call 0x1,0xe 0075 6802 |h | Jump_Zero 0x78 0076 00c9 | | Action Pop_Auxiliary_Loop 0077 7ffc | | Jump 0x74 0078 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0079 0000 0000 | | .BLANK 0000[0x7] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 009b | | .CONST 0x009b ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0009 | | .CONST 0x0009 ; Number of locals 0083 INIT_0080: 0083 e003 | | Load 0x0,0x3 0084 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0085 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0086 02ff | | Declare_Variable Variant_Record 0087 00d8 | | Load_Top At_Offset_0 0088 1c00 | | Execute_Immediate Run_Utility,0x0 0089 e003 | | Load 0x0,0x3 008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008b 0322 | " | Declare_Variable Record 008c 00d8 | | Load_Top At_Offset_0 008d 0322 | " | Declare_Variable Record 008e 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 0090 e003 | | Load 0x0,0x3 0091 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0092 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0093 00c6 | | Action Check_Subprogram_Elaborated 0094 4805 |H | Short_Literal 0x5 0095 4803 |H | Short_Literal 0x3 0096 0099 | | Action Reference_Dynamic 0097 e004 | | Load 0x0,0x4 0098 e005 | | Load 0x0,0x5 0099 4809 |H | Short_Literal 0x9 009a 0007 | | Action Break_Optional 009b BODY_0080: 009b 4801 |H | Short_Literal 0x1 009c e002 | | Load 0x0,0x2 009d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 009e e001 | | Load 0x0,0x1 009f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a0 4806 |H | Short_Literal 0x6 00a1 4803 |H | Short_Literal 0x3 00a2 0099 | | Action Reference_Dynamic 00a3 4807 |H | Short_Literal 0x7 00a4 4803 |H | Short_Literal 0x3 00a5 0099 | | Action Reference_Dynamic 00a6 e003 | | Load 0x0,0x3 00a7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a9 e003 | | Load 0x0,0x3 00aa 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00ab 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ac e602 | | Load 0x3,0x2 00ad 016d | m | Execute Variant_Record,Structure_Write 00ae e602 | | Load 0x3,0x2 00af e003 | | Load 0x0,0x3 00b0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b2 682d |h- | Jump_Zero 0xe0 00b3 e602 | | Load 0x3,0x2 00b4 e003 | | Load 0x0,0x3 00b5 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b7 e604 | | Load 0x3,0x4 00b8 017d | } | Execute Record,Structure_Write 00b9 e602 | | Load 0x3,0x2 00ba e003 | | Load 0x0,0x3 00bb 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00bc 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00bd e603 | | Load 0x3,0x3 00be 017d | } | Execute Record,Structure_Write 00bf 4801 |H | Short_Literal 0x1 00c0 e604 | | Load 0x3,0x4 00c1 e001 | | Load 0x0,0x1 00c2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00c3 4801 |H | Short_Literal 0x1 00c4 e603 | | Load 0x3,0x3 00c5 e002 | | Load 0x0,0x2 00c6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00c7 0092 0254 | T| Action Push_String_Extended,0x254 ; "Le " 00c9 e003 | | Load 0x0,0x3 00ca 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00cb e604 | | Load 0x3,0x4 00cc e001 | | Load 0x0,0x1 00cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ce e003 | | Load 0x0,0x3 00cf 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d0 0092 0255 | U| Action Push_String_Extended,0x255 ; " prend la plus grande brique (taille=" 00d2 e003 | | Load 0x0,0x3 00d3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d4 e603 | | Load 0x3,0x3 00d5 e002 | | Load 0x0,0x2 00d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00d7 e003 | | Load 0x0,0x3 00d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d9 0092 0256 | V| Action Push_String_Extended,0x256 ; ") du tas dans sa pince " 00db e003 | | Load 0x0,0x3 00dc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00dd 4801 |H | Short_Literal 0x1 00de 00cb | | Action Pop_Block_With_Result 00df 00ca | | Action Exit_Nullary_Function 00e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e1 0000 0000 | | .BLANK 0000[0x7] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 0101 | | .CONST 0x0101 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0008 | | .CONST 0x0008 ; Number of locals 00eb INIT_00e8: 00eb e003 | | Load 0x0,0x3 00ec 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ee 02ff | | Declare_Variable Variant_Record 00ef 00d8 | | Load_Top At_Offset_0 00f0 1c00 | | Execute_Immediate Run_Utility,0x0 00f1 e003 | | Load 0x0,0x3 00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f3 0322 | " | Declare_Variable Record 00f4 029f 021b | | Declare_Subprogram INIT_0218,For_Call 00f6 e003 | | Load 0x0,0x3 00f7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00f8 1913 | | Execute Package,Field_Reference,Field_Number 0x13 00f9 00c6 | | Action Check_Subprogram_Elaborated 00fa 4804 |H | Short_Literal 0x4 00fb 4803 |H | Short_Literal 0x3 00fc 0099 | | Action Reference_Dynamic 00fd e006 | | Load 0x0,0x6 00fe e007 | | Load 0x0,0x7 00ff 4808 |H | Short_Literal 0x8 0100 0007 | | Action Break_Optional 0101 BODY_00e8: 0101 4801 |H | Short_Literal 0x1 0102 e002 | | Load 0x0,0x2 0103 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0104 e001 | | Load 0x0,0x1 0105 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0106 4805 |H | Short_Literal 0x5 0107 4803 |H | Short_Literal 0x3 0108 0099 | | Action Reference_Dynamic 0109 4806 |H | Short_Literal 0x6 010a 4803 |H | Short_Literal 0x3 010b 0099 | | Action Reference_Dynamic 010c e003 | | Load 0x0,0x3 010d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 010e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 010f e003 | | Load 0x0,0x3 0110 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0111 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0112 e602 | | Load 0x3,0x2 0113 016d | m | Execute Variant_Record,Structure_Write 0114 e602 | | Load 0x3,0x2 0115 e003 | | Load 0x0,0x3 0116 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0117 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0118 681a |h | Jump_Zero 0x133 0119 e602 | | Load 0x3,0x2 011a e003 | | Load 0x0,0x3 011b 1b20 | | Execute Package,Field_Read,Field_Number 0x20 011c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011d e603 | | Load 0x3,0x3 011e 017d | } | Execute Record,Structure_Write 011f 4801 |H | Short_Literal 0x1 0120 e603 | | Load 0x3,0x3 0121 e001 | | Load 0x0,0x1 0122 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0123 0092 0254 | T| Action Push_String_Extended,0x254 ; "Le " 0125 e003 | | Load 0x0,0x3 0126 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0127 e603 | | Load 0x3,0x3 0128 e001 | | Load 0x0,0x1 0129 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012a e003 | | Load 0x0,0x3 012b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012c 0092 0257 | W| Action Push_String_Extended,0x257 ; " va deposer la brique " 012e e003 | | Load 0x0,0x3 012f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0130 4801 |H | Short_Literal 0x1 0131 00cb | | Action Pop_Block_With_Result 0132 00ca | | Action Exit_Nullary_Function 0133 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0134 0000 0000 | | .BLANK 0000[0x4] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0153 | S | .CONST 0x0153 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0009 | | .CONST 0x0009 ; Number of locals 013b INIT_0138: 013b e003 | | Load 0x0,0x3 013c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 013d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013e 02ff | | Declare_Variable Variant_Record 013f 00d8 | | Load_Top At_Offset_0 0140 1c00 | | Execute_Immediate Run_Utility,0x0 0141 e003 | | Load 0x0,0x3 0142 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0143 0322 | " | Declare_Variable Record 0144 00d8 | | Load_Top At_Offset_0 0145 0322 | " | Declare_Variable Record 0146 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call 0148 e003 | | Load 0x0,0x3 0149 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 014a 1913 | | Execute Package,Field_Reference,Field_Number 0x13 014b 00c6 | | Action Check_Subprogram_Elaborated 014c 4805 |H | Short_Literal 0x5 014d 4803 |H | Short_Literal 0x3 014e 0099 | | Action Reference_Dynamic 014f e008 | | Load 0x0,0x8 0150 e009 | | Load 0x0,0x9 0151 4809 |H | Short_Literal 0x9 0152 0007 | | Action Break_Optional 0153 BODY_0138: 0153 4801 |H | Short_Literal 0x1 0154 e002 | | Load 0x0,0x2 0155 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0156 e001 | | Load 0x0,0x1 0157 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0158 4806 |H | Short_Literal 0x6 0159 4803 |H | Short_Literal 0x3 015a 0099 | | Action Reference_Dynamic 015b 4807 |H | Short_Literal 0x7 015c 4803 |H | Short_Literal 0x3 015d 0099 | | Action Reference_Dynamic 015e e003 | | Load 0x0,0x3 015f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0160 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0161 e003 | | Load 0x0,0x3 0162 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0163 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0164 e602 | | Load 0x3,0x2 0165 016d | m | Execute Variant_Record,Structure_Write 0166 e602 | | Load 0x3,0x2 0167 e003 | | Load 0x0,0x3 0168 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0169 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016a 683b |h; | Jump_Zero 0x1a6 016b e602 | | Load 0x3,0x2 016c e003 | | Load 0x0,0x3 016d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 016e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 016f e604 | | Load 0x3,0x4 0170 017d | } | Execute Record,Structure_Write 0171 e602 | | Load 0x3,0x2 0172 e003 | | Load 0x0,0x3 0173 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0174 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0175 e603 | | Load 0x3,0x3 0176 017d | } | Execute Record,Structure_Write 0177 4802 |H | Short_Literal 0x2 0178 e603 | | Load 0x3,0x3 0179 e002 | | Load 0x0,0x2 017a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 017b 4800 |H | Short_Literal 0x0 017c e604 | | Load 0x3,0x4 017d e001 | | Load 0x0,0x1 017e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 017f e001 | | Load 0x0,0x1 0180 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0181 e604 | | Load 0x3,0x4 0182 e001 | | Load 0x0,0x1 0183 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0184 e604 | | Load 0x3,0x4 0185 e001 | | Load 0x0,0x1 0186 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0187 e603 | | Load 0x3,0x3 0188 e002 | | Load 0x0,0x2 0189 1819 | | Execute Package,Field_Execute,Field_Number 0x19 018a 0092 0254 | T| Action Push_String_Extended,0x254 ; "Le " 018c e003 | | Load 0x0,0x3 018d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 018e e604 | | Load 0x3,0x4 018f e001 | | Load 0x0,0x1 0190 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0191 e003 | | Load 0x0,0x3 0192 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0193 0092 0258 | X| Action Push_String_Extended,0x258 ; " depose la brique dans la case" 0195 e003 | | Load 0x0,0x3 0196 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0197 e604 | | Load 0x3,0x4 0198 e001 | | Load 0x0,0x1 0199 1814 | | Execute Package,Field_Execute,Field_Number 0x14 019a e003 | | Load 0x0,0x3 019b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 019c 00ea | | Load_Encached Null_String_Cache 019d e003 | | Load 0x0,0x3 019e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 019f 4800 |H | Short_Literal 0x0 01a0 e604 | | Load 0x3,0x4 01a1 e001 | | Load 0x0,0x1 01a2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01a3 4801 |H | Short_Literal 0x1 01a4 00cb | | Action Pop_Block_With_Result 01a5 00ca | | Action Exit_Nullary_Function 01a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a7 0000 | | .XXX[0x1] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01c1 | | .CONST 0x01c1 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0008 | | .CONST 0x0008 ; Number of locals 01ab INIT_01a8: 01ab e003 | | Load 0x0,0x3 01ac 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ae 02ff | | Declare_Variable Variant_Record 01af 00d8 | | Load_Top At_Offset_0 01b0 1c00 | | Execute_Immediate Run_Utility,0x0 01b1 e003 | | Load 0x0,0x3 01b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b3 0322 | " | Declare_Variable Record 01b4 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 01b6 e003 | | Load 0x0,0x3 01b7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01b8 1913 | | Execute Package,Field_Reference,Field_Number 0x13 01b9 00c6 | | Action Check_Subprogram_Elaborated 01ba 4804 |H | Short_Literal 0x4 01bb 4803 |H | Short_Literal 0x3 01bc 0099 | | Action Reference_Dynamic 01bd e00a | | Load 0x0,0xa 01be e00b | | Load 0x0,0xb 01bf 4808 |H | Short_Literal 0x8 01c0 0007 | | Action Break_Optional 01c1 BODY_01a8: 01c1 4801 |H | Short_Literal 0x1 01c2 e002 | | Load 0x0,0x2 01c3 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01c4 e001 | | Load 0x0,0x1 01c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c6 4805 |H | Short_Literal 0x5 01c7 4803 |H | Short_Literal 0x3 01c8 0099 | | Action Reference_Dynamic 01c9 4806 |H | Short_Literal 0x6 01ca 4803 |H | Short_Literal 0x3 01cb 0099 | | Action Reference_Dynamic 01cc e003 | | Load 0x0,0x3 01cd 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01cf e003 | | Load 0x0,0x3 01d0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01d1 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01d2 e602 | | Load 0x3,0x2 01d3 016d | m | Execute Variant_Record,Structure_Write 01d4 e602 | | Load 0x3,0x2 01d5 e003 | | Load 0x0,0x3 01d6 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01d7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d8 7019 |p | Jump_Nonzero 0x1f2 01d9 e602 | | Load 0x3,0x2 01da e003 | | Load 0x0,0x3 01db 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01dd e603 | | Load 0x3,0x3 01de 017d | } | Execute Record,Structure_Write 01df 0092 0254 | T| Action Push_String_Extended,0x254 ; "Le " 01e1 e003 | | Load 0x0,0x3 01e2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01e3 e603 | | Load 0x3,0x3 01e4 e001 | | Load 0x0,0x1 01e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e6 e003 | | Load 0x0,0x3 01e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01e8 0092 0259 | Y| Action Push_String_Extended,0x259 ; " se suicide (plus de briques)" 01ea e003 | | Load 0x0,0x3 01eb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01ec e603 | | Load 0x3,0x3 01ed e001 | | Load 0x0,0x1 01ee 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01ef 4801 |H | Short_Literal 0x1 01f0 00cb | | Action Pop_Block_With_Result 01f1 00ca | | Action Exit_Nullary_Function 01f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f3 0000 0000 | | .BLANK 0000[0x5] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00da | | Load_Top At_Offset_2 01fc e001 | | Load 0x0,0x1 01fd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01fe 6810 |h | Jump_Zero 0x20f 01ff 00da | | Load_Top At_Offset_2 0200 e001 | | Load 0x0,0x1 0201 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0202 700a |p | Jump_Nonzero 0x20d 0203 00db | | Load_Top At_Offset_3 0204 e002 | | Load 0x0,0x2 0205 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0206 6804 |h | Jump_Zero 0x20b 0207 00db | | Load_Top At_Offset_3 0208 e002 | | Load 0x0,0x2 0209 1815 | | Execute Package,Field_Execute,Field_Number 0x15 020a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 020b 4800 |H | Short_Literal 0x0 020c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 020d 4800 |H | Short_Literal 0x0 020e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 020f 4800 |H | Short_Literal 0x0 0210 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0211 0000 0000 | | .BLANK 0000[0x7] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c e001 | | Load 0x0,0x1 021d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 021e 680a |h | Jump_Zero 0x229 021f 00da | | Load_Top At_Offset_2 0220 e001 | | Load 0x0,0x1 0221 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0222 6804 |h | Jump_Zero 0x227 0223 00db | | Load_Top At_Offset_3 0224 e002 | | Load 0x0,0x2 0225 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0226 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0227 4800 |H | Short_Literal 0x0 0228 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0229 4800 |H | Short_Literal 0x0 022a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 022b 0000 0000 | | .BLANK 0000[0x5] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 e001 | | Load 0x0,0x1 0235 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0236 6804 |h | Jump_Zero 0x23b 0237 00db | | Load_Top At_Offset_3 0238 e002 | | Load 0x0,0x2 0239 1814 | | Execute Package,Field_Execute,Field_Number 0x14 023a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 023b 4800 |H | Short_Literal 0x0 023c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 023d 0000 0000 | | .XXX[0x3] 023f 0000 | | 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00da | | Load_Top At_Offset_2 0244 e001 | | Load 0x0,0x1 0245 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0246 680b |h | Jump_Zero 0x252 0247 00da | | Load_Top At_Offset_2 0248 e001 | | Load 0x0,0x1 0249 1817 | | Execute Package,Field_Execute,Field_Number 0x17 024a 7005 |p | Jump_Nonzero 0x250 024b 00db | | Load_Top At_Offset_3 024c e002 | | Load 0x0,0x2 024d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 024e 0f00 | | Execute_Immediate Equal,0x0 024f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0250 4800 |H | Short_Literal 0x0 0251 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0252 4800 |H | Short_Literal 0x0 0253 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0254 ; -------------------------------------------------------------------------------------- 0254 ; STRING TABLE 0254 ; -------------------------------------------------------------------------------------- 0254 000e | | .STRTAB 0x000e->0x025b ; "Le " 0255 000f | | .STRTAB 0x000f->0x025c ; " prend la plus grande brique (taille=" 0256 0032 | 2 | .STRTAB 0x0032->0x026f ; ") du tas dans sa pince " 0257 0047 | G | .STRTAB 0x0047->0x027a ; " va deposer la brique " 0258 005b | [ | .STRTAB 0x005b->0x0285 ; " depose la brique dans la case" 0259 0077 | w | .STRTAB 0x0077->0x0294 ; " se suicide (plus de briques)" 025a 0092 | | .STREND 0x0092->0x02a3 025b 4c65 2020 |Le | .STRTAB_STRINGS 02a3 0000 0000 | | .BLANK 0000[0x5] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; Debug Table 02a8 ; -------------------------------------------------------------------------------------- 02a8 0004 0001 | | .DEBUG4 0x0004,0x0001,0x642f,0x0000,0x0001,0x000f 02ae 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 02b2 001b 02ea | | .DBG4T 0x001b,0x02ea,0x8001,0x0000 02b6 003b 02ef | ; | .DBG4T 0x003b,0x02ef,0x0000,0x0000 02ba 003e 02f2 | > | .DBG4T 0x003e,0x02f2,0x0000,0x0000 02be 004b 02f7 | K | .DBG4T 0x004b,0x02f7,0x0001,0x4000 02c2 005b 0301 | [ | .DBG4T 0x005b,0x0301,0x0002,0x0000 02c6 0073 0308 | s | .DBG4T 0x0073,0x0308,0x0001,0x4000 02ca 0083 030c | | .DBG4T 0x0083,0x030c,0x0004,0x0000 02ce 00eb 031e | | .DBG4T 0x00eb,0x031e,0x0004,0x0000 02d2 013b 032c | ; ,| .DBG4T 0x013b,0x032c,0x0004,0x0000 02d6 01ab 0341 | A| .DBG4T 0x01ab,0x0341,0x0004,0x0000 02da 01fb 034f | O| .DBG4T 0x01fb,0x034f,0x0002,0x0000 02de 021b 0352 | R| .DBG4T 0x021b,0x0352,0x0002,0x0000 02e2 0233 0355 | 3 U| .DBG4T 0x0233,0x0355,0x0002,0x0000 02e6 0243 0358 | C X| .DBG4T 0x0243,0x0358,0x0002,0x0000 02ea ; -------------------------------------------------------------------------------------- 02ea ; Debug chain 02ea ; -------------------------------------------------------------------------------------- 02ea 0002 0001 | | .DBGLEN 0x0002,0x0001 02ec 001b 0021 | !| .DBGLNO 0x001b,0x0021,0x0031 02ef ; -------------------------------------------------------------------------------------- 02ef ; Debug chain 02ef ; -------------------------------------------------------------------------------------- 02ef 0001 0000 | | .DBGLEN 0x0001,0x0000 02f1 003b | ; | .DBGLNO 0x003b 02f2 ; -------------------------------------------------------------------------------------- 02f2 ; Debug chain 02f2 ; -------------------------------------------------------------------------------------- 02f2 0003 0000 | | .DBGLEN 0x0003,0x0000 02f4 003e 0040 | > @| .DBGLNO 0x003e,0x0040,0x0042 02f7 ; -------------------------------------------------------------------------------------- 02f7 ; Debug chain 02f7 ; -------------------------------------------------------------------------------------- 02f7 0000 0004 | | .DBGLEN 0x0000,0x0004 02f9 004b 004d | K M| .DBGLNO 0x004b,0x004d,0x0050,0x0051 02fd 0001 0002 | | .XXX[0x4] 02ff 0004 0005 | | 0301 ; -------------------------------------------------------------------------------------- 0301 ; Debug chain 0301 ; -------------------------------------------------------------------------------------- 0301 0000 0005 | | .DBGLEN 0x0000,0x0005 0303 0063 0064 | c d| .DBGLNO 0x0063,0x0064,0x0065,0x0066,0x0067 0308 ; -------------------------------------------------------------------------------------- 0308 ; Debug chain 0308 ; -------------------------------------------------------------------------------------- 0308 0000 0001 | | .DBGLEN 0x0000,0x0001 030a 0074 | t | .DBGLNO 0x0074 030b 0002 | | .XXX[0x1] 030c ; -------------------------------------------------------------------------------------- 030c ; Debug chain 030c ; -------------------------------------------------------------------------------------- 030c 0004 000c | | .DBGLEN 0x0004,0x000c 030e 0083 0089 | | .DBGLNO 0x0083,0x0089,0x008e,0x0090,0x009b,0x00ae,0x00b3,0x00b9,0x00bf,0x00c3,0x00c7,0x00cb,0x00d0,0x00d4,0x00d9,0x00dd 031e ; -------------------------------------------------------------------------------------- 031e ; Debug chain 031e ; -------------------------------------------------------------------------------------- 031e 0004 0008 | | .DBGLEN 0x0004,0x0008 0320 00eb 00f1 | | .DBGLNO 0x00eb,0x00f1,0x00f4,0x00f6,0x0101,0x0114,0x0119,0x011f,0x0123,0x0127,0x012c,0x0130 032c ; -------------------------------------------------------------------------------------- 032c ; Debug chain 032c ; -------------------------------------------------------------------------------------- 032c 0004 000f | | .DBGLEN 0x0004,0x000f 032e 013b 0141 | ; A| .DBGLNO 0x013b,0x0141,0x0146,0x0148,0x0153,0x0166,0x016b,0x0171,0x0177,0x017b,0x017f,0x0184,0x018a,0x018e,0x0193,0x0197,0x019c,0x019f,0x01a3 0341 ; -------------------------------------------------------------------------------------- 0341 ; Debug chain 0341 ; -------------------------------------------------------------------------------------- 0341 0004 0008 | | .DBGLEN 0x0004,0x0008 0343 01ab 01b1 | | .DBGLNO 0x01ab,0x01b1,0x01b4,0x01b6,0x01c1,0x01d4,0x01d9,0x01df,0x01e3,0x01e8,0x01ec,0x01ef 034f ; -------------------------------------------------------------------------------------- 034f ; Debug chain 034f ; -------------------------------------------------------------------------------------- 034f 0000 0001 | | .DBGLEN 0x0000,0x0001 0351 01fb | | .DBGLNO 0x01fb 0352 ; -------------------------------------------------------------------------------------- 0352 ; Debug chain 0352 ; -------------------------------------------------------------------------------------- 0352 0000 0001 | | .DBGLEN 0x0000,0x0001 0354 021b | | .DBGLNO 0x021b 0355 ; -------------------------------------------------------------------------------------- 0355 ; Debug chain 0355 ; -------------------------------------------------------------------------------------- 0355 0000 0001 | | .DBGLEN 0x0000,0x0001 0357 0233 | 3 | .DBGLNO 0x0233 0358 ; -------------------------------------------------------------------------------------- 0358 ; Debug chain 0358 ; -------------------------------------------------------------------------------------- 0358 0000 0001 | | .DBGLEN 0x0000,0x0001 035a 0243 | C | .DBGLNO 0x0243 035b 0000 0000 | | .BLANK 0000[0xa5]