|
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_192ccd
└─⟦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 0128 | ( | .CONST 0x0128 ; 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 004d | M | .CONST 0x004d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4be8 |K | Short_Literal 0x3e8
000d 00e3 | | Load_Encached Natural_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 00d8 | | Load_Top At_Offset_0
0010 4801 |H | Short_Literal 0x1
0011 4be8 |K | Short_Literal 0x3e8
0012 00e9 | | Load_Encached String_Cache
0013 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0014 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0016 4800 |H | Short_Literal 0x0
0017 4801 |H | Short_Literal 0x1
0018 4800 |H | Short_Literal 0x0
0019 4800 |H | Short_Literal 0x0
001a 4801 |H | Short_Literal 0x1
001b 4801 |H | Short_Literal 0x1
001c 031e | | Declare_Type Variant_Record,Defined,Visible
001d 4800 |H | Short_Literal 0x0
001e 00d9 | | Load_Top At_Offset_1
001f 1c08 | | Execute_Immediate Run_Utility,0x8
0020 00d8 | | Load_Top At_Offset_0
0021 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0022 01dd | | Execute Vector,First
0023 00e2 | | Load_Encached Integer_Cache
0024 00d9 | | Load_Top At_Offset_1
0025 0267 | g | Execute Discrete,Predecessor
0026 00e9 | | Load_Encached String_Cache
0027 035b | [ | Declare_Type Array,Constrained
0028 0337 | 7 | Declare_Variable Array
0029 00d9 | | Load_Top At_Offset_1
002a 00d8 | | Load_Top At_Offset_0
002b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
002c 00da | | Load_Top At_Offset_2
002d 01da | | Execute Vector,Bounds
002e 00da | | Load_Top At_Offset_2
002f 01da | | Execute Vector,Bounds
0030 00da | | Load_Top At_Offset_2
0031 027f | | Execute Discrete,Equal
0032 7001 |p | Jump_Nonzero 0x34
0033 08e0 | | Execute_Immediate Raise,0xe0
0034 00cd | | Action Spare6_Action
0035 027f | | Execute Discrete,Equal
0036 7001 |p | Jump_Nonzero 0x38
0037 08e0 | | Execute_Immediate Raise,0xe0
0038 00d2 | | Pop_Control Pop_Count_2
0039 00d9 | | Load_Top At_Offset_1
003a 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
003b 0129 | ) | Execute Any,Make_Visible
003c 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
003e 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0040 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0042 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0044 00bf | | Action Accept_Activation
0045 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0046 00c7 | | Action Elaborate_Subprogram
0047 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0048 00c7 | | Action Elaborate_Subprogram
0049 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004a 00c7 | | Action Elaborate_Subprogram
004b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004c 00c7 | | Action Elaborate_Subprogram
004d BODY_0008:
004d 00bc | | Action Signal_Activated
004e 00bb | | Action Signal_Completion
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0055 0335 | 5 | Declare_Variable Array,Duplicate
0056 00cd | | Action Spare6_Action
0057 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
005c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
005d e20e | | Load 0x1,0xe
005e 1c08 | | Execute_Immediate Run_Utility,0x8
005f 00db | | Load_Top At_Offset_3
0060 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0061 00d9 | | Load_Top At_Offset_1
0062 00d8 | | Load_Top At_Offset_0
0063 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0064 00da | | Load_Top At_Offset_2
0065 01da | | Execute Vector,Bounds
0066 00da | | Load_Top At_Offset_2
0067 01da | | Execute Vector,Bounds
0068 00da | | Load_Top At_Offset_2
0069 027f | | Execute Discrete,Equal
006a 7001 |p | Jump_Nonzero 0x6c
006b 08e0 | | Execute_Immediate Raise,0xe0
006c 00cd | | Action Spare6_Action
006d 027f | | Execute Discrete,Equal
006e 7001 |p | Jump_Nonzero 0x70
006f 08e0 | | Execute_Immediate Raise,0xe0
0070 00d2 | | Pop_Control Pop_Count_2
0071 00d9 | | Load_Top At_Offset_1
0072 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0073 e5fe | | Load 0x2,-0x2
0074 016d | m | Execute Variant_Record,Structure_Write
0075 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0076 0000 0000 | | .XXX[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 00da | | Load_Top At_Offset_2
007c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
007d e5fe | | Load 0x2,-0x2
007e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
007f 0273 | s | Execute Discrete,Plus
0080 e20e | | Load 0x1,0xe
0081 1c08 | | Execute_Immediate Run_Utility,0x8
0082 00db | | Load_Top At_Offset_3
0083 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0084 e5fe | | Load 0x2,-0x2
0085 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0086 01cc | | Execute Vector,Catenate
0087 00d9 | | Load_Top At_Offset_1
0088 00d8 | | Load_Top At_Offset_0
0089 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
008a 00da | | Load_Top At_Offset_2
008b 01da | | Execute Vector,Bounds
008c 00da | | Load_Top At_Offset_2
008d 01da | | Execute Vector,Bounds
008e 00da | | Load_Top At_Offset_2
008f 027f | | Execute Discrete,Equal
0090 7001 |p | Jump_Nonzero 0x92
0091 08e0 | | Execute_Immediate Raise,0xe0
0092 00cd | | Action Spare6_Action
0093 027f | | Execute Discrete,Equal
0094 7001 |p | Jump_Nonzero 0x96
0095 08e0 | | Execute_Immediate Raise,0xe0
0096 00d2 | | Pop_Control Pop_Count_2
0097 00d9 | | Load_Top At_Offset_1
0098 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0099 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
009a 0000 0000 | | .BLANK 0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4800 |H | Short_Literal 0x0
00a4 e20e | | Load 0x1,0xe
00a5 1c08 | | Execute_Immediate Run_Utility,0x8
00a6 00d8 | | Load_Top At_Offset_0
00a7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00a8 01dd | | Execute Vector,First
00a9 00e2 | | Load_Encached Integer_Cache
00aa 00d9 | | Load_Top At_Offset_1
00ab 0267 | g | Execute Discrete,Predecessor
00ac 00e9 | | Load_Encached String_Cache
00ad 035b | [ | Declare_Type Array,Constrained
00ae 0337 | 7 | Declare_Variable Array
00af 00d9 | | Load_Top At_Offset_1
00b0 00d8 | | Load_Top At_Offset_0
00b1 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00b2 00da | | Load_Top At_Offset_2
00b3 01da | | Execute Vector,Bounds
00b4 00da | | Load_Top At_Offset_2
00b5 01da | | Execute Vector,Bounds
00b6 00da | | Load_Top At_Offset_2
00b7 027f | | Execute Discrete,Equal
00b8 7001 |p | Jump_Nonzero 0xba
00b9 08e0 | | Execute_Immediate Raise,0xe0
00ba 00cd | | Action Spare6_Action
00bb 027f | | Execute Discrete,Equal
00bc 7001 |p | Jump_Nonzero 0xbe
00bd 08e0 | | Execute_Immediate Raise,0xe0
00be 00d2 | | Pop_Control Pop_Count_2
00bf 00d9 | | Load_Top At_Offset_1
00c0 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00c1 00db | | Load_Top At_Offset_3
00c2 016d | m | Execute Variant_Record,Structure_Write
00c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4609 |F | Jump_Case 0xa
00cc 7809 |x | Jump 0xd6 ; case 0x0
00cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00ce 7833 |x3 | Jump 0x102 ; case 0x2
00cf 7836 |x6 | Jump 0x106 ; case 0x3
00d0 7852 |xR | Jump 0x123 ; case 0x4
00d1 7851 |xQ | Jump 0x123 ; case 0x5
00d2 7850 |xP | Jump 0x123 ; case 0x6
00d3 7838 |x8 | Jump 0x10c ; case 0x7
00d4 7840 |x@ | Jump 0x115 ; case 0x8
00d5 7849 |xI | Jump 0x11f ; case 0x9
00d6 00da | | Load_Top At_Offset_2
00d7 016c | l | Execute Variant_Record,Is_Constrained
00d8 7009 |p | Jump_Nonzero 0xe2
00d9 00cf | | Action Mark_Auxiliary
00da 4814 |H | Short_Literal 0x14
00db e5ff | | Load 0x2,-0x1
00dc 1c08 | | Execute_Immediate Run_Utility,0x8
00dd 00d8 | | Load_Top At_Offset_0
00de 1c00 | | Execute_Immediate Run_Utility,0x0
00df c5ff | | Store 0x2,-0x1
00e0 00ce | | Action Pop_Auxiliary
00e1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00e2 00da | | Load_Top At_Offset_2
00e3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00e4 0335 | 5 | Declare_Variable Array,Duplicate
00e5 00cd | | Action Spare6_Action
00e6 00db | | Load_Top At_Offset_3
00e7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00e8 01d9 | | Execute Vector,Reverse_Bounds
00e9 0263 | c | Execute Discrete,Above_Bound
00ea 7005 |p | Jump_Nonzero 0xf0
00eb 4820 |H | Short_Literal 0x20
00ec 00d9 | | Load_Top At_Offset_1
00ed e402 | | Load 0x2,0x2
00ee 01d6 | | Execute Vector,Field_Write
00ef 3ffb |? | Loop_Increasing 0xeb
00f0 00db | | Load_Top At_Offset_3
00f1 00d8 | | Load_Top At_Offset_0
00f2 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00f3 00da | | Load_Top At_Offset_2
00f4 01da | | Execute Vector,Bounds
00f5 00da | | Load_Top At_Offset_2
00f6 01da | | Execute Vector,Bounds
00f7 00da | | Load_Top At_Offset_2
00f8 027f | | Execute Discrete,Equal
00f9 7001 |p | Jump_Nonzero 0xfb
00fa 08e0 | | Execute_Immediate Raise,0xe0
00fb 00cd | | Action Spare6_Action
00fc 027f | | Execute Discrete,Equal
00fd 7001 |p | Jump_Nonzero 0xff
00fe 08e0 | | Execute_Immediate Raise,0xe0
00ff 00d1 | | Pop_Control Pop_Count_1
0100 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0101 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0102 4801 |H | Short_Literal 0x1
0103 4802 |H | Short_Literal 0x2
0104 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0105 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0106 e5fd | | Load 0x2,-0x3
0107 00db | | Load_Top At_Offset_3
0108 1c07 | | Execute_Immediate Run_Utility,0x7
0109 e5fe | | Load 0x2,-0x2
010a 0306 | | Complete_Type Variant_Record,By_Renaming
010b 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
010c 00db | | Load_Top At_Offset_3
010d 4801 |H | Short_Literal 0x1
010e e5fe | | Load 0x2,-0x2
010f 00e9 | | Load_Encached String_Cache
0110 035b | [ | Declare_Type Array,Constrained
0111 4801 |H | Short_Literal 0x1
0112 e5ff | | Load 0x2,-0x1
0113 031b | | Declare_Type Variant_Record,Constrained
0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0115 00db | | Load_Top At_Offset_3
0116 00db | | Load_Top At_Offset_3
0117 02fc | | Declare_Variable Variant_Record,With_Constraint
0118 4801 |H | Short_Literal 0x1
0119 e5fe | | Load 0x2,-0x2
011a 00e9 | | Load_Encached String_Cache
011b 0334 | 4 | Declare_Variable Array,With_Constraint
011c 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
011d 016a | j | QQ_execute Variant_Record,XXX
011e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011f 4814 |H | Short_Literal 0x14
0120 00db | | Load_Top At_Offset_3
0121 1c07 | | Execute_Immediate Run_Utility,0x7
0122 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0123 0869 | i | Execute_Immediate Raise,0x69
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug Table
0128 ; --------------------------------------------------------------------------------------
0128 0004 0004 | | .DEBUG4 0x0004,0x0004,0x12b7,0x0000,0x0001,0x0007
012e 000b 014a | J| .DBG4T 0x000b,0x014a,0x8000,0x0000
0132 0045 0153 | E S| .DBG4T 0x0045,0x0153,0x8000,0x0000
0136 0053 0159 | S Y| .DBG4T 0x0053,0x0159,0x0002,0x0000
013a 005b 015c | [ \| .DBG4T 0x005b,0x015c,0x0001,0x0000
013e 007b 015f | { _| .DBG4T 0x007b,0x015f,0x0002,0x0000
0142 00a3 0162 | b| .DBG4T 0x00a3,0x0162,0x0001,0x0000
0146 00cb 0000 | | .DBG4T 0x00cb,0x0000,0x0005,0x0000
014a ; --------------------------------------------------------------------------------------
014a ; Debug chain
014a ; --------------------------------------------------------------------------------------
014a 0007 0000 | | .DBGLEN 0x0007,0x0000
014c 000b 000f | | .DBGLNO 0x000b,0x000f,0x001d,0x003c,0x003e,0x0040,0x0042
0153 ; --------------------------------------------------------------------------------------
0153 ; Debug chain
0153 ; --------------------------------------------------------------------------------------
0153 0004 0000 | | .DBGLEN 0x0004,0x0000
0155 0045 0047 | E G| .DBGLNO 0x0045,0x0047,0x0049,0x004b
0159 ; --------------------------------------------------------------------------------------
0159 ; Debug chain
0159 ; --------------------------------------------------------------------------------------
0159 0000 0001 | | .DBGLEN 0x0000,0x0001
015b 0053 | S | .DBGLNO 0x0053
015c ; --------------------------------------------------------------------------------------
015c ; Debug chain
015c ; --------------------------------------------------------------------------------------
015c 0000 0001 | | .DBGLEN 0x0000,0x0001
015e 005b | [ | .DBGLNO 0x005b
015f ; --------------------------------------------------------------------------------------
015f ; Debug chain
015f ; --------------------------------------------------------------------------------------
015f 0000 0001 | | .DBGLEN 0x0000,0x0001
0161 007b | { | .DBGLNO 0x007b
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug chain
0162 ; --------------------------------------------------------------------------------------
0162 0000 0001 | | .DBGLEN 0x0000,0x0001
0164 00a3 | | .DBGLNO 0x00a3
0165 0000 0000 | | .BLANK 0000[0x9b]