|
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 02b0 | | .CONST 0x02b0 ; 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 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call 0012 029d 0173 | s| Declare_Subprogram INIT_0170,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 0106 | | .CONST 0x0106 ; 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 e5fc | | Load 0x2,-0x4 0039 8005 | | Call 0x0,0x5 003a c403 | | Store 0x2,0x3 003b 005a | Z | Store_Top Discrete,At_Offset_2 003c 00d9 | | Load_Top At_Offset_1 003d 7001 |p | Jump_Nonzero 0x3f 003e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 003f 00db | | Load_Top At_Offset_3 0040 00d9 | | Load_Top At_Offset_1 0041 e5fb | | Load 0x2,-0x5 0042 8006 | | Call 0x0,0x6 0043 00d1 | | Pop_Control Pop_Count_1 0044 c402 | | Store 0x2,0x2 0045 4802 |H | Short_Literal 0x2 0046 e402 | | Load 0x2,0x2 0047 e002 | | Load 0x0,0x2 0048 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0049 6801 |h | Jump_Zero 0x4b 004a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 004b e5ff | | Load 0x2,-0x1 004c 4606 |F | Jump_Case 0x7 004d 781a |x | Jump 0x68 ; case 0x0 004e 7853 |xS | Jump 0xa2 ; case 0x1 004f 7866 |xf | Jump 0xb6 ; case 0x2 0050 78a1 |x | Jump 0xf2 ; case 0x3 0051 7878 |xx | Jump 0xca ; case 0x4 0052 788b |x | Jump 0xde ; case 0x5 0053 7800 |x | Jump 0x54 ; case 0x6 0054 00db | | Load_Top At_Offset_3 0055 00d9 | | Load_Top At_Offset_1 0056 e007 | | Load 0x0,0x7 0057 e5fd | | Load 0x2,-0x3 0058 e5fe | | Load 0x2,-0x2 0059 e403 | | Load 0x2,0x3 005a e008 | | Load 0x0,0x8 005b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 005c c007 | | Store 0x0,0x7 005d 00d1 | | Pop_Control Pop_Count_1 005e c402 | | Store 0x2,0x2 005f 00da | | Load_Top At_Offset_2 0060 00d9 | | Load_Top At_Offset_1 0061 e5fb | | Load 0x2,-0x5 0062 e5fe | | Load 0x2,-0x2 0063 0092 01ed | | Action Push_String_Extended,0x1ed ; "Statement" 0065 e402 | | Load 0x2,0x2 0066 8210 | | Call 0x1,0x10 0067 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0068 00db | | Load_Top At_Offset_3 0069 00d9 | | Load_Top At_Offset_1 006a e007 | | Load 0x0,0x7 006b e5fd | | Load 0x2,-0x3 006c e5fe | | Load 0x2,-0x2 006d e403 | | Load 0x2,0x3 006e e008 | | Load 0x0,0x8 006f 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0070 c007 | | Store 0x0,0x7 0071 00d1 | | Pop_Control Pop_Count_1 0072 c402 | | Store 0x2,0x2 0073 00da | | Load_Top At_Offset_2 0074 00d9 | | Load_Top At_Offset_1 0075 e5fb | | Load 0x2,-0x5 0076 e5fe | | Load 0x2,-0x2 0077 0092 01ee | | Action Push_String_Extended,0x1ee ; "Call" 0079 e402 | | Load 0x2,0x2 007a 8210 | | Call 0x1,0x10 007b 00db | | Load_Top At_Offset_3 007c 00d9 | | Load_Top At_Offset_1 007d e007 | | Load 0x0,0x7 007e e5fd | | Load 0x2,-0x3 007f e5fe | | Load 0x2,-0x2 0080 e403 | | Load 0x2,0x3 0081 e008 | | Load 0x0,0x8 0082 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0083 c007 | | Store 0x0,0x7 0084 00d1 | | Pop_Control Pop_Count_1 0085 c402 | | Store 0x2,0x2 0086 00da | | Load_Top At_Offset_2 0087 00d9 | | Load_Top At_Offset_1 0088 e5fb | | Load 0x2,-0x5 0089 e5fe | | Load 0x2,-0x2 008a 0092 01ef | | Action Push_String_Extended,0x1ef ; "Exception" 008c e402 | | Load 0x2,0x2 008d 8210 | | Call 0x1,0x10 008e 00db | | Load_Top At_Offset_3 008f 00d9 | | Load_Top At_Offset_1 0090 e007 | | Load 0x0,0x7 0091 e5fd | | Load 0x2,-0x3 0092 e5fe | | Load 0x2,-0x2 0093 e403 | | Load 0x2,0x3 0094 e008 | | Load 0x0,0x8 0095 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0096 c007 | | Store 0x0,0x7 0097 00d1 | | Pop_Control Pop_Count_1 0098 c402 | | Store 0x2,0x2 0099 00da | | Load_Top At_Offset_2 009a 00d9 | | Load_Top At_Offset_1 009b e5fb | | Load 0x2,-0x5 009c e5fe | | Load 0x2,-0x2 009d 0092 01ed | | Action Push_String_Extended,0x1ed ; "Statement" 009f e402 | | Load 0x2,0x2 00a0 8210 | | Call 0x1,0x10 00a1 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00a2 00db | | Load_Top At_Offset_3 00a3 00d9 | | Load_Top At_Offset_1 00a4 e007 | | Load 0x0,0x7 00a5 e5fd | | Load 0x2,-0x3 00a6 e5fe | | Load 0x2,-0x2 00a7 e403 | | Load 0x2,0x3 00a8 e008 | | Load 0x0,0x8 00a9 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 00aa c007 | | Store 0x0,0x7 00ab 00d1 | | Pop_Control Pop_Count_1 00ac c402 | | Store 0x2,0x2 00ad 00da | | Load_Top At_Offset_2 00ae 00d9 | | Load_Top At_Offset_1 00af e5fb | | Load 0x2,-0x5 00b0 e5fe | | Load 0x2,-0x2 00b1 0092 01ee | | Action Push_String_Extended,0x1ee ; "Call" 00b3 e402 | | Load 0x2,0x2 00b4 8210 | | Call 0x1,0x10 00b5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00b6 00db | | Load_Top At_Offset_3 00b7 00d9 | | Load_Top At_Offset_1 00b8 e007 | | Load 0x0,0x7 00b9 e5fd | | Load 0x2,-0x3 00ba e5fe | | Load 0x2,-0x2 00bb e403 | | Load 0x2,0x3 00bc e008 | | Load 0x0,0x8 00bd 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 00be c007 | | Store 0x0,0x7 00bf 00d1 | | Pop_Control Pop_Count_1 00c0 c402 | | Store 0x2,0x2 00c1 00da | | Load_Top At_Offset_2 00c2 00d9 | | Load_Top At_Offset_1 00c3 e5fb | | Load 0x2,-0x5 00c4 e5fe | | Load 0x2,-0x2 00c5 0092 01ef | | Action Push_String_Extended,0x1ef ; "Exception" 00c7 e402 | | Load 0x2,0x2 00c8 8210 | | Call 0x1,0x10 00c9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00ca 00db | | Load_Top At_Offset_3 00cb 00d9 | | Load_Top At_Offset_1 00cc e007 | | Load 0x0,0x7 00cd e5fd | | Load 0x2,-0x3 00ce e5fe | | Load 0x2,-0x2 00cf e403 | | Load 0x2,0x3 00d0 e008 | | Load 0x0,0x8 00d1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00d2 c007 | | Store 0x0,0x7 00d3 00d1 | | Pop_Control Pop_Count_1 00d4 c402 | | Store 0x2,0x2 00d5 00da | | Load_Top At_Offset_2 00d6 00d9 | | Load_Top At_Offset_1 00d7 e5fb | | Load 0x2,-0x5 00d8 e5fe | | Load 0x2,-0x2 00d9 0092 01f0 | | Action Push_String_Extended,0x1f0 ; "Propagate_Exception" 00db e402 | | Load 0x2,0x2 00dc 8210 | | Call 0x1,0x10 00dd 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00de 00db | | Load_Top At_Offset_3 00df 00d9 | | Load_Top At_Offset_1 00e0 e007 | | Load 0x0,0x7 00e1 e5fd | | Load 0x2,-0x3 00e2 e5fe | | Load 0x2,-0x2 00e3 e403 | | Load 0x2,0x3 00e4 e008 | | Load 0x0,0x8 00e5 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 00e6 c007 | | Store 0x0,0x7 00e7 00d1 | | Pop_Control Pop_Count_1 00e8 c402 | | Store 0x2,0x2 00e9 00da | | Load_Top At_Offset_2 00ea 00d9 | | Load_Top At_Offset_1 00eb e5fb | | Load 0x2,-0x5 00ec e5fe | | Load 0x2,-0x2 00ed 0092 01f1 | | Action Push_String_Extended,0x1f1 ; "Rendezvous" 00ef e402 | | Load 0x2,0x2 00f0 8210 | | Call 0x1,0x10 00f1 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00f2 00db | | Load_Top At_Offset_3 00f3 00d9 | | Load_Top At_Offset_1 00f4 e007 | | Load 0x0,0x7 00f5 e5fd | | Load 0x2,-0x3 00f6 e5fe | | Load 0x2,-0x2 00f7 e403 | | Load 0x2,0x3 00f8 e008 | | Load 0x0,0x8 00f9 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 00fa c007 | | Store 0x0,0x7 00fb 00d1 | | Pop_Control Pop_Count_1 00fc c402 | | Store 0x2,0x2 00fd 00da | | Load_Top At_Offset_2 00fe 00d9 | | Load_Top At_Offset_1 00ff e5fb | | Load 0x2,-0x5 0100 e5fe | | Load 0x2,-0x2 0101 0092 01f2 | | Action Push_String_Extended,0x1f2 ; "Machine_Instruction" 0103 e402 | | Load 0x2,0x2 0104 8210 | | Call 0x1,0x10 0105 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0106 TRAP_0020: 0106 0007 | | Action Break_Optional 0107 480a |H | Short_Literal 0xa 0108 0092 01f3 | | Action Push_String_Extended,0x1f3 ; "Exception raised during command processing: " 010a e009 | | Load 0x0,0x9 010b 180d | | Execute Package,Field_Execute,Field_Number 0xd 010c 01cc | | Execute Vector,Catenate 010d 01cb | | Execute Vector,Append 010e 800a | | Call 0x0,0xa 010f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0117 | | .CONST 0x0117 ; Address of begin 0111 0139 | 9 | .CONST 0x0139 ; Address of exception handler 0112 0003 | | .CONST 0x0003 ; Number of locals 0113 INIT_0110: 0113 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 0115 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0117 BODY_0110: 0117 e5ff | | Load 0x2,-0x1 0118 01db | | Execute Vector,Length 0119 7009 |p | Jump_Nonzero 0x123 011a e00b | | Load 0x0,0xb 011b 6801 |h | Jump_Zero 0x11d 011c 8402 | | Call 0x2,0x2 011d 4800 |H | Short_Literal 0x0 011e c00b | | Store 0x0,0xb 011f 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "Trace output will go to the debugger window.\x0a" 0121 800c | | Call 0x0,0xc 0122 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0123 e00d | | Load 0x0,0xd 0124 00ea | | Load_Encached Null_String_Cache 0125 e5ff | | Load 0x2,-0x1 0126 4801 |H | Short_Literal 0x1 0127 e00e | | Load 0x0,0xe 0128 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0129 c00d | | Store 0x0,0xd 012a 4801 |H | Short_Literal 0x1 012b c00b | | Store 0x0,0xb 012c 480a |H | Short_Literal 0xa 012d 4822 |H" | Short_Literal 0x22 012e 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "Trace output will go to file \x22" 0130 e5ff | | Load 0x2,-0x1 0131 01cc | | Execute Vector,Catenate 0132 01cb | | Execute Vector,Append 0133 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "." 0135 01cc | | Execute Vector,Catenate 0136 01cb | | Execute Vector,Append 0137 800c | | Call 0x0,0xc 0138 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0139 TRAP_0110: 0139 00d8 | | Load_Top At_Offset_0 013a 0107 | | Execute Exception,Get_Name 013b 4900 |I | Short_Literal 0x100 013c 490f |I | Short_Literal 0x10f 013d 0262 | b | Execute Discrete,In_Range 013e 680d |h | Jump_Zero 0x14c 013f 480a |H | Short_Literal 0xa 0140 4822 |H" | Short_Literal 0x22 0141 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "Can't trace to file \x22" 0143 e5ff | | Load 0x2,-0x1 0144 01cc | | Execute Vector,Catenate 0145 01cb | | Execute Vector,Append 0146 0092 01f8 | | Action Push_String_Extended,0x1f8 ; "; someone else has it open." 0148 01cc | | Execute Vector,Catenate 0149 01cb | | Execute Vector,Append 014a 800a | | Call 0x0,0xa 014b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014c 00d8 | | Load_Top At_Offset_0 014d 0107 | | Execute Exception,Get_Name 014e 4920 |I | Short_Literal 0x120 014f 492f |I/ | Short_Literal 0x12f 0150 0262 | b | Execute Discrete,In_Range 0151 6802 |h | Jump_Zero 0x154 0152 8403 | | Call 0x2,0x3 0153 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0154 480a |H | Short_Literal 0xa 0155 0092 01f3 | | Action Push_String_Extended,0x1f3 ; "Exception raised during command processing: " 0157 e009 | | Load 0x0,0x9 0158 180d | | Execute Package,Field_Execute,Field_Number 0xd 0159 01cc | | Execute Vector,Catenate 015a 01cb | | Execute Vector,Append 015b 800a | | Call 0x0,0xa 015c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 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 00da | | Load_Top At_Offset_2 0164 6803 |h | Jump_Zero 0x168 0165 0092 01f9 | | Action Push_String_Extended,0x1f9 ; "enabled" 0167 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0168 0092 01fa | | Action Push_String_Extended,0x1fa ; "disabled" 016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016b 0000 0000 | | .BLANK 0000[0x5] 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 4802 |H | Short_Literal 0x2 0174 00db | | Load_Top At_Offset_3 0175 e002 | | Load 0x0,0x2 0176 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0177 681d |h | Jump_Zero 0x195 0178 480a |H | Short_Literal 0xa 0179 480a |H | Short_Literal 0xa 017a e5fe | | Load 0x2,-0x2 017b 0092 01fb | | Action Push_String_Extended,0x1fb ; " tracing could not be " 017d 01cc | | Execute Vector,Catenate 017e e5fd | | Load 0x2,-0x3 017f 820f | | Call 0x1,0xf 0180 01cc | | Execute Vector,Catenate 0181 0092 01fc | | Action Push_String_Extended,0x1fc ; " " 0183 01cc | | Execute Vector,Catenate 0184 4801 |H | Short_Literal 0x1 0185 e5fa | | Load 0x2,-0x6 0186 e5fb | | Load 0x2,-0x5 0187 e5fc | | Load 0x2,-0x4 0188 800f | | Call 0x0,0xf 0189 01cc | | Execute Vector,Catenate 018a 0092 01fd | | Action Push_String_Extended,0x1fd ; ":" 018c 01cc | | Execute Vector,Catenate 018d 01cb | | Execute Vector,Append 018e e5ff | | Load 0x2,-0x1 018f e002 | | Load 0x0,0x2 0190 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0191 01cc | | Execute Vector,Catenate 0192 01cb | | Execute Vector,Append 0193 800a | | Call 0x0,0xa 0194 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0195 480a |H | Short_Literal 0xa 0196 e5fe | | Load 0x2,-0x2 0197 0092 01fe | | Action Push_String_Extended,0x1fe ; " tracing has been " 0199 01cc | | Execute Vector,Catenate 019a e5fd | | Load 0x2,-0x3 019b 820f | | Call 0x1,0xf 019c 01cc | | Execute Vector,Catenate 019d 0092 01fc | | Action Push_String_Extended,0x1fc ; " " 019f 01cc | | Execute Vector,Catenate 01a0 4801 |H | Short_Literal 0x1 01a1 e5fa | | Load 0x2,-0x6 01a2 e5fb | | Load 0x2,-0x5 01a3 e5fc | | Load 0x2,-0x4 01a4 800f | | Call 0x0,0xf 01a5 01cc | | Execute Vector,Catenate 01a6 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "." 01a8 01cc | | Execute Vector,Catenate 01a9 01cb | | Execute Vector,Append 01aa 800c | | Call 0x0,0xc 01ab 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 01b8 | | .CONST 0x01b8 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 e00d | | Load 0x0,0xd 01b4 e00e | | Load 0x0,0xe 01b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b6 c00d | | Store 0x0,0xd 01b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b8 TRAP_01b0: 01b8 00d8 | | Load_Top At_Offset_0 01b9 0107 | | Execute Exception,Get_Name 01ba 4900 |I | Short_Literal 0x100 01bb 490f |I | Short_Literal 0x10f 01bc 0262 | b | Execute Discrete,In_Range 01bd 6801 |h | Jump_Zero 0x1bf 01be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01bf 0100 | | Execute Exception,Raise 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 01d9 | | .CONST 0x01d9 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 e00d | | Load 0x0,0xd 01c4 00ea | | Load_Encached Null_String_Cache 01c5 e5ff | | Load 0x2,-0x1 01c6 4801 |H | Short_Literal 0x1 01c7 e00e | | Load 0x0,0xe 01c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c9 c00d | | Store 0x0,0xd 01ca 480a |H | Short_Literal 0xa 01cb 4822 |H" | Short_Literal 0x22 01cc 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "Trace output will go to file \x22" 01ce e5ff | | Load 0x2,-0x1 01cf 01cc | | Execute Vector,Catenate 01d0 01cb | | Execute Vector,Append 01d1 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "." 01d3 01cc | | Execute Vector,Catenate 01d4 01cb | | Execute Vector,Append 01d5 800c | | Call 0x0,0xc 01d6 4801 |H | Short_Literal 0x1 01d7 c00b | | Store 0x0,0xb 01d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d9 TRAP_01c0: 01d9 0007 | | Action Break_Optional 01da 4822 |H" | Short_Literal 0x22 01db 4822 |H" | Short_Literal 0x22 01dc 0092 01ff | | Action Push_String_Extended,0x1ff ; "Exception " 01de e009 | | Load 0x0,0x9 01df 180d | | Execute Package,Field_Execute,Field_Number 0xd 01e0 01cc | | Execute Vector,Catenate 01e1 0092 0200 | | Action Push_String_Extended,0x200 ; " raised when attempting to open file " 01e3 01cc | | Execute Vector,Catenate 01e4 01cb | | Execute Vector,Append 01e5 e5ff | | Load 0x2,-0x1 01e6 01cc | | Execute Vector,Catenate 01e7 01cb | | Execute Vector,Append 01e8 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "." 01ea 01cc | | Execute Vector,Catenate 01eb 800a | | Call 0x0,0xa 01ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ed ; -------------------------------------------------------------------------------------- 01ed ; STRING TABLE 01ed ; -------------------------------------------------------------------------------------- 01ed 002a | * | .STRTAB 0x002a->0x0202 ; "Statement" 01ee 0031 | 1 | .STRTAB 0x0031->0x0206 ; "Call" 01ef 0033 | 3 | .STRTAB 0x0033->0x0208 ; "Exception" 01f0 003a | : | .STRTAB 0x003a->0x020d ; "Propagate_Exception" 01f1 004b | K | .STRTAB 0x004b->0x0216 ; "Rendezvous" 01f2 0053 | S | .STRTAB 0x0053->0x021b ; "Machine_Instruction" 01f3 0064 | d | .STRTAB 0x0064->0x0225 ; "Exception raised during command processing: " 01f4 008e | | .STRTAB 0x008e->0x023b ; "Trace output will go to the debugger window.\x0a" 01f5 00b9 | | .STRTAB 0x00b9->0x0251 ; "Trace output will go to file \x22" 01f6 00d5 | | .STRTAB 0x00d5->0x0260 ; "." 01f7 00d4 | | .STRTAB 0x00d4->0x0261 ; "Can't trace to file \x22" 01f8 00e7 | | .STRTAB 0x00e7->0x026b ; "; someone else has it open." 01f9 0100 | | .STRTAB 0x0100->0x0279 ; "enabled" 01fa 0105 | | .STRTAB 0x0105->0x027c ; "disabled" 01fb 010b | | .STRTAB 0x010b->0x0280 ; " tracing could not be " 01fc 011f | | .STRTAB 0x011f->0x028b ; " " 01fd 011e | | .STRTAB 0x011e->0x028c ; ":" 01fe 011d | | .STRTAB 0x011d->0x028c ; " tracing has been " 01ff 012d | - | .STRTAB 0x012d->0x0295 ; "Exception " 0200 0135 | 5 | .STRTAB 0x0135->0x029a ; " raised when attempting to open file " 0201 0158 | X | .STREND 0x0158->0x02ad 0202 5374 6174 |Stat| .STRTAB_STRINGS 02ad 0000 0000 | | .XXX[0x3] 02af 0000 | | 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; Debug Table 02b0 ; -------------------------------------------------------------------------------------- 02b0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1662,0x0000,0x0001,0x0000 02b6 0000 0000 | | .XXX[0xb8] 02b8 1d00 0000 | | 02ba 0000 0000 | | 02bc 1c80 0000 | | 02be 1e00 0000 | | 02c0 23a6 b7b9 |# | 02c2 3290 39b8 |2 9 | 02c4 32b1 b4b3 |2 | 02c6 34b1 b0b6 |4 | 02c8 363c 9610 |6< | 02ca 3a34 34b9 |:44 | 02cc 9038 3937 | 897| 02ce b1b2 b23a | :| 02d0 b932 9034 | 2 4| 02d2 b990 3ab9 | : | 02d4 b2b2 103a | :| 02d6 3790 3237 |7 27| 02d8 b1ba b6b2 | | 02da b73a 1039 | : 9| 02dc bcb9 ba32 | 2| 02de b690 31b9 | 1 | 02e0 30b9 b432 |0 2| 02e2 b990 37b9 | 7 | 02e4 0000 001d | | 02e6 8000 0024 | $| 02e8 1026 b7b9 | & | 02ea 3290 39b8 |2 9 | 02ec 32b1 b4b3 |2 | 02ee 34b1 b0b6 |4 | 02f0 363c 9610 |6< | 02f2 3a34 34b9 |:44 | 02f4 9038 3937 | 897| 02f6 b1b2 b23a | :| 02f8 b932 9034 | 2 4| 02fa b990 3ab9 | : | 02fc b2b2 103a | :| 02fe 3790 3237 |7 27| 0300 b1ba b6b2 | | 0302 b73a 1039 | : 9| 0304 bcb9 ba32 | 2| 0306 b690 31b9 | 1 | 0308 30b9 b432 |0 2| 030a b990 37b9 | 7 | 030c 0000 001d | | 030e 8000 0024 | $| 0310 1026 b7b9 | & | 0312 3290 39b8 |2 9 | 0314 32b1 b4b3 |2 | 0316 34b1 b0b6 |4 | 0318 363c 9610 |6< | 031a 3a34 34b9 |:44 | 031c 9038 3937 | 897| 031e b1b2 b23a | :| 0320 b932 9034 | 2 4| 0322 b990 3ab9 | : | 0324 b2b2 103a | :| 0326 3790 3237 |7 27| 0328 b1ba b6b2 | | 032a b73a 1039 | : 9| 032c bcb9 ba32 | 2| 032e b690 31b9 | 1 | 0330 30b9 b432 |0 2| 0332 b990 37b9 | 7 | 0334 0000 0002 | | 0336 8000 000e | | 0338 37ba 3432 |7 42| 033a b910 39b2 | 9 | 033c b93b 34b1 | ;4 | 033e b290 34b7 | 4 | 0340 3a32 b939 |:2 9| 0342 3ab8 3a34 |: :4| 0344 b7b7 3997 | 9 | 0346 0000 0002 | | 0348 0000 000e | | 034a 9037 ba34 | 7 4| 034c 32b9 1039 |2 9| 034e b2b9 3b34 | ;4| 0350 b1b2 9034 | 4| 0352 b73a 32b9 | :2 | 0354 393a b83a |9: :| 0356 34b7 b739 |4 9| 0358 9700 0000 | | 035a 0200 0000 | | 035c 0e90 37ba | 7 | 035e 3432 b910 |42 | 0360 39b2 b93b |9 ;| 0362 34b1 b290 |4 | 0364 34b7 3a32 |4 :2| 0366 b939 3ab8 | 9: | 0368 3a34 b7b7 |:4 | 036a 3997 0000 |9 | 036c 0000 8000 | | 036e 0000 0000 | | .BLANK 0000[0x4] 0372 0011 0000 | | .XXX[0x69] 0374 0000 0000 | | 0376 0010 8000 | | 0378 0012 0000 | | 037a 001c 24b7 | $ | 037c 383a ba10 |8: | 037e 3a37 903a |:7 :| 0380 3434 b990 |44 | 0382 3839 37b1 |897 | 0384 b2b2 3ab9 | : | 0386 3290 34b9 |2 4 | 0388 903a 32b9 | :2 | 038a 36b4 b730 |6 0| 038c ba32 b210 | 2 | 038e 3bb4 ba34 |; 4| 0390 1022 b732 | " 2| 0392 2fa7 b32f |/ /| 0394 a4b7 383a | 8:| 0396 ba17 0000 | | 0398 0011 8000 | | 039a 001c 9024 | $| 039c b738 3aba | 8: | 039e 103a 3790 | :7 | 03a0 3a34 34b9 |:44 | 03a2 9038 3937 | 897| 03a4 b1b2 b23a | :| 03a6 b932 9034 | 2 4| 03a8 b990 3a32 | :2| 03aa b936 b4b7 | 6 | 03ac 30ba 32b2 |0 2 | 03ae 103b b4ba | ; | 03b0 3410 22b7 |4 " | 03b2 322f a7b3 |2/ | 03b4 2fa4 b738 |/ 8| 03b6 3aba 1700 |: | 03b8 0000 1180 | | 03ba 0000 1c90 | | 03bc 24b7 383a |$ 8:| 03be ba10 3a37 | :7| 03c0 903a 3434 | :44| 03c2 b990 3839 | 89| 03c4 37b1 b2b2 |7 | 03c6 3ab9 3290 |: 2 | 03c8 34b9 903a |4 :| 03ca 32b9 36b4 |2 6 | 03cc b730 ba32 | 0 2| 03ce b210 3bb4 | ; | 03d0 ba34 1022 | 4 "| 03d2 b732 2fa7 | 2/ | 03d4 b32f a4b7 | / | 03d6 383a ba17 |8: | 03d8 0000 0000 | | 03da 8000 | | 03db 0000 0000 | | .BLANK 0000[0x4] 03df 002e 8000 | . | .XXX[0x21] 03e1 0000 0000 | | 03e3 002e 0000 | . | 03e5 002f 8000 | / | 03e7 0018 2a34 | *4| 03e9 3290 32bc |2 2 | 03eb 32b1 baba |2 | 03ed 34b7 3390 |4 3 | 03ef 3537 b110 |57 | 03f1 36ba b9ba |6 | 03f3 1034 30bb | 40 | 03f5 3290 37b8 |2 7 | 03f7 32b9 30ba |2 0 | 03f9 37b9 1031 |7 1| 03fb b0b8 30b1 | 0 | 03fd 34b6 34ba |4 4 | 03ff 3c97 |< |