|
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: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 0a28 | ( | .CONST 0x0a28 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00d9 | | .CONST 0x00d9 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0039 | 9 | .CONST 0x0039 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4900 |I | Short_Literal 0x100 000d 00e3 | | Load_Encached Natural_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f e001 | | Load 0x0,0x1 0010 0129 | ) | Execute Any,Make_Visible 0011 e002 | | Load 0x0,0x2 0012 0129 | ) | Execute Any,Make_Visible 0013 e003 | | Load 0x0,0x3 0014 0129 | ) | Execute Any,Make_Visible 0015 4800 |H | Short_Literal 0x0 0016 0093 0833 | 3| push_full_address INIT_0830 0018 02a0 | | Declare_Subprogram Null_Subprogram 0019 038f | | Declare_Type Package,Defined,Visible 001a 0386 | | Declare_Variable Package,Visible 001b 4800 |H | Short_Literal 0x0 001c e004 | | Load 0x0,0x4 001d 02a0 | | Declare_Subprogram Null_Subprogram 001e 038f | | Declare_Type Package,Defined,Visible 001f 00b6 | | Action Make_Scope 0020 e005 | | Load 0x0,0x5 0021 4802 |H | Short_Literal 0x2 0022 00db | | Load_Top At_Offset_3 0023 020e | | Execute Module,Augment_Imports 0024 0386 | | Declare_Variable Package,Visible 0025 4800 |H | Short_Literal 0x0 0026 e006 | | Load 0x0,0x6 0027 02a0 | | Declare_Subprogram Null_Subprogram 0028 038f | | Declare_Type Package,Defined,Visible 0029 e007 | | Load 0x0,0x7 002a e008 | | Load 0x0,0x8 002b 00b6 | | Action Make_Scope 002c e005 | | Load 0x0,0x5 002d 4804 |H | Short_Literal 0x4 002e e213 | | Load 0x1,0x13 002f 020e | | Execute Module,Augment_Imports 0030 0386 | | Declare_Variable Package,Visible 0031 4800 |H | Short_Literal 0x0 0032 e009 | | Load 0x0,0x9 0033 02a0 | | Declare_Subprogram Null_Subprogram 0034 038f | | Declare_Type Package,Defined,Visible 0035 e00a | | Load 0x0,0xa 0036 00b6 | | Action Make_Scope 0037 4802 |H | Short_Literal 0x2 0038 00db | | Load_Top At_Offset_3 0039 020e | | Execute Module,Augment_Imports 003a 0386 | | Declare_Variable Package,Visible 003b 4800 |H | Short_Literal 0x0 003c e00b | | Load 0x0,0xb 003d 02a0 | | Declare_Subprogram Null_Subprogram 003e 038f | | Declare_Type Package,Defined,Visible 003f e00c | | Load 0x0,0xc 0040 00b6 | | Action Make_Scope 0041 4802 |H | Short_Literal 0x2 0042 00db | | Load_Top At_Offset_3 0043 020e | | Execute Module,Augment_Imports 0044 0386 | | Declare_Variable Package,Visible 0045 4800 |H | Short_Literal 0x0 0046 e00d | | Load 0x0,0xd 0047 02a0 | | Declare_Subprogram Null_Subprogram 0048 038f | | Declare_Type Package,Defined,Visible 0049 00b6 | | Action Make_Scope 004a e00e | | Load 0x0,0xe 004b e005 | | Load 0x0,0x5 004c 4803 |H | Short_Literal 0x3 004d e216 | | Load 0x1,0x16 004e 020e | | Execute Module,Augment_Imports 004f 0386 | | Declare_Variable Package,Visible 0050 00bf | | Action Accept_Activation 0051 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call 0053 029d 010b | | Declare_Subprogram INIT_0108,For_Outer_Call 0055 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call 0057 029d 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call 0059 e00f | | Load 0x0,0xf 005a e010 | | Load 0x0,0x10 005b 00e6 | | Load_Encached Float_Cache 005c e011 | | Load 0x0,0x11 005d 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 005e 0387 | | Declare_Variable Package 005f 00d8 | | Load_Top At_Offset_0 0060 020f | | Execute Module,Activate 0061 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call 0063 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 0065 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call 0067 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call 0069 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 006b 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call 006d 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call 006f 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call 0071 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 0073 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call 0075 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call 0077 029d 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call 0079 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call 007b 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 007d 029d 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call 007f 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call 0081 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call 0083 029d 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call 0085 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call 0087 029d 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call 0089 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call 008b 029d 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call 008d 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call 008f 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call 0091 029d 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call 0093 029d 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call 0095 029d 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call 0097 029d 078b | | Declare_Subprogram INIT_0788,For_Outer_Call 0099 029d 07b3 | | Declare_Subprogram INIT_07b0,For_Outer_Call 009b 029d 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call 009d e012 | | Load 0x0,0x12 009e e013 | | Load 0x0,0x13 009f 4802 |H | Short_Literal 0x2 00a0 e212 | | Load 0x1,0x12 00a1 020e | | Execute Module,Augment_Imports 00a2 e212 | | Load 0x1,0x12 00a3 020f | | Execute Module,Activate 00a4 e014 | | Load 0x0,0x14 00a5 e013 | | Load 0x0,0x13 00a6 e012 | | Load 0x0,0x12 00a7 e015 | | Load 0x0,0x15 00a8 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00a9 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00aa 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00ab 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00ac 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00ad 4809 |H | Short_Literal 0x9 00ae e213 | | Load 0x1,0x13 00af 020e | | Execute Module,Augment_Imports 00b0 e213 | | Load 0x1,0x13 00b1 020f | | Execute Module,Activate 00b2 e012 | | Load 0x0,0x12 00b3 e013 | | Load 0x0,0x13 00b4 e015 | | Load 0x0,0x15 00b5 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00b6 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00b7 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00b8 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00b9 4807 |H | Short_Literal 0x7 00ba e214 | | Load 0x1,0x14 00bb 020e | | Execute Module,Augment_Imports 00bc e214 | | Load 0x1,0x14 00bd 020f | | Execute Module,Activate 00be e013 | | Load 0x0,0x13 00bf e012 | | Load 0x0,0x12 00c0 e015 | | Load 0x0,0x15 00c1 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00c2 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 00c3 4805 |H | Short_Literal 0x5 00c4 e215 | | Load 0x1,0x15 00c5 020e | | Execute Module,Augment_Imports 00c6 e215 | | Load 0x1,0x15 00c7 020f | | Execute Module,Activate 00c8 e013 | | Load 0x0,0x13 00c9 e015 | | Load 0x0,0x15 00ca 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00cb 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 00cc 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 00cd 4805 |H | Short_Literal 0x5 00ce e216 | | Load 0x1,0x16 00cf 020e | | Execute Module,Augment_Imports 00d0 e216 | | Load 0x1,0x16 00d1 020f | | Execute Module,Activate 00d2 e013 | | Load 0x0,0x13 00d3 00b6 | | Action Make_Scope 00d4 4802 |H | Short_Literal 0x2 00d5 e211 | | Load 0x1,0x11 00d6 020e | | Execute Module,Augment_Imports 00d7 e211 | | Load 0x1,0x11 00d8 020f | | Execute Module,Activate 00d9 BODY_0008: 00d9 00bc | | Action Signal_Activated 00da 00bb | | Action Signal_Completion 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00fd | | .CONST 0x00fd ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 4801 |H | Short_Literal 0x1 00e4 00db | | Load_Top At_Offset_3 00e5 4803 |H | Short_Literal 0x3 00e6 0271 | q | Execute Discrete,Times 00e7 00d8 | | Load_Top At_Offset_0 00e8 00e2 | | Load_Encached Integer_Cache 00e9 0260 | ` | Execute Discrete,In_Type 00ea 7001 |p | Jump_Nonzero 0xec 00eb 0801 | | Execute_Immediate Raise,0x1 00ec 00e9 | | Load_Encached String_Cache 00ed 035b | [ | Declare_Type Array,Constrained 00ee 0337 | 7 | Declare_Variable Array 00ef 00d8 | | Load_Top At_Offset_0 00f0 0335 | 5 | Declare_Variable Array,Duplicate 00f1 00cd | | Action Spare6_Action 00f2 00d9 | | Load_Top At_Offset_1 00f3 01d9 | | Execute Vector,Reverse_Bounds 00f4 0263 | c | Execute Discrete,Above_Bound 00f5 7005 |p | Jump_Nonzero 0xfb 00f6 4820 |H | Short_Literal 0x20 00f7 00d9 | | Load_Top At_Offset_1 00f8 e403 | | Load 0x2,0x3 00f9 01d6 | | Execute Vector,Field_Write 00fa 3ffb |? | Loop_Increasing 0xf6 00fb 00d9 | | Load_Top At_Offset_1 00fc 01d4 | | Execute Vector,Structure_Write 00fd BODY_00e0: 00fd 00d8 | | Load_Top At_Offset_0 00fe e5fe | | Load 0x2,-0x2 00ff 01cc | | Execute Vector,Catenate 0100 0092 0878 | x| Action Push_String_Extended,0x878 ; " => " 0102 01cc | | Execute Vector,Catenate 0103 e011 | | Load 0x0,0x11 0104 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0105 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0125 | % | .CONST 0x0125 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b 4801 |H | Short_Literal 0x1 010c 00db | | Load_Top At_Offset_3 010d 4803 |H | Short_Literal 0x3 010e 0271 | q | Execute Discrete,Times 010f 00d8 | | Load_Top At_Offset_0 0110 00e2 | | Load_Encached Integer_Cache 0111 0260 | ` | Execute Discrete,In_Type 0112 7001 |p | Jump_Nonzero 0x114 0113 0801 | | Execute_Immediate Raise,0x1 0114 00e9 | | Load_Encached String_Cache 0115 035b | [ | Declare_Type Array,Constrained 0116 0337 | 7 | Declare_Variable Array 0117 00d8 | | Load_Top At_Offset_0 0118 0335 | 5 | Declare_Variable Array,Duplicate 0119 00cd | | Action Spare6_Action 011a 00d9 | | Load_Top At_Offset_1 011b 01d9 | | Execute Vector,Reverse_Bounds 011c 0263 | c | Execute Discrete,Above_Bound 011d 7005 |p | Jump_Nonzero 0x123 011e 4820 |H | Short_Literal 0x20 011f 00d9 | | Load_Top At_Offset_1 0120 e403 | | Load 0x2,0x3 0121 01d6 | | Execute Vector,Field_Write 0122 3ffb |? | Loop_Increasing 0x11e 0123 00d9 | | Load_Top At_Offset_1 0124 01d4 | | Execute Vector,Structure_Write 0125 BODY_0108: 0125 00d8 | | Load_Top At_Offset_0 0126 e5fe | | Load 0x2,-0x2 0127 01cc | | Execute Vector,Catenate 0128 0092 0878 | x| Action Push_String_Extended,0x878 ; " => " 012a 01cc | | Execute Vector,Catenate 012b e5fd | | Load 0x2,-0x3 012c 00e1 | | Load_Encached Boolean_Cache 012d 011c | | Execute Any,Convert_Unchecked 012e 1c01 | | Execute_Immediate Run_Utility,0x1 012f 01cc | | Execute Vector,Catenate 0130 e011 | | Load 0x0,0x11 0131 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0132 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0133 0000 0000 | | .BLANK 0000[0x5] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0155 | U | .CONST 0x0155 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b 4801 |H | Short_Literal 0x1 013c 00db | | Load_Top At_Offset_3 013d 4803 |H | Short_Literal 0x3 013e 0271 | q | Execute Discrete,Times 013f 00d8 | | Load_Top At_Offset_0 0140 00e2 | | Load_Encached Integer_Cache 0141 0260 | ` | Execute Discrete,In_Type 0142 7001 |p | Jump_Nonzero 0x144 0143 0801 | | Execute_Immediate Raise,0x1 0144 00e9 | | Load_Encached String_Cache 0145 035b | [ | Declare_Type Array,Constrained 0146 0337 | 7 | Declare_Variable Array 0147 00d8 | | Load_Top At_Offset_0 0148 0335 | 5 | Declare_Variable Array,Duplicate 0149 00cd | | Action Spare6_Action 014a 00d9 | | Load_Top At_Offset_1 014b 01d9 | | Execute Vector,Reverse_Bounds 014c 0263 | c | Execute Discrete,Above_Bound 014d 7005 |p | Jump_Nonzero 0x153 014e 4820 |H | Short_Literal 0x20 014f 00d9 | | Load_Top At_Offset_1 0150 e403 | | Load 0x2,0x3 0151 01d6 | | Execute Vector,Field_Write 0152 3ffb |? | Loop_Increasing 0x14e 0153 00d9 | | Load_Top At_Offset_1 0154 01d4 | | Execute Vector,Structure_Write 0155 BODY_0138: 0155 00d8 | | Load_Top At_Offset_0 0156 e5fe | | Load 0x2,-0x2 0157 01cc | | Execute Vector,Catenate 0158 0092 0878 | x| Action Push_String_Extended,0x878 ; " => " 015a 01cc | | Execute Vector,Catenate 015b e5fd | | Load 0x2,-0x3 015c 00e0 | | Load_Encached Standard_Cache 015d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 015e 01cc | | Execute Vector,Catenate 015f e011 | | Load 0x0,0x11 0160 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0161 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0162 0000 0000 | | .BLANK 0000[0x6] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0185 | | .CONST 0x0185 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b 4801 |H | Short_Literal 0x1 016c 00db | | Load_Top At_Offset_3 016d 4803 |H | Short_Literal 0x3 016e 0271 | q | Execute Discrete,Times 016f 00d8 | | Load_Top At_Offset_0 0170 00e2 | | Load_Encached Integer_Cache 0171 0260 | ` | Execute Discrete,In_Type 0172 7001 |p | Jump_Nonzero 0x174 0173 0801 | | Execute_Immediate Raise,0x1 0174 00e9 | | Load_Encached String_Cache 0175 035b | [ | Declare_Type Array,Constrained 0176 0337 | 7 | Declare_Variable Array 0177 00d8 | | Load_Top At_Offset_0 0178 0335 | 5 | Declare_Variable Array,Duplicate 0179 00cd | | Action Spare6_Action 017a 00d9 | | Load_Top At_Offset_1 017b 01d9 | | Execute Vector,Reverse_Bounds 017c 0263 | c | Execute Discrete,Above_Bound 017d 7005 |p | Jump_Nonzero 0x183 017e 4820 |H | Short_Literal 0x20 017f 00d9 | | Load_Top At_Offset_1 0180 e403 | | Load 0x2,0x3 0181 01d6 | | Execute Vector,Field_Write 0182 3ffb |? | Loop_Increasing 0x17e 0183 00d9 | | Load_Top At_Offset_1 0184 01d4 | | Execute Vector,Structure_Write 0185 BODY_0168: 0185 00d8 | | Load_Top At_Offset_0 0186 e5fe | | Load 0x2,-0x2 0187 01cc | | Execute Vector,Catenate 0188 0092 0878 | x| Action Push_String_Extended,0x878 ; " => " 018a 01cc | | Execute Vector,Catenate 018b e5fd | | Load 0x2,-0x3 018c 01cc | | Execute Vector,Catenate 018d e011 | | Load 0x0,0x11 018e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 018f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 01ad | | .CONST 0x01ad ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0002 | | .CONST 0x0002 ; Number of locals 0193 INIT_0190: 0193 4801 |H | Short_Literal 0x1 0194 00db | | Load_Top At_Offset_3 0195 4803 |H | Short_Literal 0x3 0196 0271 | q | Execute Discrete,Times 0197 00d8 | | Load_Top At_Offset_0 0198 00e2 | | Load_Encached Integer_Cache 0199 0260 | ` | Execute Discrete,In_Type 019a 7001 |p | Jump_Nonzero 0x19c 019b 0801 | | Execute_Immediate Raise,0x1 019c 00e9 | | Load_Encached String_Cache 019d 035b | [ | Declare_Type Array,Constrained 019e 0337 | 7 | Declare_Variable Array 019f 00d8 | | Load_Top At_Offset_0 01a0 0335 | 5 | Declare_Variable Array,Duplicate 01a1 00cd | | Action Spare6_Action 01a2 00d9 | | Load_Top At_Offset_1 01a3 01d9 | | Execute Vector,Reverse_Bounds 01a4 0263 | c | Execute Discrete,Above_Bound 01a5 7005 |p | Jump_Nonzero 0x1ab 01a6 4820 |H | Short_Literal 0x20 01a7 00d9 | | Load_Top At_Offset_1 01a8 e403 | | Load 0x2,0x3 01a9 01d6 | | Execute Vector,Field_Write 01aa 3ffb |? | Loop_Increasing 0x1a6 01ab 00d9 | | Load_Top At_Offset_1 01ac 01d4 | | Execute Vector,Structure_Write 01ad BODY_0190: 01ad 00d8 | | Load_Top At_Offset_0 01ae e5fe | | Load 0x2,-0x2 01af 01cc | | Execute Vector,Catenate 01b0 0092 0878 | x| Action Push_String_Extended,0x878 ; " => " 01b2 01cc | | Execute Vector,Catenate 01b3 e011 | | Load 0x0,0x11 01b4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01b5 e21b | | Load 0x1,0x1b 01b6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01b7 e21b | | Load 0x1,0x1b 01b8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01b9 e21b | | Load 0x1,0x1b 01ba 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01bb e5fd | | Load 0x2,-0x3 01bc e21b | | Load 0x1,0x1b 01bd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01be 4801 |H | Short_Literal 0x1 01bf e011 | | Load 0x0,0x11 01c0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01c1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01c2 0000 0000 | | .BLANK 0000[0x6] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00db | | Load_Top At_Offset_3 01cc e212 | | Load 0x1,0x12 01cd 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ce 01df | | Execute Vector,Equal 01cf 6801 |h | Jump_Zero 0x1d1 01d0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01d1 00da | | Load_Top At_Offset_2 01d2 e5fd | | Load 0x2,-0x3 01d3 8217 | | Call 0x1,0x17 01d4 00cf | | Action Mark_Auxiliary 01d5 e212 | | Load 0x1,0x12 01d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d7 0265 | e | Execute Discrete,Reverse_Bounds 01d8 0007 | | Action Break_Optional 01d9 00d8 | | Load_Top At_Offset_0 01da e5fe | | Load 0x2,-0x2 01db 01d7 | | Execute Vector,Field_Read 01dc 00d9 | | Load_Top At_Offset_1 01dd e212 | | Load 0x1,0x12 01de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01df 011c | | Execute Any,Convert_Unchecked 01e0 1c01 | | Execute_Immediate Run_Utility,0x1 01e1 e5fd | | Load 0x2,-0x3 01e2 0a01 | | Execute_Immediate Plus,0x1 01e3 00d8 | | Load_Top At_Offset_0 01e4 00e3 | | Load_Encached Natural_Cache 01e5 0260 | ` | Execute Discrete,In_Type 01e6 7001 |p | Jump_Nonzero 0x1e8 01e7 0801 | | Execute_Immediate Raise,0x1 01e8 8218 | | Call 0x1,0x18 01e9 00c8 | | Action Pop_Auxiliary_Range 01ea 3fee |? | Loop_Increasing 0x1d9 01eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00db | | Load_Top At_Offset_3 01f4 e212 | | Load 0x1,0x12 01f5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01f6 01df | | Execute Vector,Equal 01f7 6801 |h | Jump_Zero 0x1f9 01f8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01f9 00da | | Load_Top At_Offset_2 01fa e5fd | | Load 0x2,-0x3 01fb 8217 | | Call 0x1,0x17 01fc 00cf | | Action Mark_Auxiliary 01fd e212 | | Load 0x1,0x12 01fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ff 0265 | e | Execute Discrete,Reverse_Bounds 0200 0007 | | Action Break_Optional 0201 00d8 | | Load_Top At_Offset_0 0202 e5fe | | Load 0x2,-0x2 0203 01d7 | | Execute Vector,Field_Read 0204 00d9 | | Load_Top At_Offset_1 0205 e212 | | Load 0x1,0x12 0206 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0207 011c | | Execute Any,Convert_Unchecked 0208 1c01 | | Execute_Immediate Run_Utility,0x1 0209 e5fd | | Load 0x2,-0x3 020a 0a01 | | Execute_Immediate Plus,0x1 020b 00d8 | | Load_Top At_Offset_0 020c 00e3 | | Load_Encached Natural_Cache 020d 0260 | ` | Execute Discrete,In_Type 020e 7001 |p | Jump_Nonzero 0x210 020f 0801 | | Execute_Immediate Raise,0x1 0210 8218 | | Call 0x1,0x18 0211 00c8 | | Action Pop_Auxiliary_Range 0212 3fee |? | Loop_Increasing 0x201 0213 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0214 0000 0000 | | .BLANK 0000[0x4] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00db | | Load_Top At_Offset_3 021c 01db | | Execute Vector,Length 021d 7001 |p | Jump_Nonzero 0x21f 021e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 021f 00da | | Load_Top At_Offset_2 0220 e5fd | | Load 0x2,-0x3 0221 8217 | | Call 0x1,0x17 0222 00cf | | Action Mark_Auxiliary 0223 e5fe | | Load 0x2,-0x2 0224 01d9 | | Execute Vector,Reverse_Bounds 0225 0263 | c | Execute Discrete,Above_Bound 0226 7012 |p | Jump_Nonzero 0x239 0227 00d8 | | Load_Top At_Offset_0 0228 e5fe | | Load 0x2,-0x2 0229 01d7 | | Execute Vector,Field_Read 022a e211 | | Load 0x1,0x11 022b 180f | | Execute Package,Field_Execute,Field_Number 0xf 022c 00d9 | | Load_Top At_Offset_1 022d 00e0 | | Load_Encached Standard_Cache 022e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 022f e5fd | | Load 0x2,-0x3 0230 0a01 | | Execute_Immediate Plus,0x1 0231 00d8 | | Load_Top At_Offset_0 0232 00e3 | | Load_Encached Natural_Cache 0233 0260 | ` | Execute Discrete,In_Type 0234 7001 |p | Jump_Nonzero 0x236 0235 0801 | | Execute_Immediate Raise,0x1 0236 821a | | Call 0x1,0x1a 0237 00c8 | | Action Pop_Auxiliary_Range 0238 3fee |? | Loop_Increasing 0x227 0239 4504 |E | Exit_Suprogram New_Top_Offset 0x4 023a 0000 0000 | | .BLANK 0000[0x6] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00db | | Load_Top At_Offset_3 0244 e212 | | Load 0x1,0x12 0245 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0246 01df | | Execute Vector,Equal 0247 6801 |h | Jump_Zero 0x249 0248 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0249 00da | | Load_Top At_Offset_2 024a e5fd | | Load 0x2,-0x3 024b 8217 | | Call 0x1,0x17 024c 00cf | | Action Mark_Auxiliary 024d e5fe | | Load 0x2,-0x2 024e 01d9 | | Execute Vector,Reverse_Bounds 024f 0007 | | Action Break_Optional 0250 00d8 | | Load_Top At_Offset_0 0251 e5fe | | Load 0x2,-0x2 0252 01d7 | | Execute Vector,Field_Read 0253 00d9 | | Load_Top At_Offset_1 0254 e212 | | Load 0x1,0x12 0255 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c 0256 011c | | Execute Any,Convert_Unchecked 0257 1c01 | | Execute_Immediate Run_Utility,0x1 0258 e5fd | | Load 0x2,-0x3 0259 0a01 | | Execute_Immediate Plus,0x1 025a 00d8 | | Load_Top At_Offset_0 025b 00e3 | | Load_Encached Natural_Cache 025c 0260 | ` | Execute Discrete,In_Type 025d 7001 |p | Jump_Nonzero 0x25f 025e 0801 | | Execute_Immediate Raise,0x1 025f 8218 | | Call 0x1,0x18 0260 00c8 | | Action Pop_Auxiliary_Range 0261 3fee |? | Loop_Increasing 0x250 0262 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0263 0000 0000 | | .BLANK 0000[0x5] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 00db | | Load_Top At_Offset_3 026c e212 | | Load 0x1,0x12 026d 1b42 | B | Execute Package,Field_Read,Field_Number 0x42 026e 01df | | Execute Vector,Equal 026f 6801 |h | Jump_Zero 0x271 0270 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0271 00da | | Load_Top At_Offset_2 0272 e5fd | | Load 0x2,-0x3 0273 8217 | | Call 0x1,0x17 0274 00cf | | Action Mark_Auxiliary 0275 e5fe | | Load 0x2,-0x2 0276 01d9 | | Execute Vector,Reverse_Bounds 0277 0007 | | Action Break_Optional 0278 00d8 | | Load_Top At_Offset_0 0279 e5fe | | Load 0x2,-0x2 027a 01d7 | | Execute Vector,Field_Read 027b 00d9 | | Load_Top At_Offset_1 027c e212 | | Load 0x1,0x12 027d 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 027e 011c | | Execute Any,Convert_Unchecked 027f 1c01 | | Execute_Immediate Run_Utility,0x1 0280 e5fd | | Load 0x2,-0x3 0281 0a01 | | Execute_Immediate Plus,0x1 0282 00d8 | | Load_Top At_Offset_0 0283 00e3 | | Load_Encached Natural_Cache 0284 0260 | ` | Execute Discrete,In_Type 0285 7001 |p | Jump_Nonzero 0x287 0286 0801 | | Execute_Immediate Raise,0x1 0287 8218 | | Call 0x1,0x18 0288 00c8 | | Action Pop_Auxiliary_Range 0289 3fee |? | Loop_Increasing 0x278 028a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 028b 0000 0000 | | .BLANK 0000[0x5] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00db | | Load_Top At_Offset_3 0294 e212 | | Load 0x1,0x12 0295 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0296 6801 |h | Jump_Zero 0x298 0297 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0298 00da | | Load_Top At_Offset_2 0299 e5fd | | Load 0x2,-0x3 029a 8217 | | Call 0x1,0x17 029b e5fd | | Load 0x2,-0x3 029c 0a01 | | Execute_Immediate Plus,0x1 029d 00d8 | | Load_Top At_Offset_0 029e 00e3 | | Load_Encached Natural_Cache 029f 0260 | ` | Execute Discrete,In_Type 02a0 7001 |p | Jump_Nonzero 0x2a2 02a1 0801 | | Execute_Immediate Raise,0x1 02a2 e5fe | | Load 0x2,-0x2 02a3 e212 | | Load 0x1,0x12 02a4 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02a5 0092 0879 | y| Action Push_String_Extended,0x879 ; "Enforced Type Restrictions" 02a7 821e | | Call 0x1,0x1e 02a8 e5fd | | Load 0x2,-0x3 02a9 0a01 | | Execute_Immediate Plus,0x1 02aa 00d8 | | Load_Top At_Offset_0 02ab 00e3 | | Load_Encached Natural_Cache 02ac 0260 | ` | Execute Discrete,In_Type 02ad 7001 |p | Jump_Nonzero 0x2af 02ae 0801 | | Execute_Immediate Raise,0x1 02af e5fe | | Load 0x2,-0x2 02b0 e212 | | Load 0x1,0x12 02b1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 02b2 0092 087a | z| Action Push_String_Extended,0x87a ; "Valid Structural Types" 02b4 821d | | Call 0x1,0x1d 02b5 e5fd | | Load 0x2,-0x3 02b6 0a01 | | Execute_Immediate Plus,0x1 02b7 00d8 | | Load_Top At_Offset_0 02b8 00e3 | | Load_Encached Natural_Cache 02b9 0260 | ` | Execute Discrete,In_Type 02ba 7001 |p | Jump_Nonzero 0x2bc 02bb 0801 | | Execute_Immediate Raise,0x1 02bc e5fe | | Load 0x2,-0x2 02bd e212 | | Load 0x1,0x12 02be 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02bf 0092 087b | {| Action Push_String_Extended,0x87b ; "Valid Textual Types" 02c1 821f | | Call 0x1,0x1f 02c2 e5fd | | Load 0x2,-0x3 02c3 0a01 | | Execute_Immediate Plus,0x1 02c4 00d8 | | Load_Top At_Offset_0 02c5 00e3 | | Load_Encached Natural_Cache 02c6 0260 | ` | Execute Discrete,In_Type 02c7 7001 |p | Jump_Nonzero 0x2c9 02c8 0801 | | Execute_Immediate Raise,0x1 02c9 e5fe | | Load 0x2,-0x2 02ca e212 | | Load 0x1,0x12 02cb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02cc 0092 087c | || Action Push_String_Extended,0x87c ; "Required Pragmas" 02ce 821f | | Call 0x1,0x1f 02cf e5fd | | Load 0x2,-0x3 02d0 0a01 | | Execute_Immediate Plus,0x1 02d1 00d8 | | Load_Top At_Offset_0 02d2 00e3 | | Load_Encached Natural_Cache 02d3 0260 | ` | Execute Discrete,In_Type 02d4 7001 |p | Jump_Nonzero 0x2d6 02d5 0801 | | Execute_Immediate Raise,0x1 02d6 e5fe | | Load 0x2,-0x2 02d7 e212 | | Load 0x1,0x12 02d8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02d9 0092 087d | }| Action Push_String_Extended,0x87d ; "Prohibited Pragmas" 02db 821f | | Call 0x1,0x1f 02dc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02dd 0000 0000 | | .XXX[0x3] 02df 0000 | | 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e5 | | .CONST 0x02e5 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0002 | | .CONST 0x0002 ; Number of locals 02e3 INIT_02e0: 02e3 e212 | | Load 0x1,0x12 02e4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02e5 BODY_02e0: 02e5 00db | | Load_Top At_Offset_3 02e6 e5fd | | Load 0x2,-0x3 02e7 8217 | | Call 0x1,0x17 02e8 e5fe | | Load 0x2,-0x2 02e9 e212 | | Load 0x1,0x12 02ea 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 02eb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02ec 00d8 | | Load_Top At_Offset_0 02ed e212 | | Load 0x1,0x12 02ee 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02ef 011c | | Execute Any,Convert_Unchecked 02f0 1c01 | | Execute_Immediate Run_Utility,0x1 02f1 0092 087e | ~| Action Push_String_Extended,0x87e ; "Form" 02f3 e5fd | | Load 0x2,-0x3 02f4 0a01 | | Execute_Immediate Plus,0x1 02f5 00d8 | | Load_Top At_Offset_0 02f6 00e3 | | Load_Encached Natural_Cache 02f7 0260 | ` | Execute Discrete,In_Type 02f8 7001 |p | Jump_Nonzero 0x2fa 02f9 0801 | | Execute_Immediate Raise,0x1 02fa 821a | | Call 0x1,0x1a 02fb 00d8 | | Load_Top At_Offset_0 02fc 4602 |F | Jump_Case 0x3 02fd 781d |x | Jump 0x31b ; case 0x0 02fe 7801 |x | Jump 0x300 ; case 0x1 02ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x2 0300 e5fe | | Load 0x2,-0x2 0301 e212 | | Load 0x1,0x12 0302 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0303 0092 087f | | Action Push_String_Extended,0x87f ; "Real Lo" 0305 e5fd | | Load 0x2,-0x3 0306 0a01 | | Execute_Immediate Plus,0x1 0307 00d8 | | Load_Top At_Offset_0 0308 00e3 | | Load_Encached Natural_Cache 0309 0260 | ` | Execute Discrete,In_Type 030a 7001 |p | Jump_Nonzero 0x30c 030b 0801 | | Execute_Immediate Raise,0x1 030c 821c | | Call 0x1,0x1c 030d e5fe | | Load 0x2,-0x2 030e e212 | | Load 0x1,0x12 030f 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0310 0092 0880 | | Action Push_String_Extended,0x880 ; "Real Hi" 0312 e5fd | | Load 0x2,-0x3 0313 0a01 | | Execute_Immediate Plus,0x1 0314 00d8 | | Load_Top At_Offset_0 0315 00e3 | | Load_Encached Natural_Cache 0316 0260 | ` | Execute Discrete,In_Type 0317 7001 |p | Jump_Nonzero 0x319 0318 0801 | | Execute_Immediate Raise,0x1 0319 821c | | Call 0x1,0x1c 031a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 031b e5fe | | Load 0x2,-0x2 031c e212 | | Load 0x1,0x12 031d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 031e e005 | | Load 0x0,0x5 031f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0320 0092 0881 | | Action Push_String_Extended,0x881 ; "Integer Lo" 0322 e5fd | | Load 0x2,-0x3 0323 0a01 | | Execute_Immediate Plus,0x1 0324 00d8 | | Load_Top At_Offset_0 0325 00e3 | | Load_Encached Natural_Cache 0326 0260 | ` | Execute Discrete,In_Type 0327 7001 |p | Jump_Nonzero 0x329 0328 0801 | | Execute_Immediate Raise,0x1 0329 821a | | Call 0x1,0x1a 032a e5fe | | Load 0x2,-0x2 032b e212 | | Load 0x1,0x12 032c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 032d e005 | | Load 0x0,0x5 032e 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 032f 0092 0882 | | Action Push_String_Extended,0x882 ; "Integer Hi" 0331 e5fd | | Load 0x2,-0x3 0332 0a01 | | Execute_Immediate Plus,0x1 0333 00d8 | | Load_Top At_Offset_0 0334 00e3 | | Load_Encached Natural_Cache 0335 0260 | ` | Execute Discrete,In_Type 0336 7001 |p | Jump_Nonzero 0x338 0337 0801 | | Execute_Immediate Raise,0x1 0338 821a | | Call 0x1,0x1a 0339 4504 |E | Exit_Suprogram New_Top_Offset 0x4 033a 0000 0000 | | .BLANK 0000[0x6] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0344 | D | .CONST 0x0344 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0002 | | .CONST 0x0002 ; Number of locals 0343 INIT_0340: 0343 00e1 | | Load_Encached Boolean_Cache 0344 BODY_0340: 0344 e5fe | | Load 0x2,-0x2 0345 e212 | | Load 0x1,0x12 0346 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0347 6801 |h | Jump_Zero 0x349 0348 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0349 00db | | Load_Top At_Offset_3 034a e5fd | | Load 0x2,-0x3 034b 8217 | | Call 0x1,0x17 034c e5fe | | Load 0x2,-0x2 034d e212 | | Load 0x1,0x12 034e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 034f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0350 00d8 | | Load_Top At_Offset_0 0351 0092 0883 | | Action Push_String_Extended,0x883 ; "Must Be Static" 0353 e5fd | | Load 0x2,-0x3 0354 0a01 | | Execute_Immediate Plus,0x1 0355 00d8 | | Load_Top At_Offset_0 0356 00e3 | | Load_Encached Natural_Cache 0357 0260 | ` | Execute Discrete,In_Type 0358 7001 |p | Jump_Nonzero 0x35a 0359 0801 | | Execute_Immediate Raise,0x1 035a 8218 | | Call 0x1,0x18 035b 00d8 | | Load_Top At_Offset_0 035c 680d |h | Jump_Zero 0x36a 035d e5fd | | Load 0x2,-0x3 035e 0a01 | | Execute_Immediate Plus,0x1 035f 00d8 | | Load_Top At_Offset_0 0360 00e3 | | Load_Encached Natural_Cache 0361 0260 | ` | Execute Discrete,In_Type 0362 7001 |p | Jump_Nonzero 0x364 0363 0801 | | Execute_Immediate Raise,0x1 0364 e5fe | | Load 0x2,-0x2 0365 e212 | | Load 0x1,0x12 0366 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0367 0092 0884 | | Action Push_String_Extended,0x884 ; "Range Data" 0369 8223 | # | Call 0x1,0x23 036a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 036b 0000 0000 | | .BLANK 0000[0x5] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 00db | | Load_Top At_Offset_3 0374 e212 | | Load 0x1,0x12 0375 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0376 6801 |h | Jump_Zero 0x378 0377 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0378 00da | | Load_Top At_Offset_2 0379 e5fd | | Load 0x2,-0x3 037a 8217 | | Call 0x1,0x17 037b 00db | | Load_Top At_Offset_3 037c e212 | | Load 0x1,0x12 037d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 037e 0092 0885 | | Action Push_String_Extended,0x885 ; "Expression Types" 0380 e5fd | | Load 0x2,-0x3 0381 0a01 | | Execute_Immediate Plus,0x1 0382 00d8 | | Load_Top At_Offset_0 0383 00e3 | | Load_Encached Natural_Cache 0384 0260 | ` | Execute Discrete,In_Type 0385 7001 |p | Jump_Nonzero 0x387 0386 0801 | | Execute_Immediate Raise,0x1 0387 821a | | Call 0x1,0x1a 0388 e5fd | | Load 0x2,-0x3 0389 0a01 | | Execute_Immediate Plus,0x1 038a 00d8 | | Load_Top At_Offset_0 038b 00e3 | | Load_Encached Natural_Cache 038c 0260 | ` | Execute Discrete,In_Type 038d 7001 |p | Jump_Nonzero 0x38f 038e 0801 | | Execute_Immediate Raise,0x1 038f e5fe | | Load 0x2,-0x2 0390 e212 | | Load 0x1,0x12 0391 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0392 0092 0886 | | Action Push_String_Extended,0x886 ; "Constraint" 0394 8224 | $ | Call 0x1,0x24 0395 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0396 0000 0000 | | .XXX[0x2] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 00db | | Load_Top At_Offset_3 039c e212 | | Load 0x1,0x12 039d 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 039e 6801 |h | Jump_Zero 0x3a0 039f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03a0 00da | | Load_Top At_Offset_2 03a1 e5fd | | Load 0x2,-0x3 03a2 8217 | | Call 0x1,0x17 03a3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03a4 0000 0000 | | .BLANK 0000[0x4] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab 00db | | Load_Top At_Offset_3 03ac e212 | | Load 0x1,0x12 03ad 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 03ae 6801 |h | Jump_Zero 0x3b0 03af 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03b0 00da | | Load_Top At_Offset_2 03b1 e5fd | | Load 0x2,-0x3 03b2 8217 | | Call 0x1,0x17 03b3 00db | | Load_Top At_Offset_3 03b4 e212 | | Load 0x1,0x12 03b5 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 03b6 0092 0887 | | Action Push_String_Extended,0x887 ; "Ambiguity Allowed" 03b8 e5fd | | Load 0x2,-0x3 03b9 0a01 | | Execute_Immediate Plus,0x1 03ba 00d8 | | Load_Top At_Offset_0 03bb 00e3 | | Load_Encached Natural_Cache 03bc 0260 | ` | Execute Discrete,In_Type 03bd 7001 |p | Jump_Nonzero 0x3bf 03be 0801 | | Execute_Immediate Raise,0x1 03bf 8218 | | Call 0x1,0x18 03c0 e5fd | | Load 0x2,-0x3 03c1 0a01 | | Execute_Immediate Plus,0x1 03c2 00d8 | | Load_Top At_Offset_0 03c3 00e3 | | Load_Encached Natural_Cache 03c4 0260 | ` | Execute Discrete,In_Type 03c5 7001 |p | Jump_Nonzero 0x3c7 03c6 0801 | | Execute_Immediate Raise,0x1 03c7 e5fe | | Load 0x2,-0x2 03c8 e212 | | Load 0x1,0x12 03c9 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 03ca 0092 0888 | | Action Push_String_Extended,0x888 ; "Valid Kinds" 03cc 8221 | ! | Call 0x1,0x21 03cd e5fd | | Load 0x2,-0x3 03ce 0a01 | | Execute_Immediate Plus,0x1 03cf 00d8 | | Load_Top At_Offset_0 03d0 00e3 | | Load_Encached Natural_Cache 03d1 0260 | ` | Execute Discrete,In_Type 03d2 7001 |p | Jump_Nonzero 0x3d4 03d3 0801 | | Execute_Immediate Raise,0x1 03d4 e5fe | | Load 0x2,-0x2 03d5 e212 | | Load 0x1,0x12 03d6 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 03d7 0092 087c | || Action Push_String_Extended,0x87c ; "Required Pragmas" 03d9 821f | | Call 0x1,0x1f 03da e5fd | | Load 0x2,-0x3 03db 0a01 | | Execute_Immediate Plus,0x1 03dc 00d8 | | Load_Top At_Offset_0 03dd 00e3 | | Load_Encached Natural_Cache 03de 0260 | ` | Execute Discrete,In_Type 03df 7001 |p | Jump_Nonzero 0x3e1 03e0 0801 | | Execute_Immediate Raise,0x1 03e1 e5fe | | Load 0x2,-0x2 03e2 e212 | | Load 0x1,0x12 03e3 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 03e4 0092 0889 | | Action Push_String_Extended,0x889 ; "prohibited Pragmas" 03e6 821f | | Call 0x1,0x1f 03e7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb 00db | | Load_Top At_Offset_3 03ec e213 | | Load 0x1,0x13 03ed 180f | | Execute Package,Field_Execute,Field_Number 0xf 03ee 6801 |h | Jump_Zero 0x3f0 03ef 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03f0 00da | | Load_Top At_Offset_2 03f1 e5fd | | Load 0x2,-0x3 03f2 8217 | | Call 0x1,0x17 03f3 00db | | Load_Top At_Offset_3 03f4 e213 | | Load 0x1,0x13 03f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03f6 0092 088a | | Action Push_String_Extended,0x88a ; "Name" 03f8 e5fd | | Load 0x2,-0x3 03f9 0a01 | | Execute_Immediate Plus,0x1 03fa 00d8 | | Load_Top At_Offset_0 03fb 00e3 | | Load_Encached Natural_Cache 03fc 0260 | ` | Execute Discrete,In_Type 03fd 7001 |p | Jump_Nonzero 0x3ff 03fe 0801 | | Execute_Immediate Raise,0x1 03ff 821a | | Call 0x1,0x1a 0400 00db | | Load_Top At_Offset_3 0401 e213 | | Load 0x1,0x13 0402 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0403 0092 088b | | Action Push_String_Extended,0x88b ; "Size" 0405 e5fd | | Load 0x2,-0x3 0406 0a01 | | Execute_Immediate Plus,0x1 0407 00d8 | | Load_Top At_Offset_0 0408 00e3 | | Load_Encached Natural_Cache 0409 0260 | ` | Execute Discrete,In_Type 040a 7001 |p | Jump_Nonzero 0x40c 040b 0801 | | Execute_Immediate Raise,0x1 040c 8219 | | Call 0x1,0x19 040d 00db | | Load_Top At_Offset_3 040e e213 | | Load 0x1,0x13 040f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0410 e005 | | Load 0x0,0x5 0411 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0412 0092 088c | | Action Push_String_Extended,0x88c ; "Lo Bound" 0414 e5fd | | Load 0x2,-0x3 0415 0a01 | | Execute_Immediate Plus,0x1 0416 00d8 | | Load_Top At_Offset_0 0417 00e3 | | Load_Encached Natural_Cache 0418 0260 | ` | Execute Discrete,In_Type 0419 7001 |p | Jump_Nonzero 0x41b 041a 0801 | | Execute_Immediate Raise,0x1 041b 821a | | Call 0x1,0x1a 041c 00db | | Load_Top At_Offset_3 041d e213 | | Load 0x1,0x13 041e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 041f e005 | | Load 0x0,0x5 0420 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0421 0092 088d | | Action Push_String_Extended,0x88d ; "Hi Bound" 0423 e5fd | | Load 0x2,-0x3 0424 0a01 | | Execute_Immediate Plus,0x1 0425 00d8 | | Load_Top At_Offset_0 0426 00e3 | | Load_Encached Natural_Cache 0427 0260 | ` | Execute Discrete,In_Type 0428 7001 |p | Jump_Nonzero 0x42a 0429 0801 | | Execute_Immediate Raise,0x1 042a 821a | | Call 0x1,0x1a 042b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 042c 0000 0000 | | .BLANK 0000[0x4] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0433 | 3 | .CONST 0x0433 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0001 | | .CONST 0x0001 ; Number of locals 0433 BODY_0430: 0433 INIT_0430: 0433 00db | | Load_Top At_Offset_3 0434 01db | | Execute Vector,Length 0435 7001 |p | Jump_Nonzero 0x437 0436 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0437 00da | | Load_Top At_Offset_2 0438 e5fd | | Load 0x2,-0x3 0439 8217 | | Call 0x1,0x17 043a 00cf | | Action Mark_Auxiliary 043b e5fe | | Load 0x2,-0x2 043c 01d9 | | Execute Vector,Reverse_Bounds 043d 0263 | c | Execute Discrete,Above_Bound 043e 7010 |p | Jump_Nonzero 0x44f 043f e5fd | | Load 0x2,-0x3 0440 0a01 | | Execute_Immediate Plus,0x1 0441 00d8 | | Load_Top At_Offset_0 0442 00e3 | | Load_Encached Natural_Cache 0443 0260 | ` | Execute Discrete,In_Type 0444 7001 |p | Jump_Nonzero 0x446 0445 0801 | | Execute_Immediate Raise,0x1 0446 00d9 | | Load_Top At_Offset_1 0447 e5fe | | Load 0x2,-0x2 0448 01d7 | | Execute Vector,Field_Read 0449 00da | | Load_Top At_Offset_2 044a 00e0 | | Load_Encached Standard_Cache 044b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 044c 8228 | ( | Call 0x1,0x28 044d 00c8 | | Action Pop_Auxiliary_Range 044e 3ff0 |? | Loop_Increasing 0x43f 044f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0453 | S | .CONST 0x0453 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0001 | | .CONST 0x0001 ; Number of locals 0453 BODY_0450: 0453 INIT_0450: 0453 00db | | Load_Top At_Offset_3 0454 e213 | | Load 0x1,0x13 0455 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0456 6801 |h | Jump_Zero 0x458 0457 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0458 00da | | Load_Top At_Offset_2 0459 e5fd | | Load 0x2,-0x3 045a 8217 | | Call 0x1,0x17 045b 00db | | Load_Top At_Offset_3 045c e213 | | Load 0x1,0x13 045d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 045e 0092 088a | | Action Push_String_Extended,0x88a ; "Name" 0460 e5fd | | Load 0x2,-0x3 0461 0a01 | | Execute_Immediate Plus,0x1 0462 00d8 | | Load_Top At_Offset_0 0463 00e3 | | Load_Encached Natural_Cache 0464 0260 | ` | Execute Discrete,In_Type 0465 7001 |p | Jump_Nonzero 0x467 0466 0801 | | Execute_Immediate Raise,0x1 0467 821a | | Call 0x1,0x1a 0468 00db | | Load_Top At_Offset_3 0469 e213 | | Load 0x1,0x13 046a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 046b 0092 088e | | Action Push_String_Extended,0x88e ; "Digits" 046d e5fd | | Load 0x2,-0x3 046e 0a01 | | Execute_Immediate Plus,0x1 046f 00d8 | | Load_Top At_Offset_0 0470 00e3 | | Load_Encached Natural_Cache 0471 0260 | ` | Execute Discrete,In_Type 0472 7001 |p | Jump_Nonzero 0x474 0473 0801 | | Execute_Immediate Raise,0x1 0474 8219 | | Call 0x1,0x19 0475 00db | | Load_Top At_Offset_3 0476 e213 | | Load 0x1,0x13 0477 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0478 0092 088b | | Action Push_String_Extended,0x88b ; "Size" 047a e5fd | | Load 0x2,-0x3 047b 0a01 | | Execute_Immediate Plus,0x1 047c 00d8 | | Load_Top At_Offset_0 047d 00e3 | | Load_Encached Natural_Cache 047e 0260 | ` | Execute Discrete,In_Type 047f 7001 |p | Jump_Nonzero 0x481 0480 0801 | | Execute_Immediate Raise,0x1 0481 8219 | | Call 0x1,0x19 0482 00db | | Load_Top At_Offset_3 0483 e213 | | Load 0x1,0x13 0484 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0485 e005 | | Load 0x0,0x5 0486 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0487 0092 088c | | Action Push_String_Extended,0x88c ; "Lo Bound" 0489 e5fd | | Load 0x2,-0x3 048a 0a01 | | Execute_Immediate Plus,0x1 048b 00d8 | | Load_Top At_Offset_0 048c 00e3 | | Load_Encached Natural_Cache 048d 0260 | ` | Execute Discrete,In_Type 048e 7001 |p | Jump_Nonzero 0x490 048f 0801 | | Execute_Immediate Raise,0x1 0490 821c | | Call 0x1,0x1c 0491 00db | | Load_Top At_Offset_3 0492 e213 | | Load 0x1,0x13 0493 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0494 e005 | | Load 0x0,0x5 0495 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0496 0092 088d | | Action Push_String_Extended,0x88d ; "Hi Bound" 0498 e5fd | | Load 0x2,-0x3 0499 0a01 | | Execute_Immediate Plus,0x1 049a 00d8 | | Load_Top At_Offset_0 049b 00e3 | | Load_Encached Natural_Cache 049c 0260 | ` | Execute Discrete,In_Type 049d 7001 |p | Jump_Nonzero 0x49f 049e 0801 | | Execute_Immediate Raise,0x1 049f 821c | | Call 0x1,0x1c 04a0 00db | | Load_Top At_Offset_3 04a1 e213 | | Load 0x1,0x13 04a2 181f | | Execute Package,Field_Execute,Field_Number 0x1f 04a3 0092 088f | | Action Push_String_Extended,0x88f ; "Machine Emax" 04a5 e5fd | | Load 0x2,-0x3 04a6 0a01 | | Execute_Immediate Plus,0x1 04a7 00d8 | | Load_Top At_Offset_0 04a8 00e3 | | Load_Encached Natural_Cache 04a9 0260 | ` | Execute Discrete,In_Type 04aa 7001 |p | Jump_Nonzero 0x4ac 04ab 0801 | | Execute_Immediate Raise,0x1 04ac 8219 | | Call 0x1,0x19 04ad 00db | | Load_Top At_Offset_3 04ae e213 | | Load 0x1,0x13 04af 1820 | | Execute Package,Field_Execute,Field_Number 0x20 04b0 0092 0890 | | Action Push_String_Extended,0x890 ; "Machine Emin" 04b2 e5fd | | Load 0x2,-0x3 04b3 0a01 | | Execute_Immediate Plus,0x1 04b4 00d8 | | Load_Top At_Offset_0 04b5 00e3 | | Load_Encached Natural_Cache 04b6 0260 | ` | Execute Discrete,In_Type 04b7 7001 |p | Jump_Nonzero 0x4b9 04b8 0801 | | Execute_Immediate Raise,0x1 04b9 8219 | | Call 0x1,0x19 04ba 00db | | Load_Top At_Offset_3 04bb e213 | | Load 0x1,0x13 04bc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 04bd 0092 0891 | | Action Push_String_Extended,0x891 ; "Machine Radix" 04bf e5fd | | Load 0x2,-0x3 04c0 0a01 | | Execute_Immediate Plus,0x1 04c1 00d8 | | Load_Top At_Offset_0 04c2 00e3 | | Load_Encached Natural_Cache 04c3 0260 | ` | Execute Discrete,In_Type 04c4 7001 |p | Jump_Nonzero 0x4c6 04c5 0801 | | Execute_Immediate Raise,0x1 04c6 8219 | | Call 0x1,0x19 04c7 00db | | Load_Top At_Offset_3 04c8 e213 | | Load 0x1,0x13 04c9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 04ca 0092 0892 | | Action Push_String_Extended,0x892 ; "Machine Mantissa" 04cc e5fd | | Load 0x2,-0x3 04cd 0a01 | | Execute_Immediate Plus,0x1 04ce 00d8 | | Load_Top At_Offset_0 04cf 00e3 | | Load_Encached Natural_Cache 04d0 0260 | ` | Execute Discrete,In_Type 04d1 7001 |p | Jump_Nonzero 0x4d3 04d2 0801 | | Execute_Immediate Raise,0x1 04d3 8219 | | Call 0x1,0x19 04d4 00db | | Load_Top At_Offset_3 04d5 e213 | | Load 0x1,0x13 04d6 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 04d7 0092 0893 | | Action Push_String_Extended,0x893 ; "Machine Rounds" 04d9 e5fd | | Load 0x2,-0x3 04da 0a01 | | Execute_Immediate Plus,0x1 04db 00d8 | | Load_Top At_Offset_0 04dc 00e3 | | Load_Encached Natural_Cache 04dd 0260 | ` | Execute Discrete,In_Type 04de 7001 |p | Jump_Nonzero 0x4e0 04df 0801 | | Execute_Immediate Raise,0x1 04e0 8218 | | Call 0x1,0x18 04e1 00db | | Load_Top At_Offset_3 04e2 e213 | | Load 0x1,0x13 04e3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 04e4 0092 0894 | | Action Push_String_Extended,0x894 ; "Machine Overflows" 04e6 e5fd | | Load 0x2,-0x3 04e7 0a01 | | Execute_Immediate Plus,0x1 04e8 00d8 | | Load_Top At_Offset_0 04e9 00e3 | | Load_Encached Natural_Cache 04ea 0260 | ` | Execute Discrete,In_Type 04eb 7001 |p | Jump_Nonzero 0x4ed 04ec 0801 | | Execute_Immediate Raise,0x1 04ed 8218 | | Call 0x1,0x18 04ee 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04ef 0000 | | .XXX[0x1] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f3 | | .CONST 0x04f3 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0001 | | .CONST 0x0001 ; Number of locals 04f3 BODY_04f0: 04f3 INIT_04f0: 04f3 00db | | Load_Top At_Offset_3 04f4 01db | | Execute Vector,Length 04f5 7001 |p | Jump_Nonzero 0x4f7 04f6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04f7 00da | | Load_Top At_Offset_2 04f8 e5fd | | Load 0x2,-0x3 04f9 8217 | | Call 0x1,0x17 04fa 00cf | | Action Mark_Auxiliary 04fb e5fe | | Load 0x2,-0x2 04fc 01d9 | | Execute Vector,Reverse_Bounds 04fd 0263 | c | Execute Discrete,Above_Bound 04fe 7010 |p | Jump_Nonzero 0x50f 04ff e5fd | | Load 0x2,-0x3 0500 0a01 | | Execute_Immediate Plus,0x1 0501 00d8 | | Load_Top At_Offset_0 0502 00e3 | | Load_Encached Natural_Cache 0503 0260 | ` | Execute Discrete,In_Type 0504 7001 |p | Jump_Nonzero 0x506 0505 0801 | | Execute_Immediate Raise,0x1 0506 00d9 | | Load_Top At_Offset_1 0507 e5fe | | Load 0x2,-0x2 0508 01d7 | | Execute Vector,Field_Read 0509 00da | | Load_Top At_Offset_2 050a 00e0 | | Load_Encached Standard_Cache 050b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 050c 822a | * | Call 0x1,0x2a 050d 00c8 | | Action Pop_Auxiliary_Range 050e 3ff0 |? | Loop_Increasing 0x4ff 050f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 0513 | | .CONST 0x0513 ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 0001 | | .CONST 0x0001 ; Number of locals 0513 BODY_0510: 0513 INIT_0510: 0513 00db | | Load_Top At_Offset_3 0514 e213 | | Load 0x1,0x13 0515 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0516 6801 |h | Jump_Zero 0x518 0517 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0518 00da | | Load_Top At_Offset_2 0519 e5fd | | Load 0x2,-0x3 051a 8217 | | Call 0x1,0x17 051b 00db | | Load_Top At_Offset_3 051c e213 | | Load 0x1,0x13 051d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 051e 0092 088a | | Action Push_String_Extended,0x88a ; "Name" 0520 e5fd | | Load 0x2,-0x3 0521 0a01 | | Execute_Immediate Plus,0x1 0522 00d8 | | Load_Top At_Offset_0 0523 00e3 | | Load_Encached Natural_Cache 0524 0260 | ` | Execute Discrete,In_Type 0525 7001 |p | Jump_Nonzero 0x527 0526 0801 | | Execute_Immediate Raise,0x1 0527 821a | | Call 0x1,0x1a 0528 00db | | Load_Top At_Offset_3 0529 e213 | | Load 0x1,0x13 052a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 052b 0092 088b | | Action Push_String_Extended,0x88b ; "Size" 052d e5fd | | Load 0x2,-0x3 052e 0a01 | | Execute_Immediate Plus,0x1 052f 00d8 | | Load_Top At_Offset_0 0530 00e3 | | Load_Encached Natural_Cache 0531 0260 | ` | Execute Discrete,In_Type 0532 7001 |p | Jump_Nonzero 0x534 0533 0801 | | Execute_Immediate Raise,0x1 0534 8219 | | Call 0x1,0x19 0535 00db | | Load_Top At_Offset_3 0536 e213 | | Load 0x1,0x13 0537 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0538 0092 0895 | | Action Push_String_Extended,0x895 ; "Scale" 053a e5fd | | Load 0x2,-0x3 053b 0a01 | | Execute_Immediate Plus,0x1 053c 00d8 | | Load_Top At_Offset_0 053d 00e3 | | Load_Encached Natural_Cache 053e 0260 | ` | Execute Discrete,In_Type 053f 7001 |p | Jump_Nonzero 0x541 0540 0801 | | Execute_Immediate Raise,0x1 0541 8219 | | Call 0x1,0x19 0542 00db | | Load_Top At_Offset_3 0543 e213 | | Load 0x1,0x13 0544 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0545 e005 | | Load 0x0,0x5 0546 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0547 0092 088c | | Action Push_String_Extended,0x88c ; "Lo Bound" 0549 e5fd | | Load 0x2,-0x3 054a 0a01 | | Execute_Immediate Plus,0x1 054b 00d8 | | Load_Top At_Offset_0 054c 00e3 | | Load_Encached Natural_Cache 054d 0260 | ` | Execute Discrete,In_Type 054e 7001 |p | Jump_Nonzero 0x550 054f 0801 | | Execute_Immediate Raise,0x1 0550 821c | | Call 0x1,0x1c 0551 00db | | Load_Top At_Offset_3 0552 e213 | | Load 0x1,0x13 0553 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0554 e005 | | Load 0x0,0x5 0555 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0556 0092 088d | | Action Push_String_Extended,0x88d ; "Hi Bound" 0558 e5fd | | Load 0x2,-0x3 0559 0a01 | | Execute_Immediate Plus,0x1 055a 00d8 | | Load_Top At_Offset_0 055b 00e3 | | Load_Encached Natural_Cache 055c 0260 | ` | Execute Discrete,In_Type 055d 7001 |p | Jump_Nonzero 0x55f 055e 0801 | | Execute_Immediate Raise,0x1 055f 821c | | Call 0x1,0x1c 0560 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0561 0000 0000 | | .BLANK 0000[0x7] 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056b | k | .CONST 0x056b ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0001 | | .CONST 0x0001 ; Number of locals 056b BODY_0568: 056b INIT_0568: 056b 00db | | Load_Top At_Offset_3 056c e214 | | Load 0x1,0x14 056d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 056e 6801 |h | Jump_Zero 0x570 056f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0570 00da | | Load_Top At_Offset_2 0571 e5fd | | Load 0x2,-0x3 0572 8217 | | Call 0x1,0x17 0573 00db | | Load_Top At_Offset_3 0574 e214 | | Load 0x1,0x14 0575 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0576 0092 088a | | Action Push_String_Extended,0x88a ; "Name" 0578 e5fd | | Load 0x2,-0x3 0579 0a01 | | Execute_Immediate Plus,0x1 057a 00d8 | | Load_Top At_Offset_0 057b 00e3 | | Load_Encached Natural_Cache 057c 0260 | ` | Execute Discrete,In_Type 057d 7001 |p | Jump_Nonzero 0x57f 057e 0801 | | Execute_Immediate Raise,0x1 057f 821a | | Call 0x1,0x1a 0580 00db | | Load_Top At_Offset_3 0581 e214 | | Load 0x1,0x14 0582 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0583 0092 0896 | | Action Push_String_Extended,0x896 ; "Is Name" 0585 e5fd | | Load 0x2,-0x3 0586 0a01 | | Execute_Immediate Plus,0x1 0587 00d8 | | Load_Top At_Offset_0 0588 00e3 | | Load_Encached Natural_Cache 0589 0260 | ` | Execute Discrete,In_Type 058a 7001 |p | Jump_Nonzero 0x58c 058b 0801 | | Execute_Immediate Raise,0x1 058c 8218 | | Call 0x1,0x18 058d 00db | | Load_Top At_Offset_3 058e e214 | | Load 0x1,0x14 058f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0590 0f01 | | Execute_Immediate Equal,0x1 0591 700e |p | Jump_Nonzero 0x5a0 0592 e5fd | | Load 0x2,-0x3 0593 0a01 | | Execute_Immediate Plus,0x1 0594 00d8 | | Load_Top At_Offset_0 0595 00e3 | | Load_Encached Natural_Cache 0596 0260 | ` | Execute Discrete,In_Type 0597 7001 |p | Jump_Nonzero 0x599 0598 0801 | | Execute_Immediate Raise,0x1 0599 e5fe | | Load 0x2,-0x2 059a e214 | | Load 0x1,0x14 059b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 059c 0092 0897 | | Action Push_String_Extended,0x897 ; "Valid Expressions" 059e 8225 | % | Call 0x1,0x25 059f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05a0 e5fd | | Load 0x2,-0x3 05a1 0a01 | | Execute_Immediate Plus,0x1 05a2 00d8 | | Load_Top At_Offset_0 05a3 00e3 | | Load_Encached Natural_Cache 05a4 0260 | ` | Execute Discrete,In_Type 05a5 7001 |p | Jump_Nonzero 0x5a7 05a6 0801 | | Execute_Immediate Raise,0x1 05a7 e5fe | | Load 0x2,-0x2 05a8 e214 | | Load 0x1,0x14 05a9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05aa 0092 0898 | | Action Push_String_Extended,0x898 ; "Valid Objects" 05ac 8226 | & | Call 0x1,0x26 05ad e5fd | | Load 0x2,-0x3 05ae 0a01 | | Execute_Immediate Plus,0x1 05af 00d8 | | Load_Top At_Offset_0 05b0 00e3 | | Load_Encached Natural_Cache 05b1 0260 | ` | Execute Discrete,In_Type 05b2 7001 |p | Jump_Nonzero 0x5b4 05b3 0801 | | Execute_Immediate Raise,0x1 05b4 e5fe | | Load 0x2,-0x2 05b5 e214 | | Load 0x1,0x14 05b6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05b7 0092 0899 | | Action Push_String_Extended,0x899 ; "Valid Miscellaneous Names" 05b9 8227 | ' | Call 0x1,0x27 05ba e5fd | | Load 0x2,-0x3 05bb 0a01 | | Execute_Immediate Plus,0x1 05bc 00d8 | | Load_Top At_Offset_0 05bd 00e3 | | Load_Encached Natural_Cache 05be 0260 | ` | Execute Discrete,In_Type 05bf 7001 |p | Jump_Nonzero 0x5c1 05c0 0801 | | Execute_Immediate Raise,0x1 05c1 e5fe | | Load 0x2,-0x2 05c2 e214 | | Load 0x1,0x14 05c3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05c4 0092 089a | | Action Push_String_Extended,0x89a ; "Valid Types" 05c6 8222 | " | Call 0x1,0x22 05c7 e5fd | | Load 0x2,-0x3 05c8 0a01 | | Execute_Immediate Plus,0x1 05c9 00d8 | | Load_Top At_Offset_0 05ca 00e3 | | Load_Encached Natural_Cache 05cb 0260 | ` | Execute Discrete,In_Type 05cc 7001 |p | Jump_Nonzero 0x5ce 05cd 0801 | | Execute_Immediate Raise,0x1 05ce e5fe | | Load 0x2,-0x2 05cf e214 | | Load 0x1,0x14 05d0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 05d1 0092 089b | | Action Push_String_Extended,0x89b ; "Valid Special Identifiers" 05d3 821f | | Call 0x1,0x1f 05d4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05d5 0000 0000 | | .XXX[0x3] 05d7 0000 | | 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db 00db | | Load_Top At_Offset_3 05dc 01db | | Execute Vector,Length 05dd 7001 |p | Jump_Nonzero 0x5df 05de 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05df 00da | | Load_Top At_Offset_2 05e0 e5fd | | Load 0x2,-0x3 05e1 8217 | | Call 0x1,0x17 05e2 00cf | | Action Mark_Auxiliary 05e3 e5fe | | Load 0x2,-0x2 05e4 01d9 | | Execute Vector,Reverse_Bounds 05e5 0263 | c | Execute Discrete,Above_Bound 05e6 7010 |p | Jump_Nonzero 0x5f7 05e7 e5fd | | Load 0x2,-0x3 05e8 0a01 | | Execute_Immediate Plus,0x1 05e9 00d8 | | Load_Top At_Offset_0 05ea 00e3 | | Load_Encached Natural_Cache 05eb 0260 | ` | Execute Discrete,In_Type 05ec 7001 |p | Jump_Nonzero 0x5ee 05ed 0801 | | Execute_Immediate Raise,0x1 05ee 00d9 | | Load_Top At_Offset_1 05ef e5fe | | Load 0x2,-0x2 05f0 01d7 | | Execute Vector,Field_Read 05f1 00da | | Load_Top At_Offset_2 05f2 00e0 | | Load_Encached Standard_Cache 05f3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05f4 822d | - | Call 0x1,0x2d 05f5 00c8 | | Action Pop_Auxiliary_Range 05f6 3ff0 |? | Loop_Increasing 0x5e7 05f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 05fb | | .CONST 0x05fb ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0001 | | .CONST 0x0001 ; Number of locals 05fb BODY_05f8: 05fb INIT_05f8: 05fb 00db | | Load_Top At_Offset_3 05fc e214 | | Load 0x1,0x14 05fd 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05fe 01df | | Execute Vector,Equal 05ff 6801 |h | Jump_Zero 0x601 0600 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0601 00da | | Load_Top At_Offset_2 0602 e5fd | | Load 0x2,-0x3 0603 8217 | | Call 0x1,0x17 0604 00cf | | Action Mark_Auxiliary 0605 e5fe | | Load 0x2,-0x2 0606 01d9 | | Execute Vector,Reverse_Bounds 0607 0007 | | Action Break_Optional 0608 00d8 | | Load_Top At_Offset_0 0609 e5fe | | Load 0x2,-0x2 060a 01d7 | | Execute Vector,Field_Read 060b 00d9 | | Load_Top At_Offset_1 060c e214 | | Load 0x1,0x14 060d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 060e 011c | | Execute Any,Convert_Unchecked 060f 1c01 | | Execute_Immediate Run_Utility,0x1 0610 e5fd | | Load 0x2,-0x3 0611 0a01 | | Execute_Immediate Plus,0x1 0612 00d8 | | Load_Top At_Offset_0 0613 00e3 | | Load_Encached Natural_Cache 0614 0260 | ` | Execute Discrete,In_Type 0615 7001 |p | Jump_Nonzero 0x617 0616 0801 | | Execute_Immediate Raise,0x1 0617 8218 | | Call 0x1,0x18 0618 00c8 | | Action Pop_Auxiliary_Range 0619 3fee |? | Loop_Increasing 0x608 061a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 061b 0000 0000 | | .BLANK 0000[0x5] 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0623 | # | .CONST 0x0623 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0001 | | .CONST 0x0001 ; Number of locals 0623 BODY_0620: 0623 INIT_0620: 0623 00da | | Load_Top At_Offset_2 0624 e5fd | | Load 0x2,-0x3 0625 8217 | | Call 0x1,0x17 0626 00cf | | Action Mark_Auxiliary 0627 e5fe | | Load 0x2,-0x2 0628 01d9 | | Execute Vector,Reverse_Bounds 0629 0007 | | Action Break_Optional 062a 00d8 | | Load_Top At_Offset_0 062b e5fe | | Load 0x2,-0x2 062c 01d7 | | Execute Vector,Field_Read 062d 00d9 | | Load_Top At_Offset_1 062e e214 | | Load 0x1,0x14 062f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0630 011c | | Execute Any,Convert_Unchecked 0631 1c01 | | Execute_Immediate Run_Utility,0x1 0632 e5fd | | Load 0x2,-0x3 0633 0a01 | | Execute_Immediate Plus,0x1 0634 00d8 | | Load_Top At_Offset_0 0635 00e3 | | Load_Encached Natural_Cache 0636 0260 | ` | Execute Discrete,In_Type 0637 7001 |p | Jump_Nonzero 0x639 0638 0801 | | Execute_Immediate Raise,0x1 0639 8218 | | Call 0x1,0x18 063a 00c8 | | Action Pop_Auxiliary_Range 063b 3fee |? | Loop_Increasing 0x62a 063c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 063d 0000 0000 | | .XXX[0x3] 063f 0000 | | 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0643 | C | .CONST 0x0643 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0001 | | .CONST 0x0001 ; Number of locals 0643 BODY_0640: 0643 INIT_0640: 0643 00db | | Load_Top At_Offset_3 0644 e214 | | Load 0x1,0x14 0645 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0646 6801 |h | Jump_Zero 0x648 0647 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0648 00da | | Load_Top At_Offset_2 0649 e5fd | | Load 0x2,-0x3 064a 8217 | | Call 0x1,0x17 064b 00db | | Load_Top At_Offset_3 064c e214 | | Load 0x1,0x14 064d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 064e 0092 088a | | Action Push_String_Extended,0x88a ; "Name" 0650 e5fd | | Load 0x2,-0x3 0651 0a01 | | Execute_Immediate Plus,0x1 0652 00d8 | | Load_Top At_Offset_0 0653 00e3 | | Load_Encached Natural_Cache 0654 0260 | ` | Execute Discrete,In_Type 0655 7001 |p | Jump_Nonzero 0x657 0656 0801 | | Execute_Immediate Raise,0x1 0657 821a | | Call 0x1,0x1a 0658 e5fd | | Load 0x2,-0x3 0659 0a01 | | Execute_Immediate Plus,0x1 065a 00d8 | | Load_Top At_Offset_0 065b 00e3 | | Load_Encached Natural_Cache 065c 0260 | ` | Execute Discrete,In_Type 065d 7001 |p | Jump_Nonzero 0x65f 065e 0801 | | Execute_Immediate Raise,0x1 065f e5fe | | Load 0x2,-0x2 0660 e214 | | Load 0x1,0x14 0661 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0662 0092 089c | | Action Push_String_Extended,0x89c ; "Valid Locations" 0664 8230 | 0 | Call 0x1,0x30 0665 e5fd | | Load 0x2,-0x3 0666 0a01 | | Execute_Immediate Plus,0x1 0667 00d8 | | Load_Top At_Offset_0 0668 00e3 | | Load_Encached Natural_Cache 0669 0260 | ` | Execute Discrete,In_Type 066a 7001 |p | Jump_Nonzero 0x66c 066b 0801 | | Execute_Immediate Raise,0x1 066c e5fe | | Load 0x2,-0x2 066d e214 | | Load 0x1,0x14 066e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 066f 0092 089d | | Action Push_String_Extended,0x89d ; "Arguments" 0671 822e | . | Call 0x1,0x2e 0672 00db | | Load_Top At_Offset_3 0673 e214 | | Load 0x1,0x14 0674 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0675 0092 089e | | Action Push_String_Extended,0x89e ; "Last Required Argument" 0677 e5fd | | Load 0x2,-0x3 0678 0a01 | | Execute_Immediate Plus,0x1 0679 00d8 | | Load_Top At_Offset_0 067a 00e3 | | Load_Encached Natural_Cache 067b 0260 | ` | Execute Discrete,In_Type 067c 7001 |p | Jump_Nonzero 0x67e 067d 0801 | | Execute_Immediate Raise,0x1 067e 8219 | | Call 0x1,0x19 067f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0683 | | .CONST 0x0683 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0001 | | .CONST 0x0001 ; Number of locals 0683 BODY_0680: 0683 INIT_0680: 0683 00db | | Load_Top At_Offset_3 0684 01db | | Execute Vector,Length 0685 7001 |p | Jump_Nonzero 0x687 0686 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0687 00da | | Load_Top At_Offset_2 0688 e5fd | | Load 0x2,-0x3 0689 8217 | | Call 0x1,0x17 068a 00cf | | Action Mark_Auxiliary 068b e5fe | | Load 0x2,-0x2 068c 01d9 | | Execute Vector,Reverse_Bounds 068d 0263 | c | Execute Discrete,Above_Bound 068e 7010 |p | Jump_Nonzero 0x69f 068f e5fd | | Load 0x2,-0x3 0690 0a01 | | Execute_Immediate Plus,0x1 0691 00d8 | | Load_Top At_Offset_0 0692 00e3 | | Load_Encached Natural_Cache 0693 0260 | ` | Execute Discrete,In_Type 0694 7001 |p | Jump_Nonzero 0x696 0695 0801 | | Execute_Immediate Raise,0x1 0696 00d9 | | Load_Top At_Offset_1 0697 e5fe | | Load 0x2,-0x2 0698 01d7 | | Execute Vector,Field_Read 0699 00da | | Load_Top At_Offset_2 069a 00e0 | | Load_Encached Standard_Cache 069b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 069c 8231 | 1 | Call 0x1,0x31 069d 00c8 | | Action Pop_Auxiliary_Range 069e 3ff0 |? | Loop_Increasing 0x68f 069f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a3 | | .CONST 0x06a3 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0001 | | .CONST 0x0001 ; Number of locals 06a3 BODY_06a0: 06a3 INIT_06a0: 06a3 00db | | Load_Top At_Offset_3 06a4 e215 | | Load 0x1,0x15 06a5 180f | | Execute Package,Field_Execute,Field_Number 0xf 06a6 6801 |h | Jump_Zero 0x6a8 06a7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06a8 00da | | Load_Top At_Offset_2 06a9 e5fd | | Load 0x2,-0x3 06aa 8217 | | Call 0x1,0x17 06ab e5fd | | Load 0x2,-0x3 06ac 0a01 | | Execute_Immediate Plus,0x1 06ad 00d8 | | Load_Top At_Offset_0 06ae 00e3 | | Load_Encached Natural_Cache 06af 0260 | ` | Execute Discrete,In_Type 06b0 7001 |p | Jump_Nonzero 0x6b2 06b1 0801 | | Execute_Immediate Raise,0x1 06b2 e5fe | | Load 0x2,-0x2 06b3 e215 | | Load 0x1,0x15 06b4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06b5 0092 089f | | Action Push_String_Extended,0x89f ; "Valid Valued Objects" 06b7 8226 | & | Call 0x1,0x26 06b8 e5fd | | Load 0x2,-0x3 06b9 0a01 | | Execute_Immediate Plus,0x1 06ba 00d8 | | Load_Top At_Offset_0 06bb 00e3 | | Load_Encached Natural_Cache 06bc 0260 | ` | Execute Discrete,In_Type 06bd 7001 |p | Jump_Nonzero 0x6bf 06be 0801 | | Execute_Immediate Raise,0x1 06bf e5fe | | Load 0x2,-0x2 06c0 e215 | | Load 0x1,0x15 06c1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 06c2 0092 08a0 | | Action Push_String_Extended,0x8a0 ; "Valid Miscellaneous Objects" 06c4 8227 | ' | Call 0x1,0x27 06c5 e5fd | | Load 0x2,-0x3 06c6 0a01 | | Execute_Immediate Plus,0x1 06c7 00d8 | | Load_Top At_Offset_0 06c8 00e3 | | Load_Encached Natural_Cache 06c9 0260 | ` | Execute Discrete,In_Type 06ca 7001 |p | Jump_Nonzero 0x6cc 06cb 0801 | | Execute_Immediate Raise,0x1 06cc e5fe | | Load 0x2,-0x2 06cd e215 | | Load 0x1,0x15 06ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06cf 0092 08a1 | | Action Push_String_Extended,0x8a1 ; "Valid Type Objects" 06d1 8222 | " | Call 0x1,0x22 06d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06d3 0000 0000 | | .BLANK 0000[0x5] 06d8 ; -------------------------------------------------------------------------------------- 06d8 ; SUBPROGRAM 06d8 ; -------------------------------------------------------------------------------------- 06d8 06de | | .CONST 0x06de ; Address of begin 06d9 0004 | | .CONST 0x0004 ; Address of exception handler 06da 0003 | | .CONST 0x0003 ; Number of locals 06db INIT_06d8: 06db e215 | | Load 0x1,0x15 06dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06dd 00e1 | | Load_Encached Boolean_Cache 06de BODY_06d8: 06de e5fe | | Load 0x2,-0x2 06df e215 | | Load 0x1,0x15 06e0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06e1 6801 |h | Jump_Zero 0x6e3 06e2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06e3 e5ff | | Load 0x2,-0x1 06e4 e5fd | | Load 0x2,-0x3 06e5 8217 | | Call 0x1,0x17 06e6 e5fe | | Load 0x2,-0x2 06e7 e215 | | Load 0x1,0x15 06e8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 06e9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 06ea 00d9 | | Load_Top At_Offset_1 06eb e215 | | Load 0x1,0x15 06ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06ed 011c | | Execute Any,Convert_Unchecked 06ee 1c01 | | Execute_Immediate Run_Utility,0x1 06ef 0092 08a2 | | Action Push_String_Extended,0x8a2 ; "Kind" 06f1 e5fd | | Load 0x2,-0x3 06f2 0a01 | | Execute_Immediate Plus,0x1 06f3 00d8 | | Load_Top At_Offset_0 06f4 00e3 | | Load_Encached Natural_Cache 06f5 0260 | ` | Execute Discrete,In_Type 06f6 7001 |p | Jump_Nonzero 0x6f8 06f7 0801 | | Execute_Immediate Raise,0x1 06f8 821a | | Call 0x1,0x1a 06f9 e5fe | | Load 0x2,-0x2 06fa e215 | | Load 0x1,0x15 06fb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 06fc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 06fd 00d8 | | Load_Top At_Offset_0 06fe 00e1 | | Load_Encached Boolean_Cache 06ff 011c | | Execute Any,Convert_Unchecked 0700 1c01 | | Execute_Immediate Run_Utility,0x1 0701 0092 08a3 | | Action Push_String_Extended,0x8a3 ; "Is Prefix Type" 0703 e5fd | | Load 0x2,-0x3 0704 0a01 | | Execute_Immediate Plus,0x1 0705 00d8 | | Load_Top At_Offset_0 0706 00e3 | | Load_Encached Natural_Cache 0707 0260 | ` | Execute Discrete,In_Type 0708 7001 |p | Jump_Nonzero 0x70a 0709 0801 | | Execute_Immediate Raise,0x1 070a 821a | | Call 0x1,0x1a 070b 00d9 | | Load_Top At_Offset_1 070c 0f01 | | Execute_Immediate Equal,0x1 070d 7011 |p | Jump_Nonzero 0x71f 070e 7800 |x | Jump 0x70f 070f 00d8 | | Load_Top At_Offset_0 0710 0f01 | | Execute_Immediate Equal,0x1 0711 700d |p | Jump_Nonzero 0x71f 0712 e5fe | | Load 0x2,-0x2 0713 e215 | | Load 0x1,0x15 0714 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0715 0092 088a | | Action Push_String_Extended,0x88a ; "Name" 0717 e5fd | | Load 0x2,-0x3 0718 0a01 | | Execute_Immediate Plus,0x1 0719 00d8 | | Load_Top At_Offset_0 071a 00e3 | | Load_Encached Natural_Cache 071b 0260 | ` | Execute Discrete,In_Type 071c 7001 |p | Jump_Nonzero 0x71e 071d 0801 | | Execute_Immediate Raise,0x1 071e 821a | | Call 0x1,0x1a 071f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 0724 | $ | .CONST 0x0724 ; Address of begin 0721 0004 | | .CONST 0x0004 ; Address of exception handler 0722 0002 | | .CONST 0x0002 ; Number of locals 0723 INIT_0720: 0723 00e1 | | Load_Encached Boolean_Cache 0724 BODY_0720: 0724 e5fe | | Load 0x2,-0x2 0725 e215 | | Load 0x1,0x15 0726 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0727 6801 |h | Jump_Zero 0x729 0728 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0729 00db | | Load_Top At_Offset_3 072a e5fd | | Load 0x2,-0x3 072b 8217 | | Call 0x1,0x17 072c e5fe | | Load 0x2,-0x2 072d e215 | | Load 0x1,0x15 072e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 072f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0730 00d8 | | Load_Top At_Offset_0 0731 00e1 | | Load_Encached Boolean_Cache 0732 011c | | Execute Any,Convert_Unchecked 0733 1c01 | | Execute_Immediate Run_Utility,0x1 0734 0092 08a3 | | Action Push_String_Extended,0x8a3 ; "Is Prefix Type" 0736 e5fd | | Load 0x2,-0x3 0737 0a01 | | Execute_Immediate Plus,0x1 0738 00d8 | | Load_Top At_Offset_0 0739 00e3 | | Load_Encached Natural_Cache 073a 0260 | ` | Execute Discrete,In_Type 073b 7001 |p | Jump_Nonzero 0x73d 073c 0801 | | Execute_Immediate Raise,0x1 073d 821a | | Call 0x1,0x1a 073e 00d8 | | Load_Top At_Offset_0 073f 700d |p | Jump_Nonzero 0x74d 0740 e5fd | | Load 0x2,-0x3 0741 0a01 | | Execute_Immediate Plus,0x1 0742 00d8 | | Load_Top At_Offset_0 0743 00e3 | | Load_Encached Natural_Cache 0744 0260 | ` | Execute Discrete,In_Type 0745 7001 |p | Jump_Nonzero 0x747 0746 0801 | | Execute_Immediate Raise,0x1 0747 e5fe | | Load 0x2,-0x2 0748 e215 | | Load 0x1,0x15 0749 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 074a 0092 08a4 | | Action Push_String_Extended,0x8a4 ; "Function Parameter" 074c 8225 | % | Call 0x1,0x25 074d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 074e 0000 0000 | | .XXX[0x2] 0750 ; -------------------------------------------------------------------------------------- 0750 ; SUBPROGRAM 0750 ; -------------------------------------------------------------------------------------- 0750 0753 | S | .CONST 0x0753 ; Address of begin 0751 0004 | | .CONST 0x0004 ; Address of exception handler 0752 0001 | | .CONST 0x0001 ; Number of locals 0753 BODY_0750: 0753 INIT_0750: 0753 00db | | Load_Top At_Offset_3 0754 e215 | | Load 0x1,0x15 0755 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0756 6801 |h | Jump_Zero 0x758 0757 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0758 00da | | Load_Top At_Offset_2 0759 e5fd | | Load 0x2,-0x3 075a 8217 | | Call 0x1,0x17 075b e5fd | | Load 0x2,-0x3 075c 0a01 | | Execute_Immediate Plus,0x1 075d 00d8 | | Load_Top At_Offset_0 075e 00e3 | | Load_Encached Natural_Cache 075f 0260 | ` | Execute Discrete,In_Type 0760 7001 |p | Jump_Nonzero 0x762 0761 0801 | | Execute_Immediate Raise,0x1 0762 e5fe | | Load 0x2,-0x2 0763 e215 | | Load 0x1,0x15 0764 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0765 0092 08a5 | | Action Push_String_Extended,0x8a5 ; "Prefix" 0767 8233 | 3 | Call 0x1,0x33 0768 e5fd | | Load 0x2,-0x3 0769 0a01 | | Execute_Immediate Plus,0x1 076a 00d8 | | Load_Top At_Offset_0 076b 00e3 | | Load_Encached Natural_Cache 076c 0260 | ` | Execute Discrete,In_Type 076d 7001 |p | Jump_Nonzero 0x76f 076e 0801 | | Execute_Immediate Raise,0x1 076f e5fe | | Load 0x2,-0x2 0770 e215 | | Load 0x1,0x15 0771 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0772 0092 08a6 | | Action Push_String_Extended,0x8a6 ; "Result" 0774 8234 | 4 | Call 0x1,0x34 0775 e5fd | | Load 0x2,-0x3 0776 0a01 | | Execute_Immediate Plus,0x1 0777 00d8 | | Load_Top At_Offset_0 0778 00e3 | | Load_Encached Natural_Cache 0779 0260 | ` | Execute Discrete,In_Type 077a 7001 |p | Jump_Nonzero 0x77c 077b 0801 | | Execute_Immediate Raise,0x1 077c e5fe | | Load 0x2,-0x2 077d e215 | | Load 0x1,0x15 077e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 077f 0092 08a7 | | Action Push_String_Extended,0x8a7 ; "Designator" 0781 8235 | 5 | Call 0x1,0x35 0782 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0783 0000 0000 | | .BLANK 0000[0x5] 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 078b | | .CONST 0x078b ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0001 | | .CONST 0x0001 ; Number of locals 078b BODY_0788: 078b INIT_0788: 078b 00db | | Load_Top At_Offset_3 078c e215 | | Load 0x1,0x15 078d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 078e 01df | | Execute Vector,Equal 078f 6801 |h | Jump_Zero 0x791 0790 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0791 00da | | Load_Top At_Offset_2 0792 e5fd | | Load 0x2,-0x3 0793 8217 | | Call 0x1,0x17 0794 00cf | | Action Mark_Auxiliary 0795 e5fe | | Load 0x2,-0x2 0796 01d9 | | Execute Vector,Reverse_Bounds 0797 0263 | c | Execute Discrete,Above_Bound 0798 7010 |p | Jump_Nonzero 0x7a9 0799 e5fd | | Load 0x2,-0x3 079a 0a01 | | Execute_Immediate Plus,0x1 079b 00d8 | | Load_Top At_Offset_0 079c 00e3 | | Load_Encached Natural_Cache 079d 0260 | ` | Execute Discrete,In_Type 079e 7001 |p | Jump_Nonzero 0x7a0 079f 0801 | | Execute_Immediate Raise,0x1 07a0 00d9 | | Load_Top At_Offset_1 07a1 e5fe | | Load 0x2,-0x2 07a2 01d7 | | Execute Vector,Field_Read 07a3 00da | | Load_Top At_Offset_2 07a4 00e0 | | Load_Encached Standard_Cache 07a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 07a6 8236 | 6 | Call 0x1,0x36 07a7 00c8 | | Action Pop_Auxiliary_Range 07a8 3ff0 |? | Loop_Increasing 0x799 07a9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07aa 0000 0000 | | .BLANK 0000[0x6] 07b0 ; -------------------------------------------------------------------------------------- 07b0 ; SUBPROGRAM 07b0 ; -------------------------------------------------------------------------------------- 07b0 07b3 | | .CONST 0x07b3 ; Address of begin 07b1 0004 | | .CONST 0x0004 ; Address of exception handler 07b2 0001 | | .CONST 0x0001 ; Number of locals 07b3 BODY_07b0: 07b3 INIT_07b0: 07b3 00db | | Load_Top At_Offset_3 07b4 e216 | | Load 0x1,0x16 07b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07b6 6801 |h | Jump_Zero 0x7b8 07b7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07b8 00da | | Load_Top At_Offset_2 07b9 e5fd | | Load 0x2,-0x3 07ba 8217 | | Call 0x1,0x17 07bb e5fd | | Load 0x2,-0x3 07bc 0a01 | | Execute_Immediate Plus,0x1 07bd 00d8 | | Load_Top At_Offset_0 07be 00e3 | | Load_Encached Natural_Cache 07bf 0260 | ` | Execute Discrete,In_Type 07c0 7001 |p | Jump_Nonzero 0x7c2 07c1 0801 | | Execute_Immediate Raise,0x1 07c2 e5fe | | Load 0x2,-0x2 07c3 e216 | | Load 0x1,0x16 07c4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 07c5 0092 08a8 | | Action Push_String_Extended,0x8a8 ; "Address Clause Data" 07c7 8226 | & | Call 0x1,0x26 07c8 e5fd | | Load 0x2,-0x3 07c9 0a01 | | Execute_Immediate Plus,0x1 07ca 00d8 | | Load_Top At_Offset_0 07cb 00e3 | | Load_Encached Natural_Cache 07cc 0260 | ` | Execute Discrete,In_Type 07cd 7001 |p | Jump_Nonzero 0x7cf 07ce 0801 | | Execute_Immediate Raise,0x1 07cf e5fe | | Load 0x2,-0x2 07d0 e216 | | Load 0x1,0x16 07d1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07d2 0092 08a0 | | Action Push_String_Extended,0x8a0 ; "Valid Miscellaneous Objects" 07d4 8227 | ' | Call 0x1,0x27 07d5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07d6 0000 0000 | | .XXX[0x2] 07d8 ; -------------------------------------------------------------------------------------- 07d8 ; SUBPROGRAM 07d8 ; -------------------------------------------------------------------------------------- 07d8 07db | | .CONST 0x07db ; Address of begin 07d9 0004 | | .CONST 0x0004 ; Address of exception handler 07da 0001 | | .CONST 0x0001 ; Number of locals 07db BODY_07d8: 07db INIT_07d8: 07db 00db | | Load_Top At_Offset_3 07dc e216 | | Load 0x1,0x16 07dd 1819 | | Execute Package,Field_Execute,Field_Number 0x19 07de 6801 |h | Jump_Zero 0x7e0 07df 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07e0 00da | | Load_Top At_Offset_2 07e1 e5fd | | Load 0x2,-0x3 07e2 8217 | | Call 0x1,0x17 07e3 00db | | Load_Top At_Offset_3 07e4 e216 | | Load 0x1,0x16 07e5 181b | | Execute Package,Field_Execute,Field_Number 0x1b 07e6 0092 08a9 | | Action Push_String_Extended,0x8a9 ; "Allowed For Tasks" 07e8 e5fd | | Load 0x2,-0x3 07e9 0a01 | | Execute_Immediate Plus,0x1 07ea 00d8 | | Load_Top At_Offset_0 07eb 00e3 | | Load_Encached Natural_Cache 07ec 0260 | ` | Execute Discrete,In_Type 07ed 7001 |p | Jump_Nonzero 0x7ef 07ee 0801 | | Execute_Immediate Raise,0x1 07ef 8218 | | Call 0x1,0x18 07f0 00db | | Load_Top At_Offset_3 07f1 e216 | | Load 0x1,0x16 07f2 181c | | Execute Package,Field_Execute,Field_Number 0x1c 07f3 0092 08aa | | Action Push_String_Extended,0x8aa ; "Allowed For Access Types" 07f5 e5fd | | Load 0x2,-0x3 07f6 0a01 | | Execute_Immediate Plus,0x1 07f7 00d8 | | Load_Top At_Offset_0 07f8 00e3 | | Load_Encached Natural_Cache 07f9 0260 | ` | Execute Discrete,In_Type 07fa 7001 |p | Jump_Nonzero 0x7fc 07fb 0801 | | Execute_Immediate Raise,0x1 07fc 8218 | | Call 0x1,0x18 07fd 00db | | Load_Top At_Offset_3 07fe e216 | | Load 0x1,0x16 07ff 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0800 0092 08ab | | Action Push_String_Extended,0x8ab ; "Allowed With Size Specs" 0802 e5fd | | Load 0x2,-0x3 0803 0a01 | | Execute_Immediate Plus,0x1 0804 00d8 | | Load_Top At_Offset_0 0805 00e3 | | Load_Encached Natural_Cache 0806 0260 | ` | Execute Discrete,In_Type 0807 7001 |p | Jump_Nonzero 0x809 0808 0801 | | Execute_Immediate Raise,0x1 0809 8218 | | Call 0x1,0x18 080a 00db | | Load_Top At_Offset_3 080b e216 | | Load 0x1,0x16 080c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 080d e005 | | Load 0x0,0x5 080e 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 080f 0092 08ac | | Action Push_String_Extended,0x8ac ; "Task Upper Bound" 0811 e5fd | | Load 0x2,-0x3 0812 0a01 | | Execute_Immediate Plus,0x1 0813 00d8 | | Load_Top At_Offset_0 0814 00e3 | | Load_Encached Natural_Cache 0815 0260 | ` | Execute Discrete,In_Type 0816 7001 |p | Jump_Nonzero 0x818 0817 0801 | | Execute_Immediate Raise,0x1 0818 821a | | Call 0x1,0x1a 0819 00db | | Load_Top At_Offset_3 081a e216 | | Load 0x1,0x16 081b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 081c e005 | | Load 0x0,0x5 081d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 081e 0092 08ad | | Action Push_String_Extended,0x8ad ; "Access Upper Bound" 0820 e5fd | | Load 0x2,-0x3 0821 0a01 | | Execute_Immediate Plus,0x1 0822 00d8 | | Load_Top At_Offset_0 0823 00e3 | | Load_Encached Natural_Cache 0824 0260 | ` | Execute Discrete,In_Type 0825 7001 |p | Jump_Nonzero 0x827 0826 0801 | | Execute_Immediate Raise,0x1 0827 821a | | Call 0x1,0x1a 0828 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0829 0000 0000 | | .BLANK 0000[0x7] 0830 ; -------------------------------------------------------------------------------------- 0830 ; SUBPROGRAM 0830 ; -------------------------------------------------------------------------------------- 0830 0847 | G | .CONST 0x0847 ; Address of begin 0831 0004 | | .CONST 0x0004 ; Address of exception handler 0832 0010 | | .CONST 0x0010 ; Number of locals 0833 INIT_0830: 0833 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0834 029a 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call,Visible,Unelaborated 0836 029a 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call,Visible,Unelaborated 0838 00e4 | | Load_Encached Positive_Cache 0839 0266 | f | Execute Discrete,Bounds 083a e20d | | Load 0x1,0xd 083b 02a0 | | Declare_Subprogram Null_Subprogram 083c 4801 |H | Short_Literal 0x1 083d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 083e 00e9 | | Load_Encached String_Cache 083f 02a0 | | Declare_Subprogram Null_Subprogram 0840 e20d | | Load 0x1,0xd 0841 03a3 | | Complete_Type Heap_Access,By_Defining 0842 00bf | | Action Accept_Activation 0843 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0844 00c7 | | Action Elaborate_Subprogram 0845 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0846 00c7 | | Action Elaborate_Subprogram 0847 BODY_0830: 0847 00bc | | Action Signal_Activated 0848 00bb | | Action Signal_Completion 0849 0000 0000 | | .BLANK 0000[0x7] 0850 ; -------------------------------------------------------------------------------------- 0850 ; SUBPROGRAM 0850 ; -------------------------------------------------------------------------------------- 0850 0853 | S | .CONST 0x0853 ; Address of begin 0851 085a | Z | .CONST 0x085a ; Address of exception handler 0852 0001 | | .CONST 0x0001 ; Number of locals 0853 BODY_0850: 0853 INIT_0850: 0853 00da | | Load_Top At_Offset_2 0854 e20d | | Load 0x1,0xd 0855 e5fe | | Load 0x2,-0x2 0856 e001 | | Load 0x0,0x1 0857 180f | | Execute Package,Field_Execute,Field_Number 0xf 0858 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0859 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 085a TRAP_0850: 085a e001 | | Load 0x0,0x1 085b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 085c 010f | | Execute Exception,Equal 085d 6803 |h | Jump_Zero 0x861 085e e002 | | Load 0x0,0x2 085f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0860 0257 | W | Execute Discrete,Raise 0861 e001 | | Load 0x0,0x1 0862 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0863 010f | | Execute Exception,Equal 0864 6803 |h | Jump_Zero 0x868 0865 e002 | | Load 0x0,0x2 0866 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0867 0257 | W | Execute Discrete,Raise 0868 0100 | | Execute Exception,Raise 0869 0000 0000 | | .BLANK 0000[0x7] 0870 ; -------------------------------------------------------------------------------------- 0870 ; SUBPROGRAM 0870 ; -------------------------------------------------------------------------------------- 0870 0873 | s | .CONST 0x0873 ; Address of begin 0871 0004 | | .CONST 0x0004 ; Address of exception handler 0872 0001 | | .CONST 0x0001 ; Number of locals 0873 BODY_0870: 0873 INIT_0870: 0873 00da | | Load_Top At_Offset_2 0874 0217 | | Execute Heap_Access,All_Reference 0875 0335 | 5 | Declare_Variable Array,Duplicate 0876 00cd | | Action Spare6_Action 0877 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0878 ; -------------------------------------------------------------------------------------- 0878 ; STRING TABLE 0878 ; -------------------------------------------------------------------------------------- 0878 006e | n | .STRTAB 0x006e->0x08af ; " => " 0879 0070 | p | .STRTAB 0x0070->0x08b1 ; "Enforced Type Restrictions" 087a 0088 | | .STRTAB 0x0088->0x08be ; "Valid Structural Types" 087b 009c | | .STRTAB 0x009c->0x08c9 ; "Valid Textual Types" 087c 00ad | | .STRTAB 0x00ad->0x08d2 ; "Required Pragmas" 087d 00bb | | .STRTAB 0x00bb->0x08da ; "Prohibited Pragmas" 087e 00cb | | .STRTAB 0x00cb->0x08e3 ; "Form" 087f 00cd | | .STRTAB 0x00cd->0x08e5 ; "Real Lo" 0880 00d2 | | .STRTAB 0x00d2->0x08e9 ; "Real Hi" 0881 00d7 | | .STRTAB 0x00d7->0x08ec ; "Integer Lo" 0882 00df | | .STRTAB 0x00df->0x08f1 ; "Integer Hi" 0883 00e7 | | .STRTAB 0x00e7->0x08f6 ; "Must Be Static" 0884 00f3 | | .STRTAB 0x00f3->0x08fd ; "Range Data" 0885 00fb | | .STRTAB 0x00fb->0x0902 ; "Expression Types" 0886 0109 | | .STRTAB 0x0109->0x090a ; "Constraint" 0887 0111 | | .STRTAB 0x0111->0x090f ; "Ambiguity Allowed" 0888 0120 | | .STRTAB 0x0120->0x0918 ; "Valid Kinds" 0889 0129 | ) | .STRTAB 0x0129->0x091d ; "prohibited Pragmas" 088a 0139 | 9 | .STRTAB 0x0139->0x0926 ; "Name" 088b 013b | ; | .STRTAB 0x013b->0x0928 ; "Size" 088c 013d | = | .STRTAB 0x013d->0x092a ; "Lo Bound" 088d 0143 | C | .STRTAB 0x0143->0x092e ; "Hi Bound" 088e 0149 | I | .STRTAB 0x0149->0x0932 ; "Digits" 088f 014d | M | .STRTAB 0x014d->0x0935 ; "Machine Emax" 0890 0157 | W | .STRTAB 0x0157->0x093b ; "Machine Emin" 0891 0161 | a | .STRTAB 0x0161->0x0941 ; "Machine Radix" 0892 016c | l | .STRTAB 0x016c->0x0948 ; "Machine Mantissa" 0893 017a | z | .STRTAB 0x017a->0x0950 ; "Machine Rounds" 0894 0186 | | .STRTAB 0x0186->0x0957 ; "Machine Overflows" 0895 0195 | | .STRTAB 0x0195->0x095f ; "Scale" 0896 0198 | | .STRTAB 0x0198->0x0962 ; "Is Name" 0897 019d | | .STRTAB 0x019d->0x0965 ; "Valid Expressions" 0898 01ac | | .STRTAB 0x01ac->0x096e ; "Valid Objects" 0899 01b7 | | .STRTAB 0x01b7->0x0974 ; "Valid Miscellaneous Names" 089a 01ce | | .STRTAB 0x01ce->0x0981 ; "Valid Types" 089b 01d7 | | .STRTAB 0x01d7->0x0986 ; "Valid Special Identifiers" 089c 01ee | | .STRTAB 0x01ee->0x0993 ; "Valid Locations" 089d 01fb | | .STRTAB 0x01fb->0x099a ; "Arguments" 089e 0202 | | .STRTAB 0x0202->0x099f ; "Last Required Argument" 089f 0216 | | .STRTAB 0x0216->0x09aa ; "Valid Valued Objects" 08a0 0228 | ( | .STRTAB 0x0228->0x09b4 ; "Valid Miscellaneous Objects" 08a1 0241 | A | .STRTAB 0x0241->0x09c1 ; "Valid Type Objects" 08a2 0251 | Q | .STRTAB 0x0251->0x09ca ; "Kind" 08a3 0253 | S | .STRTAB 0x0253->0x09cc ; "Is Prefix Type" 08a4 025f | _ | .STRTAB 0x025f->0x09d3 ; "Function Parameter" 08a5 026f | o | .STRTAB 0x026f->0x09dc ; "Prefix" 08a6 0273 | s | .STRTAB 0x0273->0x09df ; "Result" 08a7 0277 | w | .STRTAB 0x0277->0x09e2 ; "Designator" 08a8 027f | | .STRTAB 0x027f->0x09e7 ; "Address Clause Data" 08a9 0290 | | .STRTAB 0x0290->0x09f1 ; "Allowed For Tasks" 08aa 029f | | .STRTAB 0x029f->0x09f9 ; "Allowed For Access Types" 08ab 02b5 | | .STRTAB 0x02b5->0x0a05 ; "Allowed With Size Specs" 08ac 02ca | | .STRTAB 0x02ca->0x0a11 ; "Task Upper Bound" 08ad 02d8 | | .STRTAB 0x02d8->0x0a19 ; "Access Upper Bound" 08ae 02e8 | | .STREND 0x02e8->0x0a22 08af 203d 3e20 | => | .STRTAB_STRINGS 0a22 0000 0000 | | .BLANK 0000[0x6] 0a28 ; -------------------------------------------------------------------------------------- 0a28 ; Debug Table 0a28 ; -------------------------------------------------------------------------------------- 0a28 0004 000d | | .DEBUG4 0x0004,0x000d,0x50a8,0x0000,0x0001,0x0000 0a2e 0000 0000 | | .BLANK 0000[0xb7] 0ae5 0213 0800 | | .XXX[0x3] 0ae7 5689 |V | 0ae8 0000 0000 | | .BLANK 0000[0x4] 0aec 0208 7c00 | | | .XXX[0x11] 0aee 5689 0000 |V | 0af0 0000 067a | z| 0af2 8001 a1ca | | 0af4 000a 8c14 | | 0af6 8019 d8c0 | | 0af8 0684 9003 | | 0afa 9000 01a1 | | 0afc ca00 | | 0afd 0000 0000 | | .BLANK 0000[0x5] 0b02 cf50 0001 | P | .XXX[0x43] 0b04 0630 6200 | 0b | 0b06 0000 0000 | | 0b08 0000 a0c6 | | 0b0a 08e0 0681 | | 0b0c f800 0000 | | 0b0e 0c11 f000 | | 0b10 cec6 0000 | | 0b12 0000 0d6d | m| 0b14 0003 6374 | ct| 0b16 0010 0035 | 5| 0b18 a6e0 8800 | | 0b1a 06b6 8001 | | 0b1c a5d4 0069 | i| 0b1e 0a00 1a51 | Q| 0b20 6000 49d8 |` I | 0b22 b801 a314 | | 0b24 0000 0000 | | 0b26 6e00 0000 |n | 0b28 0010 8930 | 0| 0b2a 0346 2800 | F( | 0b2c 0000 0000 | | 0b2e 0020 ec0b | | 0b30 4000 0000 |@ | 0b32 002c 18f4 | , | 0b34 00d6 d000 | | 0b36 3596 000d |5 | 0b38 3d10 0355 |= U| 0b3a a400 0000 | | 0b3c 0002 460b | F | 0b3e 000d 32d0 | 2 | 0b40 0354 5801 | TX | 0b42 b000 00d5 | | 0b44 6900 |i | 0b45 0000 0000 | | .BLANK 0000[0x5] 0b4a 69e8 8001 |i | .XXX[0x16] 0b4c 8080 0e00 | | 0b4e 0000 0000 | | 0b50 033d 420c | =B | 0b52 608e 006a |` j| 0b54 6000 0000 |` | 0b56 0140 5ec0 | @^ | 0b58 0d32 d000 | 2 | 0b5a 0000 00d5 | | 0b5c c886 4a00 | J | 0b5e 1aad 2000 | | 0b60 0000 0000 | | .BLANK 0000[0x5] 0b65 0083 b02d | -| .XXX[0x1d] 0b67 0000 001f | | 0b69 ff90 0000 | | 0b6b 0000 d32d | -| 0b6d 8646 001a | F | 0b6f 1ca0 0000 | | 0b71 0001 a2de | | 0b73 0001 aec0 | | 0b75 0008 0000 | | 0b77 0001 0000 | | 0b79 d7a0 0000 | | 0b7b 0000 0000 | | 0b7d 0003 0000 | | 0b7f 0000 0000 | | 0b81 d840 | @ | 0b82 0000 0000 | | .BLANK 0000[0x7] 0b89 d8a0 0000 | | .XXX[0x8] 0b8b 1a7a 2000 | z | 0b8d 0004 3230 | 20| 0b8f 00d0 e500 | | 0b91 0000 0000 | | .BLANK 0000[0x5] 0b96 0004 2654 | &T| .XXX[0x4] 0b98 00ad 1200 | | 0b9a 0000 0000 | | .BLANK 0000[0x5] 0b9f 0008 0000 | | .XXX[0x3] 0ba1 0806 | | 0ba2 0000 0000 | | .BLANK 0000[0xf] 0bb1 0004 18c0 | | .XXX[0x17] 0bb3 6800 0000 |h | 0bb5 0000 d9dd | | 0bb7 8318 2e80 | . | 0bb9 1b63 a000 | c | 0bbb 0003 3098 | 0 | 0bbd 05c0 036d | m| 0bbf c000 0c77 | w| 0bc1 1601 4200 | B | 0bc3 5000 0000 |P | 0bc5 0000 0371 | q| 0bc7 d800 | | 0bc8 0000 0000 | | .BLANK 0000[0x38]