|
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 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 0000 | | .BLANK 0000[0xc2]