|
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_06e8fd
└─⟦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 0bf8 | | .CONST 0x0bf8 ; 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 8008 | | .CONST 0x8008 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00f9 | | .CONST 0x00f9 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0055 | U | .CONST 0x0055 ; Number of locals
000b INIT_0008:
000b 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
000d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
000f 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0011 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0013 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0015 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0017 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0019 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
001b 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
001d 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
001f 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
0021 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
0023 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0025 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
0027 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0029 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
002b 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
002d 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
002f 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
0031 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated
0033 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated
0035 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated
0037 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated
0039 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated
003b 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated
003d 029a 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call,Visible,Unelaborated
003f 029a 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Visible,Unelaborated
0041 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated
0043 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
0045 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated
0047 029a 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call,Visible,Unelaborated
0049 029a 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Visible,Unelaborated
004b 029a 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call,Visible,Unelaborated
004d 029a 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call,Visible,Unelaborated
004f 029a 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Visible,Unelaborated
0051 029a 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call,Visible,Unelaborated
0053 029a 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call,Visible,Unelaborated
0055 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated
0057 029a 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call,Visible,Unelaborated
0059 029a 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call,Visible,Unelaborated
005b 029a 079b | | Declare_Subprogram INIT_0798,For_Outer_Call,Visible,Unelaborated
005d 029a 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call,Visible,Unelaborated
005f 029a 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call,Visible,Unelaborated
0061 029a 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call,Visible,Unelaborated
0063 00bf | | Action Accept_Activation
0064 e002 | | Load 0x0,0x2
0065 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0066 0093 0000 | | push_full_address 0x0
0068 60a3 |` | Indirect_Literal Discrete,0x10c,{0x80000000, 0x00010000}
0069 0273 | s | Execute Discrete,Plus
006a 0007 | | Action Break_Optional
006b 029d 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call
006d 029d 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call
006f 029d 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call
0071 029d 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call
0073 029d 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call
0075 029d 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call
0077 029d 087b | {| Declare_Subprogram INIT_0878,For_Outer_Call
0079 029d 088b | | Declare_Subprogram INIT_0888,For_Outer_Call
007b 029d 089b | | Declare_Subprogram INIT_0898,For_Outer_Call
007d 029d 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call
007f 029d 08bb | | Declare_Subprogram INIT_08b8,For_Outer_Call
0081 029d 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call
0083 029d 08d3 | | Declare_Subprogram INIT_08d0,For_Outer_Call
0085 029d 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call
0087 029d 08f3 | | Declare_Subprogram INIT_08f0,For_Outer_Call
0089 029d 090b | | Declare_Subprogram INIT_0908,For_Outer_Call
008b 029d 0923 | #| Declare_Subprogram INIT_0920,For_Outer_Call
008d 029d 097b | {| Declare_Subprogram INIT_0978,For_Outer_Call
008f 029d 0983 | | Declare_Subprogram INIT_0980,For_Outer_Call
0091 029d 099b | | Declare_Subprogram INIT_0998,For_Outer_Call
0093 029d 09ab | | Declare_Subprogram INIT_09a8,For_Outer_Call
0095 029d 09c3 | | Declare_Subprogram INIT_09c0,For_Outer_Call
0097 029d 09e3 | | Declare_Subprogram INIT_09e0,For_Outer_Call
0099 029d 0a03 | | Declare_Subprogram INIT_0a00,For_Outer_Call
009b 029d 0a2b | +| Declare_Subprogram INIT_0a28,For_Outer_Call
009d 029d 0a5b | [| Declare_Subprogram INIT_0a58,For_Outer_Call
009f 029d 0a73 | s| Declare_Subprogram INIT_0a70,For_Outer_Call
00a1 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00ce 00c7 | | Action Elaborate_Subprogram
00cf 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00d0 00c7 | | Action Elaborate_Subprogram
00d1 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00d2 00c7 | | Action Elaborate_Subprogram
00d3 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00d4 00c7 | | Action Elaborate_Subprogram
00d5 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00d6 00c7 | | Action Elaborate_Subprogram
00d7 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00d8 00c7 | | Action Elaborate_Subprogram
00d9 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00da 00c7 | | Action Elaborate_Subprogram
00db 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00dc 00c7 | | Action Elaborate_Subprogram
00dd 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00de 00c7 | | Action Elaborate_Subprogram
00df 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00e0 00c7 | | Action Elaborate_Subprogram
00e1 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00e2 00c7 | | Action Elaborate_Subprogram
00e3 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00e4 00c7 | | Action Elaborate_Subprogram
00e5 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00e6 00c7 | | Action Elaborate_Subprogram
00e7 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00ec 00c7 | | Action Elaborate_Subprogram
00ed 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00ee 00c7 | | Action Elaborate_Subprogram
00ef 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00f0 00c7 | | Action Elaborate_Subprogram
00f1 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00f2 00c7 | | Action Elaborate_Subprogram
00f3 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00f4 00c7 | | Action Elaborate_Subprogram
00f5 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00f6 00c7 | | Action Elaborate_Subprogram
00f7 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
00f8 00c7 | | Action Elaborate_Subprogram
00f9 BODY_0008:
00f9 00bc | | Action Signal_Activated
00fa 00bb | | Action Signal_Completion
00fb 0000 0000 | | .BLANK 0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0106 | | .CONST 0x0106 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 823c | < | Call 0x1,0x3c
0104 00e1 | | Load_Encached Boolean_Cache
0105 03f1 | | Declare_Variable Discrete,With_Value
0106 BODY_0100:
0106 00db | | Load_Top At_Offset_3
0107 8003 | | Call 0x0,0x3
0108 823b | ; | Call 0x1,0x3b
0109 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010a 0000 0000 | | .XXX[0x2]
010c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011e | | .CONST 0x011e ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0005 | | .CONST 0x0005 ; Number of locals
0113 INIT_0110:
0113 823c | < | Call 0x1,0x3c
0114 00e1 | | Load_Encached Boolean_Cache
0115 03f1 | | Declare_Variable Discrete,With_Value
0116 e004 | | Load 0x0,0x4
0117 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0118 00ec | | Load_Encached Diana_Tree_Cache
0119 e005 | | Load 0x0,0x5
011a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011b 02c7 | | Declare_Variable Any
011c 00d8 | | Load_Top At_Offset_0
011d 1c00 | | Execute_Immediate Run_Utility,0x0
011e BODY_0110:
011e 00d8 | | Load_Top At_Offset_0
011f 00db | | Load_Top At_Offset_3
0120 00ec | | Load_Encached Diana_Tree_Cache
0121 4800 |H | Short_Literal 0x0
0122 4801 |H | Short_Literal 0x1
0123 e5ff | | Load 0x2,-0x1
0124 8006 | | Call 0x0,0x6
0125 c404 | | Store 0x2,0x4
0126 c403 | | Store 0x2,0x3
0127 c405 | | Store 0x2,0x5
0128 00da | | Load_Top At_Offset_2
0129 823e | > | Call 0x1,0x3e
012a 0092 0a9f | | Action Push_String_Extended,0xa9f ; "Put"
012c 8254 | T | Call 0x1,0x54
012d 4802 |H | Short_Literal 0x2
012e 00d9 | | Load_Top At_Offset_1
012f e005 | | Load 0x0,0x5
0130 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0131 6805 |h | Jump_Zero 0x137
0132 00d8 | | Load_Top At_Offset_0
0133 e005 | | Load 0x0,0x5
0134 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0135 8007 | | Call 0x0,0x7
0136 7806 |x | Jump 0x13d
0137 e5fe | | Load 0x2,-0x2
0138 00da | | Load_Top At_Offset_2
0139 e403 | | Load 0x2,0x3
013a e004 | | Load 0x0,0x4
013b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
013c 8008 | | Call 0x0,0x8
013d 00da | | Load_Top At_Offset_2
013e e004 | | Load 0x0,0x4
013f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0140 003b | ; | Store_Top Access,At_Offset_3
0141 823b | ; | Call 0x1,0x3b
0142 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0143 0000 0000 | | .BLANK 0000[0x5]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0154 | T | .CONST 0x0154 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0005 | | .CONST 0x0005 ; Number of locals
014b INIT_0148:
014b 823c | < | Call 0x1,0x3c
014c 00e1 | | Load_Encached Boolean_Cache
014d 03f1 | | Declare_Variable Discrete,With_Value
014e 00e2 | | Load_Encached Integer_Cache
014f 00e3 | | Load_Encached Natural_Cache
0150 4801 |H | Short_Literal 0x1
0151 4800 |H | Short_Literal 0x0
0152 e5ff | | Load 0x2,-0x1
0153 824b | K | Call 0x1,0x4b
0154 BODY_0148:
0154 e5fe | | Load 0x2,-0x2
0155 7004 |p | Jump_Nonzero 0x15a
0156 480a |H | Short_Literal 0xa
0157 8009 | | Call 0x0,0x9
0158 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0159 7802 |x | Jump 0x15c
015a e5fe | | Load 0x2,-0x2
015b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
015c e5fd | | Load 0x2,-0x3
015d 7004 |p | Jump_Nonzero 0x162
015e 4809 |H | Short_Literal 0x9
015f 8009 | | Call 0x0,0x9
0160 005a | Z | Store_Top Discrete,At_Offset_2
0161 7802 |x | Jump 0x164
0162 e5fd | | Load 0x2,-0x3
0163 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0164 e5fd | | Load 0x2,-0x3
0165 823f | ? | Call 0x1,0x3f
0166 e5fe | | Load 0x2,-0x2
0167 823f | ? | Call 0x1,0x3f
0168 00da | | Load_Top At_Offset_2
0169 823d | = | Call 0x1,0x3d
016a 0092 0aa0 | | Action Push_String_Extended,0xaa0 ; "Stack"
016c 8251 | Q | Call 0x1,0x51
016d 00d9 | | Load_Top At_Offset_1
016e 00db | | Load_Top At_Offset_3
016f 00da | | Load_Top At_Offset_2
0170 800a | | Call 0x0,0xa
0171 823b | ; | Call 0x1,0x3b
0172 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0173 0000 0000 | | .BLANK 0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0186 | | .CONST 0x0186 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0005 | | .CONST 0x0005 ; Number of locals
017b INIT_0178:
017b 823c | < | Call 0x1,0x3c
017c 00e1 | | Load_Encached Boolean_Cache
017d 03f1 | | Declare_Variable Discrete,With_Value
017e e004 | | Load 0x0,0x4
017f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0180 00ec | | Load_Encached Diana_Tree_Cache
0181 e005 | | Load 0x0,0x5
0182 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0183 02c7 | | Declare_Variable Any
0184 00d8 | | Load_Top At_Offset_0
0185 1c00 | | Execute_Immediate Run_Utility,0x0
0186 BODY_0178:
0186 00d8 | | Load_Top At_Offset_0
0187 00db | | Load_Top At_Offset_3
0188 00ec | | Load_Encached Diana_Tree_Cache
0189 4800 |H | Short_Literal 0x0
018a 4800 |H | Short_Literal 0x0
018b e5fe | | Load 0x2,-0x2
018c 8006 | | Call 0x0,0x6
018d c404 | | Store 0x2,0x4
018e c403 | | Store 0x2,0x3
018f c405 | | Store 0x2,0x5
0190 00da | | Load_Top At_Offset_2
0191 823e | > | Call 0x1,0x3e
0192 e5ff | | Load 0x2,-0x1
0193 823d | = | Call 0x1,0x3d
0194 0092 0aa1 | | Action Push_String_Extended,0xaa1 ; "Modify"
0196 8255 | U | Call 0x1,0x55
0197 4802 |H | Short_Literal 0x2
0198 00d9 | | Load_Top At_Offset_1
0199 e005 | | Load 0x0,0x5
019a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
019b 6805 |h | Jump_Zero 0x1a1
019c 00d8 | | Load_Top At_Offset_0
019d e005 | | Load 0x0,0x5
019e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
019f 8007 | | Call 0x0,0x7
01a0 780a |x | Jump 0x1ab
01a1 e00b | | Load 0x0,0xb
01a2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a3 e00c | | Load 0x0,0xc
01a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a5 e5ff | | Load 0x2,-0x1
01a6 00db | | Load_Top At_Offset_3
01a7 e403 | | Load 0x2,0x3
01a8 e004 | | Load 0x0,0x4
01a9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01aa 800d | | Call 0x0,0xd
01ab 00da | | Load_Top At_Offset_2
01ac e004 | | Load 0x0,0x4
01ad 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ae 003b | ; | Store_Top Access,At_Offset_3
01af 823b | ; | Call 0x1,0x3b
01b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b1 0000 0000 | | .BLANK 0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01cb | | .CONST 0x01cb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0007 | | .CONST 0x0007 ; Number of locals
01bb INIT_01b8:
01bb 823c | < | Call 0x1,0x3c
01bc 00e1 | | Load_Encached Boolean_Cache
01bd 03f1 | | Declare_Variable Discrete,With_Value
01be 00e3 | | Load_Encached Natural_Cache
01bf 00ec | | Load_Encached Diana_Tree_Cache
01c0 e004 | | Load 0x0,0x4
01c1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01c2 e00e | | Load 0x0,0xe
01c3 02c7 | | Declare_Variable Any
01c4 00d8 | | Load_Top At_Offset_0
01c5 1c00 | | Execute_Immediate Run_Utility,0x0
01c6 e005 | | Load 0x0,0x5
01c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c8 02c7 | | Declare_Variable Any
01c9 00d8 | | Load_Top At_Offset_0
01ca 1c00 | | Execute_Immediate Run_Utility,0x0
01cb BODY_01b8:
01cb 00d8 | | Load_Top At_Offset_0
01cc 00da | | Load_Top At_Offset_2
01cd 0120 | | Execute Any,Is_Value
01ce 6802 |h | Jump_Zero 0x1d1
01cf e00e | | Load 0x0,0xe
01d0 7801 |x | Jump 0x1d2
01d1 00da | | Load_Top At_Offset_2
01d2 e405 | | Load 0x2,0x5
01d3 00ec | | Load_Encached Diana_Tree_Cache
01d4 4800 |H | Short_Literal 0x0
01d5 4800 |H | Short_Literal 0x0
01d6 4800 |H | Short_Literal 0x0
01d7 e5ff | | Load 0x2,-0x1
01d8 800f | | Call 0x0,0xf
01d9 c404 | | Store 0x2,0x4
01da c405 | | Store 0x2,0x5
01db c406 | | Store 0x2,0x6
01dc c407 | | Store 0x2,0x7
01dd e5fe | | Load 0x2,-0x2
01de 823f | ? | Call 0x1,0x3f
01df 00db | | Load_Top At_Offset_3
01e0 823e | > | Call 0x1,0x3e
01e1 0092 0aa2 | | Action Push_String_Extended,0xaa2 ; "Display"
01e3 8250 | P | Call 0x1,0x50
01e4 e5fe | | Load 0x2,-0x2
01e5 7004 |p | Jump_Nonzero 0x1ea
01e6 4800 |H | Short_Literal 0x0
01e7 8009 | | Call 0x0,0x9
01e8 c403 | | Store 0x2,0x3
01e9 7802 |x | Jump 0x1ec
01ea e5fe | | Load 0x2,-0x2
01eb a403 | | Store_Unchecked 0x2,0x3
01ec 4802 |H | Short_Literal 0x2
01ed 00d9 | | Load_Top At_Offset_1
01ee e005 | | Load 0x0,0x5
01ef 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01f0 6805 |h | Jump_Zero 0x1f6
01f1 00d8 | | Load_Top At_Offset_0
01f2 e005 | | Load 0x0,0x5
01f3 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01f4 8007 | | Call 0x0,0x7
01f5 7809 |x | Jump 0x1ff
01f6 e403 | | Load 0x2,0x3
01f7 4802 |H | Short_Literal 0x2
01f8 8010 | | Call 0x0,0x10
01f9 00db | | Load_Top At_Offset_3
01fa e404 | | Load 0x2,0x4
01fb e405 | | Load 0x2,0x5
01fc e004 | | Load 0x0,0x4
01fd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01fe 8011 | | Call 0x0,0x11
01ff 00da | | Load_Top At_Offset_2
0200 e004 | | Load 0x0,0x4
0201 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0202 003b | ; | Store_Top Access,At_Offset_3
0203 823b | ; | Call 0x1,0x3b
0204 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 021a | | .CONST 0x021a ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0006 | | .CONST 0x0006 ; Number of locals
020b INIT_0208:
020b 823c | < | Call 0x1,0x3c
020c 00e1 | | Load_Encached Boolean_Cache
020d 03f1 | | Declare_Variable Discrete,With_Value
020e e004 | | Load 0x0,0x4
020f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0210 00ec | | Load_Encached Diana_Tree_Cache
0211 e00e | | Load 0x0,0xe
0212 02c7 | | Declare_Variable Any
0213 00d8 | | Load_Top At_Offset_0
0214 1c00 | | Execute_Immediate Run_Utility,0x0
0215 e005 | | Load 0x0,0x5
0216 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0217 02c7 | | Declare_Variable Any
0218 00d8 | | Load_Top At_Offset_0
0219 1c00 | | Execute_Immediate Run_Utility,0x0
021a BODY_0208:
021a 00d8 | | Load_Top At_Offset_0
021b 00da | | Load_Top At_Offset_2
021c 0120 | | Execute Any,Is_Value
021d 6802 |h | Jump_Zero 0x220
021e e00e | | Load 0x0,0xe
021f 7801 |x | Jump 0x221
0220 00da | | Load_Top At_Offset_2
0221 e403 | | Load 0x2,0x3
0222 00ec | | Load_Encached Diana_Tree_Cache
0223 4800 |H | Short_Literal 0x0
0224 4801 |H | Short_Literal 0x1
0225 4801 |H | Short_Literal 0x1
0226 e5ff | | Load 0x2,-0x1
0227 800f | | Call 0x0,0xf
0228 c404 | | Store 0x2,0x4
0229 c403 | | Store 0x2,0x3
022a c405 | | Store 0x2,0x5
022b c406 | | Store 0x2,0x6
022c 00db | | Load_Top At_Offset_3
022d 823e | > | Call 0x1,0x3e
022e 0092 0aa3 | | Action Push_String_Extended,0xaa3 ; "Source"
0230 824f | O | Call 0x1,0x4f
0231 4802 |H | Short_Literal 0x2
0232 00d9 | | Load_Top At_Offset_1
0233 e005 | | Load 0x0,0x5
0234 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0235 6805 |h | Jump_Zero 0x23b
0236 00d8 | | Load_Top At_Offset_0
0237 e005 | | Load 0x0,0x5
0238 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0239 8007 | | Call 0x0,0x7
023a 7806 |x | Jump 0x241
023b 00d9 | | Load_Top At_Offset_1
023c 00db | | Load_Top At_Offset_3
023d e403 | | Load 0x2,0x3
023e e004 | | Load 0x0,0x4
023f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0240 8012 | | Call 0x0,0x12
0241 00db | | Load_Top At_Offset_3
0242 e004 | | Load 0x0,0x4
0243 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0244 c403 | | Store 0x2,0x3
0245 823b | ; | Call 0x1,0x3b
0246 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0247 0000 | | .XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 025a | Z | .CONST 0x025a ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0006 | | .CONST 0x0006 ; Number of locals
024b INIT_0248:
024b 823c | < | Call 0x1,0x3c
024c 00e1 | | Load_Encached Boolean_Cache
024d 03f1 | | Declare_Variable Discrete,With_Value
024e 00e1 | | Load_Encached Boolean_Cache
024f e004 | | Load 0x0,0x4
0250 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0251 4800 |H | Short_Literal 0x0
0252 4801 |H | Short_Literal 0x1
0253 e5fd | | Load 0x2,-0x3
0254 824b | K | Call 0x1,0x4b
0255 e005 | | Load 0x0,0x5
0256 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0257 02c7 | | Declare_Variable Any
0258 00d8 | | Load_Top At_Offset_0
0259 1c00 | | Execute_Immediate Run_Utility,0x0
025a BODY_0248:
025a 00d8 | | Load_Top At_Offset_0
025b 00db | | Load_Top At_Offset_3
025c 4801 |H | Short_Literal 0x1
025d 4800 |H | Short_Literal 0x0
025e 4800 |H | Short_Literal 0x0
025f e5ff | | Load 0x2,-0x1
0260 8013 | | Call 0x0,0x13
0261 c404 | | Store 0x2,0x4
0262 c406 | | Store 0x2,0x6
0263 e5fc | | Load 0x2,-0x4
0264 8246 | F | Call 0x1,0x46
0265 00da | | Load_Top At_Offset_2
0266 823d | = | Call 0x1,0x3d
0267 e5fe | | Load 0x2,-0x2
0268 823f | ? | Call 0x1,0x3f
0269 e404 | | Load 0x2,0x4
026a 823e | > | Call 0x1,0x3e
026b 0092 0aa4 | | Action Push_String_Extended,0xaa4 ; "Break"
026d 8252 | R | Call 0x1,0x52
026e 00d8 | | Load_Top At_Offset_0
026f 8014 | | Call 0x0,0x14
0270 4802 |H | Short_Literal 0x2
0271 00d9 | | Load_Top At_Offset_1
0272 e005 | | Load 0x0,0x5
0273 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0274 6805 |h | Jump_Zero 0x27a
0275 00d8 | | Load_Top At_Offset_0
0276 e005 | | Load 0x0,0x5
0277 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0278 8007 | | Call 0x0,0x7
0279 7812 |x | Jump 0x28c
027a e5fc | | Load 0x2,-0x4
027b 6804 |h | Jump_Zero 0x280
027c 480d |H | Short_Literal 0xd
027d 8010 | | Call 0x0,0x10
027e a403 | | Store_Unchecked 0x2,0x3
027f 7804 |x | Jump 0x284
0280 480d |H | Short_Literal 0xd
0281 8010 | | Call 0x0,0x10
0282 0f00 | | Execute_Immediate Equal,0x0
0283 a403 | | Store_Unchecked 0x2,0x3
0284 e239 | 9 | Load 0x1,0x39
0285 00da | | Load_Top At_Offset_2
0286 e5fe | | Load 0x2,-0x2
0287 e403 | | Load 0x2,0x3
0288 e404 | | Load 0x2,0x4
0289 e004 | | Load 0x0,0x4
028a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
028b 8015 | | Call 0x0,0x15
028c 00da | | Load_Top At_Offset_2
028d e004 | | Load 0x0,0x4
028e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
028f 003b | ; | Store_Top Access,At_Offset_3
0290 823b | ; | Call 0x1,0x3b
0291 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0292 0000 0000 | | .BLANK 0000[0x6]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029e | | .CONST 0x029e ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0002 | | .CONST 0x0002 ; Number of locals
029b INIT_0298:
029b 823c | < | Call 0x1,0x3c
029c 00e1 | | Load_Encached Boolean_Cache
029d 03f1 | | Declare_Variable Discrete,With_Value
029e BODY_0298:
029e e5fe | | Load 0x2,-0x2
029f 8246 | F | Call 0x1,0x46
02a0 e5ff | | Load 0x2,-0x1
02a1 823f | ? | Call 0x1,0x3f
02a2 0092 0aa5 | | Action Push_String_Extended,0xaa5 ; "Remove"
02a4 8250 | P | Call 0x1,0x50
02a5 e5fe | | Load 0x2,-0x2
02a6 e5ff | | Load 0x2,-0x1
02a7 8016 | | Call 0x0,0x16
02a8 823b | ; | Call 0x1,0x3b
02a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02aa 0000 0000 | | .BLANK 0000[0x6]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b6 | | .CONST 0x02b6 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 823c | < | Call 0x1,0x3c
02b4 00e1 | | Load_Encached Boolean_Cache
02b5 03f1 | | Declare_Variable Discrete,With_Value
02b6 BODY_02b0:
02b6 00db | | Load_Top At_Offset_3
02b7 823f | ? | Call 0x1,0x3f
02b8 0092 0aa6 | | Action Push_String_Extended,0xaa6 ; "Activate"
02ba 824f | O | Call 0x1,0x4f
02bb 00db | | Load_Top At_Offset_3
02bc 8017 | | Call 0x0,0x17
02bd 823b | ; | Call 0x1,0x3b
02be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02bf 0000 | | .XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02ca | | .CONST 0x02ca ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0003 | | .CONST 0x0003 ; Number of locals
02c3 INIT_02c0:
02c3 823c | < | Call 0x1,0x3c
02c4 00e1 | | Load_Encached Boolean_Cache
02c5 03f1 | | Declare_Variable Discrete,With_Value
02c6 4801 |H | Short_Literal 0x1
02c7 4801 |H | Short_Literal 0x1
02c8 e5ff | | Load 0x2,-0x1
02c9 824b | K | Call 0x1,0x4b
02ca BODY_02c0:
02ca 00d8 | | Load_Top At_Offset_0
02cb 823d | = | Call 0x1,0x3d
02cc 0092 0aa7 | | Action Push_String_Extended,0xaa7 ; "Stop"
02ce 824f | O | Call 0x1,0x4f
02cf 00d8 | | Load_Top At_Offset_0
02d0 8018 | | Call 0x0,0x18
02d1 823b | ; | Call 0x1,0x3b
02d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d3 0000 0000 | | .BLANK 0000[0x5]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e2 | | .CONST 0x02e2 ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0003 | | .CONST 0x0003 ; Number of locals
02db INIT_02d8:
02db 823c | < | Call 0x1,0x3c
02dc 00e1 | | Load_Encached Boolean_Cache
02dd 03f1 | | Declare_Variable Discrete,With_Value
02de 4801 |H | Short_Literal 0x1
02df 4801 |H | Short_Literal 0x1
02e0 e5ff | | Load 0x2,-0x1
02e1 824b | K | Call 0x1,0x4b
02e2 BODY_02d8:
02e2 00d8 | | Load_Top At_Offset_0
02e3 823d | = | Call 0x1,0x3d
02e4 0092 0aa8 | | Action Push_String_Extended,0xaa8 ; "Execute"
02e6 824f | O | Call 0x1,0x4f
02e7 00d8 | | Load_Top At_Offset_0
02e8 8019 | | Call 0x0,0x19
02e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ea 0000 0000 | | .BLANK 0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02fa | | .CONST 0x02fa ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0003 | | .CONST 0x0003 ; Number of locals
02f3 INIT_02f0:
02f3 823c | < | Call 0x1,0x3c
02f4 00e1 | | Load_Encached Boolean_Cache
02f5 03f1 | | Declare_Variable Discrete,With_Value
02f6 4801 |H | Short_Literal 0x1
02f7 4801 |H | Short_Literal 0x1
02f8 e5ff | | Load 0x2,-0x1
02f9 824b | K | Call 0x1,0x4b
02fa BODY_02f0:
02fa 00d8 | | Load_Top At_Offset_0
02fb 823d | = | Call 0x1,0x3d
02fc 0092 0aa9 | | Action Push_String_Extended,0xaa9 ; "Hold"
02fe 824f | O | Call 0x1,0x4f
02ff 00d8 | | Load_Top At_Offset_0
0300 801a | | Call 0x0,0x1a
0301 823b | ; | Call 0x1,0x3b
0302 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0303 0000 0000 | | .BLANK 0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0312 | | .CONST 0x0312 ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0003 | | .CONST 0x0003 ; Number of locals
030b INIT_0308:
030b 823c | < | Call 0x1,0x3c
030c 00e1 | | Load_Encached Boolean_Cache
030d 03f1 | | Declare_Variable Discrete,With_Value
030e 4801 |H | Short_Literal 0x1
030f 4801 |H | Short_Literal 0x1
0310 e5ff | | Load 0x2,-0x1
0311 824b | K | Call 0x1,0x4b
0312 BODY_0308:
0312 00d8 | | Load_Top At_Offset_0
0313 823d | = | Call 0x1,0x3d
0314 0092 0aaa | | Action Push_String_Extended,0xaaa ; "Release"
0316 824f | O | Call 0x1,0x4f
0317 00d8 | | Load_Top At_Offset_0
0318 801b | | Call 0x0,0x1b
0319 823b | ; | Call 0x1,0x3b
031a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031b 0000 0000 | | .BLANK 0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 032a | * | .CONST 0x032a ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0003 | | .CONST 0x0003 ; Number of locals
0323 INIT_0320:
0323 823c | < | Call 0x1,0x3c
0324 00e1 | | Load_Encached Boolean_Cache
0325 03f1 | | Declare_Variable Discrete,With_Value
0326 4801 |H | Short_Literal 0x1
0327 4801 |H | Short_Literal 0x1
0328 e5ff | | Load 0x2,-0x1
0329 824b | K | Call 0x1,0x4b
032a BODY_0320:
032a e5fe | | Load 0x2,-0x2
032b 8242 | B | Call 0x1,0x42
032c 00d9 | | Load_Top At_Offset_1
032d 823d | = | Call 0x1,0x3d
032e 0092 0aab | | Action Push_String_Extended,0xaab ; "Task_Display"
0330 8250 | P | Call 0x1,0x50
0331 e5fe | | Load 0x2,-0x2
0332 00d9 | | Load_Top At_Offset_1
0333 801c | | Call 0x0,0x1c
0334 823b | ; | Call 0x1,0x3b
0335 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0336 0000 0000 | | .XXX[0x2]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0342 | B | .CONST 0x0342 ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0003 | | .CONST 0x0003 ; Number of locals
033b INIT_0338:
033b 823c | < | Call 0x1,0x3c
033c 00e1 | | Load_Encached Boolean_Cache
033d 03f1 | | Declare_Variable Discrete,With_Value
033e 4801 |H | Short_Literal 0x1
033f 4800 |H | Short_Literal 0x0
0340 e5fd | | Load 0x2,-0x3
0341 824b | K | Call 0x1,0x4b
0342 BODY_0338:
0342 00d8 | | Load_Top At_Offset_0
0343 823d | = | Call 0x1,0x3d
0344 e5fe | | Load 0x2,-0x2
0345 823f | ? | Call 0x1,0x3f
0346 e5ff | | Load 0x2,-0x1
0347 8240 | @ | Call 0x1,0x40
0348 0092 0aac | | Action Push_String_Extended,0xaac ; "Run"
034a 8251 | Q | Call 0x1,0x51
034b e239 | 9 | Load 0x1,0x39
034c 00d9 | | Load_Top At_Offset_1
034d e5fe | | Load 0x2,-0x2
034e e5ff | | Load 0x2,-0x1
034f 801d | | Call 0x0,0x1d
0350 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0351 0000 0000 | | .BLANK 0000[0x7]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0362 | b | .CONST 0x0362 ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0003 | | .CONST 0x0003 ; Number of locals
035b INIT_0358:
035b 823c | < | Call 0x1,0x3c
035c 00e1 | | Load_Encached Boolean_Cache
035d 03f1 | | Declare_Variable Discrete,With_Value
035e 4801 |H | Short_Literal 0x1
035f 4801 |H | Short_Literal 0x1
0360 e5ff | | Load 0x2,-0x1
0361 824b | K | Call 0x1,0x4b
0362 BODY_0358:
0362 00d8 | | Load_Top At_Offset_0
0363 823d | = | Call 0x1,0x3d
0364 0092 0aad | | Action Push_String_Extended,0xaad ; "Clear_Stepping"
0366 824f | O | Call 0x1,0x4f
0367 00d8 | | Load_Top At_Offset_0
0368 801e | | Call 0x0,0x1e
0369 823b | ; | Call 0x1,0x3b
036a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
036b 0000 0000 | | .BLANK 0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0389 | | .CONST 0x0389 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0008 | | .CONST 0x0008 ; Number of locals
0373 INIT_0370:
0373 823c | < | Call 0x1,0x3c
0374 00e1 | | Load_Encached Boolean_Cache
0375 03f1 | | Declare_Variable Discrete,With_Value
0376 00ec | | Load_Encached Diana_Tree_Cache
0377 e004 | | Load 0x0,0x4
0378 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0379 e004 | | Load 0x0,0x4
037a 1b15 | | Execute Package,Field_Read,Field_Number 0x15
037b 4800 |H | Short_Literal 0x0
037c 4801 |H | Short_Literal 0x1
037d e5fe | | Load 0x2,-0x2
037e 824b | K | Call 0x1,0x4b
037f e005 | | Load 0x0,0x5
0380 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0381 02c7 | | Declare_Variable Any
0382 00d8 | | Load_Top At_Offset_0
0383 1c00 | | Execute_Immediate Run_Utility,0x0
0384 e005 | | Load 0x0,0x5
0385 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0386 02c7 | | Declare_Variable Any
0387 00d8 | | Load_Top At_Offset_0
0388 1c00 | | Execute_Immediate Run_Utility,0x0
0389 BODY_0370:
0389 00d9 | | Load_Top At_Offset_1
038a e405 | | Load 0x2,0x5
038b 00ec | | Load_Encached Diana_Tree_Cache
038c 4800 |H | Short_Literal 0x0
038d e5ff | | Load 0x2,-0x1
038e 801f | | Call 0x0,0x1f
038f c403 | | Store 0x2,0x3
0390 c405 | | Store 0x2,0x5
0391 c407 | | Store 0x2,0x7
0392 00d8 | | Load_Top At_Offset_0
0393 e404 | | Load 0x2,0x4
0394 4801 |H | Short_Literal 0x1
0395 4801 |H | Short_Literal 0x1
0396 4804 |H | Short_Literal 0x4
0397 e5fd | | Load 0x2,-0x3
0398 8013 | | Call 0x0,0x13
0399 c404 | | Store 0x2,0x4
039a c408 | | Store 0x2,0x8
039b e404 | | Load 0x2,0x4
039c 823e | > | Call 0x1,0x3e
039d 00db | | Load_Top At_Offset_3
039e 823d | = | Call 0x1,0x3d
039f e405 | | Load 0x2,0x5
03a0 823e | > | Call 0x1,0x3e
03a1 0092 0aae | | Action Push_String_Extended,0xaae ; "Catch"
03a3 8251 | Q | Call 0x1,0x51
03a4 4802 |H | Short_Literal 0x2
03a5 00da | | Load_Top At_Offset_2
03a6 e005 | | Load 0x0,0x5
03a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03a8 6805 |h | Jump_Zero 0x3ae
03a9 00d9 | | Load_Top At_Offset_1
03aa e005 | | Load 0x0,0x5
03ab 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03ac 8007 | | Call 0x0,0x7
03ad 7814 |x | Jump 0x3c2
03ae 4802 |H | Short_Literal 0x2
03af 00d9 | | Load_Top At_Offset_1
03b0 e005 | | Load 0x0,0x5
03b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03b2 6805 |h | Jump_Zero 0x3b8
03b3 00d8 | | Load_Top At_Offset_0
03b4 e005 | | Load 0x0,0x5
03b5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03b6 8007 | | Call 0x0,0x7
03b7 780a |x | Jump 0x3c2
03b8 e239 | 9 | Load 0x1,0x39
03b9 e404 | | Load 0x2,0x4
03ba e004 | | Load 0x0,0x4
03bb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03bc e406 | | Load 0x2,0x6
03bd e403 | | Load 0x2,0x3
03be e405 | | Load 0x2,0x5
03bf e004 | | Load 0x0,0x4
03c0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03c1 8020 | | Call 0x0,0x20
03c2 00db | | Load_Top At_Offset_3
03c3 e004 | | Load 0x0,0x4
03c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03c5 c405 | | Store 0x2,0x5
03c6 e404 | | Load 0x2,0x4
03c7 e004 | | Load 0x0,0x4
03c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03c9 c404 | | Store 0x2,0x4
03ca 823b | ; | Call 0x1,0x3b
03cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03cc 0000 0000 | | .BLANK 0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03e9 | | .CONST 0x03e9 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0008 | | .CONST 0x0008 ; Number of locals
03d3 INIT_03d0:
03d3 823c | < | Call 0x1,0x3c
03d4 00e1 | | Load_Encached Boolean_Cache
03d5 03f1 | | Declare_Variable Discrete,With_Value
03d6 e004 | | Load 0x0,0x4
03d7 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03d8 e004 | | Load 0x0,0x4
03d9 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03da 00ec | | Load_Encached Diana_Tree_Cache
03db 4800 |H | Short_Literal 0x0
03dc 4801 |H | Short_Literal 0x1
03dd e5fe | | Load 0x2,-0x2
03de 824b | K | Call 0x1,0x4b
03df e005 | | Load 0x0,0x5
03e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e1 02c7 | | Declare_Variable Any
03e2 00d8 | | Load_Top At_Offset_0
03e3 1c00 | | Execute_Immediate Run_Utility,0x0
03e4 e005 | | Load 0x0,0x5
03e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e6 02c7 | | Declare_Variable Any
03e7 00d8 | | Load_Top At_Offset_0
03e8 1c00 | | Execute_Immediate Run_Utility,0x0
03e9 BODY_03d0:
03e9 00d9 | | Load_Top At_Offset_1
03ea e404 | | Load 0x2,0x4
03eb 00ec | | Load_Encached Diana_Tree_Cache
03ec 4801 |H | Short_Literal 0x1
03ed e5ff | | Load 0x2,-0x1
03ee 801f | | Call 0x0,0x1f
03ef c405 | | Store 0x2,0x5
03f0 c404 | | Store 0x2,0x4
03f1 c407 | | Store 0x2,0x7
03f2 00d8 | | Load_Top At_Offset_0
03f3 e403 | | Load 0x2,0x3
03f4 4801 |H | Short_Literal 0x1
03f5 4801 |H | Short_Literal 0x1
03f6 4805 |H | Short_Literal 0x5
03f7 e5fd | | Load 0x2,-0x3
03f8 8013 | | Call 0x0,0x13
03f9 c403 | | Store 0x2,0x3
03fa c408 | | Store 0x2,0x8
03fb e403 | | Load 0x2,0x3
03fc 823e | > | Call 0x1,0x3e
03fd 00db | | Load_Top At_Offset_3
03fe 823d | = | Call 0x1,0x3d
03ff e404 | | Load 0x2,0x4
0400 823e | > | Call 0x1,0x3e
0401 0092 0aaf | | Action Push_String_Extended,0xaaf ; "Propagate"
0403 8251 | Q | Call 0x1,0x51
0404 4802 |H | Short_Literal 0x2
0405 00da | | Load_Top At_Offset_2
0406 e005 | | Load 0x0,0x5
0407 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0408 6805 |h | Jump_Zero 0x40e
0409 00d9 | | Load_Top At_Offset_1
040a e005 | | Load 0x0,0x5
040b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
040c 8007 | | Call 0x0,0x7
040d 7813 |x | Jump 0x421
040e 4802 |H | Short_Literal 0x2
040f 00d9 | | Load_Top At_Offset_1
0410 e005 | | Load 0x0,0x5
0411 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0412 6805 |h | Jump_Zero 0x418
0413 00d8 | | Load_Top At_Offset_0
0414 e005 | | Load 0x0,0x5
0415 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0416 8007 | | Call 0x0,0x7
0417 7809 |x | Jump 0x421
0418 e403 | | Load 0x2,0x3
0419 e004 | | Load 0x0,0x4
041a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
041b 00db | | Load_Top At_Offset_3
041c e405 | | Load 0x2,0x5
041d e404 | | Load 0x2,0x4
041e e004 | | Load 0x0,0x4
041f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0420 8021 | ! | Call 0x0,0x21
0421 e404 | | Load 0x2,0x4
0422 e004 | | Load 0x0,0x4
0423 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0424 c404 | | Store 0x2,0x4
0425 e403 | | Load 0x2,0x3
0426 e004 | | Load 0x0,0x4
0427 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0428 c403 | | Store 0x2,0x3
0429 823b | ; | Call 0x1,0x3b
042a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
042b 0000 0000 | | .BLANK 0000[0x5]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0449 | I | .CONST 0x0449 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0008 | | .CONST 0x0008 ; Number of locals
0433 INIT_0430:
0433 823c | < | Call 0x1,0x3c
0434 00e1 | | Load_Encached Boolean_Cache
0435 03f1 | | Declare_Variable Discrete,With_Value
0436 e004 | | Load 0x0,0x4
0437 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0438 e004 | | Load 0x0,0x4
0439 1b15 | | Execute Package,Field_Read,Field_Number 0x15
043a 4800 |H | Short_Literal 0x0
043b 4801 |H | Short_Literal 0x1
043c e5fe | | Load 0x2,-0x2
043d 824b | K | Call 0x1,0x4b
043e 00ec | | Load_Encached Diana_Tree_Cache
043f e005 | | Load 0x0,0x5
0440 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0441 02c7 | | Declare_Variable Any
0442 00d8 | | Load_Top At_Offset_0
0443 1c00 | | Execute_Immediate Run_Utility,0x0
0444 e005 | | Load 0x0,0x5
0445 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0446 02c7 | | Declare_Variable Any
0447 00d8 | | Load_Top At_Offset_0
0448 1c00 | | Execute_Immediate Run_Utility,0x0
0449 BODY_0430:
0449 00d9 | | Load_Top At_Offset_1
044a e404 | | Load 0x2,0x4
044b 00ec | | Load_Encached Diana_Tree_Cache
044c 4802 |H | Short_Literal 0x2
044d e5ff | | Load 0x2,-0x1
044e 801f | | Call 0x0,0x1f
044f c406 | | Store 0x2,0x6
0450 c404 | | Store 0x2,0x4
0451 c407 | | Store 0x2,0x7
0452 00d8 | | Load_Top At_Offset_0
0453 e403 | | Load 0x2,0x3
0454 4801 |H | Short_Literal 0x1
0455 4801 |H | Short_Literal 0x1
0456 4806 |H | Short_Literal 0x6
0457 e5fd | | Load 0x2,-0x3
0458 8013 | | Call 0x0,0x13
0459 c403 | | Store 0x2,0x3
045a c408 | | Store 0x2,0x8
045b e403 | | Load 0x2,0x3
045c 823e | > | Call 0x1,0x3e
045d e405 | | Load 0x2,0x5
045e 823d | = | Call 0x1,0x3d
045f e404 | | Load 0x2,0x4
0460 823e | > | Call 0x1,0x3e
0461 0092 0ab0 | | Action Push_String_Extended,0xab0 ; "Forget"
0463 8251 | Q | Call 0x1,0x51
0464 4802 |H | Short_Literal 0x2
0465 00da | | Load_Top At_Offset_2
0466 e005 | | Load 0x0,0x5
0467 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0468 6805 |h | Jump_Zero 0x46e
0469 00d9 | | Load_Top At_Offset_1
046a e005 | | Load 0x0,0x5
046b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
046c 8007 | | Call 0x0,0x7
046d 7814 |x | Jump 0x482
046e 4802 |H | Short_Literal 0x2
046f 00d9 | | Load_Top At_Offset_1
0470 e005 | | Load 0x0,0x5
0471 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0472 6805 |h | Jump_Zero 0x478
0473 00d8 | | Load_Top At_Offset_0
0474 e005 | | Load 0x0,0x5
0475 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0476 8007 | | Call 0x0,0x7
0477 780a |x | Jump 0x482
0478 e239 | 9 | Load 0x1,0x39
0479 e403 | | Load 0x2,0x3
047a e004 | | Load 0x0,0x4
047b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
047c e405 | | Load 0x2,0x5
047d e406 | | Load 0x2,0x6
047e e404 | | Load 0x2,0x4
047f e004 | | Load 0x0,0x4
0480 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0481 8022 | " | Call 0x0,0x22
0482 e404 | | Load 0x2,0x4
0483 e004 | | Load 0x0,0x4
0484 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0485 c404 | | Store 0x2,0x4
0486 e403 | | Load 0x2,0x3
0487 e004 | | Load 0x0,0x4
0488 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0489 c403 | | Store 0x2,0x3
048a 823b | ; | Call 0x1,0x3b
048b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
048c 0000 0000 | | .BLANK 0000[0x4]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 04a1 | | .CONST 0x04a1 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0005 | | .CONST 0x0005 ; Number of locals
0493 INIT_0490:
0493 823c | < | Call 0x1,0x3c
0494 00e1 | | Load_Encached Boolean_Cache
0495 03f1 | | Declare_Variable Discrete,With_Value
0496 e004 | | Load 0x0,0x4
0497 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0498 4800 |H | Short_Literal 0x0
0499 4801 |H | Short_Literal 0x1
049a e5fd | | Load 0x2,-0x3
049b 824b | K | Call 0x1,0x4b
049c e005 | | Load 0x0,0x5
049d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049e 02c7 | | Declare_Variable Any
049f 00d8 | | Load_Top At_Offset_0
04a0 1c00 | | Execute_Immediate Run_Utility,0x0
04a1 BODY_0490:
04a1 00d8 | | Load_Top At_Offset_0
04a2 00db | | Load_Top At_Offset_3
04a3 e5ff | | Load 0x2,-0x1
04a4 4801 |H | Short_Literal 0x1
04a5 4802 |H | Short_Literal 0x2
04a6 e5fc | | Load 0x2,-0x4
04a7 8013 | | Call 0x0,0x13
04a8 c403 | | Store 0x2,0x3
04a9 c405 | | Store 0x2,0x5
04aa 00da | | Load_Top At_Offset_2
04ab 823e | > | Call 0x1,0x3e
04ac 00da | | Load_Top At_Offset_2
04ad 823d | = | Call 0x1,0x3d
04ae e5fe | | Load 0x2,-0x2
04af 8241 | A | Call 0x1,0x41
04b0 e5ff | | Load 0x2,-0x1
04b1 8246 | F | Call 0x1,0x46
04b2 0092 0ab1 | | Action Push_String_Extended,0xab1 ; "Trace"
04b4 8252 | R | Call 0x1,0x52
04b5 4802 |H | Short_Literal 0x2
04b6 00d9 | | Load_Top At_Offset_1
04b7 e005 | | Load 0x0,0x5
04b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04b9 6805 |h | Jump_Zero 0x4bf
04ba 00d8 | | Load_Top At_Offset_0
04bb e005 | | Load 0x0,0x5
04bc 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04bd 8007 | | Call 0x0,0x7
04be 7808 |x | Jump 0x4c7
04bf 00da | | Load_Top At_Offset_2
04c0 e004 | | Load 0x0,0x4
04c1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04c2 00da | | Load_Top At_Offset_2
04c3 e239 | 9 | Load 0x1,0x39
04c4 e5ff | | Load 0x2,-0x1
04c5 e5fe | | Load 0x2,-0x2
04c6 8023 | # | Call 0x0,0x23
04c7 00da | | Load_Top At_Offset_2
04c8 e004 | | Load 0x0,0x4
04c9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04ca 003b | ; | Store_Top Access,At_Offset_3
04cb 823b | ; | Call 0x1,0x3b
04cc 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04cd 0000 0000 | | .XXX[0x3]
04cf 0000 | |
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d6 | | .CONST 0x04d6 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0002 | | .CONST 0x0002 ; Number of locals
04d3 INIT_04d0:
04d3 823c | < | Call 0x1,0x3c
04d4 00e1 | | Load_Encached Boolean_Cache
04d5 03f1 | | Declare_Variable Discrete,With_Value
04d6 BODY_04d0:
04d6 00db | | Load_Top At_Offset_3
04d7 823d | = | Call 0x1,0x3d
04d8 0092 0ab2 | | Action Push_String_Extended,0xab2 ; "Trace_To_File"
04da 824f | O | Call 0x1,0x4f
04db 00db | | Load_Top At_Offset_3
04dc 8024 | $ | Call 0x0,0x24
04dd 823b | ; | Call 0x1,0x3b
04de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04df 0000 | | .XXX[0x1]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04ec | | .CONST 0x04ec ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0005 | | .CONST 0x0005 ; Number of locals
04e3 INIT_04e0:
04e3 823c | < | Call 0x1,0x3c
04e4 00e1 | | Load_Encached Boolean_Cache
04e5 03f1 | | Declare_Variable Discrete,With_Value
04e6 00e2 | | Load_Encached Integer_Cache
04e7 00e2 | | Load_Encached Integer_Cache
04e8 4801 |H | Short_Literal 0x1
04e9 4801 |H | Short_Literal 0x1
04ea e5fd | | Load 0x2,-0x3
04eb 824b | K | Call 0x1,0x4b
04ec BODY_04e0:
04ec e5ff | | Load 0x2,-0x1
04ed 7004 |p | Jump_Nonzero 0x4f2
04ee 4806 |H | Short_Literal 0x6
04ef 8009 | | Call 0x0,0x9
04f0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
04f1 7802 |x | Jump 0x4f4
04f2 e5ff | | Load 0x2,-0x1
04f3 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
04f4 e5fe | | Load 0x2,-0x2
04f5 7004 |p | Jump_Nonzero 0x4fa
04f6 4804 |H | Short_Literal 0x4
04f7 8009 | | Call 0x0,0x9
04f8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
04f9 7802 |x | Jump 0x4fc
04fa e5fe | | Load 0x2,-0x2
04fb 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
04fc 00d8 | | Load_Top At_Offset_0
04fd 823d | = | Call 0x1,0x3d
04fe e5fe | | Load 0x2,-0x2
04ff 823f | ? | Call 0x1,0x3f
0500 e5ff | | Load 0x2,-0x1
0501 823f | ? | Call 0x1,0x3f
0502 0092 0ab3 | | Action Push_String_Extended,0xab3 ; "History_Display"
0504 8251 | Q | Call 0x1,0x51
0505 00d8 | | Load_Top At_Offset_0
0506 00da | | Load_Top At_Offset_2
0507 e403 | | Load 0x2,0x3
0508 8025 | % | Call 0x0,0x25
0509 823b | ; | Call 0x1,0x3b
050a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
050b 0000 0000 | | .BLANK 0000[0x5]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0521 | ! | .CONST 0x0521 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0005 | | .CONST 0x0005 ; Number of locals
0513 INIT_0510:
0513 823c | < | Call 0x1,0x3c
0514 00e1 | | Load_Encached Boolean_Cache
0515 03f1 | | Declare_Variable Discrete,With_Value
0516 e004 | | Load 0x0,0x4
0517 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0518 4800 |H | Short_Literal 0x0
0519 4801 |H | Short_Literal 0x1
051a e5fd | | Load 0x2,-0x3
051b 824b | K | Call 0x1,0x4b
051c e005 | | Load 0x0,0x5
051d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
051e 02c7 | | Declare_Variable Any
051f 00d8 | | Load_Top At_Offset_0
0520 1c00 | | Execute_Immediate Run_Utility,0x0
0521 BODY_0510:
0521 00d8 | | Load_Top At_Offset_0
0522 00db | | Load_Top At_Offset_3
0523 e5ff | | Load 0x2,-0x1
0524 4801 |H | Short_Literal 0x1
0525 4801 |H | Short_Literal 0x1
0526 e5fc | | Load 0x2,-0x4
0527 8013 | | Call 0x0,0x13
0528 c403 | | Store 0x2,0x3
0529 c405 | | Store 0x2,0x5
052a 00da | | Load_Top At_Offset_2
052b 823e | > | Call 0x1,0x3e
052c 00da | | Load_Top At_Offset_2
052d 823d | = | Call 0x1,0x3d
052e e5fe | | Load 0x2,-0x2
052f 8241 | A | Call 0x1,0x41
0530 e5ff | | Load 0x2,-0x1
0531 8246 | F | Call 0x1,0x46
0532 0092 0ab4 | | Action Push_String_Extended,0xab4 ; "Take_History"
0534 8252 | R | Call 0x1,0x52
0535 4802 |H | Short_Literal 0x2
0536 00d9 | | Load_Top At_Offset_1
0537 e005 | | Load 0x0,0x5
0538 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0539 6805 |h | Jump_Zero 0x53f
053a 00d8 | | Load_Top At_Offset_0
053b e005 | | Load 0x0,0x5
053c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
053d 8007 | | Call 0x0,0x7
053e 7808 |x | Jump 0x547
053f 4800 |H | Short_Literal 0x0
0540 00db | | Load_Top At_Offset_3
0541 e004 | | Load 0x0,0x4
0542 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0543 00db | | Load_Top At_Offset_3
0544 e5fe | | Load 0x2,-0x2
0545 e5ff | | Load 0x2,-0x1
0546 8026 | & | Call 0x0,0x26
0547 00da | | Load_Top At_Offset_2
0548 e004 | | Load 0x0,0x4
0549 1816 | | Execute Package,Field_Execute,Field_Number 0x16
054a 003b | ; | Store_Top Access,At_Offset_3
054b 823b | ; | Call 0x1,0x3b
054c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
054d 0000 0000 | | .XXX[0x3]
054f 0000 | |
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0562 | b | .CONST 0x0562 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0006 | | .CONST 0x0006 ; Number of locals
0553 INIT_0550:
0553 823c | < | Call 0x1,0x3c
0554 00e1 | | Load_Encached Boolean_Cache
0555 03f1 | | Declare_Variable Discrete,With_Value
0556 00ec | | Load_Encached Diana_Tree_Cache
0557 e004 | | Load 0x0,0x4
0558 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0559 e00e | | Load 0x0,0xe
055a 02c7 | | Declare_Variable Any
055b 00d8 | | Load_Top At_Offset_0
055c 1c00 | | Execute_Immediate Run_Utility,0x0
055d e005 | | Load 0x0,0x5
055e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
055f 02c7 | | Declare_Variable Any
0560 00d8 | | Load_Top At_Offset_0
0561 1c00 | | Execute_Immediate Run_Utility,0x0
0562 BODY_0550:
0562 e5ff | | Load 0x2,-0x1
0563 0f01 | | Execute_Immediate Equal,0x1
0564 700b |p | Jump_Nonzero 0x570
0565 00d8 | | Load_Top At_Offset_0
0566 00db | | Load_Top At_Offset_3
0567 00ec | | Load_Encached Diana_Tree_Cache
0568 4801 |H | Short_Literal 0x1
0569 4803 |H | Short_Literal 0x3
056a e5fe | | Load 0x2,-0x2
056b 8006 | | Call 0x0,0x6
056c c403 | | Store 0x2,0x3
056d c404 | | Store 0x2,0x4
056e c406 | | Store 0x2,0x6
056f 7812 |x | Jump 0x582
0570 00d8 | | Load_Top At_Offset_0
0571 00da | | Load_Top At_Offset_2
0572 0120 | | Execute Any,Is_Value
0573 6802 |h | Jump_Zero 0x576
0574 e00e | | Load 0x0,0xe
0575 7801 |x | Jump 0x577
0576 00da | | Load_Top At_Offset_2
0577 e404 | | Load 0x2,0x4
0578 00ec | | Load_Encached Diana_Tree_Cache
0579 4801 |H | Short_Literal 0x1
057a 4800 |H | Short_Literal 0x0
057b 4800 |H | Short_Literal 0x0
057c e5fe | | Load 0x2,-0x2
057d 800f | | Call 0x0,0xf
057e c403 | | Store 0x2,0x3
057f c404 | | Store 0x2,0x4
0580 c405 | | Store 0x2,0x5
0581 c406 | | Store 0x2,0x6
0582 00da | | Load_Top At_Offset_2
0583 823e | > | Call 0x1,0x3e
0584 e5ff | | Load 0x2,-0x1
0585 8245 | E | Call 0x1,0x45
0586 0092 0ab5 | | Action Push_String_Extended,0xab5 ; "Context"
0588 8250 | P | Call 0x1,0x50
0589 4802 |H | Short_Literal 0x2
058a 00d9 | | Load_Top At_Offset_1
058b e005 | | Load 0x0,0x5
058c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
058d 6805 |h | Jump_Zero 0x593
058e 00d8 | | Load_Top At_Offset_0
058f e005 | | Load 0x0,0x5
0590 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0591 8007 | | Call 0x0,0x7
0592 7806 |x | Jump 0x599
0593 00db | | Load_Top At_Offset_3
0594 00db | | Load_Top At_Offset_3
0595 e004 | | Load 0x0,0x4
0596 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0597 e5ff | | Load 0x2,-0x1
0598 8027 | ' | Call 0x0,0x27
0599 00da | | Load_Top At_Offset_2
059a e004 | | Load 0x0,0x4
059b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
059c 003b | ; | Store_Top Access,At_Offset_3
059d 823b | ; | Call 0x1,0x3b
059e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
059f 0000 | | .XXX[0x1]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a6 | | .CONST 0x05a6 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0002 | | .CONST 0x0002 ; Number of locals
05a3 INIT_05a0:
05a3 823c | < | Call 0x1,0x3c
05a4 00e1 | | Load_Encached Boolean_Cache
05a5 03f1 | | Declare_Variable Discrete,With_Value
05a6 BODY_05a0:
05a6 e5fe | | Load 0x2,-0x2
05a7 8246 | F | Call 0x1,0x46
05a8 e5ff | | Load 0x2,-0x1
05a9 8244 | D | Call 0x1,0x44
05aa 0092 0ab6 | | Action Push_String_Extended,0xab6 ; "Enable"
05ac 8250 | P | Call 0x1,0x50
05ad e5fe | | Load 0x2,-0x2
05ae e5ff | | Load 0x2,-0x1
05af 8028 | ( | Call 0x0,0x28
05b0 823b | ; | Call 0x1,0x3b
05b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05b2 0000 0000 | | .BLANK 0000[0x6]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05be | | .CONST 0x05be ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0002 | | .CONST 0x0002 ; Number of locals
05bb INIT_05b8:
05bb 823c | < | Call 0x1,0x3c
05bc 00e1 | | Load_Encached Boolean_Cache
05bd 03f1 | | Declare_Variable Discrete,With_Value
05be BODY_05b8:
05be e5fe | | Load 0x2,-0x2
05bf 823f | ? | Call 0x1,0x3f
05c0 e5ff | | Load 0x2,-0x1
05c1 8247 | G | Call 0x1,0x47
05c2 0092 0ab7 | | Action Push_String_Extended,0xab7 ; "Set_Value"
05c4 8250 | P | Call 0x1,0x50
05c5 e5fe | | Load 0x2,-0x2
05c6 e5ff | | Load 0x2,-0x1
05c7 8029 | ) | Call 0x0,0x29
05c8 823b | ; | Call 0x1,0x3b
05c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05ca 0000 0000 | | .BLANK 0000[0x6]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d6 | | .CONST 0x05d6 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0002 | | .CONST 0x0002 ; Number of locals
05d3 INIT_05d0:
05d3 823c | < | Call 0x1,0x3c
05d4 00e1 | | Load_Encached Boolean_Cache
05d5 03f1 | | Declare_Variable Discrete,With_Value
05d6 BODY_05d0:
05d6 e5fe | | Load 0x2,-0x2
05d7 823d | = | Call 0x1,0x3d
05d8 e5ff | | Load 0x2,-0x1
05d9 823d | = | Call 0x1,0x3d
05da 0092 0ab8 | | Action Push_String_Extended,0xab8 ; "Flag"
05dc 8250 | P | Call 0x1,0x50
05dd e5fe | | Load 0x2,-0x2
05de e5ff | | Load 0x2,-0x1
05df 802a | * | Call 0x0,0x2a
05e0 823b | ; | Call 0x1,0x3b
05e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05e2 0000 0000 | | .BLANK 0000[0x6]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05ee | | .CONST 0x05ee ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0002 | | .CONST 0x0002 ; Number of locals
05eb INIT_05e8:
05eb 823c | < | Call 0x1,0x3c
05ec 00e1 | | Load_Encached Boolean_Cache
05ed 03f1 | | Declare_Variable Discrete,With_Value
05ee BODY_05e8:
05ee 00db | | Load_Top At_Offset_3
05ef 8243 | C | Call 0x1,0x43
05f0 0092 0ab9 | | Action Push_String_Extended,0xab9 ; "Show"
05f2 824f | O | Call 0x1,0x4f
05f3 00db | | Load_Top At_Offset_3
05f4 802b | + | Call 0x0,0x2b
05f5 823b | ; | Call 0x1,0x3b
05f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05f7 0000 | | .XXX[0x1]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 0602 | | .CONST 0x0602 ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0003 | | .CONST 0x0003 ; Number of locals
05fb INIT_05f8:
05fb 823c | < | Call 0x1,0x3c
05fc 00e1 | | Load_Encached Boolean_Cache
05fd 03f1 | | Declare_Variable Discrete,With_Value
05fe 4801 |H | Short_Literal 0x1
05ff 4801 |H | Short_Literal 0x1
0600 e5fe | | Load 0x2,-0x2
0601 824b | K | Call 0x1,0x4b
0602 BODY_05f8:
0602 00d8 | | Load_Top At_Offset_0
0603 823d | = | Call 0x1,0x3d
0604 e5ff | | Load 0x2,-0x1
0605 8248 | H | Call 0x1,0x48
0606 0092 0aba | | Action Push_String_Extended,0xaba ; "Information"
0608 8250 | P | Call 0x1,0x50
0609 e5ff | | Load 0x2,-0x1
060a 4602 |F | Jump_Case 0x3
060b 7805 |x | Jump 0x611 ; case 0x0
060c 7807 |x | Jump 0x614 ; case 0x1
060d 7800 |x | Jump 0x60e ; case 0x2
060e 00d8 | | Load_Top At_Offset_0
060f 802c | , | Call 0x0,0x2c
0610 7805 |x | Jump 0x616
0611 00d8 | | Load_Top At_Offset_0
0612 802d | - | Call 0x0,0x2d
0613 7802 |x | Jump 0x616
0614 00d8 | | Load_Top At_Offset_0
0615 802e | . | Call 0x0,0x2e
0616 823b | ; | Call 0x1,0x3b
0617 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061e | | .CONST 0x061e ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0002 | | .CONST 0x0002 ; Number of locals
061b INIT_0618:
061b 823c | < | Call 0x1,0x3c
061c 00e1 | | Load_Encached Boolean_Cache
061d 03f1 | | Declare_Variable Discrete,With_Value
061e BODY_0618:
061e 480a |H | Short_Literal 0xa
061f 480a |H | Short_Literal 0xa
0620 824d | M | Call 0x1,0x4d
0621 01ca | | Execute Vector,Prepend
0622 e5ff | | Load 0x2,-0x1
0623 01cc | | Execute Vector,Catenate
0624 01cb | | Execute Vector,Append
0625 802f | / | Call 0x0,0x2f
0626 823b | ; | Call 0x1,0x3b
0627 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 0637 | 7 | .CONST 0x0637 ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0004 | | .CONST 0x0004 ; Number of locals
062b INIT_0628:
062b 823c | < | Call 0x1,0x3c
062c 00e1 | | Load_Encached Boolean_Cache
062d 03f1 | | Declare_Variable Discrete,With_Value
062e 4801 |H | Short_Literal 0x1
062f 4800 |H | Short_Literal 0x0
0630 e5ff | | Load 0x2,-0x1
0631 824b | K | Call 0x1,0x4b
0632 e005 | | Load 0x0,0x5
0633 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0634 02c7 | | Declare_Variable Any
0635 00d8 | | Load_Top At_Offset_0
0636 1c00 | | Execute_Immediate Run_Utility,0x0
0637 BODY_0628:
0637 e5fe | | Load 0x2,-0x2
0638 823d | = | Call 0x1,0x3d
0639 00da | | Load_Top At_Offset_2
063a 823d | = | Call 0x1,0x3d
063b 0092 0abb | | Action Push_String_Extended,0xabb ; "Set_Task_Name"
063d 8250 | P | Call 0x1,0x50
063e 00d8 | | Load_Top At_Offset_0
063f e5fe | | Load 0x2,-0x2
0640 00db | | Load_Top At_Offset_3
0641 8030 | 0 | Call 0x0,0x30
0642 c404 | | Store 0x2,0x4
0643 4802 |H | Short_Literal 0x2
0644 00d9 | | Load_Top At_Offset_1
0645 e005 | | Load 0x0,0x5
0646 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0647 6804 |h | Jump_Zero 0x64c
0648 00d8 | | Load_Top At_Offset_0
0649 e005 | | Load 0x0,0x5
064a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
064b 8007 | | Call 0x0,0x7
064c 823b | ; | Call 0x1,0x3b
064d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
064e 0000 0000 | | .XXX[0x2]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0656 | V | .CONST 0x0656 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0002 | | .CONST 0x0002 ; Number of locals
0653 INIT_0650:
0653 823c | < | Call 0x1,0x3c
0654 00e1 | | Load_Encached Boolean_Cache
0655 03f1 | | Declare_Variable Discrete,With_Value
0656 BODY_0650:
0656 e5fe | | Load 0x2,-0x2
0657 823f | ? | Call 0x1,0x3f
0658 e5ff | | Load 0x2,-0x1
0659 823d | = | Call 0x1,0x3d
065a 0092 0abc | | Action Push_String_Extended,0xabc ; "Convert"
065c 8250 | P | Call 0x1,0x50
065d e5fe | | Load 0x2,-0x2
065e e5ff | | Load 0x2,-0x1
065f 8031 | 1 | Call 0x0,0x31
0660 823b | ; | Call 0x1,0x3b
0661 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0662 0000 0000 | | .BLANK 0000[0x6]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b 8032 | 2 | Call 0x0,0x32
066c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
066d 0000 0000 | | .XXX[0x3]
066f 0000 | |
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 067d | } | .CONST 0x067d ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0004 | | .CONST 0x0004 ; Number of locals
0673 INIT_0670:
0673 823c | < | Call 0x1,0x3c
0674 00e1 | | Load_Encached Boolean_Cache
0675 03f1 | | Declare_Variable Discrete,With_Value
0676 e004 | | Load 0x0,0x4
0677 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0678 e005 | | Load 0x0,0x5
0679 1b0d | | Execute Package,Field_Read,Field_Number 0xd
067a 02c7 | | Declare_Variable Any
067b 00d8 | | Load_Top At_Offset_0
067c 1c00 | | Execute_Immediate Run_Utility,0x0
067d BODY_0670:
067d 00d8 | | Load_Top At_Offset_0
067e 00da | | Load_Top At_Offset_2
067f 4801 |H | Short_Literal 0x1
0680 4800 |H | Short_Literal 0x0
0681 4803 |H | Short_Literal 0x3
0682 e5ff | | Load 0x2,-0x1
0683 8013 | | Call 0x0,0x13
0684 003b | ; | Store_Top Access,At_Offset_3
0685 c404 | | Store 0x2,0x4
0686 e5fd | | Load 0x2,-0x3
0687 e5fe | | Load 0x2,-0x2
0688 823f | ? | Call 0x1,0x3f
0689 00db | | Load_Top At_Offset_3
068a 823e | > | Call 0x1,0x3e
068b 0092 0abd | | Action Push_String_Extended,0xabd ; "Memory_Display"
068d 8251 | Q | Call 0x1,0x51
068e 4802 |H | Short_Literal 0x2
068f 00d9 | | Load_Top At_Offset_1
0690 e005 | | Load 0x0,0x5
0691 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0692 6805 |h | Jump_Zero 0x698
0693 00d8 | | Load_Top At_Offset_0
0694 e005 | | Load 0x0,0x5
0695 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0696 8007 | | Call 0x0,0x7
0697 7806 |x | Jump 0x69e
0698 e5fd | | Load 0x2,-0x3
0699 e5fe | | Load 0x2,-0x2
069a 00db | | Load_Top At_Offset_3
069b e004 | | Load 0x0,0x4
069c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
069d 8033 | 3 | Call 0x0,0x33
069e 823b | ; | Call 0x1,0x3b
069f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06ad | | .CONST 0x06ad ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0004 | | .CONST 0x0004 ; Number of locals
06a3 INIT_06a0:
06a3 823c | < | Call 0x1,0x3c
06a4 00e1 | | Load_Encached Boolean_Cache
06a5 03f1 | | Declare_Variable Discrete,With_Value
06a6 e004 | | Load 0x0,0x4
06a7 1b15 | | Execute Package,Field_Read,Field_Number 0x15
06a8 e005 | | Load 0x0,0x5
06a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06aa 02c7 | | Declare_Variable Any
06ab 00d8 | | Load_Top At_Offset_0
06ac 1c00 | | Execute_Immediate Run_Utility,0x0
06ad BODY_06a0:
06ad 00d8 | | Load_Top At_Offset_0
06ae 00da | | Load_Top At_Offset_2
06af 4801 |H | Short_Literal 0x1
06b0 4800 |H | Short_Literal 0x0
06b1 4803 |H | Short_Literal 0x3
06b2 e5ff | | Load 0x2,-0x1
06b3 8013 | | Call 0x0,0x13
06b4 003b | ; | Store_Top Access,At_Offset_3
06b5 c404 | | Store 0x2,0x4
06b6 00d9 | | Load_Top At_Offset_1
06b7 823e | > | Call 0x1,0x3e
06b8 0092 0abe | | Action Push_String_Extended,0xabe ; "Location_To_Address"
06ba 824f | O | Call 0x1,0x4f
06bb 4802 |H | Short_Literal 0x2
06bc 00d9 | | Load_Top At_Offset_1
06bd e005 | | Load 0x0,0x5
06be 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06bf 6805 |h | Jump_Zero 0x6c5
06c0 00d8 | | Load_Top At_Offset_0
06c1 e005 | | Load 0x0,0x5
06c2 1820 | | Execute Package,Field_Execute,Field_Number 0x20
06c3 8007 | | Call 0x0,0x7
06c4 7804 |x | Jump 0x6c9
06c5 00d9 | | Load_Top At_Offset_1
06c6 e004 | | Load 0x0,0x4
06c7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
06c8 8034 | 4 | Call 0x0,0x34
06c9 00d9 | | Load_Top At_Offset_1
06ca e004 | | Load 0x0,0x4
06cb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06cc 003a | : | Store_Top Access,At_Offset_2
06cd 823b | ; | Call 0x1,0x3b
06ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06cf 0000 | | .XXX[0x1]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06dc | | .CONST 0x06dc ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0004 | | .CONST 0x0004 ; Number of locals
06d3 INIT_06d0:
06d3 823c | < | Call 0x1,0x3c
06d4 00e1 | | Load_Encached Boolean_Cache
06d5 03f1 | | Declare_Variable Discrete,With_Value
06d6 e035 | 5 | Load 0x0,0x35
06d7 02c7 | | Declare_Variable Any
06d8 00d8 | | Load_Top At_Offset_0
06d9 1c00 | | Execute_Immediate Run_Utility,0x0
06da 029f 0a93 | | Declare_Subprogram INIT_0a90,For_Call
06dc BODY_06d0:
06dc e5ff | | Load 0x2,-0x1
06dd 823d | = | Call 0x1,0x3d
06de 0092 0abf | | Action Push_String_Extended,0xabf ; "Address_To_Location"
06e0 824f | O | Call 0x1,0x4f
06e1 8404 | | Call 0x2,0x4
06e2 00d9 | | Load_Top At_Offset_1
06e3 8036 | 6 | Call 0x0,0x36
06e4 823b | ; | Call 0x1,0x3b
06e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06e6 0000 0000 | | .XXX[0x2]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06ee | | .CONST 0x06ee ; Address of begin
06e9 06f8 | | .CONST 0x06f8 ; Address of exception handler
06ea 0002 | | .CONST 0x0002 ; Number of locals
06eb INIT_06e8:
06eb 823c | < | Call 0x1,0x3c
06ec 00e1 | | Load_Encached Boolean_Cache
06ed 03f1 | | Declare_Variable Discrete,With_Value
06ee BODY_06e8:
06ee 00db | | Load_Top At_Offset_3
06ef 823d | = | Call 0x1,0x3d
06f0 0092 0ac0 | | Action Push_String_Extended,0xac0 ; "Exception_To_Name"
06f2 824f | O | Call 0x1,0x4f
06f3 00db | | Load_Top At_Offset_3
06f4 8037 | 7 | Call 0x0,0x37
06f5 8038 | 8 | Call 0x0,0x38
06f6 823b | ; | Call 0x1,0x3b
06f7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06f8 TRAP_06e8:
06f8 0007 | | Action Break_Optional
06f9 480a |H | Short_Literal 0xa
06fa 0092 0ac1 | | Action Push_String_Extended,0xac1 ; "Unable to convert "
06fc e5ff | | Load 0x2,-0x1
06fd 01cc | | Execute Vector,Catenate
06fe 0092 0ac2 | | Action Push_String_Extended,0xac2 ; " to an exception value."
0700 01cc | | Execute Vector,Catenate
0701 01cb | | Execute Vector,Append
0702 8007 | | Call 0x0,0x7
0703 823b | ; | Call 0x1,0x3b
0704 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0705 0000 0000 | | .XXX[0x3]
0707 0000 | |
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070e | | .CONST 0x070e ; Address of begin
0709 071d | | .CONST 0x071d ; Address of exception handler
070a 0002 | | .CONST 0x0002 ; Number of locals
070b INIT_0708:
070b 823c | < | Call 0x1,0x3c
070c 00e1 | | Load_Encached Boolean_Cache
070d 03f1 | | Declare_Variable Discrete,With_Value
070e BODY_0708:
070e e5fc | | Load 0x2,-0x4
070f e5fd | | Load 0x2,-0x3
0710 823f | ? | Call 0x1,0x3f
0711 e5fe | | Load 0x2,-0x2
0712 e5ff | | Load 0x2,-0x1
0713 823d | = | Call 0x1,0x3d
0714 0092 0ac3 | | Action Push_String_Extended,0xac3 ; "Memory_Modify"
0716 8252 | R | Call 0x1,0x52
0717 e5fc | | Load 0x2,-0x4
0718 e5fe | | Load 0x2,-0x2
0719 e5ff | | Load 0x2,-0x1
071a 8039 | 9 | Call 0x0,0x39
071b 823b | ; | Call 0x1,0x3b
071c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
071d TRAP_0708:
071d e23a | : | Load 0x1,0x3a
071e 010f | | Execute Exception,Equal
071f 6802 |h | Jump_Zero 0x722
0720 823b | ; | Call 0x1,0x3b
0721 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0722 0100 | | Execute Exception,Raise
0723 0000 0000 | | .BLANK 0000[0x5]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 0737 | 7 | .CONST 0x0737 ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0005 | | .CONST 0x0005 ; Number of locals
072b INIT_0728:
072b 823c | < | Call 0x1,0x3c
072c 00e1 | | Load_Encached Boolean_Cache
072d 03f1 | | Declare_Variable Discrete,With_Value
072e 4801 |H | Short_Literal 0x1
072f 4800 |H | Short_Literal 0x0
0730 e5fe | | Load 0x2,-0x2
0731 824b | K | Call 0x1,0x4b
0732 e03a | : | Load 0x0,0x3a
0733 02c7 | | Declare_Variable Any
0734 00d8 | | Load_Top At_Offset_0
0735 1c00 | | Execute_Immediate Run_Utility,0x0
0736 00e1 | | Load_Encached Boolean_Cache
0737 BODY_0728:
0737 e5fd | | Load 0x2,-0x3
0738 823f | ? | Call 0x1,0x3f
0739 00db | | Load_Top At_Offset_3
073a 823d | = | Call 0x1,0x3d
073b e5ff | | Load 0x2,-0x1
073c 823d | = | Call 0x1,0x3d
073d 0092 0ac4 | | Action Push_String_Extended,0xac4 ; "Register_Display"
073f 8251 | Q | Call 0x1,0x51
0740 00e1 | | Load_Encached Boolean_Cache
0741 00da | | Load_Top At_Offset_2
0742 0120 | | Execute Any,Is_Value
0743 6802 |h | Jump_Zero 0x746
0744 e03a | : | Load 0x0,0x3a
0745 7801 |x | Jump 0x747
0746 00da | | Load_Top At_Offset_2
0747 e403 | | Load 0x2,0x3
0748 803b | ; | Call 0x0,0x3b
0749 c404 | | Store 0x2,0x4
074a 0059 | Y | Store_Top Discrete,At_Offset_1
074b 00d8 | | Load_Top At_Offset_0
074c 6809 |h | Jump_Zero 0x756
074d e5fd | | Load 0x2,-0x3
074e 00d8 | | Load_Top At_Offset_0
074f 00e3 | | Load_Encached Natural_Cache
0750 0260 | ` | Execute Discrete,In_Type
0751 7001 |p | Jump_Nonzero 0x753
0752 0801 | | Execute_Immediate Raise,0x1
0753 00da | | Load_Top At_Offset_2
0754 e5ff | | Load 0x2,-0x1
0755 803c | < | Call 0x0,0x3c
0756 823b | ; | Call 0x1,0x3b
0757 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 0767 | g | .CONST 0x0767 ; Address of begin
0759 078a | | .CONST 0x078a ; Address of exception handler
075a 0005 | | .CONST 0x0005 ; Number of locals
075b INIT_0758:
075b 823c | < | Call 0x1,0x3c
075c 00e1 | | Load_Encached Boolean_Cache
075d 03f1 | | Declare_Variable Discrete,With_Value
075e 4801 |H | Short_Literal 0x1
075f 4800 |H | Short_Literal 0x0
0760 e5fd | | Load 0x2,-0x3
0761 824b | K | Call 0x1,0x4b
0762 e03a | : | Load 0x0,0x3a
0763 02c7 | | Declare_Variable Any
0764 00d8 | | Load_Top At_Offset_0
0765 1c00 | | Execute_Immediate Run_Utility,0x0
0766 00e1 | | Load_Encached Boolean_Cache
0767 BODY_0758:
0767 e5fc | | Load 0x2,-0x4
0768 823f | ? | Call 0x1,0x3f
0769 00db | | Load_Top At_Offset_3
076a 823d | = | Call 0x1,0x3d
076b e5fe | | Load 0x2,-0x2
076c e5ff | | Load 0x2,-0x1
076d 823d | = | Call 0x1,0x3d
076e 0092 0ac5 | | Action Push_String_Extended,0xac5 ; "Register_Modify"
0770 8252 | R | Call 0x1,0x52
0771 00e1 | | Load_Encached Boolean_Cache
0772 00da | | Load_Top At_Offset_2
0773 0120 | | Execute Any,Is_Value
0774 6802 |h | Jump_Zero 0x777
0775 e03a | : | Load 0x0,0x3a
0776 7801 |x | Jump 0x778
0777 00da | | Load_Top At_Offset_2
0778 e403 | | Load 0x2,0x3
0779 803b | ; | Call 0x0,0x3b
077a c404 | | Store 0x2,0x4
077b 0059 | Y | Store_Top Discrete,At_Offset_1
077c 00d8 | | Load_Top At_Offset_0
077d 680a |h | Jump_Zero 0x788
077e e5fc | | Load 0x2,-0x4
077f 00d8 | | Load_Top At_Offset_0
0780 00e3 | | Load_Encached Natural_Cache
0781 0260 | ` | Execute Discrete,In_Type
0782 7001 |p | Jump_Nonzero 0x784
0783 0801 | | Execute_Immediate Raise,0x1
0784 00da | | Load_Top At_Offset_2
0785 e5fe | | Load 0x2,-0x2
0786 e5ff | | Load 0x2,-0x1
0787 803d | = | Call 0x0,0x3d
0788 823b | ; | Call 0x1,0x3b
0789 4506 |E | Exit_Suprogram New_Top_Offset 0x6
078a TRAP_0758:
078a e03e | > | Load 0x0,0x3e
078b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
078c 010f | | Execute Exception,Equal
078d 6806 |h | Jump_Zero 0x794
078e 0092 0ac6 | | Action Push_String_Extended,0xac6 ; "Value must be a single hex number"
0790 4802 |H | Short_Literal 0x2
0791 8249 | I | Call 0x1,0x49
0792 823b | ; | Call 0x1,0x3b
0793 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0794 0100 | | Execute Exception,Raise
0795 0000 0000 | | .XXX[0x3]
0797 0000 | |
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 07a6 | | .CONST 0x07a6 ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0005 | | .CONST 0x0005 ; Number of locals
079b INIT_0798:
079b 823c | < | Call 0x1,0x3c
079c 00e1 | | Load_Encached Boolean_Cache
079d 03f1 | | Declare_Variable Discrete,With_Value
079e e004 | | Load 0x0,0x4
079f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
07a0 00ec | | Load_Encached Diana_Tree_Cache
07a1 e005 | | Load 0x0,0x5
07a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07a3 02c7 | | Declare_Variable Any
07a4 00d8 | | Load_Top At_Offset_0
07a5 1c00 | | Execute_Immediate Run_Utility,0x0
07a6 BODY_0798:
07a6 00d8 | | Load_Top At_Offset_0
07a7 00db | | Load_Top At_Offset_3
07a8 00ec | | Load_Encached Diana_Tree_Cache
07a9 4800 |H | Short_Literal 0x0
07aa 4802 |H | Short_Literal 0x2
07ab e5ff | | Load 0x2,-0x1
07ac 8006 | | Call 0x0,0x6
07ad c404 | | Store 0x2,0x4
07ae c403 | | Store 0x2,0x3
07af c405 | | Store 0x2,0x5
07b0 e5fe | | Load 0x2,-0x2
07b1 823d | = | Call 0x1,0x3d
07b2 00db | | Load_Top At_Offset_3
07b3 823e | > | Call 0x1,0x3e
07b4 0092 0ac7 | | Action Push_String_Extended,0xac7 ; "Object_Location"
07b6 8250 | P | Call 0x1,0x50
07b7 4802 |H | Short_Literal 0x2
07b8 00d9 | | Load_Top At_Offset_1
07b9 e005 | | Load 0x0,0x5
07ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07bb 6805 |h | Jump_Zero 0x7c1
07bc 00d8 | | Load_Top At_Offset_0
07bd e005 | | Load 0x0,0x5
07be 1820 | | Execute Package,Field_Execute,Field_Number 0x20
07bf 8007 | | Call 0x0,0x7
07c0 7806 |x | Jump 0x7c7
07c1 e5fe | | Load 0x2,-0x2
07c2 00da | | Load_Top At_Offset_2
07c3 e403 | | Load 0x2,0x3
07c4 e004 | | Load 0x0,0x4
07c5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
07c6 803f | ? | Call 0x0,0x3f
07c7 00da | | Load_Top At_Offset_2
07c8 e004 | | Load 0x0,0x4
07c9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07ca 003b | ; | Store_Top Access,At_Offset_3
07cb 823b | ; | Call 0x1,0x3b
07cc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
07cd 0000 0000 | | .XXX[0x3]
07cf 0000 | |
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d6 | | .CONST 0x07d6 ; Address of begin
07d1 0004 | | .CONST 0x0004 ; Address of exception handler
07d2 0002 | | .CONST 0x0002 ; Number of locals
07d3 INIT_07d0:
07d3 823c | < | Call 0x1,0x3c
07d4 00e1 | | Load_Encached Boolean_Cache
07d5 03f1 | | Declare_Variable Discrete,With_Value
07d6 BODY_07d0:
07d6 e5fe | | Load 0x2,-0x2
07d7 823d | = | Call 0x1,0x3d
07d8 e5ff | | Load 0x2,-0x1
07d9 823d | = | Call 0x1,0x3d
07da 0092 0ac8 | | Action Push_String_Extended,0xac8 ; "Attach_Process"
07dc 8250 | P | Call 0x1,0x50
07dd 0092 0ac9 | | Action Push_String_Extended,0xac9 ; "Not implemented\x0a"
07df 8007 | | Call 0x0,0x7
07e0 823b | ; | Call 0x1,0x3b
07e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
07e2 0000 0000 | | .BLANK 0000[0x6]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07ee | | .CONST 0x07ee ; Address of begin
07e9 0004 | | .CONST 0x0004 ; Address of exception handler
07ea 0002 | | .CONST 0x0002 ; Number of locals
07eb INIT_07e8:
07eb 823c | < | Call 0x1,0x3c
07ec 00e1 | | Load_Encached Boolean_Cache
07ed 03f1 | | Declare_Variable Discrete,With_Value
07ee BODY_07e8:
07ee e5fe | | Load 0x2,-0x2
07ef 823d | = | Call 0x1,0x3d
07f0 e5ff | | Load 0x2,-0x1
07f1 823d | = | Call 0x1,0x3d
07f2 0092 0aca | | Action Push_String_Extended,0xaca ; "Target_Request"
07f4 8250 | P | Call 0x1,0x50
07f5 e5fe | | Load 0x2,-0x2
07f6 e5ff | | Load 0x2,-0x1
07f7 8040 | @ | Call 0x0,0x40
07f8 823b | ; | Call 0x1,0x3b
07f9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
07fa 0000 0000 | | .BLANK 0000[0x6]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 080b | | .CONST 0x080b ; Address of begin
0801 0004 | | .CONST 0x0004 ; Address of exception handler
0802 0003 | | .CONST 0x0003 ; Number of locals
0803 INIT_0800:
0803 823c | < | Call 0x1,0x3c
0804 00e1 | | Load_Encached Boolean_Cache
0805 03f1 | | Declare_Variable Discrete,With_Value
0806 e005 | | Load 0x0,0x5
0807 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0808 02c7 | | Declare_Variable Any
0809 00d8 | | Load_Top At_Offset_0
080a 1c00 | | Execute_Immediate Run_Utility,0x0
080b BODY_0800:
080b 0092 0acb | | Action Push_String_Extended,0xacb ; "Reconnect"
080d 824e | N | Call 0x1,0x4e
080e 00d8 | | Load_Top At_Offset_0
080f 00ea | | Load_Encached Null_String_Cache
0810 8041 | A | Call 0x0,0x41
0811 c403 | | Store 0x2,0x3
0812 4802 |H | Short_Literal 0x2
0813 00d9 | | Load_Top At_Offset_1
0814 e005 | | Load 0x0,0x5
0815 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0816 6809 |h | Jump_Zero 0x820
0817 480a |H | Short_Literal 0xa
0818 0092 0acc | | Action Push_String_Extended,0xacc ; "Problem with remote connection: "
081a 00da | | Load_Top At_Offset_2
081b e005 | | Load 0x0,0x5
081c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
081d 01cc | | Execute Vector,Catenate
081e 01cb | | Execute Vector,Append
081f 8007 | | Call 0x0,0x7
0820 823b | ; | Call 0x1,0x3b
0821 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0822 0000 0000 | | .BLANK 0000[0x6]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b | + | .CONST 0x082b ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0001 | | .CONST 0x0001 ; Number of locals
082b BODY_0828:
082b INIT_0828:
082b e042 | B | Load 0x0,0x42
082c 8043 | C | Call 0x0,0x43
082d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
082e 0000 0000 | | .XXX[0x2]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0833 | 3 | .CONST 0x0833 ; Address of begin
0831 0004 | | .CONST 0x0004 ; Address of exception handler
0832 0001 | | .CONST 0x0001 ; Number of locals
0833 BODY_0830:
0833 INIT_0830:
0833 e042 | B | Load 0x0,0x42
0834 8044 | D | Call 0x0,0x44
0835 4801 |H | Short_Literal 0x1
0836 00ca | | Action Exit_Nullary_Function
0837 0000 | | .XXX[0x1]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083b | ; | .CONST 0x083b ; Address of begin
0839 0004 | | .CONST 0x0004 ; Address of exception handler
083a 0001 | | .CONST 0x0001 ; Number of locals
083b BODY_0838:
083b INIT_0838:
083b 4822 |H" | Short_Literal 0x22
083c 4822 |H" | Short_Literal 0x22
083d e5ff | | Load 0x2,-0x1
083e 01ca | | Execute Vector,Prepend
083f 01cb | | Execute Vector,Append
0840 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0841 0000 0000 | | .BLANK 0000[0x7]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084b | K | .CONST 0x084b ; Address of begin
0849 0004 | | .CONST 0x0004 ; Address of exception handler
084a 0001 | | .CONST 0x0001 ; Number of locals
084b BODY_0848:
084b INIT_0848:
084b 4822 |H" | Short_Literal 0x22
084c 4822 |H" | Short_Literal 0x22
084d e5ff | | Load 0x2,-0x1
084e e004 | | Load 0x0,0x4
084f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0850 01ca | | Execute Vector,Prepend
0851 01cb | | Execute Vector,Append
0852 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0853 0000 0000 | | .BLANK 0000[0x5]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b | [ | .CONST 0x085b ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0001 | | .CONST 0x0001 ; Number of locals
085b BODY_0858:
085b INIT_0858:
085b 4820 |H | Short_Literal 0x20
085c 4800 |H | Short_Literal 0x0
085d 480a |H | Short_Literal 0xa
085e e5ff | | Load 0x2,-0x1
085f e045 | E | Load 0x0,0x45
0860 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0861 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0862 0000 0000 | | .BLANK 0000[0x6]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086b | k | .CONST 0x086b ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0001 | | .CONST 0x0001 ; Number of locals
086b BODY_0868:
086b INIT_0868:
086b 00da | | Load_Top At_Offset_2
086c e046 | F | Load 0x0,0x46
086d 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
086e 011c | | Execute Any,Convert_Unchecked
086f 1c01 | | Execute_Immediate Run_Utility,0x1
0870 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0871 0000 0000 | | .BLANK 0000[0x7]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 087b | { | .CONST 0x087b ; Address of begin
0879 0004 | | .CONST 0x0004 ; Address of exception handler
087a 0001 | | .CONST 0x0001 ; Number of locals
087b BODY_0878:
087b INIT_0878:
087b 00da | | Load_Top At_Offset_2
087c e046 | F | Load 0x0,0x46
087d 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
087e 011c | | Execute Any,Convert_Unchecked
087f 1c01 | | Execute_Immediate Run_Utility,0x1
0880 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0881 0000 0000 | | .BLANK 0000[0x7]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b | | .CONST 0x088b ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0001 | | .CONST 0x0001 ; Number of locals
088b BODY_0888:
088b INIT_0888:
088b 00da | | Load_Top At_Offset_2
088c e046 | F | Load 0x0,0x46
088d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
088e 011c | | Execute Any,Convert_Unchecked
088f 1c01 | | Execute_Immediate Run_Utility,0x1
0890 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0891 0000 0000 | | .BLANK 0000[0x7]
0898 ; --------------------------------------------------------------------------------------
0898 ; SUBPROGRAM
0898 ; --------------------------------------------------------------------------------------
0898 089b | | .CONST 0x089b ; Address of begin
0899 0004 | | .CONST 0x0004 ; Address of exception handler
089a 0001 | | .CONST 0x0001 ; Number of locals
089b BODY_0898:
089b INIT_0898:
089b 00da | | Load_Top At_Offset_2
089c e046 | F | Load 0x0,0x46
089d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
089e 011c | | Execute Any,Convert_Unchecked
089f 1c01 | | Execute_Immediate Run_Utility,0x1
08a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08a1 0000 0000 | | .BLANK 0000[0x7]
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08ab | | .CONST 0x08ab ; Address of begin
08a9 0004 | | .CONST 0x0004 ; Address of exception handler
08aa 0001 | | .CONST 0x0001 ; Number of locals
08ab BODY_08a8:
08ab INIT_08a8:
08ab 00da | | Load_Top At_Offset_2
08ac e046 | F | Load 0x0,0x46
08ad 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
08ae 011c | | Execute Any,Convert_Unchecked
08af 1c01 | | Execute_Immediate Run_Utility,0x1
08b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08b1 0000 0000 | | .BLANK 0000[0x7]
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08bb | | .CONST 0x08bb ; Address of begin
08b9 0004 | | .CONST 0x0004 ; Address of exception handler
08ba 0001 | | .CONST 0x0001 ; Number of locals
08bb BODY_08b8:
08bb INIT_08b8:
08bb 00da | | Load_Top At_Offset_2
08bc e046 | F | Load 0x0,0x46
08bd 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
08be 011c | | Execute Any,Convert_Unchecked
08bf 1c01 | | Execute_Immediate Run_Utility,0x1
08c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08c1 0000 0000 | | .BLANK 0000[0x7]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08cb | | .CONST 0x08cb ; Address of begin
08c9 0004 | | .CONST 0x0004 ; Address of exception handler
08ca 0001 | | .CONST 0x0001 ; Number of locals
08cb BODY_08c8:
08cb INIT_08c8:
08cb 00da | | Load_Top At_Offset_2
08cc 00e1 | | Load_Encached Boolean_Cache
08cd 011c | | Execute Any,Convert_Unchecked
08ce 1c01 | | Execute_Immediate Run_Utility,0x1
08cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d3 | | .CONST 0x08d3 ; Address of begin
08d1 0004 | | .CONST 0x0004 ; Address of exception handler
08d2 0001 | | .CONST 0x0001 ; Number of locals
08d3 BODY_08d0:
08d3 INIT_08d0:
08d3 00da | | Load_Top At_Offset_2
08d4 e046 | F | Load 0x0,0x46
08d5 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
08d6 011c | | Execute Any,Convert_Unchecked
08d7 1c01 | | Execute_Immediate Run_Utility,0x1
08d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08d9 0000 0000 | | .BLANK 0000[0x7]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e3 | | .CONST 0x08e3 ; Address of begin
08e1 0004 | | .CONST 0x0004 ; Address of exception handler
08e2 0001 | | .CONST 0x0001 ; Number of locals
08e3 BODY_08e0:
08e3 INIT_08e0:
08e3 00da | | Load_Top At_Offset_2
08e4 e046 | F | Load 0x0,0x46
08e5 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
08e6 011c | | Execute Any,Convert_Unchecked
08e7 1c01 | | Execute_Immediate Run_Utility,0x1
08e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08e9 0000 0000 | | .BLANK 0000[0x7]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f3 | | .CONST 0x08f3 ; Address of begin
08f1 0004 | | .CONST 0x0004 ; Address of exception handler
08f2 0001 | | .CONST 0x0001 ; Number of locals
08f3 BODY_08f0:
08f3 INIT_08f0:
08f3 0092 0acd | | Action Push_String_Extended,0xacd ; "Parameter number "
08f5 00db | | Load_Top At_Offset_3
08f6 823f | ? | Call 0x1,0x3f
08f7 01cc | | Execute Vector,Catenate
08f8 480a |H | Short_Literal 0xa
08f9 0092 0ace | | Action Push_String_Extended,0xace ; " is invalid: "
08fb e5fe | | Load 0x2,-0x2
08fc 01cc | | Execute Vector,Catenate
08fd 01cb | | Execute Vector,Append
08fe 01cc | | Execute Vector,Catenate
08ff 8007 | | Call 0x0,0x7
0900 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0901 0000 0000 | | .BLANK 0000[0x7]
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 090f | | .CONST 0x090f ; Address of begin
0909 0004 | | .CONST 0x0004 ; Address of exception handler
090a 0002 | | .CONST 0x0002 ; Number of locals
090b INIT_0908:
090b e03a | : | Load 0x0,0x3a
090c 02c7 | | Declare_Variable Any
090d 00d8 | | Load_Top At_Offset_0
090e 1c00 | | Execute_Immediate Run_Utility,0x0
090f BODY_0908:
090f 00db | | Load_Top At_Offset_3
0910 6803 |h | Jump_Zero 0x914
0911 8047 | G | Call 0x0,0x47
0912 c402 | | Store 0x2,0x2
0913 7802 |x | Jump 0x916
0914 8048 | H | Call 0x0,0x48
0915 c402 | | Store 0x2,0x2
0916 00d8 | | Load_Top At_Offset_0
0917 8049 | I | Call 0x0,0x49
0918 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0919 0000 0000 | | .BLANK 0000[0x7]
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0934 | 4 | .CONST 0x0934 ; Address of begin
0921 0004 | | .CONST 0x0004 ; Address of exception handler
0922 0009 | | .CONST 0x0009 ; Number of locals
0923 INIT_0920:
0923 e03a | : | Load 0x0,0x3a
0924 02c7 | | Declare_Variable Any
0925 00d8 | | Load_Top At_Offset_0
0926 1c00 | | Execute_Immediate Run_Utility,0x0
0927 00e1 | | Load_Encached Boolean_Cache
0928 e04a | J | Load 0x0,0x4a
0929 1b0d | | Execute Package,Field_Read,Field_Number 0xd
092a e04b | K | Load 0x0,0x4b
092b 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
092c e04b | K | Load 0x0,0x4b
092d 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
092e 02c7 | | Declare_Variable Any
092f 00d8 | | Load_Top At_Offset_0
0930 1c00 | | Execute_Immediate Run_Utility,0x0
0931 00ec | | Load_Encached Diana_Tree_Cache
0932 00e5 | | Load_Encached Long_Integer_Cache
0933 00e2 | | Load_Encached Integer_Cache
0934 BODY_0920:
0934 e5ff | | Load 0x2,-0x1
0935 01db | | Execute Vector,Length
0936 7008 |p | Jump_Nonzero 0x93f
0937 e5fd | | Load 0x2,-0x3
0938 6803 |h | Jump_Zero 0x93c
0939 4800 |H | Short_Literal 0x0
093a a404 | | Store_Unchecked 0x2,0x4
093b 780e |x | Jump 0x94a
093c e5fe | | Load 0x2,-0x2
093d 824a | J | Call 0x1,0x4a
093e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
093f e5ff | | Load 0x2,-0x1
0940 e04c | L | Load 0x0,0x4c
0941 180e | | Execute Package,Field_Execute,Field_Number 0xe
0942 6805 |h | Jump_Zero 0x948
0943 e5ff | | Load 0x2,-0x1
0944 e04c | L | Load 0x0,0x4c
0945 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0946 a404 | | Store_Unchecked 0x2,0x4
0947 7802 |x | Jump 0x94a
0948 e5ff | | Load 0x2,-0x1
0949 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
094a 00db | | Load_Top At_Offset_3
094b 0120 | | Execute Any,Is_Value
094c 6803 |h | Jump_Zero 0x950
094d e04b | K | Load 0x0,0x4b
094e 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
094f 7801 |x | Jump 0x951
0950 00db | | Load_Top At_Offset_3
0951 e04b | K | Load 0x0,0x4b
0952 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0953 00e1 | | Load_Encached Boolean_Cache
0954 e404 | | Load 0x2,0x4
0955 e04b | K | Load 0x0,0x4b
0956 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0957 c403 | | Store 0x2,0x3
0958 c405 | | Store 0x2,0x5
0959 c406 | | Store 0x2,0x6
095a e403 | | Load 0x2,0x3
095b 6812 |h | Jump_Zero 0x96e
095c 00e2 | | Load_Encached Integer_Cache
095d 00e5 | | Load_Encached Long_Integer_Cache
095e 00ec | | Load_Encached Diana_Tree_Cache
095f e406 | | Load 0x2,0x6
0960 e04b | K | Load 0x0,0x4b
0961 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0962 c407 | | Store 0x2,0x7
0963 005b | [ | Store_Top Discrete,At_Offset_3
0964 0059 | Y | Store_Top Discrete,At_Offset_1
0965 00d9 | | Load_Top At_Offset_1
0966 804d | M | Call 0x0,0x4d
0967 c402 | | Store 0x2,0x2
0968 e402 | | Load 0x2,0x2
0969 804e | N | Call 0x0,0x4e
096a 7003 |p | Jump_Nonzero 0x96e
096b e402 | | Load 0x2,0x2
096c 8049 | I | Call 0x0,0x49
096d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
096e e5fe | | Load 0x2,-0x2
096f 824a | J | Call 0x1,0x4a
0970 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0971 0000 0000 | | .BLANK 0000[0x7]
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 097b | { | .CONST 0x097b ; Address of begin
0979 0004 | | .CONST 0x0004 ; Address of exception handler
097a 0001 | | .CONST 0x0001 ; Number of locals
097b BODY_0978:
097b INIT_0978:
097b 4805 |H | Short_Literal 0x5
097c 8010 | | Call 0x0,0x10
097d 00ca | | Action Exit_Nullary_Function
097e 0000 0000 | | .XXX[0x2]
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0983 | | .CONST 0x0983 ; Address of begin
0981 0004 | | .CONST 0x0004 ; Address of exception handler
0982 0001 | | .CONST 0x0001 ; Number of locals
0983 BODY_0980:
0983 INIT_0980:
0983 4813 |H | Short_Literal 0x13
0984 8010 | | Call 0x0,0x10
0985 680b |h | Jump_Zero 0x991
0986 4801 |H | Short_Literal 0x1
0987 4800 |H | Short_Literal 0x0
0988 4800 |H | Short_Literal 0x0
0989 e04f | O | Load 0x0,0x4f
098a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
098b e04f | O | Load 0x0,0x4f
098c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
098d 0092 0acf | | Action Push_String_Extended,0xacf ; " "
098f 01cc | | Execute Vector,Catenate
0990 00ca | | Action Exit_Nullary_Function
0991 00ea | | Load_Encached Null_String_Cache
0992 00ca | | Action Exit_Nullary_Function
0993 0000 0000 | | .BLANK 0000[0x5]
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 099b | | .CONST 0x099b ; Address of begin
0999 0004 | | .CONST 0x0004 ; Address of exception handler
099a 0001 | | .CONST 0x0001 ; Number of locals
099b BODY_0998:
099b INIT_0998:
099b 824c | L | Call 0x1,0x4c
099c 6809 |h | Jump_Zero 0x9a6
099d 8050 | P | Call 0x0,0x50
099e 480a |H | Short_Literal 0xa
099f 483b |H; | Short_Literal 0x3b
09a0 824d | M | Call 0x1,0x4d
09a1 e5ff | | Load 0x2,-0x1
09a2 01cc | | Execute Vector,Catenate
09a3 01cb | | Execute Vector,Append
09a4 01cb | | Execute Vector,Append
09a5 802f | / | Call 0x0,0x2f
09a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09a7 0000 | | .XXX[0x1]
09a8 ; --------------------------------------------------------------------------------------
09a8 ; SUBPROGRAM
09a8 ; --------------------------------------------------------------------------------------
09a8 09ab | | .CONST 0x09ab ; Address of begin
09a9 0004 | | .CONST 0x0004 ; Address of exception handler
09aa 0001 | | .CONST 0x0001 ; Number of locals
09ab BODY_09a8:
09ab INIT_09a8:
09ab 824c | L | Call 0x1,0x4c
09ac 680f |h | Jump_Zero 0x9bc
09ad 8050 | P | Call 0x0,0x50
09ae 480a |H | Short_Literal 0xa
09af 824d | M | Call 0x1,0x4d
09b0 e5ff | | Load 0x2,-0x1
09b1 01cc | | Execute Vector,Catenate
09b2 0092 0ad0 | | Action Push_String_Extended,0xad0 ; " ("
09b4 01cc | | Execute Vector,Catenate
09b5 e5fe | | Load 0x2,-0x2
09b6 01cc | | Execute Vector,Catenate
09b7 0092 0ad1 | | Action Push_String_Extended,0xad1 ; ");"
09b9 01cc | | Execute Vector,Catenate
09ba 01cb | | Execute Vector,Append
09bb 802f | / | Call 0x0,0x2f
09bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
09bd 0000 0000 | | .XXX[0x3]
09bf 0000 | |
09c0 ; --------------------------------------------------------------------------------------
09c0 ; SUBPROGRAM
09c0 ; --------------------------------------------------------------------------------------
09c0 09c3 | | .CONST 0x09c3 ; Address of begin
09c1 0004 | | .CONST 0x0004 ; Address of exception handler
09c2 0001 | | .CONST 0x0001 ; Number of locals
09c3 BODY_09c0:
09c3 INIT_09c0:
09c3 824c | L | Call 0x1,0x4c
09c4 6814 |h | Jump_Zero 0x9d9
09c5 8050 | P | Call 0x0,0x50
09c6 480a |H | Short_Literal 0xa
09c7 824d | M | Call 0x1,0x4d
09c8 e5ff | | Load 0x2,-0x1
09c9 01cc | | Execute Vector,Catenate
09ca 0092 0ad0 | | Action Push_String_Extended,0xad0 ; " ("
09cc 01cc | | Execute Vector,Catenate
09cd e5fe | | Load 0x2,-0x2
09ce 01cc | | Execute Vector,Catenate
09cf 0092 0ad2 | | Action Push_String_Extended,0xad2 ; ", "
09d1 01cc | | Execute Vector,Catenate
09d2 e5fd | | Load 0x2,-0x3
09d3 01cc | | Execute Vector,Catenate
09d4 0092 0ad1 | | Action Push_String_Extended,0xad1 ; ");"
09d6 01cc | | Execute Vector,Catenate
09d7 01cb | | Execute Vector,Append
09d8 802f | / | Call 0x0,0x2f
09d9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
09da 0000 0000 | | .BLANK 0000[0x6]
09e0 ; --------------------------------------------------------------------------------------
09e0 ; SUBPROGRAM
09e0 ; --------------------------------------------------------------------------------------
09e0 09e3 | | .CONST 0x09e3 ; Address of begin
09e1 0004 | | .CONST 0x0004 ; Address of exception handler
09e2 0001 | | .CONST 0x0001 ; Number of locals
09e3 BODY_09e0:
09e3 INIT_09e0:
09e3 824c | L | Call 0x1,0x4c
09e4 6819 |h | Jump_Zero 0x9fe
09e5 8050 | P | Call 0x0,0x50
09e6 480a |H | Short_Literal 0xa
09e7 824d | M | Call 0x1,0x4d
09e8 e5ff | | Load 0x2,-0x1
09e9 01cc | | Execute Vector,Catenate
09ea 0092 0ad0 | | Action Push_String_Extended,0xad0 ; " ("
09ec 01cc | | Execute Vector,Catenate
09ed e5fe | | Load 0x2,-0x2
09ee 01cc | | Execute Vector,Catenate
09ef 0092 0ad2 | | Action Push_String_Extended,0xad2 ; ", "
09f1 01cc | | Execute Vector,Catenate
09f2 e5fd | | Load 0x2,-0x3
09f3 01cc | | Execute Vector,Catenate
09f4 0092 0ad2 | | Action Push_String_Extended,0xad2 ; ", "
09f6 01cc | | Execute Vector,Catenate
09f7 e5fc | | Load 0x2,-0x4
09f8 01cc | | Execute Vector,Catenate
09f9 0092 0ad1 | | Action Push_String_Extended,0xad1 ; ");"
09fb 01cc | | Execute Vector,Catenate
09fc 01cb | | Execute Vector,Append
09fd 802f | / | Call 0x0,0x2f
09fe 4505 |E | Exit_Suprogram New_Top_Offset 0x5
09ff 0000 | | .XXX[0x1]
0a00 ; --------------------------------------------------------------------------------------
0a00 ; SUBPROGRAM
0a00 ; --------------------------------------------------------------------------------------
0a00 0a03 | | .CONST 0x0a03 ; Address of begin
0a01 0004 | | .CONST 0x0004 ; Address of exception handler
0a02 0001 | | .CONST 0x0001 ; Number of locals
0a03 BODY_0a00:
0a03 INIT_0a00:
0a03 824c | L | Call 0x1,0x4c
0a04 681e |h | Jump_Zero 0xa23
0a05 8050 | P | Call 0x0,0x50
0a06 480a |H | Short_Literal 0xa
0a07 824d | M | Call 0x1,0x4d
0a08 e5ff | | Load 0x2,-0x1
0a09 01cc | | Execute Vector,Catenate
0a0a 0092 0ad0 | | Action Push_String_Extended,0xad0 ; " ("
0a0c 01cc | | Execute Vector,Catenate
0a0d e5fe | | Load 0x2,-0x2
0a0e 01cc | | Execute Vector,Catenate
0a0f 0092 0ad2 | | Action Push_String_Extended,0xad2 ; ", "
0a11 01cc | | Execute Vector,Catenate
0a12 e5fd | | Load 0x2,-0x3
0a13 01cc | | Execute Vector,Catenate
0a14 0092 0ad2 | | Action Push_String_Extended,0xad2 ; ", "
0a16 01cc | | Execute Vector,Catenate
0a17 e5fc | | Load 0x2,-0x4
0a18 01cc | | Execute Vector,Catenate
0a19 0092 0ad2 | | Action Push_String_Extended,0xad2 ; ", "
0a1b 01cc | | Execute Vector,Catenate
0a1c e5fb | | Load 0x2,-0x5
0a1d 01cc | | Execute Vector,Catenate
0a1e 0092 0ad1 | | Action Push_String_Extended,0xad1 ; ");"
0a20 01cc | | Execute Vector,Catenate
0a21 01cb | | Execute Vector,Append
0a22 802f | / | Call 0x0,0x2f
0a23 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0a24 0000 0000 | | .BLANK 0000[0x4]
0a28 ; --------------------------------------------------------------------------------------
0a28 ; SUBPROGRAM
0a28 ; --------------------------------------------------------------------------------------
0a28 0a2b | + | .CONST 0x0a2b ; Address of begin
0a29 0004 | | .CONST 0x0004 ; Address of exception handler
0a2a 0001 | | .CONST 0x0001 ; Number of locals
0a2b BODY_0a28:
0a2b INIT_0a28:
0a2b 824c | L | Call 0x1,0x4c
0a2c 6823 |h# | Jump_Zero 0xa50
0a2d 8050 | P | Call 0x0,0x50
0a2e 480a |H | Short_Literal 0xa
0a2f 824d | M | Call 0x1,0x4d
0a30 e5ff | | Load 0x2,-0x1
0a31 01cc | | Execute Vector,Catenate
0a32 0092 0ad0 | | Action Push_String_Extended,0xad0 ; " ("
0a34 01cc | | Execute Vector,Catenate
0a35 e5fe | | Load 0x2,-0x2
0a36 01cc | | Execute Vector,Catenate
0a37 0092 0ad2 | | Action Push_String_Extended,0xad2 ; ", "
0a39 01cc | | Execute Vector,Catenate
0a3a e5fd | | Load 0x2,-0x3
0a3b 01cc | | Execute Vector,Catenate
0a3c 0092 0ad2 | | Action Push_String_Extended,0xad2 ; ", "
0a3e 01cc | | Execute Vector,Catenate
0a3f e5fc | | Load 0x2,-0x4
0a40 01cc | | Execute Vector,Catenate
0a41 0092 0ad2 | | Action Push_String_Extended,0xad2 ; ", "
0a43 01cc | | Execute Vector,Catenate
0a44 e5fb | | Load 0x2,-0x5
0a45 01cc | | Execute Vector,Catenate
0a46 0092 0ad2 | | Action Push_String_Extended,0xad2 ; ", "
0a48 01cc | | Execute Vector,Catenate
0a49 e5fa | | Load 0x2,-0x6
0a4a 01cc | | Execute Vector,Catenate
0a4b 0092 0ad1 | | Action Push_String_Extended,0xad1 ; ");"
0a4d 01cc | | Execute Vector,Catenate
0a4e 01cb | | Execute Vector,Append
0a4f 802f | / | Call 0x0,0x2f
0a50 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0a51 0000 0000 | | .BLANK 0000[0x7]
0a58 ; --------------------------------------------------------------------------------------
0a58 ; SUBPROGRAM
0a58 ; --------------------------------------------------------------------------------------
0a58 0a5b | [ | .CONST 0x0a5b ; Address of begin
0a59 0004 | | .CONST 0x0004 ; Address of exception handler
0a5a 0001 | | .CONST 0x0001 ; Number of locals
0a5b BODY_0a58:
0a5b INIT_0a58:
0a5b 8050 | P | Call 0x0,0x50
0a5c 4800 |H | Short_Literal 0x0
0a5d 8051 | Q | Call 0x0,0x51
0a5e 00eb | | Load_Encached Diana_Cache
0a5f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a60 480a |H | Short_Literal 0xa
0a61 824d | M | Call 0x1,0x4d
0a62 e5ff | | Load 0x2,-0x1
0a63 01cc | | Execute Vector,Catenate
0a64 0092 0ad0 | | Action Push_String_Extended,0xad0 ; " ("
0a66 01cc | | Execute Vector,Catenate
0a67 e5fe | | Load 0x2,-0x2
0a68 01cc | | Execute Vector,Catenate
0a69 0092 0ad1 | | Action Push_String_Extended,0xad1 ; ");"
0a6b 01cc | | Execute Vector,Catenate
0a6c 01cb | | Execute Vector,Append
0a6d 8052 | R | Call 0x0,0x52
0a6e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a6f 0000 | | .XXX[0x1]
0a70 ; --------------------------------------------------------------------------------------
0a70 ; SUBPROGRAM
0a70 ; --------------------------------------------------------------------------------------
0a70 0a73 | s | .CONST 0x0a73 ; Address of begin
0a71 0004 | | .CONST 0x0004 ; Address of exception handler
0a72 0001 | | .CONST 0x0001 ; Number of locals
0a73 BODY_0a70:
0a73 INIT_0a70:
0a73 8050 | P | Call 0x0,0x50
0a74 4800 |H | Short_Literal 0x0
0a75 8051 | Q | Call 0x0,0x51
0a76 00eb | | Load_Encached Diana_Cache
0a77 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a78 480a |H | Short_Literal 0xa
0a79 824d | M | Call 0x1,0x4d
0a7a e5ff | | Load 0x2,-0x1
0a7b 01cc | | Execute Vector,Catenate
0a7c 0092 0ad0 | | Action Push_String_Extended,0xad0 ; " ("
0a7e 01cc | | Execute Vector,Catenate
0a7f e5fe | | Load 0x2,-0x2
0a80 01cc | | Execute Vector,Catenate
0a81 0092 0ad2 | | Action Push_String_Extended,0xad2 ; ", "
0a83 01cc | | Execute Vector,Catenate
0a84 e5fd | | Load 0x2,-0x3
0a85 01cc | | Execute Vector,Catenate
0a86 0092 0ad1 | | Action Push_String_Extended,0xad1 ; ");"
0a88 01cc | | Execute Vector,Catenate
0a89 01cb | | Execute Vector,Append
0a8a 8052 | R | Call 0x0,0x52
0a8b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0a8c 0000 0000 | | .BLANK 0000[0x4]
0a90 ; --------------------------------------------------------------------------------------
0a90 ; SUBPROGRAM
0a90 ; --------------------------------------------------------------------------------------
0a90 0a93 | | .CONST 0x0a93 ; Address of begin
0a91 0a97 | | .CONST 0x0a97 ; Address of exception handler
0a92 0001 | | .CONST 0x0001 ; Number of locals
0a93 BODY_0a90:
0a93 INIT_0a90:
0a93 e5ff | | Load 0x2,-0x1
0a94 8053 | S | Call 0x0,0x53
0a95 c403 | | Store 0x2,0x3
0a96 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a97 TRAP_0a90:
0a97 0007 | | Action Break_Optional
0a98 0092 0ad3 | | Action Push_String_Extended,0xad3 ; "Improper address format."
0a9a 4801 |H | Short_Literal 0x1
0a9b 8249 | I | Call 0x1,0x49
0a9c 823b | ; | Call 0x1,0x3b
0a9d 00cc | | Action Pop_Block
0a9e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a9f ; --------------------------------------------------------------------------------------
0a9f ; STRING TABLE
0a9f ; --------------------------------------------------------------------------------------
0a9f 006c | l | .STRTAB 0x006c->0x0ad5 ; "Put"
0aa0 006d | m | .STRTAB 0x006d->0x0ad6 ; "Stack"
0aa1 0070 | p | .STRTAB 0x0070->0x0ad9 ; "Modify"
0aa2 0074 | t | .STRTAB 0x0074->0x0adc ; "Display"
0aa3 0079 | y | .STRTAB 0x0079->0x0adf ; "Source"
0aa4 007d | } | .STRTAB 0x007d->0x0ae2 ; "Break"
0aa5 0080 | | .STRTAB 0x0080->0x0ae5 ; "Remove"
0aa6 0084 | | .STRTAB 0x0084->0x0ae8 ; "Activate"
0aa7 008a | | .STRTAB 0x008a->0x0aec ; "Stop"
0aa8 008c | | .STRTAB 0x008c->0x0aee ; "Execute"
0aa9 0091 | | .STRTAB 0x0091->0x0af1 ; "Hold"
0aaa 0093 | | .STRTAB 0x0093->0x0af3 ; "Release"
0aab 0098 | | .STRTAB 0x0098->0x0af7 ; "Task_Display"
0aac 00a2 | | .STRTAB 0x00a2->0x0afd ; "Run"
0aad 00a3 | | .STRTAB 0x00a3->0x0afe ; "Clear_Stepping"
0aae 00af | | .STRTAB 0x00af->0x0b05 ; "Catch"
0aaf 00b2 | | .STRTAB 0x00b2->0x0b08 ; "Propagate"
0ab0 00b9 | | .STRTAB 0x00b9->0x0b0c ; "Forget"
0ab1 00bd | | .STRTAB 0x00bd->0x0b0f ; "Trace"
0ab2 00c0 | | .STRTAB 0x00c0->0x0b12 ; "Trace_To_File"
0ab3 00cb | | .STRTAB 0x00cb->0x0b18 ; "History_Display"
0ab4 00d8 | | .STRTAB 0x00d8->0x0b20 ; "Take_History"
0ab5 00e2 | | .STRTAB 0x00e2->0x0b26 ; "Context"
0ab6 00e7 | | .STRTAB 0x00e7->0x0b29 ; "Enable"
0ab7 00eb | | .STRTAB 0x00eb->0x0b2c ; "Set_Value"
0ab8 00f2 | | .STRTAB 0x00f2->0x0b31 ; "Flag"
0ab9 00f4 | | .STRTAB 0x00f4->0x0b33 ; "Show"
0aba 00f6 | | .STRTAB 0x00f6->0x0b35 ; "Information"
0abb 00ff | | .STRTAB 0x00ff->0x0b3a ; "Set_Task_Name"
0abc 010a | | .STRTAB 0x010a->0x0b41 ; "Convert"
0abd 010f | | .STRTAB 0x010f->0x0b44 ; "Memory_Display"
0abe 011b | | .STRTAB 0x011b->0x0b4b ; "Location_To_Address"
0abf 012c | , | .STRTAB 0x012c->0x0b55 ; "Address_To_Location"
0ac0 013d | = | .STRTAB 0x013d->0x0b5e ; "Exception_To_Name"
0ac1 014c | L | .STRTAB 0x014c->0x0b67 ; "Unable to convert "
0ac2 015c | \ | .STRTAB 0x015c->0x0b70 ; " to an exception value."
0ac3 0171 | q | .STRTAB 0x0171->0x0b7b ; "Memory_Modify"
0ac4 017c | | | .STRTAB 0x017c->0x0b82 ; "Register_Display"
0ac5 018a | | .STRTAB 0x018a->0x0b8a ; "Register_Modify"
0ac6 0197 | | .STRTAB 0x0197->0x0b91 ; "Value must be a single hex number"
0ac7 01b6 | | .STRTAB 0x01b6->0x0ba2 ; "Object_Location"
0ac8 01c3 | | .STRTAB 0x01c3->0x0ba9 ; "Attach_Process"
0ac9 01cf | | .STRTAB 0x01cf->0x0bb0 ; "Not implemented\x0a"
0aca 01dd | | .STRTAB 0x01dd->0x0bb8 ; "Target_Request"
0acb 01e9 | | .STRTAB 0x01e9->0x0bbf ; "Reconnect"
0acc 01f0 | | .STRTAB 0x01f0->0x0bc4 ; "Problem with remote connection: "
0acd 020e | | .STRTAB 0x020e->0x0bd4 ; "Parameter number "
0ace 021d | | .STRTAB 0x021d->0x0bdc ; " is invalid: "
0acf 0228 | ( | .STRTAB 0x0228->0x0be3 ; " "
0ad0 0228 | ( | .STRTAB 0x0228->0x0be4 ; " ("
0ad1 0228 | ( | .STRTAB 0x0228->0x0be5 ; ");"
0ad2 0228 | ( | .STRTAB 0x0228->0x0be6 ; ", "
0ad3 0228 | ( | .STRTAB 0x0228->0x0be7 ; "Improper address format."
0ad4 023e | > | .STREND 0x023e->0x0bf3
0ad5 5075 7453 |PutS| .STRTAB_STRINGS
0bf3 0000 0000 | | .BLANK 0000[0x5]
0bf8 ; --------------------------------------------------------------------------------------
0bf8 ; Debug Table
0bf8 ; --------------------------------------------------------------------------------------
0bf8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1643,0x0000,0x0001,0x0000
0bfe 0000 0000 | | .XXX[0x2]