|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0314bd
└─⟦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 0150 | P | .CONST 0x0150 ; 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 0040 | @ | .CONST 0x0040 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 4880 |H | Short_Literal 0x80
000c e002 | | Load 0x0,0x2
000d 1c07 | | Execute_Immediate Run_Utility,0x7
000e 0129 | ) | Execute Any,Make_Visible
000f 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
0011 029c 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible
0013 0093 0000 | | push_full_address 0x0
0015 603e |`> | Indirect_Literal Discrete,0x54,{0x80000000, 0x00010000}
0016 0273 | s | Execute Discrete,Plus
0017 e003 | | Load 0x0,0x3
0018 0273 | s | Execute Discrete,Plus
0019 e004 | | Load 0x0,0x4
001a 0273 | s | Execute Discrete,Plus
001b 00db | | Load_Top At_Offset_3
001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001d e005 | | Load 0x0,0x5
001e 0386 | | Declare_Variable Package,Visible
001f 00d8 | | Load_Top At_Offset_0
0020 020f | | Execute Module,Activate
0021 00e4 | | Load_Encached Positive_Cache
0022 0266 | f | Execute Discrete,Bounds
0023 e006 | | Load 0x0,0x6
0024 00db | | Load_Top At_Offset_3
0025 0098 | | Execute Package,Field_Read_Dynamic
0026 02a0 | | Declare_Subprogram Null_Subprogram
0027 4801 |H | Short_Literal 0x1
0028 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0029 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
002b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
002d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
002f 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0031 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0033 00bf | | Action Accept_Activation
0034 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0035 00c7 | | Action Elaborate_Subprogram
0036 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0037 00c7 | | Action Elaborate_Subprogram
0038 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0039 00c7 | | Action Elaborate_Subprogram
003a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
003b 00c7 | | Action Elaborate_Subprogram
003c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
003d 00c7 | | Action Elaborate_Subprogram
003e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003f 00c7 | | Action Elaborate_Subprogram
0040 BODY_0008:
0040 00bc | | Action Signal_Activated
0041 00bb | | Action Signal_Completion
0042 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
004c 8007 | | Call 0x0,0x7
004d e5fe | | Load 0x2,-0x2
004e 8007 | | Call 0x0,0x7
004f 01df | | Execute Vector,Equal
0050 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0051 0000 0000 | | .XXX[0x3]
0053 0000 | |
0054 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 e20d | | Load 0x1,0xd
005d 0161 | a | Execute Variant_Record,Check_In_Formal_Type
005e 00db | | Load_Top At_Offset_3
005f e20d | | Load 0x1,0xd
0060 0161 | a | Execute Variant_Record,Check_In_Formal_Type
0061 820e | | Call 0x1,0xe
0062 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0063 0000 0000 | | .BLANK 0000[0x5]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006f | o | .CONST 0x006f ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0002 | | .CONST 0x0002 ; Number of locals
006b INIT_0068:
006b e20d | | Load 0x1,0xd
006c 02ff | | Declare_Variable Variant_Record
006d 00d8 | | Load_Top At_Offset_0
006e 1c00 | | Execute_Immediate Run_Utility,0x0
006f BODY_0068:
006f 00d8 | | Load_Top At_Offset_0
0070 e5fe | | Load 0x2,-0x2
0071 8008 | | Call 0x0,0x8
0072 8009 | | Call 0x0,0x9
0073 00d1 | | Pop_Control Pop_Count_1
0074 e5fd | | Load 0x2,-0x3
0075 e5ff | | Load 0x2,-0x1
0076 00d8 | | Load_Top At_Offset_0
0077 00da | | Load_Top At_Offset_2
0078 01d7 | | Execute Vector,Field_Read
0079 00db | | Load_Top At_Offset_3
007a e00a | | Load 0x0,0xa
007b e210 | | Load 0x1,0x10
007c 0096 | | Execute Package,Entry
007d 00d9 | | Load_Top At_Offset_1
007e 00db | | Load_Top At_Offset_3
007f 01d6 | | Execute Vector,Field_Write
0080 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0081 0000 0000 | | .BLANK 0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0091 | | .CONST 0x0091 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0003 | | .CONST 0x0003 ; Number of locals
008b INIT_0088:
008b e00b | | Load 0x0,0xb
008c e210 | | Load 0x1,0x10
008d 0098 | | Execute Package,Field_Read_Dynamic
008e 0007 | | Action Break_Optional
008f 00e3 | | Load_Encached Natural_Cache
0090 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0091 BODY_0088:
0091 00cf | | Action Mark_Auxiliary
0092 7804 |x | Jump 0x97
0093 00d9 | | Load_Top At_Offset_1
0094 0a01 | | Execute_Immediate Plus,0x1
0095 005a | Z | Store_Top Discrete,At_Offset_2
0096 00c9 | | Action Pop_Auxiliary_Loop
0097 00d9 | | Load_Top At_Offset_1
0098 e5ff | | Load 0x2,-0x1
0099 01d7 | | Execute Vector,Field_Read
009a e00c | | Load 0x0,0xc
009b e210 | | Load 0x1,0x10
009c 0096 | | Execute Package,Entry
009d 00da | | Load_Top At_Offset_2
009e e5ff | | Load 0x2,-0x1
009f 01dc | | Execute Vector,Last
00a0 027a | z | Execute Discrete,Less_Equal
00a1 0279 | y | Execute Discrete,And
00a2 6ff0 |o | Jump_Zero 0x93
00a3 00ce | | Action Pop_Auxiliary
00a4 00d8 | | Load_Top At_Offset_0
00a5 e5ff | | Load 0x2,-0x1
00a6 01dc | | Execute Vector,Last
00a7 027a | z | Execute Discrete,Less_Equal
00a8 681d |h | Jump_Zero 0xc6
00a9 00cf | | Action Mark_Auxiliary
00aa e5ff | | Load 0x2,-0x1
00ab 01dc | | Execute Vector,Last
00ac 00da | | Load_Top At_Offset_2
00ad 0263 | c | Execute Discrete,Above_Bound
00ae 7016 |p | Jump_Nonzero 0xc5
00af 00d8 | | Load_Top At_Offset_0
00b0 e403 | | Load 0x2,0x3
00b1 0272 | r | Execute Discrete,Minus
00b2 0a01 | | Execute_Immediate Plus,0x1
00b3 e5fe | | Load 0x2,-0x2
00b4 01dc | | Execute Vector,Last
00b5 027a | z | Execute Discrete,Less_Equal
00b6 680c |h | Jump_Zero 0xc3
00b7 00d8 | | Load_Top At_Offset_0
00b8 e403 | | Load 0x2,0x3
00b9 0272 | r | Execute Discrete,Minus
00ba 0a01 | | Execute_Immediate Plus,0x1
00bb e5fe | | Load 0x2,-0x2
00bc 01d7 | | Execute Vector,Field_Read
00bd e00d | | Load 0x0,0xd
00be e210 | | Load 0x1,0x10
00bf 0096 | | Execute Package,Entry
00c0 00d9 | | Load_Top At_Offset_1
00c1 e5ff | | Load 0x2,-0x1
00c2 01d6 | | Execute Vector,Field_Write
00c3 00c8 | | Action Pop_Auxiliary_Range
00c4 3fea |? | Loop_Increasing 0xaf
00c5 00ce | | Action Pop_Auxiliary
00c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c7 0000 | | .XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d7 | | .CONST 0x00d7 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0004 | | .CONST 0x0004 ; Number of locals
00cb INIT_00c8:
00cb e006 | | Load 0x0,0x6
00cc e210 | | Load 0x1,0x10
00cd 0098 | | Execute Package,Field_Read_Dynamic
00ce 0007 | | Action Break_Optional
00cf e00b | | Load 0x0,0xb
00d0 e210 | | Load 0x1,0x10
00d1 0098 | | Execute Package,Field_Read_Dynamic
00d2 0007 | | Action Break_Optional
00d3 e20d | | Load 0x1,0xd
00d4 02ff | | Declare_Variable Variant_Record
00d5 00d8 | | Load_Top At_Offset_0
00d6 1c00 | | Execute_Immediate Run_Utility,0x0
00d7 BODY_00c8:
00d7 e5ff | | Load 0x2,-0x1
00d8 e00e | | Load 0x0,0xe
00d9 e210 | | Load 0x1,0x10
00da 0096 | | Execute Package,Entry
00db 003a | : | Store_Top Access,At_Offset_2
00dc 00cf | | Action Mark_Auxiliary
00dd 7812 |x | Jump 0xf0
00de 00da | | Load_Top At_Offset_2
00df e00f | | Load 0x0,0xf
00e0 e210 | | Load 0x1,0x10
00e1 0096 | | Execute Package,Entry
00e2 00da | | Load_Top At_Offset_2
00e3 016d | m | Execute Variant_Record,Structure_Write
00e4 00db | | Load_Top At_Offset_3
00e5 00da | | Load_Top At_Offset_2
00e6 e00a | | Load 0x0,0xa
00e7 e210 | | Load 0x1,0x10
00e8 0096 | | Execute Package,Entry
00e9 c402 | | Store 0x2,0x2
00ea 00da | | Load_Top At_Offset_2
00eb e010 | | Load 0x0,0x10
00ec e210 | | Load 0x1,0x10
00ed 0096 | | Execute Package,Entry
00ee 003b | ; | Store_Top Access,At_Offset_3
00ef 00c9 | | Action Pop_Auxiliary_Loop
00f0 00da | | Load_Top At_Offset_2
00f1 e011 | | Load 0x0,0x11
00f2 e210 | | Load 0x1,0x10
00f3 0096 | | Execute Package,Entry
00f4 77e9 |w | Jump_Nonzero 0xde
00f5 00ce | | Action Pop_Auxiliary
00f6 00da | | Load_Top At_Offset_2
00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00cf | | Action Mark_Auxiliary
00fc 00db | | Load_Top At_Offset_3
00fd 01d9 | | Execute Vector,Reverse_Bounds
00fe 0263 | c | Execute Discrete,Above_Bound
00ff 7008 |p | Jump_Nonzero 0x108
0100 e012 | | Load 0x0,0x12
0101 e210 | | Load 0x1,0x10
0102 0096 | | Execute Package,Entry
0103 00d9 | | Load_Top At_Offset_1
0104 e5ff | | Load 0x2,-0x1
0105 01d6 | | Execute Vector,Field_Write
0106 00c8 | | Action Pop_Auxiliary_Range
0107 3ff8 |? | Loop_Increasing 0x100
0108 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011a | | .CONST 0x011a ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0003 | | .CONST 0x0003 ; Number of locals
0113 INIT_0110:
0113 e20d | | Load 0x1,0xd
0114 02ff | | Declare_Variable Variant_Record
0115 00d8 | | Load_Top At_Offset_0
0116 1c00 | | Execute_Immediate Run_Utility,0x0
0117 e00b | | Load 0x0,0xb
0118 e210 | | Load 0x1,0x10
0119 0098 | | Execute Package,Field_Read_Dynamic
011a BODY_0110:
011a 00cf | | Action Mark_Auxiliary
011b e5ff | | Load 0x2,-0x1
011c 01d9 | | Execute Vector,Reverse_Bounds
011d 0263 | c | Execute Discrete,Above_Bound
011e 702b |p+ | Jump_Nonzero 0x14a
011f 00d8 | | Load_Top At_Offset_0
0120 e5ff | | Load 0x2,-0x1
0121 01d7 | | Execute Vector,Field_Read
0122 e00c | | Load 0x0,0xc
0123 e210 | | Load 0x1,0x10
0124 0096 | | Execute Package,Entry
0125 7022 |p" | Jump_Nonzero 0x148
0126 00d8 | | Load_Top At_Offset_0
0127 e5ff | | Load 0x2,-0x1
0128 01d7 | | Execute Vector,Field_Read
0129 e00e | | Load 0x0,0xe
012a e210 | | Load 0x1,0x10
012b 0096 | | Execute Package,Entry
012c a403 | | Store_Unchecked 0x2,0x3
012d 00cf | | Action Mark_Auxiliary
012e 7810 |x | Jump 0x13f
012f e402 | | Load 0x2,0x2
0130 e403 | | Load 0x2,0x3
0131 e013 | | Load 0x0,0x13
0132 e210 | | Load 0x1,0x10
0133 0096 | | Execute Package,Entry
0134 c403 | | Store 0x2,0x3
0135 00d1 | | Pop_Control Pop_Count_1
0136 e402 | | Load 0x2,0x2
0137 8007 | | Call 0x0,0x7
0138 e014 | | Load 0x0,0x14
0139 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
013a 0092 014b | K| Action Push_String_Extended,0x14b ; " "
013c e014 | | Load 0x0,0x14
013d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
013e 00c9 | | Action Pop_Auxiliary_Loop
013f e403 | | Load 0x2,0x3
0140 e011 | | Load 0x0,0x11
0141 e210 | | Load 0x1,0x10
0142 0096 | | Execute Package,Entry
0143 77eb |w | Jump_Nonzero 0x12f
0144 00ce | | Action Pop_Auxiliary
0145 4801 |H | Short_Literal 0x1
0146 e014 | | Load 0x0,0x14
0147 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0148 00c8 | | Action Pop_Auxiliary_Range
0149 3fd5 |? | Loop_Increasing 0x11f
014a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014b ; --------------------------------------------------------------------------------------
014b ; STRING TABLE
014b ; --------------------------------------------------------------------------------------
014b 0004 | | .STRTAB 0x0004->0x014d ; " "
014c 0003 | | .STREND 0x0003->0x014d
014d 2000 | | .STRTAB_STRINGS
014e 0000 0000 | | .XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug Table
0150 ; --------------------------------------------------------------------------------------
0150 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdea3,0x0000,0x0001,0x0009
0156 000b 017a | z| .DBG4T 0x000b,0x017a,0x8000,0x0000
015a 0034 0185 | 4 | .DBG4T 0x0034,0x0185,0x8000,0x0000
015e 004b 018d | K | .DBG4T 0x004b,0x018d,0x0002,0x0000
0162 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x000c,0x0000
0166 006b 0190 | k | .DBG4T 0x006b,0x0190,0x0001,0x0000
016a 008b 0195 | | .DBG4T 0x008b,0x0195,0x0001,0x4000
016e 00cb 01a5 | | .DBG4T 0x00cb,0x01a5,0x0002,0x4000
0172 00fb 01b6 | | .DBG4T 0x00fb,0x01b6,0x0001,0x0000
0176 0113 01ba | | .DBG4T 0x0113,0x01ba,0x0001,0x4000
017a ; --------------------------------------------------------------------------------------
017a ; Debug chain
017a ; --------------------------------------------------------------------------------------
017a 0009 0000 | | .DBGLEN 0x0009,0x0000
017c 000b 000f | | .DBGLNO 0x000b,0x000f,0x0011,0x0021,0x0029,0x002b,0x002d,0x002f,0x0031
0185 ; --------------------------------------------------------------------------------------
0185 ; Debug chain
0185 ; --------------------------------------------------------------------------------------
0185 0006 0000 | | .DBGLEN 0x0006,0x0000
0187 0034 0036 | 4 6| .DBGLNO 0x0034,0x0036,0x0038,0x003a,0x003c,0x003e
018d ; --------------------------------------------------------------------------------------
018d ; Debug chain
018d ; --------------------------------------------------------------------------------------
018d 0000 0001 | | .DBGLEN 0x0000,0x0001
018f 004b | K | .DBGLNO 0x004b
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug chain
0190 ; --------------------------------------------------------------------------------------
0190 0001 0002 | | .DBGLEN 0x0001,0x0002
0192 006b 006f | k o| .DBGLNO 0x006b,0x006f,0x0074
0195 ; --------------------------------------------------------------------------------------
0195 ; Debug chain
0195 ; --------------------------------------------------------------------------------------
0195 0002 0006 | | .DBGLEN 0x0002,0x0006
0197 008b 008f | | .DBGLNO 0x008b,0x008f,0x0093,0x0097,0x00a4,0x00aa,0x00af,0x00b7
019f 0002 0001 | | .XXX[0x6]
01a1 0003 0004 | |
01a3 0005 0006 | |
01a5 ; --------------------------------------------------------------------------------------
01a5 ; Debug chain
01a5 ; --------------------------------------------------------------------------------------
01a5 0003 0006 | | .DBGLEN 0x0003,0x0006
01a7 00cb 00cf | | .DBGLNO 0x00cb,0x00cf,0x00d3,0x00d7,0x00de,0x00e4,0x00ea,0x00f0,0x00f6
01b0 0001 0003 | | .XXX[0x6]
01b2 0004 0005 | |
01b4 0002 0006 | |
01b6 ; --------------------------------------------------------------------------------------
01b6 ; Debug chain
01b6 ; --------------------------------------------------------------------------------------
01b6 0000 0002 | | .DBGLEN 0x0000,0x0002
01b8 00fc 0100 | | .DBGLNO 0x00fc,0x0100
01ba ; --------------------------------------------------------------------------------------
01ba ; Debug chain
01ba ; --------------------------------------------------------------------------------------
01ba 0002 0008 | | .DBGLEN 0x0002,0x0008
01bc 0113 0117 | | .DBGLNO 0x0113,0x0117,0x011b,0x011f,0x0126,0x012f,0x0136,0x013a,0x013f,0x0145
01c6 0001 0002 | | .XXX[0x8]
01c8 0003 0005 | |
01ca 0006 0007 | |
01cc 0004 0008 | |
01ce 0000 0000 | | .BLANK 0000[0x32]