|
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_2bbc31
└─⟦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 02b0 | | .CONST 0x02b0 ; 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 013b | ;| Declare_Subprogram INIT_0138,For_Call 0061 029f 01b3 | | Declare_Subprogram INIT_01b0,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 0203 | | Declare_Subprogram INIT_0200,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 1811 | | Execute Package,Field_Execute,Field_Number 0x11 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 025c | \| Action Push_String_Extended,0x25c ; "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 025d | ]| Action Push_String_Extended,0x25d ; " 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 025e | ^| Action Push_String_Extended,0x25e ; ") 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 0223 | #| Declare_Subprogram INIT_0220,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 1811 | | Execute Package,Field_Execute,Field_Number 0x11 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 6819 |h | Jump_Zero 0x134 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 0092 025c | \| Action Push_String_Extended,0x25c ; "Le " 0126 e003 | | Load 0x0,0x3 0127 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0128 e603 | | Load 0x3,0x3 0129 e001 | | Load 0x0,0x1 012a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012b e003 | | Load 0x0,0x3 012c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012d 0092 025f | _| Action Push_String_Extended,0x25f ; " va deposer la brique " 012f e003 | | Load 0x0,0x3 0130 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0131 4801 |H | Short_Literal 0x1 0132 00cb | | Action Pop_Block_With_Result 0133 00ca | | Action Exit_Nullary_Function 0134 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0135 0000 0000 | | .XXX[0x3] 0137 0000 | | 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0158 | X | .CONST 0x0158 ; 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 02c7 | | Declare_Variable Any 0144 00d8 | | Load_Top At_Offset_0 0145 1c00 | | Execute_Immediate Run_Utility,0x0 0146 e003 | | Load 0x0,0x3 0147 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0148 02c7 | | Declare_Variable Any 0149 00d8 | | Load_Top At_Offset_0 014a 1c00 | | Execute_Immediate Run_Utility,0x0 014b 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 014d e003 | | Load 0x0,0x3 014e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 014f 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0150 00c6 | | Action Check_Subprogram_Elaborated 0151 4805 |H | Short_Literal 0x5 0152 4803 |H | Short_Literal 0x3 0153 0099 | | Action Reference_Dynamic 0154 e008 | | Load 0x0,0x8 0155 e009 | | Load 0x0,0x9 0156 4809 |H | Short_Literal 0x9 0157 0007 | | Action Break_Optional 0158 BODY_0138: 0158 4801 |H | Short_Literal 0x1 0159 e002 | | Load 0x0,0x2 015a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 015b e001 | | Load 0x0,0x1 015c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 015d 4806 |H | Short_Literal 0x6 015e 4803 |H | Short_Literal 0x3 015f 0099 | | Action Reference_Dynamic 0160 4807 |H | Short_Literal 0x7 0161 4803 |H | Short_Literal 0x3 0162 0099 | | Action Reference_Dynamic 0163 e003 | | Load 0x0,0x3 0164 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0165 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0166 e003 | | Load 0x0,0x3 0167 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0168 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0169 e602 | | Load 0x3,0x2 016a 016d | m | Execute Variant_Record,Structure_Write 016b e602 | | Load 0x3,0x2 016c e003 | | Load 0x0,0x3 016d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 016e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016f 6839 |h9 | Jump_Zero 0x1a9 0170 e602 | | Load 0x3,0x2 0171 e003 | | Load 0x0,0x3 0172 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0173 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0174 c604 | | Store 0x3,0x4 0175 e602 | | Load 0x3,0x2 0176 e003 | | Load 0x0,0x3 0177 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0178 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0179 c603 | | Store 0x3,0x3 017a 4802 |H | Short_Literal 0x2 017b e603 | | Load 0x3,0x3 017c e002 | | Load 0x0,0x2 017d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 017e 4800 |H | Short_Literal 0x0 017f e604 | | Load 0x3,0x4 0180 e001 | | Load 0x0,0x1 0181 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0182 e001 | | Load 0x0,0x1 0183 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0184 e604 | | Load 0x3,0x4 0185 e001 | | Load 0x0,0x1 0186 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0187 e604 | | Load 0x3,0x4 0188 e001 | | Load 0x0,0x1 0189 1814 | | Execute Package,Field_Execute,Field_Number 0x14 018a e603 | | Load 0x3,0x3 018b e002 | | Load 0x0,0x2 018c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 018d 0092 025c | \| Action Push_String_Extended,0x25c ; "Le " 018f e003 | | Load 0x0,0x3 0190 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0191 e604 | | Load 0x3,0x4 0192 e001 | | Load 0x0,0x1 0193 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0194 e003 | | Load 0x0,0x3 0195 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0196 0092 0260 | `| Action Push_String_Extended,0x260 ; " depose la brique dans la case" 0198 e003 | | Load 0x0,0x3 0199 181b | | Execute Package,Field_Execute,Field_Number 0x1b 019a e604 | | Load 0x3,0x4 019b e001 | | Load 0x0,0x1 019c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 019d e003 | | Load 0x0,0x3 019e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 019f 00ea | | Load_Encached Null_String_Cache 01a0 e003 | | Load 0x0,0x3 01a1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01a2 4800 |H | Short_Literal 0x0 01a3 e604 | | Load 0x3,0x4 01a4 e001 | | Load 0x0,0x1 01a5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01a6 4801 |H | Short_Literal 0x1 01a7 00cb | | Action Pop_Block_With_Result 01a8 00ca | | Action Exit_Nullary_Function 01a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01aa 0000 0000 | | .BLANK 0000[0x6] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01cb | | .CONST 0x01cb ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0008 | | .CONST 0x0008 ; Number of locals 01b3 INIT_01b0: 01b3 e003 | | Load 0x0,0x3 01b4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b6 02ff | | Declare_Variable Variant_Record 01b7 00d8 | | Load_Top At_Offset_0 01b8 1c00 | | Execute_Immediate Run_Utility,0x0 01b9 e003 | | Load 0x0,0x3 01ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bb 02c7 | | Declare_Variable Any 01bc 00d8 | | Load_Top At_Offset_0 01bd 1c00 | | Execute_Immediate Run_Utility,0x0 01be 029f 024b | K| Declare_Subprogram INIT_0248,For_Call 01c0 e003 | | Load 0x0,0x3 01c1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01c2 1913 | | Execute Package,Field_Reference,Field_Number 0x13 01c3 00c6 | | Action Check_Subprogram_Elaborated 01c4 4804 |H | Short_Literal 0x4 01c5 4803 |H | Short_Literal 0x3 01c6 0099 | | Action Reference_Dynamic 01c7 e00a | | Load 0x0,0xa 01c8 e00b | | Load 0x0,0xb 01c9 4808 |H | Short_Literal 0x8 01ca 0007 | | Action Break_Optional 01cb BODY_01b0: 01cb 4801 |H | Short_Literal 0x1 01cc e002 | | Load 0x0,0x2 01cd 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01ce e001 | | Load 0x0,0x1 01cf 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01d0 4805 |H | Short_Literal 0x5 01d1 4803 |H | Short_Literal 0x3 01d2 0099 | | Action Reference_Dynamic 01d3 4806 |H | Short_Literal 0x6 01d4 4803 |H | Short_Literal 0x3 01d5 0099 | | Action Reference_Dynamic 01d6 e003 | | Load 0x0,0x3 01d7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d9 e003 | | Load 0x0,0x3 01da 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01db 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01dc e602 | | Load 0x3,0x2 01dd 016d | m | Execute Variant_Record,Structure_Write 01de e602 | | Load 0x3,0x2 01df e003 | | Load 0x0,0x3 01e0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e2 7018 |p | Jump_Nonzero 0x1fb 01e3 e602 | | Load 0x3,0x2 01e4 e003 | | Load 0x0,0x3 01e5 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e7 c603 | | Store 0x3,0x3 01e8 0092 025c | \| Action Push_String_Extended,0x25c ; "Le " 01ea e003 | | Load 0x0,0x3 01eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ec e603 | | Load 0x3,0x3 01ed e001 | | Load 0x0,0x1 01ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ef e003 | | Load 0x0,0x3 01f0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01f1 0092 0261 | a| Action Push_String_Extended,0x261 ; " se suicide (plus de briques)" 01f3 e003 | | Load 0x0,0x3 01f4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01f5 e603 | | Load 0x3,0x3 01f6 e001 | | Load 0x0,0x1 01f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01f8 4801 |H | Short_Literal 0x1 01f9 00cb | | Action Pop_Block_With_Result 01fa 00ca | | Action Exit_Nullary_Function 01fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01fc 0000 0000 | | .BLANK 0000[0x4] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 e001 | | Load 0x0,0x1 0205 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0206 6810 |h | Jump_Zero 0x217 0207 00da | | Load_Top At_Offset_2 0208 e001 | | Load 0x0,0x1 0209 1817 | | Execute Package,Field_Execute,Field_Number 0x17 020a 700a |p | Jump_Nonzero 0x215 020b 00db | | Load_Top At_Offset_3 020c e002 | | Load 0x0,0x2 020d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 020e 6804 |h | Jump_Zero 0x213 020f 00db | | Load_Top At_Offset_3 0210 e002 | | Load 0x0,0x2 0211 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0212 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0213 4800 |H | Short_Literal 0x0 0214 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0215 4800 |H | Short_Literal 0x0 0216 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0217 4800 |H | Short_Literal 0x0 0218 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 0224 e001 | | Load 0x0,0x1 0225 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0226 680a |h | Jump_Zero 0x231 0227 00da | | Load_Top At_Offset_2 0228 e001 | | Load 0x0,0x1 0229 1817 | | Execute Package,Field_Execute,Field_Number 0x17 022a 6804 |h | Jump_Zero 0x22f 022b 00db | | Load_Top At_Offset_3 022c e002 | | Load 0x0,0x2 022d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 022e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 022f 4800 |H | Short_Literal 0x0 0230 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0231 4800 |H | Short_Literal 0x0 0232 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0233 0000 0000 | | .BLANK 0000[0x5] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c e001 | | Load 0x0,0x1 023d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 023e 6804 |h | Jump_Zero 0x243 023f 00db | | Load_Top At_Offset_3 0240 e002 | | Load 0x0,0x2 0241 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0242 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0243 4800 |H | Short_Literal 0x0 0244 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 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 1815 | | Execute Package,Field_Execute,Field_Number 0x15 024e 680b |h | Jump_Zero 0x25a 024f 00da | | Load_Top At_Offset_2 0250 e001 | | Load 0x0,0x1 0251 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0252 7005 |p | Jump_Nonzero 0x258 0253 00db | | Load_Top At_Offset_3 0254 e002 | | Load 0x0,0x2 0255 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0256 0f00 | | Execute_Immediate Equal,0x0 0257 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0258 4800 |H | Short_Literal 0x0 0259 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 025a 4800 |H | Short_Literal 0x0 025b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 025c ; -------------------------------------------------------------------------------------- 025c ; STRING TABLE 025c ; -------------------------------------------------------------------------------------- 025c 000e | | .STRTAB 0x000e->0x0263 ; "Le " 025d 000f | | .STRTAB 0x000f->0x0264 ; " prend la plus grande brique (taille=" 025e 0032 | 2 | .STRTAB 0x0032->0x0277 ; ") du tas dans sa pince " 025f 0047 | G | .STRTAB 0x0047->0x0282 ; " va deposer la brique " 0260 005b | [ | .STRTAB 0x005b->0x028d ; " depose la brique dans la case" 0261 0077 | w | .STRTAB 0x0077->0x029c ; " se suicide (plus de briques)" 0262 0092 | | .STREND 0x0092->0x02ab 0263 4c65 2020 |Le | .STRTAB_STRINGS 02ab 0000 0000 | | .BLANK 0000[0x5] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; Debug Table 02b0 ; -------------------------------------------------------------------------------------- 02b0 0004 0001 | | .DEBUG4 0x0004,0x0001,0x89ed,0x0000,0x0001,0x000f 02b6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 02ba 001b 02f2 | | .DBG4T 0x001b,0x02f2,0x8001,0x0000 02be 003b 02f7 | ; | .DBG4T 0x003b,0x02f7,0x0000,0x0000 02c2 003e 02fa | > | .DBG4T 0x003e,0x02fa,0x0000,0x0000 02c6 004b 02ff | K | .DBG4T 0x004b,0x02ff,0x0001,0x4000 02ca 005b 0309 | [ | .DBG4T 0x005b,0x0309,0x0002,0x0000 02ce 0073 0310 | s | .DBG4T 0x0073,0x0310,0x0001,0x4000 02d2 0083 0314 | | .DBG4T 0x0083,0x0314,0x0004,0x0000 02d6 00eb 0326 | &| .DBG4T 0x00eb,0x0326,0x0004,0x0000 02da 013b 0334 | ; 4| .DBG4T 0x013b,0x0334,0x0004,0x0000 02de 01b3 0349 | I| .DBG4T 0x01b3,0x0349,0x0004,0x0000 02e2 0203 0357 | W| .DBG4T 0x0203,0x0357,0x0002,0x0000 02e6 0223 035a | # Z| .DBG4T 0x0223,0x035a,0x0002,0x0000 02ea 023b 035d | ; ]| .DBG4T 0x023b,0x035d,0x0002,0x0000 02ee 024b 0360 | K `| .DBG4T 0x024b,0x0360,0x0002,0x0000 02f2 ; -------------------------------------------------------------------------------------- 02f2 ; Debug chain 02f2 ; -------------------------------------------------------------------------------------- 02f2 0002 0001 | | .DBGLEN 0x0002,0x0001 02f4 001b 0021 | !| .DBGLNO 0x001b,0x0021,0x0031 02f7 ; -------------------------------------------------------------------------------------- 02f7 ; Debug chain 02f7 ; -------------------------------------------------------------------------------------- 02f7 0001 0000 | | .DBGLEN 0x0001,0x0000 02f9 003b | ; | .DBGLNO 0x003b 02fa ; -------------------------------------------------------------------------------------- 02fa ; Debug chain 02fa ; -------------------------------------------------------------------------------------- 02fa 0003 0000 | | .DBGLEN 0x0003,0x0000 02fc 003e 0040 | > @| .DBGLNO 0x003e,0x0040,0x0042 02ff ; -------------------------------------------------------------------------------------- 02ff ; Debug chain 02ff ; -------------------------------------------------------------------------------------- 02ff 0000 0004 | | .DBGLEN 0x0000,0x0004 0301 004b 004d | K M| .DBGLNO 0x004b,0x004d,0x0050,0x0051 0305 0001 0002 | | .XXX[0x4] 0307 0004 0005 | | 0309 ; -------------------------------------------------------------------------------------- 0309 ; Debug chain 0309 ; -------------------------------------------------------------------------------------- 0309 0000 0005 | | .DBGLEN 0x0000,0x0005 030b 0063 0064 | c d| .DBGLNO 0x0063,0x0064,0x0065,0x0066,0x0067 0310 ; -------------------------------------------------------------------------------------- 0310 ; Debug chain 0310 ; -------------------------------------------------------------------------------------- 0310 0000 0001 | | .DBGLEN 0x0000,0x0001 0312 0074 | t | .DBGLNO 0x0074 0313 0002 | | .XXX[0x1] 0314 ; -------------------------------------------------------------------------------------- 0314 ; Debug chain 0314 ; -------------------------------------------------------------------------------------- 0314 0004 000c | | .DBGLEN 0x0004,0x000c 0316 0083 0089 | | .DBGLNO 0x0083,0x0089,0x0093,0x0095,0x00a0,0x00b3,0x00b8,0x00bd,0x00c2,0x00c6,0x00ca,0x00ce,0x00d3,0x00d7,0x00dc,0x00e0 0326 ; -------------------------------------------------------------------------------------- 0326 ; Debug chain 0326 ; -------------------------------------------------------------------------------------- 0326 0004 0008 | | .DBGLEN 0x0004,0x0008 0328 00eb 00f1 | | .DBGLNO 0x00eb,0x00f1,0x00f6,0x00f8,0x0103,0x0116,0x011b,0x0120,0x0124,0x0128,0x012d,0x0131 0334 ; -------------------------------------------------------------------------------------- 0334 ; Debug chain 0334 ; -------------------------------------------------------------------------------------- 0334 0004 000f | | .DBGLEN 0x0004,0x000f 0336 013b 0141 | ; A| .DBGLNO 0x013b,0x0141,0x014b,0x014d,0x0158,0x016b,0x0170,0x0175,0x017a,0x017e,0x0182,0x0187,0x018d,0x0191,0x0196,0x019a,0x019f,0x01a2,0x01a6 0349 ; -------------------------------------------------------------------------------------- 0349 ; Debug chain 0349 ; -------------------------------------------------------------------------------------- 0349 0004 0008 | | .DBGLEN 0x0004,0x0008 034b 01b3 01b9 | | .DBGLNO 0x01b3,0x01b9,0x01be,0x01c0,0x01cb,0x01de,0x01e3,0x01e8,0x01ec,0x01f1,0x01f5,0x01f8 0357 ; -------------------------------------------------------------------------------------- 0357 ; Debug chain 0357 ; -------------------------------------------------------------------------------------- 0357 0000 0001 | | .DBGLEN 0x0000,0x0001 0359 0203 | | .DBGLNO 0x0203 035a ; -------------------------------------------------------------------------------------- 035a ; Debug chain 035a ; -------------------------------------------------------------------------------------- 035a 0000 0001 | | .DBGLEN 0x0000,0x0001 035c 0223 | # | .DBGLNO 0x0223 035d ; -------------------------------------------------------------------------------------- 035d ; Debug chain 035d ; -------------------------------------------------------------------------------------- 035d 0000 0001 | | .DBGLEN 0x0000,0x0001 035f 023b | ; | .DBGLNO 0x023b 0360 ; -------------------------------------------------------------------------------------- 0360 ; Debug chain 0360 ; -------------------------------------------------------------------------------------- 0360 0000 0001 | | .DBGLEN 0x0000,0x0001 0362 024b | K | .DBGLNO 0x024b 0363 0000 0000 | | .BLANK 0000[0x9d]