|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02e8 | | .CONST 0x02e8 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0028 | ( | .CONST 0x0028 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x0322,0x8000,0x0000,0x0058,0x5cf5,0x0000,0x0009 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 000d 0129 | ) | Execute Any,Make_Visible 000e e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0010 0129 | ) | Execute Any,Make_Visible 0011 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x11,0xfffd 0013 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x13,0xfffc 0015 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x15,0xfffb 0017 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x17,0xfffa 0019 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x19,0xfff9 001b 00bf | | Action Accept_Activation 001c 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x001c,0x0332,0x8000,0x0000,0x0058,0x6715,0x0000,0x000d ; Debug Table 0x1.0x0 = 0x1c,0xffff 001d 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x1d,0xfffe 001e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x2 = 0x1e,0xfffd 001f 00c7 | | Action Elaborate_Subprogram 0020 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x3 = 0x20,0xfffc 0021 00c7 | | Action Elaborate_Subprogram 0022 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x4 = 0x22,0xfffb 0023 00c7 | | Action Elaborate_Subprogram 0024 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x5 = 0x24,0xfffa 0025 00c7 | | Action Elaborate_Subprogram 0026 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x6 = 0x26,0xfff9 0027 00c7 | | Action Elaborate_Subprogram 0028 BODY_0008: 0028 00bc | | Action Signal_Activated 0029 00bb | | Action Signal_Completion 002a 0000 0000 | | .BLANK 0000[0x6] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 003a | : | .CONST 0x003a ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0003 | | .CONST 0x0003 ; Number of locals 0033 INIT_0030: 0033 e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x0033,0x0342,0x0001,0x0000,0x0058,0x5cf5,0x0000,0x0016 ; Debug Table 0x2.0x0 = 0x33,0xffff 0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0035 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x1 = 0x35,0xfffe 0036 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0037 02c7 | | Declare_Variable Any 0038 00d8 | | Load_Top At_Offset_0 0039 1c00 | | Execute_Immediate Run_Utility,0x0 003a BODY_0030: 003a e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x2 = 0x3a,0x1 003b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003c 00d9 | | Load_Top At_Offset_1 003d 0120 | | Execute Any,Is_Value 003e 6803 |h | Jump_Zero 0x42 003f e002 | | Load 0x0,0x2 0040 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0041 7801 |x | Jump 0x43 0042 00d9 | | Load_Top At_Offset_1 0043 e5fe | | Load 0x2,-0x2 0044 0217 | | Execute Heap_Access,All_Reference 0045 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0046 e5ff | | Load 0x2,-0x1 0047 e003 | | Load 0x0,0x3 0048 180f | | Execute Package,Field_Execute,Field_Number 0xf 0049 c403 | | Store 0x2,0x3 004a 005a | Z | Store_Top Discrete,At_Offset_2 004b e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x3 = 0x4b,0x2 004c e5fe | | Load 0x2,-0x2 004d 00db | | Load_Top At_Offset_3 004e e004 | | Load 0x0,0x4 004f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0050 e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x4 = 0x50,0x3 0051 6808 |h | Jump_Zero 0x5a 0052 0092 022b | +| Action Push_String_Extended,0x22b ; "Internal Error - Cannot freeze the " ; Debug Table 0x2.0x5 = 0x52,0x4 0054 e5fc | | Load 0x2,-0x4 0055 01cc | | Execute Vector,Catenate 0056 e5fe | | Load 0x2,-0x2 0057 00da | | Load_Top At_Offset_2 0058 e004 | | Load 0x0,0x4 0059 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 005a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x6 = 0x5a,0x5 005b c5fa | | Store 0x2,-0x6 005c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 006a | j | .CONST 0x006a ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0003 | | .CONST 0x0003 ; Number of locals 0063 INIT_0060: 0063 e003 | | Load 0x0,0x3 ; Debug Table 0x3 = .DEBUG 0x0063,0x0352,0x0001,0x0000,0x0058,0x5cf5,0x0000,0x0033 ; Debug Table 0x3.0x0 = 0x63,0xffff 0064 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0065 02c7 | | Declare_Variable Any 0066 00d8 | | Load_Top At_Offset_0 0067 1c00 | | Execute_Immediate Run_Utility,0x0 0068 e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x1 = 0x68,0xfffe 0069 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006a BODY_0060: 006a e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x2 = 0x6a,0x1 006b e5ff | | Load 0x2,-0x1 006c e004 | | Load 0x0,0x4 006d 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 006e 680b |h | Jump_Zero 0x7a 006f 0092 022c | ,| Action Push_String_Extended,0x22c ; "Internal Error - Cannot unfreeze the " ; Debug Table 0x3.0x3 = 0x6f,0x2 0071 e5fd | | Load 0x2,-0x3 0072 01cc | | Execute Vector,Catenate 0073 0092 022d | -| Action Push_String_Extended,0x22d ; " set" 0075 01cc | | Execute Vector,Catenate 0076 e5fc | | Load 0x2,-0x4 0077 e5ff | | Load 0x2,-0x1 0078 e004 | | Load 0x0,0x4 0079 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 007a e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x4 = 0x7a,0x3 007b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007c 00da | | Load_Top At_Offset_2 007d 0120 | | Execute Any,Is_Value 007e 6803 |h | Jump_Zero 0x82 007f e003 | | Load 0x0,0x3 0080 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0081 7801 |x | Jump 0x83 0082 00da | | Load_Top At_Offset_2 0083 4801 |H | Short_Literal 0x1 0084 4801 |H | Short_Literal 0x1 0085 e5fc | | Load 0x2,-0x4 0086 0217 | | Execute Heap_Access,All_Reference 0087 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0088 e5ff | | Load 0x2,-0x1 0089 e003 | | Load 0x0,0x3 008a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 008b c402 | | Store 0x2,0x2 008c 0059 | Y | Store_Top Discrete,At_Offset_1 008d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x5 = 0x8d,0x4 008e 0f01 | | Execute_Immediate Equal,0x1 008f 680d |h | Jump_Zero 0x9d 0090 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x6 = 0x90,0x5 0091 0092 022e | .| Action Push_String_Extended,0x22e ; "Someone else is probably running a CMVC operation, since the " 0093 e5fd | | Load 0x2,-0x3 0094 01cc | | Execute Vector,Catenate 0095 0092 022f | /| Action Push_String_Extended,0x22f ; " descriptor cannot be opened" 0097 01cc | | Execute Vector,Catenate 0098 e5fc | | Load 0x2,-0x4 0099 00db | | Load_Top At_Offset_3 009a e004 | | Load 0x0,0x4 009b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 009c 781d |x | Jump 0xba 009d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x7 = 0x9d,0x6 009e 0f0a | | Execute_Immediate Equal,0xa 009f 680e |h | Jump_Zero 0xae 00a0 0092 0230 | 0| Action Push_String_Extended,0x230 ; "User has insufficient access to " ; Debug Table 0x3.0x8 = 0xa0,0x7 00a2 e5fc | | Load 0x2,-0x4 00a3 e5fc | | Load 0x2,-0x4 00a4 e5ff | | Load 0x2,-0x1 00a5 e004 | | Load 0x0,0x4 00a6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a7 e004 | | Load 0x0,0x4 00a8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a9 01cc | | Execute Vector,Catenate 00aa e5fc | | Load 0x2,-0x4 00ab e004 | | Load 0x0,0x4 00ac 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00ad 780c |x | Jump 0xba 00ae e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x9 = 0xae,0x8 00af 0092 0231 | 1| Action Push_String_Extended,0x231 ; "Unable to open the " 00b1 e5fd | | Load 0x2,-0x3 00b2 01cc | | Execute Vector,Catenate 00b3 0092 0232 | 2| Action Push_String_Extended,0x232 ; " descriptor" 00b5 01cc | | Execute Vector,Catenate 00b6 e5fc | | Load 0x2,-0x4 00b7 00db | | Load_Top At_Offset_3 00b8 e004 | | Load 0x0,0x4 00b9 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00ba 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xa = 0xba,0x9 00bb e5fc | | Load 0x2,-0x4 00bc 8213 | | Call 0x1,0x13 00bd c402 | | Store 0x2,0x2 00be 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xb = 0xbe,0xa 00bf e5fe | | Load 0x2,-0x2 00c0 e003 | | Load 0x0,0x3 00c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c2 c402 | | Store 0x2,0x2 00c3 e002 | | Load 0x0,0x2 ; Debug Table 0x3.0xc = 0xc3,0xb 00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c5 00da | | Load_Top At_Offset_2 00c6 e003 | | Load 0x0,0x3 00c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c8 0059 | Y | Store_Top Discrete,At_Offset_1 00c9 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0xd = 0xc9,0xc 00ca 0092 0233 | 3| Action Push_String_Extended,0x233 ; "Internal Error - Unable to close the " 00cc e5fd | | Load 0x2,-0x3 00cd 01cc | | Execute Vector,Catenate 00ce 0092 0234 | 4| Action Push_String_Extended,0x234 ; " file" 00d0 01cc | | Execute Vector,Catenate 00d1 e5fc | | Load 0x2,-0x4 00d2 00db | | Load_Top At_Offset_3 00d3 e004 | | Load 0x0,0x4 00d4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00d5 e5fb | | Load 0x2,-0x5 ; Debug Table 0x3.0xe = 0xd5,0xd 00d6 680b |h | Jump_Zero 0xe2 00d7 0092 0235 | 5| Action Push_String_Extended,0x235 ; "Internal Error - Cannot refreeze the " ; Debug Table 0x3.0xf = 0xd7,0xe 00d9 e5fd | | Load 0x2,-0x3 00da 01cc | | Execute Vector,Catenate 00db 0092 022d | -| Action Push_String_Extended,0x22d ; " set" 00dd 01cc | | Execute Vector,Catenate 00de e5fc | | Load 0x2,-0x4 00df e5ff | | Load 0x2,-0x1 00e0 e004 | | Load 0x0,0x4 00e1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00e2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00e3 0000 0000 | | .BLANK 0000[0x5] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f2 | | .CONST 0x00f2 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0003 | | .CONST 0x0003 ; Number of locals 00eb INIT_00e8: 00eb e003 | | Load 0x0,0x3 ; Debug Table 0x4 = .DEBUG 0x00eb,0x0374,0x0001,0x0000,0x0058,0x5cf5,0x0000,0x004e ; Debug Table 0x4.0x0 = 0xeb,0xffff 00ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ed 02c7 | | Declare_Variable Any 00ee 00d8 | | Load_Top At_Offset_0 00ef 1c00 | | Execute_Immediate Run_Utility,0x0 00f0 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x1 = 0xf0,0xfffe 00f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f2 BODY_00e8: 00f2 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x2 = 0xf2,0x1 00f3 e5ff | | Load 0x2,-0x1 00f4 e004 | | Load 0x0,0x4 00f5 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 00f6 680b |h | Jump_Zero 0x102 00f7 0092 022c | ,| Action Push_String_Extended,0x22c ; "Internal Error - Cannot unfreeze the " ; Debug Table 0x4.0x3 = 0xf7,0x2 00f9 e5fd | | Load 0x2,-0x3 00fa 01cc | | Execute Vector,Catenate 00fb 0092 022d | -| Action Push_String_Extended,0x22d ; " set" 00fd 01cc | | Execute Vector,Catenate 00fe e5fc | | Load 0x2,-0x4 00ff e5ff | | Load 0x2,-0x1 0100 e004 | | Load 0x0,0x4 0101 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0102 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x4 = 0x102,0x3 0103 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0104 00da | | Load_Top At_Offset_2 0105 0120 | | Execute Any,Is_Value 0106 6803 |h | Jump_Zero 0x10a 0107 e003 | | Load 0x0,0x3 0108 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0109 7801 |x | Jump 0x10b 010a 00da | | Load_Top At_Offset_2 010b 4801 |H | Short_Literal 0x1 010c 4801 |H | Short_Literal 0x1 010d e5fc | | Load 0x2,-0x4 010e 0217 | | Execute Heap_Access,All_Reference 010f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0110 e5ff | | Load 0x2,-0x1 0111 e003 | | Load 0x0,0x3 0112 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0113 c402 | | Store 0x2,0x2 0114 0059 | Y | Store_Top Discrete,At_Offset_1 0115 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x5 = 0x115,0x4 0116 0092 022e | .| Action Push_String_Extended,0x22e ; "Someone else is probably running a CMVC operation, since the " 0118 e5fd | | Load 0x2,-0x3 0119 01cc | | Execute Vector,Catenate 011a 0092 022f | /| Action Push_String_Extended,0x22f ; " descriptor cannot be opened" 011c 01cc | | Execute Vector,Catenate 011d e5fc | | Load 0x2,-0x4 011e 00db | | Load_Top At_Offset_3 011f e004 | | Load 0x0,0x4 0120 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0121 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x6 = 0x121,0x5 0122 e5fc | | Load 0x2,-0x4 0123 8213 | | Call 0x1,0x13 0124 c402 | | Store 0x2,0x2 0125 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x7 = 0x125,0x6 0126 00da | | Load_Top At_Offset_2 0127 e003 | | Load 0x0,0x3 0128 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0129 6805 |h | Jump_Zero 0x12f 012a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x8 = 0x12a,0x7 012b e5fe | | Load 0x2,-0x2 012c e003 | | Load 0x0,0x3 012d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 012e c402 | | Store 0x2,0x2 012f e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x9 = 0x12f,0x8 0130 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0131 00da | | Load_Top At_Offset_2 0132 e003 | | Load 0x0,0x3 0133 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0134 0059 | Y | Store_Top Discrete,At_Offset_1 0135 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0xa = 0x135,0x9 0136 0092 0233 | 3| Action Push_String_Extended,0x233 ; "Internal Error - Unable to close the " 0138 e5fd | | Load 0x2,-0x3 0139 01cc | | Execute Vector,Catenate 013a 0092 0234 | 4| Action Push_String_Extended,0x234 ; " file" 013c 01cc | | Execute Vector,Catenate 013d e5fc | | Load 0x2,-0x4 013e 00db | | Load_Top At_Offset_3 013f e004 | | Load 0x0,0x4 0140 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0141 e5fb | | Load 0x2,-0x5 ; Debug Table 0x4.0xb = 0x141,0xa 0142 680b |h | Jump_Zero 0x14e 0143 0092 0235 | 5| Action Push_String_Extended,0x235 ; "Internal Error - Cannot refreeze the " ; Debug Table 0x4.0xc = 0x143,0xb 0145 e5fd | | Load 0x2,-0x3 0146 01cc | | Execute Vector,Catenate 0147 0092 022d | -| Action Push_String_Extended,0x22d ; " set" 0149 01cc | | Execute Vector,Catenate 014a e5fc | | Load 0x2,-0x4 014b e5ff | | Load 0x2,-0x1 014c e004 | | Load 0x0,0x4 014d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 014e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 016d | m | .CONST 0x016d ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0007 | | .CONST 0x0007 ; Number of locals 0153 INIT_0150: 0153 e003 | | Load 0x0,0x3 ; Debug Table 0x5 = .DEBUG 0x0153,0x0390,0x2801,0x0002,0x0058,0x5cf5,0x0000,0x0069 ; Debug Table 0x5.0x0 = 0x153,0xffff 0154 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0155 02c7 | | Declare_Variable Any 0156 00d8 | | Load_Top At_Offset_0 0157 1c00 | | Execute_Immediate Run_Utility,0x0 0158 e002 | | Load 0x0,0x2 ; Debug Table 0x5.0x1 = 0x158,0xfffe 0159 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015a e003 | | Load 0x0,0x3 ; Debug Table 0x5.0x2 = 0x15a,0xfffd 015b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 015c 02c7 | | Declare_Variable Any 015d 00d8 | | Load_Top At_Offset_0 015e 1c00 | | Execute_Immediate Run_Utility,0x0 015f e002 | | Load 0x0,0x2 ; Debug Table 0x5.0x3 = 0x15f,0xfffc 0160 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0161 02c7 | | Declare_Variable Any 0162 00d8 | | Load_Top At_Offset_0 0163 1c00 | | Execute_Immediate Run_Utility,0x0 0164 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x4 = 0x164,0xfffb 0165 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0166 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0167 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x5 = 0x167,0xfffa 0168 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0169 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 016a 0322 | " | Declare_Variable Record 016b 00d8 | | Load_Top At_Offset_0 016c 1c00 | | Execute_Immediate Run_Utility,0x0 016d BODY_0150: 016d 00be | | Action Activate_Tasks 016e e002 | | Load 0x0,0x2 ; Debug Table 0x5.0x6 = 0x16e,0x1 016f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0170 e402 | | Load 0x2,0x2 0171 0120 | | Execute Any,Is_Value 0172 6803 |h | Jump_Zero 0x176 0173 e003 | | Load 0x0,0x3 0174 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0175 7801 |x | Jump 0x177 0176 e402 | | Load 0x2,0x2 0177 4800 |H | Short_Literal 0x0 0178 4800 |H | Short_Literal 0x0 0179 e5fb | | Load 0x2,-0x5 017a 0217 | | Execute Heap_Access,All_Reference 017b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017c e5fd | | Load 0x2,-0x3 017d e003 | | Load 0x0,0x3 017e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 017f c402 | | Store 0x2,0x2 0180 c403 | | Store 0x2,0x3 0181 e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x7 = 0x181,0x2 0182 0092 0236 | 6| Action Push_String_Extended,0x236 ; "Internal Error - Unable to open the " 0184 e5fc | | Load 0x2,-0x4 0185 01cc | | Execute Vector,Catenate 0186 0092 0234 | 4| Action Push_String_Extended,0x234 ; " file" 0188 01cc | | Execute Vector,Catenate 0189 e5fb | | Load 0x2,-0x5 018a e403 | | Load 0x2,0x3 018b e004 | | Load 0x0,0x4 018c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 018d 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x8 = 0x18d,0x3 018e 0120 | | Execute Any,Is_Value 018f 6803 |h | Jump_Zero 0x193 0190 e003 | | Load 0x0,0x3 0191 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0192 7801 |x | Jump 0x194 0193 00db | | Load_Top At_Offset_3 0194 e402 | | Load 0x2,0x2 0195 e003 | | Load 0x0,0x3 0196 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0197 c404 | | Store 0x2,0x4 0198 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x9 = 0x198,0x4 0199 1b13 | | Execute Package,Field_Read,Field_Number 0x13 019a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 019b e5fb | | Load 0x2,-0x5 019c 0217 | | Execute Heap_Access,All_Reference 019d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 019e e005 | | Load 0x0,0x5 019f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a1 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01a2 00cf | | Action Mark_Auxiliary 01a3 7814 |x | Jump 0x1b8 01a4 e404 | | Load 0x2,0x4 ; Debug Table 0x5.0xa = 0x1a4,0x6 01a5 e003 | | Load 0x0,0x3 01a6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01a7 c405 | | Store 0x2,0x5 01a8 e5fb | | Load 0x2,-0x5 ; Debug Table 0x5.0xb = 0x1a8,0x7 01a9 e405 | | Load 0x2,0x5 01aa e004 | | Load 0x0,0x4 01ab 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01ac 6806 |h | Jump_Zero 0x1b3 01ad 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0xc = 0x1ad,0x8 01ae e405 | | Load 0x2,0x5 01af e005 | | Load 0x0,0x5 01b0 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01b1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01b2 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01b3 e404 | | Load 0x2,0x4 ; Debug Table 0x5.0xd = 0x1b3,0x9 01b4 e003 | | Load 0x0,0x3 01b5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01b6 c404 | | Store 0x2,0x4 01b7 00c9 | | Action Pop_Auxiliary_Loop 01b8 e404 | | Load 0x2,0x4 ; Debug Table 0x5.0xe = 0x1b8,0x5 01b9 e003 | | Load 0x0,0x3 01ba 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01bb 6fe8 |o | Jump_Zero 0x1a4 01bc 00ce | | Action Pop_Auxiliary 01bd e002 | | Load 0x0,0x2 ; Debug Table 0x5.0xf = 0x1bd,0xa 01be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bf e402 | | Load 0x2,0x2 01c0 e003 | | Load 0x0,0x3 01c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c2 c403 | | Store 0x2,0x3 01c3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x10 = 0x1c3,0xb 01c4 0092 0233 | 3| Action Push_String_Extended,0x233 ; "Internal Error - Unable to close the " 01c6 e5fc | | Load 0x2,-0x4 01c7 01cc | | Execute Vector,Catenate 01c8 0092 0234 | 4| Action Push_String_Extended,0x234 ; " file" 01ca 01cc | | Execute Vector,Catenate 01cb e5fb | | Load 0x2,-0x5 01cc e403 | | Load 0x2,0x3 01cd e004 | | Load 0x0,0x4 01ce 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 01cf 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x11 = 0x1cf,0xc 01d0 00da | | Load_Top At_Offset_2 01d1 e005 | | Load 0x0,0x5 01d2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01d3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01d4 00d1 | | Pop_Control Pop_Count_1 01d5 00cf | | Action Mark_Auxiliary 01d6 780e |x | Jump 0x1e5 01d7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x12 = 0x1d7,0xe 01d8 e005 | | Load 0x0,0x5 01d9 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01da 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01db c405 | | Store 0x2,0x5 01dc e5fb | | Load 0x2,-0x5 ; Debug Table 0x5.0x13 = 0x1dc,0xf 01dd e405 | | Load 0x2,0x5 01de 85fe | | Call 0x2,-0x2 01df 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x14 = 0x1df,0x10 01e0 e005 | | Load 0x0,0x5 01e1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01e2 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01e3 00d1 | | Pop_Control Pop_Count_1 01e4 00c9 | | Action Pop_Auxiliary_Loop 01e5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x15 = 0x1e5,0xd 01e6 e005 | | Load 0x0,0x5 01e7 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01e8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01e9 6fed |o | Jump_Zero 0x1d7 01ea 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01eb 0000 0000 | | .BLANK 0000[0x5] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f9 | | .CONST 0x01f9 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0003 | | .CONST 0x0003 ; Number of locals 01f3 INIT_01f0: 01f3 e003 | | Load 0x0,0x3 ; Debug Table 0x6 = .DEBUG 0x01f3,0x03be,0x0001,0x0000,0x0058,0x5cf5,0x0000,0x0089 ; Debug Table 0x6.0x0 = 0x1f3,0xffff 01f4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01f5 02c7 | | Declare_Variable Any 01f6 00d8 | | Load_Top At_Offset_0 01f7 1c00 | | Execute_Immediate Run_Utility,0x0 01f8 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6.0x1 = 0x1f8,0xfffe 01f9 BODY_01f0: 01f9 00be | | Action Activate_Tasks 01fa 00cf | | Action Mark_Auxiliary 01fb 0007 | | Action Break_Optional ; Debug Table 0x6.0x2 = 0x1fb,0x1 01fc 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x3 = 0x1fc,0x2 01fd 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01fe 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x4 = 0x1fe,0x3 01ff 0120 | | Execute Any,Is_Value 0200 6803 |h | Jump_Zero 0x204 0201 e003 | | Load 0x0,0x3 0202 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0203 7801 |x | Jump 0x205 0204 00da | | Load_Top At_Offset_2 0205 e5fe | | Load 0x2,-0x2 0206 e003 | | Load 0x0,0x3 0207 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0208 c402 | | Store 0x2,0x2 0209 00cf | | Action Mark_Auxiliary 020a 7816 |x | Jump 0x221 020b e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x5 = 0x20b,0x5 020c e402 | | Load 0x2,0x2 020d e003 | | Load 0x0,0x3 020e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 020f e004 | | Load 0x0,0x4 0210 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0211 700a |p | Jump_Nonzero 0x21c 0212 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x6 = 0x212,0x6 0213 e402 | | Load 0x2,0x2 0214 e003 | | Load 0x0,0x3 0215 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0216 e003 | | Load 0x0,0x3 0217 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0218 c5fe | | Store 0x2,-0x2 0219 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x7 = 0x219,0x7 021a 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 021b 7809 |x | Jump 0x225 ; Debug Table 0x6.0x8 = 0x21b,0x8 021c 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x9 = 0x21c,0x9 021d e003 | | Load 0x0,0x3 021e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 021f c402 | | Store 0x2,0x2 0220 00c9 | | Action Pop_Auxiliary_Loop 0221 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0xa = 0x221,0x4 0222 e003 | | Load 0x0,0x3 0223 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0224 6fe6 |o | Jump_Zero 0x20b 0225 00ce | | Action Pop_Auxiliary 0226 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0xb = 0x226,0xa 0227 7001 |p | Jump_Nonzero 0x229 0228 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x6.0xc = 0x228,0xb 0229 00c9 | | Action Pop_Auxiliary_Loop 022a 7fd1 | | Jump 0x1fc 022b ; -------------------------------------------------------------------------------------- 022b ; STRING TABLE 022b ; -------------------------------------------------------------------------------------- 022b 001a | | .STRTAB 0x001a->0x0238 ; "Internal Error - Cannot freeze the " 022c 003b | ; | .STRTAB 0x003b->0x0249 ; "Internal Error - Cannot unfreeze the " 022d 005e | ^ | .STRTAB 0x005e->0x025c ; " set" 022e 0060 | ` | .STRTAB 0x0060->0x025e ; "Someone else is probably running a CMVC operation, since the " 022f 009b | | .STRTAB 0x009b->0x027c ; " descriptor cannot be opened" 0230 00b5 | | .STRTAB 0x00b5->0x028a ; "User has insufficient access to " 0231 00d3 | | .STRTAB 0x00d3->0x029a ; "Unable to open the " 0232 00e4 | | .STRTAB 0x00e4->0x02a4 ; " descriptor" 0233 00ed | | .STRTAB 0x00ed->0x02a9 ; "Internal Error - Unable to close the " 0234 0110 | | .STRTAB 0x0110->0x02bc ; " file" 0235 0113 | | .STRTAB 0x0113->0x02be ; "Internal Error - Cannot refreeze the " 0236 0136 | 6 | .STRTAB 0x0136->0x02d1 ; "Internal Error - Unable to open the " 0237 0158 | X | .STREND 0x0158->0x02e3 0238 496e 7465 |Inte| .STRTAB_STRINGS 02e3 0000 0000 | | .BLANK 0000[0x5] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; Debug Table 02e8 ; -------------------------------------------------------------------------------------- 02e8 0003 0007 | | .CONST 0x0003,0x0007 02ea 000b 0322 | "| .DEBUG 0x000b,0x0322,0x8000,0x0000,0x0058,0x5cf5,0x0000,0x0009 02f2 001c 0332 | 2| .DEBUG 0x001c,0x0332,0x8000,0x0000,0x0058,0x6715,0x0000,0x000d 02fa 0033 0342 | 3 B| .DEBUG 0x0033,0x0342,0x0001,0x0000,0x0058,0x5cf5,0x0000,0x0016 0302 0063 0352 | c R| .DEBUG 0x0063,0x0352,0x0001,0x0000,0x0058,0x5cf5,0x0000,0x0033 030a 00eb 0374 | t| .DEBUG 0x00eb,0x0374,0x0001,0x0000,0x0058,0x5cf5,0x0000,0x004e 0312 0153 0390 | S | .DEBUG 0x0153,0x0390,0x2801,0x0002,0x0058,0x5cf5,0x0000,0x0069 031a 01f3 03be | | .DEBUG 0x01f3,0x03be,0x0001,0x0000,0x0058,0x5cf5,0x0000,0x0089 0322 ; -------------------------------------------------------------------------------------- 0322 ; Debug3 Subtable 0x0 0322 ; -------------------------------------------------------------------------------------- 0322 0007 0000 | | .DBG3TAB 0x0007,0x0000 0324 000b ffff | | .CONST 0x000b,0xffff 0326 000e fffe | | .CONST 0x000e,0xfffe 0328 0011 fffd | | .CONST 0x0011,0xfffd 032a 0013 fffc | | .CONST 0x0013,0xfffc 032c 0015 fffb | | .CONST 0x0015,0xfffb 032e 0017 fffa | | .CONST 0x0017,0xfffa 0330 0019 fff9 | | .CONST 0x0019,0xfff9 0332 ; -------------------------------------------------------------------------------------- 0332 ; Debug3 Subtable 0x1 0332 ; -------------------------------------------------------------------------------------- 0332 0007 0000 | | .DBG3TAB 0x0007,0x0000 0334 001c ffff | | .CONST 0x001c,0xffff 0336 001d fffe | | .CONST 0x001d,0xfffe 0338 001e fffd | | .CONST 0x001e,0xfffd 033a 0020 fffc | | .CONST 0x0020,0xfffc 033c 0022 fffb | " | .CONST 0x0022,0xfffb 033e 0024 fffa | $ | .CONST 0x0024,0xfffa 0340 0026 fff9 | & | .CONST 0x0026,0xfff9 0342 ; -------------------------------------------------------------------------------------- 0342 ; Debug3 Subtable 0x2 0342 ; -------------------------------------------------------------------------------------- 0342 0002 0005 | | .DBG3TAB 0x0002,0x0005 0344 0033 ffff | 3 | .CONST 0x0033,0xffff 0346 0035 fffe | 5 | .CONST 0x0035,0xfffe 0348 003a 0001 | : | .CONST 0x003a,0x0001 034a 004b 0002 | K | .CONST 0x004b,0x0002 034c 0050 0003 | P | .CONST 0x0050,0x0003 034e 0052 0004 | R | .CONST 0x0052,0x0004 0350 005a 0005 | Z | .CONST 0x005a,0x0005 0352 ; -------------------------------------------------------------------------------------- 0352 ; Debug3 Subtable 0x3 0352 ; -------------------------------------------------------------------------------------- 0352 0002 000e | | .DBG3TAB 0x0002,0x000e 0354 0063 ffff | c | .CONST 0x0063,0xffff 0356 0068 fffe | h | .CONST 0x0068,0xfffe 0358 006a 0001 | j | .CONST 0x006a,0x0001 035a 006f 0002 | o | .CONST 0x006f,0x0002 035c 007a 0003 | z | .CONST 0x007a,0x0003 035e 008d 0004 | | .CONST 0x008d,0x0004 0360 0090 0005 | | .CONST 0x0090,0x0005 0362 009d 0006 | | .CONST 0x009d,0x0006 0364 00a0 0007 | | .CONST 0x00a0,0x0007 0366 00ae 0008 | | .CONST 0x00ae,0x0008 0368 00ba 0009 | | .CONST 0x00ba,0x0009 036a 00be 000a | | .CONST 0x00be,0x000a 036c 00c3 000b | | .CONST 0x00c3,0x000b 036e 00c9 000c | | .CONST 0x00c9,0x000c 0370 00d5 000d | | .CONST 0x00d5,0x000d 0372 00d7 000e | | .CONST 0x00d7,0x000e 0374 ; -------------------------------------------------------------------------------------- 0374 ; Debug3 Subtable 0x4 0374 ; -------------------------------------------------------------------------------------- 0374 0002 000b | | .DBG3TAB 0x0002,0x000b 0376 00eb ffff | | .CONST 0x00eb,0xffff 0378 00f0 fffe | | .CONST 0x00f0,0xfffe 037a 00f2 0001 | | .CONST 0x00f2,0x0001 037c 00f7 0002 | | .CONST 0x00f7,0x0002 037e 0102 0003 | | .CONST 0x0102,0x0003 0380 0115 0004 | | .CONST 0x0115,0x0004 0382 0121 0005 | ! | .CONST 0x0121,0x0005 0384 0125 0006 | % | .CONST 0x0125,0x0006 0386 012a 0007 | * | .CONST 0x012a,0x0007 0388 012f 0008 | / | .CONST 0x012f,0x0008 038a 0135 0009 | 5 | .CONST 0x0135,0x0009 038c 0141 000a | A | .CONST 0x0141,0x000a 038e 0143 000b | C | .CONST 0x0143,0x000b 0390 ; -------------------------------------------------------------------------------------- 0390 ; Debug3 Subtable 0x5 0390 ; -------------------------------------------------------------------------------------- 0390 0006 0010 | | .DBG3TAB 0x0006,0x0010 0392 0153 ffff | S | .CONST 0x0153,0xffff 0394 0158 fffe | X | .CONST 0x0158,0xfffe 0396 015a fffd | Z | .CONST 0x015a,0xfffd 0398 015f fffc | _ | .CONST 0x015f,0xfffc 039a 0164 fffb | d | .CONST 0x0164,0xfffb 039c 0167 fffa | g | .CONST 0x0167,0xfffa 039e 016e 0001 | n | .CONST 0x016e,0x0001 03a0 0181 0002 | | .CONST 0x0181,0x0002 03a2 018d 0003 | | .CONST 0x018d,0x0003 03a4 0198 0004 | | .CONST 0x0198,0x0004 03a6 01a4 0006 | | .CONST 0x01a4,0x0006 03a8 01a8 0007 | | .CONST 0x01a8,0x0007 03aa 01ad 0008 | | .CONST 0x01ad,0x0008 03ac 01b3 0009 | | .CONST 0x01b3,0x0009 03ae 01b8 0005 | | .CONST 0x01b8,0x0005 03b0 01bd 000a | | .CONST 0x01bd,0x000a 03b2 01c3 000b | | .CONST 0x01c3,0x000b 03b4 01cf 000c | | .CONST 0x01cf,0x000c 03b6 01d7 000e | | .CONST 0x01d7,0x000e 03b8 01dc 000f | | .CONST 0x01dc,0x000f 03ba 01df 0010 | | .CONST 0x01df,0x0010 03bc 01e5 000d | | .CONST 0x01e5,0x000d 03be ; -------------------------------------------------------------------------------------- 03be ; Debug3 Subtable 0x6 03be ; -------------------------------------------------------------------------------------- 03be 0002 000b | | .DBG3TAB 0x0002,0x000b 03c0 01f3 ffff | | .CONST 0x01f3,0xffff 03c2 01f8 fffe | | .CONST 0x01f8,0xfffe 03c4 01fb 0001 | | .CONST 0x01fb,0x0001 03c6 01fc 0002 | | .CONST 0x01fc,0x0002 03c8 01fe 0003 | | .CONST 0x01fe,0x0003 03ca 020b 0005 | | .CONST 0x020b,0x0005 03cc 0212 0006 | | .CONST 0x0212,0x0006 03ce 0219 0007 | | .CONST 0x0219,0x0007 03d0 021b 0008 | | .CONST 0x021b,0x0008 03d2 021c 0009 | | .CONST 0x021c,0x0009 03d4 0221 0004 | ! | .CONST 0x0221,0x0004 03d6 0226 000a | & | .CONST 0x0226,0x000a 03d8 0228 000b | ( | .CONST 0x0228,0x000b 03da 0000 0000 | | .BLANK 0000[0x26]