|
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_0bf8df
└─⟦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 0120 | | .CONST 0x0120 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0050 | P | .CONST 0x0050 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b e011 | | Load 0x0,0x11 000c e213 | | Load 0x1,0x13 000d 0098 | | Execute Package,Field_Read_Dynamic 000e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 000f e011 | | Load 0x0,0x11 0010 e213 | | Load 0x1,0x13 0011 0098 | | Execute Package,Field_Read_Dynamic 0012 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0013 e011 | | Load 0x0,0x11 0014 e213 | | Load 0x1,0x13 0015 0098 | | Execute Package,Field_Read_Dynamic 0016 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0017 e011 | | Load 0x0,0x11 0018 e213 | | Load 0x1,0x13 0019 0098 | | Execute Package,Field_Read_Dynamic 001a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 001b e013 | | Load 0x0,0x13 001c e213 | | Load 0x1,0x13 001d 0098 | | Execute Package,Field_Read_Dynamic 001e 0007 | | Action Break_Optional 001f e011 | | Load 0x0,0x11 0020 e213 | | Load 0x1,0x13 0021 0098 | | Execute Package,Field_Read_Dynamic 0022 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0023 e00d | | Load 0x0,0xd 0024 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0025 02c7 | | Declare_Variable Any 0026 00d8 | | Load_Top At_Offset_0 0027 1c00 | | Execute_Immediate Run_Utility,0x0 0028 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 002a 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 002c 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 002e 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0030 a014 | | Store_Unchecked 0x0,0x14 0031 00c6 | | Action Check_Subprogram_Elaborated 0032 480b |H | Short_Literal 0xb 0033 4802 |H | Short_Literal 0x2 0034 0099 | | Action Reference_Dynamic 0035 480c |H | Short_Literal 0xc 0036 4802 |H | Short_Literal 0x2 0037 0099 | | Action Reference_Dynamic 0038 0093 0000 | | push_full_address 0x0 003a 606d |`m | Indirect_Literal Discrete,0xa8,{0x80000000, 0x00010000} 003b 0273 | s | Execute Discrete,Plus 003c e002 | | Load 0x0,0x2 003d 0273 | s | Execute Discrete,Plus 003e e01e | | Load 0x0,0x1e 003f 0273 | s | Execute Discrete,Plus 0040 4810 |H | Short_Literal 0x10 0041 0007 | | Action Break_Optional 0042 4801 |H | Short_Literal 0x1 0043 e001 | | Load 0x0,0x1 0044 01d7 | | Execute Vector,Field_Read 0045 0a01 | | Execute_Immediate Plus,0x1 0046 e001 | | Load 0x0,0x1 0047 01d7 | | Execute Vector,Field_Read 0048 02ab | | Declare_Subprogram For_Call,With_Address 0049 4801 |H | Short_Literal 0x1 004a e001 | | Load 0x0,0x1 004b 01d7 | | Execute Vector,Field_Read 004c 0a03 | | Execute_Immediate Plus,0x3 004d e001 | | Load 0x0,0x1 004e 01d7 | | Execute Vector,Field_Read 004f 02ab | | Declare_Subprogram For_Call,With_Address 0050 BODY_0008: 0050 00be | | Action Activate_Tasks 0051 e011 | | Load 0x0,0x11 0052 e213 | | Load 0x1,0x13 0053 0098 | | Execute Package,Field_Read_Dynamic 0054 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0055 e00c | | Load 0x0,0xc 0056 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0057 e00e | | Load 0x0,0xe 0058 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0059 e011 | | Load 0x0,0x11 005a e213 | | Load 0x1,0x13 005b 0098 | | Execute Package,Field_Read_Dynamic 005c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005d c402 | | Store 0x2,0x2 005e e011 | | Load 0x0,0x11 005f e213 | | Load 0x1,0x13 0060 0098 | | Execute Package,Field_Read_Dynamic 0061 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0062 e00c | | Load 0x0,0xc 0063 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0064 e00e | | Load 0x0,0xe 0065 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0066 e011 | | Load 0x0,0x11 0067 e213 | | Load 0x1,0x13 0068 0098 | | Execute Package,Field_Read_Dynamic 0069 1813 | | Execute Package,Field_Execute,Field_Number 0x13 006a c403 | | Store 0x2,0x3 006b e011 | | Load 0x0,0x11 006c e213 | | Load 0x1,0x13 006d 0098 | | Execute Package,Field_Read_Dynamic 006e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 006f e00c | | Load 0x0,0xc 0070 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0071 e00e | | Load 0x0,0xe 0072 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0073 e011 | | Load 0x0,0x11 0074 e213 | | Load 0x1,0x13 0075 0098 | | Execute Package,Field_Read_Dynamic 0076 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0077 c404 | | Store 0x2,0x4 0078 e011 | | Load 0x0,0x11 0079 e213 | | Load 0x1,0x13 007a 0098 | | Execute Package,Field_Read_Dynamic 007b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 007c e00c | | Load 0x0,0xc 007d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 007e e00e | | Load 0x0,0xe 007f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0080 e011 | | Load 0x0,0x11 0081 e213 | | Load 0x1,0x13 0082 0098 | | Execute Package,Field_Read_Dynamic 0083 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0084 c405 | | Store 0x2,0x5 0085 e408 | | Load 0x2,0x8 0086 e5fe | | Load 0x2,-0x2 0087 8215 | | Call 0x1,0x15 0088 c408 | | Store 0x2,0x8 0089 e013 | | Load 0x0,0x13 008a e213 | | Load 0x1,0x13 008b 0098 | | Execute Package,Field_Read_Dynamic 008c e016 | | Load 0x0,0x16 008d e213 | | Load 0x1,0x13 008e 0096 | | Execute Package,Entry 008f c406 | | Store 0x2,0x6 0090 e5ff | | Load 0x2,-0x1 0091 8411 | | Call 0x2,0x11 0092 e408 | | Load 0x2,0x8 0093 8216 | | Call 0x1,0x16 0094 c408 | | Store 0x2,0x8 0095 e5fe | | Load 0x2,-0x2 0096 8412 | | Call 0x2,0x12 0097 e011 | | Load 0x0,0x11 0098 e213 | | Load 0x1,0x13 0099 0098 | | Execute Package,Field_Read_Dynamic 009a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 009b e406 | | Load 0x2,0x6 009c e017 | | Load 0x0,0x17 009d e213 | | Load 0x1,0x13 009e 0096 | | Execute Package,Entry 009f c407 | | Store 0x2,0x7 00a0 e5fb | | Load 0x2,-0x5 00a1 e5fd | | Load 0x2,-0x3 00a2 e5fc | | Load 0x2,-0x4 00a3 e407 | | Load 0x2,0x7 00a4 8218 | | Call 0x1,0x18 00a5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00a6 0000 0000 | | .XXX[0x2] 00a8 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00ac 0000 0000 | | .BLANK 0000[0x4] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 00b4 e402 | | Load 0x2,0x2 00b5 e011 | | Load 0x0,0x11 00b6 e213 | | Load 0x1,0x13 00b7 0098 | | Execute Package,Field_Read_Dynamic 00b8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ba 0000 0000 | | .BLANK 0000[0x6] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 00c4 8018 | | Call 0x0,0x18 00c5 00da | | Load_Top At_Offset_2 00c6 e004 | | Load 0x0,0x4 00c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c8 6809 |h | Jump_Zero 0xd2 00c9 e004 | | Load 0x0,0x4 00ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00cb e7fe | | Load 0x3,-0x2 00cc 801f | | Call 0x0,0x1f 00cd e406 | | Load 0x2,0x6 00ce e019 | | Load 0x0,0x19 00cf e213 | | Load 0x1,0x13 00d0 0096 | | Execute Package,Entry 00d1 7818 |x | Jump 0xea 00d2 00da | | Load_Top At_Offset_2 00d3 8020 | | Call 0x0,0x20 00d4 7004 |p | Jump_Nonzero 0xd9 00d5 00da | | Load_Top At_Offset_2 00d6 8021 | ! | Call 0x0,0x21 00d7 8020 | | Call 0x0,0x20 00d8 6809 |h | Jump_Zero 0xe2 00d9 00db | | Load_Top At_Offset_3 00da 801f | | Call 0x0,0x1f 00db 00db | | Load_Top At_Offset_3 00dc 801f | | Call 0x0,0x1f 00dd e406 | | Load 0x2,0x6 00de e019 | | Load 0x0,0x19 00df e213 | | Load 0x1,0x13 00e0 0096 | | Execute Package,Entry 00e1 7808 |x | Jump 0xea 00e2 e004 | | Load 0x0,0x4 00e3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e4 e7fe | | Load 0x3,-0x2 00e5 801f | | Call 0x0,0x1f 00e6 e406 | | Load 0x2,0x6 00e7 e019 | | Load 0x0,0x19 00e8 e213 | | Load 0x1,0x13 00e9 0096 | | Execute Package,Entry 00ea e402 | | Load 0x2,0x2 00eb 00db | | Load_Top At_Offset_3 00ec e011 | | Load 0x0,0x11 00ed e213 | | Load 0x1,0x13 00ee 0098 | | Execute Package,Field_Read_Dynamic 00ef 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f0 c402 | | Store 0x2,0x2 00f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f2 0000 0000 | | .BLANK 0000[0x6] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00db | | Load_Top At_Offset_3 00fc e004 | | Load 0x0,0x4 00fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00fe 0119 | | Execute Any,Check_In_Formal_Type 00ff 00db | | Load_Top At_Offset_3 0100 e004 | | Load 0x0,0x4 0101 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0102 0119 | | Execute Any,Check_In_Formal_Type 0103 8409 | | Call 0x2,0x9 0104 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0105 0000 0000 | | .XXX[0x3] 0107 0000 | | 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b e7fd | | Load 0x3,-0x3 010c e01a | | Load 0x0,0x1a 010d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010e 0119 | | Execute Any,Check_In_Formal_Type 010f e7fe | | Load 0x3,-0x2 0110 e004 | | Load 0x0,0x4 0111 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0112 0119 | | Execute Any,Check_In_Formal_Type 0113 e7ff | | Load 0x3,-0x1 0114 e004 | | Load 0x0,0x4 0115 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0116 0119 | | Execute Any,Check_In_Formal_Type 0117 840a | | Call 0x2,0xa 0118 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0119 0000 0000 | | .BLANK 0000[0x7] 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug Table 0120 ; -------------------------------------------------------------------------------------- 0120 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0ba1,0x0000,0x0001,0x0000 0126 9c80 e8f4 | | .XXX[0xda] 0128 8088 f141 | A| 012a 493d 1925 |I= %| 012c 3114 f888 |1 | 012e a4ec 2880 | ( | 0130 8080 80b4 | | 0132 b428 8080 | ( | 0134 8080 b4b4 | | 0136 810d c995 | | 0138 85d1 95cc | | 013a 8184 81b9 | | 013c 95dc 81c9 | | 013e 95b5 bdd1 | | 0140 9481 c185 | | 0142 cdcd ddbd | | 0144 c991 cc81 | | 0146 99a5 b194 | | 0148 81d5 cda5 | | 014a b99c 814d | M| 014c bdd5 c98d | | 014e 957d 19a5 | } | 0150 b194 8185 | | 0152 b990 2880 | ( | 0154 8080 80b4 | | 0156 b481 4dbd | M | 0158 d5c9 8d95 | | 015a 7d41 85cd |}A | 015c cddd bdc9 | | 015e 9081 d1bc | | 0160 81a5 b9a5 | | 0162 d1a5 85b1 | | 0164 a5e9 9481 | | 0166 d1a1 9481 | | 0168 8dbd b9d1 | | 016a 95b9 d1cc | | 016c 81bd 9881 | | 016e d1a1 9481 | | 0170 99a5 b194 | | 0172 b880 8105 | | 0174 99d1 95c8 | | 0176 2880 8080 |( | 0178 80b4 b481 | | 017a 4dbd d5c9 |M | 017c 8d95 7d19 | } | 017e a5b1 9481 | | 0180 a185 cc81 | | 0182 8995 95b8 | | 0184 8191 958d | | 0186 c9e5 c1d1 | | 0188 9590 81dd | | 018a a5d1 a081 | | 018c 4dbd d5c9 |M | 018e 8d95 7d41 | }A| 0190 85cd cddd | | 0192 bdc9 90b0 | | 0194 8139 95dd | 9 | 0196 7d19 a5b1 |} | 0198 9481 a5cc | | 019a 2880 8080 |( | 019c 80b4 b481 | | 019e 8dc9 9585 | | 01a0 d195 9081 | | 01a2 85b9 9081 | | 01a4 c1bd c1d5 | | 01a6 b185 d195 | | 01a8 9081 dda5 | | 01aa d1a0 8195 | | 01ac b98d c9e5 | | 01ae c1d1 9590 | | 01b0 81cd bdd5 | | 01b2 c98d 9481 | | 01b4 95b9 d1c9 | | 01b6 a595 cc81 | | 01b8 99bd c881 | | 01ba d1a1 9428 | (| 01bc 8080 8080 | | 01be b4b4 818d | | 01c0 d5c9 c995 | | 01c2 b9d0 81d5 | | 01c4 cd95 c881 | | 01c6 85cc 81cd | | 01c8 c195 8da5 | | 01ca 99a5 9590 | | 01cc 8189 e481 | | 01ce d1a1 9481 | | 01d0 15b9 8dc9 | | 01d2 e5c1 d1a5 | | 01d4 bdb8 81c1 | | 01d6 85c9 85b5 | | 01d8 95d1 95c8 | | 01da b880 8105 | | 01dc b9e4 2880 | ( | 01de 8080 80b4 | | 01e0 b481 cdbd | | 01e2 d5c9 8d94 | | 01e4 8195 b9d1 | | 01e6 c9a5 95cc | | 01e8 81d1 a185 | | 01ea d081 8d85 | | 01ec b9b9 bdd0 | | 01ee 8189 9481 | | 01f0 9195 8dc9 | | 01f2 e5c1 d195 | | 01f4 9081 89e4 | | 01f6 814d bdd5 | M | 01f8 c98d 957d | }| 01fa 4185 cdcd |A | 01fc ddbd c990 | | 01fe 8185 c994 | |