|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 0780 | | .CONST 0x0780 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0055 | U | .CONST 0x0055 ; Address of begin
0009 00b9 | | .CONST 0x00b9 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b e282 | | Load 0x1,0x82
000c 0322 | " | Declare_Variable Record
000d 00d8 | | Load_Top At_Offset_0
000e 1c00 | | Execute_Immediate Run_Utility,0x0
000f 00db | | Load_Top At_Offset_3
0010 e001 | | Load 0x0,0x1
0011 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0012 e27d | } | Load 0x1,0x7d
0013 0092 05a3 | | Action Push_String_Extended,0x5a3 ; "."
0015 01cc | | Execute Vector,Catenate
0016 00d9 | | Load_Top At_Offset_1
0017 01cc | | Execute Vector,Catenate
0018 0092 05a4 | | Action Push_String_Extended,0x5a4 ; ".LRM"
001a 01cc | | Execute Vector,Catenate
001b 0007 | | Action Break_Optional
001c 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "*"
001e 00da | | Load_Top At_Offset_2
001f 01cc | | Execute Vector,Catenate
0020 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "_STANDARD*"
0022 01cc | | Execute Vector,Catenate
0023 0007 | | Action Break_Optional
0024 e012 | | Load 0x0,0x12
0025 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0026 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0027 02c7 | | Declare_Variable Any
0028 e5ff | | Load 0x2,-0x1
0029 e016 | | Load 0x0,0x16
002a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
002b a406 | | Store_Unchecked 0x2,0x6
002c 00e1 | | Load_Encached Boolean_Cache
002d 00ec | | Load_Encached Diana_Tree_Cache
002e 02c7 | | Declare_Variable Any
002f 00d8 | | Load_Top At_Offset_0
0030 1c00 | | Execute_Immediate Run_Utility,0x0
0031 00ec | | Load_Encached Diana_Tree_Cache
0032 02c7 | | Declare_Variable Any
0033 00d8 | | Load_Top At_Offset_0
0034 1c00 | | Execute_Immediate Run_Utility,0x0
0035 029f 00cb | | Declare_Subprogram For_Call,INIT_00c8
0037 029f 00d3 | | Declare_Subprogram For_Call,INIT_00d0
0039 029f 00f3 | | Declare_Subprogram For_Call,INIT_00f0
003b 029f 012b | +| Declare_Subprogram For_Call,INIT_0128
003d 029f 01ab | | Declare_Subprogram For_Call,INIT_01a8
003f 029f 01c3 | | Declare_Subprogram For_Call,INIT_01c0
0041 029f 01f3 | | Declare_Subprogram For_Call,INIT_01f0
0043 029f 0223 | #| Declare_Subprogram For_Call,INIT_0220
0045 029f 027b | {| Declare_Subprogram For_Call,INIT_0278
0047 029f 028b | | Declare_Subprogram For_Call,INIT_0288
0049 029f 02db | | Declare_Subprogram For_Call,INIT_02d8
004b 029f 0313 | | Declare_Subprogram For_Call,INIT_0310
004d 029f 0373 | s| Declare_Subprogram For_Call,INIT_0370
004f 029f 03eb | | Declare_Subprogram For_Call,INIT_03e8
0051 029f 03fb | | Declare_Subprogram For_Call,INIT_03f8
0053 029f 044b | K| Declare_Subprogram For_Call,INIT_0448
0055 BODY_0008:
0055 00e1 | | Load_Encached Boolean_Cache
0056 e402 | | Load 0x2,0x2
0057 e5ff | | Load 0x2,-0x1
0058 e286 | | Load 0x1,0x86
0059 e285 | | Load 0x1,0x85
005a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
005b 00d1 | | Pop_Control Pop_Count_1
005c c407 | | Store 0x2,0x7
005d e407 | | Load 0x2,0x7
005e 7006 |p | Jump_Nonzero 0x65
005f 4801 |H | Short_Literal 0x1
0060 e402 | | Load 0x2,0x2
0061 e5ff | | Load 0x2,-0x1
0062 e286 | | Load 0x1,0x86
0063 e285 | | Load 0x1,0x85
0064 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0065 e5fd | | Load 0x2,-0x3
0066 680a |h | Jump_Zero 0x71
0067 e403 | | Load 0x2,0x3
0068 e27f | | Load 0x1,0x7f
0069 03b6 | | Declare_Variable Access,By_Allocation,With_Value
006a e402 | | Load 0x2,0x2
006b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
006c e405 | | Load 0x2,0x5
006d e27f | | Load 0x1,0x7f
006e 03b6 | | Declare_Variable Access,By_Allocation,With_Value
006f e402 | | Load 0x2,0x2
0070 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0071 e5fc | | Load 0x2,-0x4
0072 6803 |h | Jump_Zero 0x76
0073 840c | | Call 0x2,0xc
0074 e402 | | Load 0x2,0x2
0075 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0076 e5fe | | Load 0x2,-0x2
0077 6801 |h | Jump_Zero 0x79
0078 8418 | | Call 0x2,0x18
0079 e5fb | | Load 0x2,-0x5
007a 6832 |h2 | Jump_Zero 0xad
007b 00cf | | Action Mark_Auxiliary
007c e27b | { | Load 0x1,0x7b
007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007e 0265 | e | Execute Discrete,Reverse_Bounds
007f 0007 | | Action Break_Optional
0080 00d8 | | Load_Top At_Offset_0
0081 e27b | { | Load 0x1,0x7b
0082 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0083 011c | | Execute Any,Convert_Unchecked
0084 1c01 | | Execute_Immediate Run_Utility,0x1
0085 840d | | Call 0x2,0xd
0086 00d9 | | Load_Top At_Offset_1
0087 e402 | | Load 0x2,0x2
0088 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0089 01d6 | | Execute Vector,Field_Write
008a 00d8 | | Load_Top At_Offset_0
008b e402 | | Load 0x2,0x2
008c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
008d 01d7 | | Execute Vector,Field_Read
008e 8417 | | Call 0x2,0x17
008f 00d9 | | Load_Top At_Offset_1
0090 e402 | | Load 0x2,0x2
0091 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0092 01d6 | | Execute Vector,Field_Write
0093 00c8 | | Action Pop_Auxiliary_Range
0094 3feb |? | Loop_Increasing 0x80
0095 00ce | | Action Pop_Auxiliary
0096 4800 |H | Short_Literal 0x0
0097 e402 | | Load 0x2,0x2
0098 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0099 01d7 | | Execute Vector,Field_Read
009a 840e | | Call 0x2,0xe
009b c409 | | Store 0x2,0x9
009c 4800 |H | Short_Literal 0x0
009d 4801 |H | Short_Literal 0x1
009e e409 | | Load 0x2,0x9
009f 0092 05a7 | | Action Push_String_Extended,0x5a7 ; "NAME"
00a1 8411 | | Call 0x2,0x11
00a2 e402 | | Load 0x2,0x2
00a3 380a |8 | Execute Record,Field_Write,Field_Number 0xa
00a4 4800 |H | Short_Literal 0x0
00a5 4800 |H | Short_Literal 0x0
00a6 e409 | | Load 0x2,0x9
00a7 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "ADDRESS"
00a9 8411 | | Call 0x2,0x11
00aa e402 | | Load 0x2,0x2
00ab 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
00ac 8419 | | Call 0x2,0x19
00ad 4800 |H | Short_Literal 0x0
00ae e402 | | Load 0x2,0x2
00af e5ff | | Load 0x2,-0x1
00b0 e286 | | Load 0x1,0x86
00b1 e285 | | Load 0x1,0x85
00b2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b3 e5fb | | Load 0x2,-0x5
00b4 6803 |h | Jump_Zero 0xb8
00b5 e5ff | | Load 0x2,-0x1
00b6 e015 | | Load 0x0,0x15
00b7 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00b8 4506 |E | Exit_Subprogram 0x6
00b9 TRAP_0008:
00b9 0007 | | Action Break_Optional
00ba 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "Unhandled exception in semantic initialization: "
00bc 4800 |H | Short_Literal 0x0
00bd 4801 |H | Short_Literal 0x1
00be e017 | | Load 0x0,0x17
00bf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c0 01cc | | Execute Vector,Catenate
00c1 e018 | | Load 0x0,0x18
00c2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00c3 4506 |E | Exit_Subprogram 0x6
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cd | | .CONST 0x00cd ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb 029f 0503 | | Declare_Subprogram For_Call,INIT_0500
00cd BODY_00c8:
00cd 8602 | | Call 0x3,0x2
00ce 4887 |H | Short_Literal 0x87
00cf 0257 | W | Execute Discrete,Raise
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 0092 05aa | | Action Push_String_Extended,0x5aa ; "RCI COMPILER WARNING: "
00d5 00db | | Load_Top At_Offset_3
00d6 01cc | | Execute Vector,Catenate
00d7 e018 | | Load 0x0,0x18
00d8 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00d9 e018 | | Load 0x0,0x18
00da 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00db 4502 |E | Exit_Subprogram 0x2
00dc TRAP_00d0:
00dc 0007 | | Action Break_Optional
00dd 00db | | Load_Top At_Offset_3
00de 4801 |H | Short_Literal 0x1
00df 0092 05ab | | Action Push_String_Extended,0x5ab ; "Inconsistency registering target "
00e1 e403 | | Load 0x2,0x3
00e2 01cc | | Execute Vector,Catenate
00e3 e019 | | Load 0x0,0x19
00e4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e5 0092 05ac | | Action Push_String_Extended,0x5ac ; "Rci"
00e7 e019 | | Load 0x0,0x19
00e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00e9 4502 |E | Exit_Subprogram 0x2
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00fb | | .CONST 0x00fb ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0003 | | .CONST 0x0003 ; Number of locals
00f3 INIT_00f0:
00f3 e006 | | Load 0x0,0x6
00f4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f6 e006 | | Load 0x0,0x6
00f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f8 02c7 | | Declare_Variable Any
00f9 00d8 | | Load_Top At_Offset_0
00fa 1c00 | | Execute_Immediate Run_Utility,0x0
00fb BODY_00f0:
00fb e006 | | Load 0x0,0x6
00fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00fe 00d9 | | Load_Top At_Offset_1
00ff 0120 | | Execute Any,Is_Value
0100 6803 |h | Jump_Zero 0x104
0101 e006 | | Load 0x0,0x6
0102 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0103 7801 |x | Jump 0x105
0104 00d9 | | Load_Top At_Offset_1
0105 601a |` | Indirect_Literal Discrete,0x120,{0x00000000, 0x00004000}
0106 e01a | | Load 0x0,0x1a
0107 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0108 e010 | | Load 0x0,0x10
0109 1811 | | Execute Package,Field_Execute,Field_Number 0x11
010a e006 | | Load 0x0,0x6
010b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
010c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010d e404 | | Load 0x2,0x4
010e e006 | | Load 0x0,0x6
010f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0110 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0111 c603 | | Store 0x3,0x3
0112 005a | Z | Store_Top Discrete,At_Offset_2
0113 00d9 | | Load_Top At_Offset_1
0114 7002 |p | Jump_Nonzero 0x117
0115 00d8 | | Load_Top At_Offset_0
0116 00ca | | Action Exit_Nullary_Function
0117 0092 05ad | | Action Push_String_Extended,0x5ad ; "Could not find LRM library for target "
0119 e403 | | Load 0x2,0x3
011a 01cc | | Execute Vector,Catenate
011b 840b | | Call 0x2,0xb
011c e006 | | Load 0x0,0x6
011d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
011e 00ca | | Action Exit_Nullary_Function
011f 0000 | | .XXX[0x1]
0120 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 013f | ? | .CONST 0x013f ; Address of begin
0129 018e | | .CONST 0x018e ; Address of exception handler
012a 0006 | | .CONST 0x0006 ; Number of locals
012b INIT_0128:
012b e006 | | Load 0x0,0x6
012c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012d 02c7 | | Declare_Variable Any
012e 00d8 | | Load_Top At_Offset_0
012f 1c00 | | Execute_Immediate Run_Utility,0x0
0130 e006 | | Load 0x0,0x6
0131 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0132 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0133 e006 | | Load 0x0,0x6
0134 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0135 00ec | | Load_Encached Diana_Tree_Cache
0136 02c7 | | Declare_Variable Any
0137 00d8 | | Load_Top At_Offset_0
0138 1c00 | | Execute_Immediate Run_Utility,0x0
0139 e006 | | Load 0x0,0x6
013a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
013b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
013c 02c7 | | Declare_Variable Any
013d 00d8 | | Load_Top At_Offset_0
013e 1c00 | | Execute_Immediate Run_Utility,0x0
013f BODY_0128:
013f e006 | | Load 0x0,0x6
0140 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0141 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0142 e602 | | Load 0x3,0x2
0143 0120 | | Execute Any,Is_Value
0144 6803 |h | Jump_Zero 0x148
0145 e006 | | Load 0x0,0x6
0146 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0147 7801 |x | Jump 0x149
0148 e602 | | Load 0x3,0x2
0149 67d6 |g | Indirect_Literal Discrete,0x120,{0x00000000, 0x00004000}
014a e01a | | Load 0x0,0x1a
014b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014c e010 | | Load 0x0,0x10
014d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
014e e006 | | Load 0x0,0x6
014f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0150 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0151 482e |H. | Short_Literal 0x2e
0152 e404 | | Load 0x2,0x4
0153 01cb | | Execute Vector,Append
0154 e7ff | | Load 0x3,-0x1
0155 01cc | | Execute Vector,Catenate
0156 e006 | | Load 0x0,0x6
0157 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0158 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0159 c602 | | Store 0x3,0x2
015a c603 | | Store 0x3,0x3
015b 00db | | Load_Top At_Offset_3
015c 7025 |p% | Jump_Nonzero 0x182
015d e006 | | Load 0x0,0x6
015e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015f 00d9 | | Load_Top At_Offset_1
0160 0120 | | Execute Any,Is_Value
0161 6804 |h | Jump_Zero 0x166
0162 e006 | | Load 0x0,0x6
0163 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0164 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0165 7801 |x | Jump 0x167
0166 00d9 | | Load_Top At_Offset_1
0167 00db | | Load_Top At_Offset_3
0168 0120 | | Execute Any,Is_Value
0169 6804 |h | Jump_Zero 0x16e
016a e006 | | Load 0x0,0x6
016b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
016c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
016d 7801 |x | Jump 0x16f
016e 00db | | Load_Top At_Offset_3
016f 67b0 |g | Indirect_Literal Discrete,0x120,{0x00000000, 0x00004000}
0170 4801 |H | Short_Literal 0x1
0171 4800 |H | Short_Literal 0x0
0172 4800 |H | Short_Literal 0x0
0173 e01a | | Load 0x0,0x1a
0174 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0175 4800 |H | Short_Literal 0x0
0176 e602 | | Load 0x3,0x2
0177 e006 | | Load 0x0,0x6
0178 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0179 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017a e006 | | Load 0x0,0x6
017b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
017c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
017d c605 | | Store 0x3,0x5
017e c606 | | Store 0x3,0x6
017f 005b | [ | Store_Top Discrete,At_Offset_3
0180 00d9 | | Load_Top At_Offset_1
0181 4401 |D | Exit_Subprogram With_Result,0x1
0182 0092 05ae | | Action Push_String_Extended,0x5ae ; "Could not resolve "
0184 e7ff | | Load 0x3,-0x1
0185 01cc | | Execute Vector,Catenate
0186 0092 05af | | Action Push_String_Extended,0x5af ; " for "
0188 01cc | | Execute Vector,Catenate
0189 e403 | | Load 0x2,0x3
018a 01cc | | Execute Vector,Catenate
018b 840b | | Call 0x2,0xb
018c 00ec | | Load_Encached Diana_Tree_Cache
018d 4401 |D | Exit_Subprogram With_Result,0x1
018e TRAP_0128:
018e 0007 | | Action Break_Optional
018f 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "Unhandled exception seeking "
0191 e7ff | | Load 0x3,-0x1
0192 01cc | | Execute Vector,Catenate
0193 0092 05af | | Action Push_String_Extended,0x5af ; " for "
0195 01cc | | Execute Vector,Catenate
0196 e403 | | Load 0x2,0x3
0197 01cc | | Execute Vector,Catenate
0198 0092 05b1 | | Action Push_String_Extended,0x5b1 ; ": "
019a 01cc | | Execute Vector,Catenate
019b 4800 |H | Short_Literal 0x0
019c 4801 |H | Short_Literal 0x1
019d e017 | | Load 0x0,0x17
019e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
019f 01cc | | Execute Vector,Catenate
01a0 840b | | Call 0x2,0xb
01a1 00ec | | Load_Encached Diana_Tree_Cache
01a2 4401 |D | Exit_Subprogram With_Result,0x1
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 01b3 | | .CONST 0x01b3 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac 00eb | | Load_Encached Diana_Cache
01ad 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
01ae 00eb | | Load_Encached Diana_Cache
01af 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
01b0 00eb | | Load_Encached Diana_Cache
01b1 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
01b2 4401 |D | Exit_Subprogram With_Result,0x1
01b3 TRAP_01a8:
01b3 0007 | | Action Break_Optional
01b4 0092 05b2 | | Action Push_String_Extended,0x5b2 ; "Unhandled exception finding decls for a package: "
01b6 4800 |H | Short_Literal 0x0
01b7 4801 |H | Short_Literal 0x1
01b8 e017 | | Load 0x0,0x17
01b9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ba 01cc | | Execute Vector,Catenate
01bb 840b | | Call 0x2,0xb
01bc 00ec | | Load_Encached Diana_Tree_Cache
01bd 4401 |D | Exit_Subprogram With_Result,0x1
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01ce | | .CONST 0x01ce ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 00ef | | Load_Encached Diana_Sequence_Cache
01c4 02c7 | | Declare_Variable Any
01c5 00db | | Load_Top At_Offset_3
01c6 00eb | | Load_Encached Diana_Cache
01c7 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01c8 e7fe | | Load 0x3,-0x2
01c9 4972 |Ir | Short_Literal 0x172
01ca 00eb | | Load_Encached Diana_Cache
01cb 0098 | | Execute Package,Field_Read_Dynamic
01cc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01cd a602 | | Store_Unchecked 0x3,0x2
01ce BODY_01c0:
01ce 00d8 | | Load_Top At_Offset_0
01cf 7019 |p | Jump_Nonzero 0x1e9
01d0 e7fd | | Load 0x3,-0x3
01d1 680b |h | Jump_Zero 0x1dd
01d2 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "Unable to find type "
01d4 e7ff | | Load 0x3,-0x1
01d5 01cc | | Execute Vector,Catenate
01d6 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target "
01d8 01cc | | Execute Vector,Catenate
01d9 e403 | | Load 0x2,0x3
01da 01cc | | Execute Vector,Catenate
01db 840a | | Call 0x2,0xa
01dc 780c |x | Jump 0x1e9
01dd 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "Unable to find type "
01df e7ff | | Load 0x3,-0x1
01e0 01cc | | Execute Vector,Catenate
01e1 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target "
01e3 01cc | | Execute Vector,Catenate
01e4 e403 | | Load 0x2,0x3
01e5 01cc | | Execute Vector,Catenate
01e6 840b | | Call 0x2,0xb
01e7 00ec | | Load_Encached Diana_Tree_Cache
01e8 4403 |D | Exit_Subprogram With_Result,0x3
01e9 00d8 | | Load_Top At_Offset_0
01ea 00eb | | Load_Encached Diana_Cache
01eb 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
01ec 4403 |D | Exit_Subprogram With_Result,0x3
01ed 0000 0000 | | .XXX[0x3]
01ef 0000 | |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fa | | .CONST 0x01fa ; Address of begin
01f1 01ff | | .CONST 0x01ff ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 00ec | | Load_Encached Diana_Tree_Cache
01f4 02c7 | | Declare_Variable Any
01f5 e7fd | | Load 0x3,-0x3
01f6 e7fe | | Load 0x3,-0x2
01f7 e7ff | | Load 0x3,-0x1
01f8 840f | | Call 0x2,0xf
01f9 a602 | | Store_Unchecked 0x3,0x2
01fa BODY_01f0:
01fa 00d8 | | Load_Top At_Offset_0
01fb 4901 |I | Short_Literal 0x101
01fc 00eb | | Load_Encached Diana_Cache
01fd 0096 | | Execute Package,Field_Execute_Dynamic
01fe 4403 |D | Exit_Subprogram With_Result,0x3
01ff TRAP_01f0:
01ff 0007 | | Action Break_Optional
0200 e7fd | | Load 0x3,-0x3
0201 680b |h | Jump_Zero 0x20d
0202 0092 05b5 | | Action Push_String_Extended,0x5b5 ; "Unable to get object id for "
0204 e7ff | | Load 0x3,-0x1
0205 01cc | | Execute Vector,Catenate
0206 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target "
0208 01cc | | Execute Vector,Catenate
0209 e403 | | Load 0x2,0x3
020a 01cc | | Execute Vector,Catenate
020b 840a | | Call 0x2,0xa
020c 780c |x | Jump 0x219
020d 0092 05b5 | | Action Push_String_Extended,0x5b5 ; "Unable to get object id for "
020f e7ff | | Load 0x3,-0x1
0210 01cc | | Execute Vector,Catenate
0211 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target "
0213 01cc | | Execute Vector,Catenate
0214 e403 | | Load 0x2,0x3
0215 01cc | | Execute Vector,Catenate
0216 840b | | Call 0x2,0xb
0217 00ec | | Load_Encached Diana_Tree_Cache
0218 4403 |D | Exit_Subprogram With_Result,0x3
0219 0831 | 1 | Execute_Immediate Raise,0x31
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022e | . | .CONST 0x022e ; Address of begin
0221 025a | Z | .CONST 0x025a ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 00ef | | Load_Encached Diana_Sequence_Cache
0224 02c7 | | Declare_Variable Any
0225 00db | | Load_Top At_Offset_3
0226 00eb | | Load_Encached Diana_Cache
0227 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0228 e7fe | | Load 0x3,-0x2
0229 4972 |Ir | Short_Literal 0x172
022a 00eb | | Load_Encached Diana_Cache
022b 0098 | | Execute Package,Field_Read_Dynamic
022c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
022d a602 | | Store_Unchecked 0x3,0x2
022e BODY_0220:
022e 00d8 | | Load_Top At_Offset_0
022f 7019 |p | Jump_Nonzero 0x249
0230 e7fc | | Load 0x3,-0x4
0231 680b |h | Jump_Zero 0x23d
0232 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "Unable to find type "
0234 e7ff | | Load 0x3,-0x1
0235 01cc | | Execute Vector,Catenate
0236 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target "
0238 01cc | | Execute Vector,Catenate
0239 e403 | | Load 0x2,0x3
023a 01cc | | Execute Vector,Catenate
023b 840a | | Call 0x2,0xa
023c 780c |x | Jump 0x249
023d 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "Unable to find type "
023f e7ff | | Load 0x3,-0x1
0240 01cc | | Execute Vector,Catenate
0241 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target "
0243 01cc | | Execute Vector,Catenate
0244 e403 | | Load 0x2,0x3
0245 01cc | | Execute Vector,Catenate
0246 840b | | Call 0x2,0xb
0247 00ec | | Load_Encached Diana_Tree_Cache
0248 4404 |D | Exit_Subprogram With_Result,0x4
0249 e7fd | | Load 0x3,-0x3
024a 6807 |h | Jump_Zero 0x252
024b 00d8 | | Load_Top At_Offset_0
024c 00eb | | Load_Encached Diana_Cache
024d 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
024e 4907 |I | Short_Literal 0x107
024f 00eb | | Load_Encached Diana_Cache
0250 0096 | | Execute Package,Field_Execute_Dynamic
0251 4404 |D | Exit_Subprogram With_Result,0x4
0252 00d8 | | Load_Top At_Offset_0
0253 00eb | | Load_Encached Diana_Cache
0254 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0255 00eb | | Load_Encached Diana_Cache
0256 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0257 00eb | | Load_Encached Diana_Cache
0258 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0259 4404 |D | Exit_Subprogram With_Result,0x4
025a TRAP_0220:
025a 0007 | | Action Break_Optional
025b e7fc | | Load 0x3,-0x4
025c 680b |h | Jump_Zero 0x268
025d 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "Unable to get type spec for "
025f e7ff | | Load 0x3,-0x1
0260 01cc | | Execute Vector,Catenate
0261 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target "
0263 01cc | | Execute Vector,Catenate
0264 e403 | | Load 0x2,0x3
0265 01cc | | Execute Vector,Catenate
0266 840a | | Call 0x2,0xa
0267 780c |x | Jump 0x274
0268 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "Unable to get type spec for "
026a e7ff | | Load 0x3,-0x1
026b 01cc | | Execute Vector,Catenate
026c 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target "
026e 01cc | | Execute Vector,Catenate
026f e403 | | Load 0x2,0x3
0270 01cc | | Execute Vector,Catenate
0271 840b | | Call 0x2,0xb
0272 00ec | | Load_Encached Diana_Tree_Cache
0273 4404 |D | Exit_Subprogram With_Result,0x4
0274 0831 | 1 | Execute_Immediate Raise,0x31
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b e7fc | | Load 0x3,-0x4
027c e7fd | | Load 0x3,-0x3
027d e7fe | | Load 0x3,-0x2
027e e7ff | | Load 0x3,-0x1
027f e01b | | Load 0x0,0x1b
0280 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0281 8411 | | Call 0x2,0x11
0282 4404 |D | Exit_Subprogram With_Result,0x4
0283 0000 0000 | | .BLANK 0000[0x5]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028f | | .CONST 0x028f ; Address of begin
0289 02bc | | .CONST 0x02bc ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b 00ec | | Load_Encached Diana_Tree_Cache
028c 02c7 | | Declare_Variable Any
028d 00d8 | | Load_Top At_Offset_0
028e 1c00 | | Execute_Immediate Run_Utility,0x0
028f BODY_0288:
028f 00db | | Load_Top At_Offset_3
0290 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0291 0f6f | o | Execute_Immediate Equal,0x6f
0292 681b |h | Jump_Zero 0x2ae
0293 00db | | Load_Top At_Offset_3
0294 00eb | | Load_Encached Diana_Cache
0295 18dc | | Execute Package,Field_Execute,Field_Number 0xdc
0296 c602 | | Store 0x3,0x2
0297 00d8 | | Load_Top At_Offset_0
0298 00eb | | Load_Encached Diana_Cache
0299 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6
029a 00eb | | Load_Encached Diana_Cache
029b 18af | | Execute Package,Field_Execute,Field_Number 0xaf
029c e7fe | | Load 0x3,-0x2
029d e012 | | Load 0x0,0x12
029e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
029f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a0 012f | / | Execute Any,Equal
02a1 680c |h | Jump_Zero 0x2ae
02a2 00d8 | | Load_Top At_Offset_0
02a3 00eb | | Load_Encached Diana_Cache
02a4 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7
02a5 00eb | | Load_Encached Diana_Cache
02a6 18af | | Execute Package,Field_Execute,Field_Number 0xaf
02a7 e7fe | | Load 0x3,-0x2
02a8 e012 | | Load 0x0,0x12
02a9 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02aa 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02ab 012f | / | Execute Any,Equal
02ac 6801 |h | Jump_Zero 0x2ae
02ad 4503 |E | Exit_Subprogram 0x3
02ae 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Type "
02b0 e7fe | | Load 0x3,-0x2
02b1 e012 | | Load 0x0,0x12
02b2 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02b3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b4 01cc | | Execute Vector,Catenate
02b5 0092 05b8 | | Action Push_String_Extended,0x5b8 ; " is corrupt in the standard tree for "
02b7 01cc | | Execute Vector,Catenate
02b8 e403 | | Load 0x2,0x3
02b9 01cc | | Execute Vector,Catenate
02ba 840a | | Call 0x2,0xa
02bb 4503 |E | Exit_Subprogram 0x3
02bc TRAP_0288:
02bc 0007 | | Action Break_Optional
02bd 0092 05b9 | | Action Push_String_Extended,0x5b9 ; "Unhandled exception while checking integer type "
02bf e7fe | | Load 0x3,-0x2
02c0 e012 | | Load 0x0,0x12
02c1 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c3 01cc | | Execute Vector,Catenate
02c4 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target "
02c6 01cc | | Execute Vector,Catenate
02c7 e403 | | Load 0x2,0x3
02c8 01cc | | Execute Vector,Catenate
02c9 0092 05b1 | | Action Push_String_Extended,0x5b1 ; ": "
02cb 01cc | | Execute Vector,Catenate
02cc 4800 |H | Short_Literal 0x0
02cd 4801 |H | Short_Literal 0x1
02ce e017 | | Load 0x0,0x17
02cf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02d0 01cc | | Execute Vector,Catenate
02d1 840b | | Call 0x2,0xb
02d2 4503 |E | Exit_Subprogram 0x3
02d3 0000 0000 | | .BLANK 0000[0x5]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e1 | | .CONST 0x02e1 ; Address of begin
02d9 02f4 | | .CONST 0x02f4 ; Address of exception handler
02da 0003 | | .CONST 0x0003 ; Number of locals
02db INIT_02d8:
02db 00ec | | Load_Encached Diana_Tree_Cache
02dc 02c7 | | Declare_Variable Any
02dd 00d8 | | Load_Top At_Offset_0
02de 1c00 | | Execute_Immediate Run_Utility,0x0
02df 029f 0523 | #| Declare_Subprogram For_Call,INIT_0520
02e1 BODY_02d8:
02e1 e7ff | | Load 0x3,-0x1
02e2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02e3 0f65 | e | Execute_Immediate Equal,0x65
02e4 6801 |h | Jump_Zero 0x2e6
02e5 8603 | | Call 0x3,0x3
02e6 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Type "
02e8 e7fe | | Load 0x3,-0x2
02e9 e012 | | Load 0x0,0x12
02ea 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02eb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02ec 01cc | | Execute Vector,Catenate
02ed 0092 05b8 | | Action Push_String_Extended,0x5b8 ; " is corrupt in the standard tree for "
02ef 01cc | | Execute Vector,Catenate
02f0 e403 | | Load 0x2,0x3
02f1 01cc | | Execute Vector,Catenate
02f2 840b | | Call 0x2,0xb
02f3 4503 |E | Exit_Subprogram 0x3
02f4 TRAP_02d8:
02f4 0007 | | Action Break_Optional
02f5 0092 05ba | | Action Push_String_Extended,0x5ba ; "Unhandled exception while checking float type "
02f7 e7fe | | Load 0x3,-0x2
02f8 e012 | | Load 0x0,0x12
02f9 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02fa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02fb 01cc | | Execute Vector,Catenate
02fc 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target "
02fe 01cc | | Execute Vector,Catenate
02ff e403 | | Load 0x2,0x3
0300 01cc | | Execute Vector,Catenate
0301 0092 05b1 | | Action Push_String_Extended,0x5b1 ; ": "
0303 01cc | | Execute Vector,Catenate
0304 4800 |H | Short_Literal 0x0
0305 4801 |H | Short_Literal 0x1
0306 e017 | | Load 0x0,0x17
0307 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0308 01cc | | Execute Vector,Catenate
0309 840b | | Call 0x2,0xb
030a 4503 |E | Exit_Subprogram 0x3
030b 0000 0000 | | .BLANK 0000[0x5]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0317 | | .CONST 0x0317 ; Address of begin
0311 0355 | U | .CONST 0x0355 ; Address of exception handler
0312 0002 | | .CONST 0x0002 ; Number of locals
0313 INIT_0310:
0313 00ec | | Load_Encached Diana_Tree_Cache
0314 02c7 | | Declare_Variable Any
0315 00d8 | | Load_Top At_Offset_0
0316 1c00 | | Execute_Immediate Run_Utility,0x0
0317 BODY_0310:
0317 00db | | Load_Top At_Offset_3
0318 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0319 0f64 | d | Execute_Immediate Equal,0x64
031a 682c |h, | Jump_Zero 0x347
031b 00db | | Load_Top At_Offset_3
031c 00eb | | Load_Encached Diana_Cache
031d 18dd | | Execute Package,Field_Execute,Field_Number 0xdd
031e c602 | | Store 0x3,0x2
031f e7fe | | Load 0x3,-0x2
0320 e012 | | Load 0x0,0x12
0321 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0322 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0323 00d9 | | Load_Top At_Offset_1
0324 00eb | | Load_Encached Diana_Cache
0325 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6
0326 00eb | | Load_Encached Diana_Cache
0327 18b1 | | Execute Package,Field_Execute,Field_Number 0xb1
0328 e007 | | Load 0x0,0x7
0329 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
032a 681c |h | Jump_Zero 0x347
032b e7fe | | Load 0x3,-0x2
032c e012 | | Load 0x0,0x12
032d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
032e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
032f 00d9 | | Load_Top At_Offset_1
0330 00eb | | Load_Encached Diana_Cache
0331 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7
0332 00eb | | Load_Encached Diana_Cache
0333 18b1 | | Execute Package,Field_Execute,Field_Number 0xb1
0334 e007 | | Load 0x0,0x7
0335 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0336 6810 |h | Jump_Zero 0x347
0337 00db | | Load_Top At_Offset_3
0338 00eb | | Load_Encached Diana_Cache
0339 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
033a 00eb | | Load_Encached Diana_Cache
033b 18b1 | | Execute Package,Field_Execute,Field_Number 0xb1
033c e007 | | Load 0x0,0x7
033d 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
033e 582d |X- | Indirect_Literal Float,0x36c,2.0
033f e7fe | | Load 0x3,-0x2
0340 e012 | | Load 0x0,0x12
0341 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0342 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0343 0239 | 9 | Execute Float,Exponentiate
0344 0247 | G | Execute Float,Equal
0345 6801 |h | Jump_Zero 0x347
0346 4503 |E | Exit_Subprogram 0x3
0347 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Type "
0349 e7fe | | Load 0x3,-0x2
034a e012 | | Load 0x0,0x12
034b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
034c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
034d 01cc | | Execute Vector,Catenate
034e 0092 05b8 | | Action Push_String_Extended,0x5b8 ; " is corrupt in the standard tree for "
0350 01cc | | Execute Vector,Catenate
0351 e403 | | Load 0x2,0x3
0352 01cc | | Execute Vector,Catenate
0353 840b | | Call 0x2,0xb
0354 4503 |E | Exit_Subprogram 0x3
0355 TRAP_0310:
0355 0007 | | Action Break_Optional
0356 0092 05bb | | Action Push_String_Extended,0x5bb ; "Unhandled exception while checking fixed type "
0358 e7fe | | Load 0x3,-0x2
0359 e012 | | Load 0x0,0x12
035a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
035b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
035c 01cc | | Execute Vector,Catenate
035d 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target "
035f 01cc | | Execute Vector,Catenate
0360 e403 | | Load 0x2,0x3
0361 01cc | | Execute Vector,Catenate
0362 0092 05b1 | | Action Push_String_Extended,0x5b1 ; ": "
0364 01cc | | Execute Vector,Catenate
0365 4800 |H | Short_Literal 0x0
0366 4801 |H | Short_Literal 0x1
0367 e017 | | Load 0x0,0x17
0368 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0369 01cc | | Execute Vector,Catenate
036a 840b | | Call 0x2,0xb
036b 4503 |E | Exit_Subprogram 0x3
036c 4000 0000 |@ | .DBL 2.0
036e 0000 0000 | |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0395 | | .CONST 0x0395 ; Address of begin
0371 03d9 | | .CONST 0x03d9 ; Address of exception handler
0372 0008 | | .CONST 0x0008 ; Number of locals
0373 INIT_0370:
0373 e007 | | Load 0x0,0x7
0374 190f | | Execute Package,Field_Reference,Field_Number 0xf
0375 0007 | | Action Break_Optional
0376 e406 | | Load 0x2,0x6
0377 e012 | | Load 0x0,0x12
0378 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0379 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
037a e406 | | Load 0x2,0x6
037b e012 | | Load 0x0,0x12
037c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
037d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
037e e406 | | Load 0x2,0x6
037f e012 | | Load 0x0,0x12
0380 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0381 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0382 e012 | | Load 0x0,0x12
0383 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0384 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0385 011e | | Execute Any,Convert
0386 e402 | | Load 0x2,0x2
0387 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
0388 0227 | ' | Execute Access,All_Reference
0389 0007 | | Action Break_Optional
038a e402 | | Load 0x2,0x2
038b 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
038c 0227 | ' | Execute Access,All_Reference
038d 0007 | | Action Break_Optional
038e 00ec | | Load_Encached Diana_Tree_Cache
038f 02c7 | | Declare_Variable Any
0390 4806 |H | Short_Literal 0x6
0391 e402 | | Load 0x2,0x2
0392 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0393 01d7 | | Execute Vector,Field_Read
0394 a608 | | Store_Unchecked 0x3,0x8
0395 BODY_0370:
0395 00cf | | Action Mark_Auxiliary
0396 e603 | | Load 0x3,0x3
0397 01d9 | | Execute Vector,Reverse_Bounds
0398 0263 | c | Execute Discrete,Above_Bound
0399 7016 |p | Jump_Nonzero 0x3b0
039a 4801 |H | Short_Literal 0x1
039b 4801 |H | Short_Literal 0x1
039c e408 | | Load 0x2,0x8
039d 00db | | Load_Top At_Offset_3
039e e603 | | Load 0x3,0x3
039f 01d7 | | Execute Vector,Field_Read
03a0 e012 | | Load 0x0,0x12
03a1 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03a2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03a3 8411 | | Call 0x2,0x11
03a4 00d9 | | Load_Top At_Offset_1
03a5 e606 | | Load 0x3,0x6
03a6 01d6 | | Execute Vector,Field_Write
03a7 00d8 | | Load_Top At_Offset_0
03a8 e603 | | Load 0x3,0x3
03a9 01d7 | | Execute Vector,Field_Read
03aa 00d9 | | Load_Top At_Offset_1
03ab e606 | | Load 0x3,0x6
03ac 01d7 | | Execute Vector,Field_Read
03ad 8413 | | Call 0x2,0x13
03ae 00c8 | | Action Pop_Auxiliary_Range
03af 3fea |? | Loop_Increasing 0x39a
03b0 00c9 | | Action Pop_Auxiliary_Loop
03b1 e604 | | Load 0x3,0x4
03b2 01d9 | | Execute Vector,Reverse_Bounds
03b3 0263 | c | Execute Discrete,Above_Bound
03b4 7016 |p | Jump_Nonzero 0x3cb
03b5 4800 |H | Short_Literal 0x0
03b6 4801 |H | Short_Literal 0x1
03b7 e408 | | Load 0x2,0x8
03b8 00db | | Load_Top At_Offset_3
03b9 e604 | | Load 0x3,0x4
03ba 01d7 | | Execute Vector,Field_Read
03bb e012 | | Load 0x0,0x12
03bc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03bd 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03be 8411 | | Call 0x2,0x11
03bf 00d9 | | Load_Top At_Offset_1
03c0 e607 | | Load 0x3,0x7
03c1 01d6 | | Execute Vector,Field_Write
03c2 00d8 | | Load_Top At_Offset_0
03c3 e604 | | Load 0x3,0x4
03c4 01d7 | | Execute Vector,Field_Read
03c5 00d9 | | Load_Top At_Offset_1
03c6 e607 | | Load 0x3,0x7
03c7 01d7 | | Execute Vector,Field_Read
03c8 8414 | | Call 0x2,0x14
03c9 00c8 | | Action Pop_Auxiliary_Range
03ca 3fea |? | Loop_Increasing 0x3b5
03cb 00ce | | Action Pop_Auxiliary
03cc 4801 |H | Short_Literal 0x1
03cd 4801 |H | Short_Literal 0x1
03ce e408 | | Load 0x2,0x8
03cf e605 | | Load 0x3,0x5
03d0 e012 | | Load 0x0,0x12
03d1 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03d2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03d3 8411 | | Call 0x2,0x11
03d4 c608 | | Store 0x3,0x8
03d5 00db | | Load_Top At_Offset_3
03d6 00d9 | | Load_Top At_Offset_1
03d7 8415 | | Call 0x2,0x15
03d8 4501 |E | Exit_Subprogram 0x1
03d9 TRAP_0370:
03d9 0007 | | Action Break_Optional
03da 0092 05bc | | Action Push_String_Extended,0x5bc ; "Unhandled exception while checking predefined types for target "
03dc e403 | | Load 0x2,0x3
03dd 01cc | | Execute Vector,Catenate
03de 0092 05b1 | | Action Push_String_Extended,0x5b1 ; ": "
03e0 01cc | | Execute Vector,Catenate
03e1 4800 |H | Short_Literal 0x0
03e2 4801 |H | Short_Literal 0x1
03e3 e017 | | Load 0x0,0x17
03e4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03e5 01cc | | Execute Vector,Catenate
03e6 840b | | Call 0x2,0xb
03e7 4501 |E | Exit_Subprogram 0x1
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 00da | | Load_Top At_Offset_2
03ec 7002 |p | Jump_Nonzero 0x3ef
03ed 00da | | Load_Top At_Offset_2
03ee 4401 |D | Exit_Subprogram With_Result,0x1
03ef 00da | | Load_Top At_Offset_2
03f0 4976 |Iv | Short_Literal 0x176
03f1 00eb | | Load_Encached Diana_Cache
03f2 0098 | | Execute Package,Field_Read_Dynamic
03f3 180f | | Execute Package,Field_Execute,Field_Number 0xf
03f4 4401 |D | Exit_Subprogram With_Result,0x1
03f5 0000 0000 | | .XXX[0x3]
03f7 0000 | |
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 043a | : | .CONST 0x043a ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb e402 | | Load 0x2,0x2
03fc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03fd 0227 | ' | Execute Access,All_Reference
03fe e402 | | Load 0x2,0x2
03ff 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0400 8287 | | Call 0x1,0x87
0401 e402 | | Load 0x2,0x2
0402 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0403 e402 | | Load 0x2,0x2
0404 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0405 8417 | | Call 0x2,0x17
0406 e402 | | Load 0x2,0x2
0407 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0408 e402 | | Load 0x2,0x2
0409 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
040a 840e | | Call 0x2,0xe
040b c408 | | Store 0x2,0x8
040c e406 | | Load 0x2,0x6
040d e012 | | Load 0x0,0x12
040e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
040f 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0410 01da | | Execute Vector,Bounds
0411 e27c | | | Load 0x1,0x7c
0412 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0413 00d8 | | Load_Top At_Offset_0
0414 0227 | ' | Execute Access,All_Reference
0415 1c00 | | Execute_Immediate Run_Utility,0x0
0416 e402 | | Load 0x2,0x2
0417 3816 |8 | Execute Record,Field_Write,Field_Number 0x16
0418 e406 | | Load 0x2,0x6
0419 e012 | | Load 0x0,0x12
041a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
041b 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
041c 01da | | Execute Vector,Bounds
041d e27c | | | Load 0x1,0x7c
041e 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
041f 00d8 | | Load_Top At_Offset_0
0420 0227 | ' | Execute Access,All_Reference
0421 1c00 | | Execute_Immediate Run_Utility,0x0
0422 e402 | | Load 0x2,0x2
0423 3817 |8 | Execute Record,Field_Write,Field_Number 0x17
0424 8416 | | Call 0x2,0x16
0425 00cf | | Action Mark_Auxiliary
0426 e27b | { | Load 0x1,0x7b
0427 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0428 0265 | e | Execute Discrete,Reverse_Bounds
0429 0007 | | Action Break_Optional
042a 4801 |H | Short_Literal 0x1
042b 4801 |H | Short_Literal 0x1
042c e408 | | Load 0x2,0x8
042d 00db | | Load_Top At_Offset_3
042e e27b | { | Load 0x1,0x7b
042f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0430 011c | | Execute Any,Convert_Unchecked
0431 1c01 | | Execute_Immediate Run_Utility,0x1
0432 8411 | | Call 0x2,0x11
0433 00d9 | | Load_Top At_Offset_1
0434 e402 | | Load 0x2,0x2
0435 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0436 01d6 | | Execute Vector,Field_Write
0437 00c8 | | Action Pop_Auxiliary_Range
0438 3ff1 |? | Loop_Increasing 0x42a
0439 4501 |E | Exit_Subprogram 0x1
043a TRAP_03f8:
043a 0007 | | Action Break_Optional
043b 0092 05bd | | Action Push_String_Extended,0x5bd ; "Unhandled exception initializing tree caches: "
043d 4800 |H | Short_Literal 0x0
043e 4801 |H | Short_Literal 0x1
043f e017 | | Load 0x0,0x17
0440 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0441 01cc | | Execute Vector,Catenate
0442 840b | | Call 0x2,0xb
0443 4501 |E | Exit_Subprogram 0x1
0444 0000 0000 | | .BLANK 0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 049c | | .CONST 0x049c ; Address of begin
0449 04f4 | | .CONST 0x04f4 ; Address of exception handler
044a 000b | | .CONST 0x000b ; Number of locals
044b INIT_0448:
044b 00ec | | Load_Encached Diana_Tree_Cache
044c 02c7 | | Declare_Variable Any
044d 4800 |H | Short_Literal 0x0
044e e409 | | Load 0x2,0x9
044f 0092 05be | | Action Push_String_Extended,0x5be ; "SYSTEM_NAME"
0451 8410 | | Call 0x2,0x10
0452 a602 | | Store_Unchecked 0x3,0x2
0453 00ec | | Load_Encached Diana_Tree_Cache
0454 02c7 | | Declare_Variable Any
0455 4800 |H | Short_Literal 0x0
0456 e409 | | Load 0x2,0x9
0457 0092 05bf | | Action Push_String_Extended,0x5bf ; "STORAGE_UNIT"
0459 8410 | | Call 0x2,0x10
045a a603 | | Store_Unchecked 0x3,0x3
045b 00ec | | Load_Encached Diana_Tree_Cache
045c 02c7 | | Declare_Variable Any
045d 4800 |H | Short_Literal 0x0
045e e409 | | Load 0x2,0x9
045f 0092 05c0 | | Action Push_String_Extended,0x5c0 ; "MEMORY_SIZE"
0461 8410 | | Call 0x2,0x10
0462 a604 | | Store_Unchecked 0x3,0x4
0463 00ec | | Load_Encached Diana_Tree_Cache
0464 02c7 | | Declare_Variable Any
0465 4800 |H | Short_Literal 0x0
0466 e409 | | Load 0x2,0x9
0467 0092 05c1 | | Action Push_String_Extended,0x5c1 ; "MIN_INT"
0469 8410 | | Call 0x2,0x10
046a a605 | | Store_Unchecked 0x3,0x5
046b 00ec | | Load_Encached Diana_Tree_Cache
046c 02c7 | | Declare_Variable Any
046d 4800 |H | Short_Literal 0x0
046e e409 | | Load 0x2,0x9
046f 0092 05c2 | | Action Push_String_Extended,0x5c2 ; "MAX_INT"
0471 8410 | | Call 0x2,0x10
0472 a606 | | Store_Unchecked 0x3,0x6
0473 00ec | | Load_Encached Diana_Tree_Cache
0474 02c7 | | Declare_Variable Any
0475 4800 |H | Short_Literal 0x0
0476 e409 | | Load 0x2,0x9
0477 0092 05c3 | | Action Push_String_Extended,0x5c3 ; "MAX_DIGITS"
0479 8410 | | Call 0x2,0x10
047a a607 | | Store_Unchecked 0x3,0x7
047b 00ec | | Load_Encached Diana_Tree_Cache
047c 02c7 | | Declare_Variable Any
047d 4800 |H | Short_Literal 0x0
047e e409 | | Load 0x2,0x9
047f 0092 05c4 | | Action Push_String_Extended,0x5c4 ; "MAX_MANTISSA"
0481 8410 | | Call 0x2,0x10
0482 a608 | | Store_Unchecked 0x3,0x8
0483 00ec | | Load_Encached Diana_Tree_Cache
0484 02c7 | | Declare_Variable Any
0485 4800 |H | Short_Literal 0x0
0486 e409 | | Load 0x2,0x9
0487 0092 05c5 | | Action Push_String_Extended,0x5c5 ; "FINE_DELTA"
0489 8410 | | Call 0x2,0x10
048a a609 | | Store_Unchecked 0x3,0x9
048b 00ec | | Load_Encached Diana_Tree_Cache
048c 02c7 | | Declare_Variable Any
048d 4800 |H | Short_Literal 0x0
048e e409 | | Load 0x2,0x9
048f 0092 05c6 | | Action Push_String_Extended,0x5c6 ; "TICK"
0491 8410 | | Call 0x2,0x10
0492 a60a | | Store_Unchecked 0x3,0xa
0493 00ec | | Load_Encached Diana_Tree_Cache
0494 02c7 | | Declare_Variable Any
0495 4800 |H | Short_Literal 0x0
0496 4801 |H | Short_Literal 0x1
0497 e409 | | Load 0x2,0x9
0498 0092 05c7 | | Action Push_String_Extended,0x5c7 ; "PRIORITY"
049a 8411 | | Call 0x2,0x11
049b a60b | | Store_Unchecked 0x3,0xb
049c BODY_0448:
049c e602 | | Load 0x3,0x2
049d 00eb | | Load_Encached Diana_Cache
049e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
049f 00eb | | Load_Encached Diana_Cache
04a0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
04a1 e27f | | Load 0x1,0x7f
04a2 03b6 | | Declare_Variable Access,By_Allocation,With_Value
04a3 e402 | | Load 0x2,0x2
04a4 380b |8 | Execute Record,Field_Write,Field_Number 0xb
04a5 e603 | | Load 0x3,0x3
04a6 00eb | | Load_Encached Diana_Cache
04a7 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
04a8 00eb | | Load_Encached Diana_Cache
04a9 189f | | Execute Package,Field_Execute,Field_Number 0x9f
04aa e402 | | Load 0x2,0x2
04ab 380c |8 | Execute Record,Field_Write,Field_Number 0xc
04ac e604 | | Load 0x3,0x4
04ad 00eb | | Load_Encached Diana_Cache
04ae 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
04af 00eb | | Load_Encached Diana_Cache
04b0 189f | | Execute Package,Field_Execute,Field_Number 0x9f
04b1 e402 | | Load 0x2,0x2
04b2 380d |8 | Execute Record,Field_Write,Field_Number 0xd
04b3 e605 | | Load 0x3,0x5
04b4 00eb | | Load_Encached Diana_Cache
04b5 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
04b6 00eb | | Load_Encached Diana_Cache
04b7 189f | | Execute Package,Field_Execute,Field_Number 0x9f
04b8 e402 | | Load 0x2,0x2
04b9 380e |8 | Execute Record,Field_Write,Field_Number 0xe
04ba e606 | | Load 0x3,0x6
04bb 00eb | | Load_Encached Diana_Cache
04bc 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
04bd 00eb | | Load_Encached Diana_Cache
04be 189f | | Execute Package,Field_Execute,Field_Number 0x9f
04bf e402 | | Load 0x2,0x2
04c0 380f |8 | Execute Record,Field_Write,Field_Number 0xf
04c1 e607 | | Load 0x3,0x7
04c2 00eb | | Load_Encached Diana_Cache
04c3 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
04c4 00eb | | Load_Encached Diana_Cache
04c5 189f | | Execute Package,Field_Execute,Field_Number 0x9f
04c6 e402 | | Load 0x2,0x2
04c7 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
04c8 00db | | Load_Top At_Offset_3
04c9 00eb | | Load_Encached Diana_Cache
04ca 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
04cb 00eb | | Load_Encached Diana_Cache
04cc 189f | | Execute Package,Field_Execute,Field_Number 0x9f
04cd e402 | | Load 0x2,0x2
04ce 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
04cf 00da | | Load_Top At_Offset_2
04d0 00eb | | Load_Encached Diana_Cache
04d1 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
04d2 00eb | | Load_Encached Diana_Cache
04d3 18a0 | | Execute Package,Field_Execute,Field_Number 0xa0
04d4 e402 | | Load 0x2,0x2
04d5 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
04d6 00d9 | | Load_Top At_Offset_1
04d7 00eb | | Load_Encached Diana_Cache
04d8 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
04d9 00eb | | Load_Encached Diana_Cache
04da 18a0 | | Execute Package,Field_Execute,Field_Number 0xa0
04db e402 | | Load 0x2,0x2
04dc 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
04dd 00d8 | | Load_Top At_Offset_0
04de 00eb | | Load_Encached Diana_Cache
04df 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9
04e0 00eb | | Load_Encached Diana_Cache
04e1 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6
04e2 00eb | | Load_Encached Diana_Cache
04e3 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
04e4 00eb | | Load_Encached Diana_Cache
04e5 189f | | Execute Package,Field_Execute,Field_Number 0x9f
04e6 e402 | | Load 0x2,0x2
04e7 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
04e8 00d8 | | Load_Top At_Offset_0
04e9 00eb | | Load_Encached Diana_Cache
04ea 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9
04eb 00eb | | Load_Encached Diana_Cache
04ec 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7
04ed 00eb | | Load_Encached Diana_Cache
04ee 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
04ef 00eb | | Load_Encached Diana_Cache
04f0 189f | | Execute Package,Field_Execute,Field_Number 0x9f
04f1 e402 | | Load 0x2,0x2
04f2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
04f3 4501 |E | Exit_Subprogram 0x1
04f4 TRAP_0448:
04f4 0007 | | Action Break_Optional
04f5 0092 05c8 | | Action Push_String_Extended,0x5c8 ; "Unhandled exception while initializing system types: "
04f7 4800 |H | Short_Literal 0x0
04f8 4801 |H | Short_Literal 0x1
04f9 e017 | | Load 0x0,0x17
04fa 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04fb 01cc | | Execute Vector,Catenate
04fc 840b | | Call 0x2,0xb
04fd 4501 |E | Exit_Subprogram 0x1
04fe 0000 0000 | | .XXX[0x2]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503 | | .CONST 0x0503 ; Address of begin
0501 050c | | .CONST 0x050c ; Address of exception handler
0502 0001 | | .CONST 0x0001 ; Number of locals
0503 BODY_0500:
0503 INIT_0500:
0503 0092 05c9 | | Action Push_String_Extended,0x5c9 ; "RCI COMPILER FATAL ERROR: "
0505 e7ff | | Load 0x3,-0x1
0506 01cc | | Execute Vector,Catenate
0507 e018 | | Load 0x0,0x18
0508 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0509 e018 | | Load 0x0,0x18
050a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
050b 4501 |E | Exit_Subprogram 0x1
050c TRAP_0500:
050c 0007 | | Action Break_Optional
050d e7ff | | Load 0x3,-0x1
050e 4802 |H | Short_Literal 0x2
050f 0092 05ca | | Action Push_String_Extended,0x5ca ; "FATAL error registering target "
0511 e403 | | Load 0x2,0x3
0512 01cc | | Execute Vector,Catenate
0513 e019 | | Load 0x0,0x19
0514 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0515 0092 05cb | | Action Push_String_Extended,0x5cb ; "RCI"
0517 e019 | | Load 0x0,0x19
0518 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0519 4501 |E | Exit_Subprogram 0x1
051a 0000 0000 | | .BLANK 0000[0x6]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0533 | 3 | .CONST 0x0533 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0008 | | .CONST 0x0008 ; Number of locals
0523 INIT_0520:
0523 e007 | | Load 0x0,0x7
0524 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0525 02c7 | | Declare_Variable Any
0526 00d8 | | Load_Top At_Offset_0
0527 1c00 | | Execute_Immediate Run_Utility,0x0
0528 e007 | | Load 0x0,0x7
0529 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
052a 02c7 | | Declare_Variable Any
052b 00d8 | | Load_Top At_Offset_0
052c 1c00 | | Execute_Immediate Run_Utility,0x0
052d 00e2 | | Load_Encached Integer_Cache
052e 00e1 | | Load_Encached Boolean_Cache
052f 00e1 | | Load_Encached Boolean_Cache
0530 00e1 | | Load_Encached Boolean_Cache
0531 029f 056b | k| Declare_Subprogram For_Call,INIT_0568
0533 BODY_0520:
0533 e7ff | | Load 0x3,-0x1
0534 00eb | | Load_Encached Diana_Cache
0535 18dd | | Execute Package,Field_Execute,Field_Number 0xdd
0536 c602 | | Store 0x3,0x2
0537 e602 | | Load 0x3,0x2
0538 00eb | | Load_Encached Diana_Cache
0539 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6
053a 00eb | | Load_Encached Diana_Cache
053b 18b1 | | Execute Package,Field_Execute,Field_Number 0xb1
053c c802 | | Store 0x4,0x2
053d e602 | | Load 0x3,0x2
053e 00eb | | Load_Encached Diana_Cache
053f 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7
0540 00eb | | Load_Encached Diana_Cache
0541 18b1 | | Execute Package,Field_Execute,Field_Number 0xb1
0542 c803 | | Store 0x4,0x3
0543 e7ff | | Load 0x3,-0x1
0544 00eb | | Load_Encached Diana_Cache
0545 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
0546 00eb | | Load_Encached Diana_Cache
0547 18af | | Execute Package,Field_Execute,Field_Number 0xaf
0548 a804 | | Store_Unchecked 0x4,0x4
0549 e7fe | | Load 0x3,-0x2
054a e012 | | Load 0x0,0x12
054b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
054c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
054d e802 | | Load 0x4,0x2
054e e007 | | Load 0x0,0x7
054f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0550 a805 | | Store_Unchecked 0x4,0x5
0551 e7fe | | Load 0x3,-0x2
0552 e012 | | Load 0x0,0x12
0553 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0554 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0555 e803 | | Load 0x4,0x3
0556 e007 | | Load 0x0,0x7
0557 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0558 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0559 e804 | | Load 0x4,0x4
055a e7fe | | Load 0x3,-0x2
055b e012 | | Load 0x0,0x12
055c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
055d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
055e 027f | | Execute Discrete,Equal
055f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0560 8808 | | Call 0x4,0x8
0561 4501 |E | Exit_Subprogram 0x1
0562 0000 0000 | | .BLANK 0000[0x6]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 0599 | | .CONST 0x0599 ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 000a | | .CONST 0x000a ; Number of locals
056b INIT_0568:
056b e803 | | Load 0x4,0x3
056c e007 | | Load 0x0,0x7
056d 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
056e e7fe | | Load 0x3,-0x2
056f e012 | | Load 0x0,0x12
0570 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0571 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0572 e007 | | Load 0x0,0x7
0573 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0574 e803 | | Load 0x4,0x3
0575 e007 | | Load 0x0,0x7
0576 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0577 e7fe | | Load 0x3,-0x2
0578 e012 | | Load 0x0,0x12
0579 1b13 | | Execute Package,Field_Read,Field_Number 0x13
057a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
057b e007 | | Load 0x0,0x7
057c 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
057d e803 | | Load 0x4,0x3
057e e007 | | Load 0x0,0x7
057f 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0580 00e2 | | Load_Encached Integer_Cache
0581 03f1 | | Declare_Variable Discrete,With_Value
0582 e7fe | | Load 0x3,-0x2
0583 e012 | | Load 0x0,0x12
0584 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0585 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0586 e007 | | Load 0x0,0x7
0587 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0588 00e2 | | Load_Encached Integer_Cache
0589 03f1 | | Declare_Variable Discrete,With_Value
058a ea02 | | Load 0x5,0x2
058b ea03 | | Load 0x5,0x3
058c 01df | | Execute Vector,Equal
058d 00e1 | | Load_Encached Boolean_Cache
058e 03f1 | | Declare_Variable Discrete,With_Value
058f ea04 | | Load 0x5,0x4
0590 ea05 | | Load 0x5,0x5
0591 01df | | Execute Vector,Equal
0592 00e1 | | Load_Encached Boolean_Cache
0593 03f1 | | Declare_Variable Discrete,With_Value
0594 00db | | Load_Top At_Offset_3
0595 00db | | Load_Top At_Offset_3
0596 027f | | Execute Discrete,Equal
0597 00e1 | | Load_Encached Boolean_Cache
0598 03f1 | | Declare_Variable Discrete,With_Value
0599 BODY_0568:
0599 e805 | | Load 0x4,0x5
059a e806 | | Load 0x4,0x6
059b 0279 | y | Execute Discrete,And
059c e807 | | Load 0x4,0x7
059d 0279 | y | Execute Discrete,And
059e 6803 |h | Jump_Zero 0x5a2
059f 00cc | | Action Pop_Block
05a0 00cc | | Action Pop_Block
05a1 4503 |E | Exit_Subprogram 0x3
05a2 4501 |E | Exit_Subprogram 0x1
05a3 ; --------------------------------------------------------------------------------------
05a3 ; STRING TABLE
05a3 ; --------------------------------------------------------------------------------------
05a3 0054 | T | .STRTAB 0x0054->0x05cd ; "."
05a4 0053 | S | .STRTAB 0x0053->0x05cd ; ".LRM"
05a5 0055 | U | .STRTAB 0x0055->0x05cf ; "*"
05a6 0054 | T | .STRTAB 0x0054->0x05d0 ; "_STANDARD*"
05a7 005c | \ | .STRTAB 0x005c->0x05d5 ; "NAME"
05a8 005e | ^ | .STRTAB 0x005e->0x05d7 ; "ADDRESS"
05a9 0063 | c | .STRTAB 0x0063->0x05da ; "Unhandled exception in semantic initialization: "
05aa 0091 | | .STRTAB 0x0091->0x05f2 ; "RCI COMPILER WARNING: "
05ab 00a5 | | .STRTAB 0x00a5->0x05fd ; "Inconsistency registering target "
05ac 00c4 | | .STRTAB 0x00c4->0x060e ; "Rci"
05ad 00c5 | | .STRTAB 0x00c5->0x060f ; "Could not find LRM library for target "
05ae 00e9 | | .STRTAB 0x00e9->0x0622 ; "Could not resolve "
05af 00f9 | | .STRTAB 0x00f9->0x062b ; " for "
; " for "
05b0 00fc | | .STRTAB 0x00fc->0x062e ; "Unhandled exception seeking "
05b1 0116 | | .STRTAB 0x0116->0x063c ; ": "
; ": "
; ": "
; ": "
; ": "
05b2 0116 | | .STRTAB 0x0116->0x063d ; "Unhandled exception finding decls for a package: "
05b3 0145 | E | .STRTAB 0x0145->0x0655 ; "Unable to find type "
; "Unable to find type "
; "Unable to find type "
; "Unable to find type "
05b4 0157 | W | .STRTAB 0x0157->0x065f ; " for target "
; " for target "
; " for target "
; " for target "
; " for target "
; " for target "
; " for target "
; " for target "
; " for target "
; " for target "
; " for target "
05b5 0161 | a | .STRTAB 0x0161->0x0665 ; "Unable to get object id for "
; "Unable to get object id for "
05b6 017b | { | .STRTAB 0x017b->0x0673 ; "Unable to get type spec for "
; "Unable to get type spec for "
05b7 0195 | | .STRTAB 0x0195->0x0681 ; "Type "
; "Type "
; "Type "
05b8 0198 | | .STRTAB 0x0198->0x0684 ; " is corrupt in the standard tree for "
; " is corrupt in the standard tree for "
; " is corrupt in the standard tree for "
05b9 01bb | | .STRTAB 0x01bb->0x0696 ; "Unhandled exception while checking integer type "
05ba 01e9 | | .STRTAB 0x01e9->0x06ae ; "Unhandled exception while checking float type "
05bb 0215 | | .STRTAB 0x0215->0x06c5 ; "Unhandled exception while checking fixed type "
05bc 0241 | A | .STRTAB 0x0241->0x06dc ; "Unhandled exception while checking predefined types for target "
05bd 027f | | .STRTAB 0x027f->0x06fc ; "Unhandled exception initializing tree caches: "
05be 02ab | | .STRTAB 0x02ab->0x0713 ; "SYSTEM_NAME"
05bf 02b4 | | .STRTAB 0x02b4->0x0719 ; "STORAGE_UNIT"
05c0 02be | | .STRTAB 0x02be->0x071f ; "MEMORY_SIZE"
05c1 02c7 | | .STRTAB 0x02c7->0x0724 ; "MIN_INT"
05c2 02cc | | .STRTAB 0x02cc->0x0728 ; "MAX_INT"
05c3 02d1 | | .STRTAB 0x02d1->0x072b ; "MAX_DIGITS"
05c4 02d9 | | .STRTAB 0x02d9->0x0730 ; "MAX_MANTISSA"
05c5 02e3 | | .STRTAB 0x02e3->0x0736 ; "FINE_DELTA"
05c6 02eb | | .STRTAB 0x02eb->0x073b ; "TICK"
05c7 02ed | | .STRTAB 0x02ed->0x073d ; "PRIORITY"
05c8 02f3 | | .STRTAB 0x02f3->0x0741 ; "Unhandled exception while initializing system types: "
05c9 0326 | & | .STRTAB 0x0326->0x075c ; "RCI COMPILER FATAL ERROR: "
05ca 033e | > | .STRTAB 0x033e->0x0769 ; "FATAL error registering target "
05cb 035b | [ | .STRTAB 0x035b->0x0778 ; "RCI"
05cc 035c | \ | .STREND 0x035c->0x077a
05cd 2e2e 4c52 |..LR| .STRTAB_STRINGS
077a 0000 0000 | | .BLANK 0000[0x6]
0780 ; --------------------------------------------------------------------------------------
0780 ; Debug Table
0780 ; --------------------------------------------------------------------------------------
0780 0004 000e | | .DEBUG4 0x0004,0x000e,0x9431,0x0000,0x0001,0x0000
0786 0000 0000 | | .BLANK 0000[0x7a]