|
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: 4096 (0x1000) Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 06e8 | | .CONST 0x06e8 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0106 | | .CONST 0x0106 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0029 | ) | .CONST 0x0029 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x0762,0x8000,0x0000,0x005a,0x4085,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 481e |H | Short_Literal 0x1e 000d 029f 010b | | Declare_Subprogram INIT_0108,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0x10,0xfffe 0011 480a |H | Short_Literal 0xa 0012 00da | | Load_Top At_Offset_2 0013 03f9 | | Declare_Type Discrete,Constrained,Visible 0014 480b |H | Short_Literal 0xb ; Debug Table 0x0.0x2 = 0x14,0xfffd 0015 481c |H | Short_Literal 0x1c 0016 00db | | Load_Top At_Offset_3 0017 03f9 | | Declare_Type Discrete,Constrained,Visible 0018 4811 |H | Short_Literal 0x11 ; Debug Table 0x0.0x3 = 0x18,0xfffc 0019 481c |H | Short_Literal 0x1c 001a e20d | | Load 0x1,0xd 001b 03f9 | | Declare_Type Discrete,Constrained,Visible 001c e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x4 = 0x1c,0xfffb 001d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001e 0129 | ) | Execute Any,Make_Visible 001f e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x5 = 0x1f,0xfffa 0020 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0021 0129 | ) | Execute Any,Make_Visible 0022 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x6 = 0x22,0xfff9 0023 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0024 0129 | ) | Execute Any,Make_Visible 0025 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x7 = 0x25,0xfff8 0026 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0027 0129 | ) | Execute Any,Make_Visible 0028 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x8 = 0x28,0xfff7 0029 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002a 0129 | ) | Execute Any,Make_Visible 002b e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x9 = 0x2b,0xfff6 002c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 002d 0129 | ) | Execute Any,Make_Visible 002e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xa = 0x2e,0xfff5 002f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0030 0129 | ) | Execute Any,Make_Visible 0031 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xb = 0x31,0xfff4 0032 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0033 0129 | ) | Execute Any,Make_Visible 0034 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xc = 0x34,0xfff3 0035 4806 |H | Short_Literal 0x6 0036 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 0038 03fe | | Declare_Type Discrete,Defined,Visible 0039 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xd = 0x39,0xfff2 003a 481f |H | Short_Literal 0x1f 003b 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 003d 03fe | | Declare_Type Discrete,Defined,Visible 003e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xe = 0x3e,0xfff1 003f 4806 |H | Short_Literal 0x6 0040 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0042 03fe | | Declare_Type Discrete,Defined,Visible 0043 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xf = 0x43,0xfff0 0044 480e |H | Short_Literal 0xe 0045 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 0047 03fe | | Declare_Type Discrete,Defined,Visible 0048 4fc0 |O | Short_Literal -0x40 ; Debug Table 0x0.0x10 = 0x48,0xffef 0049 483f |H? | Short_Literal 0x3f 004a e001 | | Load 0x0,0x1 004b 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 004c 03f9 | | Declare_Type Discrete,Constrained,Visible 004d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x11 = 0x4d,0xffee 004e 4801 |H | Short_Literal 0x1 004f e001 | | Load 0x0,0x1 0050 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0051 4801 |H | Short_Literal 0x1 0052 e001 | | Load 0x0,0x1 0053 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0054 4801 |H | Short_Literal 0x1 0055 e001 | | Load 0x0,0x1 0056 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0057 4801 |H | Short_Literal 0x1 0058 e001 | | Load 0x0,0x1 0059 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 005a 4801 |H | Short_Literal 0x1 005b e001 | | Load 0x0,0x1 005c 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 005d 4801 |H | Short_Literal 0x1 005e e001 | | Load 0x0,0x1 005f 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0060 4801 |H | Short_Literal 0x1 0061 e001 | | Load 0x0,0x1 0062 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0063 4801 |H | Short_Literal 0x1 0064 e001 | | Load 0x0,0x1 0065 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0066 4801 |H | Short_Literal 0x1 0067 e001 | | Load 0x0,0x1 0068 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0069 4801 |H | Short_Literal 0x1 006a e001 | | Load 0x0,0x1 006b 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 006c 4801 |H | Short_Literal 0x1 006d e002 | | Load 0x0,0x2 006e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006f 4801 |H | Short_Literal 0x1 0070 e001 | | Load 0x0,0x1 0071 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0072 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 0074 480c |H | Short_Literal 0xc 0075 4800 |H | Short_Literal 0x0 0076 480c |H | Short_Literal 0xc 0077 4800 |H | Short_Literal 0x0 0078 4801 |H | Short_Literal 0x1 0079 031e | | Declare_Type Variant_Record,Defined,Visible 007a 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0x12 = 0x7a,0xffed 007b 00e1 | | Load_Encached Boolean_Cache 007c 4801 |H | Short_Literal 0x1 007d 4800 |H | Short_Literal 0x0 007e e21e | | Load 0x1,0x1e 007f 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 0081 4801 |H | Short_Literal 0x1 0082 4800 |H | Short_Literal 0x0 0083 4800 |H | Short_Literal 0x0 0084 4801 |H | Short_Literal 0x1 0085 4801 |H | Short_Literal 0x1 0086 4802 |H | Short_Literal 0x2 0087 031e | | Declare_Type Variant_Record,Defined,Visible 0088 e20d | | Load 0x1,0xd ; Debug Table 0x0.0x13 = 0x88,0xffec 0089 4803 |H | Short_Literal 0x3 008a e211 | | Load 0x1,0x11 008b e212 | | Load 0x1,0x12 008c e001 | | Load 0x0,0x1 008d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 008e 4802 |H | Short_Literal 0x2 008f e211 | | Load 0x1,0x11 0090 e213 | | Load 0x1,0x13 0091 4802 |H | Short_Literal 0x2 0092 e211 | | Load 0x1,0x11 0093 e001 | | Load 0x0,0x1 0094 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0095 4802 |H | Short_Literal 0x2 0096 e214 | | Load 0x1,0x14 0097 e001 | | Load 0x0,0x1 0098 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0099 4801 |H | Short_Literal 0x1 009a e218 | | Load 0x1,0x18 009b 4802 |H | Short_Literal 0x2 009c e211 | | Load 0x1,0x11 009d e215 | | Load 0x1,0x15 009e 4802 |H | Short_Literal 0x2 009f e215 | | Load 0x1,0x15 00a0 e21f | | Load 0x1,0x1f 00a1 4803 |H | Short_Literal 0x3 00a2 e211 | | Load 0x1,0x11 00a3 e215 | | Load 0x1,0x15 00a4 e21f | | Load 0x1,0x1f 00a5 4805 |H | Short_Literal 0x5 00a6 e211 | | Load 0x1,0x11 00a7 e215 | | Load 0x1,0x15 00a8 e216 | | Load 0x1,0x16 00a9 e217 | | Load 0x1,0x17 00aa e21f | | Load 0x1,0x1f 00ab 4802 |H | Short_Literal 0x2 00ac e21f | | Load 0x1,0x1f 00ad e001 | | Load 0x0,0x1 00ae 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00af 4801 |H | Short_Literal 0x1 00b0 e21f | | Load 0x1,0x1f 00b1 4802 |H | Short_Literal 0x2 00b2 e211 | | Load 0x1,0x11 00b3 e21f | | Load 0x1,0x1f 00b4 4801 |H | Short_Literal 0x1 00b5 e219 | | Load 0x1,0x19 00b6 4802 |H | Short_Literal 0x2 00b7 e211 | | Load 0x1,0x11 00b8 e219 | | Load 0x1,0x19 00b9 4801 |H | Short_Literal 0x1 00ba e21a | | Load 0x1,0x1a 00bb 4801 |H | Short_Literal 0x1 00bc e21b | | Load 0x1,0x1b 00bd 4801 |H | Short_Literal 0x1 00be e21f | | Load 0x1,0x1f 00bf 4801 |H | Short_Literal 0x1 00c0 00e2 | | Load_Encached Integer_Cache 00c1 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 00c3 4822 |H" | Short_Literal 0x22 00c4 4800 |H | Short_Literal 0x0 00c5 4812 |H | Short_Literal 0x12 00c6 4800 |H | Short_Literal 0x0 00c7 4801 |H | Short_Literal 0x1 00c8 031e | | Declare_Type Variant_Record,Defined,Visible 00c9 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x14 = 0xc9,0xffeb 00ca 00a2 0358 | X| Action Push_Discrete_Extended 00cc 00e2 | | Load_Encached Integer_Cache 00cd 03f9 | | Declare_Type Discrete,Constrained,Visible 00ce 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x15 = 0xce,0xffea 00cf 4801 |H | Short_Literal 0x1 00d0 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call 00d2 03fe | | Declare_Type Discrete,Defined,Visible 00d3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x16 = 0xd3,0xffe9 00d4 4801 |H | Short_Literal 0x1 00d5 00db | | Load_Top At_Offset_3 00d6 4802 |H | Short_Literal 0x2 00d7 e221 | ! | Load 0x1,0x21 00d8 e221 | ! | Load 0x1,0x21 00d9 029f 037b | {| Declare_Subprogram INIT_0378,For_Call 00db 4803 |H | Short_Literal 0x3 00dc 4800 |H | Short_Literal 0x0 00dd 4802 |H | Short_Literal 0x2 00de 4800 |H | Short_Literal 0x0 00df 4801 |H | Short_Literal 0x1 00e0 031e | | Declare_Type Variant_Record,Defined,Visible 00e1 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x17 = 0xe1,0xffe8 00e2 480f |H | Short_Literal 0xf 00e3 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call 00e5 03fe | | Declare_Type Discrete,Defined,Visible 00e6 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x18 = 0xe6,0xffe7 00e7 4800 |H | Short_Literal 0x0 00e8 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call 00ea 03fe | | Declare_Type Discrete,Defined,Visible 00eb 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x19 = 0xeb,0xffe6 00ec 4801 |H | Short_Literal 0x1 00ed 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call 00ef 03fe | | Declare_Type Discrete,Defined,Visible 00f0 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x1a = 0xf0,0xffe5 00f1 4808 |H | Short_Literal 0x8 00f2 00e9 | | Load_Encached String_Cache 00f3 035c | \ | Declare_Type Array,Constrained,Visible 00f4 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0x1b = 0xf4,0xffe4 00f5 00e1 | | Load_Encached Boolean_Cache 00f6 00db | | Load_Top At_Offset_3 00f7 00db | | Load_Top At_Offset_3 00f8 02a0 | | Declare_Subprogram Null_Subprogram 00f9 4804 |H | Short_Literal 0x4 00fa 032e | . | Declare_Type Record,Defined,Visible 00fb e223 | # | Load 0x1,0x23 ; Debug Table 0x0.0x1c = 0xfb,0xffe3 00fc 00d9 | | Load_Top At_Offset_1 00fd 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call 00ff 4802 |H | Short_Literal 0x2 0100 032e | . | Declare_Type Record,Defined,Visible 0101 0007 | | Action Break_Optional ; Debug Table 0x0.0x1d = 0x101,0xffe2 0102 0007 | | Action Break_Optional ; Debug Table 0x0.0x1e = 0x102,0xffe1 0103 0007 | | Action Break_Optional ; Debug Table 0x0.0x1f = 0x103,0xffe0 0104 0007 | | Action Break_Optional ; Debug Table 0x0.0x20 = 0x104,0xffdf 0105 00bf | | Action Accept_Activation ; Debug Table 0x0.0x21 = 0x105,0xffde 0106 BODY_0008: 0106 00bc | | Action Signal_Activated 0107 00bb | | Action Signal_Completion 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x010b,0x07a8,0x0005,0x0000,0x005a,0x4085,0x0000,0x0008 010c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 010d 7802 |x | Jump 0x110 ; case 0x1 010e 7805 |x | Jump 0x114 ; case 0x2 010f 7809 |x | Jump 0x119 ; case 0x3 0110 00da | | Load_Top At_Offset_2 0111 0091 0409 | | Action Push_String_Extended_Indexed,0x409 ; "DECLARE_TYPE" 0113 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0114 00db | | Load_Top At_Offset_3 0115 00db | | Load_Top At_Offset_3 0116 00e0 | | Load_Encached Standard_Cache 0117 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0118 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0119 00da | | Load_Top At_Offset_2 011a 00e0 | | Load_Encached Standard_Cache 011b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 011c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x0123,0x07aa,0x0005,0x0000,0x005a,0x4085,0x0000,0x0070 0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0125 7802 |x | Jump 0x128 ; case 0x1 0126 7805 |x | Jump 0x12c ; case 0x2 0127 7809 |x | Jump 0x131 ; case 0x3 0128 00da | | Load_Top At_Offset_2 0129 0091 0428 | (| Action Push_String_Extended_Indexed,0x428 ; "AT_OFFSET_6" 012b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 012c 00db | | Load_Top At_Offset_3 012d 00db | | Load_Top At_Offset_3 012e 00e0 | | Load_Encached Standard_Cache 012f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0130 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0131 00da | | Load_Top At_Offset_2 0132 00e0 | | Load_Encached Standard_Cache 0133 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0134 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0135 0000 0000 | | .XXX[0x3] 0137 0000 | | 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x013b,0x07ac,0x0005,0x0000,0x005a,0x4085,0x0000,0x007b 013c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 013d 7802 |x | Jump 0x140 ; case 0x1 013e 7805 |x | Jump 0x144 ; case 0x2 013f 7809 |x | Jump 0x149 ; case 0x3 0140 00da | | Load_Top At_Offset_2 0141 0091 042f | /| Action Push_String_Extended_Indexed,0x42f ; "VALUE_00" 0143 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0144 00db | | Load_Top At_Offset_3 0145 00db | | Load_Top At_Offset_3 0146 00e0 | | Load_Encached Standard_Cache 0147 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0148 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0149 00da | | Load_Top At_Offset_2 014a 00e0 | | Load_Encached Standard_Cache 014b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 014c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x0153,0x07ae,0x0005,0x0000,0x005a,0x4085,0x0000,0x009f 0154 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0155 7802 |x | Jump 0x158 ; case 0x1 0156 7805 |x | Jump 0x15c ; case 0x2 0157 7809 |x | Jump 0x161 ; case 0x3 0158 00da | | Load_Top At_Offset_2 0159 0091 044f | O| Action Push_String_Extended_Indexed,0x44f ; "POP_COUNT_1" 015b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 015c 00db | | Load_Top At_Offset_3 015d 00db | | Load_Top At_Offset_3 015e 00e0 | | Load_Encached Standard_Cache 015f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0160 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0161 00da | | Load_Top At_Offset_2 0162 00e0 | | Load_Encached Standard_Cache 0163 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0164 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 4603 |F | Jump_Case 0x4 ; Debug Table 0x5 = .DEBUG 0x016b,0x07b0,0x0005,0x0000,0x005a,0x4085,0x0000,0x00aa 016c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 016d 7802 |x | Jump 0x170 ; case 0x1 016e 7805 |x | Jump 0x174 ; case 0x2 016f 7809 |x | Jump 0x179 ; case 0x3 0170 00da | | Load_Top At_Offset_2 0171 0091 0456 | V| Action Push_String_Extended_Indexed,0x456 ; "LEX_LEVEL_DELTA" 0173 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0174 00db | | Load_Top At_Offset_3 0175 00db | | Load_Top At_Offset_3 0176 00e0 | | Load_Encached Standard_Cache 0177 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0178 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0179 00da | | Load_Top At_Offset_2 017a 00e0 | | Load_Encached Standard_Cache 017b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 017c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 4608 |F | Jump_Case 0x9 ; Debug Table 0x6 = .DEBUG 0x0183,0x07b2,0x0005,0x0000,0x005a,0x4085,0x0000,0x00d3 0184 7808 |x | Jump 0x18d ; case 0x0 0185 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0186 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0187 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0188 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0189 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 018a 7824 |x$ | Jump 0x1af ; case 0x6 018b 784c |xL | Jump 0x1d8 ; case 0x7 018c 7877 |xw | Jump 0x204 ; case 0x8 018d 00da | | Load_Top At_Offset_2 018e 016c | l | Execute Variant_Record,Is_Constrained 018f 7009 |p | Jump_Nonzero 0x199 0190 00cf | | Action Mark_Auxiliary 0191 480c |H | Short_Literal 0xc 0192 e5ff | | Load 0x2,-0x1 0193 1c08 | | Execute_Immediate Run_Utility,0x8 0194 00d8 | | Load_Top At_Offset_0 0195 1c00 | | Execute_Immediate Run_Utility,0x0 0196 c5ff | | Store 0x2,-0x1 0197 00ce | | Action Pop_Auxiliary 0198 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0199 00da | | Load_Top At_Offset_2 019a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 019b 460e |F | Jump_Case 0xf 019c 780e |x | Jump 0x1ab ; case 0x0 019d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 019e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 019f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 01a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 01a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 01a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 01a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 01a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 01a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x9 01a6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xa 01a7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xb 01a8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xc 01a9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xd 01aa 7800 |x | Jump 0x1ab ; case 0xe 01ab 00da | | Load_Top At_Offset_2 01ac 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 01ad 1c00 | | Execute_Immediate Run_Utility,0x0 01ae 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01af 00db | | Load_Top At_Offset_3 01b0 460e |F | Jump_Case 0xf 01b1 780e |x | Jump 0x1c0 ; case 0x0 01b2 780f |x | Jump 0x1c2 ; case 0x1 01b3 7810 |x | Jump 0x1c4 ; case 0x2 01b4 7811 |x | Jump 0x1c6 ; case 0x3 01b5 7812 |x | Jump 0x1c8 ; case 0x4 01b6 7813 |x | Jump 0x1ca ; case 0x5 01b7 7814 |x | Jump 0x1cc ; case 0x6 01b8 7817 |x | Jump 0x1d0 ; case 0x7 01b9 7818 |x | Jump 0x1d2 ; case 0x8 01ba 7813 |x | Jump 0x1ce ; case 0x9 01bb 7814 |x | Jump 0x1d0 ; case 0xa 01bc 7815 |x | Jump 0x1d2 ; case 0xb 01bd 7816 |x | Jump 0x1d4 ; case 0xc 01be 7817 |x | Jump 0x1d6 ; case 0xd 01bf 7800 |x | Jump 0x1c0 ; case 0xe 01c0 4801 |H | Short_Literal 0x1 01c1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c2 4802 |H | Short_Literal 0x2 01c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c4 4803 |H | Short_Literal 0x3 01c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c6 4804 |H | Short_Literal 0x4 01c7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c8 4805 |H | Short_Literal 0x5 01c9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ca 4806 |H | Short_Literal 0x6 01cb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01cc 4807 |H | Short_Literal 0x7 01cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ce 4808 |H | Short_Literal 0x8 01cf 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01d0 4809 |H | Short_Literal 0x9 01d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01d2 480a |H | Short_Literal 0xa 01d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01d4 480b |H | Short_Literal 0xb 01d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01d6 480c |H | Short_Literal 0xc 01d7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01d8 00db | | Load_Top At_Offset_3 01d9 e5fe | | Load 0x2,-0x2 01da 460e |F | Jump_Case 0xf 01db 780e |x | Jump 0x1ea ; case 0x0 01dc 780f |x | Jump 0x1ec ; case 0x1 01dd 7810 |x | Jump 0x1ee ; case 0x2 01de 7811 |x | Jump 0x1f0 ; case 0x3 01df 7812 |x | Jump 0x1f2 ; case 0x4 01e0 7813 |x | Jump 0x1f4 ; case 0x5 01e1 7814 |x | Jump 0x1f6 ; case 0x6 01e2 7817 |x | Jump 0x1fa ; case 0x7 01e3 7818 |x | Jump 0x1fc ; case 0x8 01e4 7813 |x | Jump 0x1f8 ; case 0x9 01e5 7814 |x | Jump 0x1fa ; case 0xa 01e6 7815 |x | Jump 0x1fc ; case 0xb 01e7 7816 |x | Jump 0x1fe ; case 0xc 01e8 7817 |x | Jump 0x200 ; case 0xd 01e9 7800 |x | Jump 0x1ea ; case 0xe 01ea 4801 |H | Short_Literal 0x1 01eb 7815 |x | Jump 0x201 01ec 4802 |H | Short_Literal 0x2 01ed 7813 |x | Jump 0x201 01ee 4803 |H | Short_Literal 0x3 01ef 7811 |x | Jump 0x201 01f0 4804 |H | Short_Literal 0x4 01f1 780f |x | Jump 0x201 01f2 4805 |H | Short_Literal 0x5 01f3 780d |x | Jump 0x201 01f4 4806 |H | Short_Literal 0x6 01f5 780b |x | Jump 0x201 01f6 4807 |H | Short_Literal 0x7 01f7 7809 |x | Jump 0x201 01f8 4808 |H | Short_Literal 0x8 01f9 7807 |x | Jump 0x201 01fa 4809 |H | Short_Literal 0x9 01fb 7805 |x | Jump 0x201 01fc 480a |H | Short_Literal 0xa 01fd 7803 |x | Jump 0x201 01fe 480b |H | Short_Literal 0xb 01ff 7801 |x | Jump 0x201 0200 480c |H | Short_Literal 0xc 0201 e5ff | | Load 0x2,-0x1 0202 031b | | Declare_Type Variant_Record,Constrained 0203 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0204 00db | | Load_Top At_Offset_3 0205 e5fe | | Load 0x2,-0x2 0206 e5ff | | Load 0x2,-0x1 0207 1c06 | | Execute_Immediate Run_Utility,0x6 0208 e5ff | | Load 0x2,-0x1 0209 02fc | | Declare_Variable Variant_Record,With_Constraint 020a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 020b 0000 0000 | | .BLANK 0000[0x5] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 4608 |F | Jump_Case 0x9 ; Debug Table 0x7 = .DEBUG 0x0213,0x07b4,0x0005,0x0000,0x005a,0x4085,0x0000,0x0166 0214 7808 |x | Jump 0x21d ; case 0x0 0215 781f |x | Jump 0x235 ; case 0x1 0216 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0217 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0218 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0219 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 021a 7822 |x" | Jump 0x23d ; case 0x6 021b 7829 |x) | Jump 0x245 ; case 0x7 021c 7839 |x9 | Jump 0x256 ; case 0x8 021d 00da | | Load_Top At_Offset_2 021e 016c | l | Execute Variant_Record,Is_Constrained 021f 700a |p | Jump_Nonzero 0x22a 0220 00cf | | Action Mark_Auxiliary 0221 480c |H | Short_Literal 0xc 0222 4800 |H | Short_Literal 0x0 0223 e5ff | | Load 0x2,-0x1 0224 1c08 | | Execute_Immediate Run_Utility,0x8 0225 00d8 | | Load_Top At_Offset_0 0226 1c00 | | Execute_Immediate Run_Utility,0x0 0227 c5ff | | Store 0x2,-0x1 0228 00ce | | Action Pop_Auxiliary 0229 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 022a 00da | | Load_Top At_Offset_2 022b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 022c 4601 |F | Jump_Case 0x2 022d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 022e 7800 |x | Jump 0x22f ; case 0x1 022f 00da | | Load_Top At_Offset_2 0230 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3 0231 00da | | Load_Top At_Offset_2 0232 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3 0233 1c00 | | Execute_Immediate Run_Utility,0x0 0234 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0235 00da | | Load_Top At_Offset_2 0236 016b | k | Execute Variant_Record,Read_Variant 0237 00d8 | | Load_Top At_Offset_0 0238 0f01 | | Execute_Immediate Equal,0x1 0239 6802 |h | Jump_Zero 0x23c 023a 00db | | Load_Top At_Offset_3 023b 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3 023c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 023d 00db | | Load_Top At_Offset_3 023e 4601 |F | Jump_Case 0x2 023f 7803 |x | Jump 0x243 ; case 0x0 0240 7800 |x | Jump 0x241 ; case 0x1 0241 4801 |H | Short_Literal 0x1 0242 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 0243 48ff |H | Short_Literal 0xff 0244 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 0245 e5fd | | Load 0x2,-0x3 0246 e5fe | | Load 0x2,-0x2 0247 e5fe | | Load 0x2,-0x2 0248 4601 |F | Jump_Case 0x2 0249 7807 |x | Jump 0x251 ; case 0x0 024a 7800 |x | Jump 0x24b ; case 0x1 024b e5fd | | Load 0x2,-0x3 024c e21e | | Load 0x1,0x1e 024d 1c07 | | Execute_Immediate Run_Utility,0x7 024e 4801 |H | Short_Literal 0x1 024f 4801 |H | Short_Literal 0x1 0250 7802 |x | Jump 0x253 0251 4800 |H | Short_Literal 0x0 0252 48ff |H | Short_Literal 0xff 0253 e5ff | | Load 0x2,-0x1 0254 031b | | Declare_Type Variant_Record,Constrained 0255 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 0256 e5fd | | Load 0x2,-0x3 0257 e5fe | | Load 0x2,-0x2 0258 e5fd | | Load 0x2,-0x3 0259 e5fe | | Load 0x2,-0x2 025a e5ff | | Load 0x2,-0x1 025b 1c06 | | Execute_Immediate Run_Utility,0x6 025c e5ff | | Load 0x2,-0x1 025d 02fc | | Declare_Variable Variant_Record,With_Constraint 025e e5fe | | Load 0x2,-0x2 025f 4601 |F | Jump_Case 0x2 0260 7805 |x | Jump 0x266 ; case 0x0 0261 7800 |x | Jump 0x262 ; case 0x1 0262 e5fd | | Load 0x2,-0x3 0263 e21e | | Load 0x1,0x1e 0264 1c08 | | Execute_Immediate Run_Utility,0x8 0265 2f03 |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x3 0266 016a | j | QQ_execute Variant_Record,XXX 0267 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 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 4608 |F | Jump_Case 0x9 ; Debug Table 0x8 = .DEBUG 0x026b,0x07b6,0x0005,0x0000,0x005a,0x4085,0x0000,0x0187 026c 7808 |x | Jump 0x275 ; case 0x0 026d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 026e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 026f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0270 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0271 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0272 784c |xL | Jump 0x2bf ; case 0x6 0273 7892 |x | Jump 0x306 ; case 0x7 0274 78db |x | Jump 0x350 ; case 0x8 0275 00da | | Load_Top At_Offset_2 0276 016c | l | Execute Variant_Record,Is_Constrained 0277 7009 |p | Jump_Nonzero 0x281 0278 00cf | | Action Mark_Auxiliary 0279 481d |H | Short_Literal 0x1d 027a e5ff | | Load 0x2,-0x1 027b 1c08 | | Execute_Immediate Run_Utility,0x8 027c 00d8 | | Load_Top At_Offset_0 027d 1c00 | | Execute_Immediate Run_Utility,0x0 027e c5ff | | Store 0x2,-0x1 027f 00ce | | Action Pop_Auxiliary 0280 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0281 00da | | Load_Top At_Offset_2 0282 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0283 461e |F | Jump_Case 0x1f 0284 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0285 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0286 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0287 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0288 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0289 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 028a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 028b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 028c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 028d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x9 028e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xa 028f 7817 |x | Jump 0x2a7 ; case 0xb 0290 781a |x | Jump 0x2ab ; case 0xc 0291 7811 |x | Jump 0x2a3 ; case 0xd 0292 7824 |x$ | Jump 0x2b7 ; case 0xe 0293 781b |x | Jump 0x2af ; case 0xf 0294 781e |x | Jump 0x2b3 ; case 0x10 0295 7825 |x% | Jump 0x2bb ; case 0x11 0296 7824 |x$ | Jump 0x2bb ; case 0x12 0297 7823 |x# | Jump 0x2bb ; case 0x13 0298 7822 |x" | Jump 0x2bb ; case 0x14 0299 7821 |x! | Jump 0x2bb ; case 0x15 029a 7820 |x | Jump 0x2bb ; case 0x16 029b 781f |x | Jump 0x2bb ; case 0x17 029c 781e |x | Jump 0x2bb ; case 0x18 029d 781d |x | Jump 0x2bb ; case 0x19 029e 781c |x | Jump 0x2bb ; case 0x1a 029f 781b |x | Jump 0x2bb ; case 0x1b 02a0 781a |x | Jump 0x2bb ; case 0x1c 02a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1d 02a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1e 02a3 00da | | Load_Top At_Offset_2 02a4 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf 02a5 1c00 | | Execute_Immediate Run_Utility,0x0 02a6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02a7 00da | | Load_Top At_Offset_2 02a8 2612 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12 02a9 1c00 | | Execute_Immediate Run_Utility,0x0 02aa 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02ab 00da | | Load_Top At_Offset_2 02ac 2617 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x17 02ad 1c00 | | Execute_Immediate Run_Utility,0x0 02ae 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02af 00da | | Load_Top At_Offset_2 02b0 2618 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x18 02b1 1c00 | | Execute_Immediate Run_Utility,0x0 02b2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02b3 00da | | Load_Top At_Offset_2 02b4 261a |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1a 02b5 1c00 | | Execute_Immediate Run_Utility,0x0 02b6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02b7 00da | | Load_Top At_Offset_2 02b8 261c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1c 02b9 1c00 | | Execute_Immediate Run_Utility,0x0 02ba 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02bb 00da | | Load_Top At_Offset_2 02bc 2622 |&" | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x22 02bd 1c00 | | Execute_Immediate Run_Utility,0x0 02be 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02bf 00db | | Load_Top At_Offset_3 02c0 461e |F | Jump_Case 0x1f 02c1 781e |x | Jump 0x2e0 ; case 0x0 02c2 7821 |x! | Jump 0x2e4 ; case 0x1 02c3 7822 |x" | Jump 0x2e6 ; case 0x2 02c4 781d |x | Jump 0x2e2 ; case 0x3 02c5 7824 |x$ | Jump 0x2ea ; case 0x4 02c6 7821 |x! | Jump 0x2e8 ; case 0x5 02c7 7830 |x0 | Jump 0x2f8 ; case 0x6 02c8 7831 |x1 | Jump 0x2fa ; case 0x7 02c9 7830 |x0 | Jump 0x2fa ; case 0x8 02ca 7831 |x1 | Jump 0x2fc ; case 0x9 02cb 7832 |x2 | Jump 0x2fe ; case 0xa 02cc 7821 |x! | Jump 0x2ee ; case 0xb 02cd 7822 |x" | Jump 0x2f0 ; case 0xc 02ce 781d |x | Jump 0x2ec ; case 0xd 02cf 7826 |x& | Jump 0x2f6 ; case 0xe 02d0 7821 |x! | Jump 0x2f2 ; case 0xf 02d1 7822 |x" | Jump 0x2f4 ; case 0x10 02d2 782d |x- | Jump 0x300 ; case 0x11 02d3 782c |x, | Jump 0x300 ; case 0x12 02d4 782b |x+ | Jump 0x300 ; case 0x13 02d5 782a |x* | Jump 0x300 ; case 0x14 02d6 7829 |x) | Jump 0x300 ; case 0x15 02d7 7828 |x( | Jump 0x300 ; case 0x16 02d8 7827 |x' | Jump 0x300 ; case 0x17 02d9 7826 |x& | Jump 0x300 ; case 0x18 02da 7825 |x% | Jump 0x300 ; case 0x19 02db 7824 |x$ | Jump 0x300 ; case 0x1a 02dc 7823 |x# | Jump 0x300 ; case 0x1b 02dd 7822 |x" | Jump 0x300 ; case 0x1c 02de 7825 |x% | Jump 0x304 ; case 0x1d 02df 7822 |x" | Jump 0x302 ; case 0x1e 02e0 4801 |H | Short_Literal 0x1 02e1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02e2 4802 |H | Short_Literal 0x2 02e3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02e4 4803 |H | Short_Literal 0x3 02e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02e6 4804 |H | Short_Literal 0x4 02e7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02e8 4805 |H | Short_Literal 0x5 02e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ea 4806 |H | Short_Literal 0x6 02eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ec 4807 |H | Short_Literal 0x7 02ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ee 4808 |H | Short_Literal 0x8 02ef 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02f0 4809 |H | Short_Literal 0x9 02f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02f2 480a |H | Short_Literal 0xa 02f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02f4 480b |H | Short_Literal 0xb 02f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02f6 480c |H | Short_Literal 0xc 02f7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02f8 480d |H | Short_Literal 0xd 02f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02fa 480e |H | Short_Literal 0xe 02fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02fc 480f |H | Short_Literal 0xf 02fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02fe 4810 |H | Short_Literal 0x10 02ff 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0300 4811 |H | Short_Literal 0x11 0301 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0302 4812 |H | Short_Literal 0x12 0303 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0304 48ff |H | Short_Literal 0xff 0305 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0306 00db | | Load_Top At_Offset_3 0307 e5fe | | Load 0x2,-0x2 0308 461e |F | Jump_Case 0x1f 0309 781e |x | Jump 0x328 ; case 0x0 030a 7821 |x! | Jump 0x32c ; case 0x1 030b 7822 |x" | Jump 0x32e ; case 0x2 030c 781d |x | Jump 0x32a ; case 0x3 030d 7824 |x$ | Jump 0x332 ; case 0x4 030e 7821 |x! | Jump 0x330 ; case 0x5 030f 7830 |x0 | Jump 0x340 ; case 0x6 0310 7831 |x1 | Jump 0x342 ; case 0x7 0311 7830 |x0 | Jump 0x342 ; case 0x8 0312 7831 |x1 | Jump 0x344 ; case 0x9 0313 7832 |x2 | Jump 0x346 ; case 0xa 0314 7821 |x! | Jump 0x336 ; case 0xb 0315 7822 |x" | Jump 0x338 ; case 0xc 0316 781d |x | Jump 0x334 ; case 0xd 0317 7826 |x& | Jump 0x33e ; case 0xe 0318 7821 |x! | Jump 0x33a ; case 0xf 0319 7822 |x" | Jump 0x33c ; case 0x10 031a 782d |x- | Jump 0x348 ; case 0x11 031b 782c |x, | Jump 0x348 ; case 0x12 031c 782b |x+ | Jump 0x348 ; case 0x13 031d 782a |x* | Jump 0x348 ; case 0x14 031e 7829 |x) | Jump 0x348 ; case 0x15 031f 7828 |x( | Jump 0x348 ; case 0x16 0320 7827 |x' | Jump 0x348 ; case 0x17 0321 7826 |x& | Jump 0x348 ; case 0x18 0322 7825 |x% | Jump 0x348 ; case 0x19 0323 7824 |x$ | Jump 0x348 ; case 0x1a 0324 7823 |x# | Jump 0x348 ; case 0x1b 0325 7822 |x" | Jump 0x348 ; case 0x1c 0326 7825 |x% | Jump 0x34c ; case 0x1d 0327 7822 |x" | Jump 0x34a ; case 0x1e 0328 4801 |H | Short_Literal 0x1 0329 7823 |x# | Jump 0x34d 032a 4802 |H | Short_Literal 0x2 032b 7821 |x! | Jump 0x34d 032c 4803 |H | Short_Literal 0x3 032d 781f |x | Jump 0x34d 032e 4804 |H | Short_Literal 0x4 032f 781d |x | Jump 0x34d 0330 4805 |H | Short_Literal 0x5 0331 781b |x | Jump 0x34d 0332 4806 |H | Short_Literal 0x6 0333 7819 |x | Jump 0x34d 0334 4807 |H | Short_Literal 0x7 0335 7817 |x | Jump 0x34d 0336 4808 |H | Short_Literal 0x8 0337 7815 |x | Jump 0x34d 0338 4809 |H | Short_Literal 0x9 0339 7813 |x | Jump 0x34d 033a 480a |H | Short_Literal 0xa 033b 7811 |x | Jump 0x34d 033c 480b |H | Short_Literal 0xb 033d 780f |x | Jump 0x34d 033e 480c |H | Short_Literal 0xc 033f 780d |x | Jump 0x34d 0340 480d |H | Short_Literal 0xd 0341 780b |x | Jump 0x34d 0342 480e |H | Short_Literal 0xe 0343 7809 |x | Jump 0x34d 0344 480f |H | Short_Literal 0xf 0345 7807 |x | Jump 0x34d 0346 4810 |H | Short_Literal 0x10 0347 7805 |x | Jump 0x34d 0348 4811 |H | Short_Literal 0x11 0349 7803 |x | Jump 0x34d 034a 4812 |H | Short_Literal 0x12 034b 7801 |x | Jump 0x34d 034c 48ff |H | Short_Literal 0xff 034d e5ff | | Load 0x2,-0x1 034e 031b | | Declare_Type Variant_Record,Constrained 034f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0350 00db | | Load_Top At_Offset_3 0351 e5fe | | Load 0x2,-0x2 0352 e5ff | | Load 0x2,-0x1 0353 1c06 | | Execute_Immediate Run_Utility,0x6 0354 e5ff | | Load 0x2,-0x1 0355 02fc | | Declare_Variable Variant_Record,With_Constraint 0356 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0357 0000 0000 | | .BLANK 0000[0x4] 035b ffff | | .XXX[0x1] 035c 0000 0000 | | .BLANK 0000[0x4] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 4603 |F | Jump_Case 0x4 ; Debug Table 0x9 = .DEBUG 0x0363,0x07b8,0x0005,0x0000,0x005a,0x4085,0x0000,0x02a2 0364 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0365 7802 |x | Jump 0x368 ; case 0x1 0366 7805 |x | Jump 0x36c ; case 0x2 0367 7809 |x | Jump 0x371 ; case 0x3 0368 00da | | Load_Top At_Offset_2 0369 0091 0465 | e| Action Push_String_Extended_Indexed,0x465 ; "IS_VALUE" 036b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 036c 00db | | Load_Top At_Offset_3 036d 00db | | Load_Top At_Offset_3 036e 00e0 | | Load_Encached Standard_Cache 036f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0370 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0371 00da | | Load_Top At_Offset_2 0372 00e0 | | Load_Encached Standard_Cache 0373 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0374 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0375 0000 0000 | | .XXX[0x3] 0377 0000 | | 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 4608 |F | Jump_Case 0x9 ; Debug Table 0xa = .DEBUG 0x037b,0x07ba,0x0005,0x0000,0x005a,0x4085,0x0000,0x02a8 037c 7808 |x | Jump 0x385 ; case 0x0 037d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 037e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 037f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0380 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0381 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0382 7813 |x | Jump 0x396 ; case 0x6 0383 781a |x | Jump 0x39e ; case 0x7 0384 7824 |x$ | Jump 0x3a9 ; case 0x8 0385 00da | | Load_Top At_Offset_2 0386 016c | l | Execute Variant_Record,Is_Constrained 0387 7009 |p | Jump_Nonzero 0x391 0388 00cf | | Action Mark_Auxiliary 0389 4800 |H | Short_Literal 0x0 038a e5ff | | Load 0x2,-0x1 038b 1c08 | | Execute_Immediate Run_Utility,0x8 038c 00d8 | | Load_Top At_Offset_0 038d 1c00 | | Execute_Immediate Run_Utility,0x0 038e c5ff | | Store 0x2,-0x1 038f 00ce | | Action Pop_Auxiliary 0390 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0391 00da | | Load_Top At_Offset_2 0392 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0393 4601 |F | Jump_Case 0x2 0394 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0395 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0396 00db | | Load_Top At_Offset_3 0397 4601 |F | Jump_Case 0x2 0398 7801 |x | Jump 0x39a ; case 0x0 0399 7802 |x | Jump 0x39c ; case 0x1 039a 4801 |H | Short_Literal 0x1 039b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 039c 4802 |H | Short_Literal 0x2 039d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 039e 00db | | Load_Top At_Offset_3 039f e5fe | | Load 0x2,-0x2 03a0 4601 |F | Jump_Case 0x2 03a1 7801 |x | Jump 0x3a3 ; case 0x0 03a2 7802 |x | Jump 0x3a5 ; case 0x1 03a3 4801 |H | Short_Literal 0x1 03a4 7801 |x | Jump 0x3a6 03a5 4802 |H | Short_Literal 0x2 03a6 e5ff | | Load 0x2,-0x1 03a7 031b | | Declare_Type Variant_Record,Constrained 03a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03a9 00db | | Load_Top At_Offset_3 03aa e5fe | | Load 0x2,-0x2 03ab e5ff | | Load 0x2,-0x1 03ac 1c06 | | Execute_Immediate Run_Utility,0x6 03ad e5ff | | Load 0x2,-0x1 03ae 02fc | | Declare_Variable Variant_Record,With_Constraint 03af 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 4603 |F | Jump_Case 0x4 ; Debug Table 0xb = .DEBUG 0x03b3,0x07bc,0x0005,0x0000,0x005a,0x4085,0x0000,0x02cb 03b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 03b5 7802 |x | Jump 0x3b8 ; case 0x1 03b6 7805 |x | Jump 0x3bc ; case 0x2 03b7 7809 |x | Jump 0x3c1 ; case 0x3 03b8 00da | | Load_Top At_Offset_2 03b9 0091 0467 | g| Action Push_String_Extended_Indexed,0x467 ; "NO_GROUP" 03bb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03bc 00db | | Load_Top At_Offset_3 03bd 00db | | Load_Top At_Offset_3 03be 00e0 | | Load_Encached Standard_Cache 03bf 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03c0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03c1 00da | | Load_Top At_Offset_2 03c2 00e0 | | Load_Encached Standard_Cache 03c3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03c4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03c5 0000 0000 | | .XXX[0x3] 03c7 0000 | | 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb 4603 |F | Jump_Case 0x4 ; Debug Table 0xc = .DEBUG 0x03cb,0x07be,0x0005,0x0000,0x005a,0x4085,0x0000,0x02df 03cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 03cd 7802 |x | Jump 0x3d0 ; case 0x1 03ce 7805 |x | Jump 0x3d4 ; case 0x2 03cf 7809 |x | Jump 0x3d9 ; case 0x3 03d0 00da | | Load_Top At_Offset_2 03d1 0091 0477 | w| Action Push_String_Extended_Indexed,0x477 ; "INHIBIT_IBUFF_FILL" 03d3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03d4 00db | | Load_Top At_Offset_3 03d5 00db | | Load_Top At_Offset_3 03d6 00e0 | | Load_Encached Standard_Cache 03d7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03d8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03d9 00da | | Load_Top At_Offset_2 03da 00e0 | | Load_Encached Standard_Cache 03db 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03dc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03dd 0000 0000 | | .XXX[0x3] 03df 0000 | | 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 4603 |F | Jump_Case 0x4 ; Debug Table 0xd = .DEBUG 0x03e3,0x07c0,0x0005,0x0000,0x005a,0x4085,0x0000,0x02e4 03e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 03e5 7802 |x | Jump 0x3e8 ; case 0x1 03e6 7805 |x | Jump 0x3ec ; case 0x2 03e7 7809 |x | Jump 0x3f1 ; case 0x3 03e8 00da | | Load_Top At_Offset_2 03e9 0091 0478 | x| Action Push_String_Extended_Indexed,0x478 ; "UNIMPLEMENTED" 03eb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03ec 00db | | Load_Top At_Offset_3 03ed 00db | | Load_Top At_Offset_3 03ee 00e0 | | Load_Encached Standard_Cache 03ef 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03f1 00da | | Load_Top At_Offset_2 03f2 00e0 | | Load_Encached Standard_Cache 03f3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03f4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03f5 0000 0000 | | .XXX[0x3] 03f7 0000 | | 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb 4608 |F | Jump_Case 0x9 ; Debug Table 0xe = .DEBUG 0x03fb,0x07c2,0x0005,0x0000,0x005a,0x4085,0x0000,0x030a 03fc 7808 |x | Jump 0x405 ; case 0x0 03fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 03fe 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 03ff 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0400 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0401 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0402 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0403 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0404 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0405 00da | | Load_Top At_Offset_2 0406 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0407 1c00 | | Execute_Immediate Run_Utility,0x0 0408 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0409 ; -------------------------------------------------------------------------------------- 0409 ; STRING TABLE 0409 ; -------------------------------------------------------------------------------------- 0409 00e4 | | .STRTAB 0x00e4->0x047b ; "DECLARE_TYPE" 040a 00ee | | .STRTAB 0x00ee->0x0481 ; "DECLARE_VARIABLE" 040b 00fc | | .STRTAB 0x00fc->0x0489 ; "DECLARE_SUBPROGRAM" 040c 010c | | .STRTAB 0x010c->0x0492 ; "COMPLETE_TYPE" 040d 0117 | | .STRTAB 0x0117->0x0498 ; "EXECUTE" 040e 011c | | .STRTAB 0x011c->0x049c ; "ACTION" 040f 0120 | | .STRTAB 0x0120->0x049f ; "LOAD_TOP" 0410 0126 | & | .STRTAB 0x0126->0x04a3 ; "STORE_TOP" 0411 012d | - | .STRTAB 0x012d->0x04a7 ; "STORE_TOP_UNCHECKED" 0412 013e | > | .STRTAB 0x013e->0x04b1 ; "LOAD_ENCACHED" 0413 0149 | I | .STRTAB 0x0149->0x04b7 ; "POP_CONTROL" 0414 0152 | R | .STRTAB 0x0152->0x04bd ; "EXECUTE_FIELD" 0415 015d | ] | .STRTAB 0x015d->0x04c3 ; "EXECUTE_VR_FIELD" 0416 016b | k | .STRTAB 0x016b->0x04cb ; "EXECUTE_IMMEDIATE" 0417 017a | z | .STRTAB 0x017a->0x04d4 ; "INDIRECT_LITERAL" 0418 0188 | | .STRTAB 0x0188->0x04dc ; "EXIT_SUBPROGRAM" 0419 0195 | | .STRTAB 0x0195->0x04e3 ; "END_RENDEZVOUS" 041a 01a1 | | .STRTAB 0x01a1->0x04ea ; "LOAD" 041b 01a3 | | .STRTAB 0x01a3->0x04ec ; "STORE" 041c 01a6 | | .STRTAB 0x01a6->0x04ef ; "STORE_UNCHECKED" 041d 01b3 | | .STRTAB 0x01b3->0x04f6 ; "REFERENCE" 041e 01ba | | .STRTAB 0x01ba->0x04fb ; "CALL" 041f 01bc | | .STRTAB 0x01bc->0x04fd ; "JUMP" 0420 01be | | .STRTAB 0x01be->0x04ff ; "JUMP_ZERO" 0421 01c5 | | .STRTAB 0x01c5->0x0503 ; "JUMP_NONZERO" 0422 01cf | | .STRTAB 0x01cf->0x0509 ; "JUMP_CASE" 0423 01d6 | | .STRTAB 0x01d6->0x050e ; "LOOP_INCREASING" 0424 01e3 | | .STRTAB 0x01e3->0x0515 ; "LOOP_DECREASING" 0425 01f0 | | .STRTAB 0x01f0->0x051d ; "SHORT_LITERAL" 0426 01fb | | .STRTAB 0x01fb->0x0523 ; "UNUSED" 0427 01ff | | .STRTAB 0x01ff->0x0526 ; "VERSION" 0428 0204 | | .STRTAB 0x0204->0x052a ; "AT_OFFSET_6" 0429 020d | | .STRTAB 0x020d->0x052f ; "AT_OFFSET_5" 042a 0216 | | .STRTAB 0x0216->0x0535 ; "AT_OFFSET_4" 042b 021f | | .STRTAB 0x021f->0x053a ; "AT_OFFSET_3" 042c 0228 | ( | .STRTAB 0x0228->0x0540 ; "AT_OFFSET_2" 042d 0231 | 1 | .STRTAB 0x0231->0x0545 ; "AT_OFFSET_1" 042e 023a | : | .STRTAB 0x023a->0x054b ; "AT_OFFSET_0" 042f 0243 | C | .STRTAB 0x0243->0x0550 ; "VALUE_00" 0430 0249 | I | .STRTAB 0x0249->0x0554 ; "VALUE_01" 0431 024f | O | .STRTAB 0x024f->0x0558 ; "VALUE_02" 0432 0255 | U | .STRTAB 0x0255->0x055c ; "VALUE_03" 0433 025b | [ | .STRTAB 0x025b->0x0560 ; "VALUE_04" 0434 0261 | a | .STRTAB 0x0261->0x0564 ; "VALUE_05" 0435 0267 | g | .STRTAB 0x0267->0x0568 ; "VALUE_06" 0436 026d | m | .STRTAB 0x026d->0x056c ; "VALUE_07" 0437 0273 | s | .STRTAB 0x0273->0x0570 ; "VALUE_08" 0438 0279 | y | .STRTAB 0x0279->0x0574 ; "VALUE_09" 0439 027f | | .STRTAB 0x027f->0x0578 ; "VALUE_10" 043a 0285 | | .STRTAB 0x0285->0x057c ; "VALUE_11" 043b 028b | | .STRTAB 0x028b->0x0580 ; "VALUE_12" 043c 0291 | | .STRTAB 0x0291->0x0584 ; "VALUE_13" 043d 0297 | | .STRTAB 0x0297->0x0588 ; "VALUE_14" 043e 029d | | .STRTAB 0x029d->0x058c ; "VALUE_15" 043f 02a3 | | .STRTAB 0x02a3->0x0590 ; "VALUE_16" 0440 02a9 | | .STRTAB 0x02a9->0x0594 ; "VALUE_17" 0441 02af | | .STRTAB 0x02af->0x0598 ; "VALUE_18" 0442 02b5 | | .STRTAB 0x02b5->0x059c ; "VALUE_19" 0443 02bb | | .STRTAB 0x02bb->0x05a0 ; "VALUE_20" 0444 02c1 | | .STRTAB 0x02c1->0x05a4 ; "VALUE_21" 0445 02c7 | | .STRTAB 0x02c7->0x05a8 ; "VALUE_22" 0446 02cd | | .STRTAB 0x02cd->0x05ac ; "VALUE_23" 0447 02d3 | | .STRTAB 0x02d3->0x05b0 ; "VALUE_24" 0448 02d9 | | .STRTAB 0x02d9->0x05b4 ; "VALUE_25" 0449 02df | | .STRTAB 0x02df->0x05b8 ; "VALUE_26" 044a 02e5 | | .STRTAB 0x02e5->0x05bc ; "VALUE_27" 044b 02eb | | .STRTAB 0x02eb->0x05c0 ; "VALUE_28" 044c 02f1 | | .STRTAB 0x02f1->0x05c4 ; "VALUE_29" 044d 02f7 | | .STRTAB 0x02f7->0x05c8 ; "VALUE_30" 044e 02fd | | .STRTAB 0x02fd->0x05cc ; "VALUE_31" 044f 0303 | | .STRTAB 0x0303->0x05d0 ; "POP_COUNT_1" 0450 030c | | .STRTAB 0x030c->0x05d6 ; "POP_COUNT_2" 0451 0315 | | .STRTAB 0x0315->0x05db ; "POP_COUNT_3" 0452 031e | | .STRTAB 0x031e->0x05e1 ; "POP_COUNT_4" 0453 0327 | ' | .STRTAB 0x0327->0x05e6 ; "POP_COUNT_5" 0454 0330 | 0 | .STRTAB 0x0330->0x05ec ; "POP_COUNT_6" 0455 0339 | 9 | .STRTAB 0x0339->0x05f1 ; "POP_COUNT_7" 0456 0342 | B | .STRTAB 0x0342->0x05f7 ; "LEX_LEVEL_DELTA" 0457 034f | O | .STRTAB 0x034f->0x05fe ; "FIELD_NUMBER" 0458 0359 | Y | .STRTAB 0x0359->0x0604 ; "NEW_TOP_OFFSET" 0459 0365 | e | .STRTAB 0x0365->0x060b ; "PARAMETER_COUNT" 045a 0372 | r | .STRTAB 0x0372->0x0613 ; "PC_DISPLACEMENT" 045b 037f | | .STRTAB 0x037f->0x061a ; "LOOP_DISPLACEMENT" 045c 038e | | .STRTAB 0x038e->0x0623 ; "CASE_MAXIMUM" 045d 0398 | | .STRTAB 0x0398->0x0629 ; "POSITIVE_IMMEDIATE" 045e 03a8 | | .STRTAB 0x03a8->0x0632 ; "NEGATIVE_IMMEDIATE" 045f 03b8 | | .STRTAB 0x03b8->0x063b ; "UNSIGNED_IMMEDIATE" 0460 03c8 | | .STRTAB 0x03c8->0x0644 ; "LIMITED_POSITIVE" 0461 03d6 | | .STRTAB 0x03d6->0x064c ; "LIMITED_NEGATIVE" 0462 03e4 | | .STRTAB 0x03e4->0x0654 ; "LITERAL_VALUE" 0463 03ef | | .STRTAB 0x03ef->0x065a ; "ZERO_LEX_DELTA" 0464 03fb | | .STRTAB 0x03fb->0x0661 ; "NONZERO_LEX_DELTA" 0465 040a | | .STRTAB 0x040a->0x066a ; "IS_VALUE" 0466 0410 | | .STRTAB 0x0410->0x066e ; "IS_RANGE" 0467 0416 | | .STRTAB 0x0416->0x0672 ; "NO_GROUP" 0468 041c | | .STRTAB 0x041c->0x0676 ; "DECLARE_GROUP" 0469 0427 | ' | .STRTAB 0x0427->0x067c ; "STORE_GROUP" 046a 0430 | 0 | .STRTAB 0x0430->0x0682 ; "FRAME_GROUP" 046b 0439 | 9 | .STRTAB 0x0439->0x0687 ; "JUMP_GROUP" 046c 0441 | A | .STRTAB 0x0441->0x068c ; "RENDEZVOUS_GROUP" 046d 044f | O | .STRTAB 0x044f->0x0694 ; "ACTION_GROUP" 046e 0459 | Y | .STRTAB 0x0459->0x069a ; "OPTION_GROUP" 046f 0463 | c | .STRTAB 0x0463->0x06a0 ; "OTHER_GROUP" 0470 046c | l | .STRTAB 0x046c->0x06a6 ; "EXIT_GROUP" 0471 0474 | t | .STRTAB 0x0474->0x06ab ; "SPARE1_GROUP" 0472 047e | ~ | .STRTAB 0x047e->0x06b1 ; "SPARE2_GROUP" 0473 0488 | | .STRTAB 0x0488->0x06b7 ; "SPARE3_GROUP" 0474 0492 | | .STRTAB 0x0492->0x06bd ; "IMPLICIT_GROUP" 0475 049e | | .STRTAB 0x049e->0x06c4 ; "EXPLICIT_GROUP" 0476 04aa | | .STRTAB 0x04aa->0x06cb ; "CREATION_GROUP" 0477 04b6 | | .STRTAB 0x04b6->0x06d2 ; "INHIBIT_IBUFF_FILL" 0478 04c6 | | .STRTAB 0x04c6->0x06db ; "UNIMPLEMENTED" 0479 04d1 | | .STRTAB 0x04d1->0x06e1 ; "COMPLETE" 047a 04d7 | | .STREND 0x04d7->0x06e5 047b 4445 434c |DECL| .STRTAB_STRINGS 06e6 0000 0000 | | .XXX[0x2] 06e8 ; -------------------------------------------------------------------------------------- 06e8 ; Debug Table 06e8 ; -------------------------------------------------------------------------------------- 06e8 0003 000f | | .CONST 0x0003,0x000f 06ea 000b 0762 | b| .DEBUG 0x000b,0x0762,0x8000,0x0000,0x005a,0x4085,0x0000,0x0007 06f2 010b 07a8 | | .DEBUG 0x010b,0x07a8,0x0005,0x0000,0x005a,0x4085,0x0000,0x0008 06fa 0123 07aa | # | .DEBUG 0x0123,0x07aa,0x0005,0x0000,0x005a,0x4085,0x0000,0x0070 0702 013b 07ac | ; | .DEBUG 0x013b,0x07ac,0x0005,0x0000,0x005a,0x4085,0x0000,0x007b 070a 0153 07ae | S | .DEBUG 0x0153,0x07ae,0x0005,0x0000,0x005a,0x4085,0x0000,0x009f 0712 016b 07b0 | k | .DEBUG 0x016b,0x07b0,0x0005,0x0000,0x005a,0x4085,0x0000,0x00aa 071a 0183 07b2 | | .DEBUG 0x0183,0x07b2,0x0005,0x0000,0x005a,0x4085,0x0000,0x00d3 0722 0213 07b4 | | .DEBUG 0x0213,0x07b4,0x0005,0x0000,0x005a,0x4085,0x0000,0x0166 072a 026b 07b6 | k | .DEBUG 0x026b,0x07b6,0x0005,0x0000,0x005a,0x4085,0x0000,0x0187 0732 0363 07b8 | c | .DEBUG 0x0363,0x07b8,0x0005,0x0000,0x005a,0x4085,0x0000,0x02a2 073a 037b 07ba | { | .DEBUG 0x037b,0x07ba,0x0005,0x0000,0x005a,0x4085,0x0000,0x02a8 0742 03b3 07bc | | .DEBUG 0x03b3,0x07bc,0x0005,0x0000,0x005a,0x4085,0x0000,0x02cb 074a 03cb 07be | | .DEBUG 0x03cb,0x07be,0x0005,0x0000,0x005a,0x4085,0x0000,0x02df 0752 03e3 07c0 | | .DEBUG 0x03e3,0x07c0,0x0005,0x0000,0x005a,0x4085,0x0000,0x02e4 075a 03fb 07c2 | | .DEBUG 0x03fb,0x07c2,0x0005,0x0000,0x005a,0x4085,0x0000,0x030a 0762 ; -------------------------------------------------------------------------------------- 0762 ; Debug3 Subtable 0x0 0762 ; -------------------------------------------------------------------------------------- 0762 0022 0000 | " | .DBG3TAB 0x0022,0x0000 0764 000b ffff | | .CONST 0x000b,0xffff 0766 0010 fffe | | .CONST 0x0010,0xfffe 0768 0014 fffd | | .CONST 0x0014,0xfffd 076a 0018 fffc | | .CONST 0x0018,0xfffc 076c 001c fffb | | .CONST 0x001c,0xfffb 076e 001f fffa | | .CONST 0x001f,0xfffa 0770 0022 fff9 | " | .CONST 0x0022,0xfff9 0772 0025 fff8 | % | .CONST 0x0025,0xfff8 0774 0028 fff7 | ( | .CONST 0x0028,0xfff7 0776 002b fff6 | + | .CONST 0x002b,0xfff6 0778 002e fff5 | . | .CONST 0x002e,0xfff5 077a 0031 fff4 | 1 | .CONST 0x0031,0xfff4 077c 0034 fff3 | 4 | .CONST 0x0034,0xfff3 077e 0039 fff2 | 9 | .CONST 0x0039,0xfff2 0780 003e fff1 | > | .CONST 0x003e,0xfff1 0782 0043 fff0 | C | .CONST 0x0043,0xfff0 0784 0048 ffef | H | .CONST 0x0048,0xffef 0786 004d ffee | M | .CONST 0x004d,0xffee 0788 007a ffed | z | .CONST 0x007a,0xffed 078a 0088 ffec | | .CONST 0x0088,0xffec 078c 00c9 ffeb | | .CONST 0x00c9,0xffeb 078e 00ce ffea | | .CONST 0x00ce,0xffea 0790 00d3 ffe9 | | .CONST 0x00d3,0xffe9 0792 00e1 ffe8 | | .CONST 0x00e1,0xffe8 0794 00e6 ffe7 | | .CONST 0x00e6,0xffe7 0796 00eb ffe6 | | .CONST 0x00eb,0xffe6 0798 00f0 ffe5 | | .CONST 0x00f0,0xffe5 079a 00f4 ffe4 | | .CONST 0x00f4,0xffe4 079c 00fb ffe3 | | .CONST 0x00fb,0xffe3 079e 0101 ffe2 | | .CONST 0x0101,0xffe2 07a0 0102 ffe1 | | .CONST 0x0102,0xffe1 07a2 0103 ffe0 | | .CONST 0x0103,0xffe0 07a4 0104 ffdf | | .CONST 0x0104,0xffdf 07a6 0105 ffde | | .CONST 0x0105,0xffde 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; Debug3 Subtable 0x1 07a8 ; -------------------------------------------------------------------------------------- 07a8 0000 0000 | | .DBG3TAB 0x0000,0x0000 07aa ; -------------------------------------------------------------------------------------- 07aa ; Debug3 Subtable 0x2 07aa ; -------------------------------------------------------------------------------------- 07aa 0000 0000 | | .DBG3TAB 0x0000,0x0000 07ac ; -------------------------------------------------------------------------------------- 07ac ; Debug3 Subtable 0x3 07ac ; -------------------------------------------------------------------------------------- 07ac 0000 0000 | | .DBG3TAB 0x0000,0x0000 07ae ; -------------------------------------------------------------------------------------- 07ae ; Debug3 Subtable 0x4 07ae ; -------------------------------------------------------------------------------------- 07ae 0000 0000 | | .DBG3TAB 0x0000,0x0000 07b0 ; -------------------------------------------------------------------------------------- 07b0 ; Debug3 Subtable 0x5 07b0 ; -------------------------------------------------------------------------------------- 07b0 0000 0000 | | .DBG3TAB 0x0000,0x0000 07b2 ; -------------------------------------------------------------------------------------- 07b2 ; Debug3 Subtable 0x6 07b2 ; -------------------------------------------------------------------------------------- 07b2 0000 0000 | | .DBG3TAB 0x0000,0x0000 07b4 ; -------------------------------------------------------------------------------------- 07b4 ; Debug3 Subtable 0x7 07b4 ; -------------------------------------------------------------------------------------- 07b4 0000 0000 | | .DBG3TAB 0x0000,0x0000 07b6 ; -------------------------------------------------------------------------------------- 07b6 ; Debug3 Subtable 0x8 07b6 ; -------------------------------------------------------------------------------------- 07b6 0000 0000 | | .DBG3TAB 0x0000,0x0000 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; Debug3 Subtable 0x9 07b8 ; -------------------------------------------------------------------------------------- 07b8 0000 0000 | | .DBG3TAB 0x0000,0x0000 07ba ; -------------------------------------------------------------------------------------- 07ba ; Debug3 Subtable 0xa 07ba ; -------------------------------------------------------------------------------------- 07ba 0000 0000 | | .DBG3TAB 0x0000,0x0000 07bc ; -------------------------------------------------------------------------------------- 07bc ; Debug3 Subtable 0xb 07bc ; -------------------------------------------------------------------------------------- 07bc 0000 0000 | | .DBG3TAB 0x0000,0x0000 07be ; -------------------------------------------------------------------------------------- 07be ; Debug3 Subtable 0xc 07be ; -------------------------------------------------------------------------------------- 07be 0000 0000 | | .DBG3TAB 0x0000,0x0000 07c0 ; -------------------------------------------------------------------------------------- 07c0 ; Debug3 Subtable 0xd 07c0 ; -------------------------------------------------------------------------------------- 07c0 0000 0000 | | .DBG3TAB 0x0000,0x0000 07c2 ; -------------------------------------------------------------------------------------- 07c2 ; Debug3 Subtable 0xe 07c2 ; -------------------------------------------------------------------------------------- 07c2 0000 0000 | | .DBG3TAB 0x0000,0x0000 07c4 0000 0000 | | .BLANK 0000[0x3c]