|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00d8 | | .CONST 0x00d8 ; 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 002c | , | .CONST 0x002c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b 4802 |H | Short_Literal 0x2 ; Debug Table 0x0 = .DEBUG 0x000b,0x0102,0x8000,0x0000,0x0054,0x1fe5,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0359 | Y | Declare_Type Array,Incomplete,Visible 000d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1 = 0xd,0xfffe 000e 02a0 | | Declare_Subprogram Null_Subprogram 000f 03ae | | Declare_Type Heap_Access,Defined,Visible 0010 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0x10,0xfffd 0011 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb 0015 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa 0017 00e8 | | Load_Encached Character_Cache ; Debug Table 0x0.0x6 = 0x17,0xfff9 0018 0266 | f | Execute Discrete,Bounds 0019 00e8 | | Load_Encached Character_Cache 001a 0266 | f | Execute Discrete,Bounds 001b 00e1 | | Load_Encached Boolean_Cache 001c 02a0 | | Declare_Subprogram Null_Subprogram 001d e20d | | Load 0x1,0xd 001e 0343 | C | Complete_Type Array,By_Defining 001f 00bf | | Action Accept_Activation 0020 e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x0020,0x0112,0x8000,0x0000,0x0057,0xb6f5,0x0000,0x0005 ; Debug Table 0x1.0x0 = 0x20,0xffff 0021 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0022 0007 | | Action Break_Optional 0023 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x23,0xfffe 0024 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0025 0007 | | Action Break_Optional 0026 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x2 = 0x26,0xfffd 0027 00c7 | | Action Elaborate_Subprogram 0028 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x28,0xfffc 0029 00c7 | | Action Elaborate_Subprogram 002a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x2a,0xfffb 002b 00c7 | | Action Elaborate_Subprogram 002c BODY_0008: 002c 00bc | | Action Signal_Activated 002d 00bb | | Action Signal_Completion 002e 0000 0000 | | .XXX[0x2] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 e20d | | Load 0x1,0xd ; Debug Table 0x2 = .DEBUG 0x0033,0x011e,0x0002,0x0000,0x0054,0x1fe5,0x0000,0x0012 ; Debug Table 0x2.0x0 = 0x33,0x1 0034 0337 | 7 | Declare_Variable Array 0035 487f |H | Short_Literal 0x7f 0036 4800 |H | Short_Literal 0x0 0037 487f |H | Short_Literal 0x7f 0038 4800 |H | Short_Literal 0x0 0039 4800 |H | Short_Literal 0x0 003a 00d9 | | Load_Top At_Offset_1 003b e404 | | Load 0x2,0x4 003c e402 | | Load 0x2,0x2 003d 01a6 | | Execute Matrix,Field_Write 003e 3ffa |? | Loop_Increasing 0x39 003f 3ff7 |? | Loop_Increasing 0x37 0040 e20d | | Load 0x1,0xd 0041 019b | | Execute Matrix,Check_In_Type 0042 00ca | | Action Exit_Nullary_Function 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004d | M | .CONST 0x004d ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0003 | | .CONST 0x0003 ; Number of locals 004b INIT_0048: 004b 00e8 | | Load_Encached Character_Cache ; Debug Table 0x3 = .DEBUG 0x004b,0x0122,0x0002,0x0000,0x0054,0x1fe5,0x0000,0x0017 ; Debug Table 0x3.0x0 = 0x4b,0xffff 004c 03e9 | | Declare_Variable Discrete,Duplicate 004d BODY_0048: 004d e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x1 = 0x4d,0x1 004e 01dd | | Execute Vector,First 004f e5ff | | Load 0x2,-0x1 0050 01d7 | | Execute Vector,Field_Read 0051 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0052 00cf | | Action Mark_Auxiliary 0053 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0x53,0x2 0054 01dc | | Execute Vector,Last 0055 e5ff | | Load 0x2,-0x1 0056 01dd | | Execute Vector,First 0057 0a01 | | Execute_Immediate Plus,0x1 0058 0248 | H | Execute Discrete,Check_In_Integer 0059 0263 | c | Execute Discrete,Above_Bound 005a 700f |p | Jump_Nonzero 0x6a 005b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x3 = 0x5b,0x3 005c e5ff | | Load 0x2,-0x1 005d 01d7 | | Execute Vector,Field_Read 005e a403 | | Store_Unchecked 0x2,0x3 005f 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x4 = 0x5f,0x4 0060 e402 | | Load 0x2,0x2 0061 e5fe | | Load 0x2,-0x2 0062 01a7 | | Execute Matrix,Field_Read 0063 7002 |p | Jump_Nonzero 0x66 0064 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x5 = 0x64,0x5 0065 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0066 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x6 = 0x66,0x6 0067 a402 | | Store_Unchecked 0x2,0x2 0068 00c8 | | Action Pop_Auxiliary_Range 0069 3ff1 |? | Loop_Increasing 0x5b 006a 00ce | | Action Pop_Auxiliary 006b 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x7 = 0x6b,0x7 006c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0075 | u | .CONST 0x0075 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0003 | | .CONST 0x0003 ; Number of locals 0073 INIT_0070: 0073 00e8 | | Load_Encached Character_Cache ; Debug Table 0x4 = .DEBUG 0x0073,0x0134,0x0001,0x0000,0x0054,0x1fe5,0x0000,0x0024 ; Debug Table 0x4.0x0 = 0x73,0xffff 0074 03e9 | | Declare_Variable Discrete,Duplicate 0075 BODY_0070: 0075 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x1 = 0x75,0x1 0076 6832 |h2 | Jump_Zero 0xa9 0077 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x2 = 0x77,0x2 0078 01dd | | Execute Vector,First 0079 e5ff | | Load 0x2,-0x1 007a 01d7 | | Execute Vector,Field_Read 007b 8213 | | Call 0x1,0x13 007c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 007d 00cf | | Action Mark_Auxiliary 007e e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x3 = 0x7e,0x3 007f 01dc | | Execute Vector,Last 0080 e5ff | | Load 0x2,-0x1 0081 01dd | | Execute Vector,First 0082 0a01 | | Execute_Immediate Plus,0x1 0083 0248 | H | Execute Discrete,Check_In_Integer 0084 0263 | c | Execute Discrete,Above_Bound 0085 7021 |p! | Jump_Nonzero 0xa7 0086 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x4 = 0x86,0x4 0087 e5ff | | Load 0x2,-0x1 0088 01d7 | | Execute Vector,Field_Read 0089 8213 | | Call 0x1,0x13 008a a403 | | Store_Unchecked 0x2,0x3 008b 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x5 = 0x8b,0x5 008c e403 | | Load 0x2,0x3 008d e402 | | Load 0x2,0x2 008e e5fd | | Load 0x2,-0x3 008f 01a6 | | Execute Matrix,Field_Write 0090 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x6 = 0x90,0x6 0091 e403 | | Load 0x2,0x3 0092 8212 | | Call 0x1,0x12 0093 e402 | | Load 0x2,0x2 0094 e5fd | | Load 0x2,-0x3 0095 01a6 | | Execute Matrix,Field_Write 0096 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x7 = 0x96,0x7 0097 e403 | | Load 0x2,0x3 0098 e402 | | Load 0x2,0x2 0099 8212 | | Call 0x1,0x12 009a e5fd | | Load 0x2,-0x3 009b 01a6 | | Execute Matrix,Field_Write 009c 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x8 = 0x9c,0x8 009d e403 | | Load 0x2,0x3 009e 8212 | | Call 0x1,0x12 009f e402 | | Load 0x2,0x2 00a0 8212 | | Call 0x1,0x12 00a1 e5fd | | Load 0x2,-0x3 00a2 01a6 | | Execute Matrix,Field_Write 00a3 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x9 = 0xa3,0x9 00a4 a402 | | Store_Unchecked 0x2,0x2 00a5 00c8 | | Action Pop_Auxiliary_Range 00a6 3fdf |? | Loop_Increasing 0x86 00a7 00ce | | Action Pop_Auxiliary 00a8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a9 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0xa = 0xa9,0xa 00aa 01dd | | Execute Vector,First 00ab e5ff | | Load 0x2,-0x1 00ac 01d7 | | Execute Vector,Field_Read 00ad 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00ae e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0xb = 0xae,0xb 00af 01db | | Execute Vector,Length 00b0 0c02 | | Execute_Immediate Greater_Equal,0x2 00b1 680b |h | Jump_Zero 0xbd 00b2 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0xc = 0xb2,0xc 00b3 e5ff | | Load 0x2,-0x1 00b4 01dd | | Execute Vector,First 00b5 0a01 | | Execute_Immediate Plus,0x1 00b6 0248 | H | Execute Discrete,Check_In_Integer 00b7 e5ff | | Load 0x2,-0x1 00b8 01d7 | | Execute Vector,Field_Read 00b9 00db | | Load_Top At_Offset_3 00ba 8212 | | Call 0x1,0x12 00bb e5fd | | Load 0x2,-0x3 00bc 01a6 | | Execute Matrix,Field_Write 00bd 00cf | | Action Mark_Auxiliary 00be e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0xd = 0xbe,0xd 00bf 01dc | | Execute Vector,Last 00c0 e5ff | | Load 0x2,-0x1 00c1 01dd | | Execute Vector,First 00c2 0a01 | | Execute_Immediate Plus,0x1 00c3 0248 | H | Execute Discrete,Check_In_Integer 00c4 0263 | c | Execute Discrete,Above_Bound 00c5 700d |p | Jump_Nonzero 0xd3 00c6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xe = 0xc6,0xe 00c7 e5ff | | Load 0x2,-0x1 00c8 01d7 | | Execute Vector,Field_Read 00c9 a403 | | Store_Unchecked 0x2,0x3 00ca 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0xf = 0xca,0xf 00cb e403 | | Load 0x2,0x3 00cc e402 | | Load 0x2,0x2 00cd e5fd | | Load 0x2,-0x3 00ce 01a6 | | Execute Matrix,Field_Write 00cf 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x10 = 0xcf,0x10 00d0 a402 | | Store_Unchecked 0x2,0x2 00d1 00c8 | | Action Pop_Auxiliary_Range 00d2 3ff3 |? | Loop_Increasing 0xc6 00d3 00ce | | Action Pop_Auxiliary 00d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; Debug Table 00d8 ; -------------------------------------------------------------------------------------- 00d8 0003 0005 | | .CONST 0x0003,0x0005 00da 000b 0102 | | .DEBUG 0x000b,0x0102,0x8000,0x0000,0x0054,0x1fe5,0x0000,0x0003 00e2 0020 0112 | | .DEBUG 0x0020,0x0112,0x8000,0x0000,0x0057,0xb6f5,0x0000,0x0005 00ea 0033 011e | 3 | .DEBUG 0x0033,0x011e,0x0002,0x0000,0x0054,0x1fe5,0x0000,0x0012 00f2 004b 0122 | K "| .DEBUG 0x004b,0x0122,0x0002,0x0000,0x0054,0x1fe5,0x0000,0x0017 00fa 0073 0134 | s 4| .DEBUG 0x0073,0x0134,0x0001,0x0000,0x0054,0x1fe5,0x0000,0x0024 0102 ; -------------------------------------------------------------------------------------- 0102 ; Debug3 Subtable 0x0 0102 ; -------------------------------------------------------------------------------------- 0102 0007 0000 | | .DBG3TAB 0x0007,0x0000 0104 000b ffff | | .CONST 0x000b,0xffff 0106 000d fffe | | .CONST 0x000d,0xfffe 0108 0010 fffd | | .CONST 0x0010,0xfffd 010a 0011 fffc | | .CONST 0x0011,0xfffc 010c 0013 fffb | | .CONST 0x0013,0xfffb 010e 0015 fffa | | .CONST 0x0015,0xfffa 0110 0017 fff9 | | .CONST 0x0017,0xfff9 0112 ; -------------------------------------------------------------------------------------- 0112 ; Debug3 Subtable 0x1 0112 ; -------------------------------------------------------------------------------------- 0112 0005 0000 | | .DBG3TAB 0x0005,0x0000 0114 0020 ffff | | .CONST 0x0020,0xffff 0116 0023 fffe | # | .CONST 0x0023,0xfffe 0118 0026 fffd | & | .CONST 0x0026,0xfffd 011a 0028 fffc | ( | .CONST 0x0028,0xfffc 011c 002a fffb | * | .CONST 0x002a,0xfffb 011e ; -------------------------------------------------------------------------------------- 011e ; Debug3 Subtable 0x2 011e ; -------------------------------------------------------------------------------------- 011e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0120 0033 0001 | 3 | .CONST 0x0033,0x0001 0122 ; -------------------------------------------------------------------------------------- 0122 ; Debug3 Subtable 0x3 0122 ; -------------------------------------------------------------------------------------- 0122 0001 0007 | | .DBG3TAB 0x0001,0x0007 0124 004b ffff | K | .CONST 0x004b,0xffff 0126 004d 0001 | M | .CONST 0x004d,0x0001 0128 0053 0002 | S | .CONST 0x0053,0x0002 012a 005b 0003 | [ | .CONST 0x005b,0x0003 012c 005f 0004 | _ | .CONST 0x005f,0x0004 012e 0064 0005 | d | .CONST 0x0064,0x0005 0130 0066 0006 | f | .CONST 0x0066,0x0006 0132 006b 0007 | k | .CONST 0x006b,0x0007 0134 ; -------------------------------------------------------------------------------------- 0134 ; Debug3 Subtable 0x4 0134 ; -------------------------------------------------------------------------------------- 0134 0001 0010 | | .DBG3TAB 0x0001,0x0010 0136 0073 ffff | s | .CONST 0x0073,0xffff 0138 0075 0001 | u | .CONST 0x0075,0x0001 013a 0077 0002 | w | .CONST 0x0077,0x0002 013c 007e 0003 | ~ | .CONST 0x007e,0x0003 013e 0086 0004 | | .CONST 0x0086,0x0004 0140 008b 0005 | | .CONST 0x008b,0x0005 0142 0090 0006 | | .CONST 0x0090,0x0006 0144 0096 0007 | | .CONST 0x0096,0x0007 0146 009c 0008 | | .CONST 0x009c,0x0008 0148 00a3 0009 | | .CONST 0x00a3,0x0009 014a 00a9 000a | | .CONST 0x00a9,0x000a 014c 00ae 000b | | .CONST 0x00ae,0x000b 014e 00b2 000c | | .CONST 0x00b2,0x000c 0150 00be 000d | | .CONST 0x00be,0x000d 0152 00c6 000e | | .CONST 0x00c6,0x000e 0154 00ca 000f | | .CONST 0x00ca,0x000f 0156 00cf 0010 | | .CONST 0x00cf,0x0010 0158 0000 0000 | | .BLANK 0000[0xa8]