|
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 - metrics - 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 For_Outer_Call,Visible,Unelaborated,INIT_0080
003b 029a 0123 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0120
003d 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140
003f 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
0041 029a 016b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0168
0043 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
0045 029a 01e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e0
0047 029a 01f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f0
0049 029a 0203 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0200
004b 029a 0213 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0210
004d 029a 0223 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0220
004f 029a 02ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02a8
0051 029a 032b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0328
0053 029a 03c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03c0
0055 029a 03db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03d8
0057 029a 0473 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0470
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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,0x2
013c TRAP_0120:
013c 0007 | | Action Break_Optional
013d 4800 |H | Short_Literal 0x0
013e 4402 |D | Exit_Subprogram With_Result,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 For_Call,INIT_0488
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_Result,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_Result,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_Result,0x1
0194 4800 |H | Short_Literal 0x0
0195 4401 |D | Exit_Subprogram With_Result,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_Result,0x1
01d4 4800 |H | Short_Literal 0x0
01d5 4401 |D | Exit_Subprogram With_Result,0x1
01d6 4800 |H | Short_Literal 0x0
01d7 4401 |D | Exit_Subprogram With_Result,0x1
01d8 4800 |H | Short_Literal 0x0
01d9 4401 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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 For_Call,INIT_0498
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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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 For_Call,INIT_04d8
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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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]