|
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]