|
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 8080 8080 | | .XXX[0x3]
0150 8080 | |
0151 80c4 80ac | | .XXX[0x74]
0153 8164 80f4 | d |
0155 8080 c8a8 | |
0157 a934 8080 | 4 |
0159 a880 80a1 | |
015b 18c4 8080 | |
015d ac80 8118 | |
015f c8a4 b028 | (|
0161 b4b4 81dd | |
0163 a195 c994 | |
0165 8080 c480 | |
0167 f0f4 8118 | |
0169 c4ad 18c8 | |
016b 80f0 80c8 | |
016d b081 3481 | 4 |
016f a185 cc81 | |
0171 d1a1 9481 | |
0173 d985 b1d5 | |
0175 9481 bd98 | |
0177 8185 b881 | |
0179 a5b9 d195 | |
017b 9d95 c8b0 | |
017d 28b4 b481 |( |
017f 18c4 80f4 | |
0181 80c4 80ac | |
0183 81a8 bcd8 | |
0185 d0b0 81a8 | |
0187 81c9 85b9 | |
0189 9d95 cc81 | |
018b 99c9 bdb4 | |
018d 80c0 81d1 | |
018f bc80 d8d0 | |
0191 b081 85b9 | |
0193 9081 f118 | |
0195 c9f0 80f0 | |
0197 f480 c4bc | |
0199 c4c8 e0b8 | |
019b 2828 b4b4 |(( |
019d 814d 958d | M |
019f bdb9 90b0 | |
01a1 81dd 9481 | |
01a3 85c1 c1c9 | |
01a5 bde1 a5b5 | |
01a7 85d1 9481 | |
01a9 b1bd 9ca0 | |
01ab 80c4 80ac | |
01ad 8118 c8bd | |
01af 18c4 80a4 | |
01b1 8189 e481 | |
01b3 85b8 81bd | |
01b5 9190 81c1 | |
01b7 bdb1 e5b9 | |
01b9 bdb5 a585 | |
01bb b028 b4b4 | ( |
01bd 81a5 b881 | |
01bf 54b0 81dd |T |
01c1 a195 c994 | |
01c3 28b4 b480 |( |
01c5 8080 8080 | | .BLANK 8080[0x6]
01cb 8154 8080 | T | .XXX[0x35]
01cd f480 80c8 | |
01cf 8118 c880 | |
01d1 bc80 a0c8 | |
01d3 8118 c880 | |
01d5 ac81 18c4 | |
01d7 a4b8 28b4 | ( |
01d9 b481 39bd | 9 |
01db d194 81d1 | |
01dd a185 d028 | (|
01df b4b4 8080 | |
01e1 8080 81b1 | |
01e3 bd9c a080 | |
01e5 c480 ac81 | |
01e7 18c8 bd18 | |
01e9 c480 a480 | |
01eb f481 b1bd | |
01ed 9ca0 80c4 | |
01ef 80ac 8154 | T|
01f1 bcc8 80a4 | |
01f3 80b4 81b1 | |
01f5 bd9c a080 | |
01f7 c480 b481 | |
01f9 54bc c880 |T |
01fb a4b8 28b4 | ( |
01fd b481 51a1 | Q |
01ff 9481 | |