|
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_12d8ac
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02c8 | | .CONST 0x02c8 ; 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 1818 | | Execute Package,Field_Execute,Field_Number 0x18 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 0143 | C| Declare_Subprogram INIT_0140,For_Call 0061 029f 01bb | | Declare_Subprogram INIT_01b8,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 00a0 | | .CONST 0x00a0 ; 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 02c7 | | Declare_Variable Any 008c 00d8 | | Load_Top At_Offset_0 008d 1c00 | | Execute_Immediate Run_Utility,0x0 008e e003 | | Load 0x0,0x3 008f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0090 02c7 | | Declare_Variable Any 0091 00d8 | | Load_Top At_Offset_0 0092 1c00 | | Execute_Immediate Run_Utility,0x0 0093 029f 020b | | Declare_Subprogram INIT_0208,For_Call 0095 e003 | | Load 0x0,0x3 0096 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0097 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0098 00c6 | | Action Check_Subprogram_Elaborated 0099 4805 |H | Short_Literal 0x5 009a 4803 |H | Short_Literal 0x3 009b 0099 | | Action Reference_Dynamic 009c e004 | | Load 0x0,0x4 009d e005 | | Load 0x0,0x5 009e 4809 |H | Short_Literal 0x9 009f 0007 | | Action Break_Optional 00a0 BODY_0080: 00a0 4801 |H | Short_Literal 0x1 00a1 e002 | | Load 0x0,0x2 00a2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a3 e001 | | Load 0x0,0x1 00a4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00a5 4806 |H | Short_Literal 0x6 00a6 4803 |H | Short_Literal 0x3 00a7 0099 | | Action Reference_Dynamic 00a8 4807 |H | Short_Literal 0x7 00a9 4803 |H | Short_Literal 0x3 00aa 0099 | | Action Reference_Dynamic 00ab e003 | | Load 0x0,0x3 00ac 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ae e003 | | Load 0x0,0x3 00af 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00b0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b1 e602 | | Load 0x3,0x2 00b2 016d | m | Execute Variant_Record,Structure_Write 00b3 e602 | | Load 0x3,0x2 00b4 e003 | | Load 0x0,0x3 00b5 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b7 682b |h+ | Jump_Zero 0xe3 00b8 e602 | | Load 0x3,0x2 00b9 e003 | | Load 0x0,0x3 00ba 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bc c604 | | Store 0x3,0x4 00bd e602 | | Load 0x3,0x2 00be e003 | | Load 0x0,0x3 00bf 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00c0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c1 c603 | | Store 0x3,0x3 00c2 4801 |H | Short_Literal 0x1 00c3 e604 | | Load 0x3,0x4 00c4 e001 | | Load 0x0,0x1 00c5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00c6 4801 |H | Short_Literal 0x1 00c7 e603 | | Load 0x3,0x3 00c8 e002 | | Load 0x0,0x2 00c9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00ca 0092 0274 | t| Action Push_String_Extended,0x274 ; "Le " 00cc e003 | | Load 0x0,0x3 00cd 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ce e604 | | Load 0x3,0x4 00cf e001 | | Load 0x0,0x1 00d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d1 e003 | | Load 0x0,0x3 00d2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d3 0092 0275 | u| Action Push_String_Extended,0x275 ; " prend la plus grande brique (taille=" 00d5 e003 | | Load 0x0,0x3 00d6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d7 e603 | | Load 0x3,0x3 00d8 e002 | | Load 0x0,0x2 00d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00da e003 | | Load 0x0,0x3 00db 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00dc 0092 0276 | v| Action Push_String_Extended,0x276 ; ") du tas dans sa pince " 00de e003 | | Load 0x0,0x3 00df 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e0 4801 |H | Short_Literal 0x1 00e1 00cb | | Action Pop_Block_With_Result 00e2 00ca | | Action Exit_Nullary_Function 00e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 0103 | | .CONST 0x0103 ; 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 02c7 | | Declare_Variable Any 00f4 00d8 | | Load_Top At_Offset_0 00f5 1c00 | | Execute_Immediate Run_Utility,0x0 00f6 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 00f8 e003 | | Load 0x0,0x3 00f9 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00fa 1913 | | Execute Package,Field_Reference,Field_Number 0x13 00fb 00c6 | | Action Check_Subprogram_Elaborated 00fc 4804 |H | Short_Literal 0x4 00fd 4803 |H | Short_Literal 0x3 00fe 0099 | | Action Reference_Dynamic 00ff e006 | | Load 0x0,0x6 0100 e007 | | Load 0x0,0x7 0101 4808 |H | Short_Literal 0x8 0102 0007 | | Action Break_Optional 0103 BODY_00e8: 0103 4801 |H | Short_Literal 0x1 0104 e002 | | Load 0x0,0x2 0105 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0106 e001 | | Load 0x0,0x1 0107 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0108 4805 |H | Short_Literal 0x5 0109 4803 |H | Short_Literal 0x3 010a 0099 | | Action Reference_Dynamic 010b 4806 |H | Short_Literal 0x6 010c 4803 |H | Short_Literal 0x3 010d 0099 | | Action Reference_Dynamic 010e e003 | | Load 0x0,0x3 010f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0110 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0111 e003 | | Load 0x0,0x3 0112 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0113 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0114 e602 | | Load 0x3,0x2 0115 016d | m | Execute Variant_Record,Structure_Write 0116 e602 | | Load 0x3,0x2 0117 e003 | | Load 0x0,0x3 0118 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0119 1811 | | Execute Package,Field_Execute,Field_Number 0x11 011a 681e |h | Jump_Zero 0x139 011b e602 | | Load 0x3,0x2 011c e003 | | Load 0x0,0x3 011d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 011e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011f c603 | | Store 0x3,0x3 0120 4801 |H | Short_Literal 0x1 0121 e603 | | Load 0x3,0x3 0122 e001 | | Load 0x0,0x1 0123 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0124 e001 | | Load 0x0,0x1 0125 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0126 e603 | | Load 0x3,0x3 0127 e001 | | Load 0x0,0x1 0128 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0129 0092 0274 | t| Action Push_String_Extended,0x274 ; "Le " 012b e003 | | Load 0x0,0x3 012c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012d e603 | | Load 0x3,0x3 012e e001 | | Load 0x0,0x1 012f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0130 e003 | | Load 0x0,0x3 0131 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0132 0092 0277 | w| Action Push_String_Extended,0x277 ; " va deposer la brique " 0134 e003 | | Load 0x0,0x3 0135 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0136 4801 |H | Short_Literal 0x1 0137 00cb | | Action Pop_Block_With_Result 0138 00ca | | Action Exit_Nullary_Function 0139 4501 |E | Exit_Suprogram New_Top_Offset 0x1 013a 0000 0000 | | .BLANK 0000[0x6] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0160 | ` | .CONST 0x0160 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0009 | | .CONST 0x0009 ; Number of locals 0143 INIT_0140: 0143 e003 | | Load 0x0,0x3 0144 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0145 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0146 02ff | | Declare_Variable Variant_Record 0147 00d8 | | Load_Top At_Offset_0 0148 1c00 | | Execute_Immediate Run_Utility,0x0 0149 e003 | | Load 0x0,0x3 014a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014b 02c7 | | Declare_Variable Any 014c 00d8 | | Load_Top At_Offset_0 014d 1c00 | | Execute_Immediate Run_Utility,0x0 014e e003 | | Load 0x0,0x3 014f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0150 02c7 | | Declare_Variable Any 0151 00d8 | | Load_Top At_Offset_0 0152 1c00 | | Execute_Immediate Run_Utility,0x0 0153 029f 024b | K| Declare_Subprogram INIT_0248,For_Call 0155 e003 | | Load 0x0,0x3 0156 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0157 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0158 00c6 | | Action Check_Subprogram_Elaborated 0159 4805 |H | Short_Literal 0x5 015a 4803 |H | Short_Literal 0x3 015b 0099 | | Action Reference_Dynamic 015c e008 | | Load 0x0,0x8 015d e009 | | Load 0x0,0x9 015e 4809 |H | Short_Literal 0x9 015f 0007 | | Action Break_Optional 0160 BODY_0140: 0160 4801 |H | Short_Literal 0x1 0161 e002 | | Load 0x0,0x2 0162 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0163 e001 | | Load 0x0,0x1 0164 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0165 4806 |H | Short_Literal 0x6 0166 4803 |H | Short_Literal 0x3 0167 0099 | | Action Reference_Dynamic 0168 4807 |H | Short_Literal 0x7 0169 4803 |H | Short_Literal 0x3 016a 0099 | | Action Reference_Dynamic 016b e003 | | Load 0x0,0x3 016c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 016d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 016e e003 | | Load 0x0,0x3 016f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0170 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0171 e602 | | Load 0x3,0x2 0172 016d | m | Execute Variant_Record,Structure_Write 0173 e602 | | Load 0x3,0x2 0174 e003 | | Load 0x0,0x3 0175 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0176 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0177 683e |h> | Jump_Zero 0x1b6 0178 e602 | | Load 0x3,0x2 0179 e003 | | Load 0x0,0x3 017a 1b20 | | Execute Package,Field_Read,Field_Number 0x20 017b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 017c c604 | | Store 0x3,0x4 017d e602 | | Load 0x3,0x2 017e e003 | | Load 0x0,0x3 017f 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0180 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0181 c603 | | Store 0x3,0x3 0182 4802 |H | Short_Literal 0x2 0183 e603 | | Load 0x3,0x3 0184 e002 | | Load 0x0,0x2 0185 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0186 4800 |H | Short_Literal 0x0 0187 e604 | | Load 0x3,0x4 0188 e001 | | Load 0x0,0x1 0189 181a | | Execute Package,Field_Execute,Field_Number 0x1a 018a e001 | | Load 0x0,0x1 018b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 018c e604 | | Load 0x3,0x4 018d e001 | | Load 0x0,0x1 018e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 018f e604 | | Load 0x3,0x4 0190 e001 | | Load 0x0,0x1 0191 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0192 e603 | | Load 0x3,0x3 0193 e002 | | Load 0x0,0x2 0194 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0195 e001 | | Load 0x0,0x1 0196 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0197 e604 | | Load 0x3,0x4 0198 e001 | | Load 0x0,0x1 0199 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 019a 0092 0274 | t| Action Push_String_Extended,0x274 ; "Le " 019c e003 | | Load 0x0,0x3 019d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 019e e604 | | Load 0x3,0x4 019f e001 | | Load 0x0,0x1 01a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a1 e003 | | Load 0x0,0x3 01a2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01a3 0092 0278 | x| Action Push_String_Extended,0x278 ; " depose la brique dans la case" 01a5 e003 | | Load 0x0,0x3 01a6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01a7 e604 | | Load 0x3,0x4 01a8 e001 | | Load 0x0,0x1 01a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01aa e003 | | Load 0x0,0x3 01ab 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ac 00ea | | Load_Encached Null_String_Cache 01ad e003 | | Load 0x0,0x3 01ae 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01af 4800 |H | Short_Literal 0x0 01b0 e604 | | Load 0x3,0x4 01b1 e001 | | Load 0x0,0x1 01b2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01b3 4801 |H | Short_Literal 0x1 01b4 00cb | | Action Pop_Block_With_Result 01b5 00ca | | Action Exit_Nullary_Function 01b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01d3 | | .CONST 0x01d3 ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0008 | | .CONST 0x0008 ; Number of locals 01bb INIT_01b8: 01bb e003 | | Load 0x0,0x3 01bc 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01be 02ff | | Declare_Variable Variant_Record 01bf 00d8 | | Load_Top At_Offset_0 01c0 1c00 | | Execute_Immediate Run_Utility,0x0 01c1 e003 | | Load 0x0,0x3 01c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c3 02c7 | | Declare_Variable Any 01c4 00d8 | | Load_Top At_Offset_0 01c5 1c00 | | Execute_Immediate Run_Utility,0x0 01c6 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 01c8 e003 | | Load 0x0,0x3 01c9 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01ca 1913 | | Execute Package,Field_Reference,Field_Number 0x13 01cb 00c6 | | Action Check_Subprogram_Elaborated 01cc 4804 |H | Short_Literal 0x4 01cd 4803 |H | Short_Literal 0x3 01ce 0099 | | Action Reference_Dynamic 01cf e00a | | Load 0x0,0xa 01d0 e00b | | Load 0x0,0xb 01d1 4808 |H | Short_Literal 0x8 01d2 0007 | | Action Break_Optional 01d3 BODY_01b8: 01d3 4801 |H | Short_Literal 0x1 01d4 e002 | | Load 0x0,0x2 01d5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01d6 e001 | | Load 0x0,0x1 01d7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01d8 4805 |H | Short_Literal 0x5 01d9 4803 |H | Short_Literal 0x3 01da 0099 | | Action Reference_Dynamic 01db 4806 |H | Short_Literal 0x6 01dc 4803 |H | Short_Literal 0x3 01dd 0099 | | Action Reference_Dynamic 01de e003 | | Load 0x0,0x3 01df 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e1 e003 | | Load 0x0,0x3 01e2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01e3 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01e4 e602 | | Load 0x3,0x2 01e5 016d | m | Execute Variant_Record,Structure_Write 01e6 e602 | | Load 0x3,0x2 01e7 e003 | | Load 0x0,0x3 01e8 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ea 7018 |p | Jump_Nonzero 0x203 01eb e602 | | Load 0x3,0x2 01ec e003 | | Load 0x0,0x3 01ed 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ef c603 | | Store 0x3,0x3 01f0 0092 0274 | t| Action Push_String_Extended,0x274 ; "Le " 01f2 e003 | | Load 0x0,0x3 01f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01f4 e603 | | Load 0x3,0x3 01f5 e001 | | Load 0x0,0x1 01f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f7 e003 | | Load 0x0,0x3 01f8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01f9 0092 0279 | y| Action Push_String_Extended,0x279 ; " se suicide (plus de briques)" 01fb e003 | | Load 0x0,0x3 01fc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01fd e603 | | Load 0x3,0x3 01fe e001 | | Load 0x0,0x1 01ff 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0200 4801 |H | Short_Literal 0x1 0201 00cb | | Action Pop_Block_With_Result 0202 00ca | | Action Exit_Nullary_Function 0203 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c e001 | | Load 0x0,0x1 020d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 020e 6810 |h | Jump_Zero 0x21f 020f 00da | | Load_Top At_Offset_2 0210 e001 | | Load 0x0,0x1 0211 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0212 700a |p | Jump_Nonzero 0x21d 0213 00db | | Load_Top At_Offset_3 0214 e002 | | Load 0x0,0x2 0215 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0216 6804 |h | Jump_Zero 0x21b 0217 00db | | Load_Top At_Offset_3 0218 e002 | | Load 0x0,0x2 0219 1815 | | Execute Package,Field_Execute,Field_Number 0x15 021a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 021b 4800 |H | Short_Literal 0x0 021c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 021d 4800 |H | Short_Literal 0x0 021e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 021f 4800 |H | Short_Literal 0x0 0220 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0221 0000 0000 | | .BLANK 0000[0x7] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c e001 | | Load 0x0,0x1 022d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 022e 6810 |h | Jump_Zero 0x23f 022f 00da | | Load_Top At_Offset_2 0230 e001 | | Load 0x0,0x1 0231 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0232 680a |h | Jump_Zero 0x23d 0233 00db | | Load_Top At_Offset_3 0234 e002 | | Load 0x0,0x2 0235 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0236 6804 |h | Jump_Zero 0x23b 0237 00da | | Load_Top At_Offset_2 0238 e001 | | Load 0x0,0x1 0239 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 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 4800 |H | Short_Literal 0x0 023e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 023f 4800 |H | Short_Literal 0x0 0240 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0241 0000 0000 | | .BLANK 0000[0x7] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00da | | Load_Top At_Offset_2 024c e001 | | Load 0x0,0x1 024d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 024e 680a |h | Jump_Zero 0x259 024f 00db | | Load_Top At_Offset_3 0250 e002 | | Load 0x0,0x2 0251 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0252 6804 |h | Jump_Zero 0x257 0253 00da | | Load_Top At_Offset_2 0254 e001 | | Load 0x0,0x1 0255 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0256 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0257 4800 |H | Short_Literal 0x0 0258 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0259 4800 |H | Short_Literal 0x0 025a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 025b 0000 0000 | | .BLANK 0000[0x5] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 e001 | | Load 0x0,0x1 0265 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0266 680b |h | Jump_Zero 0x272 0267 00da | | Load_Top At_Offset_2 0268 e001 | | Load 0x0,0x1 0269 1817 | | Execute Package,Field_Execute,Field_Number 0x17 026a 7005 |p | Jump_Nonzero 0x270 026b 00db | | Load_Top At_Offset_3 026c e002 | | Load 0x0,0x2 026d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 026e 0f00 | | Execute_Immediate Equal,0x0 026f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0270 4800 |H | Short_Literal 0x0 0271 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0272 4800 |H | Short_Literal 0x0 0273 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0274 ; -------------------------------------------------------------------------------------- 0274 ; STRING TABLE 0274 ; -------------------------------------------------------------------------------------- 0274 000e | | .STRTAB 0x000e->0x027b ; "Le " 0275 000f | | .STRTAB 0x000f->0x027c ; " prend la plus grande brique (taille=" 0276 0032 | 2 | .STRTAB 0x0032->0x028f ; ") du tas dans sa pince " 0277 0047 | G | .STRTAB 0x0047->0x029a ; " va deposer la brique " 0278 005b | [ | .STRTAB 0x005b->0x02a5 ; " depose la brique dans la case" 0279 0077 | w | .STRTAB 0x0077->0x02b4 ; " se suicide (plus de briques)" 027a 0092 | | .STREND 0x0092->0x02c3 027b 4c65 2020 |Le | .STRTAB_STRINGS 02c3 0000 0000 | | .BLANK 0000[0x5] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; Debug Table 02c8 ; -------------------------------------------------------------------------------------- 02c8 0004 0001 | | .DEBUG4 0x0004,0x0001,0x8a19,0x0000,0x0001,0x000f 02ce 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 02d2 001b 030a | | .DBG4T 0x001b,0x030a,0x8001,0x0000 02d6 003b 030f | ; | .DBG4T 0x003b,0x030f,0x0000,0x0000 02da 003e 0312 | > | .DBG4T 0x003e,0x0312,0x0000,0x0000 02de 004b 0317 | K | .DBG4T 0x004b,0x0317,0x0001,0x4000 02e2 005b 0321 | [ !| .DBG4T 0x005b,0x0321,0x0002,0x0000 02e6 0073 0328 | s (| .DBG4T 0x0073,0x0328,0x0001,0x4000 02ea 0083 032c | ,| .DBG4T 0x0083,0x032c,0x0004,0x0000 02ee 00eb 033e | >| .DBG4T 0x00eb,0x033e,0x0004,0x0000 02f2 0143 034d | C M| .DBG4T 0x0143,0x034d,0x0004,0x0000 02f6 01bb 0363 | c| .DBG4T 0x01bb,0x0363,0x0004,0x0000 02fa 020b 0371 | q| .DBG4T 0x020b,0x0371,0x0002,0x0000 02fe 022b 0374 | + t| .DBG4T 0x022b,0x0374,0x0002,0x0000 0302 024b 0377 | K w| .DBG4T 0x024b,0x0377,0x0002,0x0000 0306 0263 037a | c z| .DBG4T 0x0263,0x037a,0x0002,0x0000 030a ; -------------------------------------------------------------------------------------- 030a ; Debug chain 030a ; -------------------------------------------------------------------------------------- 030a 0002 0001 | | .DBGLEN 0x0002,0x0001 030c 001b 0021 | !| .DBGLNO 0x001b,0x0021,0x0031 030f ; -------------------------------------------------------------------------------------- 030f ; Debug chain 030f ; -------------------------------------------------------------------------------------- 030f 0001 0000 | | .DBGLEN 0x0001,0x0000 0311 003b | ; | .DBGLNO 0x003b 0312 ; -------------------------------------------------------------------------------------- 0312 ; Debug chain 0312 ; -------------------------------------------------------------------------------------- 0312 0003 0000 | | .DBGLEN 0x0003,0x0000 0314 003e 0040 | > @| .DBGLNO 0x003e,0x0040,0x0042 0317 ; -------------------------------------------------------------------------------------- 0317 ; Debug chain 0317 ; -------------------------------------------------------------------------------------- 0317 0000 0004 | | .DBGLEN 0x0000,0x0004 0319 004b 004d | K M| .DBGLNO 0x004b,0x004d,0x0050,0x0051 031d 0001 0002 | | .XXX[0x4] 031f 0004 0005 | | 0321 ; -------------------------------------------------------------------------------------- 0321 ; Debug chain 0321 ; -------------------------------------------------------------------------------------- 0321 0000 0005 | | .DBGLEN 0x0000,0x0005 0323 0063 0064 | c d| .DBGLNO 0x0063,0x0064,0x0065,0x0066,0x0067 0328 ; -------------------------------------------------------------------------------------- 0328 ; Debug chain 0328 ; -------------------------------------------------------------------------------------- 0328 0000 0001 | | .DBGLEN 0x0000,0x0001 032a 0074 | t | .DBGLNO 0x0074 032b 0002 | | .XXX[0x1] 032c ; -------------------------------------------------------------------------------------- 032c ; Debug chain 032c ; -------------------------------------------------------------------------------------- 032c 0004 000c | | .DBGLEN 0x0004,0x000c 032e 0083 0089 | | .DBGLNO 0x0083,0x0089,0x0093,0x0095,0x00a0,0x00b3,0x00b8,0x00bd,0x00c2,0x00c6,0x00ca,0x00ce,0x00d3,0x00d7,0x00dc,0x00e0 033e ; -------------------------------------------------------------------------------------- 033e ; Debug chain 033e ; -------------------------------------------------------------------------------------- 033e 0004 0009 | | .DBGLEN 0x0004,0x0009 0340 00eb 00f1 | | .DBGLNO 0x00eb,0x00f1,0x00f6,0x00f8,0x0103,0x0116,0x011b,0x0120,0x0124,0x0129,0x012d,0x0132,0x0136 034d ; -------------------------------------------------------------------------------------- 034d ; Debug chain 034d ; -------------------------------------------------------------------------------------- 034d 0004 0010 | | .DBGLEN 0x0004,0x0010 034f 0143 0149 | C I| .DBGLNO 0x0143,0x0149,0x0153,0x0155,0x0160,0x0173,0x0178,0x017d,0x0182,0x0186,0x018a,0x018f,0x0195,0x019a,0x019e,0x01a3,0x01a7,0x01ac,0x01af,0x01b3 0363 ; -------------------------------------------------------------------------------------- 0363 ; Debug chain 0363 ; -------------------------------------------------------------------------------------- 0363 0004 0008 | | .DBGLEN 0x0004,0x0008 0365 01bb 01c1 | | .DBGLNO 0x01bb,0x01c1,0x01c6,0x01c8,0x01d3,0x01e6,0x01eb,0x01f0,0x01f4,0x01f9,0x01fd,0x0200 0371 ; -------------------------------------------------------------------------------------- 0371 ; Debug chain 0371 ; -------------------------------------------------------------------------------------- 0371 0000 0001 | | .DBGLEN 0x0000,0x0001 0373 020b | | .DBGLNO 0x020b 0374 ; -------------------------------------------------------------------------------------- 0374 ; Debug chain 0374 ; -------------------------------------------------------------------------------------- 0374 0000 0001 | | .DBGLEN 0x0000,0x0001 0376 022b | + | .DBGLNO 0x022b 0377 ; -------------------------------------------------------------------------------------- 0377 ; Debug chain 0377 ; -------------------------------------------------------------------------------------- 0377 0000 0001 | | .DBGLEN 0x0000,0x0001 0379 024b | K | .DBGLNO 0x024b 037a ; -------------------------------------------------------------------------------------- 037a ; Debug chain 037a ; -------------------------------------------------------------------------------------- 037a 0000 0001 | | .DBGLEN 0x0000,0x0001 037c 0263 | c | .DBGLNO 0x0263 037d 0000 0000 | | .BLANK 0000[0x83]