|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦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 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 | | PushFullAddress InMicrocode
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 For_Outer_Call,Visible,Unelaborated,INIT_0070
0012 029a 00a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a0
0014 029a 00bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b8
0016 029a 00d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d0
0018 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
001a 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
001c 029a 0123 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0120
001e 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
0020 029a 0153 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0150
0022 029a 016b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0168
0024 029a 0183 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0180
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 For_Outer_Call,Unelaborated,INIT_0198
0033 e002 | | Load 0x0,0x2
0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0035 e003 | | Load 0x0,0x3
0036 029f 01a3 | | Declare_Subprogram For_Call,INIT_01a0
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 For_Outer_Call,INIT_01b8
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Subprogram 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 For_Call,INIT_01f0
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_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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 0x1
01a4 7801 |x | Jump 0x1a6 ; case 0x0
01a5 4302 |C | Exit_Subprogram From_Utility,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,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_Result,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 5441 4e44 |TAND| .XXX[0x3e]
0250 4152 442e |ARD.|
0252 494e 5445 |INTE|
0254 4745 5200 |GER |
0256 0800 0000 | |
0258 0000 0000 | |
025a 0001 3990 | 9 |
025c 1c00 1641 | A|
025e 505f 5245 |P_RE|
0260 434f 5244 |CORD|
0262 535f 5550 |S_UP|
0264 5045 525f |PER_|
0266 4c49 4d49 |LIMI|
0268 5466 1700 |Tf |
026a 1053 5441 | STA|
026c 4e44 4152 |NDAR|
026e 442e 494e |D.IN|
0270 5445 4745 |TEGE|
0272 5200 0800 |R |
0274 0000 0000 | |
0276 0000 0014 | |
0278 3990 1c00 |9 |
027a 0d41 505f | AP_|
027c 5449 4d45 |TIME|
027e 5f46 4945 |_FIE|
0280 4c44 6617 |LDf |
0282 0010 5354 | ST|
0284 414e 4441 |ANDA|
0286 5244 2e49 |RD.I|
0288 4e54 4547 |NTEG|
028a 4552 0008 |ER |
028c 0000 0000 | | .BLANK 0000[0x4]
0290 0039 901c | 9 | .XXX[0x3d]
0292 0017 4150 | AP|
0294 5f41 5454 |_ATT|
0296 4143 4845 |ACHE|
0298 445f 4445 |D_DE|
029a 5441 494c |TAIL|
029c 5f54 4558 |_TEX|
029e 5466 1700 |Tf |
02a0 1053 5441 | STA|
02a2 4e44 4152 |NDAR|
02a4 442e 424f |D.BO|
02a6 4f4c 4541 |OLEA|
02a8 4e00 1600 |N |
02aa 1653 5441 | STA|
02ac 4e44 4152 |NDAR|
02ae 442e 424f |D.BO|
02b0 4f4c 4541 |OLEA|
02b2 4e2e 4641 |N.FA|
02b4 4c53 4539 |LSE9|
02b6 901c 0014 | |
02b8 4150 5f44 |AP_D|
02ba 4554 4149 |ETAI|
02bc 4c5f 5245 |L_RE|
02be 435f 4150 |C_AP|
02c0 504c 4943 |PLIC|
02c2 6617 0010 |f |
02c4 5354 414e |STAN|
02c6 4441 5244 |DARD|
02c8 2e49 4e54 |.INT|
02ca 4547 4552 |EGER|
02cc 0008 | |
02cd 0000 0000 | | .BLANK 0000[0x4]
02d1 0039 901c | 9 | .XXX[0x19]
02d3 0016 4150 | AP|
02d5 5f44 4554 |_DET|
02d7 4149 4c5f |AIL_|
02d9 5245 435f |REC_|
02db 464c 4147 |FLAG|
02dd 5f46 4c44 |_FLD|
02df 6617 0010 |f |
02e1 5354 414e |STAN|
02e3 4441 5244 |DARD|
02e5 2e49 4e54 |.INT|
02e7 4547 4552 |EGER|
02e9 0008 | |
02ea 0000 0000 | | .BLANK 0000[0x4]
02ee 0039 901c | 9 | .XXX[0x19]
02f0 0016 4150 | AP|
02f2 5f44 4554 |_DET|
02f4 4149 4c5f |AIL_|
02f6 5245 435f |REC_|
02f8 4c49 4e4b |LINK|
02fa 5f46 4c44 |_FLD|
02fc 6617 0010 |f |
02fe 5354 414e |STAN|
0300 4441 5244 |DARD|
0302 2e49 4e54 |.INT|
0304 4547 4552 |EGER|
0306 0008 | |
0307 0000 0000 | | .BLANK 0000[0x4]
030b 0039 901c | 9 | .XXX[0x15]
030d 000e 4150 | AP|
030f 5f43 5552 |_CUR|
0311 5245 4e54 |RENT|
0313 5f4b 4559 |_KEY|
0315 6617 0010 |f |
0317 5354 414e |STAN|
0319 4441 5244 |DARD|
031b 2e49 4e54 |.INT|
031d 4547 4552 |EGER|
031f 0008 | |
0320 0000 0000 | | .BLANK 0000[0x4]
0324 0139 901c | 9 | .XXX[0x14]
0326 000c 4150 | AP|
0328 5f50 5249 |_PRI|
032a 4f52 5f4b |OR_K|
032c 4559 6617 |EYf |
032e 0010 5354 | ST|
0330 414e 4441 |ANDA|
0332 5244 2e49 |RD.I|
0334 4e54 4547 |NTEG|
0336 4552 0008 |ER |
0338 0000 0000 | | .BLANK 0000[0x4]
033c 0139 901c | 9 | .XXX[0x32]
033e 0011 4150 | AP|
0340 5f4c 4153 |_LAS|
0342 545f 474f |T_GO|
0344 4f44 5f4e |OD_N|
0346 4b45 5966 |KEYf|
0348 1700 1053 | S|
034a 5441 4e44 |TAND|
034c 4152 442e |ARD.|
034e 494e 5445 |INTE|
0350 4745 5200 |GER |
0352 0800 0000 | |
0354 0000 0000 | |
0356 0001 3990 | 9 |
0358 1c00 1241 | A|
035a 505f 4c41 |P_LA|
035c 5354 5f53 |ST_S|
035e 4541 5243 |EARC|
0360 485f 4b45 |H_KE|
0362 5966 1700 |Yf |
0364 1053 5441 | STA|
0366 4e44 4152 |NDAR|
0368 442e 494e |D.IN|
036a 5445 4745 |TEGE|
036c 5200 0800 |R |
036e 0000 0000 | | .BLANK 0000[0x4]
0372 3990 1c00 |9 | .XXX[0x66]
0374 1041 505f | AP_|
0376 5345 4152 |SEAR|
0378 4348 5f46 |CH_F|
037a 4c44 5f4e |LD_N|
037c 4f66 1700 |Of |
037e 1053 5441 | STA|
0380 4e44 4152 |NDAR|
0382 442e 494e |D.IN|
0384 5445 4745 |TEGE|
0386 5200 0800 |R |
0388 0000 0000 | |
038a 0000 0002 | |
038c 3990 1c00 |9 |
038e 1041 505f | AP_|
0390 5345 4152 |SEAR|
0392 4348 5f53 |CH_S|
0394 5452 494e |TRIN|
0396 4766 1700 |Gf |
0398 0f53 5441 | STA|
039a 4e44 4152 |NDAR|
039c 442e 5354 |D.ST|
039e 5249 4e47 |RING|
03a0 6361 0800 |ca |
03a2 0000 0000 | |
03a4 0000 0001 | |
03a6 0800 0000 | |
03a8 0000 0000 | |
03aa 0050 01a7 | P |
03ac 8a61 0800 | a |
03ae 0000 0000 | |
03b0 0000 0001 | |
03b2 0800 0000 | |
03b4 0000 0000 | |
03b6 0050 0c00 | P |
03b8 1653 5441 | STA|
03ba 4e44 4152 |NDAR|
03bc 442e 4348 |D.CH|
03be 4152 4143 |ARAC|
03c0 5445 522e |TER.|
03c2 2720 2739 |' '9|
03c4 901c 000e | |
03c6 4150 5f53 |AP_S|
03c8 4541 5243 |EARC|
03ca 485f 5349 |H_SI|
03cc 5a45 6617 |ZEf |
03ce 0010 5354 | ST|
03d0 414e 4441 |ANDA|
03d2 5244 2e49 |RD.I|
03d4 4e54 4547 |NTEG|
03d6 4552 0008 |ER |
03d8 0000 0000 | | .BLANK 0000[0x4]
03dc 0039 901c | 9 | .XXX[0x24]
03de 0011 4150 | AP|
03e0 5f53 4541 |_SEA|
03e2 5243 485f |RCH_|
03e4 464c 445f |FLD_|
03e6 4e4f 3166 |NO1f|
03e8 1700 1053 | S|
03ea 5441 4e44 |TAND|
03ec 4152 442e |ARD.|
03ee 494e 5445 |INTE|
03f0 4745 5200 |GER |
03f2 0800 0000 | |
03f4 0000 0000 | |
03f6 0002 3990 | 9 |
03f8 1c00 1141 | A|
03fa 505f 5345 |P_SE|
03fc 4152 4348 |ARCH|
03fe 5f53 5452 |_STR|