|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0360 | ` | .CONST 0x0360 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0079 | y | .CONST 0x0079 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0025 | % | .CONST 0x0025 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c e001 | | Load 0x0,0x1 000d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 000e 00e9 | | Load_Encached String_Cache 000f 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call 0011 4800 |H | Short_Literal 0x0 0012 4801 |H | Short_Literal 0x1 0013 4801 |H | Short_Literal 0x1 0014 4800 |H | Short_Literal 0x0 0015 4801 |H | Short_Literal 0x1 0016 4801 |H | Short_Literal 0x1 0017 031e | | Declare_Type Variant_Record,Defined,Visible 0018 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 001a 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 001c 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 001e 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0020 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0022 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0024 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0026 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0028 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 002a 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 002c 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 002e 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0030 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0032 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0034 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0036 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0038 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 003a 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 003c 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 003e 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0040 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0042 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated 0044 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 0046 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 0048 00bf | | Action Accept_Activation 0049 1d0e | | Execute_Immediate Reference_Lex_1,0xe 004a 00c7 | | Action Elaborate_Subprogram 004b 1d0f | | Execute_Immediate Reference_Lex_1,0xf 004c 00c7 | | Action Elaborate_Subprogram 004d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 004e 00c7 | | Action Elaborate_Subprogram 004f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0050 00c7 | | Action Elaborate_Subprogram 0051 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0052 00c7 | | Action Elaborate_Subprogram 0053 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0054 00c7 | | Action Elaborate_Subprogram 0055 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0056 00c7 | | Action Elaborate_Subprogram 0057 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0058 00c7 | | Action Elaborate_Subprogram 0059 1d16 | | Execute_Immediate Reference_Lex_1,0x16 005a 00c7 | | Action Elaborate_Subprogram 005b 1d17 | | Execute_Immediate Reference_Lex_1,0x17 005c 00c7 | | Action Elaborate_Subprogram 005d 1d18 | | Execute_Immediate Reference_Lex_1,0x18 005e 00c7 | | Action Elaborate_Subprogram 005f 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0060 00c7 | | Action Elaborate_Subprogram 0061 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0062 00c7 | | Action Elaborate_Subprogram 0063 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0064 00c7 | | Action Elaborate_Subprogram 0065 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0066 00c7 | | Action Elaborate_Subprogram 0067 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0068 00c7 | | Action Elaborate_Subprogram 0069 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 006a 00c7 | | Action Elaborate_Subprogram 006b 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 006c 00c7 | | Action Elaborate_Subprogram 006d 1d20 | | Execute_Immediate Reference_Lex_1,0x20 006e 00c7 | | Action Elaborate_Subprogram 006f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0070 00c7 | | Action Elaborate_Subprogram 0071 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0072 00c7 | | Action Elaborate_Subprogram 0073 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0074 00c7 | | Action Elaborate_Subprogram 0075 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0076 00c7 | | Action Elaborate_Subprogram 0077 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0078 00c7 | | Action Elaborate_Subprogram 0079 BODY_0008: 0079 00bc | | Action Signal_Activated 007a 00bb | | Action Signal_Completion 007b 0000 0000 | | .BLANK 0000[0x5] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0097 | | .CONST 0x0097 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0004 | | .CONST 0x0004 ; Number of locals 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 e002 | | Load 0x0,0x2 0085 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0086 180d | | Execute Package,Field_Execute,Field_Number 0xd 0087 e5fd | | Load 0x2,-0x3 0088 00d9 | | Load_Top At_Offset_1 0089 e5fe | | Load 0x2,-0x2 008a e5fd | | Load 0x2,-0x3 008b 4800 |H | Short_Literal 0x0 008c e5ff | | Load 0x2,-0x1 008d e003 | | Load 0x0,0x3 008e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 008f e004 | | Load 0x0,0x4 0090 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0091 00d8 | | Load_Top At_Offset_0 0092 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0093 e20d | | Load 0x1,0xd 0094 1c08 | | Execute_Immediate Run_Utility,0x8 0095 00d8 | | Load_Top At_Offset_0 0096 1c00 | | Execute_Immediate Run_Utility,0x0 0097 BODY_0080: 0097 00d9 | | Load_Top At_Offset_1 0098 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0099 00d9 | | Load_Top At_Offset_1 009a 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 009b 00d8 | | Load_Top At_Offset_0 009c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 009d 00da | | Load_Top At_Offset_2 009e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 009f e005 | | Load 0x0,0x5 00a0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00a1 00d9 | | Load_Top At_Offset_1 00a2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00a3 00d8 | | Load_Top At_Offset_0 00a4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00a5 0000 0000 | | .XXX[0x3] 00a7 0000 | | 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00bf | | .CONST 0x00bf ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0004 | | .CONST 0x0004 ; Number of locals 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac e002 | | Load 0x0,0x2 00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ae 180d | | Execute Package,Field_Execute,Field_Number 0xd 00af e5fd | | Load 0x2,-0x3 00b0 e5fe | | Load 0x2,-0x2 00b1 00da | | Load_Top At_Offset_2 00b2 e5fd | | Load 0x2,-0x3 00b3 4800 |H | Short_Literal 0x0 00b4 e5ff | | Load 0x2,-0x1 00b5 e003 | | Load 0x0,0x3 00b6 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00b7 e004 | | Load 0x0,0x4 00b8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00b9 00d8 | | Load_Top At_Offset_0 00ba 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00bb e20d | | Load 0x1,0xd 00bc 1c08 | | Execute_Immediate Run_Utility,0x8 00bd 00d8 | | Load_Top At_Offset_0 00be 1c00 | | Execute_Immediate Run_Utility,0x0 00bf BODY_00a8: 00bf 00d9 | | Load_Top At_Offset_1 00c0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00c1 00d9 | | Load_Top At_Offset_1 00c2 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 00c3 00d8 | | Load_Top At_Offset_0 00c4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00c5 00da | | Load_Top At_Offset_2 00c6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00c7 e005 | | Load 0x0,0x5 00c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c9 00d9 | | Load_Top At_Offset_1 00ca 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00cb 00d8 | | Load_Top At_Offset_0 00cc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00e7 | | .CONST 0x00e7 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0004 | | .CONST 0x0004 ; Number of locals 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 e002 | | Load 0x0,0x2 00d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d6 180d | | Execute Package,Field_Execute,Field_Number 0xd 00d7 e5fd | | Load 0x2,-0x3 00d8 e5fe | | Load 0x2,-0x2 00d9 00da | | Load_Top At_Offset_2 00da e5fd | | Load 0x2,-0x3 00db 4800 |H | Short_Literal 0x0 00dc e5ff | | Load 0x2,-0x1 00dd e003 | | Load 0x0,0x3 00de 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00df e004 | | Load 0x0,0x4 00e0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00e1 00d8 | | Load_Top At_Offset_0 00e2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00e3 e20d | | Load 0x1,0xd 00e4 1c08 | | Execute_Immediate Run_Utility,0x8 00e5 00d8 | | Load_Top At_Offset_0 00e6 1c00 | | Execute_Immediate Run_Utility,0x0 00e7 BODY_00d0: 00e7 00d9 | | Load_Top At_Offset_1 00e8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00e9 00d9 | | Load_Top At_Offset_1 00ea 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 00eb 00d8 | | Load_Top At_Offset_0 00ec 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00ed 00da | | Load_Top At_Offset_2 00ee 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00ef e005 | | Load 0x0,0x5 00f0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00f1 00d9 | | Load_Top At_Offset_1 00f2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00f3 00d8 | | Load_Top At_Offset_0 00f4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0101 | | .CONST 0x0101 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0003 | | .CONST 0x0003 ; Number of locals 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc e002 | | Load 0x0,0x2 00fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fe 180d | | Execute Package,Field_Execute,Field_Number 0xd 00ff e006 | | Load 0x0,0x6 0100 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0101 BODY_00f8: 0101 e006 | | Load 0x0,0x6 0102 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0103 e5fc | | Load 0x2,-0x4 0104 00db | | Load_Top At_Offset_3 0105 e5fd | | Load 0x2,-0x3 0106 e5fe | | Load 0x2,-0x2 0107 e5fc | | Load 0x2,-0x4 0108 4800 |H | Short_Literal 0x0 0109 e5ff | | Load 0x2,-0x1 010a e003 | | Load 0x0,0x3 010b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 010c e004 | | Load 0x0,0x4 010d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 010e 0059 | Y | Store_Top Discrete,At_Offset_1 010f e5fb | | Load 0x2,-0x5 0110 00d9 | | Load_Top At_Offset_1 0111 e005 | | Load 0x0,0x5 0112 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0113 c5fb | | Store 0x2,-0x5 0114 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0121 | ! | .CONST 0x0121 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0003 | | .CONST 0x0003 ; Number of locals 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 011c e002 | | Load 0x0,0x2 011d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011e 180d | | Execute Package,Field_Execute,Field_Number 0xd 011f e006 | | Load 0x0,0x6 0120 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0121 BODY_0118: 0121 e006 | | Load 0x0,0x6 0122 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0123 e5fc | | Load 0x2,-0x4 0124 0120 | | Execute Any,Is_Value 0125 6803 |h | Jump_Zero 0x129 0126 e007 | | Load 0x0,0x7 0127 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0128 7801 |x | Jump 0x12a 0129 e5fc | | Load 0x2,-0x4 012a e5fd | | Load 0x2,-0x3 012b e402 | | Load 0x2,0x2 012c e5fe | | Load 0x2,-0x2 012d e5fd | | Load 0x2,-0x3 012e 4800 |H | Short_Literal 0x0 012f e5ff | | Load 0x2,-0x1 0130 e003 | | Load 0x0,0x3 0131 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0132 e004 | | Load 0x0,0x4 0133 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0134 c5fc | | Store 0x2,-0x4 0135 0059 | Y | Store_Top Discrete,At_Offset_1 0136 e5fb | | Load 0x2,-0x5 0137 00d9 | | Load_Top At_Offset_1 0138 e005 | | Load 0x0,0x5 0139 1817 | | Execute Package,Field_Execute,Field_Number 0x17 013a c5fb | | Store 0x2,-0x5 013b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 013c 0000 0000 | | .BLANK 0000[0x4] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0149 | I | .CONST 0x0149 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0003 | | .CONST 0x0003 ; Number of locals 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 0144 e002 | | Load 0x0,0x2 0145 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0146 180d | | Execute Package,Field_Execute,Field_Number 0xd 0147 e006 | | Load 0x0,0x6 0148 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0149 BODY_0140: 0149 e006 | | Load 0x0,0x6 014a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014b e5fc | | Load 0x2,-0x4 014c 00db | | Load_Top At_Offset_3 014d e5fd | | Load 0x2,-0x3 014e e5fe | | Load 0x2,-0x2 014f e5fc | | Load 0x2,-0x4 0150 4800 |H | Short_Literal 0x0 0151 e5ff | | Load 0x2,-0x1 0152 e003 | | Load 0x0,0x3 0153 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0154 e004 | | Load 0x0,0x4 0155 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0156 0059 | Y | Store_Top Discrete,At_Offset_1 0157 e5fb | | Load 0x2,-0x5 0158 00d9 | | Load_Top At_Offset_1 0159 e005 | | Load 0x0,0x5 015a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 015b c5fb | | Store 0x2,-0x5 015c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0166 | f | .CONST 0x0166 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0002 | | .CONST 0x0002 ; Number of locals 0163 INIT_0160: 0163 e006 | | Load 0x0,0x6 0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0165 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0166 BODY_0160: 0166 e006 | | Load 0x0,0x6 0167 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0168 e5fd | | Load 0x2,-0x3 0169 0120 | | Execute Any,Is_Value 016a 6803 |h | Jump_Zero 0x16e 016b e007 | | Load 0x0,0x7 016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016d 7801 |x | Jump 0x16f 016e e5fd | | Load 0x2,-0x3 016f e5fe | | Load 0x2,-0x2 0170 e5ff | | Load 0x2,-0x1 0171 e004 | | Load 0x0,0x4 0172 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0173 c5fd | | Store 0x2,-0x3 0174 0059 | Y | Store_Top Discrete,At_Offset_1 0175 e5fc | | Load 0x2,-0x4 0176 00d9 | | Load_Top At_Offset_1 0177 e005 | | Load 0x0,0x5 0178 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0179 c5fc | | Store 0x2,-0x4 017a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 017b 0000 0000 | | .BLANK 0000[0x5] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0186 | | .CONST 0x0186 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 e006 | | Load 0x0,0x6 0184 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0185 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0186 BODY_0180: 0186 e006 | | Load 0x0,0x6 0187 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0188 e5fd | | Load 0x2,-0x3 0189 e5fe | | Load 0x2,-0x2 018a e5ff | | Load 0x2,-0x1 018b e004 | | Load 0x0,0x4 018c 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 018d 0059 | Y | Store_Top Discrete,At_Offset_1 018e e5fc | | Load 0x2,-0x4 018f 00d9 | | Load_Top At_Offset_1 0190 e005 | | Load 0x0,0x5 0191 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0192 c5fc | | Store 0x2,-0x4 0193 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019e | | .CONST 0x019e ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e006 | | Load 0x0,0x6 019c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 019e BODY_0198: 019e e006 | | Load 0x0,0x6 019f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a0 e5fd | | Load 0x2,-0x3 01a1 e5fe | | Load 0x2,-0x2 01a2 e5ff | | Load 0x2,-0x1 01a3 e004 | | Load 0x0,0x4 01a4 1886 | | Execute Package,Field_Execute,Field_Number 0x86 01a5 0059 | Y | Store_Top Discrete,At_Offset_1 01a6 e5fc | | Load 0x2,-0x4 01a7 00d9 | | Load_Top At_Offset_1 01a8 e005 | | Load 0x0,0x5 01a9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01aa c5fc | | Store 0x2,-0x4 01ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b6 | | .CONST 0x01b6 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0002 | | .CONST 0x0002 ; Number of locals 01b3 INIT_01b0: 01b3 e006 | | Load 0x0,0x6 01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01b6 BODY_01b0: 01b6 e006 | | Load 0x0,0x6 01b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b8 e5fa | | Load 0x2,-0x6 01b9 e5fb | | Load 0x2,-0x5 01ba e5fc | | Load 0x2,-0x4 01bb e5fd | | Load 0x2,-0x3 01bc e5fe | | Load 0x2,-0x2 01bd e5ff | | Load 0x2,-0x1 01be e004 | | Load 0x0,0x4 01bf 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 01c0 0059 | Y | Store_Top Discrete,At_Offset_1 01c1 e5f9 | | Load 0x2,-0x7 01c2 00d9 | | Load_Top At_Offset_1 01c3 e005 | | Load 0x0,0x5 01c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01c5 c5f9 | | Store 0x2,-0x7 01c6 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01ce | | .CONST 0x01ce ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0002 | | .CONST 0x0002 ; Number of locals 01cb INIT_01c8: 01cb e006 | | Load 0x0,0x6 01cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01ce BODY_01c8: 01ce e006 | | Load 0x0,0x6 01cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d0 e5fe | | Load 0x2,-0x2 01d1 e5ff | | Load 0x2,-0x1 01d2 e004 | | Load 0x0,0x4 01d3 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 01d4 0059 | Y | Store_Top Discrete,At_Offset_1 01d5 e5fd | | Load 0x2,-0x3 01d6 00d9 | | Load_Top At_Offset_1 01d7 e005 | | Load 0x0,0x5 01d8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01d9 c5fd | | Store 0x2,-0x3 01da 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01db 0000 0000 | | .BLANK 0000[0x5] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e6 | | .CONST 0x01e6 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 e006 | | Load 0x0,0x6 01e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01e6 BODY_01e0: 01e6 e006 | | Load 0x0,0x6 01e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e8 00e1 | | Load_Encached Boolean_Cache 01e9 e5fe | | Load 0x2,-0x2 01ea e5ff | | Load 0x2,-0x1 01eb e004 | | Load 0x0,0x4 01ec 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 01ed c5fd | | Store 0x2,-0x3 01ee 0059 | Y | Store_Top Discrete,At_Offset_1 01ef e5fc | | Load 0x2,-0x4 01f0 00d9 | | Load_Top At_Offset_1 01f1 e005 | | Load 0x0,0x5 01f2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01f3 c5fc | | Store 0x2,-0x4 01f4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0200 | | .CONST 0x0200 ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0003 | | .CONST 0x0003 ; Number of locals 01fb INIT_01f8: 01fb e006 | | Load 0x0,0x6 01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01fe 00e2 | | Load_Encached Integer_Cache 01ff 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0200 BODY_01f8: 0200 e006 | | Load 0x0,0x6 0201 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0202 00e2 | | Load_Encached Integer_Cache 0203 e5fd | | Load 0x2,-0x3 0204 0120 | | Execute Any,Is_Value 0205 6803 |h | Jump_Zero 0x209 0206 e008 | | Load 0x0,0x8 0207 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0208 7801 |x | Jump 0x20a 0209 e5fd | | Load 0x2,-0x3 020a e5fe | | Load 0x2,-0x2 020b e5ff | | Load 0x2,-0x1 020c e004 | | Load 0x0,0x4 020d 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 020e c5fd | | Store 0x2,-0x3 020f 005a | Z | Store_Top Discrete,At_Offset_2 0210 005a | Z | Store_Top Discrete,At_Offset_2 0211 00d8 | | Load_Top At_Offset_0 0212 0c01 | | Execute_Immediate Greater_Equal,0x1 0213 6803 |h | Jump_Zero 0x217 0214 4801 |H | Short_Literal 0x1 0215 a5fc | | Store_Unchecked 0x2,-0x4 0216 7802 |x | Jump 0x219 0217 4800 |H | Short_Literal 0x0 0218 a5fc | | Store_Unchecked 0x2,-0x4 0219 00d8 | | Load_Top At_Offset_0 021a a5fb | | Store_Unchecked 0x2,-0x5 021b e5fa | | Load 0x2,-0x6 021c 00da | | Load_Top At_Offset_2 021d e005 | | Load 0x0,0x5 021e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 021f c5fa | | Store 0x2,-0x6 0220 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0221 0000 0000 | | .BLANK 0000[0x7] 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 e5fd | | Load 0x2,-0x3 022c e5fe | | Load 0x2,-0x2 022d e5ff | | Load 0x2,-0x1 022e e004 | | Load 0x0,0x4 022f 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 0230 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0231 0000 0000 | | .BLANK 0000[0x7] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023e | > | .CONST 0x023e ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b e006 | | Load 0x0,0x6 023c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 023e BODY_0238: 023e e006 | | Load 0x0,0x6 023f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0240 e5fd | | Load 0x2,-0x3 0241 0120 | | Execute Any,Is_Value 0242 6803 |h | Jump_Zero 0x246 0243 e008 | | Load 0x0,0x8 0244 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0245 7801 |x | Jump 0x247 0246 e5fd | | Load 0x2,-0x3 0247 e5fe | | Load 0x2,-0x2 0248 e5ff | | Load 0x2,-0x1 0249 e004 | | Load 0x0,0x4 024a 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d 024b c5fd | | Store 0x2,-0x3 024c 0059 | Y | Store_Top Discrete,At_Offset_1 024d e5fc | | Load 0x2,-0x4 024e 00d9 | | Load_Top At_Offset_1 024f e005 | | Load 0x0,0x5 0250 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0251 c5fc | | Store 0x2,-0x4 0252 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0253 0000 0000 | | .BLANK 0000[0x5] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025e | ^ | .CONST 0x025e ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0002 | | .CONST 0x0002 ; Number of locals 025b INIT_0258: 025b e006 | | Load 0x0,0x6 025c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 025d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 025e BODY_0258: 025e e006 | | Load 0x0,0x6 025f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0260 e5fd | | Load 0x2,-0x3 0261 0120 | | Execute Any,Is_Value 0262 6804 |h | Jump_Zero 0x267 0263 e008 | | Load 0x0,0x8 0264 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0265 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0266 7801 |x | Jump 0x268 0267 e5fd | | Load 0x2,-0x3 0268 e5fe | | Load 0x2,-0x2 0269 e5ff | | Load 0x2,-0x1 026a e004 | | Load 0x0,0x4 026b 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 026c c5fd | | Store 0x2,-0x3 026d 0059 | Y | Store_Top Discrete,At_Offset_1 026e e5fc | | Load 0x2,-0x4 026f 00d9 | | Load_Top At_Offset_1 0270 e005 | | Load 0x0,0x5 0271 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0272 c5fc | | Store 0x2,-0x4 0273 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0274 0000 0000 | | .BLANK 0000[0x4] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 0285 | | .CONST 0x0285 ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0003 | | .CONST 0x0003 ; Number of locals 027b INIT_0278: 027b 00db | | Load_Top At_Offset_3 027c 00db | | Load_Top At_Offset_3 027d e004 | | Load 0x0,0x4 027e 1870 | p | Execute Package,Field_Execute,Field_Number 0x70 027f 00d8 | | Load_Top At_Offset_0 0280 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0281 e20d | | Load 0x1,0xd 0282 1c08 | | Execute_Immediate Run_Utility,0x8 0283 00d8 | | Load_Top At_Offset_0 0284 1c00 | | Execute_Immediate Run_Utility,0x0 0285 BODY_0278: 0285 00d9 | | Load_Top At_Offset_1 0286 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0287 00d9 | | Load_Top At_Offset_1 0288 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0289 00d8 | | Load_Top At_Offset_0 028a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 028b 00da | | Load_Top At_Offset_2 028c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 028d e005 | | Load 0x0,0x5 028e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 028f 00d9 | | Load_Top At_Offset_1 0290 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0291 00d8 | | Load_Top At_Offset_0 0292 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0293 0000 0000 | | .BLANK 0000[0x5] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a5 | | .CONST 0x02a5 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0003 | | .CONST 0x0003 ; Number of locals 029b INIT_0298: 029b 00db | | Load_Top At_Offset_3 029c 00db | | Load_Top At_Offset_3 029d e004 | | Load 0x0,0x4 029e 1871 | q | Execute Package,Field_Execute,Field_Number 0x71 029f 00d8 | | Load_Top At_Offset_0 02a0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02a1 e20d | | Load 0x1,0xd 02a2 1c08 | | Execute_Immediate Run_Utility,0x8 02a3 00d8 | | Load_Top At_Offset_0 02a4 1c00 | | Execute_Immediate Run_Utility,0x0 02a5 BODY_0298: 02a5 00d9 | | Load_Top At_Offset_1 02a6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02a7 00d9 | | Load_Top At_Offset_1 02a8 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 02a9 00d8 | | Load_Top At_Offset_0 02aa 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02ab 00da | | Load_Top At_Offset_2 02ac 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02ad e005 | | Load 0x0,0x5 02ae 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02af 00d9 | | Load_Top At_Offset_1 02b0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02b1 00d8 | | Load_Top At_Offset_0 02b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02b3 0000 0000 | | .BLANK 0000[0x5] 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 00db | | Load_Top At_Offset_3 02bc 00db | | Load_Top At_Offset_3 02bd e004 | | Load 0x0,0x4 02be 1873 | s | Execute Package,Field_Execute,Field_Number 0x73 02bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c6 | | .CONST 0x02c6 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0002 | | .CONST 0x0002 ; Number of locals 02c3 INIT_02c0: 02c3 e006 | | Load 0x0,0x6 02c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02c6 BODY_02c0: 02c6 e006 | | Load 0x0,0x6 02c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c8 e5fd | | Load 0x2,-0x3 02c9 e5fe | | Load 0x2,-0x2 02ca e5ff | | Load 0x2,-0x1 02cb e004 | | Load 0x0,0x4 02cc 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 02cd 0059 | Y | Store_Top Discrete,At_Offset_1 02ce e5fc | | Load 0x2,-0x4 02cf 00d9 | | Load_Top At_Offset_1 02d0 e005 | | Load 0x0,0x5 02d1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02d2 c5fc | | Store 0x2,-0x4 02d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02d4 0000 0000 | | .BLANK 0000[0x4] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02de | | .CONST 0x02de ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0002 | | .CONST 0x0002 ; Number of locals 02db INIT_02d8: 02db e006 | | Load 0x0,0x6 02dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02dd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02de BODY_02d8: 02de e006 | | Load 0x0,0x6 02df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e0 e5fd | | Load 0x2,-0x3 02e1 e5fe | | Load 0x2,-0x2 02e2 e5ff | | Load 0x2,-0x1 02e3 e004 | | Load 0x0,0x4 02e4 186d | m | Execute Package,Field_Execute,Field_Number 0x6d 02e5 0059 | Y | Store_Top Discrete,At_Offset_1 02e6 e5fc | | Load 0x2,-0x4 02e7 00d9 | | Load_Top At_Offset_1 02e8 e005 | | Load 0x0,0x5 02e9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02ea c5fc | | Store 0x2,-0x4 02eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02ec 0000 0000 | | .BLANK 0000[0x4] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f6 | | .CONST 0x02f6 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0002 | | .CONST 0x0002 ; Number of locals 02f3 INIT_02f0: 02f3 e006 | | Load 0x0,0x6 02f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02f6 BODY_02f0: 02f6 e006 | | Load 0x0,0x6 02f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f8 e5fd | | Load 0x2,-0x3 02f9 e5fe | | Load 0x2,-0x2 02fa e5ff | | Load 0x2,-0x1 02fb e004 | | Load 0x0,0x4 02fc 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 02fd 0059 | Y | Store_Top Discrete,At_Offset_1 02fe e5fc | | Load 0x2,-0x4 02ff 00d9 | | Load_Top At_Offset_1 0300 e005 | | Load 0x0,0x5 0301 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0302 c5fc | | Store 0x2,-0x4 0303 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030e | | .CONST 0x030e ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0002 | | .CONST 0x0002 ; Number of locals 030b INIT_0308: 030b e006 | | Load 0x0,0x6 030c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 030d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 030e BODY_0308: 030e e006 | | Load 0x0,0x6 030f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0310 4800 |H | Short_Literal 0x0 0311 e5fe | | Load 0x2,-0x2 0312 e5ff | | Load 0x2,-0x1 0313 e004 | | Load 0x0,0x4 0314 188c | | Execute Package,Field_Execute,Field_Number 0x8c 0315 0059 | Y | Store_Top Discrete,At_Offset_1 0316 e5fc | | Load 0x2,-0x4 0317 00d9 | | Load_Top At_Offset_1 0318 e005 | | Load 0x0,0x5 0319 1817 | | Execute Package,Field_Execute,Field_Number 0x17 031a c5fc | | Store 0x2,-0x4 031b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 031c 0000 0000 | | .BLANK 0000[0x4] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0326 | & | .CONST 0x0326 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0002 | | .CONST 0x0002 ; Number of locals 0323 INIT_0320: 0323 e006 | | Load 0x0,0x6 0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0325 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0326 BODY_0320: 0326 e006 | | Load 0x0,0x6 0327 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0328 e5fe | | Load 0x2,-0x2 0329 e5ff | | Load 0x2,-0x1 032a e004 | | Load 0x0,0x4 032b 1883 | | Execute Package,Field_Execute,Field_Number 0x83 032c 0059 | Y | Store_Top Discrete,At_Offset_1 032d e5fd | | Load 0x2,-0x3 032e 00d9 | | Load_Top At_Offset_1 032f e005 | | Load 0x0,0x5 0330 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0331 c5fd | | Store 0x2,-0x3 0332 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0333 0000 0000 | | .BLANK 0000[0x5] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 4608 |F | Jump_Case 0x9 033c 7808 |x | Jump 0x345 ; case 0x0 033d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 033e 781f |x | Jump 0x35e ; case 0x2 033f 781e |x | Jump 0x35e ; case 0x3 0340 781d |x | Jump 0x35e ; case 0x4 0341 781c |x | Jump 0x35e ; case 0x5 0342 781b |x | Jump 0x35e ; case 0x6 0343 7807 |x | Jump 0x34b ; case 0x7 0344 780f |x | Jump 0x354 ; case 0x8 0345 00da | | Load_Top At_Offset_2 0346 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 0347 00da | | Load_Top At_Offset_2 0348 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 0349 1c00 | | Execute_Immediate Run_Utility,0x0 034a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 034b 00db | | Load_Top At_Offset_3 034c 4801 |H | Short_Literal 0x1 034d e5fe | | Load 0x2,-0x2 034e 00e9 | | Load_Encached String_Cache 034f 035b | [ | Declare_Type Array,Constrained 0350 4801 |H | Short_Literal 0x1 0351 e5ff | | Load 0x2,-0x1 0352 031b | | Declare_Type Variant_Record,Constrained 0353 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0354 00db | | Load_Top At_Offset_3 0355 00db | | Load_Top At_Offset_3 0356 02fc | | Declare_Variable Variant_Record,With_Constraint 0357 4801 |H | Short_Literal 0x1 0358 e5fe | | Load 0x2,-0x2 0359 00e9 | | Load_Encached String_Cache 035a 0334 | 4 | Declare_Variable Array,With_Constraint 035b 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 035c 016a | j | QQ_execute Variant_Record,XXX 035d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 035e 0869 | i | Execute_Immediate Raise,0x69 035f 0000 | | .XXX[0x1] 0360 ; -------------------------------------------------------------------------------------- 0360 ; Debug Table 0360 ; -------------------------------------------------------------------------------------- 0360 0004 000d | | .DEBUG4 0x0004,0x000d,0x514d,0x0000,0x0001,0x0000 0366 0000 0000 | | .XXX[0x1a] 0368 09dc dc04 | | 036a 0000 2f16 | / | 036c 0001 bc13 | | 036e 0000 40b3 | @ | 0370 09dc f804 | | 0372 0800 1180 | | 0374 1d9b c50a | | 0376 0000 00df | | 0378 09dd 0804 | | 037a 0800 1180 | | 037c 1b87 310a | 1 | 037e 0000 00df | | 0380 0000 0000 | | .BLANK 0000[0x7] 0387 7fff ffff | | .XXX[0x8] 0389 8000 0002 | | 038b 1dd0 250a | % | 038d 0001 87bb | | 038f 0000 0000 | | .BLANK 0000[0x4] 0393 1dd0 250a | % | .XXX[0x4] 0395 0001 87bb | | 0397 0000 0000 | | .BLANK 0000[0x4] 039b 1dd0 250a | % | .XXX[0x7] 039d 0001 a073 | s| 039f 0000 0004 | | 03a1 8000 | | 03a2 0000 0000 | | .BLANK 0000[0x7] 03a9 3fe8 0000 |? | .XXX[0xb] 03ab 0020 0000 | | 03ad 0000 0090 | | 03af b230 ee9c | 0 | 03b1 4850 01b0 |HP | 03b3 8478 | x | 03b4 0000 0000 | | .BLANK 0000[0x4] 03b8 ee9c 4850 | HP| .XXX[0x4] 03ba 01b1 0bf8 | | 03bc 0000 0000 | | .BLANK 0000[0x4] 03c0 ee81 2850 | (P| .XXX[0x40] 03c2 000c 7444 | tD| 03c4 0200 0000 | | 03c6 0000 0000 | | 03c8 0080 0000 | | 03ca 0000 0743 | C| 03cc 4e00 0000 |N | 03ce 0000 09dd | | 03d0 0e80 0000 | | 03d2 0000 0040 | @| 03d4 0002 7dd0 | } | 03d6 005c 154d | \ M| 03d8 5105 5114 |Q Q | 03da 00a0 1119 | | 03dc 2531 1401 |%1 | 03de 5445 0d3d |TE =| 03e0 3541 2531 |5A%1| 03e2 1549 7d4d | I}M| 03e4 5d25 510d |]%Q | 03e6 2115 4c01 |! L | 03e8 5025 1125 |P% %| 03ea 4915 0d51 |I Q| 03ec 3d49 6400 |=Id | 03ee e829 513d | )Q=| 03f0 3d31 7d4d |=1}M| 03f2 5105 5114 |Q Q | 03f4 0124 3905 | $9 | 03f6 0d0d 154d | M| 03f8 4d7d 0d3d |M} =| 03fa 3951 493d |9QI=| 03fc 3001 b01d |0 | 03fe 1561 413d | aA=|