|
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_0bf8df
└─⟦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 0148 | H | .CONST 0x0148 ; 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 003e | > | .CONST 0x003e ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000b | | .CONST 0x000b ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
001d 02c7 | | Declare_Variable Any
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e003 | | Load 0x0,0x3
0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0022 02c7 | | Declare_Variable Any
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 e003 | | Load 0x0,0x3
0026 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0027 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0028 e003 | | Load 0x0,0x3
0029 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002a 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
002c 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
002e 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0030 a004 | | Store_Unchecked 0x0,0x4
0031 00c6 | | Action Check_Subprogram_Elaborated
0032 4808 |H | Short_Literal 0x8
0033 4802 |H | Short_Literal 0x2
0034 0099 | | Action Reference_Dynamic
0035 0093 0000 | | push_full_address 0x0
0037 6070 |`p | Indirect_Literal Discrete,0xa8,{0x80000000, 0x00010000}
0038 0273 | s | Execute Discrete,Plus
0039 e005 | | Load 0x0,0x5
003a 0273 | s | Execute Discrete,Plus
003b e006 | | Load 0x0,0x6
003c 0273 | s | Execute Discrete,Plus
003d 480b |H | Short_Literal 0xb
003e BODY_0018:
003e 00be | | Action Activate_Tasks
003f e003 | | Load 0x0,0x3
0040 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0041 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0042 e403 | | Load 0x2,0x3
0043 0120 | | Execute Any,Is_Value
0044 6803 |h | Jump_Zero 0x48
0045 e003 | | Load 0x0,0x3
0046 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0047 7801 |x | Jump 0x49
0048 e403 | | Load 0x2,0x3
0049 605a |`Z | Indirect_Literal Discrete,0xa4,{0x00000000, 0x00004000}
004a e007 | | Load 0x0,0x7
004b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004c e008 | | Load 0x0,0x8
004d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004e e003 | | Load 0x0,0x3
004f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0050 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0051 e5fe | | Load 0x2,-0x2
0052 e003 | | Load 0x0,0x3
0053 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0054 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0055 c403 | | Store 0x2,0x3
0056 c404 | | Store 0x2,0x4
0057 e404 | | Load 0x2,0x4
0058 6817 |h | Jump_Zero 0x70
0059 e009 | | Load 0x0,0x9
005a 180e | | Execute Package,Field_Execute,Field_Number 0xe
005b 4807 |H | Short_Literal 0x7
005c 0092 012d | -| Action Push_String_Extended,0x12d ; "Could not resolve "
005e e5fe | | Load 0x2,-0x2
005f 01cc | | Execute Vector,Catenate
0060 0092 012e | .| Action Push_String_Extended,0x12e ; " ("
0062 01cc | | Execute Vector,Catenate
0063 e404 | | Load 0x2,0x4
0064 e003 | | Load 0x0,0x3
0065 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0066 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0067 011c | | Execute Any,Convert_Unchecked
0068 1c01 | | Execute_Immediate Run_Utility,0x1
0069 01cc | | Execute Vector,Catenate
006a 0092 012f | /| Action Push_String_Extended,0x12f ; ")"
006c 01cc | | Execute Vector,Catenate
006d e00a | | Load 0x0,0xa
006e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0070 e003 | | Load 0x0,0x3
0071 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0072 e402 | | Load 0x2,0x2
0073 4800 |H | Short_Literal 0x0
0074 4801 |H | Short_Literal 0x1
0075 e007 | | Load 0x0,0x7
0076 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0077 e403 | | Load 0x2,0x3
0078 e002 | | Load 0x0,0x2
0079 181b | | Execute Package,Field_Execute,Field_Number 0x1b
007a c402 | | Store 0x2,0x2
007b c405 | | Store 0x2,0x5
007c e405 | | Load 0x2,0x5
007d 6816 |h | Jump_Zero 0x94
007e e009 | | Load 0x0,0x9
007f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0080 4807 |H | Short_Literal 0x7
0081 0092 0130 | 0| Action Push_String_Extended,0x130 ; "Could not open "
0083 e5fe | | Load 0x2,-0x2
0084 01cc | | Execute Vector,Catenate
0085 0092 012e | .| Action Push_String_Extended,0x12e ; " ("
0087 01cc | | Execute Vector,Catenate
0088 e405 | | Load 0x2,0x5
0089 e003 | | Load 0x0,0x3
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b 011c | | Execute Any,Convert_Unchecked
008c 1c01 | | Execute_Immediate Run_Utility,0x1
008d 01cc | | Execute Vector,Catenate
008e 0092 012f | /| Action Push_String_Extended,0x12f ; ")"
0090 01cc | | Execute Vector,Catenate
0091 e00a | | Load 0x0,0xa
0092 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0093 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0094 e5ff | | Load 0x2,-0x1
0095 4809 |H | Short_Literal 0x9
0096 4802 |H | Short_Literal 0x2
0097 0099 | | Action Reference_Dynamic
0098 480a |H | Short_Literal 0xa
0099 4802 |H | Short_Literal 0x2
009a 0099 | | Action Reference_Dynamic
009b 8004 | | Call 0x0,0x4
009c e003 | | Load 0x0,0x3
009d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009e e402 | | Load 0x2,0x2
009f e002 | | Load 0x0,0x2
00a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a1 c402 | | Store 0x2,0x2
00a2 c405 | | Store 0x2,0x5
00a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00a4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00a8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 01db | | Execute Vector,Length
00b5 7003 |p | Jump_Nonzero 0xb9
00b6 0092 0131 | 1| Action Push_String_Extended,0x131 ; "<>"
00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b9 00da | | Load_Top At_Offset_2
00ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bb 0000 0000 | | .BLANK 0000[0x5]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00d5 | | .CONST 0x00d5 ; Address of begin
00c1 00e4 | | .CONST 0x00e4 ; Address of exception handler
00c2 0006 | | .CONST 0x0006 ; Number of locals
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2
00c4 e003 | | Load 0x0,0x3
00c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00c7 e7fe | | Load 0x3,-0x2
00c8 e003 | | Load 0x0,0x3
00c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ca 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
00cb 8406 | | Call 0x2,0x6
00cc e7fd | | Load 0x3,-0x3
00cd e003 | | Load 0x0,0x3
00ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00cf 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
00d0 8406 | | Call 0x2,0x6
00d1 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
00d3 029f 011b | | Declare_Subprogram INIT_0118,For_Call
00d5 BODY_00c0:
00d5 e402 | | Load 0x2,0x2
00d6 e7ff | | Load 0x3,-0x1
00d7 e002 | | Load 0x0,0x2
00d8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00d9 6803 |h | Jump_Zero 0xdd
00da 8605 | | Call 0x3,0x5
00db 8606 | | Call 0x3,0x6
00dc 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00dd e402 | | Load 0x2,0x2
00de e7fe | | Load 0x3,-0x2
00df e7fd | | Load 0x3,-0x3
00e0 e7ff | | Load 0x3,-0x1
00e1 e002 | | Load 0x0,0x2
00e2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00e3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00e4 TRAP_00c0:
00e4 0007 | | Action Break_Optional
00e5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb e7fc | | Load 0x3,-0x4
00ec e00b | | Load 0x0,0xb
00ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ee 0119 | | Execute Any,Check_In_Formal_Type
00ef e7fd | | Load 0x3,-0x3
00f0 e003 | | Load 0x0,0x3
00f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f2 0119 | | Execute Any,Check_In_Formal_Type
00f3 e7fe | | Load 0x3,-0x2
00f4 e003 | | Load 0x0,0x3
00f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f6 0119 | | Execute Any,Check_In_Formal_Type
00f7 e7ff | | Load 0x3,-0x1
00f8 e003 | | Load 0x0,0x3
00f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00fa 0119 | | Execute Any,Check_In_Formal_Type
00fb 8407 | | Call 0x2,0x7
00fc 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0108 | | .CONST 0x0108 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e402 | | Load 0x2,0x2
0104 e7fe | | Load 0x3,-0x2
0105 e002 | | Load 0x0,0x2
0106 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0107 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0108 TRAP_0100:
0108 0007 | | Action Break_Optional
0109 e402 | | Load 0x2,0x2
010a e7ff | | Load 0x3,-0x1
010b e002 | | Load 0x0,0x2
010c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
010d e402 | | Load 0x2,0x2
010e e7fe | | Load 0x3,-0x2
010f e7fd | | Load 0x3,-0x3
0110 e7ff | | Load 0x3,-0x1
0111 e002 | | Load 0x0,0x2
0112 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0113 00cc | | Action Pop_Block
0114 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0120 | | .CONST 0x0120 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e402 | | Load 0x2,0x2
011c e7fd | | Load 0x3,-0x3
011d e002 | | Load 0x0,0x2
011e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
011f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0120 TRAP_0118:
0120 0007 | | Action Break_Optional
0121 e402 | | Load 0x2,0x2
0122 e7ff | | Load 0x3,-0x1
0123 e002 | | Load 0x0,0x2
0124 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0125 e402 | | Load 0x2,0x2
0126 e7fe | | Load 0x3,-0x2
0127 e7fd | | Load 0x3,-0x3
0128 e7ff | | Load 0x3,-0x1
0129 e002 | | Load 0x0,0x2
012a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
012b 00cc | | Action Pop_Block
012c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
012d ; --------------------------------------------------------------------------------------
012d ; STRING TABLE
012d ; --------------------------------------------------------------------------------------
012d 000c | | .STRTAB 0x000c->0x0133 ; "Could not resolve "
012e 001c | | .STRTAB 0x001c->0x013c ; " ("
012f 001c | | .STRTAB 0x001c->0x013d ; ")"
0130 001b | | .STRTAB 0x001b->0x013d ; "Could not open "
0131 0028 | ( | .STRTAB 0x0028->0x0145 ; "<>"
0132 0028 | ( | .STREND 0x0028->0x0146
0133 436f 756c |Coul| .STRTAB_STRINGS
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b87,0x0000,0x0001,0x0000
014e 1915 04e4 | | .XXX[0xb2]
0150 c029 4ccc | )L |
0152 c4c5 14c0 | |
0154 c0c1 04d8 | |
0156 ccc0 c910 | |
0158 dd0d 14c0 | |
015a c0c1 0508 | |
015c e4e1 1919 | |
015e 18d8 ccc0 | |
0160 c910 c0c0 | |
0162 c0c8 c4e0 | |
0164 294c ccc4 |)L |
0166 c514 c0c0 | |
0168 c104 d8cd | |
016a 0cd0 e10c | |
016c c0c9 10d0 | |
016e c119 1919 | |
0170 04d0 e0d9 | |
0172 1519 1914 | |
0174 e0d0 e0dc | |
0176 e0d8 c429 | )|
0178 4ccc c4c5 |L |
017a 14c0 c0c1 | |
017c 04d8 d0e0 | |
017e c0c0 c4cc | |
0180 ccc0 c910 | |
0182 c0c0 c0c8 | |
0184 d0e1 0cc0 | |
0186 c918 c0c0 | |
0188 c918 cce4 | |
018a c118 294c | )L|
018c ccc4 c514 | |
018e c0c0 c104 | |
0190 d8d4 d114 | |
0192 c0c0 c4e5 | |
0194 14c0 e0d1 | |
0196 1508 e514 | |
0198 c0c0 c4d8 | |
019a dcd4 d8d1 | |
019c 1915 1905 | |
019e 0429 4ccc | )L |
01a0 c4c5 14c0 | |
01a2 c0c1 04d8 | |
01a4 d8c0 c0c0 | |
01a6 c4c0 d104 | |
01a8 e0c0 d90c | |
01aa ccc0 ccc0 | |
01ac c910 c0c0 | |
01ae c0c8 d0e1 | |
01b0 0cc0 c908 | |
01b2 294c ccc4 |)L |
01b4 c514 c0c0 | |
01b6 c104 d8d9 | |
01b8 0cc9 18c0 | |
01ba c0c9 18cc | |
01bc e514 c0c0 | |
01be c4e5 14c0 | |
01c0 e0d1 1508 | |
01c2 e514 c0c0 | |
01c4 c518 d829 | )|
01c6 4ccc c4c5 |L |
01c8 14c0 c0c1 | |
01ca 04d8 dce0 | |
01cc d8dc c8d8 | |
01ce d4c0 d118 | |
01d0 ccc0 c910 | |
01d2 c0c0 c0c8 | |
01d4 d0e1 0cc0 | |
01d6 c918 c0c0 | |
01d8 c914 294c | )L|
01da ccc4 c514 | |
01dc c0c0 c104 | |
01de d8e0 d0d0 | |
01e0 e0dc e514 | |
01e2 c0c0 c4e5 | |
01e4 1515 14d1 | |
01e6 1508 e514 | |
01e8 c0c0 c4d9 | |
01ea 18e4 d10d | |
01ec 0829 4ccc | )L |
01ee c4c5 14c0 | |
01f0 c0c1 04d8 | |
01f2 e4c0 d4c0 | |
01f4 d118 dcc0 | |
01f6 c0c0 d8c0 | |
01f8 d4d0 d0e0 | |
01fa d915 1919 | |
01fc 14e0 c918 | |
01fe cce4 c4c0 | |