|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 04e8 | | .CONST 0x04e8 ; 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 0022 | " | .CONST 0x0022 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 000f 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 029d 01db | | Declare_Subprogram INIT_01d8,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 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call 001a 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call 001c 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call 001e 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call 0020 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0021 00c7 | | Action Elaborate_Subprogram 0022 BODY_0008: 0022 00bc | | Action Signal_Activated 0023 00bb | | Action Signal_Completion 0024 0000 0000 | | .BLANK 0000[0x4] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 003e | > | .CONST 0x003e ; Address of begin 0029 00d7 | | .CONST 0x00d7 ; Address of exception handler 002a 0007 | | .CONST 0x0007 ; Number of locals 002b INIT_0028: 002b e002 | | Load 0x0,0x2 002c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002d 02c7 | | Declare_Variable Any 002e 00d8 | | Load_Top At_Offset_0 002f 1c00 | | Execute_Immediate Run_Utility,0x0 0030 e003 | | Load 0x0,0x3 0031 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f 0032 0322 | " | Declare_Variable Record 0033 e003 | | Load 0x0,0x3 0034 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f 0035 0322 | " | Declare_Variable Record 0036 e003 | | Load 0x0,0x3 0037 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f 0038 0322 | " | Declare_Variable Record 0039 e004 | | Load 0x0,0x4 003a 02c7 | | Declare_Variable Any 003b 00d8 | | Load_Top At_Offset_0 003c 1c00 | | Execute_Immediate Run_Utility,0x0 003d 00e1 | | Load_Encached Boolean_Cache 003e BODY_0028: 003e 00e1 | | Load_Encached Boolean_Cache 003f 00da | | Load_Top At_Offset_2 0040 0120 | | Execute Any,Is_Value 0041 6802 |h | Jump_Zero 0x44 0042 e004 | | Load 0x0,0x4 0043 7801 |x | Jump 0x45 0044 00da | | Load_Top At_Offset_2 0045 4801 |H | Short_Literal 0x1 0046 e5fc | | Load 0x2,-0x4 0047 8005 | | Call 0x0,0x5 0048 c406 | | Store 0x2,0x6 0049 0059 | Y | Store_Top Discrete,At_Offset_1 004a 00d8 | | Load_Top At_Offset_0 004b 688a |h | Jump_Zero 0xd6 004c e402 | | Load 0x2,0x2 004d e404 | | Load 0x2,0x4 004e e403 | | Load 0x2,0x3 004f e006 | | Load 0x0,0x6 0050 e5fb | | Load 0x2,-0x5 0051 e5fe | | Load 0x2,-0x2 0052 e5fd | | Load 0x2,-0x3 0053 e406 | | Load 0x2,0x6 0054 e5ff | | Load 0x2,-0x1 0055 e003 | | Load 0x0,0x3 0056 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0057 c006 | | Store 0x0,0x6 0058 00d2 | | Pop_Control Pop_Count_2 0059 c402 | | Store 0x2,0x2 005a 4802 |H | Short_Literal 0x2 005b e402 | | Load 0x2,0x2 005c e002 | | Load 0x0,0x2 005d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 005e 680a |h | Jump_Zero 0x69 005f 480a |H | Short_Literal 0xa 0060 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "Problem encountered creating breakpoint: \x0a" 0062 e402 | | Load 0x2,0x2 0063 e002 | | Load 0x0,0x2 0064 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0065 01cc | | Execute Vector,Catenate 0066 01cb | | Execute Vector,Append 0067 8007 | | Call 0x0,0x7 0068 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0069 00db | | Load_Top At_Offset_3 006a e003 | | Load 0x0,0x3 006b 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 006c 017f | | Execute Record,Equal 006d 7039 |p9 | Jump_Nonzero 0xa7 006e 480a |H | Short_Literal 0xa 006f 0092 02ca | | Action Push_String_Extended,0x2ca ; "An identical breakpoint has already been created:\x0a" 0071 e404 | | Load 0x2,0x4 0072 e003 | | Load 0x0,0x3 0073 186d | m | Execute Package,Field_Execute,Field_Number 0x6d 0074 01cc | | Execute Vector,Catenate 0075 01cb | | Execute Vector,Append 0076 8008 | | Call 0x0,0x8 0077 e402 | | Load 0x2,0x2 0078 00db | | Load_Top At_Offset_3 0079 e404 | | Load 0x2,0x4 007a e003 | | Load 0x0,0x3 007b 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 007c 00d2 | | Pop_Control Pop_Count_2 007d c402 | | Store 0x2,0x2 007e 00da | | Load_Top At_Offset_2 007f e402 | | Load 0x2,0x2 0080 8210 | | Call 0x1,0x10 0081 6810 |h | Jump_Zero 0x92 0082 480a |H | Short_Literal 0xa 0083 480a |H | Short_Literal 0xa 0084 0092 02cb | | Action Push_String_Extended,0x2cb ; "The breakpoint could not be activated:\x0a" 0086 e402 | | Load 0x2,0x2 0087 e002 | | Load 0x0,0x2 0088 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0089 01cc | | Execute Vector,Catenate 008a 01cb | | Execute Vector,Append 008b e404 | | Load 0x2,0x4 008c e003 | | Load 0x0,0x3 008d 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 008e 01cc | | Execute Vector,Catenate 008f 01cb | | Execute Vector,Append 0090 8007 | | Call 0x0,0x7 0091 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0092 00da | | Load_Top At_Offset_2 0093 e003 | | Load 0x0,0x3 0094 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0095 017f | | Execute Record,Equal 0096 7006 |p | Jump_Nonzero 0x9d 0097 480a |H | Short_Literal 0xa 0098 e402 | | Load 0x2,0x2 0099 e002 | | Load 0x0,0x2 009a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 009b 01cb | | Execute Vector,Append 009c 8008 | | Call 0x0,0x8 009d 480a |H | Short_Literal 0xa 009e 0092 02cc | | Action Push_String_Extended,0x2cc ; "The breakpoint has been activated:\x0a" 00a0 e404 | | Load 0x2,0x4 00a1 e003 | | Load 0x0,0x3 00a2 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 00a3 01cc | | Execute Vector,Catenate 00a4 01cb | | Execute Vector,Append 00a5 8008 | | Call 0x0,0x8 00a6 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00a7 e402 | | Load 0x2,0x2 00a8 00db | | Load_Top At_Offset_3 00a9 e403 | | Load 0x2,0x3 00aa e003 | | Load 0x0,0x3 00ab 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00ac 00d2 | | Pop_Control Pop_Count_2 00ad c402 | | Store 0x2,0x2 00ae 00da | | Load_Top At_Offset_2 00af e402 | | Load 0x2,0x2 00b0 8210 | | Call 0x1,0x10 00b1 6810 |h | Jump_Zero 0xc2 00b2 480a |H | Short_Literal 0xa 00b3 480a |H | Short_Literal 0xa 00b4 0092 02cd | | Action Push_String_Extended,0x2cd ; "The breakpoint has been created but could not be activated:\x0a" 00b6 e402 | | Load 0x2,0x2 00b7 e002 | | Load 0x0,0x2 00b8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b9 01cc | | Execute Vector,Catenate 00ba 01cb | | Execute Vector,Append 00bb e403 | | Load 0x2,0x3 00bc e003 | | Load 0x0,0x3 00bd 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 00be 01cc | | Execute Vector,Catenate 00bf 01cb | | Execute Vector,Append 00c0 8007 | | Call 0x0,0x7 00c1 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00c2 00da | | Load_Top At_Offset_2 00c3 e003 | | Load 0x0,0x3 00c4 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 00c5 017f | | Execute Record,Equal 00c6 7006 |p | Jump_Nonzero 0xcd 00c7 480a |H | Short_Literal 0xa 00c8 e402 | | Load 0x2,0x2 00c9 e002 | | Load 0x0,0x2 00ca 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00cb 01cb | | Execute Vector,Append 00cc 8008 | | Call 0x0,0x8 00cd 480a |H | Short_Literal 0xa 00ce 0092 02ce | | Action Push_String_Extended,0x2ce ; "The breakpoint has been created and activated:\x0a" 00d0 e403 | | Load 0x2,0x3 00d1 e003 | | Load 0x0,0x3 00d2 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 00d3 01cc | | Execute Vector,Catenate 00d4 01cb | | Execute Vector,Append 00d5 8008 | | Call 0x0,0x8 00d6 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00d7 TRAP_0028: 00d7 4884 |H | Short_Literal 0x84 00d8 010f | | Execute Exception,Equal 00d9 7004 |p | Jump_Nonzero 0xde 00da e009 | | Load 0x0,0x9 00db 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00dc 010f | | Execute Exception,Equal 00dd 6804 |h | Jump_Zero 0xe2 00de 0092 02cf | | Action Push_String_Extended,0x2cf ; "Problem encountered creating breakpoint: \x0aProgram has been recompiled since debugger started.\x0a" 00e0 8007 | | Call 0x0,0x7 00e1 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00e2 480a |H | Short_Literal 0xa 00e3 0092 02d0 | | Action Push_String_Extended,0x2d0 ; "Exception raised creating breakpoint: " 00e5 e00a | | Load 0x0,0xa 00e6 180d | | Execute Package,Field_Execute,Field_Number 0xd 00e7 01cc | | Execute Vector,Catenate 00e8 01cb | | Execute Vector,Append 00e9 8007 | | Call 0x0,0x7 00ea 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00eb 0000 0000 | | .BLANK 0000[0x5] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00fa | | .CONST 0x00fa ; Address of begin 00f1 0131 | 1 | .CONST 0x0131 ; Address of exception handler 00f2 0003 | | .CONST 0x0003 ; Number of locals 00f3 INIT_00f0: 00f3 e002 | | Load 0x0,0x2 00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f5 02c7 | | Declare_Variable Any 00f6 00d8 | | Load_Top At_Offset_0 00f7 1c00 | | Execute_Immediate Run_Utility,0x0 00f8 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 00fa BODY_00f0: 00fa e5ff | | Load 0x2,-0x1 00fb 7033 |p3 | Jump_Nonzero 0x12f 00fc 00d9 | | Load_Top At_Offset_1 00fd e006 | | Load 0x0,0x6 00fe e003 | | Load 0x0,0x3 00ff 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0100 c006 | | Store 0x0,0x6 0101 c402 | | Store 0x2,0x2 0102 4802 |H | Short_Literal 0x2 0103 00da | | Load_Top At_Offset_2 0104 e002 | | Load 0x0,0x2 0105 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0106 680a |h | Jump_Zero 0x111 0107 480a |H | Short_Literal 0xa 0108 0092 02d1 | | Action Push_String_Extended,0x2d1 ; "Problem encountered de-activating all breakpoints: \x0a" 010a 00db | | Load_Top At_Offset_3 010b e002 | | Load 0x0,0x2 010c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 010d 01cc | | Execute Vector,Catenate 010e 01cb | | Execute Vector,Append 010f 8007 | | Call 0x0,0x7 0110 7803 |x | Jump 0x114 0111 0092 02d2 | | Action Push_String_Extended,0x2d2 ; "All breakpoints have been withdrawn\x0a" 0113 8008 | | Call 0x0,0x8 0114 e5fe | | Load 0x2,-0x2 0115 6818 |h | Jump_Zero 0x12e 0116 00d9 | | Load_Top At_Offset_1 0117 e006 | | Load 0x0,0x6 0118 e003 | | Load 0x0,0x3 0119 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 011a c006 | | Store 0x0,0x6 011b c402 | | Store 0x2,0x2 011c 4802 |H | Short_Literal 0x2 011d 00da | | Load_Top At_Offset_2 011e e002 | | Load 0x0,0x2 011f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0120 680a |h | Jump_Zero 0x12b 0121 480a |H | Short_Literal 0xa 0122 0092 02d3 | | Action Push_String_Extended,0x2d3 ; "Problem encountered deleting all breakpoints: " 0124 00db | | Load_Top At_Offset_3 0125 e002 | | Load 0x0,0x2 0126 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0127 01cc | | Execute Vector,Catenate 0128 01cb | | Execute Vector,Append 0129 8007 | | Call 0x0,0x7 012a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 012b 0092 02d4 | | Action Push_String_Extended,0x2d4 ; "All breakpoints have been deleted\x0a" 012d 8008 | | Call 0x0,0x8 012e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 012f 8403 | | Call 0x2,0x3 0130 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0131 TRAP_00f0: 0131 e003 | | Load 0x0,0x3 0132 1b5c | \ | Execute Package,Field_Read,Field_Number 0x5c 0133 010f | | Execute Exception,Equal 0134 7004 |p | Jump_Nonzero 0x139 0135 e003 | | Load 0x0,0x3 0136 1b5d | ] | Execute Package,Field_Read,Field_Number 0x5d 0137 010f | | Execute Exception,Equal 0138 6812 |h | Jump_Zero 0x14b 0139 480a |H | Short_Literal 0xa 013a 480a |H | Short_Literal 0xa 013b 0092 02d5 | | Action Push_String_Extended,0x2d5 ; "Problem encountered deleting breakpoint " 013d e5ff | | Load 0x2,-0x1 013e 00e0 | | Load_Encached Standard_Cache 013f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0140 01cc | | Execute Vector,Catenate 0141 0092 02d6 | | Action Push_String_Extended,0x2d6 ; ":" 0143 01cc | | Execute Vector,Catenate 0144 01cb | | Execute Vector,Append 0145 0092 02d7 | | Action Push_String_Extended,0x2d7 ; "Breakpoint does not exist." 0147 01cc | | Execute Vector,Catenate 0148 01cb | | Execute Vector,Append 0149 8007 | | Call 0x0,0x7 014a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 014b 480a |H | Short_Literal 0xa 014c 0092 02d8 | | Action Push_String_Extended,0x2d8 ; "Exception raised during command processing: " 014e e00a | | Load 0x0,0xa 014f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0150 01cc | | Execute Vector,Catenate 0151 01cb | | Execute Vector,Append 0152 8007 | | Call 0x0,0x7 0153 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 016e | n | .CONST 0x016e ; Address of begin 0159 01c8 | | .CONST 0x01c8 ; Address of exception handler 015a 0008 | | .CONST 0x0008 ; Number of locals 015b INIT_0158: 015b e002 | | Load 0x0,0x2 015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015d 02c7 | | Declare_Variable Any 015e 00d8 | | Load_Top At_Offset_0 015f 1c00 | | Execute_Immediate Run_Utility,0x0 0160 e003 | | Load 0x0,0x3 0161 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f 0162 0322 | " | Declare_Variable Record 0163 e003 | | Load 0x0,0x3 0164 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0165 00e3 | | Load_Encached Natural_Cache 0166 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0167 00e3 | | Load_Encached Natural_Cache 0168 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0169 e003 | | Load 0x0,0x3 016a 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f 016b 0322 | " | Declare_Variable Record 016c 029f 029b | | Declare_Subprogram INIT_0298,For_Call 016e BODY_0158: 016e e5ff | | Load 0x2,-0x1 016f 7023 |p# | Jump_Nonzero 0x193 0170 e003 | | Load 0x0,0x3 0171 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0172 e006 | | Load 0x0,0x6 0173 e003 | | Load 0x0,0x3 0174 1870 | p | Execute Package,Field_Execute,Field_Number 0x70 0175 c404 | | Store 0x2,0x4 0176 00cf | | Action Mark_Auxiliary 0177 e404 | | Load 0x2,0x4 0178 e003 | | Load 0x0,0x3 0179 1873 | s | Execute Package,Field_Execute,Field_Number 0x73 017a 7010 |p | Jump_Nonzero 0x18b 017b e404 | | Load 0x2,0x4 017c e003 | | Load 0x0,0x3 017d 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 017e e403 | | Load 0x2,0x3 017f 017d | } | Execute Record,Structure_Write 0180 e403 | | Load 0x2,0x3 0181 e003 | | Load 0x0,0x3 0182 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 0183 7001 |p | Jump_Nonzero 0x185 0184 8408 | | Call 0x2,0x8 0185 e404 | | Load 0x2,0x4 0186 e003 | | Load 0x0,0x3 0187 1871 | q | Execute Package,Field_Execute,Field_Number 0x71 0188 c404 | | Store 0x2,0x4 0189 00c9 | | Action Pop_Auxiliary_Loop 018a 7fec | | Jump 0x177 018b 00ce | | Action Pop_Auxiliary 018c 00db | | Load_Top At_Offset_3 018d 8212 | | Call 0x1,0x12 018e 00da | | Load_Top At_Offset_2 018f 6802 |h | Jump_Zero 0x192 0190 00da | | Load_Top At_Offset_2 0191 8213 | | Call 0x1,0x13 0192 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0193 e5ff | | Load 0x2,-0x1 0194 00d8 | | Load_Top At_Offset_0 0195 00e4 | | Load_Encached Positive_Cache 0196 0260 | ` | Execute Discrete,In_Type 0197 7001 |p | Jump_Nonzero 0x199 0198 0801 | | Execute_Immediate Raise,0x1 0199 e006 | | Load 0x0,0x6 019a e003 | | Load 0x0,0x3 019b 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 019c e403 | | Load 0x2,0x3 019d 017d | } | Execute Record,Structure_Write 019e e402 | | Load 0x2,0x2 019f 00da | | Load_Top At_Offset_2 01a0 e403 | | Load 0x2,0x3 01a1 e003 | | Load 0x0,0x3 01a2 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01a3 00d2 | | Pop_Control Pop_Count_2 01a4 c402 | | Store 0x2,0x2 01a5 00d9 | | Load_Top At_Offset_1 01a6 e402 | | Load 0x2,0x2 01a7 8210 | | Call 0x1,0x10 01a8 680a |h | Jump_Zero 0x1b3 01a9 480a |H | Short_Literal 0xa 01aa 0092 02d9 | | Action Push_String_Extended,0x2d9 ; "Problem encountered activating breakpoint:\x0a" 01ac e402 | | Load 0x2,0x2 01ad e002 | | Load 0x0,0x2 01ae 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01af 01cc | | Execute Vector,Catenate 01b0 01cb | | Execute Vector,Append 01b1 8007 | | Call 0x0,0x7 01b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b3 00d9 | | Load_Top At_Offset_1 01b4 e003 | | Load 0x0,0x3 01b5 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 01b6 017f | | Execute Record,Equal 01b7 7006 |p | Jump_Nonzero 0x1be 01b8 480a |H | Short_Literal 0xa 01b9 e402 | | Load 0x2,0x2 01ba e002 | | Load 0x0,0x2 01bb 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01bc 01cb | | Execute Vector,Append 01bd 8008 | | Call 0x0,0x8 01be 480a |H | Short_Literal 0xa 01bf 0092 02cc | | Action Push_String_Extended,0x2cc ; "The breakpoint has been activated:\x0a" 01c1 e403 | | Load 0x2,0x3 01c2 e003 | | Load 0x0,0x3 01c3 186d | m | Execute Package,Field_Execute,Field_Number 0x6d 01c4 01cc | | Execute Vector,Catenate 01c5 01cb | | Execute Vector,Append 01c6 8008 | | Call 0x0,0x8 01c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c8 TRAP_0158: 01c8 e009 | | Load 0x0,0x9 01c9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01ca 010f | | Execute Exception,Equal 01cb 6803 |h | Jump_Zero 0x1cf 01cc e403 | | Load 0x2,0x3 01cd 8214 | | Call 0x1,0x14 01ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01cf 480a |H | Short_Literal 0xa 01d0 0092 02d8 | | Action Push_String_Extended,0x2d8 ; "Exception raised during command processing: " 01d2 e00a | | Load 0x0,0xa 01d3 180d | | Execute Package,Field_Execute,Field_Number 0xd 01d4 01cc | | Execute Vector,Catenate 01d5 01cb | | Execute Vector,Append 01d6 8007 | | Call 0x0,0x7 01d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 4802 |H | Short_Literal 0x2 01dc 00db | | Load_Top At_Offset_3 01dd e002 | | Load 0x0,0x2 01de 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01df 6805 |h | Jump_Zero 0x1e5 01e0 00db | | Load_Top At_Offset_3 01e1 e003 | | Load 0x0,0x3 01e2 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 01e3 017f | | Execute Record,Equal 01e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e5 4800 |H | Short_Literal 0x0 01e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e7 0000 | | .XXX[0x1] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 0b01 | | Execute_Immediate Case_Compare,0x1 01ed 700d |p | Jump_Nonzero 0x1fb 01ee 6815 |h | Jump_Zero 0x204 01ef 480a |H | Short_Literal 0xa 01f0 e5fe | | Load 0x2,-0x2 01f1 e5ff | | Load 0x2,-0x1 01f2 00e0 | | Load_Encached Standard_Cache 01f3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f4 01cc | | Execute Vector,Catenate 01f5 0092 02da | | Action Push_String_Extended,0x2da ; " breakpoints." 01f7 01cc | | Execute Vector,Catenate 01f8 01cb | | Execute Vector,Append 01f9 8008 | | Call 0x0,0x8 01fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01fb 00d1 | | Pop_Control Pop_Count_1 01fc 480a |H | Short_Literal 0xa 01fd e5fe | | Load 0x2,-0x2 01fe 0092 02db | | Action Push_String_Extended,0x2db ; " 1 breakpoint." 0200 01cc | | Execute Vector,Catenate 0201 01cb | | Execute Vector,Append 0202 8008 | | Call 0x0,0x8 0203 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0204 480a |H | Short_Literal 0xa 0205 0092 02dc | | Action Push_String_Extended,0x2dc ; "No breakpoints " 0207 e5fe | | Load 0x2,-0x2 0208 e00b | | Load 0x0,0xb 0209 1815 | | Execute Package,Field_Execute,Field_Number 0x15 020a 01cc | | Execute Vector,Catenate 020b 0092 02dd | | Action Push_String_Extended,0x2dd ; "." 020d 01cc | | Execute Vector,Catenate 020e 01cb | | Execute Vector,Append 020f 8008 | | Call 0x0,0x8 0210 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0211 0000 0000 | | .BLANK 0000[0x7] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 0092 02de | | Action Push_String_Extended,0x2de ; "Activated" 021d 00db | | Load_Top At_Offset_3 021e 8211 | | Call 0x1,0x11 021f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 0092 02df | | Action Push_String_Extended,0x2df ; "Failed to activate" 0225 00db | | Load_Top At_Offset_3 0226 8211 | | Call 0x1,0x11 0227 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 480a |H | Short_Literal 0xa 022c 0092 02e0 | | Action Push_String_Extended,0x2e0 ; "The breakpoint is in a program unit that has been demoted since the debugger was started:\x0a" 022e e5ff | | Load 0x2,-0x1 022f e003 | | Load 0x0,0x3 0230 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 0231 01cc | | Execute Vector,Catenate 0232 01cb | | Execute Vector,Append 0233 8007 | | Call 0x0,0x7 0234 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0235 0000 0000 | | .XXX[0x3] 0237 0000 | | 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 024c | L | .CONST 0x024c ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0003 | | .CONST 0x0003 ; Number of locals 023b INIT_0238: 023b e003 | | Load 0x0,0x3 023c 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f 023d 0322 | " | Declare_Variable Record 023e e5ff | | Load 0x2,-0x1 023f 00d8 | | Load_Top At_Offset_0 0240 00e4 | | Load_Encached Positive_Cache 0241 0260 | ` | Execute Discrete,In_Type 0242 7001 |p | Jump_Nonzero 0x244 0243 0801 | | Execute_Immediate Raise,0x1 0244 e006 | | Load 0x0,0x6 0245 e003 | | Load 0x0,0x3 0246 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 0247 00d9 | | Load_Top At_Offset_1 0248 017d | } | Execute Record,Structure_Write 0249 00d8 | | Load_Top At_Offset_0 024a e003 | | Load 0x0,0x3 024b 186d | m | Execute Package,Field_Execute,Field_Number 0x6d 024c BODY_0238: 024c e402 | | Load 0x2,0x2 024d 00da | | Load_Top At_Offset_2 024e e003 | | Load 0x0,0x3 024f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0250 00d1 | | Pop_Control Pop_Count_1 0251 c402 | | Store 0x2,0x2 0252 4802 |H | Short_Literal 0x2 0253 e402 | | Load 0x2,0x2 0254 e002 | | Load 0x0,0x2 0255 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0256 6811 |h | Jump_Zero 0x268 0257 480a |H | Short_Literal 0xa 0258 480a |H | Short_Literal 0xa 0259 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "Problem encountered de-activating " 025b 00db | | Load_Top At_Offset_3 025c 01cc | | Execute Vector,Catenate 025d 0092 02d6 | | Action Push_String_Extended,0x2d6 ; ":" 025f 01cc | | Execute Vector,Catenate 0260 01cb | | Execute Vector,Append 0261 e402 | | Load 0x2,0x2 0262 e002 | | Load 0x0,0x2 0263 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0264 01cc | | Execute Vector,Catenate 0265 01cb | | Execute Vector,Append 0266 8007 | | Call 0x0,0x7 0267 7807 |x | Jump 0x26f 0268 480a |H | Short_Literal 0xa 0269 00d9 | | Load_Top At_Offset_1 026a 0092 02e2 | | Action Push_String_Extended,0x2e2 ; " has been deactivated." 026c 01cc | | Execute Vector,Catenate 026d 01cb | | Execute Vector,Append 026e 8008 | | Call 0x0,0x8 026f e5fe | | Load 0x2,-0x2 0270 6823 |h# | Jump_Zero 0x294 0271 e402 | | Load 0x2,0x2 0272 00da | | Load_Top At_Offset_2 0273 e003 | | Load 0x0,0x3 0274 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0275 00d1 | | Pop_Control Pop_Count_1 0276 c402 | | Store 0x2,0x2 0277 4802 |H | Short_Literal 0x2 0278 e402 | | Load 0x2,0x2 0279 e002 | | Load 0x0,0x2 027a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 027b 6811 |h | Jump_Zero 0x28d 027c 480a |H | Short_Literal 0xa 027d 480a |H | Short_Literal 0xa 027e 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "Problem encountered deleting " 0280 00db | | Load_Top At_Offset_3 0281 01cc | | Execute Vector,Catenate 0282 0092 02d6 | | Action Push_String_Extended,0x2d6 ; ":" 0284 01cc | | Execute Vector,Catenate 0285 01cb | | Execute Vector,Append 0286 e402 | | Load 0x2,0x2 0287 e002 | | Load 0x0,0x2 0288 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0289 01cc | | Execute Vector,Catenate 028a 01cb | | Execute Vector,Append 028b 8007 | | Call 0x0,0x7 028c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028d 480a |H | Short_Literal 0xa 028e 00d9 | | Load_Top At_Offset_1 028f 0092 02e4 | | Action Push_String_Extended,0x2e4 ; " has been deleted." 0291 01cc | | Execute Vector,Catenate 0292 01cb | | Execute Vector,Append 0293 8008 | | Call 0x0,0x8 0294 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0295 0000 0000 | | .XXX[0x3] 0297 0000 | | 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 02be | | .CONST 0x02be ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b e402 | | Load 0x2,0x2 029c e407 | | Load 0x2,0x7 029d e403 | | Load 0x2,0x3 029e e003 | | Load 0x0,0x3 029f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 02a0 00d2 | | Pop_Control Pop_Count_2 02a1 c402 | | Store 0x2,0x2 02a2 e407 | | Load 0x2,0x7 02a3 e402 | | Load 0x2,0x2 02a4 8210 | | Call 0x1,0x10 02a5 6814 |h | Jump_Zero 0x2ba 02a6 e406 | | Load 0x2,0x6 02a7 0a01 | | Execute_Immediate Plus,0x1 02a8 c406 | | Store 0x2,0x6 02a9 480a |H | Short_Literal 0xa 02aa 0092 02e5 | | Action Push_String_Extended,0x2e5 ; "Could not activate break" 02ac e403 | | Load 0x2,0x3 02ad e003 | | Load 0x0,0x3 02ae 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 02af 01cc | | Execute Vector,Catenate 02b0 0092 02e6 | | Action Push_String_Extended,0x2e6 ; ": " 02b2 01cc | | Execute Vector,Catenate 02b3 e402 | | Load 0x2,0x2 02b4 e002 | | Load 0x0,0x2 02b5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02b6 01cc | | Execute Vector,Catenate 02b7 01cb | | Execute Vector,Append 02b8 8007 | | Call 0x0,0x7 02b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ba e405 | | Load 0x2,0x5 02bb 0a01 | | Execute_Immediate Plus,0x1 02bc c405 | | Store 0x2,0x5 02bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02be TRAP_0298: 02be e009 | | Load 0x0,0x9 02bf 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02c0 010f | | Execute Exception,Equal 02c1 6806 |h | Jump_Zero 0x2c8 02c2 e403 | | Load 0x2,0x3 02c3 8214 | | Call 0x1,0x14 02c4 e406 | | Load 0x2,0x6 02c5 0a01 | | Execute_Immediate Plus,0x1 02c6 c406 | | Store 0x2,0x6 02c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c8 0100 | | Execute Exception,Raise 02c9 ; -------------------------------------------------------------------------------------- 02c9 ; STRING TABLE 02c9 ; -------------------------------------------------------------------------------------- 02c9 003e | > | .STRTAB 0x003e->0x02e8 ; "Problem encountered creating breakpoint: \x0a" 02ca 0066 | f | .STRTAB 0x0066->0x02fd ; "An identical breakpoint has already been created:\x0a" 02cb 0096 | | .STRTAB 0x0096->0x0316 ; "The breakpoint could not be activated:\x0a" 02cc 00bb | | .STRTAB 0x00bb->0x0329 ; "The breakpoint has been activated:\x0a" 02cd 00dc | | .STRTAB 0x00dc->0x033b ; "The breakpoint has been created but could not be activated:\x0a" 02ce 0116 | | .STRTAB 0x0116->0x0359 ; "The breakpoint has been created and activated:\x0a" 02cf 0143 | C | .STRTAB 0x0143->0x0370 ; "Problem encountered creating breakpoint: \x0aProgram has been recompiled since debugger started.\x0a" 02d0 019f | | .STRTAB 0x019f->0x039f ; "Exception raised creating breakpoint: " 02d1 01c3 | | .STRTAB 0x01c3->0x03b2 ; "Problem encountered de-activating all breakpoints: \x0a" 02d2 01f5 | | .STRTAB 0x01f5->0x03cc ; "All breakpoints have been withdrawn\x0a" 02d3 0217 | | .STRTAB 0x0217->0x03de ; "Problem encountered deleting all breakpoints: " 02d4 0243 | C | .STRTAB 0x0243->0x03f5 ; "All breakpoints have been deleted\x0a" 02d5 0263 | c | .STRTAB 0x0263->0x0406 ; "Problem encountered deleting breakpoint " 02d6 0289 | | .STRTAB 0x0289->0x041a ; ":" 02d7 0288 | | .STRTAB 0x0288->0x041b ; "Breakpoint does not exist." 02d8 02a0 | | .STRTAB 0x02a0->0x0428 ; "Exception raised during command processing: " 02d9 02ca | | .STRTAB 0x02ca->0x043e ; "Problem encountered activating breakpoint:\x0a" 02da 02f3 | | .STRTAB 0x02f3->0x0453 ; " breakpoints." 02db 02fe | | .STRTAB 0x02fe->0x045a ; " 1 breakpoint." 02dc 030a | | .STRTAB 0x030a->0x0461 ; "No breakpoints " 02dd 0317 | | .STRTAB 0x0317->0x0468 ; "." 02de 0316 | | .STRTAB 0x0316->0x0469 ; "Activated" 02df 031d | | .STRTAB 0x031d->0x046d ; "Failed to activate" 02e0 032d | - | .STRTAB 0x032d->0x0476 ; "The breakpoint is in a program unit that has been demoted since the debugger was started:\x0a" 02e1 0385 | | .STRTAB 0x0385->0x04a3 ; "Problem encountered de-activating " 02e2 03a5 | | .STRTAB 0x03a5->0x04b4 ; " has been deactivated." 02e3 03b9 | | .STRTAB 0x03b9->0x04bf ; "Problem encountered deleting " 02e4 03d4 | | .STRTAB 0x03d4->0x04ce ; " has been deleted." 02e5 03e4 | | .STRTAB 0x03e4->0x04d7 ; "Could not activate break" 02e6 03fa | | .STRTAB 0x03fa->0x04e3 ; ": " 02e7 03fa | | .STREND 0x03fa->0x04e4 02e8 5072 6f62 |Prob| .STRTAB_STRINGS 04e4 0000 0000 | | .BLANK 0000[0x4] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; Debug Table 04e8 ; -------------------------------------------------------------------------------------- 04e8 0004 000d | | .DEBUG4 0x0004,0x000d,0x76a0,0x0000,0x0001,0x0000 04ee 0000 0000 | | .BLANK 0000[0x112]