|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_043cfb
└─⟦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 05c0 | | .CONST 0x05c0 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0084 | | .CONST 0x0084 ; Address of begin 0019 0097 | | .CONST 0x0097 ; Address of exception handler 001a 0026 | & | .CONST 0x0026 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 001d e001 | | Load 0x0,0x1 001e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 001f 4801 |H | Short_Literal 0x1 0020 e5f8 | | Load 0x2,-0x8 0021 00e9 | | Load_Encached String_Cache 0022 0334 | 4 | Declare_Variable Array,With_Constraint 0023 00d8 | | Load_Top At_Offset_0 0024 0335 | 5 | Declare_Variable Array,Duplicate 0025 00d0 | | Action Swap_Control 0026 00d1 | | Pop_Control Pop_Count_1 0027 00d9 | | Load_Top At_Offset_1 0028 01d9 | | Execute Vector,Reverse_Bounds 0029 0263 | c | Execute Discrete,Above_Bound 002a 7005 |p | Jump_Nonzero 0x30 002b 4820 |H | Short_Literal 0x20 002c 00d9 | | Load_Top At_Offset_1 002d e405 | | Load 0x2,0x5 002e 01d6 | | Execute Vector,Field_Write 002f 3ffb |? | Loop_Increasing 0x2b 0030 00d9 | | Load_Top At_Offset_1 0031 01d4 | | Execute Vector,Structure_Write 0032 00eb | | Load_Encached Diana_Cache 0033 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0034 00eb | | Load_Encached Diana_Cache 0035 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0036 00e3 | | Load_Encached Natural_Cache 0037 00e3 | | Load_Encached Natural_Cache 0038 00e3 | | Load_Encached Natural_Cache 0039 e002 | | Load 0x0,0x2 003a e003 | | Load 0x0,0x3 003b 00e6 | | Load_Encached Float_Cache 003c e004 | | Load 0x0,0x4 003d 1b79 | y | Execute Package,Field_Read,Field_Number 0x79 003e 0387 | | Declare_Variable Package 003f 00d8 | | Load_Top At_Offset_0 0040 020f | | Execute Module,Activate 0041 e005 | | Load 0x0,0x5 0042 e006 | | Load 0x0,0x6 0043 4900 |I | Short_Literal 0x100 0044 e007 | | Load 0x0,0x7 0045 0387 | | Declare_Variable Package 0046 00d8 | | Load_Top At_Offset_0 0047 020f | | Execute Module,Activate 0048 00d8 | | Load_Top At_Offset_0 0049 1922 | " | Execute Package,Field_Reference,Field_Number 0x22 004a 0007 | | Action Break_Optional 004b 00d9 | | Load_Top At_Offset_1 004c 1928 | ( | Execute Package,Field_Reference,Field_Number 0x28 004d 0007 | | Action Break_Optional 004e 00da | | Load_Top At_Offset_2 004f 192a | * | Execute Package,Field_Reference,Field_Number 0x2a 0050 0007 | | Action Break_Optional 0051 00db | | Load_Top At_Offset_3 0052 192b | + | Execute Package,Field_Reference,Field_Number 0x2b 0053 0007 | | Action Break_Optional 0054 e40b | | Load 0x2,0xb 0055 1927 | ' | Execute Package,Field_Reference,Field_Number 0x27 0056 0007 | | Action Break_Optional 0057 e40b | | Load 0x2,0xb 0058 1925 | % | Execute Package,Field_Reference,Field_Number 0x25 0059 0007 | | Action Break_Optional 005a 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 005c 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 005e 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0060 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0062 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 0064 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 0066 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 0068 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 006a 029f 018b | | Declare_Subprogram INIT_0188,For_Call 006c 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 006e 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0070 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 0072 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0074 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 0076 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 0078 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 007a 029f 025b | [| Declare_Subprogram INIT_0258,For_Call 007c 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call 007e 029f 028b | | Declare_Subprogram INIT_0288,For_Call 0080 029f 039b | | Declare_Subprogram INIT_0398,For_Call 0082 029f 040b | | Declare_Subprogram INIT_0408,For_Call 0084 BODY_0018: 0084 4800 |H | Short_Literal 0x0 0085 a409 | | Store_Unchecked 0x2,0x9 0086 e5f6 | | Load 0x2,-0xa 0087 01dd | | Execute Vector,First 0088 c407 | | Store 0x2,0x7 0089 e407 | | Load 0x2,0x7 008a e5f6 | | Load 0x2,-0xa 008b 01dc | | Execute Vector,Last 008c 027a | z | Execute Discrete,Less_Equal 008d 6801 |h | Jump_Zero 0x8f 008e 8425 | % | Call 0x2,0x25 008f e5f5 | | Load 0x2,-0xb 0090 6805 |h | Jump_Zero 0x96 0091 4800 |H | Short_Literal 0x0 0092 a409 | | Store_Unchecked 0x2,0x9 0093 e408 | | Load 0x2,0x8 0094 a407 | | Store_Unchecked 0x2,0x7 0095 8426 | & | Call 0x2,0x26 0096 450c |E | Exit_Suprogram New_Top_Offset 0xc 0097 TRAP_0018: 0097 0007 | | Action Break_Optional 0098 0092 04d1 | | Action Push_String_Extended,0x4d1 ; "undecipherable entity (raising " 009a e008 | | Load 0x0,0x8 009b 180d | | Execute Package,Field_Execute,Field_Number 0xd 009c 01cc | | Execute Vector,Catenate 009d 0092 04d2 | | Action Push_String_Extended,0x4d2 ; ")" 009f 01cc | | Execute Vector,Catenate 00a0 8416 | | Call 0x2,0x16 00a1 e5f4 | | Load 0x2,-0xc 00a2 00d8 | | Load_Top At_Offset_0 00a3 0120 | | Execute Any,Is_Value 00a4 6803 |h | Jump_Zero 0xa8 00a5 e5f7 | | Load 0x2,-0x9 00a6 011e | | Execute Any,Convert 00a7 7802 |x | Jump 0xaa 00a8 e5f7 | | Load 0x2,-0x9 00a9 0119 | | Execute Any,Check_In_Formal_Type 00aa 85fc | | Call 0x2,-0x4 00ab c5f4 | | Store 0x2,-0xc 00ac 450c |E | Exit_Suprogram New_Top_Offset 0xc 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b5 | | .CONST 0x00b5 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 e402 | | Load 0x2,0x2 00b4 0007 | | Action Break_Optional 00b5 BODY_00b0: 00b5 e7fe | | Load 0x3,-0x2 00b6 e7ff | | Load 0x3,-0x1 00b7 01dc | | Execute Vector,Last 00b8 027a | z | Execute Discrete,Less_Equal 00b9 6810 |h | Jump_Zero 0xca 00ba e40b | | Load 0x2,0xb 00bb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00bc e7fe | | Load 0x3,-0x2 00bd e7ff | | Load 0x3,-0x1 00be 840c | | Call 0x2,0xc 00bf c7fe | | Store 0x3,-0x2 00c0 0059 | Y | Store_Top Discrete,At_Offset_1 00c1 00d8 | | Load_Top At_Offset_0 00c2 00d8 | | Load_Top At_Offset_0 00c3 00eb | | Load_Encached Diana_Cache 00c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c5 0260 | ` | Execute Discrete,In_Type 00c6 7001 |p | Jump_Nonzero 0xc8 00c7 08e0 | | Execute_Immediate Raise,0xe0 00c8 a7fd | | Store_Unchecked 0x3,-0x3 00c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ca 4800 |H | Short_Literal 0x0 00cb a7fd | | Store_Unchecked 0x3,-0x3 00cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d5 | | .CONST 0x00d5 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 e402 | | Load 0x2,0x2 00d4 0007 | | Action Break_Optional 00d5 BODY_00d0: 00d5 e40b | | Load 0x2,0xb 00d6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d7 e7fe | | Load 0x3,-0x2 00d8 e7ff | | Load 0x3,-0x1 00d9 840c | | Call 0x2,0xc 00da c7fe | | Store 0x3,-0x2 00db 0059 | Y | Store_Top Discrete,At_Offset_1 00dc 00d8 | | Load_Top At_Offset_0 00dd 00d8 | | Load_Top At_Offset_0 00de 00eb | | Load_Encached Diana_Cache 00df 1b95 | | Execute Package,Field_Read,Field_Number 0x95 00e0 0260 | ` | Execute Discrete,In_Type 00e1 7001 |p | Jump_Nonzero 0xe3 00e2 08e0 | | Execute_Immediate Raise,0xe0 00e3 a7fd | | Store_Unchecked 0x3,-0x3 00e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb e409 | | Load 0x2,0x9 00ec 00db | | Load_Top At_Offset_3 00ed 0273 | s | Execute Discrete,Plus 00ee e5f9 | | Load 0x2,-0x7 00ef 027d | } | Execute Discrete,Greater 00f0 681a |h | Jump_Zero 0x10b 00f1 e5f4 | | Load 0x2,-0xc 00f2 00d8 | | Load_Top At_Offset_0 00f3 0120 | | Execute Any,Is_Value 00f4 6803 |h | Jump_Zero 0xf8 00f5 e5f7 | | Load 0x2,-0x9 00f6 011e | | Execute Any,Convert 00f7 7802 |x | Jump 0xfa 00f8 e5f7 | | Load 0x2,-0x9 00f9 0119 | | Execute Any,Check_In_Formal_Type 00fa 85fc | | Call 0x2,-0x4 00fb c5f4 | | Store 0x2,-0xc 00fc e5f4 | | Load 0x2,-0xc 00fd 00d8 | | Load_Top At_Offset_0 00fe 0120 | | Execute Any,Is_Value 00ff 6803 |h | Jump_Zero 0x103 0100 e5f7 | | Load 0x2,-0x9 0101 011e | | Execute Any,Convert 0102 7802 |x | Jump 0x105 0103 e5f7 | | Load 0x2,-0x9 0104 0119 | | Execute Any,Check_In_Formal_Type 0105 e404 | | Load 0x2,0x4 0106 85fe | | Call 0x2,-0x2 0107 c5f4 | | Store 0x2,-0xc 0108 e404 | | Load 0x2,0x4 0109 01db | | Execute Vector,Length 010a c409 | | Store 0x2,0x9 010b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010c 0000 0000 | | .BLANK 0000[0x4] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00db | | Load_Top At_Offset_3 0114 8414 | | Call 0x2,0x14 0115 e5f4 | | Load 0x2,-0xc 0116 00d8 | | Load_Top At_Offset_0 0117 0120 | | Execute Any,Is_Value 0118 6803 |h | Jump_Zero 0x11c 0119 e5f7 | | Load 0x2,-0x9 011a 011e | | Execute Any,Convert 011b 7802 |x | Jump 0x11e 011c e5f7 | | Load 0x2,-0x9 011d 0119 | | Execute Any,Check_In_Formal_Type 011e 00db | | Load_Top At_Offset_3 011f 85fd | | Call 0x2,-0x3 0120 c5f4 | | Store 0x2,-0xc 0121 e409 | | Load 0x2,0x9 0122 0a01 | | Execute_Immediate Plus,0x1 0123 c409 | | Store 0x2,0x9 0124 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0125 0000 0000 | | .XXX[0x3] 0127 0000 | | 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00da | | Load_Top At_Offset_2 012c 01db | | Execute Vector,Length 012d 00e3 | | Load_Encached Natural_Cache 012e 025b | [ | Execute Discrete,Check_In_Type 012f 8414 | | Call 0x2,0x14 0130 e5f4 | | Load 0x2,-0xc 0131 00d8 | | Load_Top At_Offset_0 0132 0120 | | Execute Any,Is_Value 0133 6803 |h | Jump_Zero 0x137 0134 e5f7 | | Load 0x2,-0x9 0135 011e | | Execute Any,Convert 0136 7802 |x | Jump 0x139 0137 e5f7 | | Load 0x2,-0x9 0138 0119 | | Execute Any,Check_In_Formal_Type 0139 00db | | Load_Top At_Offset_3 013a 85fe | | Call 0x2,-0x2 013b c5f4 | | Store 0x2,-0xc 013c e409 | | Load 0x2,0x9 013d 00db | | Load_Top At_Offset_3 013e 01db | | Execute Vector,Length 013f 0273 | s | Execute Discrete,Plus 0140 c409 | | Store 0x2,0x9 0141 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0142 0000 0000 | | .BLANK 0000[0x6] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00db | | Load_Top At_Offset_3 014c 00e3 | | Load_Encached Natural_Cache 014d 025b | [ | Execute Discrete,Check_In_Type 014e 8414 | | Call 0x2,0x14 014f e5f4 | | Load 0x2,-0xc 0150 00d8 | | Load_Top At_Offset_0 0151 0120 | | Execute Any,Is_Value 0152 6803 |h | Jump_Zero 0x156 0153 e5f7 | | Load 0x2,-0x9 0154 011e | | Execute Any,Convert 0155 7802 |x | Jump 0x158 0156 e5f7 | | Load 0x2,-0x9 0157 0119 | | Execute Any,Check_In_Formal_Type 0158 00db | | Load_Top At_Offset_3 0159 85fe | | Call 0x2,-0x2 015a c5f4 | | Store 0x2,-0xc 015b e409 | | Load 0x2,0x9 015c 00db | | Load_Top At_Offset_3 015d 01db | | Execute Vector,Length 015e 0273 | s | Execute Discrete,Plus 015f c409 | | Store 0x2,0x9 0160 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0161 0000 0000 | | .BLANK 0000[0x7] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 4820 |H | Short_Literal 0x20 016c e7fe | | Load 0x3,-0x2 016d 480a |H | Short_Literal 0xa 016e e7ff | | Load 0x3,-0x1 016f e009 | | Load 0x0,0x9 0170 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0171 8416 | | Call 0x2,0x16 0172 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0173 0000 0000 | | .BLANK 0000[0x5] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 4820 |H | Short_Literal 0x20 017c e7fe | | Load 0x3,-0x2 017d 480a |H | Short_Literal 0xa 017e e7ff | | Load 0x3,-0x1 017f e009 | | Load 0x0,0x9 0180 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0181 8416 | | Call 0x2,0x16 0182 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0183 0000 0000 | | .BLANK 0000[0x5] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018f | | .CONST 0x018f ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b 4801 |H | Short_Literal 0x1 018c 48c8 |H | Short_Literal 0xc8 018d 00e9 | | Load_Encached String_Cache 018e 0334 | 4 | Declare_Variable Array,With_Constraint 018f BODY_0188: 018f 00d8 | | Load_Top At_Offset_0 0190 e5fb | | Load 0x2,-0x5 0191 e5fa | | Load 0x2,-0x6 0192 e7ff | | Load 0x3,-0x1 0193 e40a | | Load 0x2,0xa 0194 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0195 00d1 | | Pop_Control Pop_Count_1 0196 4820 |H | Short_Literal 0x20 0197 00d9 | | Load_Top At_Offset_1 0198 e009 | | Load 0x0,0x9 0199 181a | | Execute Package,Field_Execute,Field_Number 0x1a 019a 8416 | | Call 0x2,0x16 019b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 019c 0000 0000 | | .BLANK 0000[0x4] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 e409 | | Load 0x2,0x9 01a4 e5f9 | | Load 0x2,-0x7 01a5 027c | | | Execute Discrete,Less 01a6 680f |h | Jump_Zero 0x1b6 01a7 e5f4 | | Load 0x2,-0xc 01a8 00d8 | | Load_Top At_Offset_0 01a9 0120 | | Execute Any,Is_Value 01aa 6803 |h | Jump_Zero 0x1ae 01ab e5f7 | | Load 0x2,-0x9 01ac 011e | | Execute Any,Convert 01ad 7802 |x | Jump 0x1b0 01ae e5f7 | | Load 0x2,-0x9 01af 0119 | | Execute Any,Check_In_Formal_Type 01b0 4820 |H | Short_Literal 0x20 01b1 85fd | | Call 0x2,-0x3 01b2 c5f4 | | Store 0x2,-0xc 01b3 e409 | | Load 0x2,0x9 01b4 0a01 | | Execute_Immediate Plus,0x1 01b5 c409 | | Store 0x2,0x9 01b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c3 | | .CONST 0x01c3 ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb 4800 |H | Short_Literal 0x0 01bc 00db | | Load_Top At_Offset_3 01bd 0092 04d3 | | Action Push_String_Extended,0x4d3 ; "Standard." 01bf e009 | | Load 0x0,0x9 01c0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01c1 00e2 | | Load_Encached Integer_Cache 01c2 03f1 | | Declare_Variable Discrete,With_Value 01c3 BODY_01b8: 01c3 00d8 | | Load_Top At_Offset_0 01c4 e7ff | | Load 0x3,-0x1 01c5 01dd | | Execute Vector,First 01c6 027f | | Execute Discrete,Equal 01c7 6807 |h | Jump_Zero 0x1cf 01c8 00d8 | | Load_Top At_Offset_0 01c9 0a09 | | Execute_Immediate Plus,0x9 01ca e7ff | | Load 0x3,-0x1 01cb 01dc | | Execute Vector,Last 01cc e7ff | | Load 0x3,-0x1 01cd 01cf | | Execute Vector,Slice_Read 01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cf 00db | | Load_Top At_Offset_3 01d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d1 0000 0000 | | .BLANK 0000[0x7] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01df | | .CONST 0x01df ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db e40b | | Load 0x2,0xb 01dc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01dd 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 01df BODY_01d8: 01df e40b | | Load 0x2,0xb 01e0 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01e1 e407 | | Load 0x2,0x7 01e2 e5f6 | | Load 0x2,-0xa 01e3 8411 | | Call 0x2,0x11 01e4 c407 | | Store 0x2,0x7 01e5 005a | Z | Store_Top Discrete,At_Offset_2 01e6 8603 | | Call 0x3,0x3 01e7 0831 | 1 | Execute_Immediate Raise,0x31 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01ee | | .CONST 0x01ee ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0003 | | .CONST 0x0003 ; Number of locals 01eb INIT_01e8: 01eb e40b | | Load 0x2,0xb 01ec 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01ed 00e3 | | Load_Encached Natural_Cache 01ee BODY_01e8: 01ee 841d | | Call 0x2,0x1d 01ef 8416 | | Call 0x2,0x16 01f0 841b | | Call 0x2,0x1b 01f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f2 0000 0000 | | .BLANK 0000[0x6] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01ff | | .CONST 0x01ff ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0004 | | .CONST 0x0004 ; Number of locals 01fb INIT_01f8: 01fb 00eb | | Load_Encached Diana_Cache 01fc 1b95 | | Execute Package,Field_Read,Field_Number 0x95 01fd 00e5 | | Load_Encached Long_Integer_Cache 01fe 00e6 | | Load_Encached Float_Cache 01ff BODY_01f8: 01ff 00eb | | Load_Encached Diana_Cache 0200 1b95 | | Execute Package,Field_Read,Field_Number 0x95 0201 e407 | | Load 0x2,0x7 0202 e5f6 | | Load 0x2,-0xa 0203 8413 | | Call 0x2,0x13 0204 c407 | | Store 0x2,0x7 0205 005b | [ | Store_Top Discrete,At_Offset_3 0206 00da | | Load_Top At_Offset_2 0207 4603 |F | Jump_Case 0x4 0208 780e |x | Jump 0x217 ; case 0x0 0209 7803 |x | Jump 0x20d ; case 0x1 020a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2 020b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3 020c 4501 |E | .XXX[0x1] 020d 00e6 | | Load_Encached Float_Cache 020e e407 | | Load 0x2,0x7 020f e5f6 | | Load 0x2,-0xa 0210 840f | | Call 0x2,0xf 0211 c407 | | Store 0x2,0x7 0212 0049 | I | Store_Top Float,At_Offset_1 0213 00d8 | | Load_Top At_Offset_0 0214 841a | | Call 0x2,0x1a 0215 841b | | Call 0x2,0x1b 0216 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0217 00e5 | | Load_Encached Long_Integer_Cache 0218 e407 | | Load 0x2,0x7 0219 e5f6 | | Load 0x2,-0xa 021a 840e | | Call 0x2,0xe 021b c407 | | Store 0x2,0x7 021c 005a | Z | Store_Top Discrete,At_Offset_2 021d 4800 |H | Short_Literal 0x0 021e 00da | | Load_Top At_Offset_2 021f 8419 | | Call 0x2,0x19 0220 841b | | Call 0x2,0x1b 0221 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0222 0000 0000 | | .BLANK 0000[0x6] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0230 | 0 | .CONST 0x0230 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0004 | | .CONST 0x0004 ; Number of locals 022b INIT_0228: 022b e40b | | Load 0x2,0xb 022c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 022d 00e3 | | Load_Encached Natural_Cache 022e 029f 049b | | Declare_Subprogram INIT_0498,For_Call 0230 BODY_0228: 0230 e40b | | Load 0x2,0xb 0231 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0232 e407 | | Load 0x2,0x7 0233 e5f6 | | Load 0x2,-0xa 0234 8411 | | Call 0x2,0x11 0235 c407 | | Store 0x2,0x7 0236 005b | [ | Store_Top Discrete,At_Offset_3 0237 00da | | Load_Top At_Offset_2 0238 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0239 8604 | | Call 0x3,0x4 023a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 023b 0000 0000 | | .BLANK 0000[0x5] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0244 | D | .CONST 0x0244 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0002 | | .CONST 0x0002 ; Number of locals 0243 INIT_0240: 0243 00e1 | | Load_Encached Boolean_Cache 0244 BODY_0240: 0244 00e1 | | Load_Encached Boolean_Cache 0245 e407 | | Load 0x2,0x7 0246 e5f6 | | Load 0x2,-0xa 0247 840d | | Call 0x2,0xd 0248 c407 | | Store 0x2,0x7 0249 0059 | Y | Store_Top Discrete,At_Offset_1 024a 00d8 | | Load_Top At_Offset_0 024b 7004 |p | Jump_Nonzero 0x250 024c 0092 04d4 | | Action Push_String_Extended,0x4d4 ; "(infix)" 024e 8416 | | Call 0x2,0x16 024f 841b | | Call 0x2,0x1b 0250 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0251 0000 0000 | | .BLANK 0000[0x7] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025c | \ | .CONST 0x025c ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0002 | | .CONST 0x0002 ; Number of locals 025b INIT_0258: 025b 00e6 | | Load_Encached Float_Cache 025c BODY_0258: 025c 00e6 | | Load_Encached Float_Cache 025d e407 | | Load 0x2,0x7 025e e5f6 | | Load 0x2,-0xa 025f 840f | | Call 0x2,0xf 0260 c407 | | Store 0x2,0x7 0261 0049 | I | Store_Top Float,At_Offset_1 0262 00d8 | | Load_Top At_Offset_0 0263 6806 |h | Jump_Zero 0x26a 0264 0092 04d5 | | Action Push_String_Extended,0x4d5 ; "delta " 0266 8416 | | Call 0x2,0x16 0267 00d8 | | Load_Top At_Offset_0 0268 841a | | Call 0x2,0x1a 0269 841b | | Call 0x2,0x1b 026a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 026b 0000 0000 | | .BLANK 0000[0x5] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0278 | x | .CONST 0x0278 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 00eb | | Load_Encached Diana_Cache 0275 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0276 025e | ^ | Execute Discrete,Convert 0277 1c01 | | Execute_Immediate Run_Utility,0x1 0278 BODY_0270: 0278 00d8 | | Load_Top At_Offset_0 0279 01dd | | Execute Vector,First 027a 0a03 | | Execute_Immediate Plus,0x3 027b 00d9 | | Load_Top At_Offset_1 027c 01dc | | Execute Vector,Last 027d 00da | | Load_Top At_Offset_2 027e 01cf | | Execute Vector,Slice_Read 027f 8416 | | Call 0x2,0x16 0280 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0281 0000 0000 | | .BLANK 0000[0x7] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 0290 | | .CONST 0x0290 ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0004 | | .CONST 0x0004 ; Number of locals 028b INIT_0288: 028b 00eb | | Load_Encached Diana_Cache 028c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028d 00e6 | | Load_Encached Float_Cache 028e 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call 0290 BODY_0288: 0290 00eb | | Load_Encached Diana_Cache 0291 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0292 e407 | | Load 0x2,0x7 0293 e5f6 | | Load 0x2,-0xa 0294 8412 | | Call 0x2,0x12 0295 c407 | | Store 0x2,0x7 0296 005b | [ | Store_Top Discrete,At_Offset_3 0297 00da | | Load_Top At_Offset_2 0298 00d8 | | Load_Top At_Offset_0 0299 480c |H | Short_Literal 0xc 029a 489b |H | Short_Literal 0x9b 029b 0262 | b | Execute Discrete,In_Range 029c 6896 |h | Jump_Zero 0x333 029d 0af4 | | Execute_Immediate Plus,-0xc 029e 468f |F | Jump_Case 0x90 029f 789c |x | Jump 0x33c ; case 0x0 02a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1 02a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2 02a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3 02a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4 02a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5 02a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6 02a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7 02a7 7894 |x | Jump 0x33c ; case 0x8 02a8 7893 |x | Jump 0x33c ; case 0x9 02a9 7892 |x | Jump 0x33c ; case 0xa 02aa 7891 |x | Jump 0x33c ; case 0xb 02ab 7890 |x | Jump 0x33c ; case 0xc 02ac 788f |x | Jump 0x33c ; case 0xd 02ad 788e |x | Jump 0x33c ; case 0xe 02ae 788d |x | Jump 0x33c ; case 0xf 02af 788c |x | Jump 0x33c ; case 0x10 02b0 788b |x | Jump 0x33c ; case 0x11 02b1 788a |x | Jump 0x33c ; case 0x12 02b2 7889 |x | Jump 0x33c ; case 0x13 02b3 7888 |x | Jump 0x33c ; case 0x14 02b4 7887 |x | Jump 0x33c ; case 0x15 02b5 7886 |x | Jump 0x33c ; case 0x16 02b6 7885 |x | Jump 0x33c ; case 0x17 02b7 7884 |x | Jump 0x33c ; case 0x18 02b8 7883 |x | Jump 0x33c ; case 0x19 02b9 7882 |x | Jump 0x33c ; case 0x1a 02ba 7881 |x | Jump 0x33c ; case 0x1b 02bb 7880 |x | Jump 0x33c ; case 0x1c 02bc 787f |x | Jump 0x33c ; case 0x1d 02bd 787e |x~ | Jump 0x33c ; case 0x1e 02be 787d |x} | Jump 0x33c ; case 0x1f 02bf 787c |x| | Jump 0x33c ; case 0x20 02c0 787b |x{ | Jump 0x33c ; case 0x21 02c1 787a |xz | Jump 0x33c ; case 0x22 02c2 7879 |xy | Jump 0x33c ; case 0x23 02c3 7878 |xx | Jump 0x33c ; case 0x24 02c4 7877 |xw | Jump 0x33c ; case 0x25 02c5 7876 |xv | Jump 0x33c ; case 0x26 02c6 7875 |xu | Jump 0x33c ; case 0x27 02c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x28 02c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x29 02c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2a 02ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2b 02cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2c 02cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2d 02cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2e 02ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2f 02cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x30 02d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x31 02d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x32 02d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x33 02d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x34 02d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x35 02d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x36 02d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x37 02d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x38 02d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x39 02d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3a 02da 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3b 02db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3c 02dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3d 02dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3e 02de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3f 02df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x40 02e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x41 02e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x42 02e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x43 02e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x44 02e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x45 02e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x46 02e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x47 02e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x48 02e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x49 02e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4a 02ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4b 02eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4c 02ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4d 02ed 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4e 02ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4f 02ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x50 02f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x51 02f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x52 02f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x53 02f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x54 02f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x55 02f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x56 02f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x57 02f7 7867 |xg | Jump 0x35f ; case 0x58 02f8 786a |xj | Jump 0x363 ; case 0x59 02f9 7844 |xD | Jump 0x33e ; case 0x5a 02fa 784c |xL | Jump 0x347 ; case 0x5b 02fb 7853 |xS | Jump 0x34f ; case 0x5c 02fc 7856 |xV | Jump 0x353 ; case 0x5d 02fd 784d |xM | Jump 0x34b ; case 0x5e 02fe 7876 |xv | Jump 0x375 ; case 0x5f 02ff 7867 |xg | Jump 0x367 ; case 0x60 0300 7878 |xx | Jump 0x379 ; case 0x61 0301 7855 |xU | Jump 0x357 ; case 0x62 0302 7858 |xX | Jump 0x35b ; case 0x63 0303 787f |x | Jump 0x383 ; case 0x64 0304 7882 |x | Jump 0x387 ; case 0x65 0305 786b |xk | Jump 0x371 ; case 0x66 0306 7884 |x | Jump 0x38b ; case 0x67 0307 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x68 0308 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x69 0309 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6a 030a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6b 030b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6c 030c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6d 030d 7881 |x | Jump 0x38f ; case 0x6e 030e 7826 |x& | Jump 0x335 ; case 0x6f 030f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x70 0310 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x71 0311 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x72 0312 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x73 0313 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x74 0314 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x75 0315 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x76 0316 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x77 0317 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x78 0318 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x79 0319 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7a 031a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7b 031b 7851 |xQ | Jump 0x36d ; case 0x7c 031c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7d 031d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7e 031e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7f 031f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x80 0320 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x81 0321 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x82 0322 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x83 0323 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x84 0324 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x85 0325 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x86 0326 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x87 0327 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x88 0328 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x89 0329 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8a 032a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8b 032b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8c 032c 780c |x | Jump 0x339 ; case 0x8d 032d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8e 032e 7800 |x | Jump 0x32f ; case 0x8f 032f 0092 04d6 | | Action Push_String_Extended,0x4d6 ; "discriminated record " 0331 8416 | | Call 0x2,0x16 0332 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0333 00d1 | | Pop_Control Pop_Count_1 0334 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0335 0092 04d7 | | Action Push_String_Extended,0x4d7 ; "procedure " 0337 8416 | | Call 0x2,0x16 0338 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0339 00ea | | Load_Encached Null_String_Cache 033a 8424 | $ | Call 0x2,0x24 033b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 033c 841e | | Call 0x2,0x1e 033d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 033e 00eb | | Load_Encached Diana_Cache 033f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0340 e407 | | Load 0x2,0x7 0341 e5f6 | | Load 0x2,-0xa 0342 8412 | | Call 0x2,0x12 0343 c407 | | Store 0x2,0x7 0344 005b | [ | Store_Top Discrete,At_Offset_3 0345 8604 | | Call 0x3,0x4 0346 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0347 0092 04d8 | | Action Push_String_Extended,0x4d8 ; "formal discrete " 0349 8416 | | Call 0x2,0x16 034a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 034b 0092 04d9 | | Action Push_String_Extended,0x4d9 ; "formal integer " 034d 8416 | | Call 0x2,0x16 034e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 034f 0092 04da | | Action Push_String_Extended,0x4da ; "formal fixed " 0351 8416 | | Call 0x2,0x16 0352 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0353 0092 04db | | Action Push_String_Extended,0x4db ; "formal float " 0355 8416 | | Call 0x2,0x16 0356 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0357 0092 04dc | | Action Push_String_Extended,0x4dc ; "enumeration " 0359 8416 | | Call 0x2,0x16 035a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 035b 0092 04dd | | Action Push_String_Extended,0x4dd ; "integer " 035d 8416 | | Call 0x2,0x16 035e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 035f 0092 04de | | Action Push_String_Extended,0x4de ; "fixed " 0361 8416 | | Call 0x2,0x16 0362 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0363 0092 04df | | Action Push_String_Extended,0x4df ; "float " 0365 8416 | | Call 0x2,0x16 0366 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0367 00ea | | Load_Encached Null_String_Cache 0368 8424 | $ | Call 0x2,0x24 0369 0092 04e0 | | Action Push_String_Extended,0x4e0 ; "array " 036b 8416 | | Call 0x2,0x16 036c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 036d 0092 04e1 | | Action Push_String_Extended,0x4e1 ; "unconstrained " 036f 8416 | | Call 0x2,0x16 0370 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0371 0092 04e2 | | Action Push_String_Extended,0x4e2 ; "record " 0373 8416 | | Call 0x2,0x16 0374 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0375 0092 04e3 | | Action Push_String_Extended,0x4e3 ; "access to " 0377 8424 | $ | Call 0x2,0x24 0378 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0379 00e6 | | Load_Encached Float_Cache 037a e407 | | Load 0x2,0x7 037b e5f6 | | Load 0x2,-0xa 037c 840f | | Call 0x2,0xf 037d c407 | | Store 0x2,0x7 037e 004a | J | Store_Top Float,At_Offset_2 037f 0092 04e4 | | Action Push_String_Extended,0x4e4 ; "derived " 0381 8424 | $ | Call 0x2,0x24 0382 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0383 0092 04e5 | | Action Push_String_Extended,0x4e5 ; "limited private " 0385 8416 | | Call 0x2,0x16 0386 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0387 0092 04e6 | | Action Push_String_Extended,0x4e6 ; "private " 0389 8416 | | Call 0x2,0x16 038a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038b 0092 04e7 | | Action Push_String_Extended,0x4e7 ; "task" 038d 8416 | | Call 0x2,0x16 038e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038f 0092 04e8 | | Action Push_String_Extended,0x4e8 ; "function " 0391 8416 | | Call 0x2,0x16 0392 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0393 0000 0000 | | .BLANK 0000[0x5] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039c | | .CONST 0x039c ; Address of begin 0399 03fa | | .CONST 0x03fa ; Address of exception handler 039a 0002 | | .CONST 0x0002 ; Number of locals 039b INIT_0398: 039b 841d | | Call 0x2,0x1d 039c BODY_0398: 039c e407 | | Load 0x2,0x7 039d a408 | | Store_Unchecked 0x2,0x8 039e 00eb | | Load_Encached Diana_Cache 039f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03a0 e407 | | Load 0x2,0x7 03a1 e5f6 | | Load 0x2,-0xa 03a2 8412 | | Call 0x2,0x12 03a3 c407 | | Store 0x2,0x7 03a4 c406 | | Store 0x2,0x6 03a5 0092 04e9 | | Action Push_String_Extended,0x4e9 ; "The " 03a7 8416 | | Call 0x2,0x16 03a8 00ea | | Load_Encached Null_String_Cache 03a9 8424 | $ | Call 0x2,0x24 03aa e406 | | Load 0x2,0x6 03ab 00d8 | | Load_Top At_Offset_0 03ac 4837 |H7 | Short_Literal 0x37 03ad 4848 |HH | Short_Literal 0x48 03ae 0262 | b | Execute Discrete,In_Range 03af 6839 |h9 | Jump_Zero 0x3e9 03b0 0ac9 | | Execute_Immediate Plus,-0x37 03b1 4611 |F | Jump_Case 0x12 03b2 782e |x. | Jump 0x3e1 ; case 0x0 03b3 7819 |x | Jump 0x3cd ; case 0x1 03b4 7810 |x | Jump 0x3c5 ; case 0x2 03b5 781b |x | Jump 0x3d1 ; case 0x3 03b6 7822 |x" | Jump 0x3d9 ; case 0x4 03b7 7811 |x | Jump 0x3c9 ; case 0x5 03b8 7834 |x4 | Jump 0x3ed ; case 0x6 03b9 781b |x | Jump 0x3d5 ; case 0x7 03ba 7822 |x" | Jump 0x3dd ; case 0x8 03bb 782e |x. | Jump 0x3ea ; case 0x9 03bc 7828 |x( | Jump 0x3e5 ; case 0xa 03bd 782c |x, | Jump 0x3ea ; case 0xb 03be 782b |x+ | Jump 0x3ea ; case 0xc 03bf 782a |x* | Jump 0x3ea ; case 0xd 03c0 7829 |x) | Jump 0x3ea ; case 0xe 03c1 7828 |x( | Jump 0x3ea ; case 0xf 03c2 7827 |x' | Jump 0x3ea ; case 0x10 03c3 7829 |x) | Jump 0x3ed ; case 0x11 03c4 7828 |x( | .XXX[0x1] 03c5 0092 04ea | | Action Push_String_Extended,0x4ea ; "variable " 03c7 8416 | | Call 0x2,0x16 03c8 7824 |x$ | Jump 0x3ed 03c9 0092 04eb | | Action Push_String_Extended,0x4eb ; "subtype " 03cb 8416 | | Call 0x2,0x16 03cc 7820 |x | Jump 0x3ed 03cd 0092 04ec | | Action Push_String_Extended,0x4ec ; "constant " 03cf 8416 | | Call 0x2,0x16 03d0 781c |x | Jump 0x3ed 03d1 0092 04ed | | Action Push_String_Extended,0x4ed ; "named number " 03d3 8416 | | Call 0x2,0x16 03d4 7818 |x | Jump 0x3ed 03d5 0092 04ee | | Action Push_String_Extended,0x4ee ; "package " 03d7 8416 | | Call 0x2,0x16 03d8 7814 |x | Jump 0x3ed 03d9 0092 04ef | | Action Push_String_Extended,0x4ef ; "type " 03db 8416 | | Call 0x2,0x16 03dc 7810 |x | Jump 0x3ed 03dd 0092 04f0 | | Action Push_String_Extended,0x4f0 ; "task " 03df 8416 | | Call 0x2,0x16 03e0 780c |x | Jump 0x3ed 03e1 0092 04f1 | | Action Push_String_Extended,0x4f1 ; "exception " 03e3 8416 | | Call 0x2,0x16 03e4 7808 |x | Jump 0x3ed 03e5 0092 04f2 | | Action Push_String_Extended,0x4f2 ; "generic " 03e7 8416 | | Call 0x2,0x16 03e8 7804 |x | Jump 0x3ed 03e9 00d1 | | Pop_Control Pop_Count_1 03ea 0092 04f3 | | Action Push_String_Extended,0x4f3 ; "identifier " 03ec 8416 | | Call 0x2,0x16 03ed 0092 04f4 | | Action Push_String_Extended,0x4f4 ; "named " 03ef 00d9 | | Load_Top At_Offset_1 03f0 e009 | | Load 0x0,0x9 03f1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03f2 01cc | | Execute Vector,Catenate 03f3 8416 | | Call 0x2,0x16 03f4 e5f9 | | Load 0x2,-0x7 03f5 0a01 | | Execute_Immediate Plus,0x1 03f6 00e3 | | Load_Encached Natural_Cache 03f7 025b | [ | Execute Discrete,Check_In_Type 03f8 8414 | | Call 0x2,0x14 03f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03fa TRAP_0398: 03fa 0007 | | Action Break_Optional 03fb 0092 04f5 | | Action Push_String_Extended,0x4f5 ; "entity named " 03fd 00da | | Load_Top At_Offset_2 03fe e009 | | Load 0x0,0x9 03ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0400 01cc | | Execute Vector,Catenate 0401 8416 | | Call 0x2,0x16 0402 e5f9 | | Load 0x2,-0x7 0403 0a01 | | Execute_Immediate Plus,0x1 0404 00e3 | | Load_Encached Natural_Cache 0405 025b | [ | Execute Discrete,Check_In_Type 0406 8414 | | Call 0x2,0x14 0407 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0463 | c | .CONST 0x0463 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b 00cf | | Action Mark_Auxiliary 040c 7844 |xD | Jump 0x451 040d 00eb | | Load_Encached Diana_Cache 040e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 040f e407 | | Load 0x2,0x7 0410 e5f6 | | Load 0x2,-0xa 0411 8412 | | Call 0x2,0x12 0412 c407 | | Store 0x2,0x7 0413 c405 | | Store 0x2,0x5 0414 e405 | | Load 0x2,0x5 0415 00d8 | | Load_Top At_Offset_0 0416 0d08 | | Execute_Immediate Less,0x8 0417 701d |p | Jump_Nonzero 0x435 0418 00d8 | | Load_Top At_Offset_0 0419 0c14 | | Execute_Immediate Greater_Equal,0x14 041a 7012 |p | Jump_Nonzero 0x42d 041b 0af8 | | Execute_Immediate Plus,-0x8 041c 460b |F | Jump_Case 0xc 041d 781f |x | Jump 0x43d ; case 0x0 041e 780a |x | Jump 0x429 ; case 0x1 041f 7809 |x | Jump 0x429 ; case 0x2 0420 781e |x | Jump 0x43f ; case 0x3 0421 7816 |x | Jump 0x438 ; case 0x4 0422 7806 |x | Jump 0x429 ; case 0x5 0423 7805 |x | Jump 0x429 ; case 0x6 0424 7804 |x | Jump 0x429 ; case 0x7 0425 7826 |x& | Jump 0x44c ; case 0x8 0426 7802 |x | Jump 0x429 ; case 0x9 0427 7801 |x | Jump 0x429 ; case 0xa 0428 7800 |x | Jump 0x429 ; case 0xb 0429 e405 | | Load 0x2,0x5 042a 8423 | # | Call 0x2,0x23 042b 841b | | Call 0x2,0x1b 042c 7823 |x# | Jump 0x450 042d 00d8 | | Load_Top At_Offset_0 042e 0c34 | 4 | Execute_Immediate Greater_Equal,0x34 042f 6807 |h | Jump_Zero 0x437 0430 0b64 | d | Execute_Immediate Case_Compare,0x64 0431 7014 |p | Jump_Nonzero 0x446 0432 0f6d | m | Execute_Immediate Equal,0x6d 0433 700d |p | Jump_Nonzero 0x441 0434 7ff4 | | Jump 0x429 0435 00d1 | | Pop_Control Pop_Count_1 0436 7ff2 | | Jump 0x429 0437 00d1 | | Pop_Control Pop_Count_1 0438 e405 | | Load 0x2,0x5 0439 8423 | # | Call 0x2,0x23 043a 841b | | Call 0x2,0x1b 043b 841e | | Call 0x2,0x1e 043c 7813 |x | Jump 0x450 043d 841f | | Call 0x2,0x1f 043e 7811 |x | Jump 0x450 043f 8420 | | Call 0x2,0x20 0440 780f |x | Jump 0x450 0441 e405 | | Load 0x2,0x5 0442 8423 | # | Call 0x2,0x23 0443 841b | | Call 0x2,0x1b 0444 8422 | " | Call 0x2,0x22 0445 780a |x | Jump 0x450 0446 00d1 | | Pop_Control Pop_Count_1 0447 e405 | | Load 0x2,0x5 0448 8423 | # | Call 0x2,0x23 0449 841b | | Call 0x2,0x1b 044a 8422 | " | Call 0x2,0x22 044b 7804 |x | Jump 0x450 044c e405 | | Load 0x2,0x5 044d 8423 | # | Call 0x2,0x23 044e 841b | | Call 0x2,0x1b 044f 8421 | ! | Call 0x2,0x21 0450 00c9 | | Action Pop_Auxiliary_Loop 0451 e407 | | Load 0x2,0x7 0452 e5f6 | | Load 0x2,-0xa 0453 01dc | | Execute Vector,Last 0454 027a | z | Execute Discrete,Less_Equal 0455 77b7 |w | Jump_Nonzero 0x40d 0456 00ce | | Action Pop_Auxiliary 0457 e5f4 | | Load 0x2,-0xc 0458 00d8 | | Load_Top At_Offset_0 0459 0120 | | Execute Any,Is_Value 045a 6803 |h | Jump_Zero 0x45e 045b e5f7 | | Load 0x2,-0x9 045c 011e | | Execute Any,Convert 045d 7802 |x | Jump 0x460 045e e5f7 | | Load 0x2,-0x9 045f 0119 | | Execute Any,Check_In_Formal_Type 0460 85fc | | Call 0x2,-0x4 0461 c5f4 | | Store 0x2,-0xc 0462 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0463 TRAP_0408: 0463 0007 | | Action Break_Optional 0464 0092 04f6 | | Action Push_String_Extended,0x4f6 ; "<<" 0466 e008 | | Load 0x0,0x8 0467 180d | | Execute Package,Field_Execute,Field_Number 0xd 0468 01cc | | Execute Vector,Catenate 0469 0092 04f7 | | Action Push_String_Extended,0x4f7 ; ">>" 046b 01cc | | Execute Vector,Catenate 046c 8416 | | Call 0x2,0x16 046d e5f4 | | Load 0x2,-0xc 046e 00d8 | | Load_Top At_Offset_0 046f 0120 | | Execute Any,Is_Value 0470 6803 |h | Jump_Zero 0x474 0471 e5f7 | | Load 0x2,-0x9 0472 011e | | Execute Any,Convert 0473 7802 |x | Jump 0x476 0474 e5f7 | | Load 0x2,-0x9 0475 0119 | | Execute Any,Check_In_Formal_Type 0476 85fc | | Call 0x2,-0x4 0477 c5f4 | | Store 0x2,-0xc 0478 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0479 0000 0000 | | .BLANK 0000[0x7] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0487 | | .CONST 0x0487 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0002 | | .CONST 0x0002 ; Number of locals 0483 INIT_0480: 0483 4801 |H | Short_Literal 0x1 0484 e602 | | Load 0x3,0x2 0485 00e9 | | Load_Encached String_Cache 0486 0334 | 4 | Declare_Variable Array,With_Constraint 0487 BODY_0480: 0487 00d8 | | Load_Top At_Offset_0 0488 e407 | | Load 0x2,0x7 0489 e5f6 | | Load 0x2,-0xa 048a 8410 | | Call 0x2,0x10 048b c407 | | Store 0x2,0x7 048c 00d1 | | Pop_Control Pop_Count_1 048d 00d8 | | Load_Top At_Offset_0 048e e009 | | Load 0x0,0x9 048f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0490 841c | | Call 0x2,0x1c 0491 00cb | | Action Pop_Block_With_Result 0492 00ca | | Action Exit_Nullary_Function 0493 0000 0000 | | .BLANK 0000[0x5] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049f | | .CONST 0x049f ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0002 | | .CONST 0x0002 ; Number of locals 049b INIT_0498: 049b 4801 |H | Short_Literal 0x1 049c e603 | | Load 0x3,0x3 049d 00e9 | | Load_Encached String_Cache 049e 0334 | 4 | Declare_Variable Array,With_Constraint 049f BODY_0498: 049f 00d8 | | Load_Top At_Offset_0 04a0 e407 | | Load 0x2,0x7 04a1 e5f6 | | Load 0x2,-0xa 04a2 8410 | | Call 0x2,0x10 04a3 c407 | | Store 0x2,0x7 04a4 00d1 | | Pop_Control Pop_Count_1 04a5 e603 | | Load 0x3,0x3 04a6 0a02 | | Execute_Immediate Plus,0x2 04a7 00e3 | | Load_Encached Natural_Cache 04a8 025b | [ | Execute Discrete,Check_In_Type 04a9 4822 |H" | Short_Literal 0x22 04aa 8415 | | Call 0x2,0x15 04ab 00d8 | | Load_Top At_Offset_0 04ac 8416 | | Call 0x2,0x16 04ad 4800 |H | Short_Literal 0x0 04ae 4822 |H" | Short_Literal 0x22 04af 8415 | | Call 0x2,0x15 04b0 841b | | Call 0x2,0x1b 04b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04b2 0000 0000 | | .BLANK 0000[0x6] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bc | | .CONST 0x04bc ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0002 | | .CONST 0x0002 ; Number of locals 04bb INIT_04b8: 04bb 841d | | Call 0x2,0x1d 04bc BODY_04b8: 04bc 00eb | | Load_Encached Diana_Cache 04bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04be e407 | | Load 0x2,0x7 04bf e5f6 | | Load 0x2,-0xa 04c0 8412 | | Call 0x2,0x12 04c1 c407 | | Store 0x2,0x7 04c2 c602 | | Store 0x3,0x2 04c3 e602 | | Load 0x3,0x2 04c4 6803 |h | Jump_Zero 0x4c8 04c5 0092 04f8 | | Action Push_String_Extended,0x4f8 ; "constrained " 04c7 8416 | | Call 0x2,0x16 04c8 e7ff | | Load 0x3,-0x1 04c9 01db | | Execute Vector,Length 04ca 6802 |h | Jump_Zero 0x4cd 04cb e7ff | | Load 0x3,-0x1 04cc 8416 | | Call 0x2,0x16 04cd 00d8 | | Load_Top At_Offset_0 04ce 8416 | | Call 0x2,0x16 04cf 841b | | Call 0x2,0x1b 04d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04d1 ; -------------------------------------------------------------------------------------- 04d1 ; STRING TABLE 04d1 ; -------------------------------------------------------------------------------------- 04d1 0052 | R | .STRTAB 0x0052->0x04fa ; "undecipherable entity (raising " 04d2 006f | o | .STRTAB 0x006f->0x0509 ; ")" 04d3 006e | n | .STRTAB 0x006e->0x050a ; "Standard." 04d4 0075 | u | .STRTAB 0x0075->0x050e ; "(infix)" 04d5 007a | z | .STRTAB 0x007a->0x0512 ; "delta " 04d6 007e | ~ | .STRTAB 0x007e->0x0515 ; "discriminated record " 04d7 0091 | | .STRTAB 0x0091->0x051f ; "procedure " 04d8 0099 | | .STRTAB 0x0099->0x0524 ; "formal discrete " 04d9 00a7 | | .STRTAB 0x00a7->0x052c ; "formal integer " 04da 00b4 | | .STRTAB 0x00b4->0x0534 ; "formal fixed " 04db 00bf | | .STRTAB 0x00bf->0x053a ; "formal float " 04dc 00ca | | .STRTAB 0x00ca->0x0541 ; "enumeration " 04dd 00d4 | | .STRTAB 0x00d4->0x0547 ; "integer " 04de 00da | | .STRTAB 0x00da->0x054b ; "fixed " 04df 00de | | .STRTAB 0x00de->0x054e ; "float " 04e0 00e2 | | .STRTAB 0x00e2->0x0551 ; "array " 04e1 00e6 | | .STRTAB 0x00e6->0x0554 ; "unconstrained " 04e2 00f2 | | .STRTAB 0x00f2->0x055b ; "record " 04e3 00f7 | | .STRTAB 0x00f7->0x055e ; "access to " 04e4 00ff | | .STRTAB 0x00ff->0x0563 ; "derived " 04e5 0105 | | .STRTAB 0x0105->0x0567 ; "limited private " 04e6 0113 | | .STRTAB 0x0113->0x056f ; "private " 04e7 0119 | | .STRTAB 0x0119->0x0573 ; "task" 04e8 011b | | .STRTAB 0x011b->0x0575 ; "function " 04e9 0122 | " | .STRTAB 0x0122->0x057a ; "The " 04ea 0124 | $ | .STRTAB 0x0124->0x057c ; "variable " 04eb 012b | + | .STRTAB 0x012b->0x0580 ; "subtype " 04ec 0131 | 1 | .STRTAB 0x0131->0x0584 ; "constant " 04ed 0138 | 8 | .STRTAB 0x0138->0x0589 ; "named number " 04ee 0143 | C | .STRTAB 0x0143->0x058f ; "package " 04ef 0149 | I | .STRTAB 0x0149->0x0593 ; "type " 04f0 014c | L | .STRTAB 0x014c->0x0596 ; "task " 04f1 014f | O | .STRTAB 0x014f->0x0598 ; "exception " 04f2 0157 | W | .STRTAB 0x0157->0x059d ; "generic " 04f3 015d | ] | .STRTAB 0x015d->0x05a1 ; "identifier " 04f4 0166 | f | .STRTAB 0x0166->0x05a7 ; "named " 04f5 016a | j | .STRTAB 0x016a->0x05aa ; "entity named " 04f6 0175 | u | .STRTAB 0x0175->0x05b0 ; "<<" 04f7 0175 | u | .STRTAB 0x0175->0x05b1 ; ">>" 04f8 0175 | u | .STRTAB 0x0175->0x05b2 ; "constrained " 04f9 017f | | .STREND 0x017f->0x05b8 04fa 756e 6465 |unde| .STRTAB_STRINGS 05b9 0000 0000 | | .BLANK 0000[0x7] 05c0 ; -------------------------------------------------------------------------------------- 05c0 ; Debug Table 05c0 ; -------------------------------------------------------------------------------------- 05c0 0004 000f | | .DEBUG4 0x0004,0x000f,0x4b1d,0x0000,0x0001,0x0000 05c6 3290 32b7 |2 2 | .XXX[0x3a] 05c8 3ab6 b2b9 |: | 05ca 30ba 34b7 |0 4 | 05cc b710 2a3c | *<| 05ce b832 afa9 | 2 | 05d0 b2ba 103a | :| 05d2 3cb8 3297 |< 2 | 05d4 0000 0004 | | 05d6 8000 0000 | | 05d8 0000 0004 | | 05da 0000 0004 | | 05dc 8000 0000 | | 05de 0000 0004 | | 05e0 0000 0005 | | 05e2 0000 0022 | "| 05e4 9010 2a34 | *4| 05e6 3290 3337 |2 37| 05e8 b936 b0ba | 6 | 05ea 1014 3bb4 | ; | 05ec 34b1 b410 |4 | 05ee 34b7 31b6 |4 1 | 05f0 3ab2 32b9 |: 2 | 05f2 9030 b73c | 0 <| 05f4 903a 3930 | :90| 05f6 b4b6 34b7 | 4 | 05f8 3390 39b8 |3 9 | 05fa 30b1 b2b9 |0 | 05fc 9490 31b0 | 1 | 05fe b710 3132 | 12|