|
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 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 fa9a a292 | | .XXX[0xb1]
0138 4a72 3afa |Jr: |
013a 6a0a 720a |j r |
013c 3a2a 9172 |:* r|
013e 9a2a a2fa | * |
0140 622a 723a |b*r:|
0142 a241 ebdc | A |
0144 a3fc 8120 | |
0146 0032 a20a | 2 |
0148 923a 2aa0 | :* |
014a b801 0aaa | |
014c 7212 7aaa |r z |
014e 7222 2a22 |r"*"|
0150 fa9a a292 | |
0152 4a72 3afa |Jr: |
0154 6a0a 720a |j r |
0156 3a2a 9172 |:* r|
0158 aafa 9aa2 | |
015a 924a 7238 | Jr8|
015c 03f4 8118 | |
015e 0052 722a | Rr*|
0160 bafa 622a | b*|
0162 723a a240 |r: @|
0164 b800 829a | |
0166 a20a 7222 | r"|
0168 0a92 2172 | !r|
016a 720a a2aa |r |
016c 920a 6003 | ` |
016e f481 1800 | |
0170 4a32 4a62 |J2Jb|
0172 62fa ba4a |b J|
0174 a240 b800 | @ |
0176 929a a20a | |
0178 7222 0a92 |r" |
017a 2172 1a42 |!r B|
017c 0a92 0a1a | |
017e a22a 9060 | * `|
0180 00b2 9aa2 | |
0182 0a72 220a | r" |
0184 9221 721a | !r |
0186 420a 920a |B |
0188 1aa2 2a91 | * |
018a 7139 0138 |q9 8|
018c 0000 0000 | |
018e 0000 0001 | |
0190 6000 0000 |` |
0192 1000 0002 | |
0194 6002 1554 |` T|
0196 e424 f554 | $ T|
0198 e444 5445 | DTE|
019a f535 4524 | 5E$|
019c 94e4 75f4 | u |
019e d414 e414 | |
01a0 7455 22e5 |tU" |
01a2 55f5 3545 |U 5E|
01a4 2494 e473 |$ s|
01a6 b997 1000 | |
01a8 0000 0000 | |
01aa 0000 4000 | @ |
01ac 0000 2000 | |
01ae 000e 2003 | |
01b0 aaa9 c849 | I|
01b2 eaa9 c888 | |
01b4 a88b ea6a | j|
01b6 8a49 29c8 | I) |
01b8 ebe9 a829 | )|
01ba c828 e8aa | ( |
01bc 45c8 69ea |E i |
01be 0b27 af72 | ' r|
01c0 8ff2 0480 | |
01c2 00ca 882a | *|
01c4 48e8 aa82 |H |
01c6 e004 2aa9 | * |
01c8 c849 eaa9 | I |
01ca c888 a88b | |
01cc ea6a 8a49 | j I|
01ce 29c8 ebe9 |) |
01d0 a829 c828 | ) (|
01d2 e8aa 45ca | E |
01d4 abea 6a8a | j |
01d6 4929 c8e0 |I) |
01d8 0fd2 0460 | `|
01da 00ca 69ea | i |
01dc aa48 68a2 | Hh |
01de e001 ea6a | j|
01e0 8829 c888 | ) |
01e2 2a48 85ca |*H |
01e4 6a8a 4929 |j I)|
01e6 c8e0 | |
01e7 0000 0000 | | .BLANK 0000[0x4]
01eb 0280 0000 | | .XXX[0x15]
01ed 0040 0000 | @ |
01ef 1cc0 07d5 | |
01f1 5390 93d5 |S |
01f3 5391 1151 |S Q|
01f5 17d4 d514 | |
01f7 9253 91d7 | S |
01f9 d350 5390 | PS |
01fb 51d1 548b |Q T |
01fd 9054 1411 | T |
01ff 5391 |S |