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