|
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_5850da
└─⟦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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0032 | 2 | .CONST 0x0032 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 0266 | f | Execute Discrete,Bounds
000d e001 | | Load 0x0,0x1
000e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000f 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call
0011 4801 |H | Short_Literal 0x1
0012 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0013 00e3 | | Load_Encached Natural_Cache
0014 e002 | | Load 0x0,0x2
0015 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0016 4801 |H | Short_Literal 0x1
0017 6038 |`8 | Indirect_Literal Discrete,0x50,{0x00000000, 0x7fffffff}
0018 e20d | | Load 0x1,0xd
0019 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
001a 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
001c 4800 |H | Short_Literal 0x0
001d 4801 |H | Short_Literal 0x1
001e 4801 |H | Short_Literal 0x1
001f 4800 |H | Short_Literal 0x0
0020 4801 |H | Short_Literal 0x1
0021 4801 |H | Short_Literal 0x1
0022 031e | | Declare_Type Variant_Record,Defined,Visible
0023 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0025 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0027 00bf | | Action Accept_Activation
0028 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call
002a 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call
002c 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call
002e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002f 00c7 | | Action Elaborate_Subprogram
0030 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0031 00c7 | | Action Elaborate_Subprogram
0032 BODY_0008:
0032 00bc | | Action Signal_Activated
0033 00bb | | Action Signal_Completion
0034 0000 0000 | | .BLANK 0000[0x4]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 00d1 | | Pop_Control Pop_Count_1
003c 00da | | Load_Top At_Offset_2
003d 01dc | | Execute Vector,Last
003e 00db | | Load_Top At_Offset_3
003f 01dd | | Execute Vector,First
0040 0263 | c | Execute Discrete,Above_Bound
0041 700a |p | Jump_Nonzero 0x4c
0042 00d8 | | Load_Top At_Offset_0
0043 e5ff | | Load 0x2,-0x1
0044 01d5 | | Execute Vector,Field_Reference
0045 0125 | % | Execute Any,Set_Constraint
0046 00d8 | | Load_Top At_Offset_0
0047 e5ff | | Load 0x2,-0x1
0048 01d5 | | Execute Vector,Field_Reference
0049 1c00 | | Execute_Immediate Run_Utility,0x0
004a 0a01 | | Execute_Immediate Plus,0x1
004b 7ff4 | | Jump 0x40
004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
004d 0000 0000 | | .XXX[0x3]
004f 0000 | |
0050 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0054 0000 0000 | | .BLANK 0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00db | | Load_Top At_Offset_3
005c 00db | | Load_Top At_Offset_3
005d e003 | | Load 0x0,0x3
005e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
005f 8213 | | Call 0x1,0x13
0060 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0061 0000 0000 | | .BLANK 0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00db | | Load_Top At_Offset_3
006c 00db | | Load_Top At_Offset_3
006d e003 | | Load 0x0,0x3
006e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
006f 8213 | | Call 0x1,0x13
0070 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0071 0000 0000 | | .BLANK 0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007e | ~ | .CONST 0x007e ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0002 | | .CONST 0x0002 ; Number of locals
007b INIT_0078:
007b e004 | | Load 0x0,0x4
007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
007e BODY_0078:
007e e004 | | Load 0x0,0x4
007f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0080 e5fe | | Load 0x2,-0x2
0081 0120 | | Execute Any,Is_Value
0082 6803 |h | Jump_Zero 0x86
0083 e001 | | Load 0x0,0x1
0084 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0085 7801 |x | Jump 0x87
0086 e5fe | | Load 0x2,-0x2
0087 e5ff | | Load 0x2,-0x1
0088 e005 | | Load 0x0,0x5
0089 1816 | | Execute Package,Field_Execute,Field_Number 0x16
008a c5fe | | Store 0x2,-0x2
008b 0059 | Y | Store_Top Discrete,At_Offset_1
008c e5fd | | Load 0x2,-0x3
008d 00d9 | | Load_Top At_Offset_1
008e e005 | | Load 0x0,0x5
008f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0090 c5fd | | Store 0x2,-0x3
0091 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0092 0000 0000 | | .BLANK 0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a6 | | .CONST 0x00a6 ; Address of begin
0099 00d7 | | .CONST 0x00d7 ; Address of exception handler
009a 0003 | | .CONST 0x0003 ; Number of locals
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2
009c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
009d e20e | | Load 0x1,0xe
009e 1c08 | | Execute_Immediate Run_Utility,0x8
009f 00d8 | | Load_Top At_Offset_0
00a0 1c00 | | Execute_Immediate Run_Utility,0x0
00a1 e002 | | Load 0x0,0x2
00a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a3 02c7 | | Declare_Variable Any
00a4 00d8 | | Load_Top At_Offset_0
00a5 1c00 | | Execute_Immediate Run_Utility,0x0
00a6 BODY_0098:
00a6 00d9 | | Load_Top At_Offset_1
00a7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00a8 e5ff | | Load 0x2,-0x1
00a9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00aa e005 | | Load 0x0,0x5
00ab 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ac 00da | | Load_Top At_Offset_2
00ad 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00ae 00cf | | Action Mark_Auxiliary
00af e5ff | | Load 0x2,-0x1
00b0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00b1 01dc | | Execute Vector,Last
00b2 4801 |H | Short_Literal 0x1
00b3 0263 | c | Execute Discrete,Above_Bound
00b4 701f |p | Jump_Nonzero 0xd4
00b5 e402 | | Load 0x2,0x2
00b6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00b7 00d9 | | Load_Top At_Offset_1
00b8 e403 | | Load 0x2,0x3
00b9 00d9 | | Load_Top At_Offset_1
00ba 00db | | Load_Top At_Offset_3
00bb 01d7 | | Execute Vector,Field_Read
00bc 0120 | | Execute Any,Is_Value
00bd 6807 |h | Jump_Zero 0xc5
00be e001 | | Load 0x0,0x1
00bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c0 00da | | Load_Top At_Offset_2
00c1 e407 | | Load 0x2,0x7
00c2 01d7 | | Execute Vector,Field_Read
00c3 00d1 | | Pop_Control Pop_Count_1
00c4 7803 |x | Jump 0xc8
00c5 00d9 | | Load_Top At_Offset_1
00c6 00db | | Load_Top At_Offset_3
00c7 01d7 | | Execute Vector,Field_Read
00c8 e406 | | Load 0x2,0x6
00c9 e5ff | | Load 0x2,-0x1
00ca 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00cb 01d7 | | Execute Vector,Field_Read
00cc 8211 | | Call 0x1,0x11
00cd 00da | | Load_Top At_Offset_2
00ce e407 | | Load 0x2,0x7
00cf 01d6 | | Execute Vector,Field_Write
00d0 c403 | | Store 0x2,0x3
00d1 00d2 | | Pop_Control Pop_Count_2
00d2 00c8 | | Action Pop_Auxiliary_Range
00d3 3fe1 |? | Loop_Increasing 0xb5
00d4 00ce | | Action Pop_Auxiliary
00d5 00d9 | | Load_Top At_Offset_1
00d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d7 TRAP_0098:
00d7 0007 | | Action Break_Optional
00d8 0831 | 1 | Execute_Immediate Raise,0x31
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ee | | .CONST 0x00ee ; Address of begin
00e1 010a | | .CONST 0x010a ; Address of exception handler
00e2 0003 | | .CONST 0x0003 ; Number of locals
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00e5 e20e | | Load 0x1,0xe
00e6 1c08 | | Execute_Immediate Run_Utility,0x8
00e7 00d8 | | Load_Top At_Offset_0
00e8 1c00 | | Execute_Immediate Run_Utility,0x0
00e9 e002 | | Load 0x0,0x2
00ea 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00eb 02c7 | | Declare_Variable Any
00ec 00d8 | | Load_Top At_Offset_0
00ed 1c00 | | Execute_Immediate Run_Utility,0x0
00ee BODY_00e0:
00ee 00d9 | | Load_Top At_Offset_1
00ef 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f0 e5ff | | Load 0x2,-0x1
00f1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f2 e005 | | Load 0x0,0x5
00f3 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f4 00da | | Load_Top At_Offset_2
00f5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00f6 00cf | | Action Mark_Auxiliary
00f7 e5ff | | Load 0x2,-0x1
00f8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00f9 01dc | | Execute Vector,Last
00fa 4801 |H | Short_Literal 0x1
00fb 0263 | c | Execute Discrete,Above_Bound
00fc 700a |p | Jump_Nonzero 0x107
00fd 00d8 | | Load_Top At_Offset_0
00fe e5ff | | Load 0x2,-0x1
00ff 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0100 01d7 | | Execute Vector,Field_Read
0101 00d9 | | Load_Top At_Offset_1
0102 e402 | | Load 0x2,0x2
0103 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0104 01d6 | | Execute Vector,Field_Write
0105 00c8 | | Action Pop_Auxiliary_Range
0106 3ff6 |? | Loop_Increasing 0xfd
0107 00ce | | Action Pop_Auxiliary
0108 00d9 | | Load_Top At_Offset_1
0109 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010a TRAP_00e0:
010a 0007 | | Action Break_Optional
010b 0831 | 1 | Execute_Immediate Raise,0x31
010c 0000 0000 | | .BLANK 0000[0x4]
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 4608 |F | Jump_Case 0x9
0114 7808 |x | Jump 0x11d ; case 0x0
0115 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0116 7822 |x" | Jump 0x139 ; case 0x2
0117 7821 |x! | Jump 0x139 ; case 0x3
0118 7820 |x | Jump 0x139 ; case 0x4
0119 781f |x | Jump 0x139 ; case 0x5
011a 781e |x | Jump 0x139 ; case 0x6
011b 780a |x | Jump 0x126 ; case 0x7
011c 7812 |x | Jump 0x12f ; case 0x8
011d 00da | | Load_Top At_Offset_2
011e 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
011f 00da | | Load_Top At_Offset_2
0120 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0121 1c00 | | Execute_Immediate Run_Utility,0x0
0122 00da | | Load_Top At_Offset_2
0123 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0124 1c00 | | Execute_Immediate Run_Utility,0x0
0125 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0126 00db | | Load_Top At_Offset_3
0127 4801 |H | Short_Literal 0x1
0128 e5fe | | Load 0x2,-0x2
0129 e20d | | Load 0x1,0xd
012a 035b | [ | Declare_Type Array,Constrained
012b 4801 |H | Short_Literal 0x1
012c e5ff | | Load 0x2,-0x1
012d 031b | | Declare_Type Variant_Record,Constrained
012e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
012f 00db | | Load_Top At_Offset_3
0130 00db | | Load_Top At_Offset_3
0131 02fc | | Declare_Variable Variant_Record,With_Constraint
0132 4801 |H | Short_Literal 0x1
0133 e5fe | | Load 0x2,-0x2
0134 e20d | | Load 0x1,0xd
0135 0334 | 4 | Declare_Variable Array,With_Constraint
0136 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0137 016a | j | QQ_execute Variant_Record,XXX
0138 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0139 0869 | i | Execute_Immediate Raise,0x69
013a 0000 0000 | | .BLANK 0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug Table
0140 ; --------------------------------------------------------------------------------------
0140 0004 000d | | .DEBUG4 0x0004,0x000d,0x5156,0x0000,0x0001,0x0000
0146 0003 76d3 | v | .XXX[0x56]
0148 09b2 ec04 | |
014a 0000 05bf | |
014c 0010 fa90 | |
014e 0201 56bb | V |
0150 001a 9404 | |
0152 0800 0100 | |
0154 8000 0000 | |
0156 0000 0000 | |
0158 09b2 ec04 | |
015a 0800 1e38 | 8|
015c 1b8c 390a | 9 |
015e 0008 b38c | |
0160 09b2 ec04 | |
0162 0000 007f | |
0164 0048 fc0e | H |
0166 0005 4a12 | J |
0168 09b2 ec04 | |
016a 0000 05bf | |
016c 0012 84e4 | |
016e 0201 56bb | V |
0170 000f d004 | |
0172 0800 01cc | |
0174 1b8c 390a | 9 |
0176 0008 b3cc | |
0178 001a 9404 | |
017a 0000 007f | |
017c 0048 fc0e | H |
017e 0002 7342 | sB|
0180 001a 9404 | |
0182 0000 05bf | |
0184 0012 c06e | n|
0186 0201 56bb | V |
0188 000f d004 | |
018a 0000 0ac4 | |
018c 003c 04df | < |
018e 0201 56bb | V |
0190 000e 1404 | |
0192 0800 0100 | |
0194 8000 0000 | |
0196 0000 0000 | |
0198 000e 1404 | |
019a 0800 0100 | |
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 000f d004 | | .XXX[0xc]
01a2 0000 0ac4 | |
01a4 003c 04df | < |
01a6 0201 56bb | V |
01a8 000e 5004 | P |
01aa 0000 0100 | |
01ac 0000 0000 | | .BLANK 0000[0xa]
01b6 0002 8000 | | .XXX[0x2e]
01b8 000f d004 | |
01ba 0800 01cc | |
01bc 1b8c 390a | 9 |
01be 0008 b3cc | |
01c0 000f d004 | |
01c2 0000 007f | |
01c4 0049 240e | I$ |
01c6 0000 3832 | 82|
01c8 000f d004 | |
01ca 0000 05bf | |
01cc 0012 f0e8 | |
01ce 0201 58df | X |
01d0 000f d004 | |
01d2 0000 6944 | iD|
01d4 003c 04df | < |
01d6 0201 58df | X |
01d8 000f d004 | |
01da 0000 1bc4 | |
01dc 003c 04df | < |
01de 0201 5944 | YD|
01e0 000e 1404 | |
01e2 0800 0100 | |
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 000f d004 | | .XXX[0xc]
01ea 0000 6944 | iD|
01ec 003c 04df | < |
01ee 0201 58df | X |
01f0 000e 5004 | P |
01f2 0000 0100 | |
01f4 0000 0000 | | .BLANK 0000[0xa]
01fe 0002 8000 | | .XXX[0x2]