|
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_06e8fd
└─⟦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 0180 | | .CONST 0x0180 ; 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 003b | ; | .CONST 0x003b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b 00bf | | Action Accept_Activation
000c 029d 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call
000e 029d 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call
0010 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call
0012 029d 008b | | Declare_Subprogram INIT_0088,For_Outer_Call
0014 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call
0016 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call
0018 029d 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call
001a 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call
001c 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call
001e 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call
0020 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call
0022 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call
0024 0093 0000 | | push_full_address 0x0
0026 6031 |`1 | Indirect_Literal Discrete,0x58,{0x80000000, 0x00010000}
0027 0273 | s | Execute Discrete,Plus
0028 e002 | | Load 0x0,0x2
0029 0273 | s | Execute Discrete,Plus
002a e003 | | Load 0x0,0x3
002b 0273 | s | Execute Discrete,Plus
002c a004 | | Store_Unchecked 0x0,0x4
002d a005 | | Store_Unchecked 0x0,0x5
002e a006 | | Store_Unchecked 0x0,0x6
002f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0030 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0031 a007 | | Store_Unchecked 0x0,0x7
0032 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0033 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0034 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0035 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0036 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0037 e008 | | Load 0x0,0x8
0038 0387 | | Declare_Variable Package
0039 00d8 | | Load_Top At_Offset_0
003a 020f | | Execute Module,Activate
003b BODY_0008:
003b e009 | | Load 0x0,0x9
003c 00d9 | | Load_Top At_Offset_1
003d 0096 | | Execute Package,Entry
003e 800a | | Call 0x0,0xa
003f 00bc | | Action Signal_Activated
0040 00bb | | Action Signal_Completion
0041 0000 0000 | | .BLANK 0000[0x7]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b e5fd | | Load 0x2,-0x3
004c 0120 | | Execute Any,Is_Value
004d 6803 |h | Jump_Zero 0x51
004e e00b | | Load 0x0,0xb
004f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0050 7801 |x | Jump 0x52
0051 e5fd | | Load 0x2,-0x3
0052 00e1 | | Load_Encached Boolean_Cache
0053 e5ff | | Load 0x2,-0x1
0054 800c | | Call 0x0,0xc
0055 c5fe | | Store 0x2,-0x2
0056 c5fd | | Store 0x2,-0x3
0057 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0058 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
005c 0000 0000 | | .BLANK 0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 e5fb | | Load 0x2,-0x5
0064 e00d | | Load 0x0,0xd
0065 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0066 e00d | | Load 0x0,0xd
0067 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0068 e5fe | | Load 0x2,-0x2
0069 0120 | | Execute Any,Is_Value
006a 6803 |h | Jump_Zero 0x6e
006b e00d | | Load 0x0,0xd
006c 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
006d 7801 |x | Jump 0x6f
006e e5fe | | Load 0x2,-0x2
006f e00e | | Load 0x0,0xe
0070 e5ff | | Load 0x2,-0x1
0071 800f | | Call 0x0,0xf
0072 c00e | | Store 0x0,0xe
0073 c5fe | | Store 0x2,-0x2
0074 c5fd | | Store 0x2,-0x3
0075 c5fc | | Store 0x2,-0x4
0076 c5fb | | Store 0x2,-0x5
0077 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b e00e | | Load 0x0,0xe
007c e5fc | | Load 0x2,-0x4
007d e5fd | | Load 0x2,-0x3
007e e5fe | | Load 0x2,-0x2
007f e5ff | | Load 0x2,-0x1
0080 8010 | | Call 0x0,0x10
0081 c00e | | Store 0x0,0xe
0082 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0083 0000 0000 | | .BLANK 0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b e00e | | Load 0x0,0xe
008c e5fc | | Load 0x2,-0x4
008d e5fd | | Load 0x2,-0x3
008e e5fe | | Load 0x2,-0x2
008f e5ff | | Load 0x2,-0x1
0090 8011 | | Call 0x0,0x11
0091 c00e | | Store 0x0,0xe
0092 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0093 0000 0000 | | .BLANK 0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b e5f6 | | Load 0x2,-0xa
009c e5f7 | | Load 0x2,-0x9
009d e5f8 | | Load 0x2,-0x8
009e e5f9 | | Load 0x2,-0x7
009f e5fa | | Load 0x2,-0x6
00a0 e5fb | | Load 0x2,-0x5
00a1 e5fc | | Load 0x2,-0x4
00a2 e5fd | | Load 0x2,-0x3
00a3 e5fe | | Load 0x2,-0x2
00a4 e5ff | | Load 0x2,-0x1
00a5 480a |H | Short_Literal 0xa
00a6 e012 | | Load 0x0,0x12
00a7 e013 | | Load 0x0,0x13
00a8 00ad | | QQ_Action Package,Field_Execute_Dynamic
00a9 c5f6 | | Store 0x2,-0xa
00aa 450a |E | Exit_Suprogram New_Top_Offset 0xa
00ab 0000 0000 | | .BLANK 0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 00b9 | | .CONST 0x00b9 ; 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 e014 | | Load 0x0,0x14
00b5 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
00b6 1c02 | | Execute_Immediate Run_Utility,0x2
00b7 8015 | | Call 0x0,0x15
00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b9 TRAP_00b0:
00b9 010e | | Execute Exception,Is_Constraint_Error
00ba 6803 |h | Jump_Zero 0xbe
00bb 00db | | Load_Top At_Offset_3
00bc 8016 | | Call 0x0,0x16
00bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00be 0100 | | Execute Exception,Raise
00bf 0000 | | .XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 00c9 | | .CONST 0x00c9 ; 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 e014 | | Load 0x0,0x14
00c5 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
00c6 1c02 | | Execute_Immediate Run_Utility,0x2
00c7 8017 | | Call 0x0,0x17
00c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c9 TRAP_00c0:
00c9 010e | | Execute Exception,Is_Constraint_Error
00ca 6803 |h | Jump_Zero 0xce
00cb 00db | | Load_Top At_Offset_3
00cc 8018 | | Call 0x0,0x18
00cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ce 0100 | | Execute Exception,Raise
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 e5fd | | Load 0x2,-0x3
00d4 0120 | | Execute Any,Is_Value
00d5 6803 |h | Jump_Zero 0xd9
00d6 e00b | | Load 0x0,0xb
00d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d8 7804 |x | Jump 0xdd
00d9 e5fd | | Load 0x2,-0x3
00da e00b | | Load 0x0,0xb
00db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00dc 0119 | | Execute Any,Check_In_Formal_Type
00dd 00e1 | | Load_Encached Boolean_Cache
00de e5ff | | Load 0x2,-0x1
00df 00d8 | | Load_Top At_Offset_0
00e0 00e3 | | Load_Encached Natural_Cache
00e1 0260 | ` | Execute Discrete,In_Type
00e2 7001 |p | Jump_Nonzero 0xe4
00e3 0801 | | Execute_Immediate Raise,0x1
00e4 820d | | Call 0x1,0xd
00e5 c5fe | | Store 0x2,-0x2
00e6 c5fd | | Store 0x2,-0x3
00e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb e5fb | | Load 0x2,-0x5
00ec 00d8 | | Load_Top At_Offset_0
00ed 0120 | | Execute Any,Is_Value
00ee 6804 |h | Jump_Zero 0xf3
00ef e019 | | Load 0x0,0x19
00f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f1 011e | | Execute Any,Convert
00f2 7803 |x | Jump 0xf6
00f3 e01a | | Load 0x0,0x1a
00f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f5 0119 | | Execute Any,Check_In_Formal_Type
00f6 e00d | | Load 0x0,0xd
00f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f8 e00d | | Load 0x0,0xd
00f9 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
00fa e5fe | | Load 0x2,-0x2
00fb 0120 | | Execute Any,Is_Value
00fc 6803 |h | Jump_Zero 0x100
00fd e00d | | Load 0x0,0xd
00fe 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00ff 7804 |x | Jump 0x104
0100 e5fe | | Load 0x2,-0x2
0101 e00d | | Load 0x0,0xd
0102 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0103 0119 | | Execute Any,Check_In_Formal_Type
0104 e5ff | | Load 0x2,-0x1
0105 00d8 | | Load_Top At_Offset_0
0106 00e3 | | Load_Encached Natural_Cache
0107 0260 | ` | Execute Discrete,In_Type
0108 7001 |p | Jump_Nonzero 0x10a
0109 0801 | | Execute_Immediate Raise,0x1
010a 820e | | Call 0x1,0xe
010b c5fe | | Store 0x2,-0x2
010c c5fd | | Store 0x2,-0x3
010d c5fc | | Store 0x2,-0x4
010e c5fb | | Store 0x2,-0x5
010f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e5fc | | Load 0x2,-0x4
0114 00d8 | | Load_Top At_Offset_0
0115 00e3 | | Load_Encached Natural_Cache
0116 0260 | ` | Execute Discrete,In_Type
0117 7001 |p | Jump_Nonzero 0x119
0118 0801 | | Execute_Immediate Raise,0x1
0119 e5fd | | Load 0x2,-0x3
011a e01b | | Load 0x0,0x1b
011b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011c 00d9 | | Load_Top At_Offset_1
011d 00d0 | | Action Swap_Control
011e 0260 | ` | Execute Discrete,In_Type
011f 7001 |p | Jump_Nonzero 0x121
0120 0801 | | Execute_Immediate Raise,0x1
0121 e5fe | | Load 0x2,-0x2
0122 e00d | | Load 0x0,0xd
0123 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0124 0119 | | Execute Any,Check_In_Formal_Type
0125 e5ff | | Load 0x2,-0x1
0126 e01c | | Load 0x0,0x1c
0127 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0128 00d9 | | Load_Top At_Offset_1
0129 00d0 | | Action Swap_Control
012a 0260 | ` | Execute Discrete,In_Type
012b 7001 |p | Jump_Nonzero 0x12d
012c 0801 | | Execute_Immediate Raise,0x1
012d 820f | | Call 0x1,0xf
012e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 e5fc | | Load 0x2,-0x4
0134 00d8 | | Load_Top At_Offset_0
0135 00e3 | | Load_Encached Natural_Cache
0136 0260 | ` | Execute Discrete,In_Type
0137 7001 |p | Jump_Nonzero 0x139
0138 0801 | | Execute_Immediate Raise,0x1
0139 e5fd | | Load 0x2,-0x3
013a e01b | | Load 0x0,0x1b
013b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013c 00d9 | | Load_Top At_Offset_1
013d 00d0 | | Action Swap_Control
013e 0260 | ` | Execute Discrete,In_Type
013f 7001 |p | Jump_Nonzero 0x141
0140 0801 | | Execute_Immediate Raise,0x1
0141 e5fe | | Load 0x2,-0x2
0142 e00d | | Load 0x0,0xd
0143 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0144 0119 | | Execute Any,Check_In_Formal_Type
0145 e5ff | | Load 0x2,-0x1
0146 e01c | | Load 0x0,0x1c
0147 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0148 00d9 | | Load_Top At_Offset_1
0149 00d0 | | Action Swap_Control
014a 0260 | ` | Execute Discrete,In_Type
014b 7001 |p | Jump_Nonzero 0x14d
014c 0801 | | Execute_Immediate Raise,0x1
014d 8210 | | Call 0x1,0x10
014e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
014f 0000 | | .XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 e5f6 | | Load 0x2,-0xa
0154 00d8 | | Load_Top At_Offset_0
0155 0120 | | Execute Any,Is_Value
0156 6804 |h | Jump_Zero 0x15b
0157 e019 | | Load 0x0,0x19
0158 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0159 011e | | Execute Any,Convert
015a 7803 |x | Jump 0x15e
015b e01a | | Load 0x0,0x1a
015c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015d 0119 | | Execute Any,Check_In_Formal_Type
015e e5f7 | | Load 0x2,-0x9
015f e5f8 | | Load 0x2,-0x8
0160 e01d | | Load 0x0,0x1d
0161 0119 | | Execute Any,Check_In_Formal_Type
0162 e5f9 | | Load 0x2,-0x7
0163 e01e | | Load 0x0,0x1e
0164 0119 | | Execute Any,Check_In_Formal_Type
0165 e5fa | | Load 0x2,-0x6
0166 e01f | | Load 0x0,0x1f
0167 0119 | | Execute Any,Check_In_Formal_Type
0168 e5fb | | Load 0x2,-0x5
0169 e01f | | Load 0x0,0x1f
016a 0119 | | Execute Any,Check_In_Formal_Type
016b e5fc | | Load 0x2,-0x4
016c e020 | | Load 0x0,0x20
016d 0119 | | Execute Any,Check_In_Formal_Type
016e e5fd | | Load 0x2,-0x3
016f e021 | ! | Load 0x0,0x21
0170 0119 | | Execute Any,Check_In_Formal_Type
0171 e5fe | | Load 0x2,-0x2
0172 e022 | " | Load 0x0,0x22
0173 0119 | | Execute Any,Check_In_Formal_Type
0174 e5ff | | Load 0x2,-0x1
0175 e023 | # | Load 0x0,0x23
0176 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0177 00d9 | | Load_Top At_Offset_1
0178 00d0 | | Action Swap_Control
0179 0260 | ` | Execute Discrete,In_Type
017a 7001 |p | Jump_Nonzero 0x17c
017b 0801 | | Execute_Immediate Raise,0x1
017c 8211 | | Call 0x1,0x11
017d c5f6 | | Store 0x2,-0xa
017e 450a |E | Exit_Suprogram New_Top_Offset 0xa
017f 0000 | | .XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug Table
0180 ; --------------------------------------------------------------------------------------
0180 0004 0009 | | .DEBUG4 0x0004,0x0009,0x165e,0x0000,0x0001,0x0000
0186 0000 0000 | | .BLANK 0000[0x27]
01ad 1002 8000 | | .XXX[0xb]
01af 0000 0000 | |
01b1 0020 0000 | |
01b3 0110 0000 | |
01b5 0000 8000 | |
01b7 0005 | |
01b8 0000 0000 | | .BLANK 0000[0x48]