|
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: 7168 (0x1c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 0c20 | | .CONST 0x0c20 ; 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 00fb | | .CONST 0x00fb ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0056 | V | .CONST 0x0056 ; 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 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call,Visible,Unelaborated
005b 029a 07a3 | | Declare_Subprogram INIT_07a0,For_Outer_Call,Visible,Unelaborated
005d 029a 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call,Visible,Unelaborated
005f 029a 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call,Visible,Unelaborated
0061 029a 080b | | Declare_Subprogram INIT_0808,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 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call
006d 029d 081b | | Declare_Subprogram INIT_0818,For_Outer_Call
006f 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call
0071 029d 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call
0073 029d 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call
0075 029d 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call
0077 029d 0863 | c| Declare_Subprogram INIT_0860,For_Outer_Call
0079 029d 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call
007b 029d 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call
007d 029d 0893 | | Declare_Subprogram INIT_0890,For_Outer_Call
007f 029d 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call
0081 029d 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call
0083 029d 08bb | | Declare_Subprogram INIT_08b8,For_Outer_Call
0085 029d 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call
0087 029d 08db | | Declare_Subprogram INIT_08d8,For_Outer_Call
0089 029d 0923 | #| Declare_Subprogram INIT_0920,For_Outer_Call
008b 029d 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call
008d 029d 0953 | S| Declare_Subprogram INIT_0950,For_Outer_Call
008f 029d 09ab | | Declare_Subprogram INIT_09a8,For_Outer_Call
0091 029d 09b3 | | Declare_Subprogram INIT_09b0,For_Outer_Call
0093 029d 09cb | | Declare_Subprogram INIT_09c8,For_Outer_Call
0095 029d 09db | | Declare_Subprogram INIT_09d8,For_Outer_Call
0097 029d 09f3 | | Declare_Subprogram INIT_09f0,For_Outer_Call
0099 029d 0a13 | | Declare_Subprogram INIT_0a10,For_Outer_Call
009b 029d 0a33 | 3| Declare_Subprogram INIT_0a30,For_Outer_Call
009d 029d 0a5b | [| Declare_Subprogram INIT_0a58,For_Outer_Call
009f 029d 0a8b | | Declare_Subprogram INIT_0a88,For_Outer_Call
00a1 029d 0aa3 | | Declare_Subprogram INIT_0aa0,For_Outer_Call
00a3 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00ce 00c7 | | Action Elaborate_Subprogram
00cf 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00d0 00c7 | | Action Elaborate_Subprogram
00d1 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00d2 00c7 | | Action Elaborate_Subprogram
00d3 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00d4 00c7 | | Action Elaborate_Subprogram
00d5 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00d6 00c7 | | Action Elaborate_Subprogram
00d7 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00d8 00c7 | | Action Elaborate_Subprogram
00d9 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00da 00c7 | | Action Elaborate_Subprogram
00db 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00dc 00c7 | | Action Elaborate_Subprogram
00dd 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00de 00c7 | | Action Elaborate_Subprogram
00df 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00e0 00c7 | | Action Elaborate_Subprogram
00e1 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00e2 00c7 | | Action Elaborate_Subprogram
00e3 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00e4 00c7 | | Action Elaborate_Subprogram
00e5 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00e6 00c7 | | Action Elaborate_Subprogram
00e7 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00ec 00c7 | | Action Elaborate_Subprogram
00ed 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00ee 00c7 | | Action Elaborate_Subprogram
00ef 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00f0 00c7 | | Action Elaborate_Subprogram
00f1 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00f2 00c7 | | Action Elaborate_Subprogram
00f3 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00f4 00c7 | | Action Elaborate_Subprogram
00f5 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00f6 00c7 | | Action Elaborate_Subprogram
00f7 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00f8 00c7 | | Action Elaborate_Subprogram
00f9 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
00fa 00c7 | | Action Elaborate_Subprogram
00fb BODY_0008:
00fb 00bc | | Action Signal_Activated
00fc 00bb | | Action Signal_Completion
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
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 8249 | I | Call 0x1,0x49
012a 0092 0acf | | Action Push_String_Extended,0xacf ; "Put"
012c 8255 | U | Call 0x1,0x55
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 824c | L | Call 0x1,0x4c
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 0ad0 | | Action Push_String_Extended,0xad0 ; "Stack"
016c 8252 | R | Call 0x1,0x52
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 8249 | I | Call 0x1,0x49
0192 e5ff | | Load 0x2,-0x1
0193 823d | = | Call 0x1,0x3d
0194 0092 0ad1 | | Action Push_String_Extended,0xad1 ; "Modify"
0196 8256 | V | Call 0x1,0x56
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 0ad2 | | Action Push_String_Extended,0xad2 ; "Display"
01e3 8251 | Q | Call 0x1,0x51
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 0ad3 | | Action Push_String_Extended,0xad3 ; "Source"
0230 8250 | P | Call 0x1,0x50
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 824c | L | Call 0x1,0x4c
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 0092 0ad4 | | Action Push_String_Extended,0xad4 ; "0"
026b e404 | | Load 0x2,0x4
026c 823e | > | Call 0x1,0x3e
026d 0092 0ad5 | | Action Push_String_Extended,0xad5 ; "Break"
026f 8254 | T | Call 0x1,0x54
0270 00d8 | | Load_Top At_Offset_0
0271 8014 | | Call 0x0,0x14
0272 4802 |H | Short_Literal 0x2
0273 00d9 | | Load_Top At_Offset_1
0274 e005 | | Load 0x0,0x5
0275 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0276 6805 |h | Jump_Zero 0x27c
0277 00d8 | | Load_Top At_Offset_0
0278 e005 | | Load 0x0,0x5
0279 1820 | | Execute Package,Field_Execute,Field_Number 0x20
027a 8007 | | Call 0x0,0x7
027b 7812 |x | Jump 0x28e
027c e5fc | | Load 0x2,-0x4
027d 6804 |h | Jump_Zero 0x282
027e 480d |H | Short_Literal 0xd
027f 8010 | | Call 0x0,0x10
0280 a403 | | Store_Unchecked 0x2,0x3
0281 7804 |x | Jump 0x286
0282 480d |H | Short_Literal 0xd
0283 8010 | | Call 0x0,0x10
0284 0f00 | | Execute_Immediate Equal,0x0
0285 a403 | | Store_Unchecked 0x2,0x3
0286 e239 | 9 | Load 0x1,0x39
0287 00da | | Load_Top At_Offset_2
0288 e5fe | | Load 0x2,-0x2
0289 e403 | | Load 0x2,0x3
028a e404 | | Load 0x2,0x4
028b e004 | | Load 0x0,0x4
028c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
028d 8015 | | Call 0x0,0x15
028e 00da | | Load_Top At_Offset_2
028f e004 | | Load 0x0,0x4
0290 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0291 003b | ; | Store_Top Access,At_Offset_3
0292 823b | ; | Call 0x1,0x3b
0293 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0294 0000 0000 | | .BLANK 0000[0x4]
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 0ad6 | | Action Push_String_Extended,0xad6 ; "Remove"
02a4 8251 | Q | Call 0x1,0x51
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 0ad7 | | Action Push_String_Extended,0xad7 ; "Activate"
02ba 8250 | P | Call 0x1,0x50
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 824c | L | Call 0x1,0x4c
02ca BODY_02c0:
02ca 00d8 | | Load_Top At_Offset_0
02cb 823d | = | Call 0x1,0x3d
02cc 0092 0ad8 | | Action Push_String_Extended,0xad8 ; "Stop"
02ce 8250 | P | Call 0x1,0x50
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 824c | L | Call 0x1,0x4c
02e2 BODY_02d8:
02e2 00d8 | | Load_Top At_Offset_0
02e3 823d | = | Call 0x1,0x3d
02e4 0092 0ad9 | | Action Push_String_Extended,0xad9 ; "Execute"
02e6 8250 | P | Call 0x1,0x50
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 824c | L | Call 0x1,0x4c
02fa BODY_02f0:
02fa 00d8 | | Load_Top At_Offset_0
02fb 823d | = | Call 0x1,0x3d
02fc 0092 0ada | | Action Push_String_Extended,0xada ; "Hold"
02fe 8250 | P | Call 0x1,0x50
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 824c | L | Call 0x1,0x4c
0312 BODY_0308:
0312 00d8 | | Load_Top At_Offset_0
0313 823d | = | Call 0x1,0x3d
0314 0092 0adb | | Action Push_String_Extended,0xadb ; "Release"
0316 8250 | P | Call 0x1,0x50
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 824c | L | Call 0x1,0x4c
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 0adc | | Action Push_String_Extended,0xadc ; "Task_Display"
0330 8251 | Q | Call 0x1,0x51
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 824c | L | Call 0x1,0x4c
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 0add | | Action Push_String_Extended,0xadd ; "Run"
034a 8252 | R | Call 0x1,0x52
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 824c | L | Call 0x1,0x4c
0362 BODY_0358:
0362 00d8 | | Load_Top At_Offset_0
0363 823d | = | Call 0x1,0x3d
0364 0092 0ade | | Action Push_String_Extended,0xade ; "Clear_Stepping"
0366 8250 | P | Call 0x1,0x50
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 824c | L | Call 0x1,0x4c
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 0adf | | Action Push_String_Extended,0xadf ; "Catch"
03a3 8252 | R | Call 0x1,0x52
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 824c | L | Call 0x1,0x4c
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 0ae0 | | Action Push_String_Extended,0xae0 ; "Propagate"
0403 8252 | R | Call 0x1,0x52
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 824c | L | Call 0x1,0x4c
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 0ae1 | | Action Push_String_Extended,0xae1 ; "Forget"
0463 8252 | R | Call 0x1,0x52
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 824c | L | Call 0x1,0x4c
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 0ae2 | | Action Push_String_Extended,0xae2 ; "Trace"
04b4 8253 | S | Call 0x1,0x53
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 0ae3 | | Action Push_String_Extended,0xae3 ; "Trace_To_File"
04da 8250 | P | Call 0x1,0x50
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 824c | L | Call 0x1,0x4c
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 0ae4 | | Action Push_String_Extended,0xae4 ; "History_Display"
0504 8252 | R | Call 0x1,0x52
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 824c | L | Call 0x1,0x4c
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 0ae5 | | Action Push_String_Extended,0xae5 ; "Take_History"
0534 8253 | S | Call 0x1,0x53
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 0ae6 | | Action Push_String_Extended,0xae6 ; "Context"
0588 8251 | Q | Call 0x1,0x51
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 0ae7 | | Action Push_String_Extended,0xae7 ; "Enable"
05ac 8251 | Q | Call 0x1,0x51
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 0ae8 | | Action Push_String_Extended,0xae8 ; "Set_Value"
05c4 8251 | Q | Call 0x1,0x51
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 0ae9 | | Action Push_String_Extended,0xae9 ; "Flag"
05dc 8251 | Q | Call 0x1,0x51
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 0aea | | Action Push_String_Extended,0xaea ; "Show"
05f2 8250 | P | Call 0x1,0x50
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 824c | L | Call 0x1,0x4c
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 0aeb | | Action Push_String_Extended,0xaeb ; "Information"
0608 8251 | Q | Call 0x1,0x51
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 824e | N | Call 0x1,0x4e
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 824c | L | Call 0x1,0x4c
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 0aec | | Action Push_String_Extended,0xaec ; "Set_Task_Name"
063d 8251 | Q | Call 0x1,0x51
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 0aed | | Action Push_String_Extended,0xaed ; "Convert"
065c 8251 | Q | Call 0x1,0x51
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 0aee | | Action Push_String_Extended,0xaee ; "Memory_Display"
068d 8252 | R | Call 0x1,0x52
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 0aef | | Action Push_String_Extended,0xaef ; "Location_To_Address"
06ba 8250 | P | Call 0x1,0x50
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 0ac3 | | Declare_Subprogram INIT_0ac0,For_Call
06dc BODY_06d0:
06dc e5ff | | Load 0x2,-0x1
06dd 823d | = | Call 0x1,0x3d
06de 0092 0af0 | | Action Push_String_Extended,0xaf0 ; "Address_To_Location"
06e0 8250 | P | Call 0x1,0x50
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 0af1 | | Action Push_String_Extended,0xaf1 ; "Exception_To_Name"
06f2 8250 | P | Call 0x1,0x50
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 0af2 | | Action Push_String_Extended,0xaf2 ; "Unable to convert "
06fc e5ff | | Load 0x2,-0x1
06fd 01cc | | Execute Vector,Catenate
06fe 0092 0af3 | | Action Push_String_Extended,0xaf3 ; " 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 0af4 | | Action Push_String_Extended,0xaf4 ; "Memory_Modify"
0716 8253 | S | Call 0x1,0x53
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 824c | L | Call 0x1,0x4c
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 0af5 | | Action Push_String_Extended,0xaf5 ; "Register_Display"
073f 8252 | R | Call 0x1,0x52
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 4801 |H | Short_Literal 0x1
0748 e403 | | Load 0x2,0x3
0749 803b | ; | Call 0x0,0x3b
074a c404 | | Store 0x2,0x4
074b 0059 | Y | Store_Top Discrete,At_Offset_1
074c 00d8 | | Load_Top At_Offset_0
074d 6809 |h | Jump_Zero 0x757
074e e5fd | | Load 0x2,-0x3
074f 00d8 | | Load_Top At_Offset_0
0750 00e3 | | Load_Encached Natural_Cache
0751 0260 | ` | Execute Discrete,In_Type
0752 7001 |p | Jump_Nonzero 0x754
0753 0801 | | Execute_Immediate Raise,0x1
0754 00da | | Load_Top At_Offset_2
0755 e5ff | | Load 0x2,-0x1
0756 803c | < | Call 0x0,0x3c
0757 823b | ; | Call 0x1,0x3b
0758 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0759 0000 0000 | | .BLANK 0000[0x7]
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 076f | o | .CONST 0x076f ; Address of begin
0761 0793 | | .CONST 0x0793 ; Address of exception handler
0762 0005 | | .CONST 0x0005 ; Number of locals
0763 INIT_0760:
0763 823c | < | Call 0x1,0x3c
0764 00e1 | | Load_Encached Boolean_Cache
0765 03f1 | | Declare_Variable Discrete,With_Value
0766 4801 |H | Short_Literal 0x1
0767 4800 |H | Short_Literal 0x0
0768 e5fd | | Load 0x2,-0x3
0769 824c | L | Call 0x1,0x4c
076a e03a | : | Load 0x0,0x3a
076b 02c7 | | Declare_Variable Any
076c 00d8 | | Load_Top At_Offset_0
076d 1c00 | | Execute_Immediate Run_Utility,0x0
076e 00e1 | | Load_Encached Boolean_Cache
076f BODY_0760:
076f e5fc | | Load 0x2,-0x4
0770 823f | ? | Call 0x1,0x3f
0771 00db | | Load_Top At_Offset_3
0772 823d | = | Call 0x1,0x3d
0773 e5fe | | Load 0x2,-0x2
0774 e5ff | | Load 0x2,-0x1
0775 823d | = | Call 0x1,0x3d
0776 0092 0af6 | | Action Push_String_Extended,0xaf6 ; "Register_Modify"
0778 8253 | S | Call 0x1,0x53
0779 00e1 | | Load_Encached Boolean_Cache
077a 00da | | Load_Top At_Offset_2
077b 0120 | | Execute Any,Is_Value
077c 6802 |h | Jump_Zero 0x77f
077d e03a | : | Load 0x0,0x3a
077e 7801 |x | Jump 0x780
077f 00da | | Load_Top At_Offset_2
0780 4801 |H | Short_Literal 0x1
0781 e403 | | Load 0x2,0x3
0782 803b | ; | Call 0x0,0x3b
0783 c404 | | Store 0x2,0x4
0784 0059 | Y | Store_Top Discrete,At_Offset_1
0785 00d8 | | Load_Top At_Offset_0
0786 680a |h | Jump_Zero 0x791
0787 e5fc | | Load 0x2,-0x4
0788 00d8 | | Load_Top At_Offset_0
0789 00e3 | | Load_Encached Natural_Cache
078a 0260 | ` | Execute Discrete,In_Type
078b 7001 |p | Jump_Nonzero 0x78d
078c 0801 | | Execute_Immediate Raise,0x1
078d 00da | | Load_Top At_Offset_2
078e e5fe | | Load 0x2,-0x2
078f e5ff | | Load 0x2,-0x1
0790 803d | = | Call 0x0,0x3d
0791 823b | ; | Call 0x1,0x3b
0792 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0793 TRAP_0760:
0793 e03e | > | Load 0x0,0x3e
0794 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0795 010f | | Execute Exception,Equal
0796 6806 |h | Jump_Zero 0x79d
0797 0092 0af7 | | Action Push_String_Extended,0xaf7 ; "Value must be a single hex number"
0799 4802 |H | Short_Literal 0x2
079a 824a | J | Call 0x1,0x4a
079b 823b | ; | Call 0x1,0x3b
079c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
079d 0100 | | Execute Exception,Raise
079e 0000 0000 | | .XXX[0x2]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07ae | | .CONST 0x07ae ; Address of begin
07a1 0004 | | .CONST 0x0004 ; Address of exception handler
07a2 0005 | | .CONST 0x0005 ; Number of locals
07a3 INIT_07a0:
07a3 823c | < | Call 0x1,0x3c
07a4 00e1 | | Load_Encached Boolean_Cache
07a5 03f1 | | Declare_Variable Discrete,With_Value
07a6 e004 | | Load 0x0,0x4
07a7 1b15 | | Execute Package,Field_Read,Field_Number 0x15
07a8 00ec | | Load_Encached Diana_Tree_Cache
07a9 e005 | | Load 0x0,0x5
07aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07ab 02c7 | | Declare_Variable Any
07ac 00d8 | | Load_Top At_Offset_0
07ad 1c00 | | Execute_Immediate Run_Utility,0x0
07ae BODY_07a0:
07ae 00d8 | | Load_Top At_Offset_0
07af 00db | | Load_Top At_Offset_3
07b0 00ec | | Load_Encached Diana_Tree_Cache
07b1 4800 |H | Short_Literal 0x0
07b2 4802 |H | Short_Literal 0x2
07b3 e5ff | | Load 0x2,-0x1
07b4 8006 | | Call 0x0,0x6
07b5 c404 | | Store 0x2,0x4
07b6 c403 | | Store 0x2,0x3
07b7 c405 | | Store 0x2,0x5
07b8 e5fe | | Load 0x2,-0x2
07b9 823d | = | Call 0x1,0x3d
07ba 00db | | Load_Top At_Offset_3
07bb 823e | > | Call 0x1,0x3e
07bc 0092 0af8 | | Action Push_String_Extended,0xaf8 ; "Object_Location"
07be 8251 | Q | Call 0x1,0x51
07bf 4802 |H | Short_Literal 0x2
07c0 00d9 | | Load_Top At_Offset_1
07c1 e005 | | Load 0x0,0x5
07c2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07c3 6805 |h | Jump_Zero 0x7c9
07c4 00d8 | | Load_Top At_Offset_0
07c5 e005 | | Load 0x0,0x5
07c6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
07c7 8007 | | Call 0x0,0x7
07c8 7806 |x | Jump 0x7cf
07c9 e5fe | | Load 0x2,-0x2
07ca 00da | | Load_Top At_Offset_2
07cb e403 | | Load 0x2,0x3
07cc e004 | | Load 0x0,0x4
07cd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
07ce 803f | ? | Call 0x0,0x3f
07cf 00da | | Load_Top At_Offset_2
07d0 e004 | | Load 0x0,0x4
07d1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07d2 003b | ; | Store_Top Access,At_Offset_3
07d3 823b | ; | Call 0x1,0x3b
07d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
07d5 0000 0000 | | .XXX[0x3]
07d7 0000 | |
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07de | | .CONST 0x07de ; Address of begin
07d9 0004 | | .CONST 0x0004 ; Address of exception handler
07da 0002 | | .CONST 0x0002 ; Number of locals
07db INIT_07d8:
07db 823c | < | Call 0x1,0x3c
07dc 00e1 | | Load_Encached Boolean_Cache
07dd 03f1 | | Declare_Variable Discrete,With_Value
07de BODY_07d8:
07de e5fe | | Load 0x2,-0x2
07df 823d | = | Call 0x1,0x3d
07e0 e5ff | | Load 0x2,-0x1
07e1 823d | = | Call 0x1,0x3d
07e2 0092 0af9 | | Action Push_String_Extended,0xaf9 ; "Attach_Process"
07e4 8251 | Q | Call 0x1,0x51
07e5 0092 0afa | | Action Push_String_Extended,0xafa ; "Not implemented\x0a"
07e7 8007 | | Call 0x0,0x7
07e8 823b | ; | Call 0x1,0x3b
07e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
07ea 0000 0000 | | .BLANK 0000[0x6]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f6 | | .CONST 0x07f6 ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0002 | | .CONST 0x0002 ; Number of locals
07f3 INIT_07f0:
07f3 823c | < | Call 0x1,0x3c
07f4 00e1 | | Load_Encached Boolean_Cache
07f5 03f1 | | Declare_Variable Discrete,With_Value
07f6 BODY_07f0:
07f6 e5fe | | Load 0x2,-0x2
07f7 823d | = | Call 0x1,0x3d
07f8 e5ff | | Load 0x2,-0x1
07f9 823d | = | Call 0x1,0x3d
07fa 0092 0afb | | Action Push_String_Extended,0xafb ; "Target_Request"
07fc 8251 | Q | Call 0x1,0x51
07fd e5fe | | Load 0x2,-0x2
07fe e5ff | | Load 0x2,-0x1
07ff 8040 | @ | Call 0x0,0x40
0800 823b | ; | Call 0x1,0x3b
0801 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0802 0000 0000 | | .BLANK 0000[0x6]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b | | .CONST 0x080b ; Address of begin
0809 0004 | | .CONST 0x0004 ; Address of exception handler
080a 0001 | | .CONST 0x0001 ; Number of locals
080b BODY_0808:
080b INIT_0808:
080b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
080c 0000 0000 | | .BLANK 0000[0x4]
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0813 | | .CONST 0x0813 ; Address of begin
0811 0004 | | .CONST 0x0004 ; Address of exception handler
0812 0001 | | .CONST 0x0001 ; Number of locals
0813 BODY_0810:
0813 INIT_0810:
0813 e041 | A | Load 0x0,0x41
0814 8042 | B | Call 0x0,0x42
0815 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0816 0000 0000 | | .XXX[0x2]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b | | .CONST 0x081b ; Address of begin
0819 0004 | | .CONST 0x0004 ; Address of exception handler
081a 0001 | | .CONST 0x0001 ; Number of locals
081b BODY_0818:
081b INIT_0818:
081b e041 | A | Load 0x0,0x41
081c 8043 | C | Call 0x0,0x43
081d 4801 |H | Short_Literal 0x1
081e 00ca | | Action Exit_Nullary_Function
081f 0000 | | .XXX[0x1]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0823 | # | .CONST 0x0823 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0001 | | .CONST 0x0001 ; Number of locals
0823 BODY_0820:
0823 INIT_0820:
0823 4822 |H" | Short_Literal 0x22
0824 4822 |H" | Short_Literal 0x22
0825 e5ff | | Load 0x2,-0x1
0826 01ca | | Execute Vector,Prepend
0827 01cb | | Execute Vector,Append
0828 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0829 0000 0000 | | .BLANK 0000[0x7]
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 4822 |H" | Short_Literal 0x22
0834 4822 |H" | Short_Literal 0x22
0835 e5ff | | Load 0x2,-0x1
0836 e004 | | Load 0x0,0x4
0837 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0838 01ca | | Execute Vector,Prepend
0839 01cb | | Execute Vector,Append
083a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
083b 0000 0000 | | .BLANK 0000[0x5]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843 | C | .CONST 0x0843 ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0001 | | .CONST 0x0001 ; Number of locals
0843 BODY_0840:
0843 INIT_0840:
0843 4820 |H | Short_Literal 0x20
0844 4800 |H | Short_Literal 0x0
0845 480a |H | Short_Literal 0xa
0846 e5ff | | Load 0x2,-0x1
0847 e044 | D | Load 0x0,0x44
0848 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0849 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
084a 0000 0000 | | .BLANK 0000[0x6]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0853 | S | .CONST 0x0853 ; Address of begin
0851 0004 | | .CONST 0x0004 ; Address of exception handler
0852 0001 | | .CONST 0x0001 ; Number of locals
0853 BODY_0850:
0853 INIT_0850:
0853 00da | | Load_Top At_Offset_2
0854 e045 | E | Load 0x0,0x45
0855 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0856 011c | | Execute Any,Convert_Unchecked
0857 1c01 | | Execute_Immediate Run_Utility,0x1
0858 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0859 0000 0000 | | .BLANK 0000[0x7]
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863 | c | .CONST 0x0863 ; Address of begin
0861 0004 | | .CONST 0x0004 ; Address of exception handler
0862 0001 | | .CONST 0x0001 ; Number of locals
0863 BODY_0860:
0863 INIT_0860:
0863 00da | | Load_Top At_Offset_2
0864 e045 | E | Load 0x0,0x45
0865 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0866 011c | | Execute Any,Convert_Unchecked
0867 1c01 | | Execute_Immediate Run_Utility,0x1
0868 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0869 0000 0000 | | .BLANK 0000[0x7]
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 0873 | s | .CONST 0x0873 ; Address of begin
0871 0004 | | .CONST 0x0004 ; Address of exception handler
0872 0001 | | .CONST 0x0001 ; Number of locals
0873 BODY_0870:
0873 INIT_0870:
0873 00da | | Load_Top At_Offset_2
0874 e045 | E | Load 0x0,0x45
0875 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0876 011c | | Execute Any,Convert_Unchecked
0877 1c01 | | Execute_Immediate Run_Utility,0x1
0878 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0879 0000 0000 | | .BLANK 0000[0x7]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883 | | .CONST 0x0883 ; Address of begin
0881 0004 | | .CONST 0x0004 ; Address of exception handler
0882 0001 | | .CONST 0x0001 ; Number of locals
0883 BODY_0880:
0883 INIT_0880:
0883 00da | | Load_Top At_Offset_2
0884 e045 | E | Load 0x0,0x45
0885 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0886 011c | | Execute Any,Convert_Unchecked
0887 1c01 | | Execute_Immediate Run_Utility,0x1
0888 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0889 0000 0000 | | .BLANK 0000[0x7]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 0893 | | .CONST 0x0893 ; Address of begin
0891 0004 | | .CONST 0x0004 ; Address of exception handler
0892 0001 | | .CONST 0x0001 ; Number of locals
0893 BODY_0890:
0893 INIT_0890:
0893 00da | | Load_Top At_Offset_2
0894 e045 | E | Load 0x0,0x45
0895 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0896 011c | | Execute Any,Convert_Unchecked
0897 1c01 | | Execute_Immediate Run_Utility,0x1
0898 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0899 0000 0000 | | .BLANK 0000[0x7]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3 | | .CONST 0x08a3 ; Address of begin
08a1 0004 | | .CONST 0x0004 ; Address of exception handler
08a2 0001 | | .CONST 0x0001 ; Number of locals
08a3 BODY_08a0:
08a3 INIT_08a0:
08a3 00da | | Load_Top At_Offset_2
08a4 e045 | E | Load 0x0,0x45
08a5 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
08a6 011c | | Execute Any,Convert_Unchecked
08a7 1c01 | | Execute_Immediate Run_Utility,0x1
08a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08a9 0000 0000 | | .BLANK 0000[0x7]
08b0 ; --------------------------------------------------------------------------------------
08b0 ; SUBPROGRAM
08b0 ; --------------------------------------------------------------------------------------
08b0 08b3 | | .CONST 0x08b3 ; Address of begin
08b1 0004 | | .CONST 0x0004 ; Address of exception handler
08b2 0001 | | .CONST 0x0001 ; Number of locals
08b3 BODY_08b0:
08b3 INIT_08b0:
08b3 00da | | Load_Top At_Offset_2
08b4 00e1 | | Load_Encached Boolean_Cache
08b5 011c | | Execute Any,Convert_Unchecked
08b6 1c01 | | Execute_Immediate Run_Utility,0x1
08b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 e045 | E | Load 0x0,0x45
08bd 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
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 e045 | E | Load 0x0,0x45
08cd 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
08ce 011c | | Execute Any,Convert_Unchecked
08cf 1c01 | | Execute_Immediate Run_Utility,0x1
08d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08d1 0000 0000 | | .BLANK 0000[0x7]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08df | | .CONST 0x08df ; Address of begin
08d9 0916 | | .CONST 0x0916 ; Address of exception handler
08da 0003 | | .CONST 0x0003 ; Number of locals
08db INIT_08d8:
08db 00da | | Load_Top At_Offset_2
08dc e004 | | Load 0x0,0x4
08dd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
08de 00e3 | | Load_Encached Natural_Cache
08df BODY_08d8:
08df 00d9 | | Load_Top At_Offset_1
08e0 01dd | | Execute Vector,First
08e1 00da | | Load_Top At_Offset_2
08e2 01dd | | Execute Vector,First
08e3 0a01 | | Execute_Immediate Plus,0x1
08e4 00d8 | | Load_Top At_Offset_0
08e5 00e2 | | Load_Encached Integer_Cache
08e6 0260 | ` | Execute Discrete,In_Type
08e7 7001 |p | Jump_Nonzero 0x8e9
08e8 0801 | | Execute_Immediate Raise,0x1
08e9 00db | | Load_Top At_Offset_3
08ea 01cf | | Execute Vector,Slice_Read
08eb 0092 0afc | | Action Push_String_Extended,0xafc ; "%#"
08ed 01df | | Execute Vector,Equal
08ee 6821 |h! | Jump_Zero 0x910
08ef e046 | F | Load 0x0,0x46
08f0 0092 0afd | | Action Push_String_Extended,0xafd ; "No_Task_Numbers"
08f2 e047 | G | Load 0x0,0x47
08f3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08f4 681b |h | Jump_Zero 0x910
08f5 00d9 | | Load_Top At_Offset_1
08f6 01dd | | Execute Vector,First
08f7 0a02 | | Execute_Immediate Plus,0x2
08f8 0059 | Y | Store_Top Discrete,At_Offset_1
08f9 00cf | | Action Mark_Auxiliary
08fa 7804 |x | Jump 0x8ff
08fb 00d9 | | Load_Top At_Offset_1
08fc 0a01 | | Execute_Immediate Plus,0x1
08fd 005a | Z | Store_Top Discrete,At_Offset_2
08fe 00c9 | | Action Pop_Auxiliary_Loop
08ff 00d9 | | Load_Top At_Offset_1
0900 00db | | Load_Top At_Offset_3
0901 01d7 | | Execute Vector,Field_Read
0902 0e2e | . | Execute_Immediate Not_Equal,0x2e
0903 77f7 |w | Jump_Nonzero 0x8fb
0904 00ce | | Action Pop_Auxiliary
0905 4822 |H" | Short_Literal 0x22
0906 0092 0afe | | Action Push_String_Extended,0xafe ; "\x22xxxxx"
0908 00da | | Load_Top At_Offset_2
0909 e402 | | Load 0x2,0x2
090a 01dc | | Execute Vector,Last
090b e402 | | Load 0x2,0x2
090c 01cf | | Execute Vector,Slice_Read
090d 01cc | | Execute Vector,Catenate
090e 01cb | | Execute Vector,Append
090f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0910 4822 |H" | Short_Literal 0x22
0911 4822 |H" | Short_Literal 0x22
0912 00db | | Load_Top At_Offset_3
0913 01ca | | Execute Vector,Prepend
0914 01cb | | Execute Vector,Append
0915 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0916 TRAP_08d8:
0916 0007 | | Action Break_Optional
0917 4822 |H" | Short_Literal 0x22
0918 4822 |H" | Short_Literal 0x22
0919 e402 | | Load 0x2,0x2
091a 01ca | | Execute Vector,Prepend
091b 01cb | | Execute Vector,Append
091c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
091d 0000 0000 | | .XXX[0x3]
091f 0000 | |
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0923 | # | .CONST 0x0923 ; Address of begin
0921 0004 | | .CONST 0x0004 ; Address of exception handler
0922 0001 | | .CONST 0x0001 ; Number of locals
0923 BODY_0920:
0923 INIT_0920:
0923 0092 0aff | | Action Push_String_Extended,0xaff ; "Parameter number "
0925 00db | | Load_Top At_Offset_3
0926 823f | ? | Call 0x1,0x3f
0927 01cc | | Execute Vector,Catenate
0928 480a |H | Short_Literal 0xa
0929 0092 0b00 | | Action Push_String_Extended,0xb00 ; " is invalid: "
092b e5fe | | Load 0x2,-0x2
092c 01cc | | Execute Vector,Catenate
092d 01cb | | Execute Vector,Append
092e 01cc | | Execute Vector,Catenate
092f 8007 | | Call 0x0,0x7
0930 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0931 0000 0000 | | .BLANK 0000[0x7]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 093f | ? | .CONST 0x093f ; Address of begin
0939 0004 | | .CONST 0x0004 ; Address of exception handler
093a 0002 | | .CONST 0x0002 ; Number of locals
093b INIT_0938:
093b e03a | : | Load 0x0,0x3a
093c 02c7 | | Declare_Variable Any
093d 00d8 | | Load_Top At_Offset_0
093e 1c00 | | Execute_Immediate Run_Utility,0x0
093f BODY_0938:
093f 00db | | Load_Top At_Offset_3
0940 6803 |h | Jump_Zero 0x944
0941 8048 | H | Call 0x0,0x48
0942 c402 | | Store 0x2,0x2
0943 7802 |x | Jump 0x946
0944 8049 | I | Call 0x0,0x49
0945 c402 | | Store 0x2,0x2
0946 00d8 | | Load_Top At_Offset_0
0947 804a | J | Call 0x0,0x4a
0948 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0949 0000 0000 | | .BLANK 0000[0x7]
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 0964 | d | .CONST 0x0964 ; Address of begin
0951 0004 | | .CONST 0x0004 ; Address of exception handler
0952 0009 | | .CONST 0x0009 ; Number of locals
0953 INIT_0950:
0953 e03a | : | Load 0x0,0x3a
0954 02c7 | | Declare_Variable Any
0955 00d8 | | Load_Top At_Offset_0
0956 1c00 | | Execute_Immediate Run_Utility,0x0
0957 00e1 | | Load_Encached Boolean_Cache
0958 e04b | K | Load 0x0,0x4b
0959 1b0d | | Execute Package,Field_Read,Field_Number 0xd
095a e04c | L | Load 0x0,0x4c
095b 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
095c e04c | L | Load 0x0,0x4c
095d 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
095e 02c7 | | Declare_Variable Any
095f 00d8 | | Load_Top At_Offset_0
0960 1c00 | | Execute_Immediate Run_Utility,0x0
0961 00ec | | Load_Encached Diana_Tree_Cache
0962 00e5 | | Load_Encached Long_Integer_Cache
0963 00e2 | | Load_Encached Integer_Cache
0964 BODY_0950:
0964 e5ff | | Load 0x2,-0x1
0965 01db | | Execute Vector,Length
0966 7008 |p | Jump_Nonzero 0x96f
0967 e5fd | | Load 0x2,-0x3
0968 6803 |h | Jump_Zero 0x96c
0969 4800 |H | Short_Literal 0x0
096a a404 | | Store_Unchecked 0x2,0x4
096b 780e |x | Jump 0x97a
096c e5fe | | Load 0x2,-0x2
096d 824b | K | Call 0x1,0x4b
096e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
096f e5ff | | Load 0x2,-0x1
0970 e04d | M | Load 0x0,0x4d
0971 180e | | Execute Package,Field_Execute,Field_Number 0xe
0972 6805 |h | Jump_Zero 0x978
0973 e5ff | | Load 0x2,-0x1
0974 e04d | M | Load 0x0,0x4d
0975 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0976 a404 | | Store_Unchecked 0x2,0x4
0977 7802 |x | Jump 0x97a
0978 e5ff | | Load 0x2,-0x1
0979 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
097a 00db | | Load_Top At_Offset_3
097b 0120 | | Execute Any,Is_Value
097c 6803 |h | Jump_Zero 0x980
097d e04c | L | Load 0x0,0x4c
097e 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
097f 7801 |x | Jump 0x981
0980 00db | | Load_Top At_Offset_3
0981 e04c | L | Load 0x0,0x4c
0982 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0983 00e1 | | Load_Encached Boolean_Cache
0984 e404 | | Load 0x2,0x4
0985 e04c | L | Load 0x0,0x4c
0986 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0987 c403 | | Store 0x2,0x3
0988 c405 | | Store 0x2,0x5
0989 c406 | | Store 0x2,0x6
098a e403 | | Load 0x2,0x3
098b 6812 |h | Jump_Zero 0x99e
098c 00e2 | | Load_Encached Integer_Cache
098d 00e5 | | Load_Encached Long_Integer_Cache
098e 00ec | | Load_Encached Diana_Tree_Cache
098f e406 | | Load 0x2,0x6
0990 e04c | L | Load 0x0,0x4c
0991 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0992 c407 | | Store 0x2,0x7
0993 005b | [ | Store_Top Discrete,At_Offset_3
0994 0059 | Y | Store_Top Discrete,At_Offset_1
0995 00d9 | | Load_Top At_Offset_1
0996 804e | N | Call 0x0,0x4e
0997 c402 | | Store 0x2,0x2
0998 e402 | | Load 0x2,0x2
0999 804f | O | Call 0x0,0x4f
099a 7003 |p | Jump_Nonzero 0x99e
099b e402 | | Load 0x2,0x2
099c 804a | J | Call 0x0,0x4a
099d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
099e e5fe | | Load 0x2,-0x2
099f 824b | K | Call 0x1,0x4b
09a0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
09a1 0000 0000 | | .BLANK 0000[0x7]
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 4805 |H | Short_Literal 0x5
09ac 8010 | | Call 0x0,0x10
09ad 00ca | | Action Exit_Nullary_Function
09ae 0000 0000 | | .XXX[0x2]
09b0 ; --------------------------------------------------------------------------------------
09b0 ; SUBPROGRAM
09b0 ; --------------------------------------------------------------------------------------
09b0 09b3 | | .CONST 0x09b3 ; Address of begin
09b1 0004 | | .CONST 0x0004 ; Address of exception handler
09b2 0001 | | .CONST 0x0001 ; Number of locals
09b3 BODY_09b0:
09b3 INIT_09b0:
09b3 4813 |H | Short_Literal 0x13
09b4 8010 | | Call 0x0,0x10
09b5 680b |h | Jump_Zero 0x9c1
09b6 4801 |H | Short_Literal 0x1
09b7 4800 |H | Short_Literal 0x0
09b8 4800 |H | Short_Literal 0x0
09b9 e050 | P | Load 0x0,0x50
09ba 1815 | | Execute Package,Field_Execute,Field_Number 0x15
09bb e050 | P | Load 0x0,0x50
09bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
09bd 0092 0b01 | | Action Push_String_Extended,0xb01 ; " "
09bf 01cc | | Execute Vector,Catenate
09c0 00ca | | Action Exit_Nullary_Function
09c1 00ea | | Load_Encached Null_String_Cache
09c2 00ca | | Action Exit_Nullary_Function
09c3 0000 0000 | | .BLANK 0000[0x5]
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09cb | | .CONST 0x09cb ; Address of begin
09c9 0004 | | .CONST 0x0004 ; Address of exception handler
09ca 0001 | | .CONST 0x0001 ; Number of locals
09cb BODY_09c8:
09cb INIT_09c8:
09cb 824d | M | Call 0x1,0x4d
09cc 6809 |h | Jump_Zero 0x9d6
09cd 8051 | Q | Call 0x0,0x51
09ce 480a |H | Short_Literal 0xa
09cf 483b |H; | Short_Literal 0x3b
09d0 824e | N | Call 0x1,0x4e
09d1 e5ff | | Load 0x2,-0x1
09d2 01cc | | Execute Vector,Catenate
09d3 01cb | | Execute Vector,Append
09d4 01cb | | Execute Vector,Append
09d5 802f | / | Call 0x0,0x2f
09d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09d7 0000 | | .XXX[0x1]
09d8 ; --------------------------------------------------------------------------------------
09d8 ; SUBPROGRAM
09d8 ; --------------------------------------------------------------------------------------
09d8 09db | | .CONST 0x09db ; Address of begin
09d9 0004 | | .CONST 0x0004 ; Address of exception handler
09da 0001 | | .CONST 0x0001 ; Number of locals
09db BODY_09d8:
09db INIT_09d8:
09db 824d | M | Call 0x1,0x4d
09dc 680f |h | Jump_Zero 0x9ec
09dd 8051 | Q | Call 0x0,0x51
09de 480a |H | Short_Literal 0xa
09df 824e | N | Call 0x1,0x4e
09e0 e5ff | | Load 0x2,-0x1
09e1 01cc | | Execute Vector,Catenate
09e2 0092 0b02 | | Action Push_String_Extended,0xb02 ; " ("
09e4 01cc | | Execute Vector,Catenate
09e5 e5fe | | Load 0x2,-0x2
09e6 01cc | | Execute Vector,Catenate
09e7 0092 0b03 | | Action Push_String_Extended,0xb03 ; ");"
09e9 01cc | | Execute Vector,Catenate
09ea 01cb | | Execute Vector,Append
09eb 802f | / | Call 0x0,0x2f
09ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3
09ed 0000 0000 | | .XXX[0x3]
09ef 0000 | |
09f0 ; --------------------------------------------------------------------------------------
09f0 ; SUBPROGRAM
09f0 ; --------------------------------------------------------------------------------------
09f0 09f3 | | .CONST 0x09f3 ; Address of begin
09f1 0004 | | .CONST 0x0004 ; Address of exception handler
09f2 0001 | | .CONST 0x0001 ; Number of locals
09f3 BODY_09f0:
09f3 INIT_09f0:
09f3 824d | M | Call 0x1,0x4d
09f4 6814 |h | Jump_Zero 0xa09
09f5 8051 | Q | Call 0x0,0x51
09f6 480a |H | Short_Literal 0xa
09f7 824e | N | Call 0x1,0x4e
09f8 e5ff | | Load 0x2,-0x1
09f9 01cc | | Execute Vector,Catenate
09fa 0092 0b02 | | Action Push_String_Extended,0xb02 ; " ("
09fc 01cc | | Execute Vector,Catenate
09fd e5fe | | Load 0x2,-0x2
09fe 01cc | | Execute Vector,Catenate
09ff 0092 0b04 | | Action Push_String_Extended,0xb04 ; ", "
0a01 01cc | | Execute Vector,Catenate
0a02 e5fd | | Load 0x2,-0x3
0a03 01cc | | Execute Vector,Catenate
0a04 0092 0b03 | | Action Push_String_Extended,0xb03 ; ");"
0a06 01cc | | Execute Vector,Catenate
0a07 01cb | | Execute Vector,Append
0a08 802f | / | Call 0x0,0x2f
0a09 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0a0a 0000 0000 | | .BLANK 0000[0x6]
0a10 ; --------------------------------------------------------------------------------------
0a10 ; SUBPROGRAM
0a10 ; --------------------------------------------------------------------------------------
0a10 0a13 | | .CONST 0x0a13 ; Address of begin
0a11 0004 | | .CONST 0x0004 ; Address of exception handler
0a12 0001 | | .CONST 0x0001 ; Number of locals
0a13 BODY_0a10:
0a13 INIT_0a10:
0a13 824d | M | Call 0x1,0x4d
0a14 6819 |h | Jump_Zero 0xa2e
0a15 8051 | Q | Call 0x0,0x51
0a16 480a |H | Short_Literal 0xa
0a17 824e | N | Call 0x1,0x4e
0a18 e5ff | | Load 0x2,-0x1
0a19 01cc | | Execute Vector,Catenate
0a1a 0092 0b02 | | Action Push_String_Extended,0xb02 ; " ("
0a1c 01cc | | Execute Vector,Catenate
0a1d e5fe | | Load 0x2,-0x2
0a1e 01cc | | Execute Vector,Catenate
0a1f 0092 0b04 | | Action Push_String_Extended,0xb04 ; ", "
0a21 01cc | | Execute Vector,Catenate
0a22 e5fd | | Load 0x2,-0x3
0a23 01cc | | Execute Vector,Catenate
0a24 0092 0b04 | | Action Push_String_Extended,0xb04 ; ", "
0a26 01cc | | Execute Vector,Catenate
0a27 e5fc | | Load 0x2,-0x4
0a28 01cc | | Execute Vector,Catenate
0a29 0092 0b03 | | Action Push_String_Extended,0xb03 ; ");"
0a2b 01cc | | Execute Vector,Catenate
0a2c 01cb | | Execute Vector,Append
0a2d 802f | / | Call 0x0,0x2f
0a2e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0a2f 0000 | | .XXX[0x1]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a33 | 3 | .CONST 0x0a33 ; Address of begin
0a31 0004 | | .CONST 0x0004 ; Address of exception handler
0a32 0001 | | .CONST 0x0001 ; Number of locals
0a33 BODY_0a30:
0a33 INIT_0a30:
0a33 824d | M | Call 0x1,0x4d
0a34 681e |h | Jump_Zero 0xa53
0a35 8051 | Q | Call 0x0,0x51
0a36 480a |H | Short_Literal 0xa
0a37 824e | N | Call 0x1,0x4e
0a38 e5ff | | Load 0x2,-0x1
0a39 01cc | | Execute Vector,Catenate
0a3a 0092 0b02 | | Action Push_String_Extended,0xb02 ; " ("
0a3c 01cc | | Execute Vector,Catenate
0a3d e5fe | | Load 0x2,-0x2
0a3e 01cc | | Execute Vector,Catenate
0a3f 0092 0b04 | | Action Push_String_Extended,0xb04 ; ", "
0a41 01cc | | Execute Vector,Catenate
0a42 e5fd | | Load 0x2,-0x3
0a43 01cc | | Execute Vector,Catenate
0a44 0092 0b04 | | Action Push_String_Extended,0xb04 ; ", "
0a46 01cc | | Execute Vector,Catenate
0a47 e5fc | | Load 0x2,-0x4
0a48 01cc | | Execute Vector,Catenate
0a49 0092 0b04 | | Action Push_String_Extended,0xb04 ; ", "
0a4b 01cc | | Execute Vector,Catenate
0a4c e5fb | | Load 0x2,-0x5
0a4d 01cc | | Execute Vector,Catenate
0a4e 0092 0b03 | | Action Push_String_Extended,0xb03 ; ");"
0a50 01cc | | Execute Vector,Catenate
0a51 01cb | | Execute Vector,Append
0a52 802f | / | Call 0x0,0x2f
0a53 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0a54 0000 0000 | | .BLANK 0000[0x4]
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 824d | M | Call 0x1,0x4d
0a5c 6823 |h# | Jump_Zero 0xa80
0a5d 8051 | Q | Call 0x0,0x51
0a5e 480a |H | Short_Literal 0xa
0a5f 824e | N | Call 0x1,0x4e
0a60 e5ff | | Load 0x2,-0x1
0a61 01cc | | Execute Vector,Catenate
0a62 0092 0b02 | | Action Push_String_Extended,0xb02 ; " ("
0a64 01cc | | Execute Vector,Catenate
0a65 e5fe | | Load 0x2,-0x2
0a66 01cc | | Execute Vector,Catenate
0a67 0092 0b04 | | Action Push_String_Extended,0xb04 ; ", "
0a69 01cc | | Execute Vector,Catenate
0a6a e5fd | | Load 0x2,-0x3
0a6b 01cc | | Execute Vector,Catenate
0a6c 0092 0b04 | | Action Push_String_Extended,0xb04 ; ", "
0a6e 01cc | | Execute Vector,Catenate
0a6f e5fc | | Load 0x2,-0x4
0a70 01cc | | Execute Vector,Catenate
0a71 0092 0b04 | | Action Push_String_Extended,0xb04 ; ", "
0a73 01cc | | Execute Vector,Catenate
0a74 e5fb | | Load 0x2,-0x5
0a75 01cc | | Execute Vector,Catenate
0a76 0092 0b04 | | Action Push_String_Extended,0xb04 ; ", "
0a78 01cc | | Execute Vector,Catenate
0a79 e5fa | | Load 0x2,-0x6
0a7a 01cc | | Execute Vector,Catenate
0a7b 0092 0b03 | | Action Push_String_Extended,0xb03 ; ");"
0a7d 01cc | | Execute Vector,Catenate
0a7e 01cb | | Execute Vector,Append
0a7f 802f | / | Call 0x0,0x2f
0a80 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0a81 0000 0000 | | .BLANK 0000[0x7]
0a88 ; --------------------------------------------------------------------------------------
0a88 ; SUBPROGRAM
0a88 ; --------------------------------------------------------------------------------------
0a88 0a8b | | .CONST 0x0a8b ; Address of begin
0a89 0004 | | .CONST 0x0004 ; Address of exception handler
0a8a 0001 | | .CONST 0x0001 ; Number of locals
0a8b BODY_0a88:
0a8b INIT_0a88:
0a8b 8051 | Q | Call 0x0,0x51
0a8c 4800 |H | Short_Literal 0x0
0a8d 8052 | R | Call 0x0,0x52
0a8e 00eb | | Load_Encached Diana_Cache
0a8f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a90 480a |H | Short_Literal 0xa
0a91 824e | N | Call 0x1,0x4e
0a92 e5ff | | Load 0x2,-0x1
0a93 01cc | | Execute Vector,Catenate
0a94 0092 0b02 | | Action Push_String_Extended,0xb02 ; " ("
0a96 01cc | | Execute Vector,Catenate
0a97 e5fe | | Load 0x2,-0x2
0a98 01cc | | Execute Vector,Catenate
0a99 0092 0b03 | | Action Push_String_Extended,0xb03 ; ");"
0a9b 01cc | | Execute Vector,Catenate
0a9c 01cb | | Execute Vector,Append
0a9d 8053 | S | Call 0x0,0x53
0a9e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a9f 0000 | | .XXX[0x1]
0aa0 ; --------------------------------------------------------------------------------------
0aa0 ; SUBPROGRAM
0aa0 ; --------------------------------------------------------------------------------------
0aa0 0aa3 | | .CONST 0x0aa3 ; Address of begin
0aa1 0004 | | .CONST 0x0004 ; Address of exception handler
0aa2 0001 | | .CONST 0x0001 ; Number of locals
0aa3 BODY_0aa0:
0aa3 INIT_0aa0:
0aa3 8051 | Q | Call 0x0,0x51
0aa4 4800 |H | Short_Literal 0x0
0aa5 8052 | R | Call 0x0,0x52
0aa6 00eb | | Load_Encached Diana_Cache
0aa7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0aa8 480a |H | Short_Literal 0xa
0aa9 824e | N | Call 0x1,0x4e
0aaa e5ff | | Load 0x2,-0x1
0aab 01cc | | Execute Vector,Catenate
0aac 0092 0b02 | | Action Push_String_Extended,0xb02 ; " ("
0aae 01cc | | Execute Vector,Catenate
0aaf e5fe | | Load 0x2,-0x2
0ab0 01cc | | Execute Vector,Catenate
0ab1 0092 0b04 | | Action Push_String_Extended,0xb04 ; ", "
0ab3 01cc | | Execute Vector,Catenate
0ab4 e5fd | | Load 0x2,-0x3
0ab5 01cc | | Execute Vector,Catenate
0ab6 0092 0b03 | | Action Push_String_Extended,0xb03 ; ");"
0ab8 01cc | | Execute Vector,Catenate
0ab9 01cb | | Execute Vector,Append
0aba 8053 | S | Call 0x0,0x53
0abb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0abc 0000 0000 | | .BLANK 0000[0x4]
0ac0 ; --------------------------------------------------------------------------------------
0ac0 ; SUBPROGRAM
0ac0 ; --------------------------------------------------------------------------------------
0ac0 0ac3 | | .CONST 0x0ac3 ; Address of begin
0ac1 0ac7 | | .CONST 0x0ac7 ; Address of exception handler
0ac2 0001 | | .CONST 0x0001 ; Number of locals
0ac3 BODY_0ac0:
0ac3 INIT_0ac0:
0ac3 e5ff | | Load 0x2,-0x1
0ac4 8054 | T | Call 0x0,0x54
0ac5 c403 | | Store 0x2,0x3
0ac6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ac7 TRAP_0ac0:
0ac7 0007 | | Action Break_Optional
0ac8 0092 0b05 | | Action Push_String_Extended,0xb05 ; "Improper address format."
0aca 4801 |H | Short_Literal 0x1
0acb 824a | J | Call 0x1,0x4a
0acc 823b | ; | Call 0x1,0x3b
0acd 00cc | | Action Pop_Block
0ace 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0acf ; --------------------------------------------------------------------------------------
0acf ; STRING TABLE
0acf ; --------------------------------------------------------------------------------------
0acf 0070 | p | .STRTAB 0x0070->0x0b07 ; "Put"
0ad0 0071 | q | .STRTAB 0x0071->0x0b08 ; "Stack"
0ad1 0074 | t | .STRTAB 0x0074->0x0b0b ; "Modify"
0ad2 0078 | x | .STRTAB 0x0078->0x0b0e ; "Display"
0ad3 007d | } | .STRTAB 0x007d->0x0b11 ; "Source"
0ad4 0081 | | .STRTAB 0x0081->0x0b14 ; "0"
0ad5 0080 | | .STRTAB 0x0080->0x0b15 ; "Break"
0ad6 0083 | | .STRTAB 0x0083->0x0b17 ; "Remove"
0ad7 0087 | | .STRTAB 0x0087->0x0b1a ; "Activate"
0ad8 008d | | .STRTAB 0x008d->0x0b1e ; "Stop"
0ad9 008f | | .STRTAB 0x008f->0x0b20 ; "Execute"
0ada 0094 | | .STRTAB 0x0094->0x0b24 ; "Hold"
0adb 0096 | | .STRTAB 0x0096->0x0b26 ; "Release"
0adc 009b | | .STRTAB 0x009b->0x0b29 ; "Task_Display"
0add 00a5 | | .STRTAB 0x00a5->0x0b2f ; "Run"
0ade 00a6 | | .STRTAB 0x00a6->0x0b31 ; "Clear_Stepping"
0adf 00b2 | | .STRTAB 0x00b2->0x0b38 ; "Catch"
0ae0 00b5 | | .STRTAB 0x00b5->0x0b3a ; "Propagate"
0ae1 00bc | | .STRTAB 0x00bc->0x0b3f ; "Forget"
0ae2 00c0 | | .STRTAB 0x00c0->0x0b42 ; "Trace"
0ae3 00c3 | | .STRTAB 0x00c3->0x0b44 ; "Trace_To_File"
0ae4 00ce | | .STRTAB 0x00ce->0x0b4b ; "History_Display"
0ae5 00db | | .STRTAB 0x00db->0x0b52 ; "Take_History"
0ae6 00e5 | | .STRTAB 0x00e5->0x0b58 ; "Context"
0ae7 00ea | | .STRTAB 0x00ea->0x0b5c ; "Enable"
0ae8 00ee | | .STRTAB 0x00ee->0x0b5f ; "Set_Value"
0ae9 00f5 | | .STRTAB 0x00f5->0x0b63 ; "Flag"
0aea 00f7 | | .STRTAB 0x00f7->0x0b65 ; "Show"
0aeb 00f9 | | .STRTAB 0x00f9->0x0b67 ; "Information"
0aec 0102 | | .STRTAB 0x0102->0x0b6d ; "Set_Task_Name"
0aed 010d | | .STRTAB 0x010d->0x0b73 ; "Convert"
0aee 0112 | | .STRTAB 0x0112->0x0b77 ; "Memory_Display"
0aef 011e | | .STRTAB 0x011e->0x0b7e ; "Location_To_Address"
0af0 012f | / | .STRTAB 0x012f->0x0b87 ; "Address_To_Location"
0af1 0140 | @ | .STRTAB 0x0140->0x0b91 ; "Exception_To_Name"
0af2 014f | O | .STRTAB 0x014f->0x0b99 ; "Unable to convert "
0af3 015f | _ | .STRTAB 0x015f->0x0ba2 ; " to an exception value."
0af4 0174 | t | .STRTAB 0x0174->0x0bae ; "Memory_Modify"
0af5 017f | | .STRTAB 0x017f->0x0bb4 ; "Register_Display"
0af6 018d | | .STRTAB 0x018d->0x0bbc ; "Register_Modify"
0af7 019a | | .STRTAB 0x019a->0x0bc4 ; "Value must be a single hex number"
0af8 01b9 | | .STRTAB 0x01b9->0x0bd4 ; "Object_Location"
0af9 01c6 | | .STRTAB 0x01c6->0x0bdc ; "Attach_Process"
0afa 01d2 | | .STRTAB 0x01d2->0x0be3 ; "Not implemented\x0a"
0afb 01e0 | | .STRTAB 0x01e0->0x0beb ; "Target_Request"
0afc 01ec | | .STRTAB 0x01ec->0x0bf2 ; "%#"
0afd 01ec | | .STRTAB 0x01ec->0x0bf3 ; "No_Task_Numbers"
0afe 01f9 | | .STRTAB 0x01f9->0x0bfa ; "\x22xxxxx"
0aff 01fd | | .STRTAB 0x01fd->0x0bfd ; "Parameter number "
0b00 020c | | .STRTAB 0x020c->0x0c06 ; " is invalid: "
0b01 0217 | | .STRTAB 0x0217->0x0c0c ; " "
0b02 0217 | | .STRTAB 0x0217->0x0c0d ; " ("
0b03 0217 | | .STRTAB 0x0217->0x0c0e ; ");"
0b04 0217 | | .STRTAB 0x0217->0x0c0f ; ", "
0b05 0217 | | .STRTAB 0x0217->0x0c10 ; "Improper address format."
0b06 022d | - | .STREND 0x022d->0x0c1c
0b07 5075 7453 |PutS| .STRTAB_STRINGS
0c1d 0000 0000 | | .XXX[0x3]
0c1f 0000 | |
0c20 ; --------------------------------------------------------------------------------------
0c20 ; Debug Table
0c20 ; --------------------------------------------------------------------------------------
0c20 0004 000d | | .DEBUG4 0x0004,0x000d,0x768a,0x0000,0x0001,0x0000
0c26 0000 0000 | | .BLANK 0000[0x1da]