|
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_03b8fe
└─⟦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 0538 | 8 | .CONST 0x0538 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0041 | A | .CONST 0x0041 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call 0012 e001 | | Load 0x0,0x1 0013 191d | | Execute Package,Field_Reference,Field_Number 0x1d 0014 0007 | | Action Break_Optional 0015 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call 0017 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call 0019 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call 001b 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call 001d 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call 001f e002 | | Load 0x0,0x2 0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0021 02c7 | | Declare_Variable Any 0022 e003 | | Load 0x0,0x3 0023 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0024 e002 | | Load 0x0,0x2 0025 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0026 a216 | | Store_Unchecked 0x1,0x16 0027 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call 0029 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call 002b 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call 002d 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call 002f 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call 0031 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call 0033 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 0035 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 0037 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call 0039 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 003b 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call 003d 1d0d | | Execute_Immediate Reference_Lex_1,0xd 003e 00c7 | | Action Elaborate_Subprogram 003f 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0040 00c7 | | Action Elaborate_Subprogram 0041 BODY_0008: 0041 00bc | | Action Signal_Activated 0042 00bb | | Action Signal_Completion 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00ea | | Load_Encached Null_String_Cache 004c e5fd | | Load 0x2,-0x3 004d e5fe | | Load 0x2,-0x2 004e e5ff | | Load 0x2,-0x1 004f e004 | | Load 0x0,0x4 0050 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 0051 180d | | Execute Package,Field_Execute,Field_Number 0xd 0052 8221 | ! | Call 0x1,0x21 0053 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0054 0000 0000 | | .BLANK 0000[0x4] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 006b | k | .CONST 0x006b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0005 | | .CONST 0x0005 ; Number of locals 005b INIT_0058: 005b e004 | | Load 0x0,0x4 005c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 005d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 005e 02c7 | | Declare_Variable Any 005f 00d8 | | Load_Top At_Offset_0 0060 1c00 | | Execute_Immediate Run_Utility,0x0 0061 e004 | | Load 0x0,0x4 0062 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0063 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0064 e004 | | Load 0x0,0x4 0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0066 e004 | | Load 0x0,0x4 0067 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0068 02c7 | | Declare_Variable Any 0069 00d8 | | Load_Top At_Offset_0 006a 1c00 | | Execute_Immediate Run_Utility,0x0 006b BODY_0058: 006b e004 | | Load 0x0,0x4 006c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 006d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 006e e402 | | Load 0x2,0x2 006f 6040 |`@ | Indirect_Literal Discrete,0xb0,{0x00000000, 0x00004000} 0070 e002 | | Load 0x0,0x2 0071 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0072 e005 | | Load 0x0,0x5 0073 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0074 e006 | | Load 0x0,0x6 0075 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0076 4801 |H | Short_Literal 0x1 0077 4801 |H | Short_Literal 0x1 0078 e005 | | Load 0x0,0x5 0079 1811 | | Execute Package,Field_Execute,Field_Number 0x11 007a e004 | | Load 0x0,0x4 007b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 007c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 007d e5ff | | Load 0x2,-0x1 007e e004 | | Load 0x0,0x4 007f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0080 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0081 c402 | | Store 0x2,0x2 0082 c403 | | Store 0x2,0x3 0083 00cf | | Action Mark_Auxiliary 0084 7822 |x" | Jump 0xa7 0085 e004 | | Load 0x0,0x4 0086 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0087 e405 | | Load 0x2,0x5 0088 0120 | | Execute Any,Is_Value 0089 6803 |h | Jump_Zero 0x8d 008a e004 | | Load 0x0,0x4 008b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 008c 7801 |x | Jump 0x8e 008d e405 | | Load 0x2,0x5 008e e402 | | Load 0x2,0x2 008f e004 | | Load 0x0,0x4 0090 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0091 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0092 c405 | | Store 0x2,0x5 0093 c404 | | Store 0x2,0x4 0094 e402 | | Load 0x2,0x2 0095 e004 | | Load 0x0,0x4 0096 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0097 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0098 e007 | | Load 0x0,0x7 0099 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 009a e5fd | | Load 0x2,-0x3 009b e5fe | | Load 0x2,-0x2 009c e405 | | Load 0x2,0x5 009d 820d | | Call 0x1,0xd 009e 00ea | | Load_Encached Null_String_Cache 009f e007 | | Load 0x0,0x7 00a0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00a1 e402 | | Load 0x2,0x2 00a2 e004 | | Load 0x0,0x4 00a3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00a5 c402 | | Store 0x2,0x2 00a6 00c9 | | Action Pop_Auxiliary_Loop 00a7 e402 | | Load 0x2,0x2 00a8 e004 | | Load 0x0,0x4 00a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00aa 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00ab 6fd9 |o | Jump_Zero 0x85 00ac 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e5ff | | Load 0x2,-0x1 00bc e008 | | Load 0x0,0x8 00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00be 025e | ^ | Execute Discrete,Convert 00bf 1c01 | | Execute_Immediate Run_Utility,0x1 00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c1 0000 0000 | | .BLANK 0000[0x7] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e5ff | | Load 0x2,-0x1 00cc 00e1 | | Load_Encached Boolean_Cache 00cd 025e | ^ | Execute Discrete,Convert 00ce 1c01 | | Execute_Immediate Run_Utility,0x1 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 e5ff | | Load 0x2,-0x1 00d4 00e0 | | Load_Encached Standard_Cache 00d5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d7 0000 | | .XXX[0x1] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db e5ff | | Load 0x2,-0x1 00dc 00e0 | | Load_Encached Standard_Cache 00dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 e5ff | | Load 0x2,-0x1 00e4 00e0 | | Load_Encached Standard_Cache 00e5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb e5ff | | Load 0x2,-0x1 00ec e009 | | Load 0x0,0x9 00ed 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00ee 025e | ^ | Execute Discrete,Convert 00ef 1c01 | | Execute_Immediate Run_Utility,0x1 00f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f1 0000 0000 | | .BLANK 0000[0x7] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb e5ff | | Load 0x2,-0x1 00fc 00d8 | | Load_Top At_Offset_0 00fd 4800 |H | Short_Literal 0x0 00fe 4807 |H | Short_Literal 0x7 00ff 0262 | b | Execute Discrete,In_Range 0100 681b |h | Jump_Zero 0x11c 0101 4607 |F | Jump_Case 0x8 0102 780a |x | Jump 0x10d ; case 0x0 0103 780c |x | Jump 0x110 ; case 0x1 0104 780e |x | Jump 0x113 ; case 0x2 0105 7810 |x | Jump 0x116 ; case 0x3 0106 7812 |x | Jump 0x119 ; case 0x4 0107 7815 |x | Jump 0x11d ; case 0x5 0108 7814 |x | Jump 0x11d ; case 0x6 0109 7800 |x | Jump 0x10a ; case 0x7 010a 0092 0422 | "| Action Push_String_Extended,0x422 ; "7 (N/A)" 010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010d 0092 0423 | #| Action Push_String_Extended,0x423 ; "0 (Nonexistent)" 010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0110 0092 0424 | $| Action Push_String_Extended,0x424 ; "1 (Archived)" 0112 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0113 0092 0425 | %| Action Push_String_Extended,0x425 ; "2 (Source)" 0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0116 0092 0426 | &| Action Push_String_Extended,0x426 ; "3 (Installed)" 0118 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0119 0092 0427 | '| Action Push_String_Extended,0x427 ; "4 (Coded)" 011b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011c 00d1 | | Pop_Control Pop_Count_1 011d e5ff | | Load 0x2,-0x1 011e 8214 | | Call 0x1,0x14 011f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 e5ff | | Load 0x2,-0x1 0124 e00a | | Load 0x0,0xa 0125 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0126 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0127 0000 | | .XXX[0x1] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b e5ff | | Load 0x2,-0x1 012c e00a | | Load 0x0,0xa 012d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012f 0000 | | .XXX[0x1] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0143 | C | .CONST 0x0143 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 e5ff | | Load 0x2,-0x1 0134 8212 | | Call 0x1,0x12 0135 0092 0428 | (| Action Push_String_Extended,0x428 ; " (" 0137 01cc | | Execute Vector,Catenate 0138 e5ff | | Load 0x2,-0x1 0139 e004 | | Load 0x0,0x4 013a 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 013b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 013c e004 | | Load 0x0,0x4 013d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 013e 01cc | | Execute Vector,Catenate 013f 0092 0429 | )| Action Push_String_Extended,0x429 ; ")" 0141 01cc | | Execute Vector,Catenate 0142 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0143 TRAP_0130: 0143 0007 | | Action Break_Optional 0144 e5ff | | Load 0x2,-0x1 0145 8212 | | Call 0x1,0x12 0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0147 0000 | | .XXX[0x1] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0158 | X | .CONST 0x0158 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b e5ff | | Load 0x2,-0x1 014c 8214 | | Call 0x1,0x14 014d 0092 0428 | (| Action Push_String_Extended,0x428 ; " (" 014f 01cc | | Execute Vector,Catenate 0150 e5ff | | Load 0x2,-0x1 0151 e004 | | Load 0x0,0x4 0152 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0153 01cc | | Execute Vector,Catenate 0154 0092 0429 | )| Action Push_String_Extended,0x429 ; ")" 0156 01cc | | Execute Vector,Catenate 0157 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0158 TRAP_0148: 0158 0007 | | Action Break_Optional 0159 e5ff | | Load 0x2,-0x1 015a 8214 | | Call 0x1,0x14 015b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015c 0000 0000 | | .BLANK 0000[0x4] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 e5fe | | Load 0x2,-0x2 0164 6841 |hA | Jump_Zero 0x1a6 0165 e5ff | | Load 0x2,-0x1 0166 460f |F | Jump_Case 0x10 0167 7812 |x | Jump 0x17a ; case 0x0 0168 7813 |x | Jump 0x17c ; case 0x1 0169 7839 |x9 | Jump 0x1a3 ; case 0x2 016a 781a |x | Jump 0x185 ; case 0x3 016b 7825 |x% | Jump 0x191 ; case 0x4 016c 7812 |x | Jump 0x17f ; case 0x5 016d 7829 |x) | Jump 0x197 ; case 0x6 016e 781c |x | Jump 0x18b ; case 0x7 016f 782d |x- | Jump 0x19d ; case 0x8 0170 7811 |x | Jump 0x182 ; case 0x9 0171 782e |x. | Jump 0x1a0 ; case 0xa 0172 781b |x | Jump 0x18e ; case 0xb 0173 7820 |x | Jump 0x194 ; case 0xc 0174 7813 |x | Jump 0x188 ; case 0xd 0175 7824 |x$ | Jump 0x19a ; case 0xe 0176 7800 |x | Jump 0x177 ; case 0xf 0177 0092 042a | *| Action Push_String_Extended,0x42a ; "RCOD" 0179 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017a 00ea | | Load_Encached Null_String_Cache 017b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017c 0092 042b | +| Action Push_String_Extended,0x42b ; "R" 017e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017f 0092 042c | ,| Action Push_String_Extended,0x42c ; "RC" 0181 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0182 0092 042d | -| Action Push_String_Extended,0x42d ; "RO" 0184 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0185 0092 042e | .| Action Push_String_Extended,0x42e ; "RD" 0187 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0188 0092 042f | /| Action Push_String_Extended,0x42f ; "RCO" 018a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 018b 0092 0430 | 0| Action Push_String_Extended,0x430 ; "RCD" 018d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 018e 0092 0431 | 1| Action Push_String_Extended,0x431 ; "ROD" 0190 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0191 0092 0432 | 2| Action Push_String_Extended,0x432 ; "C" 0193 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0194 0092 0433 | 3| Action Push_String_Extended,0x433 ; "CO" 0196 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0197 0092 0434 | 4| Action Push_String_Extended,0x434 ; "CD" 0199 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019a 0092 0435 | 5| Action Push_String_Extended,0x435 ; "COD" 019c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019d 0092 0436 | 6| Action Push_String_Extended,0x436 ; "O" 019f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a0 0092 0437 | 7| Action Push_String_Extended,0x437 ; "OD" 01a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a3 0092 0438 | 8| Action Push_String_Extended,0x438 ; "D" 01a5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a6 e5ff | | Load 0x2,-0x1 01a7 460f |F | Jump_Case 0x10 01a8 7812 |x | Jump 0x1bb ; case 0x0 01a9 7813 |x | Jump 0x1bd ; case 0x1 01aa 7815 |x | Jump 0x1c0 ; case 0x2 01ab 780c |x | Jump 0x1b8 ; case 0x3 01ac 780e |x | Jump 0x1bb ; case 0x4 01ad 780f |x | Jump 0x1bd ; case 0x5 01ae 7811 |x | Jump 0x1c0 ; case 0x6 01af 7808 |x | Jump 0x1b8 ; case 0x7 01b0 780a |x | Jump 0x1bb ; case 0x8 01b1 780b |x | Jump 0x1bd ; case 0x9 01b2 780d |x | Jump 0x1c0 ; case 0xa 01b3 7804 |x | Jump 0x1b8 ; case 0xb 01b4 7806 |x | Jump 0x1bb ; case 0xc 01b5 7807 |x | Jump 0x1bd ; case 0xd 01b6 7809 |x | Jump 0x1c0 ; case 0xe 01b7 7800 |x | Jump 0x1b8 ; case 0xf 01b8 0092 0439 | 9| Action Push_String_Extended,0x439 ; "RW" 01ba 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01bb 00ea | | Load_Encached Null_String_Cache 01bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01bd 0092 042b | +| Action Push_String_Extended,0x42b ; "R" 01bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01c0 0092 043a | :| Action Push_String_Extended,0x43a ; "W" 01c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01c3 0000 0000 | | .BLANK 0000[0x5] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cc | | .CONST 0x01cc ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0002 | | .CONST 0x0002 ; Number of locals 01cb INIT_01c8: 01cb 00e1 | | Load_Encached Boolean_Cache 01cc BODY_01c8: 01cc e5fe | | Load 0x2,-0x2 01cd e5ff | | Load 0x2,-0x1 01ce 01d5 | | Execute Vector,Field_Reference 01cf e001 | | Load 0x0,0x1 01d0 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01d1 017f | | Execute Record,Equal 01d2 6802 |h | Jump_Zero 0x1d5 01d3 00ea | | Load_Encached Null_String_Cache 01d4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01d5 e5fe | | Load 0x2,-0x2 01d6 0f06 | | Execute_Immediate Equal,0x6 01d7 6803 |h | Jump_Zero 0x1db 01d8 4800 |H | Short_Literal 0x0 01d9 a402 | | Store_Unchecked 0x2,0x2 01da 7808 |x | Jump 0x1e3 01db e5fe | | Load 0x2,-0x2 01dc 0a01 | | Execute_Immediate Plus,0x1 01dd e5ff | | Load 0x2,-0x1 01de 01d5 | | Execute Vector,Field_Reference 01df e001 | | Load 0x0,0x1 01e0 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01e1 017e | ~ | Execute Record,Not_Equal 01e2 a402 | | Store_Unchecked 0x2,0x2 01e3 00d8 | | Load_Top At_Offset_0 01e4 6814 |h | Jump_Zero 0x1f9 01e5 e5fe | | Load 0x2,-0x2 01e6 e5ff | | Load 0x2,-0x1 01e7 01d5 | | Execute Vector,Field_Reference 01e8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e9 e00b | | Load 0x0,0xb 01ea 180d | | Execute Package,Field_Execute,Field_Number 0xd 01eb 0092 043b | ;| Action Push_String_Extended,0x43b ; "=>" 01ed 01cc | | Execute Vector,Catenate 01ee e5fd | | Load 0x2,-0x3 01ef e5fe | | Load 0x2,-0x2 01f0 e5ff | | Load 0x2,-0x1 01f1 01d5 | | Execute Vector,Field_Reference 01f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f3 821c | | Call 0x1,0x1c 01f4 01cc | | Execute Vector,Catenate 01f5 0092 043c | <| Action Push_String_Extended,0x43c ; "," 01f7 01cc | | Execute Vector,Catenate 01f8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01f9 e5fe | | Load 0x2,-0x2 01fa e5ff | | Load 0x2,-0x1 01fb 01d5 | | Execute Vector,Field_Reference 01fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01fd e00b | | Load 0x0,0xb 01fe 180d | | Execute Package,Field_Execute,Field_Number 0xd 01ff 0092 043b | ;| Action Push_String_Extended,0x43b ; "=>" 0201 01cc | | Execute Vector,Catenate 0202 e5fd | | Load 0x2,-0x3 0203 e5fe | | Load 0x2,-0x2 0204 e5ff | | Load 0x2,-0x1 0205 01d5 | | Execute Vector,Field_Reference 0206 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0207 821c | | Call 0x1,0x1c 0208 01cc | | Execute Vector,Catenate 0209 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 020a 0000 0000 | | .BLANK 0000[0x6] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 e5fe | | Load 0x2,-0x2 0214 4800 |H | Short_Literal 0x0 0215 e5ff | | Load 0x2,-0x1 0216 821d | | Call 0x1,0x1d 0217 e5fe | | Load 0x2,-0x2 0218 4801 |H | Short_Literal 0x1 0219 e5ff | | Load 0x2,-0x1 021a 821d | | Call 0x1,0x1d 021b 01cc | | Execute Vector,Catenate 021c e5fe | | Load 0x2,-0x2 021d 4802 |H | Short_Literal 0x2 021e e5ff | | Load 0x2,-0x1 021f 821d | | Call 0x1,0x1d 0220 01cc | | Execute Vector,Catenate 0221 e5fe | | Load 0x2,-0x2 0222 4803 |H | Short_Literal 0x3 0223 e5ff | | Load 0x2,-0x1 0224 821d | | Call 0x1,0x1d 0225 01cc | | Execute Vector,Catenate 0226 e5fe | | Load 0x2,-0x2 0227 4804 |H | Short_Literal 0x4 0228 e5ff | | Load 0x2,-0x1 0229 821d | | Call 0x1,0x1d 022a 01cc | | Execute Vector,Catenate 022b e5fe | | Load 0x2,-0x2 022c 4805 |H | Short_Literal 0x5 022d e5ff | | Load 0x2,-0x1 022e 821d | | Call 0x1,0x1d 022f 01cc | | Execute Vector,Catenate 0230 e5fe | | Load 0x2,-0x2 0231 4806 |H | Short_Literal 0x6 0232 e5ff | | Load 0x2,-0x1 0233 821d | | Call 0x1,0x1d 0234 01cc | | Execute Vector,Catenate 0235 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0236 0000 0000 | | .XXX[0x2] 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 e5ff | | Load 0x2,-0x1 023c 0f00 | | Execute_Immediate Equal,0x0 023d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023e 0000 0000 | | .XXX[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 e5ff | | Load 0x2,-0x1 0244 6803 |h | Jump_Zero 0x248 0245 e5fe | | Load 0x2,-0x2 0246 e007 | | Load 0x0,0x7 0247 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0248 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0249 0000 0000 | | .BLANK 0000[0x7] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0277 | w | .CONST 0x0277 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 000b | | .CONST 0x000b ; Number of locals 0253 INIT_0250: 0253 e009 | | Load 0x0,0x9 0254 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0255 02c7 | | Declare_Variable Any 0256 00d8 | | Load_Top At_Offset_0 0257 1c00 | | Execute_Immediate Run_Utility,0x0 0258 e009 | | Load 0x0,0x9 0259 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 025a 02c7 | | Declare_Variable Any 025b 00d8 | | Load_Top At_Offset_0 025c 1c00 | | Execute_Immediate Run_Utility,0x0 025d e009 | | Load 0x0,0x9 025e 1b45 | E | Execute Package,Field_Read,Field_Number 0x45 025f 0322 | " | Declare_Variable Record 0260 00d8 | | Load_Top At_Offset_0 0261 1c00 | | Execute_Immediate Run_Utility,0x0 0262 e008 | | Load 0x0,0x8 0263 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0264 e5ff | | Load 0x2,-0x1 0265 e009 | | Load 0x0,0x9 0266 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0267 e5ff | | Load 0x2,-0x1 0268 e009 | | Load 0x0,0x9 0269 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 026a 00e3 | | Load_Encached Natural_Cache 026b e009 | | Load 0x0,0x9 026c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 026d 02ff | | Declare_Variable Variant_Record 026e 00d8 | | Load_Top At_Offset_0 026f 1c00 | | Execute_Immediate Run_Utility,0x0 0270 e00c | | Load 0x0,0xc 0271 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0272 0322 | " | Declare_Variable Record 0273 00d8 | | Load_Top At_Offset_0 0274 1c00 | | Execute_Immediate Run_Utility,0x0 0275 029f 0413 | | Declare_Subprogram INIT_0410,For_Call 0277 BODY_0250: 0277 e5fc | | Load 0x2,-0x4 0278 e5ff | | Load 0x2,-0x1 0279 8218 | | Call 0x1,0x18 027a 01cc | | Execute Vector,Catenate 027b e007 | | Load 0x0,0x7 027c 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 027d e008 | | Load 0x0,0x8 027e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 027f e404 | | Load 0x2,0x4 0280 e002 | | Load 0x0,0x2 0281 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0282 6185 |a | Indirect_Literal Discrete,0x408,{0x00000000, 0x00028000} 0283 e5ff | | Load 0x2,-0x1 0284 e009 | | Load 0x0,0x9 0285 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0286 00d1 | | Pop_Control Pop_Count_1 0287 c405 | | Store 0x2,0x5 0288 e405 | | Load 0x2,0x5 0289 821f | | Call 0x1,0x1f 028a 6972 |ir | Jump_Zero 0x3fd 028b 0092 043d | =| Action Push_String_Extended,0x43d ; " Information:" 028d e007 | | Load 0x0,0x7 028e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 028f e5fc | | Load 0x2,-0x4 0290 0092 043e | >| Action Push_String_Extended,0x43e ; "Name : " 0292 01cc | | Execute Vector,Catenate 0293 e406 | | Load 0x2,0x6 0294 01cc | | Execute Vector,Catenate 0295 0092 0428 | (| Action Push_String_Extended,0x428 ; " (" 0297 01cc | | Execute Vector,Catenate 0298 e407 | | Load 0x2,0x7 0299 01cc | | Execute Vector,Catenate 029a 0092 043f | ?| Action Push_String_Extended,0x43f ; " in " 029c 01cc | | Execute Vector,Catenate 029d e007 | | Load 0x0,0x7 029e 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 029f 4829 |H) | Short_Literal 0x29 02a0 e404 | | Load 0x2,0x4 02a1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02a2 8218 | | Call 0x1,0x18 02a3 01cb | | Execute Vector,Append 02a4 e007 | | Load 0x0,0x7 02a5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 02a6 e5fc | | Load 0x2,-0x4 02a7 0092 0440 | @| Action Push_String_Extended,0x440 ; "Library : " 02a9 01cc | | Execute Vector,Catenate 02aa e404 | | Load 0x2,0x4 02ab 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 02ac 8215 | | Call 0x1,0x15 02ad 01cc | | Execute Vector,Catenate 02ae e007 | | Load 0x0,0x7 02af 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02b0 0092 0441 | A| Action Push_String_Extended,0x441 ; " " 02b2 e404 | | Load 0x2,0x4 02b3 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 02b4 8218 | | Call 0x1,0x18 02b5 01cc | | Execute Vector,Catenate 02b6 e007 | | Load 0x0,0x7 02b7 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02b8 0092 0442 | B| Action Push_String_Extended,0x442 ; " on Vpid" 02ba e404 | | Load 0x2,0x4 02bb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02bc 8213 | | Call 0x1,0x13 02bd 01cc | | Execute Vector,Catenate 02be e007 | | Load 0x0,0x7 02bf 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 02c0 e5fc | | Load 0x2,-0x4 02c1 0092 0443 | C| Action Push_String_Extended,0x443 ; "Class :" 02c3 01cc | | Execute Vector,Catenate 02c4 e404 | | Load 0x2,0x4 02c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02c6 821a | | Call 0x1,0x1a 02c7 01cc | | Execute Vector,Catenate 02c8 e007 | | Load 0x0,0x7 02c9 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02ca 0092 0444 | D| Action Push_String_Extended,0x444 ; "; Subclass:" 02cc e404 | | Load 0x2,0x4 02cd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02ce 821b | | Call 0x1,0x1b 02cf 01cc | | Execute Vector,Catenate 02d0 e007 | | Load 0x0,0x7 02d1 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02d2 0092 0445 | E| Action Push_String_Extended,0x445 ; "; State: " 02d4 e404 | | Load 0x2,0x4 02d5 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 02d6 8217 | | Call 0x1,0x17 02d7 01cc | | Execute Vector,Catenate 02d8 e007 | | Load 0x0,0x7 02d9 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02da 0092 0446 | F| Action Push_String_Extended,0x446 ; "; Frozen" 02dc e404 | | Load 0x2,0x4 02dd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02de 8220 | | Call 0x1,0x20 02df 0092 0447 | G| Action Push_String_Extended,0x447 ; "; Controlled" 02e1 e404 | | Load 0x2,0x4 02e2 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 02e3 8220 | | Call 0x1,0x20 02e4 0092 0448 | H| Action Push_String_Extended,0x448 ; "; Slushy" 02e6 e404 | | Load 0x2,0x4 02e7 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 02e8 8220 | | Call 0x1,0x20 02e9 0092 0449 | I| Action Push_String_Extended,0x449 ; "; Control_Point" 02eb e404 | | Load 0x2,0x4 02ec 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 02ed 8220 | | Call 0x1,0x20 02ee 00ea | | Load_Encached Null_String_Cache 02ef e007 | | Load 0x0,0x7 02f0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 02f1 e404 | | Load 0x2,0x4 02f2 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 02f3 683d |h= | Jump_Zero 0x331 02f4 e5fc | | Load 0x2,-0x4 02f5 0092 044a | J| Action Push_String_Extended,0x44a ; "Switches: " 02f7 01cc | | Execute Vector,Catenate 02f8 e404 | | Load 0x2,0x4 02f9 340f |4 | Execute Record,Field_Reference,Field_Number 0xf 02fa 8219 | | Call 0x1,0x19 02fb 01cc | | Execute Vector,Catenate 02fc e007 | | Load 0x0,0x7 02fd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 02fe e404 | | Load 0x2,0x4 02ff 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0300 7030 |p0 | Jump_Nonzero 0x331 0301 e5fc | | Load 0x2,-0x4 0302 0092 044b | K| Action Push_String_Extended,0x44b ; "Access : Default: " 0304 01cc | | Execute Vector,Catenate 0305 4800 |H | Short_Literal 0x0 0306 e404 | | Load 0x2,0x4 0307 3410 |4 | Execute Record,Field_Reference,Field_Number 0x10 0308 821e | | Call 0x1,0x1e 0309 01cc | | Execute Vector,Catenate 030a e007 | | Load 0x0,0x7 030b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 030c e5fc | | Load 0x2,-0x4 030d 0092 044c | L| Action Push_String_Extended,0x44c ; " Library: " 030f 01cc | | Execute Vector,Catenate 0310 4801 |H | Short_Literal 0x1 0311 e404 | | Load 0x2,0x4 0312 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11 0313 821e | | Call 0x1,0x1e 0314 01cc | | Execute Vector,Catenate 0315 e007 | | Load 0x0,0x7 0316 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0317 e404 | | Load 0x2,0x4 0318 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 0319 4fff |O | Short_Literal -0x1 031a 027f | | Execute Discrete,Equal 031b 6805 |h | Jump_Zero 0x321 031c 0092 044d | M| Action Push_String_Extended,0x44d ; "Target : <<Unknown>>" 031e e007 | | Load 0x0,0x7 031f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0320 7810 |x | Jump 0x331 0321 0092 044e | N| Action Push_String_Extended,0x44e ; "Target : " 0323 4820 |H | Short_Literal 0x20 0324 4800 |H | Short_Literal 0x0 0325 4810 |H | Short_Literal 0x10 0326 e404 | | Load 0x2,0x4 0327 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 0328 e00d | | Load 0x0,0xd 0329 1816 | | Execute Package,Field_Execute,Field_Number 0x16 032a 01cc | | Execute Vector,Catenate 032b 0092 044f | O| Action Push_String_Extended,0x44f ; " = " 032d 01cc | | Execute Vector,Catenate 032e e007 | | Load 0x0,0x7 032f 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0330 840b | | Call 0x2,0xb 0331 e5fc | | Load 0x2,-0x4 0332 0092 0450 | P| Action Push_String_Extended,0x450 ; "Versions:" 0334 01cc | | Execute Vector,Catenate 0335 e404 | | Load 0x2,0x4 0336 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 0337 8214 | | Call 0x1,0x14 0338 01cc | | Execute Vector,Catenate 0339 0092 0451 | Q| Action Push_String_Extended,0x451 ; "; Retention Count:" 033b 01cc | | Execute Vector,Catenate 033c e404 | | Load 0x2,0x4 033d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 033e 8214 | | Call 0x1,0x14 033f 01cc | | Execute Vector,Catenate 0340 e007 | | Load 0x0,0x7 0341 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0342 0092 0452 | R| Action Push_String_Extended,0x452 ; "; Default: " 0344 e404 | | Load 0x2,0x4 0345 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0346 8219 | | Call 0x1,0x19 0347 01cc | | Execute Vector,Catenate 0348 e007 | | Load 0x0,0x7 0349 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 034a e5fd | | Load 0x2,-0x3 034b 6868 |hh | Jump_Zero 0x3b4 034c e008 | | Load 0x0,0x8 034d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 034e e403 | | Load 0x2,0x3 034f 0120 | | Execute Any,Is_Value 0350 6803 |h | Jump_Zero 0x354 0351 e009 | | Load 0x0,0x9 0352 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0353 7801 |x | Jump 0x355 0354 e403 | | Load 0x2,0x3 0355 4801 |H | Short_Literal 0x1 0356 60b1 |` | Indirect_Literal Discrete,0x408,{0x00000000, 0x00028000} 0357 e216 | | Load 0x1,0x16 0358 e5ff | | Load 0x2,-0x1 0359 e009 | | Load 0x0,0x9 035a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 035b c403 | | Store 0x2,0x3 035c c405 | | Store 0x2,0x5 035d e405 | | Load 0x2,0x5 035e 821f | | Call 0x1,0x1f 035f 684b |hK | Jump_Zero 0x3ab 0360 00cf | | Action Mark_Auxiliary 0361 7843 |xC | Jump 0x3a5 0362 e5fc | | Load 0x2,-0x4 0363 0092 0453 | S| Action Push_String_Extended,0x453 ; " Version" 0365 01cc | | Execute Vector,Catenate 0366 e403 | | Load 0x2,0x3 0367 e009 | | Load 0x0,0x9 0368 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0369 8214 | | Call 0x1,0x14 036a 01cc | | Execute Vector,Catenate 036b 0092 0454 | T| Action Push_String_Extended,0x454 ; ": " 036d 01cc | | Execute Vector,Catenate 036e e403 | | Load 0x2,0x3 036f e009 | | Load 0x0,0x9 0370 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0371 8219 | | Call 0x1,0x19 0372 01cc | | Execute Vector,Catenate 0373 0092 0455 | U| Action Push_String_Extended,0x455 ; " (" 0375 01cc | | Execute Vector,Catenate 0376 e007 | | Load 0x0,0x7 0377 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0378 e008 | | Load 0x0,0x8 0379 1b10 | | Execute Package,Field_Read,Field_Number 0x10 037a e40a | | Load 0x2,0xa 037b e002 | | Load 0x0,0x2 037c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 037d 4800 |H | Short_Literal 0x0 037e 4800 |H | Short_Literal 0x0 037f e403 | | Load 0x2,0x3 0380 e009 | | Load 0x0,0x9 0381 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0382 e00c | | Load 0x0,0xc 0383 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0384 00d1 | | Pop_Control Pop_Count_1 0385 c405 | | Store 0x2,0x5 0386 e405 | | Load 0x2,0x5 0387 821f | | Call 0x1,0x1f 0388 6811 |h | Jump_Zero 0x39a 0389 4829 |H) | Short_Literal 0x29 038a e40a | | Load 0x2,0xa 038b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 038c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 038d 8214 | | Call 0x1,0x14 038e 0092 043f | ?| Action Push_String_Extended,0x43f ; " in " 0390 01cc | | Execute Vector,Catenate 0391 e40a | | Load 0x2,0xa 0392 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0393 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0394 8219 | | Call 0x1,0x19 0395 01cc | | Execute Vector,Catenate 0396 01cb | | Execute Vector,Append 0397 e007 | | Load 0x0,0x7 0398 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0399 7806 |x | Jump 0x3a0 039a 4829 |H) | Short_Literal 0x29 039b e405 | | Load 0x2,0x5 039c 820f | | Call 0x1,0xf 039d 01cb | | Execute Vector,Append 039e e007 | | Load 0x0,0x7 039f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 03a0 e403 | | Load 0x2,0x3 03a1 e009 | | Load 0x0,0x9 03a2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 03a3 c403 | | Store 0x2,0x3 03a4 00c9 | | Action Pop_Auxiliary_Loop 03a5 e403 | | Load 0x2,0x3 03a6 e009 | | Load 0x0,0x9 03a7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 03a8 6fb9 |o | Jump_Zero 0x362 03a9 00ce | | Action Pop_Auxiliary 03aa 7809 |x | Jump 0x3b4 03ab e5fc | | Load 0x2,-0x4 03ac 0092 0456 | V| Action Push_String_Extended,0x456 ; "*** Can't get versions: " 03ae 01cc | | Execute Vector,Catenate 03af e405 | | Load 0x2,0x5 03b0 820f | | Call 0x1,0xf 03b1 01cc | | Execute Vector,Catenate 03b2 e007 | | Load 0x0,0x7 03b3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 03b4 e008 | | Load 0x0,0x8 03b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b6 e402 | | Load 0x2,0x2 03b7 0120 | | Execute Any,Is_Value 03b8 6803 |h | Jump_Zero 0x3bc 03b9 e009 | | Load 0x0,0x9 03ba 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 03bb 7801 |x | Jump 0x3bd 03bc e402 | | Load 0x2,0x2 03bd 604a |`J | Indirect_Literal Discrete,0x408,{0x00000000, 0x00028000} 03be e216 | | Load 0x1,0x16 03bf e5ff | | Load 0x2,-0x1 03c0 e009 | | Load 0x0,0x9 03c1 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 03c2 c402 | | Store 0x2,0x2 03c3 c405 | | Store 0x2,0x5 03c4 e405 | | Load 0x2,0x5 03c5 821f | | Call 0x1,0x1f 03c6 682c |h, | Jump_Zero 0x3f3 03c7 e402 | | Load 0x2,0x2 03c8 e009 | | Load 0x0,0x9 03c9 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 03ca 6807 |h | Jump_Zero 0x3d2 03cb e5fc | | Load 0x2,-0x4 03cc 0092 0457 | W| Action Push_String_Extended,0x457 ; "No children." 03ce 01cc | | Execute Vector,Catenate 03cf e007 | | Load 0x0,0x7 03d0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 03d1 7831 |x1 | Jump 0x403 03d2 e5fc | | Load 0x2,-0x4 03d3 0092 0458 | X| Action Push_String_Extended,0x458 ; "Children:" 03d5 01cc | | Execute Vector,Catenate 03d6 e007 | | Load 0x0,0x7 03d7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 03d8 00cf | | Action Mark_Auxiliary 03d9 7813 |x | Jump 0x3ed 03da e5fe | | Load 0x2,-0x2 03db 680c |h | Jump_Zero 0x3e8 03dc e5fc | | Load 0x2,-0x4 03dd 0092 0459 | Y| Action Push_String_Extended,0x459 ; " " 03df 01cc | | Execute Vector,Catenate 03e0 e5fd | | Load 0x2,-0x3 03e1 e5fe | | Load 0x2,-0x2 03e2 0aff | | Execute_Immediate Plus,-0x1 03e3 0248 | H | Execute Discrete,Check_In_Integer 03e4 e402 | | Load 0x2,0x2 03e5 e009 | | Load 0x0,0x9 03e6 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 03e7 8221 | ! | Call 0x1,0x21 03e8 e402 | | Load 0x2,0x2 03e9 e009 | | Load 0x0,0x9 03ea 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 03eb c402 | | Store 0x2,0x2 03ec 00c9 | | Action Pop_Auxiliary_Loop 03ed e402 | | Load 0x2,0x2 03ee e009 | | Load 0x0,0x9 03ef 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 03f0 6fe9 |o | Jump_Zero 0x3da 03f1 00ce | | Action Pop_Auxiliary 03f2 7810 |x | Jump 0x403 03f3 e5fc | | Load 0x2,-0x4 03f4 0092 045a | Z| Action Push_String_Extended,0x45a ; "Children: " 03f6 01cc | | Execute Vector,Catenate 03f7 e405 | | Load 0x2,0x5 03f8 820f | | Call 0x1,0xf 03f9 01cc | | Execute Vector,Catenate 03fa e007 | | Load 0x0,0x7 03fb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 03fc 7806 |x | Jump 0x403 03fd 4820 |H | Short_Literal 0x20 03fe e405 | | Load 0x2,0x5 03ff 820f | | Call 0x1,0xf 0400 01ca | | Execute Vector,Prepend 0401 e007 | | Load 0x0,0x7 0402 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0403 00ea | | Load_Encached Null_String_Cache 0404 e007 | | Load 0x0,0x7 0405 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0406 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0407 0000 | | .XXX[0x1] 0408 0000 0000 | | .LITERAL {0x00000000, 0x00028000} 040c 0000 0000 | | .BLANK 0000[0x4] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 041c | | .CONST 0x041c ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 e404 | | Load 0x2,0x4 0414 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 0415 e00e | | Load 0x0,0xe 0416 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0417 e00e | | Load 0x0,0xe 0418 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0419 e007 | | Load 0x0,0x7 041a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 041b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 041c TRAP_0410: 041c 0007 | | Action Break_Optional 041d 0092 045b | [| Action Push_String_Extended,0x45b ; "<<Unregistered>>" 041f e007 | | Load 0x0,0x7 0420 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0421 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0422 ; -------------------------------------------------------------------------------------- 0422 ; STRING TABLE 0422 ; -------------------------------------------------------------------------------------- 0422 0076 | v | .STRTAB 0x0076->0x045d ; "7 (N/A)" 0423 007b | { | .STRTAB 0x007b->0x0460 ; "0 (Nonexistent)" 0424 0088 | | .STRTAB 0x0088->0x0468 ; "1 (Archived)" 0425 0092 | | .STRTAB 0x0092->0x046e ; "2 (Source)" 0426 009a | | .STRTAB 0x009a->0x0473 ; "3 (Installed)" 0427 00a5 | | .STRTAB 0x00a5->0x0479 ; "4 (Coded)" 0428 00ac | | .STRTAB 0x00ac->0x047e ; " (" 0429 00ac | | .STRTAB 0x00ac->0x047f ; ")" 042a 00ab | | .STRTAB 0x00ab->0x047f ; "RCOD" 042b 00ad | | .STRTAB 0x00ad->0x0481 ; "R" 042c 00ac | | .STRTAB 0x00ac->0x0482 ; "RC" 042d 00ac | | .STRTAB 0x00ac->0x0483 ; "RO" 042e 00ac | | .STRTAB 0x00ac->0x0484 ; "RD" 042f 00ac | | .STRTAB 0x00ac->0x0485 ; "RCO" 0430 00ad | | .STRTAB 0x00ad->0x0486 ; "RCD" 0431 00ae | | .STRTAB 0x00ae->0x0488 ; "ROD" 0432 00af | | .STRTAB 0x00af->0x0489 ; "C" 0433 00ae | | .STRTAB 0x00ae->0x048a ; "CO" 0434 00ae | | .STRTAB 0x00ae->0x048b ; "CD" 0435 00ae | | .STRTAB 0x00ae->0x048c ; "COD" 0436 00af | | .STRTAB 0x00af->0x048d ; "O" 0437 00ae | | .STRTAB 0x00ae->0x048e ; "OD" 0438 00ae | | .STRTAB 0x00ae->0x048f ; "D" 0439 00ad | | .STRTAB 0x00ad->0x048f ; "RW" 043a 00ad | | .STRTAB 0x00ad->0x0490 ; "W" 043b 00ac | | .STRTAB 0x00ac->0x0491 ; "=>" 043c 00ac | | .STRTAB 0x00ac->0x0492 ; "," 043d 00ab | | .STRTAB 0x00ab->0x0492 ; " Information:" 043e 00b6 | | .STRTAB 0x00b6->0x0499 ; "Name : " 043f 00be | | .STRTAB 0x00be->0x049e ; " in " 0440 00c0 | | .STRTAB 0x00c0->0x04a0 ; "Library : " 0441 00c8 | | .STRTAB 0x00c8->0x04a5 ; " " 0442 00c7 | | .STRTAB 0x00c7->0x04a5 ; " on Vpid" 0443 00cd | | .STRTAB 0x00cd->0x04a9 ; "Class :" 0444 00d4 | | .STRTAB 0x00d4->0x04ae ; "; Subclass:" 0445 00dd | | .STRTAB 0x00dd->0x04b3 ; "; State: " 0446 00e4 | | .STRTAB 0x00e4->0x04b8 ; "; Frozen" 0447 00ea | | .STRTAB 0x00ea->0x04bc ; "; Controlled" 0448 00f4 | | .STRTAB 0x00f4->0x04c2 ; "; Slushy" 0449 00fa | | .STRTAB 0x00fa->0x04c6 ; "; Control_Point" 044a 0107 | | .STRTAB 0x0107->0x04cd ; "Switches: " 044b 010f | | .STRTAB 0x010f->0x04d2 ; "Access : Default: " 044c 0120 | | .STRTAB 0x0120->0x04dc ; " Library: " 044d 0131 | 1 | .STRTAB 0x0131->0x04e5 ; "Target : <<Unknown>>" 044e 0144 | D | .STRTAB 0x0144->0x04f0 ; "Target : " 044f 014c | L | .STRTAB 0x014c->0x04f5 ; " = " 0450 014d | M | .STRTAB 0x014d->0x04f6 ; "Versions:" 0451 0154 | T | .STRTAB 0x0154->0x04fb ; "; Retention Count:" 0452 0164 | d | .STRTAB 0x0164->0x0504 ; "; Default: " 0453 016d | m | .STRTAB 0x016d->0x0509 ; " Version" 0454 0174 | t | .STRTAB 0x0174->0x050e ; ": " 0455 0174 | t | .STRTAB 0x0174->0x050f ; " (" 0456 0175 | u | .STRTAB 0x0175->0x0510 ; "*** Can't get versions: " 0457 018b | | .STRTAB 0x018b->0x051c ; "No children." 0458 0195 | | .STRTAB 0x0195->0x0522 ; "Children:" 0459 019c | | .STRTAB 0x019c->0x0527 ; " " 045a 019c | | .STRTAB 0x019c->0x0528 ; "Children: " 045b 01a4 | | .STRTAB 0x01a4->0x052d ; "<<Unregistered>>" 045c 01b2 | | .STREND 0x01b2->0x0535 045d 3720 284e |7 (N| .STRTAB_STRINGS 0535 0000 0000 | | .XXX[0x3] 0537 0000 | | 0538 ; -------------------------------------------------------------------------------------- 0538 ; Debug Table 0538 ; -------------------------------------------------------------------------------------- 0538 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb40,0x0000,0x0001,0x0000 053e 0000 eee5 | | .XXX[0x43] 0540 e01d 9de8 | | 0542 5803 39e6 |X 9 | 0544 7800 0000 |x | 0546 0000 0000 | | 0548 000e 55e4 | U | 054a 0000 7779 | wy| 054c 380e cef4 |8 | 054e 2c01 9cf9 |, | 0550 8406 a0d5 | | 0552 1c06 a0db | | 0554 2407 2af2 |$ * | 0556 0000 3bb8 | ; | 0558 3007 677a |0 gz| 055a 1600 ce78 | x| 055c 5603 5073 |V Ps| 055e 9a03 5064 | Pd| 0560 8703 9579 | y| 0562 0000 1ddf | | 0564 8403 b3bd | | 0566 0b00 673f | g?| 0568 9700 0000 | | 056a 0000 0000 | | 056c 0001 cabc | | 056e 8000 0ef0 | | 0570 1b81 d9de | | 0572 8580 33a0 | 3 | 0574 2500 d41c |% | 0576 2580 d41c |% | 0578 8640 e55e | @ ^| 057a 4000 0778 |@ x| 057c 3ac0 ecef |: | 057e 42c0 19d0 |B | 0580 3f80 |? | 0581 0000 0000 | | .BLANK 0000[0x4] 0585 72af 2000 |r | .XXX[0x20] 0587 03bb d8a0 | | 0589 7677 a160 |vw `| 058b 0ce7 db00 | | 058d 0000 0000 | | 058f 3506 c110 |5 | 0591 3957 9000 |9W | 0593 01de 17f0 | | 0595 3b3b d0b0 |;; | 0597 0674 1920 | t | 0599 1a83 78a0 | x | 059b 1a83 a8e0 | | 059d 1cab c800 | | 059f 00ee dba0 | | 05a1 1d9d e858 | X| 05a3 0339 dc38 | 9 8| 05a5 0000 0000 | | .BLANK 0000[0x4] 05a9 0e55 e400 | U | .XXX[0x8] 05ab 0098 40b0 | @ | 05ad 0ece f42c | ,| 05af 019d 0d74 | t| 05b1 0000 0000 | | .BLANK 0000[0x4] 05b5 0350 7c26 | P|&| .XXX[0x1c] 05b7 0000 0000 | | 05b9 0000 0030 | 0| 05bb 0000 0000 | | 05bd 0395 7900 | y | 05bf 001d dd60 | `| 05c1 03b3 bd0b | | 05c3 0067 4719 | gG | 05c5 01a8 3d52 | =R| 05c7 01a8 3c91 | < | 05c9 01ca bc80 | | 05cb 000e eeeb | | 05cd 81d9 de85 | | 05cf 8033 a3c8 | 3 | 05d1 0000 0000 | | .BLANK 0000[0x4] 05d5 00e5 5e40 | ^@| .XXX[0x2b] 05d7 0007 772f | w/| 05d9 00ec ef42 | B| 05db c019 d19d | | 05dd 4000 0000 |@ | 05df 0000 0000 | | 05e1 0072 af20 | r | 05e3 0003 bbc9 | | 05e5 c076 77a1 | vw | 05e7 600c e900 |` | 05e9 e035 07da | 5 | 05eb 8035 080a | 5 | 05ed c039 5790 | 9W | 05ef 0001 ddc1 | | 05f1 803b 3bd0 | ;; | 05f3 b006 745d | t]| 05f5 101a 8435 | 5| 05f7 a01a 83bd | | 05f9 081c abc8 | | 05fb 0000 eefc | | 05fd 201d 9de8 | | 05ff 5803 |X |