|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 03c8 | | .CONST 0x03c8 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0030 | 0 | .CONST 0x0030 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 000f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0011 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0013 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0015 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0017 00bf | | Action Accept_Activation 0018 0092 02e5 | | Action Push_String_Extended,0x2e5 ; "Program has terminated.\x0a" 001a 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call 001c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001d 00c7 | | Action Elaborate_Subprogram 001e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001f 00c7 | | Action Elaborate_Subprogram 0020 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 0022 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call 0024 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call 0026 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0027 00c7 | | Action Elaborate_Subprogram 0028 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0029 00c7 | | Action Elaborate_Subprogram 002a 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call 002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002d 00c7 | | Action Elaborate_Subprogram 002e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002f 00c7 | | Action Elaborate_Subprogram 0030 BODY_0008: 0030 00bc | | Action Signal_Activated 0031 00bb | | Action Signal_Completion 0032 0000 0000 | | .BLANK 0000[0x6] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0045 | E | .CONST 0x0045 ; Address of begin 0039 0081 | | .CONST 0x0081 ; Address of exception handler 003a 0004 | | .CONST 0x0004 ; Number of locals 003b INIT_0038: 003b e002 | | Load 0x0,0x2 003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003d 02c7 | | Declare_Variable Any 003e 00d8 | | Load_Top At_Offset_0 003f 1c00 | | Execute_Immediate Run_Utility,0x0 0040 e003 | | Load 0x0,0x3 0041 02c7 | | Declare_Variable Any 0042 00d8 | | Load_Top At_Offset_0 0043 1c00 | | Execute_Immediate Run_Utility,0x0 0044 00e1 | | Load_Encached Boolean_Cache 0045 BODY_0038: 0045 8004 | | Call 0x0,0x4 0046 7037 |p7 | Jump_Nonzero 0x7e 0047 00e1 | | Load_Encached Boolean_Cache 0048 00da | | Load_Top At_Offset_2 0049 0120 | | Execute Any,Is_Value 004a 6802 |h | Jump_Zero 0x4d 004b e003 | | Load 0x0,0x3 004c 7801 |x | Jump 0x4e 004d 00da | | Load_Top At_Offset_2 004e e5ff | | Load 0x2,-0x1 004f 8005 | | Call 0x0,0x5 0050 8006 | | Call 0x0,0x6 0051 c403 | | Store 0x2,0x3 0052 0059 | Y | Store_Top Discrete,At_Offset_1 0053 00d8 | | Load_Top At_Offset_0 0054 6828 |h( | Jump_Zero 0x7d 0055 00da | | Load_Top At_Offset_2 0056 e007 | | Load 0x0,0x7 0057 4801 |H | Short_Literal 0x1 0058 4800 |H | Short_Literal 0x0 0059 e403 | | Load 0x2,0x3 005a e008 | | Load 0x0,0x8 005b 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 005c c007 | | Store 0x0,0x7 005d c402 | | Store 0x2,0x2 005e 4802 |H | Short_Literal 0x2 005f 00db | | Load_Top At_Offset_3 0060 e002 | | Load 0x0,0x2 0061 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0062 6812 |h | Jump_Zero 0x75 0063 480a |H | Short_Literal 0xa 0064 480a |H | Short_Literal 0xa 0065 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "Task " 0067 e403 | | Load 0x2,0x3 0068 8009 | | Call 0x0,0x9 0069 01cc | | Execute Vector,Catenate 006a 0092 02e7 | | Action Push_String_Extended,0x2e7 ; " could not be stopped:" 006c 01cc | | Execute Vector,Catenate 006d 01cb | | Execute Vector,Append 006e e402 | | Load 0x2,0x2 006f e002 | | Load 0x0,0x2 0070 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0071 01cc | | Execute Vector,Catenate 0072 01cb | | Execute Vector,Append 0073 800a | | Call 0x0,0xa 0074 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0075 4801 |H | Short_Literal 0x1 0076 00db | | Load_Top At_Offset_3 0077 e002 | | Load 0x0,0x2 0078 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0079 6801 |h | Jump_Zero 0x7b 007a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007b 00d9 | | Load_Top At_Offset_1 007c 8214 | | Call 0x1,0x14 007d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007e e213 | | Load 0x1,0x13 007f 800b | | Call 0x0,0xb 0080 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0081 TRAP_0038: 0081 0007 | | Action Break_Optional 0082 480a |H | Short_Literal 0xa 0083 0092 02e8 | | Action Push_String_Extended,0x2e8 ; "Exception raised during command processing: " 0085 e00c | | Load 0x0,0xc 0086 180d | | Execute Package,Field_Execute,Field_Number 0xd 0087 01cc | | Execute Vector,Catenate 0088 01cb | | Execute Vector,Append 0089 800a | | Call 0x0,0xa 008a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008b 0000 0000 | | .BLANK 0000[0x5] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009d | | .CONST 0x009d ; Address of begin 0091 00d9 | | .CONST 0x00d9 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 e002 | | Load 0x0,0x2 0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0095 02c7 | | Declare_Variable Any 0096 00d8 | | Load_Top At_Offset_0 0097 1c00 | | Execute_Immediate Run_Utility,0x0 0098 e003 | | Load 0x0,0x3 0099 02c7 | | Declare_Variable Any 009a 00d8 | | Load_Top At_Offset_0 009b 1c00 | | Execute_Immediate Run_Utility,0x0 009c 00e1 | | Load_Encached Boolean_Cache 009d BODY_0090: 009d 8004 | | Call 0x0,0x4 009e 7037 |p7 | Jump_Nonzero 0xd6 009f 00e1 | | Load_Encached Boolean_Cache 00a0 00da | | Load_Top At_Offset_2 00a1 0120 | | Execute Any,Is_Value 00a2 6802 |h | Jump_Zero 0xa5 00a3 e003 | | Load 0x0,0x3 00a4 7801 |x | Jump 0xa6 00a5 00da | | Load_Top At_Offset_2 00a6 e5ff | | Load 0x2,-0x1 00a7 8005 | | Call 0x0,0x5 00a8 8006 | | Call 0x0,0x6 00a9 c403 | | Store 0x2,0x3 00aa 0059 | Y | Store_Top Discrete,At_Offset_1 00ab 00d8 | | Load_Top At_Offset_0 00ac 6828 |h( | Jump_Zero 0xd5 00ad 00da | | Load_Top At_Offset_2 00ae e007 | | Load 0x0,0x7 00af 4801 |H | Short_Literal 0x1 00b0 4800 |H | Short_Literal 0x0 00b1 e403 | | Load 0x2,0x3 00b2 e008 | | Load 0x0,0x8 00b3 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00b4 c007 | | Store 0x0,0x7 00b5 c402 | | Store 0x2,0x2 00b6 4802 |H | Short_Literal 0x2 00b7 00db | | Load_Top At_Offset_3 00b8 e002 | | Load 0x0,0x2 00b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ba 6812 |h | Jump_Zero 0xcd 00bb 480a |H | Short_Literal 0xa 00bc 480a |H | Short_Literal 0xa 00bd 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "Task " 00bf e403 | | Load 0x2,0x3 00c0 8009 | | Call 0x0,0x9 00c1 01cc | | Execute Vector,Catenate 00c2 0092 02e9 | | Action Push_String_Extended,0x2e9 ; " could not be held:" 00c4 01cc | | Execute Vector,Catenate 00c5 01cb | | Execute Vector,Append 00c6 e402 | | Load 0x2,0x2 00c7 e002 | | Load 0x0,0x2 00c8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00c9 01cc | | Execute Vector,Catenate 00ca 01cb | | Execute Vector,Append 00cb 800a | | Call 0x0,0xa 00cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00cd 4801 |H | Short_Literal 0x1 00ce 00db | | Load_Top At_Offset_3 00cf e002 | | Load 0x0,0x2 00d0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00d1 6801 |h | Jump_Zero 0xd3 00d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d3 00d9 | | Load_Top At_Offset_1 00d4 8214 | | Call 0x1,0x14 00d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d6 e213 | | Load 0x1,0x13 00d7 800b | | Call 0x0,0xb 00d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d9 TRAP_0090: 00d9 0007 | | Action Break_Optional 00da 480a |H | Short_Literal 0xa 00db 0092 02e8 | | Action Push_String_Extended,0x2e8 ; "Exception raised during command processing: " 00dd e00c | | Load 0x0,0xc 00de 180d | | Execute Package,Field_Execute,Field_Number 0xd 00df 01cc | | Execute Vector,Catenate 00e0 01cb | | Execute Vector,Append 00e1 800a | | Call 0x0,0xa 00e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e3 0000 0000 | | .BLANK 0000[0x5] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f9 | | .CONST 0x00f9 ; Address of begin 00e9 013e | > | .CONST 0x013e ; Address of exception handler 00ea 0006 | | .CONST 0x0006 ; Number of locals 00eb INIT_00e8: 00eb e002 | | Load 0x0,0x2 00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ed 02c7 | | Declare_Variable Any 00ee 00d8 | | Load_Top At_Offset_0 00ef 1c00 | | Execute_Immediate Run_Utility,0x0 00f0 e003 | | Load 0x0,0x3 00f1 02c7 | | Declare_Variable Any 00f2 00d8 | | Load_Top At_Offset_0 00f3 1c00 | | Execute_Immediate Run_Utility,0x0 00f4 00e1 | | Load_Encached Boolean_Cache 00f5 00e1 | | Load_Encached Boolean_Cache 00f6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00f7 00e1 | | Load_Encached Boolean_Cache 00f8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00f9 BODY_00e8: 00f9 8004 | | Call 0x0,0x4 00fa 7035 |p5 | Jump_Nonzero 0x130 00fb 00e1 | | Load_Encached Boolean_Cache 00fc e403 | | Load 0x2,0x3 00fd 0120 | | Execute Any,Is_Value 00fe 6802 |h | Jump_Zero 0x101 00ff e003 | | Load 0x0,0x3 0100 7801 |x | Jump 0x102 0101 e403 | | Load 0x2,0x3 0102 e5ff | | Load 0x2,-0x1 0103 8006 | | Call 0x0,0x6 0104 c403 | | Store 0x2,0x3 0105 005b | [ | Store_Top Discrete,At_Offset_3 0106 00da | | Load_Top At_Offset_2 0107 682c |h, | Jump_Zero 0x134 0108 00db | | Load_Top At_Offset_3 0109 8216 | | Call 0x1,0x16 010a 6805 |h | Jump_Zero 0x110 010b e00d | | Load 0x0,0xd 010c e00e | | Load 0x0,0xe 010d 800f | | Call 0x0,0xf 010e 4801 |H | Short_Literal 0x1 010f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0110 00db | | Load_Top At_Offset_3 0111 8217 | | Call 0x1,0x17 0112 e402 | | Load 0x2,0x2 0113 e007 | | Load 0x0,0x7 0114 4801 |H | Short_Literal 0x1 0115 e403 | | Load 0x2,0x3 0116 e008 | | Load 0x0,0x8 0117 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0118 c007 | | Store 0x0,0x7 0119 c402 | | Store 0x2,0x2 011a 4802 |H | Short_Literal 0x2 011b e402 | | Load 0x2,0x2 011c e002 | | Load 0x0,0x2 011d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 011e 6815 |h | Jump_Zero 0x134 011f 00d8 | | Load_Top At_Offset_0 0120 6805 |h | Jump_Zero 0x126 0121 e00d | | Load 0x0,0xd 0122 e00e | | Load 0x0,0xe 0123 8010 | | Call 0x0,0x10 0124 4800 |H | Short_Literal 0x0 0125 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0126 480a |H | Short_Literal 0xa 0127 0092 02ea | | Action Push_String_Extended,0x2ea ; "Problem encountered starting task: " 0129 e402 | | Load 0x2,0x2 012a e002 | | Load 0x0,0x2 012b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 012c 01cc | | Execute Vector,Catenate 012d 01cb | | Execute Vector,Append 012e 800a | | Call 0x0,0xa 012f 7804 |x | Jump 0x134 0130 e213 | | Load 0x1,0x13 0131 800b | | Call 0x0,0xb 0132 4801 |H | Short_Literal 0x1 0133 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0134 00da | | Load_Top At_Offset_2 0135 6805 |h | Jump_Zero 0x13b 0136 00d9 | | Load_Top At_Offset_1 0137 7003 |p | Jump_Nonzero 0x13b 0138 00db | | Load_Top At_Offset_3 0139 8011 | | Call 0x0,0x11 013a 7002 |p | Jump_Nonzero 0x13d 013b e00e | | Load 0x0,0xe 013c 8012 | | Call 0x0,0x12 013d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013e TRAP_00e8: 013e 0007 | | Action Break_Optional 013f 480a |H | Short_Literal 0xa 0140 0092 02e8 | | Action Push_String_Extended,0x2e8 ; "Exception raised during command processing: " 0142 e00c | | Load 0x0,0xc 0143 180d | | Execute Package,Field_Execute,Field_Number 0xd 0144 01cc | | Execute Vector,Catenate 0145 01cb | | Execute Vector,Append 0146 800a | | Call 0x0,0xa 0147 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0155 | U | .CONST 0x0155 ; Address of begin 0149 0188 | | .CONST 0x0188 ; Address of exception handler 014a 0004 | | .CONST 0x0004 ; Number of locals 014b INIT_0148: 014b e002 | | Load 0x0,0x2 014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014d 02c7 | | Declare_Variable Any 014e 00d8 | | Load_Top At_Offset_0 014f 1c00 | | Execute_Immediate Run_Utility,0x0 0150 e003 | | Load 0x0,0x3 0151 02c7 | | Declare_Variable Any 0152 00d8 | | Load_Top At_Offset_0 0153 1c00 | | Execute_Immediate Run_Utility,0x0 0154 00e1 | | Load_Encached Boolean_Cache 0155 BODY_0148: 0155 8004 | | Call 0x0,0x4 0156 702e |p. | Jump_Nonzero 0x185 0157 00e1 | | Load_Encached Boolean_Cache 0158 00da | | Load_Top At_Offset_2 0159 0120 | | Execute Any,Is_Value 015a 6802 |h | Jump_Zero 0x15d 015b e003 | | Load 0x0,0x3 015c 7801 |x | Jump 0x15e 015d 00da | | Load_Top At_Offset_2 015e e5ff | | Load 0x2,-0x1 015f 8006 | | Call 0x0,0x6 0160 c403 | | Store 0x2,0x3 0161 0059 | Y | Store_Top Discrete,At_Offset_1 0162 00d8 | | Load_Top At_Offset_0 0163 6820 |h | Jump_Zero 0x184 0164 00da | | Load_Top At_Offset_2 0165 e007 | | Load 0x0,0x7 0166 4801 |H | Short_Literal 0x1 0167 e403 | | Load 0x2,0x3 0168 e008 | | Load 0x0,0x8 0169 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 016a c007 | | Store 0x0,0x7 016b c402 | | Store 0x2,0x2 016c 4802 |H | Short_Literal 0x2 016d 00db | | Load_Top At_Offset_3 016e e002 | | Load 0x0,0x2 016f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0170 680a |h | Jump_Zero 0x17b 0171 480a |H | Short_Literal 0xa 0172 0092 02eb | | Action Push_String_Extended,0x2eb ; "Problem encountered releasing task: " 0174 e402 | | Load 0x2,0x2 0175 e002 | | Load 0x0,0x2 0176 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0177 01cc | | Execute Vector,Catenate 0178 01cb | | Execute Vector,Append 0179 800a | | Call 0x0,0xa 017a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017b 4801 |H | Short_Literal 0x1 017c 00db | | Load_Top At_Offset_3 017d e002 | | Load 0x0,0x2 017e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 017f 6801 |h | Jump_Zero 0x181 0180 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0181 0092 02ec | | Action Push_String_Extended,0x2ec ; "Released.\x0a" 0183 800b | | Call 0x0,0xb 0184 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0185 e213 | | Load 0x1,0x13 0186 800b | | Call 0x0,0xb 0187 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0188 TRAP_0148: 0188 0007 | | Action Break_Optional 0189 480a |H | Short_Literal 0xa 018a 0092 02e8 | | Action Push_String_Extended,0x2e8 ; "Exception raised during command processing: " 018c e00c | | Load 0x0,0xc 018d 180d | | Execute Package,Field_Execute,Field_Number 0xd 018e 01cc | | Execute Vector,Catenate 018f 01cb | | Execute Vector,Append 0190 800a | | Call 0x0,0xa 0191 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0192 0000 0000 | | .BLANK 0000[0x6] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01ab | | .CONST 0x01ab ; Address of begin 0199 020d | | .CONST 0x020d ; Address of exception handler 019a 0007 | | .CONST 0x0007 ; Number of locals 019b INIT_0198: 019b e002 | | Load 0x0,0x2 019c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019d 02c7 | | Declare_Variable Any 019e 00d8 | | Load_Top At_Offset_0 019f 1c00 | | Execute_Immediate Run_Utility,0x0 01a0 e013 | | Load 0x0,0x13 01a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a2 e003 | | Load 0x0,0x3 01a3 02c7 | | Declare_Variable Any 01a4 00d8 | | Load_Top At_Offset_0 01a5 1c00 | | Execute_Immediate Run_Utility,0x0 01a6 00e1 | | Load_Encached Boolean_Cache 01a7 00e1 | | Load_Encached Boolean_Cache 01a8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01a9 00e1 | | Load_Encached Boolean_Cache 01aa 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01ab BODY_0198: 01ab 8004 | | Call 0x0,0x4 01ac 7054 |pT | Jump_Nonzero 0x201 01ad 00e1 | | Load_Encached Boolean_Cache 01ae e404 | | Load 0x2,0x4 01af 0120 | | Execute Any,Is_Value 01b0 6802 |h | Jump_Zero 0x1b3 01b1 e003 | | Load 0x0,0x3 01b2 7801 |x | Jump 0x1b4 01b3 e404 | | Load 0x2,0x4 01b4 e5fd | | Load 0x2,-0x3 01b5 8006 | | Call 0x0,0x6 01b6 c404 | | Store 0x2,0x4 01b7 005b | [ | Store_Top Discrete,At_Offset_3 01b8 00da | | Load_Top At_Offset_2 01b9 6844 |hD | Jump_Zero 0x1fe 01ba e5ff | | Load 0x2,-0x1 01bb 8218 | | Call 0x1,0x18 01bc a403 | | Store_Unchecked 0x2,0x3 01bd e402 | | Load 0x2,0x2 01be e014 | | Load 0x0,0x14 01bf 4800 |H | Short_Literal 0x0 01c0 e5fc | | Load 0x2,-0x4 01c1 e5fe | | Load 0x2,-0x2 01c2 e403 | | Load 0x2,0x3 01c3 e404 | | Load 0x2,0x4 01c4 e015 | | Load 0x0,0x15 01c5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01c6 c014 | | Store 0x0,0x14 01c7 c402 | | Store 0x2,0x2 01c8 4802 |H | Short_Literal 0x2 01c9 e402 | | Load 0x2,0x2 01ca e002 | | Load 0x0,0x2 01cb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01cc 6809 |h | Jump_Zero 0x1d6 01cd 480a |H | Short_Literal 0xa 01ce e402 | | Load 0x2,0x2 01cf e002 | | Load 0x0,0x2 01d0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01d1 01cb | | Execute Vector,Append 01d2 800a | | Call 0x0,0xa 01d3 4801 |H | Short_Literal 0x1 01d4 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01d5 782f |x/ | Jump 0x205 01d6 00db | | Load_Top At_Offset_3 01d7 8216 | | Call 0x1,0x16 01d8 6805 |h | Jump_Zero 0x1de 01d9 e00d | | Load 0x0,0xd 01da e00e | | Load 0x0,0xe 01db 800f | | Call 0x0,0xf 01dc 4801 |H | Short_Literal 0x1 01dd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01de 00db | | Load_Top At_Offset_3 01df 8217 | | Call 0x1,0x17 01e0 e402 | | Load 0x2,0x2 01e1 e007 | | Load 0x0,0x7 01e2 4801 |H | Short_Literal 0x1 01e3 e404 | | Load 0x2,0x4 01e4 e008 | | Load 0x0,0x8 01e5 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 01e6 c007 | | Store 0x0,0x7 01e7 c402 | | Store 0x2,0x2 01e8 4802 |H | Short_Literal 0x2 01e9 e402 | | Load 0x2,0x2 01ea e002 | | Load 0x0,0x2 01eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ec 6818 |h | Jump_Zero 0x205 01ed 00d8 | | Load_Top At_Offset_0 01ee 6805 |h | Jump_Zero 0x1f4 01ef e00d | | Load 0x0,0xd 01f0 e00e | | Load 0x0,0xe 01f1 8010 | | Call 0x0,0x10 01f2 4801 |H | Short_Literal 0x1 01f3 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01f4 480a |H | Short_Literal 0xa 01f5 0092 02ea | | Action Push_String_Extended,0x2ea ; "Problem encountered starting task: " 01f7 e402 | | Load 0x2,0x2 01f8 e002 | | Load 0x0,0x2 01f9 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01fa 01cc | | Execute Vector,Catenate 01fb 01cb | | Execute Vector,Append 01fc 800a | | Call 0x0,0xa 01fd 7807 |x | Jump 0x205 01fe 4801 |H | Short_Literal 0x1 01ff 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0200 7804 |x | Jump 0x205 0201 e213 | | Load 0x1,0x13 0202 800b | | Call 0x0,0xb 0203 4801 |H | Short_Literal 0x1 0204 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0205 00d9 | | Load_Top At_Offset_1 0206 7003 |p | Jump_Nonzero 0x20a 0207 00db | | Load_Top At_Offset_3 0208 8011 | | Call 0x0,0x11 0209 7002 |p | Jump_Nonzero 0x20c 020a e00e | | Load 0x0,0xe 020b 8012 | | Call 0x0,0x12 020c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 020d TRAP_0198: 020d 0007 | | Action Break_Optional 020e 480a |H | Short_Literal 0xa 020f 0092 02e8 | | Action Push_String_Extended,0x2e8 ; "Exception raised during command processing: " 0211 e00c | | Load 0x0,0xc 0212 180d | | Execute Package,Field_Execute,Field_Number 0xd 0213 01cc | | Execute Vector,Catenate 0214 01cb | | Execute Vector,Append 0215 800a | | Call 0x0,0xa 0216 e00e | | Load 0x0,0xe 0217 8012 | | Call 0x0,0x12 0218 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 022d | - | .CONST 0x022d ; Address of begin 0221 0256 | V | .CONST 0x0256 ; Address of exception handler 0222 0004 | | .CONST 0x0004 ; Number of locals 0223 INIT_0220: 0223 e002 | | Load 0x0,0x2 0224 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0225 02c7 | | Declare_Variable Any 0226 00d8 | | Load_Top At_Offset_0 0227 1c00 | | Execute_Immediate Run_Utility,0x0 0228 e003 | | Load 0x0,0x3 0229 02c7 | | Declare_Variable Any 022a 00d8 | | Load_Top At_Offset_0 022b 1c00 | | Execute_Immediate Run_Utility,0x0 022c 00e1 | | Load_Encached Boolean_Cache 022d BODY_0220: 022d 8004 | | Call 0x0,0x4 022e 7024 |p$ | Jump_Nonzero 0x253 022f 00e1 | | Load_Encached Boolean_Cache 0230 00da | | Load_Top At_Offset_2 0231 0120 | | Execute Any,Is_Value 0232 6802 |h | Jump_Zero 0x235 0233 e003 | | Load 0x0,0x3 0234 7801 |x | Jump 0x236 0235 00da | | Load_Top At_Offset_2 0236 e5ff | | Load 0x2,-0x1 0237 8006 | | Call 0x0,0x6 0238 c403 | | Store 0x2,0x3 0239 0059 | Y | Store_Top Discrete,At_Offset_1 023a 00d8 | | Load_Top At_Offset_0 023b 6816 |h | Jump_Zero 0x252 023c 00da | | Load_Top At_Offset_2 023d e014 | | Load 0x0,0x14 023e 00db | | Load_Top At_Offset_3 023f e015 | | Load 0x0,0x15 0240 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0241 c014 | | Store 0x0,0x14 0242 c402 | | Store 0x2,0x2 0243 4802 |H | Short_Literal 0x2 0244 00db | | Load_Top At_Offset_3 0245 e002 | | Load 0x0,0x2 0246 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0247 6807 |h | Jump_Zero 0x24f 0248 480a |H | Short_Literal 0xa 0249 00db | | Load_Top At_Offset_3 024a e002 | | Load 0x0,0x2 024b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 024c 01cb | | Execute Vector,Append 024d 800a | | Call 0x0,0xa 024e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 024f 0092 02ed | | Action Push_String_Extended,0x2ed ; "All the specified step-points have been cleared\x0a" 0251 800b | | Call 0x0,0xb 0252 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0253 e213 | | Load 0x1,0x13 0254 800b | | Call 0x0,0xb 0255 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0256 TRAP_0220: 0256 0007 | | Action Break_Optional 0257 480a |H | Short_Literal 0xa 0258 0092 02e8 | | Action Push_String_Extended,0x2e8 ; "Exception raised during command processing: " 025a e00c | | Load 0x0,0xc 025b 180d | | Execute Package,Field_Execute,Field_Number 0xd 025c 01cc | | Execute Vector,Catenate 025d 01cb | | Execute Vector,Append 025e 800a | | Call 0x0,0xa 025f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 8016 | | Call 0x0,0x16 0265 6804 |h | Jump_Zero 0x26a 0266 0092 02ee | | Action Push_String_Extended,0x2ee ; "Each task will stop by its next statement.\x0a" 0268 800b | | Call 0x0,0xb 0269 4502 |E | Exit_Suprogram New_Top_Offset 0x2 026a 480a |H | Short_Literal 0xa 026b 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "Task " 026d e5ff | | Load 0x2,-0x1 026e 8009 | | Call 0x0,0x9 026f 01cc | | Execute Vector,Catenate 0270 0092 02ef | | Action Push_String_Extended,0x2ef ; " will stop by its next statement." 0272 01cc | | Execute Vector,Catenate 0273 01cb | | Execute Vector,Append 0274 800b | | Call 0x0,0xb 0275 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0276 0000 0000 | | .XXX[0x2] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 0281 | | .CONST 0x0281 ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0002 | | .CONST 0x0002 ; Number of locals 027b INIT_0278: 027b e003 | | Load 0x0,0x3 027c 02c7 | | Declare_Variable Any 027d e017 | | Load 0x0,0x17 027e e018 | | Load 0x0,0x18 027f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0280 a402 | | Store_Unchecked 0x2,0x2 0281 BODY_0278: 0281 00d8 | | Load_Top At_Offset_0 0282 8016 | | Call 0x0,0x16 0283 6807 |h | Jump_Zero 0x28b 0284 e00d | | Load 0x0,0xd 0285 00d8 | | Load_Top At_Offset_0 0286 0120 | | Execute Any,Is_Value 0287 7002 |p | Jump_Nonzero 0x28a 0288 00d8 | | Load_Top At_Offset_0 0289 011e | | Execute Any,Convert 028a 00ca | | Action Exit_Nullary_Function 028b 00d8 | | Load_Top At_Offset_0 028c 00ca | | Action Exit_Nullary_Function 028d 0000 0000 | | .XXX[0x3] 028f 0000 | | 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00da | | Load_Top At_Offset_2 0294 8215 | | Call 0x1,0x15 0295 012f | / | Execute Any,Equal 0296 7003 |p | Jump_Nonzero 0x29a 0297 00da | | Load_Top At_Offset_2 0298 8011 | | Call 0x0,0x11 0299 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029a 4801 |H | Short_Literal 0x1 029b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029c 0000 0000 | | .BLANK 0000[0x4] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a8 | | .CONST 0x02a8 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0002 | | .CONST 0x0002 ; Number of locals 02a3 INIT_02a0: 02a3 e002 | | Load 0x0,0x2 02a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a5 02c7 | | Declare_Variable Any 02a6 00d8 | | Load_Top At_Offset_0 02a7 1c00 | | Execute_Immediate Run_Utility,0x0 02a8 BODY_02a0: 02a8 e019 | | Load 0x0,0x19 02a9 e01a | | Load 0x0,0x1a 02aa 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02ab 701b |p | Jump_Nonzero 0x2c7 02ac 00d8 | | Load_Top At_Offset_0 02ad e01b | | Load 0x0,0x1b 02ae e019 | | Load 0x0,0x19 02af 801c | | Call 0x0,0x1c 02b0 e01a | | Load 0x0,0x1a 02b1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02b2 c01b | | Store 0x0,0x1b 02b3 c402 | | Store 0x2,0x2 02b4 4800 |H | Short_Literal 0x0 02b5 c019 | | Store 0x0,0x19 02b6 4802 |H | Short_Literal 0x2 02b7 00d9 | | Load_Top At_Offset_1 02b8 e002 | | Load 0x0,0x2 02b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02ba 680a |h | Jump_Zero 0x2c5 02bb 480a |H | Short_Literal 0xa 02bc 0092 02f0 | | Action Push_String_Extended,0x2f0 ; "Problem encountered starting tasks that were temporarily stopped due to the \x22FREEZE_TASKS\x22 flag:\x0a" 02be 00da | | Load_Top At_Offset_2 02bf e002 | | Load 0x0,0x2 02c0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02c1 01cc | | Execute Vector,Catenate 02c2 01cb | | Execute Vector,Append 02c3 800a | | Call 0x0,0xa 02c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c5 00d8 | | Load_Top At_Offset_0 02c6 801d | | Call 0x0,0x1d 02c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 00da | | Load_Top At_Offset_2 02cc 4607 |F | Jump_Case 0x8 02cd 7809 |x | Jump 0x2d7 ; case 0x0 02ce 780a |x | Jump 0x2d9 ; case 0x1 02cf 780b |x | Jump 0x2db ; case 0x2 02d0 780c |x | Jump 0x2dd ; case 0x3 02d1 780d |x | Jump 0x2df ; case 0x4 02d2 7810 |x | Jump 0x2e3 ; case 0x5 02d3 780d |x | Jump 0x2e1 ; case 0x6 02d4 7800 |x | Jump 0x2d5 ; case 0x7 02d5 4800 |H | Short_Literal 0x0 02d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d7 4802 |H | Short_Literal 0x2 02d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d9 4803 |H | Short_Literal 0x3 02da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02db 4804 |H | Short_Literal 0x4 02dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02dd 4805 |H | Short_Literal 0x5 02de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02df 4807 |H | Short_Literal 0x7 02e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e1 4806 |H | Short_Literal 0x6 02e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e3 4801 |H | Short_Literal 0x1 02e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e5 ; -------------------------------------------------------------------------------------- 02e5 ; STRING TABLE 02e5 ; -------------------------------------------------------------------------------------- 02e5 001a | | .STRTAB 0x001a->0x02f2 ; "Program has terminated.\x0a" 02e6 0030 | 0 | .STRTAB 0x0030->0x02fe ; "Task " 02e7 0033 | 3 | .STRTAB 0x0033->0x0300 ; " could not be stopped:" 02e8 0047 | G | .STRTAB 0x0047->0x030b ; "Exception raised during command processing: " 02e9 0071 | q | .STRTAB 0x0071->0x0321 ; " could not be held:" 02ea 0082 | | .STRTAB 0x0082->0x032b ; "Problem encountered starting task: " 02eb 00a3 | | .STRTAB 0x00a3->0x033c ; "Problem encountered releasing task: " 02ec 00c5 | | .STRTAB 0x00c5->0x034e ; "Released.\x0a" 02ed 00cd | | .STRTAB 0x00cd->0x0353 ; "All the specified step-points have been cleared\x0a" 02ee 00fb | | .STRTAB 0x00fb->0x036b ; "Each task will stop by its next statement.\x0a" 02ef 0124 | $ | .STRTAB 0x0124->0x0381 ; " will stop by its next statement." 02f0 0143 | C | .STRTAB 0x0143->0x0391 ; "Problem encountered starting tasks that were temporarily stopped due to the \x22FREEZE_TASKS\x22 flag:\x0a" 02f1 01a2 | | .STREND 0x01a2->0x03c2 02f2 5072 6f67 |Prog| .STRTAB_STRINGS 03c2 0000 0000 | | .BLANK 0000[0x6] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; Debug Table 03c8 ; -------------------------------------------------------------------------------------- 03c8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1660,0x0000,0x0001,0x0000 03ce 5641 4c55 |VALU| .XXX[0x32] 03d0 453d 7a94 |E=z | 03d2 7e90 2300 |~ # | 03d4 0153 1700 | S | 03d6 0f53 5441 | STA| 03d8 4e44 4152 |NDAR| 03da 442e 5354 |D.ST| 03dc 5249 4e47 |RING| 03de 007e 9023 | ~ #| 03e0 000e 4445 | DE| 03e2 4641 554c |FAUL| 03e4 545f 5052 |T_PR| 03e6 4f4d 5054 |OMPT| 03e8 1700 0f53 | S| 03ea 5441 4e44 |TAND| 03ec 4152 442e |ARD.| 03ee 5354 5249 |STRI| 03f0 4e47 007e |NG ~| 03f2 9023 000d | # | 03f4 4445 4641 |DEFA| 03f6 554c 545f |ULT_| 03f8 5641 4c55 |VALU| 03fa 4517 000f |E | 03fc 5354 414e |STAN| 03fe 4441 5244 |DARD|