|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_11cacfe
└─⟦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 0568 | h | .CONST 0x0568 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00f5 | | .CONST 0x00f5 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0062 | b | .CONST 0x0062 ; 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 e001 | | Load 0x0,0x1
005d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005e 0129 | ) | Execute Any,Make_Visible
005f c228 | ( | Store 0x1,0x28
0060 e001 | | Load 0x0,0x1
0061 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0062 0129 | ) | Execute Any,Make_Visible
0063 c229 | ) | Store 0x1,0x29
0064 e001 | | Load 0x0,0x1
0065 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0066 0129 | ) | Execute Any,Make_Visible
0067 c22a | * | Store 0x1,0x2a
0068 e001 | | Load 0x0,0x1
0069 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006a 0129 | ) | Execute Any,Make_Visible
006b c22b | + | Store 0x1,0x2b
006c 4800 |H | Short_Literal 0x0
006d 4801 |H | Short_Literal 0x1
006e 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0070 03fe | | Declare_Type Discrete,Defined,Visible
0071 c23e | > | Store 0x1,0x3e
0072 e23e | > | Load 0x1,0x3e
0073 4801 |H | Short_Literal 0x1
0074 4900 |I | Short_Literal 0x100
0075 e001 | | Load 0x0,0x1
0076 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0077 1c07 | | Execute_Immediate Run_Utility,0x7
0078 0129 | ) | Execute Any,Make_Visible
0079 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call
007b 4801 |H | Short_Literal 0x1
007c 4800 |H | Short_Literal 0x0
007d 4801 |H | Short_Literal 0x1
007e 4800 |H | Short_Literal 0x0
007f 4801 |H | Short_Literal 0x1
0080 031e | | Declare_Type Variant_Record,Defined,Visible
0081 c24a | J | Store 0x1,0x4a
0082 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0084 c24b | K | Store 0x1,0x4b
0085 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0087 c25d | ] | Store 0x1,0x5d
0088 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
008a c24d | M | Store 0x1,0x4d
008b 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
008d c24e | N | Store 0x1,0x4e
008e 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0090 c24f | O | Store 0x1,0x4f
0091 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0093 c250 | P | Store 0x1,0x50
0094 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0096 c251 | Q | Store 0x1,0x51
0097 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0099 c252 | R | Store 0x1,0x52
009a 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
009c c253 | S | Store 0x1,0x53
009d 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
009f c254 | T | Store 0x1,0x54
00a0 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
00a2 c255 | U | Store 0x1,0x55
00a3 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
00a5 c256 | V | Store 0x1,0x56
00a6 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
00a8 c257 | W | Store 0x1,0x57
00a9 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
00ab c258 | X | Store 0x1,0x58
00ac 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
00ae c259 | Y | Store 0x1,0x59
00af 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
00b1 c25a | Z | Store 0x1,0x5a
00b2 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
00b4 c25b | [ | Store 0x1,0x5b
00b5 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
00b7 c21f | | Store 0x1,0x1f
00b8 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated
00ba c25c | \ | Store 0x1,0x5c
00bb 00bf | | Action Accept_Activation
00bc e002 | | Load 0x0,0x2
00bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00be 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00bf 02c7 | | Declare_Variable Any
00c0 e002 | | Load 0x0,0x2
00c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c3 a25e | ^ | Store_Unchecked 0x1,0x5e
00c4 4800 |H | Short_Literal 0x0
00c5 e24a | J | Load 0x1,0x4a
00c6 1c08 | | Execute_Immediate Run_Utility,0x8
00c7 00d8 | | Load_Top At_Offset_0
00c8 1c01 | | Execute_Immediate Run_Utility,0x1
00c9 029d 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call
00cb 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call
00cd 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call
00cf 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
00d0 00c7 | | Action Elaborate_Subprogram
00d1 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
00d2 00c7 | | Action Elaborate_Subprogram
00d3 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d
00d4 00c7 | | Action Elaborate_Subprogram
00d5 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
00d6 00c7 | | Action Elaborate_Subprogram
00d7 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
00d8 00c7 | | Action Elaborate_Subprogram
00d9 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51
00da 00c7 | | Action Elaborate_Subprogram
00db 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f
00dc 00c7 | | Action Elaborate_Subprogram
00dd 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
00de 00c7 | | Action Elaborate_Subprogram
00df 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
00e0 00c7 | | Action Elaborate_Subprogram
00e1 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
00e2 00c7 | | Action Elaborate_Subprogram
00e3 1d55 | U | Execute_Immediate Reference_Lex_1,0x55
00e4 00c7 | | Action Elaborate_Subprogram
00e5 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
00e6 00c7 | | Action Elaborate_Subprogram
00e7 1d57 | W | Execute_Immediate Reference_Lex_1,0x57
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d58 | X | Execute_Immediate Reference_Lex_1,0x58
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59
00ec 00c7 | | Action Elaborate_Subprogram
00ed 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a
00ee 00c7 | | Action Elaborate_Subprogram
00ef 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b
00f0 00c7 | | Action Elaborate_Subprogram
00f1 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00f2 00c7 | | Action Elaborate_Subprogram
00f3 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c
00f4 00c7 | | Action Elaborate_Subprogram
00f5 BODY_0008:
00f5 00bc | | Action Signal_Activated
00f6 00bb | | Action Signal_Completion
00f7 0000 | | .XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4607 |F | Jump_Case 0x8
00fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00fd 7806 |x | Jump 0x104 ; case 0x1
00fe 7809 |x | Jump 0x108 ; case 0x2
00ff 780d |x | Jump 0x10d ; case 0x3
0100 7810 |x | Jump 0x111 ; case 0x4
0101 7811 |x | Jump 0x113 ; case 0x5
0102 7812 |x | Jump 0x115 ; case 0x6
0103 7815 |x | Jump 0x119 ; case 0x7
0104 00da | | Load_Top At_Offset_2
0105 0091 052b | +| Action Push_String_Extended_Indexed,0x52b ; "ES_OK"
0107 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0108 00db | | Load_Top At_Offset_3
0109 00db | | Load_Top At_Offset_3
010a 00e0 | | Load_Encached Standard_Cache
010b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010d 00da | | Load_Top At_Offset_2
010e 00e0 | | Load_Encached Standard_Cache
010f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0110 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0111 00db | | Load_Top At_Offset_3
0112 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0113 00db | | Load_Top At_Offset_3
0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0115 e23e | > | Load 0x1,0x3e
0116 00dc | | Load_Top At_Offset_4
0117 0267 | g | Execute Discrete,Predecessor
0118 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0119 e23e | > | Load 0x1,0x3e
011a 00dc | | Load_Top At_Offset_4
011b 0268 | h | Execute Discrete,Successor
011c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 012c | , | .CONST 0x012c ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00e1 | | Load_Encached Boolean_Cache
0124 e5fd | | Load 0x2,-0x3
0125 e5fe | | Load 0x2,-0x2
0126 e5ff | | Load 0x2,-0x1
0127 e003 | | Load 0x0,0x3
0128 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0129 00d2 | | Pop_Control Pop_Count_2
012a c5fc | | Store 0x2,-0x4
012b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012c TRAP_0120:
012c e004 | | Load 0x0,0x4
012d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012e 010f | | Execute Exception,Equal
012f 6802 |h | Jump_Zero 0x132
0130 00d8 | | Load_Top At_Offset_0
0131 0101 | | Execute Exception,Reraise
0132 4801 |H | Short_Literal 0x1
0133 e005 | | Load 0x0,0x5
0134 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 014a | J | .CONST 0x014a ; Address of begin
0139 01d3 | | .CONST 0x01d3 ; Address of exception handler
013a 0004 | | .CONST 0x0004 ; Number of locals
013b INIT_0138:
013b e002 | | Load 0x0,0x2
013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013e 02c7 | | Declare_Variable Any
013f 00d8 | | Load_Top At_Offset_0
0140 1c00 | | Execute_Immediate Run_Utility,0x0
0141 e002 | | Load 0x0,0x2
0142 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0143 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0144 02c7 | | Declare_Variable Any
0145 00d8 | | Load_Top At_Offset_0
0146 1c00 | | Execute_Immediate Run_Utility,0x0
0147 e002 | | Load 0x0,0x2
0148 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0149 1b44 | D | Execute Package,Field_Read,Field_Number 0x44
014a BODY_0138:
014a 8262 | b | Call 0x1,0x62
014b 4801 |H | Short_Literal 0x1
014c e002 | | Load 0x0,0x2
014d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014f e5ff | | Load 0x2,-0x1
0150 e001 | | Load 0x0,0x1
0151 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0152 e002 | | Load 0x0,0x2
0153 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0154 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0155 c402 | | Store 0x2,0x2
0156 00da | | Load_Top At_Offset_2
0157 e002 | | Load 0x0,0x2
0158 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0159 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
015a c403 | | Store 0x2,0x3
015b 00d9 | | Load_Top At_Offset_1
015c e002 | | Load 0x0,0x2
015d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015e 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
015f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0160 00d8 | | Load_Top At_Offset_0
0161 4618 |F | Jump_Case 0x19
0162 7821 |x! | Jump 0x184 ; case 0x0
0163 7820 |x | Jump 0x184 ; case 0x1
0164 7831 |x1 | Jump 0x196 ; case 0x2
0165 7815 |x | Jump 0x17b ; case 0x3
0166 7814 |x | Jump 0x17b ; case 0x4
0167 7813 |x | Jump 0x17b ; case 0x5
0168 7812 |x | Jump 0x17b ; case 0x6
0169 7811 |x | Jump 0x17b ; case 0x7
016a 7810 |x | Jump 0x17b ; case 0x8
016b 7835 |x5 | Jump 0x1a1 ; case 0x9
016c 780e |x | Jump 0x17b ; case 0xa
016d 780d |x | Jump 0x17b ; case 0xb
016e 783b |x; | Jump 0x1aa ; case 0xc
016f 781d |x | Jump 0x18d ; case 0xd
0170 7840 |x@ | Jump 0x1b1 ; case 0xe
0171 7846 |xF | Jump 0x1b8 ; case 0xf
0172 784c |xL | Jump 0x1bf ; case 0x10
0173 7856 |xV | Jump 0x1ca ; case 0x11
0174 7806 |x | Jump 0x17b ; case 0x12
0175 7805 |x | Jump 0x17b ; case 0x13
0176 7804 |x | Jump 0x17b ; case 0x14
0177 7803 |x | Jump 0x17b ; case 0x15
0178 7802 |x | Jump 0x17b ; case 0x16
0179 7801 |x | Jump 0x17b ; case 0x17
017a 7800 |x | Jump 0x17b ; case 0x18
017b 4801 |H | Short_Literal 0x1
017c e5ff | | Load 0x2,-0x1
017d e001 | | Load 0x0,0x1
017e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017f 0092 052d | -| Action Push_String_Extended,0x52d ; "object"
0181 e005 | | Load 0x0,0x5
0182 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0183 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0184 e5fe | | Load 0x2,-0x2
0185 00db | | Load_Top At_Offset_3
0186 e002 | | Load 0x0,0x2
0187 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0188 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0189 e001 | | Load 0x0,0x1
018a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
018b 00d1 | | Pop_Control Pop_Count_1
018c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018d 4801 |H | Short_Literal 0x1
018e e5ff | | Load 0x2,-0x1
018f e001 | | Load 0x0,0x1
0190 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0191 0092 052d | -| Action Push_String_Extended,0x52d ; "object"
0193 e005 | | Load 0x0,0x5
0194 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0195 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0196 4801 |H | Short_Literal 0x1
0197 0092 052e | .| Action Push_String_Extended,0x52e ; "deleted"
0199 e5ff | | Load 0x2,-0x1
019a e001 | | Load 0x0,0x1
019b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
019c 0092 052d | -| Action Push_String_Extended,0x52d ; "object"
019e e005 | | Load 0x0,0x5
019f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
01a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a1 4801 |H | Short_Literal 0x1
01a2 e5ff | | Load 0x2,-0x1
01a3 e001 | | Load 0x0,0x1
01a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01a5 0092 052d | -| Action Push_String_Extended,0x52d ; "object"
01a7 e005 | | Load 0x0,0x5
01a8 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
01a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01aa 4801 |H | Short_Literal 0x1
01ab e5ff | | Load 0x2,-0x1
01ac e001 | | Load 0x0,0x1
01ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ae e005 | | Load 0x0,0x5
01af 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
01b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b1 4801 |H | Short_Literal 0x1
01b2 e5ff | | Load 0x2,-0x1
01b3 e001 | | Load 0x0,0x1
01b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b5 e005 | | Load 0x0,0x5
01b6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b8 4801 |H | Short_Literal 0x1
01b9 e5ff | | Load 0x2,-0x1
01ba e001 | | Load 0x0,0x1
01bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01bc e005 | | Load 0x0,0x5
01bd 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
01be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01bf 4801 |H | Short_Literal 0x1
01c0 0092 052e | .| Action Push_String_Extended,0x52e ; "deleted"
01c2 e5ff | | Load 0x2,-0x1
01c3 e001 | | Load 0x0,0x1
01c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c5 0092 052d | -| Action Push_String_Extended,0x52d ; "object"
01c7 e005 | | Load 0x0,0x5
01c8 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
01c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ca 4801 |H | Short_Literal 0x1
01cb e5ff | | Load 0x2,-0x1
01cc e001 | | Load 0x0,0x1
01cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ce 0092 052d | -| Action Push_String_Extended,0x52d ; "object"
01d0 e005 | | Load 0x0,0x5
01d1 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
01d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d3 TRAP_0138:
01d3 e004 | | Load 0x0,0x4
01d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d5 010f | | Execute Exception,Equal
01d6 6802 |h | Jump_Zero 0x1d9
01d7 00d8 | | Load_Top At_Offset_0
01d8 0101 | | Execute Exception,Reraise
01d9 4801 |H | Short_Literal 0x1
01da e005 | | Load 0x0,0x5
01db 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
01dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e9 | | .CONST 0x01e9 ; Address of begin
01e1 01f1 | | .CONST 0x01f1 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e002 | | Load 0x0,0x2
01e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e5 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
01e6 02c7 | | Declare_Variable Any
01e7 00d8 | | Load_Top At_Offset_0
01e8 1c00 | | Execute_Immediate Run_Utility,0x0
01e9 BODY_01e0:
01e9 e003 | | Load 0x0,0x3
01ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01eb 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ec e5ff | | Load 0x2,-0x1
01ed e003 | | Load 0x0,0x3
01ee 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01ef c5fe | | Store 0x2,-0x2
01f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f1 TRAP_01e0:
01f1 e004 | | Load 0x0,0x4
01f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f3 010f | | Execute Exception,Equal
01f4 6802 |h | Jump_Zero 0x1f7
01f5 00d8 | | Load_Top At_Offset_0
01f6 0101 | | Execute Exception,Reraise
01f7 4801 |H | Short_Literal 0x1
01f8 e005 | | Load 0x0,0x5
01f9 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
01fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01fb 0000 0000 | | .BLANK 0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0208 | | .CONST 0x0208 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00db | | Load_Top At_Offset_3
0204 00db | | Load_Top At_Offset_3
0205 e003 | | Load 0x0,0x3
0206 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0207 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0208 TRAP_0200:
0208 e004 | | Load 0x0,0x4
0209 1b0e | | Execute Package,Field_Read,Field_Number 0xe
020a 010f | | Execute Exception,Equal
020b 6802 |h | Jump_Zero 0x20e
020c 00d8 | | Load_Top At_Offset_0
020d 0101 | | Execute Exception,Reraise
020e 4801 |H | Short_Literal 0x1
020f e005 | | Load 0x0,0x5
0210 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0211 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0212 0000 0000 | | .BLANK 0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0220 | | .CONST 0x0220 ; Address of begin
0219 0229 | ) | .CONST 0x0229 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b 4900 |I | Short_Literal 0x100
021c e22a | * | Load 0x1,0x2a
021d 1c08 | | Execute_Immediate Run_Utility,0x8
021e 00d8 | | Load_Top At_Offset_0
021f 1c00 | | Execute_Immediate Run_Utility,0x0
0220 BODY_0218:
0220 00d8 | | Load_Top At_Offset_0
0221 e5ff | | Load 0x2,-0x1
0222 825d | ] | Call 0x1,0x5d
0223 00d1 | | Pop_Control Pop_Count_1
0224 e5fe | | Load 0x2,-0x2
0225 00d9 | | Load_Top At_Offset_1
0226 e003 | | Load 0x0,0x3
0227 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0228 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0229 TRAP_0218:
0229 e004 | | Load 0x0,0x4
022a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
022b 010f | | Execute Exception,Equal
022c 6802 |h | Jump_Zero 0x22f
022d 00d8 | | Load_Top At_Offset_0
022e 0101 | | Execute Exception,Reraise
022f 4801 |H | Short_Literal 0x1
0230 e005 | | Load 0x0,0x5
0231 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0232 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0233 0000 0000 | | .BLANK 0000[0x5]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0240 | @ | .CONST 0x0240 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00db | | Load_Top At_Offset_3
023c 00db | | Load_Top At_Offset_3
023d e003 | | Load 0x0,0x3
023e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
023f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0240 TRAP_0238:
0240 e004 | | Load 0x0,0x4
0241 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0242 010f | | Execute Exception,Equal
0243 6802 |h | Jump_Zero 0x246
0244 00d8 | | Load_Top At_Offset_0
0245 0101 | | Execute Exception,Reraise
0246 4801 |H | Short_Literal 0x1
0247 e005 | | Load 0x0,0x5
0248 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0249 4503 |E | Exit_Suprogram New_Top_Offset 0x3
024a 0000 0000 | | .BLANK 0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0258 | X | .CONST 0x0258 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00db | | Load_Top At_Offset_3
0254 00db | | Load_Top At_Offset_3
0255 e003 | | Load 0x0,0x3
0256 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0257 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0258 TRAP_0250:
0258 e004 | | Load 0x0,0x4
0259 1b0e | | Execute Package,Field_Read,Field_Number 0xe
025a 010f | | Execute Exception,Equal
025b 6802 |h | Jump_Zero 0x25e
025c 00d8 | | Load_Top At_Offset_0
025d 0101 | | Execute Exception,Reraise
025e 4801 |H | Short_Literal 0x1
025f e005 | | Load 0x0,0x5
0260 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0261 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0262 0000 0000 | | .BLANK 0000[0x6]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 026f | o | .CONST 0x026f ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 4801 |H | Short_Literal 0x1
026c e005 | | Load 0x0,0x5
026d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
026e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
026f TRAP_0268:
026f e004 | | Load 0x0,0x4
0270 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0271 010f | | Execute Exception,Equal
0272 6802 |h | Jump_Zero 0x275
0273 00d8 | | Load_Top At_Offset_0
0274 0101 | | Execute Exception,Reraise
0275 4801 |H | Short_Literal 0x1
0276 e005 | | Load 0x0,0x5
0277 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0278 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0279 0000 0000 | | .BLANK 0000[0x7]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0287 | | .CONST 0x0287 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 e003 | | Load 0x0,0x3
0285 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0286 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0287 TRAP_0280:
0287 e004 | | Load 0x0,0x4
0288 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0289 010f | | Execute Exception,Equal
028a 6802 |h | Jump_Zero 0x28d
028b 00d8 | | Load_Top At_Offset_0
028c 0101 | | Execute Exception,Reraise
028d 4801 |H | Short_Literal 0x1
028e e005 | | Load 0x0,0x5
028f 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0290 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0291 0000 0000 | | .BLANK 0000[0x7]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 029f | | .CONST 0x029f ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 4801 |H | Short_Literal 0x1
029c e005 | | Load 0x0,0x5
029d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
029e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029f TRAP_0298:
029f e004 | | Load 0x0,0x4
02a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a1 010f | | Execute Exception,Equal
02a2 6802 |h | Jump_Zero 0x2a5
02a3 00d8 | | Load_Top At_Offset_0
02a4 0101 | | Execute Exception,Reraise
02a5 4801 |H | Short_Literal 0x1
02a6 e005 | | Load 0x0,0x5
02a7 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
02a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02a9 0000 0000 | | .BLANK 0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 02bb | | .CONST 0x02bb ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 8262 | b | Call 0x1,0x62
02b4 00da | | Load_Top At_Offset_2
02b5 e001 | | Load 0x0,0x1
02b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b7 e006 | | Load 0x0,0x6
02b8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02b9 a5fe | | Store_Unchecked 0x2,-0x2
02ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02bb TRAP_02b0:
02bb e006 | | Load 0x0,0x6
02bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02bd 010f | | Execute Exception,Equal
02be 6809 |h | Jump_Zero 0x2c8
02bf 4801 |H | Short_Literal 0x1
02c0 e5ff | | Load 0x2,-0x1
02c1 e001 | | Load 0x0,0x1
02c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c3 0092 052d | -| Action Push_String_Extended,0x52d ; "object"
02c5 e005 | | Load 0x0,0x5
02c6 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
02c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02c8 e004 | | Load 0x0,0x4
02c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ca 010f | | Execute Exception,Equal
02cb 6802 |h | Jump_Zero 0x2ce
02cc 00d8 | | Load_Top At_Offset_0
02cd 0101 | | Execute Exception,Reraise
02ce 4801 |H | Short_Literal 0x1
02cf e005 | | Load 0x0,0x5
02d0 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
02d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d2 0000 0000 | | .BLANK 0000[0x6]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 02e3 | | .CONST 0x02e3 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 8262 | b | Call 0x1,0x62
02dc 00da | | Load_Top At_Offset_2
02dd e001 | | Load 0x0,0x1
02de 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02df e006 | | Load 0x0,0x6
02e0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02e1 a5fe | | Store_Unchecked 0x2,-0x2
02e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02e3 TRAP_02d8:
02e3 e006 | | Load 0x0,0x6
02e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e5 010f | | Execute Exception,Equal
02e6 6809 |h | Jump_Zero 0x2f0
02e7 4801 |H | Short_Literal 0x1
02e8 e5ff | | Load 0x2,-0x1
02e9 e001 | | Load 0x0,0x1
02ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02eb 0092 052d | -| Action Push_String_Extended,0x52d ; "object"
02ed e005 | | Load 0x0,0x5
02ee 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
02ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f0 e006 | | Load 0x0,0x6
02f1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02f2 010f | | Execute Exception,Equal
02f3 6807 |h | Jump_Zero 0x2fb
02f4 4801 |H | Short_Literal 0x1
02f5 e5ff | | Load 0x2,-0x1
02f6 e001 | | Load 0x0,0x1
02f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f8 e005 | | Load 0x0,0x5
02f9 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
02fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02fb e004 | | Load 0x0,0x4
02fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02fd 010f | | Execute Exception,Equal
02fe 6802 |h | Jump_Zero 0x301
02ff 00d8 | | Load_Top At_Offset_0
0300 0101 | | Execute Exception,Reraise
0301 4801 |H | Short_Literal 0x1
0302 e005 | | Load 0x0,0x5
0303 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0304 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0305 0000 0000 | | .XXX[0x3]
0307 0000 | |
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 030f | | .CONST 0x030f ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 4801 |H | Short_Literal 0x1
030c e005 | | Load 0x0,0x5
030d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
030e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
030f TRAP_0308:
030f e004 | | Load 0x0,0x4
0310 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0311 010f | | Execute Exception,Equal
0312 6802 |h | Jump_Zero 0x315
0313 00d8 | | Load_Top At_Offset_0
0314 0101 | | Execute Exception,Reraise
0315 4801 |H | Short_Literal 0x1
0316 e005 | | Load 0x0,0x5
0317 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0318 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0319 0000 0000 | | .BLANK 0000[0x7]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0327 | ' | .CONST 0x0327 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 e003 | | Load 0x0,0x3
0325 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0326 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0327 TRAP_0320:
0327 e004 | | Load 0x0,0x4
0328 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0329 010f | | Execute Exception,Equal
032a 6802 |h | Jump_Zero 0x32d
032b 00d8 | | Load_Top At_Offset_0
032c 0101 | | Execute Exception,Reraise
032d 4801 |H | Short_Literal 0x1
032e e005 | | Load 0x0,0x5
032f 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0330 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0331 0000 0000 | | .BLANK 0000[0x7]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0345 | E | .CONST 0x0345 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c e25e | ^ | Load 0x1,0x5e
033d e002 | | Load 0x0,0x2
033e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
033f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0340 e001 | | Load 0x0,0x1
0341 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0342 e001 | | Load 0x0,0x1
0343 180f | | Execute Package,Field_Execute,Field_Number 0xf
0344 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0345 TRAP_0338:
0345 e004 | | Load 0x0,0x4
0346 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0347 010f | | Execute Exception,Equal
0348 6802 |h | Jump_Zero 0x34b
0349 00d8 | | Load_Top At_Offset_0
034a 0101 | | Execute Exception,Reraise
034b 4801 |H | Short_Literal 0x1
034c e005 | | Load 0x0,0x5
034d 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
034e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034f 0000 | | .XXX[0x1]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0359 | Y | .CONST 0x0359 ; Address of begin
0351 035d | ] | .CONST 0x035d ; Address of exception handler
0352 0002 | | .CONST 0x0002 ; Number of locals
0353 INIT_0350:
0353 e002 | | Load 0x0,0x2
0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0355 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0356 02c7 | | Declare_Variable Any
0357 00d8 | | Load_Top At_Offset_0
0358 1c00 | | Execute_Immediate Run_Utility,0x0
0359 BODY_0350:
0359 00db | | Load_Top At_Offset_3
035a e003 | | Load 0x0,0x3
035b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
035c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
035d TRAP_0350:
035d e004 | | Load 0x0,0x4
035e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
035f 010f | | Execute Exception,Equal
0360 6802 |h | Jump_Zero 0x363
0361 00d8 | | Load_Top At_Offset_0
0362 0101 | | Execute Exception,Reraise
0363 4801 |H | Short_Literal 0x1
0364 e005 | | Load 0x0,0x5
0365 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0366 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0367 0000 | | .XXX[0x1]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0377 | w | .CONST 0x0377 ; Address of begin
0369 0404 | | .CONST 0x0404 ; Address of exception handler
036a 0003 | | .CONST 0x0003 ; Number of locals
036b INIT_0368:
036b e002 | | Load 0x0,0x2
036c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036d 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
036e 02c7 | | Declare_Variable Any
036f 00d8 | | Load_Top At_Offset_0
0370 1c00 | | Execute_Immediate Run_Utility,0x0
0371 e002 | | Load 0x0,0x2
0372 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0373 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0374 02c7 | | Declare_Variable Any
0375 00d8 | | Load_Top At_Offset_0
0376 1c00 | | Execute_Immediate Run_Utility,0x0
0377 BODY_0368:
0377 00d9 | | Load_Top At_Offset_1
0378 0120 | | Execute Any,Is_Value
0379 6804 |h | Jump_Zero 0x37e
037a e002 | | Load 0x0,0x2
037b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
037c 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
037d 7801 |x | Jump 0x37f
037e 00d9 | | Load_Top At_Offset_1
037f e25e | ^ | Load 0x1,0x5e
0380 e002 | | Load 0x0,0x2
0381 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0382 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0383 c402 | | Store 0x2,0x2
0384 4801 |H | Short_Literal 0x1
0385 e002 | | Load 0x0,0x2
0386 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0387 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0388 e5ff | | Load 0x2,-0x1
0389 e001 | | Load 0x0,0x1
038a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038b e002 | | Load 0x0,0x2
038c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
038e c403 | | Store 0x2,0x3
038f 00d8 | | Load_Top At_Offset_0
0390 e002 | | Load 0x0,0x2
0391 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0392 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0393 c402 | | Store 0x2,0x2
0394 00d9 | | Load_Top At_Offset_1
0395 e002 | | Load 0x0,0x2
0396 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0397 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0398 4618 |F | Jump_Case 0x19
0399 7866 |xf | Jump 0x400 ; case 0x0
039a 7865 |xe | Jump 0x400 ; case 0x1
039b 781f |x | Jump 0x3bb ; case 0x2
039c 7815 |x | Jump 0x3b2 ; case 0x3
039d 7814 |x | Jump 0x3b2 ; case 0x4
039e 7813 |x | Jump 0x3b2 ; case 0x5
039f 7812 |x | Jump 0x3b2 ; case 0x6
03a0 7811 |x | Jump 0x3b2 ; case 0x7
03a1 7810 |x | Jump 0x3b2 ; case 0x8
03a2 7823 |x# | Jump 0x3c6 ; case 0x9
03a3 780e |x | Jump 0x3b2 ; case 0xa
03a4 780d |x | Jump 0x3b2 ; case 0xb
03a5 7829 |x) | Jump 0x3cf ; case 0xc
03a6 782f |x/ | Jump 0x3d6 ; case 0xd
03a7 7837 |x7 | Jump 0x3df ; case 0xe
03a8 783d |x= | Jump 0x3e6 ; case 0xf
03a9 7843 |xC | Jump 0x3ed ; case 0x10
03aa 784d |xM | Jump 0x3f8 ; case 0x11
03ab 7806 |x | Jump 0x3b2 ; case 0x12
03ac 7805 |x | Jump 0x3b2 ; case 0x13
03ad 7804 |x | Jump 0x3b2 ; case 0x14
03ae 7803 |x | Jump 0x3b2 ; case 0x15
03af 7802 |x | Jump 0x3b2 ; case 0x16
03b0 7801 |x | Jump 0x3b2 ; case 0x17
03b1 7800 |x | Jump 0x3b2 ; case 0x18
03b2 4801 |H | Short_Literal 0x1
03b3 e5ff | | Load 0x2,-0x1
03b4 e001 | | Load 0x0,0x1
03b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b6 0092 052f | /| Action Push_String_Extended,0x52f ; "library"
03b8 e005 | | Load 0x0,0x5
03b9 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
03ba 7845 |xE | Jump 0x400
03bb 4801 |H | Short_Literal 0x1
03bc 0092 0530 | 0| Action Push_String_Extended,0x530 ; "used as the context"
03be e5ff | | Load 0x2,-0x1
03bf e001 | | Load 0x0,0x1
03c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03c1 0092 052f | /| Action Push_String_Extended,0x52f ; "library"
03c3 e005 | | Load 0x0,0x5
03c4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03c5 783a |x: | Jump 0x400
03c6 4801 |H | Short_Literal 0x1
03c7 e5ff | | Load 0x2,-0x1
03c8 e001 | | Load 0x0,0x1
03c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ca 0092 052f | /| Action Push_String_Extended,0x52f ; "library"
03cc e005 | | Load 0x0,0x5
03cd 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
03ce 7831 |x1 | Jump 0x400
03cf 4801 |H | Short_Literal 0x1
03d0 e5ff | | Load 0x2,-0x1
03d1 e001 | | Load 0x0,0x1
03d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03d3 e005 | | Load 0x0,0x5
03d4 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
03d5 782a |x* | Jump 0x400
03d6 4801 |H | Short_Literal 0x1
03d7 e5ff | | Load 0x2,-0x1
03d8 e001 | | Load 0x0,0x1
03d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03da 0092 052f | /| Action Push_String_Extended,0x52f ; "library"
03dc e005 | | Load 0x0,0x5
03dd 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
03de 7821 |x! | Jump 0x400
03df 4801 |H | Short_Literal 0x1
03e0 e5ff | | Load 0x2,-0x1
03e1 e001 | | Load 0x0,0x1
03e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e3 e005 | | Load 0x0,0x5
03e4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
03e5 781a |x | Jump 0x400
03e6 4801 |H | Short_Literal 0x1
03e7 e5ff | | Load 0x2,-0x1
03e8 e001 | | Load 0x0,0x1
03e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ea e005 | | Load 0x0,0x5
03eb 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
03ec 7813 |x | Jump 0x400
03ed 4801 |H | Short_Literal 0x1
03ee 0092 0530 | 0| Action Push_String_Extended,0x530 ; "used as the context"
03f0 e5ff | | Load 0x2,-0x1
03f1 e001 | | Load 0x0,0x1
03f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f3 0092 052f | /| Action Push_String_Extended,0x52f ; "library"
03f5 e005 | | Load 0x0,0x5
03f6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03f7 7808 |x | Jump 0x400
03f8 4801 |H | Short_Literal 0x1
03f9 e5ff | | Load 0x2,-0x1
03fa e001 | | Load 0x0,0x1
03fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03fc 0092 052f | /| Action Push_String_Extended,0x52f ; "library"
03fe e005 | | Load 0x0,0x5
03ff 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0400 00d8 | | Load_Top At_Offset_0
0401 c25e | ^ | Store 0x1,0x5e
0402 8262 | b | Call 0x1,0x62
0403 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0404 TRAP_0368:
0404 e004 | | Load 0x0,0x4
0405 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0406 010f | | Execute Exception,Equal
0407 6802 |h | Jump_Zero 0x40a
0408 00d8 | | Load_Top At_Offset_0
0409 0101 | | Execute Exception,Reraise
040a 4801 |H | Short_Literal 0x1
040b e005 | | Load 0x0,0x5
040c 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
040d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
040e 0000 0000 | | .XXX[0x2]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0416 | | .CONST 0x0416 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 e003 | | Load 0x0,0x3
0414 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0415 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0416 TRAP_0410:
0416 e004 | | Load 0x0,0x4
0417 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0418 010f | | Execute Exception,Equal
0419 6802 |h | Jump_Zero 0x41c
041a 00d8 | | Load_Top At_Offset_0
041b 0101 | | Execute Exception,Reraise
041c 4801 |H | Short_Literal 0x1
041d e005 | | Load 0x0,0x5
041e 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
041f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 043c | < | .CONST 0x043c ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 e007 | | Load 0x0,0x7
0424 180e | | Execute Package,Field_Execute,Field_Number 0xe
0425 4801 |H | Short_Literal 0x1
0426 0092 0531 | 1| Action Push_String_Extended,0x531 ; "executing "
0428 e5ff | | Load 0x2,-0x1
0429 e001 | | Load 0x0,0x1
042a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
042b 01cc | | Execute Vector,Catenate
042c e008 | | Load 0x0,0x8
042d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
042e 8009 | | Call 0x0,0x9
042f 0092 0532 | 2| Action Push_String_Extended,0x532 ; "<RAISE_EXCEPTION>"
0431 0092 0533 | 3| Action Push_String_Extended,0x533 ; "$"
0433 e5ff | | Load 0x2,-0x1
0434 e001 | | Load 0x0,0x1
0435 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0436 e00a | | Load 0x0,0xa
0437 180f | | Execute Package,Field_Execute,Field_Number 0xf
0438 4800 |H | Short_Literal 0x0
0439 e00b | | Load 0x0,0xb
043a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
043b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
043c TRAP_0420:
043c e004 | | Load 0x0,0x4
043d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
043e 010f | | Execute Exception,Equal
043f 6802 |h | Jump_Zero 0x442
0440 00d8 | | Load_Top At_Offset_0
0441 0101 | | Execute Exception,Reraise
0442 4801 |H | Short_Literal 0x1
0443 e5ff | | Load 0x2,-0x1
0444 e001 | | Load 0x0,0x1
0445 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0446 e005 | | Load 0x0,0x5
0447 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0448 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0449 0000 0000 | | .BLANK 0000[0x7]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 4801 |H | Short_Literal 0x1
0454 e24a | J | Load 0x1,0x4a
0455 1c08 | | Execute_Immediate Run_Utility,0x8
0456 00d8 | | Load_Top At_Offset_0
0457 1c01 | | Execute_Immediate Run_Utility,0x1
0458 4900 |I | Short_Literal 0x100
0459 e5ff | | Load 0x2,-0x1
045a e001 | | Load 0x0,0x1
045b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
045c 00d9 | | Load_Top At_Offset_1
045d 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
045e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
045f 0000 | | .XXX[0x1]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 4801 |H | Short_Literal 0x1
0464 e24a | J | Load 0x1,0x4a
0465 1c08 | | Execute_Immediate Run_Utility,0x8
0466 00d8 | | Load_Top At_Offset_0
0467 1c01 | | Execute_Immediate Run_Utility,0x1
0468 4900 |I | Short_Literal 0x100
0469 e5ff | | Load 0x2,-0x1
046a e001 | | Load 0x0,0x1
046b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
046c e001 | | Load 0x0,0x1
046d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
046e 00d9 | | Load_Top At_Offset_1
046f 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0470 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0471 0000 0000 | | .BLANK 0000[0x7]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0483 | | .CONST 0x0483 ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0003 | | .CONST 0x0003 ; Number of locals
047b INIT_0478:
047b e002 | | Load 0x0,0x2
047c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047d 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
047e 02c7 | | Declare_Variable Any
047f 00d8 | | Load_Top At_Offset_0
0480 1c00 | | Execute_Immediate Run_Utility,0x0
0481 029f 049b | | Declare_Subprogram INIT_0498,For_Call
0483 BODY_0478:
0483 00d9 | | Load_Top At_Offset_1
0484 0120 | | Execute Any,Is_Value
0485 6804 |h | Jump_Zero 0x48a
0486 e002 | | Load 0x0,0x2
0487 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0488 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0489 7801 |x | Jump 0x48b
048a 00d9 | | Load_Top At_Offset_1
048b e25e | ^ | Load 0x1,0x5e
048c e002 | | Load 0x0,0x2
048d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
048e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
048f c402 | | Store 0x2,0x2
0490 00d9 | | Load_Top At_Offset_1
0491 e002 | | Load 0x0,0x2
0492 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0493 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0494 6801 |h | Jump_Zero 0x496
0495 8403 | | Call 0x2,0x3
0496 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0497 0000 | | .XXX[0x1]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049f | | .CONST 0x049f ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0002 | | .CONST 0x0002 ; Number of locals
049b INIT_0498:
049b e25e | ^ | Load 0x1,0x5e
049c e002 | | Load 0x0,0x2
049d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
049e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
049f BODY_0498:
049f e402 | | Load 0x2,0x2
04a0 e002 | | Load 0x0,0x2
04a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a2 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
04a3 4618 |F | Jump_Case 0x19
04a4 7818 |x | Jump 0x4bd ; case 0x0
04a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1
04a6 781d |x | Jump 0x4c4 ; case 0x2
04a7 7815 |x | Jump 0x4bd ; case 0x3
04a8 7814 |x | Jump 0x4bd ; case 0x4
04a9 7813 |x | Jump 0x4bd ; case 0x5
04aa 7812 |x | Jump 0x4bd ; case 0x6
04ab 7811 |x | Jump 0x4bd ; case 0x7
04ac 7810 |x | Jump 0x4bd ; case 0x8
04ad 782f |x/ | Jump 0x4dd ; case 0x9
04ae 780e |x | Jump 0x4bd ; case 0xa
04af 780d |x | Jump 0x4bd ; case 0xb
04b0 780c |x | Jump 0x4bd ; case 0xc
04b1 780b |x | Jump 0x4bd ; case 0xd
04b2 780a |x | Jump 0x4bd ; case 0xe
04b3 7809 |x | Jump 0x4bd ; case 0xf
04b4 7818 |x | Jump 0x4cd ; case 0x10
04b5 7820 |x | Jump 0x4d6 ; case 0x11
04b6 7806 |x | Jump 0x4bd ; case 0x12
04b7 7805 |x | Jump 0x4bd ; case 0x13
04b8 7804 |x | Jump 0x4bd ; case 0x14
04b9 7803 |x | Jump 0x4bd ; case 0x15
04ba 7802 |x | Jump 0x4bd ; case 0x16
04bb 7801 |x | Jump 0x4bd ; case 0x17
04bc 7800 |x | Jump 0x4bd ; case 0x18
04bd 4801 |H | Short_Literal 0x1
04be 00d9 | | Load_Top At_Offset_1
04bf 0092 0534 | 4| Action Push_String_Extended,0x534 ; "diagram"
04c1 e005 | | Load 0x0,0x5
04c2 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
04c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04c4 4801 |H | Short_Literal 0x1
04c5 0092 0530 | 0| Action Push_String_Extended,0x530 ; "used as the context"
04c7 00da | | Load_Top At_Offset_2
04c8 0092 052f | /| Action Push_String_Extended,0x52f ; "library"
04ca e005 | | Load 0x0,0x5
04cb 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
04cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04cd 4801 |H | Short_Literal 0x1
04ce 0092 0530 | 0| Action Push_String_Extended,0x530 ; "used as the context"
04d0 00da | | Load_Top At_Offset_2
04d1 0092 052f | /| Action Push_String_Extended,0x52f ; "library"
04d3 e005 | | Load 0x0,0x5
04d4 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
04d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04d6 4801 |H | Short_Literal 0x1
04d7 00d9 | | Load_Top At_Offset_1
04d8 0092 052f | /| Action Push_String_Extended,0x52f ; "library"
04da e005 | | Load 0x0,0x5
04db 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
04dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04dd 4801 |H | Short_Literal 0x1
04de 00d9 | | Load_Top At_Offset_1
04df 0092 052f | /| Action Push_String_Extended,0x52f ; "library"
04e1 e005 | | Load 0x0,0x5
04e2 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
04e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04e4 0000 0000 | | .BLANK 0000[0x4]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb | | .CONST 0x04eb ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0001 | | .CONST 0x0001 ; Number of locals
04eb BODY_04e8:
04eb INIT_04e8:
04eb 4608 |F | Jump_Case 0x9
04ec 7808 |x | Jump 0x4f5 ; case 0x0
04ed 781c |x | Jump 0x50a ; case 0x1
04ee 783b |x; | Jump 0x52a ; case 0x2
04ef 783a |x: | Jump 0x52a ; case 0x3
04f0 7839 |x9 | Jump 0x52a ; case 0x4
04f1 7838 |x8 | Jump 0x52a ; case 0x5
04f2 781f |x | Jump 0x512 ; case 0x6
04f3 7826 |x& | Jump 0x51a ; case 0x7
04f4 782e |x. | Jump 0x523 ; case 0x8
04f5 00da | | Load_Top At_Offset_2
04f6 016c | l | Execute Variant_Record,Is_Constrained
04f7 7009 |p | Jump_Nonzero 0x501
04f8 00cf | | Action Mark_Auxiliary
04f9 4800 |H | Short_Literal 0x0
04fa e5ff | | Load 0x2,-0x1
04fb 1c08 | | Execute_Immediate Run_Utility,0x8
04fc 00d8 | | Load_Top At_Offset_0
04fd 1c00 | | Execute_Immediate Run_Utility,0x0
04fe c5ff | | Store 0x2,-0x1
04ff 00ce | | Action Pop_Auxiliary
0500 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0501 00da | | Load_Top At_Offset_2
0502 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0503 6805 |h | Jump_Zero 0x509
0504 00da | | Load_Top At_Offset_2
0505 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0506 00da | | Load_Top At_Offset_2
0507 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0508 1c00 | | Execute_Immediate Run_Utility,0x0
0509 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
050a 00da | | Load_Top At_Offset_2
050b 016b | k | Execute Variant_Record,Read_Variant
050c 00d8 | | Load_Top At_Offset_0
050d 0f01 | | Execute_Immediate Equal,0x1
050e 6802 |h | Jump_Zero 0x511
050f 00db | | Load_Top At_Offset_3
0510 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0511 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0512 00db | | Load_Top At_Offset_3
0513 0f01 | | Execute_Immediate Equal,0x1
0514 7001 |p | Jump_Nonzero 0x516
0515 7802 |x | Jump 0x518
0516 4801 |H | Short_Literal 0x1
0517 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0518 48ff |H | Short_Literal 0xff
0519 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
051a 00db | | Load_Top At_Offset_3
051b e5fe | | Load 0x2,-0x2
051c 6802 |h | Jump_Zero 0x51f
051d 4801 |H | Short_Literal 0x1
051e 7801 |x | Jump 0x520
051f 48ff |H | Short_Literal 0xff
0520 e5ff | | Load 0x2,-0x1
0521 031b | | Declare_Type Variant_Record,Constrained
0522 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0523 00db | | Load_Top At_Offset_3
0524 e5fe | | Load 0x2,-0x2
0525 e5ff | | Load 0x2,-0x1
0526 1c06 | | Execute_Immediate Run_Utility,0x6
0527 e5ff | | Load 0x2,-0x1
0528 02fc | | Declare_Variable Variant_Record,With_Constraint
0529 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
052a 0869 | i | Execute_Immediate Raise,0x69
052b ; --------------------------------------------------------------------------------------
052b ; STRING TABLE
052b ; --------------------------------------------------------------------------------------
052b 0016 | | .STRTAB 0x0016->0x0536 ; "ES_OK"
052c 0019 | | .STRTAB 0x0019->0x0538 ; "ES_ERROR"
052d 001f | | .STRTAB 0x001f->0x053c ; "object"
052e 0023 | # | .STRTAB 0x0023->0x053f ; "deleted"
052f 0028 | ( | .STRTAB 0x0028->0x0543 ; "library"
0530 002d | - | .STRTAB 0x002d->0x0546 ; "used as the context"
0531 003e | > | .STRTAB 0x003e->0x0550 ; "executing "
0532 0046 | F | .STRTAB 0x0046->0x0555 ; "<RAISE_EXCEPTION>"
0533 0055 | U | .STRTAB 0x0055->0x055d ; "$"
0534 0054 | T | .STRTAB 0x0054->0x055e ; "diagram"
0535 0059 | Y | .STREND 0x0059->0x0561
0536 4553 5f4f |ES_O| .STRTAB_STRINGS
0562 0000 0000 | | .BLANK 0000[0x6]
0568 ; --------------------------------------------------------------------------------------
0568 ; Debug Table
0568 ; --------------------------------------------------------------------------------------
0568 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9658,0x0000,0x0001,0x0000
056e 0000 0000 | | .BLANK 0000[0x6]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]