|
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_03c0fe, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 0248 | H | .CONST 0x0248 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0068 | h | .CONST 0x0068 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b 0093 0000 | | push_full_address 0x0 000d 608a |` | Indirect_Literal Discrete,0x98,{0x80000000, 0x00010000} 000e 0273 | s | Execute Discrete,Plus 000f 0129 | ) | Execute Any,Make_Visible 0010 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0012 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0014 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0016 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0018 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 001a 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 001c 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 001e 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0020 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0022 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0024 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0026 4802 |H | Short_Literal 0x2 0027 032b | + | Declare_Type Record,Incomplete,Visible 0028 00d8 | | Load_Top At_Offset_0 0029 02a0 | | Declare_Subprogram Null_Subprogram 002a 4818 |H | Short_Literal 0x18 002b 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 002c 00bf | | Action Accept_Activation 002d 0092 021a | | Action Push_String_Extended,0x21a ; "Duplicate item" 002f 0092 021b | | Action Push_String_Extended,0x21b ; "No such item." 0031 029b 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Unelaborated 0033 e002 | | Load 0x0,0x2 0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0035 e003 | | Load 0x0,0x3 0036 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 0038 4802 |H | Short_Literal 0x2 0039 032d | - | Declare_Type Record,Defined 003a e004 | | Load 0x0,0x4 003b e005 | | Load 0x0,0x5 003c 4864 |Hd | Short_Literal 0x64 003d e006 | | Load 0x0,0x6 003e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003f e21e | | Load 0x1,0x1e 0040 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0041 e007 | | Load 0x0,0x7 0042 0387 | | Declare_Variable Package 0043 00d8 | | Load_Top At_Offset_0 0044 020f | | Execute Module,Activate 0045 00d8 | | Load_Top At_Offset_0 0046 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0047 e006 | | Load 0x0,0x6 0048 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0049 02a0 | | Declare_Subprogram Null_Subprogram 004a e219 | | Load 0x1,0x19 004b 0326 | & | Complete_Type Record,By_Defining 004c e21a | | Load 0x1,0x1a 004d 03c4 | | Complete_Type Access,By_Component_Completion 004e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 004f 00c7 | | Action Elaborate_Subprogram 0050 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 0052 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0053 00c7 | | Action Elaborate_Subprogram 0054 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0055 00c7 | | Action Elaborate_Subprogram 0056 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0057 00c7 | | Action Elaborate_Subprogram 0058 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0059 00c7 | | Action Elaborate_Subprogram 005a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 005b 00c7 | | Action Elaborate_Subprogram 005c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005d 00c7 | | Action Elaborate_Subprogram 005e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 005f 00c7 | | Action Elaborate_Subprogram 0060 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0061 00c7 | | Action Elaborate_Subprogram 0062 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0063 00c7 | | Action Elaborate_Subprogram 0064 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0065 00c7 | | Action Elaborate_Subprogram 0066 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0067 00c7 | | Action Elaborate_Subprogram 0068 BODY_0008: 0068 00bc | | Action Signal_Activated 0069 00bb | | Action Signal_Completion 006a 0000 0000 | | .BLANK 0000[0x6] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 008d | | .CONST 0x008d ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 e5fd | | Load 0x2,-0x3 0074 0229 | ) | Execute Access,All_Read 0075 00d8 | | Load_Top At_Offset_0 0076 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0077 4801 |H | Short_Literal 0x1 0078 e21e | | Load 0x1,0x1e 0079 0322 | " | Declare_Variable Record 007a e5fe | | Load 0x2,-0x2 007b e21e | | Load 0x1,0x1e 007c 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 007d 0119 | | Execute Any,Check_In_Formal_Type 007e 00d9 | | Load_Top At_Offset_1 007f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0080 e5ff | | Load 0x2,-0x1 0081 e21e | | Load 0x1,0x1e 0082 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0083 0119 | | Execute Any,Check_In_Formal_Type 0084 00d9 | | Load_Top At_Offset_1 0085 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0086 e5ff | | Load 0x2,-0x1 0087 8008 | | Call 0x0,0x8 0088 e21f | | Load 0x1,0x1f 0089 1818 | | Execute Package,Field_Execute,Field_Number 0x18 008a 00d9 | | Load_Top At_Offset_1 008b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 008c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 008d TRAP_0070: 008d e21f | | Load 0x1,0x1f 008e 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 008f 010f | | Execute Exception,Equal 0090 6806 |h | Jump_Zero 0x97 0091 e5fc | | Load 0x2,-0x4 0092 e21b | | Load 0x1,0x1b 0093 e009 | | Load 0x0,0x9 0094 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0095 c5fc | | Store 0x2,-0x4 0096 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0097 0100 | | Execute Exception,Raise 0098 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 00ad | | .CONST 0x00ad ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 00db | | Load_Top At_Offset_3 00a4 0229 | ) | Execute Access,All_Read 00a5 00d8 | | Load_Top At_Offset_0 00a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a7 e5ff | | Load 0x2,-0x1 00a8 e21f | | Load 0x1,0x1f 00a9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00aa 00d9 | | Load_Top At_Offset_1 00ab 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ad TRAP_00a0: 00ad e21f | | Load 0x1,0x1f 00ae 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00af 010f | | Execute Exception,Equal 00b0 6806 |h | Jump_Zero 0xb7 00b1 e5fd | | Load 0x2,-0x3 00b2 e21c | | Load 0x1,0x1c 00b3 e009 | | Load 0x0,0x9 00b4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b5 c5fd | | Store 0x2,-0x3 00b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b7 0100 | | Execute Exception,Raise 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 00c3 | | .CONST 0x00c3 ; 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 e5fe | | Load 0x2,-0x2 00bd 0227 | ' | Execute Access,All_Reference 00be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00bf e21f | | Load 0x1,0x1f 00c0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c3 TRAP_00b8: 00c3 e21f | | Load 0x1,0x1f 00c4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00c5 010f | | Execute Exception,Equal 00c6 6802 |h | Jump_Zero 0xc9 00c7 e20d | | Load 0x1,0xd 00c8 0257 | W | Execute Discrete,Raise 00c9 0100 | | Execute Exception,Raise 00ca 0000 0000 | | .BLANK 0000[0x6] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 00dc | | .CONST 0x00dc ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 e5fe | | Load 0x2,-0x2 00d5 0227 | ' | Execute Access,All_Reference 00d6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d7 e21f | | Load 0x1,0x1f 00d8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00da c5fd | | Store 0x2,-0x3 00db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00dc TRAP_00d0: 00dc e21f | | Load 0x1,0x1f 00dd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00de 010f | | Execute Exception,Equal 00df 6802 |h | Jump_Zero 0xe2 00e0 e20d | | Load 0x1,0xd 00e1 0257 | W | Execute Discrete,Raise 00e2 0100 | | Execute Exception,Raise 00e3 0000 0000 | | .BLANK 0000[0x5] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00fb | | .CONST 0x00fb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0006 | | .CONST 0x0006 ; Number of locals 00eb INIT_00e8: 00eb e21f | | Load 0x1,0x1f 00ec 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00ed 0322 | " | Declare_Variable Record 00ee e003 | | Load 0x0,0x3 00ef 02c7 | | Declare_Variable Any 00f0 00d8 | | Load_Top At_Offset_0 00f1 1c00 | | Execute_Immediate Run_Utility,0x0 00f2 e006 | | Load 0x0,0x6 00f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f4 e002 | | Load 0x0,0x2 00f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f6 02c7 | | Declare_Variable Any 00f7 00d8 | | Load_Top At_Offset_0 00f8 1c00 | | Execute_Immediate Run_Utility,0x0 00f9 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 00fb BODY_00e8: 00fb e402 | | Load 0x2,0x2 00fc e5ff | | Load 0x2,-0x1 00fd 0227 | ' | Execute Access,All_Reference 00fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ff e21f | | Load 0x1,0x1f 0100 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0101 00d1 | | Pop_Control Pop_Count_1 0102 8406 | | Call 0x2,0x6 0103 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c 7007 |p | Jump_Nonzero 0x114 010d e21a | | Load 0x1,0x1a 010e 03bc | | Declare_Variable Access,By_Allocation 010f 003b | ; | Store_Top Access,At_Offset_3 0110 800a | | Call 0x0,0xa 0111 00db | | Load_Top At_Offset_3 0112 0227 | ' | Execute Access,All_Reference 0113 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0114 00da | | Load_Top At_Offset_2 0115 0229 | ) | Execute Access,All_Read 0116 e21f | | Load 0x1,0x1f 0117 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0118 4864 |Hd | Short_Literal 0x64 0119 e21f | | Load 0x1,0x1f 011a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 011b 00d9 | | Load_Top At_Offset_1 011c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 011d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 011e 0000 0000 | | .XXX[0x2] 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 e5f5 | | Load 0x2,-0xb 0124 0229 | ) | Execute Access,All_Read 0125 e5f4 | | Load 0x2,-0xc 0126 00d9 | | Load_Top At_Offset_1 0127 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0128 e5f6 | | Load 0x2,-0xa 0129 e5f7 | | Load 0x2,-0x9 012a e5f8 | | Load 0x2,-0x8 012b e5f9 | | Load 0x2,-0x7 012c e5fa | | Load 0x2,-0x6 012d e5fb | | Load 0x2,-0x5 012e e5fc | | Load 0x2,-0x4 012f e5fd | | Load 0x2,-0x3 0130 e5fe | | Load 0x2,-0x2 0131 e5ff | | Load 0x2,-0x1 0132 800b | | Call 0x0,0xb 0133 00da | | Load_Top At_Offset_2 0134 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0135 c5f4 | | Store 0x2,-0xc 0136 450b |E | Exit_Suprogram New_Top_Offset 0xb 0137 0000 | | .XXX[0x1] 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 e5f6 | | Load 0x2,-0xa 013c 0229 | ) | Execute Access,All_Read 013d e5f5 | | Load 0x2,-0xb 013e 00d9 | | Load_Top At_Offset_1 013f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0140 e5f7 | | Load 0x2,-0x9 0141 e5f8 | | Load 0x2,-0x8 0142 e5f9 | | Load 0x2,-0x7 0143 e5fa | | Load 0x2,-0x6 0144 e5fb | | Load 0x2,-0x5 0145 800c | | Call 0x0,0xc 0146 e5fc | | Load 0x2,-0x4 0147 e5fd | | Load 0x2,-0x3 0148 e5fe | | Load 0x2,-0x2 0149 e5ff | | Load 0x2,-0x1 014a 800b | | Call 0x0,0xb 014b 00da | | Load_Top At_Offset_2 014c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 014d c5f5 | | Store 0x2,-0xb 014e 450a |E | Exit_Suprogram New_Top_Offset 0xa 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 e5f5 | | Load 0x2,-0xb 0154 0229 | ) | Execute Access,All_Read 0155 e5f4 | | Load 0x2,-0xc 0156 00d9 | | Load_Top At_Offset_1 0157 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0158 e5f6 | | Load 0x2,-0xa 0159 e5f7 | | Load 0x2,-0x9 015a e5f8 | | Load 0x2,-0x8 015b e5f9 | | Load 0x2,-0x7 015c e5fa | | Load 0x2,-0x6 015d e5fb | | Load 0x2,-0x5 015e 800c | | Call 0x0,0xc 015f e5fc | | Load 0x2,-0x4 0160 e5fd | | Load 0x2,-0x3 0161 e5fe | | Load 0x2,-0x2 0162 e5ff | | Load 0x2,-0x1 0163 800d | | Call 0x0,0xd 0164 00da | | Load_Top At_Offset_2 0165 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0166 c5f4 | | Store 0x2,-0xc 0167 450b |E | Exit_Suprogram New_Top_Offset 0xb 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b e5f8 | | Load 0x2,-0x8 016c 0229 | ) | Execute Access,All_Read 016d e5f7 | | Load 0x2,-0x9 016e 00d9 | | Load_Top At_Offset_1 016f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0170 e5f9 | | Load 0x2,-0x7 0171 e5fa | | Load 0x2,-0x6 0172 e5fb | | Load 0x2,-0x5 0173 e5fc | | Load 0x2,-0x4 0174 e5fd | | Load 0x2,-0x3 0175 e5fe | | Load 0x2,-0x2 0176 e5ff | | Load 0x2,-0x1 0177 800e | | Call 0x0,0xe 0178 00da | | Load_Top At_Offset_2 0179 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 017a c5f7 | | Store 0x2,-0x9 017b 4508 |E | Exit_Suprogram New_Top_Offset 0x8 017c 0000 0000 | | .BLANK 0000[0x4] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0186 | | .CONST 0x0186 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 e006 | | Load 0x0,0x6 0184 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0185 060b | | Execute_Immediate Set_Value_Unchecked,0xb 0186 BODY_0180: 0186 e5fd | | Load 0x2,-0x3 0187 00d9 | | Load_Top At_Offset_1 0188 e00f | | Load 0x0,0xf 0189 e010 | | Load 0x0,0x10 018a e011 | | Load 0x0,0x11 018b 4804 |H | Short_Literal 0x4 018c e5ff | | Load 0x2,-0x1 018d 8012 | | Call 0x0,0x12 018e 8013 | | Call 0x0,0x13 018f 800e | | Call 0x0,0xe 0190 005a | Z | Store_Top Discrete,At_Offset_2 0191 c5fd | | Store 0x2,-0x3 0192 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0193 0000 0000 | | .BLANK 0000[0x5] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 4601 |F | Jump_Case 0x2 01a4 7801 |x | Jump 0x1a6 ; case 0x0 01a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01a6 00da | | Load_Top At_Offset_2 01a7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01a8 0125 | % | Execute Any,Set_Constraint 01a9 00da | | Load_Top At_Offset_2 01aa 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01ab 1c00 | | Execute_Immediate Run_Utility,0x0 01ac 00da | | Load_Top At_Offset_2 01ad 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01ae 0125 | % | Execute Any,Set_Constraint 01af 00da | | Load_Top At_Offset_2 01b0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01b1 1c00 | | Execute_Immediate Run_Utility,0x0 01b2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01b3 0000 0000 | | .BLANK 0000[0x5] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 0092 021c | | Action Push_String_Extended,0x21c ; "(Id: " 01bd 4820 |H | Short_Literal 0x20 01be 4805 |H | Short_Literal 0x5 01bf 480a |H | Short_Literal 0xa 01c0 e5ff | | Load 0x2,-0x1 01c1 e014 | | Load 0x0,0x14 01c2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01c3 01cc | | Execute Vector,Catenate 01c4 0092 021d | | Action Push_String_Extended,0x21d ; " Class: " 01c6 01cc | | Execute Vector,Catenate 01c7 e5fd | | Load 0x2,-0x3 01c8 e002 | | Load 0x0,0x2 01c9 180f | | Execute Package,Field_Execute,Field_Number 0xf 01ca 01cc | | Execute Vector,Catenate 01cb 0092 021e | | Action Push_String_Extended,0x21e ; " Item Class: " 01cd 01cc | | Execute Vector,Catenate 01ce e5fe | | Load 0x2,-0x2 01cf 8015 | | Call 0x0,0x15 01d0 e006 | | Load 0x0,0x6 01d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d2 011c | | Execute Any,Convert_Unchecked 01d3 1c01 | | Execute_Immediate Run_Utility,0x1 01d4 01cc | | Execute Vector,Catenate 01d5 0092 021f | | Action Push_String_Extended,0x21f ; " Task: " 01d7 01cc | | Execute Vector,Catenate 01d8 e5fe | | Load 0x2,-0x2 01d9 8016 | | Call 0x0,0x16 01da 8017 | | Call 0x0,0x17 01db 01cc | | Execute Vector,Catenate 01dc 0092 0220 | | Action Push_String_Extended,0x220 ; " " 01de 01cc | | Execute Vector,Catenate 01df e5fe | | Load 0x2,-0x2 01e0 8018 | | Call 0x0,0x18 01e1 e006 | | Load 0x0,0x6 01e2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01e3 011c | | Execute Any,Convert_Unchecked 01e4 1c01 | | Execute_Immediate Run_Utility,0x1 01e5 01cc | | Execute Vector,Catenate 01e6 0092 0221 | !| Action Push_String_Extended,0x221 ; ")" 01e8 01cc | | Execute Vector,Catenate 01e9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01ea 0000 0000 | | .BLANK 0000[0x6] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 e402 | | Load 0x2,0x2 01f4 e21f | | Load 0x1,0x1f 01f5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01f6 6802 |h | Jump_Zero 0x1f9 01f7 00ea | | Load_Encached Null_String_Cache 01f8 00ca | | Action Exit_Nullary_Function 01f9 e402 | | Load 0x2,0x2 01fa e21f | | Load 0x1,0x1f 01fb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01fc a404 | | Store_Unchecked 0x2,0x4 01fd e404 | | Load 0x2,0x4 01fe e5ff | | Load 0x2,-0x1 01ff 0227 | ' | Execute Access,All_Reference 0200 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0201 e21f | | Load 0x1,0x1f 0202 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0203 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0204 c405 | | Store 0x2,0x5 0205 e404 | | Load 0x2,0x4 0206 e5ff | | Load 0x2,-0x1 0207 0227 | ' | Execute Access,All_Reference 0208 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0209 e21f | | Load 0x1,0x1f 020a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 020b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 020c c403 | | Store 0x2,0x3 020d e402 | | Load 0x2,0x2 020e e21f | | Load 0x1,0x1f 020f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0210 00d1 | | Pop_Control Pop_Count_1 0211 480a |H | Short_Literal 0xa 0212 e405 | | Load 0x2,0x5 0213 e403 | | Load 0x2,0x3 0214 e404 | | Load 0x2,0x4 0215 8220 | | Call 0x1,0x20 0216 01cb | | Execute Vector,Append 0217 8406 | | Call 0x2,0x6 0218 01cc | | Execute Vector,Catenate 0219 00ca | | Action Exit_Nullary_Function 021a ; -------------------------------------------------------------------------------------- 021a ; STRING TABLE 021a ; -------------------------------------------------------------------------------------- 021a 0012 | | .STRTAB 0x0012->0x0223 ; "Duplicate item" 021b 001e | | .STRTAB 0x001e->0x022a ; "No such item." 021c 0029 | ) | .STRTAB 0x0029->0x0230 ; "(Id: " 021d 002c | , | .STRTAB 0x002c->0x0233 ; " Class: " 021e 0032 | 2 | .STRTAB 0x0032->0x0237 ; " Item Class: " 021f 003d | = | .STRTAB 0x003d->0x023d ; " Task: " 0220 0042 | B | .STRTAB 0x0042->0x0241 ; " " 0221 0041 | A | .STRTAB 0x0041->0x0241 ; ")" 0222 0040 | @ | .STREND 0x0040->0x0242 0223 4475 706c |Dupl| .STRTAB_STRINGS 0242 0000 0000 | | .BLANK 0000[0x6] 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug Table 0248 ; -------------------------------------------------------------------------------------- 0248 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1639,0x0000,0x0001,0x0000 024e 0000 0000 | | .BLANK 0000[0x1b2]