|
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_0340e4
└─⟦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 0160 | ` | .CONST 0x0160 ; 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 0059 | Y | .CONST 0x0059 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000b | | .CONST 0x000b ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c e002 | | Load 0x0,0x2 001d 4803 |H | Short_Literal 0x3 001e 0092 0104 | | Action Push_String_Extended,0x104 ; " " 0020 e003 | | Load 0x0,0x3 0021 0387 | | Declare_Variable Package 0022 00d8 | | Load_Top At_Offset_0 0023 020f | | Execute Module,Activate 0024 e004 | | Load 0x0,0x4 0025 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0026 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0027 02c7 | | Declare_Variable Any 0028 4800 |H | Short_Literal 0x0 0029 e004 | | Load 0x0,0x4 002a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 002c e5ff | | Load 0x2,-0x1 002d e004 | | Load 0x0,0x4 002e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0030 a403 | | Store_Unchecked 0x2,0x3 0031 e005 | | Load 0x0,0x5 0032 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0033 02c7 | | Declare_Variable Any 0034 00d8 | | Load_Top At_Offset_0 0035 1c00 | | Execute_Immediate Run_Utility,0x0 0036 e006 | | Load 0x0,0x6 0037 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0038 02c7 | | Declare_Variable Any 0039 00d8 | | Load_Top At_Offset_0 003a 1c00 | | Execute_Immediate Run_Utility,0x0 003b 4801 |H | Short_Literal 0x1 003c 4802 |H | Short_Literal 0x2 003d e402 | | Load 0x2,0x2 003e 1b18 | | Execute Package,Field_Read,Field_Number 0x18 003f 035b | [ | Declare_Type Array,Constrained 0040 0337 | 7 | Declare_Variable Array 0041 00d8 | | Load_Top At_Offset_0 0042 0335 | 5 | Declare_Variable Array,Duplicate 0043 00cd | | Action Spare6_Action 0044 4801 |H | Short_Literal 0x1 0045 4801 |H | Short_Literal 0x1 0046 00da | | Load_Top At_Offset_2 0047 01d6 | | Execute Vector,Field_Write 0048 4803 |H | Short_Literal 0x3 0049 4802 |H | Short_Literal 0x2 004a 00da | | Load_Top At_Offset_2 004b 01d6 | | Execute Vector,Field_Write 004c 00d9 | | Load_Top At_Offset_1 004d 01d4 | | Execute Vector,Structure_Write 004e 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 0050 a007 | | Store_Unchecked 0x0,0x7 0051 00c6 | | Action Check_Subprogram_Elaborated 0052 4807 |H | Short_Literal 0x7 0053 4802 |H | Short_Literal 0x2 0054 0099 | | Action Reference_Dynamic 0055 e008 | | Load 0x0,0x8 0056 e009 | | Load 0x0,0x9 0057 480b |H | Short_Literal 0xb 0058 0007 | | Action Break_Optional 0059 BODY_0018: 0059 e405 | | Load 0x2,0x5 005a e404 | | Load 0x2,0x4 005b e5fe | | Load 0x2,-0x2 005c 800a | | Call 0x0,0xa 005d c404 | | Store 0x2,0x4 005e c405 | | Store 0x2,0x5 005f 4800 |H | Short_Literal 0x0 0060 4800 |H | Short_Literal 0x0 0061 0092 0105 | | Action Push_String_Extended,0x105 ; "Enclosing World" 0063 e402 | | Load 0x2,0x2 0064 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0065 4800 |H | Short_Literal 0x0 0066 4800 |H | Short_Literal 0x0 0067 0092 0106 | | Action Push_String_Extended,0x106 ; "Unit" 0069 e402 | | Load 0x2,0x2 006a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 006b 4801 |H | Short_Literal 0x1 006c 4800 |H | Short_Literal 0x0 006d 0092 0107 | | Action Push_String_Extended,0x107 ; "Immediate Dependents" 006f e402 | | Load 0x2,0x2 0070 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0071 e403 | | Load 0x2,0x3 0072 4808 |H | Short_Literal 0x8 0073 4802 |H | Short_Literal 0x2 0074 0099 | | Action Reference_Dynamic 0075 4809 |H | Short_Literal 0x9 0076 4802 |H | Short_Literal 0x2 0077 0099 | | Action Reference_Dynamic 0078 8007 | | Call 0x0,0x7 0079 c403 | | Store 0x2,0x3 007a e406 | | Load 0x2,0x6 007b e402 | | Load 0x2,0x2 007c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 007d e405 | | Load 0x2,0x5 007e 0092 0108 | | Action Push_String_Extended,0x108 ; "Dependency information" 0080 e402 | | Load 0x2,0x2 0081 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0082 c405 | | Store 0x2,0x5 0083 e405 | | Load 0x2,0x5 0084 e006 | | Load 0x0,0x6 0085 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0086 c405 | | Store 0x2,0x5 0087 4801 |H | Short_Literal 0x1 0088 4800 |H | Short_Literal 0x0 0089 e5fe | | Load 0x2,-0x2 008a e00b | | Load 0x0,0xb 008b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 008c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 00a5 | | .CONST 0x00a5 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 e004 | | Load 0x0,0x4 0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0095 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0096 02c7 | | Declare_Variable Any 0097 00d8 | | Load_Top At_Offset_0 0098 1c00 | | Execute_Immediate Run_Utility,0x0 0099 e004 | | Load 0x0,0x4 009a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009c 02c7 | | Declare_Variable Any 009d 00d8 | | Load_Top At_Offset_0 009e 1c00 | | Execute_Immediate Run_Utility,0x0 009f e004 | | Load 0x0,0x4 00a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a2 02c7 | | Declare_Variable Any 00a3 00d8 | | Load_Top At_Offset_0 00a4 1c00 | | Execute_Immediate Run_Utility,0x0 00a5 BODY_0090: 00a5 e7ff | | Load 0x3,-0x1 00a6 e004 | | Load 0x0,0x4 00a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a9 c604 | | Store 0x3,0x4 00aa 00d8 | | Load_Top At_Offset_0 00ab e00c | | Load 0x0,0xc 00ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ad 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 00ae 681e |h | Jump_Zero 0xcd 00af 00d8 | | Load_Top At_Offset_0 00b0 e004 | | Load 0x0,0x4 00b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b3 c603 | | Store 0x3,0x3 00b4 0092 0109 | | Action Push_String_Extended,0x109 ; "Enclosing world or subystem" 00b6 e004 | | Load 0x0,0x4 00b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00b9 00da | | Load_Top At_Offset_2 00ba e00d | | Load 0x0,0xd 00bb 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00bc e00d | | Load 0x0,0xd 00bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00be e603 | | Load 0x3,0x3 00bf e004 | | Load 0x0,0x4 00c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c1 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00c2 0092 010a | | Action Push_String_Extended,0x10a ; "." 00c4 01cc | | Execute Vector,Catenate 00c5 e604 | | Load 0x3,0x4 00c6 e004 | | Load 0x0,0x4 00c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00c9 01cc | | Execute Vector,Catenate 00ca e402 | | Load 0x2,0x2 00cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cc 7810 |x | Jump 0xdd 00cd 0092 0109 | | Action Push_String_Extended,0x109 ; "Enclosing world or subystem" 00cf e004 | | Load 0x0,0x4 00d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00d2 00da | | Load_Top At_Offset_2 00d3 e00d | | Load 0x0,0xd 00d4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00d5 e00d | | Load 0x0,0xd 00d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d7 e604 | | Load 0x3,0x4 00d8 e004 | | Load 0x0,0x4 00d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00da 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00db e402 | | Load 0x2,0x2 00dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00dd 0092 010b | | Action Push_String_Extended,0x10b ; "Name of the Unit with dependencies" 00df e004 | | Load 0x0,0x4 00e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00e2 e7ff | | Load 0x3,-0x1 00e3 e00d | | Load 0x0,0xd 00e4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00e5 e00d | | Load 0x0,0xd 00e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e7 e7ff | | Load 0x3,-0x1 00e8 e004 | | Load 0x0,0x4 00e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ea 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00eb e402 | | Load 0x2,0x2 00ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ed e7ff | | Load 0x3,-0x1 00ee e004 | | Load 0x0,0x4 00ef 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00f0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00f1 c602 | | Store 0x3,0x2 00f2 0092 010c | | Action Push_String_Extended,0x10c ; "Immediate dependenceis of the Unit" 00f4 00db | | Load_Top At_Offset_3 00f5 e004 | | Load 0x0,0x4 00f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f8 e00d | | Load 0x0,0xd 00f9 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00fa e00d | | Load 0x0,0xd 00fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fc e602 | | Load 0x3,0x2 00fd e00e | | Load 0x0,0xe 00fe 180d | | Execute Package,Field_Execute,Field_Number 0xd 00ff 00e0 | | Load_Encached Standard_Cache 0100 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0101 e402 | | Load 0x2,0x2 0102 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0103 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0104 ; -------------------------------------------------------------------------------------- 0104 ; STRING TABLE 0104 ; -------------------------------------------------------------------------------------- 0104 0014 | | .STRTAB 0x0014->0x010e ; " " 0105 0013 | | .STRTAB 0x0013->0x010e ; "Enclosing World" 0106 0020 | | .STRTAB 0x0020->0x0116 ; "Unit" 0107 0022 | " | .STRTAB 0x0022->0x0118 ; "Immediate Dependents" 0108 0034 | 4 | .STRTAB 0x0034->0x0122 ; "Dependency information" 0109 0048 | H | .STRTAB 0x0048->0x012d ; "Enclosing world or subystem" 010a 0061 | a | .STRTAB 0x0061->0x013a ; "." 010b 0060 | ` | .STRTAB 0x0060->0x013b ; "Name of the Unit with dependencies" 010c 0080 | | .STRTAB 0x0080->0x014c ; "Immediate dependenceis of the Unit" 010d 00a0 | | .STREND 0x00a0->0x015d 010e 2045 6e63 | Enc| .STRTAB_STRINGS 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 0160 ; -------------------------------------------------------------------------------------- 0160 ; Debug Table 0160 ; -------------------------------------------------------------------------------------- 0160 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2eca,0x0000,0x0001,0x0003 0166 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 016a 001b 0172 | r| .DBG4T 0x001b,0x0172,0x8001,0x0000 016e 0093 0184 | | .DBG4T 0x0093,0x0184,0x0001,0x0000 0172 ; -------------------------------------------------------------------------------------- 0172 ; Debug chain 0172 ; -------------------------------------------------------------------------------------- 0172 0007 0009 | | .DBGLEN 0x0007,0x0009 0174 001b 0024 | $| .DBGLNO 0x001b,0x0024,0x0031,0x0036,0x003b,0x004e,0x0050,0x0059,0x005f,0x0065,0x006b,0x0071,0x007a,0x007d,0x0083,0x0087 0184 ; -------------------------------------------------------------------------------------- 0184 ; Debug chain 0184 ; -------------------------------------------------------------------------------------- 0184 0002 0008 | | .DBGLEN 0x0002,0x0008 0186 0093 0099 | | .DBGLNO 0x0093,0x0099,0x00a5,0x00aa,0x00af,0x00b4,0x00cd,0x00dd,0x00ed,0x00f2 0190 0000 0000 | | .BLANK 0000[0x70]