|
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_03b8fe, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧ └─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 03d8 | | .CONST 0x03d8 ; 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 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0013 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0015 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0017 00bf | | Action Accept_Activation 0018 0092 02f5 | | Action Push_String_Extended,0x2f5 ; "Program has terminated.\x0a" 001a 029d 0273 | s| Declare_Subprogram INIT_0270,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 028b | | Declare_Subprogram INIT_0288,For_Outer_Call 0022 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call 0024 029d 02b3 | | Declare_Subprogram INIT_02b0,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 02db | | Declare_Subprogram INIT_02d8,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 0082 | | .CONST 0x0082 ; 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 7038 |p8 | Jump_Nonzero 0x7f 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 4801 |H | Short_Literal 0x1 004f e5ff | | Load 0x2,-0x1 0050 8005 | | Call 0x0,0x5 0051 8006 | | Call 0x0,0x6 0052 c403 | | Store 0x2,0x3 0053 0059 | Y | Store_Top Discrete,At_Offset_1 0054 00d8 | | Load_Top At_Offset_0 0055 6828 |h( | Jump_Zero 0x7e 0056 00da | | Load_Top At_Offset_2 0057 e007 | | Load 0x0,0x7 0058 4801 |H | Short_Literal 0x1 0059 4800 |H | Short_Literal 0x0 005a e403 | | Load 0x2,0x3 005b e008 | | Load 0x0,0x8 005c 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 005d c007 | | Store 0x0,0x7 005e c402 | | Store 0x2,0x2 005f 4802 |H | Short_Literal 0x2 0060 00db | | Load_Top At_Offset_3 0061 e002 | | Load 0x0,0x2 0062 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0063 6812 |h | Jump_Zero 0x76 0064 480a |H | Short_Literal 0xa 0065 480a |H | Short_Literal 0xa 0066 0092 02f6 | | Action Push_String_Extended,0x2f6 ; "Task " 0068 e403 | | Load 0x2,0x3 0069 8009 | | Call 0x0,0x9 006a 01cc | | Execute Vector,Catenate 006b 0092 02f7 | | Action Push_String_Extended,0x2f7 ; " could not be stopped:" 006d 01cc | | Execute Vector,Catenate 006e 01cb | | Execute Vector,Append 006f e402 | | Load 0x2,0x2 0070 e002 | | Load 0x0,0x2 0071 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0072 01cc | | Execute Vector,Catenate 0073 01cb | | Execute Vector,Append 0074 800a | | Call 0x0,0xa 0075 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0076 4801 |H | Short_Literal 0x1 0077 00db | | Load_Top At_Offset_3 0078 e002 | | Load 0x0,0x2 0079 181d | | Execute Package,Field_Execute,Field_Number 0x1d 007a 6801 |h | Jump_Zero 0x7c 007b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007c 00d9 | | Load_Top At_Offset_1 007d 8214 | | Call 0x1,0x14 007e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007f e213 | | Load 0x1,0x13 0080 800b | | Call 0x0,0xb 0081 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0082 TRAP_0038: 0082 0007 | | Action Break_Optional 0083 480a |H | Short_Literal 0xa 0084 0092 02f8 | | Action Push_String_Extended,0x2f8 ; "Exception raised during command processing: " 0086 e00c | | Load 0x0,0xc 0087 180d | | Execute Package,Field_Execute,Field_Number 0xd 0088 01cc | | Execute Vector,Catenate 0089 01cb | | Execute Vector,Append 008a 800a | | Call 0x0,0xa 008b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009d | | .CONST 0x009d ; Address of begin 0091 00da | | .CONST 0x00da ; 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 7038 |p8 | Jump_Nonzero 0xd7 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 4801 |H | Short_Literal 0x1 00a7 e5ff | | Load 0x2,-0x1 00a8 8005 | | Call 0x0,0x5 00a9 8006 | | Call 0x0,0x6 00aa c403 | | Store 0x2,0x3 00ab 0059 | Y | Store_Top Discrete,At_Offset_1 00ac 00d8 | | Load_Top At_Offset_0 00ad 6828 |h( | Jump_Zero 0xd6 00ae 00da | | Load_Top At_Offset_2 00af e007 | | Load 0x0,0x7 00b0 4801 |H | Short_Literal 0x1 00b1 4800 |H | Short_Literal 0x0 00b2 e403 | | Load 0x2,0x3 00b3 e008 | | Load 0x0,0x8 00b4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00b5 c007 | | Store 0x0,0x7 00b6 c402 | | Store 0x2,0x2 00b7 4802 |H | Short_Literal 0x2 00b8 00db | | Load_Top At_Offset_3 00b9 e002 | | Load 0x0,0x2 00ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00bb 6812 |h | Jump_Zero 0xce 00bc 480a |H | Short_Literal 0xa 00bd 480a |H | Short_Literal 0xa 00be 0092 02f6 | | Action Push_String_Extended,0x2f6 ; "Task " 00c0 e403 | | Load 0x2,0x3 00c1 8009 | | Call 0x0,0x9 00c2 01cc | | Execute Vector,Catenate 00c3 0092 02f9 | | Action Push_String_Extended,0x2f9 ; " could not be held:" 00c5 01cc | | Execute Vector,Catenate 00c6 01cb | | Execute Vector,Append 00c7 e402 | | Load 0x2,0x2 00c8 e002 | | Load 0x0,0x2 00c9 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ca 01cc | | Execute Vector,Catenate 00cb 01cb | | Execute Vector,Append 00cc 800a | | Call 0x0,0xa 00cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ce 4801 |H | Short_Literal 0x1 00cf 00db | | Load_Top At_Offset_3 00d0 e002 | | Load 0x0,0x2 00d1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00d2 6801 |h | Jump_Zero 0xd4 00d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d4 00d9 | | Load_Top At_Offset_1 00d5 8214 | | Call 0x1,0x14 00d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d7 e213 | | Load 0x1,0x13 00d8 800b | | Call 0x0,0xb 00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00da TRAP_0090: 00da 0007 | | Action Break_Optional 00db 480a |H | Short_Literal 0xa 00dc 0092 02f8 | | Action Push_String_Extended,0x2f8 ; "Exception raised during command processing: " 00de e00c | | Load 0x0,0xc 00df 180d | | Execute Package,Field_Execute,Field_Number 0xd 00e0 01cc | | Execute Vector,Catenate 00e1 01cb | | Execute Vector,Append 00e2 800a | | Call 0x0,0xa 00e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f9 | | .CONST 0x00f9 ; Address of begin 00e9 013f | ? | .CONST 0x013f ; 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 7036 |p6 | Jump_Nonzero 0x131 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 4801 |H | Short_Literal 0x1 0103 e5ff | | Load 0x2,-0x1 0104 8006 | | Call 0x0,0x6 0105 c403 | | Store 0x2,0x3 0106 005b | [ | Store_Top Discrete,At_Offset_3 0107 00da | | Load_Top At_Offset_2 0108 682c |h, | Jump_Zero 0x135 0109 00db | | Load_Top At_Offset_3 010a 8216 | | Call 0x1,0x16 010b 6805 |h | Jump_Zero 0x111 010c e00d | | Load 0x0,0xd 010d e00e | | Load 0x0,0xe 010e 800f | | Call 0x0,0xf 010f 4801 |H | Short_Literal 0x1 0110 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0111 00db | | Load_Top At_Offset_3 0112 8217 | | Call 0x1,0x17 0113 e402 | | Load 0x2,0x2 0114 e007 | | Load 0x0,0x7 0115 4801 |H | Short_Literal 0x1 0116 e403 | | Load 0x2,0x3 0117 e008 | | Load 0x0,0x8 0118 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0119 c007 | | Store 0x0,0x7 011a c402 | | Store 0x2,0x2 011b 4802 |H | Short_Literal 0x2 011c e402 | | Load 0x2,0x2 011d e002 | | Load 0x0,0x2 011e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 011f 6815 |h | Jump_Zero 0x135 0120 00d8 | | Load_Top At_Offset_0 0121 6805 |h | Jump_Zero 0x127 0122 e00d | | Load 0x0,0xd 0123 e00e | | Load 0x0,0xe 0124 8010 | | Call 0x0,0x10 0125 4800 |H | Short_Literal 0x0 0126 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0127 480a |H | Short_Literal 0xa 0128 0092 02fa | | Action Push_String_Extended,0x2fa ; "Problem encountered starting task: " 012a e402 | | Load 0x2,0x2 012b e002 | | Load 0x0,0x2 012c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 012d 01cc | | Execute Vector,Catenate 012e 01cb | | Execute Vector,Append 012f 800a | | Call 0x0,0xa 0130 7804 |x | Jump 0x135 0131 e213 | | Load 0x1,0x13 0132 800b | | Call 0x0,0xb 0133 4801 |H | Short_Literal 0x1 0134 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0135 00da | | Load_Top At_Offset_2 0136 6805 |h | Jump_Zero 0x13c 0137 00d9 | | Load_Top At_Offset_1 0138 7003 |p | Jump_Nonzero 0x13c 0139 00db | | Load_Top At_Offset_3 013a 8011 | | Call 0x0,0x11 013b 7002 |p | Jump_Nonzero 0x13e 013c e00e | | Load 0x0,0xe 013d 8012 | | Call 0x0,0x12 013e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013f TRAP_00e8: 013f 0007 | | Action Break_Optional 0140 480a |H | Short_Literal 0xa 0141 0092 02f8 | | Action Push_String_Extended,0x2f8 ; "Exception raised during command processing: " 0143 e00c | | Load 0x0,0xc 0144 180d | | Execute Package,Field_Execute,Field_Number 0xd 0145 01cc | | Execute Vector,Catenate 0146 01cb | | Execute Vector,Append 0147 800a | | Call 0x0,0xa 0148 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015d | ] | .CONST 0x015d ; Address of begin 0151 0191 | | .CONST 0x0191 ; Address of exception handler 0152 0004 | | .CONST 0x0004 ; Number of locals 0153 INIT_0150: 0153 e002 | | Load 0x0,0x2 0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0155 02c7 | | Declare_Variable Any 0156 00d8 | | Load_Top At_Offset_0 0157 1c00 | | Execute_Immediate Run_Utility,0x0 0158 e003 | | Load 0x0,0x3 0159 02c7 | | Declare_Variable Any 015a 00d8 | | Load_Top At_Offset_0 015b 1c00 | | Execute_Immediate Run_Utility,0x0 015c 00e1 | | Load_Encached Boolean_Cache 015d BODY_0150: 015d 8004 | | Call 0x0,0x4 015e 702f |p/ | Jump_Nonzero 0x18e 015f 00e1 | | Load_Encached Boolean_Cache 0160 00da | | Load_Top At_Offset_2 0161 0120 | | Execute Any,Is_Value 0162 6802 |h | Jump_Zero 0x165 0163 e003 | | Load 0x0,0x3 0164 7801 |x | Jump 0x166 0165 00da | | Load_Top At_Offset_2 0166 4801 |H | Short_Literal 0x1 0167 e5ff | | Load 0x2,-0x1 0168 8006 | | Call 0x0,0x6 0169 c403 | | Store 0x2,0x3 016a 0059 | Y | Store_Top Discrete,At_Offset_1 016b 00d8 | | Load_Top At_Offset_0 016c 6820 |h | Jump_Zero 0x18d 016d 00da | | Load_Top At_Offset_2 016e e007 | | Load 0x0,0x7 016f 4801 |H | Short_Literal 0x1 0170 e403 | | Load 0x2,0x3 0171 e008 | | Load 0x0,0x8 0172 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0173 c007 | | Store 0x0,0x7 0174 c402 | | Store 0x2,0x2 0175 4802 |H | Short_Literal 0x2 0176 00db | | Load_Top At_Offset_3 0177 e002 | | Load 0x0,0x2 0178 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0179 680a |h | Jump_Zero 0x184 017a 480a |H | Short_Literal 0xa 017b 0092 02fb | | Action Push_String_Extended,0x2fb ; "Problem encountered releasing task: " 017d e402 | | Load 0x2,0x2 017e e002 | | Load 0x0,0x2 017f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0180 01cc | | Execute Vector,Catenate 0181 01cb | | Execute Vector,Append 0182 800a | | Call 0x0,0xa 0183 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0184 4801 |H | Short_Literal 0x1 0185 00db | | Load_Top At_Offset_3 0186 e002 | | Load 0x0,0x2 0187 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0188 6801 |h | Jump_Zero 0x18a 0189 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018a 0092 02fc | | Action Push_String_Extended,0x2fc ; "Released.\x0a" 018c 800b | | Call 0x0,0xb 018d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018e e213 | | Load 0x1,0x13 018f 800b | | Call 0x0,0xb 0190 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0191 TRAP_0150: 0191 0007 | | Action Break_Optional 0192 480a |H | Short_Literal 0xa 0193 0092 02f8 | | Action Push_String_Extended,0x2f8 ; "Exception raised during command processing: " 0195 e00c | | Load 0x0,0xc 0196 180d | | Execute Package,Field_Execute,Field_Number 0xd 0197 01cc | | Execute Vector,Catenate 0198 01cb | | Execute Vector,Append 0199 800a | | Call 0x0,0xa 019a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 019b 0000 0000 | | .BLANK 0000[0x5] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01b3 | | .CONST 0x01b3 ; Address of begin 01a1 0216 | | .CONST 0x0216 ; Address of exception handler 01a2 0007 | | .CONST 0x0007 ; Number of locals 01a3 INIT_01a0: 01a3 e002 | | Load 0x0,0x2 01a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a5 02c7 | | Declare_Variable Any 01a6 00d8 | | Load_Top At_Offset_0 01a7 1c00 | | Execute_Immediate Run_Utility,0x0 01a8 e013 | | Load 0x0,0x13 01a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01aa e003 | | Load 0x0,0x3 01ab 02c7 | | Declare_Variable Any 01ac 00d8 | | Load_Top At_Offset_0 01ad 1c00 | | Execute_Immediate Run_Utility,0x0 01ae 00e1 | | Load_Encached Boolean_Cache 01af 00e1 | | Load_Encached Boolean_Cache 01b0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01b1 00e1 | | Load_Encached Boolean_Cache 01b2 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01b3 BODY_01a0: 01b3 8004 | | Call 0x0,0x4 01b4 7055 |pU | Jump_Nonzero 0x20a 01b5 00e1 | | Load_Encached Boolean_Cache 01b6 e404 | | Load 0x2,0x4 01b7 0120 | | Execute Any,Is_Value 01b8 6802 |h | Jump_Zero 0x1bb 01b9 e003 | | Load 0x0,0x3 01ba 7801 |x | Jump 0x1bc 01bb e404 | | Load 0x2,0x4 01bc 4801 |H | Short_Literal 0x1 01bd e5fd | | Load 0x2,-0x3 01be 8006 | | Call 0x0,0x6 01bf c404 | | Store 0x2,0x4 01c0 005b | [ | Store_Top Discrete,At_Offset_3 01c1 00da | | Load_Top At_Offset_2 01c2 6844 |hD | Jump_Zero 0x207 01c3 e5ff | | Load 0x2,-0x1 01c4 8218 | | Call 0x1,0x18 01c5 a403 | | Store_Unchecked 0x2,0x3 01c6 e402 | | Load 0x2,0x2 01c7 e014 | | Load 0x0,0x14 01c8 4800 |H | Short_Literal 0x0 01c9 e5fc | | Load 0x2,-0x4 01ca e5fe | | Load 0x2,-0x2 01cb e403 | | Load 0x2,0x3 01cc e404 | | Load 0x2,0x4 01cd e015 | | Load 0x0,0x15 01ce 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01cf c014 | | Store 0x0,0x14 01d0 c402 | | Store 0x2,0x2 01d1 4802 |H | Short_Literal 0x2 01d2 e402 | | Load 0x2,0x2 01d3 e002 | | Load 0x0,0x2 01d4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d5 6809 |h | Jump_Zero 0x1df 01d6 480a |H | Short_Literal 0xa 01d7 e402 | | Load 0x2,0x2 01d8 e002 | | Load 0x0,0x2 01d9 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01da 01cb | | Execute Vector,Append 01db 800a | | Call 0x0,0xa 01dc 4801 |H | Short_Literal 0x1 01dd 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01de 782f |x/ | Jump 0x20e 01df 00db | | Load_Top At_Offset_3 01e0 8216 | | Call 0x1,0x16 01e1 6805 |h | Jump_Zero 0x1e7 01e2 e00d | | Load 0x0,0xd 01e3 e00e | | Load 0x0,0xe 01e4 800f | | Call 0x0,0xf 01e5 4801 |H | Short_Literal 0x1 01e6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01e7 00db | | Load_Top At_Offset_3 01e8 8217 | | Call 0x1,0x17 01e9 e402 | | Load 0x2,0x2 01ea e007 | | Load 0x0,0x7 01eb 4801 |H | Short_Literal 0x1 01ec e404 | | Load 0x2,0x4 01ed e008 | | Load 0x0,0x8 01ee 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 01ef c007 | | Store 0x0,0x7 01f0 c402 | | Store 0x2,0x2 01f1 4802 |H | Short_Literal 0x2 01f2 e402 | | Load 0x2,0x2 01f3 e002 | | Load 0x0,0x2 01f4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01f5 6818 |h | Jump_Zero 0x20e 01f6 00d8 | | Load_Top At_Offset_0 01f7 6805 |h | Jump_Zero 0x1fd 01f8 e00d | | Load 0x0,0xd 01f9 e00e | | Load 0x0,0xe 01fa 8010 | | Call 0x0,0x10 01fb 4801 |H | Short_Literal 0x1 01fc 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01fd 480a |H | Short_Literal 0xa 01fe 0092 02fa | | Action Push_String_Extended,0x2fa ; "Problem encountered starting task: " 0200 e402 | | Load 0x2,0x2 0201 e002 | | Load 0x0,0x2 0202 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0203 01cc | | Execute Vector,Catenate 0204 01cb | | Execute Vector,Append 0205 800a | | Call 0x0,0xa 0206 7807 |x | Jump 0x20e 0207 4801 |H | Short_Literal 0x1 0208 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0209 7804 |x | Jump 0x20e 020a e213 | | Load 0x1,0x13 020b 800b | | Call 0x0,0xb 020c 4801 |H | Short_Literal 0x1 020d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 020e 00d9 | | Load_Top At_Offset_1 020f 7003 |p | Jump_Nonzero 0x213 0210 00db | | Load_Top At_Offset_3 0211 8011 | | Call 0x0,0x11 0212 7002 |p | Jump_Nonzero 0x215 0213 e00e | | Load 0x0,0xe 0214 8012 | | Call 0x0,0x12 0215 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0216 TRAP_01a0: 0216 0007 | | Action Break_Optional 0217 480a |H | Short_Literal 0xa 0218 0092 02f8 | | Action Push_String_Extended,0x2f8 ; "Exception raised during command processing: " 021a e00c | | Load 0x0,0xc 021b 180d | | Execute Package,Field_Execute,Field_Number 0xd 021c 01cc | | Execute Vector,Catenate 021d 01cb | | Execute Vector,Append 021e 800a | | Call 0x0,0xa 021f e00e | | Load 0x0,0xe 0220 8012 | | Call 0x0,0x12 0221 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0222 0000 0000 | | .BLANK 0000[0x6] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0235 | 5 | .CONST 0x0235 ; Address of begin 0229 025f | _ | .CONST 0x025f ; Address of exception handler 022a 0004 | | .CONST 0x0004 ; Number of locals 022b INIT_0228: 022b e002 | | Load 0x0,0x2 022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022d 02c7 | | Declare_Variable Any 022e 00d8 | | Load_Top At_Offset_0 022f 1c00 | | Execute_Immediate Run_Utility,0x0 0230 e003 | | Load 0x0,0x3 0231 02c7 | | Declare_Variable Any 0232 00d8 | | Load_Top At_Offset_0 0233 1c00 | | Execute_Immediate Run_Utility,0x0 0234 00e1 | | Load_Encached Boolean_Cache 0235 BODY_0228: 0235 8004 | | Call 0x0,0x4 0236 7025 |p% | Jump_Nonzero 0x25c 0237 00e1 | | Load_Encached Boolean_Cache 0238 00da | | Load_Top At_Offset_2 0239 0120 | | Execute Any,Is_Value 023a 6802 |h | Jump_Zero 0x23d 023b e003 | | Load 0x0,0x3 023c 7801 |x | Jump 0x23e 023d 00da | | Load_Top At_Offset_2 023e 4801 |H | Short_Literal 0x1 023f e5ff | | Load 0x2,-0x1 0240 8006 | | Call 0x0,0x6 0241 c403 | | Store 0x2,0x3 0242 0059 | Y | Store_Top Discrete,At_Offset_1 0243 00d8 | | Load_Top At_Offset_0 0244 6816 |h | Jump_Zero 0x25b 0245 00da | | Load_Top At_Offset_2 0246 e014 | | Load 0x0,0x14 0247 00db | | Load_Top At_Offset_3 0248 e015 | | Load 0x0,0x15 0249 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 024a c014 | | Store 0x0,0x14 024b c402 | | Store 0x2,0x2 024c 4802 |H | Short_Literal 0x2 024d 00db | | Load_Top At_Offset_3 024e e002 | | Load 0x0,0x2 024f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0250 6807 |h | Jump_Zero 0x258 0251 480a |H | Short_Literal 0xa 0252 00db | | Load_Top At_Offset_3 0253 e002 | | Load 0x0,0x2 0254 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0255 01cb | | Execute Vector,Append 0256 800a | | Call 0x0,0xa 0257 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0258 0092 02fd | | Action Push_String_Extended,0x2fd ; "All the specified step-points have been cleared\x0a" 025a 800b | | Call 0x0,0xb 025b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025c e213 | | Load 0x1,0x13 025d 800b | | Call 0x0,0xb 025e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025f TRAP_0228: 025f 0007 | | Action Break_Optional 0260 480a |H | Short_Literal 0xa 0261 0092 02f8 | | Action Push_String_Extended,0x2f8 ; "Exception raised during command processing: " 0263 e00c | | Load 0x0,0xc 0264 180d | | Execute Package,Field_Execute,Field_Number 0xd 0265 01cc | | Execute Vector,Catenate 0266 01cb | | Execute Vector,Append 0267 800a | | Call 0x0,0xa 0268 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0269 0000 0000 | | .BLANK 0000[0x7] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 8016 | | Call 0x0,0x16 0275 6804 |h | Jump_Zero 0x27a 0276 0092 02fe | | Action Push_String_Extended,0x2fe ; "Each task will stop by its next statement.\x0a" 0278 800b | | Call 0x0,0xb 0279 4502 |E | Exit_Suprogram New_Top_Offset 0x2 027a 480a |H | Short_Literal 0xa 027b 0092 02f6 | | Action Push_String_Extended,0x2f6 ; "Task " 027d e5ff | | Load 0x2,-0x1 027e 8009 | | Call 0x0,0x9 027f 01cc | | Execute Vector,Catenate 0280 0092 02ff | | Action Push_String_Extended,0x2ff ; " will stop by its next statement." 0282 01cc | | Execute Vector,Catenate 0283 01cb | | Execute Vector,Append 0284 800b | | Call 0x0,0xb 0285 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0286 0000 0000 | | .XXX[0x2] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 0291 | | .CONST 0x0291 ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0002 | | .CONST 0x0002 ; Number of locals 028b INIT_0288: 028b e003 | | Load 0x0,0x3 028c 02c7 | | Declare_Variable Any 028d e017 | | Load 0x0,0x17 028e e018 | | Load 0x0,0x18 028f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0290 a402 | | Store_Unchecked 0x2,0x2 0291 BODY_0288: 0291 00d8 | | Load_Top At_Offset_0 0292 8016 | | Call 0x0,0x16 0293 6807 |h | Jump_Zero 0x29b 0294 e00d | | Load 0x0,0xd 0295 00d8 | | Load_Top At_Offset_0 0296 0120 | | Execute Any,Is_Value 0297 7002 |p | Jump_Nonzero 0x29a 0298 00d8 | | Load_Top At_Offset_0 0299 011e | | Execute Any,Convert 029a 00ca | | Action Exit_Nullary_Function 029b 00d8 | | Load_Top At_Offset_0 029c 00ca | | Action Exit_Nullary_Function 029d 0000 0000 | | .XXX[0x3] 029f 0000 | | 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 00da | | Load_Top At_Offset_2 02a4 8215 | | Call 0x1,0x15 02a5 012f | / | Execute Any,Equal 02a6 7003 |p | Jump_Nonzero 0x2aa 02a7 00da | | Load_Top At_Offset_2 02a8 8011 | | Call 0x0,0x11 02a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02aa 4801 |H | Short_Literal 0x1 02ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ac 0000 0000 | | .BLANK 0000[0x4] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b8 | | .CONST 0x02b8 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0002 | | .CONST 0x0002 ; Number of locals 02b3 INIT_02b0: 02b3 e002 | | Load 0x0,0x2 02b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b5 02c7 | | Declare_Variable Any 02b6 00d8 | | Load_Top At_Offset_0 02b7 1c00 | | Execute_Immediate Run_Utility,0x0 02b8 BODY_02b0: 02b8 e019 | | Load 0x0,0x19 02b9 e01a | | Load 0x0,0x1a 02ba 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02bb 701b |p | Jump_Nonzero 0x2d7 02bc 00d8 | | Load_Top At_Offset_0 02bd e01b | | Load 0x0,0x1b 02be e019 | | Load 0x0,0x19 02bf 801c | | Call 0x0,0x1c 02c0 e01a | | Load 0x0,0x1a 02c1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02c2 c01b | | Store 0x0,0x1b 02c3 c402 | | Store 0x2,0x2 02c4 4800 |H | Short_Literal 0x0 02c5 c019 | | Store 0x0,0x19 02c6 4802 |H | Short_Literal 0x2 02c7 00d9 | | Load_Top At_Offset_1 02c8 e002 | | Load 0x0,0x2 02c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02ca 680a |h | Jump_Zero 0x2d5 02cb 480a |H | Short_Literal 0xa 02cc 0092 0300 | | Action Push_String_Extended,0x300 ; "Problem encountered starting tasks that were temporarily stopped due to the \x22FREEZE_TASKS\x22 flag:\x0a" 02ce 00da | | Load_Top At_Offset_2 02cf e002 | | Load 0x0,0x2 02d0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02d1 01cc | | Execute Vector,Catenate 02d2 01cb | | Execute Vector,Append 02d3 800a | | Call 0x0,0xa 02d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02d5 00d8 | | Load_Top At_Offset_0 02d6 801d | | Call 0x0,0x1d 02d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 00da | | Load_Top At_Offset_2 02dc 4607 |F | Jump_Case 0x8 02dd 7809 |x | Jump 0x2e7 ; case 0x0 02de 780a |x | Jump 0x2e9 ; case 0x1 02df 780b |x | Jump 0x2eb ; case 0x2 02e0 780c |x | Jump 0x2ed ; case 0x3 02e1 780d |x | Jump 0x2ef ; case 0x4 02e2 7810 |x | Jump 0x2f3 ; case 0x5 02e3 780d |x | Jump 0x2f1 ; case 0x6 02e4 7800 |x | Jump 0x2e5 ; case 0x7 02e5 4800 |H | Short_Literal 0x0 02e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e7 4802 |H | Short_Literal 0x2 02e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e9 4803 |H | Short_Literal 0x3 02ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02eb 4804 |H | Short_Literal 0x4 02ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ed 4805 |H | Short_Literal 0x5 02ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ef 4807 |H | Short_Literal 0x7 02f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f1 4806 |H | Short_Literal 0x6 02f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f3 4801 |H | Short_Literal 0x1 02f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f5 ; -------------------------------------------------------------------------------------- 02f5 ; STRING TABLE 02f5 ; -------------------------------------------------------------------------------------- 02f5 001a | | .STRTAB 0x001a->0x0302 ; "Program has terminated.\x0a" 02f6 0030 | 0 | .STRTAB 0x0030->0x030e ; "Task " 02f7 0033 | 3 | .STRTAB 0x0033->0x0310 ; " could not be stopped:" 02f8 0047 | G | .STRTAB 0x0047->0x031b ; "Exception raised during command processing: " 02f9 0071 | q | .STRTAB 0x0071->0x0331 ; " could not be held:" 02fa 0082 | | .STRTAB 0x0082->0x033b ; "Problem encountered starting task: " 02fb 00a3 | | .STRTAB 0x00a3->0x034c ; "Problem encountered releasing task: " 02fc 00c5 | | .STRTAB 0x00c5->0x035e ; "Released.\x0a" 02fd 00cd | | .STRTAB 0x00cd->0x0363 ; "All the specified step-points have been cleared\x0a" 02fe 00fb | | .STRTAB 0x00fb->0x037b ; "Each task will stop by its next statement.\x0a" 02ff 0124 | $ | .STRTAB 0x0124->0x0391 ; " will stop by its next statement." 0300 0143 | C | .STRTAB 0x0143->0x03a1 ; "Problem encountered starting tasks that were temporarily stopped due to the \x22FREEZE_TASKS\x22 flag:\x0a" 0301 01a2 | | .STREND 0x01a2->0x03d2 0302 5072 6f67 |Prog| .STRTAB_STRINGS 03d2 0000 0000 | | .BLANK 0000[0x6] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; Debug Table 03d8 ; -------------------------------------------------------------------------------------- 03d8 0004 000d | | .DEBUG4 0x0004,0x000d,0x76b2,0x0000,0x0001,0x0000 03de 0000 0000 | | .BLANK 0000[0x22]