|
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_0658fb
└─⟦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 0260 | ` | .CONST 0x0260 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002e | . | .CONST 0x002e ; 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 004b | K| Declare_Subprogram INIT_0048,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 0011 4801 |H | Short_Literal 0x1 0012 029f 0073 | s| Declare_Subprogram INIT_0070,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 0193 | | Declare_Subprogram INIT_0190,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 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0025 00bf | | Action Accept_Activation 0026 e001 | | Load 0x0,0x1 0027 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0028 0337 | 7 | Declare_Variable Array 0029 e001 | | Load 0x0,0x1 002a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002b 0337 | 7 | Declare_Variable Array 002c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002d 00c7 | | Action Elaborate_Subprogram 002e BODY_0008: 002e 00d9 | | Load_Top At_Offset_1 002f 0092 01db | | Action Push_String_Extended,0x1db ; "XR" 0031 00ea | | Load_Encached Null_String_Cache 0032 0092 01dc | | Action Push_String_Extended,0x1dc ; "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_" 0034 e001 | | Load 0x0,0x1 0035 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0036 00d1 | | Pop_Control Pop_Count_1 0037 00d8 | | Load_Top At_Offset_0 0038 0092 01db | | Action Push_String_Extended,0x1db ; "XR" 003a 00ea | | Load_Encached Null_String_Cache 003b 0092 01dd | | Action Push_String_Extended,0x1dd ; " \x09\x0d\x0a\x0c\x0b\x00" 003d e001 | | Load 0x0,0x1 003e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 003f 00d1 | | Pop_Control Pop_Count_1 0040 00bc | | Action Signal_Activated 0041 00bb | | Action Signal_Completion 0042 0000 0000 | | .BLANK 0000[0x6] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 4607 |F | Jump_Case 0x8 004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 004d 7806 |x | Jump 0x54 ; case 0x1 004e 7809 |x | Jump 0x58 ; case 0x2 004f 780d |x | Jump 0x5d ; case 0x3 0050 7810 |x | Jump 0x61 ; case 0x4 0051 7811 |x | Jump 0x63 ; case 0x5 0052 7812 |x | Jump 0x65 ; case 0x6 0053 7815 |x | Jump 0x69 ; case 0x7 0054 00da | | Load_Top At_Offset_2 0055 0091 01c4 | | Action Push_String_Extended_Indexed,0x1c4 ; "LK_IF" 0057 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0058 00db | | Load_Top At_Offset_3 0059 00db | | Load_Top At_Offset_3 005a 00e0 | | Load_Encached Standard_Cache 005b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005d 00da | | Load_Top At_Offset_2 005e 00e0 | | Load_Encached Standard_Cache 005f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0060 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0061 00db | | Load_Top At_Offset_3 0062 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0063 00db | | Load_Top At_Offset_3 0064 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0065 e20d | | Load 0x1,0xd 0066 00dc | | Load_Top At_Offset_4 0067 0267 | g | Execute Discrete,Predecessor 0068 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0069 e20d | | Load 0x1,0xd 006a 00dc | | Load_Top At_Offset_4 006b 0268 | h | Execute Discrete,Successor 006c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4607 |F | Jump_Case 0x8 0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0075 7806 |x | Jump 0x7c ; case 0x1 0076 7809 |x | Jump 0x80 ; case 0x2 0077 780d |x | Jump 0x85 ; case 0x3 0078 7810 |x | Jump 0x89 ; case 0x4 0079 7811 |x | Jump 0x8b ; case 0x5 007a 7812 |x | Jump 0x8d ; case 0x6 007b 7815 |x | Jump 0x91 ; case 0x7 007c 00da | | Load_Top At_Offset_2 007d 0091 01d9 | | Action Push_String_Extended_Indexed,0x1d9 ; "SK_KEYWORD" 007f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0080 00db | | Load_Top At_Offset_3 0081 00db | | Load_Top At_Offset_3 0082 00e0 | | Load_Encached Standard_Cache 0083 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0085 00da | | Load_Top At_Offset_2 0086 00e0 | | Load_Encached Standard_Cache 0087 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0089 00db | | Load_Top At_Offset_3 008a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008b 00db | | Load_Top At_Offset_3 008c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008d e20e | | Load 0x1,0xe 008e 00dc | | Load_Top At_Offset_4 008f 0267 | g | Execute Discrete,Predecessor 0090 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0091 e20e | | Load 0x1,0xe 0092 00dc | | Load_Top At_Offset_4 0093 0268 | h | Execute Discrete,Successor 0094 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009d | | .CONST 0x009d ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0003 | | .CONST 0x0003 ; Number of locals 009b INIT_0098: 009b 00e8 | | Load_Encached Character_Cache 009c 00e1 | | Load_Encached Boolean_Cache 009d BODY_0098: 009d e5fd | | Load 0x2,-0x3 009e e002 | | Load 0x0,0x2 009f 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a0 00e8 | | Load_Encached Character_Cache 00a1 e212 | | Load 0x1,0x12 00a2 e5ff | | Load 0x2,-0x1 00a3 e001 | | Load 0x0,0x1 00a4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a5 005a | Z | Store_Top Discrete,At_Offset_2 00a6 00d9 | | Load_Top At_Offset_1 00a7 00d8 | | Load_Top At_Offset_0 00a8 0c41 | A | Execute_Immediate Greater_Equal,0x41 00a9 7045 |pE | Jump_Nonzero 0xef 00aa 4640 |F@ | Jump_Case 0x41 00ab 784e |xN | Jump 0xfa ; case 0x0 00ac 783f |x? | Jump 0xec ; case 0x1 00ad 783e |x> | Jump 0xec ; case 0x2 00ae 783d |x= | Jump 0xec ; case 0x3 00af 783c |x< | Jump 0xec ; case 0x4 00b0 783b |x; | Jump 0xec ; case 0x5 00b1 783a |x: | Jump 0xec ; case 0x6 00b2 7839 |x9 | Jump 0xec ; case 0x7 00b3 7838 |x8 | Jump 0xec ; case 0x8 00b4 7837 |x7 | Jump 0xec ; case 0x9 00b5 7836 |x6 | Jump 0xec ; case 0xa 00b6 7835 |x5 | Jump 0xec ; case 0xb 00b7 7834 |x4 | Jump 0xec ; case 0xc 00b8 7833 |x3 | Jump 0xec ; case 0xd 00b9 7832 |x2 | Jump 0xec ; case 0xe 00ba 7831 |x1 | Jump 0xec ; case 0xf 00bb 7830 |x0 | Jump 0xec ; case 0x10 00bc 782f |x/ | Jump 0xec ; case 0x11 00bd 782e |x. | Jump 0xec ; case 0x12 00be 782d |x- | Jump 0xec ; case 0x13 00bf 782c |x, | Jump 0xec ; case 0x14 00c0 782b |x+ | Jump 0xec ; case 0x15 00c1 782a |x* | Jump 0xec ; case 0x16 00c2 7829 |x) | Jump 0xec ; case 0x17 00c3 7828 |x( | Jump 0xec ; case 0x18 00c4 7827 |x' | Jump 0xec ; case 0x19 00c5 7826 |x& | Jump 0xec ; case 0x1a 00c6 7825 |x% | Jump 0xec ; case 0x1b 00c7 7824 |x$ | Jump 0xec ; case 0x1c 00c8 7823 |x# | Jump 0xec ; case 0x1d 00c9 7822 |x" | Jump 0xec ; case 0x1e 00ca 7821 |x! | Jump 0xec ; case 0x1f 00cb 7820 |x | Jump 0xec ; case 0x20 00cc 781f |x | Jump 0xec ; case 0x21 00cd 781e |x | Jump 0xec ; case 0x22 00ce 781d |x | Jump 0xec ; case 0x23 00cf 781c |x | Jump 0xec ; case 0x24 00d0 781b |x | Jump 0xec ; case 0x25 00d1 781a |x | Jump 0xec ; case 0x26 00d2 7819 |x | Jump 0xec ; case 0x27 00d3 7868 |xh | Jump 0x13c ; case 0x28 00d4 786e |xn | Jump 0x143 ; case 0x29 00d5 7816 |x | Jump 0xec ; case 0x2a 00d6 7815 |x | Jump 0xec ; case 0x2b 00d7 7856 |xV | Jump 0x12e ; case 0x2c 00d8 789d |x | Jump 0x176 ; case 0x2d 00d9 7812 |x | Jump 0xec ; case 0x2e 00da 788a |x | Jump 0x165 ; case 0x2f 00db 7810 |x | Jump 0xec ; case 0x30 00dc 780f |x | Jump 0xec ; case 0x31 00dd 780e |x | Jump 0xec ; case 0x32 00de 780d |x | Jump 0xec ; case 0x33 00df 780c |x | Jump 0xec ; case 0x34 00e0 780b |x | Jump 0xec ; case 0x35 00e1 780a |x | Jump 0xec ; case 0x36 00e2 7809 |x | Jump 0xec ; case 0x37 00e3 7808 |x | Jump 0xec ; case 0x38 00e4 7807 |x | Jump 0xec ; case 0x39 00e5 7806 |x | Jump 0xec ; case 0x3a 00e6 784e |xN | Jump 0x135 ; case 0x3b 00e7 7804 |x | Jump 0xec ; case 0x3c 00e8 7861 |xa | Jump 0x14a ; case 0x3d 00e9 7802 |x | Jump 0xec ; case 0x3e 00ea 7801 |x | Jump 0xec ; case 0x3f 00eb 7800 |x | Jump 0xec ; case 0x40 00ec 4813 |H | Short_Literal 0x13 00ed a5fe | | Store_Unchecked 0x2,-0x2 00ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ef 00d8 | | Load_Top At_Offset_0 00f0 0c5b | [ | Execute_Immediate Greater_Equal,0x5b 00f1 6812 |h | Jump_Zero 0x104 00f2 00d8 | | Load_Top At_Offset_0 00f3 4861 |Ha | Short_Literal 0x61 00f4 487a |Hz | Short_Literal 0x7a 00f5 0262 | b | Execute Discrete,In_Range 00f6 700d |p | Jump_Nonzero 0x104 00f7 0f7c | | | Execute_Immediate Equal,0x7c 00f8 702e |p. | Jump_Nonzero 0x127 00f9 7ff2 | | Jump 0xec 00fa e5ff | | Load 0x2,-0x1 00fb 0227 | ' | Execute Access,All_Reference 00fc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00fd 7003 |p | Jump_Nonzero 0x101 00fe 4814 |H | Short_Literal 0x14 00ff a5fe | | Store_Unchecked 0x2,-0x2 0100 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0101 4813 |H | Short_Literal 0x13 0102 a5fe | | Store_Unchecked 0x2,-0x2 0103 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0104 00d1 | | Pop_Control Pop_Count_1 0105 00e8 | | Load_Encached Character_Cache 0106 e211 | | Load 0x1,0x11 0107 e5ff | | Load 0x2,-0x1 0108 e5fd | | Load 0x2,-0x3 0109 e001 | | Load 0x0,0x1 010a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 010b 005a | Z | Store_Top Discrete,At_Offset_2 010c 00e1 | | Load_Encached Boolean_Cache 010d e5fc | | Load 0x2,-0x4 010e e5fd | | Load 0x2,-0x3 010f e002 | | Load 0x0,0x2 0110 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0111 e003 | | Load 0x0,0x3 0112 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0113 e003 | | Load 0x0,0x3 0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0115 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0116 00d1 | | Pop_Control Pop_Count_1 0117 0059 | Y | Store_Top Discrete,At_Offset_1 0118 00d8 | | Load_Top At_Offset_0 0119 7003 |p | Jump_Nonzero 0x11d 011a 4806 |H | Short_Literal 0x6 011b a5fe | | Store_Unchecked 0x2,-0x2 011c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011d e5fc | | Load 0x2,-0x4 011e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 011f 7004 |p | Jump_Nonzero 0x124 0120 e5fc | | Load 0x2,-0x4 0121 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0122 a5fe | | Store_Unchecked 0x2,-0x2 0123 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0124 4805 |H | Short_Literal 0x5 0125 a5fe | | Store_Unchecked 0x2,-0x2 0126 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0127 e5ff | | Load 0x2,-0x1 0128 e002 | | Load 0x0,0x2 0129 181a | | Execute Package,Field_Execute,Field_Number 0x1a 012a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 012b 480d |H | Short_Literal 0xd 012c a5fe | | Store_Unchecked 0x2,-0x2 012d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012e e5ff | | Load 0x2,-0x1 012f e002 | | Load 0x0,0x2 0130 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0131 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0132 480f |H | Short_Literal 0xf 0133 a5fe | | Store_Unchecked 0x2,-0x2 0134 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0135 e5ff | | Load 0x2,-0x1 0136 e002 | | Load 0x0,0x2 0137 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0138 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0139 4810 |H | Short_Literal 0x10 013a a5fe | | Store_Unchecked 0x2,-0x2 013b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013c e5ff | | Load 0x2,-0x1 013d e002 | | Load 0x0,0x2 013e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 013f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0140 4811 |H | Short_Literal 0x11 0141 a5fe | | Store_Unchecked 0x2,-0x2 0142 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0143 e5ff | | Load 0x2,-0x1 0144 e002 | | Load 0x0,0x2 0145 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0146 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0147 4812 |H | Short_Literal 0x12 0148 a5fe | | Store_Unchecked 0x2,-0x2 0149 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014a e5ff | | Load 0x2,-0x1 014b 0227 | ' | Execute Access,All_Reference 014c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 014d 0c02 | | Execute_Immediate Greater_Equal,0x2 014e 680f |h | Jump_Zero 0x15e 014f 4802 |H | Short_Literal 0x2 0150 e5ff | | Load 0x2,-0x1 0151 0227 | ' | Execute Access,All_Reference 0152 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0153 01d7 | | Execute Vector,Field_Read 0154 0f3e | > | Execute_Immediate Equal,0x3e 0155 6808 |h | Jump_Zero 0x15e 0156 480e |H | Short_Literal 0xe 0157 a5fe | | Store_Unchecked 0x2,-0x2 0158 6033 |`3 | Indirect_Literal Discrete,0x18c,{0x00000000, 0x7fffffff} 0159 4803 |H | Short_Literal 0x3 015a e5ff | | Load 0x2,-0x1 015b e002 | | Load 0x0,0x2 015c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 015d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015e e5ff | | Load 0x2,-0x1 015f e002 | | Load 0x0,0x2 0160 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0161 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0162 480b |H | Short_Literal 0xb 0163 a5fe | | Store_Unchecked 0x2,-0x2 0164 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0165 0092 01de | | Action Push_String_Extended,0x1de ; "/=" 0167 e5ff | | Load 0x2,-0x1 0168 e004 | | Load 0x0,0x4 0169 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 016a 6808 |h | Jump_Zero 0x173 016b 480c |H | Short_Literal 0xc 016c a5fe | | Store_Unchecked 0x2,-0x2 016d 601e |` | Indirect_Literal Discrete,0x18c,{0x00000000, 0x7fffffff} 016e 4803 |H | Short_Literal 0x3 016f e5ff | | Load 0x2,-0x1 0170 e002 | | Load 0x0,0x2 0171 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0172 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0173 4813 |H | Short_Literal 0x13 0174 a5fe | | Store_Unchecked 0x2,-0x2 0175 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0176 e5ff | | Load 0x2,-0x1 0177 0227 | ' | Execute Access,All_Reference 0178 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0179 0d02 | | Execute_Immediate Less,0x2 017a 7007 |p | Jump_Nonzero 0x182 017b 4802 |H | Short_Literal 0x2 017c e5ff | | Load 0x2,-0x1 017d 0227 | ' | Execute Access,All_Reference 017e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 017f 01d7 | | Execute Vector,Field_Read 0180 0e2d | - | Execute_Immediate Not_Equal,0x2d 0181 6803 |h | Jump_Zero 0x185 0182 4813 |H | Short_Literal 0x13 0183 a5fe | | Store_Unchecked 0x2,-0x2 0184 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0185 e5ff | | Load 0x2,-0x1 0186 e002 | | Load 0x0,0x2 0187 180e | | Execute Package,Field_Execute,Field_Number 0xe 0188 4814 |H | Short_Literal 0x14 0189 a5fe | | Store_Unchecked 0x2,-0x2 018a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018b 0000 | | .XXX[0x1] 018c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 4608 |F | Jump_Case 0x9 0194 7808 |x | Jump 0x19d ; case 0x0 0195 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0196 782c |x, | Jump 0x1c3 ; case 0x2 0197 782b |x+ | Jump 0x1c3 ; case 0x3 0198 782a |x* | Jump 0x1c3 ; case 0x4 0199 7829 |x) | Jump 0x1c3 ; case 0x5 019a 7812 |x | Jump 0x1ad ; case 0x6 019b 7817 |x | Jump 0x1b3 ; case 0x7 019c 781f |x | Jump 0x1bc ; case 0x8 019d 00da | | Load_Top At_Offset_2 019e 016c | l | Execute Variant_Record,Is_Constrained 019f 7009 |p | Jump_Nonzero 0x1a9 01a0 00cf | | Action Mark_Auxiliary 01a1 4801 |H | Short_Literal 0x1 01a2 e5ff | | Load 0x2,-0x1 01a3 1c08 | | Execute_Immediate Run_Utility,0x8 01a4 00d8 | | Load_Top At_Offset_0 01a5 1c00 | | Execute_Immediate Run_Utility,0x0 01a6 c5ff | | Store 0x2,-0x1 01a7 00ce | | Action Pop_Auxiliary 01a8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01a9 00da | | Load_Top At_Offset_2 01aa 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01ab 6800 |h | Jump_Zero 0x1ac 01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01ad 00db | | Load_Top At_Offset_3 01ae 6802 |h | Jump_Zero 0x1b1 01af 4802 |H | Short_Literal 0x2 01b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b1 4801 |H | Short_Literal 0x1 01b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b3 00db | | Load_Top At_Offset_3 01b4 e5fe | | Load 0x2,-0x2 01b5 6802 |h | Jump_Zero 0x1b8 01b6 4802 |H | Short_Literal 0x2 01b7 7801 |x | Jump 0x1b9 01b8 4801 |H | Short_Literal 0x1 01b9 e5ff | | Load 0x2,-0x1 01ba 031b | | Declare_Type Variant_Record,Constrained 01bb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01bc 00db | | Load_Top At_Offset_3 01bd e5fe | | Load 0x2,-0x2 01be e5ff | | Load 0x2,-0x1 01bf 1c06 | | Execute_Immediate Run_Utility,0x6 01c0 e5ff | | Load 0x2,-0x1 01c1 02fc | | Declare_Variable Variant_Record,With_Constraint 01c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c3 0869 | i | Execute_Immediate Raise,0x69 01c4 ; -------------------------------------------------------------------------------------- 01c4 ; STRING TABLE 01c4 ; -------------------------------------------------------------------------------------- 01c4 0038 | 8 | .STRTAB 0x0038->0x01e0 ; "LK_IF" 01c5 003b | ; | .STRTAB 0x003b->0x01e2 ; "LK_THEN" 01c6 0040 | @ | .STRTAB 0x0040->0x01e6 ; "LK_ELSIF" 01c7 0046 | F | .STRTAB 0x0046->0x01ea ; "LK_ELSE" 01c8 004b | K | .STRTAB 0x004b->0x01ed ; "LK_END" 01c9 004f | O | .STRTAB 0x004f->0x01f0 ; "LK_IDENTIFIER" 01ca 005a | Z | .STRTAB 0x005a->0x01f7 ; "LK_UNKNOWN" 01cb 0062 | b | .STRTAB 0x0062->0x01fc ; "LK_NOT" 01cc 0066 | f | .STRTAB 0x0066->0x01ff ; "LK_AND" 01cd 006a | j | .STRTAB 0x006a->0x0202 ; "LK_OR" 01ce 006d | m | .STRTAB 0x006d->0x0204 ; "LK_XOR" 01cf 0071 | q | .STRTAB 0x0071->0x0207 ; "LK_EQL" 01d0 0075 | u | .STRTAB 0x0075->0x020a ; "LK_NEQ" 01d1 0079 | y | .STRTAB 0x0079->0x020d ; "LK_VBAR" 01d2 007e | ~ | .STRTAB 0x007e->0x0211 ; "LK_ARROW" 01d3 0084 | | .STRTAB 0x0084->0x0215 ; "LK_COMMA" 01d4 008a | | .STRTAB 0x008a->0x0219 ; "LK_SEMICOLON" 01d5 0094 | | .STRTAB 0x0094->0x021f ; "LK_LPAREN" 01d6 009b | | .STRTAB 0x009b->0x0223 ; "LK_RPAREN" 01d7 00a2 | | .STRTAB 0x00a2->0x0228 ; "LK_ERROR" 01d8 00a8 | | .STRTAB 0x00a8->0x022c ; "LK_EOL" 01d9 00ac | | .STRTAB 0x00ac->0x022f ; "SK_KEYWORD" 01da 00b4 | | .STRTAB 0x00b4->0x0234 ; "SK_BOOLEAN" 01db 00bc | | .STRTAB 0x00bc->0x0239 ; "XR" 01dc 00bc | | .STRTAB 0x00bc->0x023a ; "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_" 01dd 00f9 | | .STRTAB 0x00f9->0x0259 ; " \x09\x0d\x0a\x0c\x0b\x00" 01de 00fe | | .STRTAB 0x00fe->0x025d ; "/=" 01df 00fe | | .STREND 0x00fe->0x025e 01e0 4c4b 5f49 |LK_I| .STRTAB_STRINGS 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug Table 0260 ; -------------------------------------------------------------------------------------- 0260 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa925,0x0000,0x0001,0x0000 0266 0100 0000 | | .XXX[0x18] 0268 0f43 4f4d | COM| 026a 4d4f 4e2e |MON.| 026c 434f 4d50 |COMP| 026e 4c45 5445 |LETE| 0270 0000 0001 | | 0272 0000 000f | | 0274 434f 4d4d |COMM| 0276 4f4e 2e43 |ON.C| 0278 4f4d 504c |OMPL| 027a 4554 4500 |ETE | 027c 0000 0100 | | 027e 0000 0000 | | .BLANK 0000[0x5] 0283 0100 | | .XXX[0x1] 0284 0000 0000 | | .BLANK 0000[0x94] 0318 0012 0000 | | .XXX[0xa6] 031a 0034 0007 | 4 | 031c 0200 a112 | | 031e 1400 0001 | | 0320 0000 0703 | | 0322 a5a4 0000 | | 0324 0068 0000 | h | 0326 0000 0000 | | 0328 0018 0000 | | 032a 0080 0038 | 8| 032c 1005 0790 | | 032e a001 279d | ' | 0330 d000 0000 | | 0332 6000 0002 |` | 0334 0000 0000 | | 0336 0400 0000 | | 0338 4800 0000 |H | 033a 0000 0000 | | 033c 1a37 d800 | 7 | 033e 0000 0100 | | 0340 0000 1200 | | 0342 0000 0000 | | 0344 0000 068d | | 0346 f600 0000 | | 0348 0040 0000 | @ | 034a 0480 0000 | | 034c 0000 0000 | | 034e 01a3 7d80 | } | 0350 0000 0010 | | 0352 0000 0120 | | 0354 0000 0000 | | 0356 0000 0068 | h| 0358 df60 0000 | ` | 035a 0004 0000 | | 035c 0048 0000 | H | 035e 0000 0000 | | 0360 001a 37d8 | 7 | 0362 0000 0001 | | 0364 0000 0012 | | 0366 0000 0000 | | 0368 0000 0006 | | 036a 8df6 0000 | | 036c 0000 4000 | @ | 036e 0004 8000 | | 0370 0000 0000 | | 0372 0001 a37d | }| 0374 8000 0000 | | 0376 1000 0001 | | 0378 2000 0000 | | 037a 0000 0000 | | 037c 68df 6000 |h ` | 037e 0000 0400 | | 0380 0000 4800 | H | 0382 0000 0000 | | 0384 0000 1a37 | 7| 0386 d800 0000 | | 0388 0100 0000 | | 038a 1200 0000 | | 038c 0000 0000 | | 038e 068d f600 | | 0390 0000 0040 | @| 0392 0000 0480 | | 0394 0000 0000 | | 0396 0000 01a3 | | 0398 7d80 0000 |} | 039a 0010 0000 | | 039c 0120 0000 | | 039e 0000 0000 | | 03a0 0060 0000 | ` | 03a2 0240 0000 | @ | 03a4 0000 0000 | | 03a6 00c0 0000 | | 03a8 0480 0025 | %| 03aa a000 0000 | | 03ac 0100 0000 | | 03ae 0201 2170 | !p| 03b0 0000 0120 | | 03b2 0009 6800 | h | 03b4 0000 0040 | @| 03b6 0040 0000 | @ | 03b8 0240 0012 | @ | 03ba ef00 0000 | | 03bc 0080 2600 | & | 03be 0000 0000 | | .BLANK 0000[0x5] 03c3 0f80 | | .XXX[0x1] 03c4 0000 0000 | | .BLANK 0000[0x6] 03ca 0048 0002 | H | .XXX[0x2c] 03cc 5a10 0000 |Z | 03ce 0010 a000 | | 03d0 0002 4000 | @ | 03d2 0000 0000 | | 03d4 0000 c000 | | 03d6 0004 8000 | | 03d8 25a0 0000 |% | 03da 0001 0000 | | 03dc 0002 0121 | !| 03de 7000 0001 |p | 03e0 2000 0037 | 7| 03e2 c000 0000 | | 03e4 4000 4000 |@ @ | 03e6 0009 0000 | | 03e8 0001 0000 | | 03ea 0001 0000 | | 03ec 733e 0000 |s> | 03ee 0003 c000 | | 03f0 0002 4000 | @ | 03f2 12ef 0000 | | 03f4 0000 8026 | &| 03f6 0000 0000 | | .BLANK 0000[0x5] 03fb 000f 8000 | | .XXX[0x5] 03fd 0000 0000 | | 03ff 0000 | |