|
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 0300 | | .CONST 0x0300 ; 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 0039 | 9 | .CONST 0x0039 ; 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 0043 | C| push_full_address INIT_0040
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 e010 | | Load 0x0,0x10
0031 e011 | | Load 0x0,0x11
0032 e012 | | Load 0x0,0x12
0033 e013 | | Load 0x0,0x13
0034 4813 |H | Short_Literal 0x13
0035 e402 | | Load 0x2,0x2
0036 020e | | Execute Module,Augment_Imports
0037 00d8 | | Load_Top At_Offset_0
0038 020f | | Execute Module,Activate
0039 BODY_0018:
0039 00d8 | | Load_Top At_Offset_0
003a 180d | | Execute Package,Field_Execute,Field_Number 0xd
003b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
003c 0000 0000 | | .BLANK 0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0056 | V | .CONST 0x0056 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0011 | | .CONST 0x0011 ; Number of locals
0043 INIT_0040:
0043 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0045 00bf | | Action Accept_Activation
0046 e001 | | Load 0x0,0x1
0047 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0048 02c7 | | Declare_Variable Any
0049 00d8 | | Load_Top At_Offset_0
004a 1c00 | | Execute_Immediate Run_Utility,0x0
004b e001 | | Load 0x0,0x1
004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004d 02c7 | | Declare_Variable Any
004e 00d8 | | Load_Top At_Offset_0
004f 1c00 | | Execute_Immediate Run_Utility,0x0
0050 029d 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call
0052 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call
0054 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0055 00c7 | | Action Elaborate_Subprogram
0056 BODY_0040:
0056 00bc | | Action Signal_Activated
0057 00bb | | Action Signal_Completion
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 1818 | | Execute Package,Field_Execute,Field_Number 0x18
005d e003 | | Load 0x0,0x3
005e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
005f 00cf | | Action Mark_Auxiliary
0060 8211 | | Call 0x1,0x11
0061 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0062 0000 0000 | | .BLANK 0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0073 | s | .CONST 0x0073 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0005 | | .CONST 0x0005 ; Number of locals
006b INIT_0068:
006b 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
006d 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
006f 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
0071 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0073 BODY_0068:
0073 8402 | | Call 0x2,0x2
0074 8403 | | Call 0x2,0x3
0075 8404 | | Call 0x2,0x4
0076 8405 | | Call 0x2,0x5
0077 4800 |H | Short_Literal 0x0
0078 00ca | | Action Exit_Nullary_Function
0079 0000 0000 | | .BLANK 0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00cf | | Action Mark_Auxiliary
0084 8210 | | Call 0x1,0x10
0085 6802 |h | Jump_Zero 0x88
0086 00c9 | | Action Pop_Auxiliary_Loop
0087 7ffc | | Jump 0x84
0088 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0089 0000 0000 | | .BLANK 0000[0x7]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00ad | | .CONST 0x00ad ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 000b | | .CONST 0x000b ; Number of locals
0093 INIT_0090:
0093 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
0095 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
0097 e001 | | Load 0x0,0x1
0098 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0099 1911 | | Execute Package,Field_Reference,Field_Number 0x11
009a 00c6 | | Action Check_Subprogram_Elaborated
009b 4802 |H | Short_Literal 0x2
009c 4803 |H | Short_Literal 0x3
009d 0099 | | Action Reference_Dynamic
009e e004 | | Load 0x0,0x4
009f e005 | | Load 0x0,0x5
00a0 4807 |H | Short_Literal 0x7
00a1 0007 | | Action Break_Optional
00a2 e001 | | Load 0x0,0x1
00a3 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00a4 1911 | | Execute Package,Field_Reference,Field_Number 0x11
00a5 00c6 | | Action Check_Subprogram_Elaborated
00a6 4803 |H | Short_Literal 0x3
00a7 4803 |H | Short_Literal 0x3
00a8 0099 | | Action Reference_Dynamic
00a9 e006 | | Load 0x0,0x6
00aa e007 | | Load 0x0,0x7
00ab 480b |H | Short_Literal 0xb
00ac 0007 | | Action Break_Optional
00ad BODY_0090:
00ad e003 | | Load 0x0,0x3
00ae 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00af 4808 |H | Short_Literal 0x8
00b0 4803 |H | Short_Literal 0x3
00b1 0099 | | Action Reference_Dynamic
00b2 4809 |H | Short_Literal 0x9
00b3 4803 |H | Short_Literal 0x3
00b4 0099 | | Action Reference_Dynamic
00b5 e001 | | Load 0x0,0x1
00b6 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b8 c20e | | Store 0x1,0xe
00b9 e002 | | Load 0x0,0x2
00ba 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00bb 4804 |H | Short_Literal 0x4
00bc 4803 |H | Short_Literal 0x3
00bd 0099 | | Action Reference_Dynamic
00be 4805 |H | Short_Literal 0x5
00bf 4803 |H | Short_Literal 0x3
00c0 0099 | | Action Reference_Dynamic
00c1 e001 | | Load 0x0,0x1
00c2 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00c3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c4 c20f | | Store 0x1,0xf
00c5 e20f | | Load 0x1,0xf
00c6 e001 | | Load 0x0,0x1
00c7 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00c8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00c9 e20e | | Load 0x1,0xe
00ca e001 | | Load 0x0,0x1
00cb 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00cc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00cd 0279 | y | Execute Discrete,And
00ce 6821 |h! | Jump_Zero 0xf0
00cf 4801 |H | Short_Literal 0x1
00d0 e20f | | Load 0x1,0xf
00d1 e002 | | Load 0x0,0x2
00d2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00d3 4801 |H | Short_Literal 0x1
00d4 e20e | | Load 0x1,0xe
00d5 e003 | | Load 0x0,0x3
00d6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00d7 0092 02b0 | | Action Push_String_Extended,0x2b0 ; "Le "
00d9 e001 | | Load 0x0,0x1
00da 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00db e20f | | Load 0x1,0xf
00dc e002 | | Load 0x0,0x2
00dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00de e001 | | Load 0x0,0x1
00df 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e0 0092 02b1 | | Action Push_String_Extended,0x2b1 ; " prend la plus grande brique (taille="
00e2 e001 | | Load 0x0,0x1
00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e4 e20e | | Load 0x1,0xe
00e5 e003 | | Load 0x0,0x3
00e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00e7 e001 | | Load 0x0,0x1
00e8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e9 0092 02b2 | | Action Push_String_Extended,0x2b2 ; ") du tas dans sa pince "
00eb e001 | | Load 0x0,0x1
00ec 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ed 4801 |H | Short_Literal 0x1
00ee 00cb | | Action Pop_Block_With_Result
00ef 00ca | | Action Exit_Nullary_Function
00f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f1 0000 0000 | | .BLANK 0000[0x7]
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 0263 | c| Declare_Subprogram INIT_0260,For_Call
00fd 029f 027b | {| Declare_Subprogram INIT_0278,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 181b | | Execute Package,Field_Execute,Field_Number 0x1b
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 c20e | | Store 0x1,0xe
0121 e002 | | Load 0x0,0x2
0122 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
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 c20f | | Store 0x1,0xf
012d e20f | | Load 0x1,0xf
012e e001 | | Load 0x0,0x1
012f 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0130 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0131 e20e | | Load 0x1,0xe
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 6819 |h | Jump_Zero 0x150
0137 4801 |H | Short_Literal 0x1
0138 e20f | | Load 0x1,0xf
0139 e002 | | Load 0x0,0x2
013a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
013b e002 | | Load 0x0,0x2
013c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
013d e20f | | Load 0x1,0xf
013e e002 | | Load 0x0,0x2
013f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0140 0092 02b0 | | Action Push_String_Extended,0x2b0 ; "Le "
0142 e001 | | Load 0x0,0x1
0143 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0144 e20f | | Load 0x1,0xf
0145 e002 | | Load 0x0,0x2
0146 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0147 e001 | | Load 0x0,0x1
0148 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0149 0092 02b3 | | Action Push_String_Extended,0x2b3 ; " va deposer la brique"
014b e001 | | Load 0x0,0x1
014c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
014d 4801 |H | Short_Literal 0x1
014e 00cb | | Action Pop_Block_With_Result
014f 00ca | | Action Exit_Nullary_Function
0150 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0185 | | .CONST 0x0185 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 000e | | .CONST 0x000e ; Number of locals
015b INIT_0158:
015b e001 | | Load 0x0,0x1
015c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
015d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
015e 02ff | | Declare_Variable Variant_Record
015f 00d8 | | Load_Top At_Offset_0
0160 1c00 | | Execute_Immediate Run_Utility,0x0
0161 e001 | | Load 0x0,0x1
0162 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0163 02c7 | | Declare_Variable Any
0164 00d8 | | Load_Top At_Offset_0
0165 1c00 | | Execute_Immediate Run_Utility,0x0
0166 e001 | | Load 0x0,0x1
0167 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0168 02c7 | | Declare_Variable Any
0169 00d8 | | Load_Top At_Offset_0
016a 1c00 | | Execute_Immediate Run_Utility,0x0
016b 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
016d 029f 0293 | | Declare_Subprogram INIT_0290,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 4805 |H | Short_Literal 0x5
0174 4803 |H | Short_Literal 0x3
0175 0099 | | Action Reference_Dynamic
0176 e00c | | Load 0x0,0xc
0177 e00d | | Load 0x0,0xd
0178 480a |H | Short_Literal 0xa
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 4806 |H | Short_Literal 0x6
017f 4803 |H | Short_Literal 0x3
0180 0099 | | Action Reference_Dynamic
0181 e00e | | Load 0x0,0xe
0182 e00f | | Load 0x0,0xf
0183 480e |H | Short_Literal 0xe
0184 0007 | | Action Break_Optional
0185 BODY_0158:
0185 e003 | | Load 0x0,0x3
0186 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0187 480b |H | Short_Literal 0xb
0188 4803 |H | Short_Literal 0x3
0189 0099 | | Action Reference_Dynamic
018a 480c |H | Short_Literal 0xc
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 c20e | | Store 0x1,0xe
0191 e002 | | Load 0x0,0x2
0192 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0193 4807 |H | Short_Literal 0x7
0194 4803 |H | Short_Literal 0x3
0195 0099 | | Action Reference_Dynamic
0196 4808 |H | Short_Literal 0x8
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 c20f | | Store 0x1,0xf
019d e20f | | Load 0x1,0xf
019e e001 | | Load 0x0,0x1
019f 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
01a0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01a1 e20e | | Load 0x1,0xe
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 6834 |h4 | Jump_Zero 0x1db
01a7 4802 |H | Short_Literal 0x2
01a8 e20e | | Load 0x1,0xe
01a9 e003 | | Load 0x0,0x3
01aa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ab 4800 |H | Short_Literal 0x0
01ac e20f | | Load 0x1,0xf
01ad e002 | | Load 0x0,0x2
01ae 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01af e002 | | Load 0x0,0x2
01b0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01b1 e20f | | Load 0x1,0xf
01b2 e002 | | Load 0x0,0x2
01b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b4 e20f | | Load 0x1,0xf
01b5 e002 | | Load 0x0,0x2
01b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01b7 e20e | | Load 0x1,0xe
01b8 e003 | | Load 0x0,0x3
01b9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01ba e002 | | Load 0x0,0x2
01bb 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01bc e20f | | Load 0x1,0xf
01bd e002 | | Load 0x0,0x2
01be 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01bf 0092 02b0 | | Action Push_String_Extended,0x2b0 ; "Le "
01c1 e001 | | Load 0x0,0x1
01c2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01c3 e20f | | Load 0x1,0xf
01c4 e002 | | Load 0x0,0x2
01c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c6 e001 | | Load 0x0,0x1
01c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01c8 0092 02b4 | | Action Push_String_Extended,0x2b4 ; " depose la brique dans la case"
01ca e001 | | Load 0x0,0x1
01cb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01cc e20f | | Load 0x1,0xf
01cd e002 | | Load 0x0,0x2
01ce 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01cf e001 | | Load 0x0,0x1
01d0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01d1 00ea | | Load_Encached Null_String_Cache
01d2 e001 | | Load 0x0,0x1
01d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01d4 4800 |H | Short_Literal 0x0
01d5 e20f | | Load 0x1,0xf
01d6 e002 | | Load 0x0,0x2
01d7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01d8 4801 |H | Short_Literal 0x1
01d9 00cb | | Action Pop_Block_With_Result
01da 00ca | | Action Exit_Nullary_Function
01db 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 0208 | | .CONST 0x0208 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 000d | | .CONST 0x000d ; Number of locals
01e3 INIT_01e0:
01e3 e001 | | Load 0x0,0x1
01e4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e6 02ff | | Declare_Variable Variant_Record
01e7 00d8 | | Load_Top At_Offset_0
01e8 1c00 | | Execute_Immediate Run_Utility,0x0
01e9 e001 | | Load 0x0,0x1
01ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01eb 02c7 | | Declare_Variable Any
01ec 00d8 | | Load_Top At_Offset_0
01ed 1c00 | | Execute_Immediate Run_Utility,0x0
01ee 029f 029b | | Declare_Subprogram INIT_0298,For_Call
01f0 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call
01f2 e001 | | Load 0x0,0x1
01f3 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
01f4 1911 | | Execute Package,Field_Reference,Field_Number 0x11
01f5 00c6 | | Action Check_Subprogram_Elaborated
01f6 4804 |H | Short_Literal 0x4
01f7 4803 |H | Short_Literal 0x3
01f8 0099 | | Action Reference_Dynamic
01f9 e010 | | Load 0x0,0x10
01fa e011 | | Load 0x0,0x11
01fb 4809 |H | Short_Literal 0x9
01fc 0007 | | Action Break_Optional
01fd e001 | | Load 0x0,0x1
01fe 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
01ff 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0200 00c6 | | Action Check_Subprogram_Elaborated
0201 4805 |H | Short_Literal 0x5
0202 4803 |H | Short_Literal 0x3
0203 0099 | | Action Reference_Dynamic
0204 e012 | | Load 0x0,0x12
0205 e013 | | Load 0x0,0x13
0206 480d |H | Short_Literal 0xd
0207 0007 | | Action Break_Optional
0208 BODY_01e0:
0208 e003 | | Load 0x0,0x3
0209 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020a 480a |H | Short_Literal 0xa
020b 4803 |H | Short_Literal 0x3
020c 0099 | | Action Reference_Dynamic
020d 480b |H | Short_Literal 0xb
020e 4803 |H | Short_Literal 0x3
020f 0099 | | Action Reference_Dynamic
0210 e001 | | Load 0x0,0x1
0211 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0212 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0213 c20e | | Store 0x1,0xe
0214 e002 | | Load 0x0,0x2
0215 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0216 4806 |H | Short_Literal 0x6
0217 4803 |H | Short_Literal 0x3
0218 0099 | | Action Reference_Dynamic
0219 4807 |H | Short_Literal 0x7
021a 4803 |H | Short_Literal 0x3
021b 0099 | | Action Reference_Dynamic
021c e001 | | Load 0x0,0x1
021d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
021e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
021f c20f | | Store 0x1,0xf
0220 e20f | | Load 0x1,0xf
0221 e001 | | Load 0x0,0x1
0222 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0223 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0224 e20e | | Load 0x1,0xe
0225 e001 | | Load 0x0,0x1
0226 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0227 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0228 0279 | y | Execute Discrete,And
0229 6813 |h | Jump_Zero 0x23d
022a 0092 02b0 | | Action Push_String_Extended,0x2b0 ; "Le "
022c e001 | | Load 0x0,0x1
022d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
022e e20f | | Load 0x1,0xf
022f e002 | | Load 0x0,0x2
0230 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0231 e001 | | Load 0x0,0x1
0232 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0233 0092 02b5 | | Action Push_String_Extended,0x2b5 ; " se suicide (plus de briques)"
0235 e001 | | Load 0x0,0x1
0236 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0237 e20f | | Load 0x1,0xf
0238 e002 | | Load 0x0,0x2
0239 181c | | Execute Package,Field_Execute,Field_Number 0x1c
023a 4801 |H | Short_Literal 0x1
023b 00cb | | Action Pop_Block_With_Result
023c 00ca | | Action Exit_Nullary_Function
023d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 e002 | | Load 0x0,0x2
0245 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0246 6805 |h | Jump_Zero 0x24c
0247 00da | | Load_Top At_Offset_2
0248 e002 | | Load 0x0,0x2
0249 1817 | | Execute Package,Field_Execute,Field_Number 0x17
024a 0f00 | | Execute_Immediate Equal,0x0
024b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024c 4800 |H | Short_Literal 0x0
024d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024e 0000 0000 | | .XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 e003 | | Load 0x0,0x3
0255 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0256 6804 |h | Jump_Zero 0x25b
0257 00da | | Load_Top At_Offset_2
0258 e003 | | Load 0x0,0x3
0259 1815 | | Execute Package,Field_Execute,Field_Number 0x15
025a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025b 4800 |H | Short_Literal 0x0
025c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025d 0000 0000 | | .XXX[0x3]
025f 0000 | |
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 e002 | | Load 0x0,0x2
0265 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0266 680a |h | Jump_Zero 0x271
0267 00da | | Load_Top At_Offset_2
0268 e002 | | Load 0x0,0x2
0269 1817 | | Execute Package,Field_Execute,Field_Number 0x17
026a 6804 |h | Jump_Zero 0x26f
026b 00da | | Load_Top At_Offset_2
026c e002 | | Load 0x0,0x2
026d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
026e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026f 4800 |H | Short_Literal 0x0
0270 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0271 4800 |H | Short_Literal 0x0
0272 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0273 0000 0000 | | .BLANK 0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c e003 | | Load 0x0,0x3
027d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
027e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027f 0000 | | .XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 e002 | | Load 0x0,0x2
0285 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0286 6804 |h | Jump_Zero 0x28b
0287 00da | | Load_Top At_Offset_2
0288 e002 | | Load 0x0,0x2
0289 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
028a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028b 4800 |H | Short_Literal 0x0
028c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028d 0000 0000 | | .XXX[0x3]
028f 0000 | |
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 00da | | Load_Top At_Offset_2
0294 e003 | | Load 0x0,0x3
0295 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0296 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0297 0000 | | .XXX[0x1]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c e002 | | Load 0x0,0x2
029d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
029e 6805 |h | Jump_Zero 0x2a4
029f 00da | | Load_Top At_Offset_2
02a0 e002 | | Load 0x0,0x2
02a1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02a2 0f00 | | Execute_Immediate Equal,0x0
02a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a4 4800 |H | Short_Literal 0x0
02a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a6 0000 0000 | | .XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00da | | Load_Top At_Offset_2
02ac e003 | | Load 0x0,0x3
02ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ae 0f00 | | Execute_Immediate Equal,0x0
02af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b0 ; --------------------------------------------------------------------------------------
02b0 ; STRING TABLE
02b0 ; --------------------------------------------------------------------------------------
02b0 000e | | .STRTAB 0x000e->0x02b7 ; "Le "
02b1 000f | | .STRTAB 0x000f->0x02b8 ; " prend la plus grande brique (taille="
02b2 0032 | 2 | .STRTAB 0x0032->0x02cb ; ") du tas dans sa pince "
02b3 0047 | G | .STRTAB 0x0047->0x02d6 ; " va deposer la brique"
02b4 005a | Z | .STRTAB 0x005a->0x02e1 ; " depose la brique dans la case"
02b5 0076 | v | .STRTAB 0x0076->0x02f0 ; " se suicide (plus de briques)"
02b6 0091 | | .STREND 0x0091->0x02fe
02b7 4c65 2020 |Le | .STRTAB_STRINGS
02ff 0000 | | .XXX[0x1]
0300 ; --------------------------------------------------------------------------------------
0300 ; Debug Table
0300 ; --------------------------------------------------------------------------------------
0300 0004 0001 | | .DEBUG4 0x0004,0x0001,0x8a17,0x0000,0x0001,0x0013
0306 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
030a 001b 0352 | R| .DBG4T 0x001b,0x0352,0x8001,0x0000
030e 0043 0357 | C W| .DBG4T 0x0043,0x0357,0x0000,0x0000
0312 0046 035a | F Z| .DBG4T 0x0046,0x035a,0x0000,0x0000
0316 005b 0360 | [ `| .DBG4T 0x005b,0x0360,0x0001,0x4000
031a 006b 036a | k j| .DBG4T 0x006b,0x036a,0x0002,0x0000
031e 0083 0371 | q| .DBG4T 0x0083,0x0371,0x0001,0x4000
0322 0093 0375 | u| .DBG4T 0x0093,0x0375,0x0004,0x0000
0326 00fb 0386 | | .DBG4T 0x00fb,0x0386,0x0004,0x0000
032a 015b 0395 | [ | .DBG4T 0x015b,0x0395,0x0004,0x0000
032e 01e3 03ac | | .DBG4T 0x01e3,0x03ac,0x0004,0x0000
0332 0243 03bc | C | .DBG4T 0x0243,0x03bc,0x0002,0x0000
0336 0253 03bf | S | .DBG4T 0x0253,0x03bf,0x0002,0x0000
033a 0263 03c2 | c | .DBG4T 0x0263,0x03c2,0x0002,0x0000
033e 027b 03c5 | { | .DBG4T 0x027b,0x03c5,0x0002,0x0000
0342 0283 03c8 | | .DBG4T 0x0283,0x03c8,0x0002,0x0000
0346 0293 03cb | | .DBG4T 0x0293,0x03cb,0x0002,0x0000
034a 029b 03ce | | .DBG4T 0x029b,0x03ce,0x0002,0x0000
034e 02ab 03d1 | | .DBG4T 0x02ab,0x03d1,0x0002,0x0000
0352 ; --------------------------------------------------------------------------------------
0352 ; Debug chain
0352 ; --------------------------------------------------------------------------------------
0352 0002 0001 | | .DBGLEN 0x0002,0x0001
0354 001b 0021 | !| .DBGLNO 0x001b,0x0021,0x0039
0357 ; --------------------------------------------------------------------------------------
0357 ; Debug chain
0357 ; --------------------------------------------------------------------------------------
0357 0001 0000 | | .DBGLEN 0x0001,0x0000
0359 0043 | C | .DBGLNO 0x0043
035a ; --------------------------------------------------------------------------------------
035a ; Debug chain
035a ; --------------------------------------------------------------------------------------
035a 0004 0000 | | .DBGLEN 0x0004,0x0000
035c 0046 0050 | F P| .DBGLNO 0x0046,0x0050,0x0052,0x0054
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug chain
0360 ; --------------------------------------------------------------------------------------
0360 0000 0004 | | .DBGLEN 0x0000,0x0004
0362 005b 005d | [ ]| .DBGLNO 0x005b,0x005d,0x0060,0x0061
0366 0001 0002 | | .XXX[0x4]
0368 0004 0005 | |
036a ; --------------------------------------------------------------------------------------
036a ; Debug chain
036a ; --------------------------------------------------------------------------------------
036a 0000 0005 | | .DBGLEN 0x0000,0x0005
036c 0073 0074 | s t| .DBGLNO 0x0073,0x0074,0x0075,0x0076,0x0077
0371 ; --------------------------------------------------------------------------------------
0371 ; Debug chain
0371 ; --------------------------------------------------------------------------------------
0371 0000 0001 | | .DBGLEN 0x0000,0x0001
0373 0084 | | .DBGLNO 0x0084
0374 0002 | | .XXX[0x1]
0375 ; --------------------------------------------------------------------------------------
0375 ; Debug chain
0375 ; --------------------------------------------------------------------------------------
0375 0004 000b | | .DBGLEN 0x0004,0x000b
0377 0093 0095 | | .DBGLNO 0x0093,0x0095,0x0097,0x00a2,0x00ad,0x00b9,0x00c5,0x00cf,0x00d3,0x00d7,0x00db,0x00e0,0x00e4,0x00e9,0x00ed
0386 ; --------------------------------------------------------------------------------------
0386 ; Debug chain
0386 ; --------------------------------------------------------------------------------------
0386 0004 0009 | | .DBGLEN 0x0004,0x0009
0388 00fb 00fd | | .DBGLNO 0x00fb,0x00fd,0x00ff,0x010a,0x0115,0x0121,0x012d,0x0137,0x013b,0x0140,0x0144,0x0149,0x014d
0395 ; --------------------------------------------------------------------------------------
0395 ; Debug chain
0395 ; --------------------------------------------------------------------------------------
0395 0006 000f | | .DBGLEN 0x0006,0x000f
0397 015b 0161 | [ a| .DBGLNO 0x015b,0x0161,0x016b,0x016d,0x016f,0x017a,0x0185,0x0191,0x019d,0x01a7,0x01ab,0x01af,0x01b4,0x01ba,0x01bf,0x01c3,0x01c8,0x01cc,0x01d1,0x01d4,0x01d8
03ac ; --------------------------------------------------------------------------------------
03ac ; Debug chain
03ac ; --------------------------------------------------------------------------------------
03ac 0006 0008 | | .DBGLEN 0x0006,0x0008
03ae 01e3 01e9 | | .DBGLNO 0x01e3,0x01e9,0x01ee,0x01f0,0x01f2,0x01fd,0x0208,0x0214,0x0220,0x022a,0x022e,0x0233,0x0237,0x023a
03bc ; --------------------------------------------------------------------------------------
03bc ; Debug chain
03bc ; --------------------------------------------------------------------------------------
03bc 0000 0001 | | .DBGLEN 0x0000,0x0001
03be 0243 | C | .DBGLNO 0x0243
03bf ; --------------------------------------------------------------------------------------
03bf ; Debug chain
03bf ; --------------------------------------------------------------------------------------
03bf 0000 0001 | | .DBGLEN 0x0000,0x0001
03c1 0253 | S | .DBGLNO 0x0253
03c2 ; --------------------------------------------------------------------------------------
03c2 ; Debug chain
03c2 ; --------------------------------------------------------------------------------------
03c2 0000 0001 | | .DBGLEN 0x0000,0x0001
03c4 0263 | c | .DBGLNO 0x0263
03c5 ; --------------------------------------------------------------------------------------
03c5 ; Debug chain
03c5 ; --------------------------------------------------------------------------------------
03c5 0000 0001 | | .DBGLEN 0x0000,0x0001
03c7 027b | { | .DBGLNO 0x027b
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug chain
03c8 ; --------------------------------------------------------------------------------------
03c8 0000 0001 | | .DBGLEN 0x0000,0x0001
03ca 0283 | | .DBGLNO 0x0283
03cb ; --------------------------------------------------------------------------------------
03cb ; Debug chain
03cb ; --------------------------------------------------------------------------------------
03cb 0000 0001 | | .DBGLEN 0x0000,0x0001
03cd 0293 | | .DBGLNO 0x0293
03ce ; --------------------------------------------------------------------------------------
03ce ; Debug chain
03ce ; --------------------------------------------------------------------------------------
03ce 0000 0001 | | .DBGLEN 0x0000,0x0001
03d0 029b | | .DBGLNO 0x029b
03d1 ; --------------------------------------------------------------------------------------
03d1 ; Debug chain
03d1 ; --------------------------------------------------------------------------------------
03d1 0000 0001 | | .DBGLEN 0x0000,0x0001
03d3 02ab | | .DBGLNO 0x02ab
03d4 0000 0000 | | .BLANK 0000[0x2c]