|
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]