|
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_6a18da
└─⟦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 0498 | | .CONST 0x0498 ; 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 010e | | .CONST 0x010e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0045 | E | .CONST 0x0045 ; Number of locals 000b INIT_0008: 000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 000c 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 000d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 000f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0011 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0013 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0015 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0017 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0019 00e4 | | Load_Encached Positive_Cache 001a 0266 | f | Execute Discrete,Bounds 001b e20e | | Load 0x1,0xe 001c 02a0 | | Declare_Subprogram Null_Subprogram 001d 4801 |H | Short_Literal 0x1 001e 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 001f 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0020 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0022 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0024 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0026 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0028 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 002a 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 002c 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 002e 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0030 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0032 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0034 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0036 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0038 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 003a 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 003c 00e4 | | Load_Encached Positive_Cache 003d 0266 | f | Execute Discrete,Bounds 003e e216 | | Load 0x1,0x16 003f 02a0 | | Declare_Subprogram Null_Subprogram 0040 4801 |H | Short_Literal 0x1 0041 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0042 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0043 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0045 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0047 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 0049 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 004b 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 004d 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 004f 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 0051 00e4 | | Load_Encached Positive_Cache 0052 0266 | f | Execute Discrete,Bounds 0053 e226 | & | Load 0x1,0x26 0054 02a0 | | Declare_Subprogram Null_Subprogram 0055 4801 |H | Short_Literal 0x1 0056 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0057 4fff |O | Short_Literal -0x1 0058 60bf |` | Indirect_Literal Discrete,0x118,{0x00000000, 0x7fffffff} 0059 00e2 | | Load_Encached Integer_Cache 005a 03f9 | | Declare_Type Discrete,Constrained,Visible 005b 4800 |H | Short_Literal 0x0 005c 4900 |I | Short_Literal 0x100 005d 00da | | Load_Top At_Offset_2 005e 03f9 | | Declare_Type Discrete,Constrained,Visible 005f 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0060 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 0062 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 0064 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 0066 e001 | | Load 0x0,0x1 0067 0129 | ) | Execute Any,Make_Visible 0068 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 006a 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 006c 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 006e 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 0070 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated 0072 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated 0074 e002 | | Load 0x0,0x2 0075 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0076 00d8 | | Load_Top At_Offset_0 0077 02a0 | | Declare_Subprogram Null_Subprogram 0078 e20d | | Load 0x1,0xd 0079 03a3 | | Complete_Type Heap_Access,By_Defining 007a e003 | | Load 0x0,0x3 007b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007d 00e3 | | Load_Encached Natural_Cache 007e e004 | | Load 0x0,0x4 007f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0080 e004 | | Load 0x0,0x4 0081 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0082 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call 0084 4804 |H | Short_Literal 0x4 0085 032d | - | Declare_Type Record,Defined 0086 00d8 | | Load_Top At_Offset_0 0087 02a0 | | Declare_Subprogram Null_Subprogram 0088 e20e | | Load 0x1,0xe 0089 03a3 | | Complete_Type Heap_Access,By_Defining 008a e003 | | Load 0x0,0x3 008b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d 00e4 | | Load_Encached Positive_Cache 008e 00e4 | | Load_Encached Positive_Cache 008f e20d | | Load 0x1,0xd 0090 00d8 | | Load_Top At_Offset_0 0091 00e2 | | Load_Encached Integer_Cache 0092 00e2 | | Load_Encached Integer_Cache 0093 00e2 | | Load_Encached Integer_Cache 0094 00e4 | | Load_Encached Positive_Cache 0095 00e4 | | Load_Encached Positive_Cache 0096 00e1 | | Load_Encached Boolean_Cache 0097 00e1 | | Load_Encached Boolean_Cache 0098 02a0 | | Declare_Subprogram Null_Subprogram 0099 480c |H | Short_Literal 0xc 009a 032d | - | Declare_Type Record,Defined 009b 00d8 | | Load_Top At_Offset_0 009c 02a0 | | Declare_Subprogram Null_Subprogram 009d e216 | | Load 0x1,0x16 009e 03a3 | | Complete_Type Heap_Access,By_Defining 009f e003 | | Load 0x0,0x3 00a0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a2 00e4 | | Load_Encached Positive_Cache 00a3 00e2 | | Load_Encached Integer_Cache 00a4 e20d | | Load 0x1,0xd 00a5 00d8 | | Load_Top At_Offset_0 00a6 02a0 | | Declare_Subprogram Null_Subprogram 00a7 4805 |H | Short_Literal 0x5 00a8 032d | - | Declare_Type Record,Defined 00a9 00d8 | | Load_Top At_Offset_0 00aa 02a0 | | Declare_Subprogram Null_Subprogram 00ab e226 | & | Load 0x1,0x26 00ac 03a3 | | Complete_Type Heap_Access,By_Defining 00ad e215 | | Load 0x1,0x15 00ae 02a0 | | Declare_Subprogram Null_Subprogram 00af 03ad | | Declare_Type Heap_Access,Defined 00b0 e225 | % | Load 0x1,0x25 00b1 02a0 | | Declare_Subprogram Null_Subprogram 00b2 03ad | | Declare_Type Heap_Access,Defined 00b3 e22e | . | Load 0x1,0x2e 00b4 02a0 | | Declare_Subprogram Null_Subprogram 00b5 03ad | | Declare_Type Heap_Access,Defined 00b6 00e2 | | Load_Encached Integer_Cache 00b7 00db | | Load_Top At_Offset_3 00b8 00db | | Load_Top At_Offset_3 00b9 e226 | & | Load 0x1,0x26 00ba 02a0 | | Declare_Subprogram Null_Subprogram 00bb 4804 |H | Short_Literal 0x4 00bc 032d | - | Declare_Type Record,Defined 00bd 00d8 | | Load_Top At_Offset_0 00be 02a0 | | Declare_Subprogram Null_Subprogram 00bf e231 | 1 | Load 0x1,0x31 00c0 03a3 | | Complete_Type Heap_Access,By_Defining 00c1 00bf | | Action Accept_Activation 00c2 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call 00c4 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call 00c6 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00dd 00c7 | | Action Elaborate_Subprogram 00de 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00e3 00c7 | | Action Elaborate_Subprogram 00e4 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00e5 00c7 | | Action Elaborate_Subprogram 00e6 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00e9 00c7 | | Action Elaborate_Subprogram 00ea 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00eb 00c7 | | Action Elaborate_Subprogram 00ec 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00ed 00c7 | | Action Elaborate_Subprogram 00ee 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00ef 00c7 | | Action Elaborate_Subprogram 00f0 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00f1 00c7 | | Action Elaborate_Subprogram 00f2 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00f3 00c7 | | Action Elaborate_Subprogram 00f4 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00f5 00c7 | | Action Elaborate_Subprogram 00f6 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00f7 00c7 | | Action Elaborate_Subprogram 00f8 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00f9 00c7 | | Action Elaborate_Subprogram 00fa 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00fb 00c7 | | Action Elaborate_Subprogram 00fc 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00fd 00c7 | | Action Elaborate_Subprogram 00fe 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00ff 00c7 | | Action Elaborate_Subprogram 0100 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 0101 00c7 | | Action Elaborate_Subprogram 0102 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 0103 00c7 | | Action Elaborate_Subprogram 0104 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0105 00c7 | | Action Elaborate_Subprogram 0106 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 0107 00c7 | | Action Elaborate_Subprogram 0108 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0109 00c7 | | Action Elaborate_Subprogram 010a 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 010b 00c7 | | Action Elaborate_Subprogram 010c 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 010d 00c7 | | Action Elaborate_Subprogram 010e BODY_0008: 010e 00bc | | Action Signal_Activated 010f 00bb | | Action Signal_Completion 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 021d | | Execute Heap_Access,Is_Null 0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0116 0000 0000 | | .XXX[0x2] 0118 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0141 | A | .CONST 0x0141 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 e23d | = | Load 0x1,0x3d 0124 0322 | " | Declare_Variable Record 0125 e5fb | | Load 0x2,-0x5 0126 e5ff | | Load 0x2,-0x1 0127 e003 | | Load 0x0,0x3 0128 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0129 180e | | Execute Package,Field_Execute,Field_Number 0xe 012a 00d9 | | Load_Top At_Offset_1 012b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 012c e5fe | | Load 0x2,-0x2 012d 00d9 | | Load_Top At_Offset_1 012e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 012f e5fd | | Load 0x2,-0x3 0130 e23d | = | Load 0x1,0x3d 0131 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 0132 0119 | | Execute Any,Check_In_Formal_Type 0133 00d9 | | Load_Top At_Offset_1 0134 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0135 e5fc | | Load 0x2,-0x4 0136 e23d | = | Load 0x1,0x3d 0137 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 0138 0119 | | Execute Any,Check_In_Formal_Type 0139 00d9 | | Load_Top At_Offset_1 013a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 013b e20e | | Load 0x1,0xe 013c e5fb | | Load 0x2,-0x5 013d e005 | | Load 0x0,0x5 013e 180f | | Execute Package,Field_Execute,Field_Number 0xf 013f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0140 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0141 TRAP_0120: 0141 e005 | | Load 0x0,0x5 0142 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0143 010f | | Execute Exception,Equal 0144 6803 |h | Jump_Zero 0x148 0145 e003 | | Load 0x0,0x3 0146 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0147 0257 | W | Execute Discrete,Raise 0148 e005 | | Load 0x0,0x5 0149 1b11 | | Execute Package,Field_Read,Field_Number 0x11 014a 010f | | Execute Exception,Equal 014b 6803 |h | Jump_Zero 0x14f 014c e003 | | Load 0x0,0x3 014d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014e 0257 | W | Execute Discrete,Raise 014f 0100 | | Execute Exception,Raise 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 7003 |p | Jump_Nonzero 0x158 0155 e003 | | Load 0x0,0x3 0156 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0157 0257 | W | Execute Discrete,Raise 0158 00da | | Load_Top At_Offset_2 0159 0217 | | Execute Heap_Access,All_Reference 015a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015b e003 | | Load 0x0,0x3 015c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 015d 180f | | Execute Package,Field_Execute,Field_Number 0xf 015e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015f 0000 | | .XXX[0x1] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 7003 |p | Jump_Nonzero 0x168 0165 e003 | | Load 0x0,0x3 0166 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0167 0257 | W | Execute Discrete,Raise 0168 00da | | Load_Top At_Offset_2 0169 0217 | | Execute Heap_Access,All_Reference 016a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 016b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016c 0000 0000 | | .BLANK 0000[0x4] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 7003 |p | Jump_Nonzero 0x178 0175 e003 | | Load 0x0,0x3 0176 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0177 0257 | W | Execute Discrete,Raise 0178 00da | | Load_Top At_Offset_2 0179 0217 | | Execute Heap_Access,All_Reference 017a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 017b 00d8 | | Load_Top At_Offset_0 017c 0120 | | Execute Any,Is_Value 017d 7002 |p | Jump_Nonzero 0x180 017e 00d8 | | Load_Top At_Offset_0 017f 011e | | Execute Any,Convert 0180 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0181 0000 0000 | | .BLANK 0000[0x7] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c 7003 |p | Jump_Nonzero 0x190 018d e003 | | Load 0x0,0x3 018e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 018f 0257 | W | Execute Discrete,Raise 0190 00da | | Load_Top At_Offset_2 0191 0217 | | Execute Heap_Access,All_Reference 0192 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0193 00d8 | | Load_Top At_Offset_0 0194 0120 | | Execute Any,Is_Value 0195 7002 |p | Jump_Nonzero 0x198 0196 00d8 | | Load_Top At_Offset_0 0197 011e | | Execute Any,Convert 0198 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0199 0000 0000 | | .BLANK 0000[0x7] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 021d | | Execute Heap_Access,Is_Null 01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a6 0000 0000 | | .XXX[0x2] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 01e7 | | .CONST 0x01e7 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab e23e | > | Load 0x1,0x3e 01ac 0322 | " | Declare_Variable Record 01ad e5f3 | | Load 0x2,-0xd 01ae e5ff | | Load 0x2,-0x1 01af e003 | | Load 0x0,0x3 01b0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01b1 180e | | Execute Package,Field_Execute,Field_Number 0xe 01b2 00d9 | | Load_Top At_Offset_1 01b3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01b4 e5fe | | Load 0x2,-0x2 01b5 00d9 | | Load_Top At_Offset_1 01b6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01b7 e5fd | | Load 0x2,-0x3 01b8 00d9 | | Load_Top At_Offset_1 01b9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01ba e5fc | | Load 0x2,-0x4 01bb 8244 | D | Call 0x1,0x44 01bc e20d | | Load 0x1,0xd 01bd e5f3 | | Load 0x2,-0xd 01be e005 | | Load 0x0,0x5 01bf 180f | | Execute Package,Field_Execute,Field_Number 0xf 01c0 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01c1 00d9 | | Load_Top At_Offset_1 01c2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01c3 e5fb | | Load 0x2,-0x5 01c4 8244 | D | Call 0x1,0x44 01c5 e20d | | Load 0x1,0xd 01c6 e5f3 | | Load 0x2,-0xd 01c7 e005 | | Load 0x0,0x5 01c8 180f | | Execute Package,Field_Execute,Field_Number 0xf 01c9 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01ca 00d9 | | Load_Top At_Offset_1 01cb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01cc e5fa | | Load 0x2,-0x6 01cd 00d9 | | Load_Top At_Offset_1 01ce 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 01cf e5f9 | | Load 0x2,-0x7 01d0 00d9 | | Load_Top At_Offset_1 01d1 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 01d2 e5f8 | | Load 0x2,-0x8 01d3 00d9 | | Load_Top At_Offset_1 01d4 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 01d5 e5f7 | | Load 0x2,-0x9 01d6 00d9 | | Load_Top At_Offset_1 01d7 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 01d8 e5f6 | | Load 0x2,-0xa 01d9 00d9 | | Load_Top At_Offset_1 01da 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 01db e5f5 | | Load 0x2,-0xb 01dc 00d9 | | Load_Top At_Offset_1 01dd 380a |8 | Execute Record,Field_Write,Field_Number 0xa 01de e5f4 | | Load 0x2,-0xc 01df 00d9 | | Load_Top At_Offset_1 01e0 380b |8 | Execute Record,Field_Write,Field_Number 0xb 01e1 e216 | | Load 0x1,0x16 01e2 e5f3 | | Load 0x2,-0xd 01e3 e005 | | Load 0x0,0x5 01e4 180f | | Execute Package,Field_Execute,Field_Number 0xf 01e5 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01e6 440d |D | Exit_Subprogram With_Value,New_Top_Offset 0xd 01e7 TRAP_01a8: 01e7 e005 | | Load 0x0,0x5 01e8 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01e9 010f | | Execute Exception,Equal 01ea 6803 |h | Jump_Zero 0x1ee 01eb e003 | | Load 0x0,0x3 01ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01ed 0257 | W | Execute Discrete,Raise 01ee e005 | | Load 0x0,0x5 01ef 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01f0 010f | | Execute Exception,Equal 01f1 6803 |h | Jump_Zero 0x1f5 01f2 e003 | | Load 0x0,0x3 01f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f4 0257 | W | Execute Discrete,Raise 01f5 0100 | | Execute Exception,Raise 01f6 0000 0000 | | .XXX[0x2] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00da | | Load_Top At_Offset_2 01fc 7003 |p | Jump_Nonzero 0x200 01fd e003 | | Load 0x0,0x3 01fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ff 0257 | W | Execute Discrete,Raise 0200 00da | | Load_Top At_Offset_2 0201 0217 | | Execute Heap_Access,All_Reference 0202 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0203 e003 | | Load 0x0,0x3 0204 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0205 180f | | Execute Package,Field_Execute,Field_Number 0xf 0206 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0207 0000 | | .XXX[0x1] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c 7003 |p | Jump_Nonzero 0x210 020d e003 | | Load 0x0,0x3 020e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020f 0257 | W | Execute Discrete,Raise 0210 00da | | Load_Top At_Offset_2 0211 0217 | | Execute Heap_Access,All_Reference 0212 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0213 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0214 0000 0000 | | .BLANK 0000[0x4] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c 7003 |p | Jump_Nonzero 0x220 021d e003 | | Load 0x0,0x3 021e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 021f 0257 | W | Execute Discrete,Raise 0220 00da | | Load_Top At_Offset_2 0221 0217 | | Execute Heap_Access,All_Reference 0222 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0223 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0224 0000 0000 | | .BLANK 0000[0x4] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c 7003 |p | Jump_Nonzero 0x230 022d e003 | | Load 0x0,0x3 022e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 022f 0257 | W | Execute Discrete,Raise 0230 00da | | Load_Top At_Offset_2 0231 0217 | | Execute Heap_Access,All_Reference 0232 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0233 8245 | E | Call 0x1,0x45 0234 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0235 0000 0000 | | .XXX[0x3] 0237 0000 | | 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c 7003 |p | Jump_Nonzero 0x240 023d e003 | | Load 0x0,0x3 023e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023f 0257 | W | Execute Discrete,Raise 0240 00da | | Load_Top At_Offset_2 0241 0217 | | Execute Heap_Access,All_Reference 0242 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0243 8245 | E | Call 0x1,0x45 0244 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00da | | Load_Top At_Offset_2 024c 7003 |p | Jump_Nonzero 0x250 024d e003 | | Load 0x0,0x3 024e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 024f 0257 | W | Execute Discrete,Raise 0250 00da | | Load_Top At_Offset_2 0251 0217 | | Execute Heap_Access,All_Reference 0252 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0253 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0254 0000 0000 | | .BLANK 0000[0x4] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 00da | | Load_Top At_Offset_2 025c 7003 |p | Jump_Nonzero 0x260 025d e003 | | Load 0x0,0x3 025e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025f 0257 | W | Execute Discrete,Raise 0260 00da | | Load_Top At_Offset_2 0261 0217 | | Execute Heap_Access,All_Reference 0262 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0263 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0264 0000 0000 | | .BLANK 0000[0x4] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 00da | | Load_Top At_Offset_2 026c 7003 |p | Jump_Nonzero 0x270 026d e003 | | Load 0x0,0x3 026e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 026f 0257 | W | Execute Discrete,Raise 0270 00da | | Load_Top At_Offset_2 0271 0217 | | Execute Heap_Access,All_Reference 0272 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0273 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0274 0000 0000 | | .BLANK 0000[0x4] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00da | | Load_Top At_Offset_2 027c 7003 |p | Jump_Nonzero 0x280 027d e003 | | Load 0x0,0x3 027e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 027f 0257 | W | Execute Discrete,Raise 0280 00da | | Load_Top At_Offset_2 0281 0217 | | Execute Heap_Access,All_Reference 0282 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0283 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0284 0000 0000 | | .BLANK 0000[0x4] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 00da | | Load_Top At_Offset_2 028c 7003 |p | Jump_Nonzero 0x290 028d e003 | | Load 0x0,0x3 028e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028f 0257 | W | Execute Discrete,Raise 0290 00da | | Load_Top At_Offset_2 0291 0217 | | Execute Heap_Access,All_Reference 0292 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0293 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0294 0000 0000 | | .BLANK 0000[0x4] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c 7003 |p | Jump_Nonzero 0x2a0 029d e003 | | Load 0x0,0x3 029e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 029f 0257 | W | Execute Discrete,Raise 02a0 00da | | Load_Top At_Offset_2 02a1 0217 | | Execute Heap_Access,All_Reference 02a2 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 02a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a4 0000 0000 | | .BLANK 0000[0x4] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab 00da | | Load_Top At_Offset_2 02ac 7003 |p | Jump_Nonzero 0x2b0 02ad e003 | | Load 0x0,0x3 02ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02af 0257 | W | Execute Discrete,Raise 02b0 00da | | Load_Top At_Offset_2 02b1 0217 | | Execute Heap_Access,All_Reference 02b2 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 02b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b4 0000 0000 | | .BLANK 0000[0x4] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 02bc 021d | | Execute Heap_Access,Is_Null 02bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02be 0000 0000 | | .XXX[0x2] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 02ea | | .CONST 0x02ea ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 e23f | ? | Load 0x1,0x3f 02c4 0322 | " | Declare_Variable Record 02c5 e5fa | | Load 0x2,-0x6 02c6 e5ff | | Load 0x2,-0x1 02c7 e003 | | Load 0x0,0x3 02c8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02c9 180e | | Execute Package,Field_Execute,Field_Number 0xe 02ca 00d9 | | Load_Top At_Offset_1 02cb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02cc e5fe | | Load 0x2,-0x2 02cd 00d9 | | Load_Top At_Offset_1 02ce 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02cf e5fd | | Load 0x2,-0x3 02d0 00d9 | | Load_Top At_Offset_1 02d1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02d2 e5fc | | Load 0x2,-0x4 02d3 8244 | D | Call 0x1,0x44 02d4 e20d | | Load 0x1,0xd 02d5 e5fa | | Load 0x2,-0x6 02d6 e005 | | Load 0x0,0x5 02d7 180f | | Execute Package,Field_Execute,Field_Number 0xf 02d8 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 02d9 00d9 | | Load_Top At_Offset_1 02da 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02db e5fb | | Load 0x2,-0x5 02dc 8244 | D | Call 0x1,0x44 02dd e20d | | Load 0x1,0xd 02de e5fa | | Load 0x2,-0x6 02df e005 | | Load 0x0,0x5 02e0 180f | | Execute Package,Field_Execute,Field_Number 0xf 02e1 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 02e2 00d9 | | Load_Top At_Offset_1 02e3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 02e4 e226 | & | Load 0x1,0x26 02e5 e5fa | | Load 0x2,-0x6 02e6 e005 | | Load 0x0,0x5 02e7 180f | | Execute Package,Field_Execute,Field_Number 0xf 02e8 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 02e9 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 02ea TRAP_02c0: 02ea e005 | | Load 0x0,0x5 02eb 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02ec 010f | | Execute Exception,Equal 02ed 6803 |h | Jump_Zero 0x2f1 02ee e003 | | Load 0x0,0x3 02ef 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02f0 0257 | W | Execute Discrete,Raise 02f1 e005 | | Load 0x0,0x5 02f2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02f3 010f | | Execute Exception,Equal 02f4 6803 |h | Jump_Zero 0x2f8 02f5 e003 | | Load 0x0,0x3 02f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02f7 0257 | W | Execute Discrete,Raise 02f8 0100 | | Execute Exception,Raise 02f9 0000 0000 | | .BLANK 0000[0x7] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 00da | | Load_Top At_Offset_2 0304 7003 |p | Jump_Nonzero 0x308 0305 e003 | | Load 0x0,0x3 0306 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0307 0257 | W | Execute Discrete,Raise 0308 00da | | Load_Top At_Offset_2 0309 0217 | | Execute Heap_Access,All_Reference 030a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 030b e003 | | Load 0x0,0x3 030c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 030d 180f | | Execute Package,Field_Execute,Field_Number 0xf 030e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030f 0000 | | .XXX[0x1] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 00da | | Load_Top At_Offset_2 0314 7003 |p | Jump_Nonzero 0x318 0315 e003 | | Load 0x0,0x3 0316 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0317 0257 | W | Execute Discrete,Raise 0318 00da | | Load_Top At_Offset_2 0319 0217 | | Execute Heap_Access,All_Reference 031a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 031b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 031c 0000 0000 | | .BLANK 0000[0x4] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 00da | | Load_Top At_Offset_2 0324 7003 |p | Jump_Nonzero 0x328 0325 e003 | | Load 0x0,0x3 0326 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0327 0257 | W | Execute Discrete,Raise 0328 00da | | Load_Top At_Offset_2 0329 0217 | | Execute Heap_Access,All_Reference 032a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 032b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032c 0000 0000 | | .BLANK 0000[0x4] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 00da | | Load_Top At_Offset_2 0334 7003 |p | Jump_Nonzero 0x338 0335 e003 | | Load 0x0,0x3 0336 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0337 0257 | W | Execute Discrete,Raise 0338 00da | | Load_Top At_Offset_2 0339 0217 | | Execute Heap_Access,All_Reference 033a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 033b 8245 | E | Call 0x1,0x45 033c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033d 0000 0000 | | .XXX[0x3] 033f 0000 | | 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 00da | | Load_Top At_Offset_2 0344 7003 |p | Jump_Nonzero 0x348 0345 e003 | | Load 0x0,0x3 0346 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0347 0257 | W | Execute Discrete,Raise 0348 00da | | Load_Top At_Offset_2 0349 0217 | | Execute Heap_Access,All_Reference 034a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 034b 8245 | E | Call 0x1,0x45 034c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 034d 0000 0000 | | .XXX[0x3] 034f 0000 | | 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 e231 | 1 | Load 0x1,0x31 0354 00ca | | Action Exit_Nullary_Function 0355 0000 0000 | | .XXX[0x3] 0357 0000 | | 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 00da | | Load_Top At_Offset_2 035c 021d | | Execute Heap_Access,Is_Null 035d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035e 0000 0000 | | .XXX[0x2] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 036b | k | .CONST 0x036b ; Address of begin 0361 038d | | .CONST 0x038d ; Address of exception handler 0362 0005 | | .CONST 0x0005 ; Number of locals 0363 INIT_0360: 0363 e006 | | Load 0x0,0x6 0364 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0365 e240 | @ | Load 0x1,0x40 0366 0007 | | Action Break_Optional 0367 e241 | A | Load 0x1,0x41 0368 0007 | | Action Break_Optional 0369 e226 | & | Load 0x1,0x26 036a 0007 | | Action Break_Optional 036b BODY_0360: 036b e5fb | | Load 0x2,-0x5 036c e005 | | Load 0x0,0x5 036d 180f | | Execute Package,Field_Execute,Field_Number 0xf 036e a402 | | Store_Unchecked 0x2,0x2 036f e5fe | | Load 0x2,-0x2 0370 e240 | @ | Load 0x1,0x40 0371 e402 | | Load 0x2,0x2 0372 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0373 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0374 e5fd | | Load 0x2,-0x3 0375 e241 | A | Load 0x1,0x41 0376 e402 | | Load 0x2,0x2 0377 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0378 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0379 e5fc | | Load 0x2,-0x4 037a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 037b e243 | C | Load 0x1,0x43 037c 0322 | " | Declare_Variable Record 037d e5ff | | Load 0x2,-0x1 037e 00d9 | | Load_Top At_Offset_1 037f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0380 00db | | Load_Top At_Offset_3 0381 00d9 | | Load_Top At_Offset_1 0382 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0383 00da | | Load_Top At_Offset_2 0384 00d9 | | Load_Top At_Offset_1 0385 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0386 00d9 | | Load_Top At_Offset_1 0387 00d9 | | Load_Top At_Offset_1 0388 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0389 e231 | 1 | Load 0x1,0x31 038a e402 | | Load 0x2,0x2 038b 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 038c 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 038d TRAP_0360: 038d e005 | | Load 0x0,0x5 038e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 038f 010f | | Execute Exception,Equal 0390 6803 |h | Jump_Zero 0x394 0391 e003 | | Load 0x0,0x3 0392 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0393 0257 | W | Execute Discrete,Raise 0394 e005 | | Load 0x0,0x5 0395 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0396 010f | | Execute Exception,Equal 0397 6803 |h | Jump_Zero 0x39b 0398 e003 | | Load 0x0,0x3 0399 1b0f | | Execute Package,Field_Read,Field_Number 0xf 039a 0257 | W | Execute Discrete,Raise 039b 0100 | | Execute Exception,Raise 039c 0000 0000 | | .BLANK 0000[0x4] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 e5fb | | Load 0x2,-0x5 03a4 e007 | | Load 0x0,0x7 03a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03a6 c5fb | | Store 0x2,-0x5 03a7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab 00da | | Load_Top At_Offset_2 03ac 8233 | 3 | Call 0x1,0x33 03ad 6801 |h | Jump_Zero 0x3af 03ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03af 0092 045b | [| Action Push_String_Extended,0x45b ; "Predefined Environment Characteristics Customizations" 03b1 4800 |H | Short_Literal 0x0 03b2 8008 | | Call 0x0,0x8 03b3 00da | | Load_Top At_Offset_2 03b4 8238 | 8 | Call 0x1,0x38 03b5 0092 045c | \| Action Push_String_Extended,0x45c ; "Standard Version" 03b7 4801 |H | Short_Literal 0x1 03b8 8009 | | Call 0x0,0x9 03b9 4801 |H | Short_Literal 0x1 03ba 00db | | Load_Top At_Offset_3 03bb 8239 | 9 | Call 0x1,0x39 03bc 0092 045d | ]| Action Push_String_Extended,0x45d ; "Integer Types" 03be 800a | | Call 0x0,0xa 03bf 4801 |H | Short_Literal 0x1 03c0 00db | | Load_Top At_Offset_3 03c1 823a | : | Call 0x1,0x3a 03c2 0092 045e | ^| Action Push_String_Extended,0x45e ; "Float Types" 03c4 800b | | Call 0x0,0xb 03c5 4801 |H | Short_Literal 0x1 03c6 00db | | Load_Top At_Offset_3 03c7 823b | ; | Call 0x1,0x3b 03c8 0092 045f | _| Action Push_String_Extended,0x45f ; "Duration" 03ca 800c | | Call 0x0,0xc 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 00da | | Load_Top At_Offset_2 03d4 7003 |p | Jump_Nonzero 0x3d8 03d5 e003 | | Load 0x0,0x3 03d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03d7 0257 | W | Execute Discrete,Raise 03d8 00da | | Load_Top At_Offset_2 03d9 0217 | | Execute Heap_Access,All_Reference 03da 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03dc 0000 0000 | | .BLANK 0000[0x4] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00da | | Load_Top At_Offset_2 03e4 7003 |p | Jump_Nonzero 0x3e8 03e5 e003 | | Load 0x0,0x3 03e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03e7 0257 | W | Execute Discrete,Raise 03e8 00da | | Load_Top At_Offset_2 03e9 0217 | | Execute Heap_Access,All_Reference 03ea 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03eb 0217 | | Execute Heap_Access,All_Reference 03ec 0335 | 5 | Declare_Variable Array,Duplicate 03ed 00cd | | Action Spare6_Action 03ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ef 0000 | | .XXX[0x1] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 00da | | Load_Top At_Offset_2 03f4 7003 |p | Jump_Nonzero 0x3f8 03f5 e003 | | Load 0x0,0x3 03f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f7 0257 | W | Execute Discrete,Raise 03f8 00da | | Load_Top At_Offset_2 03f9 0217 | | Execute Heap_Access,All_Reference 03fa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03fb 0217 | | Execute Heap_Access,All_Reference 03fc 0335 | 5 | Declare_Variable Array,Duplicate 03fd 00cd | | Action Spare6_Action 03fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ff 0000 | | .XXX[0x1] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 00da | | Load_Top At_Offset_2 0404 7003 |p | Jump_Nonzero 0x408 0405 e003 | | Load 0x0,0x3 0406 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0407 0257 | W | Execute Discrete,Raise 0408 00da | | Load_Top At_Offset_2 0409 0217 | | Execute Heap_Access,All_Reference 040a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 040b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 040c 0000 0000 | | .BLANK 0000[0x4] 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 4820 |H | Short_Literal 0x20 0414 00db | | Load_Top At_Offset_3 0415 e004 | | Load 0x0,0x4 0416 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 0417 e00d | | Load 0x0,0xd 0418 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0419 4820 |H | Short_Literal 0x20 041a e5ff | | Load 0x2,-0x1 041b e004 | | Load 0x0,0x4 041c 1869 | i | Execute Package,Field_Execute,Field_Number 0x69 041d e00d | | Load 0x0,0xd 041e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 041f e002 | | Load 0x0,0x2 0420 1b67 | g | Execute Package,Field_Read,Field_Number 0x67 0421 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0422 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0423 0000 0000 | | .BLANK 0000[0x5] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042b | + | .CONST 0x042b ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0001 | | .CONST 0x0001 ; Number of locals 042b BODY_0428: 042b INIT_0428: 042b 4820 |H | Short_Literal 0x20 042c 00db | | Load_Top At_Offset_3 042d 0217 | | Execute Heap_Access,All_Reference 042e e002 | | Load 0x0,0x2 042f 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 0430 e00d | | Load 0x0,0xd 0431 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0432 4820 |H | Short_Literal 0x20 0433 e5ff | | Load 0x2,-0x1 0434 0217 | | Execute Heap_Access,All_Reference 0435 e002 | | Load 0x0,0x2 0436 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0437 e00d | | Load 0x0,0xd 0438 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0439 e004 | | Load 0x0,0x4 043a 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 043b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 043c 0000 0000 | | .BLANK 0000[0x4] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 4608 |F | Jump_Case 0x9 0444 7808 |x | Jump 0x44d ; case 0x0 0445 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0446 7813 |x | Jump 0x45a ; case 0x2 0447 7812 |x | Jump 0x45a ; case 0x3 0448 7811 |x | Jump 0x45a ; case 0x4 0449 7810 |x | Jump 0x45a ; case 0x5 044a 780f |x | Jump 0x45a ; case 0x6 044b 780e |x | Jump 0x45a ; case 0x7 044c 780d |x | Jump 0x45a ; case 0x8 044d 00da | | Load_Top At_Offset_2 044e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 044f 0125 | % | Execute Any,Set_Constraint 0450 00da | | Load_Top At_Offset_2 0451 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0452 1c00 | | Execute_Immediate Run_Utility,0x0 0453 00da | | Load_Top At_Offset_2 0454 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0455 0125 | % | Execute Any,Set_Constraint 0456 00da | | Load_Top At_Offset_2 0457 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0458 1c00 | | Execute_Immediate Run_Utility,0x0 0459 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 045a 0869 | i | Execute_Immediate Raise,0x69 045b ; -------------------------------------------------------------------------------------- 045b ; STRING TABLE 045b ; -------------------------------------------------------------------------------------- 045b 000c | | .STRTAB 0x000c->0x0461 ; "Predefined Environment Characteristics Customizations" 045c 003f | ? | .STRTAB 0x003f->0x047b ; "Standard Version" 045d 004d | M | .STRTAB 0x004d->0x0483 ; "Integer Types" 045e 0058 | X | .STRTAB 0x0058->0x048a ; "Float Types" 045f 0061 | a | .STRTAB 0x0061->0x048f ; "Duration" 0460 0067 | g | .STREND 0x0067->0x0493 0461 5072 6564 |Pred| .STRTAB_STRINGS 0494 0000 0000 | | .BLANK 0000[0x4] 0498 ; -------------------------------------------------------------------------------------- 0498 ; Debug Table 0498 ; -------------------------------------------------------------------------------------- 0498 0004 000c | | .DEBUG4 0x0004,0x000c,0x2e70,0x0000,0x0001,0x0000 049e 0000 0000 | | .BLANK 0000[0x162]