|
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_6a18da
└─⟦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 0190 | | .CONST 0x0190 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0039 | 9 | .CONST 0x0039 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0013 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0015 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
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 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
001f c215 | | Store 0x1,0x15
0020 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0022 c217 | | Store 0x1,0x17
0023 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0025 c218 | | Store 0x1,0x18
0026 00bf | | Action Accept_Activation
0027 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0028 00c7 | | Action Elaborate_Subprogram
0029 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002a 00c7 | | Action Elaborate_Subprogram
002b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002c 00c7 | | Action Elaborate_Subprogram
002d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002e 00c7 | | Action Elaborate_Subprogram
002f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0030 00c7 | | Action Elaborate_Subprogram
0031 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0032 00c7 | | Action Elaborate_Subprogram
0033 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0034 00c7 | | Action Elaborate_Subprogram
0035 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0036 00c7 | | Action Elaborate_Subprogram
0037 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0038 00c7 | | Action Elaborate_Subprogram
0039 BODY_0008:
0039 00bc | | Action Signal_Activated
003a 00bb | | Action Signal_Completion
003b 0000 0000 | | .BLANK 0000[0x5]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0048 | H | .CONST 0x0048 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0003 | | .CONST 0x0003 ; Number of locals
0043 INIT_0040:
0043 e001 | | Load 0x0,0x1
0044 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0046 e001 | | Load 0x0,0x1
0047 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0048 BODY_0040:
0048 e001 | | Load 0x0,0x1
0049 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004a e001 | | Load 0x0,0x1
004b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004d 6012 |` | Indirect_Literal Discrete,0x60,{0x00000000, 0x00004000}
004e e002 | | Load 0x0,0x2
004f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0050 4800 |H | Short_Literal 0x0
0051 e5ff | | Load 0x2,-0x1
0052 e001 | | Load 0x0,0x1
0053 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0054 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0055 e001 | | Load 0x0,0x1
0056 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0057 180f | | Execute Package,Field_Execute,Field_Number 0xf
0058 005b | [ | Store_Top Discrete,At_Offset_3
0059 0059 | Y | Store_Top Discrete,At_Offset_1
005a 00d9 | | Load_Top At_Offset_1
005b 0c03 | | Execute_Immediate Greater_Equal,0x3
005c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005d 0000 0000 | | .XXX[0x3]
005f 0000 | |
0060 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0064 0000 0000 | | .BLANK 0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0070 | p | .CONST 0x0070 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b e001 | | Load 0x0,0x1
006c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
006d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006e e001 | | Load 0x0,0x1
006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0070 BODY_0068:
0070 e001 | | Load 0x0,0x1
0071 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0072 e001 | | Load 0x0,0x1
0073 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0075 67ea |g | Indirect_Literal Discrete,0x60,{0x00000000, 0x00004000}
0076 e002 | | Load 0x0,0x2
0077 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0078 4800 |H | Short_Literal 0x0
0079 e5ff | | Load 0x2,-0x1
007a e001 | | Load 0x0,0x1
007b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
007c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
007d e001 | | Load 0x0,0x1
007e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
007f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0080 005b | [ | Store_Top Discrete,At_Offset_3
0081 0059 | Y | Store_Top Discrete,At_Offset_1
0082 00d9 | | Load_Top At_Offset_1
0083 0f04 | | Execute_Immediate Equal,0x4
0084 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
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 e003 | | Load 0x0,0x3
008d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
008e 0092 015c | \| Action Push_String_Extended,0x15c ; "??'c(ada)'s(coded)"
0090 01cc | | Execute Vector,Catenate
0091 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0092 0000 0000 | | .BLANK 0000[0x6]
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 e5fd | | Load 0x2,-0x3
009c e5fe | | Load 0x2,-0x2
009d e5fd | | Load 0x2,-0x3
009e e5fe | | Load 0x2,-0x2
009f e5ff | | Load 0x2,-0x1
00a0 820f | | Call 0x1,0xf
00a1 e003 | | Load 0x0,0x3
00a2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00a3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac e003 | | Load 0x0,0x3
00ad 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ae 0092 015d | ]| Action Push_String_Extended,0x15d ; "??'c(ada)'s(~coded)"
00b0 01cc | | Execute Vector,Catenate
00b1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00b2 0000 0000 | | .BLANK 0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e5fd | | Load 0x2,-0x3
00bc e5fe | | Load 0x2,-0x2
00bd e5fd | | Load 0x2,-0x3
00be e5fe | | Load 0x2,-0x2
00bf e5ff | | Load 0x2,-0x1
00c0 8211 | | Call 0x1,0x11
00c1 e003 | | Load 0x0,0x3
00c2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00c3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d4 | | .CONST 0x00d4 ; Address of begin
00c9 00ec | | .CONST 0x00ec ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e001 | | Load 0x0,0x1
00cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00cd 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00ce 02c7 | | Declare_Variable Any
00cf e5fd | | Load 0x2,-0x3
00d0 4800 |H | Short_Literal 0x0
00d1 e5ff | | Load 0x2,-0x1
00d2 8210 | | Call 0x1,0x10
00d3 a402 | | Store_Unchecked 0x2,0x2
00d4 BODY_00c8:
00d4 00d8 | | Load_Top At_Offset_0
00d5 e001 | | Load 0x0,0x1
00d6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00d8 7012 |p | Jump_Nonzero 0xeb
00d9 4800 |H | Short_Literal 0x0
00da 4801 |H | Short_Literal 0x1
00db 4800 |H | Short_Literal 0x0
00dc 4801 |H | Short_Literal 0x1
00dd e5fd | | Load 0x2,-0x3
00de e003 | | Load 0x0,0x3
00df 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00e0 e004 | | Load 0x0,0x4
00e1 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00e2 4800 |H | Short_Literal 0x0
00e3 e5fe | | Load 0x2,-0x2
00e4 4802 |H | Short_Literal 0x2
00e5 e5fd | | Load 0x2,-0x3
00e6 4800 |H | Short_Literal 0x0
00e7 e5ff | | Load 0x2,-0x1
00e8 820f | | Call 0x1,0xf
00e9 e005 | | Load 0x0,0x5
00ea 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00ec TRAP_00c8:
00ec 0007 | | Action Break_Optional
00ed e5fd | | Load 0x2,-0x3
00ee 4801 |H | Short_Literal 0x1
00ef 4801 |H | Short_Literal 0x1
00f0 e006 | | Load 0x0,0x6
00f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f2 0334 | 4 | Declare_Variable Array,With_Constraint
00f3 0092 015e | ^| Action Push_String_Extended,0x15e ; "Cmvc.Demote"
00f5 e006 | | Load 0x0,0x6
00f6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f7 e006 | | Load 0x0,0x6
00f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f9 0119 | | Execute Any,Check_In_Formal_Type
00fa 4801 |H | Short_Literal 0x1
00fb 00da | | Load_Top At_Offset_2
00fc 01d6 | | Execute Vector,Field_Write
00fd 6006 |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x0000881f}
00fe e007 | | Load 0x0,0x7
00ff 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0100 e007 | | Load 0x0,0x7
0101 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0102 0257 | W | Execute Discrete,Raise
0103 0000 | | .XXX[0x1]
0104 0000 0000 | | .LITERAL {0x00000000, 0x0000881f}
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0110 | | .CONST 0x0110 ; Address of begin
0109 0128 | ( | .CONST 0x0128 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b e5fd | | Load 0x2,-0x3
010c 4800 |H | Short_Literal 0x0
010d e5ff | | Load 0x2,-0x1
010e e003 | | Load 0x0,0x3
010f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0110 BODY_0108:
0110 00d8 | | Load_Top At_Offset_0
0111 01db | | Execute Vector,Length
0112 6814 |h | Jump_Zero 0x127
0113 00d8 | | Load_Top At_Offset_0
0114 0092 015f | _| Action Push_String_Extended,0x15f ; "<>"
0116 01de | | Execute Vector,Not_Equal
0117 680f |h | Jump_Zero 0x127
0118 4800 |H | Short_Literal 0x0
0119 4801 |H | Short_Literal 0x1
011a 4800 |H | Short_Literal 0x0
011b 4801 |H | Short_Literal 0x1
011c e5fd | | Load 0x2,-0x3
011d e003 | | Load 0x0,0x3
011e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
011f e004 | | Load 0x0,0x4
0120 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0121 4800 |H | Short_Literal 0x0
0122 e5fe | | Load 0x2,-0x2
0123 4801 |H | Short_Literal 0x1
0124 e402 | | Load 0x2,0x2
0125 e005 | | Load 0x0,0x5
0126 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0127 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0128 TRAP_0108:
0128 0007 | | Action Break_Optional
0129 e5fd | | Load 0x2,-0x3
012a 4801 |H | Short_Literal 0x1
012b 4801 |H | Short_Literal 0x1
012c e006 | | Load 0x0,0x6
012d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012e 0334 | 4 | Declare_Variable Array,With_Constraint
012f 0092 0160 | `| Action Push_String_Extended,0x160 ; "Compilation.Demote"
0131 e006 | | Load 0x0,0x6
0132 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0133 e006 | | Load 0x0,0x6
0134 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0135 0119 | | Execute Any,Check_In_Formal_Type
0136 4801 |H | Short_Literal 0x1
0137 00da | | Load_Top At_Offset_2
0138 01d6 | | Execute Vector,Field_Write
0139 67ca |g | Indirect_Literal Discrete,0x104,{0x00000000, 0x0000881f}
013a e007 | | Load 0x0,0x7
013b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
013c e007 | | Load 0x0,0x7
013d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
013e 0257 | W | Execute Discrete,Raise
013f 0000 | | .XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0147 | G | .CONST 0x0147 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 e5fd | | Load 0x2,-0x3
0144 4801 |H | Short_Literal 0x1
0145 e5ff | | Load 0x2,-0x1
0146 820f | | Call 0x1,0xf
0147 BODY_0140:
0147 e5fd | | Load 0x2,-0x3
0148 e004 | | Load 0x0,0x4
0149 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
014a 4801 |H | Short_Literal 0x1
014b 00da | | Load_Top At_Offset_2
014c 8008 | | Call 0x0,0x8
014d e5fe | | Load 0x2,-0x2
014e 680c |h | Jump_Zero 0x15b
014f e5fd | | Load 0x2,-0x3
0150 e004 | | Load 0x0,0x4
0151 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0152 4800 |H | Short_Literal 0x0
0153 0092 0161 | a| Action Push_String_Extended,0x161 ; "<ALL_WORLDS>"
0155 4801 |H | Short_Literal 0x1
0156 e5ff | | Load 0x2,-0x1
0157 e003 | | Load 0x0,0x3
0158 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0159 e005 | | Load 0x0,0x5
015a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
015b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
015c ; --------------------------------------------------------------------------------------
015c ; STRING TABLE
015c ; --------------------------------------------------------------------------------------
015c 000e | | .STRTAB 0x000e->0x0163 ; "??'c(ada)'s(coded)"
015d 001e | | .STRTAB 0x001e->0x016c ; "??'c(ada)'s(~coded)"
015e 002f | / | .STRTAB 0x002f->0x0175 ; "Cmvc.Demote"
015f 0038 | 8 | .STRTAB 0x0038->0x017b ; "<>"
0160 0038 | 8 | .STRTAB 0x0038->0x017c ; "Compilation.Demote"
0161 0048 | H | .STRTAB 0x0048->0x0185 ; "<ALL_WORLDS>"
0162 0052 | R | .STREND 0x0052->0x018b
0163 3f3f 2763 |??'c| .STRTAB_STRINGS
018b 0000 0000 | | .BLANK 0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug Table
0190 ; --------------------------------------------------------------------------------------
0190 0004 000c | | .DEBUG4 0x0004,0x000c,0x1676,0x0000,0x0001,0x0000
0196 42e0 0000 |B | .XXX[0x6a]
0198 051f 0000 | |
019a 0014 b200 | |
019c 0000 5358 | SX|
019e 09b0 015b | [|
01a0 c000 0005 | |
01a2 8480 9500 | |
01a4 1650 0258 | P X|
01a6 005a 6800 | Zh |
01a8 0001 6ce0 | l |
01aa 0000 05b6 | |
01ac 8000 0017 | |
01ae 0a02 7000 | p |
01b0 5cb8 0000 |\ |
01b2 0174 0000 | t |
01b4 0005 d480 | |
01b6 0000 176a | j|
01b8 0000 005d | ]|
01ba d800 0001 | |
01bc 7820 0000 |x |
01be 05e4 0000 | |
01c0 0017 de00 | |
01c2 00b6 3231 | 21|
01c4 b0b9 3239 | 29|
01c6 9610 31b7 | 1 |
01c8 b73a 32bc | :2 |
01ca 3a10 3839 |: 89|
01cc 32b3 34bc |2 4 |
01ce 32b9 9600 |2 |
01d0 0000 2380 | # |
01d2 0000 2410 | $ |
01d4 29b8 32b1 |) 2 |
01d6 b4b3 34b2 | 4 |
01d8 b990 3a34 | :4|
01da 3290 39b2 |2 9 |
01dc ba10 37b3 | 7 |
01de 1037 b135 | 7 5|
01e0 32b1 ba39 |2 9|
01e2 903a 3790 | :7 |
01e4 3132 9036 |12 6|
01e6 34b9 ba32 |4 2|
01e8 b217 102b | +|
01ea b4b6 3231 | 21|
01ec b0b9 3239 | 29|
01ee 9610 31b7 | 1 |
01f0 b73a 32bc | :2 |
01f2 3a10 3839 |: 89|
01f4 32b3 34bc |2 4 |
01f6 32b9 9600 |2 |
01f8 0000 2380 | # |
01fa 0000 2410 | $ |
01fc 29b8 32b1 |) 2 |
01fe b4b3 34b2 | 4 |