|
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, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦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 0130 | 0 | .CONST 0x0130 ; 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 002a | * | .CONST 0x002a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000d | | .CONST 0x000d ; Number of locals
000b INIT_0008:
000b e011 | | Load 0x0,0x11
000c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000d e0a8 | | Load 0x0,0xa8
000e 0007 | | Action Break_Optional
000f e0aa | | Load 0x0,0xaa
0010 0007 | | Action Break_Optional
0011 00e1 | | Load_Encached Boolean_Cache
0012 e033 | 3 | Load 0x0,0x33
0013 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0014 0322 | " | Declare_Variable Record
0015 00d8 | | Load_Top At_Offset_0
0016 1c00 | | Execute_Immediate Run_Utility,0x0
0017 0092 0120 | | Action Push_String_Extended,0x120 ; " "
0019 e0aa | | Load 0x0,0xaa
001a 03b6 | | Declare_Variable Access,By_Allocation,With_Value
001b 00e8 | | Load_Encached Character_Cache
001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001d 4fff |O | Short_Literal -0x1
001e 00e2 | | Load_Encached Integer_Cache
001f 03f1 | | Declare_Variable Discrete,With_Value
0020 4fff |O | Short_Literal -0x1
0021 00e2 | | Load_Encached Integer_Cache
0022 03f1 | | Declare_Variable Discrete,With_Value
0023 e01d | | Load 0x0,0x1d
0024 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
0025 0007 | | Action Break_Optional
0026 00d8 | | Load_Top At_Offset_0
0027 0007 | | Action Break_Optional
0028 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
002a BODY_0008:
002a e0a9 | | Load 0x0,0xa9
002b 0d01 | | Execute_Immediate Less,0x1
002c 6805 |h | Jump_Zero 0x32
002d 0092 0121 | !| Action Push_String_Extended,0x121 ; "Index has no entries"
002f e01c | | Load 0x0,0x1c
0030 180f | | Execute Package,Field_Execute,Field_Number 0xf
0031 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0032 e08c | | Load 0x0,0x8c
0033 e033 | 3 | Load 0x0,0x33
0034 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0035 01da | | Execute Vector,Bounds
0036 0262 | b | Execute Discrete,In_Range
0037 680e |h | Jump_Zero 0x46
0038 4801 |H | Short_Literal 0x1
0039 4801 |H | Short_Literal 0x1
003a e606 | | Load 0x3,0x6
003b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
003c e07b | { | Load 0x0,0x7b
003d e08c | | Load 0x0,0x8c
003e e033 | 3 | Load 0x0,0x33
003f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0040 00d9 | | Load_Top At_Offset_1
0041 00d0 | | Action Swap_Control
0042 0260 | ` | Execute Discrete,In_Type
0043 7001 |p | Jump_Nonzero 0x45
0044 0801 | | Execute_Immediate Raise,0x1
0045 8098 | | Call 0x0,0x98
0046 e0a9 | | Load 0x0,0xa9
0047 00d8 | | Load_Top At_Offset_0
0048 00e4 | | Load_Encached Positive_Cache
0049 0260 | ` | Execute Discrete,In_Type
004a 7001 |p | Jump_Nonzero 0x4c
004b 0801 | | Execute_Immediate Raise,0x1
004c 4801 |H | Short_Literal 0x1
004d 8261 | a | Call 0x1,0x61
004e 00cf | | Action Mark_Auxiliary
004f e0a9 | | Load 0x0,0xa9
0050 4801 |H | Short_Literal 0x1
0051 0263 | c | Execute Discrete,Above_Bound
0052 70a5 |p | Jump_Nonzero 0xf8
0053 00d8 | | Load_Top At_Offset_0
0054 8061 | a | Call 0x0,0x61
0055 a603 | | Store_Unchecked 0x3,0x3
0056 e603 | | Load 0x3,0x3
0057 0217 | | Execute Heap_Access,All_Reference
0058 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0059 a604 | | Store_Unchecked 0x3,0x4
005a e604 | | Load 0x3,0x4
005b 0227 | ' | Execute Access,All_Reference
005c e607 | | Load 0x3,0x7
005d 0227 | ' | Execute Access,All_Reference
005e 01de | | Execute Vector,Not_Equal
005f 6842 |hB | Jump_Zero 0xa2
0060 e062 | b | Load 0x0,0x62
0061 681f |h | Jump_Zero 0x81
0062 e604 | | Load 0x3,0x4
0063 0227 | ' | Execute Access,All_Reference
0064 01dd | | Execute Vector,First
0065 e604 | | Load 0x3,0x4
0066 0227 | ' | Execute Access,All_Reference
0067 01d7 | | Execute Vector,Field_Read
0068 e01a | | Load 0x0,0x1a
0069 1810 | | Execute Package,Field_Execute,Field_Number 0x10
006a e608 | | Load 0x3,0x8
006b e01a | | Load 0x0,0x1a
006c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
006d 027e | ~ | Execute Discrete,Not_Equal
006e 680f |h | Jump_Zero 0x7e
006f e608 | | Load 0x3,0x8
0070 6805 |h | Jump_Zero 0x76
0071 4801 |H | Short_Literal 0x1
0072 4800 |H | Short_Literal 0x0
0073 e07a | z | Load 0x0,0x7a
0074 e01e | | Load 0x0,0x1e
0075 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0076 e604 | | Load 0x3,0x4
0077 0227 | ' | Execute Access,All_Reference
0078 01dd | | Execute Vector,First
0079 e604 | | Load 0x3,0x4
007a 0227 | ' | Execute Access,All_Reference
007b 01d7 | | Execute Vector,Field_Read
007c a608 | | Store_Unchecked 0x3,0x8
007d 781d |x | Jump 0x9b
007e e015 | | Load 0x0,0x15
007f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0080 781a |x | Jump 0x9b
0081 e604 | | Load 0x3,0x4
0082 0227 | ' | Execute Access,All_Reference
0083 01dd | | Execute Vector,First
0084 e604 | | Load 0x3,0x4
0085 0227 | ' | Execute Access,All_Reference
0086 01d7 | | Execute Vector,Field_Read
0087 e608 | | Load 0x3,0x8
0088 027e | ~ | Execute Discrete,Not_Equal
0089 680f |h | Jump_Zero 0x99
008a e608 | | Load 0x3,0x8
008b 6805 |h | Jump_Zero 0x91
008c 4801 |H | Short_Literal 0x1
008d 4800 |H | Short_Literal 0x0
008e e07a | z | Load 0x0,0x7a
008f e01e | | Load 0x0,0x1e
0090 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0091 e604 | | Load 0x3,0x4
0092 0227 | ' | Execute Access,All_Reference
0093 01dd | | Execute Vector,First
0094 e604 | | Load 0x3,0x4
0095 0227 | ' | Execute Access,All_Reference
0096 01d7 | | Execute Vector,Field_Read
0097 a608 | | Store_Unchecked 0x3,0x8
0098 7802 |x | Jump 0x9b
0099 e015 | | Load 0x0,0x15
009a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
009b 860d | | Call 0x3,0xd
009c e604 | | Load 0x3,0x4
009d a607 | | Store_Unchecked 0x3,0x7
009e 4fff |O | Short_Literal -0x1
009f a609 | | Store_Unchecked 0x3,0x9
00a0 4801 |H | Short_Literal 0x1
00a1 a605 | | Store_Unchecked 0x3,0x5
00a2 e609 | | Load 0x3,0x9
00a3 e603 | | Load 0x3,0x3
00a4 0217 | | Execute Heap_Access,All_Reference
00a5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00a6 027e | ~ | Execute Discrete,Not_Equal
00a7 7006 |p | Jump_Nonzero 0xae
00a8 e60a | | Load 0x3,0xa
00a9 e603 | | Load 0x3,0x3
00aa 0217 | | Execute Heap_Access,All_Reference
00ab 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00ac 027e | ~ | Execute Discrete,Not_Equal
00ad 6848 |hH | Jump_Zero 0xf6
00ae e603 | | Load 0x3,0x3
00af 0217 | | Execute Heap_Access,All_Reference
00b0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00b1 6812 |h | Jump_Zero 0xc4
00b2 e603 | | Load 0x3,0x3
00b3 0217 | | Execute Heap_Access,All_Reference
00b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00b5 4801 |H | Short_Literal 0x1
00b6 e606 | | Load 0x3,0x6
00b7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00b8 01d6 | | Execute Vector,Field_Write
00b9 e603 | | Load 0x3,0x3
00ba 0217 | | Execute Heap_Access,All_Reference
00bb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00bc 4802 |H | Short_Literal 0x2
00bd e606 | | Load 0x3,0x6
00be 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00bf 01d6 | | Execute Vector,Field_Write
00c0 4802 |H | Short_Literal 0x2
00c1 e606 | | Load 0x3,0x6
00c2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c3 780a |x | Jump 0xce
00c4 e603 | | Load 0x3,0x3
00c5 0217 | | Execute Heap_Access,All_Reference
00c6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00c7 4801 |H | Short_Literal 0x1
00c8 e606 | | Load 0x3,0x6
00c9 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00ca 01d6 | | Execute Vector,Field_Write
00cb 4801 |H | Short_Literal 0x1
00cc e606 | | Load 0x3,0x6
00cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00ce e603 | | Load 0x3,0x3
00cf 0217 | | Execute Heap_Access,All_Reference
00d0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00d1 e606 | | Load 0x3,0x6
00d2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d3 e602 | | Load 0x3,0x2
00d4 e606 | | Load 0x3,0x6
00d5 e033 | 3 | Load 0x0,0x33
00d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d7 00d1 | | Pop_Control Pop_Count_1
00d8 c602 | | Store 0x3,0x2
00d9 e605 | | Load 0x3,0x5
00da 6803 |h | Jump_Zero 0xde
00db 4800 |H | Short_Literal 0x0
00dc a605 | | Store_Unchecked 0x3,0x5
00dd 7808 |x | Jump 0xe6
00de e602 | | Load 0x3,0x2
00df 0092 0122 | "| Action Push_String_Extended,0x122 ; ", "
00e1 4801 |H | Short_Literal 0x1
00e2 e011 | | Load 0x0,0x11
00e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00e5 c602 | | Store 0x3,0x2
00e6 e602 | | Load 0x3,0x2
00e7 e015 | | Load 0x0,0x15
00e8 180f | | Execute Package,Field_Execute,Field_Number 0xf
00e9 e602 | | Load 0x3,0x2
00ea e011 | | Load 0x0,0x11
00eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ec 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ed c602 | | Store 0x3,0x2
00ee e603 | | Load 0x3,0x3
00ef 0217 | | Execute Heap_Access,All_Reference
00f0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f1 a609 | | Store_Unchecked 0x3,0x9
00f2 e603 | | Load 0x3,0x3
00f3 0217 | | Execute Heap_Access,All_Reference
00f4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00f5 a60a | | Store_Unchecked 0x3,0xa
00f6 00c8 | | Action Pop_Auxiliary_Range
00f7 3f5b |?[ | Loop_Increasing 0x53
00f8 00ce | | Action Pop_Auxiliary
00f9 e60c | | Load 0x3,0xc
00fa e01d | | Load 0x0,0x1d
00fb 3816 |8 | Execute Record,Field_Write,Field_Number 0x16
00fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e60c | | Load 0x3,0xc
0104 a60b | | Store_Unchecked 0x3,0xb
0105 e602 | | Load 0x3,0x2
0106 e604 | | Load 0x3,0x4
0107 0227 | ' | Execute Access,All_Reference
0108 e011 | | Load 0x0,0x11
0109 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
010b c602 | | Store 0x3,0x2
010c e602 | | Load 0x3,0x2
010d e015 | | Load 0x0,0x15
010e 180f | | Execute Package,Field_Execute,Field_Number 0xf
010f e602 | | Load 0x3,0x2
0110 e011 | | Load 0x0,0x11
0111 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0112 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0113 c602 | | Store 0x3,0x2
0114 6007 |` | Indirect_Literal Discrete,0x11c,{0x00000000, 0x00004650}
0115 e02c | , | Load 0x0,0x2c
0116 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0117 e02c | , | Load 0x0,0x2c
0118 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0119 a60b | | Store_Unchecked 0x3,0xb
011a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
011b 0000 | | .XXX[0x1]
011c 0000 0000 | | .LITERAL {0x00000000, 0x00004650}
0120 ; --------------------------------------------------------------------------------------
0120 ; STRING TABLE
0120 ; --------------------------------------------------------------------------------------
0120 0008 | | .STRTAB 0x0008->0x0124 ; " "
0121 0007 | | .STRTAB 0x0007->0x0124 ; "Index has no entries"
0122 0019 | | .STRTAB 0x0019->0x012e ; ", "
0123 0019 | | .STREND 0x0019->0x012f
0124 2049 6e64 | Ind| .STRTAB_STRINGS
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug Table
0130 ; --------------------------------------------------------------------------------------
0130 0004 000f | | .DEBUG4 0x0004,0x000f,0x480e,0x0000,0x0001,0x0000
0136 0000 0000 | | .BLANK 0000[0x4]
013a 0004 00a0 | | .XXX[0xc]
013c 0000 0000 | |
013e 0000 0800 | |
0140 0000 4400 | D |
0142 0000 0020 | |
0144 0000 0140 | @|
0146 0000 0000 | | .BLANK 0000[0x2e]
0174 8014 0000 | | .XXX[0xb]
0176 0000 0000 | |
0178 0100 0000 | |
017a 0880 0000 | |
017c 0004 0000 | |
017e 0028 | ( |
017f 0000 0000 | | .BLANK 0000[0x2e]
01ad 1002 8000 | | .XXX[0xb]
01af 0000 0000 | |
01b1 0020 0000 | |
01b3 0110 0000 | |
01b5 0000 8000 | |
01b7 0005 | |
01b8 0000 0000 | | .BLANK 0000[0x48]