|
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 01e0 | | .CONST 0x01e0 ; 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 0061 | a | .CONST 0x0061 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 0129 | ) | Execute Any,Make_Visible 000e 4801 |H | Short_Literal 0x1 000f 480a |H | Short_Literal 0xa 0010 00e9 | | Load_Encached String_Cache 0011 035c | \ | Declare_Type Array,Constrained,Visible 0012 4800 |H | Short_Literal 0x0 0013 4801 |H | Short_Literal 0x1 0014 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 0016 03fe | | Declare_Type Discrete,Defined,Visible 0017 00e4 | | Load_Encached Positive_Cache 0018 0129 | ) | Execute Any,Make_Visible 0019 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 001b 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 001d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 001f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0021 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0023 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0025 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0027 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0029 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 002b 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 002d 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 002f 00bf | | Action Accept_Activation 0030 e210 | | Load 0x1,0x10 0031 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0032 e20e | | Load 0x1,0xe 0033 e210 | | Load 0x1,0x10 0034 e20f | | Load 0x1,0xf 0035 00e1 | | Load_Encached Boolean_Cache 0036 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 0038 4804 |H | Short_Literal 0x4 0039 032d | - | Declare_Type Record,Defined 003a e002 | | Load 0x0,0x2 003b e003 | | Load 0x0,0x3 003c 00da | | Load_Top At_Offset_2 003d 0092 01c4 | | Action Push_String_Extended,0x1c4 ; "ROBOTS " 003f e001 | | Load 0x0,0x1 0040 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0041 01c7 | | Execute Vector,Convert 0042 480a |H | Short_Literal 0xa 0043 e001 | | Load 0x0,0x1 0044 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0045 190f | | Execute Package,Field_Reference,Field_Number 0xf 0046 e001 | | Load 0x0,0x1 0047 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0048 0387 | | Declare_Variable Package 0049 00d8 | | Load_Top At_Offset_0 004a 020f | | Execute Module,Activate 004b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 004c 00c7 | | Action Elaborate_Subprogram 004d 1d16 | | Execute_Immediate Reference_Lex_1,0x16 004e 00c7 | | Action Elaborate_Subprogram 004f 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0050 00c7 | | Action Elaborate_Subprogram 0051 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0052 00c7 | | Action Elaborate_Subprogram 0053 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0054 00c7 | | Action Elaborate_Subprogram 0055 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0056 00c7 | | Action Elaborate_Subprogram 0057 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0058 00c7 | | Action Elaborate_Subprogram 0059 1d18 | | Execute_Immediate Reference_Lex_1,0x18 005a 00c7 | | Action Elaborate_Subprogram 005b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 005c 00c7 | | Action Elaborate_Subprogram 005d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 005e 00c7 | | Action Elaborate_Subprogram 005f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0060 00c7 | | Action Elaborate_Subprogram 0061 BODY_0008: 0061 00bc | | Action Signal_Activated 0062 00bb | | Action Signal_Completion 0063 0000 0000 | | .BLANK 0000[0x5] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4607 |F | Jump_Case 0x8 006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 006d 7806 |x | Jump 0x74 ; case 0x1 006e 7809 |x | Jump 0x78 ; case 0x2 006f 780d |x | Jump 0x7d ; case 0x3 0070 7810 |x | Jump 0x81 ; case 0x4 0071 7811 |x | Jump 0x83 ; case 0x5 0072 7812 |x | Jump 0x85 ; case 0x6 0073 7815 |x | Jump 0x89 ; case 0x7 0074 00da | | Load_Top At_Offset_2 0075 0091 01c2 | | Action Push_String_Extended_Indexed,0x1c2 ; "PRENDRE" 0077 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0078 00db | | Load_Top At_Offset_3 0079 00db | | Load_Top At_Offset_3 007a 00e0 | | Load_Encached Standard_Cache 007b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 007c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007d 00da | | Load_Top At_Offset_2 007e 00e0 | | Load_Encached Standard_Cache 007f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0080 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0081 00db | | Load_Top At_Offset_3 0082 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0083 00db | | Load_Top At_Offset_3 0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0085 e20f | | Load 0x1,0xf 0086 00dc | | Load_Top At_Offset_4 0087 0267 | g | Execute Discrete,Predecessor 0088 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0089 e20f | | Load 0x1,0xf 008a 00dc | | Load_Top At_Offset_4 008b 0268 | h | Execute Discrete,Successor 008c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 e21e | | Load 0x1,0x1e 0094 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0095 00ca | | Action Exit_Nullary_Function 0096 0000 0000 | | .XXX[0x2] 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 e21c | | Load 0x1,0x1c 009c 0a01 | | Execute_Immediate Plus,0x1 009d c21c | | Store 0x1,0x1c 009e e21c | | Load 0x1,0x1c 009f 0aff | | Execute_Immediate Plus,-0x1 00a0 00d8 | | Load_Top At_Offset_0 00a1 00e4 | | Load_Encached Positive_Cache 00a2 0260 | ` | Execute Discrete,In_Type 00a3 7001 |p | Jump_Nonzero 0xa5 00a4 0801 | | Execute_Immediate Raise,0x1 00a5 00ca | | Action Exit_Nullary_Function 00a6 0000 0000 | | .XXX[0x2] 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 00da | | Load_Top At_Offset_2 00ac e21e | | Load 0x1,0x1e 00ad 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 00b4 e21e | | Load 0x1,0x1e 00b5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 00da | | Load_Top At_Offset_2 00bc e21e | | Load 0x1,0x1e 00bd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00be 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 00c4 e21e | | Load 0x1,0x1e 00c5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00c6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c7 e5fe | | Load 0x2,-0x2 00c8 027f | | Execute Discrete,Equal 00c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ca 0000 0000 | | .BLANK 0000[0x6] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d7 | | .CONST 0x00d7 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 e21d | | Load 0x1,0x1d 00d4 0322 | " | Declare_Variable Record 00d5 00d8 | | Load_Top At_Offset_0 00d6 1c00 | | Execute_Immediate Run_Utility,0x0 00d7 BODY_00d0: 00d7 00db | | Load_Top At_Offset_3 00d8 e21e | | Load 0x1,0x1e 00d9 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00da 00d9 | | Load_Top At_Offset_1 00db 017d | } | Execute Record,Structure_Write 00dc e5fe | | Load 0x2,-0x2 00dd 00d9 | | Load_Top At_Offset_1 00de 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00df 00d8 | | Load_Top At_Offset_0 00e0 e5ff | | Load 0x2,-0x1 00e1 e21e | | Load 0x1,0x1e 00e2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00e3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00ef | | .CONST 0x00ef ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0002 | | .CONST 0x0002 ; Number of locals 00eb INIT_00e8: 00eb e21d | | Load 0x1,0x1d 00ec 0322 | " | Declare_Variable Record 00ed 00d8 | | Load_Top At_Offset_0 00ee 1c00 | | Execute_Immediate Run_Utility,0x0 00ef BODY_00e8: 00ef 00db | | Load_Top At_Offset_3 00f0 e21e | | Load 0x1,0x1e 00f1 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00f2 00d9 | | Load_Top At_Offset_1 00f3 017d | } | Execute Record,Structure_Write 00f4 e5fe | | Load 0x2,-0x2 00f5 00d9 | | Load_Top At_Offset_1 00f6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00f7 00d8 | | Load_Top At_Offset_0 00f8 e5ff | | Load 0x2,-0x1 00f9 e21e | | Load 0x1,0x1e 00fa 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0107 | | .CONST 0x0107 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 e21d | | Load 0x1,0x1d 0104 0322 | " | Declare_Variable Record 0105 00d8 | | Load_Top At_Offset_0 0106 1c00 | | Execute_Immediate Run_Utility,0x0 0107 BODY_0100: 0107 00db | | Load_Top At_Offset_3 0108 e21e | | Load 0x1,0x1e 0109 1820 | | Execute Package,Field_Execute,Field_Number 0x20 010a 00d9 | | Load_Top At_Offset_1 010b 017d | } | Execute Record,Structure_Write 010c e5fe | | Load 0x2,-0x2 010d 00d9 | | Load_Top At_Offset_1 010e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 010f 00d8 | | Load_Top At_Offset_0 0110 e5ff | | Load 0x2,-0x1 0111 e21e | | Load 0x1,0x1e 0112 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0113 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0114 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 011c e21e | | Load 0x1,0x1e 011d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 011e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011f 0000 | | .XXX[0x1] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 e21d | | Load 0x1,0x1d 0124 0322 | " | Declare_Variable Record 0125 e21d | | Load 0x1,0x1d 0126 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0127 0337 | 7 | Declare_Variable Array 0128 4852 |HR | Short_Literal 0x52 0129 4801 |H | Short_Literal 0x1 012a 00da | | Load_Top At_Offset_2 012b 01d6 | | Execute Vector,Field_Write 012c 486f |Ho | Short_Literal 0x6f 012d 4802 |H | Short_Literal 0x2 012e 00da | | Load_Top At_Offset_2 012f 01d6 | | Execute Vector,Field_Write 0130 4862 |Hb | Short_Literal 0x62 0131 4803 |H | Short_Literal 0x3 0132 00da | | Load_Top At_Offset_2 0133 01d6 | | Execute Vector,Field_Write 0134 486f |Ho | Short_Literal 0x6f 0135 4804 |H | Short_Literal 0x4 0136 00da | | Load_Top At_Offset_2 0137 01d6 | | Execute Vector,Field_Write 0138 4874 |Ht | Short_Literal 0x74 0139 4805 |H | Short_Literal 0x5 013a 00da | | Load_Top At_Offset_2 013b 01d6 | | Execute Vector,Field_Write 013c 4820 |H | Short_Literal 0x20 013d 4806 |H | Short_Literal 0x6 013e 00da | | Load_Top At_Offset_2 013f 01d6 | | Execute Vector,Field_Write 0140 484e |HN | Short_Literal 0x4e 0141 4807 |H | Short_Literal 0x7 0142 00da | | Load_Top At_Offset_2 0143 01d6 | | Execute Vector,Field_Write 0144 486f |Ho | Short_Literal 0x6f 0145 4808 |H | Short_Literal 0x8 0146 00da | | Load_Top At_Offset_2 0147 01d6 | | Execute Vector,Field_Write 0148 4820 |H | Short_Literal 0x20 0149 4809 |H | Short_Literal 0x9 014a 00da | | Load_Top At_Offset_2 014b 01d6 | | Execute Vector,Field_Write 014c 4831 |H1 | Short_Literal 0x31 014d 480a |H | Short_Literal 0xa 014e 00da | | Load_Top At_Offset_2 014f 01d6 | | Execute Vector,Field_Write 0150 e21d | | Load 0x1,0x1d 0151 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0152 0119 | | Execute Any,Check_In_Formal_Type 0153 00d9 | | Load_Top At_Offset_1 0154 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0155 4801 |H | Short_Literal 0x1 0156 00d9 | | Load_Top At_Offset_1 0157 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0158 4800 |H | Short_Literal 0x0 0159 00d9 | | Load_Top At_Offset_1 015a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 015b 4800 |H | Short_Literal 0x0 015c 00d9 | | Load_Top At_Offset_1 015d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 015e e21e | | Load 0x1,0x1e 015f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0160 e21d | | Load 0x1,0x1d 0161 0322 | " | Declare_Variable Record 0162 e21d | | Load 0x1,0x1d 0163 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0164 0337 | 7 | Declare_Variable Array 0165 4852 |HR | Short_Literal 0x52 0166 4801 |H | Short_Literal 0x1 0167 00da | | Load_Top At_Offset_2 0168 01d6 | | Execute Vector,Field_Write 0169 486f |Ho | Short_Literal 0x6f 016a 4802 |H | Short_Literal 0x2 016b 00da | | Load_Top At_Offset_2 016c 01d6 | | Execute Vector,Field_Write 016d 4862 |Hb | Short_Literal 0x62 016e 4803 |H | Short_Literal 0x3 016f 00da | | Load_Top At_Offset_2 0170 01d6 | | Execute Vector,Field_Write 0171 486f |Ho | Short_Literal 0x6f 0172 4804 |H | Short_Literal 0x4 0173 00da | | Load_Top At_Offset_2 0174 01d6 | | Execute Vector,Field_Write 0175 4874 |Ht | Short_Literal 0x74 0176 4805 |H | Short_Literal 0x5 0177 00da | | Load_Top At_Offset_2 0178 01d6 | | Execute Vector,Field_Write 0179 4820 |H | Short_Literal 0x20 017a 4806 |H | Short_Literal 0x6 017b 00da | | Load_Top At_Offset_2 017c 01d6 | | Execute Vector,Field_Write 017d 484e |HN | Short_Literal 0x4e 017e 4807 |H | Short_Literal 0x7 017f 00da | | Load_Top At_Offset_2 0180 01d6 | | Execute Vector,Field_Write 0181 486f |Ho | Short_Literal 0x6f 0182 4808 |H | Short_Literal 0x8 0183 00da | | Load_Top At_Offset_2 0184 01d6 | | Execute Vector,Field_Write 0185 4820 |H | Short_Literal 0x20 0186 4809 |H | Short_Literal 0x9 0187 00da | | Load_Top At_Offset_2 0188 01d6 | | Execute Vector,Field_Write 0189 4832 |H2 | Short_Literal 0x32 018a 480a |H | Short_Literal 0xa 018b 00da | | Load_Top At_Offset_2 018c 01d6 | | Execute Vector,Field_Write 018d e21d | | Load 0x1,0x1d 018e 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 018f 0119 | | Execute Any,Check_In_Formal_Type 0190 00d9 | | Load_Top At_Offset_1 0191 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0192 4801 |H | Short_Literal 0x1 0193 00d9 | | Load_Top At_Offset_1 0194 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0195 4800 |H | Short_Literal 0x0 0196 00d9 | | Load_Top At_Offset_1 0197 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0198 4800 |H | Short_Literal 0x0 0199 00d9 | | Load_Top At_Offset_1 019a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 019b e21e | | Load 0x1,0x1e 019c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 019d 0092 01c5 | | Action Push_String_Extended,0x1c5 ; " Nb robots : " 019f e001 | | Load 0x0,0x1 01a0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01a1 e21e | | Load 0x1,0x1e 01a2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01a3 e001 | | Load 0x0,0x1 01a4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01a5 0092 01c6 | | Action Push_String_Extended,0x1c6 ; " " 01a7 e001 | | Load 0x0,0x1 01a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01aa 0000 0000 | | .BLANK 0000[0x6] 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 780a |x | Jump 0x1c1 ; case 0x2 01b7 7809 |x | Jump 0x1c1 ; case 0x3 01b8 7808 |x | Jump 0x1c1 ; case 0x4 01b9 7807 |x | Jump 0x1c1 ; case 0x5 01ba 7806 |x | Jump 0x1c1 ; case 0x6 01bb 7805 |x | Jump 0x1c1 ; case 0x7 01bc 7804 |x | Jump 0x1c1 ; case 0x8 01bd 4800 |H | Short_Literal 0x0 01be 00db | | Load_Top At_Offset_3 01bf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01c0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01c1 0869 | i | Execute_Immediate Raise,0x69 01c2 ; -------------------------------------------------------------------------------------- 01c2 ; STRING TABLE 01c2 ; -------------------------------------------------------------------------------------- 01c2 000c | | .STRTAB 0x000c->0x01c8 ; "PRENDRE" 01c3 0011 | | .STRTAB 0x0011->0x01cb ; "DEPOSER" 01c4 0016 | | .STRTAB 0x0016->0x01cf ; "ROBOTS " 01c5 001e | | .STRTAB 0x001e->0x01d4 ; " Nb robots : " 01c6 0029 | ) | .STRTAB 0x0029->0x01da ; " " 01c7 0028 | ( | .STREND 0x0028->0x01db 01c8 5052 454e |PREN| .STRTAB_STRINGS 01db 0000 0000 | | .BLANK 0000[0x5] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; Debug Table 01e0 ; -------------------------------------------------------------------------------------- 01e0 0004 0001 | | .DEBUG4 0x0004,0x0001,0x8a1a,0x0000,0x0001,0x000f 01e6 000b 0222 | "| .DBG4T 0x000b,0x0222,0x8000,0x0000 01ea 0030 0233 | 0 3| .DBG4T 0x0030,0x0233,0x8000,0x0000 01ee 006b 0000 | k | .DBG4T 0x006b,0x0000,0x0005,0x0000 01f2 0093 0243 | C| .DBG4T 0x0093,0x0243,0x0002,0x0000 01f6 009b 0246 | F| .DBG4T 0x009b,0x0246,0x0002,0x0000 01fa 00ab 024a | J| .DBG4T 0x00ab,0x024a,0x0002,0x0000 01fe 00b3 024d | M| .DBG4T 0x00b3,0x024d,0x0002,0x0000 0202 00bb 0250 | P| .DBG4T 0x00bb,0x0250,0x0002,0x0000 0206 00c3 0253 | S| .DBG4T 0x00c3,0x0253,0x0002,0x0000 020a 00d3 0256 | V| .DBG4T 0x00d3,0x0256,0x0001,0x0000 020e 00eb 025c | \| .DBG4T 0x00eb,0x025c,0x0001,0x0000 0212 0103 0262 | b| .DBG4T 0x0103,0x0262,0x0001,0x0000 0216 011b 0268 | h| .DBG4T 0x011b,0x0268,0x0001,0x0000 021a 0123 026b | # k| .DBG4T 0x0123,0x026b,0x0001,0x0000 021e 01b3 0000 | | .DBG4T 0x01b3,0x0000,0x0005,0x0000 0222 ; -------------------------------------------------------------------------------------- 0222 ; Debug chain 0222 ; -------------------------------------------------------------------------------------- 0222 000f 0000 | | .DBGLEN 0x000f,0x0000 0224 000b 000e | | .DBGLNO 0x000b,0x000e,0x0012,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d 0233 ; -------------------------------------------------------------------------------------- 0233 ; Debug chain 0233 ; -------------------------------------------------------------------------------------- 0233 000e 0000 | | .DBGLEN 0x000e,0x0000 0235 0030 0032 | 0 2| .DBGLNO 0x0030,0x0032,0x003a,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f 0243 ; -------------------------------------------------------------------------------------- 0243 ; Debug chain 0243 ; -------------------------------------------------------------------------------------- 0243 0000 0001 | | .DBGLEN 0x0000,0x0001 0245 0093 | | .DBGLNO 0x0093 0246 ; -------------------------------------------------------------------------------------- 0246 ; Debug chain 0246 ; -------------------------------------------------------------------------------------- 0246 0000 0002 | | .DBGLEN 0x0000,0x0002 0248 009b 009e | | .DBGLNO 0x009b,0x009e 024a ; -------------------------------------------------------------------------------------- 024a ; Debug chain 024a ; -------------------------------------------------------------------------------------- 024a 0000 0001 | | .DBGLEN 0x0000,0x0001 024c 00ab | | .DBGLNO 0x00ab 024d ; -------------------------------------------------------------------------------------- 024d ; Debug chain 024d ; -------------------------------------------------------------------------------------- 024d 0000 0001 | | .DBGLEN 0x0000,0x0001 024f 00b3 | | .DBGLNO 0x00b3 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug chain 0250 ; -------------------------------------------------------------------------------------- 0250 0000 0001 | | .DBGLEN 0x0000,0x0001 0252 00bb | | .DBGLNO 0x00bb 0253 ; -------------------------------------------------------------------------------------- 0253 ; Debug chain 0253 ; -------------------------------------------------------------------------------------- 0253 0000 0001 | | .DBGLEN 0x0000,0x0001 0255 00c3 | | .DBGLNO 0x00c3 0256 ; -------------------------------------------------------------------------------------- 0256 ; Debug chain 0256 ; -------------------------------------------------------------------------------------- 0256 0001 0003 | | .DBGLEN 0x0001,0x0003 0258 00d3 00d7 | | .DBGLNO 0x00d3,0x00d7,0x00dc,0x00df 025c ; -------------------------------------------------------------------------------------- 025c ; Debug chain 025c ; -------------------------------------------------------------------------------------- 025c 0001 0003 | | .DBGLEN 0x0001,0x0003 025e 00eb 00ef | | .DBGLNO 0x00eb,0x00ef,0x00f4,0x00f7 0262 ; -------------------------------------------------------------------------------------- 0262 ; Debug chain 0262 ; -------------------------------------------------------------------------------------- 0262 0001 0003 | | .DBGLEN 0x0001,0x0003 0264 0103 0107 | | .DBGLNO 0x0103,0x0107,0x010c,0x010f 0268 ; -------------------------------------------------------------------------------------- 0268 ; Debug chain 0268 ; -------------------------------------------------------------------------------------- 0268 0000 0001 | | .DBGLEN 0x0000,0x0001 026a 011b | | .DBGLNO 0x011b 026b ; -------------------------------------------------------------------------------------- 026b ; Debug chain 026b ; -------------------------------------------------------------------------------------- 026b 0000 0005 | | .DBGLEN 0x0000,0x0005 026d 0123 0160 | # `| .DBGLNO 0x0123,0x0160,0x019d,0x01a1,0x01a5 0272 0000 0000 | | .BLANK 0000[0x18e]