|
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
└─⟦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 02b8 | | .CONST 0x02b8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 029d 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call 0012 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0031 | 1 | .CONST 0x0031 ; Address of begin 0021 0107 | | .CONST 0x0107 ; Address of exception handler 0022 0005 | | .CONST 0x0005 ; Number of locals 0023 INIT_0020: 0023 e002 | | Load 0x0,0x2 0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0025 02c7 | | Declare_Variable Any 0026 00d8 | | Load_Top At_Offset_0 0027 1c00 | | Execute_Immediate Run_Utility,0x0 0028 e003 | | Load 0x0,0x3 0029 02c7 | | Declare_Variable Any 002a 00d8 | | Load_Top At_Offset_0 002b 1c00 | | Execute_Immediate Run_Utility,0x0 002c 00e1 | | Load_Encached Boolean_Cache 002d e004 | | Load 0x0,0x4 002e 0322 | " | Declare_Variable Record 002f 00d8 | | Load_Top At_Offset_0 0030 1c00 | | Execute_Immediate Run_Utility,0x0 0031 BODY_0020: 0031 00e1 | | Load_Encached Boolean_Cache 0032 00db | | Load_Top At_Offset_3 0033 0120 | | Execute Any,Is_Value 0034 6802 |h | Jump_Zero 0x37 0035 e003 | | Load 0x0,0x3 0036 7801 |x | Jump 0x38 0037 00db | | Load_Top At_Offset_3 0038 4801 |H | Short_Literal 0x1 0039 e5fc | | Load 0x2,-0x4 003a 8005 | | Call 0x0,0x5 003b c403 | | Store 0x2,0x3 003c 005a | Z | Store_Top Discrete,At_Offset_2 003d 00d9 | | Load_Top At_Offset_1 003e 7001 |p | Jump_Nonzero 0x40 003f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0040 00db | | Load_Top At_Offset_3 0041 00d9 | | Load_Top At_Offset_1 0042 e5fb | | Load 0x2,-0x5 0043 8006 | | Call 0x0,0x6 0044 00d1 | | Pop_Control Pop_Count_1 0045 c402 | | Store 0x2,0x2 0046 4802 |H | Short_Literal 0x2 0047 e402 | | Load 0x2,0x2 0048 e002 | | Load 0x0,0x2 0049 1810 | | Execute Package,Field_Execute,Field_Number 0x10 004a 6801 |h | Jump_Zero 0x4c 004b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 004c e5ff | | Load 0x2,-0x1 004d 4606 |F | Jump_Case 0x7 004e 781a |x | Jump 0x69 ; case 0x0 004f 7853 |xS | Jump 0xa3 ; case 0x1 0050 7866 |xf | Jump 0xb7 ; case 0x2 0051 78a1 |x | Jump 0xf3 ; case 0x3 0052 7878 |xx | Jump 0xcb ; case 0x4 0053 788b |x | Jump 0xdf ; case 0x5 0054 7800 |x | Jump 0x55 ; case 0x6 0055 00db | | Load_Top At_Offset_3 0056 00d9 | | Load_Top At_Offset_1 0057 e007 | | Load 0x0,0x7 0058 e5fd | | Load 0x2,-0x3 0059 e5fe | | Load 0x2,-0x2 005a e403 | | Load 0x2,0x3 005b e008 | | Load 0x0,0x8 005c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 005d c007 | | Store 0x0,0x7 005e 00d1 | | Pop_Control Pop_Count_1 005f c402 | | Store 0x2,0x2 0060 00da | | Load_Top At_Offset_2 0061 00d9 | | Load_Top At_Offset_1 0062 e5fb | | Load 0x2,-0x5 0063 e5fe | | Load 0x2,-0x2 0064 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "Statement" 0066 e402 | | Load 0x2,0x2 0067 8210 | | Call 0x1,0x10 0068 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0069 00db | | Load_Top At_Offset_3 006a 00d9 | | Load_Top At_Offset_1 006b e007 | | Load 0x0,0x7 006c e5fd | | Load 0x2,-0x3 006d e5fe | | Load 0x2,-0x2 006e e403 | | Load 0x2,0x3 006f e008 | | Load 0x0,0x8 0070 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0071 c007 | | Store 0x0,0x7 0072 00d1 | | Pop_Control Pop_Count_1 0073 c402 | | Store 0x2,0x2 0074 00da | | Load_Top At_Offset_2 0075 00d9 | | Load_Top At_Offset_1 0076 e5fb | | Load 0x2,-0x5 0077 e5fe | | Load 0x2,-0x2 0078 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "Call" 007a e402 | | Load 0x2,0x2 007b 8210 | | Call 0x1,0x10 007c 00db | | Load_Top At_Offset_3 007d 00d9 | | Load_Top At_Offset_1 007e e007 | | Load 0x0,0x7 007f e5fd | | Load 0x2,-0x3 0080 e5fe | | Load 0x2,-0x2 0081 e403 | | Load 0x2,0x3 0082 e008 | | Load 0x0,0x8 0083 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0084 c007 | | Store 0x0,0x7 0085 00d1 | | Pop_Control Pop_Count_1 0086 c402 | | Store 0x2,0x2 0087 00da | | Load_Top At_Offset_2 0088 00d9 | | Load_Top At_Offset_1 0089 e5fb | | Load 0x2,-0x5 008a e5fe | | Load 0x2,-0x2 008b 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "Exception" 008d e402 | | Load 0x2,0x2 008e 8210 | | Call 0x1,0x10 008f 00db | | Load_Top At_Offset_3 0090 00d9 | | Load_Top At_Offset_1 0091 e007 | | Load 0x0,0x7 0092 e5fd | | Load 0x2,-0x3 0093 e5fe | | Load 0x2,-0x2 0094 e403 | | Load 0x2,0x3 0095 e008 | | Load 0x0,0x8 0096 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0097 c007 | | Store 0x0,0x7 0098 00d1 | | Pop_Control Pop_Count_1 0099 c402 | | Store 0x2,0x2 009a 00da | | Load_Top At_Offset_2 009b 00d9 | | Load_Top At_Offset_1 009c e5fb | | Load 0x2,-0x5 009d e5fe | | Load 0x2,-0x2 009e 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "Statement" 00a0 e402 | | Load 0x2,0x2 00a1 8210 | | Call 0x1,0x10 00a2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00a3 00db | | Load_Top At_Offset_3 00a4 00d9 | | Load_Top At_Offset_1 00a5 e007 | | Load 0x0,0x7 00a6 e5fd | | Load 0x2,-0x3 00a7 e5fe | | Load 0x2,-0x2 00a8 e403 | | Load 0x2,0x3 00a9 e008 | | Load 0x0,0x8 00aa 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 00ab c007 | | Store 0x0,0x7 00ac 00d1 | | Pop_Control Pop_Count_1 00ad c402 | | Store 0x2,0x2 00ae 00da | | Load_Top At_Offset_2 00af 00d9 | | Load_Top At_Offset_1 00b0 e5fb | | Load 0x2,-0x5 00b1 e5fe | | Load 0x2,-0x2 00b2 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "Call" 00b4 e402 | | Load 0x2,0x2 00b5 8210 | | Call 0x1,0x10 00b6 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00b7 00db | | Load_Top At_Offset_3 00b8 00d9 | | Load_Top At_Offset_1 00b9 e007 | | Load 0x0,0x7 00ba e5fd | | Load 0x2,-0x3 00bb e5fe | | Load 0x2,-0x2 00bc e403 | | Load 0x2,0x3 00bd e008 | | Load 0x0,0x8 00be 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 00bf c007 | | Store 0x0,0x7 00c0 00d1 | | Pop_Control Pop_Count_1 00c1 c402 | | Store 0x2,0x2 00c2 00da | | Load_Top At_Offset_2 00c3 00d9 | | Load_Top At_Offset_1 00c4 e5fb | | Load 0x2,-0x5 00c5 e5fe | | Load 0x2,-0x2 00c6 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "Exception" 00c8 e402 | | Load 0x2,0x2 00c9 8210 | | Call 0x1,0x10 00ca 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00cb 00db | | Load_Top At_Offset_3 00cc 00d9 | | Load_Top At_Offset_1 00cd e007 | | Load 0x0,0x7 00ce e5fd | | Load 0x2,-0x3 00cf e5fe | | Load 0x2,-0x2 00d0 e403 | | Load 0x2,0x3 00d1 e008 | | Load 0x0,0x8 00d2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00d3 c007 | | Store 0x0,0x7 00d4 00d1 | | Pop_Control Pop_Count_1 00d5 c402 | | Store 0x2,0x2 00d6 00da | | Load_Top At_Offset_2 00d7 00d9 | | Load_Top At_Offset_1 00d8 e5fb | | Load 0x2,-0x5 00d9 e5fe | | Load 0x2,-0x2 00da 0092 01f8 | | Action Push_String_Extended,0x1f8 ; "Propagate_Exception" 00dc e402 | | Load 0x2,0x2 00dd 8210 | | Call 0x1,0x10 00de 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00df 00db | | Load_Top At_Offset_3 00e0 00d9 | | Load_Top At_Offset_1 00e1 e007 | | Load 0x0,0x7 00e2 e5fd | | Load 0x2,-0x3 00e3 e5fe | | Load 0x2,-0x2 00e4 e403 | | Load 0x2,0x3 00e5 e008 | | Load 0x0,0x8 00e6 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 00e7 c007 | | Store 0x0,0x7 00e8 00d1 | | Pop_Control Pop_Count_1 00e9 c402 | | Store 0x2,0x2 00ea 00da | | Load_Top At_Offset_2 00eb 00d9 | | Load_Top At_Offset_1 00ec e5fb | | Load 0x2,-0x5 00ed e5fe | | Load 0x2,-0x2 00ee 0092 01f9 | | Action Push_String_Extended,0x1f9 ; "Rendezvous" 00f0 e402 | | Load 0x2,0x2 00f1 8210 | | Call 0x1,0x10 00f2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00f3 00db | | Load_Top At_Offset_3 00f4 00d9 | | Load_Top At_Offset_1 00f5 e007 | | Load 0x0,0x7 00f6 e5fd | | Load 0x2,-0x3 00f7 e5fe | | Load 0x2,-0x2 00f8 e403 | | Load 0x2,0x3 00f9 e008 | | Load 0x0,0x8 00fa 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 00fb c007 | | Store 0x0,0x7 00fc 00d1 | | Pop_Control Pop_Count_1 00fd c402 | | Store 0x2,0x2 00fe 00da | | Load_Top At_Offset_2 00ff 00d9 | | Load_Top At_Offset_1 0100 e5fb | | Load 0x2,-0x5 0101 e5fe | | Load 0x2,-0x2 0102 0092 01fa | | Action Push_String_Extended,0x1fa ; "Machine_Instruction" 0104 e402 | | Load 0x2,0x2 0105 8210 | | Call 0x1,0x10 0106 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0107 TRAP_0020: 0107 0007 | | Action Break_Optional 0108 480a |H | Short_Literal 0xa 0109 0092 01fb | | Action Push_String_Extended,0x1fb ; "Exception raised during command processing: " 010b e009 | | Load 0x0,0x9 010c 180d | | Execute Package,Field_Execute,Field_Number 0xd 010d 01cc | | Execute Vector,Catenate 010e 01cb | | Execute Vector,Append 010f 800a | | Call 0x0,0xa 0110 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0111 0000 0000 | | .BLANK 0000[0x7] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011f | | .CONST 0x011f ; Address of begin 0119 0141 | A | .CONST 0x0141 ; Address of exception handler 011a 0003 | | .CONST 0x0003 ; Number of locals 011b INIT_0118: 011b 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 011d 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 011f BODY_0118: 011f e5ff | | Load 0x2,-0x1 0120 01db | | Execute Vector,Length 0121 7009 |p | Jump_Nonzero 0x12b 0122 e00b | | Load 0x0,0xb 0123 6801 |h | Jump_Zero 0x125 0124 8402 | | Call 0x2,0x2 0125 4800 |H | Short_Literal 0x0 0126 c00b | | Store 0x0,0xb 0127 0092 01fc | | Action Push_String_Extended,0x1fc ; "Trace output will go to the debugger window.\x0a" 0129 800c | | Call 0x0,0xc 012a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012b e00d | | Load 0x0,0xd 012c 00ea | | Load_Encached Null_String_Cache 012d e5ff | | Load 0x2,-0x1 012e 4801 |H | Short_Literal 0x1 012f e00e | | Load 0x0,0xe 0130 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0131 c00d | | Store 0x0,0xd 0132 4801 |H | Short_Literal 0x1 0133 c00b | | Store 0x0,0xb 0134 480a |H | Short_Literal 0xa 0135 4822 |H" | Short_Literal 0x22 0136 0092 01fd | | Action Push_String_Extended,0x1fd ; "Trace output will go to file \x22" 0138 e5ff | | Load 0x2,-0x1 0139 01cc | | Execute Vector,Catenate 013a 01cb | | Execute Vector,Append 013b 0092 01fe | | Action Push_String_Extended,0x1fe ; "." 013d 01cc | | Execute Vector,Catenate 013e 01cb | | Execute Vector,Append 013f 800c | | Call 0x0,0xc 0140 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0141 TRAP_0118: 0141 00d8 | | Load_Top At_Offset_0 0142 0107 | | Execute Exception,Get_Name 0143 4900 |I | Short_Literal 0x100 0144 490f |I | Short_Literal 0x10f 0145 0262 | b | Execute Discrete,In_Range 0146 680d |h | Jump_Zero 0x154 0147 480a |H | Short_Literal 0xa 0148 4822 |H" | Short_Literal 0x22 0149 0092 01ff | | Action Push_String_Extended,0x1ff ; "Can't trace to file \x22" 014b e5ff | | Load 0x2,-0x1 014c 01cc | | Execute Vector,Catenate 014d 01cb | | Execute Vector,Append 014e 0092 0200 | | Action Push_String_Extended,0x200 ; "; someone else has it open." 0150 01cc | | Execute Vector,Catenate 0151 01cb | | Execute Vector,Append 0152 800a | | Call 0x0,0xa 0153 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0154 00d8 | | Load_Top At_Offset_0 0155 0107 | | Execute Exception,Get_Name 0156 4920 |I | Short_Literal 0x120 0157 492f |I/ | Short_Literal 0x12f 0158 0262 | b | Execute Discrete,In_Range 0159 6802 |h | Jump_Zero 0x15c 015a 8403 | | Call 0x2,0x3 015b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015c 480a |H | Short_Literal 0xa 015d 0092 01fb | | Action Push_String_Extended,0x1fb ; "Exception raised during command processing: " 015f e009 | | Load 0x0,0x9 0160 180d | | Execute Package,Field_Execute,Field_Number 0xd 0161 01cc | | Execute Vector,Catenate 0162 01cb | | Execute Vector,Append 0163 800a | | Call 0x0,0xa 0164 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 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 00da | | Load_Top At_Offset_2 016c 6803 |h | Jump_Zero 0x170 016d 0092 0201 | | Action Push_String_Extended,0x201 ; "enabled" 016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0170 0092 0202 | | Action Push_String_Extended,0x202 ; "disabled" 0172 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0173 0000 0000 | | .BLANK 0000[0x5] 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 4802 |H | Short_Literal 0x2 017c 00db | | Load_Top At_Offset_3 017d e002 | | Load 0x0,0x2 017e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 017f 681d |h | Jump_Zero 0x19d 0180 480a |H | Short_Literal 0xa 0181 480a |H | Short_Literal 0xa 0182 e5fe | | Load 0x2,-0x2 0183 0092 0203 | | Action Push_String_Extended,0x203 ; " tracing could not be " 0185 01cc | | Execute Vector,Catenate 0186 e5fd | | Load 0x2,-0x3 0187 820f | | Call 0x1,0xf 0188 01cc | | Execute Vector,Catenate 0189 0092 0204 | | Action Push_String_Extended,0x204 ; " " 018b 01cc | | Execute Vector,Catenate 018c 4801 |H | Short_Literal 0x1 018d e5fa | | Load 0x2,-0x6 018e e5fb | | Load 0x2,-0x5 018f e5fc | | Load 0x2,-0x4 0190 800f | | Call 0x0,0xf 0191 01cc | | Execute Vector,Catenate 0192 0092 0205 | | Action Push_String_Extended,0x205 ; ":" 0194 01cc | | Execute Vector,Catenate 0195 01cb | | Execute Vector,Append 0196 e5ff | | Load 0x2,-0x1 0197 e002 | | Load 0x0,0x2 0198 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0199 01cc | | Execute Vector,Catenate 019a 01cb | | Execute Vector,Append 019b 800a | | Call 0x0,0xa 019c 4507 |E | Exit_Suprogram New_Top_Offset 0x7 019d 480a |H | Short_Literal 0xa 019e e5fe | | Load 0x2,-0x2 019f 0092 0206 | | Action Push_String_Extended,0x206 ; " tracing has been " 01a1 01cc | | Execute Vector,Catenate 01a2 e5fd | | Load 0x2,-0x3 01a3 820f | | Call 0x1,0xf 01a4 01cc | | Execute Vector,Catenate 01a5 0092 0204 | | Action Push_String_Extended,0x204 ; " " 01a7 01cc | | Execute Vector,Catenate 01a8 4801 |H | Short_Literal 0x1 01a9 e5fa | | Load 0x2,-0x6 01aa e5fb | | Load 0x2,-0x5 01ab e5fc | | Load 0x2,-0x4 01ac 800f | | Call 0x0,0xf 01ad 01cc | | Execute Vector,Catenate 01ae 0092 01fe | | Action Push_String_Extended,0x1fe ; "." 01b0 01cc | | Execute Vector,Catenate 01b1 01cb | | Execute Vector,Append 01b2 800c | | Call 0x0,0xc 01b3 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 01c0 | | .CONST 0x01c0 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb e00d | | Load 0x0,0xd 01bc e00e | | Load 0x0,0xe 01bd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01be c00d | | Store 0x0,0xd 01bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c0 TRAP_01b8: 01c0 00d8 | | Load_Top At_Offset_0 01c1 0107 | | Execute Exception,Get_Name 01c2 4900 |I | Short_Literal 0x100 01c3 490f |I | Short_Literal 0x10f 01c4 0262 | b | Execute Discrete,In_Range 01c5 6801 |h | Jump_Zero 0x1c7 01c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c7 0100 | | Execute Exception,Raise 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 01e1 | | .CONST 0x01e1 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb e00d | | Load 0x0,0xd 01cc 00ea | | Load_Encached Null_String_Cache 01cd e5ff | | Load 0x2,-0x1 01ce 4801 |H | Short_Literal 0x1 01cf e00e | | Load 0x0,0xe 01d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d1 c00d | | Store 0x0,0xd 01d2 480a |H | Short_Literal 0xa 01d3 4822 |H" | Short_Literal 0x22 01d4 0092 01fd | | Action Push_String_Extended,0x1fd ; "Trace output will go to file \x22" 01d6 e5ff | | Load 0x2,-0x1 01d7 01cc | | Execute Vector,Catenate 01d8 01cb | | Execute Vector,Append 01d9 0092 01fe | | Action Push_String_Extended,0x1fe ; "." 01db 01cc | | Execute Vector,Catenate 01dc 01cb | | Execute Vector,Append 01dd 800c | | Call 0x0,0xc 01de 4801 |H | Short_Literal 0x1 01df c00b | | Store 0x0,0xb 01e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e1 TRAP_01c8: 01e1 0007 | | Action Break_Optional 01e2 4822 |H" | Short_Literal 0x22 01e3 4822 |H" | Short_Literal 0x22 01e4 0092 0207 | | Action Push_String_Extended,0x207 ; "Exception " 01e6 e009 | | Load 0x0,0x9 01e7 180d | | Execute Package,Field_Execute,Field_Number 0xd 01e8 01cc | | Execute Vector,Catenate 01e9 0092 0208 | | Action Push_String_Extended,0x208 ; " raised when attempting to open file " 01eb 01cc | | Execute Vector,Catenate 01ec 01cb | | Execute Vector,Append 01ed e5ff | | Load 0x2,-0x1 01ee 01cc | | Execute Vector,Catenate 01ef 01cb | | Execute Vector,Append 01f0 0092 01fe | | Action Push_String_Extended,0x1fe ; "." 01f2 01cc | | Execute Vector,Catenate 01f3 800a | | Call 0x0,0xa 01f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f5 ; -------------------------------------------------------------------------------------- 01f5 ; STRING TABLE 01f5 ; -------------------------------------------------------------------------------------- 01f5 002a | * | .STRTAB 0x002a->0x020a ; "Statement" 01f6 0031 | 1 | .STRTAB 0x0031->0x020e ; "Call" 01f7 0033 | 3 | .STRTAB 0x0033->0x0210 ; "Exception" 01f8 003a | : | .STRTAB 0x003a->0x0215 ; "Propagate_Exception" 01f9 004b | K | .STRTAB 0x004b->0x021e ; "Rendezvous" 01fa 0053 | S | .STRTAB 0x0053->0x0223 ; "Machine_Instruction" 01fb 0064 | d | .STRTAB 0x0064->0x022d ; "Exception raised during command processing: " 01fc 008e | | .STRTAB 0x008e->0x0243 ; "Trace output will go to the debugger window.\x0a" 01fd 00b9 | | .STRTAB 0x00b9->0x0259 ; "Trace output will go to file \x22" 01fe 00d5 | | .STRTAB 0x00d5->0x0268 ; "." 01ff 00d4 | | .STRTAB 0x00d4->0x0269 ; "Can't trace to file \x22" 0200 00e7 | | .STRTAB 0x00e7->0x0273 ; "; someone else has it open." 0201 0100 | | .STRTAB 0x0100->0x0281 ; "enabled" 0202 0105 | | .STRTAB 0x0105->0x0284 ; "disabled" 0203 010b | | .STRTAB 0x010b->0x0288 ; " tracing could not be " 0204 011f | | .STRTAB 0x011f->0x0293 ; " " 0205 011e | | .STRTAB 0x011e->0x0294 ; ":" 0206 011d | | .STRTAB 0x011d->0x0294 ; " tracing has been " 0207 012d | - | .STRTAB 0x012d->0x029d ; "Exception " 0208 0135 | 5 | .STRTAB 0x0135->0x02a2 ; " raised when attempting to open file " 0209 0158 | X | .STREND 0x0158->0x02b5 020a 5374 6174 |Stat| .STRTAB_STRINGS 02b5 0000 0000 | | .XXX[0x3] 02b7 0000 | | 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug Table 02b8 ; -------------------------------------------------------------------------------------- 02b8 0004 000d | | .DEBUG4 0x0004,0x000d,0x76b8,0x0000,0x0001,0x0000 02be 0000 0000 | | .BLANK 0000[0x48] 0306 000c | | .XXX[0x1] 0307 0000 0000 | | .BLANK 0000[0xb] 0312 0002 8000 | | .XXX[0x2] 0314 0000 0000 | | .BLANK 0000[0x4] 0318 0002 0000 | | .XXX[0x7] 031a 0020 0000 | | 031c 0000 0000 | | 031e 0040 | @ | 031f 0000 0000 | | .BLANK 0000[0xe1]