|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0500 | | .CONST 0x0500 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0124 | $ | .CONST 0x0124 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0049 | I | .CONST 0x0049 ; Number of locals 000b INIT_0008: 000b 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 000d 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 000f 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 00c4 | | Action Make_Default 0043 00c4 | | Action Make_Default 0044 00c4 | | Action Make_Default 0045 00c4 | | Action Make_Default 0046 00c4 | | Action Make_Default 0047 00c4 | | Action Make_Default 0048 00c4 | | Action Make_Default 0049 00c4 | | Action Make_Default 004a 00c4 | | Action Make_Default 004b 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 004d c22a | * | Store 0x1,0x2a 004e 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0050 c211 | | Store 0x1,0x11 0051 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0053 c22b | + | Store 0x1,0x2b 0054 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0056 c213 | | Store 0x1,0x13 0057 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0059 c214 | | Store 0x1,0x14 005a 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 005c c215 | | Store 0x1,0x15 005d 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 005f c216 | | Store 0x1,0x16 0060 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0062 c217 | | Store 0x1,0x17 0063 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0065 c218 | | Store 0x1,0x18 0066 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0068 c219 | | Store 0x1,0x19 0069 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 006b c21a | | Store 0x1,0x1a 006c 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 006e c21b | | Store 0x1,0x1b 006f 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0071 c21c | | Store 0x1,0x1c 0072 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0074 c21d | | Store 0x1,0x1d 0075 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0077 c21e | | Store 0x1,0x1e 0078 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 007a c21f | | Store 0x1,0x1f 007b 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 007d c220 | | Store 0x1,0x20 007e 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0080 c221 | ! | Store 0x1,0x21 0081 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0083 c222 | " | Store 0x1,0x22 0084 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0086 c223 | # | Store 0x1,0x23 0087 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0089 c224 | $ | Store 0x1,0x24 008a 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 008c c225 | % | Store 0x1,0x25 008d 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 008f c226 | & | Store 0x1,0x26 0090 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0092 c227 | ' | Store 0x1,0x27 0093 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0095 c228 | ( | Store 0x1,0x28 0096 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0098 c229 | ) | Store 0x1,0x29 0099 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 009b c22c | , | Store 0x1,0x2c 009c 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 009e c22e | . | Store 0x1,0x2e 009f 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 00a1 c249 | I | Store 0x1,0x49 00a2 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 00a4 c230 | 0 | Store 0x1,0x30 00a5 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 00a7 c231 | 1 | Store 0x1,0x31 00a8 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 00aa c232 | 2 | Store 0x1,0x32 00ab 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 00ad c234 | 4 | Store 0x1,0x34 00ae 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 00b0 c236 | 6 | Store 0x1,0x36 00b1 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 00b3 c238 | 8 | Store 0x1,0x38 00b4 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated 00b6 c23a | : | Store 0x1,0x3a 00b7 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 00b9 c23d | = | Store 0x1,0x3d 00ba 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 00bc c23f | ? | Store 0x1,0x3f 00bd 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated 00bf c241 | A | Store 0x1,0x41 00c0 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 00c2 c243 | C | Store 0x1,0x43 00c3 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 00c5 c245 | E | Store 0x1,0x45 00c6 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated 00c8 c247 | G | Store 0x1,0x47 00c9 00bf | | Action Accept_Activation 00ca 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00dd 00c7 | | Action Elaborate_Subprogram 00de 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00e3 00c7 | | Action Elaborate_Subprogram 00e4 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00e5 00c7 | | Action Elaborate_Subprogram 00e6 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00e9 00c7 | | Action Elaborate_Subprogram 00ea 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00eb 00c7 | | Action Elaborate_Subprogram 00ec 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00ed 00c7 | | Action Elaborate_Subprogram 00ee 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00ef 00c7 | | Action Elaborate_Subprogram 00f0 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00f1 00c7 | | Action Elaborate_Subprogram 00f2 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00f3 00c7 | | Action Elaborate_Subprogram 00f4 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00f5 00c7 | | Action Elaborate_Subprogram 00f6 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00f7 00c7 | | Action Elaborate_Subprogram 00f8 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00f9 00c7 | | Action Elaborate_Subprogram 00fa 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00fb 00c7 | | Action Elaborate_Subprogram 00fc 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00fd 00c7 | | Action Elaborate_Subprogram 00fe 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00ff 00c7 | | Action Elaborate_Subprogram 0100 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0101 00c7 | | Action Elaborate_Subprogram 0102 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0103 00c7 | | Action Elaborate_Subprogram 0104 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0105 00c7 | | Action Elaborate_Subprogram 0106 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0107 00c7 | | Action Elaborate_Subprogram 0108 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 0109 00c7 | | Action Elaborate_Subprogram 010a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 010b 00c7 | | Action Elaborate_Subprogram 010c 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 010d 00c7 | | Action Elaborate_Subprogram 010e 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 010f 00c7 | | Action Elaborate_Subprogram 0110 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 0111 00c7 | | Action Elaborate_Subprogram 0112 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 0113 00c7 | | Action Elaborate_Subprogram 0114 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 0115 00c7 | | Action Elaborate_Subprogram 0116 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 0117 00c7 | | Action Elaborate_Subprogram 0118 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 0119 00c7 | | Action Elaborate_Subprogram 011a 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 011b 00c7 | | Action Elaborate_Subprogram 011c 1d41 | A | Execute_Immediate Reference_Lex_1,0x41 011d 00c7 | | Action Elaborate_Subprogram 011e 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 011f 00c7 | | Action Elaborate_Subprogram 0120 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 0121 00c7 | | Action Elaborate_Subprogram 0122 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 0123 00c7 | | Action Elaborate_Subprogram 0124 BODY_0008: 0124 00bc | | Action Signal_Activated 0125 00bb | | Action Signal_Completion 0126 0000 0000 | | .XXX[0x2] 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 00ea | | Load_Encached Null_String_Cache 012c 00ea | | Load_Encached Null_String_Cache 012d 00ea | | Load_Encached Null_String_Cache 012e 00ea | | Load_Encached Null_String_Cache 012f 00ea | | Load_Encached Null_String_Cache 0130 00ea | | Load_Encached Null_String_Cache 0131 00ea | | Load_Encached Null_String_Cache 0132 0092 042c | ,| Action Push_String_Extended,0x42c ; "<Cursor>" 0134 e001 | | Load 0x0,0x1 0135 180e | | Execute Package,Field_Execute,Field_Number 0xe 0136 4bee |K | Short_Literal 0x3ee 0137 4825 |H% | Short_Literal 0x25 0138 e002 | | Load 0x0,0x2 0139 1818 | | Execute Package,Field_Execute,Field_Number 0x18 013a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 013b 0000 0000 | | .BLANK 0000[0x5] 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 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014c 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 0154 e003 | | Load 0x0,0x3 0155 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0156 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0157 0000 | | .XXX[0x1] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 015c 0000 0000 | | .BLANK 0000[0x4] 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 00db | | Load_Top At_Offset_3 0164 00db | | Load_Top At_Offset_3 0165 e003 | | Load 0x0,0x3 0166 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0167 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 4800 |H | Short_Literal 0x0 016c e003 | | Load 0x0,0x3 016d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 016e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 016f 0000 | | .XXX[0x1] 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 4801 |H | Short_Literal 0x1 0174 e003 | | Load 0x0,0x3 0175 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0176 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0177 0000 | | .XXX[0x1] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 4803 |H | Short_Literal 0x3 017c e003 | | Load 0x0,0x3 017d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 017e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 017f 0000 | | .XXX[0x1] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 4809 |H | Short_Literal 0x9 0184 e003 | | Load 0x0,0x3 0185 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0186 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0187 0000 | | .XXX[0x1] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 4808 |H | Short_Literal 0x8 018c e003 | | Load 0x0,0x3 018d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 018e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 480a |H | Short_Literal 0xa 0194 e003 | | Load 0x0,0x3 0195 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0196 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0197 0000 | | .XXX[0x1] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 4805 |H | Short_Literal 0x5 019c e003 | | Load 0x0,0x3 019d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 019e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019f 0000 | | .XXX[0x1] 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 00ea | | Load_Encached Null_String_Cache 01a4 00ea | | Load_Encached Null_String_Cache 01a5 0092 042d | -| Action Push_String_Extended,0x42d ; "Set Debugger Control Context to:" 01a7 0092 042e | .| Action Push_String_Extended,0x42e ; "all" 01a9 0092 042f | /| Action Push_String_Extended,0x42f ; "Debugger Control Context" 01ab 4bf1 |K | Short_Literal 0x3f1 01ac e002 | | Load 0x0,0x2 01ad 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01af 0000 | | .XXX[0x1] 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 4801 |H | Short_Literal 0x1 01b4 0092 042e | .| Action Push_String_Extended,0x42e ; "all" 01b6 4820 |H | Short_Literal 0x20 01b7 4820 |H | Short_Literal 0x20 01b8 e5ff | | Load 0x2,-0x1 01b9 e004 | | Load 0x0,0x4 01ba 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01bb e004 | | Load 0x0,0x4 01bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01bd e004 | | Load 0x0,0x4 01be 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01bf 6806 |h | Jump_Zero 0x1c6 01c0 4800 |H | Short_Literal 0x0 01c1 00ea | | Load_Encached Null_String_Cache 01c2 4800 |H | Short_Literal 0x0 01c3 e003 | | Load 0x0,0x3 01c4 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c6 4800 |H | Short_Literal 0x0 01c7 00db | | Load_Top At_Offset_3 01c8 4800 |H | Short_Literal 0x0 01c9 e003 | | Load 0x0,0x3 01ca 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01cc 0000 0000 | | .BLANK 0000[0x4] 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 00ea | | Load_Encached Null_String_Cache 01d4 00ea | | Load_Encached Null_String_Cache 01d5 0092 0430 | 0| Action Push_String_Extended,0x430 ; "Set Debugger Evaluation Context to:" 01d7 0092 042c | ,| Action Push_String_Extended,0x42c ; "<Cursor>" 01d9 e005 | | Load 0x0,0x5 01da 180f | | Execute Package,Field_Execute,Field_Number 0xf 01db 0092 0431 | 1| Action Push_String_Extended,0x431 ; "Debugger Evaluation Context" 01dd 4bfb |K | Short_Literal 0x3fb 01de e002 | | Load 0x0,0x2 01df 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ec 0000 0000 | | .BLANK 0000[0x4] 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 4800 |H | Short_Literal 0x0 01f4 00ea | | Load_Encached Null_String_Cache 01f5 e003 | | Load 0x0,0x3 01f6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00ea | | Load_Encached Null_String_Cache 01fc 4800 |H | Short_Literal 0x0 01fd e003 | | Load 0x0,0x3 01fe 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 01ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00ea | | Load_Encached Null_String_Cache 0204 4801 |H | Short_Literal 0x1 0205 e003 | | Load 0x0,0x3 0206 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0207 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 00ea | | Load_Encached Null_String_Cache 020c 4802 |H | Short_Literal 0x2 020d e003 | | Load 0x0,0x3 020e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 020f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 4800 |H | Short_Literal 0x0 0214 0092 0432 | 2| Action Push_String_Extended,0x432 ; "<SELECTION>" 0216 e003 | | Load 0x0,0x3 0217 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0218 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 4800 |H | Short_Literal 0x0 0224 00ea | | Load_Encached Null_String_Cache 0225 e003 | | Load 0x0,0x3 0226 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0227 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 4800 |H | Short_Literal 0x0 022c 4800 |H | Short_Literal 0x0 022d 00ea | | Load_Encached Null_String_Cache 022e e003 | | Load 0x0,0x3 022f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0230 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 4800 |H | Short_Literal 0x0 023c 00ea | | Load_Encached Null_String_Cache 023d e003 | | Load 0x0,0x3 023e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 023f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00ea | | Load_Encached Null_String_Cache 0244 00ea | | Load_Encached Null_String_Cache 0245 00ea | | Load_Encached Null_String_Cache 0246 00ea | | Load_Encached Null_String_Cache 0247 00ea | | Load_Encached Null_String_Cache 0248 00ea | | Load_Encached Null_String_Cache 0249 00ea | | Load_Encached Null_String_Cache 024a 0092 0433 | 3| Action Push_String_Extended,0x433 ; "<cursor>" 024c e005 | | Load 0x0,0x5 024d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 024e 4bf9 |K | Short_Literal 0x3f9 024f 4828 |H( | Short_Literal 0x28 0250 e002 | | Load 0x0,0x2 0251 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0252 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0253 0000 0000 | | .BLANK 0000[0x5] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 4800 |H | Short_Literal 0x0 025c 00db | | Load_Top At_Offset_3 025d e5fe | | Load 0x2,-0x2 025e e003 | | Load 0x0,0x3 025f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0260 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0261 0000 0000 | | .BLANK 0000[0x7] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 00ea | | Load_Encached Null_String_Cache 026c 00ea | | Load_Encached Null_String_Cache 026d 00ea | | Load_Encached Null_String_Cache 026e 00ea | | Load_Encached Null_String_Cache 026f 00ea | | Load_Encached Null_String_Cache 0270 00ea | | Load_Encached Null_String_Cache 0271 00ea | | Load_Encached Null_String_Cache 0272 00ea | | Load_Encached Null_String_Cache 0273 4bfa |K | Short_Literal 0x3fa 0274 4829 |H) | Short_Literal 0x29 0275 e002 | | Load 0x0,0x2 0276 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0277 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00db | | Load_Top At_Offset_3 027c 7004 |p | Jump_Nonzero 0x281 027d 00da | | Load_Top At_Offset_2 027e e003 | | Load 0x0,0x3 027f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0280 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0281 00db | | Load_Top At_Offset_3 0282 00db | | Load_Top At_Offset_3 0283 e003 | | Load 0x0,0x3 0284 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0285 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0286 0000 0000 | | .XXX[0x2] 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 00ea | | Load_Encached Null_String_Cache 028c 00ea | | Load_Encached Null_String_Cache 028d 00ea | | Load_Encached Null_String_Cache 028e 00ea | | Load_Encached Null_String_Cache 028f 00ea | | Load_Encached Null_String_Cache 0290 00ea | | Load_Encached Null_String_Cache 0291 00ea | | Load_Encached Null_String_Cache 0292 0092 0433 | 3| Action Push_String_Extended,0x433 ; "<cursor>" 0294 e005 | | Load 0x0,0x5 0295 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0296 4bef |K | Short_Literal 0x3ef 0297 4826 |H& | Short_Literal 0x26 0298 e002 | | Load 0x0,0x2 0299 1818 | | Execute Package,Field_Execute,Field_Number 0x18 029a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 029b 0000 0000 | | .BLANK 0000[0x5] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 00ea | | Load_Encached Null_String_Cache 02a4 00ea | | Load_Encached Null_String_Cache 02a5 00ea | | Load_Encached Null_String_Cache 02a6 00ea | | Load_Encached Null_String_Cache 02a7 00ea | | Load_Encached Null_String_Cache 02a8 00ea | | Load_Encached Null_String_Cache 02a9 00ea | | Load_Encached Null_String_Cache 02aa 0092 0433 | 3| Action Push_String_Extended,0x433 ; "<cursor>" 02ac e005 | | Load 0x0,0x5 02ad 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02ae 4bf4 |K | Short_Literal 0x3f4 02af 484e |HN | Short_Literal 0x4e 02b0 e002 | | Load 0x0,0x2 02b1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b3 0000 0000 | | .BLANK 0000[0x5] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb e5fa | | Load 0x2,-0x6 02bc 6803 |h | Jump_Zero 0x2c0 02bd e5f9 | | Load 0x2,-0x7 02be e003 | | Load 0x0,0x3 02bf 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 02c0 e5fb | | Load 0x2,-0x5 02c1 00e2 | | Load_Encached Integer_Cache 02c2 00e0 | | Load_Encached Standard_Cache 02c3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02c4 e5fc | | Load 0x2,-0x4 02c5 e5fd | | Load 0x2,-0x3 02c6 e5fe | | Load 0x2,-0x2 02c7 00e2 | | Load_Encached Integer_Cache 02c8 00e0 | | Load_Encached Standard_Cache 02c9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02ca 00d8 | | Load_Top At_Offset_0 02cb e003 | | Load 0x0,0x3 02cc 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 02cd 0260 | ` | Execute Discrete,In_Type 02ce 7001 |p | Jump_Nonzero 0x2d0 02cf 0801 | | Execute_Immediate Raise,0x1 02d0 e5ff | | Load 0x2,-0x1 02d1 e003 | | Load 0x0,0x3 02d2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02d3 4508 |E | Exit_Suprogram New_Top_Offset 0x8 02d4 0000 0000 | | .BLANK 0000[0x4] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 00ea | | Load_Encached Null_String_Cache 02dc 00ea | | Load_Encached Null_String_Cache 02dd 00ea | | Load_Encached Null_String_Cache 02de 00ea | | Load_Encached Null_String_Cache 02df 00ea | | Load_Encached Null_String_Cache 02e0 00ea | | Load_Encached Null_String_Cache 02e1 00ea | | Load_Encached Null_String_Cache 02e2 e5ff | | Load 0x2,-0x1 02e3 4bf6 |K | Short_Literal 0x3f6 02e4 484f |HO | Short_Literal 0x4f 02e5 e002 | | Load 0x0,0x2 02e6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 4801 |H | Short_Literal 0x1 02ec 00db | | Load_Top At_Offset_3 02ed 01d7 | | Execute Vector,Field_Read 02ee 00d8 | | Load_Top At_Offset_0 02ef 0d63 | c | Execute_Immediate Less,0x63 02f0 701f |p | Jump_Nonzero 0x310 02f1 0a9d | | Execute_Immediate Plus,-0x63 02f2 461c |F | Jump_Case 0x1d 02f3 782a |x* | Jump 0x31e ; case 0x0 02f4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x1 02f5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x2 02f6 7821 |x! | Jump 0x318 ; case 0x3 02f7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x4 02f8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x5 02f9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x6 02fa 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x7 02fb 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x8 02fc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x9 02fd 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0xa 02fe 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0xb 02ff 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0xc 0300 7811 |x | Jump 0x312 ; case 0xd 0301 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0xe 0302 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0xf 0303 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x10 0304 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x11 0305 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x12 0306 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x13 0307 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x14 0308 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x15 0309 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x16 030a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x17 030b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x18 030c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x19 030d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x1a 030e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x1b 030f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x1c 0310 00d1 | | Pop_Control Pop_Count_1 0311 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0312 e5fc | | Load 0x2,-0x4 0313 e5fd | | Load 0x2,-0x3 0314 e5fe | | Load 0x2,-0x2 0315 e003 | | Load 0x0,0x3 0316 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0317 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0318 e5fc | | Load 0x2,-0x4 0319 e5fd | | Load 0x2,-0x3 031a e5fe | | Load 0x2,-0x2 031b e003 | | Load 0x0,0x3 031c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 031d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 031e e5fc | | Load 0x2,-0x4 031f e5fd | | Load 0x2,-0x3 0320 e5fe | | Load 0x2,-0x2 0321 e003 | | Load 0x0,0x3 0322 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0323 4505 |E | Exit_Suprogram New_Top_Offset 0x5 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 00ea | | Load_Encached Null_String_Cache 032c 00ea | | Load_Encached Null_String_Cache 032d 00ea | | Load_Encached Null_String_Cache 032e 00ea | | Load_Encached Null_String_Cache 032f 00ea | | Load_Encached Null_String_Cache 0330 0092 042c | ,| Action Push_String_Extended,0x42c ; "<Cursor>" 0332 e005 | | Load 0x0,0x5 0333 180f | | Execute Package,Field_Execute,Field_Number 0xf 0334 e5ff | | Load 0x2,-0x1 0335 0092 0434 | 4| Action Push_String_Extended,0x434 ; "Debugger " 0337 e5ff | | Load 0x2,-0x1 0338 01cc | | Execute Vector,Catenate 0339 0092 0435 | 5| Action Push_String_Extended,0x435 ; " to Address" 033b 01cc | | Execute Vector,Catenate 033c 6007 |` | Indirect_Literal Discrete,0x344,{0x00000000, 0x0000040f} 033d 4848 |HH | Short_Literal 0x48 033e e002 | | Load 0x0,0x2 033f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0340 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0341 0000 0000 | | .XXX[0x3] 0343 0000 | | 0344 0000 0000 | | .LITERAL {0x00000000, 0x0000040f} 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b 00ea | | Load_Encached Null_String_Cache 034c 00ea | | Load_Encached Null_String_Cache 034d 0092 0436 | 6| Action Push_String_Extended,0x436 ; "Address" 034f 00ea | | Load_Encached Null_String_Cache 0350 0092 0437 | 7| Action Push_String_Extended,0x437 ; "Debugger Address to Location" 0352 4bfe |K | Short_Literal 0x3fe 0353 e002 | | Load 0x0,0x2 0354 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0355 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0356 0000 0000 | | .XXX[0x2] 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 00ea | | Load_Encached Null_String_Cache 035c 00ea | | Load_Encached Null_String_Cache 035d 0092 0438 | 8| Action Push_String_Extended,0x438 ; "Implementation Name" 035f 00ea | | Load_Encached Null_String_Cache 0360 0092 0439 | 9| Action Push_String_Extended,0x439 ; "Debugger Exception to Name" 0362 4bff |K | Short_Literal 0x3ff 0363 e002 | | Load 0x0,0x2 0364 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0365 4501 |E | Exit_Suprogram 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 00ea | | Load_Encached Null_String_Cache 036c 00ea | | Load_Encached Null_String_Cache 036d 00ea | | Load_Encached Null_String_Cache 036e 0092 043a | :| Action Push_String_Extended,0x43a ; " " 0370 0092 043b | ;| Action Push_String_Extended,0x43b ; "Options:" 0372 0092 042c | ,| Action Push_String_Extended,0x42c ; "<Cursor>" 0374 e005 | | Load 0x0,0x5 0375 180f | | Execute Package,Field_Execute,Field_Number 0xf 0376 0092 043c | <| Action Push_String_Extended,0x43c ; "Main Unit Name:" 0378 0092 043d | =| Action Push_String_Extended,0x43d ; "Debugger Invoke" 037a 4bfc |K | Short_Literal 0x3fc 037b 4849 |HI | Short_Literal 0x49 037c e002 | | Load 0x0,0x2 037d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 037e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 037f 0000 | | .XXX[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 00ea | | Load_Encached Null_String_Cache 0384 00ea | | Load_Encached Null_String_Cache 0385 00ea | | Load_Encached Null_String_Cache 0386 0092 043a | :| Action Push_String_Extended,0x43a ; " " 0388 0092 043e | >| Action Push_String_Extended,0x43e ; "To File:" 038a 0092 043a | :| Action Push_String_Extended,0x43a ; " " 038c 0092 043b | ;| Action Push_String_Extended,0x43b ; "Options:" 038e 0092 043f | ?| Action Push_String_Extended,0x43f ; "Debugger Target Request" 0390 4bfd |K | Short_Literal 0x3fd 0391 4849 |HI | Short_Literal 0x49 0392 e002 | | Load 0x0,0x2 0393 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0394 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0395 0000 0000 | | .XXX[0x3] 0397 0000 | | 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 00ea | | Load_Encached Null_String_Cache 039c 00ea | | Load_Encached Null_String_Cache 039d 00ea | | Load_Encached Null_String_Cache 039e 00ea | | Load_Encached Null_String_Cache 039f 00ea | | Load_Encached Null_String_Cache 03a0 00ea | | Load_Encached Null_String_Cache 03a1 00ea | | Load_Encached Null_String_Cache 03a2 00ea | | Load_Encached Null_String_Cache 03a3 6004 |` | Indirect_Literal Discrete,0x3a8,{0x00000000, 0x00000400} 03a4 484a |HJ | Short_Literal 0x4a 03a5 e002 | | Load 0x0,0x2 03a6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03a8 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 03ac 0000 0000 | | .BLANK 0000[0x4] 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 00ea | | Load_Encached Null_String_Cache 03b4 00ea | | Load_Encached Null_String_Cache 03b5 00ea | | Load_Encached Null_String_Cache 03b6 00ea | | Load_Encached Null_String_Cache 03b7 00ea | | Load_Encached Null_String_Cache 03b8 00ea | | Load_Encached Null_String_Cache 03b9 00ea | | Load_Encached Null_String_Cache 03ba e5ff | | Load 0x2,-0x1 03bb 00e1 | | Load_Encached Boolean_Cache 03bc 011c | | Execute Any,Convert_Unchecked 03bd 1c01 | | Execute_Immediate Run_Utility,0x1 03be 6005 |` | Indirect_Literal Discrete,0x3c4,{0x00000000, 0x00000401} 03bf 484b |HK | Short_Literal 0x4b 03c0 e002 | | Load 0x0,0x2 03c1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c3 0000 | | .XXX[0x1] 03c4 0000 0000 | | .LITERAL {0x00000000, 0x00000401} 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb 00ea | | Load_Encached Null_String_Cache 03cc 00ea | | Load_Encached Null_String_Cache 03cd 00ea | | Load_Encached Null_String_Cache 03ce 00ea | | Load_Encached Null_String_Cache 03cf 00ea | | Load_Encached Null_String_Cache 03d0 00ea | | Load_Encached Null_String_Cache 03d1 00ea | | Load_Encached Null_String_Cache 03d2 00ea | | Load_Encached Null_String_Cache 03d3 6004 |` | Indirect_Literal Discrete,0x3d8,{0x00000000, 0x00000402} 03d4 484d |HM | Short_Literal 0x4d 03d5 e002 | | Load 0x0,0x2 03d6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03d8 0000 0000 | | .LITERAL {0x00000000, 0x00000402} 03dc 0000 0000 | | .BLANK 0000[0x4] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00ea | | Load_Encached Null_String_Cache 03e4 00ea | | Load_Encached Null_String_Cache 03e5 00ea | | Load_Encached Null_String_Cache 03e6 00ea | | Load_Encached Null_String_Cache 03e7 00ea | | Load_Encached Null_String_Cache 03e8 00ea | | Load_Encached Null_String_Cache 03e9 00ea | | Load_Encached Null_String_Cache 03ea 00ea | | Load_Encached Null_String_Cache 03eb 6004 |` | Indirect_Literal Discrete,0x3f0,{0x00000000, 0x00000403} 03ec 4851 |HQ | Short_Literal 0x51 03ed e002 | | Load 0x0,0x2 03ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03f0 0000 0000 | | .LITERAL {0x00000000, 0x00000403} 03f4 0000 0000 | | .BLANK 0000[0x4] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb 00ea | | Load_Encached Null_String_Cache 03fc 00ea | | Load_Encached Null_String_Cache 03fd 00ea | | Load_Encached Null_String_Cache 03fe 0092 0440 | @| Action Push_String_Extended,0x440 ; "Format:" 0400 0092 0441 | A| Action Push_String_Extended,0x441 ; "Width:" 0402 0092 0442 | B| Action Push_String_Extended,0x442 ; "Value:" 0404 0092 0443 | C| Action Push_String_Extended,0x443 ; "Address:" 0406 0092 0444 | D| Action Push_String_Extended,0x444 ; "Debugger Modify Memory" 0408 6007 |` | Indirect_Literal Discrete,0x410,{0x00000000, 0x00000404} 0409 484c |HL | Short_Literal 0x4c 040a e002 | | Load 0x0,0x2 040b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 040c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 040d 0000 0000 | | .XXX[0x3] 040f 0000 | | 0410 0000 0000 | | .LITERAL {0x00000000, 0x00000404} 0414 0000 0000 | | .BLANK 0000[0x4] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b 00ea | | Load_Encached Null_String_Cache 041c 00ea | | Load_Encached Null_String_Cache 041d 00ea | | Load_Encached Null_String_Cache 041e 00ea | | Load_Encached Null_String_Cache 041f 00ea | | Load_Encached Null_String_Cache 0420 00ea | | Load_Encached Null_String_Cache 0421 00ea | | Load_Encached Null_String_Cache 0422 00ea | | Load_Encached Null_String_Cache 0423 6004 |` | Indirect_Literal Discrete,0x428,{0x00000000, 0x00000405} 0424 4850 |HP | Short_Literal 0x50 0425 e002 | | Load 0x0,0x2 0426 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0427 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0428 0000 0000 | | .LITERAL {0x00000000, 0x00000405} 042c ; -------------------------------------------------------------------------------------- 042c ; STRING TABLE 042c ; -------------------------------------------------------------------------------------- 042c 0034 | 4 | .STRTAB 0x0034->0x0446 ; "<Cursor>" 042d 003a | : | .STRTAB 0x003a->0x044a ; "Set Debugger Control Context to:" 042e 0058 | X | .STRTAB 0x0058->0x045a ; "all" 042f 0059 | Y | .STRTAB 0x0059->0x045b ; "Debugger Control Context" 0430 006f | o | .STRTAB 0x006f->0x0467 ; "Set Debugger Evaluation Context to:" 0431 0090 | | .STRTAB 0x0090->0x0479 ; "Debugger Evaluation Context" 0432 00a9 | | .STRTAB 0x00a9->0x0486 ; "<SELECTION>" 0433 00b2 | | .STRTAB 0x00b2->0x048c ; "<cursor>" 0434 00b8 | | .STRTAB 0x00b8->0x0490 ; "Debugger " 0435 00bf | | .STRTAB 0x00bf->0x0494 ; " to Address" 0436 00c8 | | .STRTAB 0x00c8->0x049a ; "Address" 0437 00cd | | .STRTAB 0x00cd->0x049d ; "Debugger Address to Location" 0438 00e7 | | .STRTAB 0x00e7->0x04ab ; "Implementation Name" 0439 00f8 | | .STRTAB 0x00f8->0x04b5 ; "Debugger Exception to Name" 043a 0110 | | .STRTAB 0x0110->0x04c2 ; " " 043b 010f | | .STRTAB 0x010f->0x04c2 ; "Options:" 043c 0115 | | .STRTAB 0x0115->0x04c6 ; "Main Unit Name:" 043d 0122 | " | .STRTAB 0x0122->0x04ce ; "Debugger Invoke" 043e 012f | / | .STRTAB 0x012f->0x04d5 ; "To File:" 043f 0135 | 5 | .STRTAB 0x0135->0x04d9 ; "Debugger Target Request" 0440 014a | J | .STRTAB 0x014a->0x04e5 ; "Format:" 0441 014f | O | .STRTAB 0x014f->0x04e8 ; "Width:" 0442 0153 | S | .STRTAB 0x0153->0x04eb ; "Value:" 0443 0157 | W | .STRTAB 0x0157->0x04ee ; "Address:" 0444 015d | ] | .STRTAB 0x015d->0x04f2 ; "Debugger Modify Memory" 0445 0171 | q | .STREND 0x0171->0x04fd 0446 3c43 7572 |<Cur| .STRTAB_STRINGS 04fe 0000 0000 | | .XXX[0x2] 0500 ; -------------------------------------------------------------------------------------- 0500 ; Debug Table 0500 ; -------------------------------------------------------------------------------------- 0500 0004 0012 | | .DEBUG4 0x0004,0x0012,0x5e15,0x0000,0x0001,0x0000 0506 4000 0002 |@ | .XXX[0xa] 0508 2000 0000 | | 050a 0100 0000 | | 050c 0a40 0002 | @ | 050e 0b4c bb00 | L | 0510 0000 0000 | | .BLANK 0000[0x8] 0518 0040 0002 | @ | .XXX[0x4] 051a 0b70 4d00 | pM | 051c 0000 0000 | | .BLANK 0000[0x11] 052d 0120 ce4b | K| .XXX[0x1c] 052f c000 5821 | X!| 0531 a400 0040 | @| 0533 0300 038c | | 0535 0000 0014 | | 0537 9b00 0008 | | 0539 0000 001c | | 053b 00a0 0000 | | 053d 0020 0000 | | 053f 0800 0000 | | 0541 4400 0000 |D | 0543 0020 0000 | | 0545 0148 0000 | H | 0547 416b a460 |Ak `| 0549 0000 0000 | | .BLANK 0000[0x8] 0551 0008 0000 | | .XXX[0x4] 0553 416b d020 |Ak | 0555 0000 0000 | | .BLANK 0000[0x5] 055a 0008 0000 | | .XXX[0x4] 055c 416b d140 |Ak @| 055e 0000 0000 | | .BLANK 0000[0x8] 0566 0024 19c9 | $ | .XXX[0x1c] 0568 8000 0b04 | | 056a 3480 0008 |4 | 056c 0060 0071 | ` q| 056e 8000 0003 | | 0570 40a0 0001 |@ | 0572 0000 0001 | | 0574 8014 0000 | | 0576 0004 0000 | | 0578 0100 0000 | | 057a 0880 0000 | | 057c 0004 0000 | | 057e 0029 0000 | ) | 0580 082d c460 | - `| 0582 0000 0000 | | .BLANK 0000[0x1d] 059f 0004 8339 | 9| .XXX[0x1d] 05a1 3100 0160 |1 `| 05a3 8690 0001 | | 05a5 000c 000e | | 05a7 3000 0000 |0 | 05a9 5154 0000 |QT | 05ab 2000 0000 | | 05ad 5002 8000 |P | 05af 0000 8000 | | 05b1 0020 0000 | | 05b3 0110 0000 | | 05b5 0000 8000 | | 05b7 0005 2000 | | 05b9 0105 baf2 | | 05bb 8000 | | 05bc 0000 0000 | | .BLANK 0000[0x8] 05c4 2000 0105 | | .XXX[0x4] 05c6 ae23 8000 | # | 05c8 0000 0000 | | .BLANK 0000[0x38]