|
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: 4096 (0x1000)
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 07a0 | | .CONST 0x07a0 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 010e | | .CONST 0x010e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0051 | Q | .CONST 0x0051 ; Number of locals
000b INIT_0008:
000b 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
000d 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
000f 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0011 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0013 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0015 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0017 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0019 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
001b 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
001d 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
001f 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0021 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0023 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0025 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0027 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0029 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
002b 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
002d 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
002f 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0031 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0033 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0035 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0037 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0039 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
003b 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
003d 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
003f 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
0041 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0043 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0045 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0047 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
0049 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
004b 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
004d 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
004f 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0051 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
0053 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
0055 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
0057 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
0059 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
005b 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
005d 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
005f 4800 |H | Short_Literal 0x0
0060 4801 |H | Short_Literal 0x1
0061 029f 038b | | Declare_Subprogram INIT_0388,For_Call
0063 03fe | | Declare_Type Discrete,Defined,Visible
0064 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated
0066 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
0068 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
006a 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
006c 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated
006e 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
0070 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
0072 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated
0074 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated
0076 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
0078 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
007a 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated
007c 029a 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call,Visible,Unelaborated
007e 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
0080 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated
0082 00bf | | Action Accept_Activation
0083 0093 0000 | | push_full_address 0x0
0085 6092 |` | Indirect_Literal Discrete,0x118,{0x80000000, 0x00010000}
0086 0273 | s | Execute Discrete,Plus
0087 0007 | | Action Break_Optional
0088 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0089 00c7 | | Action Elaborate_Subprogram
008a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
008b 00c7 | | Action Elaborate_Subprogram
008c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
008d 00c7 | | Action Elaborate_Subprogram
008e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
008f 00c7 | | Action Elaborate_Subprogram
0090 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0091 00c7 | | Action Elaborate_Subprogram
0092 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0093 00c7 | | Action Elaborate_Subprogram
0094 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0095 00c7 | | Action Elaborate_Subprogram
0096 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0097 00c7 | | Action Elaborate_Subprogram
0098 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0099 00c7 | | Action Elaborate_Subprogram
009a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
009b 00c7 | | Action Elaborate_Subprogram
009c 1d17 | | Execute_Immediate Reference_Lex_1,0x17
009d 00c7 | | Action Elaborate_Subprogram
009e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00a3 00c7 | | Action Elaborate_Subprogram
00a4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a7 00c7 | | Action Elaborate_Subprogram
00a8 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00b1 00c7 | | Action Elaborate_Subprogram
00b2 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
00c7 00c7 | | Action Elaborate_Subprogram
00c8 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call
00ca 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00cd 00c7 | | Action Elaborate_Subprogram
00ce 029d 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call
00d0 029d 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call
00d2 029d 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call
00d4 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00d5 00c7 | | Action Elaborate_Subprogram
00d6 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00db 00c7 | | Action Elaborate_Subprogram
00dc 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00dd 00c7 | | Action Elaborate_Subprogram
00de 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00e3 00c7 | | Action Elaborate_Subprogram
00e4 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00e5 00c7 | | Action Elaborate_Subprogram
00e6 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00e7 00c7 | | Action Elaborate_Subprogram
00e8 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call
00ea 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call
00ec 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00ed 00c7 | | Action Elaborate_Subprogram
00ee 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00ef 00c7 | | Action Elaborate_Subprogram
00f0 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00f1 00c7 | | Action Elaborate_Subprogram
00f2 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
00f3 00c7 | | Action Elaborate_Subprogram
00f4 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
00f5 00c7 | | Action Elaborate_Subprogram
00f6 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
00f7 00c7 | | Action Elaborate_Subprogram
00f8 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
00f9 00c7 | | Action Elaborate_Subprogram
00fa 029d 061b | | Declare_Subprogram INIT_0618,For_Outer_Call
00fc 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
00fd 00c7 | | Action Elaborate_Subprogram
00fe 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
00ff 00c7 | | Action Elaborate_Subprogram
0100 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call
0102 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call
0104 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
0105 00c7 | | Action Elaborate_Subprogram
0106 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
0107 00c7 | | Action Elaborate_Subprogram
0108 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call
010a 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
010b 00c7 | | Action Elaborate_Subprogram
010c 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
010d 00c7 | | Action Elaborate_Subprogram
010e BODY_0008:
010e 00bc | | Action Signal_Activated
010f 00bb | | Action Signal_Completion
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e002 | | Load 0x0,0x2
0114 e003 | | Load 0x0,0x3
0115 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0116 00ca | | Action Exit_Nullary_Function
0117 0000 | | .XXX[0x1]
0118 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e002 | | Load 0x0,0x2
0124 e003 | | Load 0x0,0x3
0125 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0126 00ca | | Action Exit_Nullary_Function
0127 0000 | | .XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b e002 | | Load 0x0,0x2
012c e003 | | Load 0x0,0x3
012d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
012e 00ca | | Action Exit_Nullary_Function
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 e002 | | Load 0x0,0x2
0134 e003 | | Load 0x0,0x3
0135 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0136 00ca | | Action Exit_Nullary_Function
0137 0000 | | .XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e004 | | Load 0x0,0x4
013c 00db | | Load_Top At_Offset_3
013d e003 | | Load 0x0,0x3
013e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
013f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 e002 | | Load 0x0,0x2
0144 00db | | Load_Top At_Offset_3
0145 e003 | | Load 0x0,0x3
0146 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0147 c002 | | Store 0x0,0x2
0148 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0149 0000 0000 | | .BLANK 0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 e002 | | Load 0x0,0x2
0154 00db | | Load_Top At_Offset_3
0155 e003 | | Load 0x0,0x3
0156 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0157 c002 | | Store 0x0,0x2
0158 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0159 0000 0000 | | .BLANK 0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 e5fc | | Load 0x2,-0x4
0164 e5fd | | Load 0x2,-0x3
0165 8005 | | Call 0x0,0x5
0166 e5fe | | Load 0x2,-0x2
0167 e5ff | | Load 0x2,-0x1
0168 e002 | | Load 0x0,0x2
0169 e003 | | Load 0x0,0x3
016a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
016b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 e5fc | | Load 0x2,-0x4
0174 e5fd | | Load 0x2,-0x3
0175 8005 | | Call 0x0,0x5
0176 e5fe | | Load 0x2,-0x2
0177 e5ff | | Load 0x2,-0x1
0178 e002 | | Load 0x0,0x2
0179 e003 | | Load 0x0,0x3
017a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
017b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
017c 0000 0000 | | .BLANK 0000[0x4]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0186 | | .CONST 0x0186 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0002 | | .CONST 0x0002 ; Number of locals
0183 INIT_0180:
0183 e5fc | | Load 0x2,-0x4
0184 e5fd | | Load 0x2,-0x3
0185 8006 | | Call 0x0,0x6
0186 BODY_0180:
0186 e5fa | | Load 0x2,-0x6
0187 e5fb | | Load 0x2,-0x5
0188 8005 | | Call 0x0,0x5
0189 00da | | Load_Top At_Offset_2
018a e5ff | | Load 0x2,-0x1
018b e002 | | Load 0x0,0x2
018c e003 | | Load 0x0,0x3
018d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
018e 4507 |E | Exit_Suprogram New_Top_Offset 0x7
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 e5fc | | Load 0x2,-0x4
0194 e5fd | | Load 0x2,-0x3
0195 8005 | | Call 0x0,0x5
0196 e5fe | | Load 0x2,-0x2
0197 e5ff | | Load 0x2,-0x1
0198 e002 | | Load 0x0,0x2
0199 e003 | | Load 0x0,0x3
019a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
019b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00db | | Load_Top At_Offset_3
01a4 8005 | | Call 0x0,0x5
01a5 00db | | Load_Top At_Offset_3
01a6 e002 | | Load 0x0,0x2
01a7 e003 | | Load 0x0,0x3
01a8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00db | | Load_Top At_Offset_3
01b4 e5fd | | Load 0x2,-0x3
01b5 e5ff | | Load 0x2,-0x1
01b6 e002 | | Load 0x0,0x2
01b7 e003 | | Load 0x0,0x3
01b8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01b9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00db | | Load_Top At_Offset_3
01c4 00eb | | Load_Encached Diana_Cache
01c5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01c6 e5ff | | Load 0x2,-0x1
01c7 e002 | | Load 0x0,0x2
01c8 e003 | | Load 0x0,0x3
01c9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01cb 0000 0000 | | .BLANK 0000[0x5]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 e002 | | Load 0x0,0x2
01d4 e003 | | Load 0x0,0x3
01d5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01d6 c002 | | Store 0x0,0x2
01d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db e007 | | Load 0x0,0x7
01dc 0092 06f9 | | Action Push_String_Extended,0x6f9 ; "Flag_Errors"
01de e008 | | Load 0x0,0x8
01df 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e0 6806 |h | Jump_Zero 0x1e7
01e1 e002 | | Load 0x0,0x2
01e2 0092 06fa | | Action Push_String_Extended,0x6fa ; "*** "
01e4 e003 | | Load 0x0,0x3
01e5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01e6 c002 | | Store 0x0,0x2
01e7 e002 | | Load 0x0,0x2
01e8 00db | | Load_Top At_Offset_3
01e9 e003 | | Load 0x0,0x3
01ea 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01eb c002 | | Store 0x0,0x2
01ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ed 0000 0000 | | .XXX[0x3]
01ef 0000 | |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 e002 | | Load 0x0,0x2
01f4 480a |H | Short_Literal 0xa
01f5 0092 06fb | | Action Push_String_Extended,0x6fb ; "The command "
01f7 e5ff | | Load 0x2,-0x1
01f8 01cc | | Execute Vector,Catenate
01f9 0092 06fc | | Action Push_String_Extended,0x6fc ; " is unimplemented."
01fb 01cc | | Execute Vector,Catenate
01fc 01cb | | Execute Vector,Append
01fd e003 | | Load 0x0,0x3
01fe 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01ff c002 | | Store 0x0,0x2
0200 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0201 0000 0000 | | .BLANK 0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b e002 | | Load 0x0,0x2
020c 00db | | Load_Top At_Offset_3
020d e003 | | Load 0x0,0x3
020e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
020f c002 | | Store 0x0,0x2
0210 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0211 0000 0000 | | .BLANK 0000[0x7]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b e002 | | Load 0x0,0x2
021c 480a |H | Short_Literal 0xa
021d e5ff | | Load 0x2,-0x1
021e 01cb | | Execute Vector,Append
021f e003 | | Load 0x0,0x3
0220 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0221 c002 | | Store 0x0,0x2
0222 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0223 0000 0000 | | .BLANK 0000[0x5]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b e002 | | Load 0x0,0x2
022c 00db | | Load_Top At_Offset_3
022d e003 | | Load 0x0,0x3
022e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
022f c002 | | Store 0x0,0x2
0230 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 4801 |H | Short_Literal 0x1
023c 00db | | Load_Top At_Offset_3
023d e009 | | Load 0x0,0x9
023e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
023f 6809 |h | Jump_Zero 0x249
0240 e002 | | Load 0x0,0x2
0241 480a |H | Short_Literal 0xa
0242 e5ff | | Load 0x2,-0x1
0243 e009 | | Load 0x0,0x9
0244 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0245 01cb | | Execute Vector,Append
0246 e003 | | Load 0x0,0x3
0247 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0248 c002 | | Store 0x0,0x2
0249 4502 |E | Exit_Suprogram New_Top_Offset 0x2
024a 0000 0000 | | .BLANK 0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0258 | X | .CONST 0x0258 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 e009 | | Load 0x0,0x9
0254 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0255 02c7 | | Declare_Variable Any
0256 00d8 | | Load_Top At_Offset_0
0257 1c00 | | Execute_Immediate Run_Utility,0x0
0258 BODY_0250:
0258 4802 |H | Short_Literal 0x2
0259 e5fe | | Load 0x2,-0x2
025a e009 | | Load 0x0,0x9
025b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
025c 681d |h | Jump_Zero 0x27a
025d 4802 |H | Short_Literal 0x2
025e e5fd | | Load 0x2,-0x3
025f e009 | | Load 0x0,0x9
0260 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0261 680f |h | Jump_Zero 0x271
0262 480a |H | Short_Literal 0xa
0263 e5ff | | Load 0x2,-0x1
0264 e5fe | | Load 0x2,-0x2
0265 e009 | | Load 0x0,0x9
0266 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0267 01cc | | Execute Vector,Catenate
0268 01cb | | Execute Vector,Append
0269 e5fd | | Load 0x2,-0x3
026a e009 | | Load 0x0,0x9
026b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
026c 01cc | | Execute Vector,Catenate
026d e009 | | Load 0x0,0x9
026e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
026f c402 | | Store 0x2,0x2
0270 7814 |x | Jump 0x285
0271 00db | | Load_Top At_Offset_3
0272 e5fe | | Load 0x2,-0x2
0273 e009 | | Load 0x0,0x9
0274 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0275 01cc | | Execute Vector,Catenate
0276 e009 | | Load 0x0,0x9
0277 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0278 c402 | | Store 0x2,0x2
0279 780b |x | Jump 0x285
027a 4802 |H | Short_Literal 0x2
027b e5fd | | Load 0x2,-0x3
027c e009 | | Load 0x0,0x9
027d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
027e 6803 |h | Jump_Zero 0x282
027f e5fd | | Load 0x2,-0x3
0280 c402 | | Store 0x2,0x2
0281 7803 |x | Jump 0x285
0282 e009 | | Load 0x0,0x9
0283 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0284 c402 | | Store 0x2,0x2
0285 00d8 | | Load_Top At_Offset_0
0286 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0287 0000 | | .XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b e007 | | Load 0x0,0x7
028c 0092 06fd | | Action Push_String_Extended,0x6fd ; "No_Task_Numbers"
028e e008 | | Load 0x0,0x8
028f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0290 6811 |h | Jump_Zero 0x2a2
0291 00da | | Load_Top At_Offset_2
0292 800a | | Call 0x0,0xa
0293 6808 |h | Jump_Zero 0x29c
0294 00da | | Load_Top At_Offset_2
0295 800b | | Call 0x0,0xb
0296 8248 | H | Call 0x1,0x48
0297 00da | | Load_Top At_Offset_2
0298 800c | | Call 0x0,0xc
0299 e00d | | Load 0x0,0xd
029a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
029b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029c 00da | | Load_Top At_Offset_2
029d 800b | | Call 0x0,0xb
029e 8248 | H | Call 0x1,0x48
029f 0092 06fe | | Action Push_String_Extended,0x6fe ; "xxxxx"
02a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a2 00da | | Load_Top At_Offset_2
02a3 800e | | Call 0x0,0xe
02a4 6803 |h | Jump_Zero 0x2a8
02a5 00da | | Load_Top At_Offset_2
02a6 800b | | Call 0x0,0xb
02a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a8 00da | | Load_Top At_Offset_2
02a9 800a | | Call 0x0,0xa
02aa 680b |h | Jump_Zero 0x2b6
02ab 00da | | Load_Top At_Offset_2
02ac 800c | | Call 0x0,0xc
02ad e00d | | Load 0x0,0xd
02ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02af 0092 06ff | | Action Push_String_Extended,0x6ff ; ", "
02b1 01cc | | Execute Vector,Catenate
02b2 00db | | Load_Top At_Offset_3
02b3 800b | | Call 0x0,0xb
02b4 01cc | | Execute Vector,Catenate
02b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b6 00da | | Load_Top At_Offset_2
02b7 800b | | Call 0x0,0xb
02b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b9 0000 0000 | | .BLANK 0000[0x7]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00da | | Load_Top At_Offset_2
02c4 800f | | Call 0x0,0xf
02c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c6 0000 0000 | | .XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 02d3 | | .CONST 0x02d3 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 4800 |H | Short_Literal 0x0
02cc 4801 |H | Short_Literal 0x1
02cd 4820 |H | Short_Literal 0x20
02ce e5ff | | Load 0x2,-0x1
02cf e00d | | Load 0x0,0xd
02d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02d1 824b | K | Call 0x1,0x4b
02d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d3 TRAP_02c8:
02d3 0007 | | Action Break_Optional
02d4 8010 | | Call 0x0,0x10
02d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d6 0000 0000 | | .XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 02e3 | | .CONST 0x02e3 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 4801 |H | Short_Literal 0x1
02dc 4801 |H | Short_Literal 0x1
02dd 4820 |H | Short_Literal 0x20
02de e5ff | | Load 0x2,-0x1
02df e00d | | Load 0x0,0xd
02e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02e1 824b | K | Call 0x1,0x4b
02e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e3 TRAP_02d8:
02e3 0007 | | Action Break_Optional
02e4 8010 | | Call 0x0,0x10
02e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e6 0000 0000 | | .XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 02f6 | | .CONST 0x02f6 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 4801 |H | Short_Literal 0x1
02ec e5fe | | Load 0x2,-0x2
02ed 4820 |H | Short_Literal 0x20
02ee e5ff | | Load 0x2,-0x1
02ef e00d | | Load 0x0,0xd
02f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02f1 824b | K | Call 0x1,0x4b
02f2 c5fd | | Store 0x2,-0x3
02f3 4801 |H | Short_Literal 0x1
02f4 a5fc | | Store_Unchecked 0x2,-0x4
02f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02f6 TRAP_02e8:
02f6 0007 | | Action Break_Optional
02f7 8010 | | Call 0x0,0x10
02f8 c5fd | | Store 0x2,-0x3
02f9 4800 |H | Short_Literal 0x0
02fa a5fc | | Store_Unchecked 0x2,-0x4
02fb 480a |H | Short_Literal 0xa
02fc 0092 0700 | | Action Push_String_Extended,0x700 ; "Invalid task name parameter: "
02fe e5ff | | Load 0x2,-0x1
02ff 01cc | | Execute Vector,Catenate
0300 01cb | | Execute Vector,Append
0301 821c | | Call 0x1,0x1c
0302 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0303 0000 0000 | | .BLANK 0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b e007 | | Load 0x0,0x7
030c 4800 |H | Short_Literal 0x0
030d e008 | | Load 0x0,0x8
030e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
030f 00ca | | Action Exit_Nullary_Function
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 e007 | | Load 0x0,0x7
0314 4803 |H | Short_Literal 0x3
0315 e008 | | Load 0x0,0x8
0316 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0317 00ca | | Action Exit_Nullary_Function
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b e007 | | Load 0x0,0x7
031c 00db | | Load_Top At_Offset_3
031d e008 | | Load 0x0,0x8
031e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
031f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 08e2 | | Execute_Immediate Raise,0xe2
0324 0000 0000 | | .BLANK 0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b e007 | | Load 0x0,0x7
032c 00db | | Load_Top At_Offset_3
032d e008 | | Load 0x0,0x8
032e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
032f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 e007 | | Load 0x0,0x7
0334 00db | | Load_Top At_Offset_3
0335 e008 | | Load 0x0,0x8
0336 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0337 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b e007 | | Load 0x0,0x7
033c 00db | | Load_Top At_Offset_3
033d e008 | | Load 0x0,0x8
033e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
033f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00db | | Load_Top At_Offset_3
0344 0f01 | | Execute_Immediate Equal,0x1
0345 7005 |p | Jump_Nonzero 0x34b
0346 e5fd | | Load 0x2,-0x3
0347 00db | | Load_Top At_Offset_3
0348 824d | M | Call 0x1,0x4d
0349 c5fd | | Store 0x2,-0x3
034a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
034b e5fd | | Load 0x2,-0x3
034c 00db | | Load_Top At_Offset_3
034d 824c | L | Call 0x1,0x4c
034e c5fd | | Store 0x2,-0x3
034f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 e5fd | | Load 0x2,-0x3
0354 e009 | | Load 0x0,0x9
0355 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0356 c5fd | | Store 0x2,-0x3
0357 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b e5fd | | Load 0x2,-0x3
035c e009 | | Load 0x0,0x9
035d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
035e c5fd | | Store 0x2,-0x3
035f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 8011 | | Call 0x0,0x11
0365 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0366 0000 0000 | | .XXX[0x2]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b e012 | | Load 0x0,0x12
036c 8013 | | Call 0x0,0x13
036d 0f00 | | Execute_Immediate Equal,0x0
036e 00ca | | Action Exit_Nullary_Function
036f 0000 | | .XXX[0x1]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 8014 | | Call 0x0,0x14
0375 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0376 0000 0000 | | .XXX[0x2]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c e015 | | Load 0x0,0x15
037d e016 | | Load 0x0,0x16
037e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
037f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2
0384 8014 | | Call 0x0,0x14
0385 0f00 | | Execute_Immediate Equal,0x0
0386 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0387 0000 | | .XXX[0x1]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 4607 |F | Jump_Case 0x8
038c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
038d 7807 |x | Jump 0x395 ; case 0x1
038e 780a |x | Jump 0x399 ; case 0x2
038f 780e |x | Jump 0x39e ; case 0x3
0390 7811 |x | Jump 0x3a2 ; case 0x4
0391 7812 |x | Jump 0x3a4 ; case 0x5
0392 7813 |x | Jump 0x3a6 ; case 0x6
0393 7816 |x | Jump 0x3aa ; case 0x7
0394 4302 |C | .XXX[0x1]
0395 00da | | Load_Top At_Offset_2
0396 0091 06f7 | | Action Push_String_Extended_Indexed,0x6f7 ; "REPORT"
0398 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0399 00db | | Load_Top At_Offset_3
039a 00db | | Load_Top At_Offset_3
039b 00e0 | | Load_Encached Standard_Cache
039c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
039d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
039e 00da | | Load_Top At_Offset_2
039f 00e0 | | Load_Encached Standard_Cache
03a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03a1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03a2 00db | | Load_Top At_Offset_3
03a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03a4 00db | | Load_Top At_Offset_3
03a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03a6 e237 | 7 | Load 0x1,0x37
03a7 00dc | | Load_Top At_Offset_4
03a8 0267 | g | Execute Discrete,Predecessor
03a9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03aa e237 | 7 | Load 0x1,0x37
03ab 00dc | | Load_Top At_Offset_4
03ac 0268 | h | Execute Discrete,Successor
03ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03ae 0000 0000 | | .XXX[0x2]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 e017 | | Load 0x0,0x17
03b4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
03b5 e5fd | | Load 0x2,-0x3
03b6 e018 | | Load 0x0,0x18
03b7 e5fe | | Load 0x2,-0x2
03b8 4801 |H | Short_Literal 0x1
03b9 e5ff | | Load 0x2,-0x1
03ba e017 | | Load 0x0,0x17
03bb 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03bc c018 | | Store 0x0,0x18
03bd c5fd | | Store 0x2,-0x3
03be c5fc | | Store 0x2,-0x4
03bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 e5fd | | Load 0x2,-0x3
03c4 e018 | | Load 0x0,0x18
03c5 e5fe | | Load 0x2,-0x2
03c6 e5ff | | Load 0x2,-0x1
03c7 e017 | | Load 0x0,0x17
03c8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
03c9 c018 | | Store 0x0,0x18
03ca c5fd | | Store 0x2,-0x3
03cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03cc 0000 0000 | | .BLANK 0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 00da | | Load_Top At_Offset_2
03d4 800e | | Call 0x0,0xe
03d5 7003 |p | Jump_Nonzero 0x3d9
03d6 00da | | Load_Top At_Offset_2
03d7 8232 | 2 | Call 0x1,0x32
03d8 680e |h | Jump_Zero 0x3e7
03d9 00db | | Load_Top At_Offset_3
03da 7007 |p | Jump_Nonzero 0x3e2
03db 00da | | Load_Top At_Offset_2
03dc 8014 | | Call 0x0,0x14
03dd 7004 |p | Jump_Nonzero 0x3e2
03de e009 | | Load 0x0,0x9
03df 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03e0 c5fd | | Store 0x2,-0x3
03e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03e2 e5fd | | Load 0x2,-0x3
03e3 00db | | Load_Top At_Offset_3
03e4 8019 | | Call 0x0,0x19
03e5 c5fd | | Store 0x2,-0x3
03e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03e7 0092 0701 | | Action Push_String_Extended,0x701 ; "Task does not exist"
03e9 e009 | | Load 0x0,0x9
03ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03eb c5fd | | Store 0x2,-0x3
03ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03ed 0000 0000 | | .XXX[0x3]
03ef 0000 | |
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 0400 | | .CONST 0x0400 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0004 | | .CONST 0x0004 ; Number of locals
03f3 INIT_03f0:
03f3 00da | | Load_Top At_Offset_2
03f4 01dd | | Execute Vector,First
03f5 00e3 | | Load_Encached Natural_Cache
03f6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
03f7 00db | | Load_Top At_Offset_3
03f8 01dc | | Execute Vector,Last
03f9 00e3 | | Load_Encached Natural_Cache
03fa 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
03fb e009 | | Load 0x0,0x9
03fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03fd 02c7 | | Declare_Variable Any
03fe 00d8 | | Load_Top At_Offset_0
03ff 1c00 | | Execute_Immediate Run_Utility,0x0
0400 BODY_03f0:
0400 e009 | | Load 0x0,0x9
0401 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0402 c5fe | | Store 0x2,-0x2
0403 00cf | | Action Mark_Auxiliary
0404 00da | | Load_Top At_Offset_2
0405 e402 | | Load 0x2,0x2
0406 0263 | c | Execute Discrete,Above_Bound
0407 7017 |p | Jump_Nonzero 0x41f
0408 00db | | Load_Top At_Offset_3
0409 4800 |H | Short_Literal 0x0
040a 00da | | Load_Top At_Offset_2
040b e5ff | | Load 0x2,-0x1
040c 01d7 | | Execute Vector,Field_Read
040d 823a | : | Call 0x1,0x3a
040e c404 | | Store 0x2,0x4
040f e5fe | | Load 0x2,-0x2
0410 e404 | | Load 0x2,0x4
0411 0092 0702 | | Action Push_String_Extended,0x702 ; "(task "
0413 00db | | Load_Top At_Offset_3
0414 e5ff | | Load 0x2,-0x1
0415 01d7 | | Execute Vector,Field_Read
0416 800b | | Call 0x0,0xb
0417 01cc | | Execute Vector,Catenate
0418 0092 0703 | | Action Push_String_Extended,0x703 ; ") "
041a 01cc | | Execute Vector,Catenate
041b 8222 | " | Call 0x1,0x22
041c c5fe | | Store 0x2,-0x2
041d 00c8 | | Action Pop_Auxiliary_Range
041e 3fe9 |? | Loop_Increasing 0x408
041f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 4800 |H | Short_Literal 0x0
0424 801a | | Call 0x0,0x1a
0425 00ca | | Action Exit_Nullary_Function
0426 0000 0000 | | .XXX[0x2]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b e009 | | Load 0x0,0x9
042c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
042d c5fe | | Store 0x2,-0x2
042e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
042f 0000 | | .XXX[0x1]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 e01b | | Load 0x0,0x1b
0434 00db | | Load_Top At_Offset_3
0435 e01c | | Load 0x0,0x1c
0436 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0437 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0441 | A | .CONST 0x0441 ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0003 | | .CONST 0x0003 ; Number of locals
043b INIT_0438:
043b e009 | | Load 0x0,0x9
043c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043d 02c7 | | Declare_Variable Any
043e 00d8 | | Load_Top At_Offset_0
043f 1c00 | | Execute_Immediate Run_Utility,0x0
0440 00e3 | | Load_Encached Natural_Cache
0441 BODY_0438:
0441 00d9 | | Load_Top At_Offset_1
0442 00e3 | | Load_Encached Natural_Cache
0443 e5ff | | Load 0x2,-0x1
0444 801d | | Call 0x0,0x1d
0445 801e | | Call 0x0,0x1e
0446 005a | Z | Store_Top Discrete,At_Offset_2
0447 c402 | | Store 0x2,0x2
0448 4802 |H | Short_Literal 0x2
0449 00da | | Load_Top At_Offset_2
044a e009 | | Load 0x0,0x9
044b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
044c 6802 |h | Jump_Zero 0x44f
044d 4800 |H | Short_Literal 0x0
044e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
044f 00d8 | | Load_Top At_Offset_0
0450 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0451 0000 0000 | | .BLANK 0000[0x7]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b 00da | | Load_Top At_Offset_2
045c 801f | | Call 0x0,0x1f
045d 8020 | | Call 0x0,0x20
045e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
045f 0000 | | .XXX[0x1]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 00db | | Load_Top At_Offset_3
0464 00db | | Load_Top At_Offset_3
0465 8006 | | Call 0x0,0x6
0466 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0467 0000 | | .XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046d | m | .CONST 0x046d ; Address of begin
0469 0488 | | .CONST 0x0488 ; Address of exception handler
046a 0003 | | .CONST 0x0003 ; Number of locals
046b INIT_0468:
046b 00ec | | Load_Encached Diana_Tree_Cache
046c 039d | | Declare_Variable Heap_Access,Duplicate
046d BODY_0468:
046d e5ff | | Load 0x2,-0x1
046e 8021 | ! | Call 0x0,0x21
046f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0470 00d9 | | Load_Top At_Offset_1
0471 00eb | | Load_Encached Diana_Cache
0472 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0473 6803 |h | Jump_Zero 0x477
0474 00eb | | Load_Encached Diana_Cache
0475 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0476 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0477 00d9 | | Load_Top At_Offset_1
0478 e022 | " | Load 0x0,0x22
0479 1810 | | Execute Package,Field_Execute,Field_Number 0x10
047a 7003 |p | Jump_Nonzero 0x47e
047b e5fe | | Load 0x2,-0x2
047c 824e | N | Call 0x1,0x4e
047d 6804 |h | Jump_Zero 0x482
047e e023 | # | Load 0x0,0x23
047f e5ff | | Load 0x2,-0x1
0480 8241 | A | Call 0x1,0x41
0481 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0482 e5fe | | Load 0x2,-0x2
0483 e5ff | | Load 0x2,-0x1
0484 8241 | A | Call 0x1,0x41
0485 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0486 00d8 | | Load_Top At_Offset_0
0487 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0488 TRAP_0468:
0488 0007 | | Action Break_Optional
0489 00eb | | Load_Encached Diana_Cache
048a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
048b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
048c 0000 0000 | | .BLANK 0000[0x4]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 e5fc | | Load 0x2,-0x4
0494 e5fe | | Load 0x2,-0x2
0495 e5ff | | Load 0x2,-0x1
0496 824f | O | Call 0x1,0x4f
0497 0092 0704 | | Action Push_String_Extended,0x704 ; " "
0499 01cc | | Execute Vector,Catenate
049a e5fd | | Load 0x2,-0x3
049b 8250 | P | Call 0x1,0x50
049c 01cc | | Execute Vector,Catenate
049d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
049e 0000 0000 | | .XXX[0x2]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 00da | | Load_Top At_Offset_2
04a4 01db | | Execute Vector,Length
04a5 7003 |p | Jump_Nonzero 0x4a9
04a6 e024 | $ | Load 0x0,0x24
04a7 180d | | Execute Package,Field_Execute,Field_Number 0xd
04a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a9 00da | | Load_Top At_Offset_2
04aa 0335 | 5 | Declare_Variable Array,Duplicate
04ab 00cd | | Action Spare6_Action
04ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ad 0000 0000 | | .XXX[0x3]
04af 0000 | |
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b5 | | .CONST 0x04b5 ; Address of begin
04b1 04c5 | | .CONST 0x04c5 ; Address of exception handler
04b2 0002 | | .CONST 0x0002 ; Number of locals
04b3 INIT_04b0:
04b3 029f 06ab | | Declare_Subprogram INIT_06a8,For_Call
04b5 BODY_04b0:
04b5 00db | | Load_Top At_Offset_3
04b6 01db | | Execute Vector,Length
04b7 6804 |h | Jump_Zero 0x4bc
04b8 00db | | Load_Top At_Offset_3
04b9 0335 | 5 | Declare_Variable Array,Duplicate
04ba 00cd | | Action Spare6_Action
04bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04bc 8402 | | Call 0x2,0x2
04bd 0092 0704 | | Action Push_String_Extended,0x704 ; " "
04bf e025 | % | Load 0x0,0x25
04c0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
04c1 e5fe | | Load 0x2,-0x2
04c2 e026 | & | Load 0x0,0x26
04c3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04c5 TRAP_04b0:
04c5 0007 | | Action Break_Optional
04c6 00ea | | Load_Encached Null_String_Cache
04c7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 00da | | Load_Top At_Offset_2
04cc 01db | | Execute Vector,Length
04cd 7003 |p | Jump_Nonzero 0x4d1
04ce e024 | $ | Load 0x0,0x24
04cf 180f | | Execute Package,Field_Execute,Field_Number 0xf
04d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d1 00da | | Load_Top At_Offset_2
04d2 0335 | 5 | Declare_Variable Array,Duplicate
04d3 00cd | | Action Spare6_Action
04d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d5 0000 0000 | | .XXX[0x3]
04d7 0000 | |
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db | | .CONST 0x04db ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0001 | | .CONST 0x0001 ; Number of locals
04db BODY_04d8:
04db INIT_04d8:
04db 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04dc 0000 0000 | | .BLANK 0000[0x4]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04f9 | | .CONST 0x04f9 ; Address of begin
04e1 053e | > | .CONST 0x053e ; Address of exception handler
04e2 0006 | | .CONST 0x0006 ; Number of locals
04e3 INIT_04e0:
04e3 e009 | | Load 0x0,0x9
04e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e5 02c7 | | Declare_Variable Any
04e6 00d8 | | Load_Top At_Offset_0
04e7 1c00 | | Execute_Immediate Run_Utility,0x0
04e8 e027 | ' | Load 0x0,0x27
04e9 0322 | " | Declare_Variable Record
04ea 00d8 | | Load_Top At_Offset_0
04eb 1c00 | | Execute_Immediate Run_Utility,0x0
04ec e028 | ( | Load 0x0,0x28
04ed 02c7 | | Declare_Variable Any
04ee 00d8 | | Load_Top At_Offset_0
04ef 1c00 | | Execute_Immediate Run_Utility,0x0
04f0 4801 |H | Short_Literal 0x1
04f1 e029 | ) | Load 0x0,0x29
04f2 1c08 | | Execute_Immediate Run_Utility,0x8
04f3 00d8 | | Load_Top At_Offset_0
04f4 1c00 | | Execute_Immediate Run_Utility,0x0
04f5 e02a | * | Load 0x0,0x2a
04f6 02c7 | | Declare_Variable Any
04f7 8010 | | Call 0x0,0x10
04f8 a406 | | Store_Unchecked 0x2,0x6
04f9 BODY_04e0:
04f9 e402 | | Load 0x2,0x2
04fa e403 | | Load 0x2,0x3
04fb 4800 |H | Short_Literal 0x0
04fc 4800 |H | Short_Literal 0x0
04fd e01b | | Load 0x0,0x1b
04fe e5ff | | Load 0x2,-0x1
04ff e01c | | Load 0x0,0x1c
0500 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0501 00d1 | | Pop_Control Pop_Count_1
0502 c402 | | Store 0x2,0x2
0503 4802 |H | Short_Literal 0x2
0504 e402 | | Load 0x2,0x2
0505 e009 | | Load 0x0,0x9
0506 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0507 681d |h | Jump_Zero 0x525
0508 e5ff | | Load 0x2,-0x1
0509 01dd | | Execute Vector,First
050a e5ff | | Load 0x2,-0x1
050b 01d7 | | Execute Vector,Field_Read
050c e02b | + | Load 0x0,0x2b
050d 180f | | Execute Package,Field_Execute,Field_Number 0xf
050e 027f | | Execute Discrete,Equal
050f 6815 |h | Jump_Zero 0x525
0510 e402 | | Load 0x2,0x2
0511 e403 | | Load 0x2,0x3
0512 4800 |H | Short_Literal 0x0
0513 4800 |H | Short_Literal 0x0
0514 e01b | | Load 0x0,0x1b
0515 e5ff | | Load 0x2,-0x1
0516 01dd | | Execute Vector,First
0517 0a01 | | Execute_Immediate Plus,0x1
0518 00d8 | | Load_Top At_Offset_0
0519 00e2 | | Load_Encached Integer_Cache
051a 0260 | ` | Execute Discrete,In_Type
051b 7001 |p | Jump_Nonzero 0x51d
051c 0801 | | Execute_Immediate Raise,0x1
051d e5ff | | Load 0x2,-0x1
051e 01dc | | Execute Vector,Last
051f e5ff | | Load 0x2,-0x1
0520 01cf | | Execute Vector,Slice_Read
0521 e01c | | Load 0x0,0x1c
0522 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0523 00d1 | | Pop_Control Pop_Count_1
0524 c402 | | Store 0x2,0x2
0525 4802 |H | Short_Literal 0x2
0526 e402 | | Load 0x2,0x2
0527 e009 | | Load 0x0,0x9
0528 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0529 7012 |p | Jump_Nonzero 0x53c
052a e402 | | Load 0x2,0x2
052b 00d9 | | Load_Top At_Offset_1
052c 0120 | | Execute Any,Is_Value
052d 6802 |h | Jump_Zero 0x530
052e e02a | * | Load 0x0,0x2a
052f 7801 |x | Jump 0x531
0530 00d9 | | Load_Top At_Offset_1
0531 e403 | | Load 0x2,0x3
0532 802c | , | Call 0x0,0x2c
0533 c406 | | Store 0x2,0x6
0534 c402 | | Store 0x2,0x2
0535 4802 |H | Short_Literal 0x2
0536 e402 | | Load 0x2,0x2
0537 e009 | | Load 0x0,0x9
0538 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0539 7002 |p | Jump_Nonzero 0x53c
053a e402 | | Load 0x2,0x2
053b 8221 | ! | Call 0x1,0x21
053c 00d8 | | Load_Top At_Offset_0
053d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
053e TRAP_04e0:
053e 0007 | | Action Break_Optional
053f 8010 | | Call 0x0,0x10
0540 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0541 0000 0000 | | .BLANK 0000[0x7]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054f | O | .CONST 0x054f ; Address of begin
0549 056b | k | .CONST 0x056b ; Address of exception handler
054a 0002 | | .CONST 0x0002 ; Number of locals
054b INIT_0548:
054b e02a | * | Load 0x0,0x2a
054c 02c7 | | Declare_Variable Any
054d 00d8 | | Load_Top At_Offset_0
054e 1c00 | | Execute_Immediate Run_Utility,0x0
054f BODY_0548:
054f 00db | | Load_Top At_Offset_3
0550 802d | - | Call 0x0,0x2d
0551 c402 | | Store 0x2,0x2
0552 00d8 | | Load_Top At_Offset_0
0553 8232 | 2 | Call 0x1,0x32
0554 6802 |h | Jump_Zero 0x557
0555 00d8 | | Load_Top At_Offset_0
0556 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0557 e5fd | | Load 0x2,-0x3
0558 7010 |p | Jump_Nonzero 0x569
0559 00d8 | | Load_Top At_Offset_0
055a 8013 | | Call 0x0,0x13
055b 680d |h | Jump_Zero 0x569
055c 480a |H | Short_Literal 0xa
055d 0092 0705 | | Action Push_String_Extended,0x705 ; "Warning: Task "
055f 00da | | Load_Top At_Offset_2
0560 800b | | Call 0x0,0xb
0561 01cc | | Execute Vector,Catenate
0562 0092 0706 | | Action Push_String_Extended,0x706 ; " is not part of the program being debugged."
0564 01cc | | Execute Vector,Catenate
0565 01cb | | Execute Vector,Append
0566 821c | | Call 0x1,0x1c
0567 00d8 | | Load_Top At_Offset_0
0568 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0569 8010 | | Call 0x0,0x10
056a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
056b TRAP_0548:
056b 0007 | | Action Break_Optional
056c e5fe | | Load 0x2,-0x2
056d 6804 |h | Jump_Zero 0x572
056e e5ff | | Load 0x2,-0x1
056f 8249 | I | Call 0x1,0x49
0570 c402 | | Store 0x2,0x2
0571 7802 |x | Jump 0x574
0572 8010 | | Call 0x0,0x10
0573 c402 | | Store 0x2,0x2
0574 00d9 | | Load_Top At_Offset_1
0575 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0576 0000 0000 | | .XXX[0x2]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057f | | .CONST 0x057f ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0002 | | .CONST 0x0002 ; Number of locals
057b INIT_0578:
057b e02a | * | Load 0x0,0x2a
057c 02c7 | | Declare_Variable Any
057d 00d8 | | Load_Top At_Offset_0
057e 1c00 | | Execute_Immediate Run_Utility,0x0
057f BODY_0578:
057f 00db | | Load_Top At_Offset_3
0580 01db | | Execute Vector,Length
0581 680c |h | Jump_Zero 0x58e
0582 00db | | Load_Top At_Offset_3
0583 0092 0707 | | Action Push_String_Extended,0x707 ; "*"
0585 01df | | Execute Vector,Equal
0586 7007 |p | Jump_Nonzero 0x58e
0587 4801 |H | Short_Literal 0x1
0588 0092 0708 | | Action Push_String_Extended,0x708 ; "all"
058a e5ff | | Load 0x2,-0x1
058b e00d | | Load 0x0,0xd
058c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
058d 6802 |h | Jump_Zero 0x590
058e 8010 | | Call 0x0,0x10
058f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0590 00db | | Load_Top At_Offset_3
0591 01dd | | Execute Vector,First
0592 e5ff | | Load 0x2,-0x1
0593 01d7 | | Execute Vector,Field_Read
0594 e02b | + | Load 0x0,0x2b
0595 180f | | Execute Package,Field_Execute,Field_Number 0xf
0596 027f | | Execute Discrete,Equal
0597 6817 |h | Jump_Zero 0x5af
0598 00db | | Load_Top At_Offset_3
0599 01dd | | Execute Vector,First
059a 0a01 | | Execute_Immediate Plus,0x1
059b 00d8 | | Load_Top At_Offset_0
059c 00e2 | | Load_Encached Integer_Cache
059d 0260 | ` | Execute Discrete,In_Type
059e 7001 |p | Jump_Nonzero 0x5a0
059f 0801 | | Execute_Immediate Raise,0x1
05a0 e5ff | | Load 0x2,-0x1
05a1 01dc | | Execute Vector,Last
05a2 e5ff | | Load 0x2,-0x1
05a3 01cf | | Execute Vector,Slice_Read
05a4 802e | . | Call 0x0,0x2e
05a5 c402 | | Store 0x2,0x2
05a6 00d8 | | Load_Top At_Offset_0
05a7 800e | | Call 0x0,0xe
05a8 6815 |h | Jump_Zero 0x5be
05a9 e5fe | | Load 0x2,-0x2
05aa e5fd | | Load 0x2,-0x3
05ab e5ff | | Load 0x2,-0x1
05ac 824a | J | Call 0x1,0x4a
05ad c402 | | Store 0x2,0x2
05ae 780f |x | Jump 0x5be
05af e5fe | | Load 0x2,-0x2
05b0 e5fd | | Load 0x2,-0x3
05b1 e5ff | | Load 0x2,-0x1
05b2 824a | J | Call 0x1,0x4a
05b3 c402 | | Store 0x2,0x2
05b4 00d8 | | Load_Top At_Offset_0
05b5 800e | | Call 0x0,0xe
05b6 6807 |h | Jump_Zero 0x5be
05b7 00db | | Load_Top At_Offset_3
05b8 e02f | / | Load 0x0,0x2f
05b9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05ba 6803 |h | Jump_Zero 0x5be
05bb 00db | | Load_Top At_Offset_3
05bc 802e | . | Call 0x0,0x2e
05bd c402 | | Store 0x2,0x2
05be 00d8 | | Load_Top At_Offset_0
05bf 800e | | Call 0x0,0xe
05c0 6802 |h | Jump_Zero 0x5c3
05c1 e247 | G | Load 0x1,0x47
05c2 0257 | W | Execute Discrete,Raise
05c3 00d8 | | Load_Top At_Offset_0
05c4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
05c5 0000 0000 | | .XXX[0x3]
05c7 0000 | |
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb | | .CONST 0x05cb ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0001 | | .CONST 0x0001 ; Number of locals
05cb BODY_05c8:
05cb INIT_05c8:
05cb 00da | | Load_Top At_Offset_2
05cc 4613 |F | Jump_Case 0x14
05cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0
05ce 7818 |x | Jump 0x5e7 ; case 0x1
05cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2
05d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3
05d1 7810 |x | Jump 0x5e2 ; case 0x4
05d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5
05d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6
05d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7
05d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8
05d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9
05d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xa
05d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xb
05d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xc
05da 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xd
05db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xe
05dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xf
05dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x10
05de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x11
05df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x12
05e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x13
05e1 4502 |E | .XXX[0x1]
05e2 00db | | Load_Top At_Offset_3
05e3 8030 | 0 | Call 0x0,0x30
05e4 8031 | 1 | Call 0x0,0x31
05e5 c5fe | | Store 0x2,-0x2
05e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05e7 00db | | Load_Top At_Offset_3
05e8 8032 | 2 | Call 0x0,0x32
05e9 8031 | 1 | Call 0x0,0x31
05ea c5fe | | Store 0x2,-0x2
05eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05ec 0000 0000 | | .BLANK 0000[0x4]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 00da | | Load_Top At_Offset_2
05f4 4613 |F | Jump_Case 0x14
05f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0
05f6 7818 |x | Jump 0x60f ; case 0x1
05f7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2
05f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3
05f9 7810 |x | Jump 0x60a ; case 0x4
05fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5
05fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6
05fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7
05fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8
05fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9
05ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xa
0600 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xb
0601 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xc
0602 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xd
0603 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xe
0604 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xf
0605 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x10
0606 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x11
0607 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x12
0608 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x13
0609 4502 |E | .XXX[0x1]
060a 00db | | Load_Top At_Offset_3
060b 4805 |H | Short_Literal 0x5
060c 8033 | 3 | Call 0x0,0x33
060d c5fe | | Store 0x2,-0x2
060e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
060f 00db | | Load_Top At_Offset_3
0610 4804 |H | Short_Literal 0x4
0611 8033 | 3 | Call 0x0,0x33
0612 c5fe | | Store 0x2,-0x2
0613 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0614 0000 0000 | | .BLANK 0000[0x4]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b | | .CONST 0x061b ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0001 | | .CONST 0x0001 ; Number of locals
061b BODY_0618:
061b INIT_0618:
061b 00da | | Load_Top At_Offset_2
061c 8034 | 4 | Call 0x0,0x34
061d 6804 |h | Jump_Zero 0x622
061e 00da | | Load_Top At_Offset_2
061f 8035 | 5 | Call 0x0,0x35
0620 012f | / | Execute Any,Equal
0621 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0622 4800 |H | Short_Literal 0x0
0623 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0624 0000 0000 | | .BLANK 0000[0x4]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062d | - | .CONST 0x062d ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0002 | | .CONST 0x0002 ; Number of locals
062b INIT_0628:
062b e036 | 6 | Load 0x0,0x36
062c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
062d BODY_0628:
062d e5fe | | Load 0x2,-0x2
062e 8037 | 7 | Call 0x0,0x37
062f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0630 00d8 | | Load_Top At_Offset_0
0631 0f0d | | Execute_Immediate Equal,0xd
0632 7017 |p | Jump_Nonzero 0x64a
0633 e5fd | | Load 0x2,-0x3
0634 6806 |h | Jump_Zero 0x63b
0635 0092 0709 | | Action Push_String_Extended,0x709 ; "for "
0637 e5ff | | Load 0x2,-0x1
0638 823e | > | Call 0x1,0x3e
0639 01cc | | Execute Vector,Catenate
063a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
063b 00d8 | | Load_Top At_Offset_0
063c 0f07 | | Execute_Immediate Equal,0x7
063d 7006 |p | Jump_Nonzero 0x644
063e 0092 070a | | Action Push_String_Extended,0x70a ; "in "
0640 e5ff | | Load 0x2,-0x1
0641 823e | > | Call 0x1,0x3e
0642 01cc | | Execute Vector,Catenate
0643 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0644 0092 070b | | Action Push_String_Extended,0x70b ; "at "
0646 e5ff | | Load 0x2,-0x1
0647 823e | > | Call 0x1,0x3e
0648 01cc | | Execute Vector,Catenate
0649 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
064a e5fd | | Load 0x2,-0x3
064b 6803 |h | Jump_Zero 0x64f
064c 0092 070c | | Action Push_String_Extended,0x70c ; "for all locations"
064e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
064f 0092 070d | | Action Push_String_Extended,0x70d ; "in any location"
0651 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0652 0000 0000 | | .BLANK 0000[0x6]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b 00da | | Load_Top At_Offset_2
065c 800e | | Call 0x0,0xe
065d 6803 |h | Jump_Zero 0x661
065e 0092 070e | | Action Push_String_Extended,0x70e ; "in all tasks"
0660 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0661 0092 070f | | Action Push_String_Extended,0x70f ; "in task "
0663 00db | | Load_Top At_Offset_3
0664 8223 | # | Call 0x1,0x23
0665 01cc | | Execute Vector,Catenate
0666 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0667 0000 | | .XXX[0x1]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 067e | ~ | .CONST 0x067e ; Address of begin
0669 069c | | .CONST 0x069c ; Address of exception handler
066a 0005 | | .CONST 0x0005 ; Number of locals
066b INIT_0668:
066b e038 | 8 | Load 0x0,0x38
066c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
066d 02ff | | Declare_Variable Variant_Record
066e 00d8 | | Load_Top At_Offset_0
066f 1c00 | | Execute_Immediate Run_Utility,0x0
0670 e039 | 9 | Load 0x0,0x39
0671 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0672 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0673 02c7 | | Declare_Variable Any
0674 00d8 | | Load_Top At_Offset_0
0675 1c00 | | Execute_Immediate Run_Utility,0x0
0676 e039 | 9 | Load 0x0,0x39
0677 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0678 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0679 02c7 | | Declare_Variable Any
067a 00d8 | | Load_Top At_Offset_0
067b 1c00 | | Execute_Immediate Run_Utility,0x0
067c e03a | : | Load 0x0,0x3a
067d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
067e BODY_0668:
067e 4801 |H | Short_Literal 0x1
067f e039 | 9 | Load 0x0,0x39
0680 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0681 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0682 0092 0710 | | Action Push_String_Extended,0x710 ; "$"
0684 e039 | 9 | Load 0x0,0x39
0685 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0686 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0687 c404 | | Store 0x2,0x4
0688 00d9 | | Load_Top At_Offset_1
0689 e039 | 9 | Load 0x0,0x39
068a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
068b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
068c c403 | | Store 0x2,0x3
068d e03a | : | Load 0x0,0x3a
068e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
068f e402 | | Load 0x2,0x2
0690 600f |` | Indirect_Literal Discrete,0x6a0,{0x00000000, 0x00004000}
0691 e03b | ; | Load 0x0,0x3b
0692 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0693 e403 | | Load 0x2,0x3
0694 e039 | 9 | Load 0x0,0x39
0695 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0696 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0697 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0698 00d1 | | Pop_Control Pop_Count_1
0699 0059 | Y | Store_Top Discrete,At_Offset_1
069a 00db | | Load_Top At_Offset_3
069b 00ca | | Action Exit_Nullary_Function
069c TRAP_0668:
069c 0007 | | Action Break_Optional
069d e402 | | Load 0x2,0x2
069e 00ca | | Action Exit_Nullary_Function
069f 0000 | | .XXX[0x1]
06a0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
06a4 0000 0000 | | .BLANK 0000[0x4]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ba | | .CONST 0x06ba ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0005 | | .CONST 0x0005 ; Number of locals
06ab INIT_06a8:
06ab e038 | 8 | Load 0x0,0x38
06ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06ad 02ff | | Declare_Variable Variant_Record
06ae 8251 | Q | Call 0x1,0x51
06af 00d9 | | Load_Top At_Offset_1
06b0 016d | m | Execute Variant_Record,Structure_Write
06b1 e038 | 8 | Load 0x0,0x38
06b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06b3 02c7 | | Declare_Variable Any
06b4 00d8 | | Load_Top At_Offset_0
06b5 1c00 | | Execute_Immediate Run_Utility,0x0
06b6 e03a | : | Load 0x0,0x3a
06b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06b8 029f 06e3 | | Declare_Subprogram INIT_06e0,For_Call
06ba BODY_06a8:
06ba 00be | | Action Activate_Tasks
06bb e03c | < | Load 0x0,0x3c
06bc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
06bd e602 | | Load 0x3,0x2
06be e603 | | Load 0x3,0x3
06bf 4801 |H | Short_Literal 0x1
06c0 67df |g | Indirect_Literal Discrete,0x6a0,{0x00000000, 0x00004000}
06c1 e03b | ; | Load 0x0,0x3b
06c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06c3 4800 |H | Short_Literal 0x0
06c4 e03c | < | Load 0x0,0x3c
06c5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
06c6 c603 | | Store 0x3,0x3
06c7 00d1 | | Pop_Control Pop_Count_1
06c8 005a | Z | Store_Top Discrete,At_Offset_2
06c9 0092 0711 | | Action Push_String_Extended,0x711 ; "Ftp.Username"
06cb 00db | | Load_Top At_Offset_3
06cc e038 | 8 | Load 0x0,0x38
06cd 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
06ce 6802 |h | Jump_Zero 0x6d1
06cf 8605 | | Call 0x3,0x5
06d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06d1 e03c | < | Load 0x0,0x3c
06d2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
06d3 00db | | Load_Top At_Offset_3
06d4 e03c | < | Load 0x0,0x3c
06d5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
06d6 c603 | | Store 0x3,0x3
06d7 005a | Z | Store_Top Discrete,At_Offset_2
06d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06d9 0000 0000 | | .BLANK 0000[0x7]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e8 | | .CONST 0x06e8 ; Address of begin
06e1 0004 | | .CONST 0x0004 ; Address of exception handler
06e2 0002 | | .CONST 0x0002 ; Number of locals
06e3 INIT_06e0:
06e3 0092 0711 | | Action Push_String_Extended,0x711 ; "Ftp.Username"
06e5 e603 | | Load 0x3,0x3
06e6 e038 | 8 | Load 0x0,0x38
06e7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
06e8 BODY_06e0:
06e8 e03c | < | Load 0x0,0x3c
06e9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
06ea e603 | | Load 0x3,0x3
06eb e03c | < | Load 0x0,0x3c
06ec 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
06ed c603 | | Store 0x3,0x3
06ee c604 | | Store 0x3,0x4
06ef 00d8 | | Load_Top At_Offset_0
06f0 01db | | Execute Vector,Length
06f1 6804 |h | Jump_Zero 0x6f6
06f2 00d8 | | Load_Top At_Offset_0
06f3 00cb | | Action Pop_Block_With_Result
06f4 00cb | | Action Pop_Block_With_Result
06f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06f7 ; --------------------------------------------------------------------------------------
06f7 ; STRING TABLE
06f7 ; --------------------------------------------------------------------------------------
06f7 0038 | 8 | .STRTAB 0x0038->0x0713 ; "REPORT"
06f8 003c | < | .STRTAB 0x003c->0x0716 ; "DONT_REPORT"
06f9 0045 | E | .STRTAB 0x0045->0x071b ; "Flag_Errors"
06fa 004e | N | .STRTAB 0x004e->0x0721 ; "*** "
06fb 0050 | P | .STRTAB 0x0050->0x0723 ; "The command "
06fc 005a | Z | .STRTAB 0x005a->0x0729 ; " is unimplemented."
06fd 006a | j | .STRTAB 0x006a->0x0732 ; "No_Task_Numbers"
06fe 0077 | w | .STRTAB 0x0077->0x0739 ; "xxxxx"
06ff 007a | z | .STRTAB 0x007a->0x073c ; ", "
0700 007a | z | .STRTAB 0x007a->0x073d ; "Invalid task name parameter: "
0701 0095 | | .STRTAB 0x0095->0x074b ; "Task does not exist"
0702 00a6 | | .STRTAB 0x00a6->0x0755 ; "(task "
0703 00aa | | .STRTAB 0x00aa->0x0758 ; ") "
0704 00aa | | .STRTAB 0x00aa->0x0759 ; " "
0705 00a9 | | .STRTAB 0x00a9->0x0759 ; "Warning: Task "
0706 00b5 | | .STRTAB 0x00b5->0x0760 ; " is not part of the program being debugged."
0707 00de | | .STRTAB 0x00de->0x0776 ; "*"
0708 00dd | | .STRTAB 0x00dd->0x0776 ; "all"
0709 00de | | .STRTAB 0x00de->0x0778 ; "for "
070a 00e0 | | .STRTAB 0x00e0->0x077a ; "in "
070b 00e1 | | .STRTAB 0x00e1->0x077b ; "at "
070c 00e2 | | .STRTAB 0x00e2->0x077d ; "for all locations"
070d 00f1 | | .STRTAB 0x00f1->0x0785 ; "in any location"
070e 00fe | | .STRTAB 0x00fe->0x078d ; "in all tasks"
070f 0108 | | .STRTAB 0x0108->0x0793 ; "in task "
0710 010e | | .STRTAB 0x010e->0x0797 ; "$"
0711 010d | | .STRTAB 0x010d->0x0797 ; "Ftp.Username"
0712 0117 | | .STREND 0x0117->0x079d
0713 5245 504f |REPO| .STRTAB_STRINGS
079e 0000 0000 | | .XXX[0x2]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; Debug Table
07a0 ; --------------------------------------------------------------------------------------
07a0 0004 000d | | .DEBUG4 0x0004,0x000d,0x7295,0x0000,0x0001,0x0000
07a6 0000 0000 | | .BLANK 0000[0x5a]