|
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 0210 | | .CONST 0x0210 ; 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 006c | l | .CONST 0x006c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0025 | % | .CONST 0x0025 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 4800 |H | Short_Literal 0x0 000e 4802 |H | Short_Literal 0x2 000f 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 0011 03fe | | Declare_Type Discrete,Defined,Visible 0012 4800 |H | Short_Literal 0x0 0013 4802 |H | Short_Literal 0x2 0014 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0016 03fe | | Declare_Type Discrete,Defined,Visible 0017 00e4 | | Load_Encached Positive_Cache 0018 0129 | ) | Execute Any,Make_Visible 0019 e001 | | Load 0x0,0x1 001a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001b 0129 | ) | Execute Any,Make_Visible 001c 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 001e 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0020 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0022 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0024 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0026 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0028 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 002a 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 002c 00bf | | Action Accept_Activation 002d e20d | | Load 0x1,0xd 002e e20e | | Load 0x1,0xe 002f e20f | | Load 0x1,0xf 0030 e210 | | Load 0x1,0x10 0031 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 0033 4804 |H | Short_Literal 0x4 0034 032d | - | Declare_Type Record,Defined 0035 e002 | | Load 0x0,0x2 0036 e003 | | Load 0x0,0x3 0037 00da | | Load_Top At_Offset_2 0038 0092 01eb | | Action Push_String_Extended,0x1eb ; "BRIQUES " 003a e001 | | Load 0x0,0x1 003b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003c 01c7 | | Execute Vector,Convert 003d 48c8 |H | Short_Literal 0xc8 003e e001 | | Load 0x0,0x1 003f 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0040 190f | | Execute Package,Field_Reference,Field_Number 0xf 0041 e001 | | Load 0x0,0x1 0042 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0043 0387 | | Declare_Variable Package 0044 00d8 | | Load_Top At_Offset_0 0045 020f | | Execute Module,Activate 0046 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0047 00c7 | | Action Elaborate_Subprogram 0048 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0049 00c7 | | Action Elaborate_Subprogram 004a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004b 00c7 | | Action Elaborate_Subprogram 004c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004d 00c7 | | Action Elaborate_Subprogram 004e 1d19 | | Execute_Immediate Reference_Lex_1,0x19 004f 00c7 | | Action Elaborate_Subprogram 0050 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0051 00c7 | | Action Elaborate_Subprogram 0052 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0053 00c7 | | Action Elaborate_Subprogram 0054 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 0056 e001 | | Load 0x0,0x1 0057 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0058 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0059 00c6 | | Action Check_Subprogram_Elaborated 005a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 005b e004 | | Load 0x0,0x4 005c e005 | | Load 0x0,0x5 005d 4800 |H | Short_Literal 0x0 005e 0007 | | Action Break_Optional 005f 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call 0061 e001 | | Load 0x0,0x1 0062 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0063 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0064 00c6 | | Action Check_Subprogram_Elaborated 0065 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0066 e006 | | Load 0x0,0x6 0067 e007 | | Load 0x0,0x7 0068 4800 |H | Short_Literal 0x0 0069 0007 | | Action Break_Optional 006a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 006b 00c7 | | Action Elaborate_Subprogram 006c BODY_0008: 006c 00bc | | Action Signal_Activated 006d 00bb | | Action Signal_Completion 006e 0000 0000 | | .XXX[0x2] 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 4607 |F | Jump_Case 0x8 0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0075 7806 |x | Jump 0x7c ; case 0x1 0076 7809 |x | Jump 0x80 ; case 0x2 0077 780d |x | Jump 0x85 ; case 0x3 0078 7810 |x | Jump 0x89 ; case 0x4 0079 7811 |x | Jump 0x8b ; case 0x5 007a 7812 |x | Jump 0x8d ; case 0x6 007b 7815 |x | Jump 0x91 ; case 0x7 007c 00da | | Load_Top At_Offset_2 007d 0091 01e5 | | Action Push_String_Extended_Indexed,0x1e5 ; "ROSE" 007f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0080 00db | | Load_Top At_Offset_3 0081 00db | | Load_Top At_Offset_3 0082 00e0 | | Load_Encached Standard_Cache 0083 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0085 00da | | Load_Top At_Offset_2 0086 00e0 | | Load_Encached Standard_Cache 0087 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0089 00db | | Load_Top At_Offset_3 008a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008b 00db | | Load_Top At_Offset_3 008c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008d e20e | | Load 0x1,0xe 008e 00dc | | Load_Top At_Offset_4 008f 0267 | g | Execute Discrete,Predecessor 0090 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0091 e20e | | Load 0x1,0xe 0092 00dc | | Load_Top At_Offset_4 0093 0268 | h | Execute Discrete,Successor 0094 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 4607 |F | Jump_Case 0x8 009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 009d 7806 |x | Jump 0xa4 ; case 0x1 009e 7809 |x | Jump 0xa8 ; case 0x2 009f 780d |x | Jump 0xad ; case 0x3 00a0 7810 |x | Jump 0xb1 ; case 0x4 00a1 7811 |x | Jump 0xb3 ; case 0x5 00a2 7812 |x | Jump 0xb5 ; case 0x6 00a3 7815 |x | Jump 0xb9 ; case 0x7 00a4 00da | | Load_Top At_Offset_2 00a5 0091 01e8 | | Action Push_String_Extended_Indexed,0x1e8 ; "TAS" 00a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00a8 00db | | Load_Top At_Offset_3 00a9 00db | | Load_Top At_Offset_3 00aa 00e0 | | Load_Encached Standard_Cache 00ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ad 00da | | Load_Top At_Offset_2 00ae 00e0 | | Load_Encached Standard_Cache 00af 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00b1 00db | | Load_Top At_Offset_3 00b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b3 00db | | Load_Top At_Offset_3 00b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b5 e20f | | Load 0x1,0xf 00b6 00dc | | Load_Top At_Offset_4 00b7 0267 | g | Execute Discrete,Predecessor 00b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b9 e20f | | Load 0x1,0xf 00ba 00dc | | Load_Top At_Offset_4 00bb 0268 | h | Execute Discrete,Successor 00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e21b | | Load 0x1,0x1b 00c4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c5 00ca | | Action Exit_Nullary_Function 00c6 0000 0000 | | .XXX[0x2] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc e21b | | Load 0x1,0x1b 00cd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00cf e5fe | | Load 0x2,-0x2 00d0 027f | | Execute Discrete,Equal 00d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00d2 0000 0000 | | .BLANK 0000[0x6] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc e21b | | Load 0x1,0x1b 00dd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 00e4 e21b | | Load 0x1,0x1b 00e5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00e6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec e21b | | Load 0x1,0x1b 00ed 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ef 4800 |H | Short_Literal 0x0 00f0 e21b | | Load 0x1,0x1b 00f1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00f2 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00f3 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00f4 e001 | | Load 0x0,0x1 00f5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00f6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00f7 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00f8 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00f9 e001 | | Load 0x0,0x1 00fa 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00fb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00fc e21b | | Load 0x1,0x1b 00fd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ff 027f | | Execute Discrete,Equal 0100 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0101 0000 0000 | | .BLANK 0000[0x7] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010f | | .CONST 0x010f ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b e21a | | Load 0x1,0x1a 010c 0322 | " | Declare_Variable Record 010d 00d8 | | Load_Top At_Offset_0 010e 1c00 | | Execute_Immediate Run_Utility,0x0 010f BODY_0108: 010f 00db | | Load_Top At_Offset_3 0110 e21b | | Load 0x1,0x1b 0111 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0112 00d9 | | Load_Top At_Offset_1 0113 017d | } | Execute Record,Structure_Write 0114 e5fe | | Load 0x2,-0x2 0115 00d9 | | Load_Top At_Offset_1 0116 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0117 00d8 | | Load_Top At_Offset_0 0118 e5ff | | Load 0x2,-0x1 0119 e21b | | Load 0x1,0x1b 011a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 011b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0127 | ' | .CONST 0x0127 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0002 | | .CONST 0x0002 ; Number of locals 0123 INIT_0120: 0123 e21a | | Load 0x1,0x1a 0124 0322 | " | Declare_Variable Record 0125 00d8 | | Load_Top At_Offset_0 0126 1c00 | | Execute_Immediate Run_Utility,0x0 0127 BODY_0120: 0127 00db | | Load_Top At_Offset_3 0128 e21b | | Load 0x1,0x1b 0129 1820 | | Execute Package,Field_Execute,Field_Number 0x20 012a 00d9 | | Load_Top At_Offset_1 012b 017d | } | Execute Record,Structure_Write 012c e5fe | | Load 0x2,-0x2 012d 00d9 | | Load_Top At_Offset_1 012e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 012f 00d8 | | Load_Top At_Offset_0 0130 e5ff | | Load 0x2,-0x1 0131 e21b | | Load 0x1,0x1b 0132 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0133 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0134 0000 0000 | | .BLANK 0000[0x4] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b e21a | | Load 0x1,0x1a 013c 0322 | " | Declare_Variable Record 013d 4864 |Hd | Short_Literal 0x64 013e 00d9 | | Load_Top At_Offset_1 013f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0140 4801 |H | Short_Literal 0x1 0141 00d9 | | Load_Top At_Offset_1 0142 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0143 4800 |H | Short_Literal 0x0 0144 00d9 | | Load_Top At_Offset_1 0145 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0146 4801 |H | Short_Literal 0x1 0147 00d9 | | Load_Top At_Offset_1 0148 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0149 e21b | | Load 0x1,0x1b 014a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 014b e21a | | Load 0x1,0x1a 014c 0322 | " | Declare_Variable Record 014d 48c8 |H | Short_Literal 0xc8 014e 00d9 | | Load_Top At_Offset_1 014f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0150 4802 |H | Short_Literal 0x2 0151 00d9 | | Load_Top At_Offset_1 0152 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0153 4800 |H | Short_Literal 0x0 0154 00d9 | | Load_Top At_Offset_1 0155 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0156 4801 |H | Short_Literal 0x1 0157 00d9 | | Load_Top At_Offset_1 0158 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0159 e21b | | Load 0x1,0x1b 015a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 015b e21a | | Load 0x1,0x1a 015c 0322 | " | Declare_Variable Record 015d 492c |I, | Short_Literal 0x12c 015e 00d9 | | Load_Top At_Offset_1 015f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0160 4800 |H | Short_Literal 0x0 0161 00d9 | | Load_Top At_Offset_1 0162 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0163 4800 |H | Short_Literal 0x0 0164 00d9 | | Load_Top At_Offset_1 0165 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0166 4801 |H | Short_Literal 0x1 0167 00d9 | | Load_Top At_Offset_1 0168 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0169 e21b | | Load 0x1,0x1b 016a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 016b e21a | | Load 0x1,0x1a 016c 0322 | " | Declare_Variable Record 016d 4805 |H | Short_Literal 0x5 016e 00d9 | | Load_Top At_Offset_1 016f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0170 4802 |H | Short_Literal 0x2 0171 00d9 | | Load_Top At_Offset_1 0172 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0173 4800 |H | Short_Literal 0x0 0174 00d9 | | Load_Top At_Offset_1 0175 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0176 4801 |H | Short_Literal 0x1 0177 00d9 | | Load_Top At_Offset_1 0178 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0179 e21b | | Load 0x1,0x1b 017a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 017b e21a | | Load 0x1,0x1a 017c 0322 | " | Declare_Variable Record 017d 4896 |H | Short_Literal 0x96 017e 00d9 | | Load_Top At_Offset_1 017f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0180 4801 |H | Short_Literal 0x1 0181 00d9 | | Load_Top At_Offset_1 0182 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0183 4800 |H | Short_Literal 0x0 0184 00d9 | | Load_Top At_Offset_1 0185 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0186 4801 |H | Short_Literal 0x1 0187 00d9 | | Load_Top At_Offset_1 0188 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0189 e21b | | Load 0x1,0x1b 018a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 018b e21a | | Load 0x1,0x1a 018c 0322 | " | Declare_Variable Record 018d 480f |H | Short_Literal 0xf 018e 00d9 | | Load_Top At_Offset_1 018f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0190 4801 |H | Short_Literal 0x1 0191 00d9 | | Load_Top At_Offset_1 0192 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0193 4800 |H | Short_Literal 0x0 0194 00d9 | | Load_Top At_Offset_1 0195 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0196 4801 |H | Short_Literal 0x1 0197 00d9 | | Load_Top At_Offset_1 0198 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0199 e21b | | Load 0x1,0x1b 019a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 019b 0092 01ec | | Action Push_String_Extended,0x1ec ; " " 019d e001 | | Load 0x0,0x1 019e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 019f 0092 01ed | | Action Push_String_Extended,0x1ed ; " Nb briques : " 01a1 e001 | | Load 0x0,0x1 01a2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01a3 e21b | | Load 0x1,0x1b 01a4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01a5 e001 | | Load 0x0,0x1 01a6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01a7 0092 01ee | | Action Push_String_Extended,0x1ee ; " " 01a9 e001 | | Load 0x0,0x1 01aa 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 4608 |F | Jump_Case 0x9 01b4 7808 |x | Jump 0x1bd ; case 0x0 01b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01b6 7810 |x | Jump 0x1c7 ; case 0x2 01b7 780f |x | Jump 0x1c7 ; case 0x3 01b8 780e |x | Jump 0x1c7 ; case 0x4 01b9 780d |x | Jump 0x1c7 ; case 0x5 01ba 780c |x | Jump 0x1c7 ; case 0x6 01bb 780b |x | Jump 0x1c7 ; case 0x7 01bc 780a |x | Jump 0x1c7 ; case 0x8 01bd 4801 |H | Short_Literal 0x1 01be 00db | | Load_Top At_Offset_3 01bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c0 4800 |H | Short_Literal 0x0 01c1 00db | | Load_Top At_Offset_3 01c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01c3 4800 |H | Short_Literal 0x0 01c4 00db | | Load_Top At_Offset_3 01c5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01c6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01c7 0869 | i | Execute_Immediate Raise,0x69 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 00da | | Load_Top At_Offset_2 01cc e21b | | Load 0x1,0x1b 01cd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01cf 0f00 | | Execute_Immediate Equal,0x0 01d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d1 0000 0000 | | .BLANK 0000[0x7] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc e21b | | Load 0x1,0x1b 01dd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01df e5fe | | Load 0x2,-0x2 01e0 e21b | | Load 0x1,0x1b 01e1 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e3 027d | } | Execute Discrete,Greater 01e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e5 ; -------------------------------------------------------------------------------------- 01e5 ; STRING TABLE 01e5 ; -------------------------------------------------------------------------------------- 01e5 0016 | | .STRTAB 0x0016->0x01f0 ; "ROSE" 01e6 0018 | | .STRTAB 0x0018->0x01f2 ; "GRISE" 01e7 001b | | .STRTAB 0x001b->0x01f4 ; "BLANCHE" 01e8 0020 | | .STRTAB 0x0020->0x01f8 ; "TAS" 01e9 0021 | ! | .STRTAB 0x0021->0x01f9 ; "PINCE" 01ea 0024 | $ | .STRTAB 0x0024->0x01fc ; "BOITE" 01eb 0027 | ' | .STRTAB 0x0027->0x01fe ; "BRIQUES " 01ec 002f | / | .STRTAB 0x002f->0x0203 ; " " 01ed 002e | . | .STRTAB 0x002e->0x0204 ; " Nb briques : " 01ee 003a | : | .STRTAB 0x003a->0x020b ; " " 01ef 003a | : | .STREND 0x003a->0x020c 01f0 524f 5345 |ROSE| .STRTAB_STRINGS 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; Debug Table 0210 ; -------------------------------------------------------------------------------------- 0210 0004 0001 | | .DEBUG4 0x0004,0x0001,0x8a10,0x0000,0x0001,0x000f 0216 000b 0252 | R| .DBG4T 0x000b,0x0252,0x8000,0x0000 021a 002d 0261 | - a| .DBG4T 0x002d,0x0261,0x8000,0x0000 021e 0073 0000 | s | .DBG4T 0x0073,0x0000,0x0005,0x0000 0222 009b 0000 | | .DBG4T 0x009b,0x0000,0x0005,0x0000 0226 00c3 0271 | q| .DBG4T 0x00c3,0x0271,0x0002,0x0000 022a 00cb 0274 | t| .DBG4T 0x00cb,0x0274,0x0002,0x0000 022e 00db 0277 | w| .DBG4T 0x00db,0x0277,0x0002,0x0000 0232 00e3 027a | z| .DBG4T 0x00e3,0x027a,0x0002,0x0000 0236 00eb 027d | }| .DBG4T 0x00eb,0x027d,0x0002,0x0000 023a 010b 0280 | | .DBG4T 0x010b,0x0280,0x0001,0x0000 023e 0123 0286 | # | .DBG4T 0x0123,0x0286,0x0001,0x0000 0242 013b 028c | ; | .DBG4T 0x013b,0x028c,0x0001,0x0000 0246 01b3 0000 | | .DBG4T 0x01b3,0x0000,0x0005,0x0000 024a 01cb 0298 | | .DBG4T 0x01cb,0x0298,0x0002,0x0000 024e 01db 029b | | .DBG4T 0x01db,0x029b,0x0002,0x0000 0252 ; -------------------------------------------------------------------------------------- 0252 ; Debug chain 0252 ; -------------------------------------------------------------------------------------- 0252 000d 0000 | | .DBGLEN 0x000d,0x0000 0254 000b 000d | | .DBGLNO 0x000b,0x000d,0x0012,0x0017,0x0019,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a 0261 ; -------------------------------------------------------------------------------------- 0261 ; Debug chain 0261 ; -------------------------------------------------------------------------------------- 0261 000e 0000 | | .DBGLEN 0x000e,0x0000 0263 002d 0035 | - 5| .DBGLNO 0x002d,0x0035,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x005f,0x0061,0x006a 0271 ; -------------------------------------------------------------------------------------- 0271 ; Debug chain 0271 ; -------------------------------------------------------------------------------------- 0271 0000 0001 | | .DBGLEN 0x0000,0x0001 0273 00c3 | | .DBGLNO 0x00c3 0274 ; -------------------------------------------------------------------------------------- 0274 ; Debug chain 0274 ; -------------------------------------------------------------------------------------- 0274 0000 0001 | | .DBGLEN 0x0000,0x0001 0276 00cb | | .DBGLNO 0x00cb 0277 ; -------------------------------------------------------------------------------------- 0277 ; Debug chain 0277 ; -------------------------------------------------------------------------------------- 0277 0000 0001 | | .DBGLEN 0x0000,0x0001 0279 00db | | .DBGLNO 0x00db 027a ; -------------------------------------------------------------------------------------- 027a ; Debug chain 027a ; -------------------------------------------------------------------------------------- 027a 0000 0001 | | .DBGLEN 0x0000,0x0001 027c 00e3 | | .DBGLNO 0x00e3 027d ; -------------------------------------------------------------------------------------- 027d ; Debug chain 027d ; -------------------------------------------------------------------------------------- 027d 0000 0001 | | .DBGLEN 0x0000,0x0001 027f 00eb | | .DBGLNO 0x00eb 0280 ; -------------------------------------------------------------------------------------- 0280 ; Debug chain 0280 ; -------------------------------------------------------------------------------------- 0280 0001 0003 | | .DBGLEN 0x0001,0x0003 0282 010b 010f | | .DBGLNO 0x010b,0x010f,0x0114,0x0117 0286 ; -------------------------------------------------------------------------------------- 0286 ; Debug chain 0286 ; -------------------------------------------------------------------------------------- 0286 0001 0003 | | .DBGLEN 0x0001,0x0003 0288 0123 0127 | # '| .DBGLNO 0x0123,0x0127,0x012c,0x012f 028c ; -------------------------------------------------------------------------------------- 028c ; Debug chain 028c ; -------------------------------------------------------------------------------------- 028c 0000 000a | | .DBGLEN 0x0000,0x000a 028e 013b 014b | ; K| .DBGLNO 0x013b,0x014b,0x015b,0x016b,0x017b,0x018b,0x019b,0x019f,0x01a3,0x01a7 0298 ; -------------------------------------------------------------------------------------- 0298 ; Debug chain 0298 ; -------------------------------------------------------------------------------------- 0298 0000 0001 | | .DBGLEN 0x0000,0x0001 029a 01cb | | .DBGLNO 0x01cb 029b ; -------------------------------------------------------------------------------------- 029b ; Debug chain 029b ; -------------------------------------------------------------------------------------- 029b 0000 0001 | | .DBGLEN 0x0000,0x0001 029d 01db | | .DBGLNO 0x01db 029e 0000 0000 | | .BLANK 0000[0x162]