|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 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 For_Outer_Call,Visible,Unelaborated,INIT_0018
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 For_Call,INIT_00b0
005c 029f 00d3 | | Declare_Subprogram For_Call,INIT_00d0
005e 029f 00eb | | Declare_Subprogram For_Call,INIT_00e8
0060 029f 0113 | | Declare_Subprogram For_Call,INIT_0110
0062 029f 012b | +| Declare_Subprogram For_Call,INIT_0128
0064 029f 014b | K| Declare_Subprogram For_Call,INIT_0148
0066 029f 016b | k| Declare_Subprogram For_Call,INIT_0168
0068 029f 017b | {| Declare_Subprogram For_Call,INIT_0178
006a 029f 018b | | Declare_Subprogram For_Call,INIT_0188
006c 029f 01a3 | | Declare_Subprogram For_Call,INIT_01a0
006e 029f 01bb | | Declare_Subprogram For_Call,INIT_01b8
0070 029f 01db | | Declare_Subprogram For_Call,INIT_01d8
0072 029f 01eb | | Declare_Subprogram For_Call,INIT_01e8
0074 029f 01fb | | Declare_Subprogram For_Call,INIT_01f8
0076 029f 022b | +| Declare_Subprogram For_Call,INIT_0228
0078 029f 0243 | C| Declare_Subprogram For_Call,INIT_0240
007a 029f 025b | [| Declare_Subprogram For_Call,INIT_0258
007c 029f 0273 | s| Declare_Subprogram For_Call,INIT_0270
007e 029f 028b | | Declare_Subprogram For_Call,INIT_0288
0080 029f 039b | | Declare_Subprogram For_Call,INIT_0398
0082 029f 040b | | Declare_Subprogram For_Call,INIT_0408
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_Subprogram 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_Subprogram 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_Subprogram 0x2
00ca 4800 |H | Short_Literal 0x0
00cb a7fd | | Store_Unchecked 0x3,-0x3
00cc 4502 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Result,0x1
01cf 00db | | Load_Top At_Offset_3
01d0 4401 |D | Exit_Subprogram With_Result,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 For_Call,INIT_0480
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_Subprogram 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 0x3
0208 780e |x | Jump 0x217 ; case 0x0
0209 7803 |x | Jump 0x20d ; case 0x1
020a 4501 |E | Exit_Subprogram 0x1 ; case 0x2
020b 4501 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_0498
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_04b8
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 0x8f
029f 789c |x | Jump 0x33c ; case 0x0
02a0 4502 |E | Exit_Subprogram 0x2 ; case 0x1
02a1 4502 |E | Exit_Subprogram 0x2 ; case 0x2
02a2 4502 |E | Exit_Subprogram 0x2 ; case 0x3
02a3 4502 |E | Exit_Subprogram 0x2 ; case 0x4
02a4 4502 |E | Exit_Subprogram 0x2 ; case 0x5
02a5 4502 |E | Exit_Subprogram 0x2 ; case 0x6
02a6 4502 |E | Exit_Subprogram 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_Subprogram 0x2 ; case 0x28
02c8 4502 |E | Exit_Subprogram 0x2 ; case 0x29
02c9 4502 |E | Exit_Subprogram 0x2 ; case 0x2a
02ca 4502 |E | Exit_Subprogram 0x2 ; case 0x2b
02cb 4502 |E | Exit_Subprogram 0x2 ; case 0x2c
02cc 4502 |E | Exit_Subprogram 0x2 ; case 0x2d
02cd 4502 |E | Exit_Subprogram 0x2 ; case 0x2e
02ce 4502 |E | Exit_Subprogram 0x2 ; case 0x2f
02cf 4502 |E | Exit_Subprogram 0x2 ; case 0x30
02d0 4502 |E | Exit_Subprogram 0x2 ; case 0x31
02d1 4502 |E | Exit_Subprogram 0x2 ; case 0x32
02d2 4502 |E | Exit_Subprogram 0x2 ; case 0x33
02d3 4502 |E | Exit_Subprogram 0x2 ; case 0x34
02d4 4502 |E | Exit_Subprogram 0x2 ; case 0x35
02d5 4502 |E | Exit_Subprogram 0x2 ; case 0x36
02d6 4502 |E | Exit_Subprogram 0x2 ; case 0x37
02d7 4502 |E | Exit_Subprogram 0x2 ; case 0x38
02d8 4502 |E | Exit_Subprogram 0x2 ; case 0x39
02d9 4502 |E | Exit_Subprogram 0x2 ; case 0x3a
02da 4502 |E | Exit_Subprogram 0x2 ; case 0x3b
02db 4502 |E | Exit_Subprogram 0x2 ; case 0x3c
02dc 4502 |E | Exit_Subprogram 0x2 ; case 0x3d
02dd 4502 |E | Exit_Subprogram 0x2 ; case 0x3e
02de 4502 |E | Exit_Subprogram 0x2 ; case 0x3f
02df 4502 |E | Exit_Subprogram 0x2 ; case 0x40
02e0 4502 |E | Exit_Subprogram 0x2 ; case 0x41
02e1 4502 |E | Exit_Subprogram 0x2 ; case 0x42
02e2 4502 |E | Exit_Subprogram 0x2 ; case 0x43
02e3 4502 |E | Exit_Subprogram 0x2 ; case 0x44
02e4 4502 |E | Exit_Subprogram 0x2 ; case 0x45
02e5 4502 |E | Exit_Subprogram 0x2 ; case 0x46
02e6 4502 |E | Exit_Subprogram 0x2 ; case 0x47
02e7 4502 |E | Exit_Subprogram 0x2 ; case 0x48
02e8 4502 |E | Exit_Subprogram 0x2 ; case 0x49
02e9 4502 |E | Exit_Subprogram 0x2 ; case 0x4a
02ea 4502 |E | Exit_Subprogram 0x2 ; case 0x4b
02eb 4502 |E | Exit_Subprogram 0x2 ; case 0x4c
02ec 4502 |E | Exit_Subprogram 0x2 ; case 0x4d
02ed 4502 |E | Exit_Subprogram 0x2 ; case 0x4e
02ee 4502 |E | Exit_Subprogram 0x2 ; case 0x4f
02ef 4502 |E | Exit_Subprogram 0x2 ; case 0x50
02f0 4502 |E | Exit_Subprogram 0x2 ; case 0x51
02f1 4502 |E | Exit_Subprogram 0x2 ; case 0x52
02f2 4502 |E | Exit_Subprogram 0x2 ; case 0x53
02f3 4502 |E | Exit_Subprogram 0x2 ; case 0x54
02f4 4502 |E | Exit_Subprogram 0x2 ; case 0x55
02f5 4502 |E | Exit_Subprogram 0x2 ; case 0x56
02f6 4502 |E | Exit_Subprogram 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_Subprogram 0x2 ; case 0x68
0308 4502 |E | Exit_Subprogram 0x2 ; case 0x69
0309 4502 |E | Exit_Subprogram 0x2 ; case 0x6a
030a 4502 |E | Exit_Subprogram 0x2 ; case 0x6b
030b 4502 |E | Exit_Subprogram 0x2 ; case 0x6c
030c 4502 |E | Exit_Subprogram 0x2 ; case 0x6d
030d 7881 |x | Jump 0x38f ; case 0x6e
030e 7826 |x& | Jump 0x335 ; case 0x6f
030f 4502 |E | Exit_Subprogram 0x2 ; case 0x70
0310 4502 |E | Exit_Subprogram 0x2 ; case 0x71
0311 4502 |E | Exit_Subprogram 0x2 ; case 0x72
0312 4502 |E | Exit_Subprogram 0x2 ; case 0x73
0313 4502 |E | Exit_Subprogram 0x2 ; case 0x74
0314 4502 |E | Exit_Subprogram 0x2 ; case 0x75
0315 4502 |E | Exit_Subprogram 0x2 ; case 0x76
0316 4502 |E | Exit_Subprogram 0x2 ; case 0x77
0317 4502 |E | Exit_Subprogram 0x2 ; case 0x78
0318 4502 |E | Exit_Subprogram 0x2 ; case 0x79
0319 4502 |E | Exit_Subprogram 0x2 ; case 0x7a
031a 4502 |E | Exit_Subprogram 0x2 ; case 0x7b
031b 7851 |xQ | Jump 0x36d ; case 0x7c
031c 4502 |E | Exit_Subprogram 0x2 ; case 0x7d
031d 4502 |E | Exit_Subprogram 0x2 ; case 0x7e
031e 4502 |E | Exit_Subprogram 0x2 ; case 0x7f
031f 4502 |E | Exit_Subprogram 0x2 ; case 0x80
0320 4502 |E | Exit_Subprogram 0x2 ; case 0x81
0321 4502 |E | Exit_Subprogram 0x2 ; case 0x82
0322 4502 |E | Exit_Subprogram 0x2 ; case 0x83
0323 4502 |E | Exit_Subprogram 0x2 ; case 0x84
0324 4502 |E | Exit_Subprogram 0x2 ; case 0x85
0325 4502 |E | Exit_Subprogram 0x2 ; case 0x86
0326 4502 |E | Exit_Subprogram 0x2 ; case 0x87
0327 4502 |E | Exit_Subprogram 0x2 ; case 0x88
0328 4502 |E | Exit_Subprogram 0x2 ; case 0x89
0329 4502 |E | Exit_Subprogram 0x2 ; case 0x8a
032a 4502 |E | Exit_Subprogram 0x2 ; case 0x8b
032b 4502 |E | Exit_Subprogram 0x2 ; case 0x8c
032c 780c |x | Jump 0x339 ; case 0x8d
032d 4502 |E | Exit_Subprogram 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_Subprogram 0x2
0333 00d1 | | Pop_Control Pop_Count_1
0334 4502 |E | Exit_Subprogram 0x2
0335 0092 04d7 | | Action Push_String_Extended,0x4d7 ; "procedure "
0337 8416 | | Call 0x2,0x16
0338 4502 |E | Exit_Subprogram 0x2
0339 00ea | | Load_Encached Null_String_Cache
033a 8424 | $ | Call 0x2,0x24
033b 4502 |E | Exit_Subprogram 0x2
033c 841e | | Call 0x2,0x1e
033d 4502 |E | Exit_Subprogram 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_Subprogram 0x2
0347 0092 04d8 | | Action Push_String_Extended,0x4d8 ; "formal discrete "
0349 8416 | | Call 0x2,0x16
034a 4502 |E | Exit_Subprogram 0x2
034b 0092 04d9 | | Action Push_String_Extended,0x4d9 ; "formal integer "
034d 8416 | | Call 0x2,0x16
034e 4502 |E | Exit_Subprogram 0x2
034f 0092 04da | | Action Push_String_Extended,0x4da ; "formal fixed "
0351 8416 | | Call 0x2,0x16
0352 4502 |E | Exit_Subprogram 0x2
0353 0092 04db | | Action Push_String_Extended,0x4db ; "formal float "
0355 8416 | | Call 0x2,0x16
0356 4502 |E | Exit_Subprogram 0x2
0357 0092 04dc | | Action Push_String_Extended,0x4dc ; "enumeration "
0359 8416 | | Call 0x2,0x16
035a 4502 |E | Exit_Subprogram 0x2
035b 0092 04dd | | Action Push_String_Extended,0x4dd ; "integer "
035d 8416 | | Call 0x2,0x16
035e 4502 |E | Exit_Subprogram 0x2
035f 0092 04de | | Action Push_String_Extended,0x4de ; "fixed "
0361 8416 | | Call 0x2,0x16
0362 4502 |E | Exit_Subprogram 0x2
0363 0092 04df | | Action Push_String_Extended,0x4df ; "float "
0365 8416 | | Call 0x2,0x16
0366 4502 |E | Exit_Subprogram 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_Subprogram 0x2
036d 0092 04e1 | | Action Push_String_Extended,0x4e1 ; "unconstrained "
036f 8416 | | Call 0x2,0x16
0370 4502 |E | Exit_Subprogram 0x2
0371 0092 04e2 | | Action Push_String_Extended,0x4e2 ; "record "
0373 8416 | | Call 0x2,0x16
0374 4502 |E | Exit_Subprogram 0x2
0375 0092 04e3 | | Action Push_String_Extended,0x4e3 ; "access to "
0377 8424 | $ | Call 0x2,0x24
0378 4502 |E | Exit_Subprogram 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_Subprogram 0x2
0383 0092 04e5 | | Action Push_String_Extended,0x4e5 ; "limited private "
0385 8416 | | Call 0x2,0x16
0386 4502 |E | Exit_Subprogram 0x2
0387 0092 04e6 | | Action Push_String_Extended,0x4e6 ; "private "
0389 8416 | | Call 0x2,0x16
038a 4502 |E | Exit_Subprogram 0x2
038b 0092 04e7 | | Action Push_String_Extended,0x4e7 ; "task"
038d 8416 | | Call 0x2,0x16
038e 4502 |E | Exit_Subprogram 0x2
038f 0092 04e8 | | Action Push_String_Extended,0x4e8 ; "function "
0391 8416 | | Call 0x2,0x16
0392 4502 |E | Exit_Subprogram 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 0x11
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_Subprogram 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_Subprogram 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 0xb
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 0000 0000 | | .BLANK 0000[0x3a]