|
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_191cd7
└─⟦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 0508 | | .CONST 0x0508 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00be | | .CONST 0x00be ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0030 | 0 | .CONST 0x0030 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c 00c4 | | Action Make_Default
000d 4800 |H | Short_Literal 0x0
000e 4804 |H | Short_Literal 0x4
000f 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0011 03fe | | Declare_Type Discrete,Defined,Visible
0012 6111 |a | Indirect_Literal Discrete,0x124,{0xffffffff, 0xfff00000}
0013 610c |a | Indirect_Literal Discrete,0x120,{0x00000000, 0x000fffff}
0014 00e2 | | Load_Encached Integer_Cache
0015 03f9 | | Declare_Type Discrete,Constrained,Visible
0016 00e3 | | Load_Encached Natural_Cache
0017 0266 | f | Execute Discrete,Bounds
0018 e20e | | Load 0x1,0xe
0019 02a0 | | Declare_Subprogram Null_Subprogram
001a 4801 |H | Short_Literal 0x1
001b 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
001c 00e3 | | Load_Encached Natural_Cache
001d 0266 | f | Execute Discrete,Bounds
001e e20f | | Load 0x1,0xf
001f 02a0 | | Declare_Subprogram Null_Subprogram
0020 4801 |H | Short_Literal 0x1
0021 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0022 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0024 0093 0000 | | push_full_address 0x0
0026 60f5 |` | Indirect_Literal Discrete,0x11c,{0x80000000, 0x00010000}
0027 0273 | s | Execute Discrete,Plus
0028 0129 | ) | Execute Any,Make_Visible
0029 0093 0000 | | push_full_address 0x0
002b 60ec |` | Indirect_Literal Discrete,0x118,{0x80000000, 0x00020000}
002c 0273 | s | Execute Discrete,Plus
002d 0129 | ) | Execute Any,Make_Visible
002e 0093 0000 | | push_full_address 0x0
0030 60e3 |` | Indirect_Literal Discrete,0x114,{0x80000000, 0x00030000}
0031 0273 | s | Execute Discrete,Plus
0032 0129 | ) | Execute Any,Make_Visible
0033 0093 0000 | | push_full_address 0x0
0035 60da |` | Indirect_Literal Discrete,0x110,{0x80000000, 0x00040000}
0036 0273 | s | Execute Discrete,Plus
0037 0129 | ) | Execute Any,Make_Visible
0038 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
003a 0093 0000 | | push_full_address 0x0
003c 60cf |` | Indirect_Literal Discrete,0x10c,{0x80000000, 0x00050000}
003d 0273 | s | Execute Discrete,Plus
003e 0129 | ) | Execute Any,Make_Visible
003f 0093 0000 | | push_full_address 0x0
0041 60c6 |` | Indirect_Literal Discrete,0x108,{0x80000000, 0x00060000}
0042 0273 | s | Execute Discrete,Plus
0043 0129 | ) | Execute Any,Make_Visible
0044 0093 0000 | | push_full_address 0x0
0046 60bd |` | Indirect_Literal Discrete,0x104,{0x80000000, 0x00070000}
0047 0273 | s | Execute Discrete,Plus
0048 0129 | ) | Execute Any,Make_Visible
0049 0093 0000 | | push_full_address 0x0
004b 60b4 |` | Indirect_Literal Discrete,0x100,{0x80000000, 0x00080000}
004c 0273 | s | Execute Discrete,Plus
004d 0129 | ) | Execute Any,Make_Visible
004e 0093 0000 | | push_full_address 0x0
0050 60ab |` | Indirect_Literal Discrete,0xfc,{0x80000000, 0x00090000}
0051 0273 | s | Execute Discrete,Plus
0052 0129 | ) | Execute Any,Make_Visible
0053 0093 0000 | | push_full_address 0x0
0055 60a2 |` | Indirect_Literal Discrete,0xf8,{0x80000000, 0x000a0000}
0056 0273 | s | Execute Discrete,Plus
0057 0129 | ) | Execute Any,Make_Visible
0058 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
005a 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
005c 4800 |H | Short_Literal 0x0
005d 487f |H | Short_Literal 0x7f
005e 00e3 | | Load_Encached Natural_Cache
005f 03f9 | | Declare_Type Discrete,Constrained,Visible
0060 00e5 | | Load_Encached Long_Integer_Cache
0061 00e5 | | Load_Encached Long_Integer_Cache
0062 00e5 | | Load_Encached Long_Integer_Cache
0063 4801 |H | Short_Literal 0x1
0064 4820 |H | Short_Literal 0x20
0065 e210 | | Load 0x1,0x10
0066 035c | \ | Declare_Type Array,Constrained,Visible
0067 e220 | | Load 0x1,0x20
0068 00d8 | | Load_Top At_Offset_0
0069 00e5 | | Load_Encached Long_Integer_Cache
006a 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call
006c 4807 |H | Short_Literal 0x7
006d 032e | . | Declare_Type Record,Defined,Visible
006e e221 | ! | Load 0x1,0x21
006f 0322 | " | Declare_Variable Record
0070 4800 |H | Short_Literal 0x0
0071 e222 | " | Load 0x1,0x22
0072 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0073 4800 |H | Short_Literal 0x0
0074 e222 | " | Load 0x1,0x22
0075 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0076 4800 |H | Short_Literal 0x0
0077 e222 | " | Load 0x1,0x22
0078 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0079 e221 | ! | Load 0x1,0x21
007a 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
007b 0337 | 7 | Declare_Variable Array
007c 4820 |H | Short_Literal 0x20
007d 4801 |H | Short_Literal 0x1
007e 4804 |H | Short_Literal 0x4
007f e225 | % | Load 0x1,0x25
0080 e223 | # | Load 0x1,0x23
0081 01d6 | | Execute Vector,Field_Write
0082 3ffb |? | Loop_Increasing 0x7e
0083 e221 | ! | Load 0x1,0x21
0084 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
0085 0119 | | Execute Any,Check_In_Formal_Type
0086 e222 | " | Load 0x1,0x22
0087 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0088 4800 |H | Short_Literal 0x0
0089 e222 | " | Load 0x1,0x22
008a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
008b 4800 |H | Short_Literal 0x0
008c e222 | " | Load 0x1,0x22
008d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
008e 4800 |H | Short_Literal 0x0
008f e222 | " | Load 0x1,0x22
0090 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0091 0129 | ) | Execute Any,Make_Visible
0092 c20d | | Store 0x1,0xd
0093 00bf | | Action Accept_Activation
0094 0007 | | Action Break_Optional
0095 0007 | | Action Break_Optional
0096 0007 | | Action Break_Optional
0097 0007 | | Action Break_Optional
0098 0007 | | Action Break_Optional
0099 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call
009b 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call
009d 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call
009f 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
00a1 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call
00a3 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call
00a5 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call
00a7 e002 | | Load 0x0,0x2
00a8 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00a9 e002 | | Load 0x0,0x2
00aa 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00ab 00e3 | | Load_Encached Natural_Cache
00ac e002 | | Load 0x0,0x2
00ad 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
00ae e002 | | Load 0x0,0x2
00af 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b0 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call
00b2 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
00b4 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call
00b6 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00bd 00c7 | | Action Elaborate_Subprogram
00be BODY_0008:
00be 0092 04bb | | Action Push_String_Extended,0x4bb ; "X_Library"
00c0 e003 | | Load 0x0,0x3
00c1 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c2 700a |p | Jump_Nonzero 0xcd
00c3 e004 | | Load 0x0,0x4
00c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c5 4807 |H | Short_Literal 0x7
00c6 0092 04bc | | Action Push_String_Extended,0x4bc ; "The X_Library product is not authorized on this machine. Or, the authorization has expired."
00c8 e005 | | Load 0x0,0x5
00c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ca e004 | | Load 0x0,0x4
00cb 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
00cc 0257 | W | Execute Discrete,Raise
00cd 00bc | | Action Signal_Activated
00ce 00bb | | Action Signal_Completion
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4607 |F | Jump_Case 0x8
00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00d5 7807 |x | Jump 0xdd ; case 0x1
00d6 780a |x | Jump 0xe1 ; case 0x2
00d7 780e |x | Jump 0xe6 ; case 0x3
00d8 7811 |x | Jump 0xea ; case 0x4
00d9 7812 |x | Jump 0xec ; case 0x5
00da 7813 |x | Jump 0xee ; case 0x6
00db 7816 |x | Jump 0xf2 ; case 0x7
00dc 4302 |C | .XXX[0x1]
00dd 00da | | Load_Top At_Offset_2
00de 0091 04b6 | | Action Push_String_Extended_Indexed,0x4b6 ; "IN_MODE"
00e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e1 00db | | Load_Top At_Offset_3
00e2 00db | | Load_Top At_Offset_3
00e3 00e0 | | Load_Encached Standard_Cache
00e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e6 00da | | Load_Top At_Offset_2
00e7 00e0 | | Load_Encached Standard_Cache
00e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ea 00db | | Load_Top At_Offset_3
00eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ec 00db | | Load_Top At_Offset_3
00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ee e20e | | Load 0x1,0xe
00ef 00dc | | Load_Top At_Offset_4
00f0 0267 | g | Execute Discrete,Predecessor
00f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f2 e20e | | Load 0x1,0xe
00f3 00dc | | Load_Top At_Offset_4
00f4 0268 | h | Execute Discrete,Successor
00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f6 0000 0000 | | .XXX[0x2]
00f8 8000 0000 | | .LITERAL {0x80000000, 0x000a0000}
00fc 8000 0000 | | .LITERAL {0x80000000, 0x00090000}
0100 8000 0000 | | .LITERAL {0x80000000, 0x00080000}
0104 8000 0000 | | .LITERAL {0x80000000, 0x00070000}
0108 8000 0000 | | .LITERAL {0x80000000, 0x00060000}
010c 8000 0000 | | .LITERAL {0x80000000, 0x00050000}
0110 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
0114 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
0118 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
011c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0120 0000 0000 | | .LITERAL {0x00000000, 0x000fffff}
0124 ffff ffff | | .LITERAL {0xffffffff, 0xfff00000}
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 014b | K | .CONST 0x014b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 000a | | .CONST 0x000a ; Number of locals
012b INIT_0128:
012b e221 | ! | Load 0x1,0x21
012c 0322 | " | Declare_Variable Record
012d e402 | | Load 0x2,0x2
012e 1c00 | | Execute_Immediate Run_Utility,0x0
012f e002 | | Load 0x0,0x2
0130 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0131 e002 | | Load 0x0,0x2
0132 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0133 03f1 | | Declare_Variable Discrete,With_Value
0134 e002 | | Load 0x0,0x2
0135 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0136 02c7 | | Declare_Variable Any
0137 e002 | | Load 0x0,0x2
0138 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0139 e403 | | Load 0x2,0x3
013a e002 | | Load 0x0,0x2
013b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
013c a404 | | Store_Unchecked 0x2,0x4
013d e002 | | Load 0x0,0x2
013e 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
013f 02c7 | | Declare_Variable Any
0140 e405 | | Load 0x2,0x5
0141 1c00 | | Execute_Immediate Run_Utility,0x0
0142 e002 | | Load 0x0,0x2
0143 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0144 00e1 | | Load_Encached Boolean_Cache
0145 00e3 | | Load_Encached Natural_Cache
0146 e002 | | Load 0x0,0x2
0147 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0148 e002 | | Load 0x0,0x2
0149 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
014a 0322 | " | Declare_Variable Record
014b BODY_0128:
014b 4801 |H | Short_Literal 0x1
014c 822e | . | Call 0x1,0x2e
014d c405 | | Store 0x2,0x5
014e e405 | | Load 0x2,0x5
014f e002 | | Load 0x0,0x2
0150 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0151 a406 | | Store_Unchecked 0x2,0x6
0152 e406 | | Load 0x2,0x6
0153 0afe | | Execute_Immediate Plus,-0x2
0154 e002 | | Load 0x0,0x2
0155 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0156 00d9 | | Load_Top At_Offset_1
0157 00d0 | | Action Swap_Control
0158 0260 | ` | Execute Discrete,In_Type
0159 7001 |p | Jump_Nonzero 0x15b
015a 0801 | | Execute_Immediate Raise,0x1
015b e404 | | Load 0x2,0x4
015c e002 | | Load 0x0,0x2
015d 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
015e e40a | | Load 0x2,0xa
015f 017d | } | Execute Record,Structure_Write
0160 e002 | | Load 0x0,0x2
0161 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0162 00e3 | | Load_Encached Natural_Cache
0163 00e1 | | Load_Encached Boolean_Cache
0164 e40a | | Load 0x2,0xa
0165 8226 | & | Call 0x1,0x26
0166 c407 | | Store 0x2,0x7
0167 c408 | | Store 0x2,0x8
0168 c409 | | Store 0x2,0x9
0169 e407 | | Load 0x2,0x7
016a 7002 |p | Jump_Nonzero 0x16d
016b e213 | | Load 0x1,0x13
016c 0257 | W | Execute Discrete,Raise
016d e408 | | Load 0x2,0x8
016e 0e02 | | Execute_Immediate Not_Equal,0x2
016f 6802 |h | Jump_Zero 0x172
0170 e216 | | Load 0x1,0x16
0171 0257 | W | Execute Discrete,Raise
0172 e5ff | | Load 0x2,-0x1
0173 8227 | ' | Call 0x1,0x27
0174 e40a | | Load 0x2,0xa
0175 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0176 e402 | | Load 0x2,0x2
0177 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0178 e40a | | Load 0x2,0xa
0179 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
017a e402 | | Load 0x2,0x2
017b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
017c e409 | | Load 0x2,0x9
017d e402 | | Load 0x2,0x2
017e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
017f e5ff | | Load 0x2,-0x1
0180 8228 | ( | Call 0x1,0x28
0181 e402 | | Load 0x2,0x2
0182 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0183 e5ff | | Load 0x2,-0x1
0184 822f | / | Call 0x1,0x2f
0185 e402 | | Load 0x2,0x2
0186 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0187 e5ff | | Load 0x2,-0x1
0188 8230 | 0 | Call 0x1,0x30
0189 e402 | | Load 0x2,0x2
018a 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
018b e5fe | | Load 0x2,-0x2
018c e402 | | Load 0x2,0x2
018d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
018e e402 | | Load 0x2,0x2
018f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01c4 | | .CONST 0x01c4 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0013 | | .CONST 0x0013 ; Number of locals
0193 INIT_0190:
0193 e221 | ! | Load 0x1,0x21
0194 0322 | " | Declare_Variable Record
0195 e402 | | Load 0x2,0x2
0196 1c00 | | Execute_Immediate Run_Utility,0x0
0197 e002 | | Load 0x0,0x2
0198 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0199 e002 | | Load 0x0,0x2
019a 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
019b 03f1 | | Declare_Variable Discrete,With_Value
019c e002 | | Load 0x0,0x2
019d 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
019e 02c7 | | Declare_Variable Any
019f e002 | | Load 0x0,0x2
01a0 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
01a1 e403 | | Load 0x2,0x3
01a2 e002 | | Load 0x0,0x2
01a3 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01a4 a404 | | Store_Unchecked 0x2,0x4
01a5 e002 | | Load 0x0,0x2
01a6 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
01a7 02c7 | | Declare_Variable Any
01a8 e405 | | Load 0x2,0x5
01a9 1c00 | | Execute_Immediate Run_Utility,0x0
01aa e002 | | Load 0x0,0x2
01ab 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
01ac e002 | | Load 0x0,0x2
01ad 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
01ae 02c7 | | Declare_Variable Any
01af e407 | | Load 0x2,0x7
01b0 1c00 | | Execute_Immediate Run_Utility,0x0
01b1 e002 | | Load 0x0,0x2
01b2 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
01b3 e002 | | Load 0x0,0x2
01b4 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
01b5 e002 | | Load 0x0,0x2
01b6 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
01b7 0322 | " | Declare_Variable Record
01b8 00e3 | | Load_Encached Natural_Cache
01b9 00e2 | | Load_Encached Integer_Cache
01ba 00e2 | | Load_Encached Integer_Cache
01bb 00e2 | | Load_Encached Integer_Cache
01bc 03e9 | | Declare_Variable Discrete,Duplicate
01bd 00e1 | | Load_Encached Boolean_Cache
01be 00e3 | | Load_Encached Natural_Cache
01bf e002 | | Load 0x0,0x2
01c0 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
01c1 e002 | | Load 0x0,0x2
01c2 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
01c3 0322 | " | Declare_Variable Record
01c4 BODY_0190:
01c4 4800 |H | Short_Literal 0x0
01c5 822e | . | Call 0x1,0x2e
01c6 c405 | | Store 0x2,0x5
01c7 e405 | | Load 0x2,0x5
01c8 e002 | | Load 0x0,0x2
01c9 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
01ca a406 | | Store_Unchecked 0x2,0x6
01cb 4801 |H | Short_Literal 0x1
01cc 822e | . | Call 0x1,0x2e
01cd c407 | | Store 0x2,0x7
01ce e407 | | Load 0x2,0x7
01cf e002 | | Load 0x0,0x2
01d0 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
01d1 a408 | | Store_Unchecked 0x2,0x8
01d2 e5ff | | Load 0x2,-0x1
01d3 8227 | ' | Call 0x1,0x27
01d4 e5ff | | Load 0x2,-0x1
01d5 01db | | Execute Vector,Length
01d6 0a01 | | Execute_Immediate Plus,0x1
01d7 e5fe | | Load 0x2,-0x2
01d8 01db | | Execute Vector,Length
01d9 027e | ~ | Execute Discrete,Not_Equal
01da 6802 |h | Jump_Zero 0x1dd
01db e218 | | Load 0x1,0x18
01dc 0257 | W | Execute Discrete,Raise
01dd 4803 |H | Short_Literal 0x3
01de 822e | . | Call 0x1,0x2e
01df e002 | | Load 0x0,0x2
01e0 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
01e1 a409 | | Store_Unchecked 0x2,0x9
01e2 e406 | | Load 0x2,0x6
01e3 e408 | | Load 0x2,0x8
01e4 0272 | r | Execute Discrete,Minus
01e5 a40f | | Store_Unchecked 0x2,0xf
01e6 e409 | | Load 0x2,0x9
01e7 0a02 | | Execute_Immediate Plus,0x2
01e8 e408 | | Load 0x2,0x8
01e9 0272 | r | Execute Discrete,Minus
01ea c40e | | Store 0x2,0xe
01eb e5fe | | Load 0x2,-0x2
01ec 01d9 | | Execute Vector,Reverse_Bounds
01ed 0263 | c | Execute Discrete,Above_Bound
01ee 700f |p | Jump_Nonzero 0x1fe
01ef e415 | | Load 0x2,0x15
01f0 e5fe | | Load 0x2,-0x2
01f1 01d7 | | Execute Vector,Field_Read
01f2 e40e | | Load 0x2,0xe
01f3 027c | | | Execute Discrete,Less
01f4 7006 |p | Jump_Nonzero 0x1fb
01f5 e415 | | Load 0x2,0x15
01f6 e5fe | | Load 0x2,-0x2
01f7 01d7 | | Execute Vector,Field_Read
01f8 e40f | | Load 0x2,0xf
01f9 027d | } | Execute Discrete,Greater
01fa 6802 |h | Jump_Zero 0x1fd
01fb e21b | | Load 0x1,0x1b
01fc 0257 | W | Execute Discrete,Raise
01fd 3ff1 |? | Loop_Increasing 0x1ef
01fe e5fe | | Load 0x2,-0x2
01ff 01dd | | Execute Vector,First
0200 e5fe | | Load 0x2,-0x2
0201 01d7 | | Execute Vector,Field_Read
0202 e408 | | Load 0x2,0x8
0203 0273 | s | Execute Discrete,Plus
0204 e406 | | Load 0x2,0x6
0205 0272 | r | Execute Discrete,Minus
0206 c40c | | Store 0x2,0xc
0207 4802 |H | Short_Literal 0x2
0208 a40b | | Store_Unchecked 0x2,0xb
0209 e40c | | Load 0x2,0xc
020a e40b | | Load 0x2,0xb
020b 009c | | Action Load_Dynamic
020c e402 | | Load 0x2,0x2
020d 017d | } | Execute Record,Structure_Write
020e e402 | | Load 0x2,0x2
020f e20d | | Load 0x1,0xd
0210 017f | | Execute Record,Equal
0211 7003 |p | Jump_Nonzero 0x215
0212 e402 | | Load 0x2,0x2
0213 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0214 7002 |p | Jump_Nonzero 0x217
0215 e21a | | Load 0x1,0x1a
0216 0257 | W | Execute Discrete,Raise
0217 e402 | | Load 0x2,0x2
0218 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0219 e413 | | Load 0x2,0x13
021a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
021b e402 | | Load 0x2,0x2
021c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021d e413 | | Load 0x2,0x13
021e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
021f e002 | | Load 0x0,0x2
0220 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0221 00e3 | | Load_Encached Natural_Cache
0222 00e1 | | Load_Encached Boolean_Cache
0223 e413 | | Load 0x2,0x13
0224 8226 | & | Call 0x1,0x26
0225 c410 | | Store 0x2,0x10
0226 c411 | | Store 0x2,0x11
0227 c412 | | Store 0x2,0x12
0228 e410 | | Load 0x2,0x10
0229 7002 |p | Jump_Nonzero 0x22c
022a e21c | | Load 0x1,0x1c
022b 0257 | W | Execute Discrete,Raise
022c e412 | | Load 0x2,0x12
022d e002 | | Load 0x0,0x2
022e 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
022f 7002 |p | Jump_Nonzero 0x232
0230 e219 | | Load 0x1,0x19
0231 0257 | W | Execute Discrete,Raise
0232 e411 | | Load 0x2,0x11
0233 0e02 | | Execute_Immediate Not_Equal,0x2
0234 7005 |p | Jump_Nonzero 0x23a
0235 e412 | | Load 0x2,0x12
0236 e402 | | Load 0x2,0x2
0237 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0238 027e | ~ | Execute Discrete,Not_Equal
0239 6802 |h | Jump_Zero 0x23c
023a e21c | | Load 0x1,0x1c
023b 0257 | W | Execute Discrete,Raise
023c e5ff | | Load 0x2,-0x1
023d 8228 | ( | Call 0x1,0x28
023e e402 | | Load 0x2,0x2
023f 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0240 01de | | Execute Vector,Not_Equal
0241 6802 |h | Jump_Zero 0x244
0242 e21d | | Load 0x1,0x1d
0243 0257 | W | Execute Discrete,Raise
0244 e5ff | | Load 0x2,-0x1
0245 822f | / | Call 0x1,0x2f
0246 e402 | | Load 0x2,0x2
0247 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0248 027e | ~ | Execute Discrete,Not_Equal
0249 7006 |p | Jump_Nonzero 0x250
024a e5ff | | Load 0x2,-0x1
024b 8230 | 0 | Call 0x1,0x30
024c e402 | | Load 0x2,0x2
024d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
024e 027e | ~ | Execute Discrete,Not_Equal
024f 6802 |h | Jump_Zero 0x252
0250 e21d | | Load 0x1,0x1d
0251 0257 | W | Execute Discrete,Raise
0252 e006 | | Load 0x0,0x6
0253 186f | o | Execute Package,Field_Execute,Field_Number 0x6f
0254 e5ff | | Load 0x2,-0x1
0255 01dc | | Execute Vector,Last
0256 a40d | | Store_Unchecked 0x2,0xd
0257 7822 |x" | Jump 0x27a
0258 e40d | | Load 0x2,0xd
0259 e5ff | | Load 0x2,-0x1
025a 01d7 | | Execute Vector,Field_Read
025b 0f01 | | Execute_Immediate Equal,0x1
025c 7005 |p | Jump_Nonzero 0x262
025d e40d | | Load 0x2,0xd
025e e5ff | | Load 0x2,-0x1
025f 01d7 | | Execute Vector,Field_Read
0260 0f02 | | Execute_Immediate Equal,0x2
0261 6815 |h | Jump_Zero 0x277
0262 4802 |H | Short_Literal 0x2
0263 a40b | | Store_Unchecked 0x2,0xb
0264 e40d | | Load 0x2,0xd
0265 e5ff | | Load 0x2,-0x1
0266 01dd | | Execute Vector,First
0267 0272 | r | Execute Discrete,Minus
0268 e5fe | | Load 0x2,-0x2
0269 01dd | | Execute Vector,First
026a 0273 | s | Execute Discrete,Plus
026b 0a01 | | Execute_Immediate Plus,0x1
026c e5fe | | Load 0x2,-0x2
026d 01d7 | | Execute Vector,Field_Read
026e e408 | | Load 0x2,0x8
026f 0273 | s | Execute Discrete,Plus
0270 e406 | | Load 0x2,0x6
0271 0272 | r | Execute Discrete,Minus
0272 c40c | | Store 0x2,0xc
0273 e40c | | Load 0x2,0xc
0274 e40b | | Load 0x2,0xb
0275 009c | | Action Load_Dynamic
0276 0007 | | Action Break_Optional
0277 e40d | | Load 0x2,0xd
0278 0aff | | Execute_Immediate Plus,-0x1
0279 c40d | | Store 0x2,0xd
027a e40d | | Load 0x2,0xd
027b e5ff | | Load 0x2,-0x1
027c 01dd | | Execute Vector,First
027d 027b | { | Execute Discrete,Greater_Equal
027e 77d9 |w | Jump_Nonzero 0x258
027f e5ff | | Load 0x2,-0x1
0280 01dc | | Execute Vector,Last
0281 a40d | | Store_Unchecked 0x2,0xd
0282 781c |x | Jump 0x29f
0283 e40d | | Load 0x2,0xd
0284 e5ff | | Load 0x2,-0x1
0285 01d7 | | Execute Vector,Field_Read
0286 7015 |p | Jump_Nonzero 0x29c
0287 4802 |H | Short_Literal 0x2
0288 a40b | | Store_Unchecked 0x2,0xb
0289 e40d | | Load 0x2,0xd
028a e5ff | | Load 0x2,-0x1
028b 01dd | | Execute Vector,First
028c 0272 | r | Execute Discrete,Minus
028d e5fe | | Load 0x2,-0x2
028e 01dd | | Execute Vector,First
028f 0273 | s | Execute Discrete,Plus
0290 0a01 | | Execute_Immediate Plus,0x1
0291 e5fe | | Load 0x2,-0x2
0292 01d7 | | Execute Vector,Field_Read
0293 e408 | | Load 0x2,0x8
0294 0273 | s | Execute Discrete,Plus
0295 e406 | | Load 0x2,0x6
0296 0272 | r | Execute Discrete,Minus
0297 c40c | | Store 0x2,0xc
0298 e40c | | Load 0x2,0xc
0299 e40b | | Load 0x2,0xb
029a 009c | | Action Load_Dynamic
029b 0007 | | Action Break_Optional
029c e40d | | Load 0x2,0xd
029d 0aff | | Execute_Immediate Plus,-0x1
029e c40d | | Store 0x2,0xd
029f e40d | | Load 0x2,0xd
02a0 e5ff | | Load 0x2,-0x1
02a1 01dd | | Execute Vector,First
02a2 027b | { | Execute Discrete,Greater_Equal
02a3 77df |w | Jump_Nonzero 0x283
02a4 8413 | | Call 0x2,0x13
02a5 e5ff | | Load 0x2,-0x1
02a6 01dd | | Execute Vector,First
02a7 a40d | | Store_Unchecked 0x2,0xd
02a8 7826 |x& | Jump 0x2cf
02a9 e40d | | Load 0x2,0xd
02aa e5ff | | Load 0x2,-0x1
02ab 01d7 | | Execute Vector,Field_Read
02ac 0f01 | | Execute_Immediate Equal,0x1
02ad 700a |p | Jump_Nonzero 0x2b8
02ae e40d | | Load 0x2,0xd
02af e5ff | | Load 0x2,-0x1
02b0 01d7 | | Execute Vector,Field_Read
02b1 0f02 | | Execute_Immediate Equal,0x2
02b2 7005 |p | Jump_Nonzero 0x2b8
02b3 e40d | | Load 0x2,0xd
02b4 e5ff | | Load 0x2,-0x1
02b5 01d7 | | Execute Vector,Field_Read
02b6 0f03 | | Execute_Immediate Equal,0x3
02b7 6814 |h | Jump_Zero 0x2cc
02b8 4802 |H | Short_Literal 0x2
02b9 a40b | | Store_Unchecked 0x2,0xb
02ba e40d | | Load 0x2,0xd
02bb e5ff | | Load 0x2,-0x1
02bc 01dd | | Execute Vector,First
02bd 0272 | r | Execute Discrete,Minus
02be e5fe | | Load 0x2,-0x2
02bf 01dd | | Execute Vector,First
02c0 0273 | s | Execute Discrete,Plus
02c1 0a01 | | Execute_Immediate Plus,0x1
02c2 e5fe | | Load 0x2,-0x2
02c3 01d7 | | Execute Vector,Field_Read
02c4 e408 | | Load 0x2,0x8
02c5 0273 | s | Execute Discrete,Plus
02c6 e406 | | Load 0x2,0x6
02c7 0272 | r | Execute Discrete,Minus
02c8 c40c | | Store 0x2,0xc
02c9 e40c | | Load 0x2,0xc
02ca e40b | | Load 0x2,0xb
02cb 009b | | Action Store_Dynamic
02cc e40d | | Load 0x2,0xd
02cd 0a01 | | Execute_Immediate Plus,0x1
02ce c40d | | Store 0x2,0xd
02cf e40d | | Load 0x2,0xd
02d0 e5ff | | Load 0x2,-0x1
02d1 01dc | | Execute Vector,Last
02d2 027a | z | Execute Discrete,Less_Equal
02d3 77d5 |w | Jump_Nonzero 0x2a9
02d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d5 4503 0000 |E | .XXX[0x3]
02d7 0000 | |
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 00c4 | | Action Make_Default
02dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02dd 0831 0000 | 1 | .XXX[0x3]
02df 0000 | |
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 e5ff | | Load 0x2,-0x1
02e4 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e6 0000 0000 | | .XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 4820 |H | Short_Literal 0x20
02ec 4800 |H | Short_Literal 0x0
02ed e5ff | | Load 0x2,-0x1
02ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ef e007 | | Load 0x0,0x7
02f0 180e | | Execute Package,Field_Execute,Field_Number 0xe
02f1 00d8 | | Load_Top At_Offset_0
02f2 e008 | | Load 0x0,0x8
02f3 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02f4 0260 | ` | Execute Discrete,In_Type
02f5 7001 |p | Jump_Nonzero 0x2f7
02f6 0801 | | Execute_Immediate Raise,0x1
02f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 4814 |H | Short_Literal 0x14
02fc 4825 |H% | Short_Literal 0x25
02fd e5ff | | Load 0x2,-0x1
02fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ff e007 | | Load 0x0,0x7
0300 180e | | Execute Package,Field_Execute,Field_Number 0xe
0301 00d8 | | Load_Top At_Offset_0
0302 e002 | | Load 0x0,0x2
0303 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0304 0260 | ` | Execute Discrete,In_Type
0305 7001 |p | Jump_Nonzero 0x307
0306 0801 | | Execute_Immediate Raise,0x1
0307 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b e5ff | | Load 0x2,-0x1
030c 8222 | " | Call 0x1,0x22
030d e002 | | Load 0x0,0x2
030e 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
030f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 031b | | .CONST 0x031b ; Address of begin
0311 0350 | P | .CONST 0x0350 ; Address of exception handler
0312 0005 | | .CONST 0x0005 ; Number of locals
0313 INIT_0310:
0313 e002 | | Load 0x0,0x2
0314 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0315 e002 | | Load 0x0,0x2
0316 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0317 e002 | | Load 0x0,0x2
0318 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
0319 0322 | " | Declare_Variable Record
031a 00e5 | | Load_Encached Long_Integer_Cache
031b BODY_0310:
031b e5ff | | Load 0x2,-0x1
031c 8222 | " | Call 0x1,0x22
031d a402 | | Store_Unchecked 0x2,0x2
031e e5ff | | Load 0x2,-0x1
031f 8223 | # | Call 0x1,0x23
0320 a403 | | Store_Unchecked 0x2,0x3
0321 e403 | | Load 0x2,0x3
0322 e002 | | Load 0x0,0x2
0323 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0324 e402 | | Load 0x2,0x2
0325 e002 | | Load 0x0,0x2
0326 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0327 e002 | | Load 0x0,0x2
0328 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0329 e404 | | Load 0x2,0x4
032a 017d | } | Execute Record,Structure_Write
032b 4804 |H | Short_Literal 0x4
032c 483c |H< | Short_Literal 0x3c
032d e404 | | Load 0x2,0x4
032e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
032f e007 | | Load 0x0,0x7
0330 180e | | Execute Package,Field_Execute,Field_Number 0xe
0331 a405 | | Store_Unchecked 0x2,0x5
0332 e405 | | Load 0x2,0x5
0333 0e02 | | Execute_Immediate Not_Equal,0x2
0334 6802 |h | Jump_Zero 0x337
0335 e216 | | Load 0x1,0x16
0336 0257 | W | Execute Discrete,Raise
0337 e404 | | Load 0x2,0x4
0338 e002 | | Load 0x0,0x2
0339 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
033a 00d8 | | Load_Top At_Offset_0
033b 0d17 | | Execute_Immediate Less,0x17
033c 700b |p | Jump_Nonzero 0x348
033d 00d8 | | Load_Top At_Offset_0
033e 0c26 | & | Execute_Immediate Greater_Equal,0x26
033f 7003 |p | Jump_Nonzero 0x343
0340 00d1 | | Pop_Control Pop_Count_1
0341 4800 |H | Short_Literal 0x0
0342 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0343 0b26 | & | Execute_Immediate Case_Compare,0x26
0344 7008 |p | Jump_Nonzero 0x34d
0345 0f36 | 6 | Execute_Immediate Equal,0x36
0346 7007 |p | Jump_Nonzero 0x34e
0347 7ff9 | | Jump 0x341
0348 0b06 | | Execute_Immediate Case_Compare,0x6
0349 7003 |p | Jump_Nonzero 0x34d
034a 0f16 | | Execute_Immediate Equal,0x16
034b 7002 |p | Jump_Nonzero 0x34e
034c 7ff4 | | Jump 0x341
034d 00d1 | | Pop_Control Pop_Count_1
034e 4801 |H | Short_Literal 0x1
034f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0350 TRAP_0310:
0350 0007 | | Action Break_Optional
0351 4800 |H | Short_Literal 0x0
0352 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0353 0000 0000 | | .BLANK 0000[0x5]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0365 | e | .CONST 0x0365 ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0005 | | .CONST 0x0005 ; Number of locals
035b INIT_0358:
035b e5ff | | Load 0x2,-0x1
035c e002 | | Load 0x0,0x2
035d 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
035e e002 | | Load 0x0,0x2
035f 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0360 e002 | | Load 0x0,0x2
0361 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0362 e002 | | Load 0x0,0x2
0363 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
0364 0322 | " | Declare_Variable Record
0365 BODY_0358:
0365 4800 |H | Short_Literal 0x0
0366 a5fe | | Store_Unchecked 0x2,-0x2
0367 4800 |H | Short_Literal 0x0
0368 a5fd | | Store_Unchecked 0x2,-0x3
0369 4800 |H | Short_Literal 0x0
036a a5fc | | Store_Unchecked 0x2,-0x4
036b e402 | | Load 0x2,0x2
036c 00d8 | | Load_Top At_Offset_0
036d 0d13 | | Execute_Immediate Less,0x13
036e 700b |p | Jump_Nonzero 0x37a
036f 00d8 | | Load_Top At_Offset_0
0370 0c22 | " | Execute_Immediate Greater_Equal,0x22
0371 7003 |p | Jump_Nonzero 0x375
0372 00d1 | | Pop_Control Pop_Count_1
0373 0008 | | Action Idle
0374 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0375 0b22 | " | Execute_Immediate Case_Compare,0x22
0376 7008 |p | Jump_Nonzero 0x37f
0377 0f32 | 2 | Execute_Immediate Equal,0x32
0378 7007 |p | Jump_Nonzero 0x380
0379 7ff9 | | Jump 0x373
037a 0b02 | | Execute_Immediate Case_Compare,0x2
037b 7003 |p | Jump_Nonzero 0x37f
037c 0f12 | | Execute_Immediate Equal,0x12
037d 7002 |p | Jump_Nonzero 0x380
037e 7ff4 | | Jump 0x373
037f 00d1 | | Pop_Control Pop_Count_1
0380 e5ff | | Load 0x2,-0x1
0381 8222 | " | Call 0x1,0x22
0382 a403 | | Store_Unchecked 0x2,0x3
0383 e5ff | | Load 0x2,-0x1
0384 8223 | # | Call 0x1,0x23
0385 a404 | | Store_Unchecked 0x2,0x4
0386 e403 | | Load 0x2,0x3
0387 e002 | | Load 0x0,0x2
0388 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0389 683d |h= | Jump_Zero 0x3c7
038a e404 | | Load 0x2,0x4
038b e002 | | Load 0x0,0x2
038c 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
038d e403 | | Load 0x2,0x3
038e e002 | | Load 0x0,0x2
038f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0390 e002 | | Load 0x0,0x2
0391 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0392 e405 | | Load 0x2,0x5
0393 017d | } | Execute Record,Structure_Write
0394 4804 |H | Short_Literal 0x4
0395 483c |H< | Short_Literal 0x3c
0396 e405 | | Load 0x2,0x5
0397 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0398 e007 | | Load 0x0,0x7
0399 180e | | Execute Package,Field_Execute,Field_Number 0xe
039a 00d8 | | Load_Top At_Offset_0
039b 00e3 | | Load_Encached Natural_Cache
039c 0260 | ` | Execute Discrete,In_Type
039d 7001 |p | Jump_Nonzero 0x39f
039e 0801 | | Execute_Immediate Raise,0x1
039f a5fd | | Store_Unchecked 0x2,-0x3
03a0 e405 | | Load 0x2,0x5
03a1 e002 | | Load 0x0,0x2
03a2 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
03a3 00d8 | | Load_Top At_Offset_0
03a4 0d17 | | Execute_Immediate Less,0x17
03a5 700b |p | Jump_Nonzero 0x3b1
03a6 00d8 | | Load_Top At_Offset_0
03a7 0c26 | & | Execute_Immediate Greater_Equal,0x26
03a8 7003 |p | Jump_Nonzero 0x3ac
03a9 00d1 | | Pop_Control Pop_Count_1
03aa 0008 | | Action Idle
03ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ac 0b26 | & | Execute_Immediate Case_Compare,0x26
03ad 7008 |p | Jump_Nonzero 0x3b6
03ae 0f36 | 6 | Execute_Immediate Equal,0x36
03af 7007 |p | Jump_Nonzero 0x3b7
03b0 7ff9 | | Jump 0x3aa
03b1 0b06 | | Execute_Immediate Case_Compare,0x6
03b2 7003 |p | Jump_Nonzero 0x3b6
03b3 0f16 | | Execute_Immediate Equal,0x16
03b4 7002 |p | Jump_Nonzero 0x3b7
03b5 7ff4 | | Jump 0x3aa
03b6 00d1 | | Pop_Control Pop_Count_1
03b7 4801 |H | Short_Literal 0x1
03b8 a5fe | | Store_Unchecked 0x2,-0x2
03b9 4820 |H | Short_Literal 0x20
03ba 4800 |H | Short_Literal 0x0
03bb e405 | | Load 0x2,0x5
03bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03bd e007 | | Load 0x0,0x7
03be 180e | | Execute Package,Field_Execute,Field_Number 0xe
03bf 00d8 | | Load_Top At_Offset_0
03c0 e008 | | Load 0x0,0x8
03c1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03c2 0260 | ` | Execute Discrete,In_Type
03c3 7001 |p | Jump_Nonzero 0x3c5
03c4 0801 | | Execute_Immediate Raise,0x1
03c5 a5fc | | Store_Unchecked 0x2,-0x4
03c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c7 4801 |H | Short_Literal 0x1
03c8 a5fe | | Store_Unchecked 0x2,-0x2
03c9 e403 | | Load 0x2,0x3
03ca a5fc | | Store_Unchecked 0x2,-0x4
03cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03cc 0000 0000 | | .BLANK 0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 e5ff | | Load 0x2,-0x1
03d4 01db | | Execute Vector,Length
03d5 7001 |p | Jump_Nonzero 0x3d7
03d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d7 e5ff | | Load 0x2,-0x1
03d8 01d9 | | Execute Vector,Reverse_Bounds
03d9 0263 | c | Execute Discrete,Above_Bound
03da 7014 |p | Jump_Nonzero 0x3ef
03db e403 | | Load 0x2,0x3
03dc e5ff | | Load 0x2,-0x1
03dd 01d7 | | Execute Vector,Field_Read
03de 0f04 | | Execute_Immediate Equal,0x4
03df 6802 |h | Jump_Zero 0x3e2
03e0 e214 | | Load 0x1,0x14
03e1 0257 | W | Execute Discrete,Raise
03e2 e403 | | Load 0x2,0x3
03e3 e5ff | | Load 0x2,-0x1
03e4 01d7 | | Execute Vector,Field_Read
03e5 0f03 | | Execute_Immediate Equal,0x3
03e6 6807 |h | Jump_Zero 0x3ee
03e7 e403 | | Load 0x2,0x3
03e8 e5ff | | Load 0x2,-0x1
03e9 01dc | | Execute Vector,Last
03ea 027c | | | Execute Discrete,Less
03eb 6802 |h | Jump_Zero 0x3ee
03ec e214 | | Load 0x1,0x14
03ed 0257 | W | Execute Discrete,Raise
03ee 3fec |? | Loop_Increasing 0x3db
03ef e5ff | | Load 0x2,-0x1
03f0 01dc | | Execute Vector,Last
03f1 e5ff | | Load 0x2,-0x1
03f2 01d7 | | Execute Vector,Field_Read
03f3 0f03 | | Execute_Immediate Equal,0x3
03f4 6813 |h | Jump_Zero 0x408
03f5 e5ff | | Load 0x2,-0x1
03f6 01dc | | Execute Vector,Last
03f7 0aff | | Execute_Immediate Plus,-0x1
03f8 00d8 | | Load_Top At_Offset_0
03f9 00e2 | | Load_Encached Integer_Cache
03fa 0260 | ` | Execute Discrete,In_Type
03fb 7001 |p | Jump_Nonzero 0x3fd
03fc 0801 | | Execute_Immediate Raise,0x1
03fd e5ff | | Load 0x2,-0x1
03fe 01dd | | Execute Vector,First
03ff 0263 | c | Execute Discrete,Above_Bound
0400 7007 |p | Jump_Nonzero 0x408
0401 e403 | | Load 0x2,0x3
0402 e5ff | | Load 0x2,-0x1
0403 01d7 | | Execute Vector,Field_Read
0404 6802 |h | Jump_Zero 0x407
0405 e214 | | Load 0x1,0x14
0406 0257 | W | Execute Discrete,Raise
0407 3ff9 |? | Loop_Increasing 0x401
0408 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0409 0000 0000 | | .BLANK 0000[0x7]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 e5ff | | Load 0x2,-0x1
0414 01db | | Execute Vector,Length
0415 0c21 | ! | Execute_Immediate Greater_Equal,0x21
0416 680d |h | Jump_Zero 0x424
0417 e5ff | | Load 0x2,-0x1
0418 01dd | | Execute Vector,First
0419 e5ff | | Load 0x2,-0x1
041a 01dd | | Execute Vector,First
041b 0a1f | | Execute_Immediate Plus,0x1f
041c 00d8 | | Load_Top At_Offset_0
041d 00e2 | | Load_Encached Integer_Cache
041e 0260 | ` | Execute Discrete,In_Type
041f 7001 |p | Jump_Nonzero 0x421
0420 0801 | | Execute_Immediate Raise,0x1
0421 e5ff | | Load 0x2,-0x1
0422 01cf | | Execute Vector,Slice_Read
0423 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0424 e5ff | | Load 0x2,-0x1
0425 01db | | Execute Vector,Length
0426 0f20 | | Execute_Immediate Equal,0x20
0427 6802 |h | Jump_Zero 0x42a
0428 e5ff | | Load 0x2,-0x1
0429 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042a e5ff | | Load 0x2,-0x1
042b 4801 |H | Short_Literal 0x1
042c 4820 |H | Short_Literal 0x20
042d e5ff | | Load 0x2,-0x1
042e 01db | | Execute Vector,Length
042f 0272 | r | Execute Discrete,Minus
0430 e210 | | Load 0x1,0x10
0431 0334 | 4 | Declare_Variable Array,With_Constraint
0432 e403 | | Load 0x2,0x3
0433 01dc | | Execute Vector,Last
0434 4801 |H | Short_Literal 0x1
0435 0263 | c | Execute Discrete,Above_Bound
0436 7005 |p | Jump_Nonzero 0x43c
0437 4804 |H | Short_Literal 0x4
0438 e405 | | Load 0x2,0x5
0439 e403 | | Load 0x2,0x3
043a 01d6 | | Execute Vector,Field_Write
043b 3ffb |? | Loop_Increasing 0x437
043c 01cc | | Execute Vector,Catenate
043d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
043e 0000 0000 | | .XXX[0x2]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0445 | E | .CONST 0x0445 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0002 | | .CONST 0x0002 ; Number of locals
0443 INIT_0440:
0443 e002 | | Load 0x0,0x2
0444 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0445 BODY_0440:
0445 e002 | | Load 0x0,0x2
0446 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
0447 00e3 | | Load_Encached Natural_Cache
0448 e002 | | Load 0x0,0x2
0449 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
044a e002 | | Load 0x0,0x2
044b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
044c e002 | | Load 0x0,0x2
044d 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
044e e5ff | | Load 0x2,-0x1
044f 0a02 | | Execute_Immediate Plus,0x2
0450 00d8 | | Load_Top At_Offset_0
0451 00e3 | | Load_Encached Natural_Cache
0452 0260 | ` | Execute Discrete,In_Type
0453 7001 |p | Jump_Nonzero 0x455
0454 0801 | | Execute_Immediate Raise,0x1
0455 e002 | | Load 0x0,0x2
0456 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0457 e002 | | Load 0x0,0x2
0458 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0459 e002 | | Load 0x0,0x2
045a 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
045b e002 | | Load 0x0,0x2
045c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
045d e002 | | Load 0x0,0x2
045e 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
045f c402 | | Store 0x2,0x2
0460 c22d | - | Store 0x1,0x2d
0461 c22a | * | Store 0x1,0x2a
0462 c22b | + | Store 0x1,0x2b
0463 c22c | , | Store 0x1,0x2c
0464 e402 | | Load 0x2,0x2
0465 e002 | | Load 0x0,0x2
0466 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0467 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046d | m | .CONST 0x046d ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0002 | | .CONST 0x0002 ; Number of locals
046b INIT_0468:
046b 00e3 | | Load_Encached Natural_Cache
046c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
046d BODY_0468:
046d e5ff | | Load 0x2,-0x1
046e 01d9 | | Execute Vector,Reverse_Bounds
046f 0263 | c | Execute Discrete,Above_Bound
0470 7008 |p | Jump_Nonzero 0x479
0471 e404 | | Load 0x2,0x4
0472 e5ff | | Load 0x2,-0x1
0473 01d7 | | Execute Vector,Field_Read
0474 7003 |p | Jump_Nonzero 0x478
0475 e402 | | Load 0x2,0x2
0476 0a01 | | Execute_Immediate Plus,0x1
0477 c402 | | Store 0x2,0x2
0478 3ff8 |? | Loop_Increasing 0x471
0479 e402 | | Load 0x2,0x2
047a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
047b 0000 0000 | | .BLANK 0000[0x5]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0485 | | .CONST 0x0485 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0002 | | .CONST 0x0002 ; Number of locals
0483 INIT_0480:
0483 00e3 | | Load_Encached Natural_Cache
0484 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0485 BODY_0480:
0485 e5ff | | Load 0x2,-0x1
0486 01d9 | | Execute Vector,Reverse_Bounds
0487 0263 | c | Execute Discrete,Above_Bound
0488 700e |p | Jump_Nonzero 0x497
0489 e404 | | Load 0x2,0x4
048a e5ff | | Load 0x2,-0x1
048b 01d7 | | Execute Vector,Field_Read
048c 0f01 | | Execute_Immediate Equal,0x1
048d 7005 |p | Jump_Nonzero 0x493
048e e404 | | Load 0x2,0x4
048f e5ff | | Load 0x2,-0x1
0490 01d7 | | Execute Vector,Field_Read
0491 0f02 | | Execute_Immediate Equal,0x2
0492 6803 |h | Jump_Zero 0x496
0493 e402 | | Load 0x2,0x2
0494 0a01 | | Execute_Immediate Plus,0x1
0495 c402 | | Store 0x2,0x2
0496 3ff2 |? | Loop_Increasing 0x489
0497 e402 | | Load 0x2,0x2
0498 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0499 0000 0000 | | .BLANK 0000[0x7]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 4601 |F | Jump_Case 0x2
04a4 7801 |x | Jump 0x4a6 ; case 0x0
04a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
04a6 4800 |H | Short_Literal 0x0
04a7 e5ff | | Load 0x2,-0x1
04a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04a9 4800 |H | Short_Literal 0x0
04aa e5ff | | Load 0x2,-0x1
04ab 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04ac 4800 |H | Short_Literal 0x0
04ad e5ff | | Load 0x2,-0x1
04ae 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04af 4800 |H | Short_Literal 0x0
04b0 e5ff | | Load 0x2,-0x1
04b1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
04b2 4800 |H | Short_Literal 0x0
04b3 e5ff | | Load 0x2,-0x1
04b4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04b6 ; --------------------------------------------------------------------------------------
04b6 ; STRING TABLE
04b6 ; --------------------------------------------------------------------------------------
04b6 0010 | | .STRTAB 0x0010->0x04be ; "IN_MODE"
04b7 0015 | | .STRTAB 0x0015->0x04c1 ; "OUT_MODE"
04b8 001b | | .STRTAB 0x001b->0x04c5 ; "IN_OUT_MODE"
04b9 0024 | $ | .STRTAB 0x0024->0x04cb ; "RETURN_MODE"
04ba 002d | - | .STRTAB 0x002d->0x04d0 ; "NO_MODE"
04bb 0032 | 2 | .STRTAB 0x0032->0x04d4 ; "X_Library"
04bc 0039 | 9 | .STRTAB 0x0039->0x04d8 ; "The X_Library product is not authorized on this machine. Or, the authorization has expired."
04bd 0093 | | .STREND 0x0093->0x0506
04be 494e 5f4d |IN_M| .STRTAB_STRINGS
0507 0000 | | .XXX[0x1]
0508 ; --------------------------------------------------------------------------------------
0508 ; Debug Table
0508 ; --------------------------------------------------------------------------------------
0508 0004 0004 | | .DEBUG4 0x0004,0x0004,0xfac0,0x0000,0x0001,0x0000
050e 0000 0000 | | .BLANK 0000[0x2c]
053a 0004 00a0 | | .XXX[0xc]
053c 0000 0000 | |
053e 0000 0800 | |
0540 0000 4400 | D |
0542 0000 0020 | |
0544 0000 0140 | @|
0546 0000 0000 | | .BLANK 0000[0x2e]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]