|
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 01c0 | | .CONST 0x01c0 ; 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 0034 | 4 | .CONST 0x0034 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0017 c213 | | Store 0x1,0x13
0018 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
001a c214 | | Store 0x1,0x14
001b 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
001d c215 | | Store 0x1,0x15
001e 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0020 c216 | | Store 0x1,0x16
0021 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0023 c211 | | Store 0x1,0x11
0024 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0026 c212 | | Store 0x1,0x12
0027 00bf | | Action Accept_Activation
0028 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0029 00c7 | | Action Elaborate_Subprogram
002a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
002b 00c7 | | Action Elaborate_Subprogram
002c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
002d 00c7 | | Action Elaborate_Subprogram
002e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
002f 00c7 | | Action Elaborate_Subprogram
0030 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0031 00c7 | | Action Elaborate_Subprogram
0032 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0033 00c7 | | Action Elaborate_Subprogram
0034 BODY_0008:
0034 00bc | | Action Signal_Activated
0035 00bb | | Action Signal_Completion
0036 0000 0000 | | .XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 4800 |H | Short_Literal 0x0
003c e001 | | Load 0x0,0x1
003d 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
003e e5fc | | Load 0x2,-0x4
003f 4801 |H | Short_Literal 0x1
0040 4802 |H | Short_Literal 0x2
0041 e002 | | Load 0x0,0x2
0042 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0043 0334 | 4 | Declare_Variable Array,With_Constraint
0044 e5fd | | Load 0x2,-0x3
0045 e5ff | | Load 0x2,-0x1
0046 01cc | | Execute Vector,Catenate
0047 e002 | | Load 0x0,0x2
0048 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0049 e002 | | Load 0x0,0x2
004a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004b 0119 | | Execute Any,Check_In_Formal_Type
004c 4801 |H | Short_Literal 0x1
004d 00da | | Load_Top At_Offset_2
004e 01d6 | | Execute Vector,Field_Write
004f e5fe | | Load 0x2,-0x2
0050 e002 | | Load 0x0,0x2
0051 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0052 e002 | | Load 0x0,0x2
0053 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0054 0119 | | Execute Any,Check_In_Formal_Type
0055 4802 |H | Short_Literal 0x2
0056 00da | | Load_Top At_Offset_2
0057 01d6 | | Execute Vector,Field_Write
0058 6003 |` | Indirect_Literal Discrete,0x5c,{0x00000000, 0x00008846}
0059 e001 | | Load 0x0,0x1
005a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
005b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
005c 0000 0000 | | .LITERAL {0x00000000, 0x00008846}
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 006c | l | .CONST 0x006c ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0003 | | .CONST 0x0003 ; Number of locals
0063 INIT_0060:
0063 e001 | | Load 0x0,0x1
0064 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0065 00e2 | | Load_Encached Integer_Cache
0066 03f1 | | Declare_Variable Discrete,With_Value
0067 4806 |H | Short_Literal 0x6
0068 e001 | | Load 0x0,0x1
0069 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
006a 00e2 | | Load_Encached Integer_Cache
006b 03f1 | | Declare_Variable Discrete,With_Value
006c BODY_0060:
006c e5ff | | Load 0x2,-0x1
006d 7010 |p | Jump_Nonzero 0x7e
006e 00d9 | | Load_Top At_Offset_1
006f 700e |p | Jump_Nonzero 0x7e
0070 e5fc | | Load 0x2,-0x4
0071 0092 0163 | c| Action Push_String_Extended,0x163 ; "["
0073 e5fd | | Load 0x2,-0x3
0074 01cc | | Execute Vector,Catenate
0075 e5fe | | Load 0x2,-0x2
0076 01cc | | Execute Vector,Catenate
0077 0092 0164 | d| Action Push_String_Extended,0x164 ; " completed successfully]"
0079 01cc | | Execute Vector,Catenate
007a 607d |`} | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00008821}
007b e001 | | Load 0x0,0x1
007c 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
007d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
007e 00d9 | | Load_Top At_Offset_1
007f 0f01 | | Execute_Immediate Equal,0x1
0080 681f |h | Jump_Zero 0xa0
0081 00d8 | | Load_Top At_Offset_0
0082 0f01 | | Execute_Immediate Equal,0x1
0083 680e |h | Jump_Zero 0x92
0084 e5fc | | Load 0x2,-0x4
0085 0092 0163 | c| Action Push_String_Extended,0x163 ; "["
0087 e5fd | | Load 0x2,-0x3
0088 01cc | | Execute Vector,Catenate
0089 e5fe | | Load 0x2,-0x2
008a 01cc | | Execute Vector,Catenate
008b 0092 0165 | e| Action Push_String_Extended,0x165 ; " completed with 1 warning]"
008d 01cc | | Execute Vector,Catenate
008e 6069 |`i | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00008821}
008f e001 | | Load 0x0,0x1
0090 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0091 7860 |x` | Jump 0xf2
0092 e5fc | | Load 0x2,-0x4
0093 0092 0163 | c| Action Push_String_Extended,0x163 ; "["
0095 e5fd | | Load 0x2,-0x3
0096 01cc | | Execute Vector,Catenate
0097 e5fe | | Load 0x2,-0x2
0098 01cc | | Execute Vector,Catenate
0099 0092 0166 | f| Action Push_String_Extended,0x166 ; " terminated after 1 error]"
009b 01cc | | Execute Vector,Catenate
009c 605b |`[ | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00008821}
009d e001 | | Load 0x0,0x1
009e 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
009f 7852 |xR | Jump 0xf2
00a0 00d8 | | Load_Top At_Offset_0
00a1 7015 |p | Jump_Nonzero 0xb7
00a2 e5fc | | Load 0x2,-0x4
00a3 0092 0163 | c| Action Push_String_Extended,0x163 ; "["
00a5 e5fd | | Load 0x2,-0x3
00a6 01cc | | Execute Vector,Catenate
00a7 e5fe | | Load 0x2,-0x2
00a8 01cc | | Execute Vector,Catenate
00a9 0092 0167 | g| Action Push_String_Extended,0x167 ; " terminated after"
00ab 01cc | | Execute Vector,Catenate
00ac 00db | | Load_Top At_Offset_3
00ad 00e0 | | Load_Encached Standard_Cache
00ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00af 01cc | | Execute Vector,Catenate
00b0 0092 0168 | h| Action Push_String_Extended,0x168 ; " errors]"
00b2 01cc | | Execute Vector,Catenate
00b3 6044 |`D | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00008821}
00b4 e001 | | Load 0x0,0x1
00b5 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
00b6 783b |x; | Jump 0xf2
00b7 00d9 | | Load_Top At_Offset_1
00b8 00d9 | | Load_Top At_Offset_1
00b9 027f | | Execute Discrete,Equal
00ba 6815 |h | Jump_Zero 0xd0
00bb e5fc | | Load 0x2,-0x4
00bc 0092 0163 | c| Action Push_String_Extended,0x163 ; "["
00be e5fd | | Load 0x2,-0x3
00bf 01cc | | Execute Vector,Catenate
00c0 e5fe | | Load 0x2,-0x2
00c1 01cc | | Execute Vector,Catenate
00c2 0092 0169 | i| Action Push_String_Extended,0x169 ; " completed with"
00c4 01cc | | Execute Vector,Catenate
00c5 00da | | Load_Top At_Offset_2
00c6 00e0 | | Load_Encached Standard_Cache
00c7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c8 01cc | | Execute Vector,Catenate
00c9 0092 016a | j| Action Push_String_Extended,0x16a ; " warnings]"
00cb 01cc | | Execute Vector,Catenate
00cc 602b |`+ | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00008821}
00cd e001 | | Load 0x0,0x1
00ce 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
00cf 7822 |x" | Jump 0xf2
00d0 e5fc | | Load 0x2,-0x4
00d1 0092 0163 | c| Action Push_String_Extended,0x163 ; "["
00d3 e5fd | | Load 0x2,-0x3
00d4 01cc | | Execute Vector,Catenate
00d5 e5fe | | Load 0x2,-0x2
00d6 01cc | | Execute Vector,Catenate
00d7 0092 0167 | g| Action Push_String_Extended,0x167 ; " terminated after"
00d9 01cc | | Execute Vector,Catenate
00da 00db | | Load_Top At_Offset_3
00db 00db | | Load_Top At_Offset_3
00dc 0272 | r | Execute Discrete,Minus
00dd 00d8 | | Load_Top At_Offset_0
00de 00e2 | | Load_Encached Integer_Cache
00df 0260 | ` | Execute Discrete,In_Type
00e0 7001 |p | Jump_Nonzero 0xe2
00e1 0801 | | Execute_Immediate Raise,0x1
00e2 00e0 | | Load_Encached Standard_Cache
00e3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e4 01cc | | Execute Vector,Catenate
00e5 0092 016b | k| Action Push_String_Extended,0x16b ; " error(s) and"
00e7 01cc | | Execute Vector,Catenate
00e8 00da | | Load_Top At_Offset_2
00e9 00e0 | | Load_Encached Standard_Cache
00ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00eb 01cc | | Execute Vector,Catenate
00ec 0092 016c | l| Action Push_String_Extended,0x16c ; " warning(s)]"
00ee 01cc | | Execute Vector,Catenate
00ef 6008 |` | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00008821}
00f0 e001 | | Load 0x0,0x1
00f1 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
00f2 4800 |H | Short_Literal 0x0
00f3 e001 | | Load 0x0,0x1
00f4 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
00f5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00f6 0000 0000 | | .XXX[0x2]
00f8 0000 0000 | | .LITERAL {0x00000000, 0x00008821}
00fc 0000 0000 | | .BLANK 0000[0x4]
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 e5fc | | Load 0x2,-0x4
0104 e002 | | Load 0x0,0x2
0105 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0106 6009 |` | Indirect_Literal Discrete,0x110,{0x00000000, 0x0000882c}
0107 e001 | | Load 0x0,0x1
0108 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0109 e5fc | | Load 0x2,-0x4
010a e5fd | | Load 0x2,-0x3
010b e5fe | | Load 0x2,-0x2
010c e5ff | | Load 0x2,-0x1
010d 8214 | | Call 0x1,0x14
010e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
010f 0000 | | .XXX[0x1]
0110 0000 0000 | | .LITERAL {0x00000000, 0x0000882c}
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e5fc | | Load 0x2,-0x4
011c 4801 |H | Short_Literal 0x1
011d 4802 |H | Short_Literal 0x2
011e e002 | | Load 0x0,0x2
011f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0120 0334 | 4 | Declare_Variable Array,With_Constraint
0121 4800 |H | Short_Literal 0x0
0122 4801 |H | Short_Literal 0x1
0123 e003 | | Load 0x0,0x3
0124 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0125 e002 | | Load 0x0,0x2
0126 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0127 e002 | | Load 0x0,0x2
0128 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0129 0119 | | Execute Any,Check_In_Formal_Type
012a 4801 |H | Short_Literal 0x1
012b 00da | | Load_Top At_Offset_2
012c 01d6 | | Execute Vector,Field_Write
012d 4800 |H | Short_Literal 0x0
012e 4801 |H | Short_Literal 0x1
012f e003 | | Load 0x0,0x3
0130 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0131 e002 | | Load 0x0,0x2
0132 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0133 e002 | | Load 0x0,0x2
0134 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0135 0119 | | Execute Any,Check_In_Formal_Type
0136 4802 |H | Short_Literal 0x2
0137 00da | | Load_Top At_Offset_2
0138 01d6 | | Execute Vector,Field_Write
0139 600a |` | Indirect_Literal Discrete,0x144,{0x00000000, 0x00008849}
013a e001 | | Load 0x0,0x1
013b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
013c e5fc | | Load 0x2,-0x4
013d e5fd | | Load 0x2,-0x3
013e e5fe | | Load 0x2,-0x2
013f e5ff | | Load 0x2,-0x1
0140 8214 | | Call 0x1,0x14
0141 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0142 0000 0000 | | .XXX[0x2]
0144 0000 0000 | | .LITERAL {0x00000000, 0x00008849}
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 4822 |H" | Short_Literal 0x22
014c 0092 016d | m| Action Push_String_Extended,0x16d ; " => \x22"
014e e5ff | | Load 0x2,-0x1
014f 01cc | | Execute Vector,Catenate
0150 01cb | | Execute Vector,Append
0151 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0152 0000 0000 | | .BLANK 0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 0092 016d | m| Action Push_String_Extended,0x16d ; " => \x22"
015d 00db | | Load_Top At_Offset_3
015e 01cc | | Execute Vector,Catenate
015f 0092 016e | n| Action Push_String_Extended,0x16e ; "\x22, "
0161 01cc | | Execute Vector,Catenate
0162 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0163 ; --------------------------------------------------------------------------------------
0163 ; STRING TABLE
0163 ; --------------------------------------------------------------------------------------
0163 001a | | .STRTAB 0x001a->0x0170 ; "["
0164 0019 | | .STRTAB 0x0019->0x0170 ; " completed successfully]"
0165 002f | / | .STRTAB 0x002f->0x017c ; " completed with 1 warning]"
0166 0047 | G | .STRTAB 0x0047->0x0189 ; " terminated after 1 error]"
0167 005f | _ | .STRTAB 0x005f->0x0196 ; " terminated after"
0168 006e | n | .STRTAB 0x006e->0x019f ; " errors]"
0169 0074 | t | .STRTAB 0x0074->0x01a3 ; " completed with"
016a 0081 | | .STRTAB 0x0081->0x01aa ; " warnings]"
016b 0089 | | .STRTAB 0x0089->0x01af ; " error(s) and"
016c 0094 | | .STRTAB 0x0094->0x01b6 ; " warning(s)]"
016d 009e | | .STRTAB 0x009e->0x01bc ; " => \x22"
016e 00a1 | | .STRTAB 0x00a1->0x01be ; "\x22, "
016f 00a2 | | .STREND 0x00a2->0x01c0
0170 5b20 636f |[ co| .STRTAB_STRINGS
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug Table
01c0 ; --------------------------------------------------------------------------------------
01c0 0004 000c | | .DEBUG4 0x0004,0x000c,0x168e,0x0000,0x0001,0x0000
01c6 0000 8041 | A| .XXX[0x3a]
01c8 c9c1 0000 | |
01ca 000b 0fb8 | |
01cc 6d0b 0000 |m |
01ce 0080 0fb8 | |
01d0 6d0b 0000 |m |
01d2 0080 4ced | L |
01d4 0900 0000 | |
01d6 0b0f b871 | q|
01d8 0b00 0000 | |
01da 800f b871 | q|
01dc 0b00 0000 | |
01de 804d 7b59 | M{Y|
01e0 0000 000b | |
01e2 0faf e90b | |
01e4 0000 0080 | |
01e6 0fbd 350b | 5 |
01e8 0000 0080 | |
01ea 4192 6900 |A i |
01ec 0000 0b0f | |
01ee b881 0b00 | |
01f0 0000 800f | |
01f2 b881 0b00 | |
01f4 0000 804a | J|
01f6 9aa1 0000 | |
01f8 000b 0fb8 | |
01fa 850b 0000 | |
01fc 0080 0fb8 | |
01fe 850b 0000 | |