|
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]