|
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]