|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 0410 | | .CONST 0x0410 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0054 | T | .CONST 0x0054 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
000f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0011 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0013 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0015 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0017 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0019 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
001b 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
001d 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
001f 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0021 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
0023 4800 |H | Short_Literal 0x0
0024 4802 |H | Short_Literal 0x2
0025 e001 | | Load 0x0,0x1
0026 01d7 | | Execute Vector,Field_Read
0027 02a0 | | Declare_Subprogram Null_Subprogram
0028 038f | | Declare_Type Package,Defined,Visible
0029 e001 | | Load 0x0,0x1
002a 4801 |H | Short_Literal 0x1
002b e001 | | Load 0x0,0x1
002c 01d7 | | Execute Vector,Field_Read
002d 4802 |H | Short_Literal 0x2
002e 00db | | Load_Top At_Offset_3
002f 020e | | Execute Module,Augment_Imports
0030 0386 | | Declare_Variable Package,Visible
0031 00bf | | Action Accept_Activation
0032 0092 03e7 | | Action Push_String_Extended,0x3e7 ; "RANGE"
0034 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0035 00c7 | | Action Elaborate_Subprogram
0036 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0037 00c7 | | Action Elaborate_Subprogram
0038 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0039 00c7 | | Action Elaborate_Subprogram
003a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003b 00c7 | | Action Elaborate_Subprogram
003c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003d 00c7 | | Action Elaborate_Subprogram
003e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003f 00c7 | | Action Elaborate_Subprogram
0040 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0041 00c7 | | Action Elaborate_Subprogram
0042 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0043 00c7 | | Action Elaborate_Subprogram
0044 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0045 00c7 | | Action Elaborate_Subprogram
0046 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0047 00c7 | | Action Elaborate_Subprogram
0048 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0049 00c7 | | Action Elaborate_Subprogram
004a 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004b 00c7 | | Action Elaborate_Subprogram
004c e002 | | Load 0x0,0x2
004d e003 | | Load 0x0,0x3
004e e004 | | Load 0x0,0x4
004f 4803 |H | Short_Literal 0x3
0050 e219 | | Load 0x1,0x19
0051 020e | | Execute Module,Augment_Imports
0052 00d9 | | Load_Top At_Offset_1
0053 020f | | Execute Module,Activate
0054 BODY_0008:
0054 00bc | | Action Signal_Activated
0055 00bb | | Action Signal_Completion
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0063 | c | .CONST 0x0063 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2
005c 00eb | | Load_Encached Diana_Cache
005d 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
005e 00eb | | Load_Encached Diana_Cache
005f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0060 00eb | | Load_Encached Diana_Cache
0061 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0062 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0063 TRAP_0058:
0063 010e | | Execute Exception,Is_Constraint_Error
0064 6803 |h | Jump_Zero 0x68
0065 0092 03e8 | | Action Push_String_Extended,0x3e8 ; "<ERROR>"
0067 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0068 0100 | | Execute Exception,Raise
0069 0000 0000 | | .BLANK 0000[0x7]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0074 | t | .CONST 0x0074 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 00ec | | Load_Encached Diana_Tree_Cache
0074 BODY_0070:
0074 00db | | Load_Top At_Offset_3
0075 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0076 00d8 | | Load_Top At_Offset_0
0077 4837 |H7 | Short_Literal 0x37
0078 483e |H> | Short_Literal 0x3e
0079 0262 | b | Execute Discrete,In_Range
007a 6821 |h! | Jump_Zero 0x9c
007b 0b37 | 7 | Execute_Immediate Case_Compare,0x37
007c 7019 |p | Jump_Nonzero 0x96
007d 00d8 | | Load_Top At_Offset_0
007e 0c3a | : | Execute_Immediate Greater_Equal,0x3a
007f 6805 |h | Jump_Zero 0x85
0080 0b3d | = | Execute_Immediate Case_Compare,0x3d
0081 7009 |p | Jump_Nonzero 0x8b
0082 0f3e | > | Execute_Immediate Equal,0x3e
0083 700d |p | Jump_Nonzero 0x91
0084 7818 |x | Jump 0x9d
0085 00d1 | | Pop_Control Pop_Count_1
0086 00db | | Load_Top At_Offset_3
0087 00eb | | Load_Encached Diana_Cache
0088 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7
0089 0031 | 1 | Store_Top Heap_Access,At_Offset_1
008a 7814 |x | Jump 0x9f
008b 00d1 | | Pop_Control Pop_Count_1
008c 00db | | Load_Top At_Offset_3
008d 00eb | | Load_Encached Diana_Cache
008e 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4
008f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0090 780e |x | Jump 0x9f
0091 00db | | Load_Top At_Offset_3
0092 00eb | | Load_Encached Diana_Cache
0093 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
0094 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0095 7809 |x | Jump 0x9f
0096 00d1 | | Pop_Control Pop_Count_1
0097 00db | | Load_Top At_Offset_3
0098 00eb | | Load_Encached Diana_Cache
0099 18c4 | | Execute Package,Field_Execute,Field_Number 0xc4
009a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
009b 7803 |x | Jump 0x9f
009c 00d1 | | Pop_Control Pop_Count_1
009d 00ec | | Load_Encached Diana_Tree_Cache
009e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
009f 00d8 | | Load_Top At_Offset_0
00a0 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00a1 0f80 | | Execute_Immediate Equal,-0x80
00a2 7003 |p | Jump_Nonzero 0xa6
00a3 00ec | | Load_Encached Diana_Tree_Cache
00a4 a5fe | | Store_Unchecked 0x2,-0x2
00a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a6 00d8 | | Load_Top At_Offset_0
00a7 a5fe | | Store_Unchecked 0x2,-0x2
00a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a9 0000 0000 | | .BLANK 0000[0x7]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00b5 0b0e | | Execute_Immediate Case_Compare,0xe
00b6 7004 |p | Jump_Nonzero 0xbb
00b7 0f0f | | Execute_Immediate Equal,0xf
00b8 7008 |p | Jump_Nonzero 0xc1
00b9 4800 |H | Short_Literal 0x0
00ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bb 00d1 | | Pop_Control Pop_Count_1
00bc 00da | | Load_Top At_Offset_2
00bd 820d | | Call 0x1,0xd
00be e21a | | Load 0x1,0x1a
00bf 01df | | Execute Vector,Equal
00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c1 00da | | Load_Top At_Offset_2
00c2 00eb | | Load_Encached Diana_Cache
00c3 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
00c4 820d | | Call 0x1,0xd
00c5 e21a | | Load 0x1,0x1a
00c6 01df | | Execute Vector,Equal
00c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d0 | | .CONST 0x00d0 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0004 | | .CONST 0x0004 ; Number of locals
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2
00cc 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call
00ce 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call
00d0 BODY_00c8:
00d0 00cf | | Action Mark_Auxiliary
00d1 00db | | Load_Top At_Offset_3
00d2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00d3 46ad |F | Jump_Case 0xae
00d4 78af |x | Jump 0x184 ; case 0x0
00d5 78d6 |x | Jump 0x1ac ; case 0x1
00d6 78c4 |x | Jump 0x19b ; case 0x2
00d7 78d4 |x | Jump 0x1ac ; case 0x3
00d8 78d3 |x | Jump 0x1ac ; case 0x4
00d9 78d2 |x | Jump 0x1ac ; case 0x5
00da 78d1 |x | Jump 0x1ac ; case 0x6
00db 78d0 |x | Jump 0x1ac ; case 0x7
00dc 78cf |x | Jump 0x1ac ; case 0x8
00dd 78ce |x | Jump 0x1ac ; case 0x9
00de 78cd |x | Jump 0x1ac ; case 0xa
00df 78cc |x | Jump 0x1ac ; case 0xb
00e0 78cb |x | Jump 0x1ac ; case 0xc
00e1 78ca |x | Jump 0x1ac ; case 0xd
00e2 78c9 |x | Jump 0x1ac ; case 0xe
00e3 78c8 |x | Jump 0x1ac ; case 0xf
00e4 78c1 |x | Jump 0x1a6 ; case 0x10
00e5 78c6 |x | Jump 0x1ac ; case 0x11
00e6 78cc |x | Jump 0x1b3 ; case 0x12
00e7 78c4 |x | Jump 0x1ac ; case 0x13
00e8 78cf |x | Jump 0x1b8 ; case 0x14
00e9 78ce |x | Jump 0x1b8 ; case 0x15
00ea 78c1 |x | Jump 0x1ac ; case 0x16
00eb 78d1 |x | Jump 0x1bd ; case 0x17
00ec 78cb |x | Jump 0x1b8 ; case 0x18
00ed 7894 |x | Jump 0x182 ; case 0x19
00ee 7893 |x | Jump 0x182 ; case 0x1a
00ef 7892 |x | Jump 0x182 ; case 0x1b
00f0 78d0 |x | Jump 0x1c1 ; case 0x1c
00f1 78cf |x | Jump 0x1c1 ; case 0x1d
00f2 78ce |x | Jump 0x1c1 ; case 0x1e
00f3 788e |x | Jump 0x182 ; case 0x1f
00f4 788d |x | Jump 0x182 ; case 0x20
00f5 788c |x | Jump 0x182 ; case 0x21
00f6 788b |x | Jump 0x182 ; case 0x22
00f7 78c9 |x | Jump 0x1c1 ; case 0x23
00f8 78c8 |x | Jump 0x1c1 ; case 0x24
00f9 78c7 |x | Jump 0x1c1 ; case 0x25
00fa 78c6 |x | Jump 0x1c1 ; case 0x26
00fb 7886 |x | Jump 0x182 ; case 0x27
00fc 78c4 |x | Jump 0x1c1 ; case 0x28
00fd 7884 |x | Jump 0x182 ; case 0x29
00fe 78c0 |x | Jump 0x1bf ; case 0x2a
00ff 78bf |x | Jump 0x1bf ; case 0x2b
0100 7881 |x | Jump 0x182 ; case 0x2c
0101 78bd |x | Jump 0x1bf ; case 0x2d
0102 787f |x | Jump 0x182 ; case 0x2e
0103 78bb |x | Jump 0x1bf ; case 0x2f
0104 78bc |x | Jump 0x1c1 ; case 0x30
0105 78bb |x | Jump 0x1c1 ; case 0x31
0106 787b |x{ | Jump 0x182 ; case 0x32
0107 787a |xz | Jump 0x182 ; case 0x33
0108 7879 |xy | Jump 0x182 ; case 0x34
0109 7878 |xx | Jump 0x182 ; case 0x35
010a 7877 |xw | Jump 0x182 ; case 0x36
010b 7876 |xv | Jump 0x182 ; case 0x37
010c 788e |x | Jump 0x19b ; case 0x38
010d 788d |x | Jump 0x19b ; case 0x39
010e 788c |x | Jump 0x19b ; case 0x3a
010f 7886 |x | Jump 0x196 ; case 0x3b
0110 7881 |x | Jump 0x192 ; case 0x3c
0111 7870 |xp | Jump 0x182 ; case 0x3d
0112 786f |xo | Jump 0x182 ; case 0x3e
0113 786e |xn | Jump 0x182 ; case 0x3f
0114 786d |xm | Jump 0x182 ; case 0x40
0115 786c |xl | Jump 0x182 ; case 0x41
0116 786b |xk | Jump 0x182 ; case 0x42
0117 786a |xj | Jump 0x182 ; case 0x43
0118 7869 |xi | Jump 0x182 ; case 0x44
0119 7868 |xh | Jump 0x182 ; case 0x45
011a 7867 |xg | Jump 0x182 ; case 0x46
011b 7866 |xf | Jump 0x182 ; case 0x47
011c 7865 |xe | Jump 0x182 ; case 0x48
011d 7864 |xd | Jump 0x182 ; case 0x49
011e 7863 |xc | Jump 0x182 ; case 0x4a
011f 7862 |xb | Jump 0x182 ; case 0x4b
0120 7861 |xa | Jump 0x182 ; case 0x4c
0121 7860 |x` | Jump 0x182 ; case 0x4d
0122 785f |x_ | Jump 0x182 ; case 0x4e
0123 785e |x^ | Jump 0x182 ; case 0x4f
0124 785d |x] | Jump 0x182 ; case 0x50
0125 785c |x\ | Jump 0x182 ; case 0x51
0126 785b |x[ | Jump 0x182 ; case 0x52
0127 785a |xZ | Jump 0x182 ; case 0x53
0128 7859 |xY | Jump 0x182 ; case 0x54
0129 7858 |xX | Jump 0x182 ; case 0x55
012a 7857 |xW | Jump 0x182 ; case 0x56
012b 7856 |xV | Jump 0x182 ; case 0x57
012c 7855 |xU | Jump 0x182 ; case 0x58
012d 7854 |xT | Jump 0x182 ; case 0x59
012e 7853 |xS | Jump 0x182 ; case 0x5a
012f 7852 |xR | Jump 0x182 ; case 0x5b
0130 7851 |xQ | Jump 0x182 ; case 0x5c
0131 7850 |xP | Jump 0x182 ; case 0x5d
0132 784f |xO | Jump 0x182 ; case 0x5e
0133 784e |xN | Jump 0x182 ; case 0x5f
0134 784d |xM | Jump 0x182 ; case 0x60
0135 784c |xL | Jump 0x182 ; case 0x61
0136 784b |xK | Jump 0x182 ; case 0x62
0137 784a |xJ | Jump 0x182 ; case 0x63
0138 784d |xM | Jump 0x186 ; case 0x64
0139 784c |xL | Jump 0x186 ; case 0x65
013a 784b |xK | Jump 0x186 ; case 0x66
013b 784a |xJ | Jump 0x186 ; case 0x67
013c 7849 |xI | Jump 0x186 ; case 0x68
013d 7848 |xH | Jump 0x186 ; case 0x69
013e 7847 |xG | Jump 0x186 ; case 0x6a
013f 7846 |xF | Jump 0x186 ; case 0x6b
0140 7845 |xE | Jump 0x186 ; case 0x6c
0141 7844 |xD | Jump 0x186 ; case 0x6d
0142 7843 |xC | Jump 0x186 ; case 0x6e
0143 7842 |xB | Jump 0x186 ; case 0x6f
0144 7841 |xA | Jump 0x186 ; case 0x70
0145 7840 |x@ | Jump 0x186 ; case 0x71
0146 783f |x? | Jump 0x186 ; case 0x72
0147 7840 |x@ | Jump 0x188 ; case 0x73
0148 783d |x= | Jump 0x186 ; case 0x74
0149 783c |x< | Jump 0x186 ; case 0x75
014a 783b |x; | Jump 0x186 ; case 0x76
014b 7836 |x6 | Jump 0x182 ; case 0x77
014c 7835 |x5 | Jump 0x182 ; case 0x78
014d 7834 |x4 | Jump 0x182 ; case 0x79
014e 7833 |x3 | Jump 0x182 ; case 0x7a
014f 7832 |x2 | Jump 0x182 ; case 0x7b
0150 7831 |x1 | Jump 0x182 ; case 0x7c
0151 7849 |xI | Jump 0x19b ; case 0x7d
0152 7848 |xH | Jump 0x19b ; case 0x7e
0153 7847 |xG | Jump 0x19b ; case 0x7f
0154 782d |x- | Jump 0x182 ; case 0x80
0155 782c |x, | Jump 0x182 ; case 0x81
0156 782b |x+ | Jump 0x182 ; case 0x82
0157 782a |x* | Jump 0x182 ; case 0x83
0158 7829 |x) | Jump 0x182 ; case 0x84
0159 7828 |x( | Jump 0x182 ; case 0x85
015a 7827 |x' | Jump 0x182 ; case 0x86
015b 7826 |x& | Jump 0x182 ; case 0x87
015c 7825 |x% | Jump 0x182 ; case 0x88
015d 7824 |x$ | Jump 0x182 ; case 0x89
015e 7823 |x# | Jump 0x182 ; case 0x8a
015f 7822 |x" | Jump 0x182 ; case 0x8b
0160 7821 |x! | Jump 0x182 ; case 0x8c
0161 7820 |x | Jump 0x182 ; case 0x8d
0162 781f |x | Jump 0x182 ; case 0x8e
0163 781e |x | Jump 0x182 ; case 0x8f
0164 783b |x; | Jump 0x1a0 ; case 0x90
0165 781c |x | Jump 0x182 ; case 0x91
0166 781b |x | Jump 0x182 ; case 0x92
0167 781a |x | Jump 0x182 ; case 0x93
0168 7819 |x | Jump 0x182 ; case 0x94
0169 7818 |x | Jump 0x182 ; case 0x95
016a 7817 |x | Jump 0x182 ; case 0x96
016b 7816 |x | Jump 0x182 ; case 0x97
016c 7815 |x | Jump 0x182 ; case 0x98
016d 7814 |x | Jump 0x182 ; case 0x99
016e 7813 |x | Jump 0x182 ; case 0x9a
016f 7812 |x | Jump 0x182 ; case 0x9b
0170 7811 |x | Jump 0x182 ; case 0x9c
0171 7810 |x | Jump 0x182 ; case 0x9d
0172 780f |x | Jump 0x182 ; case 0x9e
0173 780e |x | Jump 0x182 ; case 0x9f
0174 780d |x | Jump 0x182 ; case 0xa0
0175 780c |x | Jump 0x182 ; case 0xa1
0176 780b |x | Jump 0x182 ; case 0xa2
0177 780a |x | Jump 0x182 ; case 0xa3
0178 7809 |x | Jump 0x182 ; case 0xa4
0179 7808 |x | Jump 0x182 ; case 0xa5
017a 7807 |x | Jump 0x182 ; case 0xa6
017b 7806 |x | Jump 0x182 ; case 0xa7
017c 7805 |x | Jump 0x182 ; case 0xa8
017d 7804 |x | Jump 0x182 ; case 0xa9
017e 7803 |x | Jump 0x182 ; case 0xaa
017f 7802 |x | Jump 0x182 ; case 0xab
0180 7801 |x | Jump 0x182 ; case 0xac
0181 7800 |x | Jump 0x182 ; case 0xad
0182 00ec | | Load_Encached Diana_Tree_Cache
0183 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0184 00ec | | Load_Encached Diana_Tree_Cache
0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0186 00db | | Load_Top At_Offset_3
0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0188 00db | | Load_Top At_Offset_3
0189 00eb | | Load_Encached Diana_Cache
018a 18ec | | Execute Package,Field_Execute,Field_Number 0xec
018b 0145 | E | Execute Heap_Access,Diana_Tree_Kind
018c 0f3b | ; | Execute_Immediate Equal,0x3b
018d 6802 |h | Jump_Zero 0x190
018e 00db | | Load_Top At_Offset_3
018f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0190 00ec | | Load_Encached Diana_Tree_Cache
0191 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0192 00db | | Load_Top At_Offset_3
0193 00eb | | Load_Encached Diana_Cache
0194 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0196 00db | | Load_Top At_Offset_3
0197 00eb | | Load_Encached Diana_Cache
0198 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0199 a402 | | Store_Unchecked 0x2,0x2
019a 782d |x- | Jump 0x1c8
019b 00db | | Load_Top At_Offset_3
019c 00eb | | Load_Encached Diana_Cache
019d 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
019e a402 | | Store_Unchecked 0x2,0x2
019f 7828 |x( | Jump 0x1c8
01a0 00db | | Load_Top At_Offset_3
01a1 00eb | | Load_Encached Diana_Cache
01a2 1889 | | Execute Package,Field_Execute,Field_Number 0x89
01a3 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
01a4 a402 | | Store_Unchecked 0x2,0x2
01a5 7822 |x" | Jump 0x1c8
01a6 00db | | Load_Top At_Offset_3
01a7 8218 | | Call 0x1,0x18
01a8 e005 | | Load 0x0,0x5
01a9 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01aa a402 | | Store_Unchecked 0x2,0x2
01ab 781c |x | Jump 0x1c8
01ac 00db | | Load_Top At_Offset_3
01ad 00eb | | Load_Encached Diana_Cache
01ae 18fc | | Execute Package,Field_Execute,Field_Number 0xfc
01af e005 | | Load 0x0,0x5
01b0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01b1 a402 | | Store_Unchecked 0x2,0x2
01b2 7815 |x | Jump 0x1c8
01b3 00db | | Load_Top At_Offset_3
01b4 00eb | | Load_Encached Diana_Cache
01b5 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0
01b6 a402 | | Store_Unchecked 0x2,0x2
01b7 7810 |x | Jump 0x1c8
01b8 00db | | Load_Top At_Offset_3
01b9 00eb | | Load_Encached Diana_Cache
01ba 18ec | | Execute Package,Field_Execute,Field_Number 0xec
01bb a402 | | Store_Unchecked 0x2,0x2
01bc 780b |x | Jump 0x1c8
01bd 8403 | | Call 0x2,0x3
01be 7809 |x | Jump 0x1c8
01bf 8404 | | Call 0x2,0x4
01c0 7807 |x | Jump 0x1c8
01c1 00db | | Load_Top At_Offset_3
01c2 4902 |I | Short_Literal 0x102
01c3 00eb | | Load_Encached Diana_Cache
01c4 0096 | | Execute Package,Entry
01c5 e005 | | Load 0x0,0x5
01c6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c8 00c9 | | Action Pop_Auxiliary_Loop
01c9 7f07 | | Jump 0xd1
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d4 | | .CONST 0x01d4 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 BODY_01d0:
01d4 00cf | | Action Mark_Auxiliary
01d5 00d9 | | Load_Top At_Offset_1
01d6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01d7 0b00 | | Execute_Immediate Case_Compare,0x0
01d8 7009 |p | Jump_Nonzero 0x1e2
01d9 483b |H; | Short_Literal 0x3b
01da 483c |H< | Short_Literal 0x3c
01db 0262 | b | Execute Discrete,In_Range
01dc 7009 |p | Jump_Nonzero 0x1e6
01dd 00d9 | | Load_Top At_Offset_1
01de 00eb | | Load_Encached Diana_Cache
01df 18ec | | Execute Package,Field_Execute,Field_Number 0xec
01e0 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01e1 7802 |x | Jump 0x1e4
01e2 00d1 | | Pop_Control Pop_Count_1
01e3 7802 |x | Jump 0x1e6
01e4 00c9 | | Action Pop_Auxiliary_Loop
01e5 7fef | | Jump 0x1d5
01e6 00ce | | Action Pop_Auxiliary
01e7 00d8 | | Load_Top At_Offset_0
01e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e9 0000 0000 | | .BLANK 0000[0x7]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00da | | Load_Top At_Offset_2
01f4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01f5 480e |H | Short_Literal 0xe
01f6 480f |H | Short_Literal 0xf
01f7 0262 | b | Execute Discrete,In_Range
01f8 7002 |p | Jump_Nonzero 0x1fb
01f9 00ec | | Load_Encached Diana_Tree_Cache
01fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fb 00da | | Load_Top At_Offset_2
01fc 00eb | | Load_Encached Diana_Cache
01fd 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
01fe 8210 | | Call 0x1,0x10
01ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0205 480e |H | Short_Literal 0xe
0206 480f |H | Short_Literal 0xf
0207 0262 | b | Execute Discrete,In_Range
0208 7002 |p | Jump_Nonzero 0x20b
0209 00ec | | Load_Encached Diana_Tree_Cache
020a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020b 00da | | Load_Top At_Offset_2
020c 00eb | | Load_Encached Diana_Cache
020d 18fc | | Execute Package,Field_Execute,Field_Number 0xfc
020e e005 | | Load 0x0,0x5
020f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0210 8211 | | Call 0x1,0x11
0211 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0212 0000 0000 | | .BLANK 0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021c | | .CONST 0x021c ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b 00ec | | Load_Encached Diana_Tree_Cache
021c BODY_0218:
021c 00db | | Load_Top At_Offset_3
021d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
021e 00d8 | | Load_Top At_Offset_0
021f 4864 |Hd | Short_Literal 0x64
0220 4873 |Hs | Short_Literal 0x73
0221 0262 | b | Execute Discrete,In_Range
0222 6837 |h7 | Jump_Zero 0x25a
0223 0b66 | f | Execute_Immediate Case_Compare,0x66
0224 701d |p | Jump_Nonzero 0x242
0225 00d8 | | Load_Top At_Offset_0
0226 4867 |Hg | Short_Literal 0x67
0227 486a |Hj | Short_Literal 0x6a
0228 0262 | b | Execute Discrete,In_Range
0229 7007 |p | Jump_Nonzero 0x231
022a 0f73 | s | Execute_Immediate Equal,0x73
022b 700a |p | Jump_Nonzero 0x236
022c 7800 |x | Jump 0x22d
022d 00db | | Load_Top At_Offset_3
022e 00eb | | Load_Encached Diana_Cache
022f 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0230 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0231 00d1 | | Pop_Control Pop_Count_1
0232 00db | | Load_Top At_Offset_3
0233 00eb | | Load_Encached Diana_Cache
0234 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0235 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0236 00db | | Load_Top At_Offset_3
0237 00eb | | Load_Encached Diana_Cache
0238 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0239 0031 | 1 | Store_Top Heap_Access,At_Offset_1
023a 00d8 | | Load_Top At_Offset_0
023b 0145 | E | Execute Heap_Access,Diana_Tree_Kind
023c 0f3b | ; | Execute_Immediate Equal,0x3b
023d 6802 |h | Jump_Zero 0x240
023e 00d8 | | Load_Top At_Offset_0
023f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0240 00ec | | Load_Encached Diana_Tree_Cache
0241 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0242 00d1 | | Pop_Control Pop_Count_1
0243 00db | | Load_Top At_Offset_3
0244 00eb | | Load_Encached Diana_Cache
0245 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0246 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0247 00d8 | | Load_Top At_Offset_0
0248 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0249 00d8 | | Load_Top At_Offset_0
024a 4838 |H8 | Short_Literal 0x38
024b 4839 |H9 | Short_Literal 0x39
024c 0262 | b | Execute Discrete,In_Range
024d 7004 |p | Jump_Nonzero 0x252
024e 0f63 | c | Execute_Immediate Equal,0x63
024f 7003 |p | Jump_Nonzero 0x253
0250 00d8 | | Load_Top At_Offset_0
0251 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0252 00d1 | | Pop_Control Pop_Count_1
0253 00db | | Load_Top At_Offset_3
0254 00eb | | Load_Encached Diana_Cache
0255 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0256 8210 | | Call 0x1,0x10
0257 00eb | | Load_Encached Diana_Cache
0258 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0259 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025a 00d1 | | Pop_Control Pop_Count_1
025b 00ec | | Load_Encached Diana_Tree_Cache
025c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025d 0000 0000 | | .XXX[0x3]
025f 0000 | |
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0265 | e | .CONST 0x0265 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0002 | | .CONST 0x0002 ; Number of locals
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 8210 | | Call 0x1,0x10
0265 BODY_0260:
0265 00ec | | Load_Encached Diana_Tree_Cache
0266 a5fe | | Store_Unchecked 0x2,-0x2
0267 00ec | | Load_Encached Diana_Tree_Cache
0268 a5fd | | Store_Unchecked 0x2,-0x3
0269 00cf | | Action Mark_Auxiliary
026a 00d9 | | Load_Top At_Offset_1
026b 0145 | E | Execute Heap_Access,Diana_Tree_Kind
026c 00d8 | | Load_Top At_Offset_0
026d 0d61 | a | Execute_Immediate Less,0x61
026e 7021 |p! | Jump_Nonzero 0x290
026f 00d8 | | Load_Top At_Offset_0
0270 0c70 | p | Execute_Immediate Greater_Equal,0x70
0271 7016 |p | Jump_Nonzero 0x288
0272 0a9f | | Execute_Immediate Plus,-0x61
0273 460e |F | Jump_Case 0xf
0274 7865 |xe | Jump 0x2da ; case 0x0
0275 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1
0276 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2
0277 781d |x | Jump 0x295 ; case 0x3
0278 781c |x | Jump 0x295 ; case 0x4
0279 782c |x, | Jump 0x2a6 ; case 0x5
027a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6
027b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7
027c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8
027d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9
027e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xa
027f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xb
0280 7838 |x8 | Jump 0x2b9 ; case 0xc
0281 783c |x< | Jump 0x2be ; case 0xd
0282 7800 |x | Jump 0x283 ; case 0xe
0283 00d9 | | Load_Top At_Offset_1
0284 00eb | | Load_Encached Diana_Cache
0285 18dc | | Execute Package,Field_Execute,Field_Number 0xdc
0286 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0287 7860 |x` | Jump 0x2e8
0288 00d8 | | Load_Top At_Offset_0
0289 0c72 | r | Execute_Immediate Greater_Equal,0x72
028a 6842 |hB | Jump_Zero 0x2cd
028b 4874 |Ht | Short_Literal 0x74
028c 4876 |Hv | Short_Literal 0x76
028d 0262 | b | Execute Discrete,In_Range
028e 7058 |pX | Jump_Nonzero 0x2e7
028f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0290 480e |H | Short_Literal 0xe
0291 480f |H | Short_Literal 0xf
0292 0262 | b | Execute Discrete,In_Range
0293 704f |pO | Jump_Nonzero 0x2e3
0294 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0295 00d9 | | Load_Top At_Offset_1
0296 00eb | | Load_Encached Diana_Cache
0297 18dd | | Execute Package,Field_Execute,Field_Number 0xdd
0298 7008 |p | Jump_Nonzero 0x2a1
0299 00d9 | | Load_Top At_Offset_1
029a 4908 |I | Short_Literal 0x108
029b 00eb | | Load_Encached Diana_Cache
029c 0096 | | Execute Package,Entry
029d e005 | | Load 0x0,0x5
029e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
029f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02a0 7847 |xG | Jump 0x2e8
02a1 00d9 | | Load_Top At_Offset_1
02a2 00eb | | Load_Encached Diana_Cache
02a3 18dd | | Execute Package,Field_Execute,Field_Number 0xdd
02a4 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02a5 7842 |xB | Jump 0x2e8
02a6 00d9 | | Load_Top At_Offset_1
02a7 00eb | | Load_Encached Diana_Cache
02a8 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9
02a9 7008 |p | Jump_Nonzero 0x2b2
02aa 00d9 | | Load_Top At_Offset_1
02ab 4908 |I | Short_Literal 0x108
02ac 00eb | | Load_Encached Diana_Cache
02ad 0096 | | Execute Package,Entry
02ae e005 | | Load 0x0,0x5
02af 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
02b0 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02b1 7836 |x6 | Jump 0x2e8
02b2 00d9 | | Load_Top At_Offset_1
02b3 00eb | | Load_Encached Diana_Cache
02b4 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9
02b5 e005 | | Load 0x0,0x5
02b6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
02b7 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02b8 782f |x/ | Jump 0x2e8
02b9 00d9 | | Load_Top At_Offset_1
02ba 00eb | | Load_Encached Diana_Cache
02bb 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
02bc 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02bd 782a |x* | Jump 0x2e8
02be 00d9 | | Load_Top At_Offset_1
02bf 00eb | | Load_Encached Diana_Cache
02c0 1889 | | Execute Package,Field_Execute,Field_Number 0x89
02c1 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
02c2 a5fe | | Store_Unchecked 0x2,-0x2
02c3 00d9 | | Load_Top At_Offset_1
02c4 00eb | | Load_Encached Diana_Cache
02c5 1889 | | Execute Package,Field_Execute,Field_Number 0x89
02c6 4975 |Iu | Short_Literal 0x175
02c7 00eb | | Load_Encached Diana_Cache
02c8 0098 | | Execute Package,Field_Read_Dynamic
02c9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02ca 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
02cb a5fd | | Store_Unchecked 0x2,-0x3
02cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02cd 00d1 | | Pop_Control Pop_Count_1
02ce 00d9 | | Load_Top At_Offset_1
02cf 00eb | | Load_Encached Diana_Cache
02d0 18ec | | Execute Package,Field_Execute,Field_Number 0xec
02d1 00eb | | Load_Encached Diana_Cache
02d2 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
02d3 4907 |I | Short_Literal 0x107
02d4 00eb | | Load_Encached Diana_Cache
02d5 0096 | | Execute Package,Entry
02d6 e005 | | Load 0x0,0x5
02d7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
02d8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02d9 780e |x | Jump 0x2e8
02da 00d9 | | Load_Top At_Offset_1
02db 00eb | | Load_Encached Diana_Cache
02dc 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6
02dd a5fe | | Store_Unchecked 0x2,-0x2
02de 00d9 | | Load_Top At_Offset_1
02df 00eb | | Load_Encached Diana_Cache
02e0 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7
02e1 a5fd | | Store_Unchecked 0x2,-0x3
02e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02e3 00d9 | | Load_Top At_Offset_1
02e4 8212 | | Call 0x1,0x12
02e5 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02e6 7801 |x | Jump 0x2e8
02e7 08e2 | | Execute_Immediate Raise,0xe2
02e8 00c9 | | Action Pop_Auxiliary_Loop
02e9 7f80 | | Jump 0x26a
02ea 0000 0000 | | .BLANK 0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 00da | | Load_Top At_Offset_2
02f4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02f5 00d8 | | Load_Top At_Offset_0
02f6 0d72 | r | Execute_Immediate Less,0x72
02f7 7040 |p@ | Jump_Nonzero 0x338
02f8 0a8e | | Execute_Immediate Plus,-0x72
02f9 463b |F; | Jump_Case 0x3c
02fa 783f |x? | Jump 0x33a ; case 0x0
02fb 783a |x: | Jump 0x336 ; case 0x1
02fc 7839 |x9 | Jump 0x336 ; case 0x2
02fd 7838 |x8 | Jump 0x336 ; case 0x3
02fe 7837 |x7 | Jump 0x336 ; case 0x4
02ff 7836 |x6 | Jump 0x336 ; case 0x5
0300 7835 |x5 | Jump 0x336 ; case 0x6
0301 7834 |x4 | Jump 0x336 ; case 0x7
0302 7833 |x3 | Jump 0x336 ; case 0x8
0303 7832 |x2 | Jump 0x336 ; case 0x9
0304 7831 |x1 | Jump 0x336 ; case 0xa
0305 7830 |x0 | Jump 0x336 ; case 0xb
0306 782f |x/ | Jump 0x336 ; case 0xc
0307 782e |x. | Jump 0x336 ; case 0xd
0308 782d |x- | Jump 0x336 ; case 0xe
0309 782c |x, | Jump 0x336 ; case 0xf
030a 782b |x+ | Jump 0x336 ; case 0x10
030b 782a |x* | Jump 0x336 ; case 0x11
030c 782d |x- | Jump 0x33a ; case 0x12
030d 7828 |x( | Jump 0x336 ; case 0x13
030e 7827 |x' | Jump 0x336 ; case 0x14
030f 7826 |x& | Jump 0x336 ; case 0x15
0310 7825 |x% | Jump 0x336 ; case 0x16
0311 7828 |x( | Jump 0x33a ; case 0x17
0312 7823 |x# | Jump 0x336 ; case 0x18
0313 7822 |x" | Jump 0x336 ; case 0x19
0314 7825 |x% | Jump 0x33a ; case 0x1a
0315 7820 |x | Jump 0x336 ; case 0x1b
0316 781f |x | Jump 0x336 ; case 0x1c
0317 7822 |x" | Jump 0x33a ; case 0x1d
0318 781d |x | Jump 0x336 ; case 0x1e
0319 7820 |x | Jump 0x33a ; case 0x1f
031a 781b |x | Jump 0x336 ; case 0x20
031b 781a |x | Jump 0x336 ; case 0x21
031c 7819 |x | Jump 0x336 ; case 0x22
031d 781c |x | Jump 0x33a ; case 0x23
031e 7817 |x | Jump 0x336 ; case 0x24
031f 781a |x | Jump 0x33a ; case 0x25
0320 7815 |x | Jump 0x336 ; case 0x26
0321 7814 |x | Jump 0x336 ; case 0x27
0322 7813 |x | Jump 0x336 ; case 0x28
0323 7812 |x | Jump 0x336 ; case 0x29
0324 7811 |x | Jump 0x336 ; case 0x2a
0325 7810 |x | Jump 0x336 ; case 0x2b
0326 780f |x | Jump 0x336 ; case 0x2c
0327 780e |x | Jump 0x336 ; case 0x2d
0328 780d |x | Jump 0x336 ; case 0x2e
0329 780c |x | Jump 0x336 ; case 0x2f
032a 780f |x | Jump 0x33a ; case 0x30
032b 780a |x | Jump 0x336 ; case 0x31
032c 7809 |x | Jump 0x336 ; case 0x32
032d 7808 |x | Jump 0x336 ; case 0x33
032e 7807 |x | Jump 0x336 ; case 0x34
032f 7806 |x | Jump 0x336 ; case 0x35
0330 7805 |x | Jump 0x336 ; case 0x36
0331 7804 |x | Jump 0x336 ; case 0x37
0332 7803 |x | Jump 0x336 ; case 0x38
0333 7802 |x | Jump 0x336 ; case 0x39
0334 7801 |x | Jump 0x336 ; case 0x3a
0335 7800 |x | Jump 0x336 ; case 0x3b
0336 4800 |H | Short_Literal 0x0
0337 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0338 00d1 | | Pop_Control Pop_Count_1
0339 7ffc | | Jump 0x336
033a 4801 |H | Short_Literal 0x1
033b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033c 0000 0000 | | .BLANK 0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0351 | Q | .CONST 0x0351 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0005 | | .CONST 0x0005 ; Number of locals
0343 INIT_0340:
0343 00ec | | Load_Encached Diana_Tree_Cache
0344 e006 | | Load 0x0,0x6
0345 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0346 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0347 02c7 | | Declare_Variable Any
0348 00d8 | | Load_Top At_Offset_0
0349 1c00 | | Execute_Immediate Run_Utility,0x0
034a e006 | | Load 0x0,0x6
034b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
034c 02c7 | | Declare_Variable Any
034d 00d8 | | Load_Top At_Offset_0
034e 1c00 | | Execute_Immediate Run_Utility,0x0
034f e006 | | Load 0x0,0x6
0350 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0351 BODY_0340:
0351 e006 | | Load 0x0,0x6
0352 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0353 00db | | Load_Top At_Offset_3
0354 0120 | | Execute Any,Is_Value
0355 6804 |h | Jump_Zero 0x35a
0356 e006 | | Load 0x0,0x6
0357 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0358 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0359 7801 |x | Jump 0x35b
035a 00db | | Load_Top At_Offset_3
035b e5ff | | Load 0x2,-0x1
035c e006 | | Load 0x0,0x6
035d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
035e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
035f c403 | | Store 0x2,0x3
0360 0059 | Y | Store_Top Discrete,At_Offset_1
0361 00d8 | | Load_Top At_Offset_0
0362 680c |h | Jump_Zero 0x36f
0363 0092 03e9 | | Action Push_String_Extended,0x3e9 ; "Could not get unit due to "
0365 00d9 | | Load_Top At_Offset_1
0366 e006 | | Load 0x0,0x6
0367 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0368 011c | | Execute Any,Convert_Unchecked
0369 1c01 | | Execute_Immediate Run_Utility,0x1
036a 01cc | | Execute Vector,Catenate
036b e007 | | Load 0x0,0x7
036c 8008 | | Call 0x0,0x8
036d e009 | | Load 0x0,0x9
036e 0257 | W | Execute Discrete,Raise
036f 00da | | Load_Top At_Offset_2
0370 e006 | | Load 0x0,0x6
0371 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0372 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0373 c404 | | Store 0x2,0x4
0374 e006 | | Load 0x0,0x6
0375 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0376 e006 | | Load 0x0,0x6
0377 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0378 601b |` | Indirect_Literal Discrete,0x394,{0x00000000, 0x00004000}
0379 e00a | | Load 0x0,0xa
037a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037b 4800 |H | Short_Literal 0x0
037c e404 | | Load 0x2,0x4
037d e006 | | Load 0x0,0x6
037e 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
037f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0380 c402 | | Store 0x2,0x2
0381 0059 | Y | Store_Top Discrete,At_Offset_1
0382 00d8 | | Load_Top At_Offset_0
0383 680c |h | Jump_Zero 0x390
0384 0092 03ea | | Action Push_String_Extended,0x3ea ; "Could not get stub due to "
0386 00d9 | | Load_Top At_Offset_1
0387 e006 | | Load 0x0,0x6
0388 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0389 011c | | Execute Any,Convert_Unchecked
038a 1c01 | | Execute_Immediate Run_Utility,0x1
038b 01cc | | Execute Vector,Catenate
038c e007 | | Load 0x0,0x7
038d 8008 | | Call 0x0,0x8
038e e009 | | Load 0x0,0x9
038f 0257 | W | Execute Discrete,Raise
0390 00db | | Load_Top At_Offset_3
0391 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0392 0000 0000 | | .XXX[0x2]
0394 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039c | | .CONST 0x039c ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0002 | | .CONST 0x0002 ; Number of locals
039b INIT_0398:
039b 00ec | | Load_Encached Diana_Tree_Cache
039c BODY_0398:
039c 00db | | Load_Top At_Offset_3
039d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
039e 0f10 | | Execute_Immediate Equal,0x10
039f 7004 |p | Jump_Nonzero 0x3a4
03a0 00db | | Load_Top At_Offset_3
03a1 00eb | | Load_Encached Diana_Cache
03a2 18fc | | Execute Package,Field_Execute,Field_Number 0xfc
03a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a4 00db | | Load_Top At_Offset_3
03a5 e00b | | Load 0x0,0xb
03a6 18b8 | | Execute Package,Field_Execute,Field_Number 0xb8
03a7 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03a8 00d8 | | Load_Top At_Offset_0
03a9 7004 |p | Jump_Nonzero 0x3ae
03aa 00db | | Load_Top At_Offset_3
03ab 00eb | | Load_Encached Diana_Cache
03ac 18fc | | Execute Package,Field_Execute,Field_Number 0xfc
03ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ae 00d8 | | Load_Top At_Offset_0
03af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b4 | | .CONST 0x03b4 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0002 | | .CONST 0x0002 ; Number of locals
03b3 INIT_03b0:
03b3 00ec | | Load_Encached Diana_Tree_Cache
03b4 BODY_03b0:
03b4 e402 | | Load 0x2,0x2
03b5 00eb | | Load_Encached Diana_Cache
03b6 18fa | | Execute Package,Field_Execute,Field_Number 0xfa
03b7 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03b8 00d8 | | Load_Top At_Offset_0
03b9 0145 | E | Execute Heap_Access,Diana_Tree_Kind
03ba 00d8 | | Load_Top At_Offset_0
03bb 482a |H* | Short_Literal 0x2a
03bc 482f |H/ | Short_Literal 0x2f
03bd 0262 | b | Execute Discrete,In_Range
03be 680a |h | Jump_Zero 0x3c9
03bf 0b2c | , | Execute_Immediate Case_Compare,0x2c
03c0 7008 |p | Jump_Nonzero 0x3c9
03c1 0f2e | . | Execute_Immediate Equal,0x2e
03c2 7007 |p | Jump_Nonzero 0x3ca
03c3 7800 |x | Jump 0x3c4
03c4 00d8 | | Load_Top At_Offset_0
03c5 e005 | | Load 0x0,0x5
03c6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03c7 a402 | | Store_Unchecked 0x2,0x2
03c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c9 00d1 | | Pop_Control Pop_Count_1
03ca 00ec | | Load_Encached Diana_Tree_Cache
03cb 00cb | | Action Pop_Block_With_Result
03cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03cd 0000 0000 | | .XXX[0x3]
03cf 0000 | |
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d4 | | .CONST 0x03d4 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0002 | | .CONST 0x0002 ; Number of locals
03d3 INIT_03d0:
03d3 00ec | | Load_Encached Diana_Tree_Cache
03d4 BODY_03d0:
03d4 e402 | | Load 0x2,0x2
03d5 4907 |I | Short_Literal 0x107
03d6 00eb | | Load_Encached Diana_Cache
03d7 0096 | | Execute Package,Entry
03d8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03d9 00d8 | | Load_Top At_Offset_0
03da 7007 |p | Jump_Nonzero 0x3e2
03db e402 | | Load 0x2,0x2
03dc 00eb | | Load_Encached Diana_Cache
03dd 18ec | | Execute Package,Field_Execute,Field_Number 0xec
03de 00eb | | Load_Encached Diana_Cache
03df 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
03e0 00cb | | Action Pop_Block_With_Result
03e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e2 00d8 | | Load_Top At_Offset_0
03e3 e005 | | Load 0x0,0x5
03e4 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03e5 00cb | | Action Pop_Block_With_Result
03e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e7 ; --------------------------------------------------------------------------------------
03e7 ; STRING TABLE
03e7 ; --------------------------------------------------------------------------------------
03e7 000a | | .STRTAB 0x000a->0x03ec ; "RANGE"
03e8 000d | | .STRTAB 0x000d->0x03ee ; "<ERROR>"
03e9 0012 | | .STRTAB 0x0012->0x03f2 ; "Could not get unit due to "
03ea 002a | * | .STRTAB 0x002a->0x03ff ; "Could not get stub due to "
03eb 0042 | B | .STREND 0x0042->0x040c
03ec 5241 4e47 |RANG| .STRTAB_STRINGS
040c 0000 0000 | | .BLANK 0000[0x4]
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug Table
0410 ; --------------------------------------------------------------------------------------
0410 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d88,0x0000,0x0001,0x0000
0416 0000 0000 | | .BLANK 0000[0x1ea]