|
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: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 0b68 | h | .CONST 0x0b68 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0048 | H | .CONST 0x0048 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b 029a 0053 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0050
000d 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
000f 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140
0011 00bf | | Action Accept_Activation
0012 029d 01c3 | | Declare_Subprogram For_Outer_Call,INIT_01c0
0014 029d 01e3 | | Declare_Subprogram For_Outer_Call,INIT_01e0
0016 029d 0203 | | Declare_Subprogram For_Outer_Call,INIT_0200
0018 029d 022b | +| Declare_Subprogram For_Outer_Call,INIT_0228
001a 029d 0263 | c| Declare_Subprogram For_Outer_Call,INIT_0260
001c 029d 0283 | | Declare_Subprogram For_Outer_Call,INIT_0280
001e 029d 029b | | Declare_Subprogram For_Outer_Call,INIT_0298
0020 029d 02d3 | | Declare_Subprogram For_Outer_Call,INIT_02d0
0022 029d 0303 | | Declare_Subprogram For_Outer_Call,INIT_0300
0024 029d 0403 | | Declare_Subprogram For_Outer_Call,INIT_0400
0026 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0027 00c7 | | Action Elaborate_Subprogram
0028 029d 043b | ;| Declare_Subprogram For_Outer_Call,INIT_0438
002a 029d 049b | | Declare_Subprogram For_Outer_Call,INIT_0498
002c 029d 04eb | | Declare_Subprogram For_Outer_Call,INIT_04e8
002e 029d 0503 | | Declare_Subprogram For_Outer_Call,INIT_0500
0030 029d 051b | | Declare_Subprogram For_Outer_Call,INIT_0518
0032 029d 0583 | | Declare_Subprogram For_Outer_Call,INIT_0580
0034 029d 059b | | Declare_Subprogram For_Outer_Call,INIT_0598
0036 029d 05bb | | Declare_Subprogram For_Outer_Call,INIT_05b8
0038 029d 05cb | | Declare_Subprogram For_Outer_Call,INIT_05c8
003a 029d 0633 | 3| Declare_Subprogram For_Outer_Call,INIT_0630
003c 029d 065b | [| Declare_Subprogram For_Outer_Call,INIT_0658
003e 029d 066b | k| Declare_Subprogram For_Outer_Call,INIT_0668
0040 029d 06e3 | | Declare_Subprogram For_Outer_Call,INIT_06e0
0042 029d 06f3 | | Declare_Subprogram For_Outer_Call,INIT_06f0
0044 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0045 00c7 | | Action Elaborate_Subprogram
0046 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0047 00c7 | | Action Elaborate_Subprogram
0048 BODY_0008:
0048 00bc | | Action Signal_Activated
0049 00bb | | Action Signal_Completion
004a 0000 0000 | | .BLANK 0000[0x6]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 005f | _ | .CONST 0x005f ; Address of begin
0051 00a6 | | .CONST 0x00a6 ; Address of exception handler
0052 0005 | | .CONST 0x0005 ; Number of locals
0053 INIT_0050:
0053 e002 | | Load 0x0,0x2
0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0055 02c7 | | Declare_Variable Any
0056 00d8 | | Load_Top At_Offset_0
0057 1c00 | | Execute_Immediate Run_Utility,0x0
0058 e003 | | Load 0x0,0x3
0059 0322 | " | Declare_Variable Record
005a 8004 | | Call 0x0,0x4
005b 00d9 | | Load_Top At_Offset_1
005c 017d | } | Execute Record,Structure_Write
005d 00e2 | | Load_Encached Integer_Cache
005e 00e2 | | Load_Encached Integer_Cache
005f BODY_0050:
005f 8005 | | Call 0x0,0x5
0060 6804 |h | Jump_Zero 0x65
0061 0092 0804 | | Action Push_String_Extended,0x804 ; "Program has terminated.\x0a"
0063 8006 | | Call 0x0,0x6
0064 4504 |E | Exit_Subprogram 0x4
0065 00db | | Load_Top At_Offset_3
0066 00db | | Load_Top At_Offset_3
0067 e5fe | | Load 0x2,-0x2
0068 4801 |H | Short_Literal 0x1
0069 e5ff | | Load 0x2,-0x1
006a 8212 | | Call 0x1,0x12
006b 00d1 | | Pop_Control Pop_Count_1
006c c402 | | Store 0x2,0x2
006d 4802 |H | Short_Literal 0x2
006e e402 | | Load 0x2,0x2
006f e002 | | Load 0x0,0x2
0070 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0071 6807 |h | Jump_Zero 0x79
0072 480a |H | Short_Literal 0xa
0073 e402 | | Load 0x2,0x2
0074 e002 | | Load 0x0,0x2
0075 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0076 01cb | | Execute Vector,Append
0077 8006 | | Call 0x0,0x6
0078 4504 |E | Exit_Subprogram 0x4
0079 e007 | | Load 0x0,0x7
007a e008 | | Load 0x0,0x8
007b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
007c c007 | | Store 0x0,0x7
007d e009 | | Load 0x0,0x9
007e 4801 |H | Short_Literal 0x1
007f e00a | | Load 0x0,0xa
0080 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0081 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0082 00d9 | | Load_Top At_Offset_1
0083 0d01 | | Execute_Immediate Less,0x1
0084 6802 |h | Jump_Zero 0x87
0085 4801 |H | Short_Literal 0x1
0086 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0087 e009 | | Load 0x0,0x9
0088 4808 |H | Short_Literal 0x8
0089 e00a | | Load 0x0,0xa
008a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
008b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
008c 00d8 | | Load_Top At_Offset_0
008d 0d00 | | Execute_Immediate Less,0x0
008e 6802 |h | Jump_Zero 0x91
008f 4800 |H | Short_Literal 0x0
0090 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0091 00da | | Load_Top At_Offset_2
0092 e5fd | | Load 0x2,-0x3
0093 00da | | Load_Top At_Offset_2
0094 00d8 | | Load_Top At_Offset_0
0095 00e3 | | Load_Encached Natural_Cache
0096 0260 | ` | Execute Discrete,In_Type
0097 7001 |p | Jump_Nonzero 0x99
0098 0801 | | Execute_Immediate Raise,0x1
0099 e404 | | Load 0x2,0x4
009a 00d8 | | Load_Top At_Offset_0
009b 00e4 | | Load_Encached Positive_Cache
009c 0260 | ` | Execute Discrete,In_Type
009d 7001 |p | Jump_Nonzero 0x9f
009e 0801 | | Execute_Immediate Raise,0x1
009f 8219 | | Call 0x1,0x19
00a0 00d1 | | Pop_Control Pop_Count_1
00a1 e007 | | Load 0x0,0x7
00a2 e008 | | Load 0x0,0x8
00a3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a4 c007 | | Store 0x0,0x7
00a5 4504 |E | Exit_Subprogram 0x4
00a6 TRAP_0050:
00a6 0007 | | Action Break_Optional
00a7 480a |H | Short_Literal 0xa
00a8 0092 0805 | | Action Push_String_Extended,0x805 ; "Exception raised during command processing: "
00aa e00b | | Load 0x0,0xb
00ab 180d | | Execute Package,Field_Execute,Field_Number 0xd
00ac 01cc | | Execute Vector,Catenate
00ad 01cb | | Execute Vector,Append
00ae 8006 | | Call 0x0,0x6
00af 4504 |E | Exit_Subprogram 0x4
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00c4 | | .CONST 0x00c4 ; Address of begin
00b1 0132 | 2 | .CONST 0x0132 ; Address of exception handler
00b2 0006 | | .CONST 0x0006 ; Number of locals
00b3 INIT_00b0:
00b3 e002 | | Load 0x0,0x2
00b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b5 02c7 | | Declare_Variable Any
00b6 00d8 | | Load_Top At_Offset_0
00b7 1c00 | | Execute_Immediate Run_Utility,0x0
00b8 e003 | | Load 0x0,0x3
00b9 0322 | " | Declare_Variable Record
00ba 8004 | | Call 0x0,0x4
00bb 00d9 | | Load_Top At_Offset_1
00bc 017d | } | Execute Record,Structure_Write
00bd e00c | | Load 0x0,0xc
00be 02c7 | | Declare_Variable Any
00bf 00d8 | | Load_Top At_Offset_0
00c0 1c00 | | Execute_Immediate Run_Utility,0x0
00c1 00ec | | Load_Encached Diana_Tree_Cache
00c2 00e1 | | Load_Encached Boolean_Cache
00c3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00c4 BODY_00b0:
00c4 8005 | | Call 0x0,0x5
00c5 6804 |h | Jump_Zero 0xca
00c6 0092 0804 | | Action Push_String_Extended,0x804 ; "Program has terminated.\x0a"
00c8 8006 | | Call 0x0,0x6
00c9 4505 |E | Exit_Subprogram 0x5
00ca e402 | | Load 0x2,0x2
00cb e403 | | Load 0x2,0x3
00cc e5fe | | Load 0x2,-0x2
00cd 4800 |H | Short_Literal 0x0
00ce e5ff | | Load 0x2,-0x1
00cf 8212 | | Call 0x1,0x12
00d0 00d1 | | Pop_Control Pop_Count_1
00d1 c402 | | Store 0x2,0x2
00d2 4802 |H | Short_Literal 0x2
00d3 e402 | | Load 0x2,0x2
00d4 e002 | | Load 0x0,0x2
00d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d6 6807 |h | Jump_Zero 0xde
00d7 480a |H | Short_Literal 0xa
00d8 e402 | | Load 0x2,0x2
00d9 e002 | | Load 0x0,0x2
00da 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00db 01cb | | Execute Vector,Append
00dc 8006 | | Call 0x0,0x6
00dd 4505 |E | Exit_Subprogram 0x5
00de e402 | | Load 0x2,0x2
00df e403 | | Load 0x2,0x3
00e0 821b | | Call 0x1,0x1b
00e1 c402 | | Store 0x2,0x2
00e2 4802 |H | Short_Literal 0x2
00e3 e402 | | Load 0x2,0x2
00e4 e002 | | Load 0x0,0x2
00e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e6 6801 |h | Jump_Zero 0xe8
00e7 4505 |E | Exit_Subprogram 0x5
00e8 00db | | Load_Top At_Offset_3
00e9 800d | | Call 0x0,0xd
00ea 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00eb 00d9 | | Load_Top At_Offset_1
00ec 00eb | | Load_Encached Diana_Cache
00ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ee 0b6e | n | Execute_Immediate Case_Compare,0x6e
00ef 700f |p | Jump_Nonzero 0xff
00f0 0f71 | q | Execute_Immediate Equal,0x71
00f1 701b |p | Jump_Nonzero 0x10d
00f2 e402 | | Load 0x2,0x2
00f3 00db | | Load_Top At_Offset_3
00f4 0120 | | Execute Any,Is_Value
00f5 6802 |h | Jump_Zero 0xf8
00f6 e00c | | Load 0x0,0xc
00f7 7801 |x | Jump 0xf9
00f8 00db | | Load_Top At_Offset_3
00f9 00db | | Load_Top At_Offset_3
00fa e5fd | | Load 0x2,-0x3
00fb 821e | | Call 0x1,0x1e
00fc c404 | | Store 0x2,0x4
00fd c402 | | Store 0x2,0x2
00fe 781c |x | Jump 0x11b
00ff 00d1 | | Pop_Control Pop_Count_1
0100 e402 | | Load 0x2,0x2
0101 00db | | Load_Top At_Offset_3
0102 0120 | | Execute Any,Is_Value
0103 6802 |h | Jump_Zero 0x106
0104 e00c | | Load 0x0,0xc
0105 7801 |x | Jump 0x107
0106 00db | | Load_Top At_Offset_3
0107 00db | | Load_Top At_Offset_3
0108 e5fd | | Load 0x2,-0x3
0109 8223 | # | Call 0x1,0x23
010a c404 | | Store 0x2,0x4
010b c402 | | Store 0x2,0x2
010c 780e |x | Jump 0x11b
010d e402 | | Load 0x2,0x2
010e 00db | | Load_Top At_Offset_3
010f 0120 | | Execute Any,Is_Value
0110 6802 |h | Jump_Zero 0x113
0111 e00c | | Load 0x0,0xc
0112 7801 |x | Jump 0x114
0113 00db | | Load_Top At_Offset_3
0114 e5fd | | Load 0x2,-0x3
0115 800e | | Call 0x0,0xe
0116 8225 | % | Call 0x1,0x25
0117 c404 | | Store 0x2,0x4
0118 c402 | | Store 0x2,0x2
0119 4801 |H | Short_Literal 0x1
011a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
011b 4802 |H | Short_Literal 0x2
011c e402 | | Load 0x2,0x2
011d e002 | | Load 0x0,0x2
011e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
011f 680a |h | Jump_Zero 0x12a
0120 480a |H | Short_Literal 0xa
0121 0092 0806 | | Action Push_String_Extended,0x806 ; "Invalid new value:\x0a"
0123 e402 | | Load 0x2,0x2
0124 e002 | | Load 0x0,0x2
0125 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0126 01cc | | Execute Vector,Catenate
0127 01cb | | Execute Vector,Append
0128 8006 | | Call 0x0,0x6
0129 4505 |E | Exit_Subprogram 0x5
012a 00db | | Load_Top At_Offset_3
012b e5fd | | Load 0x2,-0x3
012c 00da | | Load_Top At_Offset_2
012d e404 | | Load 0x2,0x4
012e e5fc | | Load 0x2,-0x4
012f 8227 | ' | Call 0x1,0x27
0130 00d1 | | Pop_Control Pop_Count_1
0131 4505 |E | Exit_Subprogram 0x5
0132 TRAP_00b0:
0132 0007 | | Action Break_Optional
0133 480a |H | Short_Literal 0xa
0134 0092 0805 | | Action Push_String_Extended,0x805 ; "Exception raised during command processing: "
0136 e00b | | Load 0x0,0xb
0137 180d | | Execute Package,Field_Execute,Field_Number 0xd
0138 01cc | | Execute Vector,Catenate
0139 01cb | | Execute Vector,Append
013a 8006 | | Call 0x0,0x6
013b 4505 |E | Exit_Subprogram 0x5
013c 0000 0000 | | .BLANK 0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0156 | V | .CONST 0x0156 ; Address of begin
0141 01b4 | | .CONST 0x01b4 ; Address of exception handler
0142 0006 | | .CONST 0x0006 ; Number of locals
0143 INIT_0140:
0143 e002 | | Load 0x0,0x2
0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0145 02c7 | | Declare_Variable Any
0146 00d8 | | Load_Top At_Offset_0
0147 1c00 | | Execute_Immediate Run_Utility,0x0
0148 e003 | | Load 0x0,0x3
0149 0322 | " | Declare_Variable Record
014a 8004 | | Call 0x0,0x4
014b 00d9 | | Load_Top At_Offset_1
014c 017d | } | Execute Record,Structure_Write
014d 00e1 | | Load_Encached Boolean_Cache
014e e00f | | Load 0x0,0xf
014f 02c7 | | Declare_Variable Any
0150 00d8 | | Load_Top At_Offset_0
0151 1c00 | | Execute_Immediate Run_Utility,0x0
0152 e010 | | Load 0x0,0x10
0153 02c7 | | Declare_Variable Any
0154 00d8 | | Load_Top At_Offset_0
0155 1c00 | | Execute_Immediate Run_Utility,0x0
0156 BODY_0140:
0156 8005 | | Call 0x0,0x5
0157 6804 |h | Jump_Zero 0x15c
0158 0092 0804 | | Action Push_String_Extended,0x804 ; "Program has terminated.\x0a"
015a 8006 | | Call 0x0,0x6
015b 4504 |E | Exit_Subprogram 0x4
015c e402 | | Load 0x2,0x2
015d e403 | | Load 0x2,0x3
015e e5fe | | Load 0x2,-0x2
015f 4801 |H | Short_Literal 0x1
0160 e5ff | | Load 0x2,-0x1
0161 8212 | | Call 0x1,0x12
0162 00d1 | | Pop_Control Pop_Count_1
0163 c402 | | Store 0x2,0x2
0164 4802 |H | Short_Literal 0x2
0165 e402 | | Load 0x2,0x2
0166 e002 | | Load 0x0,0x2
0167 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0168 6807 |h | Jump_Zero 0x170
0169 480a |H | Short_Literal 0xa
016a e402 | | Load 0x2,0x2
016b e002 | | Load 0x0,0x2
016c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
016d 01cb | | Execute Vector,Append
016e 8006 | | Call 0x0,0x6
016f 4504 |E | Exit_Subprogram 0x4
0170 4802 |H | Short_Literal 0x2
0171 e402 | | Load 0x2,0x2
0172 e002 | | Load 0x0,0x2
0173 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0174 680a |h | Jump_Zero 0x17f
0175 480a |H | Short_Literal 0xa
0176 0092 0807 | | Action Push_String_Extended,0x807 ; "Error:\x0a"
0178 e402 | | Load 0x2,0x2
0179 e002 | | Load 0x0,0x2
017a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
017b 01cc | | Execute Vector,Catenate
017c 01cb | | Execute Vector,Append
017d 8006 | | Call 0x0,0x6
017e 4504 |E | Exit_Subprogram 0x4
017f e402 | | Load 0x2,0x2
0180 00d9 | | Load_Top At_Offset_1
0181 0120 | | Execute Any,Is_Value
0182 6802 |h | Jump_Zero 0x185
0183 e010 | | Load 0x0,0x10
0184 7801 |x | Jump 0x186
0185 00d9 | | Load_Top At_Offset_1
0186 00db | | Load_Top At_Offset_3
0187 0120 | | Execute Any,Is_Value
0188 6802 |h | Jump_Zero 0x18b
0189 e00f | | Load 0x0,0xf
018a 7801 |x | Jump 0x18c
018b 00db | | Load_Top At_Offset_3
018c 00e1 | | Load_Encached Boolean_Cache
018d e403 | | Load 0x2,0x3
018e 8011 | | Call 0x0,0x11
018f 00d1 | | Pop_Control Pop_Count_1
0190 c404 | | Store 0x2,0x4
0191 c405 | | Store 0x2,0x5
0192 c406 | | Store 0x2,0x6
0193 c402 | | Store 0x2,0x2
0194 4802 |H | Short_Literal 0x2
0195 e402 | | Load 0x2,0x2
0196 e002 | | Load 0x0,0x2
0197 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0198 6807 |h | Jump_Zero 0x1a0
0199 480a |H | Short_Literal 0xa
019a e402 | | Load 0x2,0x2
019b e002 | | Load 0x0,0x2
019c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
019d 01cb | | Execute Vector,Append
019e 8006 | | Call 0x0,0x6
019f 4504 |E | Exit_Subprogram 0x4
01a0 00da | | Load_Top At_Offset_2
01a1 7009 |p | Jump_Nonzero 0x1ab
01a2 480a |H | Short_Literal 0xa
01a3 0092 0808 | | Action Push_String_Extended,0x808 ; "Register = "
01a5 00da | | Load_Top At_Offset_2
01a6 8012 | | Call 0x0,0x12
01a7 01cc | | Execute Vector,Catenate
01a8 01cb | | Execute Vector,Append
01a9 8013 | | Call 0x0,0x13
01aa 4504 |E | Exit_Subprogram 0x4
01ab 480a |H | Short_Literal 0xa
01ac 0092 0809 | | Action Push_String_Extended,0x809 ; "Address = "
01ae 00db | | Load_Top At_Offset_3
01af 8014 | | Call 0x0,0x14
01b0 01cc | | Execute Vector,Catenate
01b1 01cb | | Execute Vector,Append
01b2 8013 | | Call 0x0,0x13
01b3 4504 |E | Exit_Subprogram 0x4
01b4 TRAP_0140:
01b4 0007 | | Action Break_Optional
01b5 480a |H | Short_Literal 0xa
01b6 0092 0805 | | Action Push_String_Extended,0x805 ; "Exception raised during command processing: "
01b8 e00b | | Load 0x0,0xb
01b9 180d | | Execute Package,Field_Execute,Field_Number 0xd
01ba 01cc | | Execute Vector,Catenate
01bb 01cb | | Execute Vector,Append
01bc 8006 | | Call 0x0,0x6
01bd 4504 |E | Exit_Subprogram 0x4
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 8015 | | Call 0x0,0x15
01c5 4604 |F | Jump_Case 0x4
01c6 4503 |E | Exit_Subprogram 0x3 ; case 0x0
01c7 4503 |E | Exit_Subprogram 0x3 ; case 0x1
01c8 780b |x | Jump 0x1d4 ; case 0x2
01c9 4503 |E | Exit_Subprogram 0x3 ; case 0x3
01ca 7800 |x | Jump 0x1cb ; case 0x4
01cb 00db | | Load_Top At_Offset_3
01cc 8016 | | Call 0x0,0x16
01cd 0092 080a | | Action Push_String_Extended,0x80a ; " of this type of object is unimplemented"
01cf 01cc | | Execute Vector,Catenate
01d0 e002 | | Load 0x0,0x2
01d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d2 c5fd | | Store 0x2,-0x3
01d3 4503 |E | Exit_Subprogram 0x3
01d4 0092 080b | | Action Push_String_Extended,0x80b ; "There is no runtime value associated with a directory object"
01d6 e002 | | Load 0x0,0x2
01d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d8 c5fd | | Store 0x2,-0x3
01d9 4503 |E | Exit_Subprogram 0x3
01da 0000 0000 | | .BLANK 0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e4 | | .CONST 0x01e4 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 00e8 | | Load_Encached Character_Cache
01e4 BODY_01e0:
01e4 0092 080c | | Action Push_String_Extended,0x80c ; "Resolve_with_Known_Goal: empty location"
01e6 e5ff | | Load 0x2,-0x1
01e7 01db | | Execute Vector,Length
01e8 0c01 | | Execute_Immediate Greater_Equal,0x1
01e9 e017 | | Load 0x0,0x17
01ea 180e | | Execute Package,Field_Execute,Field_Number 0xe
01eb 00db | | Load_Top At_Offset_3
01ec 01dd | | Execute Vector,First
01ed e5ff | | Load 0x2,-0x1
01ee 01d7 | | Execute Vector,Field_Read
01ef 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01f0 00d8 | | Load_Top At_Offset_0
01f1 e018 | | Load 0x0,0x18
01f2 180f | | Execute Package,Field_Execute,Field_Number 0xf
01f3 027f | | Execute Discrete,Equal
01f4 7009 |p | Jump_Nonzero 0x1fe
01f5 00d8 | | Load_Top At_Offset_0
01f6 0f2e | . | Execute_Immediate Equal,0x2e
01f7 7004 |p | Jump_Nonzero 0x1fc
01f8 00d8 | | Load_Top At_Offset_0
01f9 e018 | | Load 0x0,0x18
01fa 180d | | Execute Package,Field_Execute,Field_Number 0xd
01fb 4401 |D | Exit_Subprogram With_Result,0x1
01fc 4801 |H | Short_Literal 0x1
01fd 4401 |D | Exit_Subprogram With_Result,0x1
01fe 4801 |H | Short_Literal 0x1
01ff 4401 |D | Exit_Subprogram With_Result,0x1
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0204 | | .CONST 0x0204 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 00e3 | | Load_Encached Natural_Cache
0204 BODY_0200:
0204 00db | | Load_Top At_Offset_3
0205 8211 | | Call 0x1,0x11
0206 7007 |p | Jump_Nonzero 0x20e
0207 e5fb | | Load 0x2,-0x5
0208 0092 080d | | Action Push_String_Extended,0x80d ; "Unable to resolve location: Invalid location specified."
020a e002 | | Load 0x0,0x2
020b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
020c c5fb | | Store 0x2,-0x5
020d 4504 |E | Exit_Subprogram 0x4
020e e5fb | | Load 0x2,-0x5
020f e5fc | | Load 0x2,-0x4
0210 00e3 | | Load_Encached Natural_Cache
0211 e5fd | | Load 0x2,-0x3
0212 4801 |H | Short_Literal 0x1
0213 4800 |H | Short_Literal 0x0
0214 8004 | | Call 0x0,0x4
0215 e5ff | | Load 0x2,-0x1
0216 8019 | | Call 0x0,0x19
0217 005b | [ | Store_Top Discrete,At_Offset_3
0218 00d1 | | Pop_Control Pop_Count_1
0219 c5fb | | Store 0x2,-0x5
021a 4802 |H | Short_Literal 0x2
021b e5fb | | Load 0x2,-0x5
021c e002 | | Load 0x0,0x2
021d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
021e 7005 |p | Jump_Nonzero 0x224
021f e5fb | | Load 0x2,-0x5
0220 e5fe | | Load 0x2,-0x2
0221 e5fc | | Load 0x2,-0x4
0222 8210 | | Call 0x1,0x10
0223 c5fb | | Store 0x2,-0x5
0224 4504 |E | Exit_Subprogram 0x4
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0230 | 0 | .CONST 0x0230 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b e002 | | Load 0x0,0x2
022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022d 02c7 | | Declare_Variable Any
022e 00d8 | | Load_Top At_Offset_0
022f 1c00 | | Execute_Immediate Run_Utility,0x0
0230 BODY_0228:
0230 00d8 | | Load_Top At_Offset_0
0231 e5fc | | Load 0x2,-0x4
0232 801a | | Call 0x0,0x1a
0233 00d1 | | Pop_Control Pop_Count_1
0234 c402 | | Store 0x2,0x2
0235 4802 |H | Short_Literal 0x2
0236 00d9 | | Load_Top At_Offset_1
0237 e002 | | Load 0x0,0x2
0238 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0239 680a |h | Jump_Zero 0x244
023a 480a |H | Short_Literal 0xa
023b 0092 080e | | Action Push_String_Extended,0x80e ; "Display error:\x0a"
023d 00da | | Load_Top At_Offset_2
023e e002 | | Load 0x0,0x2
023f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0240 01cc | | Execute Vector,Catenate
0241 01cb | | Execute Vector,Append
0242 8006 | | Call 0x0,0x6
0243 4504 |E | Exit_Subprogram 0x4
0244 00d8 | | Load_Top At_Offset_0
0245 e5fc | | Load 0x2,-0x4
0246 e5fd | | Load 0x2,-0x3
0247 e5fe | | Load 0x2,-0x2
0248 e5ff | | Load 0x2,-0x1
0249 801b | | Call 0x0,0x1b
024a 00d1 | | Pop_Control Pop_Count_1
024b c402 | | Store 0x2,0x2
024c 4802 |H | Short_Literal 0x2
024d 00d9 | | Load_Top At_Offset_1
024e e002 | | Load 0x0,0x2
024f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0250 6809 |h | Jump_Zero 0x25a
0251 480a |H | Short_Literal 0xa
0252 0092 080f | | Action Push_String_Extended,0x80f ; "\x0aDisplay error:\x0a"
0254 00da | | Load_Top At_Offset_2
0255 e002 | | Load 0x0,0x2
0256 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0257 01cc | | Execute Vector,Catenate
0258 01cb | | Execute Vector,Append
0259 8006 | | Call 0x0,0x6
025a 4504 |E | Exit_Subprogram 0x4
025b 0000 0000 | | .BLANK 0000[0x5]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0277 | w | .CONST 0x0277 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0007 | | .CONST 0x0007 ; Number of locals
0263 INIT_0260:
0263 00ec | | Load_Encached Diana_Tree_Cache
0264 e003 | | Load 0x0,0x3
0265 0322 | " | Declare_Variable Record
0266 00d8 | | Load_Top At_Offset_0
0267 1c00 | | Execute_Immediate Run_Utility,0x0
0268 00e3 | | Load_Encached Natural_Cache
0269 e5ff | | Load 0x2,-0x1
026a 4975 |Iu | Short_Literal 0x175
026b 00eb | | Load_Encached Diana_Cache
026c 0098 | | Execute Package,Field_Read_Dynamic
026d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
026e 00e3 | | Load_Encached Natural_Cache
026f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0270 e002 | | Load 0x0,0x2
0271 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0272 02c7 | | Declare_Variable Any
0273 00d8 | | Load_Top At_Offset_0
0274 1c00 | | Execute_Immediate Run_Utility,0x0
0275 029f 077b | {| Declare_Subprogram For_Call,INIT_0778
0277 BODY_0260:
0277 00cf | | Action Mark_Auxiliary
0278 00db | | Load_Top At_Offset_3
0279 4801 |H | Short_Literal 0x1
027a 0263 | c | Execute Discrete,Above_Bound
027b 7003 |p | Jump_Nonzero 0x27f
027c 8407 | | Call 0x2,0x7
027d 00c8 | | Action Pop_Auxiliary_Range
027e 3ffd |? | Loop_Increasing 0x27c
027f 4506 |E | Exit_Subprogram 0x6
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 00eb | | Load_Encached Diana_Cache
0285 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0286 6805 |h | Jump_Zero 0x28c
0287 0092 0810 | | Action Push_String_Extended,0x810 ; "no parameters"
0289 8013 | | Call 0x0,0x13
028a 801c | | Call 0x0,0x1c
028b 4506 |E | Exit_Subprogram 0x6
028c e5fb | | Load 0x2,-0x5
028d e5fc | | Load 0x2,-0x4
028e e5fd | | Load 0x2,-0x3
028f e5fe | | Load 0x2,-0x2
0290 e5ff | | Load 0x2,-0x1
0291 8214 | | Call 0x1,0x14
0292 4506 |E | Exit_Subprogram 0x6
0293 0000 0000 | | .BLANK 0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a0 | | .CONST 0x02a0 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0004 | | .CONST 0x0004 ; Number of locals
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 0007 | | Action Break_Optional
029d 00eb | | Load_Encached Diana_Cache
029e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
029f 00ec | | Load_Encached Diana_Tree_Cache
02a0 BODY_0298:
02a0 00cf | | Action Mark_Auxiliary
02a1 7824 |x$ | Jump 0x2c6
02a2 00db | | Load_Top At_Offset_3
02a3 00eb | | Load_Encached Diana_Cache
02a4 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
02a5 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02a6 00d9 | | Load_Top At_Offset_1
02a7 00eb | | Load_Encached Diana_Cache
02a8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02a9 00d8 | | Load_Top At_Offset_0
02aa 481d |H | Short_Literal 0x1d
02ab 4830 |H0 | Short_Literal 0x30
02ac 0262 | b | Execute Discrete,In_Range
02ad 680a |h | Jump_Zero 0x2b8
02ae 00d8 | | Load_Top At_Offset_0
02af 481e |H | Short_Literal 0x1e
02b0 4827 |H' | Short_Literal 0x27
02b1 0262 | b | Execute Discrete,In_Range
02b2 7005 |p | Jump_Nonzero 0x2b8
02b3 4829 |H) | Short_Literal 0x29
02b4 482f |H/ | Short_Literal 0x2f
02b5 0262 | b | Execute Discrete,In_Range
02b6 700a |p | Jump_Nonzero 0x2c1
02b7 7802 |x | Jump 0x2ba
02b8 00d1 | | Pop_Control Pop_Count_1
02b9 7807 |x | Jump 0x2c1
02ba 00da | | Load_Top At_Offset_2
02bb 00da | | Load_Top At_Offset_2
02bc 4975 |Iu | Short_Literal 0x175
02bd 00eb | | Load_Encached Diana_Cache
02be 0098 | | Execute Package,Field_Read_Dynamic
02bf 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
02c0 0033 | 3 | Store_Top Heap_Access,At_Offset_3
02c1 00db | | Load_Top At_Offset_3
02c2 00eb | | Load_Encached Diana_Cache
02c3 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
02c4 a402 | | Store_Unchecked 0x2,0x2
02c5 00c9 | | Action Pop_Auxiliary_Loop
02c6 00db | | Load_Top At_Offset_3
02c7 00eb | | Load_Encached Diana_Cache
02c8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02c9 6fd8 |o | Jump_Zero 0x2a2
02ca 00ce | | Action Pop_Auxiliary
02cb 00d9 | | Load_Top At_Offset_1
02cc 4401 |D | Exit_Subprogram With_Result,0x1
02cd 0000 0000 | | .XXX[0x3]
02cf 0000 | |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d6 | | .CONST 0x02d6 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0003 | | .CONST 0x0003 ; Number of locals
02d3 INIT_02d0:
02d3 00eb | | Load_Encached Diana_Cache
02d4 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
02d5 00ec | | Load_Encached Diana_Tree_Cache
02d6 BODY_02d0:
02d6 e5ff | | Load 0x2,-0x1
02d7 00eb | | Load_Encached Diana_Cache
02d8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02d9 0f4c | L | Execute_Immediate Equal,0x4c
02da 6801 |h | Jump_Zero 0x2dc
02db 4506 |E | Exit_Subprogram 0x6
02dc e5ff | | Load 0x2,-0x1
02dd e01d | | Load 0x0,0x1d
02de 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
02df 0031 | 1 | Store_Top Heap_Access,At_Offset_1
02e0 00d8 | | Load_Top At_Offset_0
02e1 00eb | | Load_Encached Diana_Cache
02e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02e3 7008 |p | Jump_Nonzero 0x2ec
02e4 4801 |H | Short_Literal 0x1
02e5 00d9 | | Load_Top At_Offset_1
02e6 4976 |Iv | Short_Literal 0x176
02e7 00eb | | Load_Encached Diana_Cache
02e8 0098 | | Execute Package,Field_Read_Dynamic
02e9 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02ea 8216 | | Call 0x1,0x16
02eb 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02ec 00d9 | | Load_Top At_Offset_1
02ed 00eb | | Load_Encached Diana_Cache
02ee 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ef 6805 |h | Jump_Zero 0x2f5
02f0 0092 0811 | | Action Push_String_Extended,0x811 ; "no local variables or constants"
02f2 8013 | | Call 0x0,0x13
02f3 801c | | Call 0x0,0x1c
02f4 4506 |E | Exit_Subprogram 0x6
02f5 e5fb | | Load 0x2,-0x5
02f6 e5fc | | Load 0x2,-0x4
02f7 e5fd | | Load 0x2,-0x3
02f8 e5fe | | Load 0x2,-0x2
02f9 e402 | | Load 0x2,0x2
02fa 8214 | | Call 0x1,0x14
02fb 4506 |E | Exit_Subprogram 0x6
02fc 0000 0000 | | .BLANK 0000[0x4]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0311 | | .CONST 0x0311 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0008 | | .CONST 0x0008 ; Number of locals
0303 INIT_0300:
0303 480e |H | Short_Literal 0xe
0304 801e | | Call 0x0,0x1e
0305 00e1 | | Load_Encached Boolean_Cache
0306 03f1 | | Declare_Variable Discrete,With_Value
0307 00ec | | Load_Encached Diana_Tree_Cache
0308 00ec | | Load_Encached Diana_Tree_Cache
0309 00ec | | Load_Encached Diana_Tree_Cache
030a 00ec | | Load_Encached Diana_Tree_Cache
030b 00ef | | Load_Encached Diana_Sequence_Cache
030c e002 | | Load 0x0,0x2
030d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030e 02c7 | | Declare_Variable Any
030f 00d8 | | Load_Top At_Offset_0
0310 1c00 | | Execute_Immediate Run_Utility,0x0
0311 BODY_0300:
0311 e5fd | | Load 0x2,-0x3
0312 801f | | Call 0x0,0x1f
0313 a403 | | Store_Unchecked 0x2,0x3
0314 e403 | | Load 0x2,0x3
0315 00eb | | Load_Encached Diana_Cache
0316 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0317 00d8 | | Load_Top At_Offset_0
0318 0c4f | O | Execute_Immediate Greater_Equal,0x4f
0319 7057 |pW | Jump_Nonzero 0x371
031a 464e |FN | Jump_Case 0x4e
031b 7856 |xV | Jump 0x372 ; case 0x0
031c 7855 |xU | Jump 0x372 ; case 0x1
031d 7854 |xT | Jump 0x372 ; case 0x2
031e 7853 |xS | Jump 0x372 ; case 0x3
031f 7852 |xR | Jump 0x372 ; case 0x4
0320 7851 |xQ | Jump 0x372 ; case 0x5
0321 7850 |xP | Jump 0x372 ; case 0x6
0322 784f |xO | Jump 0x372 ; case 0x7
0323 784e |xN | Jump 0x372 ; case 0x8
0324 784d |xM | Jump 0x372 ; case 0x9
0325 784c |xL | Jump 0x372 ; case 0xa
0326 784b |xK | Jump 0x372 ; case 0xb
0327 784a |xJ | Jump 0x372 ; case 0xc
0328 7849 |xI | Jump 0x372 ; case 0xd
0329 7848 |xH | Jump 0x372 ; case 0xe
032a 7847 |xG | Jump 0x372 ; case 0xf
032b 7846 |xF | Jump 0x372 ; case 0x10
032c 7845 |xE | Jump 0x372 ; case 0x11
032d 7844 |xD | Jump 0x372 ; case 0x12
032e 7843 |xC | Jump 0x372 ; case 0x13
032f 7842 |xB | Jump 0x372 ; case 0x14
0330 7841 |xA | Jump 0x372 ; case 0x15
0331 7840 |x@ | Jump 0x372 ; case 0x16
0332 783f |x? | Jump 0x372 ; case 0x17
0333 783e |x> | Jump 0x372 ; case 0x18
0334 783d |x= | Jump 0x372 ; case 0x19
0335 783c |x< | Jump 0x372 ; case 0x1a
0336 783b |x; | Jump 0x372 ; case 0x1b
0337 783a |x: | Jump 0x372 ; case 0x1c
0338 7839 |x9 | Jump 0x372 ; case 0x1d
0339 7838 |x8 | Jump 0x372 ; case 0x1e
033a 7837 |x7 | Jump 0x372 ; case 0x1f
033b 7836 |x6 | Jump 0x372 ; case 0x20
033c 7842 |xB | Jump 0x37f ; case 0x21
033d 7846 |xF | Jump 0x384 ; case 0x22
033e 7833 |x3 | Jump 0x372 ; case 0x23
033f 7832 |x2 | Jump 0x372 ; case 0x24
0340 7831 |x1 | Jump 0x372 ; case 0x25
0341 7830 |x0 | Jump 0x372 ; case 0x26
0342 782f |x/ | Jump 0x372 ; case 0x27
0343 782e |x. | Jump 0x372 ; case 0x28
0344 788f |x | Jump 0x3d4 ; case 0x29
0345 782c |x, | Jump 0x372 ; case 0x2a
0346 782b |x+ | Jump 0x372 ; case 0x2b
0347 7837 |x7 | Jump 0x37f ; case 0x2c
0348 7829 |x) | Jump 0x372 ; case 0x2d
0349 7883 |x | Jump 0x3cd ; case 0x2e
034a 7827 |x' | Jump 0x372 ; case 0x2f
034b 7860 |x` | Jump 0x3ac ; case 0x30
034c 7825 |x% | Jump 0x372 ; case 0x31
034d 7824 |x$ | Jump 0x372 ; case 0x32
034e 7830 |x0 | Jump 0x37f ; case 0x33
034f 7822 |x" | Jump 0x372 ; case 0x34
0350 7821 |x! | Jump 0x372 ; case 0x35
0351 7820 |x | Jump 0x372 ; case 0x36
0352 781f |x | Jump 0x372 ; case 0x37
0353 781e |x | Jump 0x372 ; case 0x38
0354 781d |x | Jump 0x372 ; case 0x39
0355 781c |x | Jump 0x372 ; case 0x3a
0356 781b |x | Jump 0x372 ; case 0x3b
0357 781a |x | Jump 0x372 ; case 0x3c
0358 7819 |x | Jump 0x372 ; case 0x3d
0359 7818 |x | Jump 0x372 ; case 0x3e
035a 7817 |x | Jump 0x372 ; case 0x3f
035b 7816 |x | Jump 0x372 ; case 0x40
035c 7815 |x | Jump 0x372 ; case 0x41
035d 7814 |x | Jump 0x372 ; case 0x42
035e 7813 |x | Jump 0x372 ; case 0x43
035f 7812 |x | Jump 0x372 ; case 0x44
0360 7811 |x | Jump 0x372 ; case 0x45
0361 7810 |x | Jump 0x372 ; case 0x46
0362 780f |x | Jump 0x372 ; case 0x47
0363 780e |x | Jump 0x372 ; case 0x48
0364 780d |x | Jump 0x372 ; case 0x49
0365 780c |x | Jump 0x372 ; case 0x4a
0366 780b |x | Jump 0x372 ; case 0x4b
0367 7817 |x | Jump 0x37f ; case 0x4c
0368 7809 |x | Jump 0x372 ; case 0x4d
0369 7800 |x | Jump 0x36a ; case 0x4e
036a 00d8 | | Load_Top At_Offset_0
036b 0092 0812 | | Action Push_String_Extended,0x812 ; "A block has no parameters to display."
036d e002 | | Load 0x0,0x2
036e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
036f c408 | | Store 0x2,0x8
0370 7869 |xi | Jump 0x3da
0371 00d1 | | Pop_Control Pop_Count_1
0372 0092 0813 | | Action Push_String_Extended,0x813 ; "Display_Context : unknown node type for subprog: "
0374 e403 | | Load 0x2,0x3
0375 00eb | | Load_Encached Diana_Cache
0376 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0377 00eb | | Load_Encached Diana_Cache
0378 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0379 011c | | Execute Any,Convert_Unchecked
037a 1c01 | | Execute_Immediate Run_Utility,0x1
037b 01cc | | Execute Vector,Catenate
037c e017 | | Load 0x0,0x17
037d 180f | | Execute Package,Field_Execute,Field_Number 0xf
037e 785b |x[ | Jump 0x3da
037f e403 | | Load 0x2,0x3
0380 e020 | | Load 0x0,0x20
0381 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0382 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0383 7856 |xV | Jump 0x3da
0384 00ec | | Load_Encached Diana_Tree_Cache
0385 00ec | | Load_Encached Diana_Tree_Cache
0386 e5fd | | Load 0x2,-0x3
0387 8021 | ! | Call 0x0,0x21
0388 e403 | | Load 0x2,0x3
0389 e01d | | Load 0x0,0x1d
038a 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
038b c404 | | Store 0x2,0x4
038c c405 | | Store 0x2,0x5
038d 00db | | Load_Top At_Offset_3
038e 00eb | | Load_Encached Diana_Cache
038f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0390 00d8 | | Load_Top At_Offset_0
0391 4821 |H! | Short_Literal 0x21
0392 4833 |H3 | Short_Literal 0x33
0393 0262 | b | Execute Discrete,In_Range
0394 680f |h | Jump_Zero 0x3a4
0395 00d8 | | Load_Top At_Offset_0
0396 4822 |H" | Short_Literal 0x22
0397 482b |H+ | Short_Literal 0x2b
0398 0262 | b | Execute Discrete,In_Range
0399 700a |p | Jump_Nonzero 0x3a4
039a 482d |H- | Short_Literal 0x2d
039b 4832 |H2 | Short_Literal 0x32
039c 0262 | b | Execute Discrete,In_Range
039d 7007 |p | Jump_Nonzero 0x3a5
039e 7800 |x | Jump 0x39f
039f 00db | | Load_Top At_Offset_3
03a0 e020 | | Load 0x0,0x20
03a1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03a2 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03a3 7836 |x6 | Jump 0x3da
03a4 00d1 | | Pop_Control Pop_Count_1
03a5 00d8 | | Load_Top At_Offset_0
03a6 0092 0814 | | Action Push_String_Extended,0x814 ; "A generic package has no parameters to display."
03a8 e002 | | Load 0x0,0x2
03a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03aa c408 | | Store 0x2,0x8
03ab 782e |x. | Jump 0x3da
03ac e5fd | | Load 0x2,-0x3
03ad 800d | | Call 0x0,0xd
03ae 0033 | 3 | Store_Top Heap_Access,At_Offset_3
03af 00da | | Load_Top At_Offset_2
03b0 00eb | | Load_Encached Diana_Cache
03b1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03b2 0f73 | s | Execute_Immediate Equal,0x73
03b3 680c |h | Jump_Zero 0x3c0
03b4 00da | | Load_Top At_Offset_2
03b5 e403 | | Load 0x2,0x3
03b6 e01d | | Load 0x0,0x1d
03b7 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
03b8 a403 | | Store_Unchecked 0x2,0x3
03b9 00d8 | | Load_Top At_Offset_0
03ba 0092 0815 | | Action Push_String_Extended,0x815 ; "A task has no parameters to display."
03bc e002 | | Load 0x0,0x2
03bd 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03be c408 | | Store 0x2,0x8
03bf 781a |x | Jump 0x3da
03c0 0092 0813 | | Action Push_String_Extended,0x813 ; "Display_Context : unknown node type for subprog: "
03c2 e403 | | Load 0x2,0x3
03c3 00eb | | Load_Encached Diana_Cache
03c4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03c5 00eb | | Load_Encached Diana_Cache
03c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c7 011c | | Execute Any,Convert_Unchecked
03c8 1c01 | | Execute_Immediate Run_Utility,0x1
03c9 01cc | | Execute Vector,Catenate
03ca e017 | | Load 0x0,0x17
03cb 180f | | Execute Package,Field_Execute,Field_Number 0xf
03cc 780d |x | Jump 0x3da
03cd 00d8 | | Load_Top At_Offset_0
03ce 0092 0815 | | Action Push_String_Extended,0x815 ; "A task has no parameters to display."
03d0 e002 | | Load 0x0,0x2
03d1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03d2 c408 | | Store 0x2,0x8
03d3 7806 |x | Jump 0x3da
03d4 00d8 | | Load_Top At_Offset_0
03d5 0092 0816 | | Action Push_String_Extended,0x816 ; "A package has no parameters to display."
03d7 e002 | | Load 0x0,0x2
03d8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03d9 c408 | | Store 0x2,0x8
03da 4802 |H | Short_Literal 0x2
03db 00d9 | | Load_Top At_Offset_1
03dc e002 | | Load 0x0,0x2
03dd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03de 680c |h | Jump_Zero 0x3eb
03df e402 | | Load 0x2,0x2
03e0 6807 |h | Jump_Zero 0x3e8
03e1 e5fc | | Load 0x2,-0x4
03e2 e5fd | | Load 0x2,-0x3
03e3 e5fe | | Load 0x2,-0x2
03e4 e5ff | | Load 0x2,-0x1
03e5 e403 | | Load 0x2,0x3
03e6 8217 | | Call 0x1,0x17
03e7 4505 |E | Exit_Subprogram 0x5
03e8 00d8 | | Load_Top At_Offset_0
03e9 c5fb | | Store 0x2,-0x5
03ea 4505 |E | Exit_Subprogram 0x5
03eb e5fc | | Load 0x2,-0x4
03ec e5fd | | Load 0x2,-0x3
03ed e5fe | | Load 0x2,-0x2
03ee e5ff | | Load 0x2,-0x1
03ef e407 | | Load 0x2,0x7
03f0 8215 | | Call 0x1,0x15
03f1 e402 | | Load 0x2,0x2
03f2 6806 |h | Jump_Zero 0x3f9
03f3 e5fc | | Load 0x2,-0x4
03f4 e5fd | | Load 0x2,-0x3
03f5 e5fe | | Load 0x2,-0x2
03f6 e5ff | | Load 0x2,-0x1
03f7 e403 | | Load 0x2,0x3
03f8 8217 | | Call 0x1,0x17
03f9 4505 |E | Exit_Subprogram 0x5
03fa 0000 0000 | | .BLANK 0000[0x6]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 040b | | .CONST 0x040b ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0003 | | .CONST 0x0003 ; Number of locals
0403 INIT_0400:
0403 e002 | | Load 0x0,0x2
0404 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0405 02c7 | | Declare_Variable Any
0406 e002 | | Load 0x0,0x2
0407 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0408 a402 | | Store_Unchecked 0x2,0x2
0409 029f 07d3 | | Declare_Subprogram For_Call,INIT_07d0
040b BODY_0400:
040b e5fc | | Load 0x2,-0x4
040c 8022 | " | Call 0x0,0x22
040d 460d |F | Jump_Case 0xd
040e 7815 |x | Jump 0x424 ; case 0x0
040f 7814 |x | Jump 0x424 ; case 0x1
0410 7813 |x | Jump 0x424 ; case 0x2
0411 7812 |x | Jump 0x424 ; case 0x3
0412 7809 |x | Jump 0x41c ; case 0x4
0413 7810 |x | Jump 0x424 ; case 0x5
0414 780d |x | Jump 0x422 ; case 0x6
0415 7806 |x | Jump 0x41c ; case 0x7
0416 780b |x | Jump 0x422 ; case 0x8
0417 780a |x | Jump 0x422 ; case 0x9
0418 7809 |x | Jump 0x422 ; case 0xa
0419 7808 |x | Jump 0x422 ; case 0xb
041a 7801 |x | Jump 0x41c ; case 0xc
041b 7800 |x | Jump 0x41c ; case 0xd
041c 0092 0817 | | Action Push_String_Extended,0x817 ; "This type of context cannot be displayed."
041e e002 | | Load 0x0,0x2
041f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0420 c402 | | Store 0x2,0x2
0421 7809 |x | Jump 0x42b
0422 8403 | | Call 0x2,0x3
0423 7807 |x | Jump 0x42b
0424 00d9 | | Load_Top At_Offset_1
0425 e5fd | | Load 0x2,-0x3
0426 e5fc | | Load 0x2,-0x4
0427 e5fe | | Load 0x2,-0x2
0428 e5ff | | Load 0x2,-0x1
0429 8218 | | Call 0x1,0x18
042a c402 | | Store 0x2,0x2
042b 4802 |H | Short_Literal 0x2
042c 00da | | Load_Top At_Offset_2
042d e002 | | Load 0x0,0x2
042e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
042f 6806 |h | Jump_Zero 0x436
0430 480a |H | Short_Literal 0xa
0431 00da | | Load_Top At_Offset_2
0432 e002 | | Load 0x0,0x2
0433 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0434 01cb | | Execute Vector,Append
0435 8006 | | Call 0x0,0x6
0436 4504 |E | Exit_Subprogram 0x4
0437 0000 | | .XXX[0x1]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043d | = | .CONST 0x043d ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0002 | | .CONST 0x0002 ; Number of locals
043b INIT_0438:
043b 00da | | Load_Top At_Offset_2
043c 801f | | Call 0x0,0x1f
043d BODY_0438:
043d 00d8 | | Load_Top At_Offset_0
043e 00eb | | Load_Encached Diana_Cache
043f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0440 00d8 | | Load_Top At_Offset_0
0441 0c31 | 1 | Execute_Immediate Greater_Equal,0x31
0442 7036 |p6 | Jump_Nonzero 0x479
0443 4630 |F0 | Jump_Case 0x30
0444 7835 |x5 | Jump 0x47a ; case 0x0
0445 7834 |x4 | Jump 0x47a ; case 0x1
0446 7833 |x3 | Jump 0x47a ; case 0x2
0447 7832 |x2 | Jump 0x47a ; case 0x3
0448 7831 |x1 | Jump 0x47a ; case 0x4
0449 7830 |x0 | Jump 0x47a ; case 0x5
044a 782f |x/ | Jump 0x47a ; case 0x6
044b 782e |x. | Jump 0x47a ; case 0x7
044c 782d |x- | Jump 0x47a ; case 0x8
044d 782c |x, | Jump 0x47a ; case 0x9
044e 782b |x+ | Jump 0x47a ; case 0xa
044f 782a |x* | Jump 0x47a ; case 0xb
0450 7829 |x) | Jump 0x47a ; case 0xc
0451 7828 |x( | Jump 0x47a ; case 0xd
0452 7827 |x' | Jump 0x47a ; case 0xe
0453 7826 |x& | Jump 0x47a ; case 0xf
0454 7825 |x% | Jump 0x47a ; case 0x10
0455 7824 |x$ | Jump 0x47a ; case 0x11
0456 7823 |x# | Jump 0x47a ; case 0x12
0457 7822 |x" | Jump 0x47a ; case 0x13
0458 7821 |x! | Jump 0x47a ; case 0x14
0459 7820 |x | Jump 0x47a ; case 0x15
045a 781f |x | Jump 0x47a ; case 0x16
045b 781e |x | Jump 0x47a ; case 0x17
045c 781d |x | Jump 0x47a ; case 0x18
045d 781c |x | Jump 0x47a ; case 0x19
045e 781b |x | Jump 0x47a ; case 0x1a
045f 781a |x | Jump 0x47a ; case 0x1b
0460 7814 |x | Jump 0x475 ; case 0x1c
0461 781e |x | Jump 0x480 ; case 0x1d
0462 7823 |x# | Jump 0x486 ; case 0x1e
0463 7816 |x | Jump 0x47a ; case 0x1f
0464 7815 |x | Jump 0x47a ; case 0x20
0465 7814 |x | Jump 0x47a ; case 0x21
0466 7813 |x | Jump 0x47a ; case 0x22
0467 780d |x | Jump 0x475 ; case 0x23
0468 780c |x | Jump 0x475 ; case 0x24
0469 780b |x | Jump 0x475 ; case 0x25
046a 7821 |x! | Jump 0x48c ; case 0x26
046b 780e |x | Jump 0x47a ; case 0x27
046c 780d |x | Jump 0x47a ; case 0x28
046d 780c |x | Jump 0x47a ; case 0x29
046e 780b |x | Jump 0x47a ; case 0x2a
046f 780a |x | Jump 0x47a ; case 0x2b
0470 7809 |x | Jump 0x47a ; case 0x2c
0471 7808 |x | Jump 0x47a ; case 0x2d
0472 7807 |x | Jump 0x47a ; case 0x2e
0473 781e |x | Jump 0x492 ; case 0x2f
0474 7800 |x | Jump 0x475 ; case 0x30
0475 e002 | | Load 0x0,0x2
0476 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0477 c5fe | | Store 0x2,-0x2
0478 4502 |E | Exit_Subprogram 0x2
0479 00d1 | | Pop_Control Pop_Count_1
047a 0092 0818 | | Action Push_String_Extended,0x818 ; " This kind of object cannot be modified."
047c e002 | | Load 0x0,0x2
047d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
047e c5fe | | Store 0x2,-0x2
047f 4502 |E | Exit_Subprogram 0x2
0480 0092 0819 | | Action Push_String_Extended,0x819 ; " A constant cannot be modified."
0482 e002 | | Load 0x0,0x2
0483 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0484 c5fe | | Store 0x2,-0x2
0485 4502 |E | Exit_Subprogram 0x2
0486 0092 081a | | Action Push_String_Extended,0x81a ; " A discriminant cannot be modified."
0488 e002 | | Load 0x0,0x2
0489 1811 | | Execute Package,Field_Execute,Field_Number 0x11
048a c5fe | | Store 0x2,-0x2
048b 4502 |E | Exit_Subprogram 0x2
048c 0092 081b | | Action Push_String_Extended,0x81b ; " A loop parameter cannot be modified."
048e e002 | | Load 0x0,0x2
048f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0490 c5fe | | Store 0x2,-0x2
0491 4502 |E | Exit_Subprogram 0x2
0492 e002 | | Load 0x0,0x2
0493 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0494 c5fe | | Store 0x2,-0x2
0495 4502 |E | Exit_Subprogram 0x2
0496 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
049c 8022 | " | Call 0x0,0x22
049d 460d |F | Jump_Case 0xd
049e 7832 |x2 | Jump 0x4d1 ; case 0x0
049f 7831 |x1 | Jump 0x4d1 ; case 0x1
04a0 7830 |x0 | Jump 0x4d1 ; case 0x2
04a1 782f |x/ | Jump 0x4d1 ; case 0x3
04a2 7809 |x | Jump 0x4ac ; case 0x4
04a3 782d |x- | Jump 0x4d1 ; case 0x5
04a4 7821 |x! | Jump 0x4c6 ; case 0x6
04a5 7806 |x | Jump 0x4ac ; case 0x7
04a6 7811 |x | Jump 0x4b8 ; case 0x8
04a7 7824 |x$ | Jump 0x4cc ; case 0x9
04a8 7809 |x | Jump 0x4b2 ; case 0xa
04a9 7808 |x | Jump 0x4b2 ; case 0xb
04aa 7801 |x | Jump 0x4ac ; case 0xc
04ab 7800 |x | Jump 0x4ac ; case 0xd
04ac 0092 081c | | Action Push_String_Extended,0x81c ; "This type of context cannot be modified."
04ae e002 | | Load 0x0,0x2
04af 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04b0 c5fe | | Store 0x2,-0x2
04b1 7824 |x$ | Jump 0x4d6
04b2 0092 081d | | Action Push_String_Extended,0x81d ; "Modify one element at a time."
04b4 e002 | | Load 0x0,0x2
04b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04b6 c5fe | | Store 0x2,-0x2
04b7 781e |x | Jump 0x4d6
04b8 00da | | Load_Top At_Offset_2
04b9 8023 | # | Call 0x0,0x23
04ba 6806 |h | Jump_Zero 0x4c1
04bb 0092 081e | | Action Push_String_Extended,0x81e ; "A constant cannot be modified."
04bd e002 | | Load 0x0,0x2
04be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04bf c5fe | | Store 0x2,-0x2
04c0 7815 |x | Jump 0x4d6
04c1 00db | | Load_Top At_Offset_3
04c2 00db | | Load_Top At_Offset_3
04c3 821a | | Call 0x1,0x1a
04c4 c5fe | | Store 0x2,-0x2
04c5 7810 |x | Jump 0x4d6
04c6 0092 081f | | Action Push_String_Extended,0x81f ; "A task cannot be modified."
04c8 e002 | | Load 0x0,0x2
04c9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04ca c5fe | | Store 0x2,-0x2
04cb 780a |x | Jump 0x4d6
04cc 00db | | Load_Top At_Offset_3
04cd 00db | | Load_Top At_Offset_3
04ce 821a | | Call 0x1,0x1a
04cf c5fe | | Store 0x2,-0x2
04d0 7805 |x | Jump 0x4d6
04d1 0092 0820 | | Action Push_String_Extended,0x820 ; "A subprogram cannot be modified."
04d3 e002 | | Load 0x0,0x2
04d4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04d5 c5fe | | Store 0x2,-0x2
04d6 4802 |H | Short_Literal 0x2
04d7 e5fe | | Load 0x2,-0x2
04d8 e002 | | Load 0x0,0x2
04d9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04da 6806 |h | Jump_Zero 0x4e1
04db 480a |H | Short_Literal 0xa
04dc e5fe | | Load 0x2,-0x2
04dd e002 | | Load 0x0,0x2
04de 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04df 01cb | | Execute Vector,Append
04e0 8006 | | Call 0x0,0x6
04e1 4502 |E | Exit_Subprogram 0x2
04e2 0000 0000 | | .BLANK 0000[0x6]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb | | .CONST 0x04eb ; Address of begin
04e9 04f3 | | .CONST 0x04f3 ; Address of exception handler
04ea 0001 | | .CONST 0x0001 ; Number of locals
04eb BODY_04e8:
04eb INIT_04e8:
04eb 4800 |H | Short_Literal 0x0
04ec 00db | | Load_Top At_Offset_3
04ed 8024 | $ | Call 0x0,0x24
04ee c5fe | | Store 0x2,-0x2
04ef e002 | | Load 0x0,0x2
04f0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04f1 c5fd | | Store 0x2,-0x3
04f2 4502 |E | Exit_Subprogram 0x2
04f3 TRAP_04e8:
04f3 0007 | | Action Break_Optional
04f4 8025 | % | Call 0x0,0x25
04f5 c5fe | | Store 0x2,-0x2
04f6 0092 0821 | !| Action Push_String_Extended,0x821 ; "Invalid integer value"
04f8 e002 | | Load 0x0,0x2
04f9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04fa c5fd | | Store 0x2,-0x3
04fb 4502 |E | Exit_Subprogram 0x2
04fc 0000 0000 | | .BLANK 0000[0x4]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503 | | .CONST 0x0503 ; Address of begin
0501 050a | | .CONST 0x050a ; Address of exception handler
0502 0001 | | .CONST 0x0001 ; Number of locals
0503 BODY_0500:
0503 INIT_0500:
0503 00da | | Load_Top At_Offset_2
0504 8026 | & | Call 0x0,0x26
0505 c5fe | | Store 0x2,-0x2
0506 e002 | | Load 0x0,0x2
0507 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0508 c5fd | | Store 0x2,-0x3
0509 4502 |E | Exit_Subprogram 0x2
050a TRAP_0500:
050a e027 | ' | Load 0x0,0x27
050b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
050c 010f | | Execute Exception,Equal
050d 6809 |h | Jump_Zero 0x517
050e e5fd | | Load 0x2,-0x3
050f e5ff | | Load 0x2,-0x1
0510 0092 0822 | "| Action Push_String_Extended,0x822 ; " is not a valid numeric value."
0512 01cc | | Execute Vector,Catenate
0513 e002 | | Load 0x0,0x2
0514 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0515 c5fd | | Store 0x2,-0x3
0516 4502 |E | Exit_Subprogram 0x2
0517 0100 | | Execute Exception,Raise
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051d | | .CONST 0x051d ; Address of begin
0519 056d | m | .CONST 0x056d ; Address of exception handler
051a 0002 | | .CONST 0x0002 ; Number of locals
051b INIT_0518:
051b 029f 07eb | | Declare_Subprogram For_Call,INIT_07e8
051d BODY_0518:
051d e5fe | | Load 0x2,-0x2
051e 00eb | | Load_Encached Diana_Cache
051f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0520 00d8 | | Load_Top At_Offset_0
0521 4864 |Hd | Short_Literal 0x64
0522 486f |Ho | Short_Literal 0x6f
0523 0262 | b | Execute Discrete,In_Range
0524 683f |h? | Jump_Zero 0x564
0525 0a9c | | Execute_Immediate Plus,-0x64
0526 460b |F | Jump_Case 0xb
0527 7823 |x# | Jump 0x54b ; case 0x0
0528 7816 |x | Jump 0x53f ; case 0x1
0529 783b |x; | Jump 0x565 ; case 0x2
052a 783a |x: | Jump 0x565 ; case 0x3
052b 7839 |x9 | Jump 0x565 ; case 0x4
052c 7838 |x8 | Jump 0x565 ; case 0x5
052d 7837 |x7 | Jump 0x565 ; case 0x6
052e 781e |x | Jump 0x54d ; case 0x7
052f 7835 |x5 | Jump 0x565 ; case 0x8
0530 7834 |x4 | Jump 0x565 ; case 0x9
0531 7833 |x3 | Jump 0x565 ; case 0xa
0532 7800 |x | Jump 0x533 ; case 0xb
0533 e5fc | | Load 0x2,-0x4
0534 e5fd | | Load 0x2,-0x3
0535 0120 | | Execute Any,Is_Value
0536 6802 |h | Jump_Zero 0x539
0537 e00c | | Load 0x0,0xc
0538 7801 |x | Jump 0x53a
0539 e5fd | | Load 0x2,-0x3
053a e5ff | | Load 0x2,-0x1
053b 821c | | Call 0x1,0x1c
053c c5fd | | Store 0x2,-0x3
053d c5fc | | Store 0x2,-0x4
053e 4503 |E | Exit_Subprogram 0x3
053f e5fc | | Load 0x2,-0x4
0540 e5fd | | Load 0x2,-0x3
0541 0120 | | Execute Any,Is_Value
0542 6802 |h | Jump_Zero 0x545
0543 e00c | | Load 0x0,0xc
0544 7801 |x | Jump 0x546
0545 e5fd | | Load 0x2,-0x3
0546 e5ff | | Load 0x2,-0x1
0547 821d | | Call 0x1,0x1d
0548 c5fd | | Store 0x2,-0x3
0549 c5fc | | Store 0x2,-0x4
054a 4503 |E | Exit_Subprogram 0x3
054b 8402 | | Call 0x2,0x2
054c 4503 |E | Exit_Subprogram 0x3
054d 0092 0823 | #| Action Push_String_Extended,0x823 ; "NULL"
054f e5ff | | Load 0x2,-0x1
0550 8028 | ( | Call 0x0,0x28
0551 680a |h | Jump_Zero 0x55c
0552 e5fe | | Load 0x2,-0x2
0553 e029 | ) | Load 0x0,0x29
0554 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0555 6803 |h | Jump_Zero 0x559
0556 802a | * | Call 0x0,0x2a
0557 c5fd | | Store 0x2,-0x3
0558 4503 |E | Exit_Subprogram 0x3
0559 802b | + | Call 0x0,0x2b
055a c5fd | | Store 0x2,-0x3
055b 4503 |E | Exit_Subprogram 0x3
055c 8025 | % | Call 0x0,0x25
055d c5fd | | Store 0x2,-0x3
055e 0092 0824 | $| Action Push_String_Extended,0x824 ; "Can only modify an access value to null"
0560 e002 | | Load 0x0,0x2
0561 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0562 c5fc | | Store 0x2,-0x4
0563 4503 |E | Exit_Subprogram 0x3
0564 00d1 | | Pop_Control Pop_Count_1
0565 8025 | % | Call 0x0,0x25
0566 c5fd | | Store 0x2,-0x3
0567 0092 0825 | %| Action Push_String_Extended,0x825 ; "This type of object cannot be modified"
0569 e002 | | Load 0x0,0x2
056a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
056b c5fc | | Store 0x2,-0x4
056c 4503 |E | Exit_Subprogram 0x3
056d TRAP_0518:
056d e027 | ' | Load 0x0,0x27
056e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
056f 010f | | Execute Exception,Equal
0570 6809 |h | Jump_Zero 0x57a
0571 e5fc | | Load 0x2,-0x4
0572 e5ff | | Load 0x2,-0x1
0573 0092 0822 | "| Action Push_String_Extended,0x822 ; " is not a valid numeric value."
0575 01cc | | Execute Vector,Catenate
0576 e002 | | Load 0x0,0x2
0577 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0578 c5fc | | Store 0x2,-0x4
0579 4503 |E | Exit_Subprogram 0x3
057a 0100 | | Execute Exception,Raise
057b 0000 0000 | | .BLANK 0000[0x5]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 00da | | Load_Top At_Offset_2
0584 01db | | Execute Vector,Length
0585 0f03 | | Execute_Immediate Equal,0x3
0586 680e |h | Jump_Zero 0x595
0587 00da | | Load_Top At_Offset_2
0588 01dd | | Execute Vector,First
0589 00db | | Load_Top At_Offset_3
058a 01d7 | | Execute Vector,Field_Read
058b 0f27 | ' | Execute_Immediate Equal,0x27
058c 6806 |h | Jump_Zero 0x593
058d 00da | | Load_Top At_Offset_2
058e 01dc | | Execute Vector,Last
058f 00db | | Load_Top At_Offset_3
0590 01d7 | | Execute Vector,Field_Read
0591 0f27 | ' | Execute_Immediate Equal,0x27
0592 4401 |D | Exit_Subprogram With_Result,0x1
0593 4800 |H | Short_Literal 0x0
0594 4401 |D | Exit_Subprogram With_Result,0x1
0595 4800 |H | Short_Literal 0x0
0596 4401 |D | Exit_Subprogram With_Result,0x1
0597 0000 | | .XXX[0x1]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059b | | .CONST 0x059b ; Address of begin
0599 0004 | | .CONST 0x0004 ; Address of exception handler
059a 0001 | | .CONST 0x0001 ; Number of locals
059b BODY_0598:
059b INIT_0598:
059b 00da | | Load_Top At_Offset_2
059c 01db | | Execute Vector,Length
059d 680f |h | Jump_Zero 0x5ad
059e 00da | | Load_Top At_Offset_2
059f 821f | | Call 0x1,0x1f
05a0 700c |p | Jump_Nonzero 0x5ad
05a1 00da | | Load_Top At_Offset_2
05a2 01dd | | Execute Vector,First
05a3 00db | | Load_Top At_Offset_3
05a4 01d7 | | Execute Vector,Field_Read
05a5 0f22 | " | Execute_Immediate Equal,0x22
05a6 6808 |h | Jump_Zero 0x5af
05a7 00da | | Load_Top At_Offset_2
05a8 01dc | | Execute Vector,Last
05a9 00db | | Load_Top At_Offset_3
05aa 01d7 | | Execute Vector,Field_Read
05ab 0f22 | " | Execute_Immediate Equal,0x22
05ac 6802 |h | Jump_Zero 0x5af
05ad 00da | | Load_Top At_Offset_2
05ae 4401 |D | Exit_Subprogram With_Result,0x1
05af 00da | | Load_Top At_Offset_2
05b0 e02c | , | Load 0x0,0x2c
05b1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05b2 4401 |D | Exit_Subprogram With_Result,0x1
05b3 0000 0000 | | .BLANK 0000[0x5]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 00da | | Load_Top At_Offset_2
05bc 0f22 | " | Execute_Immediate Equal,0x22
05bd 00db | | Load_Top At_Offset_3
05be 0f27 | ' | Execute_Immediate Equal,0x27
05bf 0278 | x | Execute Discrete,Or
05c0 4401 |D | Exit_Subprogram With_Result,0x1
05c1 0000 0000 | | .BLANK 0000[0x7]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05dc | | .CONST 0x05dc ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0005 | | .CONST 0x0005 ; Number of locals
05cb INIT_05c8:
05cb 00da | | Load_Top At_Offset_2
05cc 01db | | Execute Vector,Length
05cd e02d | - | Load 0x0,0x2d
05ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05cf 1c08 | | Execute_Immediate Run_Utility,0x8
05d0 00d8 | | Load_Top At_Offset_0
05d1 1c00 | | Execute_Immediate Run_Utility,0x0
05d2 00db | | Load_Top At_Offset_3
05d3 01db | | Execute Vector,Length
05d4 e02d | - | Load 0x0,0x2d
05d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05d6 1c08 | | Execute_Immediate Run_Utility,0x8
05d7 00d8 | | Load_Top At_Offset_0
05d8 1c00 | | Execute_Immediate Run_Utility,0x0
05d9 00e8 | | Load_Encached Character_Cache
05da 00e1 | | Load_Encached Boolean_Cache
05db 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
05dc BODY_05c8:
05dc 00db | | Load_Top At_Offset_3
05dd e5ff | | Load 0x2,-0x1
05de e02d | - | Load 0x0,0x2d
05df 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05e0 00d1 | | Pop_Control Pop_Count_1
05e1 00da | | Load_Top At_Offset_2
05e2 00ea | | Load_Encached Null_String_Cache
05e3 e02d | - | Load 0x0,0x2d
05e4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05e5 00d1 | | Pop_Control Pop_Count_1
05e6 00cf | | Action Mark_Auxiliary
05e7 e402 | | Load 0x2,0x2
05e8 e02d | - | Load 0x0,0x2d
05e9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
05ea 682e |h. | Jump_Zero 0x619
05eb e402 | | Load 0x2,0x2
05ec e02d | - | Load 0x0,0x2d
05ed 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
05ee 00d8 | | Load_Top At_Offset_0
05ef 00e4 | | Load_Encached Positive_Cache
05f0 0260 | ` | Execute Discrete,In_Type
05f1 7001 |p | Jump_Nonzero 0x5f3
05f2 0801 | | Execute_Immediate Raise,0x1
05f3 e402 | | Load 0x2,0x2
05f4 e02d | - | Load 0x0,0x2d
05f5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05f6 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
05f7 00da | | Load_Top At_Offset_2
05f8 8221 | ! | Call 0x1,0x21
05f9 6803 |h | Jump_Zero 0x5fd
05fa 00d9 | | Load_Top At_Offset_1
05fb 0f00 | | Execute_Immediate Equal,0x0
05fc 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
05fd 00da | | Load_Top At_Offset_2
05fe 0f2e | . | Execute_Immediate Equal,0x2e
05ff 00da | | Load_Top At_Offset_2
0600 0f00 | | Execute_Immediate Equal,0x0
0601 0279 | y | Execute Discrete,And
0602 7016 |p | Jump_Nonzero 0x619
0603 e402 | | Load 0x2,0x2
0604 4820 |H | Short_Literal 0x20
0605 e402 | | Load 0x2,0x2
0606 e02d | - | Load 0x0,0x2d
0607 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0608 0aff | | Execute_Immediate Plus,-0x1
0609 00d8 | | Load_Top At_Offset_0
060a 00e3 | | Load_Encached Natural_Cache
060b 0260 | ` | Execute Discrete,In_Type
060c 7001 |p | Jump_Nonzero 0x60e
060d 0801 | | Execute_Immediate Raise,0x1
060e e02d | - | Load 0x0,0x2d
060f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0610 00d1 | | Pop_Control Pop_Count_1
0611 00db | | Load_Top At_Offset_3
0612 00db | | Load_Top At_Offset_3
0613 4801 |H | Short_Literal 0x1
0614 e02d | - | Load 0x0,0x2d
0615 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0616 00d1 | | Pop_Control Pop_Count_1
0617 00c9 | | Action Pop_Auxiliary_Loop
0618 7fce | | Jump 0x5e7
0619 00ce | | Action Pop_Auxiliary
061a 00db | | Load_Top At_Offset_3
061b e02d | - | Load 0x0,0x2d
061c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
061d 0c01 | | Execute_Immediate Greater_Equal,0x1
061e 680b |h | Jump_Zero 0x62a
061f 0092 0826 | &| Action Push_String_Extended,0x826 ; " Qualified names are not allowed. \x22"
0621 e402 | | Load 0x2,0x2
0622 e02d | - | Load 0x0,0x2d
0623 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0624 01cc | | Execute Vector,Catenate
0625 0092 0827 | '| Action Push_String_Extended,0x827 ; "\x22 is ignored."
0627 01cc | | Execute Vector,Catenate
0628 8013 | | Call 0x0,0x13
0629 801c | | Call 0x0,0x1c
062a 00da | | Load_Top At_Offset_2
062b e02d | - | Load 0x0,0x2d
062c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
062d 4401 |D | Exit_Subprogram With_Result,0x1
062e 0000 0000 | | .XXX[0x2]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0634 | 4 | .CONST 0x0634 ; Address of begin
0631 0643 | C | .CONST 0x0643 ; Address of exception handler
0632 0002 | | .CONST 0x0002 ; Number of locals
0633 INIT_0630:
0633 00e2 | | Load_Encached Integer_Cache
0634 BODY_0630:
0634 00db | | Load_Top At_Offset_3
0635 8222 | " | Call 0x1,0x22
0636 8220 | | Call 0x1,0x20
0637 e5fe | | Load 0x2,-0x2
0638 e020 | | Load 0x0,0x20
0639 1812 | | Execute Package,Field_Execute,Field_Number 0x12
063a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
063b 00d8 | | Load_Top At_Offset_0
063c 802e | . | Call 0x0,0x2e
063d c5fd | | Store 0x2,-0x3
063e e5fc | | Load 0x2,-0x4
063f e002 | | Load 0x0,0x2
0640 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0641 c5fc | | Store 0x2,-0x4
0642 4503 |E | Exit_Subprogram 0x3
0643 TRAP_0630:
0643 e020 | | Load 0x0,0x20
0644 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0645 010f | | Execute Exception,Equal
0646 680e |h | Jump_Zero 0x655
0647 e5fc | | Load 0x2,-0x4
0648 e5ff | | Load 0x2,-0x1
0649 0092 0828 | (| Action Push_String_Extended,0x828 ; " is not a valid identifier for the "
064b 01cc | | Execute Vector,Catenate
064c 0092 0829 | )| Action Push_String_Extended,0x829 ; "enumeration type."
064e 01cc | | Execute Vector,Catenate
064f e002 | | Load 0x0,0x2
0650 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0651 c5fc | | Store 0x2,-0x4
0652 8025 | % | Call 0x0,0x25
0653 c5fd | | Store 0x2,-0x3
0654 4503 |E | Exit_Subprogram 0x3
0655 0100 | | Execute Exception,Raise
0656 0000 0000 | | .XXX[0x2]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b 00da | | Load_Top At_Offset_2
065c 00d8 | | Load_Top At_Offset_0
065d 4830 |H0 | Short_Literal 0x30
065e 4839 |H9 | Short_Literal 0x39
065f 0262 | b | Execute Discrete,In_Range
0660 7004 |p | Jump_Nonzero 0x665
0661 0f2d | - | Execute_Immediate Equal,0x2d
0662 7003 |p | Jump_Nonzero 0x666
0663 4800 |H | Short_Literal 0x0
0664 4401 |D | Exit_Subprogram With_Result,0x1
0665 00d1 | | Pop_Control Pop_Count_1
0666 4801 |H | Short_Literal 0x1
0667 4401 |D | Exit_Subprogram With_Result,0x1
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066e | n | .CONST 0x066e ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0003 | | .CONST 0x0003 ; Number of locals
066b INIT_0668:
066b 00ec | | Load_Encached Diana_Tree_Cache
066c 0092 082a | *| Action Push_String_Extended,0x82a ; "Must be an integer, a floating point value, a character between single quotes, or \x22NULL\x22"
066e BODY_0668:
066e 8025 | % | Call 0x0,0x25
066f c5fe | | Store 0x2,-0x2
0670 e5ff | | Load 0x2,-0x1
0671 01db | | Execute Vector,Length
0672 7006 |p | Jump_Nonzero 0x679
0673 0092 082b | +| Action Push_String_Extended,0x82b ; "Must be non-empty"
0675 e002 | | Load 0x0,0x2
0676 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0677 c5fd | | Store 0x2,-0x3
0678 4502 |E | Exit_Subprogram 0x2
0679 e5ff | | Load 0x2,-0x1
067a 01dd | | Execute Vector,First
067b e5ff | | Load 0x2,-0x1
067c 01d7 | | Execute Vector,Field_Read
067d 8224 | $ | Call 0x1,0x24
067e 681c |h | Jump_Zero 0x69b
067f e5fd | | Load 0x2,-0x3
0680 e5fe | | Load 0x2,-0x2
0681 0120 | | Execute Any,Is_Value
0682 6802 |h | Jump_Zero 0x685
0683 e00c | | Load 0x0,0xc
0684 7801 |x | Jump 0x686
0685 e5fe | | Load 0x2,-0x2
0686 e5ff | | Load 0x2,-0x1
0687 821c | | Call 0x1,0x1c
0688 c5fe | | Store 0x2,-0x2
0689 c5fd | | Store 0x2,-0x3
068a 4802 |H | Short_Literal 0x2
068b e5fd | | Load 0x2,-0x3
068c e002 | | Load 0x0,0x2
068d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
068e 680b |h | Jump_Zero 0x69a
068f e5fd | | Load 0x2,-0x3
0690 e5fe | | Load 0x2,-0x2
0691 0120 | | Execute Any,Is_Value
0692 6802 |h | Jump_Zero 0x695
0693 e00c | | Load 0x0,0xc
0694 7801 |x | Jump 0x696
0695 e5fe | | Load 0x2,-0x2
0696 e5ff | | Load 0x2,-0x1
0697 821d | | Call 0x1,0x1d
0698 c5fe | | Store 0x2,-0x2
0699 c5fd | | Store 0x2,-0x3
069a 4502 |E | Exit_Subprogram 0x2
069b 0092 0823 | #| Action Push_String_Extended,0x823 ; "NULL"
069d e5ff | | Load 0x2,-0x1
069e 8028 | ( | Call 0x0,0x28
069f 6807 |h | Jump_Zero 0x6a7
06a0 802a | * | Call 0x0,0x2a
06a1 c5fe | | Store 0x2,-0x2
06a2 e5fd | | Load 0x2,-0x3
06a3 e002 | | Load 0x0,0x2
06a4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
06a5 c5fd | | Store 0x2,-0x3
06a6 4502 |E | Exit_Subprogram 0x2
06a7 0092 082c | ,| Action Push_String_Extended,0x82c ; "FALSE"
06a9 e5ff | | Load 0x2,-0x1
06aa 8028 | ( | Call 0x0,0x28
06ab 6804 |h | Jump_Zero 0x6b0
06ac 4800 |H | Short_Literal 0x0
06ad 802e | . | Call 0x0,0x2e
06ae c5fe | | Store 0x2,-0x2
06af 4502 |E | Exit_Subprogram 0x2
06b0 0092 082d | -| Action Push_String_Extended,0x82d ; "TRUE"
06b2 e5ff | | Load 0x2,-0x1
06b3 8028 | ( | Call 0x0,0x28
06b4 6804 |h | Jump_Zero 0x6b9
06b5 4801 |H | Short_Literal 0x1
06b6 802e | . | Call 0x0,0x2e
06b7 c5fe | | Store 0x2,-0x2
06b8 4502 |E | Exit_Subprogram 0x2
06b9 e5ff | | Load 0x2,-0x1
06ba 821f | | Call 0x1,0x1f
06bb 6819 |h | Jump_Zero 0x6d5
06bc 802f | / | Call 0x0,0x2f
06bd 0032 | 2 | Store_Top Heap_Access,At_Offset_2
06be e5fd | | Load 0x2,-0x3
06bf e5fe | | Load 0x2,-0x2
06c0 0120 | | Execute Any,Is_Value
06c1 6802 |h | Jump_Zero 0x6c4
06c2 e00c | | Load 0x0,0xc
06c3 7801 |x | Jump 0x6c5
06c4 e5fe | | Load 0x2,-0x2
06c5 00db | | Load_Top At_Offset_3
06c6 e5ff | | Load 0x2,-0x1
06c7 8223 | # | Call 0x1,0x23
06c8 c5fe | | Store 0x2,-0x2
06c9 c5fd | | Store 0x2,-0x3
06ca 4802 |H | Short_Literal 0x2
06cb e5fd | | Load 0x2,-0x3
06cc e002 | | Load 0x0,0x2
06cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06ce 6805 |h | Jump_Zero 0x6d4
06cf e5fd | | Load 0x2,-0x3
06d0 00d9 | | Load_Top At_Offset_1
06d1 e002 | | Load 0x0,0x2
06d2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06d3 c5fd | | Store 0x2,-0x3
06d4 4502 |E | Exit_Subprogram 0x2
06d5 e5fd | | Load 0x2,-0x3
06d6 00d9 | | Load_Top At_Offset_1
06d7 e002 | | Load 0x0,0x2
06d8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06d9 c5fd | | Store 0x2,-0x3
06da 4502 |E | Exit_Subprogram 0x2
06db 0000 0000 | | .BLANK 0000[0x5]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3 | | .CONST 0x06e3 ; Address of begin
06e1 0004 | | .CONST 0x0004 ; Address of exception handler
06e2 0001 | | .CONST 0x0001 ; Number of locals
06e3 BODY_06e0:
06e3 INIT_06e0:
06e3 4801 |H | Short_Literal 0x1
06e4 00db | | Load_Top At_Offset_3
06e5 e002 | | Load 0x0,0x2
06e6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
06e7 e5fe | | Load 0x2,-0x2
06e8 e02c | , | Load 0x0,0x2c
06e9 181d | | Execute Package,Field_Execute,Field_Number 0x1d
06ea 0c01 | | Execute_Immediate Greater_Equal,0x1
06eb 4402 |D | Exit_Subprogram With_Result,0x2
06ec 0000 0000 | | .BLANK 0000[0x4]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 070d | | .CONST 0x070d ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0007 | | .CONST 0x0007 ; Number of locals
06f3 INIT_06f0:
06f3 e003 | | Load 0x0,0x3
06f4 0322 | " | Declare_Variable Record
06f5 00d8 | | Load_Top At_Offset_0
06f6 1c00 | | Execute_Immediate Run_Utility,0x0
06f7 e002 | | Load 0x0,0x2
06f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06f9 02c7 | | Declare_Variable Any
06fa 00d8 | | Load_Top At_Offset_0
06fb 1c00 | | Execute_Immediate Run_Utility,0x0
06fc 4801 |H | Short_Literal 0x1
06fd e030 | 0 | Load 0x0,0x30
06fe 1c08 | | Execute_Immediate Run_Utility,0x8
06ff 00d8 | | Load_Top At_Offset_0
0700 1c00 | | Execute_Immediate Run_Utility,0x0
0701 e5fc | | Load 0x2,-0x4
0702 0092 082e | .| Action Push_String_Extended,0x82e ; " is not a valid value for the object's type"
0704 01cc | | Execute Vector,Catenate
0705 0007 | | Action Break_Optional
0706 e5fc | | Load 0x2,-0x4
0707 0092 082f | /| Action Push_String_Extended,0x82f ; " is not in the range of values for the object's type"
0709 01cc | | Execute Vector,Catenate
070a 0007 | | Action Break_Optional
070b 0092 0830 | 0| Action Push_String_Extended,0x830 ; "In parameters whose values are constants or expressions cannot be modified"
070d BODY_06f0:
070d e402 | | Load 0x2,0x2
070e e5fb | | Load 0x2,-0x5
070f 8031 | 1 | Call 0x0,0x31
0710 00d1 | | Pop_Control Pop_Count_1
0711 e007 | | Load 0x0,0x7
0712 e008 | | Load 0x0,0x8
0713 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0714 c007 | | Store 0x0,0x7
0715 0092 0831 | 1| Action Push_String_Extended,0x831 ; "Old value: "
0717 8013 | | Call 0x0,0x13
0718 e5fb | | Load 0x2,-0x5
0719 e5ff | | Load 0x2,-0x1
071a 4801 |H | Short_Literal 0x1
071b 4801 |H | Short_Literal 0x1
071c 8219 | | Call 0x1,0x19
071d 00d1 | | Pop_Control Pop_Count_1
071e e403 | | Load 0x2,0x3
071f e402 | | Load 0x2,0x2
0720 e5fe | | Load 0x2,-0x2
0721 8032 | 2 | Call 0x0,0x32
0722 00d1 | | Pop_Control Pop_Count_1
0723 c403 | | Store 0x2,0x3
0724 e5fd | | Load 0x2,-0x3
0725 6826 |h& | Jump_Zero 0x74c
0726 0092 0832 | 2| Action Push_String_Extended,0x832 ; "OPERAND"
0728 e403 | | Load 0x2,0x3
0729 8226 | & | Call 0x1,0x26
072a 6818 |h | Jump_Zero 0x743
072b e5fe | | Load 0x2,-0x2
072c 8033 | 3 | Call 0x0,0x33
072d 6810 |h | Jump_Zero 0x73e
072e e403 | | Load 0x2,0x3
072f e402 | | Load 0x2,0x2
0730 802b | + | Call 0x0,0x2b
0731 8034 | 4 | Call 0x0,0x34
0732 00d1 | | Pop_Control Pop_Count_1
0733 c403 | | Store 0x2,0x3
0734 0092 0832 | 2| Action Push_String_Extended,0x832 ; "OPERAND"
0736 e403 | | Load 0x2,0x3
0737 8226 | & | Call 0x1,0x26
0738 6813 |h | Jump_Zero 0x74c
0739 00da | | Load_Top At_Offset_2
073a e002 | | Load 0x0,0x2
073b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
073c c403 | | Store 0x2,0x3
073d 780e |x | Jump 0x74c
073e 00da | | Load_Top At_Offset_2
073f e002 | | Load 0x0,0x2
0740 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0741 c403 | | Store 0x2,0x3
0742 7809 |x | Jump 0x74c
0743 0092 0833 | 3| Action Push_String_Extended,0x833 ; "NUMERIC"
0745 e403 | | Load 0x2,0x3
0746 8226 | & | Call 0x1,0x26
0747 6804 |h | Jump_Zero 0x74c
0748 00d9 | | Load_Top At_Offset_1
0749 e002 | | Load 0x0,0x2
074a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
074b c403 | | Store 0x2,0x3
074c 0092 0834 | 4| Action Push_String_Extended,0x834 ; "Illegal_Reference"
074e e403 | | Load 0x2,0x3
074f 8226 | & | Call 0x1,0x26
0750 6804 |h | Jump_Zero 0x755
0751 00d8 | | Load_Top At_Offset_0
0752 e002 | | Load 0x0,0x2
0753 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0754 c403 | | Store 0x2,0x3
0755 4802 |H | Short_Literal 0x2
0756 e403 | | Load 0x2,0x3
0757 e002 | | Load 0x0,0x2
0758 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0759 680a |h | Jump_Zero 0x764
075a 480a |H | Short_Literal 0xa
075b 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Problem encountered modifying value:\x0a"
075d e403 | | Load 0x2,0x3
075e e002 | | Load 0x0,0x2
075f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0760 01cc | | Execute Vector,Catenate
0761 01cb | | Execute Vector,Append
0762 8006 | | Call 0x0,0x6
0763 7809 |x | Jump 0x76d
0764 e403 | | Load 0x2,0x3
0765 8035 | 5 | Call 0x0,0x35
0766 480a |H | Short_Literal 0xa
0767 0092 0836 | 6| Action Push_String_Extended,0x836 ; "New value: "
0769 e5fc | | Load 0x2,-0x4
076a 01cc | | Execute Vector,Catenate
076b 01cb | | Execute Vector,Append
076c 8013 | | Call 0x0,0x13
076d e007 | | Load 0x0,0x7
076e e008 | | Load 0x0,0x8
076f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0770 c007 | | Store 0x0,0x7
0771 4505 |E | Exit_Subprogram 0x5
0772 0000 0000 | | .BLANK 0000[0x6]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b | { | .CONST 0x077b ; Address of begin
0779 07bf | | .CONST 0x07bf ; Address of exception handler
077a 0001 | | .CONST 0x0001 ; Number of locals
077b BODY_0778:
077b INIT_0778:
077b e40a | | Load 0x2,0xa
077c e5ff | | Load 0x2,-0x1
077d 4975 |Iu | Short_Literal 0x175
077e 00eb | | Load_Encached Diana_Cache
077f 0098 | | Execute Package,Field_Read_Dynamic
0780 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0781 a402 | | Store_Unchecked 0x2,0x2
0782 e402 | | Load 0x2,0x2
0783 00eb | | Load_Encached Diana_Cache
0784 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0785 00eb | | Load_Encached Diana_Cache
0786 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0787 0092 0837 | 7| Action Push_String_Extended,0x837 ; " => "
0789 01cc | | Execute Vector,Catenate
078a 8013 | | Call 0x0,0x13
078b e406 | | Load 0x2,0x6
078c e403 | | Load 0x2,0x3
078d 00e3 | | Load_Encached Natural_Cache
078e 00eb | | Load_Encached Diana_Cache
078f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0790 4800 |H | Short_Literal 0x0
0791 4800 |H | Short_Literal 0x0
0792 e5fc | | Load 0x2,-0x4
0793 e402 | | Load 0x2,0x2
0794 00eb | | Load_Encached Diana_Cache
0795 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0796 00eb | | Load_Encached Diana_Cache
0797 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0798 8019 | | Call 0x0,0x19
0799 c404 | | Store 0x2,0x4
079a 00d1 | | Pop_Control Pop_Count_1
079b c406 | | Store 0x2,0x6
079c 4802 |H | Short_Literal 0x2
079d e406 | | Load 0x2,0x6
079e e002 | | Load 0x0,0x2
079f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07a0 6807 |h | Jump_Zero 0x7a8
07a1 480a |H | Short_Literal 0xa
07a2 e406 | | Load 0x2,0x6
07a3 e002 | | Load 0x0,0x2
07a4 1820 | | Execute Package,Field_Execute,Field_Number 0x20
07a5 01cb | | Execute Vector,Append
07a6 8013 | | Call 0x0,0x13
07a7 4501 |E | Exit_Subprogram 0x1
07a8 e5fe | | Load 0x2,-0x2
07a9 0d03 | | Execute_Immediate Less,0x3
07aa 6807 |h | Jump_Zero 0x7b2
07ab e403 | | Load 0x2,0x3
07ac e5fb | | Load 0x2,-0x5
07ad e5fd | | Load 0x2,-0x3
07ae e5fe | | Load 0x2,-0x2
07af 8213 | | Call 0x1,0x13
07b0 00d1 | | Pop_Control Pop_Count_1
07b1 4501 |E | Exit_Subprogram 0x1
07b2 e403 | | Load 0x2,0x3
07b3 e5fb | | Load 0x2,-0x5
07b4 e5fd | | Load 0x2,-0x3
07b5 e5fe | | Load 0x2,-0x2
07b6 0aff | | Execute_Immediate Plus,-0x1
07b7 00d8 | | Load_Top At_Offset_0
07b8 00e4 | | Load_Encached Positive_Cache
07b9 0260 | ` | Execute Discrete,In_Type
07ba 7001 |p | Jump_Nonzero 0x7bc
07bb 0801 | | Execute_Immediate Raise,0x1
07bc 8213 | | Call 0x1,0x13
07bd 00d1 | | Pop_Control Pop_Count_1
07be 4501 |E | Exit_Subprogram 0x1
07bf TRAP_0778:
07bf 0007 | | Action Break_Optional
07c0 480a |H | Short_Literal 0xa
07c1 0092 0805 | | Action Push_String_Extended,0x805 ; "Exception raised during command processing: "
07c3 e00b | | Load 0x0,0xb
07c4 180d | | Execute Package,Field_Execute,Field_Number 0xd
07c5 01cc | | Execute Vector,Catenate
07c6 01cb | | Execute Vector,Append
07c7 8006 | | Call 0x0,0x6
07c8 4501 |E | Exit_Subprogram 0x1
07c9 0000 0000 | | .BLANK 0000[0x7]
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d3 | | .CONST 0x07d3 ; Address of begin
07d1 07d9 | | .CONST 0x07d9 ; Address of exception handler
07d2 0001 | | .CONST 0x0001 ; Number of locals
07d3 BODY_07d0:
07d3 INIT_07d0:
07d3 e5fc | | Load 0x2,-0x4
07d4 e5fd | | Load 0x2,-0x3
07d5 e5fe | | Load 0x2,-0x2
07d6 e5ff | | Load 0x2,-0x1
07d7 8213 | | Call 0x1,0x13
07d8 4501 |E | Exit_Subprogram 0x1
07d9 TRAP_07d0:
07d9 0007 | | Action Break_Optional
07da 480a |H | Short_Literal 0xa
07db 0092 0805 | | Action Push_String_Extended,0x805 ; "Exception raised during command processing: "
07dd e00b | | Load 0x0,0xb
07de 180d | | Execute Package,Field_Execute,Field_Number 0xd
07df 01cc | | Execute Vector,Catenate
07e0 01cb | | Execute Vector,Append
07e1 8006 | | Call 0x0,0x6
07e2 4501 |E | Exit_Subprogram 0x1
07e3 0000 0000 | | .BLANK 0000[0x5]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07eb | | .CONST 0x07eb ; Address of begin
07e9 07f3 | | .CONST 0x07f3 ; Address of exception handler
07ea 0001 | | .CONST 0x0001 ; Number of locals
07eb BODY_07e8:
07eb INIT_07e8:
07eb e5fe | | Load 0x2,-0x2
07ec 00eb | | Load_Encached Diana_Cache
07ed 18f4 | | Execute Package,Field_Execute,Field_Number 0xf4
07ee e5ff | | Load 0x2,-0x1
07ef 8036 | 6 | Call 0x0,0x36
07f0 8037 | 7 | Call 0x0,0x37
07f1 c5fd | | Store 0x2,-0x3
07f2 4501 |E | Exit_Subprogram 0x1
07f3 TRAP_07e8:
07f3 0007 | | Action Break_Optional
07f4 e5fc | | Load 0x2,-0x4
07f5 00ea | | Load_Encached Null_String_Cache
07f6 0092 0838 | 8| Action Push_String_Extended,0x838 ; "Exception "
07f8 e00b | | Load 0x0,0xb
07f9 180d | | Execute Package,Field_Execute,Field_Number 0xd
07fa 01cc | | Execute Vector,Catenate
07fb 0092 0839 | 9| Action Push_String_Extended,0x839 ; " raised when converting value to fixed point number"
07fd 01cc | | Execute Vector,Catenate
07fe 0092 083a | :| Action Push_String_Extended,0x83a ; "Conversion error"
0800 e002 | | Load 0x0,0x2
0801 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0802 c5fc | | Store 0x2,-0x4
0803 4501 |E | Exit_Subprogram 0x1
0804 ; --------------------------------------------------------------------------------------
0804 ; STRING TABLE
0804 ; --------------------------------------------------------------------------------------
0804 0070 | p | .STRTAB 0x0070->0x083c ; "Program has terminated.\x0a"
; "Program has terminated.\x0a"
; "Program has terminated.\x0a"
0805 0086 | | .STRTAB 0x0086->0x0848 ; "Exception raised during command processing: "
; "Exception raised during command processing: "
; "Exception raised during command processing: "
; "Exception raised during command processing: "
; "Exception raised during command processing: "
0806 00b0 | | .STRTAB 0x00b0->0x085e ; "Invalid new value:\x0a"
0807 00c1 | | .STRTAB 0x00c1->0x0867 ; "Error:\x0a"
0808 00c6 | | .STRTAB 0x00c6->0x086b ; "Register = "
0809 00cf | | .STRTAB 0x00cf->0x0870 ; "Address = "
080a 00d7 | | .STRTAB 0x00d7->0x0875 ; " of this type of object is unimplemented"
080b 00fd | | .STRTAB 0x00fd->0x0889 ; "There is no runtime value associated with a directory object"
080c 0137 | 7 | .STRTAB 0x0137->0x08a7 ; "Resolve_with_Known_Goal: empty location"
080d 015c | \ | .STRTAB 0x015c->0x08bb ; "Unable to resolve location: Invalid location specified."
080e 0192 | | .STRTAB 0x0192->0x08d7 ; "Display error:\x0a"
080f 019f | | .STRTAB 0x019f->0x08de ; "\x0aDisplay error:\x0a"
0810 01ad | | .STRTAB 0x01ad->0x08e6 ; "no parameters"
0811 01b8 | | .STRTAB 0x01b8->0x08ed ; "no local variables or constants"
0812 01d5 | | .STRTAB 0x01d5->0x08fc ; "A block has no parameters to display."
0813 01f8 | | .STRTAB 0x01f8->0x090f ; "Display_Context : unknown node type for subprog: "
; "Display_Context : unknown node type for subprog: "
0814 0227 | ' | .STRTAB 0x0227->0x0927 ; "A generic package has no parameters to display."
0815 0254 | T | .STRTAB 0x0254->0x093f ; "A task has no parameters to display."
; "A task has no parameters to display."
0816 0276 | v | .STRTAB 0x0276->0x0951 ; "A package has no parameters to display."
0817 029b | | .STRTAB 0x029b->0x0964 ; "This type of context cannot be displayed."
0818 02c2 | | .STRTAB 0x02c2->0x0979 ; " This kind of object cannot be modified."
0819 02e8 | | .STRTAB 0x02e8->0x098d ; " A constant cannot be modified."
081a 0305 | | .STRTAB 0x0305->0x099c ; " A discriminant cannot be modified."
081b 0326 | & | .STRTAB 0x0326->0x09ae ; " A loop parameter cannot be modified."
081c 0349 | I | .STRTAB 0x0349->0x09c0 ; "This type of context cannot be modified."
081d 036f | o | .STRTAB 0x036f->0x09d4 ; "Modify one element at a time."
081e 038a | | .STRTAB 0x038a->0x09e3 ; "A constant cannot be modified."
081f 03a6 | | .STRTAB 0x03a6->0x09f2 ; "A task cannot be modified."
0820 03be | | .STRTAB 0x03be->0x09ff ; "A subprogram cannot be modified."
0821 03dc | | .STRTAB 0x03dc->0x0a0f ; "Invalid integer value"
0822 03ef | | .STRTAB 0x03ef->0x0a19 ; " is not a valid numeric value."
; " is not a valid numeric value."
0823 040b | | .STRTAB 0x040b->0x0a28 ; "NULL"
; "NULL"
0824 040d | | .STRTAB 0x040d->0x0a2a ; "Can only modify an access value to null"
0825 0432 | 2 | .STRTAB 0x0432->0x0a3e ; "This type of object cannot be modified"
0826 0456 | V | .STRTAB 0x0456->0x0a51 ; " Qualified names are not allowed. \x22"
0827 0477 | w | .STRTAB 0x0477->0x0a62 ; "\x22 is ignored."
0828 0482 | | .STRTAB 0x0482->0x0a69 ; " is not a valid identifier for the "
0829 04a3 | | .STRTAB 0x04a3->0x0a7a ; "enumeration type."
082a 04b2 | | .STRTAB 0x04b2->0x0a83 ; "Must be an integer, a floating point value, a character between single quotes, or \x22NULL\x22"
082b 0508 | | .STRTAB 0x0508->0x0aaf ; "Must be non-empty"
082c 0517 | | .STRTAB 0x0517->0x0ab7 ; "FALSE"
082d 051a | | .STRTAB 0x051a->0x0aba ; "TRUE"
082e 051c | | .STRTAB 0x051c->0x0abc ; " is not a valid value for the object's type"
082f 0545 | E | .STRTAB 0x0545->0x0ad1 ; " is not in the range of values for the object's type"
0830 0577 | w | .STRTAB 0x0577->0x0aeb ; "In parameters whose values are constants or expressions cannot be modified"
0831 05bf | | .STRTAB 0x05bf->0x0b10 ; "Old value: "
0832 05c8 | | .STRTAB 0x05c8->0x0b16 ; "OPERAND"
; "OPERAND"
0833 05cd | | .STRTAB 0x05cd->0x0b19 ; "NUMERIC"
0834 05d2 | | .STRTAB 0x05d2->0x0b1d ; "Illegal_Reference"
0835 05e1 | | .STRTAB 0x05e1->0x0b25 ; "Problem encountered modifying value:\x0a"
0836 0604 | | .STRTAB 0x0604->0x0b38 ; "New value: "
0837 060d | | .STRTAB 0x060d->0x0b3d ; " => "
0838 060f | | .STRTAB 0x060f->0x0b3f ; "Exception "
0839 0617 | | .STRTAB 0x0617->0x0b44 ; " raised when converting value to fixed point number"
083a 0648 | H | .STRTAB 0x0648->0x0b5e ; "Conversion error"
083b 0656 | V | .STREND 0x0656->0x0b66
083c 5072 6f67 |Prog| .STRTAB_STRINGS
0b66 0000 0000 | | .XXX[0x2]
0b68 ; --------------------------------------------------------------------------------------
0b68 ; Debug Table
0b68 ; --------------------------------------------------------------------------------------
0b68 0004 000d | | .DEBUG4 0x0004,0x000d,0x2bf3,0x0000,0x0001,0x0000
0b6e 0000 0000 | | .BLANK 0000[0x92]