|
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_03c0fe
└─⟦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 0190 | | .CONST 0x0190 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002e | . | .CONST 0x002e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 4988 |I | Short_Literal 0x188
000f 00e3 | | Load_Encached Natural_Cache
0010 03f1 | | Declare_Variable Discrete,With_Value
0011 00e3 | | Load_Encached Natural_Cache
0012 064f | O | Execute_Immediate Set_Value_Unchecked,0x4f
0013 a002 | | Store_Unchecked 0x0,0x2
0014 00c6 | | Action Check_Subprogram_Elaborated
0015 e003 | | Load 0x0,0x3
0016 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
0017 e004 | | Load 0x0,0x4
0018 e005 | | Load 0x0,0x5
0019 e006 | | Load 0x0,0x6
001a 4800 |H | Short_Literal 0x0
001b 0007 | | Action Break_Optional
001c e003 | | Load 0x0,0x3
001d 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
001e 012c | , | Execute Any,Size
001f e004 | | Load 0x0,0x4
0020 012c | , | Execute Any,Size
0021 027f | | Execute Discrete,Equal
0022 7001 |p | Jump_Nonzero 0x24
0023 0887 | | Execute_Immediate Raise,0x87
0024 029d 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call
0026 029d 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call
0028 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call
002a 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call
002c 1d0d | | Execute_Immediate Reference_Lex_1,0xd
002d 00c7 | | Action Elaborate_Subprogram
002e BODY_0008:
002e 00bc | | Action Signal_Activated
002f 00bb | | Action Signal_Completion
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0037 | 7 | .CONST 0x0037 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0002 | | .CONST 0x0002 ; Number of locals
0033 INIT_0030:
0033 e5fd | | Load 0x2,-0x3
0034 e5fe | | Load 0x2,-0x2
0035 e5ff | | Load 0x2,-0x1
0036 8215 | | Call 0x1,0x15
0037 BODY_0030:
0037 e5fd | | Load 0x2,-0x3
0038 6804 |h | Jump_Zero 0x3d
0039 00d8 | | Load_Top At_Offset_0
003a e5fc | | Load 0x2,-0x4
003b 8216 | | Call 0x1,0x16
003c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
003d 00d8 | | Load_Top At_Offset_0
003e e5fc | | Load 0x2,-0x4
003f 8218 | | Call 0x1,0x18
0040 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
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 e007 | | Load 0x0,0x7
004c e5fd | | Load 0x2,-0x3
004d 4801 |H | Short_Literal 0x1
004e e5fe | | Load 0x2,-0x2
004f 00d8 | | Load_Top At_Offset_0
0050 e008 | | Load 0x0,0x8
0051 0260 | ` | Execute Discrete,In_Type
0052 7001 |p | Jump_Nonzero 0x54
0053 0801 | | Execute_Immediate Raise,0x1
0054 e5ff | | Load 0x2,-0x1
0055 e210 | | Load 0x1,0x10
0056 e211 | | Load 0x1,0x11
0057 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0058 8002 | | Call 0x0,0x2
0059 8009 | | Call 0x0,0x9
005a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
005b 0000 0000 | | .BLANK 0000[0x5]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0081 | | .CONST 0x0081 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0009 | | .CONST 0x0009 ; Number of locals
0063 INIT_0060:
0063 e5ff | | Load 0x2,-0x1
0064 01db | | Execute Vector,Length
0065 00e3 | | Load_Encached Natural_Cache
0066 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0067 e20e | | Load 0x1,0xe
0068 e00a | | Load 0x0,0xa
0069 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006a 1c08 | | Execute_Immediate Run_Utility,0x8
006b 00d8 | | Load_Top At_Offset_0
006c 1c00 | | Execute_Immediate Run_Utility,0x0
006d 00e3 | | Load_Encached Natural_Cache
006e 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0070 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
0072 a00b | | Store_Unchecked 0x0,0xb
0073 00c6 | | Action Check_Subprogram_Elaborated
0074 4805 |H | Short_Literal 0x5
0075 4802 |H | Short_Literal 0x2
0076 0099 | | Action Reference_Dynamic
0077 0093 0000 | | push_full_address 0x0
0079 6032 |`2 | Indirect_Literal Discrete,0xac,{0x80000000, 0x00020000}
007a 0273 | s | Execute Discrete,Plus
007b e00c | | Load 0x0,0xc
007c 0273 | s | Execute Discrete,Plus
007d e00d | | Load 0x0,0xd
007e 0273 | s | Execute Discrete,Plus
007f 4809 |H | Short_Literal 0x9
0080 0007 | | Action Break_Optional
0081 BODY_0060:
0081 e403 | | Load 0x2,0x3
0082 4820 |H | Short_Literal 0x20
0083 4800 |H | Short_Literal 0x0
0084 e00a | | Load 0x0,0xa
0085 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0086 00d1 | | Pop_Control Pop_Count_1
0087 e402 | | Load 0x2,0x2
0088 0c01 | | Execute_Immediate Greater_Equal,0x1
0089 6803 |h | Jump_Zero 0x8d
008a e402 | | Load 0x2,0x2
008b a404 | | Store_Unchecked 0x2,0x4
008c 7802 |x | Jump 0x8f
008d 4804 |H | Short_Literal 0x4
008e a404 | | Store_Unchecked 0x2,0x4
008f 4800 |H | Short_Literal 0x0
0090 e20f | | Load 0x1,0xf
0091 00d8 | | Load_Top At_Offset_0
0092 00e4 | | Load_Encached Positive_Cache
0093 0260 | ` | Execute Discrete,In_Type
0094 7001 |p | Jump_Nonzero 0x96
0095 0801 | | Execute_Immediate Raise,0x1
0096 e404 | | Load 0x2,0x4
0097 6010 |` | Indirect_Literal Discrete,0xa8,{0x00000000, 0x7fffffff}
0098 4800 |H | Short_Literal 0x0
0099 e5ff | | Load 0x2,-0x1
009a e5fe | | Load 0x2,-0x2
009b 01cc | | Execute Vector,Catenate
009c 4807 |H | Short_Literal 0x7
009d 4802 |H | Short_Literal 0x2
009e 0099 | | Action Reference_Dynamic
009f 4808 |H | Short_Literal 0x8
00a0 4802 |H | Short_Literal 0x2
00a1 0099 | | Action Reference_Dynamic
00a2 800b | | Call 0x0,0xb
00a3 8406 | | Call 0x2,0x6
00a4 e403 | | Load 0x2,0x3
00a5 e00a | | Load 0x0,0xa
00a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00ac 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00c6 | | .CONST 0x00c6 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0002 | | .CONST 0x0002 ; Number of locals
00b3 INIT_00b0:
00b3 4801 |H | Short_Literal 0x1
00b4 e5ff | | Load 0x2,-0x1
00b5 00e9 | | Load_Encached String_Cache
00b6 035b | [ | Declare_Type Array,Constrained
00b7 0337 | 7 | Declare_Variable Array
00b8 00d8 | | Load_Top At_Offset_0
00b9 0335 | 5 | Declare_Variable Array,Duplicate
00ba 00cd | | Action Spare6_Action
00bb e402 | | Load 0x2,0x2
00bc 01d9 | | Execute Vector,Reverse_Bounds
00bd 0263 | c | Execute Discrete,Above_Bound
00be 7005 |p | Jump_Nonzero 0xc4
00bf 482e |H. | Short_Literal 0x2e
00c0 e405 | | Load 0x2,0x5
00c1 e403 | | Load 0x2,0x3
00c2 01d6 | | Execute Vector,Field_Write
00c3 3ffb |? | Loop_Increasing 0xbf
00c4 e402 | | Load 0x2,0x2
00c5 01d4 | | Execute Vector,Structure_Write
00c6 BODY_00b0:
00c6 4820 |H | Short_Literal 0x20
00c7 e402 | | Load 0x2,0x2
00c8 01dc | | Execute Vector,Last
00c9 e402 | | Load 0x2,0x2
00ca 01d6 | | Execute Vector,Field_Write
00cb 00d8 | | Load_Top At_Offset_0
00cc 00e9 | | Load_Encached String_Cache
00cd 01c6 | | Execute Vector,Convert_To_Formal
00ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00f3 | | .CONST 0x00f3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0009 | | .CONST 0x0009 ; Number of locals
00d3 INIT_00d0:
00d3 e5ff | | Load 0x2,-0x1
00d4 01db | | Execute Vector,Length
00d5 00e3 | | Load_Encached Natural_Cache
00d6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00d7 00d8 | | Load_Top At_Offset_0
00d8 8217 | | Call 0x1,0x17
00d9 e20f | | Load 0x1,0xf
00da 0901 | | Execute_Immediate Binary_Scale,0x1
00db e00a | | Load 0x0,0xa
00dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00dd 1c08 | | Execute_Immediate Run_Utility,0x8
00de 00d8 | | Load_Top At_Offset_0
00df 1c00 | | Execute_Immediate Run_Utility,0x0
00e0 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
00e2 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
00e4 a00e | | Store_Unchecked 0x0,0xe
00e5 00c6 | | Action Check_Subprogram_Elaborated
00e6 4805 |H | Short_Literal 0x5
00e7 4802 |H | Short_Literal 0x2
00e8 0099 | | Action Reference_Dynamic
00e9 0093 0000 | | push_full_address 0x0
00eb 6030 |`0 | Indirect_Literal Discrete,0x11c,{0x80000000, 0x00010000}
00ec 0273 | s | Execute Discrete,Plus
00ed e00c | | Load 0x0,0xc
00ee 0273 | s | Execute Discrete,Plus
00ef e00f | | Load 0x0,0xf
00f0 0273 | s | Execute Discrete,Plus
00f1 4809 |H | Short_Literal 0x9
00f2 0007 | | Action Break_Optional
00f3 BODY_00d0:
00f3 e404 | | Load 0x2,0x4
00f4 4820 |H | Short_Literal 0x20
00f5 4800 |H | Short_Literal 0x0
00f6 e00a | | Load 0x0,0xa
00f7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00f8 00d1 | | Pop_Control Pop_Count_1
00f9 e402 | | Load 0x2,0x2
00fa e5fe | | Load 0x2,-0x2
00fb 01db | | Execute Vector,Length
00fc 0273 | s | Execute Discrete,Plus
00fd e20f | | Load 0x1,0xf
00fe 027a | z | Execute Discrete,Less_Equal
00ff 6804 |h | Jump_Zero 0x104
0100 e5ff | | Load 0x2,-0x1
0101 e5fe | | Load 0x2,-0x2
0102 01cc | | Execute Vector,Catenate
0103 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0104 e20f | | Load 0x1,0xf
0105 00d8 | | Load_Top At_Offset_0
0106 00e4 | | Load_Encached Positive_Cache
0107 0260 | ` | Execute Discrete,In_Type
0108 7001 |p | Jump_Nonzero 0x10a
0109 0801 | | Execute_Immediate Raise,0x1
010a e403 | | Load 0x2,0x3
010b e5ff | | Load 0x2,-0x1
010c e5fe | | Load 0x2,-0x2
010d 01cc | | Execute Vector,Catenate
010e 4807 |H | Short_Literal 0x7
010f 4802 |H | Short_Literal 0x2
0110 0099 | | Action Reference_Dynamic
0111 4808 |H | Short_Literal 0x8
0112 4802 |H | Short_Literal 0x2
0113 0099 | | Action Reference_Dynamic
0114 800e | | Call 0x0,0xe
0115 8406 | | Call 0x2,0x6
0116 e404 | | Load 0x2,0x4
0117 e00a | | Load 0x0,0xa
0118 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0119 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011a 0000 0000 | | .XXX[0x2]
011c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 012a | * | .CONST 0x012a ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e403 | | Load 0x2,0x3
0124 480a |H | Short_Literal 0xa
0125 e7ff | | Load 0x3,-0x1
0126 01cb | | Execute Vector,Append
0127 e00a | | Load 0x0,0xa
0128 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0129 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012a TRAP_0120:
012a 010e | | Execute Exception,Is_Constraint_Error
012b 6801 |h | Jump_Zero 0x12d
012c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012d 0100 | | Execute Exception,Raise
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0138 | 8 | .CONST 0x0138 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 e403 | | Load 0x2,0x3
0134 e00a | | Load 0x0,0xa
0135 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0136 00e3 | | Load_Encached Natural_Cache
0137 03f1 | | Declare_Variable Discrete,With_Value
0138 BODY_0130:
0138 00d8 | | Load_Top At_Offset_0
0139 0c01 | | Execute_Immediate Greater_Equal,0x1
013a 6817 |h | Jump_Zero 0x152
013b 00d8 | | Load_Top At_Offset_0
013c 00d8 | | Load_Top At_Offset_0
013d 00e4 | | Load_Encached Positive_Cache
013e 0260 | ` | Execute Discrete,In_Type
013f 7001 |p | Jump_Nonzero 0x141
0140 0801 | | Execute_Immediate Raise,0x1
0141 e403 | | Load 0x2,0x3
0142 e00a | | Load 0x0,0xa
0143 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0144 0f0a | | Execute_Immediate Equal,0xa
0145 680c |h | Jump_Zero 0x152
0146 e403 | | Load 0x2,0x3
0147 4820 |H | Short_Literal 0x20
0148 e602 | | Load 0x3,0x2
0149 0aff | | Execute_Immediate Plus,-0x1
014a 00d8 | | Load_Top At_Offset_0
014b 00e3 | | Load_Encached Natural_Cache
014c 0260 | ` | Execute Discrete,In_Type
014d 7001 |p | Jump_Nonzero 0x14f
014e 0801 | | Execute_Immediate Raise,0x1
014f e00a | | Load 0x0,0xa
0150 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0151 00d1 | | Pop_Control Pop_Count_1
0152 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0153 0000 0000 | | .BLANK 0000[0x5]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0162 | b | .CONST 0x0162 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e404 | | Load 0x2,0x4
015c 480a |H | Short_Literal 0xa
015d e7ff | | Load 0x3,-0x1
015e 01cb | | Execute Vector,Append
015f e00a | | Load 0x0,0xa
0160 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0162 TRAP_0158:
0162 010e | | Execute Exception,Is_Constraint_Error
0163 6801 |h | Jump_Zero 0x165
0164 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0165 0100 | | Execute Exception,Raise
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0170 | p | .CONST 0x0170 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0002 | | .CONST 0x0002 ; Number of locals
016b INIT_0168:
016b e404 | | Load 0x2,0x4
016c e00a | | Load 0x0,0xa
016d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
016e 00e3 | | Load_Encached Natural_Cache
016f 03f1 | | Declare_Variable Discrete,With_Value
0170 BODY_0168:
0170 00d8 | | Load_Top At_Offset_0
0171 0c01 | | Execute_Immediate Greater_Equal,0x1
0172 6817 |h | Jump_Zero 0x18a
0173 00d8 | | Load_Top At_Offset_0
0174 00d8 | | Load_Top At_Offset_0
0175 00e4 | | Load_Encached Positive_Cache
0176 0260 | ` | Execute Discrete,In_Type
0177 7001 |p | Jump_Nonzero 0x179
0178 0801 | | Execute_Immediate Raise,0x1
0179 e404 | | Load 0x2,0x4
017a e00a | | Load 0x0,0xa
017b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
017c 0f0a | | Execute_Immediate Equal,0xa
017d 680c |h | Jump_Zero 0x18a
017e e404 | | Load 0x2,0x4
017f 4820 |H | Short_Literal 0x20
0180 e602 | | Load 0x3,0x2
0181 0aff | | Execute_Immediate Plus,-0x1
0182 00d8 | | Load_Top At_Offset_0
0183 00e3 | | Load_Encached Natural_Cache
0184 0260 | ` | Execute Discrete,In_Type
0185 7001 |p | Jump_Nonzero 0x187
0186 0801 | | Execute_Immediate Raise,0x1
0187 e00a | | Load 0x0,0xa
0188 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0189 00d1 | | Pop_Control Pop_Count_1
018a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
018b 0000 0000 | | .BLANK 0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug Table
0190 ; --------------------------------------------------------------------------------------
0190 0004 0011 | | .DEBUG4 0x0004,0x0011,0x97a1,0x0000,0x0001,0x0000
0196 0000 0000 | | .BLANK 0000[0x6a]