|
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_8e18e4
└─⟦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 00f0 | | .CONST 0x00f0 ; 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 0066 | f | .CONST 0x0066 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
000d 4800 |H | Short_Literal 0x0
000e 4800 |H | Short_Literal 0x0
000f 4801 |H | Short_Literal 0x1
0010 4802 |H | Short_Literal 0x2
0011 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0012 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0014 00d9 | | Load_Top At_Offset_1
0015 012a | * | Execute Any,Change_Utility
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 4800 |H | Short_Literal 0x0
002a 6045 |`E | Indirect_Literal Discrete,0x70,{0x00000000, 0x00002710}
002b 00e3 | | Load_Encached Natural_Cache
002c 03f9 | | Declare_Type Discrete,Constrained,Visible
002d c21f | | Store 0x1,0x1f
002e 00c4 | | Action Make_Default
002f 00d1 | | Pop_Control Pop_Count_1
0030 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0032 c20f | | Store 0x1,0xf
0033 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0035 c210 | | Store 0x1,0x10
0036 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0038 c218 | | Store 0x1,0x18
0039 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
003b c220 | | Store 0x1,0x20
003c 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
003e c213 | | Store 0x1,0x13
003f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0041 c21c | | Store 0x1,0x1c
0042 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0044 c21d | | Store 0x1,0x1d
0045 e002 | | Load 0x0,0x2
0046 0129 | ) | Execute Any,Make_Visible
0047 c217 | | Store 0x1,0x17
0048 00d9 | | Load_Top At_Offset_1
0049 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
004b 4800 |H | Short_Literal 0x0
004c 4801 |H | Short_Literal 0x1
004d e20d | | Load 0x1,0xd
004e 0307 | | Complete_Type Variant_Record,By_Defining
004f 4800 |H | Short_Literal 0x0
0050 e20d | | Load 0x1,0xd
0051 1c08 | | Execute_Immediate Run_Utility,0x8
0052 4800 |H | Short_Literal 0x0
0053 00d9 | | Load_Top At_Offset_1
0054 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0055 0129 | ) | Execute Any,Make_Visible
0056 c20e | | Store 0x1,0xe
0057 00bf | | Action Accept_Activation
0058 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0059 00c7 | | Action Elaborate_Subprogram
005a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
005b 00c7 | | Action Elaborate_Subprogram
005c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
005d 00c7 | | Action Elaborate_Subprogram
005e 1d20 | | Execute_Immediate Reference_Lex_1,0x20
005f 00c7 | | Action Elaborate_Subprogram
0060 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0061 00c7 | | Action Elaborate_Subprogram
0062 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0063 00c7 | | Action Elaborate_Subprogram
0064 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0065 00c7 | | Action Elaborate_Subprogram
0066 BODY_0008:
0066 00bc | | Action Signal_Activated
0067 00bb | | Action Signal_Completion
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 00da | | Load_Top At_Offset_2
006c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
006d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006e 0000 0000 | | .XXX[0x2]
0070 0000 0000 | | .LITERAL {0x00000000, 0x00002710}
0074 0000 0000 | | .BLANK 0000[0x4]
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 e001 | | Load 0x0,0x1
007e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
007f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0085 00e0 | | Load_Encached Standard_Cache
0086 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0087 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
008c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
008d 00d8 | | Load_Top At_Offset_0
008e e21f | | Load 0x1,0x1f
008f 0260 | ` | Execute Discrete,In_Type
0090 7001 |p | Jump_Nonzero 0x92
0091 0801 | | Execute_Immediate Raise,0x1
0092 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
009c e20e | | Load 0x1,0xe
009d 016f | o | Execute Variant_Record,Equal
009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009f 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
00a4 0d00 | | Execute_Immediate Less,0x0
00a5 00db | | Load_Top At_Offset_3
00a6 6011 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00002710}
00a7 027d | } | Execute Discrete,Greater
00a8 0278 | x | Execute Discrete,Or
00a9 6802 |h | Jump_Zero 0xac
00aa e217 | | Load 0x1,0x17
00ab 0257 | W | Execute Discrete,Raise
00ac 00da | | Load_Top At_Offset_2
00ad 00d8 | | Load_Top At_Offset_0
00ae e21f | | Load 0x1,0x1f
00af 0260 | ` | Execute Discrete,In_Type
00b0 7001 |p | Jump_Nonzero 0xb2
00b1 0801 | | Execute_Immediate Raise,0x1
00b2 e5fe | | Load 0x2,-0x2
00b3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 0000 0000 | | .LITERAL {0x00000000, 0x00002710}
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4801 |H | Short_Literal 0x1
00c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
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 BODY_00c8:
00cb INIT_00c8:
00cb INIT_00c8:
00cb 4608 |F | Jump_Case 0x9
00cc 7808 |x | Jump 0xd5 ; case 0x0
00cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00ce 781a |x | Jump 0xe9 ; case 0x2
00cf 7819 |x | Jump 0xe9 ; case 0x3
00d0 7818 |x | Jump 0xe9 ; case 0x4
00d1 7817 |x | Jump 0xe9 ; case 0x5
00d2 7816 |x | Jump 0xe9 ; case 0x6
00d3 780d |x | Jump 0xe1 ; case 0x7
00d4 7810 |x | Jump 0xe5 ; case 0x8
00d5 00da | | Load_Top At_Offset_2
00d6 016c | l | Execute Variant_Record,Is_Constrained
00d7 7008 |p | Jump_Nonzero 0xe0
00d8 00cf | | Action Mark_Auxiliary
00d9 4800 |H | Short_Literal 0x0
00da e5ff | | Load 0x2,-0x1
00db 1c08 | | Execute_Immediate Run_Utility,0x8
00dc 00d8 | | Load_Top At_Offset_0
00dd 1c00 | | Execute_Immediate Run_Utility,0x0
00de c5ff | | Store 0x2,-0x1
00df 00ce | | Action Pop_Auxiliary
00e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00e1 00db | | Load_Top At_Offset_3
00e2 e5ff | | Load 0x2,-0x1
00e3 031b | | Declare_Type Variant_Record,Constrained
00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e5 00db | | Load_Top At_Offset_3
00e6 00db | | Load_Top At_Offset_3
00e7 02fc | | Declare_Variable Variant_Record,With_Constraint
00e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e9 0869 | i | Execute_Immediate Raise,0x69
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; Debug Table
00f0 ; --------------------------------------------------------------------------------------
00f0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xd6e4,0x0000,0x0001,0x000a
00f6 000b 011e | | .DBG4T 0x000b,0x011e,0x8000,0x8000
00fa 0058 013a | X :| .DBG4T 0x0058,0x013a,0x8000,0x0000
00fe 006b 0143 | k C| .DBG4T 0x006b,0x0143,0x0002,0x0000
0102 007b 0146 | { F| .DBG4T 0x007b,0x0146,0x0002,0x0000
0106 0083 0149 | I| .DBG4T 0x0083,0x0149,0x0002,0x0000
010a 008b 014c | L| .DBG4T 0x008b,0x014c,0x0002,0x0000
010e 009b 014f | O| .DBG4T 0x009b,0x014f,0x0002,0x0000
0112 00a3 0152 | R| .DBG4T 0x00a3,0x0152,0x0001,0x0000
0116 00c3 0157 | W| .DBG4T 0x00c3,0x0157,0x0002,0x0000
011a 00cb 0000 | | .DBG4T 0x00cb,0x0000,0x0005,0x0000
011e ; --------------------------------------------------------------------------------------
011e ; Debug chain
011e ; --------------------------------------------------------------------------------------
011e 000d 0000 | | .DBGLEN 0x000d,0x0000
0120 000b 0029 | )| .DBGLNO 0x000b,0x0029,0x002e,0x0030,0x0033,0x0036,0x0039,0x003c,0x003f,0x0042,0x0045,0x0048,0x004f
012d 0002 0003 | | .XXX[0xd]
012f 0004 0007 | |
0131 0008 0009 | |
0133 000a 000b | |
0135 000c 000d | |
0137 000e 000f | |
0139 0010 | |
013a ; --------------------------------------------------------------------------------------
013a ; Debug chain
013a ; --------------------------------------------------------------------------------------
013a 0007 0000 | | .DBGLEN 0x0007,0x0000
013c 0058 005a | X Z| .DBGLNO 0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064
0143 ; --------------------------------------------------------------------------------------
0143 ; Debug chain
0143 ; --------------------------------------------------------------------------------------
0143 0000 0001 | | .DBGLEN 0x0000,0x0001
0145 006b | k | .DBGLNO 0x006b
0146 ; --------------------------------------------------------------------------------------
0146 ; Debug chain
0146 ; --------------------------------------------------------------------------------------
0146 0000 0001 | | .DBGLEN 0x0000,0x0001
0148 007b | { | .DBGLNO 0x007b
0149 ; --------------------------------------------------------------------------------------
0149 ; Debug chain
0149 ; --------------------------------------------------------------------------------------
0149 0000 0001 | | .DBGLEN 0x0000,0x0001
014b 0083 | | .DBGLNO 0x0083
014c ; --------------------------------------------------------------------------------------
014c ; Debug chain
014c ; --------------------------------------------------------------------------------------
014c 0000 0001 | | .DBGLEN 0x0000,0x0001
014e 008b | | .DBGLNO 0x008b
014f ; --------------------------------------------------------------------------------------
014f ; Debug chain
014f ; --------------------------------------------------------------------------------------
014f 0000 0001 | | .DBGLEN 0x0000,0x0001
0151 009b | | .DBGLNO 0x009b
0152 ; --------------------------------------------------------------------------------------
0152 ; Debug chain
0152 ; --------------------------------------------------------------------------------------
0152 0000 0003 | | .DBGLEN 0x0000,0x0003
0154 00a3 00aa | | .DBGLNO 0x00a3,0x00aa,0x00ac
0157 ; --------------------------------------------------------------------------------------
0157 ; Debug chain
0157 ; --------------------------------------------------------------------------------------
0157 0000 0001 | | .DBGLEN 0x0000,0x0001
0159 00c3 | | .DBGLNO 0x00c3
015a 0000 0000 | | .BLANK 0000[0xa6]