|
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: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1060f5
└─⟦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 0aa0 | | .CONST 0x0aa0 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0164 | d | .CONST 0x0164 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0089 | | .CONST 0x0089 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 00c4 | | Action Make_Default
003b 00c4 | | Action Make_Default
003c 00c4 | | Action Make_Default
003d 00c4 | | Action Make_Default
003e 00c4 | | Action Make_Default
003f 00c4 | | Action Make_Default
0040 00c4 | | Action Make_Default
0041 00c4 | | Action Make_Default
0042 00c4 | | Action Make_Default
0043 00c4 | | Action Make_Default
0044 00c4 | | Action Make_Default
0045 00c4 | | Action Make_Default
0046 00c4 | | Action Make_Default
0047 00c4 | | Action Make_Default
0048 00c4 | | Action Make_Default
0049 00c4 | | Action Make_Default
004a 00c4 | | Action Make_Default
004b 00c4 | | Action Make_Default
004c 00c4 | | Action Make_Default
004d 00c4 | | Action Make_Default
004e 00c4 | | Action Make_Default
004f 00c4 | | Action Make_Default
0050 00c4 | | Action Make_Default
0051 00c4 | | Action Make_Default
0052 00c4 | | Action Make_Default
0053 00c4 | | Action Make_Default
0054 00c4 | | Action Make_Default
0055 00c4 | | Action Make_Default
0056 00c4 | | Action Make_Default
0057 00c4 | | Action Make_Default
0058 00c4 | | Action Make_Default
0059 00c4 | | Action Make_Default
005a 00c4 | | Action Make_Default
005b 00c4 | | Action Make_Default
005c 00c4 | | Action Make_Default
005d 00c4 | | Action Make_Default
005e 00c4 | | Action Make_Default
005f 00c4 | | Action Make_Default
0060 00c4 | | Action Make_Default
0061 00c4 | | Action Make_Default
0062 00c4 | | Action Make_Default
0063 00c4 | | Action Make_Default
0064 00c4 | | Action Make_Default
0065 00c4 | | Action Make_Default
0066 00c4 | | Action Make_Default
0067 00c4 | | Action Make_Default
0068 00c4 | | Action Make_Default
0069 00c4 | | Action Make_Default
006a 00c4 | | Action Make_Default
006b 00c4 | | Action Make_Default
006c 00c4 | | Action Make_Default
006d 00c4 | | Action Make_Default
006e 00c4 | | Action Make_Default
006f 00c4 | | Action Make_Default
0070 00c4 | | Action Make_Default
0071 00c4 | | Action Make_Default
0072 00c4 | | Action Make_Default
0073 00c4 | | Action Make_Default
0074 00c4 | | Action Make_Default
0075 00c4 | | Action Make_Default
0076 00c4 | | Action Make_Default
0077 00c4 | | Action Make_Default
0078 00c4 | | Action Make_Default
0079 00c4 | | Action Make_Default
007a 00c4 | | Action Make_Default
007b 00c4 | | Action Make_Default
007c 00c4 | | Action Make_Default
007d e001 | | Load 0x0,0x1
007e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0080 0129 | ) | Execute Any,Make_Visible
0081 c25e | ^ | Store 0x1,0x5e
0082 e001 | | Load 0x0,0x1
0083 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0084 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0085 0129 | ) | Execute Any,Make_Visible
0086 c25f | _ | Store 0x1,0x5f
0087 e002 | | Load 0x0,0x2
0088 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0089 0129 | ) | Execute Any,Make_Visible
008a c229 | ) | Store 0x1,0x29
008b e002 | | Load 0x0,0x2
008c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008d 0129 | ) | Execute Any,Make_Visible
008e c22a | * | Store 0x1,0x2a
008f e002 | | Load 0x0,0x2
0090 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0091 0129 | ) | Execute Any,Make_Visible
0092 c22b | + | Store 0x1,0x2b
0093 e002 | | Load 0x0,0x2
0094 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0095 0129 | ) | Execute Any,Make_Visible
0096 c260 | ` | Store 0x1,0x60
0097 e002 | | Load 0x0,0x2
0098 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0099 0129 | ) | Execute Any,Make_Visible
009a c261 | a | Store 0x1,0x61
009b e001 | | Load 0x0,0x1
009c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
009d 0129 | ) | Execute Any,Make_Visible
009e c278 | x | Store 0x1,0x78
009f 4800 |H | Short_Literal 0x0
00a0 4801 |H | Short_Literal 0x1
00a1 029f 016b | k| Declare_Subprogram For_Call,INIT_0168
00a3 03fe | | Declare_Type Discrete,Defined,Visible
00a4 c23e | > | Store 0x1,0x3e
00a5 e23e | > | Load 0x1,0x3e
00a6 4801 |H | Short_Literal 0x1
00a7 4900 |I | Short_Literal 0x100
00a8 e002 | | Load 0x0,0x2
00a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00aa 1c07 | | Execute_Immediate Run_Utility,0x7
00ab 0129 | ) | Execute Any,Make_Visible
00ac 029f 090b | | Declare_Subprogram For_Call,INIT_0908
00ae 4801 |H | Short_Literal 0x1
00af 4800 |H | Short_Literal 0x0
00b0 4801 |H | Short_Literal 0x1
00b1 4800 |H | Short_Literal 0x0
00b2 4801 |H | Short_Literal 0x1
00b3 031e | | Declare_Type Variant_Record,Defined,Visible
00b4 c24a | J | Store 0x1,0x4a
00b5 029a 0193 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0190
00b7 c24b | K | Store 0x1,0x4b
00b8 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
00ba c25d | ] | Store 0x1,0x5d
00bb 029a 0203 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0200
00bd c24d | M | Store 0x1,0x4d
00be 029a 022b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0228
00c0 c24e | N | Store 0x1,0x4e
00c1 029a 024b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0248
00c3 c250 | P | Store 0x1,0x50
00c4 029a 0263 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0260
00c6 c263 | c | Store 0x1,0x63
00c7 029a 0283 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0280
00c9 c27e | ~ | Store 0x1,0x7e
00ca 029a 02a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02a0
00cc c265 | e | Store 0x1,0x65
00cd 029a 02cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02c8
00cf c277 | w | Store 0x1,0x77
00d0 029a 02e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e0
00d2 c24f | O | Store 0x1,0x4f
00d3 029a 0303 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0300
00d5 c270 | p | Store 0x1,0x70
00d6 029a 034b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0348
00d8 c271 | q | Store 0x1,0x71
00d9 029a 0363 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0360
00db c252 | R | Store 0x1,0x52
00dc 029a 037b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0378
00de c253 | S | Store 0x1,0x53
00df 029a 039b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0398
00e1 c254 | T | Store 0x1,0x54
00e2 029a 03b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03b0
00e4 c27d | } | Store 0x1,0x7d
00e5 029a 046b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0468
00e7 c27c | | | Store 0x1,0x7c
00e8 029a 049b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0498
00ea c272 | r | Store 0x1,0x72
00eb 029a 04b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04b0
00ed c276 | v | Store 0x1,0x76
00ee 029a 04cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04c8
00f0 c273 | s | Store 0x1,0x73
00f1 029a 04eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04e8
00f3 c274 | t | Store 0x1,0x74
00f4 029a 0513 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0510
00f6 c26d | m | Store 0x1,0x6d
00f7 029a 052b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0528
00f9 c26e | n | Store 0x1,0x6e
00fa 029a 05eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05e8
00fc c21f | | Store 0x1,0x1f
00fd 029a 05fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05f8
00ff c25c | \ | Store 0x1,0x5c
0100 029a 062b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0628
0102 c279 | y | Store 0x1,0x79
0103 029a 065b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0658
0105 c27a | z | Store 0x1,0x7a
0106 029a 0683 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0680
0108 c27b | { | Store 0x1,0x7b
0109 00bf | | Action Accept_Activation
010a 4800 |H | Short_Literal 0x0
010b 4802 |H | Short_Literal 0x2
010c 029f 0723 | #| Declare_Subprogram For_Call,INIT_0720
010e 03fd | | Declare_Type Discrete,Defined
010f 00d8 | | Load_Top At_Offset_0
0110 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0111 e003 | | Load 0x0,0x3
0112 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0113 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0114 02c7 | | Declare_Variable Any
0115 e003 | | Load 0x0,0x3
0116 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0117 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0118 a281 | | Store_Unchecked 0x1,0x81
0119 4800 |H | Short_Literal 0x0
011a e24a | J | Load 0x1,0x4a
011b 1c08 | | Execute_Immediate Run_Utility,0x8
011c 00d8 | | Load_Top At_Offset_0
011d 1c01 | | Execute_Immediate Run_Utility,0x1
011e 029d 074b | K| Declare_Subprogram For_Outer_Call,INIT_0748
0120 029d 0763 | c| Declare_Subprogram For_Outer_Call,INIT_0760
0122 029d 07fb | | Declare_Subprogram For_Outer_Call,INIT_07f8
0124 029d 080b | | Declare_Subprogram For_Outer_Call,INIT_0808
0126 029d 0823 | #| Declare_Subprogram For_Outer_Call,INIT_0820
0128 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
0129 00c7 | | Action Elaborate_Subprogram
012a 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
012b 00c7 | | Action Elaborate_Subprogram
012c 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d
012d 00c7 | | Action Elaborate_Subprogram
012e 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
012f 00c7 | | Action Elaborate_Subprogram
0130 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
0131 00c7 | | Action Elaborate_Subprogram
0132 1d63 | c | Execute_Immediate Reference_Lex_1,0x63
0133 00c7 | | Action Elaborate_Subprogram
0134 e004 | | Load 0x0,0x4
0135 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0136 1d7e | ~ | Execute_Immediate Reference_Lex_1,0x7e
0137 00c7 | | Action Elaborate_Subprogram
0138 1d65 | e | Execute_Immediate Reference_Lex_1,0x65
0139 00c7 | | Action Elaborate_Subprogram
013a e005 | | Load 0x0,0x5
013b 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
013c 1d77 | w | Execute_Immediate Reference_Lex_1,0x77
013d 00c7 | | Action Elaborate_Subprogram
013e 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f
013f 00c7 | | Action Elaborate_Subprogram
0140 1d70 | p | Execute_Immediate Reference_Lex_1,0x70
0141 00c7 | | Action Elaborate_Subprogram
0142 1d71 | q | Execute_Immediate Reference_Lex_1,0x71
0143 00c7 | | Action Elaborate_Subprogram
0144 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
0145 00c7 | | Action Elaborate_Subprogram
0146 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
0147 00c7 | | Action Elaborate_Subprogram
0148 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
0149 00c7 | | Action Elaborate_Subprogram
014a 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d
014b 00c7 | | Action Elaborate_Subprogram
014c 1d7c | | | Execute_Immediate Reference_Lex_1,0x7c
014d 00c7 | | Action Elaborate_Subprogram
014e 1d72 | r | Execute_Immediate Reference_Lex_1,0x72
014f 00c7 | | Action Elaborate_Subprogram
0150 1d76 | v | Execute_Immediate Reference_Lex_1,0x76
0151 00c7 | | Action Elaborate_Subprogram
0152 1d73 | s | Execute_Immediate Reference_Lex_1,0x73
0153 00c7 | | Action Elaborate_Subprogram
0154 1d74 | t | Execute_Immediate Reference_Lex_1,0x74
0155 00c7 | | Action Elaborate_Subprogram
0156 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d
0157 00c7 | | Action Elaborate_Subprogram
0158 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e
0159 00c7 | | Action Elaborate_Subprogram
015a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
015b 00c7 | | Action Elaborate_Subprogram
015c 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c
015d 00c7 | | Action Elaborate_Subprogram
015e 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
015f 00c7 | | Action Elaborate_Subprogram
0160 1d7a | z | Execute_Immediate Reference_Lex_1,0x7a
0161 00c7 | | Action Elaborate_Subprogram
0162 1d7b | { | Execute_Immediate Reference_Lex_1,0x7b
0163 00c7 | | Action Elaborate_Subprogram
0164 BODY_0008:
0164 00bc | | Action Signal_Activated
0165 00bb | | Action Signal_Completion
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 4607 |F | Jump_Case 0x7
016c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
016d 7806 |x | Jump 0x174 ; case 0x1
016e 7809 |x | Jump 0x178 ; case 0x2
016f 780d |x | Jump 0x17d ; case 0x3
0170 7810 |x | Jump 0x181 ; case 0x4
0171 7811 |x | Jump 0x183 ; case 0x5
0172 7812 |x | Jump 0x185 ; case 0x6
0173 7815 |x | Jump 0x189 ; case 0x7
0174 00da | | Load_Top At_Offset_2
0175 0091 094b | K| Action Push_String_Extended_Indexed,0x94b ; "ES_OK"
0177 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0178 00db | | Load_Top At_Offset_3
0179 00db | | Load_Top At_Offset_3
017a 00e0 | | Load_Encached Standard_Cache
017b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
017c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
017d 00da | | Load_Top At_Offset_2
017e 00e0 | | Load_Encached Standard_Cache
017f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0180 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0181 00db | | Load_Top At_Offset_3
0182 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0183 00db | | Load_Top At_Offset_3
0184 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0185 e23e | > | Load 0x1,0x3e
0186 00dc | | Load_Top At_Offset_4
0187 0267 | g | Execute Discrete,Predecessor
0188 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0189 e23e | > | Load 0x1,0x3e
018a 00dc | | Load_Top At_Offset_4
018b 0268 | h | Execute Discrete,Successor
018c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 019c | | .CONST 0x019c ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00e1 | | Load_Encached Boolean_Cache
0194 e5fd | | Load 0x2,-0x3
0195 e5fe | | Load 0x2,-0x2
0196 e5ff | | Load 0x2,-0x1
0197 e001 | | Load 0x0,0x1
0198 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0199 00d2 | | Pop_Control Pop_Count_2
019a c5fc | | Store 0x2,-0x4
019b 4502 |E | Exit_Subprogram 0x2
019c TRAP_0190:
019c e006 | | Load 0x0,0x6
019d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
019e 010f | | Execute Exception,Equal
019f 6802 |h | Jump_Zero 0x1a2
01a0 00d8 | | Load_Top At_Offset_0
01a1 0101 | | Execute Exception,Reraise
01a2 4801 |H | Short_Literal 0x1
01a3 e007 | | Load 0x0,0x7
01a4 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
01a5 4502 |E | Exit_Subprogram 0x2
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ba | | .CONST 0x01ba ; Address of begin
01a9 01e7 | | .CONST 0x01e7 ; Address of exception handler
01aa 0004 | | .CONST 0x0004 ; Number of locals
01ab INIT_01a8:
01ab e003 | | Load 0x0,0x3
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ae 02c7 | | Declare_Variable Any
01af 00d8 | | Load_Top At_Offset_0
01b0 1c00 | | Execute_Immediate Run_Utility,0x0
01b1 e003 | | Load 0x0,0x3
01b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b3 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
01b4 02c7 | | Declare_Variable Any
01b5 00d8 | | Load_Top At_Offset_0
01b6 1c00 | | Execute_Immediate Run_Utility,0x0
01b7 e003 | | Load 0x0,0x3
01b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b9 1b44 | D | Execute Package,Field_Read,Field_Number 0x44
01ba BODY_01a8:
01ba 8287 | | Call 0x1,0x87
01bb e5fe | | Load 0x2,-0x2
01bc e5ff | | Load 0x2,-0x1
01bd e002 | | Load 0x0,0x2
01be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01bf e008 | | Load 0x0,0x8
01c0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01c1 e002 | | Load 0x0,0x2
01c2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c3 00d1 | | Pop_Control Pop_Count_1
01c4 4502 |E | Exit_Subprogram 0x2
01c5 0950 e007 | P | .XXX[0x22]
01c7 1844 4502 | DE |
01c9 0950 e007 | P |
01cb 1836 4502 | 6E |
01cd 0951 e5ff | Q |
01cf e002 1813 | |
01d1 0092 0950 | P|
01d3 e007 183d | =|
01d5 4502 0950 |E P|
01d7 e007 1837 | 7|
01d9 4502 0951 |E Q|
01db e5ff e002 | |
01dd 1813 0092 | |
01df 0950 e007 | P |
01e1 1839 4502 | 9E |
01e3 0950 e007 | P |
01e5 183b 4502 | ;E |
01e7 TRAP_01a8:
01e7 e008 | | Load 0x0,0x8
01e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e9 010f | | Execute Exception,Equal
01ea 6809 |h | Jump_Zero 0x1f4
01eb 4801 |H | Short_Literal 0x1
01ec e5ff | | Load 0x2,-0x1
01ed e002 | | Load 0x0,0x2
01ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ef 0092 0950 | P| Action Push_String_Extended,0x950 ; "object"
01f1 e007 | | Load 0x0,0x7
01f2 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
01f3 4502 |E | Exit_Subprogram 0x2
01f4 e006 | | Load 0x0,0x6
01f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f6 010f | | Execute Exception,Equal
01f7 6802 |h | Jump_Zero 0x1fa
01f8 00d8 | | Load_Top At_Offset_0
01f9 0101 | | Execute Exception,Reraise
01fa 4801 |H | Short_Literal 0x1
01fb e007 | | Load 0x0,0x7
01fc 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
01fd 4502 |E | Exit_Subprogram 0x2
01fe 0000 0000 | | .XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0209 | | .CONST 0x0209 ; Address of begin
0201 021e | | .CONST 0x021e ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 e003 | | Load 0x0,0x3
0204 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0205 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0206 02c7 | | Declare_Variable Any
0207 00d8 | | Load_Top At_Offset_0
0208 1c00 | | Execute_Immediate Run_Utility,0x0
0209 BODY_0200:
0209 e009 | | Load 0x0,0x9
020a 180e | | Execute Package,Field_Execute,Field_Number 0xe
020b 4800 |H | Short_Literal 0x0
020c 0092 0952 | R| Action Push_String_Extended,0x952 ; "Getting diagram name "
020e e5ff | | Load 0x2,-0x1
020f e002 | | Load 0x0,0x2
0210 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0211 e00a | | Load 0x0,0xa
0212 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0213 01cc | | Execute Vector,Catenate
0214 e00b | | Load 0x0,0xb
0215 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0216 e001 | | Load 0x0,0x1
0217 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0218 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0219 e5ff | | Load 0x2,-0x1
021a e001 | | Load 0x0,0x1
021b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
021c c5fe | | Store 0x2,-0x2
021d 4502 |E | Exit_Subprogram 0x2
021e TRAP_0200:
021e e006 | | Load 0x0,0x6
021f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0220 010f | | Execute Exception,Equal
0221 6802 |h | Jump_Zero 0x224
0222 00d8 | | Load_Top At_Offset_0
0223 0101 | | Execute Exception,Reraise
0224 4801 |H | Short_Literal 0x1
0225 e007 | | Load 0x0,0x7
0226 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0227 4502 |E | Exit_Subprogram 0x2
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 023d | = | .CONST 0x023d ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b e009 | | Load 0x0,0x9
022c 180e | | Execute Package,Field_Execute,Field_Number 0xe
022d 4800 |H | Short_Literal 0x0
022e 0092 0953 | S| Action Push_String_Extended,0x953 ; "Storing diagram name "
0230 e5ff | | Load 0x2,-0x1
0231 e002 | | Load 0x0,0x2
0232 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0233 e00a | | Load 0x0,0xa
0234 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0235 01cc | | Execute Vector,Catenate
0236 e00b | | Load 0x0,0xb
0237 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0238 00db | | Load_Top At_Offset_3
0239 00db | | Load_Top At_Offset_3
023a e001 | | Load 0x0,0x1
023b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
023c 4503 |E | Exit_Subprogram 0x3
023d TRAP_0228:
023d e006 | | Load 0x0,0x6
023e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023f 010f | | Execute Exception,Equal
0240 6802 |h | Jump_Zero 0x243
0241 00d8 | | Load_Top At_Offset_0
0242 0101 | | Execute Exception,Reraise
0243 4801 |H | Short_Literal 0x1
0244 e007 | | Load 0x0,0x7
0245 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0246 4503 |E | Exit_Subprogram 0x3
0247 0000 | | .XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0250 | P | .CONST 0x0250 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00db | | Load_Top At_Offset_3
024c 00db | | Load_Top At_Offset_3
024d e001 | | Load 0x0,0x1
024e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
024f 4503 |E | Exit_Subprogram 0x3
0250 TRAP_0248:
0250 e006 | | Load 0x0,0x6
0251 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0252 010f | | Execute Exception,Equal
0253 6802 |h | Jump_Zero 0x256
0254 00d8 | | Load_Top At_Offset_0
0255 0101 | | Execute Exception,Reraise
0256 4801 |H | Short_Literal 0x1
0257 e007 | | Load 0x0,0x7
0258 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0259 4503 |E | Exit_Subprogram 0x3
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0276 | v | .CONST 0x0276 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 e009 | | Load 0x0,0x9
0264 180e | | Execute Package,Field_Execute,Field_Number 0xe
0265 4800 |H | Short_Literal 0x0
0266 0092 0954 | T| Action Push_String_Extended,0x954 ; "Storing print file name "
0268 e5ff | | Load 0x2,-0x1
0269 e002 | | Load 0x0,0x2
026a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
026b e00a | | Load 0x0,0xa
026c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
026d 01cc | | Execute Vector,Catenate
026e e00b | | Load 0x0,0xb
026f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0270 e5fd | | Load 0x2,-0x3
0271 e5fe | | Load 0x2,-0x2
0272 e5ff | | Load 0x2,-0x1
0273 e001 | | Load 0x0,0x1
0274 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0275 4504 |E | Exit_Subprogram 0x4
0276 TRAP_0260:
0276 e006 | | Load 0x0,0x6
0277 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0278 010f | | Execute Exception,Equal
0279 6802 |h | Jump_Zero 0x27c
027a 00d8 | | Load_Top At_Offset_0
027b 0101 | | Execute Exception,Reraise
027c 4801 |H | Short_Literal 0x1
027d e007 | | Load 0x0,0x7
027e 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
027f 4504 |E | Exit_Subprogram 0x4
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 028f | | .CONST 0x028f ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 e280 | | Load 0x1,0x80
0284 7003 |p | Jump_Nonzero 0x288
0285 e280 | | Load 0x1,0x80
0286 8284 | | Call 0x1,0x84
0287 c280 | | Store 0x1,0x80
0288 e5fc | | Load 0x2,-0x4
0289 e280 | | Load 0x1,0x80
028a e5fd | | Load 0x2,-0x3
028b e5fe | | Load 0x2,-0x2
028c e5ff | | Load 0x2,-0x1
028d 8288 | | Call 0x1,0x88
028e 4505 |E | Exit_Subprogram 0x5
028f TRAP_0280:
028f e006 | | Load 0x0,0x6
0290 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0291 010f | | Execute Exception,Equal
0292 6802 |h | Jump_Zero 0x295
0293 00d8 | | Load_Top At_Offset_0
0294 0101 | | Execute Exception,Reraise
0295 4801 |H | Short_Literal 0x1
0296 e007 | | Load 0x0,0x7
0297 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0298 4505 |E | Exit_Subprogram 0x5
0299 0000 0000 | | .BLANK 0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 02b8 | | .CONST 0x02b8 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 e5fd | | Load 0x2,-0x3
02a4 00db | | Load_Top At_Offset_3
02a5 e002 | | Load 0x0,0x2
02a6 180f | | Execute Package,Field_Execute,Field_Number 0xf
02a7 00d1 | | Pop_Control Pop_Count_1
02a8 00db | | Load_Top At_Offset_3
02a9 6807 |h | Jump_Zero 0x2b1
02aa e5fd | | Load 0x2,-0x3
02ab 0092 0955 | U| Action Push_String_Extended,0x955 ; "_mil"
02ad e002 | | Load 0x0,0x2
02ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02af 00d1 | | Pop_Control Pop_Count_1
02b0 4503 |E | Exit_Subprogram 0x3
02b1 e5fd | | Load 0x2,-0x3
02b2 0092 0956 | V| Action Push_String_Extended,0x956 ; "_ps"
02b4 e002 | | Load 0x0,0x2
02b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02b6 00d1 | | Pop_Control Pop_Count_1
02b7 4503 |E | Exit_Subprogram 0x3
02b8 TRAP_02a0:
02b8 e006 | | Load 0x0,0x6
02b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ba 010f | | Execute Exception,Equal
02bb 6802 |h | Jump_Zero 0x2be
02bc 00d8 | | Load_Top At_Offset_0
02bd 0101 | | Execute Exception,Reraise
02be 4801 |H | Short_Literal 0x1
02bf e007 | | Load 0x0,0x7
02c0 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
02c1 4503 |E | Exit_Subprogram 0x3
02c2 0000 0000 | | .BLANK 0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 02d6 | | .CONST 0x02d6 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb e280 | | Load 0x1,0x80
02cc 7003 |p | Jump_Nonzero 0x2d0
02cd e280 | | Load 0x1,0x80
02ce 8284 | | Call 0x1,0x84
02cf c280 | | Store 0x1,0x80
02d0 e280 | | Load 0x1,0x80
02d1 e25f | _ | Load 0x1,0x5f
02d2 8289 | | Call 0x1,0x89
02d3 c5ff | | Store 0x2,-0x1
02d4 c280 | | Store 0x1,0x80
02d5 4501 |E | Exit_Subprogram 0x1
02d6 TRAP_02c8:
02d6 e006 | | Load 0x0,0x6
02d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d8 010f | | Execute Exception,Equal
02d9 6802 |h | Jump_Zero 0x2dc
02da 00d8 | | Load_Top At_Offset_0
02db 0101 | | Execute Exception,Reraise
02dc 4801 |H | Short_Literal 0x1
02dd e007 | | Load 0x0,0x7
02de 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
02df 4501 |E | Exit_Subprogram 0x1
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e8 | | .CONST 0x02e8 ; Address of begin
02e1 02f1 | | .CONST 0x02f1 ; Address of exception handler
02e2 0002 | | .CONST 0x0002 ; Number of locals
02e3 INIT_02e0:
02e3 4900 |I | Short_Literal 0x100
02e4 e22a | * | Load 0x1,0x2a
02e5 1c08 | | Execute_Immediate Run_Utility,0x8
02e6 00d8 | | Load_Top At_Offset_0
02e7 1c00 | | Execute_Immediate Run_Utility,0x0
02e8 BODY_02e0:
02e8 00d8 | | Load_Top At_Offset_0
02e9 e5ff | | Load 0x2,-0x1
02ea 825d | ] | Call 0x1,0x5d
02eb 00d1 | | Pop_Control Pop_Count_1
02ec e5fe | | Load 0x2,-0x2
02ed 00d9 | | Load_Top At_Offset_1
02ee e001 | | Load 0x0,0x1
02ef 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02f0 4502 |E | Exit_Subprogram 0x2
02f1 TRAP_02e0:
02f1 e006 | | Load 0x0,0x6
02f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02f3 010f | | Execute Exception,Equal
02f4 6802 |h | Jump_Zero 0x2f7
02f5 00d8 | | Load_Top At_Offset_0
02f6 0101 | | Execute Exception,Reraise
02f7 4801 |H | Short_Literal 0x1
02f8 e007 | | Load 0x0,0x7
02f9 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
02fa 4502 |E | Exit_Subprogram 0x2
02fb 0000 0000 | | .BLANK 0000[0x5]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0314 | | .CONST 0x0314 ; Address of begin
0301 033c | < | .CONST 0x033c ; Address of exception handler
0302 0004 | | .CONST 0x0004 ; Number of locals
0303 INIT_0300:
0303 e00c | | Load 0x0,0xc
0304 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0305 02c7 | | Declare_Variable Any
0306 e00d | | Load 0x0,0xd
0307 180e | | Execute Package,Field_Execute,Field_Number 0xe
0308 e00c | | Load 0x0,0xc
0309 1b13 | | Execute Package,Field_Read,Field_Number 0x13
030a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
030b a402 | | Store_Unchecked 0x2,0x2
030c 00d8 | | Load_Top At_Offset_0
030d e00c | | Load 0x0,0xc
030e 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
030f e00e | | Load 0x0,0xe
0310 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0311 03f1 | | Declare_Variable Discrete,With_Value
0312 e00f | | Load 0x0,0xf
0313 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0314 BODY_0300:
0314 00d9 | | Load_Top At_Offset_1
0315 e00f | | Load 0x0,0xf
0316 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0317 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0318 e009 | | Load 0x0,0x9
0319 180e | | Execute Package,Field_Execute,Field_Number 0xe
031a 4800 |H | Short_Literal 0x0
031b 0092 0957 | W| Action Push_String_Extended,0x957 ; "Common.Definition of object "
031d e5ff | | Load 0x2,-0x1
031e e002 | | Load 0x0,0x2
031f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0320 e00a | | Load 0x0,0xa
0321 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0322 01cc | | Execute Vector,Catenate
0323 e00b | | Load 0x0,0xb
0324 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0325 8010 | | Call 0x0,0x10
0326 0092 0958 | X| Action Push_String_Extended,0x958 ; "<PROFILE>"
0328 0092 0959 | Y| Action Push_String_Extended,0x959 ; "$"
032a 0092 095a | Z| Action Push_String_Extended,0x95a ; "Common.Definition (\x22"
032c e5ff | | Load 0x2,-0x1
032d e002 | | Load 0x0,0x2
032e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
032f 01cc | | Execute Vector,Catenate
0330 0092 095b | [| Action Push_String_Extended,0x95b ; "\x22)"
0332 01cc | | Execute Vector,Catenate
0333 e011 | | Load 0x0,0x11
0334 180f | | Execute Package,Field_Execute,Field_Number 0xf
0335 00d8 | | Load_Top At_Offset_0
0336 0e02 | | Execute_Immediate Not_Equal,0x2
0337 6803 |h | Jump_Zero 0x33b
0338 00d9 | | Load_Top At_Offset_1
0339 e012 | | Load 0x0,0x12
033a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
033b 4502 |E | Exit_Subprogram 0x2
033c TRAP_0300:
033c e006 | | Load 0x0,0x6
033d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
033e 010f | | Execute Exception,Equal
033f 6802 |h | Jump_Zero 0x342
0340 00d8 | | Load_Top At_Offset_0
0341 0101 | | Execute Exception,Reraise
0342 4801 |H | Short_Literal 0x1
0343 e007 | | Load 0x0,0x7
0344 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0345 4502 |E | Exit_Subprogram 0x2
0346 0000 0000 | | .XXX[0x2]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 034f | O | .CONST 0x034f ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 4801 |H | Short_Literal 0x1
034c e007 | | Load 0x0,0x7
034d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
034e 4502 |E | Exit_Subprogram 0x2
034f TRAP_0348:
034f e006 | | Load 0x0,0x6
0350 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0351 010f | | Execute Exception,Equal
0352 6802 |h | Jump_Zero 0x355
0353 00d8 | | Load_Top At_Offset_0
0354 0101 | | Execute Exception,Reraise
0355 4801 |H | Short_Literal 0x1
0356 e007 | | Load 0x0,0x7
0357 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0358 4502 |E | Exit_Subprogram 0x2
0359 0000 0000 | | .BLANK 0000[0x7]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0367 | g | .CONST 0x0367 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 4801 |H | Short_Literal 0x1
0364 e007 | | Load 0x0,0x7
0365 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0366 4502 |E | Exit_Subprogram 0x2
0367 TRAP_0360:
0367 e006 | | Load 0x0,0x6
0368 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0369 010f | | Execute Exception,Equal
036a 6802 |h | Jump_Zero 0x36d
036b 00d8 | | Load_Top At_Offset_0
036c 0101 | | Execute Exception,Reraise
036d 4801 |H | Short_Literal 0x1
036e e007 | | Load 0x0,0x7
036f 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0370 4502 |E | Exit_Subprogram 0x2
0371 0000 0000 | | .BLANK 0000[0x7]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 038c | | .CONST 0x038c ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b e009 | | Load 0x0,0x9
037c 180e | | Execute Package,Field_Execute,Field_Number 0xe
037d 4800 |H | Short_Literal 0x0
037e 0092 095c | \| Action Push_String_Extended,0x95c ; "Deleting diagram name "
0380 e5ff | | Load 0x2,-0x1
0381 e002 | | Load 0x0,0x2
0382 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0383 e00a | | Load 0x0,0xa
0384 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0385 01cc | | Execute Vector,Catenate
0386 e00b | | Load 0x0,0xb
0387 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0388 00da | | Load_Top At_Offset_2
0389 e001 | | Load 0x0,0x1
038a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
038b 4502 |E | Exit_Subprogram 0x2
038c TRAP_0378:
038c e006 | | Load 0x0,0x6
038d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038e 010f | | Execute Exception,Equal
038f 6802 |h | Jump_Zero 0x392
0390 00d8 | | Load_Top At_Offset_0
0391 0101 | | Execute Exception,Reraise
0392 4801 |H | Short_Literal 0x1
0393 e007 | | Load 0x0,0x7
0394 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0395 4502 |E | Exit_Subprogram 0x2
0396 0000 0000 | | .XXX[0x2]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 039f | | .CONST 0x039f ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 4801 |H | Short_Literal 0x1
039c e007 | | Load 0x0,0x7
039d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
039e 4502 |E | Exit_Subprogram 0x2
039f TRAP_0398:
039f e006 | | Load 0x0,0x6
03a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a1 010f | | Execute Exception,Equal
03a2 6802 |h | Jump_Zero 0x3a5
03a3 00d8 | | Load_Top At_Offset_0
03a4 0101 | | Execute Exception,Reraise
03a5 4801 |H | Short_Literal 0x1
03a6 e007 | | Load 0x0,0x7
03a7 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
03a8 4502 |E | Exit_Subprogram 0x2
03a9 0000 0000 | | .BLANK 0000[0x7]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03cb | | .CONST 0x03cb ; Address of begin
03b1 0450 | P | .CONST 0x0450 ; Address of exception handler
03b2 0005 | | .CONST 0x0005 ; Number of locals
03b3 INIT_03b0:
03b3 4900 |I | Short_Literal 0x100
03b4 e002 | | Load 0x0,0x2
03b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b6 1c08 | | Execute_Immediate Run_Utility,0x8
03b7 00d8 | | Load_Top At_Offset_0
03b8 1c00 | | Execute_Immediate Run_Utility,0x0
03b9 4900 |I | Short_Literal 0x100
03ba e002 | | Load 0x0,0x2
03bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03bc 1c08 | | Execute_Immediate Run_Utility,0x8
03bd 00d8 | | Load_Top At_Offset_0
03be 1c00 | | Execute_Immediate Run_Utility,0x0
03bf e003 | | Load 0x0,0x3
03c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c1 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
03c2 02c7 | | Declare_Variable Any
03c3 00d8 | | Load_Top At_Offset_0
03c4 1c00 | | Execute_Immediate Run_Utility,0x0
03c5 e003 | | Load 0x0,0x3
03c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c8 02c7 | | Declare_Variable Any
03c9 00d8 | | Load_Top At_Offset_0
03ca 1c00 | | Execute_Immediate Run_Utility,0x0
03cb BODY_03b0:
03cb e5ff | | Load 0x2,-0x1
03cc e002 | | Load 0x0,0x2
03cd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03ce 7009 |p | Jump_Nonzero 0x3d8
03cf 00db | | Load_Top At_Offset_3
03d0 e281 | | Load 0x1,0x81
03d1 e003 | | Load 0x0,0x3
03d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d3 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03d4 e002 | | Load 0x0,0x2
03d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03d6 00d1 | | Pop_Control Pop_Count_1
03d7 7821 |x! | Jump 0x3f9
03d8 4801 |H | Short_Literal 0x1
03d9 e5ff | | Load 0x2,-0x1
03da e002 | | Load 0x0,0x2
03db 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03dc 0f21 | ! | Execute_Immediate Equal,0x21
03dd 680a |h | Jump_Zero 0x3e8
03de 00db | | Load_Top At_Offset_3
03df e5ff | | Load 0x2,-0x1
03e0 e002 | | Load 0x0,0x2
03e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e2 e00a | | Load 0x0,0xa
03e3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03e4 e002 | | Load 0x0,0x2
03e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e6 00d1 | | Pop_Control Pop_Count_1
03e7 7811 |x | Jump 0x3f9
03e8 00db | | Load_Top At_Offset_3
03e9 e281 | | Load 0x1,0x81
03ea e003 | | Load 0x0,0x3
03eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ec 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03ed 0092 095d | ]| Action Push_String_Extended,0x95d ; "."
03ef 01cc | | Execute Vector,Catenate
03f0 e5ff | | Load 0x2,-0x1
03f1 e002 | | Load 0x0,0x2
03f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f3 e00a | | Load 0x0,0xa
03f4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03f5 01cc | | Execute Vector,Catenate
03f6 e002 | | Load 0x0,0x2
03f7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03f8 00d1 | | Pop_Control Pop_Count_1
03f9 8287 | | Call 0x1,0x87
03fa 4801 |H | Short_Literal 0x1
03fb e003 | | Load 0x0,0x3
03fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03fe e5ff | | Load 0x2,-0x1
03ff e002 | | Load 0x0,0x2
0400 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0401 e003 | | Load 0x0,0x3
0402 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0403 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0404 c404 | | Store 0x2,0x4
0405 00d9 | | Load_Top At_Offset_1
0406 e003 | | Load 0x0,0x3
0407 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0408 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0409 c405 | | Store 0x2,0x5
040a 00da | | Load_Top At_Offset_2
040b 00da | | Load_Top At_Offset_2
040c e003 | | Load 0x0,0x3
040d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
040e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
040f e002 | | Load 0x0,0x2
0410 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0411 00d1 | | Pop_Control Pop_Count_1
0412 00da | | Load_Top At_Offset_2
0413 e002 | | Load 0x0,0x2
0414 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0415 0c01 | | Execute_Immediate Greater_Equal,0x1
0416 6824 |h$ | Jump_Zero 0x43b
0417 4801 |H | Short_Literal 0x1
0418 00db | | Load_Top At_Offset_3
0419 e002 | | Load 0x0,0x2
041a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
041b 0f5f | _ | Execute_Immediate Equal,0x5f
041c 681e |h | Jump_Zero 0x43b
041d 00db | | Load_Top At_Offset_3
041e 4801 |H | Short_Literal 0x1
041f e402 | | Load 0x2,0x2
0420 e002 | | Load 0x0,0x2
0421 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0422 e403 | | Load 0x2,0x3
0423 e002 | | Load 0x0,0x2
0424 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0425 0aff | | Execute_Immediate Plus,-0x1
0426 0272 | r | Execute Discrete,Minus
0427 00d8 | | Load_Top At_Offset_0
0428 00e4 | | Load_Encached Positive_Cache
0429 0260 | ` | Execute Discrete,In_Type
042a 7001 |p | Jump_Nonzero 0x42c
042b 0801 | | Execute_Immediate Raise,0x1
042c e002 | | Load 0x0,0x2
042d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
042e 00d1 | | Pop_Control Pop_Count_1
042f e009 | | Load 0x0,0x9
0430 180e | | Execute Package,Field_Execute,Field_Number 0xe
0431 4800 |H | Short_Literal 0x0
0432 0092 095e | ^| Action Push_String_Extended,0x95e ; "Generating diagram from indirect file "
0434 e402 | | Load 0x2,0x2
0435 e002 | | Load 0x0,0x2
0436 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0437 01cc | | Execute Vector,Catenate
0438 e00b | | Load 0x0,0xb
0439 1813 | | Execute Package,Field_Execute,Field_Number 0x13
043a 780b |x | Jump 0x446
043b e009 | | Load 0x0,0x9
043c 180e | | Execute Package,Field_Execute,Field_Number 0xe
043d 4800 |H | Short_Literal 0x0
043e 0092 095f | _| Action Push_String_Extended,0x95f ; "Generating diagram for "
0440 e402 | | Load 0x2,0x2
0441 e002 | | Load 0x0,0x2
0442 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0443 01cc | | Execute Vector,Catenate
0444 e00b | | Load 0x0,0xb
0445 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0446 e5fe | | Load 0x2,-0x2
0447 7007 |p | Jump_Nonzero 0x44f
0448 4801 |H | Short_Literal 0x1
0449 e5ff | | Load 0x2,-0x1
044a e002 | | Load 0x0,0x2
044b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
044c e008 | | Load 0x0,0x8
044d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
044e a5fd | | Store_Unchecked 0x2,-0x3
044f 4503 |E | Exit_Subprogram 0x3
0450 TRAP_03b0:
0450 e008 | | Load 0x0,0x8
0451 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0452 010f | | Execute Exception,Equal
0453 6809 |h | Jump_Zero 0x45d
0454 4801 |H | Short_Literal 0x1
0455 e5ff | | Load 0x2,-0x1
0456 e002 | | Load 0x0,0x2
0457 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0458 0092 0950 | P| Action Push_String_Extended,0x950 ; "object"
045a e007 | | Load 0x0,0x7
045b 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
045c 4503 |E | Exit_Subprogram 0x3
045d e006 | | Load 0x0,0x6
045e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
045f 010f | | Execute Exception,Equal
0460 6802 |h | Jump_Zero 0x463
0461 00d8 | | Load_Top At_Offset_0
0462 0101 | | Execute Exception,Reraise
0463 4801 |H | Short_Literal 0x1
0464 e007 | | Load 0x0,0x7
0465 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0466 4503 |E | Exit_Subprogram 0x3
0467 0000 | | .XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0476 | v | .CONST 0x0476 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b 8287 | | Call 0x1,0x87
046c 00db | | Load_Top At_Offset_3
046d 4801 |H | Short_Literal 0x1
046e 4800 |H | Short_Literal 0x0
046f e5ff | | Load 0x2,-0x1
0470 e002 | | Load 0x0,0x2
0471 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0472 e008 | | Load 0x0,0x8
0473 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0474 a5fd | | Store_Unchecked 0x2,-0x3
0475 4503 |E | Exit_Subprogram 0x3
0476 TRAP_0468:
0476 e008 | | Load 0x0,0x8
0477 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0478 010f | | Execute Exception,Equal
0479 6809 |h | Jump_Zero 0x483
047a 4801 |H | Short_Literal 0x1
047b e5ff | | Load 0x2,-0x1
047c e002 | | Load 0x0,0x2
047d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
047e 0092 0950 | P| Action Push_String_Extended,0x950 ; "object"
0480 e007 | | Load 0x0,0x7
0481 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0482 4503 |E | Exit_Subprogram 0x3
0483 e008 | | Load 0x0,0x8
0484 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0485 010f | | Execute Exception,Equal
0486 6807 |h | Jump_Zero 0x48e
0487 4801 |H | Short_Literal 0x1
0488 e5ff | | Load 0x2,-0x1
0489 e002 | | Load 0x0,0x2
048a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
048b e007 | | Load 0x0,0x7
048c 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
048d 4503 |E | Exit_Subprogram 0x3
048e e006 | | Load 0x0,0x6
048f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0490 010f | | Execute Exception,Equal
0491 6802 |h | Jump_Zero 0x494
0492 00d8 | | Load_Top At_Offset_0
0493 0101 | | Execute Exception,Reraise
0494 4801 |H | Short_Literal 0x1
0495 e007 | | Load 0x0,0x7
0496 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0497 4503 |E | Exit_Subprogram 0x3
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 049f | | .CONST 0x049f ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 4801 |H | Short_Literal 0x1
049c e007 | | Load 0x0,0x7
049d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
049e 4503 |E | Exit_Subprogram 0x3
049f TRAP_0498:
049f e006 | | Load 0x0,0x6
04a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a1 010f | | Execute Exception,Equal
04a2 6802 |h | Jump_Zero 0x4a5
04a3 00d8 | | Load_Top At_Offset_0
04a4 0101 | | Execute Exception,Reraise
04a5 4801 |H | Short_Literal 0x1
04a6 e007 | | Load 0x0,0x7
04a7 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
04a8 4503 |E | Exit_Subprogram 0x3
04a9 0000 0000 | | .BLANK 0000[0x7]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3 | | .CONST 0x04b3 ; Address of begin
04b1 04bc | | .CONST 0x04bc ; Address of exception handler
04b2 0001 | | .CONST 0x0001 ; Number of locals
04b3 BODY_04b0:
04b3 INIT_04b0:
04b3 e001 | | Load 0x0,0x1
04b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04b5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04b6 4800 |H | Short_Literal 0x0
04b7 e5ff | | Load 0x2,-0x1
04b8 e001 | | Load 0x0,0x1
04b9 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
04ba c5fd | | Store 0x2,-0x3
04bb 4503 |E | Exit_Subprogram 0x3
04bc TRAP_04b0:
04bc e006 | | Load 0x0,0x6
04bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04be 010f | | Execute Exception,Equal
04bf 6802 |h | Jump_Zero 0x4c2
04c0 00d8 | | Load_Top At_Offset_0
04c1 0101 | | Execute Exception,Reraise
04c2 4801 |H | Short_Literal 0x1
04c3 e007 | | Load 0x0,0x7
04c4 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
04c5 4503 |E | Exit_Subprogram 0x3
04c6 0000 0000 | | .XXX[0x2]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 04dd | | .CONST 0x04dd ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 00da | | Load_Top At_Offset_2
04cc e001 | | Load 0x0,0x1
04cd 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04ce 00d1 | | Pop_Control Pop_Count_1
04cf e009 | | Load 0x0,0x9
04d0 180e | | Execute Package,Field_Execute,Field_Number 0xe
04d1 4803 |H | Short_Literal 0x3
04d2 0092 0960 | `| Action Push_String_Extended,0x960 ; "The current diagram context is "
04d4 e5ff | | Load 0x2,-0x1
04d5 e002 | | Load 0x0,0x2
04d6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04d7 e00a | | Load 0x0,0xa
04d8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04d9 01cc | | Execute Vector,Catenate
04da e00b | | Load 0x0,0xb
04db 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04dc 4501 |E | Exit_Subprogram 0x1
04dd TRAP_04c8:
04dd e006 | | Load 0x0,0x6
04de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04df 010f | | Execute Exception,Equal
04e0 6802 |h | Jump_Zero 0x4e3
04e1 00d8 | | Load_Top At_Offset_0
04e2 0101 | | Execute Exception,Reraise
04e3 4801 |H | Short_Literal 0x1
04e4 e007 | | Load 0x0,0x7
04e5 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
04e6 4501 |E | Exit_Subprogram 0x1
04e7 0000 | | .XXX[0x1]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb | | .CONST 0x04eb ; Address of begin
04e9 0503 | | .CONST 0x0503 ; Address of exception handler
04ea 0001 | | .CONST 0x0001 ; Number of locals
04eb BODY_04e8:
04eb INIT_04e8:
04eb 00da | | Load_Top At_Offset_2
04ec e281 | | Load 0x1,0x81
04ed e003 | | Load 0x0,0x3
04ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ef 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04f0 e002 | | Load 0x0,0x2
04f1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04f2 e002 | | Load 0x0,0x2
04f3 180f | | Execute Package,Field_Execute,Field_Number 0xf
04f4 00d1 | | Pop_Control Pop_Count_1
04f5 e009 | | Load 0x0,0x9
04f6 180e | | Execute Package,Field_Execute,Field_Number 0xe
04f7 4803 |H | Short_Literal 0x3
04f8 0092 0961 | a| Action Push_String_Extended,0x961 ; "The current object context is "
04fa e5ff | | Load 0x2,-0x1
04fb e002 | | Load 0x0,0x2
04fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04fd e00a | | Load 0x0,0xa
04fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04ff 01cc | | Execute Vector,Catenate
0500 e00b | | Load 0x0,0xb
0501 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0502 4501 |E | Exit_Subprogram 0x1
0503 TRAP_04e8:
0503 e006 | | Load 0x0,0x6
0504 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0505 010f | | Execute Exception,Equal
0506 6802 |h | Jump_Zero 0x509
0507 00d8 | | Load_Top At_Offset_0
0508 0101 | | Execute Exception,Reraise
0509 4801 |H | Short_Literal 0x1
050a e007 | | Load 0x0,0x7
050b 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
050c 4501 |E | Exit_Subprogram 0x1
050d 0000 0000 | | .XXX[0x3]
050f 0000 | |
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0519 | | .CONST 0x0519 ; Address of begin
0511 051d | | .CONST 0x051d ; Address of exception handler
0512 0002 | | .CONST 0x0002 ; Number of locals
0513 INIT_0510:
0513 e003 | | Load 0x0,0x3
0514 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0515 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0516 02c7 | | Declare_Variable Any
0517 00d8 | | Load_Top At_Offset_0
0518 1c00 | | Execute_Immediate Run_Utility,0x0
0519 BODY_0510:
0519 00db | | Load_Top At_Offset_3
051a e001 | | Load 0x0,0x1
051b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
051c 4502 |E | Exit_Subprogram 0x2
051d TRAP_0510:
051d e006 | | Load 0x0,0x6
051e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
051f 010f | | Execute Exception,Equal
0520 6802 |h | Jump_Zero 0x523
0521 00d8 | | Load_Top At_Offset_0
0522 0101 | | Execute Exception,Reraise
0523 4801 |H | Short_Literal 0x1
0524 e007 | | Load 0x0,0x7
0525 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0526 4502 |E | Exit_Subprogram 0x2
0527 0000 | | .XXX[0x1]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 0539 | 9 | .CONST 0x0539 ; Address of begin
0529 05d8 | | .CONST 0x05d8 ; Address of exception handler
052a 0004 | | .CONST 0x0004 ; Number of locals
052b INIT_0528:
052b e003 | | Load 0x0,0x3
052c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
052d 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
052e 02c7 | | Declare_Variable Any
052f 00d8 | | Load_Top At_Offset_0
0530 1c00 | | Execute_Immediate Run_Utility,0x0
0531 e003 | | Load 0x0,0x3
0532 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0533 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0534 02c7 | | Declare_Variable Any
0535 00d8 | | Load_Top At_Offset_0
0536 1c00 | | Execute_Immediate Run_Utility,0x0
0537 029f 0843 | C| Declare_Subprogram For_Call,INIT_0840
0539 BODY_0528:
0539 00da | | Load_Top At_Offset_2
053a 0120 | | Execute Any,Is_Value
053b 6804 |h | Jump_Zero 0x540
053c e003 | | Load 0x0,0x3
053d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053e 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
053f 7801 |x | Jump 0x541
0540 00da | | Load_Top At_Offset_2
0541 e281 | | Load 0x1,0x81
0542 e003 | | Load 0x0,0x3
0543 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0544 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0545 c402 | | Store 0x2,0x2
0546 4801 |H | Short_Literal 0x1
0547 e003 | | Load 0x0,0x3
0548 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0549 1813 | | Execute Package,Field_Execute,Field_Number 0x13
054a e5ff | | Load 0x2,-0x1
054b e002 | | Load 0x0,0x2
054c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
054d e003 | | Load 0x0,0x3
054e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
054f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0550 c403 | | Store 0x2,0x3
0551 00d9 | | Load_Top At_Offset_1
0552 e003 | | Load 0x0,0x3
0553 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0554 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0555 c402 | | Store 0x2,0x2
0556 00da | | Load_Top At_Offset_2
0557 e003 | | Load 0x0,0x3
0558 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0559 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
055a 4618 |F | Jump_Case 0x18
055b 7823 |x# | Jump 0x57f ; case 0x0
055c 7822 |x" | Jump 0x57f ; case 0x1
055d 7823 |x# | Jump 0x581 ; case 0x2
055e 7815 |x | Jump 0x574 ; case 0x3
055f 7814 |x | Jump 0x574 ; case 0x4
0560 7813 |x | Jump 0x574 ; case 0x5
0561 7812 |x | Jump 0x574 ; case 0x6
0562 7811 |x | Jump 0x574 ; case 0x7
0563 7810 |x | Jump 0x574 ; case 0x8
0564 7829 |x) | Jump 0x58e ; case 0x9
0565 780e |x | Jump 0x574 ; case 0xa
0566 780d |x | Jump 0x574 ; case 0xb
0567 7831 |x1 | Jump 0x599 ; case 0xc
0568 7839 |x9 | Jump 0x5a2 ; case 0xd
0569 7841 |xA | Jump 0x5ab ; case 0xe
056a 7849 |xI | Jump 0x5b4 ; case 0xf
056b 7851 |xQ | Jump 0x5bd ; case 0x10
056c 785d |x] | Jump 0x5ca ; case 0x11
056d 7806 |x | Jump 0x574 ; case 0x12
056e 7805 |x | Jump 0x574 ; case 0x13
056f 7804 |x | Jump 0x574 ; case 0x14
0570 7803 |x | Jump 0x574 ; case 0x15
0571 7802 |x | Jump 0x574 ; case 0x16
0572 7801 |x | Jump 0x574 ; case 0x17
0573 7800 |x | Jump 0x574 ; case 0x18
0574 4801 |H | Short_Literal 0x1
0575 e5ff | | Load 0x2,-0x1
0576 e002 | | Load 0x0,0x2
0577 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0578 e00a | | Load 0x0,0xa
0579 1814 | | Execute Package,Field_Execute,Field_Number 0x14
057a 0092 0962 | b| Action Push_String_Extended,0x962 ; "library"
057c e007 | | Load 0x0,0x7
057d 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
057e 7855 |xU | Jump 0x5d4
057f 8404 | | Call 0x2,0x4
0580 7853 |xS | Jump 0x5d4
0581 4801 |H | Short_Literal 0x1
0582 0092 0963 | c| Action Push_String_Extended,0x963 ; "used as the context"
0584 e5ff | | Load 0x2,-0x1
0585 e002 | | Load 0x0,0x2
0586 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0587 e00a | | Load 0x0,0xa
0588 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0589 0092 0962 | b| Action Push_String_Extended,0x962 ; "library"
058b e007 | | Load 0x0,0x7
058c 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
058d 7846 |xF | Jump 0x5d4
058e 4801 |H | Short_Literal 0x1
058f e5ff | | Load 0x2,-0x1
0590 e002 | | Load 0x0,0x2
0591 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0592 e00a | | Load 0x0,0xa
0593 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0594 0092 0962 | b| Action Push_String_Extended,0x962 ; "library"
0596 e007 | | Load 0x0,0x7
0597 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0598 783b |x; | Jump 0x5d4
0599 4801 |H | Short_Literal 0x1
059a e5ff | | Load 0x2,-0x1
059b e002 | | Load 0x0,0x2
059c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
059d e00a | | Load 0x0,0xa
059e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
059f e007 | | Load 0x0,0x7
05a0 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
05a1 7832 |x2 | Jump 0x5d4
05a2 4801 |H | Short_Literal 0x1
05a3 e5ff | | Load 0x2,-0x1
05a4 e002 | | Load 0x0,0x2
05a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05a6 e00a | | Load 0x0,0xa
05a7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05a8 e007 | | Load 0x0,0x7
05a9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
05aa 7829 |x) | Jump 0x5d4
05ab 4801 |H | Short_Literal 0x1
05ac e5ff | | Load 0x2,-0x1
05ad e002 | | Load 0x0,0x2
05ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05af e00a | | Load 0x0,0xa
05b0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05b1 e007 | | Load 0x0,0x7
05b2 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
05b3 7820 |x | Jump 0x5d4
05b4 4801 |H | Short_Literal 0x1
05b5 e5ff | | Load 0x2,-0x1
05b6 e002 | | Load 0x0,0x2
05b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05b8 e00a | | Load 0x0,0xa
05b9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05ba e007 | | Load 0x0,0x7
05bb 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
05bc 7817 |x | Jump 0x5d4
05bd 4801 |H | Short_Literal 0x1
05be 0092 0963 | c| Action Push_String_Extended,0x963 ; "used as the context"
05c0 e5ff | | Load 0x2,-0x1
05c1 e002 | | Load 0x0,0x2
05c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05c3 e00a | | Load 0x0,0xa
05c4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05c5 0092 0962 | b| Action Push_String_Extended,0x962 ; "library"
05c7 e007 | | Load 0x0,0x7
05c8 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
05c9 780a |x | Jump 0x5d4
05ca 4801 |H | Short_Literal 0x1
05cb e5ff | | Load 0x2,-0x1
05cc e002 | | Load 0x0,0x2
05cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ce e00a | | Load 0x0,0xa
05cf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05d0 0092 0962 | b| Action Push_String_Extended,0x962 ; "library"
05d2 e007 | | Load 0x0,0x7
05d3 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
05d4 00d9 | | Load_Top At_Offset_1
05d5 c281 | | Store 0x1,0x81
05d6 8287 | | Call 0x1,0x87
05d7 4502 |E | Exit_Subprogram 0x2
05d8 TRAP_0528:
05d8 e006 | | Load 0x0,0x6
05d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05da 010f | | Execute Exception,Equal
05db 6802 |h | Jump_Zero 0x5de
05dc 00d8 | | Load_Top At_Offset_0
05dd 0101 | | Execute Exception,Reraise
05de 4801 |H | Short_Literal 0x1
05df e007 | | Load 0x0,0x7
05e0 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
05e1 4502 |E | Exit_Subprogram 0x2
05e2 0000 0000 | | .BLANK 0000[0x6]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 05ee | | .CONST 0x05ee ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb e001 | | Load 0x0,0x1
05ec 181d | | Execute Package,Field_Execute,Field_Number 0x1d
05ed 4501 |E | Exit_Subprogram 0x1
05ee TRAP_05e8:
05ee e006 | | Load 0x0,0x6
05ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05f0 010f | | Execute Exception,Equal
05f1 6802 |h | Jump_Zero 0x5f4
05f2 00d8 | | Load_Top At_Offset_0
05f3 0101 | | Execute Exception,Reraise
05f4 4801 |H | Short_Literal 0x1
05f5 e007 | | Load 0x0,0x7
05f6 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
05f7 4501 |E | Exit_Subprogram 0x1
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0614 | | .CONST 0x0614 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb e009 | | Load 0x0,0x9
05fc 180e | | Execute Package,Field_Execute,Field_Number 0xe
05fd 4801 |H | Short_Literal 0x1
05fe 0092 0964 | d| Action Push_String_Extended,0x964 ; "Executing "
0600 e5ff | | Load 0x2,-0x1
0601 e002 | | Load 0x0,0x2
0602 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0603 01cc | | Execute Vector,Catenate
0604 e00b | | Load 0x0,0xb
0605 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0606 8010 | | Call 0x0,0x10
0607 0092 0965 | e| Action Push_String_Extended,0x965 ; "<RAISE_EXCEPTION>"
0609 0092 0959 | Y| Action Push_String_Extended,0x959 ; "$"
060b e5ff | | Load 0x2,-0x1
060c e002 | | Load 0x0,0x2
060d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
060e e011 | | Load 0x0,0x11
060f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0610 4800 |H | Short_Literal 0x0
0611 e012 | | Load 0x0,0x12
0612 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0613 4502 |E | Exit_Subprogram 0x2
0614 TRAP_05f8:
0614 e006 | | Load 0x0,0x6
0615 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0616 010f | | Execute Exception,Equal
0617 6802 |h | Jump_Zero 0x61a
0618 00d8 | | Load_Top At_Offset_0
0619 0101 | | Execute Exception,Reraise
061a 4801 |H | Short_Literal 0x1
061b e5ff | | Load 0x2,-0x1
061c e002 | | Load 0x0,0x2
061d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
061e e007 | | Load 0x0,0x7
061f 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0620 4502 |E | Exit_Subprogram 0x2
0621 0000 0000 | | .BLANK 0000[0x7]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b | + | .CONST 0x062b ; Address of begin
0629 064b | K | .CONST 0x064b ; Address of exception handler
062a 0001 | | .CONST 0x0001 ; Number of locals
062b BODY_0628:
062b INIT_0628:
062b e5fd | | Load 0x2,-0x3
062c 00db | | Load_Top At_Offset_3
062d e002 | | Load 0x0,0x2
062e 180f | | Execute Package,Field_Execute,Field_Number 0xf
062f 00d1 | | Pop_Control Pop_Count_1
0630 00db | | Load_Top At_Offset_3
0631 e002 | | Load 0x0,0x2
0632 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0633 0c01 | | Execute_Immediate Greater_Equal,0x1
0634 680b |h | Jump_Zero 0x640
0635 4801 |H | Short_Literal 0x1
0636 e5fe | | Load 0x2,-0x2
0637 e002 | | Load 0x0,0x2
0638 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0639 0e2e | . | Execute_Immediate Not_Equal,0x2e
063a 6805 |h | Jump_Zero 0x640
063b e5fd | | Load 0x2,-0x3
063c 482e |H. | Short_Literal 0x2e
063d e002 | | Load 0x0,0x2
063e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
063f 00d1 | | Pop_Control Pop_Count_1
0640 e5fd | | Load 0x2,-0x3
0641 e5fe | | Load 0x2,-0x2
0642 e002 | | Load 0x0,0x2
0643 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0644 e00a | | Load 0x0,0xa
0645 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0646 e002 | | Load 0x0,0x2
0647 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0648 e002 | | Load 0x0,0x2
0649 1817 | | Execute Package,Field_Execute,Field_Number 0x17
064a 4503 |E | Exit_Subprogram 0x3
064b TRAP_0628:
064b e006 | | Load 0x0,0x6
064c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
064d 010f | | Execute Exception,Equal
064e 6802 |h | Jump_Zero 0x651
064f 00d8 | | Load_Top At_Offset_0
0650 0101 | | Execute Exception,Reraise
0651 4801 |H | Short_Literal 0x1
0652 e007 | | Load 0x0,0x7
0653 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0654 4503 |E | Exit_Subprogram 0x3
0655 0000 0000 | | .XXX[0x3]
0657 0000 | |
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 066f | o | .CONST 0x066f ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b 00da | | Load_Top At_Offset_2
065c e013 | | Load 0x0,0x13
065d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
065e e002 | | Load 0x0,0x2
065f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0660 00d1 | | Pop_Control Pop_Count_1
0661 e009 | | Load 0x0,0x9
0662 180e | | Execute Package,Field_Execute,Field_Number 0xe
0663 4803 |H | Short_Literal 0x3
0664 0092 0966 | f| Action Push_String_Extended,0x966 ; "The current activity is "
0666 e5ff | | Load 0x2,-0x1
0667 e002 | | Load 0x0,0x2
0668 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0669 e00a | | Load 0x0,0xa
066a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
066b 01cc | | Execute Vector,Catenate
066c e00b | | Load 0x0,0xb
066d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
066e 4501 |E | Exit_Subprogram 0x1
066f TRAP_0658:
066f e006 | | Load 0x0,0x6
0670 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0671 010f | | Execute Exception,Equal
0672 6802 |h | Jump_Zero 0x675
0673 00d8 | | Load_Top At_Offset_0
0674 0101 | | Execute Exception,Reraise
0675 4801 |H | Short_Literal 0x1
0676 e007 | | Load 0x0,0x7
0677 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0678 4501 |E | Exit_Subprogram 0x1
0679 0000 0000 | | .BLANK 0000[0x7]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0691 | | .CONST 0x0691 ; Address of begin
0681 0715 | | .CONST 0x0715 ; Address of exception handler
0682 0004 | | .CONST 0x0004 ; Number of locals
0683 INIT_0680:
0683 e003 | | Load 0x0,0x3
0684 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0685 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0686 02c7 | | Declare_Variable Any
0687 00d8 | | Load_Top At_Offset_0
0688 1c00 | | Execute_Immediate Run_Utility,0x0
0689 e003 | | Load 0x0,0x3
068a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
068b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
068c 02c7 | | Declare_Variable Any
068d 00d8 | | Load_Top At_Offset_0
068e 1c00 | | Execute_Immediate Run_Utility,0x0
068f 029f 085b | [| Declare_Subprogram For_Call,INIT_0858
0691 BODY_0680:
0691 00da | | Load_Top At_Offset_2
0692 0120 | | Execute Any,Is_Value
0693 6804 |h | Jump_Zero 0x698
0694 e003 | | Load 0x0,0x3
0695 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0696 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0697 7801 |x | Jump 0x699
0698 00da | | Load_Top At_Offset_2
0699 e281 | | Load 0x1,0x81
069a e003 | | Load 0x0,0x3
069b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
069c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
069d c402 | | Store 0x2,0x2
069e 4801 |H | Short_Literal 0x1
069f e003 | | Load 0x0,0x3
06a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06a2 e5ff | | Load 0x2,-0x1
06a3 e002 | | Load 0x0,0x2
06a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06a5 e003 | | Load 0x0,0x3
06a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06a7 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
06a8 c403 | | Store 0x2,0x3
06a9 00d9 | | Load_Top At_Offset_1
06aa e003 | | Load 0x0,0x3
06ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06ac 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
06ad c402 | | Store 0x2,0x2
06ae 00da | | Load_Top At_Offset_2
06af e003 | | Load 0x0,0x3
06b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06b1 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
06b2 4618 |F | Jump_Case 0x18
06b3 785f |x_ | Jump 0x713 ; case 0x0
06b4 785e |x^ | Jump 0x713 ; case 0x1
06b5 781f |x | Jump 0x6d5 ; case 0x2
06b6 7815 |x | Jump 0x6cc ; case 0x3
06b7 7814 |x | Jump 0x6cc ; case 0x4
06b8 7813 |x | Jump 0x6cc ; case 0x5
06b9 7812 |x | Jump 0x6cc ; case 0x6
06ba 7811 |x | Jump 0x6cc ; case 0x7
06bb 7810 |x | Jump 0x6cc ; case 0x8
06bc 7823 |x# | Jump 0x6e0 ; case 0x9
06bd 780e |x | Jump 0x6cc ; case 0xa
06be 780d |x | Jump 0x6cc ; case 0xb
06bf 7829 |x) | Jump 0x6e9 ; case 0xc
06c0 782f |x/ | Jump 0x6f0 ; case 0xd
06c1 7839 |x9 | Jump 0x6fb ; case 0xe
06c2 783f |x? | Jump 0x702 ; case 0xf
06c3 7845 |xE | Jump 0x709 ; case 0x10
06c4 7807 |x | Jump 0x6cc ; case 0x11
06c5 7806 |x | Jump 0x6cc ; case 0x12
06c6 7805 |x | Jump 0x6cc ; case 0x13
06c7 7804 |x | Jump 0x6cc ; case 0x14
06c8 7803 |x | Jump 0x6cc ; case 0x15
06c9 7802 |x | Jump 0x6cc ; case 0x16
06ca 7801 |x | Jump 0x6cc ; case 0x17
06cb 7800 |x | Jump 0x6cc ; case 0x18
06cc 4801 |H | Short_Literal 0x1
06cd e5ff | | Load 0x2,-0x1
06ce e002 | | Load 0x0,0x2
06cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06d0 0092 0967 | g| Action Push_String_Extended,0x967 ; "activity"
06d2 e007 | | Load 0x0,0x7
06d3 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
06d4 783e |x> | Jump 0x713
06d5 4801 |H | Short_Literal 0x1
06d6 0092 0968 | h| Action Push_String_Extended,0x968 ; "used as the activity"
06d8 e5ff | | Load 0x2,-0x1
06d9 e002 | | Load 0x0,0x2
06da 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06db 0092 0967 | g| Action Push_String_Extended,0x967 ; "activity"
06dd e007 | | Load 0x0,0x7
06de 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
06df 7833 |x3 | Jump 0x713
06e0 4801 |H | Short_Literal 0x1
06e1 e5ff | | Load 0x2,-0x1
06e2 e002 | | Load 0x0,0x2
06e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06e4 0092 0967 | g| Action Push_String_Extended,0x967 ; "activity"
06e6 e007 | | Load 0x0,0x7
06e7 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
06e8 782a |x* | Jump 0x713
06e9 4801 |H | Short_Literal 0x1
06ea e5ff | | Load 0x2,-0x1
06eb e002 | | Load 0x0,0x2
06ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06ed e007 | | Load 0x0,0x7
06ee 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
06ef 7823 |x# | Jump 0x713
06f0 4801 |H | Short_Literal 0x1
06f1 e5ff | | Load 0x2,-0x1
06f2 e002 | | Load 0x0,0x2
06f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06f4 e00a | | Load 0x0,0xa
06f5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06f6 0092 0967 | g| Action Push_String_Extended,0x967 ; "activity"
06f8 e007 | | Load 0x0,0x7
06f9 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
06fa 7818 |x | Jump 0x713
06fb 4801 |H | Short_Literal 0x1
06fc e5ff | | Load 0x2,-0x1
06fd e002 | | Load 0x0,0x2
06fe 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06ff e007 | | Load 0x0,0x7
0700 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0701 7811 |x | Jump 0x713
0702 4801 |H | Short_Literal 0x1
0703 e5ff | | Load 0x2,-0x1
0704 e002 | | Load 0x0,0x2
0705 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0706 e007 | | Load 0x0,0x7
0707 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0708 780a |x | Jump 0x713
0709 4801 |H | Short_Literal 0x1
070a 0092 0968 | h| Action Push_String_Extended,0x968 ; "used as the activity"
070c e5ff | | Load 0x2,-0x1
070d e002 | | Load 0x0,0x2
070e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
070f 0092 0967 | g| Action Push_String_Extended,0x967 ; "activity"
0711 e007 | | Load 0x0,0x7
0712 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0713 8404 | | Call 0x2,0x4
0714 4502 |E | Exit_Subprogram 0x2
0715 TRAP_0680:
0715 e006 | | Load 0x0,0x6
0716 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0717 010f | | Execute Exception,Equal
0718 6802 |h | Jump_Zero 0x71b
0719 00d8 | | Load_Top At_Offset_0
071a 0101 | | Execute Exception,Reraise
071b 4801 |H | Short_Literal 0x1
071c e007 | | Load 0x0,0x7
071d 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
071e 4502 |E | Exit_Subprogram 0x2
071f 0000 | | .XXX[0x1]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723 | # | .CONST 0x0723 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0001 | | .CONST 0x0001 ; Number of locals
0723 BODY_0720:
0723 INIT_0720:
0723 4607 |F | Jump_Case 0x7
0724 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0725 7806 |x | Jump 0x72c ; case 0x1
0726 7809 |x | Jump 0x730 ; case 0x2
0727 780d |x | Jump 0x735 ; case 0x3
0728 7810 |x | Jump 0x739 ; case 0x4
0729 7811 |x | Jump 0x73b ; case 0x5
072a 7812 |x | Jump 0x73d ; case 0x6
072b 7815 |x | Jump 0x741 ; case 0x7
072c 00da | | Load_Top At_Offset_2
072d 0091 094d | M| Action Push_String_Extended_Indexed,0x94d ; "UNKNOWN"
072f 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0730 00db | | Load_Top At_Offset_3
0731 00db | | Load_Top At_Offset_3
0732 00e0 | | Load_Encached Standard_Cache
0733 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0734 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0735 00da | | Load_Top At_Offset_2
0736 00e0 | | Load_Encached Standard_Cache
0737 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0738 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0739 00db | | Load_Top At_Offset_3
073a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
073b 00db | | Load_Top At_Offset_3
073c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
073d e27f | | Load 0x1,0x7f
073e 00dc | | Load_Top At_Offset_4
073f 0267 | g | Execute Discrete,Predecessor
0740 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0741 e27f | | Load 0x1,0x7f
0742 00dc | | Load_Top At_Offset_4
0743 0268 | h | Execute Discrete,Successor
0744 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0745 0000 0000 | | .XXX[0x3]
0747 0000 | |
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 0752 | R | .CONST 0x0752 ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0003 | | .CONST 0x0003 ; Number of locals
074b INIT_0748:
074b e014 | | Load 0x0,0x14
074c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
074d 02c7 | | Declare_Variable Any
074e 00d8 | | Load_Top At_Offset_0
074f 1c00 | | Execute_Immediate Run_Utility,0x0
0750 029f 0893 | | Declare_Subprogram For_Call,INIT_0890
0752 BODY_0748:
0752 00d9 | | Load_Top At_Offset_1
0753 00ea | | Load_Encached Null_String_Cache
0754 00ea | | Load_Encached Null_String_Cache
0755 4801 |H | Short_Literal 0x1
0756 e014 | | Load 0x0,0x14
0757 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0758 c402 | | Store 0x2,0x2
0759 8403 | | Call 0x2,0x3
075a 0831 | 1 | Execute_Immediate Raise,0x31
075b 0000 0000 | | .BLANK 0000[0x5]
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0788 | | .CONST 0x0788 ; Address of begin
0761 07e7 | | .CONST 0x07e7 ; Address of exception handler
0762 0006 | | .CONST 0x0006 ; Number of locals
0763 INIT_0760:
0763 4801 |H | Short_Literal 0x1
0764 4803 |H | Short_Literal 0x3
0765 00e2 | | Load_Encached Integer_Cache
0766 02a0 | | Declare_Subprogram Null_Subprogram
0767 4801 |H | Short_Literal 0x1
0768 035d | ] | Declare_Type Array,Defined
0769 00d8 | | Load_Top At_Offset_0
076a 0337 | 7 | Declare_Variable Array
076b 00d8 | | Load_Top At_Offset_0
076c 0335 | 5 | Declare_Variable Array,Duplicate
076d 00cd | | Action Spare6_Action
076e 4800 |H | Short_Literal 0x0
076f 4801 |H | Short_Literal 0x1
0770 00da | | Load_Top At_Offset_2
0771 01d6 | | Execute Vector,Field_Write
0772 4800 |H | Short_Literal 0x0
0773 4802 |H | Short_Literal 0x2
0774 00da | | Load_Top At_Offset_2
0775 01d6 | | Execute Vector,Field_Write
0776 4800 |H | Short_Literal 0x0
0777 4803 |H | Short_Literal 0x3
0778 00da | | Load_Top At_Offset_2
0779 01d6 | | Execute Vector,Field_Write
077a 00d9 | | Load_Top At_Offset_1
077b 01d4 | | Execute Vector,Structure_Write
077c e014 | | Load 0x0,0x14
077d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
077e 02c7 | | Declare_Variable Any
077f 00d8 | | Load_Top At_Offset_0
0780 1c00 | | Execute_Immediate Run_Utility,0x0
0781 4801 |H | Short_Literal 0x1
0782 4801 |H | Short_Literal 0x1
0783 00e9 | | Load_Encached String_Cache
0784 035b | [ | Declare_Type Array,Constrained
0785 0337 | 7 | Declare_Variable Array
0786 029f 08a3 | | Declare_Subprogram For_Call,INIT_08a0
0788 BODY_0760:
0788 4800 |H | Short_Literal 0x0
0789 a5ff | | Store_Unchecked 0x2,-0x1
078a 8406 | | Call 0x2,0x6
078b 00cf | | Action Mark_Auxiliary
078c 00e8 | | Load_Encached Character_Cache
078d e404 | | Load 0x2,0x4
078e e014 | | Load 0x0,0x14
078f 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
0790 4801 |H | Short_Literal 0x1
0791 e405 | | Load 0x2,0x5
0792 01d6 | | Execute Vector,Field_Write
0793 4801 |H | Short_Literal 0x1
0794 00db | | Load_Top At_Offset_3
0795 01d7 | | Execute Vector,Field_Read
0796 0f5f | _ | Execute_Immediate Equal,0x5f
0797 7002 |p | Jump_Nonzero 0x79a
0798 00c9 | | Action Pop_Auxiliary_Loop
0799 7ff2 | | Jump 0x78c
079a 00c9 | | Action Pop_Auxiliary_Loop
079b e402 | | Load 0x2,0x2
079c 01d9 | | Execute Vector,Reverse_Bounds
079d 00cf | | Action Mark_Auxiliary
079e 00e8 | | Load_Encached Character_Cache
079f e404 | | Load 0x2,0x4
07a0 e014 | | Load 0x0,0x14
07a1 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
07a2 4801 |H | Short_Literal 0x1
07a3 e405 | | Load 0x2,0x5
07a4 01d6 | | Execute Vector,Field_Write
07a5 4801 |H | Short_Literal 0x1
07a6 e405 | | Load 0x2,0x5
07a7 01d7 | | Execute Vector,Field_Read
07a8 0f5f | _ | Execute_Immediate Equal,0x5f
07a9 e404 | | Load 0x2,0x4
07aa e014 | | Load 0x0,0x14
07ab 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
07ac 0278 | x | Execute Discrete,Or
07ad 7016 |p | Jump_Nonzero 0x7c4
07ae 4801 |H | Short_Literal 0x1
07af e405 | | Load 0x2,0x5
07b0 01d7 | | Execute Vector,Field_Read
07b1 4830 |H0 | Short_Literal 0x30
07b2 4839 |H9 | Short_Literal 0x39
07b3 0262 | b | Execute Discrete,In_Range
07b4 680d |h | Jump_Zero 0x7c2
07b5 00d9 | | Load_Top At_Offset_1
07b6 e403 | | Load 0x2,0x3
07b7 01d7 | | Execute Vector,Field_Read
07b8 480a |H | Short_Literal 0xa
07b9 0271 | q | Execute Discrete,Times
07ba e405 | | Load 0x2,0x5
07bb 00e2 | | Load_Encached Integer_Cache
07bc 00e0 | | Load_Encached Standard_Cache
07bd 1819 | | Execute Package,Field_Execute,Field_Number 0x19
07be 0273 | s | Execute Discrete,Plus
07bf 00da | | Load_Top At_Offset_2
07c0 e403 | | Load 0x2,0x3
07c1 01d6 | | Execute Vector,Field_Write
07c2 00c9 | | Action Pop_Auxiliary_Loop
07c3 7fda | | Jump 0x79e
07c4 00ce | | Action Pop_Auxiliary
07c5 e404 | | Load 0x2,0x4
07c6 e014 | | Load 0x0,0x14
07c7 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
07c8 6802 |h | Jump_Zero 0x7cb
07c9 00d2 | | Pop_Control Pop_Count_2
07ca 7802 |x | Jump 0x7cd
07cb 00c8 | | Action Pop_Auxiliary_Range
07cc 3fd0 |? | Loop_Increasing 0x79d
07cd 00ce | | Action Pop_Auxiliary
07ce 00da | | Load_Top At_Offset_2
07cf e014 | | Load 0x0,0x14
07d0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
07d1 c404 | | Store 0x2,0x4
07d2 4801 |H | Short_Literal 0x1
07d3 e403 | | Load 0x2,0x3
07d4 01d7 | | Execute Vector,Field_Read
07d5 0c0c | | Execute_Immediate Greater_Equal,0xc
07d6 4802 |H | Short_Literal 0x2
07d7 e403 | | Load 0x2,0x3
07d8 01d7 | | Execute Vector,Field_Read
07d9 0c05 | | Execute_Immediate Greater_Equal,0x5
07da 0279 | y | Execute Discrete,And
07db 4803 |H | Short_Literal 0x3
07dc e403 | | Load 0x2,0x3
07dd 01d7 | | Execute Vector,Field_Read
07de 0c00 | | Execute_Immediate Greater_Equal,0x0
07df 0279 | y | Execute Discrete,And
07e0 6803 |h | Jump_Zero 0x7e4
07e1 4802 |H | Short_Literal 0x2
07e2 a5ff | | Store_Unchecked 0x2,-0x1
07e3 4501 |E | Exit_Subprogram 0x1
07e4 4801 |H | Short_Literal 0x1
07e5 a5ff | | Store_Unchecked 0x2,-0x1
07e6 4501 |E | Exit_Subprogram 0x1
07e7 TRAP_0760:
07e7 e006 | | Load 0x0,0x6
07e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07e9 010f | | Execute Exception,Equal
07ea 6802 |h | Jump_Zero 0x7ed
07eb 00d8 | | Load_Top At_Offset_0
07ec 0101 | | Execute Exception,Reraise
07ed 00db | | Load_Top At_Offset_3
07ee e014 | | Load 0x0,0x14
07ef 181b | | Execute Package,Field_Execute,Field_Number 0x1b
07f0 c404 | | Store 0x2,0x4
07f1 0092 0969 | i| Action Push_String_Extended,0x969 ; "Trouble parsing !Machine.Release.Environment.Current"
07f3 e006 | | Load 0x0,0x6
07f4 180f | | Execute Package,Field_Execute,Field_Number 0xf
07f5 4501 |E | Exit_Subprogram 0x1
07f6 0000 0000 | | .XXX[0x2]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb | | .CONST 0x07fb ; Address of begin
07f9 0004 | | .CONST 0x0004 ; Address of exception handler
07fa 0001 | | .CONST 0x0001 ; Number of locals
07fb BODY_07f8:
07fb INIT_07f8:
07fb 4801 |H | Short_Literal 0x1
07fc e24a | J | Load 0x1,0x4a
07fd 1c08 | | Execute_Immediate Run_Utility,0x8
07fe 00d8 | | Load_Top At_Offset_0
07ff 1c01 | | Execute_Immediate Run_Utility,0x1
0800 4900 |I | Short_Literal 0x100
0801 e5ff | | Load 0x2,-0x1
0802 e002 | | Load 0x0,0x2
0803 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0804 00d9 | | Load_Top At_Offset_1
0805 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0806 4401 |D | Exit_Subprogram With_Result,0x1
0807 0000 | | .XXX[0x1]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b | | .CONST 0x080b ; Address of begin
0809 0004 | | .CONST 0x0004 ; Address of exception handler
080a 0001 | | .CONST 0x0001 ; Number of locals
080b BODY_0808:
080b INIT_0808:
080b 4801 |H | Short_Literal 0x1
080c e24a | J | Load 0x1,0x4a
080d 1c08 | | Execute_Immediate Run_Utility,0x8
080e 00d8 | | Load_Top At_Offset_0
080f 1c01 | | Execute_Immediate Run_Utility,0x1
0810 4900 |I | Short_Literal 0x100
0811 e5ff | | Load 0x2,-0x1
0812 e002 | | Load 0x0,0x2
0813 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0814 e002 | | Load 0x0,0x2
0815 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0816 00d9 | | Load_Top At_Offset_1
0817 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0818 4401 |D | Exit_Subprogram With_Result,0x1
0819 0000 0000 | | .BLANK 0000[0x7]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 082b | + | .CONST 0x082b ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0003 | | .CONST 0x0003 ; Number of locals
0823 INIT_0820:
0823 e003 | | Load 0x0,0x3
0824 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0825 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0826 02c7 | | Declare_Variable Any
0827 00d8 | | Load_Top At_Offset_0
0828 1c00 | | Execute_Immediate Run_Utility,0x0
0829 029f 08bb | | Declare_Subprogram For_Call,INIT_08b8
082b BODY_0820:
082b 00d9 | | Load_Top At_Offset_1
082c 0120 | | Execute Any,Is_Value
082d 6804 |h | Jump_Zero 0x832
082e e003 | | Load 0x0,0x3
082f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0830 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0831 7801 |x | Jump 0x833
0832 00d9 | | Load_Top At_Offset_1
0833 e281 | | Load 0x1,0x81
0834 e003 | | Load 0x0,0x3
0835 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0836 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0837 c402 | | Store 0x2,0x2
0838 00d9 | | Load_Top At_Offset_1
0839 e003 | | Load 0x0,0x3
083a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
083b 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
083c 6801 |h | Jump_Zero 0x83e
083d 8403 | | Call 0x2,0x3
083e 4501 |E | Exit_Subprogram 0x1
083f 0000 | | .XXX[0x1]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0849 | I | .CONST 0x0849 ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0002 | | .CONST 0x0002 ; Number of locals
0843 INIT_0840:
0843 e403 | | Load 0x2,0x3
0844 e003 | | Load 0x0,0x3
0845 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0846 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0847 e00a | | Load 0x0,0xa
0848 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0849 BODY_0840:
0849 e009 | | Load 0x0,0x9
084a 180e | | Execute Package,Field_Execute,Field_Number 0xe
084b 4803 |H | Short_Literal 0x3
084c 0092 096a | j| Action Push_String_Extended,0x96a ; "The new object context is "
084e 00db | | Load_Top At_Offset_3
084f 01cc | | Execute Vector,Catenate
0850 e00b | | Load 0x0,0xb
0851 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0852 4501 |E | Exit_Subprogram 0x1
0853 0000 0000 | | .BLANK 0000[0x5]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 0868 | h | .CONST 0x0868 ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0003 | | .CONST 0x0003 ; Number of locals
085b INIT_0858:
085b e403 | | Load 0x2,0x3
085c e003 | | Load 0x0,0x3
085d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
085e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
085f e003 | | Load 0x0,0x3
0860 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0861 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0862 02c7 | | Declare_Variable Any
0863 e403 | | Load 0x2,0x3
0864 e003 | | Load 0x0,0x3
0865 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0866 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0867 a603 | | Store_Unchecked 0x3,0x3
0868 BODY_0858:
0868 4801 |H | Short_Literal 0x1
0869 0092 0967 | g| Action Push_String_Extended,0x967 ; "activity"
086b 00da | | Load_Top At_Offset_2
086c e003 | | Load 0x0,0x3
086d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
086e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
086f e00a | | Load 0x0,0xa
0870 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0871 6811 |h | Jump_Zero 0x883
0872 0092 0958 | X| Action Push_String_Extended,0x958 ; "<PROFILE>"
0874 00da | | Load_Top At_Offset_2
0875 e013 | | Load 0x0,0x13
0876 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0877 e009 | | Load 0x0,0x9
0878 180e | | Execute Package,Field_Execute,Field_Number 0xe
0879 4803 |H | Short_Literal 0x3
087a 0092 096b | k| Action Push_String_Extended,0x96b ; "The new activity is "
087c e602 | | Load 0x3,0x2
087d e00a | | Load 0x0,0xa
087e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
087f 01cc | | Execute Vector,Catenate
0880 e00b | | Load 0x0,0xb
0881 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0882 4501 |E | Exit_Subprogram 0x1
0883 4801 |H | Short_Literal 0x1
0884 00da | | Load_Top At_Offset_2
0885 0092 0967 | g| Action Push_String_Extended,0x967 ; "activity"
0887 e007 | | Load 0x0,0x7
0888 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0889 4501 |E | Exit_Subprogram 0x1
088a 0000 0000 | | .BLANK 0000[0x6]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 0896 | | .CONST 0x0896 ; Address of begin
0891 0004 | | .CONST 0x0004 ; Address of exception handler
0892 0002 | | .CONST 0x0002 ; Number of locals
0893 INIT_0890:
0893 e402 | | Load 0x2,0x2
0894 e014 | | Load 0x0,0x14
0895 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0896 BODY_0890:
0896 e402 | | Load 0x2,0x2
0897 e014 | | Load 0x0,0x14
0898 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0899 c402 | | Store 0x2,0x2
089a 00d8 | | Load_Top At_Offset_0
089b 00cb | | Action Pop_Block_With_Result
089c 00ca | | Action Exit_Nullary_Function
089d 0000 0000 | | .XXX[0x3]
089f 0000 | |
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3 | | .CONST 0x08a3 ; Address of begin
08a1 08ac | | .CONST 0x08ac ; Address of exception handler
08a2 0001 | | .CONST 0x0001 ; Number of locals
08a3 BODY_08a0:
08a3 INIT_08a0:
08a3 e404 | | Load 0x2,0x4
08a4 00ea | | Load_Encached Null_String_Cache
08a5 0092 096c | l| Action Push_String_Extended,0x96c ; "!machine.release.environment.current"
08a7 4800 |H | Short_Literal 0x0
08a8 e014 | | Load 0x0,0x14
08a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08aa c404 | | Store 0x2,0x4
08ab 4501 |E | Exit_Subprogram 0x1
08ac TRAP_08a0:
08ac 0007 | | Action Break_Optional
08ad 0092 096d | m| Action Push_String_Extended,0x96d ; "Cant open !Machine.Release.Environment.Current"
08af e006 | | Load 0x0,0x6
08b0 180f | | Execute Package,Field_Execute,Field_Number 0xf
08b1 4501 |E | Exit_Subprogram 0x1
08b2 0000 0000 | | .BLANK 0000[0x6]
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08bf | | .CONST 0x08bf ; Address of begin
08b9 0004 | | .CONST 0x0004 ; Address of exception handler
08ba 0002 | | .CONST 0x0002 ; Number of locals
08bb INIT_08b8:
08bb e281 | | Load 0x1,0x81
08bc e003 | | Load 0x0,0x3
08bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08be 1820 | | Execute Package,Field_Execute,Field_Number 0x20
08bf BODY_08b8:
08bf e402 | | Load 0x2,0x2
08c0 e003 | | Load 0x0,0x3
08c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08c2 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
08c3 4618 |F | Jump_Case 0x18
08c4 7818 |x | Jump 0x8dd ; case 0x0
08c5 4501 |E | Exit_Subprogram 0x1 ; case 0x1
08c6 781d |x | Jump 0x8e4 ; case 0x2
08c7 7815 |x | Jump 0x8dd ; case 0x3
08c8 7814 |x | Jump 0x8dd ; case 0x4
08c9 7813 |x | Jump 0x8dd ; case 0x5
08ca 7812 |x | Jump 0x8dd ; case 0x6
08cb 7811 |x | Jump 0x8dd ; case 0x7
08cc 7810 |x | Jump 0x8dd ; case 0x8
08cd 782f |x/ | Jump 0x8fd ; case 0x9
08ce 780e |x | Jump 0x8dd ; case 0xa
08cf 780d |x | Jump 0x8dd ; case 0xb
08d0 780c |x | Jump 0x8dd ; case 0xc
08d1 780b |x | Jump 0x8dd ; case 0xd
08d2 780a |x | Jump 0x8dd ; case 0xe
08d3 7809 |x | Jump 0x8dd ; case 0xf
08d4 7818 |x | Jump 0x8ed ; case 0x10
08d5 7820 |x | Jump 0x8f6 ; case 0x11
08d6 7806 |x | Jump 0x8dd ; case 0x12
08d7 7805 |x | Jump 0x8dd ; case 0x13
08d8 7804 |x | Jump 0x8dd ; case 0x14
08d9 7803 |x | Jump 0x8dd ; case 0x15
08da 7802 |x | Jump 0x8dd ; case 0x16
08db 7801 |x | Jump 0x8dd ; case 0x17
08dc 7800 |x | Jump 0x8dd ; case 0x18
08dd 4801 |H | Short_Literal 0x1
08de 00d9 | | Load_Top At_Offset_1
08df 0092 096e | n| Action Push_String_Extended,0x96e ; "diagram"
08e1 e007 | | Load 0x0,0x7
08e2 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
08e3 4501 |E | Exit_Subprogram 0x1
08e4 4801 |H | Short_Literal 0x1
08e5 0092 0963 | c| Action Push_String_Extended,0x963 ; "used as the context"
08e7 00da | | Load_Top At_Offset_2
08e8 0092 0962 | b| Action Push_String_Extended,0x962 ; "library"
08ea e007 | | Load 0x0,0x7
08eb 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
08ec 4501 |E | Exit_Subprogram 0x1
08ed 4801 |H | Short_Literal 0x1
08ee 0092 0963 | c| Action Push_String_Extended,0x963 ; "used as the context"
08f0 00da | | Load_Top At_Offset_2
08f1 0092 0962 | b| Action Push_String_Extended,0x962 ; "library"
08f3 e007 | | Load 0x0,0x7
08f4 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
08f5 4501 |E | Exit_Subprogram 0x1
08f6 4801 |H | Short_Literal 0x1
08f7 00d9 | | Load_Top At_Offset_1
08f8 0092 0962 | b| Action Push_String_Extended,0x962 ; "library"
08fa e007 | | Load 0x0,0x7
08fb 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
08fc 4501 |E | Exit_Subprogram 0x1
08fd 4801 |H | Short_Literal 0x1
08fe 00d9 | | Load_Top At_Offset_1
08ff 0092 0962 | b| Action Push_String_Extended,0x962 ; "library"
0901 e007 | | Load 0x0,0x7
0902 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0903 4501 |E | Exit_Subprogram 0x1
0904 0000 0000 | | .BLANK 0000[0x4]
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 090b | | .CONST 0x090b ; Address of begin
0909 0004 | | .CONST 0x0004 ; Address of exception handler
090a 0001 | | .CONST 0x0001 ; Number of locals
090b BODY_0908:
090b INIT_0908:
090b 4608 |F | Jump_Case 0x8
090c 7808 |x | Jump 0x915 ; case 0x0
090d 781c |x | Jump 0x92a ; case 0x1
090e 783b |x; | Jump 0x94a ; case 0x2
090f 783a |x: | Jump 0x94a ; case 0x3
0910 7839 |x9 | Jump 0x94a ; case 0x4
0911 7838 |x8 | Jump 0x94a ; case 0x5
0912 781f |x | Jump 0x932 ; case 0x6
0913 7826 |x& | Jump 0x93a ; case 0x7
0914 782e |x. | Jump 0x943 ; case 0x8
0915 00da | | Load_Top At_Offset_2
0916 016c | l | Execute Variant_Record,Is_Constrained
0917 7009 |p | Jump_Nonzero 0x921
0918 00cf | | Action Mark_Auxiliary
0919 4800 |H | Short_Literal 0x0
091a e5ff | | Load 0x2,-0x1
091b 1c08 | | Execute_Immediate Run_Utility,0x8
091c 00d8 | | Load_Top At_Offset_0
091d 1c00 | | Execute_Immediate Run_Utility,0x0
091e c5ff | | Store 0x2,-0x1
091f 00ce | | Action Pop_Auxiliary
0920 4302 |C | Exit_Subprogram From_Utility,0x2
0921 00da | | Load_Top At_Offset_2
0922 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0923 6805 |h | Jump_Zero 0x929
0924 00da | | Load_Top At_Offset_2
0925 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0926 00da | | Load_Top At_Offset_2
0927 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0928 1c00 | | Execute_Immediate Run_Utility,0x0
0929 4302 |C | Exit_Subprogram From_Utility,0x2
092a 00da | | Load_Top At_Offset_2
092b 016b | k | Execute Variant_Record,Read_Variant
092c 00d8 | | Load_Top At_Offset_0
092d 0f01 | | Execute_Immediate Equal,0x1
092e 6802 |h | Jump_Zero 0x931
092f 00db | | Load_Top At_Offset_3
0930 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0931 4302 |C | Exit_Subprogram From_Utility,0x2
0932 00db | | Load_Top At_Offset_3
0933 0f01 | | Execute_Immediate Equal,0x1
0934 7001 |p | Jump_Nonzero 0x936
0935 7802 |x | Jump 0x938
0936 4801 |H | Short_Literal 0x1
0937 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0938 48ff |H | Short_Literal 0xff
0939 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
093a 00db | | Load_Top At_Offset_3
093b e5fe | | Load 0x2,-0x2
093c 6802 |h | Jump_Zero 0x93f
093d 4801 |H | Short_Literal 0x1
093e 7801 |x | Jump 0x940
093f 48ff |H | Short_Literal 0xff
0940 e5ff | | Load 0x2,-0x1
0941 031b | | Declare_Type Variant_Record,Constrained
0942 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0943 00db | | Load_Top At_Offset_3
0944 e5fe | | Load 0x2,-0x2
0945 e5ff | | Load 0x2,-0x1
0946 1c06 | | Execute_Immediate Run_Utility,0x6
0947 e5ff | | Load 0x2,-0x1
0948 02fc | | Declare_Variable Variant_Record,With_Constraint
0949 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
094a 0869 | i | Execute_Immediate Raise,0x69
094b ; --------------------------------------------------------------------------------------
094b ; STRING TABLE
094b ; --------------------------------------------------------------------------------------
094b 004a | J | .STRTAB 0x004a->0x0970 ; "ES_OK"
094c 004d | M | .STRTAB 0x004d->0x0972 ; "ES_ERROR"
094d 0053 | S | .STRTAB 0x0053->0x0976 ; "UNKNOWN"
094e 0058 | X | .STRTAB 0x0058->0x097a ; "D2"
094f 0058 | X | .STRTAB 0x0058->0x097b ; "D3"
0950 0058 | X | .STRTAB 0x0058->0x097c ; "object"
; "object"
; "object"
0951 005c | \ | .STRTAB 0x005c->0x097f ; "deleted"
0952 0061 | a | .STRTAB 0x0061->0x0982 ; "Getting diagram name "
0953 0074 | t | .STRTAB 0x0074->0x098d ; "Storing diagram name "
0954 0087 | | .STRTAB 0x0087->0x0997 ; "Storing print file name "
0955 009d | | .STRTAB 0x009d->0x09a3 ; "_mil"
0956 009f | | .STRTAB 0x009f->0x09a5 ; "_ps"
0957 00a0 | | .STRTAB 0x00a0->0x09a7 ; "Common.Definition of object "
0958 00ba | | .STRTAB 0x00ba->0x09b5 ; "<PROFILE>"
; "<PROFILE>"
0959 00c1 | | .STRTAB 0x00c1->0x09b9 ; "$"
; "$"
095a 00c0 | | .STRTAB 0x00c0->0x09ba ; "Common.Definition (\x22"
095b 00d2 | | .STRTAB 0x00d2->0x09c4 ; "\x22)"
095c 00d2 | | .STRTAB 0x00d2->0x09c5 ; "Deleting diagram name "
095d 00e6 | | .STRTAB 0x00e6->0x09d0 ; "."
095e 00e5 | | .STRTAB 0x00e5->0x09d0 ; "Generating diagram from indirect file "
095f 0109 | | .STRTAB 0x0109->0x09e3 ; "Generating diagram for "
0960 011e | | .STRTAB 0x011e->0x09ef ; "The current diagram context is "
0961 013b | ; | .STRTAB 0x013b->0x09fe ; "The current object context is "
0962 0157 | W | .STRTAB 0x0157->0x0a0d ; "library"
; "library"
; "library"
; "library"
; "library"
; "library"
; "library"
; "library"
; "library"
0963 015c | \ | .STRTAB 0x015c->0x0a11 ; "used as the context"
; "used as the context"
; "used as the context"
; "used as the context"
0964 016d | m | .STRTAB 0x016d->0x0a1a ; "Executing "
0965 0175 | u | .STRTAB 0x0175->0x0a1f ; "<RAISE_EXCEPTION>"
0966 0184 | | .STRTAB 0x0184->0x0a28 ; "The current activity is "
0967 019a | | .STRTAB 0x019a->0x0a34 ; "activity"
; "activity"
; "activity"
; "activity"
; "activity"
; "activity"
; "activity"
0968 01a0 | | .STRTAB 0x01a0->0x0a38 ; "used as the activity"
; "used as the activity"
0969 01b2 | | .STRTAB 0x01b2->0x0a42 ; "Trouble parsing !Machine.Release.Environment.Current"
096a 01e4 | | .STRTAB 0x01e4->0x0a5c ; "The new object context is "
096b 01fc | | .STRTAB 0x01fc->0x0a69 ; "The new activity is "
096c 020e | | .STRTAB 0x020e->0x0a73 ; "!machine.release.environment.current"
096d 0230 | 0 | .STRTAB 0x0230->0x0a85 ; "Cant open !Machine.Release.Environment.Current"
096e 025c | \ | .STRTAB 0x025c->0x0a9c ; "diagram"
096f 0261 | a | .STREND 0x0261->0x0a9f
0970 4553 5f4f |ES_O| .STRTAB_STRINGS
0aa0 ; --------------------------------------------------------------------------------------
0aa0 ; Debug Table
0aa0 ; --------------------------------------------------------------------------------------
0aa0 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0f71,0x0000,0x0001,0x0000
0aa6 4801 301f |H 0 | .XXX[0x15a]
0aa8 f801 381d | 8 |
0aaa 5c4d b004 |\M |
0aac 2401 4bb0 |$ K |
0aae 0a5a 3875 | Z8u|
0ab0 5409 b000 |T |
0ab2 0c3c 22fa | <" |
0ab4 8c0f 1808 | |
0ab6 ac16 1e64 | d|
0ab8 7c26 c402 ||& |
0aba c290 0c3f | ?|
0abc 4b4a 3c05 |KJ< |
0abe a00c a5a2 | |
0ac0 a05a 78e7 | Zx |
0ac2 7c0f 3818 || 8 |
0ac4 5228 d821 |R( !|
0ac6 e00f f803 | |
0ac8 a043 0402 | C |
0aca 9403 c422 | "|
0acc 8edb c64b | K|
0ace e726 5c16 | &\ |
0ad0 9007 e407 | |
0ad2 f800 88b8 | |
0ad4 0c3d 3628 | =6(|
0ad6 2c02 5e2c |, ^,|
0ad8 6c00 26f6 |l & |
0ada 086e 22be | n" |
0adc bc03 c420 | |
0ade 3ef4 5400 |> T |
0ae0 6c1f f800 |l |
0ae2 741f 8c03 |t |
0ae4 1811 bb9a | |
0ae6 900c a2ac | |
0ae8 6c9c 0c3c |l <|
0aea ca28 e428 | ( (|
0aec 8233 4803 | 3H |
0aee b34d 7fb1 | M |
0af0 7c2f f802 ||/ |
0af2 2c47 cc01 |,G |
0af4 e40a a17a | z|
0af6 52e6 1000 |R |
0af8 0c3e 8403 | > |
0afa c423 13c0 | # |
0afc 4013 dbba |@ |
0afe 0c26 2fc3 | &/ |
0b00 a048 bd3c | H <|
0b02 f408 6c00 | l |
0b04 2e22 2000 |." |
0b06 0c3e b403 | > |
0b08 c421 baa9 | ! |
0b0a ac06 dbac | |
0b0c d821 37b6 | !7 |
0b0e 1087 da64 | d|
0b10 182f 431b | /C |
0b12 1f41 380a | A8 |
0b14 1f30 6c1f | 0l |
0b16 ec00 5455 | TU|
0b18 58ec cb68 |X h|
0b1a 0c3f 4b4a | ?KJ|
0b1c 680b 1f41 |h A|
0b1e cc1b f802 | |
0b20 342c a801 |4, |
0b22 d68f bffa | |
0b24 38db d001 |8 |
0b26 0c91 e00f | |
0b28 f803 6c0f | l |
0b2a 4ba0 d822 |K "|
0b2c 8ed9 38ab | 8 |
0b2e e726 9403 | & |
0b30 c420 92c6 | |
0b32 8a1f e407 | |
0b34 f803 6421 | d!|
0b36 7d94 1c04 |} |
0b38 5400 0c3e |T >|
0b3a dc03 c423 | #|
0b3c d000 1c04 | |
0b3e 2000 0c2f | /|
0b40 da64 182d | d -|
0b42 a001 5e2b | ^+|
0b44 fcbe 6004 | ` |
0b46 5c00 7807 |\ x |
0b48 2788 d820 |' |
0b4a ac16 1e67 | g|
0b4c 9c05 d802 | |
0b4e c631 6f2d | 1o-|
0b50 240a e40d |$ |
0b52 7a2a 2029 |z* )|
0b54 e84f f802 | O |
0b56 0429 b44c | ) L|
0b58 f804 9409 | |
0b5a 240b 9684 |$ |
0b5c 5c3c 92c5 |\< |
0b5e 211f e407 |! |
0b60 f803 6422 | d"|
0b62 5000 5046 |P PF|
0b64 3aa8 26f7 |: & |
0b66 7a7c 1c04 |z| |
0b68 2c02 d406 |, |
0b6a 4058 0134 |@X 4|
0b6c 5d20 74cd |] t |
0b6e 8c9c 2402 | $ |
0b70 4a23 040e |J# |
0b72 c14b 7fad | K |
0b74 cc08 9c02 | |
0b76 6001 7c3d |` |=|
0b78 d643 4858 | CHX|
0b7a 74cf 417a |t Az|
0b7c 4211 936c |B l|
0b7e 36c8 2547 |6 %G|
0b80 b801 d006 | |
0b82 c84e 4213 | NB |
0b84 7803 ca46 |x F|
0b86 4e13 a401 |N |
0b88 5646 1002 |VF |
0b8a f207 dcfd | |
0b8c 4619 400a |F @ |
0b8e f006 4a23 | J#|
0b90 040e bc01 | |
0b92 06be d69f | |
0b94 a424 1244 | $ D|
0b96 f806 55fc | U |
0b98 2a46 b810 |*F |
0b9a b41b 2632 | &2|
0b9c 844e ec02 | N |
0b9e c633 f021 | 3 !|
0ba0 b2a6 040b | |
0ba2 0806 8400 | |
0ba4 742f 3620 |t/6 |
0ba6 2400 79fa |$ y |
0ba8 0a9d e82a | *|
0baa 0c26 2fc3 | &/ |
0bac a04a e4cc | J |
0bae bf88 f408 | |
0bb0 4400 2e21 |D .!|
0bb2 a000 5e31 | ^1|
0bb4 ac05 6c7a | lz|
0bb6 e001 e829 | )|
0bb8 1795 8804 | |
0bba 22f9 301f |" 0 |
0bbc f800 0451 | Q|
0bbe f939 b2a4 | 9 |
0bc0 0a5a 3876 | Z8v|
0bc2 a059 e000 | Y |
0bc4 0c3e 8c0f | > |
0bc6 1808 ac16 | |
0bc8 1e67 9c07 | g |
0bca 7c02 c291 || |
0bcc 37ae 5176 |7 Qv|
0bce 7a4d e84f |zM O|
0bd0 f802 042b | +|
0bd2 0b84 0005 | |
0bd4 37ae 5176 |7 Qv|
0bd6 7a4d e84f |zM O|
0bd8 f802 0428 | (|
0bda 8800 b340 | @|
0bdc 1007 0019 | |
0bde bc8c 00d0 | |
0be0 419c 0030 |A 0|
0be2 6d70 1d00 |mp |
0be4 1001 55c2 | U |
0be6 06e2 1041 | A|
0be8 2af4 00c4 |* |
0bea 8016 0013 | |
0bec fd41 5780 | AW |
0bee 2331 1060 |#1 `|
0bf0 ca98 29b9 | ) |
0bf2 011c 0b40 | @|
0bf4 11d8 1939 | 9|
0bf6 0a53 22bb | S" |
0bf8 9409 dd5b | [|
0bfa 0bc2 819c | |
0bfc 8432 7524 | 2u$|
0bfe 6c1e f1a8 |l |