|
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_1720c7
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 00a3 | | Declare_Subprogram INIT_00a0,For_Call
001d BODY_0018:
001d 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
001f 0092 00c0 | | Action Push_String_Extended,0xc0 ; "instruc.ads"
0021 0092 00c1 | | Action Push_String_Extended,0xc1 ; "Instructions'SPEC"
0023 8402 | | Call 0x2,0x2
0024 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
0026 0092 00c2 | | Action Push_String_Extended,0xc2 ; "instruc.adb"
0028 0092 00c3 | | Action Push_String_Extended,0xc3 ; "Instructions'BODY"
002a 8402 | | Call 0x2,0x2
002b 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
002d 0092 00c4 | | Action Push_String_Extended,0xc4 ; "main.ads"
002f 0092 00c5 | | Action Push_String_Extended,0xc5 ; "Main'SPEC"
0031 8402 | | Call 0x2,0x2
0032 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
0034 0092 00c6 | | Action Push_String_Extended,0xc6 ; "main.adb"
0036 0092 00c7 | | Action Push_String_Extended,0xc7 ; "Main'BODY"
0038 8402 | | Call 0x2,0x2
0039 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
003b 0092 00c8 | | Action Push_String_Extended,0xc8 ; "our_inst.ads"
003d 0092 00c9 | | Action Push_String_Extended,0xc9 ; "Our_Inst'SPEC"
003f 8402 | | Call 0x2,0x2
0040 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
0042 0092 00ca | | Action Push_String_Extended,0xca ; "our_inst.adb"
0044 0092 00cb | | Action Push_String_Extended,0xcb ; "Our_Inst'BODY"
0046 8402 | | Call 0x2,0x2
0047 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
0049 0092 00cc | | Action Push_String_Extended,0xcc ; "our_list.ads"
004b 0092 00cd | | Action Push_String_Extended,0xcd ; "Our_List'SPEC"
004d 8402 | | Call 0x2,0x2
004e 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
0050 0092 00ce | | Action Push_String_Extended,0xce ; "our_list.adb"
0052 0092 00cf | | Action Push_String_Extended,0xcf ; "Our_List'BODY"
0054 8402 | | Call 0x2,0x2
0055 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
0057 0092 00d0 | | Action Push_String_Extended,0xd0 ; "p_list.ads"
0059 0092 00d1 | | Action Push_String_Extended,0xd1 ; "P_List'SPEC"
005b 8402 | | Call 0x2,0x2
005c 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
005e 0092 00d2 | | Action Push_String_Extended,0xd2 ; "p_list.adb"
0060 0092 00d3 | | Action Push_String_Extended,0xd3 ; "P_List'BODY"
0062 8402 | | Call 0x2,0x2
0063 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
0065 0092 00d4 | | Action Push_String_Extended,0xd4 ; "q_list.ads"
0067 0092 00d5 | | Action Push_String_Extended,0xd5 ; "Q_List'SPEC"
0069 8402 | | Call 0x2,0x2
006a 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
006c 0092 00d6 | | Action Push_String_Extended,0xd6 ; "q_list.adb"
006e 0092 00d7 | | Action Push_String_Extended,0xd7 ; "Q_List'BODY"
0070 8402 | | Call 0x2,0x2
0071 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
0073 0092 00d8 | | Action Push_String_Extended,0xd8 ; "variabl.ads"
0075 0092 00d9 | | Action Push_String_Extended,0xd9 ; "Variables'SPEC"
0077 8402 | | Call 0x2,0x2
0078 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
007a 0092 00da | | Action Push_String_Extended,0xda ; "variabl.adb"
007c 0092 00db | | Action Push_String_Extended,0xdb ; "Variables'BODY"
007e 8402 | | Call 0x2,0x2
007f 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
0081 0092 00dc | | Action Push_String_Extended,0xdc ; "verbs.ads"
0083 0092 00dd | | Action Push_String_Extended,0xdd ; "Verbs'SPEC"
0085 8402 | | Call 0x2,0x2
0086 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
0088 0092 00de | | Action Push_String_Extended,0xde ; "verbs.adb"
008a 0092 00df | | Action Push_String_Extended,0xdf ; "Verbs'BODY"
008c 8402 | | Call 0x2,0x2
008d 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
008f 0092 00e0 | | Action Push_String_Extended,0xe0 ; "stunix5.ads"
0091 0092 00e1 | | Action Push_String_Extended,0xe1 ; "Stunix5'SPEC"
0093 8402 | | Call 0x2,0x2
0094 0092 00bf | | Action Push_String_Extended,0xbf ; "Belladone"
0096 0092 00e2 | | Action Push_String_Extended,0xe2 ; "stunix5.adb"
0098 0092 00e3 | | Action Push_String_Extended,0xe3 ; "Stunix5'BODY"
009a 8402 | | Call 0x2,0x2
009b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009c 0000 0000 | | .BLANK 0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 e002 | | Load 0x0,0x2
00a4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a5 e003 | | Load 0x0,0x3
00a6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a7 e003 | | Load 0x0,0x3
00a8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00a9 e003 | | Load 0x0,0x3
00aa 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00ab e003 | | Load 0x0,0x3
00ac 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ad 4800 |H | Short_Literal 0x0
00ae e003 | | Load 0x0,0x3
00af 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b0 e003 | | Load 0x0,0x3
00b1 180f | | Execute Package,Field_Execute,Field_Number 0xf
00b2 e003 | | Load 0x0,0x3
00b3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b4 0092 00e4 | | Action Push_String_Extended,0xe4 ; "bonovox"
00b6 0092 00e5 | | Action Push_String_Extended,0xe5 ; "lsi02"
00b8 0092 00e6 | | Action Push_String_Extended,0xe6 ; "belladone"
00ba e7fe | | Load 0x3,-0x2
00bb e7ff | | Load 0x3,-0x1
00bc e004 | | Load 0x0,0x4
00bd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00be 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00bf ; --------------------------------------------------------------------------------------
00bf ; STRING TABLE
00bf ; --------------------------------------------------------------------------------------
00bf 0052 | R | .STRTAB 0x0052->0x00e8 ; "Belladone"
00c0 0059 | Y | .STRTAB 0x0059->0x00ec ; "instruc.ads"
00c1 0062 | b | .STRTAB 0x0062->0x00f2 ; "Instructions'SPEC"
00c2 0071 | q | .STRTAB 0x0071->0x00fa ; "instruc.adb"
00c3 007a | z | .STRTAB 0x007a->0x0100 ; "Instructions'BODY"
00c4 0089 | | .STRTAB 0x0089->0x0108 ; "main.ads"
00c5 008f | | .STRTAB 0x008f->0x010c ; "Main'SPEC"
00c6 0096 | | .STRTAB 0x0096->0x0111 ; "main.adb"
00c7 009c | | .STRTAB 0x009c->0x0115 ; "Main'BODY"
00c8 00a3 | | .STRTAB 0x00a3->0x0119 ; "our_inst.ads"
00c9 00ad | | .STRTAB 0x00ad->0x011f ; "Our_Inst'SPEC"
00ca 00b8 | | .STRTAB 0x00b8->0x0126 ; "our_inst.adb"
00cb 00c2 | | .STRTAB 0x00c2->0x012c ; "Our_Inst'BODY"
00cc 00cd | | .STRTAB 0x00cd->0x0132 ; "our_list.ads"
00cd 00d7 | | .STRTAB 0x00d7->0x0138 ; "Our_List'SPEC"
00ce 00e2 | | .STRTAB 0x00e2->0x013f ; "our_list.adb"
00cf 00ec | | .STRTAB 0x00ec->0x0145 ; "Our_List'BODY"
00d0 00f7 | | .STRTAB 0x00f7->0x014b ; "p_list.ads"
00d1 00ff | | .STRTAB 0x00ff->0x0150 ; "P_List'SPEC"
00d2 0108 | | .STRTAB 0x0108->0x0156 ; "p_list.adb"
00d3 0110 | | .STRTAB 0x0110->0x015b ; "P_List'BODY"
00d4 0119 | | .STRTAB 0x0119->0x0160 ; "q_list.ads"
00d5 0121 | ! | .STRTAB 0x0121->0x0165 ; "Q_List'SPEC"
00d6 012a | * | .STRTAB 0x012a->0x016b ; "q_list.adb"
00d7 0132 | 2 | .STRTAB 0x0132->0x0170 ; "Q_List'BODY"
00d8 013b | ; | .STRTAB 0x013b->0x0175 ; "variabl.ads"
00d9 0144 | D | .STRTAB 0x0144->0x017b ; "Variables'SPEC"
00da 0150 | P | .STRTAB 0x0150->0x0182 ; "variabl.adb"
00db 0159 | Y | .STRTAB 0x0159->0x0187 ; "Variables'BODY"
00dc 0165 | e | .STRTAB 0x0165->0x018e ; "verbs.ads"
00dd 016c | l | .STRTAB 0x016c->0x0193 ; "Verbs'SPEC"
00de 0174 | t | .STRTAB 0x0174->0x0198 ; "verbs.adb"
00df 017b | { | .STRTAB 0x017b->0x019c ; "Verbs'BODY"
00e0 0183 | | .STRTAB 0x0183->0x01a1 ; "stunix5.ads"
00e1 018c | | .STRTAB 0x018c->0x01a7 ; "Stunix5'SPEC"
00e2 0196 | | .STRTAB 0x0196->0x01ad ; "stunix5.adb"
00e3 019f | | .STRTAB 0x019f->0x01b2 ; "Stunix5'BODY"
00e4 01a9 | | .STRTAB 0x01a9->0x01b8 ; "bonovox"
00e5 01ae | | .STRTAB 0x01ae->0x01bc ; "lsi02"
00e6 01b1 | | .STRTAB 0x01b1->0x01be ; "belladone"
00e7 01b8 | | .STREND 0x01b8->0x01c3
00e8 4265 6c6c |Bell| .STRTAB_STRINGS
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdb78,0x0000,0x0001,0x0003
01ce 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
01d2 001b 01da | | .DBG4T 0x001b,0x01da,0x8001,0x0000
01d6 00a3 01ef | | .DBG4T 0x00a3,0x01ef,0x0001,0x0000
01da ; --------------------------------------------------------------------------------------
01da ; Debug chain
01da ; --------------------------------------------------------------------------------------
01da 0001 0012 | | .DBGLEN 0x0001,0x0012
01dc 001b 001d | | .DBGLNO 0x001b,0x001d,0x0024,0x002b,0x0032,0x0039,0x0040,0x0047,0x004e,0x0055,0x005c,0x0063,0x006a,0x0071,0x0078,0x007f,0x0086,0x008d,0x0094
01ef ; --------------------------------------------------------------------------------------
01ef ; Debug chain
01ef ; --------------------------------------------------------------------------------------
01ef 0000 0001 | | .DBGLEN 0x0000,0x0001
01f1 00a3 | | .DBGLNO 0x00a3
01f2 0000 0000 | | .BLANK 0000[0xe]