|
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_3e90c1
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 029b 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Unelaborated 0010 029d 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call 0012 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call 0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0025 | % | .CONST 0x0025 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0002 | | .CONST 0x0002 ; Number of locals 0023 INIT_0020: 0023 e002 | | Load 0x0,0x2 0024 0007 | | Action Break_Optional 0025 BODY_0020: 0025 8003 | | Call 0x0,0x3 0026 0f3a | : | Execute_Immediate Equal,0x3a 0027 6809 |h | Jump_Zero 0x31 0028 8004 | | Call 0x0,0x4 0029 e002 | | Load 0x0,0x2 002a e5ff | | Load 0x2,-0x1 002b 820e | | Call 0x1,0xe 002c c5ff | | Store 0x2,-0x1 002d 0039 | 9 | Store_Top Access,At_Offset_1 002e 00d8 | | Load_Top At_Offset_0 002f 8005 | | Call 0x0,0x5 0030 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0031 4800 |H | Short_Literal 0x0 0032 a5ff | | Store_Unchecked 0x2,-0x1 0033 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0040 | @ | .CONST 0x0040 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0005 | | .CONST 0x0005 ; Number of locals 003b INIT_0038: 003b e002 | | Load 0x0,0x2 003c 03bd | | Declare_Variable Access,Duplicate 003d 03bd | | Declare_Variable Access,Duplicate 003e e006 | | Load 0x0,0x6 003f 0007 | | Action Break_Optional 0040 BODY_0038: 0040 e002 | | Load 0x0,0x2 0041 e5ff | | Load 0x2,-0x1 0042 8210 | | Call 0x1,0x10 0043 c5ff | | Store 0x2,-0x1 0044 003b | ; | Store_Top Access,At_Offset_3 0045 00da | | Load_Top At_Offset_2 0046 a402 | | Store_Unchecked 0x2,0x2 0047 e5ff | | Load 0x2,-0x1 0048 681d |h | Jump_Zero 0x66 0049 00cf | | Action Mark_Auxiliary 004a 7811 |x | Jump 0x5c 004b 8007 | | Call 0x0,0x7 004c 8008 | | Call 0x0,0x8 004d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 004e 8004 | | Call 0x0,0x4 004f e002 | | Load 0x0,0x2 0050 e5ff | | Load 0x2,-0x1 0051 8210 | | Call 0x1,0x10 0052 c5ff | | Store 0x2,-0x1 0053 003b | ; | Store_Top Access,At_Offset_3 0054 00da | | Load_Top At_Offset_2 0055 e403 | | Load 0x2,0x3 0056 00db | | Load_Top At_Offset_3 0057 8009 | | Call 0x0,0x9 0058 a402 | | Store_Unchecked 0x2,0x2 0059 e402 | | Load 0x2,0x2 005a a403 | | Store_Unchecked 0x2,0x3 005b 00c9 | | Action Pop_Auxiliary_Loop 005c e5ff | | Load 0x2,-0x1 005d 8003 | | Call 0x0,0x3 005e 0f3e | > | Execute_Immediate Equal,0x3e 005f 8003 | | Call 0x0,0x3 0060 0f3d | = | Execute_Immediate Equal,0x3d 0061 0278 | x | Execute Discrete,Or 0062 0279 | y | Execute Discrete,And 0063 77e7 |w | Jump_Nonzero 0x4b 0064 00ce | | Action Pop_Auxiliary 0065 7802 |x | Jump 0x68 0066 4800 |H | Short_Literal 0x0 0067 a5ff | | Store_Unchecked 0x2,-0x1 0068 00db | | Load_Top At_Offset_3 0069 a5fe | | Store_Unchecked 0x2,-0x2 006a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006b 0000 0000 | | .BLANK 0000[0x5] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0075 | u | .CONST 0x0075 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0002 | | .CONST 0x0002 ; Number of locals 0073 INIT_0070: 0073 e002 | | Load 0x0,0x2 0074 0007 | | Action Break_Optional 0075 BODY_0070: 0075 4801 |H | Short_Literal 0x1 0076 a5ff | | Store_Unchecked 0x2,-0x1 0077 8003 | | Call 0x0,0x3 0078 0b41 | A | Execute_Immediate Case_Compare,0x41 0079 7007 |p | Jump_Nonzero 0x81 007a 0b44 | D | Execute_Immediate Case_Compare,0x44 007b 701b |p | Jump_Nonzero 0x97 007c 0f43 | C | Execute_Immediate Equal,0x43 007d 7020 |p | Jump_Nonzero 0x9e 007e 4800 |H | Short_Literal 0x0 007f a5ff | | Store_Unchecked 0x2,-0x1 0080 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0081 00d1 | | Pop_Control Pop_Count_1 0082 8004 | | Call 0x0,0x4 0083 e002 | | Load 0x0,0x2 0084 e5ff | | Load 0x2,-0x1 0085 820e | | Call 0x1,0xe 0086 c5ff | | Store 0x2,-0x1 0087 0039 | 9 | Store_Top Access,At_Offset_1 0088 00d8 | | Load_Top At_Offset_0 0089 a5fe | | Store_Unchecked 0x2,-0x2 008a 00db | | Load_Top At_Offset_3 008b 6808 |h | Jump_Zero 0x94 008c 8003 | | Call 0x0,0x3 008d 0f42 | B | Execute_Immediate Equal,0x42 008e 6802 |h | Jump_Zero 0x91 008f 8004 | | Call 0x0,0x4 0090 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0091 4800 |H | Short_Literal 0x0 0092 a5ff | | Store_Unchecked 0x2,-0x1 0093 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0094 4800 |H | Short_Literal 0x0 0095 a5ff | | Store_Unchecked 0x2,-0x1 0096 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0097 00d1 | | Pop_Control Pop_Count_1 0098 8007 | | Call 0x0,0x7 0099 4801 |H | Short_Literal 0x1 009a 800a | | Call 0x0,0xa 009b a5fe | | Store_Unchecked 0x2,-0x2 009c 8004 | | Call 0x0,0x4 009d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009e 8007 | | Call 0x0,0x7 009f 4802 |H | Short_Literal 0x2 00a0 800a | | Call 0x0,0xa 00a1 a5fe | | Store_Unchecked 0x2,-0x2 00a2 8004 | | Call 0x0,0x4 00a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b0 | | .CONST 0x00b0 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0005 | | .CONST 0x0005 ; Number of locals 00ab INIT_00a8: 00ab e002 | | Load 0x0,0x2 00ac 03bd | | Declare_Variable Access,Duplicate 00ad 03bd | | Declare_Variable Access,Duplicate 00ae e006 | | Load 0x0,0x6 00af 0007 | | Action Break_Optional 00b0 BODY_00a8: 00b0 e002 | | Load 0x0,0x2 00b1 e5ff | | Load 0x2,-0x1 00b2 820f | | Call 0x1,0xf 00b3 c5ff | | Store 0x2,-0x1 00b4 003b | ; | Store_Top Access,At_Offset_3 00b5 00da | | Load_Top At_Offset_2 00b6 a402 | | Store_Unchecked 0x2,0x2 00b7 e5ff | | Load 0x2,-0x1 00b8 6821 |h! | Jump_Zero 0xda 00b9 00cf | | Action Mark_Auxiliary 00ba 7811 |x | Jump 0xcc 00bb 8007 | | Call 0x0,0x7 00bc 8008 | | Call 0x0,0x8 00bd 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00be 8004 | | Call 0x0,0x4 00bf e002 | | Load 0x0,0x2 00c0 e5ff | | Load 0x2,-0x1 00c1 820f | | Call 0x1,0xf 00c2 c5ff | | Store 0x2,-0x1 00c3 003b | ; | Store_Top Access,At_Offset_3 00c4 00da | | Load_Top At_Offset_2 00c5 e403 | | Load 0x2,0x3 00c6 00db | | Load_Top At_Offset_3 00c7 8009 | | Call 0x0,0x9 00c8 a402 | | Store_Unchecked 0x2,0x2 00c9 e402 | | Load 0x2,0x2 00ca a403 | | Store_Unchecked 0x2,0x3 00cb 00c9 | | Action Pop_Auxiliary_Loop 00cc e5ff | | Load 0x2,-0x1 00cd 0f01 | | Execute_Immediate Equal,0x1 00ce 8003 | | Call 0x0,0x3 00cf 0f40 | @ | Execute_Immediate Equal,0x40 00d0 8003 | | Call 0x0,0x3 00d1 0f3f | ? | Execute_Immediate Equal,0x3f 00d2 0278 | x | Execute Discrete,Or 00d3 8003 | | Call 0x0,0x3 00d4 0f34 | 4 | Execute_Immediate Equal,0x34 00d5 0278 | x | Execute Discrete,Or 00d6 0279 | y | Execute Discrete,And 00d7 77e3 |w | Jump_Nonzero 0xbb 00d8 00ce | | Action Pop_Auxiliary 00d9 7802 |x | Jump 0xdc 00da 4800 |H | Short_Literal 0x0 00db a5ff | | Store_Unchecked 0x2,-0x1 00dc 00db | | Load_Top At_Offset_3 00dd a5fe | | Store_Unchecked 0x2,-0x2 00de 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug Table 00e0 ; -------------------------------------------------------------------------------------- 00e0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc783,0x0000,0x0001,0x0006 00e6 000b 00fe | | .DBG4T 0x000b,0x00fe,0x8000,0x0000 00ea 000e 0101 | | .DBG4T 0x000e,0x0101,0x8000,0x0000 00ee 0023 0108 | # | .DBG4T 0x0023,0x0108,0x0001,0x0000 00f2 003b 0110 | ; | .DBG4T 0x003b,0x0110,0x0001,0x4000 00f6 0073 012a | s *| .DBG4T 0x0073,0x012a,0x0001,0x4000 00fa 00ab 014b | K| .DBG4T 0x00ab,0x014b,0x0001,0x4000 00fe ; -------------------------------------------------------------------------------------- 00fe ; Debug chain 00fe ; -------------------------------------------------------------------------------------- 00fe 0001 0000 | | .DBGLEN 0x0001,0x0000 0100 000b | | .DBGLNO 0x000b 0101 ; -------------------------------------------------------------------------------------- 0101 ; Debug chain 0101 ; -------------------------------------------------------------------------------------- 0101 0005 0000 | | .DBGLEN 0x0005,0x0000 0103 000e 0010 | | .DBGLNO 0x000e,0x0010,0x0012,0x0014,0x0016 0108 ; -------------------------------------------------------------------------------------- 0108 ; Debug chain 0108 ; -------------------------------------------------------------------------------------- 0108 0001 0005 | | .DBGLEN 0x0001,0x0005 010a 0023 0025 | # %| .DBGLNO 0x0023,0x0025,0x0028,0x0029,0x002e,0x0031 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug chain 0110 ; -------------------------------------------------------------------------------------- 0110 0002 000b | | .DBGLEN 0x0002,0x000b 0112 003b 003e | ; >| .DBGLNO 0x003b,0x003e,0x0040,0x0045,0x0047,0x004b,0x004e,0x004f,0x0054,0x0059,0x005c,0x0066,0x0068 011f 0001 0002 | | .XXX[0xb] 0121 0003 0005 | | 0123 0006 0007 | | 0125 0008 0009 | | 0127 0004 000a | | 0129 000b | | 012a ; -------------------------------------------------------------------------------------- 012a ; Debug chain 012a ; -------------------------------------------------------------------------------------- 012a 0001 000f | | .DBGLEN 0x0001,0x000f 012c 0073 0075 | s u| .DBGLNO 0x0073,0x0075,0x0077,0x007e,0x0082,0x0083,0x0088,0x008a,0x008c,0x008f,0x0091,0x0094,0x0098,0x009c,0x009e,0x00a2 013c 0001 0002 | | .XXX[0xf] 013e 000f 0003 | | 0140 0004 0005 | | 0142 0006 0007 | | 0144 0008 0009 | | 0146 000a 000b | | 0148 000c 000d | | 014a 000e | | 014b ; -------------------------------------------------------------------------------------- 014b ; Debug chain 014b ; -------------------------------------------------------------------------------------- 014b 0002 000b | | .DBGLEN 0x0002,0x000b 014d 00ab 00ae | | .DBGLNO 0x00ab,0x00ae,0x00b0,0x00b5,0x00b7,0x00bb,0x00be,0x00bf,0x00c4,0x00c9,0x00cc,0x00da,0x00dc 015a 0001 0002 | | .XXX[0xb] 015c 0003 0005 | | 015e 0006 0007 | | 0160 0008 0009 | | 0162 0004 000a | | 0164 000b | | 0165 0000 0000 | | .BLANK 0000[0x9b]