|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_191cd7
└─⟦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 0288 | | .CONST 0x0288 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002c | , | .CONST 0x002c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4814 |H | Short_Literal 0x14 000d 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 0011 4801 |H | Short_Literal 0x1 0012 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 0014 03fe | | Declare_Type Discrete,Defined,Visible 0015 00d8 | | Load_Top At_Offset_0 0016 00e1 | | Load_Encached Boolean_Cache 0017 4801 |H | Short_Literal 0x1 0018 e20d | | Load 0x1,0xd 0019 4801 |H | Short_Literal 0x1 001a 00e1 | | Load_Encached Boolean_Cache 001b 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 001d 4802 |H | Short_Literal 0x2 001e 4801 |H | Short_Literal 0x1 001f 4802 |H | Short_Literal 0x2 0020 4800 |H | Short_Literal 0x0 0021 4801 |H | Short_Literal 0x1 0022 031e | | Declare_Type Variant_Record,Defined,Visible 0023 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0025 00bf | | Action Accept_Activation 0026 e002 | | Load 0x0,0x2 0027 0337 | 7 | Declare_Variable Array 0028 e002 | | Load 0x0,0x2 0029 0337 | 7 | Declare_Variable Array 002a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002b 00c7 | | Action Elaborate_Subprogram 002c BODY_0008: 002c 00d9 | | Load_Top At_Offset_1 002d 4801 |H | Short_Literal 0x1 002e 4802 |H | Short_Literal 0x2 002f e003 | | Load 0x0,0x3 0030 0334 | 4 | Declare_Variable Array,With_Constraint 0031 505e |P^ | Indirect_Literal Any,0x90,{0x58522020, 0x20202020} 0032 4801 |H | Short_Literal 0x1 0033 00e5 | | Load_Encached Long_Integer_Cache 0034 00d9 | | Load_Top At_Offset_1 0035 0267 | g | Execute Discrete,Predecessor 0036 e003 | | Load 0x0,0x3 0037 0334 | 4 | Declare_Variable Array,With_Constraint 0038 4801 |H | Short_Literal 0x1 0039 483f |H? | Short_Literal 0x3f 003a e003 | | Load 0x0,0x3 003b 0334 | 4 | Declare_Variable Array,With_Constraint 003c 5057 |PW | Indirect_Literal Any,0x94,{0x61626364, 0x65666768} 003d 8004 | | Call 0x0,0x4 003e 00d1 | | Pop_Control Pop_Count_1 003f 00d8 | | Load_Top At_Offset_0 0040 4801 |H | Short_Literal 0x1 0041 4802 |H | Short_Literal 0x2 0042 e003 | | Load 0x0,0x3 0043 0334 | 4 | Declare_Variable Array,With_Constraint 0044 506f |Po | Indirect_Literal Any,0xb4,{0x58522020, 0x20202020} 0045 4801 |H | Short_Literal 0x1 0046 00e5 | | Load_Encached Long_Integer_Cache 0047 00d9 | | Load_Top At_Offset_1 0048 0267 | g | Execute Discrete,Predecessor 0049 e003 | | Load 0x0,0x3 004a 0334 | 4 | Declare_Variable Array,With_Constraint 004b 4800 |H | Short_Literal 0x0 004c 480b |H | Short_Literal 0xb 004d 480c |H | Short_Literal 0xc 004e 480a |H | Short_Literal 0xa 004f 480d |H | Short_Literal 0xd 0050 4801 |H | Short_Literal 0x1 0051 4802 |H | Short_Literal 0x2 0052 e003 | | Load 0x0,0x3 0053 0334 | 4 | Declare_Variable Array,With_Constraint 0054 4820 |H | Short_Literal 0x20 0055 4801 |H | Short_Literal 0x1 0056 00da | | Load_Top At_Offset_2 0057 01d6 | | Execute Vector,Field_Write 0058 4809 |H | Short_Literal 0x9 0059 4802 |H | Short_Literal 0x2 005a 00da | | Load_Top At_Offset_2 005b 01d6 | | Execute Vector,Field_Write 005c 01cb | | Execute Vector,Append 005d 01cb | | Execute Vector,Append 005e 01cb | | Execute Vector,Append 005f 01cb | | Execute Vector,Append 0060 01cb | | Execute Vector,Append 0061 8004 | | Call 0x0,0x4 0062 00d1 | | Pop_Control Pop_Count_1 0063 00bc | | Action Signal_Activated 0064 00bb | | Action Signal_Completion 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4607 |F | Jump_Case 0x8 006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 006d 7807 |x | Jump 0x75 ; case 0x1 006e 780a |x | Jump 0x79 ; case 0x2 006f 780e |x | Jump 0x7e ; case 0x3 0070 7811 |x | Jump 0x82 ; case 0x4 0071 7812 |x | Jump 0x84 ; case 0x5 0072 7813 |x | Jump 0x86 ; case 0x6 0073 7816 |x | Jump 0x8a ; case 0x7 0074 4302 |C | .XXX[0x1] 0075 00da | | Load_Top At_Offset_2 0076 0091 0213 | | Action Push_String_Extended_Indexed,0x213 ; "LK_IF" 0078 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0079 00db | | Load_Top At_Offset_3 007a 00db | | Load_Top At_Offset_3 007b 00e0 | | Load_Encached Standard_Cache 007c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e 00da | | Load_Top At_Offset_2 007f 00e0 | | Load_Encached Standard_Cache 0080 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0081 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0082 00db | | Load_Top At_Offset_3 0083 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0084 00db | | Load_Top At_Offset_3 0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0086 e20d | | Load 0x1,0xd 0087 00dc | | Load_Top At_Offset_4 0088 0267 | g | Execute Discrete,Predecessor 0089 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008a e20d | | Load 0x1,0xd 008b 00dc | | Load_Top At_Offset_4 008c 0268 | h | Execute Discrete,Successor 008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008e 0000 0000 | | .XXX[0x2] 0090 5852 2020 |XR | .LITERAL {0x58522020, 0x20202020} 0094 6162 6364 |abcd| .LITERAL {0x61626364, 0x65666768} 0098 696a 6b6c |ijkl| .XXX[0x1c] 009a 6d6e 6f70 |mnop| 009c 7172 7374 |qrst| 009e 7576 7778 |uvwx| 00a0 797a 4142 |yzAB| 00a2 4344 4546 |CDEF| 00a4 4748 494a |GHIJ| 00a6 4b4c 4d4e |KLMN| 00a8 4f50 5152 |OPQR| 00aa 5354 5556 |STUV| 00ac 5758 595a |WXYZ| 00ae 3031 3233 |0123| 00b0 3435 3637 |4567| 00b2 3839 5f20 |89_ | 00b4 5852 2020 |XR | .LITERAL {0x58522020, 0x20202020} 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 4607 |F | Jump_Case 0x8 00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00bd 7807 |x | Jump 0xc5 ; case 0x1 00be 780a |x | Jump 0xc9 ; case 0x2 00bf 780e |x | Jump 0xce ; case 0x3 00c0 7811 |x | Jump 0xd2 ; case 0x4 00c1 7812 |x | Jump 0xd4 ; case 0x5 00c2 7813 |x | Jump 0xd6 ; case 0x6 00c3 7816 |x | Jump 0xda ; case 0x7 00c4 4302 |C | .XXX[0x1] 00c5 00da | | Load_Top At_Offset_2 00c6 0091 0228 | (| Action Push_String_Extended_Indexed,0x228 ; "SK_KEYWORD" 00c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c9 00db | | Load_Top At_Offset_3 00ca 00db | | Load_Top At_Offset_3 00cb 00e0 | | Load_Encached Standard_Cache 00cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ce 00da | | Load_Top At_Offset_2 00cf 00e0 | | Load_Encached Standard_Cache 00d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d2 00db | | Load_Top At_Offset_3 00d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d4 00db | | Load_Top At_Offset_3 00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d6 e20e | | Load 0x1,0xe 00d7 00dc | | Load_Top At_Offset_4 00d8 0267 | g | Execute Discrete,Predecessor 00d9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00da e20e | | Load 0x1,0xe 00db 00dc | | Load_Top At_Offset_4 00dc 0268 | h | Execute Discrete,Successor 00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00de 0000 0000 | | .XXX[0x2] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e5 | | .CONST 0x00e5 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0003 | | .CONST 0x0003 ; Number of locals 00e3 INIT_00e0: 00e3 00e8 | | Load_Encached Character_Cache 00e4 00e1 | | Load_Encached Boolean_Cache 00e5 BODY_00e0: 00e5 00e8 | | Load_Encached Character_Cache 00e6 e212 | | Load 0x1,0x12 00e7 e5ff | | Load 0x2,-0x1 00e8 8005 | | Call 0x0,0x5 00e9 005a | Z | Store_Top Discrete,At_Offset_2 00ea 00d9 | | Load_Top At_Offset_1 00eb 00d8 | | Load_Top At_Offset_0 00ec 0c41 | A | Execute_Immediate Greater_Equal,0x41 00ed 7045 |pE | Jump_Nonzero 0x133 00ee 4640 |F@ | Jump_Case 0x41 00ef 784e |xN | Jump 0x13e ; case 0x0 00f0 783f |x? | Jump 0x130 ; case 0x1 00f1 783e |x> | Jump 0x130 ; case 0x2 00f2 783d |x= | Jump 0x130 ; case 0x3 00f3 783c |x< | Jump 0x130 ; case 0x4 00f4 783b |x; | Jump 0x130 ; case 0x5 00f5 783a |x: | Jump 0x130 ; case 0x6 00f6 7839 |x9 | Jump 0x130 ; case 0x7 00f7 7838 |x8 | Jump 0x130 ; case 0x8 00f8 7837 |x7 | Jump 0x130 ; case 0x9 00f9 7836 |x6 | Jump 0x130 ; case 0xa 00fa 7835 |x5 | Jump 0x130 ; case 0xb 00fb 7834 |x4 | Jump 0x130 ; case 0xc 00fc 7833 |x3 | Jump 0x130 ; case 0xd 00fd 7832 |x2 | Jump 0x130 ; case 0xe 00fe 7831 |x1 | Jump 0x130 ; case 0xf 00ff 7830 |x0 | Jump 0x130 ; case 0x10 0100 782f |x/ | Jump 0x130 ; case 0x11 0101 782e |x. | Jump 0x130 ; case 0x12 0102 782d |x- | Jump 0x130 ; case 0x13 0103 782c |x, | Jump 0x130 ; case 0x14 0104 782b |x+ | Jump 0x130 ; case 0x15 0105 782a |x* | Jump 0x130 ; case 0x16 0106 7829 |x) | Jump 0x130 ; case 0x17 0107 7828 |x( | Jump 0x130 ; case 0x18 0108 7827 |x' | Jump 0x130 ; case 0x19 0109 7826 |x& | Jump 0x130 ; case 0x1a 010a 7825 |x% | Jump 0x130 ; case 0x1b 010b 7824 |x$ | Jump 0x130 ; case 0x1c 010c 7823 |x# | Jump 0x130 ; case 0x1d 010d 7822 |x" | Jump 0x130 ; case 0x1e 010e 7821 |x! | Jump 0x130 ; case 0x1f 010f 7820 |x | Jump 0x130 ; case 0x20 0110 781f |x | Jump 0x130 ; case 0x21 0111 781e |x | Jump 0x130 ; case 0x22 0112 781d |x | Jump 0x130 ; case 0x23 0113 781c |x | Jump 0x130 ; case 0x24 0114 781b |x | Jump 0x130 ; case 0x25 0115 781a |x | Jump 0x130 ; case 0x26 0116 7819 |x | Jump 0x130 ; case 0x27 0117 7860 |x` | Jump 0x178 ; case 0x28 0118 7865 |xe | Jump 0x17e ; case 0x29 0119 7816 |x | Jump 0x130 ; case 0x2a 011a 7815 |x | Jump 0x130 ; case 0x2b 011b 7850 |xP | Jump 0x16c ; case 0x2c 011c 7892 |x | Jump 0x1af ; case 0x2d 011d 7812 |x | Jump 0x130 ; case 0x2e 011e 787e |x~ | Jump 0x19d ; case 0x2f 011f 7810 |x | Jump 0x130 ; case 0x30 0120 780f |x | Jump 0x130 ; case 0x31 0121 780e |x | Jump 0x130 ; case 0x32 0122 780d |x | Jump 0x130 ; case 0x33 0123 780c |x | Jump 0x130 ; case 0x34 0124 780b |x | Jump 0x130 ; case 0x35 0125 780a |x | Jump 0x130 ; case 0x36 0126 7809 |x | Jump 0x130 ; case 0x37 0127 7808 |x | Jump 0x130 ; case 0x38 0128 7807 |x | Jump 0x130 ; case 0x39 0129 7806 |x | Jump 0x130 ; case 0x3a 012a 7847 |xG | Jump 0x172 ; case 0x3b 012b 7804 |x | Jump 0x130 ; case 0x3c 012c 7857 |xW | Jump 0x184 ; case 0x3d 012d 7802 |x | Jump 0x130 ; case 0x3e 012e 7801 |x | Jump 0x130 ; case 0x3f 012f 7800 |x | Jump 0x130 ; case 0x40 0130 4813 |H | Short_Literal 0x13 0131 a5fe | | Store_Unchecked 0x2,-0x2 0132 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0133 00d8 | | Load_Top At_Offset_0 0134 0c5b | [ | Execute_Immediate Greater_Equal,0x5b 0135 6812 |h | Jump_Zero 0x148 0136 00d8 | | Load_Top At_Offset_0 0137 4861 |Ha | Short_Literal 0x61 0138 487a |Hz | Short_Literal 0x7a 0139 0262 | b | Execute Discrete,In_Range 013a 700d |p | Jump_Nonzero 0x148 013b 0f7c | | | Execute_Immediate Equal,0x7c 013c 7029 |p) | Jump_Nonzero 0x166 013d 7ff2 | | Jump 0x130 013e e5ff | | Load 0x2,-0x1 013f 0227 | ' | Execute Access,All_Reference 0140 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0141 7003 |p | Jump_Nonzero 0x145 0142 4814 |H | Short_Literal 0x14 0143 a5fe | | Store_Unchecked 0x2,-0x2 0144 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0145 4813 |H | Short_Literal 0x13 0146 a5fe | | Store_Unchecked 0x2,-0x2 0147 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0148 00d1 | | Pop_Control Pop_Count_1 0149 00e8 | | Load_Encached Character_Cache 014a e211 | | Load 0x1,0x11 014b e5ff | | Load 0x2,-0x1 014c e5fd | | Load 0x2,-0x3 014d 8006 | | Call 0x0,0x6 014e 005a | Z | Store_Top Discrete,At_Offset_2 014f 00e1 | | Load_Encached Boolean_Cache 0150 e5fc | | Load 0x2,-0x4 0151 e5fd | | Load 0x2,-0x3 0152 8007 | | Call 0x0,0x7 0153 e008 | | Load 0x0,0x8 0154 8009 | | Call 0x0,0x9 0155 00d1 | | Pop_Control Pop_Count_1 0156 0059 | Y | Store_Top Discrete,At_Offset_1 0157 00d8 | | Load_Top At_Offset_0 0158 7003 |p | Jump_Nonzero 0x15c 0159 4806 |H | Short_Literal 0x6 015a a5fe | | Store_Unchecked 0x2,-0x2 015b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015c e5fc | | Load 0x2,-0x4 015d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 015e 7004 |p | Jump_Nonzero 0x163 015f e5fc | | Load 0x2,-0x4 0160 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0161 a5fe | | Store_Unchecked 0x2,-0x2 0162 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0163 4805 |H | Short_Literal 0x5 0164 a5fe | | Store_Unchecked 0x2,-0x2 0165 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0166 e5ff | | Load 0x2,-0x1 0167 800a | | Call 0x0,0xa 0168 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0169 480d |H | Short_Literal 0xd 016a a5fe | | Store_Unchecked 0x2,-0x2 016b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016c e5ff | | Load 0x2,-0x1 016d 800a | | Call 0x0,0xa 016e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 016f 480f |H | Short_Literal 0xf 0170 a5fe | | Store_Unchecked 0x2,-0x2 0171 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0172 e5ff | | Load 0x2,-0x1 0173 800a | | Call 0x0,0xa 0174 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0175 4810 |H | Short_Literal 0x10 0176 a5fe | | Store_Unchecked 0x2,-0x2 0177 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0178 e5ff | | Load 0x2,-0x1 0179 800a | | Call 0x0,0xa 017a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 017b 4811 |H | Short_Literal 0x11 017c a5fe | | Store_Unchecked 0x2,-0x2 017d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017e e5ff | | Load 0x2,-0x1 017f 800a | | Call 0x0,0xa 0180 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0181 4812 |H | Short_Literal 0x12 0182 a5fe | | Store_Unchecked 0x2,-0x2 0183 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0184 e5ff | | Load 0x2,-0x1 0185 0227 | ' | Execute Access,All_Reference 0186 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0187 0c02 | | Execute_Immediate Greater_Equal,0x2 0188 680e |h | Jump_Zero 0x197 0189 4802 |H | Short_Literal 0x2 018a e5ff | | Load 0x2,-0x1 018b 0227 | ' | Execute Access,All_Reference 018c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 018d 01d7 | | Execute Vector,Field_Read 018e 0f3e | > | Execute_Immediate Equal,0x3e 018f 6807 |h | Jump_Zero 0x197 0190 480e |H | Short_Literal 0xe 0191 a5fe | | Store_Unchecked 0x2,-0x2 0192 6031 |`1 | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x7fffffff} 0193 4803 |H | Short_Literal 0x3 0194 e5ff | | Load 0x2,-0x1 0195 800b | | Call 0x0,0xb 0196 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0197 e5ff | | Load 0x2,-0x1 0198 800a | | Call 0x0,0xa 0199 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 019a 480b |H | Short_Literal 0xb 019b a5fe | | Store_Unchecked 0x2,-0x2 019c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 019d 4801 |H | Short_Literal 0x1 019e 4802 |H | Short_Literal 0x2 019f e003 | | Load 0x0,0x3 01a0 0334 | 4 | Declare_Variable Array,With_Constraint 01a1 5026 |P& | Indirect_Literal Any,0x1c8,{0x2f3d2020, 0x20202020} 01a2 e5ff | | Load 0x2,-0x1 01a3 800c | | Call 0x0,0xc 01a4 6807 |h | Jump_Zero 0x1ac 01a5 480c |H | Short_Literal 0xc 01a6 a5fe | | Store_Unchecked 0x2,-0x2 01a7 601c |` | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x7fffffff} 01a8 4803 |H | Short_Literal 0x3 01a9 e5ff | | Load 0x2,-0x1 01aa 800b | | Call 0x0,0xb 01ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ac 4813 |H | Short_Literal 0x13 01ad a5fe | | Store_Unchecked 0x2,-0x2 01ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01af e5ff | | Load 0x2,-0x1 01b0 0227 | ' | Execute Access,All_Reference 01b1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01b2 0d02 | | Execute_Immediate Less,0x2 01b3 7007 |p | Jump_Nonzero 0x1bb 01b4 4802 |H | Short_Literal 0x2 01b5 e5ff | | Load 0x2,-0x1 01b6 0227 | ' | Execute Access,All_Reference 01b7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01b8 01d7 | | Execute Vector,Field_Read 01b9 0e2d | - | Execute_Immediate Not_Equal,0x2d 01ba 6803 |h | Jump_Zero 0x1be 01bb 4813 |H | Short_Literal 0x13 01bc a5fe | | Store_Unchecked 0x2,-0x2 01bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01be e5ff | | Load 0x2,-0x1 01bf 800d | | Call 0x0,0xd 01c0 4814 |H | Short_Literal 0x14 01c1 a5fe | | Store_Unchecked 0x2,-0x2 01c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c3 0000 | | .XXX[0x1] 01c4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 01c8 2f3d 2020 |/= | .LITERAL {0x2f3d2020, 0x20202020} 01cc 0000 0000 | | .BLANK 0000[0x4] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 4609 |F | Jump_Case 0xa 01d4 7809 |x | Jump 0x1de ; case 0x0 01d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01d6 7817 |x | Jump 0x1ee ; case 0x2 01d7 781a |x | Jump 0x1f2 ; case 0x3 01d8 7839 |x9 | Jump 0x212 ; case 0x4 01d9 7838 |x8 | Jump 0x212 ; case 0x5 01da 781d |x | Jump 0x1f8 ; case 0x6 01db 7822 |x" | Jump 0x1fe ; case 0x7 01dc 782a |x* | Jump 0x207 ; case 0x8 01dd 7830 |x0 | Jump 0x20e ; case 0x9 01de 00da | | Load_Top At_Offset_2 01df 016c | l | Execute Variant_Record,Is_Constrained 01e0 7009 |p | Jump_Nonzero 0x1ea 01e1 00cf | | Action Mark_Auxiliary 01e2 4801 |H | Short_Literal 0x1 01e3 e5ff | | Load 0x2,-0x1 01e4 1c08 | | Execute_Immediate Run_Utility,0x8 01e5 00d8 | | Load_Top At_Offset_0 01e6 1c00 | | Execute_Immediate Run_Utility,0x0 01e7 c5ff | | Store 0x2,-0x1 01e8 00ce | | Action Pop_Auxiliary 01e9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01ea 00da | | Load_Top At_Offset_2 01eb 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01ec 6800 |h | Jump_Zero 0x1ed 01ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01ee 4801 |H | Short_Literal 0x1 01ef 4804 |H | Short_Literal 0x4 01f0 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 01f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01f2 e5fd | | Load 0x2,-0x3 01f3 00db | | Load_Top At_Offset_3 01f4 1c07 | | Execute_Immediate Run_Utility,0x7 01f5 e5fe | | Load 0x2,-0x2 01f6 0306 | | Complete_Type Variant_Record,By_Renaming 01f7 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 01f8 00db | | Load_Top At_Offset_3 01f9 6802 |h | Jump_Zero 0x1fc 01fa 4802 |H | Short_Literal 0x2 01fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01fc 4801 |H | Short_Literal 0x1 01fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01fe 00db | | Load_Top At_Offset_3 01ff e5fe | | Load 0x2,-0x2 0200 6802 |h | Jump_Zero 0x203 0201 4802 |H | Short_Literal 0x2 0202 7801 |x | Jump 0x204 0203 4801 |H | Short_Literal 0x1 0204 e5ff | | Load 0x2,-0x1 0205 031b | | Declare_Type Variant_Record,Constrained 0206 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0207 00db | | Load_Top At_Offset_3 0208 e5fe | | Load 0x2,-0x2 0209 e5ff | | Load 0x2,-0x1 020a 1c06 | | Execute_Immediate Run_Utility,0x6 020b e5ff | | Load 0x2,-0x1 020c 02fc | | Declare_Variable Variant_Record,With_Constraint 020d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 020e 4801 |H | Short_Literal 0x1 020f 00db | | Load_Top At_Offset_3 0210 1c07 | | Execute_Immediate Run_Utility,0x7 0211 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0212 0869 | i | Execute_Immediate Raise,0x69 0213 ; -------------------------------------------------------------------------------------- 0213 ; STRING TABLE 0213 ; -------------------------------------------------------------------------------------- 0213 0030 | 0 | .STRTAB 0x0030->0x022b ; "LK_IF" 0214 0033 | 3 | .STRTAB 0x0033->0x022d ; "LK_THEN" 0215 0038 | 8 | .STRTAB 0x0038->0x0231 ; "LK_ELSIF" 0216 003e | > | .STRTAB 0x003e->0x0235 ; "LK_ELSE" 0217 0043 | C | .STRTAB 0x0043->0x0238 ; "LK_END" 0218 0047 | G | .STRTAB 0x0047->0x023b ; "LK_IDENTIFIER" 0219 0052 | R | .STRTAB 0x0052->0x0242 ; "LK_UNKNOWN" 021a 005a | Z | .STRTAB 0x005a->0x0247 ; "LK_NOT" 021b 005e | ^ | .STRTAB 0x005e->0x024a ; "LK_AND" 021c 0062 | b | .STRTAB 0x0062->0x024d ; "LK_OR" 021d 0065 | e | .STRTAB 0x0065->0x024f ; "LK_XOR" 021e 0069 | i | .STRTAB 0x0069->0x0252 ; "LK_EQL" 021f 006d | m | .STRTAB 0x006d->0x0255 ; "LK_NEQ" 0220 0071 | q | .STRTAB 0x0071->0x0258 ; "LK_VBAR" 0221 0076 | v | .STRTAB 0x0076->0x025c ; "LK_ARROW" 0222 007c | | | .STRTAB 0x007c->0x0260 ; "LK_COMMA" 0223 0082 | | .STRTAB 0x0082->0x0264 ; "LK_SEMICOLON" 0224 008c | | .STRTAB 0x008c->0x026a ; "LK_LPAREN" 0225 0093 | | .STRTAB 0x0093->0x026e ; "LK_RPAREN" 0226 009a | | .STRTAB 0x009a->0x0273 ; "LK_ERROR" 0227 00a0 | | .STRTAB 0x00a0->0x0277 ; "LK_EOL" 0228 00a4 | | .STRTAB 0x00a4->0x027a ; "SK_KEYWORD" 0229 00ac | | .STRTAB 0x00ac->0x027f ; "SK_BOOLEAN" 022a 00b4 | | .STREND 0x00b4->0x0284 022b 4c4b 5f49 |LK_I| .STRTAB_STRINGS 0284 0000 0000 | | .BLANK 0000[0x4] 0288 ; -------------------------------------------------------------------------------------- 0288 ; Debug Table 0288 ; -------------------------------------------------------------------------------------- 0288 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4d15,0x0000,0x0001,0x0006 028e 000b 02a6 | | .DBG4T 0x000b,0x02a6,0x8000,0x0000 0292 0026 02ac | & | .DBG4T 0x0026,0x02ac,0x8000,0x0000 0296 006b 0000 | k | .DBG4T 0x006b,0x0000,0x0005,0x0000 029a 00bb 0000 | | .DBG4T 0x00bb,0x0000,0x0005,0x0000 029e 00e3 02b3 | | .DBG4T 0x00e3,0x02b3,0x0001,0x4000 02a2 01d3 0000 | | .DBG4T 0x01d3,0x0000,0x0005,0x0000 02a6 ; -------------------------------------------------------------------------------------- 02a6 ; Debug chain 02a6 ; -------------------------------------------------------------------------------------- 02a6 0004 0000 | | .DBGLEN 0x0004,0x0000 02a8 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0023 02ac ; -------------------------------------------------------------------------------------- 02ac ; Debug chain 02ac ; -------------------------------------------------------------------------------------- 02ac 0003 0002 | | .DBGLEN 0x0003,0x0002 02ae 0026 0028 | & (| .DBGLNO 0x0026,0x0028,0x002a,0x002c,0x003f 02b3 ; -------------------------------------------------------------------------------------- 02b3 ; Debug chain 02b3 ; -------------------------------------------------------------------------------------- 02b3 0002 0024 | $| .DBGLEN 0x0002,0x0024 02b5 00e3 00e4 | | .DBGLNO 0x00e3,0x00e4,0x00e5,0x00ea,0x0130,0x013e,0x0142,0x0145,0x0149,0x014f,0x0157,0x0159,0x015c,0x015f,0x0163,0x0166,0x0169,0x016c,0x016f,0x0172,0x0175,0x0178,0x017b,0x017e,0x0181,0x0184,0x0190,0x0192,0x0197,0x019a,0x019d,0x01a5,0x01a7,0x01ac,0x01af,0x01bb,0x01be,0x01c0 02db 0001 0002 | | .XXX[0x24] 02dd 0024 0003 | $ | 02df 0004 0005 | | 02e1 0006 0007 | | 02e3 0008 0009 | | 02e5 000a 000b | | 02e7 000c 000d | | 02e9 000e 000f | | 02eb 0010 0011 | | 02ed 0012 0013 | | 02ef 0014 0015 | | 02f1 0016 0017 | | 02f3 0018 0019 | | 02f5 001a 001b | | 02f7 001c 001d | | 02f9 001e 001f | | 02fb 0020 0021 | !| 02fd 0022 0023 | " #| 02ff 0000 0000 | | .BLANK 0000[0x101]