|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 0a30 | 0 | .CONST 0x0a30 ; 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 INIT_0168,For_Call
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 08db | | Declare_Subprogram INIT_08d8,For_Call
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 INIT_0190,For_Outer_Call,Visible,Unelaborated
00b7 c24b | K | Store 0x1,0x4b
00b8 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
00ba c25d | ] | Store 0x1,0x5d
00bb 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
00bd c24d | M | Store 0x1,0x4d
00be 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
00c0 c24e | N | Store 0x1,0x4e
00c1 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
00c3 c250 | P | Store 0x1,0x50
00c4 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
00c6 c263 | c | Store 0x1,0x63
00c7 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
00c9 c27e | ~ | Store 0x1,0x7e
00ca 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
00cc c265 | e | Store 0x1,0x65
00cd 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
00cf c277 | w | Store 0x1,0x77
00d0 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
00d2 c24f | O | Store 0x1,0x4f
00d3 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
00d5 c270 | p | Store 0x1,0x70
00d6 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
00d8 c271 | q | Store 0x1,0x71
00d9 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
00db c252 | R | Store 0x1,0x52
00dc 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
00de c253 | S | Store 0x1,0x53
00df 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
00e1 c254 | T | Store 0x1,0x54
00e2 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated
00e4 c27d | } | Store 0x1,0x7d
00e5 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
00e7 c27c | | | Store 0x1,0x7c
00e8 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated
00ea c272 | r | Store 0x1,0x72
00eb 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
00ed c276 | v | Store 0x1,0x76
00ee 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated
00f0 c273 | s | Store 0x1,0x73
00f1 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated
00f3 c274 | t | Store 0x1,0x74
00f4 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated
00f6 c26d | m | Store 0x1,0x6d
00f7 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated
00f9 c26e | n | Store 0x1,0x6e
00fa 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated
00fc c21f | | Store 0x1,0x1f
00fd 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
00ff c25c | \ | Store 0x1,0x5c
0100 029a 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call,Visible,Unelaborated
0102 c279 | y | Store 0x1,0x79
0103 029a 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call,Visible,Unelaborated
0105 c27a | z | Store 0x1,0x7a
0106 029a 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call,Visible,Unelaborated
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 INIT_0720,For_Call
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 INIT_0748,For_Outer_Call
0120 029d 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call
0122 029d 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call
0124 029d 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call
0126 029d 080b | | Declare_Subprogram INIT_0808,For_Outer_Call
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 0x8
016c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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 091b | | Action Push_String_Extended_Indexed,0x91b ; "ES_OK"
0177 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x1
0181 00db | | Load_Top At_Offset_3
0182 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0183 00db | | Load_Top At_Offset_3
0184 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x2
01c5 0920 e007 | | .XXX[0x22]
01c7 1844 4502 | DE |
01c9 0920 e007 | |
01cb 1836 4502 | 6E |
01cd 0921 e5ff | ! |
01cf e002 1813 | |
01d1 0092 0920 | |
01d3 e007 183d | =|
01d5 4502 0920 |E |
01d7 e007 1837 | 7|
01d9 4502 0921 |E !|
01db e5ff e002 | |
01dd 1813 0092 | |
01df 0920 e007 | |
01e1 1839 4502 | 9E |
01e3 0920 e007 | |
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 0920 | | Action Push_String_Extended,0x920 ; "object"
01f1 e007 | | Load 0x0,0x7
01f2 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
01f3 4502 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0922 | "| Action Push_String_Extended,0x922 ; "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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0923 | #| Action Push_String_Extended,0x923 ; "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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0924 | $| Action Push_String_Extended,0x924 ; "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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0925 | %| Action Push_String_Extended,0x925 ; "_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_Suprogram New_Top_Offset 0x3
02b1 e5fd | | Load 0x2,-0x3
02b2 0092 0926 | &| Action Push_String_Extended,0x926 ; "_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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0927 | '| Action Push_String_Extended,0x927 ; "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 0928 | (| Action Push_String_Extended,0x928 ; "<PROFILE>"
0328 0092 0929 | )| Action Push_String_Extended,0x929 ; "$"
032a 0092 092a | *| Action Push_String_Extended,0x92a ; "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 092b | +| Action Push_String_Extended,0x92b ; "\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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 092c | ,| Action Push_String_Extended,0x92c ; "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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 092d | -| Action Push_String_Extended,0x92d ; "."
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 092e | .| Action Push_String_Extended,0x92e ; "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 092f | /| Action Push_String_Extended,0x92f ; "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_Suprogram New_Top_Offset 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 0920 | | Action Push_String_Extended,0x920 ; "object"
045a e007 | | Load 0x0,0x7
045b 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
045c 4503 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0920 | | Action Push_String_Extended,0x920 ; "object"
0480 e007 | | Load 0x0,0x7
0481 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0482 4503 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0930 | 0| Action Push_String_Extended,0x930 ; "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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0931 | 1| Action Push_String_Extended,0x931 ; "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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 082b | +| Declare_Subprogram INIT_0828,For_Call
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 0x19
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 0932 | 2| Action Push_String_Extended,0x932 ; "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 0933 | 3| Action Push_String_Extended,0x933 ; "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 0932 | 2| Action Push_String_Extended,0x932 ; "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 0932 | 2| Action Push_String_Extended,0x932 ; "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 0933 | 3| Action Push_String_Extended,0x933 ; "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 0932 | 2| Action Push_String_Extended,0x932 ; "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 0932 | 2| Action Push_String_Extended,0x932 ; "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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0934 | 4| Action Push_String_Extended,0x934 ; "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 0935 | 5| Action Push_String_Extended,0x935 ; "<RAISE_EXCEPTION>"
0609 0092 0929 | )| Action Push_String_Extended,0x929 ; "$"
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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0936 | 6| Action Push_String_Extended,0x936 ; "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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0843 | C| Declare_Subprogram INIT_0840,For_Call
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 0x19
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 0937 | 7| Action Push_String_Extended,0x937 ; "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 0938 | 8| Action Push_String_Extended,0x938 ; "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 0937 | 7| Action Push_String_Extended,0x937 ; "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 0937 | 7| Action Push_String_Extended,0x937 ; "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 0937 | 7| Action Push_String_Extended,0x937 ; "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 0938 | 8| Action Push_String_Extended,0x938 ; "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 0937 | 7| Action Push_String_Extended,0x937 ; "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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x8
0724 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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 091d | | Action Push_String_Extended_Indexed,0x91d ; "UNKNOWN"
072f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x1
0739 00db | | Load_Top At_Offset_3
073a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
073b 00db | | Load_Top At_Offset_3
073c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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 087b | {| Declare_Subprogram INIT_0878,For_Call
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 0782 | | .CONST 0x0782 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0005 | | .CONST 0x0005 ; 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 e015 | | Load 0x0,0x15
077d 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
077e 00d8 | | Load_Top At_Offset_0
077f 01dd | | Execute Vector,First
0780 00e2 | | Load_Encached Integer_Cache
0781 03f1 | | Declare_Variable Discrete,With_Value
0782 BODY_0760:
0782 4800 |H | Short_Literal 0x0
0783 a5ff | | Store_Unchecked 0x2,-0x1
0784 00cf | | Action Mark_Auxiliary
0785 00d9 | | Load_Top At_Offset_1
0786 00db | | Load_Top At_Offset_3
0787 01d7 | | Execute Vector,Field_Read
0788 0f5f | _ | Execute_Immediate Equal,0x5f
0789 7005 |p | Jump_Nonzero 0x78f
078a 00d9 | | Load_Top At_Offset_1
078b 0a01 | | Execute_Immediate Plus,0x1
078c 005a | Z | Store_Top Discrete,At_Offset_2
078d 00c9 | | Action Pop_Auxiliary_Loop
078e 7ff6 | | Jump 0x785
078f 00c9 | | Action Pop_Auxiliary_Loop
0790 e402 | | Load 0x2,0x2
0791 01d9 | | Execute Vector,Reverse_Bounds
0792 00cf | | Action Mark_Auxiliary
0793 e405 | | Load 0x2,0x5
0794 0a01 | | Execute_Immediate Plus,0x1
0795 c405 | | Store 0x2,0x5
0796 e405 | | Load 0x2,0x5
0797 e404 | | Load 0x2,0x4
0798 01d7 | | Execute Vector,Field_Read
0799 4830 |H0 | Short_Literal 0x30
079a 4839 |H9 | Short_Literal 0x39
079b 0262 | b | Execute Discrete,In_Range
079c 6810 |h | Jump_Zero 0x7ad
079d 00d9 | | Load_Top At_Offset_1
079e e403 | | Load 0x2,0x3
079f 01d7 | | Execute Vector,Field_Read
07a0 480a |H | Short_Literal 0xa
07a1 0271 | q | Execute Discrete,Times
07a2 e405 | | Load 0x2,0x5
07a3 00d8 | | Load_Top At_Offset_0
07a4 e404 | | Load 0x2,0x4
07a5 01cf | | Execute Vector,Slice_Read
07a6 00e2 | | Load_Encached Integer_Cache
07a7 00e0 | | Load_Encached Standard_Cache
07a8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
07a9 0273 | s | Execute Discrete,Plus
07aa 00da | | Load_Top At_Offset_2
07ab e403 | | Load 0x2,0x3
07ac 01d6 | | Execute Vector,Field_Write
07ad e405 | | Load 0x2,0x5
07ae e404 | | Load 0x2,0x4
07af 01dc | | Execute Vector,Last
07b0 027b | { | Execute Discrete,Greater_Equal
07b1 e405 | | Load 0x2,0x5
07b2 e404 | | Load 0x2,0x4
07b3 01d7 | | Execute Vector,Field_Read
07b4 0f5f | _ | Execute_Immediate Equal,0x5f
07b5 0278 | x | Execute Discrete,Or
07b6 7002 |p | Jump_Nonzero 0x7b9
07b7 00c9 | | Action Pop_Auxiliary_Loop
07b8 7fda | | Jump 0x793
07b9 00ce | | Action Pop_Auxiliary
07ba 00db | | Load_Top At_Offset_3
07bb e404 | | Load 0x2,0x4
07bc 01dc | | Execute Vector,Last
07bd 027b | { | Execute Discrete,Greater_Equal
07be 6802 |h | Jump_Zero 0x7c1
07bf 00d2 | | Pop_Control Pop_Count_2
07c0 7802 |x | Jump 0x7c3
07c1 00c8 | | Action Pop_Auxiliary_Range
07c2 3fcf |? | Loop_Increasing 0x792
07c3 00ce | | Action Pop_Auxiliary
07c4 4801 |H | Short_Literal 0x1
07c5 00db | | Load_Top At_Offset_3
07c6 01d7 | | Execute Vector,Field_Read
07c7 0c0c | | Execute_Immediate Greater_Equal,0xc
07c8 4802 |H | Short_Literal 0x2
07c9 e403 | | Load 0x2,0x3
07ca 01d7 | | Execute Vector,Field_Read
07cb 0c05 | | Execute_Immediate Greater_Equal,0x5
07cc 0279 | y | Execute Discrete,And
07cd 4803 |H | Short_Literal 0x3
07ce e403 | | Load 0x2,0x3
07cf 01d7 | | Execute Vector,Field_Read
07d0 0c00 | | Execute_Immediate Greater_Equal,0x0
07d1 0279 | y | Execute Discrete,And
07d2 6803 |h | Jump_Zero 0x7d6
07d3 4802 |H | Short_Literal 0x2
07d4 a5ff | | Store_Unchecked 0x2,-0x1
07d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07d6 4801 |H | Short_Literal 0x1
07d7 a5ff | | Store_Unchecked 0x2,-0x1
07d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07d9 0000 0000 | | .BLANK 0000[0x7]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 4801 |H | Short_Literal 0x1
07e4 e24a | J | Load 0x1,0x4a
07e5 1c08 | | Execute_Immediate Run_Utility,0x8
07e6 00d8 | | Load_Top At_Offset_0
07e7 1c01 | | Execute_Immediate Run_Utility,0x1
07e8 4900 |I | Short_Literal 0x100
07e9 e5ff | | Load 0x2,-0x1
07ea e002 | | Load 0x0,0x2
07eb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07ec 00d9 | | Load_Top At_Offset_1
07ed 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
07ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07ef 0000 | | .XXX[0x1]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3 | | .CONST 0x07f3 ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0001 | | .CONST 0x0001 ; Number of locals
07f3 BODY_07f0:
07f3 INIT_07f0:
07f3 4801 |H | Short_Literal 0x1
07f4 e24a | J | Load 0x1,0x4a
07f5 1c08 | | Execute_Immediate Run_Utility,0x8
07f6 00d8 | | Load_Top At_Offset_0
07f7 1c01 | | Execute_Immediate Run_Utility,0x1
07f8 4900 |I | Short_Literal 0x100
07f9 e5ff | | Load 0x2,-0x1
07fa e002 | | Load 0x0,0x2
07fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07fc e002 | | Load 0x0,0x2
07fd 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07fe 00d9 | | Load_Top At_Offset_1
07ff 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0800 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0801 0000 0000 | | .BLANK 0000[0x7]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 0813 | | .CONST 0x0813 ; Address of begin
0809 0004 | | .CONST 0x0004 ; Address of exception handler
080a 0003 | | .CONST 0x0003 ; Number of locals
080b INIT_0808:
080b e003 | | Load 0x0,0x3
080c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
080d 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
080e 02c7 | | Declare_Variable Any
080f 00d8 | | Load_Top At_Offset_0
0810 1c00 | | Execute_Immediate Run_Utility,0x0
0811 029f 088b | | Declare_Subprogram INIT_0888,For_Call
0813 BODY_0808:
0813 00d9 | | Load_Top At_Offset_1
0814 0120 | | Execute Any,Is_Value
0815 6804 |h | Jump_Zero 0x81a
0816 e003 | | Load 0x0,0x3
0817 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0818 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0819 7801 |x | Jump 0x81b
081a 00d9 | | Load_Top At_Offset_1
081b e281 | | Load 0x1,0x81
081c e003 | | Load 0x0,0x3
081d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
081e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
081f c402 | | Store 0x2,0x2
0820 00d9 | | Load_Top At_Offset_1
0821 e003 | | Load 0x0,0x3
0822 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0823 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0824 6801 |h | Jump_Zero 0x826
0825 8403 | | Call 0x2,0x3
0826 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0827 0000 | | .XXX[0x1]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 0831 | 1 | .CONST 0x0831 ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0002 | | .CONST 0x0002 ; Number of locals
082b INIT_0828:
082b e403 | | Load 0x2,0x3
082c e003 | | Load 0x0,0x3
082d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
082e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
082f e00a | | Load 0x0,0xa
0830 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0831 BODY_0828:
0831 e009 | | Load 0x0,0x9
0832 180e | | Execute Package,Field_Execute,Field_Number 0xe
0833 4803 |H | Short_Literal 0x3
0834 0092 0939 | 9| Action Push_String_Extended,0x939 ; "The new object context is "
0836 00db | | Load_Top At_Offset_3
0837 01cc | | Execute Vector,Catenate
0838 e00b | | Load 0x0,0xb
0839 1813 | | Execute Package,Field_Execute,Field_Number 0x13
083a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
083b 0000 0000 | | .BLANK 0000[0x5]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0850 | P | .CONST 0x0850 ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0003 | | .CONST 0x0003 ; 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 e003 | | Load 0x0,0x3
0848 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0849 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
084a 02c7 | | Declare_Variable Any
084b e403 | | Load 0x2,0x3
084c e003 | | Load 0x0,0x3
084d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
084e 181f | | Execute Package,Field_Execute,Field_Number 0x1f
084f a603 | | Store_Unchecked 0x3,0x3
0850 BODY_0840:
0850 4801 |H | Short_Literal 0x1
0851 0092 0937 | 7| Action Push_String_Extended,0x937 ; "activity"
0853 00da | | Load_Top At_Offset_2
0854 e003 | | Load 0x0,0x3
0855 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0856 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0857 e00a | | Load 0x0,0xa
0858 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0859 6811 |h | Jump_Zero 0x86b
085a 0092 0928 | (| Action Push_String_Extended,0x928 ; "<PROFILE>"
085c 00da | | Load_Top At_Offset_2
085d e013 | | Load 0x0,0x13
085e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
085f e009 | | Load 0x0,0x9
0860 180e | | Execute Package,Field_Execute,Field_Number 0xe
0861 4803 |H | Short_Literal 0x3
0862 0092 093a | :| Action Push_String_Extended,0x93a ; "The new activity is "
0864 e602 | | Load 0x3,0x2
0865 e00a | | Load 0x0,0xa
0866 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0867 01cc | | Execute Vector,Catenate
0868 e00b | | Load 0x0,0xb
0869 1813 | | Execute Package,Field_Execute,Field_Number 0x13
086a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
086b 4801 |H | Short_Literal 0x1
086c 00da | | Load_Top At_Offset_2
086d 0092 0937 | 7| Action Push_String_Extended,0x937 ; "activity"
086f e007 | | Load 0x0,0x7
0870 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0871 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0872 0000 0000 | | .BLANK 0000[0x6]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 087e | ~ | .CONST 0x087e ; Address of begin
0879 0004 | | .CONST 0x0004 ; Address of exception handler
087a 0002 | | .CONST 0x0002 ; Number of locals
087b INIT_0878:
087b e402 | | Load 0x2,0x2
087c e014 | | Load 0x0,0x14
087d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
087e BODY_0878:
087e e402 | | Load 0x2,0x2
087f e014 | | Load 0x0,0x14
0880 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0881 c402 | | Store 0x2,0x2
0882 00d8 | | Load_Top At_Offset_0
0883 00cb | | Action Pop_Block_With_Result
0884 00ca | | Action Exit_Nullary_Function
0885 0000 0000 | | .XXX[0x3]
0887 0000 | |
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088f | | .CONST 0x088f ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0002 | | .CONST 0x0002 ; Number of locals
088b INIT_0888:
088b e281 | | Load 0x1,0x81
088c e003 | | Load 0x0,0x3
088d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
088e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
088f BODY_0888:
088f e402 | | Load 0x2,0x2
0890 e003 | | Load 0x0,0x3
0891 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0892 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0893 4618 |F | Jump_Case 0x19
0894 7818 |x | Jump 0x8ad ; case 0x0
0895 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1
0896 781d |x | Jump 0x8b4 ; case 0x2
0897 7815 |x | Jump 0x8ad ; case 0x3
0898 7814 |x | Jump 0x8ad ; case 0x4
0899 7813 |x | Jump 0x8ad ; case 0x5
089a 7812 |x | Jump 0x8ad ; case 0x6
089b 7811 |x | Jump 0x8ad ; case 0x7
089c 7810 |x | Jump 0x8ad ; case 0x8
089d 782f |x/ | Jump 0x8cd ; case 0x9
089e 780e |x | Jump 0x8ad ; case 0xa
089f 780d |x | Jump 0x8ad ; case 0xb
08a0 780c |x | Jump 0x8ad ; case 0xc
08a1 780b |x | Jump 0x8ad ; case 0xd
08a2 780a |x | Jump 0x8ad ; case 0xe
08a3 7809 |x | Jump 0x8ad ; case 0xf
08a4 7818 |x | Jump 0x8bd ; case 0x10
08a5 7820 |x | Jump 0x8c6 ; case 0x11
08a6 7806 |x | Jump 0x8ad ; case 0x12
08a7 7805 |x | Jump 0x8ad ; case 0x13
08a8 7804 |x | Jump 0x8ad ; case 0x14
08a9 7803 |x | Jump 0x8ad ; case 0x15
08aa 7802 |x | Jump 0x8ad ; case 0x16
08ab 7801 |x | Jump 0x8ad ; case 0x17
08ac 7800 |x | Jump 0x8ad ; case 0x18
08ad 4801 |H | Short_Literal 0x1
08ae 00d9 | | Load_Top At_Offset_1
08af 0092 093b | ;| Action Push_String_Extended,0x93b ; "diagram"
08b1 e007 | | Load 0x0,0x7
08b2 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
08b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08b4 4801 |H | Short_Literal 0x1
08b5 0092 0933 | 3| Action Push_String_Extended,0x933 ; "used as the context"
08b7 00da | | Load_Top At_Offset_2
08b8 0092 0932 | 2| Action Push_String_Extended,0x932 ; "library"
08ba e007 | | Load 0x0,0x7
08bb 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
08bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08bd 4801 |H | Short_Literal 0x1
08be 0092 0933 | 3| Action Push_String_Extended,0x933 ; "used as the context"
08c0 00da | | Load_Top At_Offset_2
08c1 0092 0932 | 2| Action Push_String_Extended,0x932 ; "library"
08c3 e007 | | Load 0x0,0x7
08c4 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
08c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08c6 4801 |H | Short_Literal 0x1
08c7 00d9 | | Load_Top At_Offset_1
08c8 0092 0932 | 2| Action Push_String_Extended,0x932 ; "library"
08ca e007 | | Load 0x0,0x7
08cb 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
08cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08cd 4801 |H | Short_Literal 0x1
08ce 00d9 | | Load_Top At_Offset_1
08cf 0092 0932 | 2| Action Push_String_Extended,0x932 ; "library"
08d1 e007 | | Load 0x0,0x7
08d2 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
08d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08d4 0000 0000 | | .BLANK 0000[0x4]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08db | | .CONST 0x08db ; Address of begin
08d9 0004 | | .CONST 0x0004 ; Address of exception handler
08da 0001 | | .CONST 0x0001 ; Number of locals
08db BODY_08d8:
08db INIT_08d8:
08db 4608 |F | Jump_Case 0x9
08dc 7808 |x | Jump 0x8e5 ; case 0x0
08dd 781c |x | Jump 0x8fa ; case 0x1
08de 783b |x; | Jump 0x91a ; case 0x2
08df 783a |x: | Jump 0x91a ; case 0x3
08e0 7839 |x9 | Jump 0x91a ; case 0x4
08e1 7838 |x8 | Jump 0x91a ; case 0x5
08e2 781f |x | Jump 0x902 ; case 0x6
08e3 7826 |x& | Jump 0x90a ; case 0x7
08e4 782e |x. | Jump 0x913 ; case 0x8
08e5 00da | | Load_Top At_Offset_2
08e6 016c | l | Execute Variant_Record,Is_Constrained
08e7 7009 |p | Jump_Nonzero 0x8f1
08e8 00cf | | Action Mark_Auxiliary
08e9 4800 |H | Short_Literal 0x0
08ea e5ff | | Load 0x2,-0x1
08eb 1c08 | | Execute_Immediate Run_Utility,0x8
08ec 00d8 | | Load_Top At_Offset_0
08ed 1c00 | | Execute_Immediate Run_Utility,0x0
08ee c5ff | | Store 0x2,-0x1
08ef 00ce | | Action Pop_Auxiliary
08f0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
08f1 00da | | Load_Top At_Offset_2
08f2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
08f3 6805 |h | Jump_Zero 0x8f9
08f4 00da | | Load_Top At_Offset_2
08f5 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
08f6 00da | | Load_Top At_Offset_2
08f7 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
08f8 1c00 | | Execute_Immediate Run_Utility,0x0
08f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
08fa 00da | | Load_Top At_Offset_2
08fb 016b | k | Execute Variant_Record,Read_Variant
08fc 00d8 | | Load_Top At_Offset_0
08fd 0f01 | | Execute_Immediate Equal,0x1
08fe 6802 |h | Jump_Zero 0x901
08ff 00db | | Load_Top At_Offset_3
0900 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0901 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0902 00db | | Load_Top At_Offset_3
0903 0f01 | | Execute_Immediate Equal,0x1
0904 7001 |p | Jump_Nonzero 0x906
0905 7802 |x | Jump 0x908
0906 4801 |H | Short_Literal 0x1
0907 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0908 48ff |H | Short_Literal 0xff
0909 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
090a 00db | | Load_Top At_Offset_3
090b e5fe | | Load 0x2,-0x2
090c 6802 |h | Jump_Zero 0x90f
090d 4801 |H | Short_Literal 0x1
090e 7801 |x | Jump 0x910
090f 48ff |H | Short_Literal 0xff
0910 e5ff | | Load 0x2,-0x1
0911 031b | | Declare_Type Variant_Record,Constrained
0912 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0913 00db | | Load_Top At_Offset_3
0914 e5fe | | Load 0x2,-0x2
0915 e5ff | | Load 0x2,-0x1
0916 1c06 | | Execute_Immediate Run_Utility,0x6
0917 e5ff | | Load 0x2,-0x1
0918 02fc | | Declare_Variable Variant_Record,With_Constraint
0919 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
091a 0869 | i | Execute_Immediate Raise,0x69
091b ; --------------------------------------------------------------------------------------
091b ; STRING TABLE
091b ; --------------------------------------------------------------------------------------
091b 0044 | D | .STRTAB 0x0044->0x093d ; "ES_OK"
091c 0047 | G | .STRTAB 0x0047->0x093f ; "ES_ERROR"
091d 004d | M | .STRTAB 0x004d->0x0943 ; "UNKNOWN"
091e 0052 | R | .STRTAB 0x0052->0x0947 ; "D2"
091f 0052 | R | .STRTAB 0x0052->0x0948 ; "D3"
0920 0052 | R | .STRTAB 0x0052->0x0949 ; "object"
0921 0056 | V | .STRTAB 0x0056->0x094c ; "deleted"
0922 005b | [ | .STRTAB 0x005b->0x094f ; "Getting diagram name "
0923 006e | n | .STRTAB 0x006e->0x095a ; "Storing diagram name "
0924 0081 | | .STRTAB 0x0081->0x0964 ; "Storing print file name "
0925 0097 | | .STRTAB 0x0097->0x0970 ; "_MIL"
0926 0099 | | .STRTAB 0x0099->0x0972 ; "_PS"
0927 009a | | .STRTAB 0x009a->0x0974 ; "Common.Definition of object "
0928 00b4 | | .STRTAB 0x00b4->0x0982 ; "<PROFILE>"
0929 00bb | | .STRTAB 0x00bb->0x0986 ; "$"
092a 00ba | | .STRTAB 0x00ba->0x0987 ; "Common.Definition (\x22"
092b 00cc | | .STRTAB 0x00cc->0x0991 ; "\x22)"
092c 00cc | | .STRTAB 0x00cc->0x0992 ; "Deleting diagram name "
092d 00e0 | | .STRTAB 0x00e0->0x099d ; "."
092e 00df | | .STRTAB 0x00df->0x099d ; "Generating diagram from indirect file "
092f 0103 | | .STRTAB 0x0103->0x09b0 ; "Generating diagram for "
0930 0118 | | .STRTAB 0x0118->0x09bc ; "The current diagram context is "
0931 0135 | 5 | .STRTAB 0x0135->0x09cb ; "The current object context is "
0932 0151 | Q | .STRTAB 0x0151->0x09da ; "library"
0933 0156 | V | .STRTAB 0x0156->0x09de ; "used as the context"
0934 0167 | g | .STRTAB 0x0167->0x09e7 ; "Executing "
0935 016f | o | .STRTAB 0x016f->0x09ec ; "<RAISE_EXCEPTION>"
0936 017e | ~ | .STRTAB 0x017e->0x09f5 ; "The current activity is "
0937 0194 | | .STRTAB 0x0194->0x0a01 ; "activity"
0938 019a | | .STRTAB 0x019a->0x0a05 ; "used as the activity"
0939 01ac | | .STRTAB 0x01ac->0x0a0f ; "The new object context is "
093a 01c4 | | .STRTAB 0x01c4->0x0a1c ; "The new activity is "
093b 01d6 | | .STRTAB 0x01d6->0x0a26 ; "diagram"
093c 01db | | .STREND 0x01db->0x0a29
093d 4553 5f4f |ES_O| .STRTAB_STRINGS
0a2a 0000 0000 | | .BLANK 0000[0x6]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; Debug Table
0a30 ; --------------------------------------------------------------------------------------
0a30 0004 0014 | | .DEBUG4 0x0004,0x0014,0x1912,0x0000,0x0001,0x0000
0a36 c2d8 56ec | V | .XXX[0x1ca]
0a38 56d9 3add |V : |
0a3a b2d7 eebb | |
0a3c face dae8 | |
0a3e 06d5 0780 | |
0a40 7adb aacc |z |
0a42 1abe a388 | |
0a44 66d4 5389 |f S |
0a46 12cc 9ed8 | |
0a48 42e8 af87 |B |
0a4a 7ed5 8638 |~ 8|
0a4c b2d9 ac00 | |
0a4e 76d5 92bf |v |
0a50 2388 0eec |# |
0a52 cada 9e1c | |
0a54 d2d8 1048 | H|
0a56 eac5 9f7c | ||
0a58 fad8 e6da | |
0a5a 12d9 2e37 | .7|
0a5c 0b8a 96da | |
0a5e be19 76e8 | v |
0a60 eada 56bf | V |
0a62 6f88 4ed9 |o N |
0a64 1adb f380 | |
0a66 3a0e 8ebe |: |
0a68 8a0b 8aee | |
0a6a 32cc 177d |2 }|
0a6c daeb 8f79 | y|
0a6e 46d8 f619 |F |
0a70 4ed8 a6d3 |N |
0a72 0ebe ef89 | |
0a74 ead8 6ad5 | j |
0a76 6adb ab88 |j |
0a78 12ac dec2 | |
0a7a f2c5 7edb | ~ |
0a7c 9261 cae7 | a |
0a7e 4f8a cb81 |O |
0a80 9f7f e78b | |
0a82 eb85 636e | cn|
0a84 e61b f78b | |
0a86 9b87 c60b | |
0a88 d2ed 2634 | &4|
0a8a 5226 aac5 |R& |
0a8c 72e2 a60a |r |
0a8e 7f88 22c0 | " |
0a90 7a15 82eb |z |
0a92 d6e8 bb7d | }|
0a94 c801 f6d9 | |
0a96 42d0 7a16 |B z |
0a98 ff87 fadb | |
0a9a f38b 7f89 | |
0a9c e68f 9f8a | |
0a9e 02d9 cae7 | |
0aa0 12d0 7a16 | z |
0aa2 eec9 e2ec | |
0aa4 4ed9 cae5 |N |
0aa6 96d1 8e17 | |
0aa8 face c2ce | |
0aaa 56db 1ae4 |V |
0aac 8254 06c8 | T |
0aae 7a16 bece |z |
0ab0 a78b 8a20 | |
0ab2 1ada 82db | |
0ab4 3688 5227 |6 R'|
0ab6 76c6 52d4 |v R |
0ab8 32da da92 |2 |
0aba a2da 060e | |
0abc fece b782 | |
0abe b6da 95ea | |
0ac0 e2da c6db | |
0ac2 6ed6 4eec |n N |
0ac4 9f8f aad1 | |
0ac6 aad6 bed8 | |
0ac8 db1e eada | |
0aca b2ec 9f8f | |
0acc 26ef 8b69 |& i|
0ace 6e47 8247 |nG G|
0ad0 d6ca ff6f | o|
0ad2 fadb 16d8 | |
0ad4 978f 8645 | E|
0ad6 0f63 8549 | c I|
0ad8 338e 4e21 |3 N!|
0ada bef0 6e1f | n |
0adc 4f89 4e0c |O N |
0ade 738f e2d2 |s |
0ae0 5af7 5edb |Z ^ |
0ae2 84b3 938b | |
0ae4 8244 3ec6 | D> |
0ae6 0b89 46d7 | F |
0ae8 ef80 473f | G?|
0aea 8245 6f81 | Eo |
0aec 9f7c 32db | |2 |
0aee 96d9 6f8f | o |
0af0 5ec6 daeb |^ |
0af2 b2db dedb | |
0af4 beda 0e8c | |
0af6 eac8 3e0c | > |
0af8 9f8e 1edb | |
0afa b6db 5e93 | ^ |
0afc e6da dec7 | |
0afe 7b23 face |{# |
0b00 f783 ead4 | |
0b02 02dc 4618 | F |
0b04 0adf 0f25 | %|
0b06 4614 0258 |F X|
0b08 6b79 2f8d |ky/ |
0b0a 0669 763f | iv?|
0b0c 3788 5a92 |7 Z |
0b0e a6e8 b2de | |
0b10 c788 5f23 | _#|
0b12 4f89 42ca |O B |
0b14 daeb e788 | |
0b16 5edc def4 |^ |
0b18 9ade 478d | G |
0b1a 72c3 ff88 |r |
0b1c 2aec 7edd |* ~ |
0b1e c36f c6eb | o |
0b20 6788 aa14 |g |
0b22 738f 5ae5 |s Z |
0b24 3edd 8638 |> 8|
0b26 678e 7f8d |g |
0b28 938c bab4 | |
0b2a 31ce 578c |1 W |
0b2c 5f20 eade |_ |
0b2e 478d ab8e |G |
0b30 a38e 8f8c | |
0b32 dedc e6dd | |
0b34 12de 478e | G |
0b36 d388 86e9 | |
0b38 02df cad5 | |
0b3a 0adc 9ade | |
0b3c b38f 7f8b | |
0b3e 6213 ca66 |b f|
0b40 e6e6 5691 | V |
0b42 32de 3f8c |2 ? |
0b44 7edf 4f89 |~ O |
0b46 9b85 9f7c | ||
0b48 4401 0ae3 |D |
0b4a 1b88 2ac0 | * |
0b4c df54 5001 | TP |
0b4e 06e2 3314 | 3 |
0b50 f2e0 2e0f | . |
0b52 e2c5 bed4 | |
0b54 d2e0 2ebe | . |
0b56 7e0f d6cb |~ |
0b58 e6c6 46d2 | F |
0b5a 8ee6 b2e8 | |
0b5c 26c0 36c9 |& 6 |
0b5e 0ae8 c68d | |
0b60 4b8c 578e |K W |
0b62 ce18 52ca | R |
0b64 deeb b23a | :|
0b66 eae8 b2c3 | |
0b68 8f78 c47e | x ~|
0b6a faea 7e0e | ~ |
0b6c bb8e f6c9 | |
0b6e 4f88 1208 |O |
0b70 de2b 7f89 | + |
0b72 4eb4 738c |N s |
0b74 82d4 de93 | |
0b76 138f 6387 | c |
0b78 c60b e2d3 | |
0b7a 32eb fed9 |2 |
0b7c aa7b 4f8b | {O |
0b7e 72ca dae8 |r |
0b80 32d9 1a8f |2 |
0b82 f38c 178c | |
0b84 f2d4 6ad7 | j |
0b86 62eb 7f8a |b |
0b88 d385 9f7f | |
0b8a ead7 72eb | r |
0b8c d627 9ae9 | ' |
0b8e b6c1 82ea | |
0b90 238d 1a8c |# |
0b92 3390 0211 |3 |
0b94 7e0e fb8c |~ |
0b96 a6f1 af6c | l|
0b98 7d0b f38f |} |
0b9a caef d6d9 | |
0b9c 46d6 6f6b |F ok|
0b9e f38e 9f8e | |
0ba0 c2d4 4613 | F |
0ba2 dee8 1b93 | |
0ba4 af8c 92dc | |
0ba6 eb82 4213 | B |
0ba8 f6e8 12d4 | |
0baa fe27 f38e | ' |
0bac d78f eac5 | |
0bae bb6e ee2f | n /|
0bb0 d783 8a09 | |
0bb2 a37a 1787 | z |
0bb4 82b2 0ee3 | |
0bb6 4f89 367c |O 6||
0bb8 738c 4800 |s H |
0bba 3eec cae8 |> |
0bbc 1e1c f2ca | |
0bbe 0b78 7771 | xwq|
0bc0 078e e60c | |
0bc2 72ca 3ec3 |r > |
0bc4 36f6 5ec3 |6 ^ |
0bc6 d6cb fa57 | W|
0bc8 0a08 82ed | |
0bca fe24 0210 | $ |
0bcc 8626 1f5f | & _|
0bce be0d 8775 | u|
0bd0 2b93 32c0 |+ 2 |
0bd2 cee4 4400 | D |
0bd4 aaec ff90 | |
0bd6 3ec4 cee4 |> |
0bd8 5c01 caf8 |\ |
0bda 9efc c2ec | |
0bdc 1e1d 6f82 | o |
0bde 4ecc a160 |N `|
0be0 1f61 d78e | a |
0be2 c624 4b61 | $Ka|
0be4 12ed 8e1c | |
0be6 eaec 1e1f | |
0be8 9ac1 22e6 | " |
0bea c6cf ba29 | )|
0bec 02ef 7f89 | |
0bee eecf 731a | s |
0bf0 e363 46c0 | cF |
0bf2 bac5 5ae5 | Z |
0bf4 2eed 3388 |. 3 |
0bf6 9b90 eb92 | |
0bf8 1ecc 9329 | )|
0bfa cf92 9a8d | |
0bfc 4eed d78d |N |
0bfe 92da a762 | b|