|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_043cfb
└─⟦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 0398 | | .CONST 0x0398 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002b | + | .CONST 0x002b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000d | | .CONST 0x000d ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
000d e00f | | Load 0x0,0xf
000e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000f 02c7 | | Declare_Variable Any
0010 e013 | | Load 0x0,0x13
0011 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0012 e00f | | Load 0x0,0xf
0013 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0014 a403 | | Store_Unchecked 0x2,0x3
0015 e003 | | Load 0x0,0x3
0016 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0017 1925 | % | Execute Package,Field_Reference,Field_Number 0x25
0018 0007 | | Action Break_Optional
0019 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
001b 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
001d 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
001f 029f 008b | | Declare_Subprogram INIT_0088,For_Call
0021 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0023 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call
0025 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0027 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
0029 029f 026b | k| Declare_Subprogram INIT_0268,For_Call
002b BODY_0008:
002b e5fe | | Load 0x2,-0x2
002c e5ff | | Load 0x2,-0x1
002d 0092 02fe | | Action Push_String_Extended,0x2fe ; "Converting CDB for <1>"
002f e220 | | Load 0x1,0x20
0030 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0031 840a | | Call 0x2,0xa
0032 e00f | | Load 0x0,0xf
0033 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0034 e5ff | | Load 0x2,-0x1
0035 e012 | | Load 0x0,0x12
0036 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0037 6801 |h | Jump_Zero 0x39
0038 840d | | Call 0x2,0xd
0039 e402 | | Load 0x2,0x2
003a 0c01 | | Execute_Immediate Greater_Equal,0x1
003b 680f |h | Jump_Zero 0x4b
003c e5fe | | Load 0x2,-0x2
003d e5ff | | Load 0x2,-0x1
003e 0092 02ff | | Action Push_String_Extended,0x2ff ; "Unable to convert CDB for <1>"
0040 e220 | | Load 0x1,0x20
0041 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0042 e403 | | Load 0x2,0x3
0043 4801 |H | Short_Literal 0x1
0044 4800 |H | Short_Literal 0x0
0045 e00f | | Load 0x0,0xf
0046 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0047 c403 | | Store 0x2,0x3
0048 4800 |H | Short_Literal 0x0
0049 a5fd | | Store_Unchecked 0x2,-0x3
004a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
004b e5fe | | Load 0x2,-0x2
004c e5ff | | Load 0x2,-0x1
004d 0092 0300 | | Action Push_String_Extended,0x300 ; "Converted CDB for <1>"
004f e220 | | Load 0x1,0x20
0050 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0051 e403 | | Load 0x2,0x3
0052 4801 |H | Short_Literal 0x1
0053 4801 |H | Short_Literal 0x1
0054 e00f | | Load 0x0,0xf
0055 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0056 c403 | | Store 0x2,0x3
0057 4801 |H | Short_Literal 0x1
0058 a5fd | | Store_Unchecked 0x2,-0x3
0059 4503 |E | Exit_Suprogram New_Top_Offset 0x3
005a 0000 0000 | | .BLANK 0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 00da | | Load_Top At_Offset_2
0064 0f00 | | Execute_Immediate Equal,0x0
0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0066 0000 0000 | | .XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c e014 | | Load 0x0,0x14
006d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006e 011c | | Execute Any,Convert_Unchecked
006f 1c01 | | Execute_Immediate Run_Utility,0x1
0070 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0071 0000 0000 | | .BLANK 0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b e5fe | | Load 0x2,-0x2
007c 00db | | Load_Top At_Offset_3
007d e220 | | Load 0x1,0x20
007e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
007f e403 | | Load 0x2,0x3
0080 e00f | | Load 0x0,0xf
0081 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0082 e402 | | Load 0x2,0x2
0083 0a01 | | Execute_Immediate Plus,0x1
0084 c402 | | Store 0x2,0x2
0085 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b e5fe | | Load 0x2,-0x2
008c e7fe | | Load 0x3,-0x2
008d e7ff | | Load 0x3,-0x1
008e e220 | | Load 0x1,0x20
008f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0090 e403 | | Load 0x2,0x3
0091 e00f | | Load 0x0,0xf
0092 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0093 e402 | | Load 0x2,0x2
0094 0a01 | | Execute_Immediate Plus,0x1
0095 c402 | | Store 0x2,0x2
0096 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0097 0000 | | .XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00b8 | | .CONST 0x00b8 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0008 | | .CONST 0x0008 ; Number of locals
009b INIT_0098:
009b e012 | | Load 0x0,0x12
009c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
009d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009e 02c7 | | Declare_Variable Any
009f 00d8 | | Load_Top At_Offset_0
00a0 1c00 | | Execute_Immediate Run_Utility,0x0
00a1 e012 | | Load 0x0,0x12
00a2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00a3 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00a4 0322 | " | Declare_Variable Record
00a5 e012 | | Load 0x0,0x12
00a6 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00a7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a8 e012 | | Load 0x0,0x12
00a9 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00aa 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ab e012 | | Load 0x0,0x12
00ac 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00ad 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
00ae 02c7 | | Declare_Variable Any
00af 00d8 | | Load_Top At_Offset_0
00b0 1c00 | | Execute_Immediate Run_Utility,0x0
00b1 e012 | | Load 0x0,0x12
00b2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b4 02c7 | | Declare_Variable Any
00b5 00d8 | | Load_Top At_Offset_0
00b6 1c00 | | Execute_Immediate Run_Utility,0x0
00b7 00e1 | | Load_Encached Boolean_Cache
00b8 BODY_0098:
00b8 00be | | Action Activate_Tasks
00b9 00d9 | | Load_Top At_Offset_1
00ba 0120 | | Execute Any,Is_Value
00bb 6804 |h | Jump_Zero 0xc0
00bc e012 | | Load 0x0,0x12
00bd 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bf 7801 |x | Jump 0xc1
00c0 00d9 | | Load_Top At_Offset_1
00c1 e602 | | Load 0x3,0x2
00c2 4801 |H | Short_Literal 0x1
00c3 e403 | | Load 0x2,0x3
00c4 e7ff | | Load 0x3,-0x1
00c5 e012 | | Load 0x0,0x12
00c6 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00c7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00c8 c602 | | Store 0x3,0x2
00c9 c607 | | Store 0x3,0x7
00ca 00d9 | | Load_Top At_Offset_1
00cb e012 | | Load 0x0,0x12
00cc 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00ce 7006 |p | Jump_Nonzero 0xd5
00cf 00d9 | | Load_Top At_Offset_1
00d0 e012 | | Load 0x0,0x12
00d1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00d2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d3 8407 | | Call 0x2,0x7
00d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d5 e602 | | Load 0x3,0x2
00d6 e012 | | Load 0x0,0x12
00d7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00d8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00d9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00da 00d8 | | Load_Top At_Offset_0
00db 6805 |h | Jump_Zero 0xe1
00dc e602 | | Load 0x3,0x2
00dd e012 | | Load 0x0,0x12
00de 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00df 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00e0 c602 | | Store 0x3,0x2
00e1 00da | | Load_Top At_Offset_2
00e2 e602 | | Load 0x3,0x2
00e3 e012 | | Load 0x0,0x12
00e4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00e5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00e6 c606 | | Store 0x3,0x6
00e7 00cf | | Action Mark_Auxiliary
00e8 7836 |x6 | Jump 0x11f
00e9 00db | | Load_Top At_Offset_3
00ea e012 | | Load 0x0,0x12
00eb 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00ec 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00ed e603 | | Load 0x3,0x3
00ee 017d | } | Execute Record,Structure_Write
00ef 00db | | Load_Top At_Offset_3
00f0 e012 | | Load 0x0,0x12
00f1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00f2 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00f3 a604 | | Store_Unchecked 0x3,0x4
00f4 e603 | | Load 0x3,0x3
00f5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00f6 7022 |p" | Jump_Nonzero 0x119
00f7 e603 | | Load 0x3,0x3
00f8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f9 681f |h | Jump_Zero 0x119
00fa 00da | | Load_Top At_Offset_2
00fb 0120 | | Execute Any,Is_Value
00fc 6804 |h | Jump_Zero 0x101
00fd e012 | | Load 0x0,0x12
00fe 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0100 7801 |x | Jump 0x102
0101 00da | | Load_Top At_Offset_2
0102 e602 | | Load 0x3,0x2
0103 e606 | | Load 0x3,0x6
0104 e012 | | Load 0x0,0x12
0105 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0106 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0107 4800 |H | Short_Literal 0x0
0108 e603 | | Load 0x3,0x3
0109 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010a e012 | | Load 0x0,0x12
010b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
010c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
010d c602 | | Store 0x3,0x2
010e c607 | | Store 0x3,0x7
010f 00da | | Load_Top At_Offset_2
0110 e012 | | Load 0x0,0x12
0111 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0112 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0113 7005 |p | Jump_Nonzero 0x119
0114 00da | | Load_Top At_Offset_2
0115 e012 | | Load 0x0,0x12
0116 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0117 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0118 8407 | | Call 0x2,0x7
0119 00db | | Load_Top At_Offset_3
011a e012 | | Load 0x0,0x12
011b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
011c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
011d c606 | | Store 0x3,0x6
011e 00c9 | | Action Pop_Auxiliary_Loop
011f 00db | | Load_Top At_Offset_3
0120 e012 | | Load 0x0,0x12
0121 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0122 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0123 6fc5 |o | Jump_Zero 0xe9
0124 00ce | | Action Pop_Auxiliary
0125 e602 | | Load 0x3,0x2
0126 e012 | | Load 0x0,0x12
0127 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0128 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0129 680f |h | Jump_Zero 0x139
012a e602 | | Load 0x3,0x2
012b 00d8 | | Load_Top At_Offset_0
012c e012 | | Load 0x0,0x12
012d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
012e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
012f 0aff | | Execute_Immediate Plus,-0x1
0130 00d8 | | Load_Top At_Offset_0
0131 00e3 | | Load_Encached Natural_Cache
0132 0260 | ` | Execute Discrete,In_Type
0133 7001 |p | Jump_Nonzero 0x135
0134 0801 | | Execute_Immediate Raise,0x1
0135 e012 | | Load 0x0,0x12
0136 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0137 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0138 c602 | | Store 0x3,0x2
0139 00d8 | | Load_Top At_Offset_0
013a 6805 |h | Jump_Zero 0x140
013b e602 | | Load 0x3,0x2
013c e012 | | Load 0x0,0x12
013d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
013e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
013f c602 | | Store 0x3,0x2
0140 00d9 | | Load_Top At_Offset_1
0141 0120 | | Execute Any,Is_Value
0142 6804 |h | Jump_Zero 0x147
0143 e012 | | Load 0x0,0x12
0144 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0145 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0146 7801 |x | Jump 0x148
0147 00d9 | | Load_Top At_Offset_1
0148 e602 | | Load 0x3,0x2
0149 e012 | | Load 0x0,0x12
014a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
014b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
014c c602 | | Store 0x3,0x2
014d c607 | | Store 0x3,0x7
014e 00d9 | | Load_Top At_Offset_1
014f e012 | | Load 0x0,0x12
0150 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0151 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0152 7005 |p | Jump_Nonzero 0x158
0153 00d9 | | Load_Top At_Offset_1
0154 e012 | | Load 0x0,0x12
0155 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0156 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0157 8407 | | Call 0x2,0x7
0158 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0159 0000 0000 | | .BLANK 0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0176 | v | .CONST 0x0176 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0005 | | .CONST 0x0005 ; Number of locals
0163 INIT_0160:
0163 e003 | | Load 0x0,0x3
0164 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0165 02c7 | | Declare_Variable Any
0166 00d8 | | Load_Top At_Offset_0
0167 1c00 | | Execute_Immediate Run_Utility,0x0
0168 e003 | | Load 0x0,0x3
0169 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
016b 02c7 | | Declare_Variable Any
016c 00d8 | | Load_Top At_Offset_0
016d 1c00 | | Execute_Immediate Run_Utility,0x0
016e e003 | | Load 0x0,0x3
016f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0170 e012 | | Load 0x0,0x12
0171 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0172 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0173 02c7 | | Declare_Variable Any
0174 00d8 | | Load_Top At_Offset_0
0175 1c00 | | Execute_Immediate Run_Utility,0x0
0176 BODY_0160:
0176 00d8 | | Load_Top At_Offset_0
0177 0120 | | Execute Any,Is_Value
0178 6804 |h | Jump_Zero 0x17d
0179 e012 | | Load 0x0,0x12
017a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
017b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017c 7801 |x | Jump 0x17e
017d 00d8 | | Load_Top At_Offset_0
017e 00db | | Load_Top At_Offset_3
017f 0120 | | Execute Any,Is_Value
0180 6804 |h | Jump_Zero 0x185
0181 e003 | | Load 0x0,0x3
0182 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0183 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0184 7801 |x | Jump 0x186
0185 00db | | Load_Top At_Offset_3
0186 e403 | | Load 0x2,0x3
0187 e5ff | | Load 0x2,-0x1
0188 e012 | | Load 0x0,0x12
0189 1b16 | | Execute Package,Field_Read,Field_Number 0x16
018a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
018b c603 | | Store 0x3,0x3
018c c605 | | Store 0x3,0x5
018d 00d8 | | Load_Top At_Offset_0
018e e012 | | Load 0x0,0x12
018f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0190 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0191 7006 |p | Jump_Nonzero 0x198
0192 00d8 | | Load_Top At_Offset_0
0193 e012 | | Load 0x0,0x12
0194 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0195 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0196 8407 | | Call 0x2,0x7
0197 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0198 00cf | | Action Mark_Auxiliary
0199 782a |x* | Jump 0x1c4
019a e003 | | Load 0x0,0x3
019b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019c e602 | | Load 0x3,0x2
019d 0120 | | Execute Any,Is_Value
019e 6803 |h | Jump_Zero 0x1a2
019f e003 | | Load 0x0,0x3
01a0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a1 7801 |x | Jump 0x1a3
01a2 e602 | | Load 0x3,0x2
01a3 e603 | | Load 0x3,0x3
01a4 e003 | | Load 0x0,0x3
01a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01a6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01a7 c602 | | Store 0x3,0x2
01a8 005b | [ | Store_Top Discrete,At_Offset_3
01a9 00da | | Load_Top At_Offset_2
01aa 821d | | Call 0x1,0x1d
01ab 7010 |p | Jump_Nonzero 0x1bc
01ac 0092 0301 | | Action Push_String_Extended,0x301 ; "Could not get object for "
01ae e603 | | Load 0x3,0x3
01af 8404 | | Call 0x2,0x4
01b0 01cc | | Execute Vector,Catenate
01b1 0092 0302 | | Action Push_String_Extended,0x302 ; ": "
01b3 01cc | | Execute Vector,Catenate
01b4 00db | | Load_Top At_Offset_3
01b5 e003 | | Load 0x0,0x3
01b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b7 011c | | Execute Any,Convert_Unchecked
01b8 1c01 | | Execute_Immediate Run_Utility,0x1
01b9 01cc | | Execute Vector,Catenate
01ba 8407 | | Call 0x2,0x7
01bb 7802 |x | Jump 0x1be
01bc e602 | | Load 0x3,0x2
01bd 8409 | | Call 0x2,0x9
01be 00db | | Load_Top At_Offset_3
01bf e003 | | Load 0x0,0x3
01c0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01c1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01c2 c603 | | Store 0x3,0x3
01c3 00c9 | | Action Pop_Auxiliary_Loop
01c4 00db | | Load_Top At_Offset_3
01c5 e003 | | Load 0x0,0x3
01c6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01c7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01c8 6fd1 |o | Jump_Zero 0x19a
01c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d9 | | .CONST 0x01d9 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 e012 | | Load 0x0,0x12
01d4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d6 02c7 | | Declare_Variable Any
01d7 00d8 | | Load_Top At_Offset_0
01d8 1c00 | | Execute_Immediate Run_Utility,0x0
01d9 BODY_01d0:
01d9 00d8 | | Load_Top At_Offset_0
01da 0120 | | Execute Any,Is_Value
01db 6804 |h | Jump_Zero 0x1e0
01dc e012 | | Load 0x0,0x12
01dd 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01df 7801 |x | Jump 0x1e1
01e0 00d8 | | Load_Top At_Offset_0
01e1 e403 | | Load 0x2,0x3
01e2 e7ff | | Load 0x3,-0x1
01e3 e012 | | Load 0x0,0x12
01e4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01e5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01e6 c602 | | Store 0x3,0x2
01e7 00d8 | | Load_Top At_Offset_0
01e8 e012 | | Load 0x0,0x12
01e9 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01eb 7008 |p | Jump_Nonzero 0x1f4
01ec 00d8 | | Load_Top At_Offset_0
01ed e012 | | Load 0x0,0x12
01ee 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01ef 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01f0 8407 | | Call 0x2,0x7
01f1 e403 | | Load 0x2,0x3
01f2 e00f | | Load 0x0,0xf
01f3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 020a | | .CONST 0x020a ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0005 | | .CONST 0x0005 ; Number of locals
01fb INIT_01f8:
01fb e003 | | Load 0x0,0x3
01fc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01fd 02ff | | Declare_Variable Variant_Record
01fe 00d8 | | Load_Top At_Offset_0
01ff 1c00 | | Execute_Immediate Run_Utility,0x0
0200 e015 | | Load 0x0,0x15
0201 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0202 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0203 02c7 | | Declare_Variable Any
0204 00d8 | | Load_Top At_Offset_0
0205 1c00 | | Execute_Immediate Run_Utility,0x0
0206 e003 | | Load 0x0,0x3
0207 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0208 e014 | | Load 0x0,0x14
0209 1b11 | | Execute Package,Field_Read,Field_Number 0x11
020a BODY_01f8:
020a e003 | | Load 0x0,0x3
020b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020c e602 | | Load 0x3,0x2
020d 6056 |`V | Indirect_Literal Discrete,0x264,{0x00000000, 0x00004000}
020e e00f | | Load 0x0,0xf
020f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0210 4800 |H | Short_Literal 0x0
0211 e7ff | | Load 0x3,-0x1
0212 e003 | | Load 0x0,0x3
0213 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0214 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0215 00d1 | | Pop_Control Pop_Count_1
0216 005a | Z | Store_Top Discrete,At_Offset_2
0217 00d9 | | Load_Top At_Offset_1
0218 821d | | Call 0x1,0x1d
0219 700b |p | Jump_Nonzero 0x225
021a e7ff | | Load 0x3,-0x1
021b 0092 0303 | | Action Push_String_Extended,0x303 ; "Could not get default version for <1>: "
021d 00db | | Load_Top At_Offset_3
021e e003 | | Load 0x0,0x3
021f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0220 011c | | Execute Any,Convert_Unchecked
0221 1c01 | | Execute_Immediate Run_Utility,0x1
0222 01cc | | Execute Vector,Catenate
0223 8408 | | Call 0x2,0x8
0224 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0225 e014 | | Load 0x0,0x14
0226 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0227 00db | | Load_Top At_Offset_3
0228 0120 | | Execute Any,Is_Value
0229 6804 |h | Jump_Zero 0x22e
022a e015 | | Load 0x0,0x15
022b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022d 7801 |x | Jump 0x22f
022e 00db | | Load_Top At_Offset_3
022f e403 | | Load 0x2,0x3
0230 4800 |H | Short_Literal 0x0
0231 4803 |H | Short_Literal 0x3
0232 e602 | | Load 0x3,0x2
0233 e015 | | Load 0x0,0x15
0234 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0235 0162 | b | Execute Variant_Record,Check_In_Type
0236 e015 | | Load 0x0,0x15
0237 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0238 c603 | | Store 0x3,0x3
0239 0059 | Y | Store_Top Discrete,At_Offset_1
023a 00d8 | | Load_Top At_Offset_0
023b 8405 | | Call 0x2,0x5
023c 7008 |p | Jump_Nonzero 0x245
023d e7ff | | Load 0x3,-0x1
023e 0092 0304 | | Action Push_String_Extended,0x304 ; "Could not open <1>: "
0240 00da | | Load_Top At_Offset_2
0241 8406 | | Call 0x2,0x6
0242 01cc | | Execute Vector,Catenate
0243 8408 | | Call 0x2,0x8
0244 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0245 00da | | Load_Top At_Offset_2
0246 e015 | | Load 0x0,0x15
0247 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0248 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0249 840b | | Call 0x2,0xb
024a e014 | | Load 0x0,0x14
024b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
024c 4800 |H | Short_Literal 0x0
024d 4801 |H | Short_Literal 0x1
024e e403 | | Load 0x2,0x3
024f e602 | | Load 0x3,0x2
0250 e015 | | Load 0x0,0x15
0251 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0252 0162 | b | Execute Variant_Record,Check_In_Type
0253 e015 | | Load 0x0,0x15
0254 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0255 0059 | Y | Store_Top Discrete,At_Offset_1
0256 00d8 | | Load_Top At_Offset_0
0257 8405 | | Call 0x2,0x5
0258 7007 |p | Jump_Nonzero 0x260
0259 e7ff | | Load 0x3,-0x1
025a 0092 0305 | | Action Push_String_Extended,0x305 ; "Could not close <1>: "
025c 00da | | Load_Top At_Offset_2
025d 8406 | | Call 0x2,0x6
025e 01cc | | Execute Vector,Catenate
025f 8408 | | Call 0x2,0x8
0260 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0261 0000 0000 | | .XXX[0x3]
0263 0000 | |
0264 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0280 | | .CONST 0x0280 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0007 | | .CONST 0x0007 ; Number of locals
026b INIT_0268:
026b 0092 0306 | | Action Push_String_Extended,0x306 ; "??'SPEC'S(CODED,INSTALLED)"
026d e003 | | Load 0x0,0x3
026e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
026f 02c7 | | Declare_Variable Any
0270 00d8 | | Load_Top At_Offset_0
0271 1c00 | | Execute_Immediate Run_Utility,0x0
0272 e003 | | Load 0x0,0x3
0273 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0274 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0275 e003 | | Load 0x0,0x3
0276 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0277 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0278 02c7 | | Declare_Variable Any
0279 00d8 | | Load_Top At_Offset_0
027a 1c00 | | Execute_Immediate Run_Utility,0x0
027b e003 | | Load 0x0,0x3
027c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027d e003 | | Load 0x0,0x3
027e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
027f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0280 BODY_0268:
0280 e003 | | Load 0x0,0x3
0281 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0282 e003 | | Load 0x0,0x3
0283 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0284 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0285 67de |g | Indirect_Literal Discrete,0x264,{0x00000000, 0x00004000}
0286 e00f | | Load 0x0,0xf
0287 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0288 4800 |H | Short_Literal 0x0
0289 e5ff | | Load 0x2,-0x1
028a e003 | | Load 0x0,0x3
028b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
028c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
028d c604 | | Store 0x3,0x4
028e 005a | Z | Store_Top Discrete,At_Offset_2
028f 00d9 | | Load_Top At_Offset_1
0290 821d | | Call 0x1,0x1d
0291 700b |p | Jump_Nonzero 0x29d
0292 e5ff | | Load 0x2,-0x1
0293 0092 0307 | | Action Push_String_Extended,0x307 ; "Could not get context for <1>: "
0295 00db | | Load_Top At_Offset_3
0296 e003 | | Load 0x0,0x3
0297 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0298 011c | | Execute Any,Convert_Unchecked
0299 1c01 | | Execute_Immediate Run_Utility,0x1
029a 01cc | | Execute Vector,Catenate
029b 8408 | | Call 0x2,0x8
029c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
029d e003 | | Load 0x0,0x3
029e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
029f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a0 00db | | Load_Top At_Offset_3
02a1 67c2 |g | Indirect_Literal Discrete,0x264,{0x00000000, 0x00004000}
02a2 e00f | | Load 0x0,0xf
02a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a4 e010 | | Load 0x0,0x10
02a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02a6 e011 | | Load 0x0,0x11
02a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02a8 4801 |H | Short_Literal 0x1
02a9 4800 |H | Short_Literal 0x0
02aa e604 | | Load 0x3,0x4
02ab e602 | | Load 0x3,0x2
02ac e003 | | Load 0x0,0x3
02ad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ae 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02af c605 | | Store 0x3,0x5
02b0 0059 | Y | Store_Top Discrete,At_Offset_1
02b1 00d8 | | Load_Top At_Offset_0
02b2 821e | | Call 0x1,0x1e
02b3 7018 |p | Jump_Nonzero 0x2cc
02b4 00d8 | | Load_Top At_Offset_0
02b5 821f | | Call 0x1,0x1f
02b6 7015 |p | Jump_Nonzero 0x2cc
02b7 e5ff | | Load 0x2,-0x1
02b8 0092 0308 | | Action Push_String_Extended,0x308 ; "Could not find ada units in <1> because "
02ba 67a9 |g | Indirect_Literal Discrete,0x264,{0x00000000, 0x00004000}
02bb e00f | | Load 0x0,0xf
02bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02bd e010 | | Load 0x0,0x10
02be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02bf e011 | | Load 0x0,0x11
02c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c1 4801 |H | Short_Literal 0x1
02c2 4800 |H | Short_Literal 0x0
02c3 e604 | | Load 0x3,0x4
02c4 e602 | | Load 0x3,0x2
02c5 e607 | | Load 0x3,0x7
02c6 e003 | | Load 0x0,0x3
02c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c8 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
02c9 01cc | | Execute Vector,Catenate
02ca 8408 | | Call 0x2,0x8
02cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02cc 00cf | | Action Mark_Auxiliary
02cd 782a |x* | Jump 0x2f8
02ce e003 | | Load 0x0,0x3
02cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d0 e603 | | Load 0x3,0x3
02d1 0120 | | Execute Any,Is_Value
02d2 6803 |h | Jump_Zero 0x2d6
02d3 e003 | | Load 0x0,0x3
02d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d5 7801 |x | Jump 0x2d7
02d6 e603 | | Load 0x3,0x3
02d7 e605 | | Load 0x3,0x5
02d8 e003 | | Load 0x0,0x3
02d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02da 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02db c603 | | Store 0x3,0x3
02dc 005b | [ | Store_Top Discrete,At_Offset_3
02dd 00da | | Load_Top At_Offset_2
02de 821d | | Call 0x1,0x1d
02df 7010 |p | Jump_Nonzero 0x2f0
02e0 0092 0301 | | Action Push_String_Extended,0x301 ; "Could not get object for "
02e2 e605 | | Load 0x3,0x5
02e3 8404 | | Call 0x2,0x4
02e4 01cc | | Execute Vector,Catenate
02e5 0092 0302 | | Action Push_String_Extended,0x302 ; ": "
02e7 01cc | | Execute Vector,Catenate
02e8 00db | | Load_Top At_Offset_3
02e9 e003 | | Load 0x0,0x3
02ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02eb 011c | | Execute Any,Convert_Unchecked
02ec 1c01 | | Execute_Immediate Run_Utility,0x1
02ed 01cc | | Execute Vector,Catenate
02ee 8407 | | Call 0x2,0x7
02ef 7802 |x | Jump 0x2f2
02f0 e603 | | Load 0x3,0x3
02f1 840c | | Call 0x2,0xc
02f2 00db | | Load_Top At_Offset_3
02f3 e003 | | Load 0x0,0x3
02f4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02f5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02f6 c605 | | Store 0x3,0x5
02f7 00c9 | | Action Pop_Auxiliary_Loop
02f8 00db | | Load_Top At_Offset_3
02f9 e003 | | Load 0x0,0x3
02fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02fb 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02fc 6fd1 |o | Jump_Zero 0x2ce
02fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02fe ; --------------------------------------------------------------------------------------
02fe ; STRING TABLE
02fe ; --------------------------------------------------------------------------------------
02fe 0018 | | .STRTAB 0x0018->0x030a ; "Converting CDB for <1>"
02ff 002c | , | .STRTAB 0x002c->0x0315 ; "Unable to convert CDB for <1>"
0300 0047 | G | .STRTAB 0x0047->0x0323 ; "Converted CDB for <1>"
0301 005a | Z | .STRTAB 0x005a->0x032e ; "Could not get object for "
0302 0071 | q | .STRTAB 0x0071->0x033a ; ": "
0303 0071 | q | .STRTAB 0x0071->0x033b ; "Could not get default version for <1>: "
0304 0096 | | .STRTAB 0x0096->0x034f ; "Could not open <1>: "
0305 00a8 | | .STRTAB 0x00a8->0x0359 ; "Could not close <1>: "
0306 00bb | | .STRTAB 0x00bb->0x0363 ; "??'SPEC'S(CODED,INSTALLED)"
0307 00d3 | | .STRTAB 0x00d3->0x0370 ; "Could not get context for <1>: "
0308 00f0 | | .STRTAB 0x00f0->0x0380 ; "Could not find ada units in <1> because "
0309 0116 | | .STREND 0x0116->0x0394
030a 436f 6e76 |Conv| .STRTAB_STRINGS
0394 0000 0000 | | .BLANK 0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; Debug Table
0398 ; --------------------------------------------------------------------------------------
0398 0004 000f | | .DEBUG4 0x0004,0x000f,0x4b37,0x0000,0x0001,0x0000
039e 0000 0000 | | .BLANK 0000[0x62]