|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05b8 | | .CONST 0x05b8 ; 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 0076 | v | .CONST 0x0076 ; Address of begin
0019 0089 | | .CONST 0x0089 ; Address of exception handler
001a 001e | | .CONST 0x001e ; Number of locals
001b INIT_0018:
001b 4801 |H | Short_Literal 0x1
001c e5f8 | | Load 0x2,-0x8
001d 00e9 | | Load_Encached String_Cache
001e 035b | [ | Declare_Type Array,Constrained
001f 0337 | 7 | Declare_Variable Array
0020 00d8 | | Load_Top At_Offset_0
0021 0335 | 5 | Declare_Variable Array,Duplicate
0022 00cd | | Action Spare6_Action
0023 00d9 | | Load_Top At_Offset_1
0024 01d9 | | Execute Vector,Reverse_Bounds
0025 0263 | c | Execute Discrete,Above_Bound
0026 7005 |p | Jump_Nonzero 0x2c
0027 4820 |H | Short_Literal 0x20
0028 00d9 | | Load_Top At_Offset_1
0029 e403 | | Load 0x2,0x3
002a 01d6 | | Execute Vector,Field_Write
002b 3ffb |? | Loop_Increasing 0x27
002c 00d9 | | Load_Top At_Offset_1
002d 01d4 | | Execute Vector,Structure_Write
002e 00eb | | Load_Encached Diana_Cache
002f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0030 00eb | | Load_Encached Diana_Cache
0031 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0032 00e3 | | Load_Encached Natural_Cache
0033 00e3 | | Load_Encached Natural_Cache
0034 00e3 | | Load_Encached Natural_Cache
0035 e002 | | Load 0x0,0x2
0036 e003 | | Load 0x0,0x3
0037 00e6 | | Load_Encached Float_Cache
0038 e004 | | Load 0x0,0x4
0039 1b79 | y | Execute Package,Field_Read,Field_Number 0x79
003a 0387 | | Declare_Variable Package
003b 00d8 | | Load_Top At_Offset_0
003c 020f | | Execute Module,Activate
003d 0093 0000 | | push_full_address 0x0
003f 6064 |`d | Indirect_Literal Discrete,0xa4,{0x80000000, 0x00010000}
0040 0273 | s | Execute Discrete,Plus
0041 e5ff | | Load 0x2,-0x1
0042 605d |`] | Indirect_Literal Discrete,0xa0,{0x00000000, 0x0000ffff}
0043 0279 | y | Execute Discrete,And
0044 0273 | s | Execute Discrete,Plus
0045 e005 | | Load 0x0,0x5
0046 0273 | s | Execute Discrete,Plus
0047 4900 |I | Short_Literal 0x100
0048 e006 | | Load 0x0,0x6
0049 0387 | | Declare_Variable Package
004a 00d8 | | Load_Top At_Offset_0
004b 020f | | Execute Module,Activate
004c 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
004e 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0050 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
0052 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0054 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0056 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0058 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
005a 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
005c 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
005e 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0060 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
0062 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
0064 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0066 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
0068 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
006a 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call
006c 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
006e 029f 026b | k| Declare_Subprogram INIT_0268,For_Call
0070 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
0072 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
0074 029f 040b | | Declare_Subprogram INIT_0408,For_Call
0076 BODY_0018:
0076 4800 |H | Short_Literal 0x0
0077 a407 | | Store_Unchecked 0x2,0x7
0078 e5f6 | | Load 0x2,-0xa
0079 01dd | | Execute Vector,First
007a c405 | | Store 0x2,0x5
007b e405 | | Load 0x2,0x5
007c e5f6 | | Load 0x2,-0xa
007d 01dc | | Execute Vector,Last
007e 027a | z | Execute Discrete,Less_Equal
007f 6801 |h | Jump_Zero 0x81
0080 841d | | Call 0x2,0x1d
0081 e5f5 | | Load 0x2,-0xb
0082 6805 |h | Jump_Zero 0x88
0083 4800 |H | Short_Literal 0x0
0084 a407 | | Store_Unchecked 0x2,0x7
0085 e406 | | Load 0x2,0x6
0086 a405 | | Store_Unchecked 0x2,0x5
0087 841e | | Call 0x2,0x1e
0088 450c |E | Exit_Suprogram New_Top_Offset 0xc
0089 TRAP_0018:
0089 0007 | | Action Break_Optional
008a 0092 04c9 | | Action Push_String_Extended,0x4c9 ; "undecipherable entity (raising "
008c e007 | | Load 0x0,0x7
008d 180d | | Execute Package,Field_Execute,Field_Number 0xd
008e 01cc | | Execute Vector,Catenate
008f 0092 04ca | | Action Push_String_Extended,0x4ca ; ")"
0091 01cc | | Execute Vector,Catenate
0092 840e | | Call 0x2,0xe
0093 e5f4 | | Load 0x2,-0xc
0094 00d8 | | Load_Top At_Offset_0
0095 0120 | | Execute Any,Is_Value
0096 6803 |h | Jump_Zero 0x9a
0097 e5f7 | | Load 0x2,-0x9
0098 0122 | " | Execute Any,Make_Root_Type
0099 011e | | Execute Any,Convert
009a 85fc | | Call 0x2,-0x4
009b c5f4 | | Store 0x2,-0xc
009c 450c |E | Exit_Suprogram New_Top_Offset 0xc
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00a4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ad | | .CONST 0x00ad ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab e008 | | Load 0x0,0x8
00ac 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ad BODY_00a8:
00ad e7fe | | Load 0x3,-0x2
00ae e7ff | | Load 0x3,-0x1
00af 01dc | | Execute Vector,Last
00b0 027a | z | Execute Discrete,Less_Equal
00b1 6812 |h | Jump_Zero 0xc4
00b2 e008 | | Load 0x0,0x8
00b3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00b4 e7fe | | Load 0x3,-0x2
00b5 e7ff | | Load 0x3,-0x1
00b6 e009 | | Load 0x0,0x9
00b7 e409 | | Load 0x2,0x9
00b8 0096 | | Execute Package,Entry
00b9 c7fe | | Store 0x3,-0x2
00ba 0059 | Y | Store_Top Discrete,At_Offset_1
00bb 00d8 | | Load_Top At_Offset_0
00bc 00d8 | | Load_Top At_Offset_0
00bd 00eb | | Load_Encached Diana_Cache
00be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bf 0260 | ` | Execute Discrete,In_Type
00c0 7001 |p | Jump_Nonzero 0xc2
00c1 0801 | | Execute_Immediate Raise,0x1
00c2 a7fd | | Store_Unchecked 0x3,-0x3
00c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c4 4800 |H | Short_Literal 0x0
00c5 a7fd | | Store_Unchecked 0x3,-0x3
00c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c7 0000 | | .XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cd | | .CONST 0x00cd ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e008 | | Load 0x0,0x8
00cc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00cd BODY_00c8:
00cd e008 | | Load 0x0,0x8
00ce 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00cf e7fe | | Load 0x3,-0x2
00d0 e7ff | | Load 0x3,-0x1
00d1 e009 | | Load 0x0,0x9
00d2 e409 | | Load 0x2,0x9
00d3 0096 | | Execute Package,Entry
00d4 c7fe | | Store 0x3,-0x2
00d5 0059 | Y | Store_Top Discrete,At_Offset_1
00d6 00d8 | | Load_Top At_Offset_0
00d7 00d8 | | Load_Top At_Offset_0
00d8 00eb | | Load_Encached Diana_Cache
00d9 1b95 | | Execute Package,Field_Read,Field_Number 0x95
00da 0260 | ` | Execute Discrete,In_Type
00db 7001 |p | Jump_Nonzero 0xdd
00dc 0801 | | Execute_Immediate Raise,0x1
00dd a7fd | | Store_Unchecked 0x3,-0x3
00de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00df 0000 | | .XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e407 | | Load 0x2,0x7
00e4 00db | | Load_Top At_Offset_3
00e5 0273 | s | Execute Discrete,Plus
00e6 e5f9 | | Load 0x2,-0x7
00e7 027d | } | Execute Discrete,Greater
00e8 6816 |h | Jump_Zero 0xff
00e9 e5f4 | | Load 0x2,-0xc
00ea 00d8 | | Load_Top At_Offset_0
00eb 0120 | | Execute Any,Is_Value
00ec 6803 |h | Jump_Zero 0xf0
00ed e5f7 | | Load 0x2,-0x9
00ee 0122 | " | Execute Any,Make_Root_Type
00ef 011e | | Execute Any,Convert
00f0 85fc | | Call 0x2,-0x4
00f1 c5f4 | | Store 0x2,-0xc
00f2 e5f4 | | Load 0x2,-0xc
00f3 00d8 | | Load_Top At_Offset_0
00f4 0120 | | Execute Any,Is_Value
00f5 6803 |h | Jump_Zero 0xf9
00f6 e5f7 | | Load 0x2,-0x9
00f7 0122 | " | Execute Any,Make_Root_Type
00f8 011e | | Execute Any,Convert
00f9 e402 | | Load 0x2,0x2
00fa 85fe | | Call 0x2,-0x2
00fb c5f4 | | Store 0x2,-0xc
00fc e402 | | Load 0x2,0x2
00fd 01db | | Execute Vector,Length
00fe c407 | | Store 0x2,0x7
00ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00db | | Load_Top At_Offset_3
0104 840c | | Call 0x2,0xc
0105 e5f4 | | Load 0x2,-0xc
0106 00d8 | | Load_Top At_Offset_0
0107 0120 | | Execute Any,Is_Value
0108 6803 |h | Jump_Zero 0x10c
0109 e5f7 | | Load 0x2,-0x9
010a 0122 | " | Execute Any,Make_Root_Type
010b 011e | | Execute Any,Convert
010c 00db | | Load_Top At_Offset_3
010d 85fd | | Call 0x2,-0x3
010e c5f4 | | Store 0x2,-0xc
010f e407 | | Load 0x2,0x7
0110 0a01 | | Execute_Immediate Plus,0x1
0111 c407 | | Store 0x2,0x7
0112 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0113 0000 0000 | | .BLANK 0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 01db | | Execute Vector,Length
011d 00d8 | | Load_Top At_Offset_0
011e 00e3 | | Load_Encached Natural_Cache
011f 0260 | ` | Execute Discrete,In_Type
0120 7001 |p | Jump_Nonzero 0x122
0121 0801 | | Execute_Immediate Raise,0x1
0122 840c | | Call 0x2,0xc
0123 e5f4 | | Load 0x2,-0xc
0124 00d8 | | Load_Top At_Offset_0
0125 0120 | | Execute Any,Is_Value
0126 6803 |h | Jump_Zero 0x12a
0127 e5f7 | | Load 0x2,-0x9
0128 0122 | " | Execute Any,Make_Root_Type
0129 011e | | Execute Any,Convert
012a 00db | | Load_Top At_Offset_3
012b 85fe | | Call 0x2,-0x2
012c c5f4 | | Store 0x2,-0xc
012d e407 | | Load 0x2,0x7
012e 00db | | Load_Top At_Offset_3
012f 01db | | Execute Vector,Length
0130 0273 | s | Execute Discrete,Plus
0131 c407 | | Store 0x2,0x7
0132 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0133 0000 0000 | | .BLANK 0000[0x5]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00db | | Load_Top At_Offset_3
013c 00d8 | | Load_Top At_Offset_0
013d 00e3 | | Load_Encached Natural_Cache
013e 0260 | ` | Execute Discrete,In_Type
013f 7001 |p | Jump_Nonzero 0x141
0140 0801 | | Execute_Immediate Raise,0x1
0141 840c | | Call 0x2,0xc
0142 e5f4 | | Load 0x2,-0xc
0143 00d8 | | Load_Top At_Offset_0
0144 0120 | | Execute Any,Is_Value
0145 6803 |h | Jump_Zero 0x149
0146 e5f7 | | Load 0x2,-0x9
0147 0122 | " | Execute Any,Make_Root_Type
0148 011e | | Execute Any,Convert
0149 00db | | Load_Top At_Offset_3
014a 85fe | | Call 0x2,-0x2
014b c5f4 | | Store 0x2,-0xc
014c e407 | | Load 0x2,0x7
014d 00db | | Load_Top At_Offset_3
014e 01db | | Execute Vector,Length
014f 0273 | s | Execute Discrete,Plus
0150 c407 | | Store 0x2,0x7
0151 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0152 0000 0000 | | .BLANK 0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 4820 |H | Short_Literal 0x20
015c e7fe | | Load 0x3,-0x2
015d 480a |H | Short_Literal 0xa
015e e7ff | | Load 0x3,-0x1
015f e00a | | Load 0x0,0xa
0160 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0161 840e | | Call 0x2,0xe
0162 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0163 0000 0000 | | .BLANK 0000[0x5]
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 e00a | | Load 0x0,0xa
0170 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0171 840e | | Call 0x2,0xe
0172 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0173 0000 0000 | | .BLANK 0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0180 | | .CONST 0x0180 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b 4801 |H | Short_Literal 0x1
017c 48c8 |H | Short_Literal 0xc8
017d 00e9 | | Load_Encached String_Cache
017e 035b | [ | Declare_Type Array,Constrained
017f 0337 | 7 | Declare_Variable Array
0180 BODY_0178:
0180 00d8 | | Load_Top At_Offset_0
0181 e5fb | | Load 0x2,-0x5
0182 e5fa | | Load 0x2,-0x6
0183 e7ff | | Load 0x3,-0x1
0184 e408 | | Load 0x2,0x8
0185 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0186 00d1 | | Pop_Control Pop_Count_1
0187 4820 |H | Short_Literal 0x20
0188 00d9 | | Load_Top At_Offset_1
0189 e00a | | Load 0x0,0xa
018a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
018b 840e | | Call 0x2,0xe
018c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 e407 | | Load 0x2,0x7
0194 e5f9 | | Load 0x2,-0x7
0195 027c | | | Execute Discrete,Less
0196 680d |h | Jump_Zero 0x1a4
0197 e5f4 | | Load 0x2,-0xc
0198 00d8 | | Load_Top At_Offset_0
0199 0120 | | Execute Any,Is_Value
019a 6803 |h | Jump_Zero 0x19e
019b e5f7 | | Load 0x2,-0x9
019c 0122 | " | Execute Any,Make_Root_Type
019d 011e | | Execute Any,Convert
019e 4820 |H | Short_Literal 0x20
019f 85fd | | Call 0x2,-0x3
01a0 c5f4 | | Store 0x2,-0xc
01a1 e407 | | Load 0x2,0x7
01a2 0a01 | | Execute_Immediate Plus,0x1
01a3 c407 | | Store 0x2,0x7
01a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01a5 0000 0000 | | .XXX[0x3]
01a7 0000 | |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b3 | | .CONST 0x01b3 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0002 | | .CONST 0x0002 ; Number of locals
01ab INIT_01a8:
01ab 4800 |H | Short_Literal 0x0
01ac 00db | | Load_Top At_Offset_3
01ad 0092 04cb | | Action Push_String_Extended,0x4cb ; "Standard."
01af e00a | | Load 0x0,0xa
01b0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01b1 00e2 | | Load_Encached Integer_Cache
01b2 03f1 | | Declare_Variable Discrete,With_Value
01b3 BODY_01a8:
01b3 00d8 | | Load_Top At_Offset_0
01b4 e7ff | | Load 0x3,-0x1
01b5 01dd | | Execute Vector,First
01b6 027f | | Execute Discrete,Equal
01b7 680c |h | Jump_Zero 0x1c4
01b8 00d8 | | Load_Top At_Offset_0
01b9 0a09 | | Execute_Immediate Plus,0x9
01ba 00d8 | | Load_Top At_Offset_0
01bb 00e2 | | Load_Encached Integer_Cache
01bc 0260 | ` | Execute Discrete,In_Type
01bd 7001 |p | Jump_Nonzero 0x1bf
01be 0801 | | Execute_Immediate Raise,0x1
01bf e7ff | | Load 0x3,-0x1
01c0 01dc | | Execute Vector,Last
01c1 e7ff | | Load 0x3,-0x1
01c2 01cf | | Execute Vector,Slice_Read
01c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c4 00db | | Load_Top At_Offset_3
01c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d0 | | .CONST 0x01d0 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0003 | | .CONST 0x0003 ; Number of locals
01cb INIT_01c8:
01cb e00b | | Load 0x0,0xb
01cc e409 | | Load 0x2,0x9
01cd 0098 | | Execute Package,Field_Read_Dynamic
01ce 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
01d0 BODY_01c8:
01d0 e00b | | Load 0x0,0xb
01d1 e409 | | Load 0x2,0x9
01d2 0098 | | Execute Package,Field_Read_Dynamic
01d3 e405 | | Load 0x2,0x5
01d4 e5f6 | | Load 0x2,-0xa
01d5 e00c | | Load 0x0,0xc
01d6 e409 | | Load 0x2,0x9
01d7 0096 | | Execute Package,Entry
01d8 c405 | | Store 0x2,0x5
01d9 005a | Z | Store_Top Discrete,At_Offset_2
01da 8603 | | Call 0x3,0x3
01db 0831 | 1 | Execute_Immediate Raise,0x31
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e8 | | .CONST 0x01e8 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0003 | | .CONST 0x0003 ; Number of locals
01e3 INIT_01e0:
01e3 e00b | | Load 0x0,0xb
01e4 e409 | | Load 0x2,0x9
01e5 0098 | | Execute Package,Field_Read_Dynamic
01e6 0007 | | Action Break_Optional
01e7 00e3 | | Load_Encached Natural_Cache
01e8 BODY_01e0:
01e8 8415 | | Call 0x2,0x15
01e9 840e | | Call 0x2,0xe
01ea 8413 | | Call 0x2,0x13
01eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ec 0000 0000 | | .BLANK 0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f7 | | .CONST 0x01f7 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0004 | | .CONST 0x0004 ; Number of locals
01f3 INIT_01f0:
01f3 00eb | | Load_Encached Diana_Cache
01f4 1b95 | | Execute Package,Field_Read,Field_Number 0x95
01f5 00e5 | | Load_Encached Long_Integer_Cache
01f6 00e6 | | Load_Encached Float_Cache
01f7 BODY_01f0:
01f7 00eb | | Load_Encached Diana_Cache
01f8 1b95 | | Execute Package,Field_Read,Field_Number 0x95
01f9 e405 | | Load 0x2,0x5
01fa e5f6 | | Load 0x2,-0xa
01fb 840b | | Call 0x2,0xb
01fc c405 | | Store 0x2,0x5
01fd 005b | [ | Store_Top Discrete,At_Offset_3
01fe 00da | | Load_Top At_Offset_2
01ff 4603 |F | Jump_Case 0x4
0200 7810 |x | Jump 0x211 ; case 0x0
0201 7803 |x | Jump 0x205 ; case 0x1
0202 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2
0203 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3
0204 4501 |E | .XXX[0x1]
0205 00e6 | | Load_Encached Float_Cache
0206 e405 | | Load 0x2,0x5
0207 e5f6 | | Load 0x2,-0xa
0208 e00d | | Load 0x0,0xd
0209 e409 | | Load 0x2,0x9
020a 0096 | | Execute Package,Entry
020b c405 | | Store 0x2,0x5
020c 0049 | I | Store_Top Float,At_Offset_1
020d 00d8 | | Load_Top At_Offset_0
020e 8412 | | Call 0x2,0x12
020f 8413 | | Call 0x2,0x13
0210 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0211 00e5 | | Load_Encached Long_Integer_Cache
0212 e405 | | Load 0x2,0x5
0213 e5f6 | | Load 0x2,-0xa
0214 e00e | | Load 0x0,0xe
0215 e409 | | Load 0x2,0x9
0216 0096 | | Execute Package,Entry
0217 c405 | | Store 0x2,0x5
0218 005a | Z | Store_Top Discrete,At_Offset_2
0219 4800 |H | Short_Literal 0x0
021a 00da | | Load_Top At_Offset_2
021b 8411 | | Call 0x2,0x11
021c 8413 | | Call 0x2,0x13
021d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021e 0000 0000 | | .XXX[0x2]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022a | * | .CONST 0x022a ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0004 | | .CONST 0x0004 ; Number of locals
0223 INIT_0220:
0223 e00b | | Load 0x0,0xb
0224 e409 | | Load 0x2,0x9
0225 0098 | | Execute Package,Field_Read_Dynamic
0226 0007 | | Action Break_Optional
0227 00e3 | | Load_Encached Natural_Cache
0228 029f 0493 | | Declare_Subprogram INIT_0490,For_Call
022a BODY_0220:
022a e00b | | Load 0x0,0xb
022b e409 | | Load 0x2,0x9
022c 0098 | | Execute Package,Field_Read_Dynamic
022d e405 | | Load 0x2,0x5
022e e5f6 | | Load 0x2,-0xa
022f e00c | | Load 0x0,0xc
0230 e409 | | Load 0x2,0x9
0231 0096 | | Execute Package,Entry
0232 c405 | | Store 0x2,0x5
0233 005b | [ | Store_Top Discrete,At_Offset_3
0234 00da | | Load_Top At_Offset_2
0235 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0236 8604 | | Call 0x3,0x4
0237 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023c | < | .CONST 0x023c ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b 00e1 | | Load_Encached Boolean_Cache
023c BODY_0238:
023c 00e1 | | Load_Encached Boolean_Cache
023d e405 | | Load 0x2,0x5
023e e5f6 | | Load 0x2,-0xa
023f e00f | | Load 0x0,0xf
0240 e409 | | Load 0x2,0x9
0241 0096 | | Execute Package,Entry
0242 c405 | | Store 0x2,0x5
0243 0059 | Y | Store_Top Discrete,At_Offset_1
0244 00d8 | | Load_Top At_Offset_0
0245 7004 |p | Jump_Nonzero 0x24a
0246 0092 04cc | | Action Push_String_Extended,0x4cc ; "(infix)"
0248 840e | | Call 0x2,0xe
0249 8413 | | Call 0x2,0x13
024a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024b 0000 0000 | | .BLANK 0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0254 | T | .CONST 0x0254 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 00e6 | | Load_Encached Float_Cache
0254 BODY_0250:
0254 00e6 | | Load_Encached Float_Cache
0255 e405 | | Load 0x2,0x5
0256 e5f6 | | Load 0x2,-0xa
0257 e00d | | Load 0x0,0xd
0258 e409 | | Load 0x2,0x9
0259 0096 | | Execute Package,Entry
025a c405 | | Store 0x2,0x5
025b 0049 | I | Store_Top Float,At_Offset_1
025c 00d8 | | Load_Top At_Offset_0
025d 6806 |h | Jump_Zero 0x264
025e 0092 04cd | | Action Push_String_Extended,0x4cd ; "delta "
0260 840e | | Call 0x2,0xe
0261 00d8 | | Load_Top At_Offset_0
0262 8412 | | Call 0x2,0x12
0263 8413 | | Call 0x2,0x13
0264 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0265 0000 0000 | | .XXX[0x3]
0267 0000 | |
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0270 | p | .CONST 0x0270 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0002 | | .CONST 0x0002 ; Number of locals
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c 00eb | | Load_Encached Diana_Cache
026d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026e 011c | | Execute Any,Convert_Unchecked
026f 1c01 | | Execute_Immediate Run_Utility,0x1
0270 BODY_0268:
0270 00d8 | | Load_Top At_Offset_0
0271 01dd | | Execute Vector,First
0272 0a03 | | Execute_Immediate Plus,0x3
0273 00d8 | | Load_Top At_Offset_0
0274 00e2 | | Load_Encached Integer_Cache
0275 0260 | ` | Execute Discrete,In_Type
0276 7001 |p | Jump_Nonzero 0x278
0277 0801 | | Execute_Immediate Raise,0x1
0278 00d9 | | Load_Top At_Offset_1
0279 01dc | | Execute Vector,Last
027a 00da | | Load_Top At_Offset_2
027b 01cf | | Execute Vector,Slice_Read
027c 840e | | Call 0x2,0xe
027d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
027e 0000 0000 | | .XXX[0x2]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0288 | | .CONST 0x0288 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0004 | | .CONST 0x0004 ; Number of locals
0283 INIT_0280:
0283 00eb | | Load_Encached Diana_Cache
0284 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0285 00e6 | | Load_Encached Float_Cache
0286 029f 04b3 | | Declare_Subprogram INIT_04b0,For_Call
0288 BODY_0280:
0288 00eb | | Load_Encached Diana_Cache
0289 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028a e405 | | Load 0x2,0x5
028b e5f6 | | Load 0x2,-0xa
028c 840a | | Call 0x2,0xa
028d c405 | | Store 0x2,0x5
028e 005b | [ | Store_Top Discrete,At_Offset_3
028f 00da | | Load_Top At_Offset_2
0290 00d8 | | Load_Top At_Offset_0
0291 480c |H | Short_Literal 0xc
0292 489b |H | Short_Literal 0x9b
0293 0262 | b | Execute Discrete,In_Range
0294 6896 |h | Jump_Zero 0x32b
0295 0af4 | | Execute_Immediate Plus,-0xc
0296 468f |F | Jump_Case 0x90
0297 789c |x | Jump 0x334 ; case 0x0
0298 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1
0299 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2
029a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3
029b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4
029c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5
029d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6
029e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7
029f 7894 |x | Jump 0x334 ; case 0x8
02a0 7893 |x | Jump 0x334 ; case 0x9
02a1 7892 |x | Jump 0x334 ; case 0xa
02a2 7891 |x | Jump 0x334 ; case 0xb
02a3 7890 |x | Jump 0x334 ; case 0xc
02a4 788f |x | Jump 0x334 ; case 0xd
02a5 788e |x | Jump 0x334 ; case 0xe
02a6 788d |x | Jump 0x334 ; case 0xf
02a7 788c |x | Jump 0x334 ; case 0x10
02a8 788b |x | Jump 0x334 ; case 0x11
02a9 788a |x | Jump 0x334 ; case 0x12
02aa 7889 |x | Jump 0x334 ; case 0x13
02ab 7888 |x | Jump 0x334 ; case 0x14
02ac 7887 |x | Jump 0x334 ; case 0x15
02ad 7886 |x | Jump 0x334 ; case 0x16
02ae 7885 |x | Jump 0x334 ; case 0x17
02af 7884 |x | Jump 0x334 ; case 0x18
02b0 7883 |x | Jump 0x334 ; case 0x19
02b1 7882 |x | Jump 0x334 ; case 0x1a
02b2 7881 |x | Jump 0x334 ; case 0x1b
02b3 7880 |x | Jump 0x334 ; case 0x1c
02b4 787f |x | Jump 0x334 ; case 0x1d
02b5 787e |x~ | Jump 0x334 ; case 0x1e
02b6 787d |x} | Jump 0x334 ; case 0x1f
02b7 787c |x| | Jump 0x334 ; case 0x20
02b8 787b |x{ | Jump 0x334 ; case 0x21
02b9 787a |xz | Jump 0x334 ; case 0x22
02ba 7879 |xy | Jump 0x334 ; case 0x23
02bb 7878 |xx | Jump 0x334 ; case 0x24
02bc 7877 |xw | Jump 0x334 ; case 0x25
02bd 7876 |xv | Jump 0x334 ; case 0x26
02be 7875 |xu | Jump 0x334 ; case 0x27
02bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x28
02c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x29
02c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2a
02c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2b
02c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2c
02c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2d
02c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2e
02c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2f
02c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x30
02c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x31
02c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x32
02ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x33
02cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x34
02cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x35
02cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x36
02ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x37
02cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x38
02d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x39
02d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3a
02d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3b
02d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3c
02d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3d
02d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3e
02d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3f
02d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x40
02d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x41
02d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x42
02da 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x43
02db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x44
02dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x45
02dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x46
02de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x47
02df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x48
02e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x49
02e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4a
02e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4b
02e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4c
02e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4d
02e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4e
02e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4f
02e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x50
02e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x51
02e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x52
02ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x53
02eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x54
02ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x55
02ed 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x56
02ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x57
02ef 7867 |xg | Jump 0x357 ; case 0x58
02f0 786a |xj | Jump 0x35b ; case 0x59
02f1 7844 |xD | Jump 0x336 ; case 0x5a
02f2 784c |xL | Jump 0x33f ; case 0x5b
02f3 7853 |xS | Jump 0x347 ; case 0x5c
02f4 7856 |xV | Jump 0x34b ; case 0x5d
02f5 784d |xM | Jump 0x343 ; case 0x5e
02f6 7876 |xv | Jump 0x36d ; case 0x5f
02f7 7867 |xg | Jump 0x35f ; case 0x60
02f8 7878 |xx | Jump 0x371 ; case 0x61
02f9 7855 |xU | Jump 0x34f ; case 0x62
02fa 7858 |xX | Jump 0x353 ; case 0x63
02fb 7881 |x | Jump 0x37d ; case 0x64
02fc 7884 |x | Jump 0x381 ; case 0x65
02fd 786b |xk | Jump 0x369 ; case 0x66
02fe 7886 |x | Jump 0x385 ; case 0x67
02ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x68
0300 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x69
0301 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6a
0302 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6b
0303 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6c
0304 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6d
0305 7883 |x | Jump 0x389 ; case 0x6e
0306 7826 |x& | Jump 0x32d ; case 0x6f
0307 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x70
0308 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x71
0309 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x72
030a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x73
030b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x74
030c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x75
030d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x76
030e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x77
030f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x78
0310 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x79
0311 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7a
0312 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7b
0313 7851 |xQ | Jump 0x365 ; case 0x7c
0314 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7d
0315 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7e
0316 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7f
0317 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x80
0318 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x81
0319 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x82
031a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x83
031b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x84
031c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x85
031d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x86
031e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x87
031f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x88
0320 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x89
0321 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8a
0322 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8b
0323 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8c
0324 780c |x | Jump 0x331 ; case 0x8d
0325 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8e
0326 7800 |x | Jump 0x327 ; case 0x8f
0327 0092 04ce | | Action Push_String_Extended,0x4ce ; "discriminated record "
0329 840e | | Call 0x2,0xe
032a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
032b 00d1 | | Pop_Control Pop_Count_1
032c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
032d 0092 04cf | | Action Push_String_Extended,0x4cf ; "procedure "
032f 840e | | Call 0x2,0xe
0330 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0331 00ea | | Load_Encached Null_String_Cache
0332 841c | | Call 0x2,0x1c
0333 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0334 8416 | | Call 0x2,0x16
0335 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0336 00eb | | Load_Encached Diana_Cache
0337 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0338 e405 | | Load 0x2,0x5
0339 e5f6 | | Load 0x2,-0xa
033a 840a | | Call 0x2,0xa
033b c405 | | Store 0x2,0x5
033c 005b | [ | Store_Top Discrete,At_Offset_3
033d 8604 | | Call 0x3,0x4
033e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
033f 0092 04d0 | | Action Push_String_Extended,0x4d0 ; "formal discrete "
0341 840e | | Call 0x2,0xe
0342 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0343 0092 04d1 | | Action Push_String_Extended,0x4d1 ; "formal integer "
0345 840e | | Call 0x2,0xe
0346 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0347 0092 04d2 | | Action Push_String_Extended,0x4d2 ; "formal fixed "
0349 840e | | Call 0x2,0xe
034a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
034b 0092 04d3 | | Action Push_String_Extended,0x4d3 ; "formal float "
034d 840e | | Call 0x2,0xe
034e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
034f 0092 04d4 | | Action Push_String_Extended,0x4d4 ; "enumeration "
0351 840e | | Call 0x2,0xe
0352 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0353 0092 04d5 | | Action Push_String_Extended,0x4d5 ; "integer "
0355 840e | | Call 0x2,0xe
0356 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0357 0092 04d6 | | Action Push_String_Extended,0x4d6 ; "fixed "
0359 840e | | Call 0x2,0xe
035a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
035b 0092 04d7 | | Action Push_String_Extended,0x4d7 ; "float "
035d 840e | | Call 0x2,0xe
035e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
035f 00ea | | Load_Encached Null_String_Cache
0360 841c | | Call 0x2,0x1c
0361 0092 04d8 | | Action Push_String_Extended,0x4d8 ; "array "
0363 840e | | Call 0x2,0xe
0364 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0365 0092 04d9 | | Action Push_String_Extended,0x4d9 ; "unconstrained "
0367 840e | | Call 0x2,0xe
0368 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0369 0092 04da | | Action Push_String_Extended,0x4da ; "record "
036b 840e | | Call 0x2,0xe
036c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
036d 0092 04db | | Action Push_String_Extended,0x4db ; "access to "
036f 841c | | Call 0x2,0x1c
0370 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0371 00e6 | | Load_Encached Float_Cache
0372 e405 | | Load 0x2,0x5
0373 e5f6 | | Load 0x2,-0xa
0374 e00d | | Load 0x0,0xd
0375 e409 | | Load 0x2,0x9
0376 0096 | | Execute Package,Entry
0377 c405 | | Store 0x2,0x5
0378 004a | J | Store_Top Float,At_Offset_2
0379 0092 04dc | | Action Push_String_Extended,0x4dc ; "derived "
037b 841c | | Call 0x2,0x1c
037c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
037d 0092 04dd | | Action Push_String_Extended,0x4dd ; "limited private "
037f 840e | | Call 0x2,0xe
0380 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0381 0092 04de | | Action Push_String_Extended,0x4de ; "private "
0383 840e | | Call 0x2,0xe
0384 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0385 0092 04df | | Action Push_String_Extended,0x4df ; "task"
0387 840e | | Call 0x2,0xe
0388 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0389 0092 04e0 | | Action Push_String_Extended,0x4e0 ; "function "
038b 840e | | Call 0x2,0xe
038c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
038d 0000 0000 | | .XXX[0x3]
038f 0000 | |
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0394 | | .CONST 0x0394 ; Address of begin
0391 03f5 | | .CONST 0x03f5 ; Address of exception handler
0392 0002 | | .CONST 0x0002 ; Number of locals
0393 INIT_0390:
0393 8415 | | Call 0x2,0x15
0394 BODY_0390:
0394 e405 | | Load 0x2,0x5
0395 a406 | | Store_Unchecked 0x2,0x6
0396 00eb | | Load_Encached Diana_Cache
0397 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0398 e405 | | Load 0x2,0x5
0399 e5f6 | | Load 0x2,-0xa
039a 840a | | Call 0x2,0xa
039b c405 | | Store 0x2,0x5
039c c404 | | Store 0x2,0x4
039d 0092 04e1 | | Action Push_String_Extended,0x4e1 ; "The "
039f 840e | | Call 0x2,0xe
03a0 00ea | | Load_Encached Null_String_Cache
03a1 841c | | Call 0x2,0x1c
03a2 e404 | | Load 0x2,0x4
03a3 00d8 | | Load_Top At_Offset_0
03a4 4837 |H7 | Short_Literal 0x37
03a5 4848 |HH | Short_Literal 0x48
03a6 0262 | b | Execute Discrete,In_Range
03a7 6839 |h9 | Jump_Zero 0x3e1
03a8 0ac9 | | Execute_Immediate Plus,-0x37
03a9 4611 |F | Jump_Case 0x12
03aa 782e |x. | Jump 0x3d9 ; case 0x0
03ab 7819 |x | Jump 0x3c5 ; case 0x1
03ac 7810 |x | Jump 0x3bd ; case 0x2
03ad 781b |x | Jump 0x3c9 ; case 0x3
03ae 7822 |x" | Jump 0x3d1 ; case 0x4
03af 7811 |x | Jump 0x3c1 ; case 0x5
03b0 7834 |x4 | Jump 0x3e5 ; case 0x6
03b1 781b |x | Jump 0x3cd ; case 0x7
03b2 7822 |x" | Jump 0x3d5 ; case 0x8
03b3 782e |x. | Jump 0x3e2 ; case 0x9
03b4 7828 |x( | Jump 0x3dd ; case 0xa
03b5 782c |x, | Jump 0x3e2 ; case 0xb
03b6 782b |x+ | Jump 0x3e2 ; case 0xc
03b7 782a |x* | Jump 0x3e2 ; case 0xd
03b8 7829 |x) | Jump 0x3e2 ; case 0xe
03b9 7828 |x( | Jump 0x3e2 ; case 0xf
03ba 7827 |x' | Jump 0x3e2 ; case 0x10
03bb 7829 |x) | Jump 0x3e5 ; case 0x11
03bc 7828 |x( | .XXX[0x1]
03bd 0092 04e2 | | Action Push_String_Extended,0x4e2 ; "variable "
03bf 840e | | Call 0x2,0xe
03c0 7824 |x$ | Jump 0x3e5
03c1 0092 04e3 | | Action Push_String_Extended,0x4e3 ; "subtype "
03c3 840e | | Call 0x2,0xe
03c4 7820 |x | Jump 0x3e5
03c5 0092 04e4 | | Action Push_String_Extended,0x4e4 ; "constant "
03c7 840e | | Call 0x2,0xe
03c8 781c |x | Jump 0x3e5
03c9 0092 04e5 | | Action Push_String_Extended,0x4e5 ; "named number "
03cb 840e | | Call 0x2,0xe
03cc 7818 |x | Jump 0x3e5
03cd 0092 04e6 | | Action Push_String_Extended,0x4e6 ; "package "
03cf 840e | | Call 0x2,0xe
03d0 7814 |x | Jump 0x3e5
03d1 0092 04e7 | | Action Push_String_Extended,0x4e7 ; "type "
03d3 840e | | Call 0x2,0xe
03d4 7810 |x | Jump 0x3e5
03d5 0092 04e8 | | Action Push_String_Extended,0x4e8 ; "task "
03d7 840e | | Call 0x2,0xe
03d8 780c |x | Jump 0x3e5
03d9 0092 04e9 | | Action Push_String_Extended,0x4e9 ; "exception "
03db 840e | | Call 0x2,0xe
03dc 7808 |x | Jump 0x3e5
03dd 0092 04ea | | Action Push_String_Extended,0x4ea ; "generic "
03df 840e | | Call 0x2,0xe
03e0 7804 |x | Jump 0x3e5
03e1 00d1 | | Pop_Control Pop_Count_1
03e2 0092 04eb | | Action Push_String_Extended,0x4eb ; "identifier "
03e4 840e | | Call 0x2,0xe
03e5 0092 04ec | | Action Push_String_Extended,0x4ec ; "named "
03e7 00d9 | | Load_Top At_Offset_1
03e8 e00a | | Load 0x0,0xa
03e9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03ea 01cc | | Execute Vector,Catenate
03eb 840e | | Call 0x2,0xe
03ec e5f9 | | Load 0x2,-0x7
03ed 0a01 | | Execute_Immediate Plus,0x1
03ee 00d8 | | Load_Top At_Offset_0
03ef 00e3 | | Load_Encached Natural_Cache
03f0 0260 | ` | Execute Discrete,In_Type
03f1 7001 |p | Jump_Nonzero 0x3f3
03f2 0801 | | Execute_Immediate Raise,0x1
03f3 840c | | Call 0x2,0xc
03f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f5 TRAP_0390:
03f5 0007 | | Action Break_Optional
03f6 0092 04ed | | Action Push_String_Extended,0x4ed ; "entity named "
03f8 00da | | Load_Top At_Offset_2
03f9 e00a | | Load 0x0,0xa
03fa 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03fb 01cc | | Execute Vector,Catenate
03fc 840e | | Call 0x2,0xe
03fd e5f9 | | Load 0x2,-0x7
03fe 0a01 | | Execute_Immediate Plus,0x1
03ff 00d8 | | Load_Top At_Offset_0
0400 00e3 | | Load_Encached Natural_Cache
0401 0260 | ` | Execute Discrete,In_Type
0402 7001 |p | Jump_Nonzero 0x404
0403 0801 | | Execute_Immediate Raise,0x1
0404 840c | | Call 0x2,0xc
0405 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0406 0000 0000 | | .XXX[0x2]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0461 | a | .CONST 0x0461 ; 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 e405 | | Load 0x2,0x5
0410 e5f6 | | Load 0x2,-0xa
0411 840a | | Call 0x2,0xa
0412 c405 | | Store 0x2,0x5
0413 c403 | | Store 0x2,0x3
0414 e403 | | Load 0x2,0x3
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 e403 | | Load 0x2,0x3
042a 841b | | Call 0x2,0x1b
042b 8413 | | Call 0x2,0x13
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 e403 | | Load 0x2,0x3
0439 841b | | Call 0x2,0x1b
043a 8413 | | Call 0x2,0x13
043b 8416 | | Call 0x2,0x16
043c 7813 |x | Jump 0x450
043d 8417 | | Call 0x2,0x17
043e 7811 |x | Jump 0x450
043f 8418 | | Call 0x2,0x18
0440 780f |x | Jump 0x450
0441 e403 | | Load 0x2,0x3
0442 841b | | Call 0x2,0x1b
0443 8413 | | Call 0x2,0x13
0444 841a | | Call 0x2,0x1a
0445 780a |x | Jump 0x450
0446 00d1 | | Pop_Control Pop_Count_1
0447 e403 | | Load 0x2,0x3
0448 841b | | Call 0x2,0x1b
0449 8413 | | Call 0x2,0x13
044a 841a | | Call 0x2,0x1a
044b 7804 |x | Jump 0x450
044c e403 | | Load 0x2,0x3
044d 841b | | Call 0x2,0x1b
044e 8413 | | Call 0x2,0x13
044f 8419 | | Call 0x2,0x19
0450 00c9 | | Action Pop_Auxiliary_Loop
0451 e405 | | Load 0x2,0x5
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 0122 | " | Execute Any,Make_Root_Type
045d 011e | | Execute Any,Convert
045e 85fc | | Call 0x2,-0x4
045f c5f4 | | Store 0x2,-0xc
0460 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0461 TRAP_0408:
0461 0007 | | Action Break_Optional
0462 0092 04ee | | Action Push_String_Extended,0x4ee ; "<<"
0464 e007 | | Load 0x0,0x7
0465 180d | | Execute Package,Field_Execute,Field_Number 0xd
0466 01cc | | Execute Vector,Catenate
0467 0092 04ef | | Action Push_String_Extended,0x4ef ; ">>"
0469 01cc | | Execute Vector,Catenate
046a 840e | | Call 0x2,0xe
046b e5f4 | | Load 0x2,-0xc
046c 00d8 | | Load_Top At_Offset_0
046d 0120 | | Execute Any,Is_Value
046e 6803 |h | Jump_Zero 0x472
046f e5f7 | | Load 0x2,-0x9
0470 0122 | " | Execute Any,Make_Root_Type
0471 011e | | Execute Any,Convert
0472 85fc | | Call 0x2,-0x4
0473 c5f4 | | Store 0x2,-0xc
0474 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0475 0000 0000 | | .XXX[0x3]
0477 0000 | |
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0480 | | .CONST 0x0480 ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0002 | | .CONST 0x0002 ; Number of locals
047b INIT_0478:
047b 4801 |H | Short_Literal 0x1
047c e602 | | Load 0x3,0x2
047d 00e9 | | Load_Encached String_Cache
047e 035b | [ | Declare_Type Array,Constrained
047f 0337 | 7 | Declare_Variable Array
0480 BODY_0478:
0480 00d8 | | Load_Top At_Offset_0
0481 e405 | | Load 0x2,0x5
0482 e5f6 | | Load 0x2,-0xa
0483 e010 | | Load 0x0,0x10
0484 e409 | | Load 0x2,0x9
0485 0096 | | Execute Package,Entry
0486 c405 | | Store 0x2,0x5
0487 00d1 | | Pop_Control Pop_Count_1
0488 00d8 | | Load_Top At_Offset_0
0489 e00a | | Load 0x0,0xa
048a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
048b 8414 | | Call 0x2,0x14
048c 00e9 | | Load_Encached String_Cache
048d 01c6 | | Execute Vector,Convert_To_Formal
048e 00cb | | Action Pop_Block_With_Result
048f 00ca | | Action Exit_Nullary_Function
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0498 | | .CONST 0x0498 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0002 | | .CONST 0x0002 ; Number of locals
0493 INIT_0490:
0493 4801 |H | Short_Literal 0x1
0494 e603 | | Load 0x3,0x3
0495 00e9 | | Load_Encached String_Cache
0496 035b | [ | Declare_Type Array,Constrained
0497 0337 | 7 | Declare_Variable Array
0498 BODY_0490:
0498 00d8 | | Load_Top At_Offset_0
0499 e405 | | Load 0x2,0x5
049a e5f6 | | Load 0x2,-0xa
049b e010 | | Load 0x0,0x10
049c e409 | | Load 0x2,0x9
049d 0096 | | Execute Package,Entry
049e c405 | | Store 0x2,0x5
049f 00d1 | | Pop_Control Pop_Count_1
04a0 e603 | | Load 0x3,0x3
04a1 0a02 | | Execute_Immediate Plus,0x2
04a2 00d8 | | Load_Top At_Offset_0
04a3 00e3 | | Load_Encached Natural_Cache
04a4 0260 | ` | Execute Discrete,In_Type
04a5 7001 |p | Jump_Nonzero 0x4a7
04a6 0801 | | Execute_Immediate Raise,0x1
04a7 4822 |H" | Short_Literal 0x22
04a8 840d | | Call 0x2,0xd
04a9 00d8 | | Load_Top At_Offset_0
04aa 840e | | Call 0x2,0xe
04ab 4800 |H | Short_Literal 0x0
04ac 4822 |H" | Short_Literal 0x22
04ad 840d | | Call 0x2,0xd
04ae 8413 | | Call 0x2,0x13
04af 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b4 | | .CONST 0x04b4 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0002 | | .CONST 0x0002 ; Number of locals
04b3 INIT_04b0:
04b3 8415 | | Call 0x2,0x15
04b4 BODY_04b0:
04b4 00eb | | Load_Encached Diana_Cache
04b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04b6 e405 | | Load 0x2,0x5
04b7 e5f6 | | Load 0x2,-0xa
04b8 840a | | Call 0x2,0xa
04b9 c405 | | Store 0x2,0x5
04ba c602 | | Store 0x3,0x2
04bb e602 | | Load 0x3,0x2
04bc 6803 |h | Jump_Zero 0x4c0
04bd 0092 04f0 | | Action Push_String_Extended,0x4f0 ; "constrained "
04bf 840e | | Call 0x2,0xe
04c0 e7ff | | Load 0x3,-0x1
04c1 01db | | Execute Vector,Length
04c2 6802 |h | Jump_Zero 0x4c5
04c3 e7ff | | Load 0x3,-0x1
04c4 840e | | Call 0x2,0xe
04c5 00d8 | | Load_Top At_Offset_0
04c6 840e | | Call 0x2,0xe
04c7 8413 | | Call 0x2,0x13
04c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04c9 ; --------------------------------------------------------------------------------------
04c9 ; STRING TABLE
04c9 ; --------------------------------------------------------------------------------------
04c9 0052 | R | .STRTAB 0x0052->0x04f2 ; "undecipherable entity (raising "
04ca 006f | o | .STRTAB 0x006f->0x0501 ; ")"
04cb 006e | n | .STRTAB 0x006e->0x0502 ; "Standard."
04cc 0075 | u | .STRTAB 0x0075->0x0506 ; "(infix)"
04cd 007a | z | .STRTAB 0x007a->0x050a ; "delta "
04ce 007e | ~ | .STRTAB 0x007e->0x050d ; "discriminated record "
04cf 0091 | | .STRTAB 0x0091->0x0517 ; "procedure "
04d0 0099 | | .STRTAB 0x0099->0x051c ; "formal discrete "
04d1 00a7 | | .STRTAB 0x00a7->0x0524 ; "formal integer "
04d2 00b4 | | .STRTAB 0x00b4->0x052c ; "formal fixed "
04d3 00bf | | .STRTAB 0x00bf->0x0532 ; "formal float "
04d4 00ca | | .STRTAB 0x00ca->0x0539 ; "enumeration "
04d5 00d4 | | .STRTAB 0x00d4->0x053f ; "integer "
04d6 00da | | .STRTAB 0x00da->0x0543 ; "fixed "
04d7 00de | | .STRTAB 0x00de->0x0546 ; "float "
04d8 00e2 | | .STRTAB 0x00e2->0x0549 ; "array "
04d9 00e6 | | .STRTAB 0x00e6->0x054c ; "unconstrained "
04da 00f2 | | .STRTAB 0x00f2->0x0553 ; "record "
04db 00f7 | | .STRTAB 0x00f7->0x0556 ; "access to "
04dc 00ff | | .STRTAB 0x00ff->0x055b ; "derived "
04dd 0105 | | .STRTAB 0x0105->0x055f ; "limited private "
04de 0113 | | .STRTAB 0x0113->0x0567 ; "private "
04df 0119 | | .STRTAB 0x0119->0x056b ; "task"
04e0 011b | | .STRTAB 0x011b->0x056d ; "function "
04e1 0122 | " | .STRTAB 0x0122->0x0572 ; "The "
04e2 0124 | $ | .STRTAB 0x0124->0x0574 ; "variable "
04e3 012b | + | .STRTAB 0x012b->0x0578 ; "subtype "
04e4 0131 | 1 | .STRTAB 0x0131->0x057c ; "constant "
04e5 0138 | 8 | .STRTAB 0x0138->0x0581 ; "named number "
04e6 0143 | C | .STRTAB 0x0143->0x0587 ; "package "
04e7 0149 | I | .STRTAB 0x0149->0x058b ; "type "
04e8 014c | L | .STRTAB 0x014c->0x058e ; "task "
04e9 014f | O | .STRTAB 0x014f->0x0590 ; "exception "
04ea 0157 | W | .STRTAB 0x0157->0x0595 ; "generic "
04eb 015d | ] | .STRTAB 0x015d->0x0599 ; "identifier "
04ec 0166 | f | .STRTAB 0x0166->0x059f ; "named "
04ed 016a | j | .STRTAB 0x016a->0x05a2 ; "entity named "
04ee 0175 | u | .STRTAB 0x0175->0x05a8 ; "<<"
04ef 0175 | u | .STRTAB 0x0175->0x05a9 ; ">>"
04f0 0175 | u | .STRTAB 0x0175->0x05aa ; "constrained "
04f1 017f | | .STREND 0x017f->0x05b0
04f2 756e 6465 |unde| .STRTAB_STRINGS
05b1 0000 0000 | | .BLANK 0000[0x7]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; Debug Table
05b8 ; --------------------------------------------------------------------------------------
05b8 0004 0007 | | .DEBUG4 0x0004,0x0007,0x457f,0x0000,0x0001,0x0000
05be e8ca c840 | @| .XXX[0x42]
05c0 e8de 40e8 | @ |
05c2 d0ca 0000 | |
05c4 0004 0000 | |
05c6 0084 4040 | @@|
05c8 e8d0 ca40 | @|
05ca c6de dcdc | |
05cc cac6 e8d2 | |
05ce dedc 40d2 | @ |
05d0 e640 cae6 | @ |
05d2 c6c2 e0ca | |
05d4 c840 c2dc | @ |
05d6 c840 e8d0 | @ |
05d8 ca40 e8ca | @ |
05da e4da d2dc | |
05dc c2d8 40d2 | @ |
05de e640 e4ca | @ |
05e0 c6de dcdc | |
05e2 cac6 e8ca | |
05e4 c840 e8de | @ |
05e6 40e8 d0ca |@ |
05e8 0000 008e | |
05ea 0000 0024 | $|
05ec d8de c6c2 | |
05ee d840 8adc | @ |
05f0 ecd2 e4de | |
05f2 dcda cadc | |
05f4 e85c 0000 | \ |
05f6 008a 0000 | |
05f8 0028 4040 | (@@|
05fa d8de c6c2 | |
05fc d840 8adc | @ |
05fe ecd2 e4de | |