|
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_03bcfe
└─⟦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 | | 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 0000 0000 | | .XXX[0x4]
0250 000e 91e0 | |
0252 0000 0000 | | .BLANK 0000[0x4]
0256 0010 86c0 | | .XXX[0x2]
0258 0000 0000 | | .BLANK 0000[0x8]
0260 0010 dca0 | | .XXX[0x4]
0262 0011 6c80 | l |
0264 0000 0000 | | .BLANK 0000[0x6]
026a 0012 a540 | @| .XXX[0xa]
026c 0013 6f00 | o |
026e 0014 99c0 | |
0270 0000 0000 | |
0272 0014 f6a0 | |
0274 0000 0000 | | .BLANK 0000[0x4]
0278 0015 5380 | S | .XXX[0x2]
027a 0000 0000 | | .BLANK 0000[0xa]
0284 0017 4d60 | M`| .XXX[0x10]
0286 0000 0000 | |
0288 0017 ae40 | @|
028a 0000 0000 | |
028c 0018 0f20 | |
028e 0019 1d00 | |
0290 0019 7fe0 | |
0292 0019 e0c0 | |
0294 0000 0000 | | .BLANK 0000[0xa]
029e 001d cb80 | | .XXX[0x22]
02a0 0000 0000 | |
02a2 001e 2d60 | -`|
02a4 001e 8f40 | @|
02a6 0000 0000 | |
02a8 001e f020 | |
02aa 001f 6100 | a |
02ac 0020 4ae0 | J |
02ae 0020 abc0 | |
02b0 0000 0000 | |
02b2 0021 0ca0 | ! |
02b4 0021 a880 | ! |
02b6 0022 1760 | " `|
02b8 0022 4540 | "E@|
02ba 0023 bd20 | # |
02bc 0000 0000 | |
02be 0024 8ee0 | $ |
02c0 0000 0000 | | .BLANK 0000[0x8]
02c8 0024 eac0 | $ | .XXX[0x10]
02ca 0025 b8a0 | % |
02cc 0027 4080 | '@ |
02ce 0028 0f60 | ( `|
02d0 0028 4e40 | (N@|
02d2 002b 6120 | +a |
02d4 0000 0000 | |
02d6 002d 1a00 | - |
02d8 0000 0000 | | .BLANK 0000[0x6]
02de 002f 29e0 | /) | .XXX[0x2]
02e0 0000 0000 | | .BLANK 0000[0x6]
02e6 0030 93c0 | 0 | .XXX[0x4]
02e8 0030 f3a0 | 0 |
02ea 0000 0000 | | .BLANK 0000[0x4]
02ee 0031 4880 | 1H | .XXX[0x2]
02f0 0000 0000 | | .BLANK 0000[0x4]
02f4 0031 a860 | 1 `| .XXX[0x12]
02f6 0032 0440 | 2 @|
02f8 0000 0000 | |
02fa 0032 6420 | 2d |
02fc 0033 3000 | 30 |
02fe 0036 22e0 | 6" |
0300 0039 3780 | 97 |
0302 0039 9560 | 9 `|
0304 003a 0320 | : |
0306 0000 0000 | | .BLANK 0000[0x4]
030a 003a 5f00 | :_ | .XXX[0xf6]
030c 003a 95e0 | : |
030e 0000 0000 | |
0310 003a ccc0 | : |
0312 0000 0000 | |
0314 003b 55a0 | ;U |
0316 0000 0020 | |
0318 0000 04e0 | |
031a 046a 89e9 | j |
031c a84a 6a89 | Jj |
031e e9c8 abea | |
0320 682a c8a8 |h* |
0322 8bea 6a88 | j |
0324 2a88 abea |* |
0326 48aa c625 |H %|
0328 ca8a 486b | Hk|
032a e929 c8c9 | ) |
032c e7cf 8000 | |
032e 0000 0000 | |
0330 000c 4000 | @ |
0332 0000 4000 | @ |
0334 0009 c008 | |
0336 d513 d350 | P|
0338 94d5 13d3 | |
033a 9157 d4d0 | W |
033c 5591 5117 |U Q |
033e d4d5 1055 | U|
0340 1157 d491 | W |
0342 558c 4b94 |U K |
0344 d154 57d2 | TW |
0346 5391 93cf |S |
0348 9f00 0004 | |
034a 3580 0000 |5 |
034c 1080 0000 | |
034e 0080 0000 | |
0350 da80 18aa | |
0352 27a6 a129 |' )|
0354 aa27 a722 | ' "|
0356 afa9 a0ab | |
0358 22a2 2fa9 |" / |
035a aa20 aa22 | "|
035c afa9 22ab | " |
035e 1897 2a27 | *'|
0360 a6a1 29aa | ) |
0362 27a7 22af |' " |
0364 a422 a0a2 | " |
0366 22a9 1729 |" )|
0368 aa20 aa22 | "|
036a 9dcc b91c | |
036c c80e 0001 | |
036e a922 ab33 | " 3|
0370 0b80 05aa | |
0372 aa24 a617 | $ |
0374 212c aa22 |!, "|
0376 af99 0000 | |
0378 1cc8 0e00 | |
037a 02ab 20a6 | |
037c 24a2 330b |$ 3 |
037e 8005 aaaa | |
0380 24a6 1721 |$ !|
0382 2caa 22af |, " |
0384 9900 001c | |
0386 c80e 0004 | |
0388 a4a7 a82f | /|
038a a9aa 20a9 | |
038c 2a33 0b80 |*3 |
038e 05aa aa24 | $|
0390 a617 212c | !,|
0392 aa22 af99 | " |
0394 0000 1cc8 | |
0396 0e00 0529 | )|
0398 a0ab 22af | " |
039a a9aa 20a9 | |
039c 2a33 0b80 |*3 |
039e 05aa aa24 | $|
03a0 a617 212c | !,|
03a2 aa22 af99 | " |
03a4 0000 1cc8 | |
03a6 0e00 04a9 | |
03a8 22a3 afa9 |" |
03aa aa20 a92a | *|
03ac 330b 8005 |3 |
03ae aaaa 24a6 | $ |
03b0 1721 2caa | !, |
03b2 22af 9900 |" |
03b4 001c c80e | |
03b6 0005 2329 | #)|
03b8 22a2 afa9 |" |
03ba aa20 a92a | *|
03bc 330b 8005 |3 |
03be aaaa 24a6 | $ |
03c0 1721 2caa | !, |
03c2 22af 9900 |" |
03c4 001c c80e | |
03c6 0002 2a24 | *$|
03c8 a6a2 b30b | |
03ca 801b 2a27 | *'|
03cc a6a1 29aa | ) |
03ce 27a7 22af |' " |
03d0 a9a0 ab22 | "|
03d2 a22f a9aa | / |
03d4 20aa 22af | " |
03d6 a922 ab18 | " |
03d8 972a 27a6 | *' |
03da a129 aa27 | ) '|
03dc a722 afa4 | " |
03de 22a0 a222 |" "|
03e0 a917 2a24 | *$|
03e2 a6a2 afa9 | |
03e4 aa20 a6a8 | |
03e6 0000 1cc8 | |
03e8 0e00 0629 | )|
03ea 1898 1818 | |
03ec 2fa2 2aa6 |/ * |
03ee a822 a233 | " 3|
03f0 0b80 05aa | |
03f2 aa24 a617 | $ |
03f4 212c aa22 |!, "|
03f6 af99 0000 | |
03f8 1cc8 0e00 | |
03fa 0929 22a9 | )" |
03fc aa20 a92a | *|
03fe 2faa 22ac |/ " |