|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0534f8
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 For_Call,INIT_0048
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 For_Call,INIT_0070
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 For_Call,INIT_0190
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 For_Outer_Call,Visible,Unelaborated,INIT_0098
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 0x7
004c 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0061 00db | | Load_Top At_Offset_3
0062 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0063 00db | | Load_Top At_Offset_3
0064 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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 0x7
0074 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0089 00db | | Load_Top At_Offset_3
008a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
008b 00db | | Load_Top At_Offset_3
008c 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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 0x40
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_Subprogram 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_Subprogram 0x2
0101 4813 |H | Short_Literal 0x13
0102 a5fe | | Store_Unchecked 0x2,-0x2
0103 4502 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 0x2
0124 4805 |H | Short_Literal 0x5
0125 a5fe | | Store_Unchecked 0x2,-0x2
0126 4502 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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,Fixed,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_Subprogram 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_Subprogram 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_Subprogram 0x2
0173 4813 |H | Short_Literal 0x13
0174 a5fe | | Store_Unchecked 0x2,-0x2
0175 4502 |E | Exit_Subprogram 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,Fixed,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_Subprogram 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_Subprogram 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 0x8
0194 7808 |x | Jump 0x19d ; case 0x0
0195 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x2
01b1 4801 |H | Short_Literal 0x1
01b2 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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"
; "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 04ec 5c04 | \ | .XXX[0x31]
0268 06f7 0000 | |
026a 0000 3700 | 7 |
026c 0000 0000 | |
026e 03a9 0d04 | |
0270 4000 801a |@ |
0272 c040 7810 | @x |
0274 1019 9404 | |
0276 0606 0002 | |
0278 c1d8 1680 | |
027a 0000 0000 | |
027c 683b 02d0 |h; |
027e 0000 0000 | |
0280 0706 4802 | H |
0282 828e c000 | |
0284 0000 072b | +|
0286 f401 cbec | |
0288 0101 5880 | X |
028a 1b90 2865 | (e|
028c 5c04 0807 |\ |
028e 8000 0000 | |
0290 1f70 9c50 | p P|
0292 8c04 0a0d | |
0294 0000 0000 | |
0296 4800 |H |
0297 0000 0000 | | .BLANK 0000[0x6]
029d 0080 0000 | | .XXX[0x2e]
029f 0020 48ac | H |
02a1 2240 040a |"@ |
02a3 8700 0000 | |
02a5 0040 9d80 | @ |
02a7 0000 011a | |
02a9 7e01 02c6 |~ |
02ab c000 0000 | |
02ad 1028 3403 | (4 |
02af ee8a 0000 | |
02b1 0010 c940 | @|
02b3 1034 f800 | 4 |
02b5 0000 0102 | |
02b7 9b00 0000 | |
02b9 0000 0013 | |
02bb 3120 1034 |1 4|
02bd f800 0000 | |
02bf 00fb e300 | |
02c1 3f00 3000 |? 0 |
02c3 0000 0001 | |
02c5 1821 0108 | ! |
02c7 4100 0000 |A |
02c9 0002 6000 | ` |
02cb 0000 0000 | | .BLANK 0000[0x8]
02d3 0002 06f4 | | .XXX[0x45]
02d5 0210 8200 | |
02d7 0000 0020 | |
02d9 58d8 0817 |X |
02db 5600 0000 |V |
02dd 204b a020 | K |
02df a1d0 0000 | |
02e1 0002 0946 | F|
02e3 8000 6762 | gb|
02e5 e020 81b8 | |
02e7 0000 0001 | |
02e9 0400 0000 | |
02eb 004e c5c0 | N |
02ed 4103 7000 |A p |
02ef 0000 0628 | (|
02f1 0000 0000 | |
02f3 9d8b 8082 | |
02f5 45c0 0000 |E |
02f7 0009 0000 | |
02f9 0000 010c | |
02fb 9101 0797 | |
02fd c000 0000 | |
02ff 107f 6400 | d |
0301 0000 0000 | |
0303 0b33 1201 | 3 |
0305 04a3 4000 | @ |
0307 0000 1039 | 9|
0309 0804 0eb9 | |
030b 0000 0000 | |
030d 0010 0000 | |
030f 0004 0f30 | 0|
0311 8449 8000 | I |
0313 0000 0000 | |
0315 0000 0001 | |
0317 2010 | |
0318 0000 0000 | | .BLANK 0000[0xa]
0322 0002 1126 | &| .XXX[0x82]
0324 0209 4680 | F |
0326 0000 0020 | |
0328 86dc 8040 | @|
032a 040d d200 | |
032c 0000 0041 | A|
032e 0370 1048 | p H|
0330 b800 0000 | |
0332 0000 0000 | |
0334 0009 d8b8 | |
0336 082d 6400 | -d |
0338 0000 0041 | A|
033a 0000 0000 | |
033c 13b1 7010 | p |
033e 5ac8 0000 |Z |
0340 0001 8c00 | |
0342 0000 0021 | !|
0344 32e0 20f2 |2 |
0346 f800 0000 | |
0348 0206 db80 | |
034a 0080 0000 | |
034c 0409 7404 | t |
034e 1a9f 0000 | |
0350 0000 419e | A |
0352 0000 0cb8 | |
0354 2004 178b | |
0356 0000 0000 | |
0358 4500 0000 |E |
035a 000f b970 | p|
035c 4008 2f16 |@ / |
035e 0000 0000 | |
0360 0400 0000 | |
0362 001f 52e0 | R |
0364 8010 62ec | b |
0366 0000 0000 | |
0368 0800 0000 | |
036a 003e a662 | > b|
036c 4020 d878 |@ x|
036e 0000 0002 | |
0370 09a6 0082 | |
0372 7860 0000 |x` |
0374 0000 0200 | |
0376 0000 0082 | |
0378 d653 1610 | S |
037a 1061 7000 | ap |
037c 0000 0105 | |
037e 4d40 415b |M@A[|
0380 4000 0000 |@ |
0382 0100 0000 | |
0384 0041 78b8 | Ax |
0386 4450 0831 |DP 1|
0388 7600 0000 |v |
038a 0083 04f0 | |
038c 3a70 1067 |:p g|
038e 8000 0000 | |
0390 0106 1700 | |
0392 4163 3800 |Ac8 |
0394 0000 020c | |
0396 5dce c5c0 |] |
0398 0000 0000 | |
039a 0000 0098 | |
039c 0000 0000 | |
039e 8380 8082 | |
03a0 98a0 0000 | |
03a2 0008 3268 | 2h|
03a4 0000 0000 | | .BLANK 0000[0x5]
03a9 0001 0997 | | .XXX[0x57]
03ab 0106 e240 | @|
03ad 0000 0010 | |
03af 52a8 0003 |R |
03b1 088a 0106 | |
03b3 e240 0000 | @ |
03b5 0010 5d58 | ]X|
03b7 0000 0041 | A|
03b9 27c0 41c1 |' A |
03bb 3000 0000 |0 |
03bd 041b 0f01 | |
03bf 06a7 c000 | |
03c1 5098 9010 |P |
03c3 797c 0000 |y| |
03c5 0001 06db | |
03c7 8000 73b1 | s |
03c9 7000 0000 |p |
03cb 0000 0000 | |
03cd 4200 0000 |B |
03cf 0027 62e0 | 'b |
03d1 0000 0000 | |
03d3 0000 031c | |
03d5 0000 0000 | |
03d7 4ec5 c042 |N B|
03d9 2120 0000 |! |
03db 0001 c000 | |
03dd 0000 009d | |
03df 8b80 8442 | B|
03e1 4000 0000 |@ |
03e3 07f0 0000 | |
03e5 0001 064e | N|
03e7 0108 4100 | A |
03e9 0000 0010 | |
03eb 3e9c 0414 |> |
03ed 3a01 0704 |: |
03ef c001 7089 | p |
03f1 3010 7fd0 |0 |
03f3 0000 0000 | |
03f5 0000 2762 | 'b|
03f7 e020 ffa0 | |
03f9 0000 0001 | |
03fb b800 0000 | |
03fd 0000 0000 | |
03ff 0822 | " |