|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 00f8 | | .CONST 0x00f8 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 002f | / | .CONST 0x002f ; Address of begin
0019 0049 | I | .CONST 0x0049 ; Address of exception handler
001a 0008 | | .CONST 0x0008 ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
001c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
001d 02c7 | | Declare_Variable Any
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e002 | | Load 0x0,0x2
0021 1b8f | | Execute Package,Field_Read,Field_Number 0x8f
0022 02ff | | Declare_Variable Variant_Record
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 e003 | | Load 0x0,0x3
0026 02ab | | Declare_Subprogram For_Call,With_Address
0027 e004 | | Load 0x0,0x4
0028 02ab | | Declare_Subprogram For_Call,With_Address
0029 e005 | | Load 0x0,0x5
002a 02ab | | Declare_Subprogram For_Call,With_Address
002b e006 | | Load 0x0,0x6
002c 02ab | | Declare_Subprogram For_Call,With_Address
002d e007 | | Load 0x0,0x7
002e 02ab | | Declare_Subprogram For_Call,With_Address
002f BODY_0018:
002f e5fc | | Load 0x2,-0x4
0030 e008 | | Load 0x0,0x8
0031 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0032 c5fc | | Store 0x2,-0x4
0033 e5fd | | Load 0x2,-0x3
0034 e5fe | | Load 0x2,-0x2
0035 e5ff | | Load 0x2,-0x1
0036 e002 | | Load 0x0,0x2
0037 1877 | w | Execute Package,Field_Execute,Field_Number 0x77
0038 e002 | | Load 0x0,0x2
0039 1819 | | Execute Package,Field_Execute,Field_Number 0x19
003a c402 | | Store 0x2,0x2
003b 8404 | | Call 0x2,0x4
003c 8405 | | Call 0x2,0x5
003d 8406 | | Call 0x2,0x6
003e 8407 | | Call 0x2,0x7
003f 8408 | | Call 0x2,0x8
0040 00ea | | Load_Encached Null_String_Cache
0041 e002 | | Load 0x0,0x2
0042 1b90 | | Execute Package,Field_Read,Field_Number 0x90
0043 4805 |H | Short_Literal 0x5
0044 e002 | | Load 0x0,0x2
0045 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0046 e002 | | Load 0x0,0x2
0047 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0048 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0049 TRAP_0018:
0049 e002 | | Load 0x0,0x2
004a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
004b 010f | | Execute Exception,Equal
004c 6804 |h | Jump_Zero 0x51
004d e002 | | Load 0x0,0x2
004e 1879 | y | Execute Package,Field_Execute,Field_Number 0x79
004f c5fc | | Store 0x2,-0x4
0050 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0051 e009 | | Load 0x0,0x9
0052 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
0053 010f | | Execute Exception,Equal
0054 6810 |h | Jump_Zero 0x65
0055 e009 | | Load 0x0,0x9
0056 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0057 c5fc | | Store 0x2,-0x4
0058 4800 |H | Short_Literal 0x0
0059 4800 |H | Short_Literal 0x0
005a 4807 |H | Short_Literal 0x7
005b e5fc | | Load 0x2,-0x4
005c 0092 00a4 | | Action Push_String_Extended,0xa4 ; "Ada Program query failed."
005e e002 | | Load 0x0,0x2
005f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0060 e002 | | Load 0x0,0x2
0061 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0062 e002 | | Load 0x0,0x2
0063 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0064 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0065 e001 | | Load 0x0,0x1
0066 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0067 010f | | Execute Exception,Equal
0068 6813 |h | Jump_Zero 0x7c
0069 e5fc | | Load 0x2,-0x4
006a e002 | | Load 0x0,0x2
006b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
006c e001 | | Load 0x0,0x1
006d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
006e c5fc | | Store 0x2,-0x4
006f 4800 |H | Short_Literal 0x0
0070 4800 |H | Short_Literal 0x0
0071 4807 |H | Short_Literal 0x7
0072 e5fc | | Load 0x2,-0x4
0073 0092 00a5 | | Action Push_String_Extended,0xa5 ; "Abstract Document generation failed."
0075 e002 | | Load 0x0,0x2
0076 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0077 e002 | | Load 0x0,0x2
0078 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0079 e002 | | Load 0x0,0x2
007a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
007b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
007c e009 | | Load 0x0,0x9
007d 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
007e 010f | | Execute Exception,Equal
007f 6810 |h | Jump_Zero 0x90
0080 e009 | | Load 0x0,0x9
0081 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0082 c5fc | | Store 0x2,-0x4
0083 4800 |H | Short_Literal 0x0
0084 4800 |H | Short_Literal 0x0
0085 4807 |H | Short_Literal 0x7
0086 e5fc | | Load 0x2,-0x4
0087 0092 00a6 | | Action Push_String_Extended,0xa6 ; "Internal Error, Inappropriate Program Element."
0089 e002 | | Load 0x0,0x2
008a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
008b e002 | | Load 0x0,0x2
008c 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
008d e002 | | Load 0x0,0x2
008e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
008f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0090 e5fc | | Load 0x2,-0x4
0091 e008 | | Load 0x0,0x8
0092 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0093 e008 | | Load 0x0,0x8
0094 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0095 e008 | | Load 0x0,0x8
0096 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0097 c5fc | | Store 0x2,-0x4
0098 4800 |H | Short_Literal 0x0
0099 4800 |H | Short_Literal 0x0
009a 4808 |H | Short_Literal 0x8
009b 0092 00a7 | | Action Push_String_Extended,0xa7 ; "Internal Error, Unexpected exception"
009d e002 | | Load 0x0,0x2
009e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009f e002 | | Load 0x0,0x2
00a0 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
00a1 e002 | | Load 0x0,0x2
00a2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00a4 ; --------------------------------------------------------------------------------------
00a4 ; STRING TABLE
00a4 ; --------------------------------------------------------------------------------------
00a4 000a | | .STRTAB 0x000a->0x00a9 ; "Ada Program query failed."
00a5 0021 | ! | .STRTAB 0x0021->0x00b5 ; "Abstract Document generation failed."
00a6 0043 | C | .STRTAB 0x0043->0x00c7 ; "Internal Error, Inappropriate Program Element."
00a7 006f | o | .STRTAB 0x006f->0x00de ; "Internal Error, Unexpected exception"
00a8 0091 | | .STREND 0x0091->0x00f0
00a9 4164 6120 |Ada | .STRTAB_STRINGS
00f1 0000 0000 | | .BLANK 0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; Debug Table
00f8 ; --------------------------------------------------------------------------------------
00f8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfca2,0x0000,0x0001,0x0000
00fe 0d1d 0614 | | .XXX[0x102]
0100 26a5 a974 |& t|
0102 2ea6 6cb6 |. l |
0104 065d 2217 | ]" |
0106 d2cd fc29 | )|
0108 ce5c 46a6 | \F |
010a fcb6 225f | "_|
010c 8ae4 56a4 | V |
010e 1aa4 4ea4 | N |
0110 82a7 0d1b | |
0112 24b6 08b8 |$ |
0114 6ea5 8a14 |n |
0116 76a6 1177 |v w|
0118 cee5 9e14 | |
011a 8aa7 5cb4 | \ |
011c a2a4 6828 | h(|
011e 9aa5 9617 | |
0120 eee5 8c29 | )|
0122 a216 4d75 | Mu|
0124 4e47 eee6 |NG |
0126 965d ba14 | ] |
0128 c2a4 76d3 | v |
012a 46e4 02ea |F |
012c ae5f 8cb4 | _ |
012e d6a6 dd76 | v|
0130 be5e 9574 | ^ t|
0132 a2d1 f032 | 2|
0134 d25e ad74 | ^ t|
0136 75ca 0614 |u |
0138 81ca 1215 | |
013a 4c29 16a7 |L) |
013c 065c daa6 | \ |
013e e577 025e | w ^|
0140 f175 f033 | u 3|
0142 0e5d 36a4 | ]6 |
0144 68ba 8615 |h |
0146 4aa4 802d |J -|
0148 52a7 5977 |R Yw|
014a ae5f 3e5d | _>]|
014c 62a5 dd1d |b |
014e e51f 525c | R\|
0150 f005 01c9 | |
0152 7ea5 56a5 |~ V |
0154 caa4 751f | u |
0156 6574 b521 |et !|
0158 96a6 ee15 | |
015a 9ea7 9e5f | _|
015c 8a5e 311e | ^1 |
015e 75b3 7e5d |u ~]|
0160 b6a7 a25e | ^|
0162 e617 7e5d | ~]|
0164 d2a6 1d1b | |
0166 be5d aaa4 | ] |
0168 90bb ce5d | ]|
016a 79c9 eaa7 |y |
016c de5d f2a5 | ] |
016e 12e9 faa7 | |
0170 f65f 3215 | _2 |
0172 8120 0661 | a|
0174 a51e 16a6 | |
0176 1ea4 1e63 | c|
0178 ee5f 2615 | _& |
017a 42a7 fc2a |B *|
017c 2ea5 9614 |. |
017e 3263 0d77 |2c w|
0180 7216 48b4 |r H |
0182 417a 4aa5 |AzJ |
0184 691f 8614 |i |
0186 e107 8e16 | |
0188 62a6 0cb8 |b |
018a 6a63 fc2a |jc *|
018c 88bb ae16 | |
018e 7aa7 b614 |z |
0190 8260 6e60 | `n`|
0192 fc30 8d7a | 0 z|
0194 55cb ce14 |U |
0196 261a a2a5 |& |
0198 4d76 aaa7 |Mv |
019a ea16 a42f | /|
019c f214 ca60 | `|
019e c57b fe14 | { |
01a0 d978 c663 | x c|
01a2 e818 c578 | x|
01a4 d262 dea4 | b |
01a6 f578 e260 | x `|
01a8 60b4 ea63 |` c|
01aa ec2c f260 | , `|
01ac 702e fea4 |p. |
01ae fe62 f6a7 | b |
01b0 0aa4 4828 | H(|
01b2 521b 16a5 |R |
01b4 3d78 5e19 |=x^ |
01b6 1e60 0521 | ` !|
01b8 b4b7 32a6 | 2 |
01ba 42eb 3aa6 |B : |
01bc 3903 42a4 |9 B |
01be 52a0 702f |R p/|
01c0 4ea4 b523 |N #|
01c2 56a7 76a7 |V v |
01c4 5ea7 71fe |^ q |
01c6 402d c0b8 |@- |
01c8 aa1b 1dca | |
01ca 8aeb 50b9 | P |
01cc 7260 be1b |r` |
01ce 86a4 7d23 | }#|
01d0 8ea6 25cb | % |
01d2 96a7 6dc8 | m |
01d4 de1b b2dd | |
01d6 9660 ee19 | ` |
01d8 e113 8dc8 | |
01da f5b3 cea6 | |
01dc dd75 c263 | u c|
01de c6a4 9a93 | |
01e0 95c9 d261 | a|
01e2 e033 daa6 | 3 |
01e4 4179 e263 |Ay c|
01e6 c5cb eea4 | |
01e8 24bd 3a18 |$ : |
01ea 48bc 1ea9 |H |
01ec 5a19 2a18 |Z * |
01ee 0aa9 7618 | v |
01f0 12a9 7e1a | ~ |
01f2 1a63 2ae9 | c* |
01f4 7a1a 0579 |z y|
01f6 721a 48b4 |r H |
01f8 22ab b42c |" ,|
01fa 3aaa b029 |: )|
01fc 52d4 2d1d |R - |
01fe 9a18 2dcc | - |