|
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 0278 | x | .CONST 0x0278 ; 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 00a2 | | .CONST 0x00a2 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0029 | ) | .CONST 0x0029 ; Number of locals 000b INIT_0008: 000b 4805 |H | Short_Literal 0x5 000c 032b | + | Declare_Type Record,Incomplete,Visible 000d 4801 |H | Short_Literal 0x1 000e 480a |H | Short_Literal 0xa 000f 00e9 | | Load_Encached String_Cache 0010 035c | \ | Declare_Type Array,Constrained,Visible 0011 4800 |H | Short_Literal 0x0 0012 4801 |H | Short_Literal 0x1 0013 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0015 03fe | | Declare_Type Discrete,Defined,Visible 0016 00e4 | | Load_Encached Positive_Cache 0017 0129 | ) | Execute Any,Make_Visible 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 002d c212 | | Store 0x1,0x12 002e 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0030 c213 | | Store 0x1,0x13 0031 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0033 c214 | | Store 0x1,0x14 0034 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0036 c215 | | Store 0x1,0x15 0037 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0039 c216 | | Store 0x1,0x16 003a 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 003c c217 | | Store 0x1,0x17 003d 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 003f c218 | | Store 0x1,0x18 0040 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0042 c221 | ! | Store 0x1,0x21 0043 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0045 c219 | | Store 0x1,0x19 0046 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0048 c21a | | Store 0x1,0x1a 0049 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 004b c21b | | Store 0x1,0x1b 004c 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 004e c21c | | Store 0x1,0x1c 004f 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0051 c222 | " | Store 0x1,0x22 0052 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0054 c21e | | Store 0x1,0x1e 0055 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0057 c223 | # | Store 0x1,0x23 0058 00e2 | | Load_Encached Integer_Cache 0059 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005a c21f | | Store 0x1,0x1f 005b e210 | | Load 0x1,0x10 005c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 005d c220 | | Store 0x1,0x20 005e e20e | | Load 0x1,0xe 005f e210 | | Load 0x1,0x10 0060 e20f | | Load 0x1,0xf 0061 00e1 | | Load_Encached Boolean_Cache 0062 00e2 | | Load_Encached Integer_Cache 0063 029f 024b | K| Declare_Subprogram INIT_0248,For_Call 0065 e20d | | Load 0x1,0xd 0066 0326 | & | Complete_Type Record,By_Defining 0067 00bf | | Action Accept_Activation 0068 e001 | | Load 0x0,0x1 0069 e002 | | Load 0x0,0x2 006a e20d | | Load 0x1,0xd 006b 0092 025c | \| Action Push_String_Extended,0x25c ; "ROBOTS " 006d e003 | | Load 0x0,0x3 006e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 006f 01c7 | | Execute Vector,Convert 0070 480a |H | Short_Literal 0xa 0071 e003 | | Load 0x0,0x3 0072 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0073 190f | | Execute Package,Field_Reference,Field_Number 0xf 0074 e003 | | Load 0x0,0x3 0075 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0076 0387 | | Declare_Variable Package 0077 00d8 | | Load_Top At_Offset_0 0078 020f | | Execute Module,Activate 0079 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 007a 00c7 | | Action Elaborate_Subprogram 007b 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 007c 00c7 | | Action Elaborate_Subprogram 007d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 007e 00c7 | | Action Elaborate_Subprogram 007f 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call 0081 e003 | | Load 0x0,0x3 0082 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0083 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0084 00c6 | | Action Check_Subprogram_Elaborated 0085 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0086 e004 | | Load 0x0,0x4 0087 e005 | | Load 0x0,0x5 0088 4800 |H | Short_Literal 0x0 0089 0007 | | Action Break_Optional 008a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 008b 00c7 | | Action Elaborate_Subprogram 008c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 008d 00c7 | | Action Elaborate_Subprogram 008e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 008f 00c7 | | Action Elaborate_Subprogram 0090 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0091 00c7 | | Action Elaborate_Subprogram 0092 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0093 00c7 | | Action Elaborate_Subprogram 0094 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0095 00c7 | | Action Elaborate_Subprogram 0096 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0097 00c7 | | Action Elaborate_Subprogram 0098 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0099 00c7 | | Action Elaborate_Subprogram 009a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 009b 00c7 | | Action Elaborate_Subprogram 009c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 009d 00c7 | | Action Elaborate_Subprogram 009e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00a1 00c7 | | Action Elaborate_Subprogram 00a2 BODY_0008: 00a2 00bc | | Action Signal_Activated 00a3 00bb | | Action Signal_Completion 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 4607 |F | Jump_Case 0x8 00ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00ad 7806 |x | Jump 0xb4 ; case 0x1 00ae 7809 |x | Jump 0xb8 ; case 0x2 00af 780d |x | Jump 0xbd ; case 0x3 00b0 7810 |x | Jump 0xc1 ; case 0x4 00b1 7811 |x | Jump 0xc3 ; case 0x5 00b2 7812 |x | Jump 0xc5 ; case 0x6 00b3 7815 |x | Jump 0xc9 ; case 0x7 00b4 00da | | Load_Top At_Offset_2 00b5 0091 025a | Z| Action Push_String_Extended_Indexed,0x25a ; "PRENDRE" 00b7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00b8 00db | | Load_Top At_Offset_3 00b9 00db | | Load_Top At_Offset_3 00ba 00e0 | | Load_Encached Standard_Cache 00bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00bd 00da | | Load_Top At_Offset_2 00be 00e0 | | Load_Encached Standard_Cache 00bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c1 00db | | Load_Top At_Offset_3 00c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c3 00db | | Load_Top At_Offset_3 00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c5 e20f | | Load 0x1,0xf 00c6 00dc | | Load_Top At_Offset_4 00c7 0267 | g | Execute Discrete,Predecessor 00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c9 e20f | | Load 0x1,0xf 00ca 00dc | | Load_Top At_Offset_4 00cb 0268 | h | Execute Discrete,Successor 00cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 e220 | | Load 0x1,0x20 00d4 0a01 | | Execute_Immediate Plus,0x1 00d5 c220 | | Store 0x1,0x20 00d6 e220 | | Load 0x1,0x20 00d7 0aff | | Execute_Immediate Plus,-0x1 00d8 00d8 | | Load_Top At_Offset_0 00d9 00e4 | | Load_Encached Positive_Cache 00da 0260 | ` | Execute Discrete,In_Type 00db 7001 |p | Jump_Nonzero 0xdd 00dc 0801 | | Execute_Immediate Raise,0x1 00dd 00ca | | Action Exit_Nullary_Function 00de 0000 0000 | | .XXX[0x2] 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 e224 | $ | Load 0x1,0x24 00e5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 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 e224 | $ | Load 0x1,0x24 00ed 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 e224 | $ | Load 0x1,0x24 00f5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00f6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00f7 0f00 | | Execute_Immediate Equal,0x0 00f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f9 0000 0000 | | .BLANK 0000[0x7] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 e224 | $ | Load 0x1,0x24 0105 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0106 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0107 0f01 | | Execute_Immediate Equal,0x1 0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 e224 | $ | Load 0x1,0x24 0115 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0116 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b e20d | | Load 0x1,0xd 011c 0322 | " | Declare_Variable Record 011d e20d | | Load 0x1,0xd 011e 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 011f 0337 | 7 | Declare_Variable Array 0120 4852 |HR | Short_Literal 0x52 0121 4801 |H | Short_Literal 0x1 0122 00da | | Load_Top At_Offset_2 0123 01d6 | | Execute Vector,Field_Write 0124 486f |Ho | Short_Literal 0x6f 0125 4802 |H | Short_Literal 0x2 0126 00da | | Load_Top At_Offset_2 0127 01d6 | | Execute Vector,Field_Write 0128 4862 |Hb | Short_Literal 0x62 0129 4803 |H | Short_Literal 0x3 012a 00da | | Load_Top At_Offset_2 012b 01d6 | | Execute Vector,Field_Write 012c 486f |Ho | Short_Literal 0x6f 012d 4804 |H | Short_Literal 0x4 012e 00da | | Load_Top At_Offset_2 012f 01d6 | | Execute Vector,Field_Write 0130 4874 |Ht | Short_Literal 0x74 0131 4805 |H | Short_Literal 0x5 0132 00da | | Load_Top At_Offset_2 0133 01d6 | | Execute Vector,Field_Write 0134 4820 |H | Short_Literal 0x20 0135 4806 |H | Short_Literal 0x6 0136 00da | | Load_Top At_Offset_2 0137 01d6 | | Execute Vector,Field_Write 0138 484e |HN | Short_Literal 0x4e 0139 4807 |H | Short_Literal 0x7 013a 00da | | Load_Top At_Offset_2 013b 01d6 | | Execute Vector,Field_Write 013c 486f |Ho | Short_Literal 0x6f 013d 4808 |H | Short_Literal 0x8 013e 00da | | Load_Top At_Offset_2 013f 01d6 | | Execute Vector,Field_Write 0140 4820 |H | Short_Literal 0x20 0141 4809 |H | Short_Literal 0x9 0142 00da | | Load_Top At_Offset_2 0143 01d6 | | Execute Vector,Field_Write 0144 4831 |H1 | Short_Literal 0x31 0145 480a |H | Short_Literal 0xa 0146 00da | | Load_Top At_Offset_2 0147 01d6 | | Execute Vector,Field_Write 0148 e20d | | Load 0x1,0xd 0149 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 014a 0119 | | Execute Any,Check_In_Formal_Type 014b 00d9 | | Load_Top At_Offset_1 014c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 014d 4801 |H | Short_Literal 0x1 014e 00d9 | | Load_Top At_Offset_1 014f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0150 4800 |H | Short_Literal 0x0 0151 00d9 | | Load_Top At_Offset_1 0152 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0153 4800 |H | Short_Literal 0x0 0154 00d9 | | Load_Top At_Offset_1 0155 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0156 4800 |H | Short_Literal 0x0 0157 00d9 | | Load_Top At_Offset_1 0158 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0159 e224 | $ | Load 0x1,0x24 015a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 015b e20d | | Load 0x1,0xd 015c 0322 | " | Declare_Variable Record 015d e20d | | Load 0x1,0xd 015e 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 015f 0337 | 7 | Declare_Variable Array 0160 4852 |HR | Short_Literal 0x52 0161 4801 |H | Short_Literal 0x1 0162 00da | | Load_Top At_Offset_2 0163 01d6 | | Execute Vector,Field_Write 0164 486f |Ho | Short_Literal 0x6f 0165 4802 |H | Short_Literal 0x2 0166 00da | | Load_Top At_Offset_2 0167 01d6 | | Execute Vector,Field_Write 0168 4862 |Hb | Short_Literal 0x62 0169 4803 |H | Short_Literal 0x3 016a 00da | | Load_Top At_Offset_2 016b 01d6 | | Execute Vector,Field_Write 016c 486f |Ho | Short_Literal 0x6f 016d 4804 |H | Short_Literal 0x4 016e 00da | | Load_Top At_Offset_2 016f 01d6 | | Execute Vector,Field_Write 0170 4874 |Ht | Short_Literal 0x74 0171 4805 |H | Short_Literal 0x5 0172 00da | | Load_Top At_Offset_2 0173 01d6 | | Execute Vector,Field_Write 0174 4820 |H | Short_Literal 0x20 0175 4806 |H | Short_Literal 0x6 0176 00da | | Load_Top At_Offset_2 0177 01d6 | | Execute Vector,Field_Write 0178 484e |HN | Short_Literal 0x4e 0179 4807 |H | Short_Literal 0x7 017a 00da | | Load_Top At_Offset_2 017b 01d6 | | Execute Vector,Field_Write 017c 486f |Ho | Short_Literal 0x6f 017d 4808 |H | Short_Literal 0x8 017e 00da | | Load_Top At_Offset_2 017f 01d6 | | Execute Vector,Field_Write 0180 4820 |H | Short_Literal 0x20 0181 4809 |H | Short_Literal 0x9 0182 00da | | Load_Top At_Offset_2 0183 01d6 | | Execute Vector,Field_Write 0184 4832 |H2 | Short_Literal 0x32 0185 480a |H | Short_Literal 0xa 0186 00da | | Load_Top At_Offset_2 0187 01d6 | | Execute Vector,Field_Write 0188 e20d | | Load 0x1,0xd 0189 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 018a 0119 | | Execute Any,Check_In_Formal_Type 018b 00d9 | | Load_Top At_Offset_1 018c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 018d 4801 |H | Short_Literal 0x1 018e 00d9 | | Load_Top At_Offset_1 018f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0190 4800 |H | Short_Literal 0x0 0191 00d9 | | Load_Top At_Offset_1 0192 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0193 4800 |H | Short_Literal 0x0 0194 00d9 | | Load_Top At_Offset_1 0195 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0196 4800 |H | Short_Literal 0x0 0197 00d9 | | Load_Top At_Offset_1 0198 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0199 e224 | $ | Load 0x1,0x24 019a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 019b 0092 025d | ]| Action Push_String_Extended,0x25d ; " Nb robots : " 019d e003 | | Load 0x0,0x3 019e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 019f e224 | $ | Load 0x1,0x24 01a0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01a1 e003 | | Load 0x0,0x3 01a2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01a3 0092 025e | ^| Action Push_String_Extended,0x25e ; " " 01a5 e003 | | Load 0x0,0x3 01a6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01af | | .CONST 0x01af ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0002 | | .CONST 0x0002 ; Number of locals 01ab INIT_01a8: 01ab e20d | | Load 0x1,0xd 01ac 0322 | " | Declare_Variable Record 01ad 00d8 | | Load_Top At_Offset_0 01ae 1c00 | | Execute_Immediate Run_Utility,0x0 01af BODY_01a8: 01af 00db | | Load_Top At_Offset_3 01b0 e224 | $ | Load 0x1,0x24 01b1 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01b2 00d9 | | Load_Top At_Offset_1 01b3 017d | } | Execute Record,Structure_Write 01b4 e5fe | | Load 0x2,-0x2 01b5 00d9 | | Load_Top At_Offset_1 01b6 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01b7 00d8 | | Load_Top At_Offset_0 01b8 e5ff | | Load 0x2,-0x1 01b9 e224 | $ | Load 0x1,0x24 01ba 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01bc 0000 0000 | | .BLANK 0000[0x4] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c7 | | .CONST 0x01c7 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 e20d | | Load 0x1,0xd 01c4 0322 | " | Declare_Variable Record 01c5 00d8 | | Load_Top At_Offset_0 01c6 1c00 | | Execute_Immediate Run_Utility,0x0 01c7 BODY_01c0: 01c7 00db | | Load_Top At_Offset_3 01c8 e224 | $ | Load 0x1,0x24 01c9 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01ca 00d9 | | Load_Top At_Offset_1 01cb 017d | } | Execute Record,Structure_Write 01cc e5fe | | Load 0x2,-0x2 01cd 00d9 | | Load_Top At_Offset_1 01ce 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01cf 00d8 | | Load_Top At_Offset_0 01d0 e5ff | | Load 0x2,-0x1 01d1 e224 | $ | Load 0x1,0x24 01d2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01d3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d4 0000 0000 | | .BLANK 0000[0x4] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01df | | .CONST 0x01df ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db e20d | | Load 0x1,0xd 01dc 0322 | " | Declare_Variable Record 01dd 00d8 | | Load_Top At_Offset_0 01de 1c00 | | Execute_Immediate Run_Utility,0x0 01df BODY_01d8: 01df 00db | | Load_Top At_Offset_3 01e0 e224 | $ | Load 0x1,0x24 01e1 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01e2 00d9 | | Load_Top At_Offset_1 01e3 017d | } | Execute Record,Structure_Write 01e4 e5fe | | Load 0x2,-0x2 01e5 00d9 | | Load_Top At_Offset_1 01e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01e7 00d8 | | Load_Top At_Offset_0 01e8 e5ff | | Load 0x2,-0x1 01e9 e224 | $ | Load 0x1,0x24 01ea 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f7 | | .CONST 0x01f7 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 e20d | | Load 0x1,0xd 01f4 0322 | " | Declare_Variable Record 01f5 00d8 | | Load_Top At_Offset_0 01f6 1c00 | | Execute_Immediate Run_Utility,0x0 01f7 BODY_01f0: 01f7 00db | | Load_Top At_Offset_3 01f8 e224 | $ | Load 0x1,0x24 01f9 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01fa 00d9 | | Load_Top At_Offset_1 01fb 017d | } | Execute Record,Structure_Write 01fc e5fe | | Load 0x2,-0x2 01fd 00d9 | | Load_Top At_Offset_1 01fe 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01ff 00d8 | | Load_Top At_Offset_0 0200 e5ff | | Load 0x2,-0x1 0201 e224 | $ | Load 0x1,0x24 0202 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0203 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c e224 | $ | Load 0x1,0x24 020d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 020e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020f 0000 | | .XXX[0x1] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 e224 | $ | Load 0x1,0x24 0215 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0216 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0217 e224 | $ | Load 0x1,0x24 0218 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0219 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 021a 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 021b e003 | | Load 0x0,0x3 021c 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 021d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 021e e224 | $ | Load 0x1,0x24 021f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0220 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0221 027f | | Execute Discrete,Equal 0222 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0223 0000 0000 | | .BLANK 0000[0x5] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b e21f | | Load 0x1,0x1f 022c 0a01 | | Execute_Immediate Plus,0x1 022d c21f | | Store 0x1,0x1f 022e e21f | | Load 0x1,0x1f 022f 00ca | | Action Exit_Nullary_Function 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 e224 | $ | Load 0x1,0x24 0234 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0235 00ca | | Action Exit_Nullary_Function 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c e224 | $ | Load 0x1,0x24 023d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 023e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 023f e5fe | | Load 0x2,-0x2 0240 e224 | $ | Load 0x1,0x24 0241 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0242 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0243 027c | | | Execute Discrete,Less 0244 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 4608 |F | Jump_Case 0x9 024c 7808 |x | Jump 0x255 ; case 0x0 024d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 024e 780a |x | Jump 0x259 ; case 0x2 024f 7809 |x | Jump 0x259 ; case 0x3 0250 7808 |x | Jump 0x259 ; case 0x4 0251 7807 |x | Jump 0x259 ; case 0x5 0252 7806 |x | Jump 0x259 ; case 0x6 0253 7805 |x | Jump 0x259 ; case 0x7 0254 7804 |x | Jump 0x259 ; case 0x8 0255 4800 |H | Short_Literal 0x0 0256 00db | | Load_Top At_Offset_3 0257 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0258 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0259 0869 | i | Execute_Immediate Raise,0x69 025a ; -------------------------------------------------------------------------------------- 025a ; STRING TABLE 025a ; -------------------------------------------------------------------------------------- 025a 000c | | .STRTAB 0x000c->0x0260 ; "PRENDRE" 025b 0011 | | .STRTAB 0x0011->0x0263 ; "DEPOSER" 025c 0016 | | .STRTAB 0x0016->0x0267 ; "ROBOTS " 025d 001e | | .STRTAB 0x001e->0x026c ; " Nb robots : " 025e 0029 | ) | .STRTAB 0x0029->0x0272 ; " " 025f 0028 | ( | .STREND 0x0028->0x0273 0260 5052 454e |PREN| .STRTAB_STRINGS 0273 0000 0000 | | .BLANK 0000[0x5] 0278 ; -------------------------------------------------------------------------------------- 0278 ; Debug Table 0278 ; -------------------------------------------------------------------------------------- 0278 0004 0001 | | .DEBUG4 0x0004,0x0001,0x8a18,0x0000,0x0001,0x0014 027e 000b 02ce | | .DBG4T 0x000b,0x02ce,0x8000,0x0000 0282 0068 02e6 | h | .DBG4T 0x0068,0x02e6,0x8000,0x0000 0286 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x0005,0x0000 028a 00d3 02fa | | .DBG4T 0x00d3,0x02fa,0x0002,0x0000 028e 00e3 02fe | | .DBG4T 0x00e3,0x02fe,0x0002,0x0000 0292 00eb 0301 | | .DBG4T 0x00eb,0x0301,0x0002,0x0000 0296 00f3 0304 | | .DBG4T 0x00f3,0x0304,0x0002,0x0000 029a 0103 0307 | | .DBG4T 0x0103,0x0307,0x0002,0x0000 029e 0113 030a | | .DBG4T 0x0113,0x030a,0x0002,0x0000 02a2 011b 030d | | .DBG4T 0x011b,0x030d,0x0001,0x0000 02a6 01ab 0314 | | .DBG4T 0x01ab,0x0314,0x0001,0x0000 02aa 01c3 031a | | .DBG4T 0x01c3,0x031a,0x0001,0x0000 02ae 01db 0320 | | .DBG4T 0x01db,0x0320,0x0001,0x0000 02b2 01f3 0326 | &| .DBG4T 0x01f3,0x0326,0x0001,0x0000 02b6 020b 032c | ,| .DBG4T 0x020b,0x032c,0x0001,0x0000 02ba 0213 032f | /| .DBG4T 0x0213,0x032f,0x0002,0x0000 02be 022b 0332 | + 2| .DBG4T 0x022b,0x0332,0x0002,0x0000 02c2 0233 0336 | 3 6| .DBG4T 0x0233,0x0336,0x0002,0x0000 02c6 023b 0339 | ; 9| .DBG4T 0x023b,0x0339,0x0002,0x0000 02ca 024b 0000 | K | .DBG4T 0x024b,0x0000,0x0005,0x0000 02ce ; -------------------------------------------------------------------------------------- 02ce ; Debug chain 02ce ; -------------------------------------------------------------------------------------- 02ce 0016 0000 | | .DBGLEN 0x0016,0x0000 02d0 000b 000d | | .DBGLNO 0x000b,0x000d,0x0011,0x0016,0x002b,0x002e,0x0031,0x0034,0x0037,0x003a,0x003d,0x0040,0x0043,0x0046,0x0049,0x004c,0x004f,0x0052,0x0055,0x0058,0x005b,0x005e 02e6 ; -------------------------------------------------------------------------------------- 02e6 ; Debug chain 02e6 ; -------------------------------------------------------------------------------------- 02e6 0012 0000 | | .DBGLEN 0x0012,0x0000 02e8 0068 0079 | h y| .DBGLNO 0x0068,0x0079,0x007b,0x007d,0x007f,0x0081,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0 02fa ; -------------------------------------------------------------------------------------- 02fa ; Debug chain 02fa ; -------------------------------------------------------------------------------------- 02fa 0000 0002 | | .DBGLEN 0x0000,0x0002 02fc 00d3 00d6 | | .DBGLNO 0x00d3,0x00d6 02fe ; -------------------------------------------------------------------------------------- 02fe ; Debug chain 02fe ; -------------------------------------------------------------------------------------- 02fe 0000 0001 | | .DBGLEN 0x0000,0x0001 0300 00e3 | | .DBGLNO 0x00e3 0301 ; -------------------------------------------------------------------------------------- 0301 ; Debug chain 0301 ; -------------------------------------------------------------------------------------- 0301 0000 0001 | | .DBGLEN 0x0000,0x0001 0303 00eb | | .DBGLNO 0x00eb 0304 ; -------------------------------------------------------------------------------------- 0304 ; Debug chain 0304 ; -------------------------------------------------------------------------------------- 0304 0000 0001 | | .DBGLEN 0x0000,0x0001 0306 00f3 | | .DBGLNO 0x00f3 0307 ; -------------------------------------------------------------------------------------- 0307 ; Debug chain 0307 ; -------------------------------------------------------------------------------------- 0307 0000 0001 | | .DBGLEN 0x0000,0x0001 0309 0103 | | .DBGLNO 0x0103 030a ; -------------------------------------------------------------------------------------- 030a ; Debug chain 030a ; -------------------------------------------------------------------------------------- 030a 0000 0001 | | .DBGLEN 0x0000,0x0001 030c 0113 | | .DBGLNO 0x0113 030d ; -------------------------------------------------------------------------------------- 030d ; Debug chain 030d ; -------------------------------------------------------------------------------------- 030d 0000 0005 | | .DBGLEN 0x0000,0x0005 030f 011b 015b | [| .DBGLNO 0x011b,0x015b,0x019b,0x019f,0x01a3 0314 ; -------------------------------------------------------------------------------------- 0314 ; Debug chain 0314 ; -------------------------------------------------------------------------------------- 0314 0001 0003 | | .DBGLEN 0x0001,0x0003 0316 01ab 01af | | .DBGLNO 0x01ab,0x01af,0x01b4,0x01b7 031a ; -------------------------------------------------------------------------------------- 031a ; Debug chain 031a ; -------------------------------------------------------------------------------------- 031a 0001 0003 | | .DBGLEN 0x0001,0x0003 031c 01c3 01c7 | | .DBGLNO 0x01c3,0x01c7,0x01cc,0x01cf 0320 ; -------------------------------------------------------------------------------------- 0320 ; Debug chain 0320 ; -------------------------------------------------------------------------------------- 0320 0001 0003 | | .DBGLEN 0x0001,0x0003 0322 01db 01df | | .DBGLNO 0x01db,0x01df,0x01e4,0x01e7 0326 ; -------------------------------------------------------------------------------------- 0326 ; Debug chain 0326 ; -------------------------------------------------------------------------------------- 0326 0001 0003 | | .DBGLEN 0x0001,0x0003 0328 01f3 01f7 | | .DBGLNO 0x01f3,0x01f7,0x01fc,0x01ff 032c ; -------------------------------------------------------------------------------------- 032c ; Debug chain 032c ; -------------------------------------------------------------------------------------- 032c 0000 0001 | | .DBGLEN 0x0000,0x0001 032e 020b | | .DBGLNO 0x020b 032f ; -------------------------------------------------------------------------------------- 032f ; Debug chain 032f ; -------------------------------------------------------------------------------------- 032f 0000 0001 | | .DBGLEN 0x0000,0x0001 0331 0213 | | .DBGLNO 0x0213 0332 ; -------------------------------------------------------------------------------------- 0332 ; Debug chain 0332 ; -------------------------------------------------------------------------------------- 0332 0000 0002 | | .DBGLEN 0x0000,0x0002 0334 022b 022e | + .| .DBGLNO 0x022b,0x022e 0336 ; -------------------------------------------------------------------------------------- 0336 ; Debug chain 0336 ; -------------------------------------------------------------------------------------- 0336 0000 0001 | | .DBGLEN 0x0000,0x0001 0338 0233 | 3 | .DBGLNO 0x0233 0339 ; -------------------------------------------------------------------------------------- 0339 ; Debug chain 0339 ; -------------------------------------------------------------------------------------- 0339 0000 0001 | | .DBGLEN 0x0000,0x0001 033b 023b | ; | .DBGLNO 0x023b 033c 0000 0000 | | .BLANK 0000[0xc4]