|
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_0410f8
└─⟦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 0110 | | .CONST 0x0110 ; 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 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 001d | | .CONST 0x001d ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0002 | | .CONST 0x0002 ; Number of locals 001b INIT_0018: 001b 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 001d BODY_0018: 001d 0092 0077 | w| Action Push_String_Extended,0x77 ; "Belladone" 001f 0092 0078 | x| Action Push_String_Extended,0x78 ; "lex_inte.ads" 0021 0092 0079 | y| Action Push_String_Extended,0x79 ; "lex_inter'SPEC" 0023 8402 | | Call 0x2,0x2 0024 0092 0077 | w| Action Push_String_Extended,0x77 ; "Belladone" 0026 0092 007a | z| Action Push_String_Extended,0x7a ; "lex_inte.adb" 0028 0092 007b | {| Action Push_String_Extended,0x7b ; "lex_inter'BODY" 002a 8402 | | Call 0x2,0x2 002b 0092 0077 | w| Action Push_String_Extended,0x77 ; "Belladone" 002d 0092 007c | || Action Push_String_Extended,0x7c ; "translat.ads" 002f 0092 007d | }| Action Push_String_Extended,0x7d ; "translator'SPEC" 0031 8402 | | Call 0x2,0x2 0032 0092 0077 | w| Action Push_String_Extended,0x77 ; "Belladone" 0034 0092 007e | ~| Action Push_String_Extended,0x7e ; "translat.adb" 0036 0092 007f | | Action Push_String_Extended,0x7f ; "translator'BODY" 0038 8402 | | Call 0x2,0x2 0039 0092 0077 | w| Action Push_String_Extended,0x77 ; "Belladone" 003b 0092 0080 | | Action Push_String_Extended,0x80 ; "test_in.ads" 003d 0092 0081 | | Action Push_String_Extended,0x81 ; "test_lex_inter'SPEC" 003f 8402 | | Call 0x2,0x2 0040 0092 0077 | w| Action Push_String_Extended,0x77 ; "Belladone" 0042 0092 0082 | | Action Push_String_Extended,0x82 ; "test_in.adb" 0044 0092 0083 | | Action Push_String_Extended,0x83 ; "test_lex_inter'BODY" 0046 8402 | | Call 0x2,0x2 0047 0092 0077 | w| Action Push_String_Extended,0x77 ; "Belladone" 0049 0092 0084 | | Action Push_String_Extended,0x84 ; "test_tr.ads" 004b 0092 0085 | | Action Push_String_Extended,0x85 ; "test_translator'SPEC" 004d 8402 | | Call 0x2,0x2 004e 0092 0077 | w| Action Push_String_Extended,0x77 ; "Belladone" 0050 0092 0086 | | Action Push_String_Extended,0x86 ; "test_tr.adb" 0052 0092 0087 | | Action Push_String_Extended,0x87 ; "test_translator'BODY" 0054 8402 | | Call 0x2,0x2 0055 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 e002 | | Load 0x0,0x2 005c 180e | | Execute Package,Field_Execute,Field_Number 0xe 005d e003 | | Load 0x0,0x3 005e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 005f e003 | | Load 0x0,0x3 0060 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0061 e003 | | Load 0x0,0x3 0062 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0063 e003 | | Load 0x0,0x3 0064 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0065 4800 |H | Short_Literal 0x0 0066 e003 | | Load 0x0,0x3 0067 180e | | Execute Package,Field_Execute,Field_Number 0xe 0068 e003 | | Load 0x0,0x3 0069 180f | | Execute Package,Field_Execute,Field_Number 0xf 006a e003 | | Load 0x0,0x3 006b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 006c 0092 0088 | | Action Push_String_Extended,0x88 ; "bonovox" 006e 0092 0089 | | Action Push_String_Extended,0x89 ; "lsi02" 0070 0092 008a | | Action Push_String_Extended,0x8a ; "belladone" 0072 e7fe | | Load 0x3,-0x2 0073 e7ff | | Load 0x3,-0x1 0074 e004 | | Load 0x0,0x4 0075 180e | | Execute Package,Field_Execute,Field_Number 0xe 0076 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0077 ; -------------------------------------------------------------------------------------- 0077 ; STRING TABLE 0077 ; -------------------------------------------------------------------------------------- 0077 002a | * | .STRTAB 0x002a->0x008c ; "Belladone" 0078 0031 | 1 | .STRTAB 0x0031->0x0090 ; "lex_inte.ads" 0079 003b | ; | .STRTAB 0x003b->0x0096 ; "lex_inter'SPEC" 007a 0047 | G | .STRTAB 0x0047->0x009d ; "lex_inte.adb" 007b 0051 | Q | .STRTAB 0x0051->0x00a3 ; "lex_inter'BODY" 007c 005d | ] | .STRTAB 0x005d->0x00aa ; "translat.ads" 007d 0067 | g | .STRTAB 0x0067->0x00b0 ; "translator'SPEC" 007e 0074 | t | .STRTAB 0x0074->0x00b8 ; "translat.adb" 007f 007e | ~ | .STRTAB 0x007e->0x00be ; "translator'BODY" 0080 008b | | .STRTAB 0x008b->0x00c5 ; "test_in.ads" 0081 0094 | | .STRTAB 0x0094->0x00cb ; "test_lex_inter'SPEC" 0082 00a5 | | .STRTAB 0x00a5->0x00d4 ; "test_in.adb" 0083 00ae | | .STRTAB 0x00ae->0x00da ; "test_lex_inter'BODY" 0084 00bf | | .STRTAB 0x00bf->0x00e3 ; "test_tr.ads" 0085 00c8 | | .STRTAB 0x00c8->0x00e9 ; "test_translator'SPEC" 0086 00da | | .STRTAB 0x00da->0x00f3 ; "test_tr.adb" 0087 00e3 | | .STRTAB 0x00e3->0x00f8 ; "test_translator'BODY" 0088 00f5 | | .STRTAB 0x00f5->0x0102 ; "bonovox" 0089 00fa | | .STRTAB 0x00fa->0x0106 ; "lsi02" 008a 00fd | | .STRTAB 0x00fd->0x0108 ; "belladone" 008b 0104 | | .STREND 0x0104->0x010d 008c 4265 6c6c |Bell| .STRTAB_STRINGS 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug Table 0110 ; -------------------------------------------------------------------------------------- 0110 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd981,0x0000,0x0001,0x0003 0116 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 011a 001b 0122 | "| .DBG4T 0x001b,0x0122,0x8001,0x0000 011e 005b 012d | [ -| .DBG4T 0x005b,0x012d,0x0001,0x0000 0122 ; -------------------------------------------------------------------------------------- 0122 ; Debug chain 0122 ; -------------------------------------------------------------------------------------- 0122 0001 0008 | | .DBGLEN 0x0001,0x0008 0124 001b 001d | | .DBGLNO 0x001b,0x001d,0x0024,0x002b,0x0032,0x0039,0x0040,0x0047,0x004e 012d ; -------------------------------------------------------------------------------------- 012d ; Debug chain 012d ; -------------------------------------------------------------------------------------- 012d 0000 0001 | | .DBGLEN 0x0000,0x0001 012f 005b | [ | .DBGLNO 0x005b 0130 0000 0000 | | .BLANK 0000[0xd0]