|
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_0a7cf5
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 002b | + | .CONST 0x002b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0006 | | .CONST 0x0006 ; Number of locals
000b INIT_0008:
000b 4801 |H | Short_Literal 0x1
000c 00db | | Load_Top At_Offset_3
000d 8220 | | Call 0x1,0x20
000e 485f |H_ | Short_Literal 0x5f
000f 0092 00bf | | Action Push_String_Extended,0xbf ; "IDD."
0011 00da | | Load_Top At_Offset_2
0012 01cc | | Execute Vector,Catenate
0013 01cb | | Execute Vector,Append
0014 4804 |H | Short_Literal 0x4
0015 e7ff | | Load 0x3,-0x1
0016 8220 | | Call 0x1,0x20
0017 01cc | | Execute Vector,Catenate
0018 0092 00c0 | | Action Push_String_Extended,0xc0 ; "_Protocol_@"
001a 01cc | | Execute Vector,Catenate
001b 0007 | | Action Break_Optional
001c 4801 |H | Short_Literal 0x1
001d 00d9 | | Load_Top At_Offset_1
001e e2c1 | | Load 0x1,0xc1
001f e020 | | Load 0x0,0x20
0020 180f | | Execute Package,Field_Execute,Field_Number 0xf
0021 e2d7 | | Load 0x1,0xd7
0022 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0023 e037 | 7 | Load 0x0,0x37
0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0025 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0026 02c7 | | Declare_Variable Any
0027 00d8 | | Load_Top At_Offset_0
0028 1c00 | | Execute_Immediate Run_Utility,0x0
0029 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
002b BODY_0008:
002b 4801 |H | Short_Literal 0x1
002c e037 | 7 | Load 0x0,0x37
002d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
002f e604 | | Load 0x3,0x4
0030 e037 | 7 | Load 0x0,0x37
0031 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0032 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0033 c605 | | Store 0x3,0x5
0034 00d9 | | Load_Top At_Offset_1
0035 e037 | 7 | Load 0x0,0x37
0036 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0037 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0038 6803 |h | Jump_Zero 0x3c
0039 4800 |H | Short_Literal 0x0
003a a7fe | | Store_Unchecked 0x3,-0x2
003b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
003c 4801 |H | Short_Literal 0x1
003d a7fe | | Store_Unchecked 0x3,-0x2
003e e2d0 | | Load 0x1,0xd0
003f e00f | | Load 0x0,0xf
0040 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0041 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0042 00cf | | Action Mark_Auxiliary
0043 7824 |x$ | Jump 0x68
0044 4809 |H | Short_Literal 0x9
0045 8262 | b | Call 0x1,0x62
0046 00ea | | Load_Encached Null_String_Cache
0047 0092 00c1 | | Action Push_String_Extended,0xc1 ; "3.X.4.Y"
0049 480b |H | Short_Literal 0xb
004a 823b | ; | Call 0x1,0x3b
004b e605 | | Load 0x3,0x5
004c e037 | 7 | Load 0x0,0x37
004d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
004f e037 | 7 | Load 0x0,0x37
0050 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0051 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0052 8606 | | Call 0x3,0x6
0053 8280 | | Call 0x1,0x80
0054 e00f | | Load 0x0,0xf
0055 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0056 00ea | | Load_Encached Null_String_Cache
0057 e605 | | Load 0x3,0x5
0058 e037 | 7 | Load 0x0,0x37
0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
005b e037 | 7 | Load 0x0,0x37
005c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
005e 8219 | | Call 0x1,0x19
005f e00f | | Load 0x0,0xf
0060 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0061 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0062 00da | | Load_Top At_Offset_2
0063 e037 | 7 | Load 0x0,0x37
0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0065 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0066 c605 | | Store 0x3,0x5
0067 00c9 | | Action Pop_Auxiliary_Loop
0068 00da | | Load_Top At_Offset_2
0069 e037 | 7 | Load 0x0,0x37
006a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
006c 6fd7 |o | Jump_Zero 0x44
006d 00ce | | Action Pop_Auxiliary
006e e2d0 | | Load 0x1,0xd0
006f e00f | | Load 0x0,0xf
0070 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0071 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0072 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0073 0000 0000 | | .BLANK 0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007f | | .CONST 0x007f ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0004 | | .CONST 0x0004 ; Number of locals
007b INIT_0078:
007b 0092 00c2 | | Action Push_String_Extended,0xc2 ; "PROTOCOL_"
007d 00e2 | | Load_Encached Integer_Cache
007e 03e9 | | Declare_Variable Discrete,Duplicate
007f BODY_0078:
007f 00cf | | Action Mark_Auxiliary
0080 e9ff | | Load 0x4,-0x1
0081 01dc | | Execute Vector,Last
0082 e9ff | | Load 0x4,-0x1
0083 01dd | | Execute Vector,First
0084 0263 | c | Execute Discrete,Above_Bound
0085 7035 |p5 | Jump_Nonzero 0xbb
0086 00d8 | | Load_Top At_Offset_0
0087 e9ff | | Load 0x4,-0x1
0088 01d7 | | Execute Vector,Field_Read
0089 0f5f | _ | Execute_Immediate Equal,0x5f
008a 682e |h. | Jump_Zero 0xb9
008b 00d8 | | Load_Top At_Offset_0
008c 0a01 | | Execute_Immediate Plus,0x1
008d c803 | | Store 0x4,0x3
008e 4801 |H | Short_Literal 0x1
008f a804 | | Store_Unchecked 0x4,0x4
0090 00cf | | Action Mark_Auxiliary
0091 7807 |x | Jump 0x99
0092 e804 | | Load 0x4,0x4
0093 0a01 | | Execute_Immediate Plus,0x1
0094 c804 | | Store 0x4,0x4
0095 e803 | | Load 0x4,0x3
0096 0a01 | | Execute_Immediate Plus,0x1
0097 c803 | | Store 0x4,0x3
0098 00c9 | | Action Pop_Auxiliary_Loop
0099 e803 | | Load 0x4,0x3
009a e9ff | | Load 0x4,-0x1
009b 01dc | | Execute Vector,Last
009c 027c | | | Execute Discrete,Less
009d 680b |h | Jump_Zero 0xa9
009e e804 | | Load 0x4,0x4
009f 0d09 | | Execute_Immediate Less,0x9
00a0 6808 |h | Jump_Zero 0xa9
00a1 e803 | | Load 0x4,0x3
00a2 e9ff | | Load 0x4,-0x1
00a3 01d7 | | Execute Vector,Field_Read
00a4 e804 | | Load 0x4,0x4
00a5 e802 | | Load 0x4,0x2
00a6 01d7 | | Execute Vector,Field_Read
00a7 027f | | Execute Discrete,Equal
00a8 77e9 |w | Jump_Nonzero 0x92
00a9 00ce | | Action Pop_Auxiliary
00aa 00db | | Load_Top At_Offset_3
00ab 0f09 | | Execute_Immediate Equal,0x9
00ac 680c |h | Jump_Zero 0xb9
00ad e803 | | Load 0x4,0x3
00ae 0a01 | | Execute_Immediate Plus,0x1
00af 00d8 | | Load_Top At_Offset_0
00b0 00e2 | | Load_Encached Integer_Cache
00b1 0260 | ` | Execute Discrete,In_Type
00b2 7001 |p | Jump_Nonzero 0xb4
00b3 0801 | | Execute_Immediate Raise,0x1
00b4 e9ff | | Load 0x4,-0x1
00b5 01dc | | Execute Vector,Last
00b6 e9ff | | Load 0x4,-0x1
00b7 01cf | | Execute Vector,Slice_Read
00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b9 00c8 | | Action Pop_Auxiliary_Range
00ba 3fcb |? | Loop_Increasing 0x86
00bb 00ce | | Action Pop_Auxiliary
00bc 0092 00c3 | | Action Push_String_Extended,0xc3 ; "Error In Interface Name"
00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bf ; --------------------------------------------------------------------------------------
00bf ; STRING TABLE
00bf ; --------------------------------------------------------------------------------------
00bf 000c | | .STRTAB 0x000c->0x00c5 ; "IDD."
00c0 000e | | .STRTAB 0x000e->0x00c7 ; "_Protocol_@"
00c1 0017 | | .STRTAB 0x0017->0x00cc ; "3.X.4.Y"
00c2 001c | | .STRTAB 0x001c->0x00d0 ; "PROTOCOL_"
00c3 0023 | # | .STRTAB 0x0023->0x00d4 ; "Error In Interface Name"
00c4 0038 | 8 | .STREND 0x0038->0x00e0
00c5 4944 442e |IDD.| .STRTAB_STRINGS
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc7b,0x0000,0x0001,0x0000
00e6 6433 4417 |d3D | .XXX[0x11a]
00e8 0abd b6db | |
00ea 9ecf f6d7 | |
00ec 46c0 7c01 |F | |
00ee 7ad9 18d8 |z |
00f0 e2db 3ebc | > |
00f2 bed7 1ad5 | |
00f4 bada 0adb | |
00f6 bec0 a001 | |
00f8 597a e101 |Yz |
00fa 7c01 22da || " |
00fc f82f 8acb | / |
00fe 96d4 610a | a |
0100 4adb b2be |J |
0102 02d9 2ad6 | * |
0104 32d9 76c4 |2 v |
0106 b002 32c5 | 2 |
0108 5492 5adb |T Z |
010a b018 1587 | |
010c eabe 66d8 | f |
010e 9ed4 8eda | |
0110 42bc ac00 |B |
0112 b03b dac6 | ; |
0114 42da 5edb |B ^ |
0116 c86e 92da | n |
0118 32d4 6ac9 |2 j |
011a f40c a000 | |
011c 0ecf 58b2 | X |
011e 82d8 e667 | g|
0120 0cbe 7ad2 | z |
0122 1ece aeda | |
0124 86d8 e8d9 | |
0126 9ad2 7ecf | ~ |
0128 1422 d6da | " |
012a 8ada 0ac5 | |
012c 52d5 32db |R 2 |
012e 86d7 4ad6 | J |
0130 42bc a401 |B |
0132 02d2 74fe | t |
0134 eada dada | |
0136 b2c9 2ed8 | . |
0138 86d1 36d8 | 6 |
013a a2d6 42bc | B |
013c a001 22db | " |
013e 2eda 8ad9 |. |
0140 16cb 3ad8 | : |
0142 bad2 c2d7 | |
0144 46d8 aec5 |F |
0146 7ad8 56d8 |z V |
0148 5c17 4423 |\ D#|
014a a2c9 9435 | 5|
014c aad9 b000 | |
014e d5cc eada | |
0150 7ad4 f2d8 |z |
0152 4adb 4adb |J J |
0154 1ab4 40cb | @ |
0156 d805 52c2 | R |
0158 bad8 46da | F |
015a 36d4 8acb |6 |
015c aed8 1cc8 | |
015e 9011 7ac3 | z |
0160 bedb a2db | |
0162 c6d9 3d04 | = |
0164 9803 4437 | D7|
0166 2c5d 9437 |,] 7|
0168 5cbf decb |\ |
016a e43b e105 | ; |
016c 4822 fac8 |H" |
016e d1ff c2cd | |
0170 a57c 52d0 | |R |
0172 a41e 04c5 | |
0174 3831 f2c8 |81 |
0176 d1fe 8ed5 | |
0178 b801 2c55 | ,U|
017a 8ece d8b7 | |
017c fada 26c3 | & |
017e dedb 06cc | |
0180 f6d8 2ac8 | * |
0182 ec21 ac36 | ! 6|
0184 1103 1105 | |
0186 9acb ceda | |
0188 d982 70b9 | p |
018a 6416 b6db |d |
018c 62d8 eed3 |b |
018e 6ada 9ada |j |
0190 eabc 52c6 | R |
0192 d434 524d | 4RM|
0194 4ac8 8c01 |J |
0196 6c39 1547 |l9 G|
0198 780f b904 |x |
019a b223 a2c8 | # |
019c b6dc 8407 | |
019e 16c3 7480 | t |
01a0 3acc e561 |: a|
01a2 1545 c802 | E |
01a4 6833 a2c9 |h3 |
01a6 4c01 b41b |L |
01a8 7841 35d1 |xA5 |
01aa 76cd 9436 |v 6|
01ac 0cc6 ce98 | |
01ae aede a1fe | |
01b0 f97a ed59 | z Y|
01b2 9ac9 eeda | |
01b4 fc20 6431 | d1|
01b6 0ec4 eadf | |
01b8 d2c0 56dc | V |
01ba c6d3 46c2 | F |
01bc 2ecf 0e0c |. |
01be 2585 f0e9 |% |
01c0 5c07 f0f4 |\ |
01c2 3acc 40c9 |: @ |
01c4 1e60 1d5f | ` _|
01c6 9ad8 9ad6 | |
01c8 bed9 4ecd | N |
01ca 3d04 8c03 |= |
01cc 8ad8 2987 | ) |
01ce 96da e99b | |
01d0 42d7 16d9 |B |
01d2 3ada eabc |: |
01d4 8801 6add | j |
01d6 686d 72dd |hmr |
01d8 9adf 12db | |
01da f2d7 8ad7 | |
01dc 5abd 4803 |Z H |
01de 082e 301c | .0 |
01e0 cc05 1408 | |
01e2 a186 000b | |
01e4 6101 f005 |a |
01e6 e6df b581 | |
01e8 d401 c832 | 2|
01ea 1005 e6dd | |
01ec 30db 8981 |0 |
01ee 1406 3005 | 0 |
01f0 e6dc 2c03 | , |
01f2 beba e405 | |
01f4 e6dc 2800 | ( |
01f6 06bf 0405 | |
01f8 e6de c202 | |
01fa b05d 597b | ]Y{|
01fc 2006 2edc | . |
01fe d2bf 0d05 | |