|
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_ccb0b3
└─⟦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 035b | [ | Declare_Type Array,Constrained
00f3 0337 | 7 | Declare_Variable Array
00f4 0092 015e | ^| Action Push_String_Extended,0x15e ; "Cmvc.Demote"
00f6 e006 | | Load 0x0,0x6
00f7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f8 e006 | | Load 0x0,0x6
00f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fa 0119 | | Execute Any,Check_In_Formal_Type
00fb 4801 |H | Short_Literal 0x1
00fc 00da | | Load_Top At_Offset_2
00fd 01d6 | | Execute Vector,Field_Write
00fe 6005 |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x0000881f}
00ff e007 | | Load 0x0,0x7
0100 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0101 e007 | | Load 0x0,0x7
0102 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0103 0257 | W | Execute Discrete,Raise
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 035b | [ | Declare_Type Array,Constrained
012f 0337 | 7 | Declare_Variable Array
0130 0092 0160 | `| Action Push_String_Extended,0x160 ; "Compilation.Demote"
0132 e006 | | Load 0x0,0x6
0133 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0134 e006 | | Load 0x0,0x6
0135 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0136 0119 | | Execute Any,Check_In_Formal_Type
0137 4801 |H | Short_Literal 0x1
0138 00da | | Load_Top At_Offset_2
0139 01d6 | | Execute Vector,Field_Write
013a 67c9 |g | Indirect_Literal Discrete,0x104,{0x00000000, 0x0000881f}
013b e007 | | Load 0x0,0x7
013c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
013d e007 | | Load 0x0,0x7
013e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
013f 0257 | W | Execute Discrete,Raise
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 000e | | .DEBUG4 0x0004,0x000e,0xcc95,0x0000,0x0001,0x0000
0196 0000 0000 | | .BLANK 0000[0x6a]