|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 0548 | H | .CONST 0x0548 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 007a | z | .CONST 0x007a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002a | * | .CONST 0x002a ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 000d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000e 0129 | ) | Execute Any,Make_Visible 000f e001 | | Load 0x0,0x1 0010 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0011 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0012 0129 | ) | Execute Any,Make_Visible 0013 e001 | | Load 0x0,0x1 0014 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0015 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0016 0129 | ) | Execute Any,Make_Visible 0017 e001 | | Load 0x0,0x1 0018 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0019 1b13 | | Execute Package,Field_Read,Field_Number 0x13 001a 0129 | ) | Execute Any,Make_Visible 001b e001 | | Load 0x0,0x1 001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001d 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 001e 0129 | ) | Execute Any,Make_Visible 001f e001 | | Load 0x0,0x1 0020 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0021 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0022 0129 | ) | Execute Any,Make_Visible 0023 e001 | | Load 0x0,0x1 0024 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0025 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0026 0129 | ) | Execute Any,Make_Visible 0027 e20e | | Load 0x1,0xe 0028 0129 | ) | Execute Any,Make_Visible 0029 e20f | | Load 0x1,0xf 002a 0129 | ) | Execute Any,Make_Visible 002b e210 | | Load 0x1,0x10 002c 0129 | ) | Execute Any,Make_Visible 002d e211 | | Load 0x1,0x11 002e 0129 | ) | Execute Any,Make_Visible 002f e001 | | Load 0x0,0x1 0030 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0031 0129 | ) | Execute Any,Make_Visible 0032 e001 | | Load 0x0,0x1 0033 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0034 0129 | ) | Execute Any,Make_Visible 0035 e001 | | Load 0x0,0x1 0036 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0037 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0038 0129 | ) | Execute Any,Make_Visible 0039 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 003b 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 003d 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 003f 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0041 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0043 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0045 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0047 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0049 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 004b 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 004d 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 004f 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 0051 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 0053 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated 0055 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated 0057 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated 0059 00bf | | Action Accept_Activation 005a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 005b 00c7 | | Action Elaborate_Subprogram 005c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 005d 00c7 | | Action Elaborate_Subprogram 005e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 005f 00c7 | | Action Elaborate_Subprogram 0060 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0061 00c7 | | Action Elaborate_Subprogram 0062 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0063 00c7 | | Action Elaborate_Subprogram 0064 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0065 00c7 | | Action Elaborate_Subprogram 0066 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0067 00c7 | | Action Elaborate_Subprogram 0068 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0069 00c7 | | Action Elaborate_Subprogram 006a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 006b 00c7 | | Action Elaborate_Subprogram 006c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 006d 00c7 | | Action Elaborate_Subprogram 006e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 006f 00c7 | | Action Elaborate_Subprogram 0070 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0071 00c7 | | Action Elaborate_Subprogram 0072 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0073 00c7 | | Action Elaborate_Subprogram 0074 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0075 00c7 | | Action Elaborate_Subprogram 0076 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0077 00c7 | | Action Elaborate_Subprogram 0078 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0079 00c7 | | Action Elaborate_Subprogram 007a BODY_0008: 007a 00bc | | Action Signal_Activated 007b 00bb | | Action Signal_Completion 007c 0000 0000 | | .BLANK 0000[0x4] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 00a8 | | .CONST 0x00a8 ; Address of begin 0081 0118 | | .CONST 0x0118 ; Address of exception handler 0082 0009 | | .CONST 0x0009 ; Number of locals 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 e002 | | Load 0x0,0x2 0085 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0086 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0087 0092 0513 | | Action Push_String_Extended,0x513 ; ".STATE.MODEL" 0089 01cc | | Execute Vector,Catenate 008a 0007 | | Action Break_Optional 008b e003 | | Load 0x0,0x3 008c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 008d 02c7 | | Declare_Variable Any 008e 00d8 | | Load_Top At_Offset_0 008f 1c00 | | Execute_Immediate Run_Utility,0x0 0090 e004 | | Load 0x0,0x4 0091 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0092 02c7 | | Declare_Variable Any 0093 00d8 | | Load_Top At_Offset_0 0094 1c00 | | Execute_Immediate Run_Utility,0x0 0095 e004 | | Load 0x0,0x4 0096 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0097 02c7 | | Declare_Variable Any 0098 00d8 | | Load_Top At_Offset_0 0099 1c00 | | Execute_Immediate Run_Utility,0x0 009a e003 | | Load 0x0,0x3 009b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 009c 02c7 | | Declare_Variable Any 009d 00d8 | | Load_Top At_Offset_0 009e 1c00 | | Execute_Immediate Run_Utility,0x0 009f e003 | | Load 0x0,0x3 00a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a1 e003 | | Load 0x0,0x3 00a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00a4 e21a | | Load 0x1,0x1a 00a5 02c7 | | Declare_Variable Any 00a6 00d8 | | Load_Top At_Offset_0 00a7 1c00 | | Execute_Immediate Run_Utility,0x0 00a8 BODY_0080: 00a8 00be | | Action Activate_Tasks 00a9 e5ff | | Load 0x2,-0x1 00aa e001 | | Load 0x0,0x1 00ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ac 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00ad 6803 |h | Jump_Zero 0xb1 00ae e005 | | Load 0x0,0x5 00af 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b1 e5ff | | Load 0x2,-0x1 00b2 e001 | | Load 0x0,0x1 00b3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 00b5 7003 |p | Jump_Nonzero 0xb9 00b6 e005 | | Load 0x0,0x5 00b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b9 e003 | | Load 0x0,0x3 00ba 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00bb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00bc e403 | | Load 0x2,0x3 00bd 0120 | | Execute Any,Is_Value 00be 6803 |h | Jump_Zero 0xc2 00bf e003 | | Load 0x0,0x3 00c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00c1 7801 |x | Jump 0xc3 00c2 e403 | | Load 0x2,0x3 00c3 6058 |`X | Indirect_Literal Discrete,0x11c,{0x00000000, 0x00004000} 00c4 e006 | | Load 0x0,0x6 00c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c6 e007 | | Load 0x0,0x7 00c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c8 e003 | | Load 0x0,0x3 00c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00cb e402 | | Load 0x2,0x2 00cc e003 | | Load 0x0,0x3 00cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ce 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00cf c403 | | Store 0x2,0x3 00d0 005a | Z | Store_Top Discrete,At_Offset_2 00d1 00d9 | | Load_Top At_Offset_1 00d2 6803 |h | Jump_Zero 0xd6 00d3 e005 | | Load 0x0,0x5 00d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d6 e003 | | Load 0x0,0x3 00d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d8 e404 | | Load 0x2,0x4 00d9 0120 | | Execute Any,Is_Value 00da 6803 |h | Jump_Zero 0xde 00db e004 | | Load 0x0,0x4 00dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00dd 7801 |x | Jump 0xdf 00de e404 | | Load 0x2,0x4 00df 4800 |H | Short_Literal 0x0 00e0 4800 |H | Short_Literal 0x0 00e1 e006 | | Load 0x0,0x6 00e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e3 e403 | | Load 0x2,0x3 00e4 e004 | | Load 0x0,0x4 00e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e6 c404 | | Store 0x2,0x4 00e7 005b | [ | Store_Top Discrete,At_Offset_3 00e8 00da | | Load_Top At_Offset_2 00e9 6803 |h | Jump_Zero 0xed 00ea e005 | | Load 0x0,0x5 00eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ed e405 | | Load 0x2,0x5 00ee 0120 | | Execute Any,Is_Value 00ef 6803 |h | Jump_Zero 0xf3 00f0 e004 | | Load 0x0,0x4 00f1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00f2 7801 |x | Jump 0xf4 00f3 e405 | | Load 0x2,0x5 00f4 e404 | | Load 0x2,0x4 00f5 e004 | | Load 0x0,0x4 00f6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f7 c405 | | Store 0x2,0x5 00f8 e405 | | Load 0x2,0x5 00f9 e004 | | Load 0x0,0x4 00fa 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00fb c406 | | Store 0x2,0x6 00fc 4801 |H | Short_Literal 0x1 00fd e002 | | Load 0x0,0x2 00fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0100 e406 | | Load 0x2,0x6 0101 e003 | | Load 0x0,0x3 0102 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0103 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0104 e002 | | Load 0x0,0x2 0105 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0106 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0107 c409 | | Store 0x2,0x9 0108 00d8 | | Load_Top At_Offset_0 0109 e001 | | Load 0x0,0x1 010a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 010b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 010c 6803 |h | Jump_Zero 0x110 010d e005 | | Load 0x0,0x5 010e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0110 e003 | | Load 0x0,0x3 0111 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0112 e404 | | Load 0x2,0x4 0113 e004 | | Load 0x0,0x4 0114 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0115 005b | [ | Store_Top Discrete,At_Offset_3 0116 00d8 | | Load_Top At_Offset_0 0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0118 TRAP_0080: 0118 0007 | | Action Break_Optional 0119 e005 | | Load 0x0,0x5 011a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 013c | < | .CONST 0x013c ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00db | | Load_Top At_Offset_3 0124 e001 | | Load 0x0,0x1 0125 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0126 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0127 7002 |p | Jump_Nonzero 0x12a 0128 4800 |H | Short_Literal 0x0 0129 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 012a 00db | | Load_Top At_Offset_3 012b e001 | | Load 0x0,0x1 012c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 012d 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 012e 7002 |p | Jump_Nonzero 0x131 012f 4800 |H | Short_Literal 0x0 0130 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0131 00da | | Load_Top At_Offset_2 0132 821b | | Call 0x1,0x1b 0133 e002 | | Load 0x0,0x2 0134 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0135 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0136 e5fe | | Load 0x2,-0x2 0137 e002 | | Load 0x0,0x2 0138 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0139 1820 | | Execute Package,Field_Execute,Field_Number 0x20 013a 01df | | Execute Vector,Equal 013b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013c TRAP_0120: 013c 0007 | | Action Break_Optional 013d 4800 |H | Short_Literal 0x0 013e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013f 0000 | | .XXX[0x1] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 014a | J | .CONST 0x014a ; Address of begin 0141 0159 | Y | .CONST 0x0159 ; Address of exception handler 0142 0003 | | .CONST 0x0003 ; Number of locals 0143 INIT_0140: 0143 e008 | | Load 0x0,0x8 0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0145 02c7 | | Declare_Variable Any 0146 00d8 | | Load_Top At_Offset_0 0147 1c00 | | Execute_Immediate Run_Utility,0x0 0148 029f 048b | | Declare_Subprogram INIT_0488,For_Call 014a BODY_0140: 014a 00d9 | | Load_Top At_Offset_1 014b 00ea | | Load_Encached Null_String_Cache 014c e5ff | | Load 0x2,-0x1 014d e002 | | Load 0x0,0x2 014e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0150 0092 0514 | | Action Push_String_Extended,0x514 ; ".STATE.COMPATIBILITY.STATE" 0152 01cc | | Execute Vector,Catenate 0153 4800 |H | Short_Literal 0x0 0154 e008 | | Load 0x0,0x8 0155 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0156 c402 | | Store 0x2,0x2 0157 8403 | | Call 0x2,0x3 0158 0831 | 1 | Execute_Immediate Raise,0x31 0159 TRAP_0140: 0159 0007 | | Action Break_Optional 015a 00da | | Load_Top At_Offset_2 015b e008 | | Load 0x0,0x8 015c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 015d c402 | | Store 0x2,0x2 015e 4800 |H | Short_Literal 0x0 015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 821d | | Call 0x1,0x1d 0165 0f00 | | Execute_Immediate Equal,0x0 0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0167 0000 | | .XXX[0x1] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0174 | t | .CONST 0x0174 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0004 | | .CONST 0x0004 ; Number of locals 016b INIT_0168: 016b e003 | | Load 0x0,0x3 016c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016d 02c7 | | Declare_Variable Any 016e 00d8 | | Load_Top At_Offset_0 016f 1c00 | | Execute_Immediate Run_Utility,0x0 0170 e003 | | Load 0x0,0x3 0171 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0172 00e1 | | Load_Encached Boolean_Cache 0173 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0174 BODY_0168: 0174 e003 | | Load 0x0,0x3 0175 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0176 00db | | Load_Top At_Offset_3 0177 0120 | | Execute Any,Is_Value 0178 6803 |h | Jump_Zero 0x17c 0179 e003 | | Load 0x0,0x3 017a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 017b 7801 |x | Jump 0x17d 017c 00db | | Load_Top At_Offset_3 017d e5ff | | Load 0x2,-0x1 017e e002 | | Load 0x0,0x2 017f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0180 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0181 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0182 c402 | | Store 0x2,0x2 0183 005a | Z | Store_Top Discrete,At_Offset_2 0184 e003 | | Load 0x0,0x3 0185 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0186 00e1 | | Load_Encached Boolean_Cache 0187 6010 |` | Indirect_Literal Discrete,0x198,{0x00000000, 0x00004000} 0188 e006 | | Load 0x0,0x6 0189 1b0e | | Execute Package,Field_Read,Field_Number 0xe 018a e402 | | Load 0x2,0x2 018b e003 | | Load 0x0,0x3 018c 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 018d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 018e 005a | Z | Store_Top Discrete,At_Offset_2 018f 005a | Z | Store_Top Discrete,At_Offset_2 0190 00d9 | | Load_Top At_Offset_1 0191 7002 |p | Jump_Nonzero 0x194 0192 00d8 | | Load_Top At_Offset_0 0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0194 4800 |H | Short_Literal 0x0 0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0196 0000 0000 | | .XXX[0x2] 0198 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 019c 0000 0000 | | .BLANK 0000[0x4] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01ab | | .CONST 0x01ab ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0004 | | .CONST 0x0004 ; Number of locals 01a3 INIT_01a0: 01a3 e003 | | Load 0x0,0x3 01a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01a5 02c7 | | Declare_Variable Any 01a6 00d8 | | Load_Top At_Offset_0 01a7 1c00 | | Execute_Immediate Run_Utility,0x0 01a8 e003 | | Load 0x0,0x3 01a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01aa 00e1 | | Load_Encached Boolean_Cache 01ab BODY_01a0: 01ab e003 | | Load 0x0,0x3 01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ad 00db | | Load_Top At_Offset_3 01ae 0120 | | Execute Any,Is_Value 01af 6803 |h | Jump_Zero 0x1b3 01b0 e003 | | Load 0x0,0x3 01b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01b2 7801 |x | Jump 0x1b4 01b3 00db | | Load_Top At_Offset_3 01b4 e5ff | | Load 0x2,-0x1 01b5 e002 | | Load 0x0,0x2 01b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b7 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 01b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01b9 c402 | | Store 0x2,0x2 01ba 005a | Z | Store_Top Discrete,At_Offset_2 01bb e003 | | Load 0x0,0x3 01bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bd 00e1 | | Load_Encached Boolean_Cache 01be 67d9 |g | Indirect_Literal Discrete,0x198,{0x00000000, 0x00004000} 01bf e006 | | Load 0x0,0x6 01c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c1 e402 | | Load 0x2,0x2 01c2 e003 | | Load 0x0,0x3 01c3 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 01c4 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 01c5 005a | Z | Store_Top Discrete,At_Offset_2 01c6 005a | Z | Store_Top Discrete,At_Offset_2 01c7 00d9 | | Load_Top At_Offset_1 01c8 700f |p | Jump_Nonzero 0x1d8 01c9 e5ff | | Load 0x2,-0x1 01ca e001 | | Load 0x0,0x1 01cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01cc 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 01cd 7008 |p | Jump_Nonzero 0x1d6 01ce e5ff | | Load 0x2,-0x1 01cf 821f | | Call 0x1,0x1f 01d0 6803 |h | Jump_Zero 0x1d4 01d1 00d8 | | Load_Top At_Offset_0 01d2 0f00 | | Execute_Immediate Equal,0x0 01d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d4 4800 |H | Short_Literal 0x0 01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d6 4800 |H | Short_Literal 0x0 01d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d8 4800 |H | Short_Literal 0x0 01d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01da 0000 0000 | | .BLANK 0000[0x6] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00db | | Load_Top At_Offset_3 01e4 4814 |H | Short_Literal 0x14 01e5 e5ff | | Load 0x2,-0x1 01e6 e005 | | Load 0x0,0x5 01e7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e9 0000 0000 | | .BLANK 0000[0x7] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00db | | Load_Top At_Offset_3 01f4 4815 |H | Short_Literal 0x15 01f5 e5ff | | Load 0x2,-0x1 01f6 e005 | | Load 0x0,0x5 01f7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f9 0000 0000 | | .BLANK 0000[0x7] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00db | | Load_Top At_Offset_3 0204 4814 |H | Short_Literal 0x14 0205 e5ff | | Load 0x2,-0x1 0206 e005 | | Load 0x0,0x5 0207 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0208 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0209 0000 0000 | | .BLANK 0000[0x7] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00db | | Load_Top At_Offset_3 0214 4815 |H | Short_Literal 0x15 0215 e5ff | | Load 0x2,-0x1 0216 e005 | | Load 0x0,0x5 0217 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0218 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0242 | B | .CONST 0x0242 ; Address of begin 0221 029c | | .CONST 0x029c ; Address of exception handler 0222 0008 | | .CONST 0x0008 ; Number of locals 0223 INIT_0220: 0223 e009 | | Load 0x0,0x9 0224 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0225 02c7 | | Declare_Variable Any 0226 00d8 | | Load_Top At_Offset_0 0227 1c00 | | Execute_Immediate Run_Utility,0x0 0228 e009 | | Load 0x0,0x9 0229 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022a 02c7 | | Declare_Variable Any 022b 00d8 | | Load_Top At_Offset_0 022c 1c00 | | Execute_Immediate Run_Utility,0x0 022d e009 | | Load 0x0,0x9 022e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 022f 02c7 | | Declare_Variable Any 0230 00d8 | | Load_Top At_Offset_0 0231 1c00 | | Execute_Immediate Run_Utility,0x0 0232 e003 | | Load 0x0,0x3 0233 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0234 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0235 e003 | | Load 0x0,0x3 0236 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0237 e009 | | Load 0x0,0x9 0238 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0239 02c7 | | Declare_Variable Any 023a 00d8 | | Load_Top At_Offset_0 023b 1c00 | | Execute_Immediate Run_Utility,0x0 023c e002 | | Load 0x0,0x2 023d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023f 02c7 | | Declare_Variable Any 0240 00d8 | | Load_Top At_Offset_0 0241 1c00 | | Execute_Immediate Run_Utility,0x0 0242 BODY_0220: 0242 00be | | Action Activate_Tasks 0243 e003 | | Load 0x0,0x3 0244 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0245 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0246 e402 | | Load 0x2,0x2 0247 0120 | | Execute Any,Is_Value 0248 6803 |h | Jump_Zero 0x24c 0249 e003 | | Load 0x0,0x3 024a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 024b 7801 |x | Jump 0x24d 024c e402 | | Load 0x2,0x2 024d 6052 |`R | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x00004000} 024e e006 | | Load 0x0,0x6 024f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0250 e007 | | Load 0x0,0x7 0251 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0252 e003 | | Load 0x0,0x3 0253 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0254 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0255 e5ff | | Load 0x2,-0x1 0256 e002 | | Load 0x0,0x2 0257 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0258 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0259 e003 | | Load 0x0,0x3 025a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 025b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 025c c402 | | Store 0x2,0x2 025d c405 | | Store 0x2,0x5 025e e003 | | Load 0x0,0x3 025f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0260 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0261 e403 | | Load 0x2,0x3 0262 0120 | | Execute Any,Is_Value 0263 6803 |h | Jump_Zero 0x267 0264 e003 | | Load 0x0,0x3 0265 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0266 7801 |x | Jump 0x268 0267 e403 | | Load 0x2,0x3 0268 6037 |`7 | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x00004000} 0269 e006 | | Load 0x0,0x6 026a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 026b e007 | | Load 0x0,0x7 026c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 026d e003 | | Load 0x0,0x3 026e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 026f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0270 e5fe | | Load 0x2,-0x2 0271 e003 | | Load 0x0,0x3 0272 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0273 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0274 c403 | | Store 0x2,0x3 0275 c405 | | Store 0x2,0x5 0276 e003 | | Load 0x0,0x3 0277 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0278 e404 | | Load 0x2,0x4 0279 4800 |H | Short_Literal 0x0 027a 4800 |H | Short_Literal 0x0 027b e006 | | Load 0x0,0x6 027c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 027d e403 | | Load 0x2,0x3 027e e009 | | Load 0x0,0x9 027f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0280 c404 | | Store 0x2,0x4 0281 005b | [ | Store_Top Discrete,At_Offset_3 0282 e404 | | Load 0x2,0x4 0283 e402 | | Load 0x2,0x2 0284 e009 | | Load 0x0,0x9 0285 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0286 c407 | | Store 0x2,0x7 0287 e003 | | Load 0x0,0x3 0288 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0289 e404 | | Load 0x2,0x4 028a e009 | | Load 0x0,0x9 028b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 028c c404 | | Store 0x2,0x4 028d 005b | [ | Store_Top Discrete,At_Offset_3 028e 4801 |H | Short_Literal 0x1 028f e002 | | Load 0x0,0x2 0290 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0291 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0292 00db | | Load_Top At_Offset_3 0293 e003 | | Load 0x0,0x3 0294 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0295 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0296 e002 | | Load 0x0,0x2 0297 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0298 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0299 c408 | | Store 0x2,0x8 029a 00d8 | | Load_Top At_Offset_0 029b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 029c TRAP_0220: 029c 0007 | | Action Break_Optional 029d e005 | | Load 0x0,0x5 029e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 029f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02a0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 02a4 0000 0000 | | .BLANK 0000[0x4] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ca | | .CONST 0x02ca ; Address of begin 02a9 0324 | $ | .CONST 0x0324 ; Address of exception handler 02aa 0008 | | .CONST 0x0008 ; Number of locals 02ab INIT_02a8: 02ab e009 | | Load 0x0,0x9 02ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ad 02c7 | | Declare_Variable Any 02ae 00d8 | | Load_Top At_Offset_0 02af 1c00 | | Execute_Immediate Run_Utility,0x0 02b0 e009 | | Load 0x0,0x9 02b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b2 02c7 | | Declare_Variable Any 02b3 00d8 | | Load_Top At_Offset_0 02b4 1c00 | | Execute_Immediate Run_Utility,0x0 02b5 e009 | | Load 0x0,0x9 02b6 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02b7 02c7 | | Declare_Variable Any 02b8 00d8 | | Load_Top At_Offset_0 02b9 1c00 | | Execute_Immediate Run_Utility,0x0 02ba e003 | | Load 0x0,0x3 02bb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02bd e003 | | Load 0x0,0x3 02be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02bf e009 | | Load 0x0,0x9 02c0 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02c1 02c7 | | Declare_Variable Any 02c2 00d8 | | Load_Top At_Offset_0 02c3 1c00 | | Execute_Immediate Run_Utility,0x0 02c4 e002 | | Load 0x0,0x2 02c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c7 02c7 | | Declare_Variable Any 02c8 00d8 | | Load_Top At_Offset_0 02c9 1c00 | | Execute_Immediate Run_Utility,0x0 02ca BODY_02a8: 02ca 00be | | Action Activate_Tasks 02cb e003 | | Load 0x0,0x3 02cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02ce e402 | | Load 0x2,0x2 02cf 0120 | | Execute Any,Is_Value 02d0 6803 |h | Jump_Zero 0x2d4 02d1 e003 | | Load 0x0,0x3 02d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02d3 7801 |x | Jump 0x2d5 02d4 e402 | | Load 0x2,0x2 02d5 67ca |g | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x00004000} 02d6 e006 | | Load 0x0,0x6 02d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02d8 e007 | | Load 0x0,0x7 02d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02da e003 | | Load 0x0,0x3 02db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02dd e5ff | | Load 0x2,-0x1 02de e002 | | Load 0x0,0x2 02df 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02e0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02e1 e003 | | Load 0x0,0x3 02e2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02e3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 02e4 c402 | | Store 0x2,0x2 02e5 c405 | | Store 0x2,0x5 02e6 e003 | | Load 0x0,0x3 02e7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02e8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02e9 e403 | | Load 0x2,0x3 02ea 0120 | | Execute Any,Is_Value 02eb 6803 |h | Jump_Zero 0x2ef 02ec e003 | | Load 0x0,0x3 02ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02ee 7801 |x | Jump 0x2f0 02ef e403 | | Load 0x2,0x3 02f0 67af |g | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x00004000} 02f1 e006 | | Load 0x0,0x6 02f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02f3 e007 | | Load 0x0,0x7 02f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02f5 e003 | | Load 0x0,0x3 02f6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02f8 e5fe | | Load 0x2,-0x2 02f9 e003 | | Load 0x0,0x3 02fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02fb 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 02fc c403 | | Store 0x2,0x3 02fd c405 | | Store 0x2,0x5 02fe e003 | | Load 0x0,0x3 02ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0300 e404 | | Load 0x2,0x4 0301 4800 |H | Short_Literal 0x0 0302 4800 |H | Short_Literal 0x0 0303 e006 | | Load 0x0,0x6 0304 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0305 e403 | | Load 0x2,0x3 0306 e009 | | Load 0x0,0x9 0307 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0308 c404 | | Store 0x2,0x4 0309 005b | [ | Store_Top Discrete,At_Offset_3 030a e404 | | Load 0x2,0x4 030b e402 | | Load 0x2,0x2 030c e009 | | Load 0x0,0x9 030d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 030e c407 | | Store 0x2,0x7 030f e003 | | Load 0x0,0x3 0310 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0311 e404 | | Load 0x2,0x4 0312 e009 | | Load 0x0,0x9 0313 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0314 c404 | | Store 0x2,0x4 0315 005b | [ | Store_Top Discrete,At_Offset_3 0316 4801 |H | Short_Literal 0x1 0317 e002 | | Load 0x0,0x2 0318 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0319 1813 | | Execute Package,Field_Execute,Field_Number 0x13 031a 00db | | Load_Top At_Offset_3 031b e003 | | Load 0x0,0x3 031c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 031d 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 031e e002 | | Load 0x0,0x2 031f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0320 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0321 c408 | | Store 0x2,0x8 0322 00d8 | | Load_Top At_Offset_0 0323 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0324 TRAP_02a8: 0324 0007 | | Action Break_Optional 0325 e005 | | Load 0x0,0x5 0326 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0327 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 034f | O | .CONST 0x034f ; Address of begin 0329 03b4 | | .CONST 0x03b4 ; Address of exception handler 032a 0009 | | .CONST 0x0009 ; Number of locals 032b INIT_0328: 032b e217 | | Load 0x1,0x17 032c 02c7 | | Declare_Variable Any 032d e002 | | Load 0x0,0x2 032e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 032f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0330 a402 | | Store_Unchecked 0x2,0x2 0331 00db | | Load_Top At_Offset_3 0332 e002 | | Load 0x0,0x2 0333 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0334 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0335 0092 0515 | | Action Push_String_Extended,0x515 ; ".STATE.IMPORTS" 0337 01cc | | Execute Vector,Catenate 0338 0007 | | Action Break_Optional 0339 e003 | | Load 0x0,0x3 033a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 033b 02c7 | | Declare_Variable Any 033c 00d8 | | Load_Top At_Offset_0 033d 1c00 | | Execute_Immediate Run_Utility,0x0 033e e004 | | Load 0x0,0x4 033f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0340 02c7 | | Declare_Variable Any 0341 00d8 | | Load_Top At_Offset_0 0342 1c00 | | Execute_Immediate Run_Utility,0x0 0343 e004 | | Load 0x0,0x4 0344 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0345 02c7 | | Declare_Variable Any 0346 00d8 | | Load_Top At_Offset_0 0347 1c00 | | Execute_Immediate Run_Utility,0x0 0348 e003 | | Load 0x0,0x3 0349 1b0d | | Execute Package,Field_Read,Field_Number 0xd 034a e003 | | Load 0x0,0x3 034b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 034c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 034d 029f 049b | | Declare_Subprogram INIT_0498,For_Call 034f BODY_0328: 034f 00be | | Action Activate_Tasks 0350 e5ff | | Load 0x2,-0x1 0351 e001 | | Load 0x0,0x1 0352 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0353 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0354 7003 |p | Jump_Nonzero 0x358 0355 e005 | | Load 0x0,0x5 0356 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0357 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0358 e5ff | | Load 0x2,-0x1 0359 e001 | | Load 0x0,0x1 035a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 035b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 035c 7003 |p | Jump_Nonzero 0x360 035d e005 | | Load 0x0,0x5 035e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 035f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0360 e003 | | Load 0x0,0x3 0361 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0362 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0363 e404 | | Load 0x2,0x4 0364 0120 | | Execute Any,Is_Value 0365 6803 |h | Jump_Zero 0x369 0366 e003 | | Load 0x0,0x3 0367 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0368 7801 |x | Jump 0x36a 0369 e404 | | Load 0x2,0x4 036a 604d |`M | Indirect_Literal Discrete,0x3b8,{0x00000000, 0x00004000} 036b e006 | | Load 0x0,0x6 036c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 036d e007 | | Load 0x0,0x7 036e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 036f e003 | | Load 0x0,0x3 0370 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0371 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0372 e403 | | Load 0x2,0x3 0373 e003 | | Load 0x0,0x3 0374 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0375 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0376 c404 | | Store 0x2,0x4 0377 005a | Z | Store_Top Discrete,At_Offset_2 0378 00d9 | | Load_Top At_Offset_1 0379 6803 |h | Jump_Zero 0x37d 037a e005 | | Load 0x0,0x5 037b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 037c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 037d e003 | | Load 0x0,0x3 037e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 037f e405 | | Load 0x2,0x5 0380 0120 | | Execute Any,Is_Value 0381 6803 |h | Jump_Zero 0x385 0382 e004 | | Load 0x0,0x4 0383 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0384 7801 |x | Jump 0x386 0385 e405 | | Load 0x2,0x5 0386 4800 |H | Short_Literal 0x0 0387 4800 |H | Short_Literal 0x0 0388 e006 | | Load 0x0,0x6 0389 1b0e | | Execute Package,Field_Read,Field_Number 0xe 038a e404 | | Load 0x2,0x4 038b e004 | | Load 0x0,0x4 038c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 038d c405 | | Store 0x2,0x5 038e 005b | [ | Store_Top Discrete,At_Offset_3 038f 00da | | Load_Top At_Offset_2 0390 6803 |h | Jump_Zero 0x394 0391 e005 | | Load 0x0,0x5 0392 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0393 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0394 00db | | Load_Top At_Offset_3 0395 0120 | | Execute Any,Is_Value 0396 6803 |h | Jump_Zero 0x39a 0397 e004 | | Load 0x0,0x4 0398 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0399 7801 |x | Jump 0x39b 039a 00db | | Load_Top At_Offset_3 039b e405 | | Load 0x2,0x5 039c e004 | | Load 0x0,0x4 039d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 039e c406 | | Store 0x2,0x6 039f 00cf | | Action Mark_Auxiliary 03a0 7806 |x | Jump 0x3a7 03a1 8409 | | Call 0x2,0x9 03a2 e406 | | Load 0x2,0x6 03a3 e004 | | Load 0x0,0x4 03a4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03a5 c406 | | Store 0x2,0x6 03a6 00c9 | | Action Pop_Auxiliary_Loop 03a7 e406 | | Load 0x2,0x6 03a8 e004 | | Load 0x0,0x4 03a9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03aa 6ff6 |o | Jump_Zero 0x3a1 03ab 00ce | | Action Pop_Auxiliary 03ac e003 | | Load 0x0,0x3 03ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ae e405 | | Load 0x2,0x5 03af e004 | | Load 0x0,0x4 03b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03b1 005b | [ | Store_Top Discrete,At_Offset_3 03b2 e402 | | Load 0x2,0x2 03b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03b4 TRAP_0328: 03b4 0007 | | Action Break_Optional 03b5 e005 | | Load 0x0,0x5 03b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03b8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 03bc 0000 0000 | | .BLANK 0000[0x4] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03ce | | .CONST 0x03ce ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0002 | | .CONST 0x0002 ; Number of locals 03c3 INIT_03c0: 03c3 e001 | | Load 0x0,0x1 03c4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03c5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03c6 02c7 | | Declare_Variable Any 03c7 4801 |H | Short_Literal 0x1 03c8 e5fe | | Load 0x2,-0x2 03c9 e5ff | | Load 0x2,-0x1 03ca e001 | | Load 0x0,0x1 03cb 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03cc 181f | | Execute Package,Field_Execute,Field_Number 0x1f 03cd a402 | | Store_Unchecked 0x2,0x2 03ce BODY_03c0: 03ce 00d8 | | Load_Top At_Offset_0 03cf e001 | | Load 0x0,0x1 03d0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03d1 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 03d2 0f00 | | Execute_Immediate Equal,0x0 03d3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03d4 0000 0000 | | .BLANK 0000[0x4] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03ff | | .CONST 0x03ff ; Address of begin 03d9 0464 | d | .CONST 0x0464 ; Address of exception handler 03da 0009 | | .CONST 0x0009 ; Number of locals 03db INIT_03d8: 03db e215 | | Load 0x1,0x15 03dc 02c7 | | Declare_Variable Any 03dd e002 | | Load 0x0,0x2 03de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03df 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03e0 a402 | | Store_Unchecked 0x2,0x2 03e1 00db | | Load_Top At_Offset_3 03e2 e002 | | Load 0x0,0x2 03e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03e4 1820 | | Execute Package,Field_Execute,Field_Number 0x20 03e5 0092 0516 | | Action Push_String_Extended,0x516 ; ".STATE.REFERENCERS" 03e7 01cc | | Execute Vector,Catenate 03e8 0007 | | Action Break_Optional 03e9 e003 | | Load 0x0,0x3 03ea 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03eb 02c7 | | Declare_Variable Any 03ec 00d8 | | Load_Top At_Offset_0 03ed 1c00 | | Execute_Immediate Run_Utility,0x0 03ee e004 | | Load 0x0,0x4 03ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f0 02c7 | | Declare_Variable Any 03f1 00d8 | | Load_Top At_Offset_0 03f2 1c00 | | Execute_Immediate Run_Utility,0x0 03f3 e004 | | Load 0x0,0x4 03f4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03f5 02c7 | | Declare_Variable Any 03f6 00d8 | | Load_Top At_Offset_0 03f7 1c00 | | Execute_Immediate Run_Utility,0x0 03f8 e003 | | Load 0x0,0x3 03f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03fa e003 | | Load 0x0,0x3 03fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03fd 029f 04db | | Declare_Subprogram INIT_04d8,For_Call 03ff BODY_03d8: 03ff 00be | | Action Activate_Tasks 0400 e5ff | | Load 0x2,-0x1 0401 e001 | | Load 0x0,0x1 0402 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0403 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0404 7003 |p | Jump_Nonzero 0x408 0405 e005 | | Load 0x0,0x5 0406 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0407 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0408 e5ff | | Load 0x2,-0x1 0409 e001 | | Load 0x0,0x1 040a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 040b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 040c 7003 |p | Jump_Nonzero 0x410 040d e005 | | Load 0x0,0x5 040e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 040f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0410 e003 | | Load 0x0,0x3 0411 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0412 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0413 e404 | | Load 0x2,0x4 0414 0120 | | Execute Any,Is_Value 0415 6803 |h | Jump_Zero 0x419 0416 e003 | | Load 0x0,0x3 0417 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0418 7801 |x | Jump 0x41a 0419 e404 | | Load 0x2,0x4 041a 604d |`M | Indirect_Literal Discrete,0x468,{0x00000000, 0x00004000} 041b e006 | | Load 0x0,0x6 041c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 041d e007 | | Load 0x0,0x7 041e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 041f e003 | | Load 0x0,0x3 0420 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0421 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0422 e403 | | Load 0x2,0x3 0423 e003 | | Load 0x0,0x3 0424 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0425 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0426 c404 | | Store 0x2,0x4 0427 005a | Z | Store_Top Discrete,At_Offset_2 0428 00d9 | | Load_Top At_Offset_1 0429 6803 |h | Jump_Zero 0x42d 042a e005 | | Load 0x0,0x5 042b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 042c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 042d e003 | | Load 0x0,0x3 042e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 042f e405 | | Load 0x2,0x5 0430 0120 | | Execute Any,Is_Value 0431 6803 |h | Jump_Zero 0x435 0432 e004 | | Load 0x0,0x4 0433 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0434 7801 |x | Jump 0x436 0435 e405 | | Load 0x2,0x5 0436 4800 |H | Short_Literal 0x0 0437 4800 |H | Short_Literal 0x0 0438 e006 | | Load 0x0,0x6 0439 1b0e | | Execute Package,Field_Read,Field_Number 0xe 043a e404 | | Load 0x2,0x4 043b e004 | | Load 0x0,0x4 043c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 043d c405 | | Store 0x2,0x5 043e 005b | [ | Store_Top Discrete,At_Offset_3 043f 00da | | Load_Top At_Offset_2 0440 6803 |h | Jump_Zero 0x444 0441 e005 | | Load 0x0,0x5 0442 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0443 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0444 00db | | Load_Top At_Offset_3 0445 0120 | | Execute Any,Is_Value 0446 6803 |h | Jump_Zero 0x44a 0447 e004 | | Load 0x0,0x4 0448 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0449 7801 |x | Jump 0x44b 044a 00db | | Load_Top At_Offset_3 044b e405 | | Load 0x2,0x5 044c e004 | | Load 0x0,0x4 044d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 044e c406 | | Store 0x2,0x6 044f 00cf | | Action Mark_Auxiliary 0450 7806 |x | Jump 0x457 0451 8409 | | Call 0x2,0x9 0452 e406 | | Load 0x2,0x6 0453 e004 | | Load 0x0,0x4 0454 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0455 c406 | | Store 0x2,0x6 0456 00c9 | | Action Pop_Auxiliary_Loop 0457 e406 | | Load 0x2,0x6 0458 e004 | | Load 0x0,0x4 0459 181b | | Execute Package,Field_Execute,Field_Number 0x1b 045a 6ff6 |o | Jump_Zero 0x451 045b 00ce | | Action Pop_Auxiliary 045c e003 | | Load 0x0,0x3 045d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 045e e405 | | Load 0x2,0x5 045f e004 | | Load 0x0,0x4 0460 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0461 005b | [ | Store_Top Discrete,At_Offset_3 0462 e402 | | Load 0x2,0x2 0463 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0464 TRAP_03d8: 0464 0007 | | Action Break_Optional 0465 e005 | | Load 0x0,0x5 0466 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0467 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0468 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 046c 0000 0000 | | .BLANK 0000[0x4] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 047e | ~ | .CONST 0x047e ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0002 | | .CONST 0x0002 ; Number of locals 0473 INIT_0470: 0473 e001 | | Load 0x0,0x1 0474 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0475 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0476 02c7 | | Declare_Variable Any 0477 4801 |H | Short_Literal 0x1 0478 e5ff | | Load 0x2,-0x1 0479 e5fe | | Load 0x2,-0x2 047a e001 | | Load 0x0,0x1 047b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 047c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 047d a402 | | Store_Unchecked 0x2,0x2 047e BODY_0470: 047e 00d8 | | Load_Top At_Offset_0 047f e001 | | Load 0x0,0x1 0480 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0481 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0482 0f00 | | Execute_Immediate Equal,0x0 0483 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0484 0000 0000 | | .BLANK 0000[0x4] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048e | | .CONST 0x048e ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0002 | | .CONST 0x0002 ; Number of locals 048b INIT_0488: 048b e402 | | Load 0x2,0x2 048c e008 | | Load 0x0,0x8 048d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 048e BODY_0488: 048e e402 | | Load 0x2,0x2 048f e008 | | Load 0x0,0x8 0490 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0491 c402 | | Store 0x2,0x2 0492 00d8 | | Load_Top At_Offset_0 0493 0092 0517 | | Action Push_String_Extended,0x517 ; "PRIMARY => TRUE" 0495 01df | | Execute Vector,Equal 0496 00cb | | Action Pop_Block_With_Result 0497 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 04b2 | | .CONST 0x04b2 ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0005 | | .CONST 0x0005 ; Number of locals 049b INIT_0498: 049b e003 | | Load 0x0,0x3 049c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 049d 02c7 | | Declare_Variable Any 049e e406 | | Load 0x2,0x6 049f e004 | | Load 0x0,0x4 04a0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 04a1 a602 | | Store_Unchecked 0x3,0x2 04a2 00d8 | | Load_Top At_Offset_0 04a3 e003 | | Load 0x0,0x3 04a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04a5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 04a6 e216 | | Load 0x1,0x16 04a7 02c7 | | Declare_Variable Any 04a8 4801 |H | Short_Literal 0x1 04a9 e002 | | Load 0x0,0x2 04aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04ac 00db | | Load_Top At_Offset_3 04ad e002 | | Load 0x0,0x2 04ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04af 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 04b0 a604 | | Store_Unchecked 0x3,0x4 04b1 00e1 | | Load_Encached Boolean_Cache 04b2 BODY_0498: 04b2 00d9 | | Load_Top At_Offset_1 04b3 e001 | | Load 0x0,0x1 04b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04b5 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 04b6 681b |h | Jump_Zero 0x4d2 04b7 e5fe | | Load 0x2,-0x2 04b8 680f |h | Jump_Zero 0x4c8 04b9 e5ff | | Load 0x2,-0x1 04ba 00da | | Load_Top At_Offset_2 04bb 8228 | ( | Call 0x1,0x28 04bc 680a |h | Jump_Zero 0x4c7 04bd 00e1 | | Load_Encached Boolean_Cache 04be e002 | | Load 0x0,0x2 04bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c0 180e | | Execute Package,Field_Execute,Field_Number 0xe 04c1 00db | | Load_Top At_Offset_3 04c2 e402 | | Load 0x2,0x2 04c3 e002 | | Load 0x0,0x2 04c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c5 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 04c6 0059 | Y | Store_Top Discrete,At_Offset_1 04c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04c8 00e1 | | Load_Encached Boolean_Cache 04c9 e002 | | Load 0x0,0x2 04ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04cb 180e | | Execute Package,Field_Execute,Field_Number 0xe 04cc 00db | | Load_Top At_Offset_3 04cd e402 | | Load 0x2,0x2 04ce e002 | | Load 0x0,0x2 04cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04d0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 04d1 0059 | Y | Store_Top Discrete,At_Offset_1 04d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04d3 0000 0000 | | .BLANK 0000[0x5] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04f2 | | .CONST 0x04f2 ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0005 | | .CONST 0x0005 ; Number of locals 04db INIT_04d8: 04db e003 | | Load 0x0,0x3 04dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04dd 02c7 | | Declare_Variable Any 04de e406 | | Load 0x2,0x6 04df e004 | | Load 0x0,0x4 04e0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 04e1 a602 | | Store_Unchecked 0x3,0x2 04e2 00d8 | | Load_Top At_Offset_0 04e3 e003 | | Load 0x0,0x3 04e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04e5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 04e6 e214 | | Load 0x1,0x14 04e7 02c7 | | Declare_Variable Any 04e8 4801 |H | Short_Literal 0x1 04e9 e002 | | Load 0x0,0x2 04ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04ec 00db | | Load_Top At_Offset_3 04ed e002 | | Load 0x0,0x2 04ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04ef 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 04f0 a604 | | Store_Unchecked 0x3,0x4 04f1 00e1 | | Load_Encached Boolean_Cache 04f2 BODY_04d8: 04f2 00d9 | | Load_Top At_Offset_1 04f3 e001 | | Load 0x0,0x1 04f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04f5 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 04f6 681b |h | Jump_Zero 0x512 04f7 e5fe | | Load 0x2,-0x2 04f8 680f |h | Jump_Zero 0x508 04f9 e5ff | | Load 0x2,-0x1 04fa 00da | | Load_Top At_Offset_2 04fb 822a | * | Call 0x1,0x2a 04fc 680a |h | Jump_Zero 0x507 04fd 00e1 | | Load_Encached Boolean_Cache 04fe e002 | | Load 0x0,0x2 04ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0500 180e | | Execute Package,Field_Execute,Field_Number 0xe 0501 00db | | Load_Top At_Offset_3 0502 e402 | | Load 0x2,0x2 0503 e002 | | Load 0x0,0x2 0504 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0505 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0506 0059 | Y | Store_Top Discrete,At_Offset_1 0507 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0508 00e1 | | Load_Encached Boolean_Cache 0509 e002 | | Load 0x0,0x2 050a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 050b 180e | | Execute Package,Field_Execute,Field_Number 0xe 050c 00db | | Load_Top At_Offset_3 050d e402 | | Load 0x2,0x2 050e e002 | | Load 0x0,0x2 050f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0510 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0511 0059 | Y | Store_Top Discrete,At_Offset_1 0512 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0513 ; -------------------------------------------------------------------------------------- 0513 ; STRING TABLE 0513 ; -------------------------------------------------------------------------------------- 0513 000c | | .STRTAB 0x000c->0x0519 ; ".STATE.MODEL" 0514 0016 | | .STRTAB 0x0016->0x051f ; ".STATE.COMPATIBILITY.STATE" 0515 002e | . | .STRTAB 0x002e->0x052c ; ".STATE.IMPORTS" 0516 003a | : | .STRTAB 0x003a->0x0533 ; ".STATE.REFERENCERS" 0517 004a | J | .STRTAB 0x004a->0x053c ; "PRIMARY => TRUE" 0518 0057 | W | .STREND 0x0057->0x0543 0519 2e53 5441 |.STA| .STRTAB_STRINGS 0544 0000 0000 | | .BLANK 0000[0x4] 0548 ; -------------------------------------------------------------------------------------- 0548 ; Debug Table 0548 ; -------------------------------------------------------------------------------------- 0548 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2c74,0x0000,0x0001,0x0015 054e 000b 05a2 | | .DBG4T 0x000b,0x05a2,0x0000,0x0000 0552 005a 05c2 | Z | .DBG4T 0x005a,0x05c2,0x0000,0x8000 0556 0083 05e4 | | .DBG4T 0x0083,0x05e4,0x0002,0x0000 055a 0123 0600 | # | .DBG4T 0x0123,0x0600,0x0002,0x0000 055e 0143 0608 | C | .DBG4T 0x0143,0x0608,0x0002,0x0000 0562 0163 060f | c | .DBG4T 0x0163,0x060f,0x0002,0x0000 0566 016b 0612 | k | .DBG4T 0x016b,0x0612,0x0002,0x8000 056a 01a3 061d | | .DBG4T 0x01a3,0x061d,0x0002,0x8000 056e 01e3 0628 | (| .DBG4T 0x01e3,0x0628,0x0002,0x0000 0572 01f3 062b | +| .DBG4T 0x01f3,0x062b,0x0002,0x0000 0576 0203 062e | .| .DBG4T 0x0203,0x062e,0x0002,0x0000 057a 0213 0631 | 1| .DBG4T 0x0213,0x0631,0x0002,0x0000 057e 0223 0634 | # 4| .DBG4T 0x0223,0x0634,0x0002,0x0000 0582 02ab 0645 | E| .DBG4T 0x02ab,0x0645,0x0002,0x0000 0586 032b 0656 | + V| .DBG4T 0x032b,0x0656,0x0002,0x4000 058a 03c3 0681 | | .DBG4T 0x03c3,0x0681,0x0002,0x0000 058e 03db 0685 | | .DBG4T 0x03db,0x0685,0x0002,0x4000 0592 0473 06b0 | s | .DBG4T 0x0473,0x06b0,0x0002,0x0000 0596 048b 06b4 | | .DBG4T 0x048b,0x06b4,0x0004,0x0000 059a 049b 06b9 | | .DBG4T 0x049b,0x06b9,0x0004,0x0000 059e 04db 06c4 | | .DBG4T 0x04db,0x06c4,0x0004,0x0000 05a2 ; -------------------------------------------------------------------------------------- 05a2 ; Debug chain 05a2 ; -------------------------------------------------------------------------------------- 05a2 001e 0000 | | .DBGLEN 0x001e,0x0000 05a4 000b 000f | | .DBGLNO 0x000b,0x000f,0x0013,0x0017,0x001b,0x001f,0x0023,0x0027,0x0029,0x002b,0x002d,0x002f,0x0032,0x0035,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057 05c2 ; -------------------------------------------------------------------------------------- 05c2 ; Debug chain 05c2 ; -------------------------------------------------------------------------------------- 05c2 0010 0000 | | .DBGLEN 0x0010,0x0000 05c4 005a 005c | Z \| .DBGLNO 0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078 05d4 0003 0004 | | .XXX[0x10] 05d6 0005 0006 | | 05d8 0007 0008 | | 05da 0009 000a | | 05dc 000b 000c | | 05de 000d 000e | | 05e0 000f 0010 | | 05e2 0011 0012 | | 05e4 ; -------------------------------------------------------------------------------------- 05e4 ; Debug chain 05e4 ; -------------------------------------------------------------------------------------- 05e4 0008 0012 | | .DBGLEN 0x0008,0x0012 05e6 0083 008b | | .DBGLNO 0x0083,0x008b,0x0090,0x0095,0x009a,0x009f,0x00a1,0x00a4,0x00a9,0x00ae,0x00b1,0x00b6,0x00b9,0x00d1,0x00d3,0x00d6,0x00e8,0x00ea,0x00ed,0x00f8,0x00fc,0x0108,0x010d,0x0110,0x0116,0x0119 0600 ; -------------------------------------------------------------------------------------- 0600 ; Debug chain 0600 ; -------------------------------------------------------------------------------------- 0600 0000 0006 | | .DBGLEN 0x0000,0x0006 0602 0123 0128 | # (| .DBGLNO 0x0123,0x0128,0x012a,0x012f,0x0131,0x013d 0608 ; -------------------------------------------------------------------------------------- 0608 ; Debug chain 0608 ; -------------------------------------------------------------------------------------- 0608 0001 0004 | | .DBGLEN 0x0001,0x0004 060a 0143 014a | C J| .DBGLNO 0x0143,0x014a,0x0157,0x015a,0x015e 060f ; -------------------------------------------------------------------------------------- 060f ; Debug chain 060f ; -------------------------------------------------------------------------------------- 060f 0000 0001 | | .DBGLEN 0x0000,0x0001 0611 0163 | c | .DBGLNO 0x0163 0612 ; -------------------------------------------------------------------------------------- 0612 ; Debug chain 0612 ; -------------------------------------------------------------------------------------- 0612 0003 0003 | | .DBGLEN 0x0003,0x0003 0614 016b 0170 | k p| .DBGLNO 0x016b,0x0170,0x0172,0x0174,0x0184,0x0190 061a 0002 0003 | | .XXX[0x3] 061c 0004 | | 061d ; -------------------------------------------------------------------------------------- 061d ; Debug chain 061d ; -------------------------------------------------------------------------------------- 061d 0003 0003 | | .DBGLEN 0x0003,0x0003 061f 01a3 01a8 | | .DBGLNO 0x01a3,0x01a8,0x01aa,0x01ab,0x01bb,0x01c7 0625 0002 0003 | | .XXX[0x3] 0627 0004 | | 0628 ; -------------------------------------------------------------------------------------- 0628 ; Debug chain 0628 ; -------------------------------------------------------------------------------------- 0628 0000 0001 | | .DBGLEN 0x0000,0x0001 062a 01e3 | | .DBGLNO 0x01e3 062b ; -------------------------------------------------------------------------------------- 062b ; Debug chain 062b ; -------------------------------------------------------------------------------------- 062b 0000 0001 | | .DBGLEN 0x0000,0x0001 062d 01f3 | | .DBGLNO 0x01f3 062e ; -------------------------------------------------------------------------------------- 062e ; Debug chain 062e ; -------------------------------------------------------------------------------------- 062e 0000 0001 | | .DBGLEN 0x0000,0x0001 0630 0203 | | .DBGLNO 0x0203 0631 ; -------------------------------------------------------------------------------------- 0631 ; Debug chain 0631 ; -------------------------------------------------------------------------------------- 0631 0000 0001 | | .DBGLEN 0x0000,0x0001 0633 0213 | | .DBGLNO 0x0213 0634 ; -------------------------------------------------------------------------------------- 0634 ; Debug chain 0634 ; -------------------------------------------------------------------------------------- 0634 0007 0008 | | .DBGLEN 0x0007,0x0008 0636 0223 0228 | # (| .DBGLNO 0x0223,0x0228,0x022d,0x0232,0x0235,0x0237,0x023c,0x0243,0x025e,0x0276,0x0282,0x0287,0x028e,0x029a,0x029d 0645 ; -------------------------------------------------------------------------------------- 0645 ; Debug chain 0645 ; -------------------------------------------------------------------------------------- 0645 0007 0008 | | .DBGLEN 0x0007,0x0008 0647 02ab 02b0 | | .DBGLNO 0x02ab,0x02b0,0x02b5,0x02ba,0x02bd,0x02bf,0x02c4,0x02cb,0x02e6,0x02fe,0x030a,0x030f,0x0316,0x0322,0x0325 0656 ; -------------------------------------------------------------------------------------- 0656 ; Debug chain 0656 ; -------------------------------------------------------------------------------------- 0656 0007 0011 | | .DBGLEN 0x0007,0x0011 0658 032b 0331 | + 1| .DBGLNO 0x032b,0x0331,0x0339,0x033e,0x0343,0x0348,0x034a,0x0350,0x0355,0x0358,0x035d,0x0360,0x0378,0x037a,0x037d,0x038f,0x0391,0x0394,0x03a1,0x03a2,0x03a7,0x03ac,0x03b2,0x03b5 0670 0001 0002 | | .XXX[0x11] 0672 0003 0004 | | 0674 0005 0006 | | 0676 0007 0008 | | 0678 0009 000a | | 067a 000b 000d | | 067c 000e 000c | | 067e 000f 0010 | | 0680 0011 | | 0681 ; -------------------------------------------------------------------------------------- 0681 ; Debug chain 0681 ; -------------------------------------------------------------------------------------- 0681 0001 0001 | | .DBGLEN 0x0001,0x0001 0683 03c3 03ce | | .DBGLNO 0x03c3,0x03ce 0685 ; -------------------------------------------------------------------------------------- 0685 ; Debug chain 0685 ; -------------------------------------------------------------------------------------- 0685 0007 0011 | | .DBGLEN 0x0007,0x0011 0687 03db 03e1 | | .DBGLNO 0x03db,0x03e1,0x03e9,0x03ee,0x03f3,0x03f8,0x03fa,0x0400,0x0405,0x0408,0x040d,0x0410,0x0428,0x042a,0x042d,0x043f,0x0441,0x0444,0x0451,0x0452,0x0457,0x045c,0x0462,0x0465 069f 0001 0002 | | .XXX[0x11] 06a1 0003 0004 | | 06a3 0005 0006 | | 06a5 0007 0008 | | 06a7 0009 000a | | 06a9 000b 000d | | 06ab 000e 000c | | 06ad 000f 0010 | | 06af 0011 | | 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; Debug chain 06b0 ; -------------------------------------------------------------------------------------- 06b0 0001 0001 | | .DBGLEN 0x0001,0x0001 06b2 0473 047e | s ~| .DBGLNO 0x0473,0x047e 06b4 ; -------------------------------------------------------------------------------------- 06b4 ; Debug chain 06b4 ; -------------------------------------------------------------------------------------- 06b4 0001 0002 | | .DBGLEN 0x0001,0x0002 06b6 048b 048e | | .DBGLNO 0x048b,0x048e,0x0492 06b9 ; -------------------------------------------------------------------------------------- 06b9 ; Debug chain 06b9 ; -------------------------------------------------------------------------------------- 06b9 0004 0005 | | .DBGLEN 0x0004,0x0005 06bb 049b 04a2 | | .DBGLNO 0x049b,0x04a2,0x04a6,0x04b1,0x04b2,0x04b7,0x04b9,0x04bd,0x04c8 06c4 ; -------------------------------------------------------------------------------------- 06c4 ; Debug chain 06c4 ; -------------------------------------------------------------------------------------- 06c4 0004 0005 | | .DBGLEN 0x0004,0x0005 06c6 04db 04e2 | | .DBGLNO 0x04db,0x04e2,0x04e6,0x04f1,0x04f2,0x04f7,0x04f9,0x04fd,0x0508 06cf 0000 0000 | | .BLANK 0000[0x131]