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