|
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_02f8e7
└─⟦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 0178 | x | .CONST 0x0178 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0031 | 1 | .CONST 0x0031 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0009 | | .CONST 0x0009 ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
001c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
001d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
001e 02c7 | | Declare_Variable Any
001f 00d8 | | Load_Top At_Offset_0
0020 1c00 | | Execute_Immediate Run_Utility,0x0
0021 e001 | | Load 0x0,0x1
0022 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0023 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0024 e001 | | Load 0x0,0x1
0025 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0026 e001 | | Load 0x0,0x1
0027 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0028 0007 | | Action Break_Optional
0029 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
002b 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
002d 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
002f 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
0031 BODY_0018:
0031 e001 | | Load 0x0,0x1
0032 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0033 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0034 e402 | | Load 0x2,0x2
0035 0120 | | Execute Any,Is_Value
0036 6804 |h | Jump_Zero 0x3b
0037 e001 | | Load 0x0,0x1
0038 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0039 1b18 | | Execute Package,Field_Read,Field_Number 0x18
003a 7801 |x | Jump 0x3c
003b e402 | | Load 0x2,0x2
003c 6107 |a | Indirect_Literal Discrete,0x144,{0x00000000, 0x00004000}
003d e002 | | Load 0x0,0x2
003e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003f e003 | | Load 0x0,0x3
0040 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0041 e004 | | Load 0x0,0x4
0042 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0043 4800 |H | Short_Literal 0x0
0044 4800 |H | Short_Literal 0x0
0045 e003 | | Load 0x0,0x3
0046 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0047 e001 | | Load 0x0,0x1
0048 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0049 1816 | | Execute Package,Field_Execute,Field_Number 0x16
004a e5ff | | Load 0x2,-0x1
004b e001 | | Load 0x0,0x1
004c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
004d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
004e c402 | | Store 0x2,0x2
004f c403 | | Store 0x2,0x3
0050 e403 | | Load 0x2,0x3
0051 0b00 | | Execute_Immediate Case_Compare,0x0
0052 7017 |p | Jump_Nonzero 0x6a
0053 e005 | | Load 0x0,0x5
0054 180e | | Execute Package,Field_Execute,Field_Number 0xe
0055 4805 |H | Short_Literal 0x5
0056 0092 0148 | H| Action Push_String_Extended,0x148 ; "\x22"
0058 e5ff | | Load 0x2,-0x1
0059 01cc | | Execute Vector,Catenate
005a 0092 0149 | I| Action Push_String_Extended,0x149 ; "\x22 cannot be resolved ("
005c 01cc | | Execute Vector,Catenate
005d e403 | | Load 0x2,0x3
005e e001 | | Load 0x0,0x1
005f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0060 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0061 025e | ^ | Execute Discrete,Convert
0062 1c01 | | Execute_Immediate Run_Utility,0x1
0063 01cc | | Execute Vector,Catenate
0064 0092 014a | J| Action Push_String_Extended,0x14a ; ")."
0066 01cc | | Execute Vector,Catenate
0067 e006 | | Load 0x0,0x6
0068 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0069 4502 |E | Exit_Suprogram New_Top_Offset 0x2
006a 00cf | | Action Mark_Auxiliary
006b 784b |xK | Jump 0xb7
006c e001 | | Load 0x0,0x1
006d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006e e001 | | Load 0x0,0x1
006f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0070 60d3 |` | Indirect_Literal Discrete,0x144,{0x00000000, 0x00004000}
0071 e002 | | Load 0x0,0x2
0072 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0073 e402 | | Load 0x2,0x2
0074 e001 | | Load 0x0,0x1
0075 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0076 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0077 c404 | | Store 0x2,0x4
0078 c405 | | Store 0x2,0x5
0079 e405 | | Load 0x2,0x5
007a 0b00 | | Execute_Immediate Case_Compare,0x0
007b 7013 |p | Jump_Nonzero 0x8f
007c e005 | | Load 0x0,0x5
007d 180e | | Execute Package,Field_Execute,Field_Number 0xe
007e 4805 |H | Short_Literal 0x5
007f 0092 014b | K| Action Push_String_Extended,0x14b ; "Directory.Naming.Get_Declaration failed ("
0081 e403 | | Load 0x2,0x3
0082 e001 | | Load 0x0,0x1
0083 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0084 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0085 025e | ^ | Execute Discrete,Convert
0086 1c01 | | Execute_Immediate Run_Utility,0x1
0087 01cc | | Execute Vector,Catenate
0088 0092 014a | J| Action Push_String_Extended,0x14a ; ")."
008a 01cc | | Execute Vector,Catenate
008b e006 | | Load 0x0,0x6
008c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008d 00d1 | | Pop_Control Pop_Count_1
008e 782d |x- | Jump 0xbc
008f e404 | | Load 0x2,0x4
0090 e007 | | Load 0x0,0x7
0091 180f | | Execute Package,Field_Execute,Field_Number 0xf
0092 6811 |h | Jump_Zero 0xa4
0093 00ea | | Load_Encached Null_String_Cache
0094 0092 014c | L| Action Push_String_Extended,0x14c ; "<PROFILE>"
0096 4800 |H | Short_Literal 0x0
0097 4800 |H | Short_Literal 0x0
0098 e008 | | Load 0x0,0x8
0099 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
009a e404 | | Load 0x2,0x4
009b e001 | | Load 0x0,0x1
009c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
009d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
009e 0092 014d | M| Action Push_String_Extended,0x14d ; ".@"
00a0 01cc | | Execute Vector,Catenate
00a1 e008 | | Load 0x0,0x8
00a2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00a3 780c |x | Jump 0xb0
00a4 e404 | | Load 0x2,0x4
00a5 e007 | | Load 0x0,0x7
00a6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00a7 6806 |h | Jump_Zero 0xae
00a8 e404 | | Load 0x2,0x4
00a9 e001 | | Load 0x0,0x1
00aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ab 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00ac 8409 | | Call 0x2,0x9
00ad 7802 |x | Jump 0xb0
00ae e404 | | Load 0x2,0x4
00af 8408 | | Call 0x2,0x8
00b0 00d1 | | Pop_Control Pop_Count_1
00b1 e402 | | Load 0x2,0x2
00b2 e001 | | Load 0x0,0x1
00b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00b5 c402 | | Store 0x2,0x2
00b6 00c9 | | Action Pop_Auxiliary_Loop
00b7 e402 | | Load 0x2,0x2
00b8 e001 | | Load 0x0,0x1
00b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ba 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00bb 6fb0 |o | Jump_Zero 0x6c
00bc 00ce | | Action Pop_Auxiliary
00bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00be 0000 0000 | | .XXX[0x2]
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 e7ff | | Load 0x3,-0x1
00c4 00eb | | Load_Encached Diana_Cache
00c5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c6 0b8c | | Execute_Immediate Case_Compare,0x8c
00c7 7006 |p | Jump_Nonzero 0xce
00c8 0b91 | | Execute_Immediate Case_Compare,0x91
00c9 7004 |p | Jump_Nonzero 0xce
00ca 0b94 | | Execute_Immediate Case_Compare,0x94
00cb 7002 |p | Jump_Nonzero 0xce
00cc 4800 |H | Short_Literal 0x0
00cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ce 4801 |H | Short_Literal 0x1
00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d7 | | .CONST 0x00d7 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0004 | | .CONST 0x0004 ; Number of locals
00d3 INIT_00d0:
00d3 00ec | | Load_Encached Diana_Tree_Cache
00d4 00ec | | Load_Encached Diana_Tree_Cache
00d5 00e1 | | Load_Encached Boolean_Cache
00d6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00d7 BODY_00d0:
00d7 e7ff | | Load 0x3,-0x1
00d8 a602 | | Store_Unchecked 0x3,0x2
00d9 00cf | | Action Mark_Auxiliary
00da 0007 | | Action Break_Optional
00db e602 | | Load 0x3,0x2
00dc 00eb | | Load_Encached Diana_Cache
00dd 18ec | | Execute Package,Field_Execute,Field_Number 0xec
00de a603 | | Store_Unchecked 0x3,0x3
00df e603 | | Load 0x3,0x3
00e0 8406 | | Call 0x2,0x6
00e1 7018 |p | Jump_Nonzero 0xfa
00e2 e604 | | Load 0x3,0x4
00e3 6812 |h | Jump_Zero 0xf6
00e4 e602 | | Load 0x3,0x2
00e5 00eb | | Load_Encached Diana_Cache
00e6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00e7 00eb | | Load_Encached Diana_Cache
00e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e9 025e | ^ | Execute Discrete,Convert
00ea 1c01 | | Execute_Immediate Run_Utility,0x1
00eb 0092 014e | N| Action Push_String_Extended,0x14e ; ": "
00ed 01cc | | Execute Vector,Catenate
00ee 4801 |H | Short_Literal 0x1
00ef 4846 |HF | Short_Literal 0x46
00f0 e602 | | Load 0x3,0x2
00f1 e009 | | Load 0x0,0x9
00f2 180d | | Execute Package,Field_Execute,Field_Number 0xd
00f3 01cc | | Execute Vector,Catenate
00f4 e00a | | Load 0x0,0xa
00f5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f6 e603 | | Load 0x3,0x3
00f7 a602 | | Store_Unchecked 0x3,0x2
00f8 00c9 | | Action Pop_Auxiliary_Loop
00f9 7fe1 | | Jump 0xdb
00fa 00ce | | Action Pop_Auxiliary
00fb e602 | | Load 0x3,0x2
00fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
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 4801 |H | Short_Literal 0x1
0104 4850 |HP | Short_Literal 0x50
0105 e7ff | | Load 0x3,-0x1
0106 8407 | | Call 0x2,0x7
0107 e009 | | Load 0x0,0x9
0108 180d | | Execute Package,Field_Execute,Field_Number 0xd
0109 e00a | | Load 0x0,0xa
010a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
010b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011d | | .CONST 0x011d ; Address of begin
0111 013e | > | .CONST 0x013e ; Address of exception handler
0112 0004 | | .CONST 0x0004 ; Number of locals
0113 INIT_0110:
0113 e00a | | Load 0x0,0xa
0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0115 02c7 | | Declare_Variable Any
0116 00d8 | | Load_Top At_Offset_0
0117 1c00 | | Execute_Immediate Run_Utility,0x0
0118 4801 |H | Short_Literal 0x1
0119 6026 |`& | Indirect_Literal Discrete,0x140,{0x00000000, 0x00000400}
011a 00e9 | | Load_Encached String_Cache
011b 0334 | 4 | Declare_Variable Array,With_Constraint
011c 00e3 | | Load_Encached Natural_Cache
011d BODY_0110:
011d e602 | | Load 0x3,0x2
011e 00ea | | Load_Encached Null_String_Cache
011f e7ff | | Load 0x3,-0x1
0120 4800 |H | Short_Literal 0x0
0121 e00a | | Load 0x0,0xa
0122 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0123 c602 | | Store 0x3,0x2
0124 00cf | | Action Mark_Auxiliary
0125 780e |x | Jump 0x134
0126 00e3 | | Load_Encached Natural_Cache
0127 e603 | | Load 0x3,0x3
0128 e602 | | Load 0x3,0x2
0129 e00a | | Load 0x0,0xa
012a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
012b 00d1 | | Pop_Control Pop_Count_1
012c c604 | | Store 0x3,0x4
012d 4801 |H | Short_Literal 0x1
012e e604 | | Load 0x3,0x4
012f e603 | | Load 0x3,0x3
0130 01cf | | Execute Vector,Slice_Read
0131 e00a | | Load 0x0,0xa
0132 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0133 00c9 | | Action Pop_Auxiliary_Loop
0134 e602 | | Load 0x3,0x2
0135 e00a | | Load 0x0,0xa
0136 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0137 6fee |o | Jump_Zero 0x126
0138 00ce | | Action Pop_Auxiliary
0139 e602 | | Load 0x3,0x2
013a e00a | | Load 0x0,0xa
013b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
013c c602 | | Store 0x3,0x2
013d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013e TRAP_0110:
013e 0007 | | Action Break_Optional
013f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0140 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0144 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0148 ; --------------------------------------------------------------------------------------
0148 ; STRING TABLE
0148 ; --------------------------------------------------------------------------------------
0148 0010 | | .STRTAB 0x0010->0x0150 ; "\x22"
0149 000f | | .STRTAB 0x000f->0x0150 ; "\x22 cannot be resolved ("
014a 0023 | # | .STRTAB 0x0023->0x015b ; ")."
014b 0023 | # | .STRTAB 0x0023->0x015c ; "Directory.Naming.Get_Declaration failed ("
014c 004a | J | .STRTAB 0x004a->0x0171 ; "<PROFILE>"
014d 0051 | Q | .STRTAB 0x0051->0x0175 ; ".@"
014e 0051 | Q | .STRTAB 0x0051->0x0176 ; ": "
014f 0051 | Q | .STREND 0x0051->0x0177
0150 2222 2063 |"" c| .STRTAB_STRINGS
0178 ; --------------------------------------------------------------------------------------
0178 ; Debug Table
0178 ; --------------------------------------------------------------------------------------
0178 0004 0000 | | .DEBUG4 0x0004,0x0000,0xb096,0x0000,0x0001,0x0000
017e 12eb 8403 | | .XXX[0x82]
0180 7803 0092 |x |
0182 12ec 8403 | |
0184 e5ff 3c15 | < |
0186 6804 0092 |h |
0188 12ed 8403 | |
018a 7818 0092 |x |
018c 12ee 8403 | |
018e 7814 e402 |x |
0190 e5ff 3c14 | < |
0192 8261 e009 | a |
0194 1818 00d1 | |
0196 e402 0092 | |
0198 12e0 e009 | |
019a 1818 00d1 | |
019c e402 e5ff | |
019e 3c15 8261 |< a|
01a0 e009 1818 | |
01a2 00d1 00d1 | |
01a4 e402 4402 | D |
01a6 0000 0000 | |
01a8 11b6 0004 | |
01aa 0002 e5ff | |
01ac e259 182b | Y +|
01ae 4878 0271 |Hx q|
01b0 0248 e009 | H |
01b2 1b0e 1c08 | |
01b4 00d8 1c00 | |
01b6 00d8 00ea | |
01b8 e009 1810 | |
01ba 00d1 00cf | |
01bc e5ff e259 | Y|
01be 182b 4801 | +H |
01c0 0263 7019 | cp |
01c2 e402 e5fe | |
01c4 e405 e5ff | |
01c6 e259 182c | Y ,|
01c8 825e e009 | ^ |
01ca 1817 00d1 | |
01cc e5fe 6806 | h |
01ce e402 480a | H |
01d0 e009 1819 | |
01d2 00d1 7805 | x |
01d4 e402 480d | H |
01d6 e009 1819 | |
01d8 00d1 00c8 | |
01da 3fe7 00ce |? |
01dc 00d8 4402 | D |
01de 0000 0000 | |
01e0 11e3 0004 | |
01e2 0001 e5fe | |
01e4 6805 e5ff |h |
01e6 e20d 025e | ^|
01e8 1c01 4402 | D |
01ea e5ff 461b | F |
01ec 781b 781d |x x |
01ee 7846 7848 |xFxH|
01f0 7829 7849 |x)xI|
01f2 781b 7820 |x x |
01f4 7822 7848 |x"xH|
01f6 784a 784c |xJxL|
01f8 784e 7850 |xNxP|
01fa 7852 7833 |xRx3|
01fc 7820 7822 |x x"|
01fe 7824 7811 |x$x |