|
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_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 0498 | | .CONST 0x0498 ; 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 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; 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 01fb | | Declare_Subprogram INIT_01f8,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 020b | | Declare_Subprogram INIT_0208,For_Outer_Call 001a 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call 001c 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 001e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001f 00c7 | | Action Elaborate_Subprogram 0020 BODY_0008: 0020 00bc | | Action Signal_Activated 0021 00bb | | Action Signal_Completion 0022 0000 0000 | | .BLANK 0000[0x6] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 003e | > | .CONST 0x003e ; Address of begin 0029 00d6 | | .CONST 0x00d6 ; 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 e5fc | | Load 0x2,-0x4 0046 8005 | | Call 0x0,0x5 0047 c406 | | Store 0x2,0x6 0048 0059 | Y | Store_Top Discrete,At_Offset_1 0049 00d8 | | Load_Top At_Offset_0 004a 688a |h | Jump_Zero 0xd5 004b e402 | | Load 0x2,0x2 004c e404 | | Load 0x2,0x4 004d e403 | | Load 0x2,0x3 004e e006 | | Load 0x0,0x6 004f e5fb | | Load 0x2,-0x5 0050 e5fe | | Load 0x2,-0x2 0051 e5fd | | Load 0x2,-0x3 0052 e406 | | Load 0x2,0x6 0053 e5ff | | Load 0x2,-0x1 0054 e003 | | Load 0x0,0x3 0055 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0056 c006 | | Store 0x0,0x6 0057 00d2 | | Pop_Control Pop_Count_2 0058 c402 | | Store 0x2,0x2 0059 4802 |H | Short_Literal 0x2 005a e402 | | Load 0x2,0x2 005b e002 | | Load 0x0,0x2 005c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 005d 680a |h | Jump_Zero 0x68 005e 480a |H | Short_Literal 0xa 005f 0092 02a5 | | Action Push_String_Extended,0x2a5 ; "Problem encountered creating breakpoint: \x0a" 0061 e402 | | Load 0x2,0x2 0062 e002 | | Load 0x0,0x2 0063 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0064 01cc | | Execute Vector,Catenate 0065 01cb | | Execute Vector,Append 0066 8007 | | Call 0x0,0x7 0067 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0068 00db | | Load_Top At_Offset_3 0069 e003 | | Load 0x0,0x3 006a 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 006b 017f | | Execute Record,Equal 006c 7039 |p9 | Jump_Nonzero 0xa6 006d 480a |H | Short_Literal 0xa 006e 0092 02a6 | | Action Push_String_Extended,0x2a6 ; "An identical breakpoint has already been created:\x0a" 0070 e404 | | Load 0x2,0x4 0071 e003 | | Load 0x0,0x3 0072 186d | m | Execute Package,Field_Execute,Field_Number 0x6d 0073 01cc | | Execute Vector,Catenate 0074 01cb | | Execute Vector,Append 0075 8008 | | Call 0x0,0x8 0076 e402 | | Load 0x2,0x2 0077 00db | | Load_Top At_Offset_3 0078 e404 | | Load 0x2,0x4 0079 e003 | | Load 0x0,0x3 007a 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 007b 00d2 | | Pop_Control Pop_Count_2 007c c402 | | Store 0x2,0x2 007d 00da | | Load_Top At_Offset_2 007e e402 | | Load 0x2,0x2 007f 8210 | | Call 0x1,0x10 0080 6810 |h | Jump_Zero 0x91 0081 480a |H | Short_Literal 0xa 0082 480a |H | Short_Literal 0xa 0083 0092 02a7 | | Action Push_String_Extended,0x2a7 ; "The breakpoint could not be activated:\x0a" 0085 e402 | | Load 0x2,0x2 0086 e002 | | Load 0x0,0x2 0087 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0088 01cc | | Execute Vector,Catenate 0089 01cb | | Execute Vector,Append 008a e404 | | Load 0x2,0x4 008b e003 | | Load 0x0,0x3 008c 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 008d 01cc | | Execute Vector,Catenate 008e 01cb | | Execute Vector,Append 008f 8007 | | Call 0x0,0x7 0090 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0091 00da | | Load_Top At_Offset_2 0092 e003 | | Load 0x0,0x3 0093 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0094 017f | | Execute Record,Equal 0095 7006 |p | Jump_Nonzero 0x9c 0096 480a |H | Short_Literal 0xa 0097 e402 | | Load 0x2,0x2 0098 e002 | | Load 0x0,0x2 0099 1820 | | Execute Package,Field_Execute,Field_Number 0x20 009a 01cb | | Execute Vector,Append 009b 8008 | | Call 0x0,0x8 009c 480a |H | Short_Literal 0xa 009d 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "The breakpoint has been activated:\x0a" 009f e404 | | Load 0x2,0x4 00a0 e003 | | Load 0x0,0x3 00a1 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 00a2 01cc | | Execute Vector,Catenate 00a3 01cb | | Execute Vector,Append 00a4 8008 | | Call 0x0,0x8 00a5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00a6 e402 | | Load 0x2,0x2 00a7 00db | | Load_Top At_Offset_3 00a8 e403 | | Load 0x2,0x3 00a9 e003 | | Load 0x0,0x3 00aa 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00ab 00d2 | | Pop_Control Pop_Count_2 00ac c402 | | Store 0x2,0x2 00ad 00da | | Load_Top At_Offset_2 00ae e402 | | Load 0x2,0x2 00af 8210 | | Call 0x1,0x10 00b0 6810 |h | Jump_Zero 0xc1 00b1 480a |H | Short_Literal 0xa 00b2 480a |H | Short_Literal 0xa 00b3 0092 02a9 | | Action Push_String_Extended,0x2a9 ; "The breakpoint has been created but could not be activated:\x0a" 00b5 e402 | | Load 0x2,0x2 00b6 e002 | | Load 0x0,0x2 00b7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b8 01cc | | Execute Vector,Catenate 00b9 01cb | | Execute Vector,Append 00ba e403 | | Load 0x2,0x3 00bb e003 | | Load 0x0,0x3 00bc 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 00bd 01cc | | Execute Vector,Catenate 00be 01cb | | Execute Vector,Append 00bf 8007 | | Call 0x0,0x7 00c0 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00c1 00da | | Load_Top At_Offset_2 00c2 e003 | | Load 0x0,0x3 00c3 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 00c4 017f | | Execute Record,Equal 00c5 7006 |p | Jump_Nonzero 0xcc 00c6 480a |H | Short_Literal 0xa 00c7 e402 | | Load 0x2,0x2 00c8 e002 | | Load 0x0,0x2 00c9 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ca 01cb | | Execute Vector,Append 00cb 8008 | | Call 0x0,0x8 00cc 480a |H | Short_Literal 0xa 00cd 0092 02aa | | Action Push_String_Extended,0x2aa ; "The breakpoint has been created and activated:\x0a" 00cf e403 | | Load 0x2,0x3 00d0 e003 | | Load 0x0,0x3 00d1 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 00d2 01cc | | Execute Vector,Catenate 00d3 01cb | | Execute Vector,Append 00d4 8008 | | Call 0x0,0x8 00d5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00d6 TRAP_0028: 00d6 4884 |H | Short_Literal 0x84 00d7 010f | | Execute Exception,Equal 00d8 7004 |p | Jump_Nonzero 0xdd 00d9 e009 | | Load 0x0,0x9 00da 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00db 010f | | Execute Exception,Equal 00dc 6804 |h | Jump_Zero 0xe1 00dd 0092 02ab | | Action Push_String_Extended,0x2ab ; "Problem encountered creating breakpoint: \x0aProgram has been recompiled since debugger started.\x0a" 00df 8007 | | Call 0x0,0x7 00e0 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00e1 480a |H | Short_Literal 0xa 00e2 0092 02ac | | Action Push_String_Extended,0x2ac ; "Exception raised creating breakpoint: " 00e4 e00a | | Load 0x0,0xa 00e5 180d | | Execute Package,Field_Execute,Field_Number 0xd 00e6 01cc | | Execute Vector,Catenate 00e7 01cb | | Execute Vector,Append 00e8 8007 | | Call 0x0,0x7 00e9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00ea 0000 0000 | | .BLANK 0000[0x6] 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 024b | K| Declare_Subprogram INIT_0248,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 02ad | | Action Push_String_Extended,0x2ad ; "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 02ae | | Action Push_String_Extended,0x2ae ; "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 02af | | Action Push_String_Extended,0x2af ; "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 02b0 | | Action Push_String_Extended,0x2b0 ; "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 02b1 | | Action Push_String_Extended,0x2b1 ; "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 02b2 | | Action Push_String_Extended,0x2b2 ; ":" 0143 01cc | | Execute Vector,Catenate 0144 01cb | | Execute Vector,Append 0145 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "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 02b4 | | Action Push_String_Extended,0x2b4 ; "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 016c | l | .CONST 0x016c ; Address of begin 0159 01e7 | | .CONST 0x01e7 ; Address of exception handler 015a 0007 | | .CONST 0x0007 ; 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 BODY_0158: 016c e5ff | | Load 0x2,-0x1 016d 7044 |pD | Jump_Nonzero 0x1b2 016e e003 | | Load 0x0,0x3 016f 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0170 e006 | | Load 0x0,0x6 0171 e003 | | Load 0x0,0x3 0172 1870 | p | Execute Package,Field_Execute,Field_Number 0x70 0173 c404 | | Store 0x2,0x4 0174 00cf | | Action Mark_Auxiliary 0175 e404 | | Load 0x2,0x4 0176 e003 | | Load 0x0,0x3 0177 1873 | s | Execute Package,Field_Execute,Field_Number 0x73 0178 7031 |p1 | Jump_Nonzero 0x1aa 0179 e404 | | Load 0x2,0x4 017a e003 | | Load 0x0,0x3 017b 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 017c e403 | | Load 0x2,0x3 017d 017d | } | Execute Record,Structure_Write 017e e403 | | Load 0x2,0x3 017f e003 | | Load 0x0,0x3 0180 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 0181 7022 |p" | Jump_Nonzero 0x1a4 0182 e402 | | Load 0x2,0x2 0183 00da | | Load_Top At_Offset_2 0184 e403 | | Load 0x2,0x3 0185 e003 | | Load 0x0,0x3 0186 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0187 00d2 | | Pop_Control Pop_Count_2 0188 c402 | | Store 0x2,0x2 0189 00d9 | | Load_Top At_Offset_1 018a e402 | | Load 0x2,0x2 018b 8210 | | Call 0x1,0x10 018c 6814 |h | Jump_Zero 0x1a1 018d 00da | | Load_Top At_Offset_2 018e 0a01 | | Execute_Immediate Plus,0x1 018f 005b | [ | Store_Top Discrete,At_Offset_3 0190 480a |H | Short_Literal 0xa 0191 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "Could not activate break" 0193 e403 | | Load 0x2,0x3 0194 e003 | | Load 0x0,0x3 0195 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 0196 01cc | | Execute Vector,Catenate 0197 0092 02b6 | | Action Push_String_Extended,0x2b6 ; ": " 0199 01cc | | Execute Vector,Catenate 019a e402 | | Load 0x2,0x2 019b e002 | | Load 0x0,0x2 019c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 019d 01cc | | Execute Vector,Catenate 019e 01cb | | Execute Vector,Append 019f 8007 | | Call 0x0,0x7 01a0 7803 |x | Jump 0x1a4 01a1 00db | | Load_Top At_Offset_3 01a2 0a01 | | Execute_Immediate Plus,0x1 01a3 c405 | | Store 0x2,0x5 01a4 e404 | | Load 0x2,0x4 01a5 e003 | | Load 0x0,0x3 01a6 1871 | q | Execute Package,Field_Execute,Field_Number 0x71 01a7 c404 | | Store 0x2,0x4 01a8 00c9 | | Action Pop_Auxiliary_Loop 01a9 7fcb | | Jump 0x175 01aa 00ce | | Action Pop_Auxiliary 01ab 00da | | Load_Top At_Offset_2 01ac 8212 | | Call 0x1,0x12 01ad 00d9 | | Load_Top At_Offset_1 01ae 6802 |h | Jump_Zero 0x1b1 01af 00d9 | | Load_Top At_Offset_1 01b0 8213 | | Call 0x1,0x13 01b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b2 e5ff | | Load 0x2,-0x1 01b3 00d8 | | Load_Top At_Offset_0 01b4 00e4 | | Load_Encached Positive_Cache 01b5 0260 | ` | Execute Discrete,In_Type 01b6 7001 |p | Jump_Nonzero 0x1b8 01b7 0801 | | Execute_Immediate Raise,0x1 01b8 e006 | | Load 0x0,0x6 01b9 e003 | | Load 0x0,0x3 01ba 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 01bb e403 | | Load 0x2,0x3 01bc 017d | } | Execute Record,Structure_Write 01bd e402 | | Load 0x2,0x2 01be 00d9 | | Load_Top At_Offset_1 01bf e403 | | Load 0x2,0x3 01c0 e003 | | Load 0x0,0x3 01c1 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01c2 00d2 | | Pop_Control Pop_Count_2 01c3 c402 | | Store 0x2,0x2 01c4 00d8 | | Load_Top At_Offset_0 01c5 e402 | | Load 0x2,0x2 01c6 8210 | | Call 0x1,0x10 01c7 680a |h | Jump_Zero 0x1d2 01c8 480a |H | Short_Literal 0xa 01c9 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "Problem encountered activating breakpoint:\x0a" 01cb e402 | | Load 0x2,0x2 01cc e002 | | Load 0x0,0x2 01cd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01ce 01cc | | Execute Vector,Catenate 01cf 01cb | | Execute Vector,Append 01d0 8007 | | Call 0x0,0x7 01d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d2 00d8 | | Load_Top At_Offset_0 01d3 e003 | | Load 0x0,0x3 01d4 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 01d5 017f | | Execute Record,Equal 01d6 7006 |p | Jump_Nonzero 0x1dd 01d7 480a |H | Short_Literal 0xa 01d8 e402 | | Load 0x2,0x2 01d9 e002 | | Load 0x0,0x2 01da 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01db 01cb | | Execute Vector,Append 01dc 8008 | | Call 0x0,0x8 01dd 480a |H | Short_Literal 0xa 01de 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "The breakpoint has been activated:\x0a" 01e0 e403 | | Load 0x2,0x3 01e1 e003 | | Load 0x0,0x3 01e2 186d | m | Execute Package,Field_Execute,Field_Number 0x6d 01e3 01cc | | Execute Vector,Catenate 01e4 01cb | | Execute Vector,Append 01e5 8008 | | Call 0x0,0x8 01e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e7 TRAP_0158: 01e7 0007 | | Action Break_Optional 01e8 480a |H | Short_Literal 0xa 01e9 0092 02b4 | | Action Push_String_Extended,0x2b4 ; "Exception raised during command processing: " 01eb e00a | | Load 0x0,0xa 01ec 180d | | Execute Package,Field_Execute,Field_Number 0xd 01ed 01cc | | Execute Vector,Catenate 01ee 01cb | | Execute Vector,Append 01ef 8007 | | Call 0x0,0x7 01f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01f1 0000 0000 | | .BLANK 0000[0x7] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 4802 |H | Short_Literal 0x2 01fc 00db | | Load_Top At_Offset_3 01fd e002 | | Load 0x0,0x2 01fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ff 6805 |h | Jump_Zero 0x205 0200 00db | | Load_Top At_Offset_3 0201 e003 | | Load 0x0,0x3 0202 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0203 017f | | Execute Record,Equal 0204 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0205 4800 |H | Short_Literal 0x0 0206 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0207 0000 | | .XXX[0x1] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c 0b01 | | Execute_Immediate Case_Compare,0x1 020d 700d |p | Jump_Nonzero 0x21b 020e 6815 |h | Jump_Zero 0x224 020f 480a |H | Short_Literal 0xa 0210 e5fe | | Load 0x2,-0x2 0211 e5ff | | Load 0x2,-0x1 0212 00e0 | | Load_Encached Standard_Cache 0213 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0214 01cc | | Execute Vector,Catenate 0215 0092 02b8 | | Action Push_String_Extended,0x2b8 ; " breakpoints." 0217 01cc | | Execute Vector,Catenate 0218 01cb | | Execute Vector,Append 0219 8008 | | Call 0x0,0x8 021a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 021b 00d1 | | Pop_Control Pop_Count_1 021c 480a |H | Short_Literal 0xa 021d e5fe | | Load 0x2,-0x2 021e 0092 02b9 | | Action Push_String_Extended,0x2b9 ; " 1 breakpoint." 0220 01cc | | Execute Vector,Catenate 0221 01cb | | Execute Vector,Append 0222 8008 | | Call 0x0,0x8 0223 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0224 480a |H | Short_Literal 0xa 0225 0092 02ba | | Action Push_String_Extended,0x2ba ; "No breakpoints " 0227 e5fe | | Load 0x2,-0x2 0228 e00b | | Load 0x0,0xb 0229 1815 | | Execute Package,Field_Execute,Field_Number 0x15 022a 01cc | | Execute Vector,Catenate 022b 0092 02bb | | Action Push_String_Extended,0x2bb ; "." 022d 01cc | | Execute Vector,Catenate 022e 01cb | | Execute Vector,Append 022f 8008 | | Call 0x0,0x8 0230 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0231 0000 0000 | | .BLANK 0000[0x7] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 0092 02bc | | Action Push_String_Extended,0x2bc ; "Activated" 023d 00db | | Load_Top At_Offset_3 023e 8211 | | Call 0x1,0x11 023f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 0092 02bd | | Action Push_String_Extended,0x2bd ; "Failed to activate" 0245 00db | | Load_Top At_Offset_3 0246 8211 | | Call 0x1,0x11 0247 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 025c | \ | .CONST 0x025c ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0003 | | .CONST 0x0003 ; Number of locals 024b INIT_0248: 024b e003 | | Load 0x0,0x3 024c 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f 024d 0322 | " | Declare_Variable Record 024e e5ff | | Load 0x2,-0x1 024f 00d8 | | Load_Top At_Offset_0 0250 00e4 | | Load_Encached Positive_Cache 0251 0260 | ` | Execute Discrete,In_Type 0252 7001 |p | Jump_Nonzero 0x254 0253 0801 | | Execute_Immediate Raise,0x1 0254 e006 | | Load 0x0,0x6 0255 e003 | | Load 0x0,0x3 0256 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 0257 00d9 | | Load_Top At_Offset_1 0258 017d | } | Execute Record,Structure_Write 0259 00d8 | | Load_Top At_Offset_0 025a e003 | | Load 0x0,0x3 025b 186d | m | Execute Package,Field_Execute,Field_Number 0x6d 025c BODY_0248: 025c e402 | | Load 0x2,0x2 025d 00da | | Load_Top At_Offset_2 025e e003 | | Load 0x0,0x3 025f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0260 00d1 | | Pop_Control Pop_Count_1 0261 c402 | | Store 0x2,0x2 0262 4802 |H | Short_Literal 0x2 0263 e402 | | Load 0x2,0x2 0264 e002 | | Load 0x0,0x2 0265 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0266 6811 |h | Jump_Zero 0x278 0267 480a |H | Short_Literal 0xa 0268 480a |H | Short_Literal 0xa 0269 0092 02be | | Action Push_String_Extended,0x2be ; "Problem encountered de-activating " 026b 00db | | Load_Top At_Offset_3 026c 01cc | | Execute Vector,Catenate 026d 0092 02b2 | | Action Push_String_Extended,0x2b2 ; ":" 026f 01cc | | Execute Vector,Catenate 0270 01cb | | Execute Vector,Append 0271 e402 | | Load 0x2,0x2 0272 e002 | | Load 0x0,0x2 0273 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0274 01cc | | Execute Vector,Catenate 0275 01cb | | Execute Vector,Append 0276 8007 | | Call 0x0,0x7 0277 7807 |x | Jump 0x27f 0278 480a |H | Short_Literal 0xa 0279 00d9 | | Load_Top At_Offset_1 027a 0092 02bf | | Action Push_String_Extended,0x2bf ; " has been deactivated." 027c 01cc | | Execute Vector,Catenate 027d 01cb | | Execute Vector,Append 027e 8008 | | Call 0x0,0x8 027f e5fe | | Load 0x2,-0x2 0280 6823 |h# | Jump_Zero 0x2a4 0281 e402 | | Load 0x2,0x2 0282 00da | | Load_Top At_Offset_2 0283 e003 | | Load 0x0,0x3 0284 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0285 00d1 | | Pop_Control Pop_Count_1 0286 c402 | | Store 0x2,0x2 0287 4802 |H | Short_Literal 0x2 0288 e402 | | Load 0x2,0x2 0289 e002 | | Load 0x0,0x2 028a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 028b 6811 |h | Jump_Zero 0x29d 028c 480a |H | Short_Literal 0xa 028d 480a |H | Short_Literal 0xa 028e 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "Problem encountered deleting " 0290 00db | | Load_Top At_Offset_3 0291 01cc | | Execute Vector,Catenate 0292 0092 02b2 | | Action Push_String_Extended,0x2b2 ; ":" 0294 01cc | | Execute Vector,Catenate 0295 01cb | | Execute Vector,Append 0296 e402 | | Load 0x2,0x2 0297 e002 | | Load 0x0,0x2 0298 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0299 01cc | | Execute Vector,Catenate 029a 01cb | | Execute Vector,Append 029b 8007 | | Call 0x0,0x7 029c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 029d 480a |H | Short_Literal 0xa 029e 00d9 | | Load_Top At_Offset_1 029f 0092 02c1 | | Action Push_String_Extended,0x2c1 ; " has been deleted." 02a1 01cc | | Execute Vector,Catenate 02a2 01cb | | Execute Vector,Append 02a3 8008 | | Call 0x0,0x8 02a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a5 ; -------------------------------------------------------------------------------------- 02a5 ; STRING TABLE 02a5 ; -------------------------------------------------------------------------------------- 02a5 003c | < | .STRTAB 0x003c->0x02c3 ; "Problem encountered creating breakpoint: \x0a" 02a6 0064 | d | .STRTAB 0x0064->0x02d8 ; "An identical breakpoint has already been created:\x0a" 02a7 0094 | | .STRTAB 0x0094->0x02f1 ; "The breakpoint could not be activated:\x0a" 02a8 00b9 | | .STRTAB 0x00b9->0x0304 ; "The breakpoint has been activated:\x0a" 02a9 00da | | .STRTAB 0x00da->0x0316 ; "The breakpoint has been created but could not be activated:\x0a" 02aa 0114 | | .STRTAB 0x0114->0x0334 ; "The breakpoint has been created and activated:\x0a" 02ab 0141 | A | .STRTAB 0x0141->0x034b ; "Problem encountered creating breakpoint: \x0aProgram has been recompiled since debugger started.\x0a" 02ac 019d | | .STRTAB 0x019d->0x037a ; "Exception raised creating breakpoint: " 02ad 01c1 | | .STRTAB 0x01c1->0x038d ; "Problem encountered de-activating all breakpoints: \x0a" 02ae 01f3 | | .STRTAB 0x01f3->0x03a7 ; "All breakpoints have been withdrawn\x0a" 02af 0215 | | .STRTAB 0x0215->0x03b9 ; "Problem encountered deleting all breakpoints: " 02b0 0241 | A | .STRTAB 0x0241->0x03d0 ; "All breakpoints have been deleted\x0a" 02b1 0261 | a | .STRTAB 0x0261->0x03e1 ; "Problem encountered deleting breakpoint " 02b2 0287 | | .STRTAB 0x0287->0x03f5 ; ":" 02b3 0286 | | .STRTAB 0x0286->0x03f6 ; "Breakpoint does not exist." 02b4 029e | | .STRTAB 0x029e->0x0403 ; "Exception raised during command processing: " 02b5 02c8 | | .STRTAB 0x02c8->0x0419 ; "Could not activate break" 02b6 02de | | .STRTAB 0x02de->0x0425 ; ": " 02b7 02de | | .STRTAB 0x02de->0x0426 ; "Problem encountered activating breakpoint:\x0a" 02b8 0307 | | .STRTAB 0x0307->0x043b ; " breakpoints." 02b9 0312 | | .STRTAB 0x0312->0x0442 ; " 1 breakpoint." 02ba 031e | | .STRTAB 0x031e->0x0449 ; "No breakpoints " 02bb 032b | + | .STRTAB 0x032b->0x0450 ; "." 02bc 032a | * | .STRTAB 0x032a->0x0451 ; "Activated" 02bd 0331 | 1 | .STRTAB 0x0331->0x0455 ; "Failed to activate" 02be 0341 | A | .STRTAB 0x0341->0x045e ; "Problem encountered de-activating " 02bf 0361 | a | .STRTAB 0x0361->0x046f ; " has been deactivated." 02c0 0375 | u | .STRTAB 0x0375->0x047a ; "Problem encountered deleting " 02c1 0390 | | .STRTAB 0x0390->0x0489 ; " has been deleted." 02c2 03a0 | | .STREND 0x03a0->0x0492 02c3 5072 6f62 |Prob| .STRTAB_STRINGS 0492 0000 0000 | | .BLANK 0000[0x6] 0498 ; -------------------------------------------------------------------------------------- 0498 ; Debug Table 0498 ; -------------------------------------------------------------------------------------- 0498 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1641,0x0000,0x0001,0x0000 049e 0000 0000 | | .BLANK 0000[0x1a] 04b8 00c0 0009 | | .XXX[0x3c] 04ba 4410 0809 |D | 04bc 77f0 0000 |w | 04be 0036 8990 | 6 | 04c0 1000 8000 | | 04c2 5100 0000 |Q | 04c4 0256 0000 | V | 04c6 0200 0000 | | 04c8 1500 2800 | ( | 04ca 0000 0800 | | 04cc 0002 0000 | | 04ce 0011 0000 | | 04d0 0000 0800 | | 04d2 0000 5200 | R | 04d4 0008 08e8 | | 04d6 5200 0008 |R | 04d8 08e8 5a00 | Z | 04da 0008 08e8 | | 04dc 6200 0008 |b | 04de 08e8 6a00 | j | 04e0 0008 08e8 | | 04e2 7200 0008 |r | 04e4 08e8 7a00 | z | 04e6 0008 08e8 | | 04e8 8200 0008 | | 04ea 08e8 8a00 | | 04ec 0008 08e8 | | 04ee 9200 0008 | | 04f0 08e8 9818 | | 04f2 0001 2878 | (x| 04f4 0000 0000 | | .BLANK 0000[0xd] 0501 0020 0500 | | .XXX[0xc] 0503 0000 0000 | | 0505 0000 4000 | @ | 0507 0002 2000 | | 0509 0000 0100 | | 050b 0000 0a00 | | 050d 0000 0000 | | .BLANK 0000[0x2d] 053a 0004 00a0 | | .XXX[0xc] 053c 0000 0000 | | 053e 0000 0800 | | 0540 0000 4400 | D | 0542 0000 0020 | | 0544 0000 0140 | @| 0546 0000 0000 | | .BLANK 0000[0x2e] 0574 8014 0000 | | .XXX[0xb] 0576 0000 0000 | | 0578 0100 0000 | | 057a 0880 0000 | | 057c 0004 0000 | | 057e 0028 | ( | 057f 0000 0000 | | .BLANK 0000[0x2e] 05ad 1002 8000 | | .XXX[0xb] 05af 0000 0000 | | 05b1 0020 0000 | | 05b3 0110 0000 | | 05b5 0000 8000 | | 05b7 0005 | | 05b8 0000 0000 | | .BLANK 0000[0x48]