|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0140 | @ | .CONST 0x0140 ; 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 001c | | .CONST 0x001c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b 00e8 | | Load_Encached Character_Cache 000c e5fe | | Load 0x2,-0x2 000d 00e1 | | Load_Encached Boolean_Cache 000e 03f1 | | Declare_Variable Discrete,With_Value 000f e5fd | | Load 0x2,-0x3 0010 00e1 | | Load_Encached Boolean_Cache 0011 03f1 | | Declare_Variable Discrete,With_Value 0012 e5fc | | Load 0x2,-0x4 0013 00e1 | | Load_Encached Boolean_Cache 0014 03f1 | | Declare_Variable Discrete,With_Value 0015 e5fb | | Load 0x2,-0x5 0016 00e1 | | Load_Encached Boolean_Cache 0017 03f1 | | Declare_Variable Discrete,With_Value 0018 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 001a 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 001c BODY_0008: 001c 4800 |H | Short_Literal 0x0 001d 4800 |H | Short_Literal 0x0 001e 4801 |H | Short_Literal 0x1 001f e5ff | | Load 0x2,-0x1 0020 e001 | | Load 0x0,0x1 0021 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0022 e5ff | | Load 0x2,-0x1 0023 e001 | | Load 0x0,0x1 0024 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0025 a402 | | Store_Unchecked 0x2,0x2 0026 4800 |H | Short_Literal 0x0 0027 4800 |H | Short_Literal 0x0 0028 4fff |O | Short_Literal -0x1 0029 e5ff | | Load 0x2,-0x1 002a e001 | | Load 0x0,0x1 002b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 002c e402 | | Load 0x2,0x2 002d 00d8 | | Load_Top At_Offset_0 002e 0d6a | j | Execute_Immediate Less,0x6a 002f 7018 |p | Jump_Nonzero 0x48 0030 0a96 | | Execute_Immediate Plus,-0x6a 0031 4615 |F | Jump_Case 0x16 0032 7817 |x | Jump 0x4a ; case 0x0 0033 7818 |x | Jump 0x4c ; case 0x1 0034 7817 |x | Jump 0x4c ; case 0x2 0035 7814 |x | Jump 0x4a ; case 0x3 0036 7815 |x | Jump 0x4c ; case 0x4 0037 7814 |x | Jump 0x4c ; case 0x5 0038 7813 |x | Jump 0x4c ; case 0x6 0039 7812 |x | Jump 0x4c ; case 0x7 003a 7811 |x | Jump 0x4c ; case 0x8 003b 7810 |x | Jump 0x4c ; case 0x9 003c 780d |x | Jump 0x4a ; case 0xa 003d 780c |x | Jump 0x4a ; case 0xb 003e 780b |x | Jump 0x4a ; case 0xc 003f 780c |x | Jump 0x4c ; case 0xd 0040 7809 |x | Jump 0x4a ; case 0xe 0041 780a |x | Jump 0x4c ; case 0xf 0042 7809 |x | Jump 0x4c ; case 0x10 0043 7808 |x | Jump 0x4c ; case 0x11 0044 7807 |x | Jump 0x4c ; case 0x12 0045 7806 |x | Jump 0x4c ; case 0x13 0046 7805 |x | Jump 0x4c ; case 0x14 0047 7804 |x | Jump 0x4c ; case 0x15 0048 00d1 | | Pop_Control Pop_Count_1 0049 7802 |x | Jump 0x4c 004a 4801 |H | Short_Literal 0x1 004b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 004c 4800 |H | Short_Literal 0x0 004d 4801 |H | Short_Literal 0x1 004e 4800 |H | Short_Literal 0x0 004f e5ff | | Load 0x2,-0x1 0050 e001 | | Load 0x0,0x1 0051 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0052 e5ff | | Load 0x2,-0x1 0053 e001 | | Load 0x0,0x1 0054 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0055 a402 | | Store_Unchecked 0x2,0x2 0056 4800 |H | Short_Literal 0x0 0057 4fff |O | Short_Literal -0x1 0058 4800 |H | Short_Literal 0x0 0059 e5ff | | Load 0x2,-0x1 005a e001 | | Load 0x0,0x1 005b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 005c e402 | | Load 0x2,0x2 005d 00d8 | | Load_Top At_Offset_0 005e 0d6a | j | Execute_Immediate Less,0x6a 005f 7018 |p | Jump_Nonzero 0x78 0060 0a96 | | Execute_Immediate Plus,-0x6a 0061 4615 |F | Jump_Case 0x16 0062 7817 |x | Jump 0x7a ; case 0x0 0063 7816 |x | Jump 0x7a ; case 0x1 0064 7817 |x | Jump 0x7c ; case 0x2 0065 7816 |x | Jump 0x7c ; case 0x3 0066 7815 |x | Jump 0x7c ; case 0x4 0067 7814 |x | Jump 0x7c ; case 0x5 0068 7813 |x | Jump 0x7c ; case 0x6 0069 7810 |x | Jump 0x7a ; case 0x7 006a 7811 |x | Jump 0x7c ; case 0x8 006b 7810 |x | Jump 0x7c ; case 0x9 006c 780f |x | Jump 0x7c ; case 0xa 006d 780c |x | Jump 0x7a ; case 0xb 006e 780b |x | Jump 0x7a ; case 0xc 006f 780a |x | Jump 0x7a ; case 0xd 0070 780b |x | Jump 0x7c ; case 0xe 0071 780a |x | Jump 0x7c ; case 0xf 0072 7809 |x | Jump 0x7c ; case 0x10 0073 7808 |x | Jump 0x7c ; case 0x11 0074 7807 |x | Jump 0x7c ; case 0x12 0075 7806 |x | Jump 0x7c ; case 0x13 0076 7805 |x | Jump 0x7c ; case 0x14 0077 7804 |x | Jump 0x7c ; case 0x15 0078 00d1 | | Pop_Control Pop_Count_1 0079 7802 |x | Jump 0x7c 007a 4801 |H | Short_Literal 0x1 007b a404 | | Store_Unchecked 0x2,0x4 007c 8407 | | Call 0x2,0x7 007d 8408 | | Call 0x2,0x8 007e e403 | | Load 0x2,0x3 007f 681e |h | Jump_Zero 0x9e 0080 e404 | | Load 0x2,0x4 0081 680e |h | Jump_Zero 0x90 0082 00db | | Load_Top At_Offset_3 0083 6806 |h | Jump_Zero 0x8a 0084 00da | | Load_Top At_Offset_2 0085 6802 |h | Jump_Zero 0x88 0086 486e |Hn | Short_Literal 0x6e 0087 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0088 4876 |Hv | Short_Literal 0x76 0089 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 008a 00da | | Load_Top At_Offset_2 008b 6802 |h | Jump_Zero 0x8e 008c 4877 |Hw | Short_Literal 0x77 008d 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 008e 4871 |Hq | Short_Literal 0x71 008f 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0090 00db | | Load_Top At_Offset_3 0091 6806 |h | Jump_Zero 0x98 0092 00da | | Load_Top At_Offset_2 0093 6802 |h | Jump_Zero 0x96 0094 4875 |Hu | Short_Literal 0x75 0095 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0096 486a |Hj | Short_Literal 0x6a 0097 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0098 00da | | Load_Top At_Offset_2 0099 6802 |h | Jump_Zero 0x9c 009a 486b |Hk | Short_Literal 0x6b 009b 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 009c 4867 |Hg | Short_Literal 0x67 009d 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 009e e404 | | Load 0x2,0x4 009f 680e |h | Jump_Zero 0xae 00a0 00db | | Load_Top At_Offset_3 00a1 6806 |h | Jump_Zero 0xa8 00a2 00da | | Load_Top At_Offset_2 00a3 6802 |h | Jump_Zero 0xa6 00a4 4874 |Ht | Short_Literal 0x74 00a5 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 00a6 486d |Hm | Short_Literal 0x6d 00a7 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 00a8 00da | | Load_Top At_Offset_2 00a9 6802 |h | Jump_Zero 0xac 00aa 486c |Hl | Short_Literal 0x6c 00ab 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 00ac 4867 |Hg | Short_Literal 0x67 00ad 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 00ae 00db | | Load_Top At_Offset_3 00af 6806 |h | Jump_Zero 0xb6 00b0 00da | | Load_Top At_Offset_2 00b1 6802 |h | Jump_Zero 0xb4 00b2 4878 |Hx | Short_Literal 0x78 00b3 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 00b4 4867 |Hg | Short_Literal 0x67 00b5 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 00b6 00da | | Load_Top At_Offset_2 00b7 6802 |h | Jump_Zero 0xba 00b8 4867 |Hg | Short_Literal 0x67 00b9 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 00ba 4820 |H | Short_Literal 0x20 00bb 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 00f3 | | .CONST 0x00f3 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4800 |H | Short_Literal 0x0 00c4 4800 |H | Short_Literal 0x0 00c5 4fff |O | Short_Literal -0x1 00c6 e5ff | | Load 0x2,-0x1 00c7 e001 | | Load 0x0,0x1 00c8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00c9 e5ff | | Load 0x2,-0x1 00ca e001 | | Load 0x0,0x1 00cb 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 00cc a402 | | Store_Unchecked 0x2,0x2 00cd 4800 |H | Short_Literal 0x0 00ce 4800 |H | Short_Literal 0x0 00cf 4801 |H | Short_Literal 0x1 00d0 e5ff | | Load 0x2,-0x1 00d1 e001 | | Load 0x0,0x1 00d2 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00d3 e402 | | Load 0x2,0x2 00d4 00d8 | | Load_Top At_Offset_0 00d5 0d6b | k | Execute_Immediate Less,0x6b 00d6 7017 |p | Jump_Nonzero 0xee 00d7 0a95 | | Execute_Immediate Plus,-0x6b 00d8 4614 |F | Jump_Case 0x15 00d9 7816 |x | Jump 0xf0 ; case 0x0 00da 7815 |x | Jump 0xf0 ; case 0x1 00db 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2 00dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3 00dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4 00de 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x5 00df 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x6 00e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x7 00e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x8 00e2 780d |x | Jump 0xf0 ; case 0x9 00e3 780c |x | Jump 0xf0 ; case 0xa 00e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xb 00e5 780a |x | Jump 0xf0 ; case 0xc 00e6 7809 |x | Jump 0xf0 ; case 0xd 00e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xe 00e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xf 00e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x10 00ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x11 00eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x12 00ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x13 00ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x14 00ee 00d1 | | Pop_Control Pop_Count_1 00ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f0 4801 |H | Short_Literal 0x1 00f1 a405 | | Store_Unchecked 0x2,0x5 00f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f3 TRAP_00c0: 00f3 00d8 | | Load_Top At_Offset_0 00f4 0107 | | Execute Exception,Get_Name 00f5 4970 |Ip | Short_Literal 0x170 00f6 497f |I | Short_Literal 0x17f 00f7 0262 | b | Execute Discrete,In_Range 00f8 6801 |h | Jump_Zero 0xfa 00f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fa 0100 | | Execute Exception,Raise 00fb 0000 0000 | | .BLANK 0000[0x5] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0132 | 2 | .CONST 0x0132 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4800 |H | Short_Literal 0x0 0104 4fff |O | Short_Literal -0x1 0105 4800 |H | Short_Literal 0x0 0106 e5ff | | Load 0x2,-0x1 0107 e001 | | Load 0x0,0x1 0108 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0109 e5ff | | Load 0x2,-0x1 010a e001 | | Load 0x0,0x1 010b 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 010c a402 | | Store_Unchecked 0x2,0x2 010d 4800 |H | Short_Literal 0x0 010e 4801 |H | Short_Literal 0x1 010f 4800 |H | Short_Literal 0x0 0110 e5ff | | Load 0x2,-0x1 0111 e001 | | Load 0x0,0x1 0112 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0113 e402 | | Load 0x2,0x2 0114 00d8 | | Load_Top At_Offset_0 0115 0d6c | l | Execute_Immediate Less,0x6c 0116 7016 |p | Jump_Nonzero 0x12d 0117 0a94 | | Execute_Immediate Plus,-0x6c 0118 4613 |F | Jump_Case 0x14 0119 7815 |x | Jump 0x12f ; case 0x0 011a 7814 |x | Jump 0x12f ; case 0x1 011b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2 011c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3 011d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4 011e 7810 |x | Jump 0x12f ; case 0x5 011f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x6 0120 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x7 0121 780d |x | Jump 0x12f ; case 0x8 0122 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x9 0123 780b |x | Jump 0x12f ; case 0xa 0124 780a |x | Jump 0x12f ; case 0xb 0125 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xc 0126 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xd 0127 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xe 0128 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xf 0129 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x10 012a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x11 012b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x12 012c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x13 012d 00d1 | | Pop_Control Pop_Count_1 012e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012f 4801 |H | Short_Literal 0x1 0130 a403 | | Store_Unchecked 0x2,0x3 0131 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0132 TRAP_0100: 0132 00d8 | | Load_Top At_Offset_0 0133 0107 | | Execute Exception,Get_Name 0134 4970 |Ip | Short_Literal 0x170 0135 497f |I | Short_Literal 0x17f 0136 0262 | b | Execute Discrete,In_Range 0137 6801 |h | Jump_Zero 0x139 0138 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0139 0100 | | Execute Exception,Raise 013a 0000 0000 | | .BLANK 0000[0x6] 0140 ; -------------------------------------------------------------------------------------- 0140 ; Debug Table 0140 ; -------------------------------------------------------------------------------------- 0140 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7166,0x0000,0x0001,0x0003 0146 000b 0152 | R| .DBG4T 0x000b,0x0152,0x0002,0x4000 014a 00c3 01af | | .DBG4T 0x00c3,0x01af,0x0004,0x4000 014e 0103 01bd | | .DBG4T 0x0103,0x01bd,0x0004,0x4000 0152 ; -------------------------------------------------------------------------------------- 0152 ; Debug chain 0152 ; -------------------------------------------------------------------------------------- 0152 0005 002b | +| .DBGLEN 0x0005,0x002b 0154 000b 000c | | .DBGLNO 0x000b,0x000c,0x000f,0x0012,0x0015,0x001c,0x0022,0x0026,0x002c,0x004a,0x004c,0x0052,0x0056,0x005c,0x007a,0x007c,0x007d,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba 0184 0001 0002 | | .XXX[0x2b] 0186 0003 0004 | | 0188 0005 0007 | | 018a 0008 0009 | | 018c 000a 000b | | 018e 000d 000e | | 0190 000f 0010 | | 0192 0011 0012 | | 0194 0013 0014 | | 0196 0015 0016 | | 0198 0017 0018 | | 019a 0019 001a | | 019c 001b 001c | | 019e 001d 001e | | 01a0 001f 0020 | | 01a2 0021 0022 | ! "| 01a4 0023 0024 | # $| 01a6 0025 0026 | % &| 01a8 0027 0028 | ' (| 01aa 0029 002a | ) *| 01ac 002b 002c | + ,| 01ae 002d | - | 01af ; -------------------------------------------------------------------------------------- 01af ; Debug chain 01af ; -------------------------------------------------------------------------------------- 01af 0000 0006 | | .DBGLEN 0x0000,0x0006 01b1 00c3 00c9 | | .DBGLNO 0x00c3,0x00c9,0x00cd,0x00d3,0x00f0,0x00f9 01b7 0001 0002 | | .XXX[0x6] 01b9 0003 0004 | | 01bb 0005 0007 | | 01bd ; -------------------------------------------------------------------------------------- 01bd ; Debug chain 01bd ; -------------------------------------------------------------------------------------- 01bd 0000 0006 | | .DBGLEN 0x0000,0x0006 01bf 0103 0109 | | .DBGLNO 0x0103,0x0109,0x010d,0x0113,0x012f,0x0138 01c5 0001 0002 | | .XXX[0x6] 01c7 0003 0004 | | 01c9 0005 0007 | | 01cb 0000 0000 | | .BLANK 0000[0x35]