|
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_6148f2
└─⟦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 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0020 | | .CONST 0x0020 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0015 00bf | | Action Accept_Activation
0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0017 00c7 | | Action Elaborate_Subprogram
0018 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0019 00c7 | | Action Elaborate_Subprogram
001a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001b 00c7 | | Action Elaborate_Subprogram
001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001d 00c7 | | Action Elaborate_Subprogram
001e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
001f 00c7 | | Action Elaborate_Subprogram
0020 BODY_0008:
0020 00bc | | Action Signal_Activated
0021 00bb | | Action Signal_Completion
0022 0000 0000 | | .BLANK 0000[0x6]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b | + | .CONST 0x002b ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0001 | | .CONST 0x0001 ; Number of locals
002b BODY_0028:
002b INIT_0028:
002b 482e |H. | Short_Literal 0x2e
002c 00db | | Load_Top At_Offset_3
002d 01cb | | Execute Vector,Append
002e e5fe | | Load 0x2,-0x2
002f 01cc | | Execute Vector,Catenate
0030 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0031 0000 0000 | | .BLANK 0000[0x7]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 005d | ] | .CONST 0x005d ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0007 | | .CONST 0x0007 ; Number of locals
003b INIT_0038:
003b e002 | | Load 0x0,0x2
003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003d 02c7 | | Declare_Variable Any
003e 00d8 | | Load_Top At_Offset_0
003f 1c00 | | Execute_Immediate Run_Utility,0x0
0040 e003 | | Load 0x0,0x3
0041 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0042 e003 | | Load 0x0,0x3
0043 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0044 e003 | | Load 0x0,0x3
0045 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0046 0092 0131 | 1| Action Push_String_Extended,0x131 ; "."
0048 01cc | | Execute Vector,Catenate
0049 e003 | | Load 0x0,0x3
004a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
004b e003 | | Load 0x0,0x3
004c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
004d 01cc | | Execute Vector,Catenate
004e 0092 0132 | 2| Action Push_String_Extended,0x132 ; "_Environment."
0050 01cc | | Execute Vector,Catenate
0051 e5ff | | Load 0x2,-0x1
0052 8004 | | Call 0x0,0x4
0053 01cc | | Execute Vector,Catenate
0054 0007 | | Action Break_Optional
0055 e005 | | Load 0x0,0x5
0056 0007 | | Action Break_Optional
0057 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0059 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
005b 029f 010b | | Declare_Subprogram INIT_0108,For_Call
005d BODY_0038:
005d 00be | | Action Activate_Tasks
005e 8406 | | Call 0x2,0x6
005f 8407 | | Call 0x2,0x7
0060 0831 | 1 | Execute_Immediate Raise,0x31
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 e003 | | Load 0x0,0x3
006c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
006d e003 | | Load 0x0,0x3
006e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
006f e003 | | Load 0x0,0x3
0070 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0071 8006 | | Call 0x0,0x6
0072 00ca | | Action Exit_Nullary_Function
0073 0000 0000 | | .BLANK 0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0084 | | .CONST 0x0084 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 4801 |H | Short_Literal 0x1
007c 4806 |H | Short_Literal 0x6
007d 00e9 | | Load_Encached String_Cache
007e 0334 | 4 | Declare_Variable Array,With_Constraint
007f 500c |P | Indirect_Literal Any,0x8c,{0x5443502f, 0x49502020}
0080 e007 | | Load 0x0,0x7
0081 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0082 8006 | | Call 0x0,0x6
0083 00ca | | Action Exit_Nullary_Function
0084 TRAP_0078:
0084 0007 | | Action Break_Optional
0085 4800 |H | Short_Literal 0x0
0086 00e5 | | Load_Encached Long_Integer_Cache
0087 00d9 | | Load_Top At_Offset_1
0088 0267 | g | Execute Discrete,Predecessor
0089 e008 | | Load 0x0,0x8
008a 0334 | 4 | Declare_Variable Array,With_Constraint
008b 00ca | | Action Exit_Nullary_Function
008c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0097 | | .CONST 0x0097 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0003 | | .CONST 0x0003 ; Number of locals
0093 INIT_0090:
0093 e009 | | Load 0x0,0x9
0094 0007 | | Action Break_Optional
0095 e009 | | Load 0x0,0x9
0096 0007 | | Action Break_Optional
0097 BODY_0090:
0097 e5ff | | Load 0x2,-0x1
0098 01dd | | Execute Vector,First
0099 005a | Z | Store_Top Discrete,At_Offset_2
009a e5ff | | Load 0x2,-0x1
009b 01dc | | Execute Vector,Last
009c 0059 | Y | Store_Top Discrete,At_Offset_1
009d 00cf | | Action Mark_Auxiliary
009e e5ff | | Load 0x2,-0x1
009f 01da | | Execute Vector,Bounds
00a0 0264 | d | Execute Discrete,Below_Bound
00a1 7015 |p | Jump_Nonzero 0xb7
00a2 00d8 | | Load_Top At_Offset_0
00a3 e5ff | | Load 0x2,-0x1
00a4 01d7 | | Execute Vector,Field_Read
00a5 0f27 | ' | Execute_Immediate Equal,0x27
00a6 6804 |h | Jump_Zero 0xab
00a7 00d8 | | Load_Top At_Offset_0
00a8 0aff | | Execute_Immediate Plus,-0x1
00a9 c403 | | Store 0x2,0x3
00aa 780a |x | Jump 0xb5
00ab 00d8 | | Load_Top At_Offset_0
00ac e5ff | | Load 0x2,-0x1
00ad 01d7 | | Execute Vector,Field_Read
00ae 0f2e | . | Execute_Immediate Equal,0x2e
00af 6805 |h | Jump_Zero 0xb5
00b0 00d8 | | Load_Top At_Offset_0
00b1 0a01 | | Execute_Immediate Plus,0x1
00b2 c402 | | Store 0x2,0x2
00b3 00d2 | | Pop_Control Pop_Count_2
00b4 7802 |x | Jump 0xb7
00b5 00c8 | | Action Pop_Auxiliary_Range
00b6 37eb |7 | Loop_Decreasing 0xa2
00b7 00ce | | Action Pop_Auxiliary
00b8 00d9 | | Load_Top At_Offset_1
00b9 00d9 | | Load_Top At_Offset_1
00ba e5ff | | Load 0x2,-0x1
00bb 01cf | | Execute Vector,Slice_Read
00bc 8004 | | Call 0x0,0x4
00bd e00a | | Load 0x0,0xa
00be 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00bf 8006 | | Call 0x0,0x6
00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c1 0000 0000 | | .BLANK 0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d1 | | .CONST 0x00d1 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0003 | | .CONST 0x0003 ; Number of locals
00cb INIT_00c8:
00cb 4801 |H | Short_Literal 0x1
00cc 6023 |`# | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00000400}
00cd 00e9 | | Load_Encached String_Cache
00ce 035b | [ | Declare_Type Array,Constrained
00cf 0337 | 7 | Declare_Variable Array
00d0 00e3 | | Load_Encached Natural_Cache
00d1 BODY_00c8:
00d1 00e3 | | Load_Encached Natural_Cache
00d2 00da | | Load_Top At_Offset_2
00d3 e402 | | Load 0x2,0x2
00d4 e002 | | Load 0x0,0x2
00d5 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
00d6 00d1 | | Pop_Control Pop_Count_1
00d7 0059 | Y | Store_Top Discrete,At_Offset_1
00d8 00d8 | | Load_Top At_Offset_0
00d9 6016 |` | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00000400}
00da 027f | | Execute Discrete,Equal
00db 680c |h | Jump_Zero 0xe8
00dc e402 | | Load 0x2,0x2
00dd e002 | | Load 0x0,0x2
00de 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00df 0c02 | | Execute_Immediate Greater_Equal,0x2
00e0 6807 |h | Jump_Zero 0xe8
00e1 00d9 | | Load_Top At_Offset_1
00e2 8006 | | Call 0x0,0x6
00e3 8405 | | Call 0x2,0x5
00e4 01cc | | Execute Vector,Catenate
00e5 e008 | | Load 0x0,0x8
00e6 01c6 | | Execute Vector,Convert_To_Formal
00e7 00ca | | Action Exit_Nullary_Function
00e8 4801 |H | Short_Literal 0x1
00e9 00d9 | | Load_Top At_Offset_1
00ea 00db | | Load_Top At_Offset_3
00eb 01cf | | Execute Vector,Slice_Read
00ec 8006 | | Call 0x0,0x6
00ed e008 | | Load 0x0,0x8
00ee 01c6 | | Execute Vector,Convert_To_Formal
00ef 00ca | | Action Exit_Nullary_Function
00f0 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0103 | | .CONST 0x0103 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb e402 | | Load 0x2,0x2
00fc 00ea | | Load_Encached Null_String_Cache
00fd e403 | | Load 0x2,0x3
00fe 4800 |H | Short_Literal 0x0
00ff e002 | | Load 0x0,0x2
0100 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0101 c402 | | Store 0x2,0x2
0102 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0103 TRAP_00f8:
0103 0007 | | Action Break_Optional
0104 e005 | | Load 0x0,0x5
0105 00cb | | Action Pop_Block_With_Result
0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d | | .CONST 0x010d ; Address of begin
0109 0118 | | .CONST 0x0118 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
010d BODY_0108:
010d 8405 | | Call 0x2,0x5
010e e005 | | Load 0x0,0x5
010f 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0110 a404 | | Store_Unchecked 0x2,0x4
0111 e402 | | Load 0x2,0x2
0112 e002 | | Load 0x0,0x2
0113 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0114 c402 | | Store 0x2,0x2
0115 e404 | | Load 0x2,0x4
0116 00cb | | Action Pop_Block_With_Result
0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0118 TRAP_0108:
0118 0007 | | Action Break_Optional
0119 8602 | | Call 0x3,0x2
011a e005 | | Load 0x0,0x5
011b 00cb | | Action Pop_Block_With_Result
011c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 012e | . | .CONST 0x012e ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e404 | | Load 0x2,0x4
0124 e00b | | Load 0x0,0xb
0125 e00c | | Load 0x0,0xc
0126 a00d | | Store_Unchecked 0x0,0xd
0127 800e | | Call 0x0,0xe
0128 c404 | | Store 0x2,0x4
0129 e402 | | Load 0x2,0x2
012a e002 | | Load 0x0,0x2
012b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012c c402 | | Store 0x2,0x2
012d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
012e TRAP_0120:
012e 0007 | | Action Break_Optional
012f 0008 | | Action Idle
0130 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0131 ; --------------------------------------------------------------------------------------
0131 ; STRING TABLE
0131 ; --------------------------------------------------------------------------------------
0131 0006 | | .STRTAB 0x0006->0x0134 ; "."
0132 0005 | | .STRTAB 0x0005->0x0134 ; "_Environment."
0133 0010 | | .STREND 0x0010->0x013b
0134 2e5f 456e |._En| .STRTAB_STRINGS
013b 0000 0000 | | .BLANK 0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug Table
0140 ; --------------------------------------------------------------------------------------
0140 0004 0000 | | .DEBUG4 0x0004,0x0000,0x679a,0x0000,0x0001,0x000b
0146 000b 0172 | r| .DBG4T 0x000b,0x0172,0x8000,0x0000
014a 0016 0179 | y| .DBG4T 0x0016,0x0179,0x8000,0x0000
014e 002b 0180 | + | .DBG4T 0x002b,0x0180,0x0002,0x0000
0152 003b 0183 | ; | .DBG4T 0x003b,0x0183,0x0002,0x0000
0156 006b 018b | k | .DBG4T 0x006b,0x018b,0x0002,0x0000
015a 007b 018e | { | .DBG4T 0x007b,0x018e,0x0002,0x0000
015e 0093 0192 | | .DBG4T 0x0093,0x0192,0x0002,0x0000
0162 00cb 019f | | .DBG4T 0x00cb,0x019f,0x0002,0x0000
0166 00fb 01a7 | | .DBG4T 0x00fb,0x01a7,0x0004,0x0000
016a 010b 01ab | | .DBG4T 0x010b,0x01ab,0x0004,0x0000
016e 0123 01b2 | # | .DBG4T 0x0123,0x01b2,0x0004,0x0000
0172 ; --------------------------------------------------------------------------------------
0172 ; Debug chain
0172 ; --------------------------------------------------------------------------------------
0172 0005 0000 | | .DBGLEN 0x0005,0x0000
0174 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013
0179 ; --------------------------------------------------------------------------------------
0179 ; Debug chain
0179 ; --------------------------------------------------------------------------------------
0179 0005 0000 | | .DBGLEN 0x0005,0x0000
017b 0016 0018 | | .DBGLNO 0x0016,0x0018,0x001a,0x001c,0x001e
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug chain
0180 ; --------------------------------------------------------------------------------------
0180 0000 0001 | | .DBGLEN 0x0000,0x0001
0182 002b | + | .DBGLNO 0x002b
0183 ; --------------------------------------------------------------------------------------
0183 ; Debug chain
0183 ; --------------------------------------------------------------------------------------
0183 0004 0002 | | .DBGLEN 0x0004,0x0002
0185 003b 0040 | ; @| .DBGLNO 0x003b,0x0040,0x0055,0x0057,0x005e,0x005f
018b ; --------------------------------------------------------------------------------------
018b ; Debug chain
018b ; --------------------------------------------------------------------------------------
018b 0000 0001 | | .DBGLEN 0x0000,0x0001
018d 006b | k | .DBGLNO 0x006b
018e ; --------------------------------------------------------------------------------------
018e ; Debug chain
018e ; --------------------------------------------------------------------------------------
018e 0000 0002 | | .DBGLEN 0x0000,0x0002
0190 007b 0085 | { | .DBGLNO 0x007b,0x0085
0192 ; --------------------------------------------------------------------------------------
0192 ; Debug chain
0192 ; --------------------------------------------------------------------------------------
0192 0002 0009 | | .DBGLEN 0x0002,0x0009
0194 0093 0095 | | .DBGLNO 0x0093,0x0095,0x0097,0x009a,0x009e,0x00a2,0x00a7,0x00ab,0x00b0,0x00b3,0x00b8
019f ; --------------------------------------------------------------------------------------
019f ; Debug chain
019f ; --------------------------------------------------------------------------------------
019f 0002 0004 | | .DBGLEN 0x0002,0x0004
01a1 00cb 00d0 | | .DBGLNO 0x00cb,0x00d0,0x00d1,0x00d8,0x00e1,0x00e8
01a7 ; --------------------------------------------------------------------------------------
01a7 ; Debug chain
01a7 ; --------------------------------------------------------------------------------------
01a7 0000 0002 | | .DBGLEN 0x0000,0x0002
01a9 00fb 0104 | | .DBGLNO 0x00fb,0x0104
01ab ; --------------------------------------------------------------------------------------
01ab ; Debug chain
01ab ; --------------------------------------------------------------------------------------
01ab 0000 0005 | | .DBGLEN 0x0000,0x0005
01ad 010d 0111 | | .DBGLNO 0x010d,0x0111,0x0115,0x0119,0x011a
01b2 ; --------------------------------------------------------------------------------------
01b2 ; Debug chain
01b2 ; --------------------------------------------------------------------------------------
01b2 0000 0003 | | .DBGLEN 0x0000,0x0003
01b4 0123 0129 | # )| .DBGLNO 0x0123,0x0129,0x012f
01b7 0000 0000 | | .BLANK 0000[0x49]