|
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_03bcfe
└─⟦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 0118 | | .CONST 0x0118 ; 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 002b | +| Declare_Subprogram INIT_0028,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 6806 |h | Jump_Zero 0x26
0020 00d8 | | Load_Top At_Offset_0
0021 00eb | | Load_Encached Diana_Cache
0022 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0023 e014 | | Load 0x0,0x14
0024 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0025 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0026 4800 |H | Short_Literal 0x0
0027 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0033 | 3 | .CONST 0x0033 ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0005 | | .CONST 0x0005 ; Number of locals
002b INIT_0028:
002b 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
002d 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
002f 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0031 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0033 BODY_0028:
0033 e7ff | | Load 0x3,-0x1
0034 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0035 00d8 | | Load_Top At_Offset_0
0036 0d37 | 7 | Execute_Immediate Less,0x37
0037 7028 |p( | Jump_Nonzero 0x60
0038 00d8 | | Load_Top At_Offset_0
0039 0c41 | A | Execute_Immediate Greater_Equal,0x41
003a 700d |p | Jump_Nonzero 0x48
003b 0ac9 | | Execute_Immediate Plus,-0x37
003c 4609 |F | Jump_Case 0xa
003d 783d |x= | Jump 0x7b ; case 0x0
003e 783c |x< | Jump 0x7b ; case 0x1
003f 783b |x; | Jump 0x7b ; case 0x2
0040 783a |x: | Jump 0x7b ; case 0x3
0041 783b |x; | Jump 0x7d ; case 0x4
0042 7843 |xC | Jump 0x86 ; case 0x5
0043 7823 |x# | Jump 0x67 ; case 0x6
0044 7820 |x | Jump 0x65 ; case 0x7
0045 782c |x, | Jump 0x72 ; case 0x8
0046 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9
0047 4502 |E | .XXX[0x1]
0048 00d8 | | Load_Top At_Offset_0
0049 0d73 | s | Execute_Immediate Less,0x73
004a 7010 |p | Jump_Nonzero 0x5b
004b 00d8 | | Load_Top At_Offset_0
004c 0c7d | } | Execute_Immediate Greater_Equal,0x7d
004d 7008 |p | Jump_Nonzero 0x56
004e 00d8 | | Load_Top At_Offset_0
004f 4874 |Ht | Short_Literal 0x74
0050 487b |H{ | Short_Literal 0x7b
0051 0262 | b | Execute Discrete,In_Range
0052 7010 |p | Jump_Nonzero 0x63
0053 0f7c | | | Execute_Immediate Equal,0x7c
0054 7036 |p6 | Jump_Nonzero 0x8b
0055 7841 |xA | Jump 0x97
0056 0b8c | | Execute_Immediate Case_Compare,0x8c
0057 7044 |pD | Jump_Nonzero 0x9c
0058 0fa8 | | Execute_Immediate Equal,-0x58
0059 7045 |pE | Jump_Nonzero 0x9f
005a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
005b 4842 |HB | Short_Literal 0x42
005c 4872 |Hr | Short_Literal 0x72
005d 0262 | b | Execute Discrete,In_Range
005e 7044 |pD | Jump_Nonzero 0xa3
005f 7809 |x | Jump 0x69
0060 0f02 | | Execute_Immediate Equal,0x2
0061 7019 |p | Jump_Nonzero 0x7b
0062 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0063 00d1 | | Pop_Control Pop_Count_1
0064 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0065 8602 | | Call 0x3,0x2
0066 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0067 8603 | | Call 0x3,0x3
0068 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0069 e7ff | | Load 0x3,-0x1
006a 00eb | | Load_Encached Diana_Cache
006b 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
006c 85fe | | Call 0x2,-0x2
006d e7ff | | Load 0x3,-0x1
006e 00eb | | Load_Encached Diana_Cache
006f 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
0070 8403 | | Call 0x2,0x3
0071 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0072 e7ff | | Load 0x3,-0x1
0073 00eb | | Load_Encached Diana_Cache
0074 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0075 85fe | | Call 0x2,-0x2
0076 e7ff | | Load 0x3,-0x1
0077 00eb | | Load_Encached Diana_Cache
0078 18e6 | | Execute Package,Field_Execute,Field_Number 0xe6
0079 8403 | | Call 0x2,0x3
007a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
007b 8604 | | Call 0x3,0x4
007c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
007d e7ff | | Load 0x3,-0x1
007e 00eb | | Load_Encached Diana_Cache
007f 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0080 85fe | | Call 0x2,-0x2
0081 e7ff | | Load 0x3,-0x1
0082 00eb | | Load_Encached Diana_Cache
0083 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0084 8403 | | Call 0x2,0x3
0085 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0086 e7ff | | Load 0x3,-0x1
0087 00eb | | Load_Encached Diana_Cache
0088 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0089 85fe | | Call 0x2,-0x2
008a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
008b e7ff | | Load 0x3,-0x1
008c 00eb | | Load_Encached Diana_Cache
008d 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
008e 8403 | | Call 0x2,0x3
008f e7ff | | Load 0x3,-0x1
0090 8402 | | Call 0x2,0x2
0091 7004 |p | Jump_Nonzero 0x96
0092 e7ff | | Load 0x3,-0x1
0093 00eb | | Load_Encached Diana_Cache
0094 18be | | Execute Package,Field_Execute,Field_Number 0xbe
0095 8403 | | Call 0x2,0x3
0096 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0097 e7ff | | Load 0x3,-0x1
0098 00eb | | Load_Encached Diana_Cache
0099 18bc | | Execute Package,Field_Execute,Field_Number 0xbc
009a 8403 | | Call 0x2,0x3
009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009c 00d1 | | Pop_Control Pop_Count_1
009d 8605 | | Call 0x3,0x5
009e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009f e7ff | | Load 0x3,-0x1
00a0 00eb | | Load_Encached Diana_Cache
00a1 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
00a2 8403 | | Call 0x2,0x3
00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b1 | | .CONST 0x00b1 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab e7ff | | Load 0x3,-0x1
00ac 00eb | | Load_Encached Diana_Cache
00ad 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
00ae e7ff | | Load 0x3,-0x1
00af 00eb | | Load_Encached Diana_Cache
00b0 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
00b1 BODY_00a8:
00b1 00d9 | | Load_Top At_Offset_1
00b2 85fe | | Call 0x2,-0x2
00b3 00d8 | | Load_Top At_Offset_0
00b4 8403 | | Call 0x2,0x3
00b5 00d8 | | Load_Top At_Offset_0
00b6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00b7 0f36 | 6 | Execute_Immediate Equal,0x36
00b8 680a |h | Jump_Zero 0xc3
00b9 00d8 | | Load_Top At_Offset_0
00ba 490a |I | Short_Literal 0x10a
00bb 00eb | | Load_Encached Diana_Cache
00bc 0096 | | Execute Package,Entry
00bd 8403 | | Call 0x2,0x3
00be 00d9 | | Load_Top At_Offset_1
00bf 4904 |I | Short_Literal 0x104
00c0 00eb | | Load_Encached Diana_Cache
00c1 0096 | | Execute Package,Entry
00c2 8403 | | Call 0x2,0x3
00c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d1 | | .CONST 0x00d1 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0003 | | .CONST 0x0003 ; Number of locals
00cb INIT_00c8:
00cb e7ff | | Load 0x3,-0x1
00cc 00eb | | Load_Encached Diana_Cache
00cd 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
00ce e7ff | | Load 0x3,-0x1
00cf 00eb | | Load_Encached Diana_Cache
00d0 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4
00d1 BODY_00c8:
00d1 e7ff | | Load 0x3,-0x1
00d2 00eb | | Load_Encached Diana_Cache
00d3 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
00d4 85fe | | Call 0x2,-0x2
00d5 e7ff | | Load 0x3,-0x1
00d6 00eb | | Load_Encached Diana_Cache
00d7 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4
00d8 8403 | | Call 0x2,0x3
00d9 00d8 | | Load_Top At_Offset_0
00da 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00db 0f36 | 6 | Execute_Immediate Equal,0x36
00dc 6805 |h | Jump_Zero 0xe2
00dd 00d8 | | Load_Top At_Offset_0
00de 490a |I | Short_Literal 0x10a
00df 00eb | | Load_Encached Diana_Cache
00e0 0096 | | Execute Package,Entry
00e1 8403 | | Call 0x2,0x3
00e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e3 0000 0000 | | .BLANK 0000[0x5]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f0 | | .CONST 0x00f0 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0002 | | .CONST 0x0002 ; Number of locals
00eb INIT_00e8:
00eb e7ff | | Load 0x3,-0x1
00ec 00eb | | Load_Encached Diana_Cache
00ed 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
00ee 00eb | | Load_Encached Diana_Cache
00ef 1889 | | Execute Package,Field_Execute,Field_Number 0x89
00f0 BODY_00e8:
00f0 00cf | | Action Mark_Auxiliary
00f1 7808 |x | Jump 0xfa
00f2 00d9 | | Load_Top At_Offset_1
00f3 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
00f4 85fe | | Call 0x2,-0x2
00f5 00d9 | | Load_Top At_Offset_1
00f6 0217 | | Execute Heap_Access,All_Reference
00f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00f9 00c9 | | Action Pop_Auxiliary_Loop
00fa 00d9 | | Load_Top At_Offset_1
00fb 77f6 |w | Jump_Nonzero 0xf2
00fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0106 | | .CONST 0x0106 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 e7ff | | Load 0x3,-0x1
0104 00eb | | Load_Encached Diana_Cache
0105 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0106 BODY_0100:
0106 00cf | | Action Mark_Auxiliary
0107 7808 |x | Jump 0x110
0108 00d9 | | Load_Top At_Offset_1
0109 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
010a 8403 | | Call 0x2,0x3
010b 00d9 | | Load_Top At_Offset_1
010c 0217 | | Execute Heap_Access,All_Reference
010d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010e 0032 | 2 | Store_Top Heap_Access,At_Offset_2
010f 00c9 | | Action Pop_Auxiliary_Loop
0110 00d9 | | Load_Top At_Offset_1
0111 77f6 |w | Jump_Nonzero 0x108
0112 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0113 0000 0000 | | .BLANK 0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug Table
0118 ; --------------------------------------------------------------------------------------
0118 0004 0007 | | .DEBUG4 0x0004,0x0007,0x44dd,0x0000,0x0001,0x0000
011e 0313 2903 | ) | .XXX[0xe2]
0120 9b7b 93a3 | { |
0122 2b21 6103 |+!a |
0124 a343 2903 | C) |
0126 2b63 2b6b |+c+k|
0128 2b73 a103 |+s |
012a a3cb 8329 | )|
012c 6103 a343 |a C|
012e 2903 9b4b |) K|
0130 d329 037b | ) {|
0132 3103 a343 |1 C|
0134 2903 a30b |) |
0136 1363 2960 | c)`|
0138 0000 01d8 | |
013a 0000 0221 | !|
013c 0103 7b31 | {1|
013e 032b 632b | +c+|
0140 6b2b 73a3 |k+s |
0142 9903 a379 | y|
0144 0313 2903 | ) |
0146 9b7b 93a3 | { |
0148 2b21 6103 |+!a |
014a a343 2903 | C) |
014c 2b63 2b6b |+c+k|
014e 2b73 a103 |+s |
0150 a3cb 8329 | )|
0152 6103 a343 |a C|
0154 2903 9b4b |) K|
0156 d329 037b | ) {|
0158 3103 a343 |1 C|
015a 2903 a30b |) |
015c 1363 2960 | c)`|
015e 0000 01d8 | |
0160 0000 0221 | !|
0162 0103 7b31 | {1|
0164 032b 632b | +c+|
0166 6b2b 73a3 |k+s |
0168 9903 a379 | y|
016a 0313 2903 | ) |
016c 9b7b 93a3 | { |
016e 2b21 6103 |+!a |
0170 a343 2903 | C) |
0172 2b63 2b6b |+c+k|
0174 2b73 a103 |+s |
0176 a3cb 8329 | )|
0178 6103 a343 |a C|
017a 2903 9b4b |) K|
017c d329 037b | ) {|
017e 3103 a343 |1 C|
0180 2903 a30b |) |
0182 1363 2960 | c)`|
0184 0000 0410 | |
0186 0000 021b | |
0188 0b73 2103 | s! |
018a 0903 1b7b | {|
018c 6b83 0b93 |k |
018e 4b9b 7b71 |K {q|
0190 0333 ab73 | 3 s|
0192 1ba3 4b7b | K{|
0194 7103 a343 |q C|
0196 0ba1 0323 | #|
0198 2b33 4b73 |+3Ks|
019a 2b99 03a3 |+ |
019c 4329 037b |C) {|
019e 9323 2b93 | #+ |
01a0 4b73 3903 |Ks9 |
01a2 7b31 03a3 |{1 |
01a4 4329 032b |C) +|
01a6 632b 6b2b |c+k+|
01a8 73a3 9800 |s |
01aa 0004 0000 | |
01ac 0002 2901 | ) |
01ae 030b 7321 | s!|
01b0 0309 031b | |
01b2 7b6b 830b |{k |
01b4 934b 9b7b | K {|
01b6 7103 33ab |q 3 |
01b8 731b a34b |s K|
01ba 7b71 03a3 |{q |
01bc 430b a103 |C |
01be 232b 334b |#+3K|
01c0 732b 9903 |s+ |
01c2 a343 2903 | C) |
01c4 7b93 232b |{ #+|
01c6 934b 7339 | Ks9|
01c8 037b 3103 | {1 |
01ca a343 2903 | C) |
01cc 2b63 2b6b |+c+k|
01ce 2b73 a398 |+s |
01d0 0000 0400 | |
01d2 0000 0229 | )|
01d4 0103 0b73 | s|
01d6 2103 0903 |! |
01d8 1b7b 6b83 | {k |
01da 0b93 4b9b | K |
01dc 7b71 0333 |{q 3|
01de ab73 1ba3 | s |
01e0 4b7b 7103 |K{q |
01e2 a343 0ba1 | C |
01e4 0323 2b33 | #+3|
01e6 4b73 2b99 |Ks+ |
01e8 03a3 4329 | C)|
01ea 037b 9323 | { #|
01ec 2b93 4b73 |+ Ks|
01ee 3903 7b31 |9 {1|
01f0 03a3 4329 | C)|
01f2 032b 632b | +c+|
01f4 6b2b 73a3 |k+s |
01f6 9800 0002 | |
01f8 4000 0002 |@ |
01fa 1b4b 7103 | Kq |
01fc a343 2903 | C) |
01fe a30b 1363 | c|