|
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_09dc33
└─⟦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 0250 | P | .CONST 0x0250 ; 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 0035 | 5 | .CONST 0x0035 ; 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 e00c | | Load 0x0,0xc 002d e00d | | Load 0x0,0xd 002e e00e | | Load 0x0,0xe 002f e00f | | Load 0x0,0xf 0030 480f |H | Short_Literal 0xf 0031 e402 | | Load 0x2,0x2 0032 020e | | Execute Module,Augment_Imports 0033 00d8 | | Load_Top At_Offset_0 0034 020f | | Execute Module,Activate 0035 BODY_0018: 0035 00d8 | | Load_Top At_Offset_0 0036 180d | | Execute Package,Field_Execute,Field_Number 0xd 0037 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0050 | P | .CONST 0x0050 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0012 | | .CONST 0x0012 ; Number of locals 003b INIT_0038: 003b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 003d 00bf | | Action Accept_Activation 003e 00e3 | | Load_Encached Natural_Cache 003f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0040 e001 | | Load 0x0,0x1 0041 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0042 02c7 | | Declare_Variable Any 0043 00d8 | | Load_Top At_Offset_0 0044 1c00 | | Execute_Immediate Run_Utility,0x0 0045 e001 | | Load 0x0,0x1 0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0047 02c7 | | Declare_Variable Any 0048 00d8 | | Load_Top At_Offset_0 0049 1c00 | | Execute_Immediate Run_Utility,0x0 004a 029d 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call 004c 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call 004e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 004f 00c7 | | Action Elaborate_Subprogram 0050 BODY_0038: 0050 00bc | | Action Signal_Activated 0051 00bb | | Action Signal_Completion 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b e002 | | Load 0x0,0x2 005c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005d e003 | | Load 0x0,0x3 005e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 005f 00cf | | Action Mark_Auxiliary 0060 8212 | | Call 0x1,0x12 0061 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0062 0000 0000 | | .BLANK 0000[0x6] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0071 | q | .CONST 0x0071 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0004 | | .CONST 0x0004 ; Number of locals 006b INIT_0068: 006b 029f 008b | | Declare_Subprogram INIT_0088,For_Call 006d 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 006f 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 0071 BODY_0068: 0071 8402 | | Call 0x2,0x2 0072 8403 | | Call 0x2,0x3 0073 8404 | | Call 0x2,0x4 0074 4800 |H | Short_Literal 0x0 0075 00ca | | Action Exit_Nullary_Function 0076 0000 0000 | | .XXX[0x2] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00cf | | Action Mark_Auxiliary 007c 8211 | | Call 0x1,0x11 007d 6802 |h | Jump_Zero 0x80 007e 00c9 | | Action Pop_Auxiliary_Loop 007f 7ffc | | Jump 0x7c 0080 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0081 0000 0000 | | .BLANK 0000[0x7] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 00a5 | | .CONST 0x00a5 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 000b | | .CONST 0x000b ; Number of locals 008b INIT_0088: 008b 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 008d 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 008f e001 | | Load 0x0,0x1 0090 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0091 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0092 00c6 | | Action Check_Subprogram_Elaborated 0093 4802 |H | Short_Literal 0x2 0094 4803 |H | Short_Literal 0x3 0095 0099 | | Action Reference_Dynamic 0096 e004 | | Load 0x0,0x4 0097 e005 | | Load 0x0,0x5 0098 4807 |H | Short_Literal 0x7 0099 0007 | | Action Break_Optional 009a e001 | | Load 0x0,0x1 009b 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 009c 1911 | | Execute Package,Field_Reference,Field_Number 0x11 009d 00c6 | | Action Check_Subprogram_Elaborated 009e 4803 |H | Short_Literal 0x3 009f 4803 |H | Short_Literal 0x3 00a0 0099 | | Action Reference_Dynamic 00a1 e006 | | Load 0x0,0x6 00a2 e007 | | Load 0x0,0x7 00a3 480b |H | Short_Literal 0xb 00a4 0007 | | Action Break_Optional 00a5 BODY_0088: 00a5 e002 | | Load 0x0,0x2 00a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a7 4804 |H | Short_Literal 0x4 00a8 4803 |H | Short_Literal 0x3 00a9 0099 | | Action Reference_Dynamic 00aa 4805 |H | Short_Literal 0x5 00ab 4803 |H | Short_Literal 0x3 00ac 0099 | | Action Reference_Dynamic 00ad e001 | | Load 0x0,0x1 00ae 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00af 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b0 c210 | | Store 0x1,0x10 00b1 e003 | | Load 0x0,0x3 00b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b3 4808 |H | Short_Literal 0x8 00b4 4803 |H | Short_Literal 0x3 00b5 0099 | | Action Reference_Dynamic 00b6 4809 |H | Short_Literal 0x9 00b7 4803 |H | Short_Literal 0x3 00b8 0099 | | Action Reference_Dynamic 00b9 e001 | | Load 0x0,0x1 00ba 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00bb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00bc c20f | | Store 0x1,0xf 00bd e210 | | Load 0x1,0x10 00be e001 | | Load 0x0,0x1 00bf 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00c0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00c1 e20f | | Load 0x1,0xf 00c2 e001 | | Load 0x0,0x1 00c3 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00c4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00c5 0279 | y | Execute Discrete,And 00c6 682f |h/ | Jump_Zero 0xf6 00c7 4802 |H | Short_Literal 0x2 00c8 e20f | | Load 0x1,0xf 00c9 e003 | | Load 0x0,0x3 00ca 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00cb 4800 |H | Short_Literal 0x0 00cc e210 | | Load 0x1,0x10 00cd e002 | | Load 0x0,0x2 00ce 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00cf e002 | | Load 0x0,0x2 00d0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00d1 e210 | | Load 0x1,0x10 00d2 e002 | | Load 0x0,0x2 00d3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00d4 e210 | | Load 0x1,0x10 00d5 e002 | | Load 0x0,0x2 00d6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00d7 e20f | | Load 0x1,0xf 00d8 e003 | | Load 0x0,0x3 00d9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00da 0092 0200 | | Action Push_String_Extended,0x200 ; "RegleCaser : " 00dc e210 | | Load 0x1,0x10 00dd e002 | | Load 0x0,0x2 00de 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00df 01cc | | Execute Vector,Catenate 00e0 0092 0201 | | Action Push_String_Extended,0x201 ; " depose la brique dans la case" 00e2 01cc | | Execute Vector,Catenate 00e3 e210 | | Load 0x1,0x10 00e4 e002 | | Load 0x0,0x2 00e5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e6 00e0 | | Load_Encached Standard_Cache 00e7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00e8 01cc | | Execute Vector,Catenate 00e9 e001 | | Load 0x0,0x1 00ea 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00eb 0092 0202 | | Action Push_String_Extended,0x202 ; " " 00ed e001 | | Load 0x0,0x1 00ee 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ef 4800 |H | Short_Literal 0x0 00f0 e210 | | Load 0x1,0x10 00f1 e002 | | Load 0x0,0x2 00f2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00f3 4801 |H | Short_Literal 0x1 00f4 00cb | | Action Pop_Block_With_Result 00f5 00ca | | Action Exit_Nullary_Function 00f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f7 0000 | | .XXX[0x1] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0115 | | .CONST 0x0115 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 000b | | .CONST 0x000b ; Number of locals 00fb INIT_00f8: 00fb 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 00fd 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 00ff e001 | | Load 0x0,0x1 0100 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0101 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0102 00c6 | | Action Check_Subprogram_Elaborated 0103 4802 |H | Short_Literal 0x2 0104 4803 |H | Short_Literal 0x3 0105 0099 | | Action Reference_Dynamic 0106 e008 | | Load 0x0,0x8 0107 e009 | | Load 0x0,0x9 0108 4807 |H | Short_Literal 0x7 0109 0007 | | Action Break_Optional 010a e001 | | Load 0x0,0x1 010b 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 010c 1911 | | Execute Package,Field_Reference,Field_Number 0x11 010d 00c6 | | Action Check_Subprogram_Elaborated 010e 4803 |H | Short_Literal 0x3 010f 4803 |H | Short_Literal 0x3 0110 0099 | | Action Reference_Dynamic 0111 e00a | | Load 0x0,0xa 0112 e00b | | Load 0x0,0xb 0113 480b |H | Short_Literal 0xb 0114 0007 | | Action Break_Optional 0115 BODY_00f8: 0115 e003 | | Load 0x0,0x3 0116 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0117 4808 |H | Short_Literal 0x8 0118 4803 |H | Short_Literal 0x3 0119 0099 | | Action Reference_Dynamic 011a 4809 |H | Short_Literal 0x9 011b 4803 |H | Short_Literal 0x3 011c 0099 | | Action Reference_Dynamic 011d e001 | | Load 0x0,0x1 011e 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 011f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0120 c20f | | Store 0x1,0xf 0121 e002 | | Load 0x0,0x2 0122 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0123 4804 |H | Short_Literal 0x4 0124 4803 |H | Short_Literal 0x3 0125 0099 | | Action Reference_Dynamic 0126 4805 |H | Short_Literal 0x5 0127 4803 |H | Short_Literal 0x3 0128 0099 | | Action Reference_Dynamic 0129 e001 | | Load 0x0,0x1 012a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 012b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 012c c210 | | Store 0x1,0x10 012d e210 | | Load 0x1,0x10 012e e001 | | Load 0x0,0x1 012f 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0130 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0131 e20f | | Load 0x1,0xf 0132 e001 | | Load 0x0,0x1 0133 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0134 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0135 0279 | y | Execute Discrete,And 0136 682f |h/ | Jump_Zero 0x166 0137 4801 |H | Short_Literal 0x1 0138 e210 | | Load 0x1,0x10 0139 e002 | | Load 0x0,0x2 013a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 013b 4801 |H | Short_Literal 0x1 013c e20f | | Load 0x1,0xf 013d e003 | | Load 0x0,0x3 013e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 013f 4801 |H | Short_Literal 0x1 0140 e210 | | Load 0x1,0x10 0141 e002 | | Load 0x0,0x2 0142 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0143 0092 0203 | | Action Push_String_Extended,0x203 ; "RegleSaisir : " 0145 e210 | | Load 0x1,0x10 0146 e002 | | Load 0x0,0x2 0147 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0148 01cc | | Execute Vector,Catenate 0149 0092 0204 | | Action Push_String_Extended,0x204 ; " prend brique (taille=" 014b 01cc | | Execute Vector,Catenate 014c e20f | | Load 0x1,0xf 014d e003 | | Load 0x0,0x3 014e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 014f 00e0 | | Load_Encached Standard_Cache 0150 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0151 01cc | | Execute Vector,Catenate 0152 0092 0205 | | Action Push_String_Extended,0x205 ; " / couleur = " 0154 01cc | | Execute Vector,Catenate 0155 e20f | | Load 0x1,0xf 0156 e003 | | Load 0x0,0x3 0157 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0158 e003 | | Load 0x0,0x3 0159 1b0e | | Execute Package,Field_Read,Field_Number 0xe 015a 011c | | Execute Any,Convert_Unchecked 015b 1c01 | | Execute_Immediate Run_Utility,0x1 015c 01cc | | Execute Vector,Catenate 015d e001 | | Load 0x0,0x1 015e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 015f 0092 0202 | | Action Push_String_Extended,0x202 ; " " 0161 e001 | | Load 0x0,0x1 0162 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0163 4801 |H | Short_Literal 0x1 0164 00cb | | Action Pop_Block_With_Result 0165 00ca | | Action Exit_Nullary_Function 0166 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0167 0000 | | .XXX[0x1] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0185 | | .CONST 0x0185 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 000b | | .CONST 0x000b ; Number of locals 016b INIT_0168: 016b 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 016d 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 016f e001 | | Load 0x0,0x1 0170 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0171 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0172 00c6 | | Action Check_Subprogram_Elaborated 0173 4802 |H | Short_Literal 0x2 0174 4803 |H | Short_Literal 0x3 0175 0099 | | Action Reference_Dynamic 0176 e00c | | Load 0x0,0xc 0177 e00d | | Load 0x0,0xd 0178 4807 |H | Short_Literal 0x7 0179 0007 | | Action Break_Optional 017a e001 | | Load 0x0,0x1 017b 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 017c 1911 | | Execute Package,Field_Reference,Field_Number 0x11 017d 00c6 | | Action Check_Subprogram_Elaborated 017e 4803 |H | Short_Literal 0x3 017f 4803 |H | Short_Literal 0x3 0180 0099 | | Action Reference_Dynamic 0181 e00e | | Load 0x0,0xe 0182 e00f | | Load 0x0,0xf 0183 480b |H | Short_Literal 0xb 0184 0007 | | Action Break_Optional 0185 BODY_0168: 0185 e003 | | Load 0x0,0x3 0186 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0187 4808 |H | Short_Literal 0x8 0188 4803 |H | Short_Literal 0x3 0189 0099 | | Action Reference_Dynamic 018a 4809 |H | Short_Literal 0x9 018b 4803 |H | Short_Literal 0x3 018c 0099 | | Action Reference_Dynamic 018d e001 | | Load 0x0,0x1 018e 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 018f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0190 c20f | | Store 0x1,0xf 0191 e002 | | Load 0x0,0x2 0192 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0193 4804 |H | Short_Literal 0x4 0194 4803 |H | Short_Literal 0x3 0195 0099 | | Action Reference_Dynamic 0196 4805 |H | Short_Literal 0x5 0197 4803 |H | Short_Literal 0x3 0198 0099 | | Action Reference_Dynamic 0199 e001 | | Load 0x0,0x1 019a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 019b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 019c c210 | | Store 0x1,0x10 019d e20f | | Load 0x1,0xf 019e e001 | | Load 0x0,0x1 019f 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 01a0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01a1 e210 | | Load 0x1,0x10 01a2 e001 | | Load 0x0,0x1 01a3 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 01a4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01a5 0279 | y | Execute Discrete,And 01a6 6815 |h | Jump_Zero 0x1bc 01a7 0092 0206 | | Action Push_String_Extended,0x206 ; "RegleArreter : " 01a9 e210 | | Load 0x1,0x10 01aa e002 | | Load 0x0,0x2 01ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ac 01cc | | Execute Vector,Catenate 01ad 0092 0207 | | Action Push_String_Extended,0x207 ; " se suicide (plus de briques)" 01af 01cc | | Execute Vector,Catenate 01b0 e001 | | Load 0x0,0x1 01b1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b2 0092 0202 | | Action Push_String_Extended,0x202 ; " " 01b4 e001 | | Load 0x0,0x1 01b5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b6 e210 | | Load 0x1,0x10 01b7 e002 | | Load 0x0,0x2 01b8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01b9 4801 |H | Short_Literal 0x1 01ba 00cb | | Action Pop_Block_With_Result 01bb 00ca | | Action Exit_Nullary_Function 01bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01bd 0000 0000 | | .XXX[0x3] 01bf 0000 | | 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 4801 |H | Short_Literal 0x1 01c4 00db | | Load_Top At_Offset_3 01c5 e002 | | Load 0x0,0x2 01c6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 4801 |H | Short_Literal 0x1 01cc 00db | | Load_Top At_Offset_3 01cd e003 | | Load 0x0,0x3 01ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 4800 |H | Short_Literal 0x0 01d4 00db | | Load_Top At_Offset_3 01d5 e002 | | Load 0x0,0x2 01d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01d7 6805 |h | Jump_Zero 0x1dd 01d8 00da | | Load_Top At_Offset_2 01d9 e002 | | Load 0x0,0x2 01da 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01db 0f00 | | Execute_Immediate Equal,0x0 01dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01dd 4800 |H | Short_Literal 0x0 01de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 4800 |H | Short_Literal 0x0 01e4 00db | | Load_Top At_Offset_3 01e5 e003 | | Load 0x0,0x3 01e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e7 6804 |h | Jump_Zero 0x1ec 01e8 00da | | Load_Top At_Offset_2 01e9 e003 | | Load 0x0,0x3 01ea 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ec 4800 |H | Short_Literal 0x0 01ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ee 0000 0000 | | .XXX[0x2] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 4800 |H | Short_Literal 0x0 01f4 00db | | Load_Top At_Offset_3 01f5 e002 | | Load 0x0,0x2 01f6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 4800 |H | Short_Literal 0x0 01fc 00db | | Load_Top At_Offset_3 01fd e003 | | Load 0x0,0x3 01fe 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0200 ; -------------------------------------------------------------------------------------- 0200 ; STRING TABLE 0200 ; -------------------------------------------------------------------------------------- 0200 0012 | | .STRTAB 0x0012->0x0209 ; "RegleCaser : " 0201 001f | | .STRTAB 0x001f->0x0210 ; " depose la brique dans la case" 0202 003b | ; | .STRTAB 0x003b->0x021f ; " " 0203 003a | : | .STRTAB 0x003a->0x0220 ; "RegleSaisir : " 0204 0047 | G | .STRTAB 0x0047->0x0227 ; " prend brique (taille=" 0205 005b | [ | .STRTAB 0x005b->0x0232 ; " / couleur = " 0206 0066 | f | .STRTAB 0x0066->0x0239 ; "RegleArreter : " 0207 0073 | s | .STRTAB 0x0073->0x0240 ; " se suicide (plus de briques)" 0208 008e | | .STREND 0x008e->0x024f 0209 5265 676c |Regl| .STRTAB_STRINGS 024f 0000 | | .XXX[0x1] 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug Table 0250 ; -------------------------------------------------------------------------------------- 0250 0004 0001 | | .DEBUG4 0x0004,0x0001,0x8a11,0x0000,0x0001,0x0010 0256 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 025a 001b 0296 | | .DBG4T 0x001b,0x0296,0x8001,0x0000 025e 003b 029b | ; | .DBG4T 0x003b,0x029b,0x0000,0x0000 0262 003e 029e | > | .DBG4T 0x003e,0x029e,0x0000,0x0000 0266 005b 02a5 | [ | .DBG4T 0x005b,0x02a5,0x0001,0x4000 026a 006b 02af | k | .DBG4T 0x006b,0x02af,0x0002,0x0000 026e 007b 02b5 | { | .DBG4T 0x007b,0x02b5,0x0001,0x4000 0272 008b 02b9 | | .DBG4T 0x008b,0x02b9,0x0004,0x0000 0276 00fb 02ca | | .DBG4T 0x00fb,0x02ca,0x0004,0x0000 027a 016b 02d9 | k | .DBG4T 0x016b,0x02d9,0x0004,0x0000 027e 01c3 02e6 | | .DBG4T 0x01c3,0x02e6,0x0002,0x0000 0282 01cb 02e9 | | .DBG4T 0x01cb,0x02e9,0x0002,0x0000 0286 01d3 02ec | | .DBG4T 0x01d3,0x02ec,0x0002,0x0000 028a 01e3 02ef | | .DBG4T 0x01e3,0x02ef,0x0002,0x0000 028e 01f3 02f2 | | .DBG4T 0x01f3,0x02f2,0x0002,0x0000 0292 01fb 02f5 | | .DBG4T 0x01fb,0x02f5,0x0002,0x0000 0296 ; -------------------------------------------------------------------------------------- 0296 ; Debug chain 0296 ; -------------------------------------------------------------------------------------- 0296 0002 0001 | | .DBGLEN 0x0002,0x0001 0298 001b 0021 | !| .DBGLNO 0x001b,0x0021,0x0035 029b ; -------------------------------------------------------------------------------------- 029b ; Debug chain 029b ; -------------------------------------------------------------------------------------- 029b 0001 0000 | | .DBGLEN 0x0001,0x0000 029d 003b | ; | .DBGLNO 0x003b 029e ; -------------------------------------------------------------------------------------- 029e ; Debug chain 029e ; -------------------------------------------------------------------------------------- 029e 0005 0000 | | .DBGLEN 0x0005,0x0000 02a0 003e 0040 | > @| .DBGLNO 0x003e,0x0040,0x004a,0x004c,0x004e 02a5 ; -------------------------------------------------------------------------------------- 02a5 ; Debug chain 02a5 ; -------------------------------------------------------------------------------------- 02a5 0000 0004 | | .DBGLEN 0x0000,0x0004 02a7 005b 005d | [ ]| .DBGLNO 0x005b,0x005d,0x0060,0x0061 02ab 0001 0002 | | .XXX[0x4] 02ad 0004 0005 | | 02af ; -------------------------------------------------------------------------------------- 02af ; Debug chain 02af ; -------------------------------------------------------------------------------------- 02af 0000 0004 | | .DBGLEN 0x0000,0x0004 02b1 0071 0072 | q r| .DBGLNO 0x0071,0x0072,0x0073,0x0074 02b5 ; -------------------------------------------------------------------------------------- 02b5 ; Debug chain 02b5 ; -------------------------------------------------------------------------------------- 02b5 0000 0001 | | .DBGLEN 0x0000,0x0001 02b7 007c | | | .DBGLNO 0x007c 02b8 0002 | | .XXX[0x1] 02b9 ; -------------------------------------------------------------------------------------- 02b9 ; Debug chain 02b9 ; -------------------------------------------------------------------------------------- 02b9 0004 000b | | .DBGLEN 0x0004,0x000b 02bb 008b 008d | | .DBGLNO 0x008b,0x008d,0x008f,0x009a,0x00a5,0x00b1,0x00bd,0x00c7,0x00cb,0x00cf,0x00d4,0x00da,0x00eb,0x00ef,0x00f3 02ca ; -------------------------------------------------------------------------------------- 02ca ; Debug chain 02ca ; -------------------------------------------------------------------------------------- 02ca 0004 0009 | | .DBGLEN 0x0004,0x0009 02cc 00fb 00fd | | .DBGLNO 0x00fb,0x00fd,0x00ff,0x010a,0x0115,0x0121,0x012d,0x0137,0x013b,0x013f,0x0143,0x015f,0x0163 02d9 ; -------------------------------------------------------------------------------------- 02d9 ; Debug chain 02d9 ; -------------------------------------------------------------------------------------- 02d9 0004 0007 | | .DBGLEN 0x0004,0x0007 02db 016b 016d | k m| .DBGLNO 0x016b,0x016d,0x016f,0x017a,0x0185,0x0191,0x019d,0x01a7,0x01b2,0x01b6,0x01b9 02e6 ; -------------------------------------------------------------------------------------- 02e6 ; Debug chain 02e6 ; -------------------------------------------------------------------------------------- 02e6 0000 0001 | | .DBGLEN 0x0000,0x0001 02e8 01c3 | | .DBGLNO 0x01c3 02e9 ; -------------------------------------------------------------------------------------- 02e9 ; Debug chain 02e9 ; -------------------------------------------------------------------------------------- 02e9 0000 0001 | | .DBGLEN 0x0000,0x0001 02eb 01cb | | .DBGLNO 0x01cb 02ec ; -------------------------------------------------------------------------------------- 02ec ; Debug chain 02ec ; -------------------------------------------------------------------------------------- 02ec 0000 0001 | | .DBGLEN 0x0000,0x0001 02ee 01d3 | | .DBGLNO 0x01d3 02ef ; -------------------------------------------------------------------------------------- 02ef ; Debug chain 02ef ; -------------------------------------------------------------------------------------- 02ef 0000 0001 | | .DBGLEN 0x0000,0x0001 02f1 01e3 | | .DBGLNO 0x01e3 02f2 ; -------------------------------------------------------------------------------------- 02f2 ; Debug chain 02f2 ; -------------------------------------------------------------------------------------- 02f2 0000 0001 | | .DBGLEN 0x0000,0x0001 02f4 01f3 | | .DBGLNO 0x01f3 02f5 ; -------------------------------------------------------------------------------------- 02f5 ; Debug chain 02f5 ; -------------------------------------------------------------------------------------- 02f5 0000 0001 | | .DBGLEN 0x0000,0x0001 02f7 01fb | | .DBGLNO 0x01fb 02f8 0000 0000 | | .BLANK 0000[0x108]