|
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_07c0c9
└─⟦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 0118 | | .CONST 0x0118 ; 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 003d | = | .CONST 0x003d ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000b | | .CONST 0x000b ; Number of locals 001b INIT_0018: 001b 8002 | | Call 0x0,0x2 001c 8002 | | Call 0x0,0x2 001d e003 | | Load 0x0,0x3 001e 0322 | " | Declare_Variable Record 001f 00d8 | | Load_Top At_Offset_0 0020 1c00 | | Execute_Immediate Run_Utility,0x0 0021 00d8 | | Load_Top At_Offset_0 0022 0322 | " | Declare_Variable Record 0023 00d8 | | Load_Top At_Offset_0 0024 1c00 | | Execute_Immediate Run_Utility,0x0 0025 00d8 | | Load_Top At_Offset_0 0026 0322 | " | Declare_Variable Record 0027 00d8 | | Load_Top At_Offset_0 0028 1c00 | | Execute_Immediate Run_Utility,0x0 0029 00d8 | | Load_Top At_Offset_0 002a 0322 | " | Declare_Variable Record 002b 00d8 | | Load_Top At_Offset_0 002c 1c00 | | Execute_Immediate Run_Utility,0x0 002d 00d8 | | Load_Top At_Offset_0 002e 0322 | " | Declare_Variable Record 002f 00d8 | | Load_Top At_Offset_0 0030 1c00 | | Execute_Immediate Run_Utility,0x0 0031 00d8 | | Load_Top At_Offset_0 0032 0322 | " | Declare_Variable Record 0033 00d8 | | Load_Top At_Offset_0 0034 1c00 | | Execute_Immediate Run_Utility,0x0 0035 00d8 | | Load_Top At_Offset_0 0036 0322 | " | Declare_Variable Record 0037 00d8 | | Load_Top At_Offset_0 0038 1c00 | | Execute_Immediate Run_Utility,0x0 0039 e004 | | Load 0x0,0x4 003a 0337 | 7 | Declare_Variable Array 003b 00d8 | | Load_Top At_Offset_0 003c 1c00 | | Execute_Immediate Run_Utility,0x0 003d BODY_0018: 003d e404 | | Load 0x2,0x4 003e 48ff |H | Short_Literal 0xff 003f 0092 00f3 | | Action Push_String_Extended,0xf3 ; "1" 0041 e005 | | Load 0x0,0x5 0042 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0043 e006 | | Load 0x0,0x6 0044 0162 | b | Execute Variant_Record,Check_In_Type 0045 48ff |H | Short_Literal 0xff 0046 0092 00f4 | | Action Push_String_Extended,0xf4 ; "entier" 0048 e005 | | Load 0x0,0x5 0049 1815 | | Execute Package,Field_Execute,Field_Number 0x15 004a e006 | | Load 0x0,0x6 004b 0162 | b | Execute Variant_Record,Check_In_Type 004c 48ff |H | Short_Literal 0xff 004d 0092 00f5 | | Action Push_String_Extended,0xf5 ; "m" 004f e005 | | Load 0x0,0x5 0050 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0051 e006 | | Load 0x0,0x6 0052 0162 | b | Execute Variant_Record,Check_In_Type 0053 8007 | | Call 0x0,0x7 0054 00d1 | | Pop_Control Pop_Count_1 0055 e405 | | Load 0x2,0x5 0056 48ff |H | Short_Literal 0xff 0057 0092 00f3 | | Action Push_String_Extended,0xf3 ; "1" 0059 e005 | | Load 0x0,0x5 005a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 005b e006 | | Load 0x0,0x6 005c 0162 | b | Execute Variant_Record,Check_In_Type 005d 48ff |H | Short_Literal 0xff 005e 0092 00f4 | | Action Push_String_Extended,0xf4 ; "entier" 0060 e005 | | Load 0x0,0x5 0061 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0062 e006 | | Load 0x0,0x6 0063 0162 | b | Execute Variant_Record,Check_In_Type 0064 48ff |H | Short_Literal 0xff 0065 0092 00f6 | | Action Push_String_Extended,0xf6 ; "m11" 0067 e005 | | Load 0x0,0x5 0068 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0069 e006 | | Load 0x0,0x6 006a 0162 | b | Execute Variant_Record,Check_In_Type 006b 8007 | | Call 0x0,0x7 006c 00d1 | | Pop_Control Pop_Count_1 006d e406 | | Load 0x2,0x6 006e 48ff |H | Short_Literal 0xff 006f 0092 00f3 | | Action Push_String_Extended,0xf3 ; "1" 0071 e005 | | Load 0x0,0x5 0072 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0073 e006 | | Load 0x0,0x6 0074 0162 | b | Execute Variant_Record,Check_In_Type 0075 48ff |H | Short_Literal 0xff 0076 0092 00f4 | | Action Push_String_Extended,0xf4 ; "entier" 0078 e005 | | Load 0x0,0x5 0079 1815 | | Execute Package,Field_Execute,Field_Number 0x15 007a e006 | | Load 0x0,0x6 007b 0162 | b | Execute Variant_Record,Check_In_Type 007c 48ff |H | Short_Literal 0xff 007d 0092 00f7 | | Action Push_String_Extended,0xf7 ; "m12" 007f e005 | | Load 0x0,0x5 0080 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0081 e006 | | Load 0x0,0x6 0082 0162 | b | Execute Variant_Record,Check_In_Type 0083 8007 | | Call 0x0,0x7 0084 00d1 | | Pop_Control Pop_Count_1 0085 e407 | | Load 0x2,0x7 0086 48ff |H | Short_Literal 0xff 0087 0092 00f3 | | Action Push_String_Extended,0xf3 ; "1" 0089 e005 | | Load 0x0,0x5 008a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 008b e006 | | Load 0x0,0x6 008c 0162 | b | Execute Variant_Record,Check_In_Type 008d 48ff |H | Short_Literal 0xff 008e 0092 00f8 | | Action Push_String_Extended,0xf8 ; "ent13" 0090 e005 | | Load 0x0,0x5 0091 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0092 e006 | | Load 0x0,0x6 0093 0162 | b | Execute Variant_Record,Check_In_Type 0094 48ff |H | Short_Literal 0xff 0095 0092 00f5 | | Action Push_String_Extended,0xf5 ; "m" 0097 e005 | | Load 0x0,0x5 0098 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0099 e006 | | Load 0x0,0x6 009a 0162 | b | Execute Variant_Record,Check_In_Type 009b 8007 | | Call 0x0,0x7 009c 00d1 | | Pop_Control Pop_Count_1 009d 00db | | Load_Top At_Offset_3 009e 48ff |H | Short_Literal 0xff 009f 0092 00f3 | | Action Push_String_Extended,0xf3 ; "1" 00a1 e005 | | Load 0x0,0x5 00a2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a3 e006 | | Load 0x0,0x6 00a4 0162 | b | Execute Variant_Record,Check_In_Type 00a5 48ff |H | Short_Literal 0xff 00a6 0092 00f9 | | Action Push_String_Extended,0xf9 ; "ent14" 00a8 e005 | | Load 0x0,0x5 00a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00aa e006 | | Load 0x0,0x6 00ab 0162 | b | Execute Variant_Record,Check_In_Type 00ac 48ff |H | Short_Literal 0xff 00ad 0092 00f5 | | Action Push_String_Extended,0xf5 ; "m" 00af e005 | | Load 0x0,0x5 00b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b1 e006 | | Load 0x0,0x6 00b2 0162 | b | Execute Variant_Record,Check_In_Type 00b3 8007 | | Call 0x0,0x7 00b4 00d1 | | Pop_Control Pop_Count_1 00b5 00da | | Load_Top At_Offset_2 00b6 48ff |H | Short_Literal 0xff 00b7 0092 00f3 | | Action Push_String_Extended,0xf3 ; "1" 00b9 e005 | | Load 0x0,0x5 00ba 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00bb e006 | | Load 0x0,0x6 00bc 0162 | b | Execute Variant_Record,Check_In_Type 00bd 48ff |H | Short_Literal 0xff 00be 0092 00fa | | Action Push_String_Extended,0xfa ; "ent15" 00c0 e005 | | Load 0x0,0x5 00c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c2 e006 | | Load 0x0,0x6 00c3 0162 | b | Execute Variant_Record,Check_In_Type 00c4 48ff |H | Short_Literal 0xff 00c5 0092 00fb | | Action Push_String_Extended,0xfb ; "ml" 00c7 e005 | | Load 0x0,0x5 00c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c9 e006 | | Load 0x0,0x6 00ca 0162 | b | Execute Variant_Record,Check_In_Type 00cb 8007 | | Call 0x0,0x7 00cc 00d1 | | Pop_Control Pop_Count_1 00cd e402 | | Load 0x2,0x2 00ce e404 | | Load 0x2,0x4 00cf 8008 | | Call 0x0,0x8 00d0 c402 | | Store 0x2,0x2 00d1 e402 | | Load 0x2,0x2 00d2 e405 | | Load 0x2,0x5 00d3 8008 | | Call 0x0,0x8 00d4 c402 | | Store 0x2,0x2 00d5 e402 | | Load 0x2,0x2 00d6 e406 | | Load 0x2,0x6 00d7 8008 | | Call 0x0,0x8 00d8 c402 | | Store 0x2,0x2 00d9 e402 | | Load 0x2,0x2 00da e407 | | Load 0x2,0x7 00db 8008 | | Call 0x0,0x8 00dc c402 | | Store 0x2,0x2 00dd e402 | | Load 0x2,0x2 00de e408 | | Load 0x2,0x8 00df 8008 | | Call 0x0,0x8 00e0 c402 | | Store 0x2,0x2 00e1 e402 | | Load 0x2,0x2 00e2 00db | | Load_Top At_Offset_3 00e3 8008 | | Call 0x0,0x8 00e4 c402 | | Store 0x2,0x2 00e5 e402 | | Load 0x2,0x2 00e6 8009 | | Call 0x0,0x9 00e7 e402 | | Load 0x2,0x2 00e8 e404 | | Load 0x2,0x4 00e9 800a | | Call 0x0,0xa 00ea 00d1 | | Pop_Control Pop_Count_1 00eb c402 | | Store 0x2,0x2 00ec e402 | | Load 0x2,0x2 00ed 8009 | | Call 0x0,0x9 00ee 0092 00fc | | Action Push_String_Extended,0xfc ; "Termine" 00f0 e00b | | Load 0x0,0xb 00f1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f3 ; -------------------------------------------------------------------------------------- 00f3 ; STRING TABLE 00f3 ; -------------------------------------------------------------------------------------- 00f3 0016 | | .STRTAB 0x0016->0x00fe ; "1" 00f4 0015 | | .STRTAB 0x0015->0x00fe ; "entier" 00f5 0019 | | .STRTAB 0x0019->0x0101 ; "m" 00f6 0018 | | .STRTAB 0x0018->0x0102 ; "m11" 00f7 0019 | | .STRTAB 0x0019->0x0103 ; "m12" 00f8 001a | | .STRTAB 0x001a->0x0105 ; "ent13" 00f9 001d | | .STRTAB 0x001d->0x0107 ; "ent14" 00fa 0020 | | .STRTAB 0x0020->0x010a ; "ent15" 00fb 0023 | # | .STRTAB 0x0023->0x010c ; "ml" 00fc 0023 | # | .STRTAB 0x0023->0x010d ; "Termine" 00fd 0028 | ( | .STREND 0x0028->0x0111 00fe 3165 6e74 |1ent| .STRTAB_STRINGS 0111 0000 0000 | | .BLANK 0000[0x7] 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug Table 0118 ; -------------------------------------------------------------------------------------- 0118 0004 000a | | .DEBUG4 0x0004,0x000a,0x0719,0x0000,0x0001,0x0002 011e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 0122 001b 0126 | &| .DBG4T 0x001b,0x0126,0x8001,0x0000 0126 ; -------------------------------------------------------------------------------------- 0126 ; Debug chain 0126 ; -------------------------------------------------------------------------------------- 0126 0004 0010 | | .DBGLEN 0x0004,0x0010 0128 001b 001c | | .DBGLNO 0x001b,0x001c,0x001d,0x0039,0x003d,0x0055,0x006d,0x0085,0x009d,0x00b5,0x00cd,0x00d1,0x00d5,0x00d9,0x00dd,0x00e1,0x00e5,0x00e7,0x00ec,0x00ee 013c 0000 0000 | | .BLANK 0000[0xc4]