|
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 - metrics - download
Length: 1024 (0x400)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_65acc1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0130 | 0 | .CONST 0x0130 ; 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 004f | O | .CONST 0x004f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001d | | .CONST 0x001d ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 029a 005b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0058
000e 029a 006b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0068
0010 029a 007b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0078
0012 029a 0093 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0090
0014 029a 009b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0098
0016 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
0018 0093 0000 | | PushFullAddress InMicrocode
001a 6049 |`I | Indirect_Literal Discrete,0x64,{0x80000000, 0x00010000}
001b 0273 | s | Execute Discrete,Plus
001c e20d | | Load 0x1,0xd
001d 6042 |`B | Indirect_Literal Discrete,0x60,{0x00000000, 0x0000ffff}
001e 0279 | y | Execute Discrete,And
001f 0273 | s | Execute Discrete,Plus
0020 0129 | ) | Execute Any,Make_Visible
0021 029a 00fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f8
0023 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100
0025 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
0027 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
0029 4818 |H | Short_Literal 0x18
002a 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
002b 00d8 | | Load_Top At_Offset_0
002c 0129 | ) | Execute Any,Make_Visible
002d c20f | | Store 0x1,0xf
002e 00d8 | | Load_Top At_Offset_0
002f 0129 | ) | Execute Any,Make_Visible
0030 00bf | | Action Accept_Activation
0031 e20e | | Load 0x1,0xe
0032 00da | | Load_Top At_Offset_2
0033 029f 0123 | #| Declare_Subprogram For_Call,INIT_0120
0035 4802 |H | Short_Literal 0x2
0036 032d | - | Declare_Type Record,Defined
0037 00d8 | | Load_Top At_Offset_0
0038 02a0 | | Declare_Subprogram Null_Subprogram
0039 e21b | | Load 0x1,0x1b
003a 03c7 | | Complete_Type Access,By_Defining
003b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003c 00c7 | | Action Elaborate_Subprogram
003d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003e 00c7 | | Action Elaborate_Subprogram
003f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0040 00c7 | | Action Elaborate_Subprogram
0041 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0042 00c7 | | Action Elaborate_Subprogram
0043 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0044 00c7 | | Action Elaborate_Subprogram
0045 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0046 00c7 | | Action Elaborate_Subprogram
0047 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0048 00c7 | | Action Elaborate_Subprogram
0049 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004a 00c7 | | Action Elaborate_Subprogram
004b 1d19 | | Execute_Immediate Reference_Lex_1,0x19
004c 00c7 | | Action Elaborate_Subprogram
004d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
004e 00c7 | | Action Elaborate_Subprogram
004f BODY_0008:
004f 00bc | | Action Signal_Activated
0050 00bb | | Action Signal_Completion
0051 0000 0000 | | .BLANK 0000[0x7]
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 e21b | | Load 0x1,0x1b
005c 003b | ; | Store_Top Access,At_Offset_3
005d 4501 |E | Exit_Subprogram 0x1
005e 0000 0000 | | .XXX[0x2]
0060 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0064 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 7002 |p | Jump_Nonzero 0x6f
006d e216 | | Load 0x1,0x16
006e 0257 | W | Execute Discrete,Raise
006f 00da | | Load_Top At_Offset_2
0070 0227 | ' | Execute Access,All_Reference
0071 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0072 003b | ; | Store_Top Access,At_Offset_3
0073 4501 |E | Exit_Subprogram 0x1
0074 0000 0000 | | .BLANK 0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007d | } | .CONST 0x007d ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0002 | | .CONST 0x0002 ; Number of locals
007b INIT_0078:
007b e21b | | Load 0x1,0x1b
007c 0007 | | Action Break_Optional
007d BODY_0078:
007d e21d | | Load 0x1,0x1d
007e 0322 | " | Declare_Variable Record
007f e5ff | | Load 0x2,-0x1
0080 e21d | | Load 0x1,0x1d
0081 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0082 0119 | | Execute Any,Check_In_Formal_Type
0083 00d9 | | Load_Top At_Offset_1
0084 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0085 e5fe | | Load 0x2,-0x2
0086 00d9 | | Load_Top At_Offset_1
0087 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0088 e21b | | Load 0x1,0x1b
0089 03b6 | | Declare_Variable Access,By_Allocation,With_Value
008a 0039 | 9 | Store_Top Access,At_Offset_1
008b 00d8 | | Load_Top At_Offset_0
008c a5fe | | Store_Unchecked 0x2,-0x2
008d 4502 |E | Exit_Subprogram 0x2
008e 0000 0000 | | .XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 022d | - | Execute Access,Is_Null
0095 4401 |D | Exit_Subprogram With_Result,0x1
0096 0000 0000 | | .XXX[0x2]
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 7002 |p | Jump_Nonzero 0x9f
009d e216 | | Load 0x1,0x16
009e 0257 | W | Execute Discrete,Raise
009f 00da | | Load_Top At_Offset_2
00a0 0227 | ' | Execute Access,All_Reference
00a1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00a2 00d8 | | Load_Top At_Offset_0
00a3 0120 | | Execute Any,Is_Value
00a4 7002 |p | Jump_Nonzero 0xa7
00a5 00d8 | | Load_Top At_Offset_0
00a6 011e | | Execute Any,Convert
00a7 e20e | | Load 0x1,0xe
00a8 0119 | | Execute Any,Check_In_Formal_Type
00a9 4401 |D | Exit_Subprogram With_Result,0x1
00aa 0000 0000 | | .BLANK 0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b7 | | .CONST 0x00b7 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0003 | | .CONST 0x0003 ; Number of locals
00b3 INIT_00b0:
00b3 e21b | | Load 0x1,0x1b
00b4 0007 | | Action Break_Optional
00b5 00d8 | | Load_Top At_Offset_0
00b6 0007 | | Action Break_Optional
00b7 BODY_00b0:
00b7 e5ff | | Load 0x2,-0x1
00b8 6837 |h7 | Jump_Zero 0xf0
00b9 e21d | | Load 0x1,0x1d
00ba 0322 | " | Declare_Variable Record
00bb e5ff | | Load 0x2,-0x1
00bc 0227 | ' | Execute Access,All_Reference
00bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00be e21d | | Load 0x1,0x1d
00bf 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00c0 0119 | | Execute Any,Check_In_Formal_Type
00c1 00d9 | | Load_Top At_Offset_1
00c2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c3 e21b | | Load 0x1,0x1b
00c4 00d9 | | Load_Top At_Offset_1
00c5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00c6 e21b | | Load 0x1,0x1b
00c7 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00c8 a5fe | | Store_Unchecked 0x2,-0x2
00c9 e5fe | | Load 0x2,-0x2
00ca 0039 | 9 | Store_Top Access,At_Offset_1
00cb e5ff | | Load 0x2,-0x1
00cc 0227 | ' | Execute Access,All_Reference
00cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ce 003a | : | Store_Top Access,At_Offset_2
00cf 00cf | | Action Mark_Auxiliary
00d0 781b |x | Jump 0xec
00d1 e21d | | Load 0x1,0x1d
00d2 0322 | " | Declare_Variable Record
00d3 00db | | Load_Top At_Offset_3
00d4 0227 | ' | Execute Access,All_Reference
00d5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d6 e21d | | Load 0x1,0x1d
00d7 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00d8 0119 | | Execute Any,Check_In_Formal_Type
00d9 00d9 | | Load_Top At_Offset_1
00da 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00db e21b | | Load 0x1,0x1b
00dc 00d9 | | Load_Top At_Offset_1
00dd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00de e21b | | Load 0x1,0x1b
00df 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00e0 00da | | Load_Top At_Offset_2
00e1 0227 | ' | Execute Access,All_Reference
00e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e3 00d9 | | Load_Top At_Offset_1
00e4 0227 | ' | Execute Access,All_Reference
00e5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e6 003a | : | Store_Top Access,At_Offset_2
00e7 00da | | Load_Top At_Offset_2
00e8 0227 | ' | Execute Access,All_Reference
00e9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ea 003b | ; | Store_Top Access,At_Offset_3
00eb 00c9 | | Action Pop_Auxiliary_Loop
00ec 00da | | Load_Top At_Offset_2
00ed 77e3 |w | Jump_Nonzero 0xd1
00ee 00ce | | Action Pop_Auxiliary
00ef 4502 |E | Exit_Subprogram 0x2
00f0 e21b | | Load 0x1,0x1b
00f1 a5fe | | Store_Unchecked 0x2,-0x2
00f2 4502 |E | Exit_Subprogram 0x2
00f3 0000 0000 | | .BLANK 0000[0x5]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc a5fe | | Store_Unchecked 0x2,-0x2
00fd 4502 |E | Exit_Subprogram 0x2
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 0227 | ' | Execute Access,All_Reference
0105 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0106 003b | ; | Store_Top Access,At_Offset_3
0107 4501 |E | Exit_Subprogram 0x1
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c 0227 | ' | Execute Access,All_Reference
010d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010e 00d8 | | Load_Top At_Offset_0
010f 0120 | | Execute Any,Is_Value
0110 7002 |p | Jump_Nonzero 0x113
0111 00d8 | | Load_Top At_Offset_0
0112 011e | | Execute Any,Convert
0113 e20e | | Load 0x1,0xe
0114 0119 | | Execute Any,Check_In_Formal_Type
0115 4401 |D | Exit_Subprogram With_Result,0x1
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 022d | - | Execute Access,Is_Null
011d 4401 |D | Exit_Subprogram With_Result,0x1
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 4601 |F | Jump_Case 0x1
0124 7801 |x | Jump 0x126 ; case 0x0
0125 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0126 00da | | Load_Top At_Offset_2
0127 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0128 0125 | % | Execute Any,Set_Constraint
0129 00da | | Load_Top At_Offset_2
012a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
012b 1c00 | | Execute_Immediate Run_Utility,0x0
012c 4302 |C | Exit_Subprogram From_Utility,0x2
012d 0000 0000 | | .XXX[0x3]
012f 0000 | |
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug Table
0130 ; --------------------------------------------------------------------------------------
0130 0004 0001 | | .DEBUG4 0x0004,0x0001,0x97cc,0x0000,0x0001,0x000d
0136 000b 016a | j| .DBG4T 0x000b,0x016a,0xc000,0x8000
013a 0031 018a | 1 | .DBG4T 0x0031,0x018a,0xc000,0x0000
013e 005b 0197 | [ | .DBG4T 0x005b,0x0197,0x1001,0x0000
0142 006b 019a | k | .DBG4T 0x006b,0x019a,0x1001,0x0000
0146 007b 019f | { | .DBG4T 0x007b,0x019f,0x1001,0x0000
014a 0093 01a4 | | .DBG4T 0x0093,0x01a4,0x1002,0x0000
014e 009b 01a7 | | .DBG4T 0x009b,0x01a7,0x1002,0x0000
0152 00b3 01ac | | .DBG4T 0x00b3,0x01ac,0x1001,0x4000
0156 00fb 01c2 | | .DBG4T 0x00fb,0x01c2,0x1001,0x0000
015a 0103 01c5 | | .DBG4T 0x0103,0x01c5,0x1001,0x0000
015e 010b 01c8 | | .DBG4T 0x010b,0x01c8,0x1002,0x0000
0162 011b 01cb | | .DBG4T 0x011b,0x01cb,0x1002,0x0000
0166 0123 0000 | # | .DBG4T 0x0123,0x0000,0x1005,0x0000
016a ; --------------------------------------------------------------------------------------
016a ; Debug chain
016a ; --------------------------------------------------------------------------------------
016a 000f 0000 | | .DBGLEN 0x000f,0x0000
016c 000b 000c | | .DBGLNO 0x000b,0x000c,0x000e,0x0010,0x0012,0x0014,0x0016,0x0018,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002e
017b 0002 0003 | | .XXX[0xf]
017d 0004 0005 | |
017f 0006 0007 | |
0181 0008 0009 | |
0183 000b 000c | |
0185 000d 000e | |
0187 0010 0011 | |
0189 0012 | |
018a ; --------------------------------------------------------------------------------------
018a ; Debug chain
018a ; --------------------------------------------------------------------------------------
018a 000b 0000 | | .DBGLEN 0x000b,0x0000
018c 0031 003b | 1 ;| .DBGLNO 0x0031,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d
0197 ; --------------------------------------------------------------------------------------
0197 ; Debug chain
0197 ; --------------------------------------------------------------------------------------
0197 0000 0001 | | .DBGLEN 0x0000,0x0001
0199 005b | [ | .DBGLNO 0x005b
019a ; --------------------------------------------------------------------------------------
019a ; Debug chain
019a ; --------------------------------------------------------------------------------------
019a 0000 0003 | | .DBGLEN 0x0000,0x0003
019c 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x006f
019f ; --------------------------------------------------------------------------------------
019f ; Debug chain
019f ; --------------------------------------------------------------------------------------
019f 0001 0002 | | .DBGLEN 0x0001,0x0002
01a1 007b 007d | { }| .DBGLNO 0x007b,0x007d,0x008b
01a4 ; --------------------------------------------------------------------------------------
01a4 ; Debug chain
01a4 ; --------------------------------------------------------------------------------------
01a4 0000 0001 | | .DBGLEN 0x0000,0x0001
01a6 0093 | | .DBGLNO 0x0093
01a7 ; --------------------------------------------------------------------------------------
01a7 ; Debug chain
01a7 ; --------------------------------------------------------------------------------------
01a7 0000 0003 | | .DBGLEN 0x0000,0x0003
01a9 009b 009d | | .DBGLNO 0x009b,0x009d,0x009f
01ac ; --------------------------------------------------------------------------------------
01ac ; Debug chain
01ac ; --------------------------------------------------------------------------------------
01ac 0002 0009 | | .DBGLEN 0x0002,0x0009
01ae 00b3 00b5 | | .DBGLNO 0x00b3,0x00b5,0x00b7,0x00b9,0x00c9,0x00cb,0x00d1,0x00e3,0x00e7,0x00ec,0x00f0
01b9 0001 0002 | | .XXX[0x9]
01bb 0003 0004 | |
01bd 0006 0007 | |
01bf 0008 0005 | |
01c1 0009 | |
01c2 ; --------------------------------------------------------------------------------------
01c2 ; Debug chain
01c2 ; --------------------------------------------------------------------------------------
01c2 0000 0001 | | .DBGLEN 0x0000,0x0001
01c4 00fb | | .DBGLNO 0x00fb
01c5 ; --------------------------------------------------------------------------------------
01c5 ; Debug chain
01c5 ; --------------------------------------------------------------------------------------
01c5 0000 0001 | | .DBGLEN 0x0000,0x0001
01c7 0103 | | .DBGLNO 0x0103
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug chain
01c8 ; --------------------------------------------------------------------------------------
01c8 0000 0001 | | .DBGLEN 0x0000,0x0001
01ca 010b | | .DBGLNO 0x010b
01cb ; --------------------------------------------------------------------------------------
01cb ; Debug chain
01cb ; --------------------------------------------------------------------------------------
01cb 0000 0001 | | .DBGLEN 0x0000,0x0001
01cd 011b | | .DBGLNO 0x011b
01ce 0000 0000 | | .BLANK 0000[0x32]