|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 05a0 | | .CONST 0x05a0 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0090 | | .CONST 0x0090 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0033 | 3 | .CONST 0x0033 ; Number of locals
000b INIT_0008:
000b 4803 |H | Short_Literal 0x3
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d e001 | | Load 0x0,0x1
000e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
000f 0129 | ) | Execute Any,Make_Visible
0010 e002 | | Load 0x0,0x2
0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0012 0129 | ) | Execute Any,Make_Visible
0013 e002 | | Load 0x0,0x2
0014 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0015 0129 | ) | Execute Any,Make_Visible
0016 e001 | | Load 0x0,0x1
0017 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0018 0129 | ) | Execute Any,Make_Visible
0019 e001 | | Load 0x0,0x1
001a 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
001b 0129 | ) | Execute Any,Make_Visible
001c e003 | | Load 0x0,0x3
001d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
001e 0129 | ) | Execute Any,Make_Visible
001f e003 | | Load 0x0,0x3
0020 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0021 0129 | ) | Execute Any,Make_Visible
0022 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0024 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0026 4800 |H | Short_Literal 0x0
0027 e004 | | Load 0x0,0x4
0028 02a0 | | Declare_Subprogram Null_Subprogram
0029 038f | | Declare_Type Package,Defined,Visible
002a 0386 | | Declare_Variable Package,Visible
002b 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
002d 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
002f 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0031 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0033 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0035 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0037 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0039 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
003b 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
003d e001 | | Load 0x0,0x1
003e 192e | . | Execute Package,Field_Reference,Field_Number 0x2e
003f 0129 | ) | Execute Any,Make_Visible
0040 e001 | | Load 0x0,0x1
0041 192f | / | Execute Package,Field_Reference,Field_Number 0x2f
0042 0129 | ) | Execute Any,Make_Visible
0043 e001 | | Load 0x0,0x1
0044 1930 | 0 | Execute Package,Field_Reference,Field_Number 0x30
0045 0129 | ) | Execute Any,Make_Visible
0046 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0048 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
004a e001 | | Load 0x0,0x1
004b 191b | | Execute Package,Field_Reference,Field_Number 0x1b
004c 0129 | ) | Execute Any,Make_Visible
004d e001 | | Load 0x0,0x1
004e 191c | | Execute Package,Field_Reference,Field_Number 0x1c
004f 0129 | ) | Execute Any,Make_Visible
0050 e005 | | Load 0x0,0x5
0051 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0052 e006 | | Load 0x0,0x6
0053 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0054 e001 | | Load 0x0,0x1
0055 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0056 00da | | Load_Top At_Offset_2
0057 029f 049b | | Declare_Subprogram INIT_0498,For_Call
0059 e211 | | Load 0x1,0x11
005a 0326 | & | Complete_Type Record,By_Defining
005b 00bf | | Action Accept_Activation
005c e002 | | Load 0x0,0x2
005d 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
005e 1919 | | Execute Package,Field_Reference,Field_Number 0x19
005f 0007 | | Action Break_Optional
0060 0092 04b3 | | Action Push_String_Extended,0x4b3 ; ".STATE.TOOL_STATE.RDF."
0062 e210 | | Load 0x1,0x10
0063 01cc | | Execute Vector,Catenate
0064 0007 | | Action Break_Optional
0065 00b6 | | Action Make_Scope
0066 e007 | | Load 0x0,0x7
0067 4802 |H | Short_Literal 0x2
0068 e21b | | Load 0x1,0x1b
0069 020e | | Execute Module,Augment_Imports
006a e21b | | Load 0x1,0x1b
006b 020f | | Execute Module,Activate
006c 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call
006e 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call
0070 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call
0072 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call
0074 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call
0076 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0077 00c7 | | Action Elaborate_Subprogram
0078 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0079 00c7 | | Action Elaborate_Subprogram
007a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
007b 00c7 | | Action Elaborate_Subprogram
007c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
007d 00c7 | | Action Elaborate_Subprogram
007e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
007f 00c7 | | Action Elaborate_Subprogram
0080 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0081 00c7 | | Action Elaborate_Subprogram
0082 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0083 00c7 | | Action Elaborate_Subprogram
0084 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0085 00c7 | | Action Elaborate_Subprogram
0086 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0087 00c7 | | Action Elaborate_Subprogram
0088 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0089 00c7 | | Action Elaborate_Subprogram
008a 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
008b 00c7 | | Action Elaborate_Subprogram
008c 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
008d 00c7 | | Action Elaborate_Subprogram
008e 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
008f 00c7 | | Action Elaborate_Subprogram
0090 BODY_0008:
0090 00bc | | Action Signal_Activated
0091 00bb | | Action Signal_Completion
0092 0000 0000 | | .BLANK 0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 00cb | | .CONST 0x00cb ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2
009c e008 | | Load 0x0,0x8
009d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
009f 6810 |h | Jump_Zero 0xb0
00a0 e5fc | | Load 0x2,-0x4
00a1 4829 |H) | Short_Literal 0x29
00a2 0092 04b4 | | Action Push_String_Extended,0x4b4 ; "Bad view handle in Cache_Operations.Open ("
00a4 e5ff | | Load 0x2,-0x1
00a5 e008 | | Load 0x0,0x8
00a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a7 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
00a8 01cc | | Execute Vector,Catenate
00a9 01cb | | Execute Vector,Append
00aa e009 | | Load 0x0,0x9
00ab 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00ac e009 | | Load 0x0,0x9
00ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ae c5fc | | Store 0x2,-0x4
00af 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00b0 00db | | Load_Top At_Offset_3
00b1 8232 | 2 | Call 0x1,0x32
00b2 e5fd | | Load 0x2,-0x3
00b3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b4 00da | | Load_Top At_Offset_2
00b5 e008 | | Load 0x0,0x8
00b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00b8 e005 | | Load 0x0,0x5
00b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ba e5fd | | Load 0x2,-0x3
00bb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00bc e5fc | | Load 0x2,-0x4
00bd e5fd | | Load 0x2,-0x3
00be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00bf e5fd | | Load 0x2,-0x3
00c0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00c1 e5fd | | Load 0x2,-0x3
00c2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00c3 8233 | 3 | Call 0x1,0x33
00c4 e5fe | | Load 0x2,-0x2
00c5 e001 | | Load 0x0,0x1
00c6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00c7 e5fd | | Load 0x2,-0x3
00c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00c9 c5fc | | Store 0x2,-0x4
00ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00cb TRAP_0098:
00cb e001 | | Load 0x0,0x1
00cc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00cd 010f | | Execute Exception,Equal
00ce 6804 |h | Jump_Zero 0xd3
00cf e001 | | Load 0x0,0x1
00d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d1 c5fc | | Store 0x2,-0x4
00d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d3 0100 | | Execute Exception,Raise
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e0 | | .CONST 0x00e0 ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db e009 | | Load 0x0,0x9
00dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00dd 02c7 | | Declare_Variable Any
00de 00d8 | | Load_Top At_Offset_0
00df 1c00 | | Execute_Immediate Run_Utility,0x0
00e0 BODY_00d8:
00e0 00d8 | | Load_Top At_Offset_0
00e1 e5ff | | Load 0x2,-0x1
00e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e3 e001 | | Load 0x0,0x1
00e4 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00e5 e5ff | | Load 0x2,-0x1
00e6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e7 c402 | | Store 0x2,0x2
00e8 00db | | Load_Top At_Offset_3
00e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ea e006 | | Load 0x0,0x6
00eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ec 012f | / | Execute Any,Equal
00ed 700c |p | Jump_Nonzero 0xfa
00ee 00db | | Load_Top At_Offset_3
00ef 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f0 4801 |H | Short_Literal 0x1
00f1 4801 |H | Short_Literal 0x1
00f2 00db | | Load_Top At_Offset_3
00f3 e009 | | Load 0x0,0x9
00f4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f5 0f00 | | Execute_Immediate Equal,0x0
00f6 e006 | | Load 0x0,0x6
00f7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f8 e5ff | | Load 0x2,-0x1
00f9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00fb 0000 0000 | | .BLANK 0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 010f | | .CONST 0x010f ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e5fc | | Load 0x2,-0x4
0104 e5fd | | Load 0x2,-0x3
0105 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0106 4802 |H | Short_Literal 0x2
0107 e5fe | | Load 0x2,-0x2
0108 e5ff | | Load 0x2,-0x1
0109 e001 | | Load 0x0,0x1
010a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
010b e5fd | | Load 0x2,-0x3
010c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
010d c5fc | | Store 0x2,-0x4
010e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010f TRAP_0100:
010f e001 | | Load 0x0,0x1
0110 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0111 010f | | Execute Exception,Equal
0112 6804 |h | Jump_Zero 0x117
0113 e001 | | Load 0x0,0x1
0114 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0115 c5fc | | Store 0x2,-0x4
0116 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0117 0100 | | Execute Exception,Raise
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0127 | ' | .CONST 0x0127 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e5fc | | Load 0x2,-0x4
011c e5fd | | Load 0x2,-0x3
011d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
011e 4802 |H | Short_Literal 0x2
011f e5fe | | Load 0x2,-0x2
0120 e5ff | | Load 0x2,-0x1
0121 e001 | | Load 0x0,0x1
0122 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0123 e5fd | | Load 0x2,-0x3
0124 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0125 c5fc | | Store 0x2,-0x4
0126 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0127 TRAP_0118:
0127 e001 | | Load 0x0,0x1
0128 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0129 010f | | Execute Exception,Equal
012a 6804 |h | Jump_Zero 0x12f
012b e001 | | Load 0x0,0x1
012c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
012d c5fc | | Store 0x2,-0x4
012e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012f 0100 | | Execute Exception,Raise
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0149 | I | .CONST 0x0149 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 e5fc | | Load 0x2,-0x4
0134 e5fd | | Load 0x2,-0x3
0135 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0136 4802 |H | Short_Literal 0x2
0137 e5fe | | Load 0x2,-0x2
0138 e5ff | | Load 0x2,-0x1
0139 e001 | | Load 0x0,0x1
013a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
013b e5fd | | Load 0x2,-0x3
013c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013d c5fc | | Store 0x2,-0x4
013e e001 | | Load 0x0,0x1
013f 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0140 e5fc | | Load 0x2,-0x4
0141 e009 | | Load 0x0,0x9
0142 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0143 6804 |h | Jump_Zero 0x148
0144 e5fc | | Load 0x2,-0x4
0145 e009 | | Load 0x0,0x9
0146 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0147 c5fc | | Store 0x2,-0x4
0148 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0149 TRAP_0130:
0149 e001 | | Load 0x0,0x1
014a 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
014b 010f | | Execute Exception,Equal
014c 6804 |h | Jump_Zero 0x151
014d e001 | | Load 0x0,0x1
014e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
014f c5fc | | Store 0x2,-0x4
0150 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0151 0100 | | Execute Exception,Raise
0152 0000 0000 | | .BLANK 0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0171 | q | .CONST 0x0171 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e5fc | | Load 0x2,-0x4
015c e5fd | | Load 0x2,-0x3
015d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015e 4802 |H | Short_Literal 0x2
015f e5fe | | Load 0x2,-0x2
0160 e5ff | | Load 0x2,-0x1
0161 e001 | | Load 0x0,0x1
0162 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0163 e5fd | | Load 0x2,-0x3
0164 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0165 c5fc | | Store 0x2,-0x4
0166 e001 | | Load 0x0,0x1
0167 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0168 e5fc | | Load 0x2,-0x4
0169 e009 | | Load 0x0,0x9
016a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
016b 6804 |h | Jump_Zero 0x170
016c e5fc | | Load 0x2,-0x4
016d e009 | | Load 0x0,0x9
016e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
016f c5fc | | Store 0x2,-0x4
0170 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0171 TRAP_0158:
0171 e001 | | Load 0x0,0x1
0172 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0173 010f | | Execute Exception,Equal
0174 6804 |h | Jump_Zero 0x179
0175 e001 | | Load 0x0,0x1
0176 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0177 c5fc | | Store 0x2,-0x4
0178 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0179 0100 | | Execute Exception,Raise
017a 0000 0000 | | .BLANK 0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0187 | | .CONST 0x0187 ; Address of begin
0181 01a1 | | .CONST 0x01a1 ; Address of exception handler
0182 0002 | | .CONST 0x0002 ; Number of locals
0183 INIT_0180:
0183 e214 | | Load 0x1,0x14
0184 02c7 | | Declare_Variable Any
0185 00d8 | | Load_Top At_Offset_0
0186 1c00 | | Execute_Immediate Run_Utility,0x0
0187 BODY_0180:
0187 e5fc | | Load 0x2,-0x4
0188 00d9 | | Load_Top At_Offset_1
0189 0120 | | Execute Any,Is_Value
018a 6803 |h | Jump_Zero 0x18e
018b e001 | | Load 0x0,0x1
018c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
018d 7801 |x | Jump 0x18f
018e 00d9 | | Load_Top At_Offset_1
018f e5ff | | Load 0x2,-0x1
0190 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0191 0217 | | Execute Heap_Access,All_Reference
0192 4802 |H | Short_Literal 0x2
0193 e5fe | | Load 0x2,-0x2
0194 e5ff | | Load 0x2,-0x1
0195 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0196 e001 | | Load 0x0,0x1
0197 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0198 c402 | | Store 0x2,0x2
0199 c5fc | | Store 0x2,-0x4
019a 00d8 | | Load_Top At_Offset_0
019b e002 | | Load 0x0,0x2
019c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
019d c402 | | Store 0x2,0x2
019e 00d8 | | Load_Top At_Offset_0
019f c5fd | | Store 0x2,-0x3
01a0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01a1 TRAP_0180:
01a1 e001 | | Load 0x0,0x1
01a2 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01a3 010f | | Execute Exception,Equal
01a4 6807 |h | Jump_Zero 0x1ac
01a5 e002 | | Load 0x0,0x2
01a6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01a7 c5fd | | Store 0x2,-0x3
01a8 e001 | | Load 0x0,0x1
01a9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01aa c5fc | | Store 0x2,-0x4
01ab 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ac 0100 | | Execute Exception,Raise
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01bd | | .CONST 0x01bd ; Address of begin
01b1 01eb | | .CONST 0x01eb ; Address of exception handler
01b2 0003 | | .CONST 0x0003 ; Number of locals
01b3 INIT_01b0:
01b3 e001 | | Load 0x0,0x1
01b4 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
01b5 02c7 | | Declare_Variable Any
01b6 00d8 | | Load_Top At_Offset_0
01b7 1c00 | | Execute_Immediate Run_Utility,0x0
01b8 e214 | | Load 0x1,0x14
01b9 02c7 | | Declare_Variable Any
01ba e002 | | Load 0x0,0x2
01bb 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01bc a403 | | Store_Unchecked 0x2,0x3
01bd BODY_01b0:
01bd 00d9 | | Load_Top At_Offset_1
01be e5ff | | Load 0x2,-0x1
01bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01c0 e001 | | Load 0x0,0x1
01c1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01c2 c402 | | Store 0x2,0x2
01c3 00cf | | Action Mark_Auxiliary
01c4 781a |x | Jump 0x1df
01c5 00da | | Load_Top At_Offset_2
01c6 e001 | | Load 0x0,0x1
01c7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01c8 e5fe | | Load 0x2,-0x2
01c9 00d8 | | Load_Top At_Offset_0
01ca e20f | | Load 0x1,0xf
01cb 0260 | ` | Execute Discrete,In_Type
01cc 7001 |p | Jump_Nonzero 0x1ce
01cd 0801 | | Execute_Immediate Raise,0x1
01ce e21b | | Load 0x1,0x1b
01cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d0 6809 |h | Jump_Zero 0x1da
01d1 00d9 | | Load_Top At_Offset_1
01d2 00db | | Load_Top At_Offset_3
01d3 e001 | | Load 0x0,0x1
01d4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01d5 e5ff | | Load 0x2,-0x1
01d6 8222 | " | Call 0x1,0x22
01d7 e002 | | Load 0x0,0x2
01d8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01d9 c403 | | Store 0x2,0x3
01da 00da | | Load_Top At_Offset_2
01db e001 | | Load 0x0,0x1
01dc 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
01dd c402 | | Store 0x2,0x2
01de 00c9 | | Action Pop_Auxiliary_Loop
01df 00da | | Load_Top At_Offset_2
01e0 e001 | | Load 0x0,0x1
01e1 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01e2 6fe2 |o | Jump_Zero 0x1c5
01e3 00ce | | Action Pop_Auxiliary
01e4 00d8 | | Load_Top At_Offset_0
01e5 c5fd | | Store 0x2,-0x3
01e6 e5fc | | Load 0x2,-0x4
01e7 e009 | | Load 0x0,0x9
01e8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01e9 c5fc | | Store 0x2,-0x4
01ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01eb TRAP_01b0:
01eb e001 | | Load 0x0,0x1
01ec 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01ed 010f | | Execute Exception,Equal
01ee 6804 |h | Jump_Zero 0x1f3
01ef e001 | | Load 0x0,0x1
01f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01f1 c5fc | | Store 0x2,-0x4
01f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01f3 e5fc | | Load 0x2,-0x4
01f4 0092 04b5 | | Action Push_String_Extended,0x4b5 ; "Retrieve'N(2)"
01f6 8231 | 1 | Call 0x1,0x31
01f7 c5fc | | Store 0x2,-0x4
01f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01f9 0000 0000 | | .BLANK 0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020d | | .CONST 0x020d ; Address of begin
0201 0226 | & | .CONST 0x0226 ; Address of exception handler
0202 0003 | | .CONST 0x0003 ; Number of locals
0203 INIT_0200:
0203 e002 | | Load 0x0,0x2
0204 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0205 02c7 | | Declare_Variable Any
0206 00d8 | | Load_Top At_Offset_0
0207 1c00 | | Execute_Immediate Run_Utility,0x0
0208 e009 | | Load 0x0,0x9
0209 1b0e | | Execute Package,Field_Read,Field_Number 0xe
020a 02c7 | | Declare_Variable Any
020b 00d8 | | Load_Top At_Offset_0
020c 1c00 | | Execute_Immediate Run_Utility,0x0
020d BODY_0200:
020d 00d8 | | Load_Top At_Offset_0
020e 00da | | Load_Top At_Offset_2
020f 0120 | | Execute Any,Is_Value
0210 6803 |h | Jump_Zero 0x214
0211 e001 | | Load 0x0,0x1
0212 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0213 7801 |x | Jump 0x215
0214 00da | | Load_Top At_Offset_2
0215 e5ff | | Load 0x2,-0x1
0216 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0217 0217 | | Execute Heap_Access,All_Reference
0218 4802 |H | Short_Literal 0x2
0219 e5fe | | Load 0x2,-0x2
021a e5ff | | Load 0x2,-0x1
021b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021c e001 | | Load 0x0,0x1
021d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
021e c402 | | Store 0x2,0x2
021f c403 | | Store 0x2,0x3
0220 00d9 | | Load_Top At_Offset_1
0221 e002 | | Load 0x0,0x2
0222 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0223 c402 | | Store 0x2,0x2
0224 00d9 | | Load_Top At_Offset_1
0225 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0226 TRAP_0200:
0226 e001 | | Load 0x0,0x1
0227 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0228 010f | | Execute Exception,Equal
0229 6803 |h | Jump_Zero 0x22d
022a e002 | | Load 0x0,0x2
022b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
022c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
022d 0100 | | Execute Exception,Raise
022e 0000 0000 | | .XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023d | = | .CONST 0x023d ; Address of begin
0231 0266 | f | .CONST 0x0266 ; Address of exception handler
0232 0003 | | .CONST 0x0003 ; Number of locals
0233 INIT_0230:
0233 e001 | | Load 0x0,0x1
0234 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0235 02c7 | | Declare_Variable Any
0236 00d8 | | Load_Top At_Offset_0
0237 1c00 | | Execute_Immediate Run_Utility,0x0
0238 e214 | | Load 0x1,0x14
0239 02c7 | | Declare_Variable Any
023a e002 | | Load 0x0,0x2
023b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
023c a403 | | Store_Unchecked 0x2,0x3
023d BODY_0230:
023d 00d9 | | Load_Top At_Offset_1
023e e5ff | | Load 0x2,-0x1
023f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0240 e001 | | Load 0x0,0x1
0241 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0242 c402 | | Store 0x2,0x2
0243 00cf | | Action Mark_Auxiliary
0244 781a |x | Jump 0x25f
0245 00da | | Load_Top At_Offset_2
0246 e001 | | Load 0x0,0x1
0247 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0248 e5fe | | Load 0x2,-0x2
0249 00d8 | | Load_Top At_Offset_0
024a e20f | | Load 0x1,0xf
024b 0260 | ` | Execute Discrete,In_Type
024c 7001 |p | Jump_Nonzero 0x24e
024d 0801 | | Execute_Immediate Raise,0x1
024e e21b | | Load 0x1,0x1b
024f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0250 6809 |h | Jump_Zero 0x25a
0251 00d9 | | Load_Top At_Offset_1
0252 00db | | Load_Top At_Offset_3
0253 e001 | | Load 0x0,0x1
0254 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0255 e5ff | | Load 0x2,-0x1
0256 8222 | " | Call 0x1,0x22
0257 e002 | | Load 0x0,0x2
0258 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0259 c403 | | Store 0x2,0x3
025a 00da | | Load_Top At_Offset_2
025b e001 | | Load 0x0,0x1
025c 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
025d c402 | | Store 0x2,0x2
025e 00c9 | | Action Pop_Auxiliary_Loop
025f 00da | | Load_Top At_Offset_2
0260 e001 | | Load 0x0,0x1
0261 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0262 6fe2 |o | Jump_Zero 0x245
0263 00ce | | Action Pop_Auxiliary
0264 00d8 | | Load_Top At_Offset_0
0265 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0266 TRAP_0230:
0266 e001 | | Load 0x0,0x1
0267 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0268 010f | | Execute Exception,Equal
0269 6803 |h | Jump_Zero 0x26d
026a e002 | | Load 0x0,0x2
026b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
026c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
026d e002 | | Load 0x0,0x2
026e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
026f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 027e | ~ | .CONST 0x027e ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 e5fe | | Load 0x2,-0x2
0275 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0276 e001 | | Load 0x0,0x1
0277 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0278 c5ff | | Store 0x2,-0x1
0279 e5fd | | Load 0x2,-0x3
027a e009 | | Load 0x0,0x9
027b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
027c c5fd | | Store 0x2,-0x3
027d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027e TRAP_0270:
027e e001 | | Load 0x0,0x1
027f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0280 010f | | Execute Exception,Equal
0281 6804 |h | Jump_Zero 0x286
0282 e001 | | Load 0x0,0x1
0283 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0284 c5fd | | Store 0x2,-0x3
0285 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0286 e5fd | | Load 0x2,-0x3
0287 0092 04b6 | | Action Push_String_Extended,0x4b6 ; "Initialize"
0289 8231 | 1 | Call 0x1,0x31
028a c5fd | | Store 0x2,-0x3
028b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
028c 0000 0000 | | .BLANK 0000[0x4]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 02b8 | | .CONST 0x02b8 ; Address of begin
0291 0339 | 9 | .CONST 0x0339 ; Address of exception handler
0292 000a | | .CONST 0x000a ; Number of locals
0293 INIT_0290:
0293 e006 | | Load 0x0,0x6
0294 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0295 02c7 | | Declare_Variable Any
0296 e00a | | Load 0x0,0xa
0297 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0298 e006 | | Load 0x0,0x6
0299 1814 | | Execute Package,Field_Execute,Field_Number 0x14
029a a402 | | Store_Unchecked 0x2,0x2
029b 00e1 | | Load_Encached Boolean_Cache
029c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
029d e001 | | Load 0x0,0x1
029e 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
029f 02c7 | | Declare_Variable Any
02a0 00d8 | | Load_Top At_Offset_0
02a1 1c00 | | Execute_Immediate Run_Utility,0x0
02a2 e001 | | Load 0x0,0x1
02a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a4 02c7 | | Declare_Variable Any
02a5 00d8 | | Load_Top At_Offset_0
02a6 1c00 | | Execute_Immediate Run_Utility,0x0
02a7 e001 | | Load 0x0,0x1
02a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a9 02c7 | | Declare_Variable Any
02aa 00d8 | | Load_Top At_Offset_0
02ab 1c00 | | Execute_Immediate Run_Utility,0x0
02ac e5ff | | Load 0x2,-0x1
02ad e008 | | Load 0x0,0x8
02ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02af 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02b0 00d8 | | Load_Top At_Offset_0
02b1 e22e | . | Load 0x1,0x2e
02b2 01cc | | Execute Vector,Catenate
02b3 0007 | | Action Break_Optional
02b4 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call
02b6 029f 03db | | Declare_Subprogram INIT_03d8,For_Call
02b8 BODY_0290:
02b8 00be | | Action Activate_Tasks
02b9 e5fc | | Load 0x2,-0x4
02ba e009 | | Load 0x0,0x9
02bb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02bc c5fc | | Store 0x2,-0x4
02bd e5ff | | Load 0x2,-0x1
02be e008 | | Load 0x0,0x8
02bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c0 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
02c1 680e |h | Jump_Zero 0x2d0
02c2 e5fc | | Load 0x2,-0x4
02c3 4829 |H) | Short_Literal 0x29
02c4 0092 04b7 | | Action Push_String_Extended,0x4b7 ; "Bad view handle in Cache_Operations.Check_Cache ("
02c6 e5ff | | Load 0x2,-0x1
02c7 e008 | | Load 0x0,0x8
02c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c9 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
02ca 01cc | | Execute Vector,Catenate
02cb 01cb | | Execute Vector,Append
02cc e009 | | Load 0x0,0x9
02cd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02ce 8230 | 0 | Call 0x1,0x30
02cf c5fc | | Store 0x2,-0x4
02d0 e5fc | | Load 0x2,-0x4
02d1 e405 | | Load 0x2,0x5
02d2 e402 | | Load 0x2,0x2
02d3 e408 | | Load 0x2,0x8
02d4 4801 |H | Short_Literal 0x1
02d5 e001 | | Load 0x0,0x1
02d6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02d7 c405 | | Store 0x2,0x5
02d8 c5fc | | Store 0x2,-0x4
02d9 e5fc | | Load 0x2,-0x4
02da 822f | / | Call 0x1,0x2f
02db c5fc | | Store 0x2,-0x4
02dc e5fe | | Load 0x2,-0x2
02dd 680c |h | Jump_Zero 0x2ea
02de e5fc | | Load 0x2,-0x4
02df e406 | | Load 0x2,0x6
02e0 e402 | | Load 0x2,0x2
02e1 e408 | | Load 0x2,0x8
02e2 4800 |H | Short_Literal 0x0
02e3 e001 | | Load 0x0,0x1
02e4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02e5 c406 | | Store 0x2,0x6
02e6 c5fc | | Store 0x2,-0x4
02e7 e5fc | | Load 0x2,-0x4
02e8 822f | / | Call 0x1,0x2f
02e9 c5fc | | Store 0x2,-0x4
02ea e404 | | Load 0x2,0x4
02eb e405 | | Load 0x2,0x5
02ec e001 | | Load 0x0,0x1
02ed 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
02ee c404 | | Store 0x2,0x4
02ef 00cf | | Action Mark_Auxiliary
02f0 7809 |x | Jump 0x2fa
02f1 e404 | | Load 0x2,0x4
02f2 e001 | | Load 0x0,0x1
02f3 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
02f4 840a | | Call 0x2,0xa
02f5 e404 | | Load 0x2,0x4
02f6 e001 | | Load 0x0,0x1
02f7 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
02f8 c404 | | Store 0x2,0x4
02f9 00c9 | | Action Pop_Auxiliary_Loop
02fa e404 | | Load 0x2,0x4
02fb e001 | | Load 0x0,0x1
02fc 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
02fd 6ff3 |o | Jump_Zero 0x2f1
02fe 00ce | | Action Pop_Auxiliary
02ff e5fe | | Load 0x2,-0x2
0300 6815 |h | Jump_Zero 0x316
0301 e5fd | | Load 0x2,-0x3
0302 6809 |h | Jump_Zero 0x30c
0303 e5fc | | Load 0x2,-0x4
0304 e406 | | Load 0x2,0x6
0305 e001 | | Load 0x0,0x1
0306 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0307 c406 | | Store 0x2,0x6
0308 c5fc | | Store 0x2,-0x4
0309 e5fc | | Load 0x2,-0x4
030a 822f | / | Call 0x1,0x2f
030b c5fc | | Store 0x2,-0x4
030c e5fc | | Load 0x2,-0x4
030d e406 | | Load 0x2,0x6
030e e001 | | Load 0x0,0x1
030f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0310 c406 | | Store 0x2,0x6
0311 c5fc | | Store 0x2,-0x4
0312 e5fc | | Load 0x2,-0x4
0313 822f | / | Call 0x1,0x2f
0314 c5fc | | Store 0x2,-0x4
0315 7809 |x | Jump 0x31f
0316 e5fc | | Load 0x2,-0x4
0317 e405 | | Load 0x2,0x5
0318 e001 | | Load 0x0,0x1
0319 181f | | Execute Package,Field_Execute,Field_Number 0x1f
031a c405 | | Store 0x2,0x5
031b c5fc | | Store 0x2,-0x4
031c e5fc | | Load 0x2,-0x4
031d 822f | / | Call 0x1,0x2f
031e c5fc | | Store 0x2,-0x4
031f e403 | | Load 0x2,0x3
0320 680d |h | Jump_Zero 0x32e
0321 e5fe | | Load 0x2,-0x2
0322 700b |p | Jump_Nonzero 0x32e
0323 e5fc | | Load 0x2,-0x4
0324 0092 04b8 | | Action Push_String_Extended,0x4b8 ; "Errors have been detected in "
0326 e408 | | Load 0x2,0x8
0327 01cc | | Execute Vector,Catenate
0328 e009 | | Load 0x0,0x9
0329 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
032a e009 | | Load 0x0,0x9
032b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
032c c5fc | | Store 0x2,-0x4
032d 7804 |x | Jump 0x332
032e e5fc | | Load 0x2,-0x4
032f e009 | | Load 0x0,0x9
0330 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0331 c5fc | | Store 0x2,-0x4
0332 e402 | | Load 0x2,0x2
0333 4801 |H | Short_Literal 0x1
0334 4801 |H | Short_Literal 0x1
0335 e006 | | Load 0x0,0x6
0336 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0337 c402 | | Store 0x2,0x2
0338 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0339 TRAP_0290:
0339 e00b | | Load 0x0,0xb
033a 010f | | Execute Exception,Equal
033b 6807 |h | Jump_Zero 0x343
033c e402 | | Load 0x2,0x2
033d 4801 |H | Short_Literal 0x1
033e 4800 |H | Short_Literal 0x0
033f e006 | | Load 0x0,0x6
0340 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0341 c402 | | Store 0x2,0x2
0342 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0343 e5fc | | Load 0x2,-0x4
0344 0092 04b9 | | Action Push_String_Extended,0x4b9 ; "Check_Cache"
0346 8231 | 1 | Call 0x1,0x31
0347 c5fc | | Store 0x2,-0x4
0348 e402 | | Load 0x2,0x2
0349 4801 |H | Short_Literal 0x1
034a 4800 |H | Short_Literal 0x0
034b e006 | | Load 0x0,0x6
034c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
034d c402 | | Store 0x2,0x2
034e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
034f 0000 | | .XXX[0x1]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0359 | Y | .CONST 0x0359 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0003 | | .CONST 0x0003 ; Number of locals
0353 INIT_0350:
0353 480a |H | Short_Literal 0xa
0354 e5fd | | Load 0x2,-0x3
0355 01ca | | Execute Vector,Prepend
0356 0007 | | Action Break_Optional
0357 029f 0483 | | Declare_Subprogram INIT_0480,For_Call
0359 BODY_0350:
0359 0092 04ba | | Action Push_String_Extended,0x4ba ; "{View_Context => "
035b 8403 | | Call 0x2,0x3
035c 01cc | | Execute Vector,Catenate
035d 00da | | Load_Top At_Offset_2
035e 01cc | | Execute Vector,Catenate
035f 0092 04bb | | Action Push_String_Extended,0x4bb ; " The_Cache => {"
0361 01cc | | Execute Vector,Catenate
0362 00da | | Load_Top At_Offset_2
0363 01cc | | Execute Vector,Catenate
0364 0092 04bc | | Action Push_String_Extended,0x4bc ; " "
0366 01cc | | Execute Vector,Catenate
0367 e5fc | | Load 0x2,-0x4
0368 e5fd | | Load 0x2,-0x3
0369 0092 04bc | | Action Push_String_Extended,0x4bc ; " "
036b 01cc | | Execute Vector,Catenate
036c e5fe | | Load 0x2,-0x2
036d e5ff | | Load 0x2,-0x1
036e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
036f e001 | | Load 0x0,0x1
0370 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0371 01cc | | Execute Vector,Catenate
0372 0092 04bd | | Action Push_String_Extended,0x4bd ; "}}"
0374 01cc | | Execute Vector,Catenate
0375 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0376 0000 0000 | | .XXX[0x2]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 4801 |H | Short_Literal 0x1
037c 00db | | Load_Top At_Offset_3
037d e009 | | Load 0x0,0x9
037e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
037f 6802 |h | Jump_Zero 0x382
0380 e00b | | Load 0x0,0xb
0381 0257 | W | Execute Discrete,Raise
0382 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0383 0000 0000 | | .BLANK 0000[0x5]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b e5fd | | Load 0x2,-0x3
038c e5fe | | Load 0x2,-0x2
038d e5ff | | Load 0x2,-0x1
038e 00ea | | Load_Encached Null_String_Cache
038f e009 | | Load 0x0,0x9
0390 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0391 c5fd | | Store 0x2,-0x3
0392 e00b | | Load 0x0,0xb
0393 0257 | W | Execute Discrete,Raise
0394 0000 0000 | | .BLANK 0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 00db | | Load_Top At_Offset_3
039c 4829 |H) | Short_Literal 0x29
039d 0092 04be | | Action Push_String_Extended,0x4be ; "Unexpected exception in Cache_Operations."
039f e5ff | | Load 0x2,-0x1
03a0 01cc | | Execute Vector,Catenate
03a1 0092 04bf | | Action Push_String_Extended,0x4bf ; " ("
03a3 01cc | | Execute Vector,Catenate
03a4 e009 | | Load 0x0,0x9
03a5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03a6 01cc | | Execute Vector,Catenate
03a7 01cb | | Execute Vector,Append
03a8 e009 | | Load 0x0,0x9
03a9 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
03aa e009 | | Load 0x0,0x9
03ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ac c5fe | | Store 0x2,-0x2
03ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ae 0000 0000 | | .XXX[0x2]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 00da | | Load_Top At_Offset_2
03b4 0f01 | | Execute_Immediate Equal,0x1
03b5 7003 |p | Jump_Nonzero 0x3b9
03b6 e006 | | Load 0x0,0x6
03b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b9 e00a | | Load 0x0,0xa
03ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03bb e006 | | Load 0x0,0x6
03bc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03be 0000 0000 | | .XXX[0x2]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00da | | Load_Top At_Offset_2
03c4 0217 | | Execute Heap_Access,All_Reference
03c5 e22e | . | Load 0x1,0x2e
03c6 01cc | | Execute Vector,Catenate
03c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb | | .CONST 0x03cb ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0001 | | .CONST 0x0001 ; Number of locals
03cb BODY_03c8:
03cb INIT_03c8:
03cb 4801 |H | Short_Literal 0x1
03cc a403 | | Store_Unchecked 0x2,0x3
03cd 4800 |H | Short_Literal 0x0
03ce 4800 |H | Short_Literal 0x0
03cf 4807 |H | Short_Literal 0x7
03d0 e7ff | | Load 0x3,-0x1
03d1 00ea | | Load_Encached Null_String_Cache
03d2 e009 | | Load 0x0,0x9
03d3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d5 0000 0000 | | .XXX[0x3]
03d7 0000 | |
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03f2 | | .CONST 0x03f2 ; Address of begin
03d9 046f | o | .CONST 0x046f ; Address of exception handler
03da 0006 | | .CONST 0x0006 ; Number of locals
03db INIT_03d8:
03db e213 | | Load 0x1,0x13
03dc 02c7 | | Declare_Variable Any
03dd 00d8 | | Load_Top At_Offset_0
03de 1c00 | | Execute_Immediate Run_Utility,0x0
03df e214 | | Load 0x1,0x14
03e0 02c7 | | Declare_Variable Any
03e1 00d8 | | Load_Top At_Offset_0
03e2 1c00 | | Execute_Immediate Run_Utility,0x0
03e3 e214 | | Load 0x1,0x14
03e4 02c7 | | Declare_Variable Any
03e5 e002 | | Load 0x0,0x2
03e6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
03e7 a604 | | Store_Unchecked 0x3,0x4
03e8 e009 | | Load 0x0,0x9
03e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ea 02c7 | | Declare_Variable Any
03eb 00d8 | | Load_Top At_Offset_0
03ec 1c00 | | Execute_Immediate Run_Utility,0x0
03ed e214 | | Load 0x1,0x14
03ee 02c7 | | Declare_Variable Any
03ef e002 | | Load 0x0,0x2
03f0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
03f1 a606 | | Store_Unchecked 0x3,0x6
03f2 BODY_03d8:
03f2 00d9 | | Load_Top At_Offset_1
03f3 e603 | | Load 0x3,0x3
03f4 0120 | | Execute Any,Is_Value
03f5 6803 |h | Jump_Zero 0x3f9
03f6 e001 | | Load 0x0,0x1
03f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f8 7801 |x | Jump 0x3fa
03f9 e603 | | Load 0x3,0x3
03fa e407 | | Load 0x2,0x7
03fb 4802 |H | Short_Literal 0x2
03fc e7ff | | Load 0x3,-0x1
03fd e405 | | Load 0x2,0x5
03fe e001 | | Load 0x0,0x1
03ff 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0400 c603 | | Store 0x3,0x3
0401 c605 | | Store 0x3,0x5
0402 4801 |H | Short_Literal 0x1
0403 00da | | Load_Top At_Offset_2
0404 e009 | | Load 0x0,0x9
0405 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0406 680b |h | Jump_Zero 0x412
0407 0092 04c0 | | Action Push_String_Extended,0x4c0 ; "Errors were detected in the \x22"
0409 e7ff | | Load 0x3,-0x1
040a 01cc | | Execute Vector,Catenate
040b 0092 04c1 | | Action Push_String_Extended,0x4c1 ; "\x22 domain"
040d 01cc | | Execute Vector,Catenate
040e 8409 | | Call 0x2,0x9
040f 00d9 | | Load_Top At_Offset_1
0410 e009 | | Load 0x0,0x9
0411 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0412 00cf | | Action Mark_Auxiliary
0413 781e |x | Jump 0x432
0414 e603 | | Load 0x3,0x3
0415 e002 | | Load 0x0,0x2
0416 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0417 c602 | | Store 0x3,0x2
0418 e602 | | Load 0x3,0x2
0419 e002 | | Load 0x0,0x2
041a 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
041b 180f | | Execute Package,Field_Execute,Field_Number 0xf
041c e008 | | Load 0x0,0x8
041d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
041e 180f | | Execute Package,Field_Execute,Field_Number 0xf
041f 6806 |h | Jump_Zero 0x426
0420 00d9 | | Load_Top At_Offset_1
0421 e602 | | Load 0x3,0x2
0422 e002 | | Load 0x0,0x2
0423 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0424 c606 | | Store 0x3,0x6
0425 7807 |x | Jump 0x42d
0426 e5fe | | Load 0x2,-0x2
0427 6805 |h | Jump_Zero 0x42d
0428 00db | | Load_Top At_Offset_3
0429 e602 | | Load 0x3,0x2
042a e002 | | Load 0x0,0x2
042b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
042c c604 | | Store 0x3,0x4
042d e603 | | Load 0x3,0x3
042e e002 | | Load 0x0,0x2
042f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0430 c603 | | Store 0x3,0x3
0431 00c9 | | Action Pop_Auxiliary_Loop
0432 e603 | | Load 0x3,0x3
0433 e002 | | Load 0x0,0x2
0434 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0435 6fde |o | Jump_Zero 0x414
0436 00ce | | Action Pop_Auxiliary
0437 00d8 | | Load_Top At_Offset_0
0438 e002 | | Load 0x0,0x2
0439 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
043a 7021 |p! | Jump_Nonzero 0x45c
043b 0092 04c2 | | Action Push_String_Extended,0x4c2 ; "Invalid entries were detected in the "
043d e7ff | | Load 0x3,-0x1
043e 01cc | | Execute Vector,Catenate
043f 0092 04c3 | | Action Push_String_Extended,0x4c3 ; " domain"
0441 01cc | | Execute Vector,Catenate
0442 8409 | | Call 0x2,0x9
0443 00cf | | Action Mark_Auxiliary
0444 7812 |x | Jump 0x457
0445 4800 |H | Short_Literal 0x0
0446 4800 |H | Short_Literal 0x0
0447 4805 |H | Short_Literal 0x5
0448 e606 | | Load 0x3,0x6
0449 e002 | | Load 0x0,0x2
044a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
044b 822d | - | Call 0x1,0x2d
044c 0092 04c4 | | Action Push_String_Extended,0x4c4 ; " is in the Source state"
044e 01cc | | Execute Vector,Catenate
044f 00ea | | Load_Encached Null_String_Cache
0450 e009 | | Load 0x0,0x9
0451 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0452 00d9 | | Load_Top At_Offset_1
0453 e002 | | Load 0x0,0x2
0454 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0455 c606 | | Store 0x3,0x6
0456 00c9 | | Action Pop_Auxiliary_Loop
0457 00d9 | | Load_Top At_Offset_1
0458 e002 | | Load 0x0,0x2
0459 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
045a 6fea |o | Jump_Zero 0x445
045b 00ce | | Action Pop_Auxiliary
045c e5fe | | Load 0x2,-0x2
045d 6810 |h | Jump_Zero 0x46e
045e 00da | | Load_Top At_Offset_2
045f e002 | | Load 0x0,0x2
0460 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0461 700c |p | Jump_Nonzero 0x46e
0462 00d9 | | Load_Top At_Offset_1
0463 e406 | | Load 0x2,0x6
0464 4802 |H | Short_Literal 0x2
0465 e7ff | | Load 0x3,-0x1
0466 e604 | | Load 0x3,0x4
0467 e001 | | Load 0x0,0x1
0468 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0469 c406 | | Store 0x2,0x6
046a c605 | | Store 0x3,0x5
046b 00d9 | | Load_Top At_Offset_1
046c 822f | / | Call 0x1,0x2f
046d c605 | | Store 0x3,0x5
046e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
046f TRAP_03d8:
046f e00b | | Load 0x0,0xb
0470 010f | | Execute Exception,Equal
0471 680a |h | Jump_Zero 0x47c
0472 e5fc | | Load 0x2,-0x4
0473 0092 04c5 | | Action Push_String_Extended,0x4c5 ; "Unexpected errors were encountered attempting to repair "
0475 e408 | | Load 0x2,0x8
0476 01cc | | Execute Vector,Catenate
0477 e009 | | Load 0x0,0x9
0478 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0479 8230 | 0 | Call 0x1,0x30
047a c5fc | | Store 0x2,-0x4
047b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
047c 0100 | | Execute Exception,Raise
047d 0000 0000 | | .XXX[0x3]
047f 0000 | |
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 e5ff | | Load 0x2,-0x1
0484 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0485 7003 |p | Jump_Nonzero 0x489
0486 0092 04c6 | | Action Push_String_Extended,0x4c6 ; "null"
0488 00ca | | Action Exit_Nullary_Function
0489 487d |H} | Short_Literal 0x7d
048a 487b |H{ | Short_Literal 0x7b
048b e5ff | | Load 0x2,-0x1
048c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
048d 0217 | | Execute Heap_Access,All_Reference
048e 01ca | | Execute Vector,Prepend
048f 01cb | | Execute Vector,Append
0490 00ca | | Action Exit_Nullary_Function
0491 0000 0000 | | .BLANK 0000[0x7]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 4608 |F | Jump_Case 0x9
049c 7808 |x | Jump 0x4a5 ; case 0x0
049d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
049e 7813 |x | Jump 0x4b2 ; case 0x2
049f 7812 |x | Jump 0x4b2 ; case 0x3
04a0 7811 |x | Jump 0x4b2 ; case 0x4
04a1 7810 |x | Jump 0x4b2 ; case 0x5
04a2 780f |x | Jump 0x4b2 ; case 0x6
04a3 780e |x | Jump 0x4b2 ; case 0x7
04a4 780d |x | Jump 0x4b2 ; case 0x8
04a5 00da | | Load_Top At_Offset_2
04a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04a7 0125 | % | Execute Any,Set_Constraint
04a8 00da | | Load_Top At_Offset_2
04a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04aa 1c00 | | Execute_Immediate Run_Utility,0x0
04ab 00da | | Load_Top At_Offset_2
04ac 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04ad 0125 | % | Execute Any,Set_Constraint
04ae 00da | | Load_Top At_Offset_2
04af 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04b0 1c00 | | Execute_Immediate Run_Utility,0x0
04b1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04b2 0869 | i | Execute_Immediate Raise,0x69
04b3 ; --------------------------------------------------------------------------------------
04b3 ; STRING TABLE
04b3 ; --------------------------------------------------------------------------------------
04b3 002a | * | .STRTAB 0x002a->0x04c8 ; ".STATE.TOOL_STATE.RDF."
04b4 003e | > | .STRTAB 0x003e->0x04d3 ; "Bad view handle in Cache_Operations.Open ("
04b5 0066 | f | .STRTAB 0x0066->0x04e8 ; "Retrieve'N(2)"
04b6 0071 | q | .STRTAB 0x0071->0x04ee ; "Initialize"
04b7 0079 | y | .STRTAB 0x0079->0x04f3 ; "Bad view handle in Cache_Operations.Check_Cache ("
04b8 00a8 | | .STRTAB 0x00a8->0x050c ; "Errors have been detected in "
04b9 00c3 | | .STRTAB 0x00c3->0x051a ; "Check_Cache"
04ba 00cc | | .STRTAB 0x00cc->0x0520 ; "{View_Context => "
04bb 00db | | .STRTAB 0x00db->0x0528 ; " The_Cache => {"
04bc 00eb | | .STRTAB 0x00eb->0x0531 ; " "
04bd 00ec | | .STRTAB 0x00ec->0x0533 ; "}}"
04be 00ec | | .STRTAB 0x00ec->0x0534 ; "Unexpected exception in Cache_Operations."
04bf 0113 | | .STRTAB 0x0113->0x0548 ; " ("
04c0 0113 | | .STRTAB 0x0113->0x0549 ; "Errors were detected in the \x22"
04c1 012e | . | .STRTAB 0x012e->0x0558 ; "\x22 domain"
04c2 0134 | 4 | .STRTAB 0x0134->0x055c ; "Invalid entries were detected in the "
04c3 0157 | W | .STRTAB 0x0157->0x056e ; " domain"
04c4 015c | \ | .STRTAB 0x015c->0x0572 ; " is in the Source state"
04c5 0171 | q | .STRTAB 0x0171->0x057d ; "Unexpected errors were encountered attempting to repair "
04c6 01a7 | | .STRTAB 0x01a7->0x0599 ; "null"
04c7 01a9 | | .STREND 0x01a9->0x059b
04c8 2e53 5441 |.STA| .STRTAB_STRINGS
059c 0000 0000 | | .BLANK 0000[0x4]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; Debug Table
05a0 ; --------------------------------------------------------------------------------------
05a0 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc576,0x0000,0x0001,0x0000
05a6 0000 0000 | | .BLANK 0000[0x5a]