|
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
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 0148 | H | .CONST 0x0148 ; 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 006b | k | .CONST 0x006b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0012 | | .CONST 0x0012 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 190e | | Execute Package,Field_Reference,Field_Number 0xe 001d 0007 | | Action Break_Optional 001e e002 | | Load 0x0,0x2 001f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0020 02c7 | | Declare_Variable Any 0021 e002 | | Load 0x0,0x2 0022 180e | | Execute Package,Field_Execute,Field_Number 0xe 0023 a403 | | Store_Unchecked 0x2,0x3 0024 e002 | | Load 0x0,0x2 0025 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0026 02c7 | | Declare_Variable Any 0027 00d8 | | Load_Top At_Offset_0 0028 1c00 | | Execute_Immediate Run_Utility,0x0 0029 e5f9 | | Load 0x2,-0x7 002a 0266 | f | Execute Discrete,Bounds 002b 00e2 | | Load_Encached Integer_Cache 002c 02a0 | | Declare_Subprogram Null_Subprogram 002d 4801 |H | Short_Literal 0x1 002e 035d | ] | Declare_Type Array,Defined 002f 00d8 | | Load_Top At_Offset_0 0030 0337 | 7 | Declare_Variable Array 0031 e003 | | Load 0x0,0x3 0032 e004 | | Load 0x0,0x4 0033 00da | | Load_Top At_Offset_2 0034 01db | | Execute Vector,Length 0035 00d8 | | Load_Top At_Offset_0 0036 00e4 | | Load_Encached Positive_Cache 0037 0260 | ` | Execute Discrete,In_Type 0038 7001 |p | Jump_Nonzero 0x3a 0039 0801 | | Execute_Immediate Raise,0x1 003a 0092 0144 | D| Action Push_String_Extended,0x144 ; " " 003c e005 | | Load 0x0,0x5 003d 0387 | | Declare_Variable Package 003e 00d8 | | Load_Top At_Offset_0 003f 020f | | Execute Module,Activate 0040 4801 |H | Short_Literal 0x1 0041 e5f9 | | Load 0x2,-0x7 0042 0269 | i | Execute Discrete,Last 0043 0a01 | | Execute_Immediate Plus,0x1 0044 00d8 | | Load_Top At_Offset_0 0045 00e2 | | Load_Encached Integer_Cache 0046 0260 | ` | Execute Discrete,In_Type 0047 7001 |p | Jump_Nonzero 0x49 0048 0801 | | Execute_Immediate Raise,0x1 0049 00da | | Load_Top At_Offset_2 004a 1b18 | | Execute Package,Field_Read,Field_Number 0x18 004b 035b | [ | Declare_Type Array,Constrained 004c 0337 | 7 | Declare_Variable Array 004d 00e1 | | Load_Encached Boolean_Cache 004e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 004f e006 | | Load 0x0,0x6 0050 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0051 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0052 02c7 | | Declare_Variable Any 0053 00d8 | | Load_Top At_Offset_0 0054 1c00 | | Execute_Immediate Run_Utility,0x0 0055 e006 | | Load 0x0,0x6 0056 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0057 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0058 02c7 | | Declare_Variable Any 0059 00d8 | | Load_Top At_Offset_0 005a 1c00 | | Execute_Immediate Run_Utility,0x0 005b 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 005d 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 005f e006 | | Load 0x0,0x6 0060 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0061 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0062 00c6 | | Action Check_Subprogram_Elaborated 0063 00e1 | | Load_Encached Boolean_Cache 0064 480d |H | Short_Literal 0xd 0065 4802 |H | Short_Literal 0x2 0066 0099 | | Action Reference_Dynamic 0067 e007 | | Load 0x0,0x7 0068 e008 | | Load 0x0,0x8 0069 4812 |H | Short_Literal 0x12 006a 0007 | | Action Break_Optional 006b BODY_0018: 006b e5f6 | | Load 0x2,-0xa 006c e002 | | Load 0x0,0x2 006d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 006e c404 | | Store 0x2,0x4 006f e404 | | Load 0x2,0x4 0070 e002 | | Load 0x0,0x2 0071 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0072 00cf | | Action Mark_Auxiliary 0073 e5f9 | | Load 0x2,-0x7 0074 0265 | e | Execute Discrete,Reverse_Bounds 0075 0263 | c | Execute Discrete,Above_Bound 0076 7017 |p | Jump_Nonzero 0x8e 0077 00d8 | | Load_Top At_Offset_0 0078 0a01 | | Execute_Immediate Plus,0x1 0079 00d9 | | Load_Top At_Offset_1 007a 0a01 | | Execute_Immediate Plus,0x1 007b e408 | | Load 0x2,0x8 007c 01d6 | | Execute Vector,Field_Write 007d 00d8 | | Load_Top At_Offset_0 007e 00d8 | | Load_Top At_Offset_0 007f e5f9 | | Load 0x2,-0x7 0080 0260 | ` | Execute Discrete,In_Type 0081 7001 |p | Jump_Nonzero 0x83 0082 0801 | | Execute_Immediate Raise,0x1 0083 85fa | | Call 0x2,-0x6 0084 4800 |H | Short_Literal 0x0 0085 00da | | Load_Top At_Offset_2 0086 e5f9 | | Load 0x2,-0x7 0087 0122 | " | Execute Any,Make_Root_Type 0088 011c | | Execute Any,Convert_Unchecked 0089 1c01 | | Execute_Immediate Run_Utility,0x1 008a e407 | | Load 0x2,0x7 008b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 008c 00c8 | | Action Pop_Auxiliary_Range 008d 3fe9 |? | Loop_Increasing 0x77 008e 00c9 | | Action Pop_Auxiliary_Loop 008f 782b |x+ | Jump 0xbb 0090 e5f5 | | Load 0x2,-0xb 0091 e006 | | Load 0x0,0x6 0092 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0093 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0094 c40b | | Store 0x2,0xb 0095 e40b | | Load 0x2,0xb 0096 840c | | Call 0x2,0xc 0097 e40a | | Load 0x2,0xa 0098 0120 | | Execute Any,Is_Value 0099 6804 |h | Jump_Zero 0x9e 009a e006 | | Load 0x0,0x6 009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009c 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 009d 7801 |x | Jump 0x9f 009e e40a | | Load 0x2,0xa 009f e409 | | Load 0x2,0x9 00a0 4800 |H | Short_Literal 0x0 00a1 4801 |H | Short_Literal 0x1 00a2 4801 |H | Short_Literal 0x1 00a3 4801 |H | Short_Literal 0x1 00a4 4801 |H | Short_Literal 0x1 00a5 4800 |H | Short_Literal 0x0 00a6 0092 0145 | E| Action Push_String_Extended,0x145 ; "@" 00a8 e40b | | Load 0x2,0xb 00a9 e40e | | Load 0x2,0xe 00aa 480f |H | Short_Literal 0xf 00ab 4802 |H | Short_Literal 0x2 00ac 0099 | | Action Reference_Dynamic 00ad 4810 |H | Short_Literal 0x10 00ae 4802 |H | Short_Literal 0x2 00af 0099 | | Action Reference_Dynamic 00b0 e006 | | Load 0x0,0x6 00b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00b3 c409 | | Store 0x2,0x9 00b4 c40a | | Store 0x2,0xa 00b5 e5f5 | | Load 0x2,-0xb 00b6 e006 | | Load 0x0,0x6 00b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00b9 c5f5 | | Store 0x2,-0xb 00ba 00c9 | | Action Pop_Auxiliary_Loop 00bb e5f5 | | Load 0x2,-0xb 00bc e006 | | Load 0x0,0x6 00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00be 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00bf 6fd0 |o | Jump_Zero 0x90 00c0 00ce | | Action Pop_Auxiliary 00c1 e408 | | Load 0x2,0x8 00c2 e407 | | Load 0x2,0x7 00c3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00c4 e5f4 | | Load 0x2,-0xc 00c5 e5fe | | Load 0x2,-0x2 00c6 e407 | | Load 0x2,0x7 00c7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c8 c5f4 | | Store 0x2,-0xc 00c9 e403 | | Load 0x2,0x3 00ca e002 | | Load 0x0,0x2 00cb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00cc 450b |E | Exit_Suprogram New_Top_Offset 0xb 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00e1 | | .CONST 0x00e1 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0003 | | .CONST 0x0003 ; Number of locals 00d3 INIT_00d0: 00d3 e006 | | Load 0x0,0x6 00d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d6 02c7 | | Declare_Variable Any 00d7 00d8 | | Load_Top At_Offset_0 00d8 1c00 | | Execute_Immediate Run_Utility,0x0 00d9 e006 | | Load 0x0,0x6 00da 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00db 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00dc 02c7 | | Declare_Variable Any 00dd e006 | | Load 0x0,0x6 00de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00df 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00e0 a603 | | Store_Unchecked 0x3,0x3 00e1 BODY_00d0: 00e1 e7ff | | Load 0x3,-0x1 00e2 85f7 | | Call 0x2,-0x9 00e3 683a |h: | Jump_Zero 0x11e 00e4 00cf | | Action Mark_Auxiliary 00e5 e5f9 | | Load 0x2,-0x7 00e6 0265 | e | Execute Discrete,Reverse_Bounds 00e7 0263 | c | Execute Discrete,Above_Bound 00e8 7034 |p4 | Jump_Nonzero 0x11d 00e9 00db | | Load_Top At_Offset_3 00ea 0120 | | Execute Any,Is_Value 00eb 6804 |h | Jump_Zero 0xf0 00ec e006 | | Load 0x0,0x6 00ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ee 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00ef 7801 |x | Jump 0xf1 00f0 00db | | Load_Top At_Offset_3 00f1 e602 | | Load 0x3,0x2 00f2 0120 | | Execute Any,Is_Value 00f3 6804 |h | Jump_Zero 0xf8 00f4 e006 | | Load 0x0,0x6 00f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f7 7801 |x | Jump 0xf9 00f8 e602 | | Load 0x3,0x2 00f9 e7ff | | Load 0x3,-0x1 00fa 00db | | Load_Top At_Offset_3 00fb 00d8 | | Load_Top At_Offset_0 00fc e5f9 | | Load 0x2,-0x7 00fd 0260 | ` | Execute Discrete,In_Type 00fe 7001 |p | Jump_Nonzero 0x100 00ff 0801 | | Execute_Immediate Raise,0x1 0100 85fd | | Call 0x2,-0x3 0101 c602 | | Store 0x3,0x2 0102 c603 | | Store 0x3,0x3 0103 e7ff | | Load 0x3,-0x1 0104 00d9 | | Load_Top At_Offset_1 0105 00d8 | | Load_Top At_Offset_0 0106 e5f9 | | Load 0x2,-0x7 0107 0260 | ` | Execute Discrete,In_Type 0108 7001 |p | Jump_Nonzero 0x10a 0109 0801 | | Execute_Immediate Raise,0x1 010a 85fc | | Call 0x2,-0x4 010b e603 | | Load 0x3,0x3 010c e602 | | Load 0x3,0x2 010d e009 | | Load 0x0,0x9 010e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 010f e009 | | Load 0x0,0x9 0110 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0111 e7ff | | Load 0x3,-0x1 0112 e606 | | Load 0x3,0x6 0113 00d8 | | Load_Top At_Offset_0 0114 e5f9 | | Load 0x2,-0x7 0115 0260 | ` | Execute Discrete,In_Type 0116 7001 |p | Jump_Nonzero 0x118 0117 0801 | | Execute_Immediate Raise,0x1 0118 85fb | | Call 0x2,-0x5 0119 e407 | | Load 0x2,0x7 011a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011b 00c8 | | Action Pop_Auxiliary_Range 011c 3fcc |? | Loop_Increasing 0xe9 011d 00ce | | Action Pop_Auxiliary 011e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011f 0000 | | .XXX[0x1] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 012a | * | .CONST 0x012a ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0002 | | .CONST 0x0002 ; Number of locals 0123 INIT_0120: 0123 e006 | | Load 0x0,0x6 0124 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0125 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0126 02c7 | | Declare_Variable Any 0127 e7fe | | Load 0x3,-0x2 0128 8402 | | Call 0x2,0x2 0129 a602 | | Store_Unchecked 0x3,0x2 012a BODY_0120: 012a 00d8 | | Load_Top At_Offset_0 012b 840c | | Call 0x2,0xc 012c e006 | | Load 0x0,0x6 012d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 012f e006 | | Load 0x0,0x6 0130 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0131 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0132 e006 | | Load 0x0,0x6 0133 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0134 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0135 00ea | | Load_Encached Null_String_Cache 0136 4800 |H | Short_Literal 0x0 0137 e006 | | Load 0x0,0x6 0138 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0139 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 013a c7fc | | Store 0x3,-0x4 013b 00d8 | | Load_Top At_Offset_0 013c 85f8 | | Call 0x2,-0x8 013d 6803 |h | Jump_Zero 0x141 013e 4800 |H | Short_Literal 0x0 013f a7fb | | Store_Unchecked 0x3,-0x5 0140 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0141 4803 |H | Short_Literal 0x3 0142 a7fb | | Store_Unchecked 0x3,-0x5 0143 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0144 ; -------------------------------------------------------------------------------------- 0144 ; STRING TABLE 0144 ; -------------------------------------------------------------------------------------- 0144 0006 | | .STRTAB 0x0006->0x0147 ; " " 0145 0005 | | .STRTAB 0x0005->0x0147 ; "@" 0146 0004 | | .STREND 0x0004->0x0148 0147 2040 | @ | .STRTAB_STRINGS 0148 ; -------------------------------------------------------------------------------------- 0148 ; Debug Table 0148 ; -------------------------------------------------------------------------------------- 0148 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f90,0x0000,0x0001,0x0004 014e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 0152 001b 015e | ^| .DBG4T 0x001b,0x015e,0xa801,0x4002 0156 00d3 0186 | | .DBG4T 0x00d3,0x0186,0x0801,0x0002 015a 0123 018e | # | .DBG4T 0x0123,0x018e,0x0801,0x0002 015e ; -------------------------------------------------------------------------------------- 015e ; Debug chain 015e ; -------------------------------------------------------------------------------------- 015e 000c 000d | | .DBGLEN 0x000c,0x000d 0160 001b 001e | | .DBGLNO 0x001b,0x001e,0x0024,0x0029,0x0031,0x0040,0x004d,0x004f,0x0055,0x005b,0x005d,0x005f,0x006b,0x006f,0x0073,0x0077,0x007d,0x0090,0x0095,0x0097,0x00b5,0x00bb,0x00c1,0x00c4,0x00c9 0179 0001 0002 | | .XXX[0xd] 017b 0003 0004 | | 017d 0005 0007 | | 017f 0008 0009 | | 0181 000a 0006 | | 0183 000b 000c | | 0185 000d | | 0186 ; -------------------------------------------------------------------------------------- 0186 ; Debug chain 0186 ; -------------------------------------------------------------------------------------- 0186 0002 0004 | | .DBGLEN 0x0002,0x0004 0188 00d3 00d9 | | .DBGLNO 0x00d3,0x00d9,0x00e1,0x00e5,0x00e9,0x0103 018e ; -------------------------------------------------------------------------------------- 018e ; Debug chain 018e ; -------------------------------------------------------------------------------------- 018e 0001 0005 | | .DBGLEN 0x0001,0x0005 0190 0123 012a | # *| .DBGLNO 0x0123,0x012a,0x012c,0x013b,0x013e,0x0141 0196 0000 0000 | | .BLANK 0000[0x6a]