|
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_043cfb
└─⟦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 0120 | | .CONST 0x0120 ; 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 000f | | .CONST 0x000f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0003 | | .CONST 0x0003 ; Number of locals
000b INIT_0008:
000b 029f 001b | | Declare_Subprogram INIT_0018,For_Call
000d 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call
000f BODY_0008:
000f e5fd | | Load 0x2,-0x3
0010 8403 | | Call 0x2,0x3
0011 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 001e | | .CONST 0x001e ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0002 | | .CONST 0x0002 ; Number of locals
001b INIT_0018:
001b 00da | | Load_Top At_Offset_2
001c 00eb | | Load_Encached Diana_Cache
001d 18ec | | Execute Package,Field_Execute,Field_Number 0xec
001e BODY_0018:
001e 00d8 | | Load_Top At_Offset_0
001f 00eb | | Load_Encached Diana_Cache
0020 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0021 7006 |p | Jump_Nonzero 0x28
0022 00d8 | | Load_Top At_Offset_0
0023 00eb | | Load_Encached Diana_Cache
0024 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0025 e016 | | Load 0x0,0x16
0026 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0027 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0028 4800 |H | Short_Literal 0x0
0029 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
002a 0000 0000 | | .BLANK 0000[0x6]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 003b | ; | .CONST 0x003b ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0005 | | .CONST 0x0005 ; Number of locals
0033 INIT_0030:
0033 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0035 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0037 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0039 029f 010b | | Declare_Subprogram INIT_0108,For_Call
003b BODY_0030:
003b e7ff | | Load 0x3,-0x1
003c 00eb | | Load_Encached Diana_Cache
003d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
003e 00d8 | | Load_Top At_Offset_0
003f 0d37 | 7 | Execute_Immediate Less,0x37
0040 7027 |p' | Jump_Nonzero 0x68
0041 00d8 | | Load_Top At_Offset_0
0042 0c41 | A | Execute_Immediate Greater_Equal,0x41
0043 700c |p | Jump_Nonzero 0x50
0044 0ac9 | | Execute_Immediate Plus,-0x37
0045 4609 |F | Jump_Case 0xa
0046 783c |x< | Jump 0x83 ; case 0x0
0047 783b |x; | Jump 0x83 ; case 0x1
0048 783a |x: | Jump 0x83 ; case 0x2
0049 7839 |x9 | Jump 0x83 ; case 0x3
004a 783a |x: | Jump 0x85 ; case 0x4
004b 7842 |xB | Jump 0x8e ; case 0x5
004c 7822 |x" | Jump 0x6f ; case 0x6
004d 781f |x | Jump 0x6d ; case 0x7
004e 782b |x+ | Jump 0x7a ; case 0x8
004f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9
0050 00d8 | | Load_Top At_Offset_0
0051 0d73 | s | Execute_Immediate Less,0x73
0052 7010 |p | Jump_Nonzero 0x63
0053 00d8 | | Load_Top At_Offset_0
0054 0c7d | } | Execute_Immediate Greater_Equal,0x7d
0055 7008 |p | Jump_Nonzero 0x5e
0056 00d8 | | Load_Top At_Offset_0
0057 4874 |Ht | Short_Literal 0x74
0058 487b |H{ | Short_Literal 0x7b
0059 0262 | b | Execute Discrete,In_Range
005a 7010 |p | Jump_Nonzero 0x6b
005b 0f7c | | | Execute_Immediate Equal,0x7c
005c 7036 |p6 | Jump_Nonzero 0x93
005d 7841 |xA | Jump 0x9f
005e 0b8c | | Execute_Immediate Case_Compare,0x8c
005f 7044 |pD | Jump_Nonzero 0xa4
0060 0fa8 | | Execute_Immediate Equal,-0x58
0061 7045 |pE | Jump_Nonzero 0xa7
0062 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0063 4842 |HB | Short_Literal 0x42
0064 4872 |Hr | Short_Literal 0x72
0065 0262 | b | Execute Discrete,In_Range
0066 7044 |pD | Jump_Nonzero 0xab
0067 7809 |x | Jump 0x71
0068 0f02 | | Execute_Immediate Equal,0x2
0069 7019 |p | Jump_Nonzero 0x83
006a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
006b 00d1 | | Pop_Control Pop_Count_1
006c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
006d 8602 | | Call 0x3,0x2
006e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
006f 8603 | | Call 0x3,0x3
0070 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0071 e7ff | | Load 0x3,-0x1
0072 00eb | | Load_Encached Diana_Cache
0073 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0074 85fe | | Call 0x2,-0x2
0075 e7ff | | Load 0x3,-0x1
0076 00eb | | Load_Encached Diana_Cache
0077 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
0078 8403 | | Call 0x2,0x3
0079 4502 |E | Exit_Suprogram New_Top_Offset 0x2
007a e7ff | | Load 0x3,-0x1
007b 00eb | | Load_Encached Diana_Cache
007c 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
007d 85fe | | Call 0x2,-0x2
007e e7ff | | Load 0x3,-0x1
007f 00eb | | Load_Encached Diana_Cache
0080 18e6 | | Execute Package,Field_Execute,Field_Number 0xe6
0081 8403 | | Call 0x2,0x3
0082 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0083 8604 | | Call 0x3,0x4
0084 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0085 e7ff | | Load 0x3,-0x1
0086 00eb | | Load_Encached Diana_Cache
0087 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0088 85fe | | Call 0x2,-0x2
0089 e7ff | | Load 0x3,-0x1
008a 00eb | | Load_Encached Diana_Cache
008b 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
008c 8403 | | Call 0x2,0x3
008d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
008e e7ff | | Load 0x3,-0x1
008f 00eb | | Load_Encached Diana_Cache
0090 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0091 85fe | | Call 0x2,-0x2
0092 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0093 e7ff | | Load 0x3,-0x1
0094 00eb | | Load_Encached Diana_Cache
0095 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
0096 8403 | | Call 0x2,0x3
0097 e7ff | | Load 0x3,-0x1
0098 8402 | | Call 0x2,0x2
0099 7004 |p | Jump_Nonzero 0x9e
009a e7ff | | Load 0x3,-0x1
009b 00eb | | Load_Encached Diana_Cache
009c 18be | | Execute Package,Field_Execute,Field_Number 0xbe
009d 8403 | | Call 0x2,0x3
009e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009f e7ff | | Load 0x3,-0x1
00a0 00eb | | Load_Encached Diana_Cache
00a1 18bc | | Execute Package,Field_Execute,Field_Number 0xbc
00a2 8403 | | Call 0x2,0x3
00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a4 00d1 | | Pop_Control Pop_Count_1
00a5 8605 | | Call 0x3,0x5
00a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a7 e7ff | | Load 0x3,-0x1
00a8 00eb | | Load_Encached Diana_Cache
00a9 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
00aa 8403 | | Call 0x2,0x3
00ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b9 | | .CONST 0x00b9 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0003 | | .CONST 0x0003 ; Number of locals
00b3 INIT_00b0:
00b3 e7ff | | Load 0x3,-0x1
00b4 00eb | | Load_Encached Diana_Cache
00b5 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
00b6 e7ff | | Load 0x3,-0x1
00b7 00eb | | Load_Encached Diana_Cache
00b8 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
00b9 BODY_00b0:
00b9 00d9 | | Load_Top At_Offset_1
00ba 85fe | | Call 0x2,-0x2
00bb 00d8 | | Load_Top At_Offset_0
00bc 8403 | | Call 0x2,0x3
00bd 00d8 | | Load_Top At_Offset_0
00be 00eb | | Load_Encached Diana_Cache
00bf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c0 0f36 | 6 | Execute_Immediate Equal,0x36
00c1 680a |h | Jump_Zero 0xcc
00c2 00d8 | | Load_Top At_Offset_0
00c3 490a |I | Short_Literal 0x10a
00c4 00eb | | Load_Encached Diana_Cache
00c5 0096 | | Execute Package,Entry
00c6 8403 | | Call 0x2,0x3
00c7 00d9 | | Load_Top At_Offset_1
00c8 4904 |I | Short_Literal 0x104
00c9 00eb | | Load_Encached Diana_Cache
00ca 0096 | | Execute Package,Entry
00cb 8403 | | Call 0x2,0x3
00cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d9 | | .CONST 0x00d9 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0003 | | .CONST 0x0003 ; Number of locals
00d3 INIT_00d0:
00d3 e7ff | | Load 0x3,-0x1
00d4 00eb | | Load_Encached Diana_Cache
00d5 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
00d6 e7ff | | Load 0x3,-0x1
00d7 00eb | | Load_Encached Diana_Cache
00d8 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4
00d9 BODY_00d0:
00d9 e7ff | | Load 0x3,-0x1
00da 00eb | | Load_Encached Diana_Cache
00db 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
00dc 85fe | | Call 0x2,-0x2
00dd e7ff | | Load 0x3,-0x1
00de 00eb | | Load_Encached Diana_Cache
00df 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4
00e0 8403 | | Call 0x2,0x3
00e1 00d8 | | Load_Top At_Offset_0
00e2 00eb | | Load_Encached Diana_Cache
00e3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00e4 0f36 | 6 | Execute_Immediate Equal,0x36
00e5 6805 |h | Jump_Zero 0xeb
00e6 00d8 | | Load_Top At_Offset_0
00e7 490a |I | Short_Literal 0x10a
00e8 00eb | | Load_Encached Diana_Cache
00e9 0096 | | Execute Package,Entry
00ea 8403 | | Call 0x2,0x3
00eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ec 0000 0000 | | .BLANK 0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f8 | | .CONST 0x00f8 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 e7ff | | Load 0x3,-0x1
00f4 00eb | | Load_Encached Diana_Cache
00f5 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
00f6 00eb | | Load_Encached Diana_Cache
00f7 1889 | | Execute Package,Field_Execute,Field_Number 0x89
00f8 BODY_00f0:
00f8 00cf | | Action Mark_Auxiliary
00f9 7809 |x | Jump 0x103
00fa 00d9 | | Load_Top At_Offset_1
00fb 00eb | | Load_Encached Diana_Cache
00fc 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
00fd 85fe | | Call 0x2,-0x2
00fe 00d9 | | Load_Top At_Offset_1
00ff 00eb | | Load_Encached Diana_Cache
0100 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0101 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0102 00c9 | | Action Pop_Auxiliary_Loop
0103 00d9 | | Load_Top At_Offset_1
0104 00eb | | Load_Encached Diana_Cache
0105 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
0106 6ff3 |o | Jump_Zero 0xfa
0107 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010e | | .CONST 0x010e ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b e7ff | | Load 0x3,-0x1
010c 00eb | | Load_Encached Diana_Cache
010d 1889 | | Execute Package,Field_Execute,Field_Number 0x89
010e BODY_0108:
010e 00cf | | Action Mark_Auxiliary
010f 7809 |x | Jump 0x119
0110 00d9 | | Load_Top At_Offset_1
0111 00eb | | Load_Encached Diana_Cache
0112 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0113 8403 | | Call 0x2,0x3
0114 00d9 | | Load_Top At_Offset_1
0115 00eb | | Load_Encached Diana_Cache
0116 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0117 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0118 00c9 | | Action Pop_Auxiliary_Loop
0119 00d9 | | Load_Top At_Offset_1
011a 00eb | | Load_Encached Diana_Cache
011b 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
011c 6ff3 |o | Jump_Zero 0x110
011d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; Debug Table
0120 ; --------------------------------------------------------------------------------------
0120 0004 000f | | .DEBUG4 0x0004,0x000f,0x4b39,0x0000,0x0001,0x0000
0126 b94d 7cc4 | M| | .XXX[0xda]
0128 8141 bdc9 | A |
012a d080 c8d0 | |
012c c828 c4cc | ( |
012e e8d4 e4e8 | |
0130 ccd8 80ac | |
0132 acac 80e0 | |
0134 dcbc c0dc | |
0136 bcc0 d881 | |
0138 4db9 85c1 |M |
013a cda1 bdd1 | |
013c 7d4d d185 |}M |
013e c9d1 9590 | |
0140 8080 c8cc | |
0142 e028 c4cc | ( |
0144 e8d4 e4e8 | |
0146 d4dc 80ac | |
0148 acac 814d | M|
014a b985 c1cd | |
014c a1bd d17d | }|
014e 1185 95b5 | |
0150 bdb8 814d | M|
0152 b985 c1cd | |
0154 a1bd d17d | }|
0156 0dbd b5c1 | |
0158 b195 d195 | |
015a 9028 c4d0 | ( |
015c e8c0 dce8 | |
015e d4cc 80ac | |
0160 acac 80e0 | |
0162 dcbc c0dc | |
0164 bcc0 d881 | |
0166 4db9 85c1 |M |
0168 cda1 bdd1 | |
016a 7d4d d185 |}M |
016c c9d1 9590 | |
016e 8080 c8cc | |
0170 e428 c4d0 | ( |
0172 e8c0 e0e8 | |
0174 c4cc 80ac | |
0176 acac 814d | M|
0178 b985 c1cd | |
017a a1bd d17d | }|
017c 1185 95b5 | |
017e bdb8 814d | M|
0180 b985 c1cd | |
0182 a1bd d17d | }|
0184 0dbd b5c1 | |
0186 b195 d195 | |
0188 9028 c4d0 | ( |
018a e8cc dce8 | |
018c d4cc 80ac | |
018e acac 80e0 | |
0190 dcbc c0dc | |
0192 bcc0 d881 | |
0194 4db9 85c1 |M |
0196 cda1 bdd1 | |
0198 7d4d d185 |}M |
019a c9d1 9590 | |
019c 8080 c8d0 | |
019e c028 c4d0 | ( |
01a0 e8cc dce8 | |
01a2 d4dc 80ac | |
01a4 acac 814d | M|
01a6 b985 c1cd | |
01a8 a1bd d17d | }|
01aa 1185 95b5 | |
01ac bdb8 814d | M|
01ae b985 c1cd | |
01b0 a1bd d17d | }|
01b2 0dbd b5c1 | |
01b4 b195 d195 | |
01b6 9028 c4d4 | ( |
01b8 e8c0 dce8 | |
01ba d4cc 80ac | |
01bc acac 80e0 | |
01be dcbc c0dc | |
01c0 bcc0 d881 | |
01c2 4db9 85c1 |M |
01c4 cda1 bdd1 | |
01c6 7d4d d185 |}M |
01c8 c9d1 9590 | |
01ca 8080 c8d0 | |
01cc c428 c4d4 | ( |
01ce e8c0 e0e8 | |
01d0 c0c4 80ac | |
01d2 acac 814d | M|
01d4 b985 c1cd | |
01d6 a1bd d17d | }|
01d8 1185 95b5 | |
01da bdb8 814d | M|
01dc b985 c1cd | |
01de a1bd d17d | }|
01e0 0dbd b5c1 | |
01e2 b195 d195 | |
01e4 9028 c4d4 | ( |
01e6 e8c4 c4e8 | |
01e8 c4e4 80ac | |
01ea acac 8131 | 1|
01ec bd9d a5b9 | |
01ee 7d35 85b9 |}5 |
01f0 859d 95c8 | |
01f2 8131 bd9d | 1 |
01f4 a5b8 8129 | )|
01f6 352c b94d |5, M|
01f8 7cc4 8141 || A|
01fa bdc9 d080 | |
01fc c8d0 d428 | (|
01fe c4d4 e8c4 | |