|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 5900 |Y | .CONST 0x5900 ; 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 e012 | | Load 0x0,0x12
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 0008 | | .DEBUG4 0x0004,0x0008,0xc04e,0x0000,0x0001,0x0000
011e 0000 0000 | | .BLANK 0000[0xe2]