|
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: 1024 (0x400)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0138 | 8 | .CONST 0x0138 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0019 | | .CONST 0x0019 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0004 | | .CONST 0x0004 ; Number of locals
000b INIT_0008:
000b e003 | | Load 0x0,0x3
000c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
000d 02c7 | | Declare_Variable Any
000e 4801 |H | Short_Literal 0x1
000f 4800 |H | Short_Literal 0x0
0010 e5ff | | Load 0x2,-0x1
0011 e003 | | Load 0x0,0x3
0012 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
0013 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0014 a402 | | Store_Unchecked 0x2,0x2
0015 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0017 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
0019 BODY_0008:
0019 e005 | | Load 0x0,0x5
001a 180e | | Execute Package,Field_Execute,Field_Number 0xe
001b 4802 |H | Short_Literal 0x2
001c 0092 00ea | | Action Push_String_Extended,0xea ; "[Call_Trees.List (These_Objects => "
001e e5ff | | Load 0x2,-0x1
001f 01cc | | Execute Vector,Catenate
0020 0092 00eb | | Action Push_String_Extended,0xeb ; ")]"
0022 01cc | | Execute Vector,Catenate
0023 e006 | | Load 0x0,0x6
0024 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0025 4801 |H | Short_Literal 0x1
0026 e00c | | Load 0x0,0xc
0027 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0028 00da | | Load_Top At_Offset_2
0029 e003 | | Load 0x0,0x3
002a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
002b c402 | | Store 0x2,0x2
002c 00da | | Load_Top At_Offset_2
002d e003 | | Load 0x0,0x3
002e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
002f 680d |h | Jump_Zero 0x3d
0030 e005 | | Load 0x0,0x5
0031 180e | | Execute Package,Field_Execute,Field_Number 0xe
0032 4807 |H | Short_Literal 0x7
0033 0092 00ec | | Action Push_String_Extended,0xec ; "ERROR: "
0035 e5ff | | Load 0x2,-0x1
0036 01cc | | Execute Vector,Catenate
0037 0092 00ed | | Action Push_String_Extended,0xed ; " does not resolve to any Ada program element"
0039 01cc | | Execute Vector,Catenate
003a e006 | | Load 0x0,0x6
003b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
003c 780d |x | Jump 0x4a
003d 00cf | | Action Mark_Auxiliary
003e 7806 |x | Jump 0x45
003f 8404 | | Call 0x2,0x4
0040 00db | | Load_Top At_Offset_3
0041 e003 | | Load 0x0,0x3
0042 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0043 c402 | | Store 0x2,0x2
0044 00c9 | | Action Pop_Auxiliary_Loop
0045 00db | | Load_Top At_Offset_3
0046 e003 | | Load 0x0,0x3
0047 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0048 6ff6 |o | Jump_Zero 0x3f
0049 00ce | | Action Pop_Auxiliary
004a e005 | | Load 0x0,0x5
004b 180e | | Execute Package,Field_Execute,Field_Number 0xe
004c 4802 |H | Short_Literal 0x2
004d 0092 00ee | | Action Push_String_Extended,0xee ; "[Call_Trees.List terminated]"
004f e006 | | Load 0x0,0x6
0050 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0051 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0052 0000 0000 | | .BLANK 0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0064 | d | .CONST 0x0064 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0003 | | .CONST 0x0003 ; Number of locals
005b INIT_0058:
005b e007 | | Load 0x0,0x7
005c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
005e 0322 | " | Declare_Variable Record
005f 00db | | Load_Top At_Offset_3
0060 00d9 | | Load_Top At_Offset_1
0061 017d | } | Execute Record,Structure_Write
0062 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0064 BODY_0058:
0064 00d9 | | Load_Top At_Offset_1
0065 e007 | | Load 0x0,0x7
0066 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0067 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0068 00d1 | | Pop_Control Pop_Count_1
0069 00cf | | Action Mark_Auxiliary
006a 7807 |x | Jump 0x72
006b 8603 | | Call 0x3,0x3
006c 00da | | Load_Top At_Offset_2
006d e007 | | Load 0x0,0x7
006e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0070 00d1 | | Pop_Control Pop_Count_1
0071 00c9 | | Action Pop_Auxiliary_Loop
0072 00da | | Load_Top At_Offset_2
0073 e007 | | Load 0x0,0x7
0074 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0075 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0076 6ff4 |o | Jump_Zero 0x6b
0077 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0093 | | .CONST 0x0093 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b e003 | | Load 0x0,0x3
007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007d 02c7 | | Declare_Variable Any
007e e402 | | Load 0x2,0x2
007f e003 | | Load 0x0,0x3
0080 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0081 a602 | | Store_Unchecked 0x3,0x2
0082 4801 |H | Short_Literal 0x1
0083 4850 |HP | Short_Literal 0x50
0084 00e9 | | Load_Encached String_Cache
0085 035b | [ | Declare_Type Array,Constrained
0086 0337 | 7 | Declare_Variable Array
0087 00d8 | | Load_Top At_Offset_0
0088 0335 | 5 | Declare_Variable Array,Duplicate
0089 00cd | | Action Spare6_Action
008a 4850 |HP | Short_Literal 0x50
008b 4801 |H | Short_Literal 0x1
008c 482d |H- | Short_Literal 0x2d
008d 00d9 | | Load_Top At_Offset_1
008e e604 | | Load 0x3,0x4
008f 01d6 | | Execute Vector,Field_Write
0090 3ffb |? | Loop_Increasing 0x8c
0091 00d9 | | Load_Top At_Offset_1
0092 01d4 | | Execute Vector,Structure_Write
0093 BODY_0078:
0093 00d9 | | Load_Top At_Offset_1
0094 8210 | | Call 0x1,0x10
0095 0092 00ef | | Action Push_String_Extended,0xef ; ":"
0097 01cc | | Execute Vector,Catenate
0098 e00c | | Load 0x0,0xc
0099 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
009a 4801 |H | Short_Literal 0x1
009b e00c | | Load 0x0,0xc
009c 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
009d 00d9 | | Load_Top At_Offset_1
009e e007 | | Load 0x0,0x7
009f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a0 8403 | | Call 0x2,0x3
00a1 4801 |H | Short_Literal 0x1
00a2 e00c | | Load 0x0,0xc
00a3 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00a4 00d8 | | Load_Top At_Offset_0
00a5 e00c | | Load 0x0,0xc
00a6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00a7 4801 |H | Short_Literal 0x1
00a8 e00c | | Load 0x0,0xc
00a9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ab 0000 0000 | | .BLANK 0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00d7 | | .CONST 0x00d7 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0003 | | .CONST 0x0003 ; Number of locals
00b3 INIT_00b0:
00b3 e007 | | Load 0x0,0x7
00b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b5 0322 | " | Declare_Variable Record
00b6 e602 | | Load 0x3,0x2
00b7 e007 | | Load 0x0,0x7
00b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ba 00d9 | | Load_Top At_Offset_1
00bb 017d | } | Execute Record,Structure_Write
00bc 4801 |H | Short_Literal 0x1
00bd 00d9 | | Load_Top At_Offset_1
00be 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00bf 4803 |H | Short_Literal 0x3
00c0 0271 | q | Execute Discrete,Times
00c1 00d8 | | Load_Top At_Offset_0
00c2 00e2 | | Load_Encached Integer_Cache
00c3 0260 | ` | Execute Discrete,In_Type
00c4 7001 |p | Jump_Nonzero 0xc6
00c5 0801 | | Execute_Immediate Raise,0x1
00c6 00e9 | | Load_Encached String_Cache
00c7 035b | [ | Declare_Type Array,Constrained
00c8 0337 | 7 | Declare_Variable Array
00c9 00d8 | | Load_Top At_Offset_0
00ca 0335 | 5 | Declare_Variable Array,Duplicate
00cb 00cd | | Action Spare6_Action
00cc 00d9 | | Load_Top At_Offset_1
00cd 01d9 | | Execute Vector,Reverse_Bounds
00ce 0263 | c | Execute Discrete,Above_Bound
00cf 7005 |p | Jump_Nonzero 0xd5
00d0 4820 |H | Short_Literal 0x20
00d1 00d9 | | Load_Top At_Offset_1
00d2 e804 | | Load 0x4,0x4
00d3 01d6 | | Execute Vector,Field_Write
00d4 3ffb |? | Loop_Increasing 0xd0
00d5 00d9 | | Load_Top At_Offset_1
00d6 01d4 | | Execute Vector,Structure_Write
00d7 BODY_00b0:
00d7 00d8 | | Load_Top At_Offset_0
00d8 00da | | Load_Top At_Offset_2
00d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00da 8210 | | Call 0x1,0x10
00db 01cc | | Execute Vector,Catenate
00dc e00c | | Load 0x0,0xc
00dd 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00de 00d9 | | Load_Top At_Offset_1
00df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e0 6804 |h | Jump_Zero 0xe5
00e1 4801 |H | Short_Literal 0x1
00e2 e00c | | Load 0x0,0xc
00e3 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e5 0092 00f0 | | Action Push_String_Extended,0xf0 ; " (see above)"
00e7 e00c | | Load 0x0,0xc
00e8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ea ; --------------------------------------------------------------------------------------
00ea ; STRING TABLE
00ea ; --------------------------------------------------------------------------------------
00ea 0010 | | .STRTAB 0x0010->0x00f2 ; "[Call_Trees.List (These_Objects => "
00eb 0031 | 1 | .STRTAB 0x0031->0x0103 ; ")]"
00ec 0031 | 1 | .STRTAB 0x0031->0x0104 ; "ERROR: "
00ed 0036 | 6 | .STRTAB 0x0036->0x0108 ; " does not resolve to any Ada program element"
00ee 0060 | ` | .STRTAB 0x0060->0x011e ; "[Call_Trees.List terminated]"
00ef 007a | z | .STRTAB 0x007a->0x012c ; ":"
00f0 0079 | y | .STRTAB 0x0079->0x012c ; " (see above)"
00f1 0084 | | .STREND 0x0084->0x0133
00f2 5b43 616c |[Cal| .STRTAB_STRINGS
0133 0000 0000 | | .BLANK 0000[0x5]
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug Table
0138 ; --------------------------------------------------------------------------------------
0138 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2eb6,0x0000,0x0001,0x0004
013e 000b 014e | N| .DBG4T 0x000b,0x014e,0x0001,0x4000
0142 005b 0164 | [ d| .DBG4T 0x005b,0x0164,0x0001,0x4000
0146 007b 016f | { o| .DBG4T 0x007b,0x016f,0x0004,0x0000
014a 00b3 0179 | y| .DBG4T 0x00b3,0x0179,0x0004,0x0000
014e ; --------------------------------------------------------------------------------------
014e ; Debug chain
014e ; --------------------------------------------------------------------------------------
014e 0002 0009 | | .DBGLEN 0x0002,0x0009
0150 000b 0015 | | .DBGLNO 0x000b,0x0015,0x0019,0x0025,0x0028,0x002c,0x0030,0x003f,0x0040,0x0045,0x004a
015b 0001 0002 | | .XXX[0x9]
015d 0003 0004 | |
015f 0005 0007 | |
0161 0008 0006 | |
0163 0009 | |
0164 ; --------------------------------------------------------------------------------------
0164 ; Debug chain
0164 ; --------------------------------------------------------------------------------------
0164 0001 0004 | | .DBGLEN 0x0001,0x0004
0166 005b 0064 | [ d| .DBGLNO 0x005b,0x0064,0x006b,0x006c,0x0072
016b 0001 0003 | | .XXX[0x4]
016d 0004 0002 | |
016f ; --------------------------------------------------------------------------------------
016f ; Debug chain
016f ; --------------------------------------------------------------------------------------
016f 0002 0006 | | .DBGLEN 0x0002,0x0006
0171 007b 0082 | { | .DBGLNO 0x007b,0x0082,0x0093,0x009a,0x009d,0x00a1,0x00a4,0x00a7
0179 ; --------------------------------------------------------------------------------------
0179 ; Debug chain
0179 ; --------------------------------------------------------------------------------------
0179 0002 0004 | | .DBGLEN 0x0002,0x0004
017b 00b3 00bc | | .DBGLNO 0x00b3,0x00bc,0x00d7,0x00de,0x00e1,0x00e5
0181 0000 0000 | | .BLANK 0000[0x7f]