|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0390 | | .CONST 0x0390 ; 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 0027 | ' | .CONST 0x0027 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000c | | .CONST 0x000c ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
000d e00b | | Load 0x0,0xb
000e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000f 02c7 | | Declare_Variable Any
0010 e020 | | Load 0x0,0x20
0011 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0012 e00b | | Load 0x0,0xb
0013 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0014 a403 | | Store_Unchecked 0x2,0x3
0015 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0017 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
0019 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
001b 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
001d 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
001f 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
0021 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
0023 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
0025 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
0027 BODY_0008:
0027 e5fe | | Load 0x2,-0x2
0028 e5ff | | Load 0x2,-0x1
0029 0092 02f8 | | Action Push_String_Extended,0x2f8 ; "Converting CDB for <1>"
002b e21e | | Load 0x1,0x1e
002c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
002d 8409 | | Call 0x2,0x9
002e e00b | | Load 0x0,0xb
002f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0030 e5ff | | Load 0x2,-0x1
0031 e00e | | Load 0x0,0xe
0032 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0033 6801 |h | Jump_Zero 0x35
0034 840c | | Call 0x2,0xc
0035 e402 | | Load 0x2,0x2
0036 0c01 | | Execute_Immediate Greater_Equal,0x1
0037 680f |h | Jump_Zero 0x47
0038 e5fe | | Load 0x2,-0x2
0039 e5ff | | Load 0x2,-0x1
003a 0092 02f9 | | Action Push_String_Extended,0x2f9 ; "Unable to convert CDB for <1>"
003c e21e | | Load 0x1,0x1e
003d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
003e e403 | | Load 0x2,0x3
003f 4801 |H | Short_Literal 0x1
0040 4800 |H | Short_Literal 0x0
0041 e00b | | Load 0x0,0xb
0042 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0043 c403 | | Store 0x2,0x3
0044 4800 |H | Short_Literal 0x0
0045 a5fd | | Store_Unchecked 0x2,-0x3
0046 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0047 e5fe | | Load 0x2,-0x2
0048 e5ff | | Load 0x2,-0x1
0049 0092 02fa | | Action Push_String_Extended,0x2fa ; "Converted CDB for <1>"
004b e21e | | Load 0x1,0x1e
004c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
004d e403 | | Load 0x2,0x3
004e 4801 |H | Short_Literal 0x1
004f 4801 |H | Short_Literal 0x1
0050 e00b | | Load 0x0,0xb
0051 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0052 c403 | | Store 0x2,0x3
0053 4801 |H | Short_Literal 0x1
0054 a5fd | | Store_Unchecked 0x2,-0x3
0055 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2
005c 0f00 | | Execute_Immediate Equal,0x0
005d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005e 0000 0000 | | .XXX[0x2]
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 e021 | ! | Load 0x0,0x21
0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0066 011c | | Execute Any,Convert_Unchecked
0067 1c01 | | Execute_Immediate Run_Utility,0x1
0068 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0069 0000 0000 | | .BLANK 0000[0x7]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 e5fe | | Load 0x2,-0x2
0074 00db | | Load_Top At_Offset_3
0075 e21e | | Load 0x1,0x1e
0076 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0077 e403 | | Load 0x2,0x3
0078 e00b | | Load 0x0,0xb
0079 181a | | Execute Package,Field_Execute,Field_Number 0x1a
007a e402 | | Load 0x2,0x2
007b 0a01 | | Execute_Immediate Plus,0x1
007c c402 | | Store 0x2,0x2
007d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 e5fe | | Load 0x2,-0x2
0084 e7fe | | Load 0x3,-0x2
0085 e7ff | | Load 0x3,-0x1
0086 e21e | | Load 0x1,0x1e
0087 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0088 e403 | | Load 0x2,0x3
0089 e00b | | Load 0x0,0xb
008a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
008b e402 | | Load 0x2,0x2
008c 0a01 | | Execute_Immediate Plus,0x1
008d c402 | | Store 0x2,0x2
008e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
008f 0000 | | .XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00b0 | | .CONST 0x00b0 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0008 | | .CONST 0x0008 ; Number of locals
0093 INIT_0090:
0093 e00e | | Load 0x0,0xe
0094 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0096 02c7 | | Declare_Variable Any
0097 00d8 | | Load_Top At_Offset_0
0098 1c00 | | Execute_Immediate Run_Utility,0x0
0099 e00e | | Load 0x0,0xe
009a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
009b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
009c 0322 | " | Declare_Variable Record
009d e00e | | Load 0x0,0xe
009e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
009f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a0 e00e | | Load 0x0,0xe
00a1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00a2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a3 e00e | | Load 0x0,0xe
00a4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00a5 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
00a6 02c7 | | Declare_Variable Any
00a7 00d8 | | Load_Top At_Offset_0
00a8 1c00 | | Execute_Immediate Run_Utility,0x0
00a9 e00e | | Load 0x0,0xe
00aa 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00ab 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ac 02c7 | | Declare_Variable Any
00ad 00d8 | | Load_Top At_Offset_0
00ae 1c00 | | Execute_Immediate Run_Utility,0x0
00af 00e1 | | Load_Encached Boolean_Cache
00b0 BODY_0090:
00b0 00be | | Action Activate_Tasks
00b1 00d9 | | Load_Top At_Offset_1
00b2 0120 | | Execute Any,Is_Value
00b3 6804 |h | Jump_Zero 0xb8
00b4 e00e | | Load 0x0,0xe
00b5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b7 7801 |x | Jump 0xb9
00b8 00d9 | | Load_Top At_Offset_1
00b9 e602 | | Load 0x3,0x2
00ba 4801 |H | Short_Literal 0x1
00bb e403 | | Load 0x2,0x3
00bc e7ff | | Load 0x3,-0x1
00bd e00e | | Load 0x0,0xe
00be 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00bf 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00c0 c602 | | Store 0x3,0x2
00c1 c607 | | Store 0x3,0x7
00c2 00d9 | | Load_Top At_Offset_1
00c3 e00e | | Load 0x0,0xe
00c4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00c5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c6 7006 |p | Jump_Nonzero 0xcd
00c7 00d9 | | Load_Top At_Offset_1
00c8 e00e | | Load 0x0,0xe
00c9 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00ca 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00cb 8406 | | Call 0x2,0x6
00cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00cd e602 | | Load 0x3,0x2
00ce e00e | | Load 0x0,0xe
00cf 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00d0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00d1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00d2 00d8 | | Load_Top At_Offset_0
00d3 6805 |h | Jump_Zero 0xd9
00d4 e602 | | Load 0x3,0x2
00d5 e00e | | Load 0x0,0xe
00d6 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00d7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00d8 c602 | | Store 0x3,0x2
00d9 00da | | Load_Top At_Offset_2
00da e602 | | Load 0x3,0x2
00db e00e | | Load 0x0,0xe
00dc 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00dd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00de c606 | | Store 0x3,0x6
00df 00cf | | Action Mark_Auxiliary
00e0 7836 |x6 | Jump 0x117
00e1 00db | | Load_Top At_Offset_3
00e2 e00e | | Load 0x0,0xe
00e3 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00e4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00e5 e603 | | Load 0x3,0x3
00e6 017d | } | Execute Record,Structure_Write
00e7 00db | | Load_Top At_Offset_3
00e8 e00e | | Load 0x0,0xe
00e9 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00ea 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00eb a604 | | Store_Unchecked 0x3,0x4
00ec e603 | | Load 0x3,0x3
00ed 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00ee 7022 |p" | Jump_Nonzero 0x111
00ef e603 | | Load 0x3,0x3
00f0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f1 681f |h | Jump_Zero 0x111
00f2 00da | | Load_Top At_Offset_2
00f3 0120 | | Execute Any,Is_Value
00f4 6804 |h | Jump_Zero 0xf9
00f5 e00e | | Load 0x0,0xe
00f6 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f8 7801 |x | Jump 0xfa
00f9 00da | | Load_Top At_Offset_2
00fa e602 | | Load 0x3,0x2
00fb e606 | | Load 0x3,0x6
00fc e00e | | Load 0x0,0xe
00fd 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00fe 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00ff 4800 |H | Short_Literal 0x0
0100 e603 | | Load 0x3,0x3
0101 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0102 e00e | | Load 0x0,0xe
0103 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0104 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0105 c602 | | Store 0x3,0x2
0106 c607 | | Store 0x3,0x7
0107 00da | | Load_Top At_Offset_2
0108 e00e | | Load 0x0,0xe
0109 1b16 | | Execute Package,Field_Read,Field_Number 0x16
010a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010b 7005 |p | Jump_Nonzero 0x111
010c 00da | | Load_Top At_Offset_2
010d e00e | | Load 0x0,0xe
010e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
010f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0110 8406 | | Call 0x2,0x6
0111 00db | | Load_Top At_Offset_3
0112 e00e | | Load 0x0,0xe
0113 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0114 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0115 c606 | | Store 0x3,0x6
0116 00c9 | | Action Pop_Auxiliary_Loop
0117 00db | | Load_Top At_Offset_3
0118 e00e | | Load 0x0,0xe
0119 1b16 | | Execute Package,Field_Read,Field_Number 0x16
011a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
011b 6fc5 |o | Jump_Zero 0xe1
011c 00ce | | Action Pop_Auxiliary
011d e602 | | Load 0x3,0x2
011e e00e | | Load 0x0,0xe
011f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0120 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0121 680f |h | Jump_Zero 0x131
0122 e602 | | Load 0x3,0x2
0123 00d8 | | Load_Top At_Offset_0
0124 e00e | | Load 0x0,0xe
0125 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0126 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0127 0aff | | Execute_Immediate Plus,-0x1
0128 00d8 | | Load_Top At_Offset_0
0129 00e3 | | Load_Encached Natural_Cache
012a 0260 | ` | Execute Discrete,In_Type
012b 7001 |p | Jump_Nonzero 0x12d
012c 0801 | | Execute_Immediate Raise,0x1
012d e00e | | Load 0x0,0xe
012e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
012f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0130 c602 | | Store 0x3,0x2
0131 00d8 | | Load_Top At_Offset_0
0132 6805 |h | Jump_Zero 0x138
0133 e602 | | Load 0x3,0x2
0134 e00e | | Load 0x0,0xe
0135 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0136 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0137 c602 | | Store 0x3,0x2
0138 00d9 | | Load_Top At_Offset_1
0139 0120 | | Execute Any,Is_Value
013a 6804 |h | Jump_Zero 0x13f
013b e00e | | Load 0x0,0xe
013c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
013d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013e 7801 |x | Jump 0x140
013f 00d9 | | Load_Top At_Offset_1
0140 e602 | | Load 0x3,0x2
0141 e00e | | Load 0x0,0xe
0142 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0143 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0144 c602 | | Store 0x3,0x2
0145 c607 | | Store 0x3,0x7
0146 00d9 | | Load_Top At_Offset_1
0147 e00e | | Load 0x0,0xe
0148 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0149 1816 | | Execute Package,Field_Execute,Field_Number 0x16
014a 7005 |p | Jump_Nonzero 0x150
014b 00d9 | | Load_Top At_Offset_1
014c e00e | | Load 0x0,0xe
014d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
014e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
014f 8406 | | Call 0x2,0x6
0150 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 016e | n | .CONST 0x016e ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0005 | | .CONST 0x0005 ; Number of locals
015b INIT_0158:
015b e003 | | Load 0x0,0x3
015c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015d 02c7 | | Declare_Variable Any
015e 00d8 | | Load_Top At_Offset_0
015f 1c00 | | Execute_Immediate Run_Utility,0x0
0160 e003 | | Load 0x0,0x3
0161 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0162 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0163 02c7 | | Declare_Variable Any
0164 00d8 | | Load_Top At_Offset_0
0165 1c00 | | Execute_Immediate Run_Utility,0x0
0166 e003 | | Load 0x0,0x3
0167 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0168 e00e | | Load 0x0,0xe
0169 1b16 | | Execute Package,Field_Read,Field_Number 0x16
016a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016b 02c7 | | Declare_Variable Any
016c 00d8 | | Load_Top At_Offset_0
016d 1c00 | | Execute_Immediate Run_Utility,0x0
016e BODY_0158:
016e 00d8 | | Load_Top At_Offset_0
016f 0120 | | Execute Any,Is_Value
0170 6804 |h | Jump_Zero 0x175
0171 e00e | | Load 0x0,0xe
0172 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0173 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0174 7801 |x | Jump 0x176
0175 00d8 | | Load_Top At_Offset_0
0176 00db | | Load_Top At_Offset_3
0177 0120 | | Execute Any,Is_Value
0178 6804 |h | Jump_Zero 0x17d
0179 e003 | | Load 0x0,0x3
017a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
017b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
017c 7801 |x | Jump 0x17e
017d 00db | | Load_Top At_Offset_3
017e e403 | | Load 0x2,0x3
017f e5ff | | Load 0x2,-0x1
0180 e00e | | Load 0x0,0xe
0181 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0182 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0183 c603 | | Store 0x3,0x3
0184 c605 | | Store 0x3,0x5
0185 00d8 | | Load_Top At_Offset_0
0186 e00e | | Load 0x0,0xe
0187 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0188 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0189 7006 |p | Jump_Nonzero 0x190
018a 00d8 | | Load_Top At_Offset_0
018b e00e | | Load 0x0,0xe
018c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
018d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
018e 8406 | | Call 0x2,0x6
018f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0190 00cf | | Action Mark_Auxiliary
0191 782c |x, | Jump 0x1be
0192 e003 | | Load 0x0,0x3
0193 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0194 e602 | | Load 0x3,0x2
0195 0120 | | Execute Any,Is_Value
0196 6803 |h | Jump_Zero 0x19a
0197 e003 | | Load 0x0,0x3
0198 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0199 7801 |x | Jump 0x19b
019a e602 | | Load 0x3,0x2
019b e603 | | Load 0x3,0x3
019c e003 | | Load 0x0,0x3
019d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
019e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
019f c602 | | Store 0x3,0x2
01a0 005b | [ | Store_Top Discrete,At_Offset_3
01a1 00da | | Load_Top At_Offset_2
01a2 821b | | Call 0x1,0x1b
01a3 7012 |p | Jump_Nonzero 0x1b6
01a4 0092 02fb | | Action Push_String_Extended,0x2fb ; "Could not get object for "
01a6 e603 | | Load 0x3,0x3
01a7 e003 | | Load 0x0,0x3
01a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01a9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01aa 01cc | | Execute Vector,Catenate
01ab 0092 02fc | | Action Push_String_Extended,0x2fc ; ": "
01ad 01cc | | Execute Vector,Catenate
01ae 00db | | Load_Top At_Offset_3
01af e003 | | Load 0x0,0x3
01b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b1 011c | | Execute Any,Convert_Unchecked
01b2 1c01 | | Execute_Immediate Run_Utility,0x1
01b3 01cc | | Execute Vector,Catenate
01b4 8406 | | Call 0x2,0x6
01b5 7802 |x | Jump 0x1b8
01b6 e602 | | Load 0x3,0x2
01b7 8408 | | Call 0x2,0x8
01b8 00db | | Load_Top At_Offset_3
01b9 e003 | | Load 0x0,0x3
01ba 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01bb 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01bc c603 | | Store 0x3,0x3
01bd 00c9 | | Action Pop_Auxiliary_Loop
01be 00db | | Load_Top At_Offset_3
01bf e003 | | Load 0x0,0x3
01c0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01c1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01c2 6fcf |o | Jump_Zero 0x192
01c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c4 0000 0000 | | .BLANK 0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d1 | | .CONST 0x01d1 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb e00e | | Load 0x0,0xe
01cc 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ce 02c7 | | Declare_Variable Any
01cf 00d8 | | Load_Top At_Offset_0
01d0 1c00 | | Execute_Immediate Run_Utility,0x0
01d1 BODY_01c8:
01d1 00d8 | | Load_Top At_Offset_0
01d2 0120 | | Execute Any,Is_Value
01d3 6804 |h | Jump_Zero 0x1d8
01d4 e00e | | Load 0x0,0xe
01d5 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d7 7801 |x | Jump 0x1d9
01d8 00d8 | | Load_Top At_Offset_0
01d9 e403 | | Load 0x2,0x3
01da e7ff | | Load 0x3,-0x1
01db e00e | | Load 0x0,0xe
01dc 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01dd 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01de c602 | | Store 0x3,0x2
01df 00d8 | | Load_Top At_Offset_0
01e0 e00e | | Load 0x0,0xe
01e1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01e3 7008 |p | Jump_Nonzero 0x1ec
01e4 00d8 | | Load_Top At_Offset_0
01e5 e00e | | Load 0x0,0xe
01e6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01e7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01e8 8406 | | Call 0x2,0x6
01e9 e403 | | Load 0x2,0x3
01ea e00b | | Load 0x0,0xb
01eb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ed 0000 0000 | | .XXX[0x3]
01ef 0000 | |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0202 | | .CONST 0x0202 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0005 | | .CONST 0x0005 ; Number of locals
01f3 INIT_01f0:
01f3 e003 | | Load 0x0,0x3
01f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01f5 02ff | | Declare_Variable Variant_Record
01f6 00d8 | | Load_Top At_Offset_0
01f7 1c00 | | Execute_Immediate Run_Utility,0x0
01f8 e022 | " | Load 0x0,0x22
01f9 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fb 02c7 | | Declare_Variable Any
01fc 00d8 | | Load_Top At_Offset_0
01fd 1c00 | | Execute_Immediate Run_Utility,0x0
01fe e003 | | Load 0x0,0x3
01ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0200 e021 | ! | Load 0x0,0x21
0201 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0202 BODY_01f0:
0202 e003 | | Load 0x0,0x3
0203 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0204 e602 | | Load 0x3,0x2
0205 6056 |`V | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00004000}
0206 e00b | | Load 0x0,0xb
0207 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0208 4800 |H | Short_Literal 0x0
0209 e7ff | | Load 0x3,-0x1
020a e003 | | Load 0x0,0x3
020b 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
020c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
020d 00d1 | | Pop_Control Pop_Count_1
020e 005a | Z | Store_Top Discrete,At_Offset_2
020f 00d9 | | Load_Top At_Offset_1
0210 821b | | Call 0x1,0x1b
0211 700b |p | Jump_Nonzero 0x21d
0212 e7ff | | Load 0x3,-0x1
0213 0092 02fd | | Action Push_String_Extended,0x2fd ; "Could not get default version for <1>: "
0215 00db | | Load_Top At_Offset_3
0216 e003 | | Load 0x0,0x3
0217 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0218 011c | | Execute Any,Convert_Unchecked
0219 1c01 | | Execute_Immediate Run_Utility,0x1
021a 01cc | | Execute Vector,Catenate
021b 8407 | | Call 0x2,0x7
021c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
021d e021 | ! | Load 0x0,0x21
021e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
021f 00db | | Load_Top At_Offset_3
0220 0120 | | Execute Any,Is_Value
0221 6804 |h | Jump_Zero 0x226
0222 e022 | " | Load 0x0,0x22
0223 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0224 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0225 7801 |x | Jump 0x227
0226 00db | | Load_Top At_Offset_3
0227 e403 | | Load 0x2,0x3
0228 4800 |H | Short_Literal 0x0
0229 4803 |H | Short_Literal 0x3
022a e602 | | Load 0x3,0x2
022b e022 | " | Load 0x0,0x22
022c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
022d 0162 | b | Execute Variant_Record,Check_In_Type
022e e022 | " | Load 0x0,0x22
022f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0230 c603 | | Store 0x3,0x3
0231 0059 | Y | Store_Top Discrete,At_Offset_1
0232 00d8 | | Load_Top At_Offset_0
0233 8404 | | Call 0x2,0x4
0234 7008 |p | Jump_Nonzero 0x23d
0235 e7ff | | Load 0x3,-0x1
0236 0092 02fe | | Action Push_String_Extended,0x2fe ; "Could not open <1>: "
0238 00da | | Load_Top At_Offset_2
0239 8405 | | Call 0x2,0x5
023a 01cc | | Execute Vector,Catenate
023b 8407 | | Call 0x2,0x7
023c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
023d 00da | | Load_Top At_Offset_2
023e e022 | " | Load 0x0,0x22
023f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0240 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0241 840a | | Call 0x2,0xa
0242 e021 | ! | Load 0x0,0x21
0243 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0244 4800 |H | Short_Literal 0x0
0245 4801 |H | Short_Literal 0x1
0246 e403 | | Load 0x2,0x3
0247 e602 | | Load 0x3,0x2
0248 e022 | " | Load 0x0,0x22
0249 1b0f | | Execute Package,Field_Read,Field_Number 0xf
024a 0162 | b | Execute Variant_Record,Check_In_Type
024b e022 | " | Load 0x0,0x22
024c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
024d 0059 | Y | Store_Top Discrete,At_Offset_1
024e 00d8 | | Load_Top At_Offset_0
024f 8404 | | Call 0x2,0x4
0250 7007 |p | Jump_Nonzero 0x258
0251 e7ff | | Load 0x3,-0x1
0252 0092 02ff | | Action Push_String_Extended,0x2ff ; "Could not close <1>: "
0254 00da | | Load_Top At_Offset_2
0255 8405 | | Call 0x2,0x5
0256 01cc | | Execute Vector,Catenate
0257 8407 | | Call 0x2,0x7
0258 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0259 0000 0000 | | .XXX[0x3]
025b 0000 | |
025c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0278 | x | .CONST 0x0278 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0007 | | .CONST 0x0007 ; Number of locals
0263 INIT_0260:
0263 0092 0300 | | Action Push_String_Extended,0x300 ; "??'SPEC'S(CODED,INSTALLED)"
0265 e003 | | Load 0x0,0x3
0266 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0267 02c7 | | Declare_Variable Any
0268 00d8 | | Load_Top At_Offset_0
0269 1c00 | | Execute_Immediate Run_Utility,0x0
026a e003 | | Load 0x0,0x3
026b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
026c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
026d e003 | | Load 0x0,0x3
026e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
026f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0270 02c7 | | Declare_Variable Any
0271 00d8 | | Load_Top At_Offset_0
0272 1c00 | | Execute_Immediate Run_Utility,0x0
0273 e003 | | Load 0x0,0x3
0274 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0275 e003 | | Load 0x0,0x3
0276 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0277 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0278 BODY_0260:
0278 e003 | | Load 0x0,0x3
0279 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027a e003 | | Load 0x0,0x3
027b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
027c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
027d 67de |g | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00004000}
027e e00b | | Load 0x0,0xb
027f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0280 4800 |H | Short_Literal 0x0
0281 e5ff | | Load 0x2,-0x1
0282 e003 | | Load 0x0,0x3
0283 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0284 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0285 c604 | | Store 0x3,0x4
0286 005a | Z | Store_Top Discrete,At_Offset_2
0287 00d9 | | Load_Top At_Offset_1
0288 821b | | Call 0x1,0x1b
0289 700b |p | Jump_Nonzero 0x295
028a e5ff | | Load 0x2,-0x1
028b 0092 0301 | | Action Push_String_Extended,0x301 ; "Could not get context for <1>: "
028d 00db | | Load_Top At_Offset_3
028e e003 | | Load 0x0,0x3
028f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0290 011c | | Execute Any,Convert_Unchecked
0291 1c01 | | Execute_Immediate Run_Utility,0x1
0292 01cc | | Execute Vector,Catenate
0293 8407 | | Call 0x2,0x7
0294 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0295 e003 | | Load 0x0,0x3
0296 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0297 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0298 00db | | Load_Top At_Offset_3
0299 67c2 |g | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00004000}
029a e00b | | Load 0x0,0xb
029b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029c e00c | | Load 0x0,0xc
029d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
029e e00d | | Load 0x0,0xd
029f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02a0 4801 |H | Short_Literal 0x1
02a1 4800 |H | Short_Literal 0x0
02a2 e604 | | Load 0x3,0x4
02a3 e602 | | Load 0x3,0x2
02a4 e003 | | Load 0x0,0x3
02a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02a7 c605 | | Store 0x3,0x5
02a8 0059 | Y | Store_Top Discrete,At_Offset_1
02a9 00d8 | | Load_Top At_Offset_0
02aa 821c | | Call 0x1,0x1c
02ab 7018 |p | Jump_Nonzero 0x2c4
02ac 00d8 | | Load_Top At_Offset_0
02ad 821d | | Call 0x1,0x1d
02ae 7015 |p | Jump_Nonzero 0x2c4
02af e5ff | | Load 0x2,-0x1
02b0 0092 0302 | | Action Push_String_Extended,0x302 ; "Could not find ada units in <1> because "
02b2 67a9 |g | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00004000}
02b3 e00b | | Load 0x0,0xb
02b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b5 e00c | | Load 0x0,0xc
02b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b7 e00d | | Load 0x0,0xd
02b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b9 4801 |H | Short_Literal 0x1
02ba 4800 |H | Short_Literal 0x0
02bb e604 | | Load 0x3,0x4
02bc e602 | | Load 0x3,0x2
02bd e607 | | Load 0x3,0x7
02be e003 | | Load 0x0,0x3
02bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c0 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
02c1 01cc | | Execute Vector,Catenate
02c2 8407 | | Call 0x2,0x7
02c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02c4 00cf | | Action Mark_Auxiliary
02c5 782c |x, | Jump 0x2f2
02c6 e003 | | Load 0x0,0x3
02c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c8 e603 | | Load 0x3,0x3
02c9 0120 | | Execute Any,Is_Value
02ca 6803 |h | Jump_Zero 0x2ce
02cb e003 | | Load 0x0,0x3
02cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02cd 7801 |x | Jump 0x2cf
02ce e603 | | Load 0x3,0x3
02cf e605 | | Load 0x3,0x5
02d0 e003 | | Load 0x0,0x3
02d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02d3 c603 | | Store 0x3,0x3
02d4 005b | [ | Store_Top Discrete,At_Offset_3
02d5 00da | | Load_Top At_Offset_2
02d6 821b | | Call 0x1,0x1b
02d7 7012 |p | Jump_Nonzero 0x2ea
02d8 0092 02fb | | Action Push_String_Extended,0x2fb ; "Could not get object for "
02da e605 | | Load 0x3,0x5
02db e003 | | Load 0x0,0x3
02dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02dd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02de 01cc | | Execute Vector,Catenate
02df 0092 02fc | | Action Push_String_Extended,0x2fc ; ": "
02e1 01cc | | Execute Vector,Catenate
02e2 00db | | Load_Top At_Offset_3
02e3 e003 | | Load 0x0,0x3
02e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e5 011c | | Execute Any,Convert_Unchecked
02e6 1c01 | | Execute_Immediate Run_Utility,0x1
02e7 01cc | | Execute Vector,Catenate
02e8 8406 | | Call 0x2,0x6
02e9 7802 |x | Jump 0x2ec
02ea e603 | | Load 0x3,0x3
02eb 840b | | Call 0x2,0xb
02ec 00db | | Load_Top At_Offset_3
02ed e003 | | Load 0x0,0x3
02ee 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ef 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02f0 c605 | | Store 0x3,0x5
02f1 00c9 | | Action Pop_Auxiliary_Loop
02f2 00db | | Load_Top At_Offset_3
02f3 e003 | | Load 0x0,0x3
02f4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02f5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02f6 6fcf |o | Jump_Zero 0x2c6
02f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f8 ; --------------------------------------------------------------------------------------
02f8 ; STRING TABLE
02f8 ; --------------------------------------------------------------------------------------
02f8 0018 | | .STRTAB 0x0018->0x0304 ; "Converting CDB for <1>"
02f9 002c | , | .STRTAB 0x002c->0x030f ; "Unable to convert CDB for <1>"
02fa 0047 | G | .STRTAB 0x0047->0x031d ; "Converted CDB for <1>"
02fb 005a | Z | .STRTAB 0x005a->0x0328 ; "Could not get object for "
02fc 0071 | q | .STRTAB 0x0071->0x0334 ; ": "
02fd 0071 | q | .STRTAB 0x0071->0x0335 ; "Could not get default version for <1>: "
02fe 0096 | | .STRTAB 0x0096->0x0349 ; "Could not open <1>: "
02ff 00a8 | | .STRTAB 0x00a8->0x0353 ; "Could not close <1>: "
0300 00bb | | .STRTAB 0x00bb->0x035d ; "??'SPEC'S(CODED,INSTALLED)"
0301 00d3 | | .STRTAB 0x00d3->0x036a ; "Could not get context for <1>: "
0302 00f0 | | .STRTAB 0x00f0->0x037a ; "Could not find ada units in <1> because "
0303 0116 | | .STREND 0x0116->0x038e
0304 436f 6e76 |Conv| .STRTAB_STRINGS
038e 0000 0000 | | .XXX[0x2]
0390 ; --------------------------------------------------------------------------------------
0390 ; Debug Table
0390 ; --------------------------------------------------------------------------------------
0390 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc02a,0x0000,0x0001,0x0000
0396 0000 0000 | | .BLANK 0000[0x6a]