|
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 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 000d | | .CONST 0x000d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0002 | | .CONST 0x0002 ; Number of locals
000b INIT_0008:
000b e0b7 | | Load 0x0,0xb7
000c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
000d BODY_0008:
000d e03b | ; | Load 0x0,0x3b
000e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
000f 7005 |p | Jump_Nonzero 0x15
0010 0092 00c2 | | Action Push_String_Extended,0xc2 ; "Ignoring Table_Options not bracketed by Begin(Table) and End(Table)"
0012 e01c | | Load 0x0,0x1c
0013 180e | | Execute Package,Field_Execute,Field_Number 0xe
0014 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0015 e5ff | | Load 0x2,-0x1
0016 e011 | | Load 0x0,0x11
0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0018 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0019 e0b7 | | Load 0x0,0xb7
001a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
001b a402 | | Store_Unchecked 0x2,0x2
001c 00d8 | | Load_Top At_Offset_0
001d e0b7 | | Load 0x0,0xb7
001e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
001f e5ff | | Load 0x2,-0x1
0020 e011 | | Load 0x0,0x11
0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0023 0e00 | | Execute_Immediate Not_Equal,0x0
0024 0279 | y | Execute Discrete,And
0025 6805 |h | Jump_Zero 0x2b
0026 0092 00c3 | | Action Push_String_Extended,0xc3 ; "Argument to Table_Options was unrecognizable"
0028 e01c | | Load 0x0,0x1c
0029 180e | | Execute Package,Field_Execute,Field_Number 0xe
002a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
002b 00cf | | Action Mark_Auxiliary
002c 7890 |x | Jump 0xbd
002d 4800 |H | Short_Literal 0x0
002e e402 | | Load 0x2,0x2
002f e0b7 | | Load 0x0,0xb7
0030 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0031 687d |h} | Jump_Zero 0xaf
0032 e402 | | Load 0x2,0x2
0033 e0b7 | | Load 0x0,0xb7
0034 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0035 460a |F | Jump_Case 0xb
0036 7881 |x | Jump 0xb8 ; case 0x0
0037 7823 |x# | Jump 0x5b ; case 0x1
0038 783c |x< | Jump 0x75 ; case 0x2
0039 7843 |xC | Jump 0x7d ; case 0x3
003a 784a |xJ | Jump 0x85 ; case 0x4
003b 7851 |xQ | Jump 0x8d ; case 0x5
003c 7858 |xX | Jump 0x95 ; case 0x6
003d 7815 |x | Jump 0x53 ; case 0x7
003e 785e |x^ | Jump 0x9d ; case 0x8
003f 7866 |xf | Jump 0xa6 ; case 0x9
0040 7800 |x | Jump 0x41 ; case 0xa
0041 e03b | ; | Load 0x0,0x3b
0042 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0043 e011 | | Load 0x0,0x11
0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0045 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0046 e03b | ; | Load 0x0,0x3b
0047 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0048 00ea | | Load_Encached Null_String_Cache
0049 4800 |H | Short_Literal 0x0
004a e402 | | Load 0x2,0x2
004b e0b7 | | Load 0x0,0xb7
004c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
004d e011 | | Load 0x0,0x11
004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0050 e03b | ; | Load 0x0,0x3b
0051 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0052 7865 |xe | Jump 0xb8
0053 4800 |H | Short_Literal 0x0
0054 4800 |H | Short_Literal 0x0
0055 e402 | | Load 0x2,0x2
0056 e0b7 | | Load 0x0,0xb7
0057 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0058 e03b | ; | Load 0x0,0x3b
0059 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
005a 785d |x] | Jump 0xb8
005b 4800 |H | Short_Literal 0x0
005c 4801 |H | Short_Literal 0x1
005d 4800 |H | Short_Literal 0x0
005e e402 | | Load 0x2,0x2
005f e0b8 | | Load 0x0,0xb8
0060 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0061 6809 |h | Jump_Zero 0x6b
0062 4800 |H | Short_Literal 0x0
0063 4801 |H | Short_Literal 0x1
0064 4800 |H | Short_Literal 0x0
0065 e402 | | Load 0x2,0x2
0066 e0b8 | | Load 0x0,0xb8
0067 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0068 e03b | ; | Load 0x0,0x3b
0069 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
006a 784d |xM | Jump 0xb8
006b 0092 00c4 | | Action Push_String_Extended,0xc4 ; "Table_Options Table_Line_Mode"
006d 4800 |H | Short_Literal 0x0
006e e402 | | Load 0x2,0x2
006f e0b7 | | Load 0x0,0xb7
0070 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0071 01cc | | Execute Vector,Catenate
0072 e01c | | Load 0x0,0x1c
0073 180e | | Execute Package,Field_Execute,Field_Number 0xe
0074 7843 |xC | Jump 0xb8
0075 4800 |H | Short_Literal 0x0
0076 4800 |H | Short_Literal 0x0
0077 e402 | | Load 0x2,0x2
0078 e0b7 | | Load 0x0,0xb7
0079 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
007a e03b | ; | Load 0x0,0x3b
007b 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
007c 783b |x; | Jump 0xb8
007d 4800 |H | Short_Literal 0x0
007e 4800 |H | Short_Literal 0x0
007f e402 | | Load 0x2,0x2
0080 e0b7 | | Load 0x0,0xb7
0081 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0082 e03b | ; | Load 0x0,0x3b
0083 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0084 7833 |x3 | Jump 0xb8
0085 4800 |H | Short_Literal 0x0
0086 4800 |H | Short_Literal 0x0
0087 e402 | | Load 0x2,0x2
0088 e0b7 | | Load 0x0,0xb7
0089 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
008a e03b | ; | Load 0x0,0x3b
008b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
008c 782b |x+ | Jump 0xb8
008d 4800 |H | Short_Literal 0x0
008e 4800 |H | Short_Literal 0x0
008f e402 | | Load 0x2,0x2
0090 e0b7 | | Load 0x0,0xb7
0091 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0092 e03b | ; | Load 0x0,0x3b
0093 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0094 7823 |x# | Jump 0xb8
0095 4800 |H | Short_Literal 0x0
0096 4800 |H | Short_Literal 0x0
0097 e402 | | Load 0x2,0x2
0098 e0b7 | | Load 0x0,0xb7
0099 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
009a e03b | ; | Load 0x0,0x3b
009b 380c |8 | Execute Record,Field_Write,Field_Number 0xc
009c 781b |x | Jump 0xb8
009d 00ea | | Load_Encached Null_String_Cache
009e 4800 |H | Short_Literal 0x0
009f e402 | | Load 0x2,0x2
00a0 e0b7 | | Load 0x0,0xb7
00a1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00a2 801b | | Call 0x0,0x1b
00a3 e03b | ; | Load 0x0,0x3b
00a4 3816 |8 | Execute Record,Field_Write,Field_Number 0x16
00a5 7812 |x | Jump 0xb8
00a6 00ea | | Load_Encached Null_String_Cache
00a7 4800 |H | Short_Literal 0x0
00a8 e402 | | Load 0x2,0x2
00a9 e0b7 | | Load 0x0,0xb7
00aa 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00ab 801b | | Call 0x0,0x1b
00ac e03b | ; | Load 0x0,0x3b
00ad 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
00ae 7809 |x | Jump 0xb8
00af 0092 00c5 | | Action Push_String_Extended,0xc5 ; "Table_Options"
00b1 4800 |H | Short_Literal 0x0
00b2 e402 | | Load 0x2,0x2
00b3 e0b7 | | Load 0x0,0xb7
00b4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00b5 01cc | | Execute Vector,Catenate
00b6 e01c | | Load 0x0,0x1c
00b7 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b8 e402 | | Load 0x2,0x2
00b9 e0b7 | | Load 0x0,0xb7
00ba 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00bb c402 | | Store 0x2,0x2
00bc 00c9 | | Action Pop_Auxiliary_Loop
00bd e402 | | Load 0x2,0x2
00be e0b7 | | Load 0x0,0xb7
00bf 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00c0 6f6c |ol | Jump_Zero 0x2d
00c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c2 ; --------------------------------------------------------------------------------------
00c2 ; STRING TABLE
00c2 ; --------------------------------------------------------------------------------------
00c2 000a | | .STRTAB 0x000a->0x00c7 ; "Ignoring Table_Options not bracketed by Begin(Table) and End(Table)"
00c3 004b | K | .STRTAB 0x004b->0x00e8 ; "Argument to Table_Options was unrecognizable"
00c4 0075 | u | .STRTAB 0x0075->0x00fe ; "Table_Options Table_Line_Mode"
00c5 0090 | | .STRTAB 0x0090->0x010d ; "Table_Options"
00c6 009b | | .STREND 0x009b->0x0113
00c7 4967 6e6f |Igno| .STRTAB_STRINGS
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug Table
0118 ; --------------------------------------------------------------------------------------
0118 0004 000f | | .DEBUG4 0x0004,0x000f,0x480b,0x0000,0x0001,0x0000
011e a26b 9269 | k i| .XXX[0xe2]
0120 84e5 ce0a | |
0122 c93d 5068 | =Ph|
0124 8160 c3a3 | ` |
0126 9e64 6b68 | dkh|
0128 3e45 aaf0 |>E |
012a cddb 3e76 | >v|
012c 25e4 1ba9 |% |
012e 33ba b1e9 |3 |
0130 1a0d 7bb0 | { |
0132 6a87 0633 |j 3|
0134 6365 e58e |ce |
0136 55bf 4001 |U @ |
0138 1510 dc2a | *|
013a 9ed7 9d70 | p|
013c f9cd 8fc2 | |
013e b1ed da08 | |
0140 089c e284 | |
0142 7a8b cd18 |z |
0144 5cd3 e3b3 |\ |
0146 7562 dd04 |ub |
0148 0223 3e49 | #>I|
014a 9de7 b128 | (|
014c 8c57 2b7c | W+||
014e 4248 c27a |BH z|
0150 b46c 5299 | lR |
0152 5ca0 b5d0 |\ |
0154 4eeb 4f02 |N O |
0156 15f9 42ab | B |
0158 3f80 cc49 |? I|
015a 1f84 d3ee | |
015c 3350 c217 |3P |
015e 4951 f287 |IQ |
0160 799f 59ce |y Y |
0162 fd68 6029 | h`)|
0164 efda 4b50 | KP|
0166 0524 7360 | $s`|
0168 e7d1 ccae | |
016a d017 34fc | 4 |
016c 8dac f10d | |
016e 473e cccf |G> |
0170 e3cf bbe5 | |
0172 031a 270e | ' |
0174 19b8 0bcf | |
0176 397f 5ff2 |9 _ |
0178 cda8 5869 | Xi|
017a 2ae4 2e1c |* . |
017c 28db fb3d |( =|
017e 6a38 00d0 |j8 |
0180 1ab5 c75c | \|
0182 3c55 9801 |<U |
0184 13f4 7276 | rv|
0186 31da a196 |1 |
0188 8c6a ea01 | j |
018a 9a0f e8e7 | |
018c 81a1 d740 | @|
018e 5969 7d82 |Yi} |
0190 5a88 3c77 |Z <w|
0192 aa4d 0d74 | M t|
0194 6ffd 41d7 |o A |
0196 a3e3 640e | d |
0198 376f 41d3 |7oA |
019a b275 e46c | u l|
019c 2147 d6cc |!G |
019e cd8c 85a9 | |
01a0 11ee f4f9 | |
01a2 125d a134 | ] 4|
01a4 d37d 6cef | }l |
01a6 8c14 7441 | tA|
01a8 b6e3 2283 | " |
01aa 4f3d 8c58 |O= X|
01ac 6fd1 2c7c |o ,||
01ae 0276 202a | v *|
01b0 8fb6 831d | |
01b2 a0a9 47cf | G |
01b4 2c3c e894 |,< |
01b6 a844 b672 | D r|
01b8 d513 75a0 | u |
01ba 4f44 a6d0 |OD |
01bc 7334 0534 |s4 4|
01be 4f36 b8d2 |O6 |
01c0 8574 8d56 | t V|
01c2 49f2 1939 |I 9|
01c4 51b4 da15 |Q |
01c6 3913 fd11 |9 |
01c8 403e 08d0 |@> |
01ca b0d3 058c | |
01cc 2636 8c99 |&6 |
01ce e191 1707 | |
01d0 43f2 5266 |C Rf|
01d2 a226 0c33 | & 3|
01d4 f4de 8e91 | |
01d6 4517 3c61 |E <a|
01d8 7b44 d6d2 |{D |
01da 5300 2c74 |S ,t|
01dc d5d6 8e57 | W|
01de 8119 a656 | V|
01e0 86e7 1ca9 | |
01e2 fcb1 ea1e | |
01e4 79ed 8282 |y |
01e6 4c85 efa2 |L |
01e8 a1a0 7eeb | ~ |
01ea 2bc4 5835 |+ X5|
01ec 70a6 847c |p ||
01ee 660f a289 |f |
01f0 8085 6845 | hE|
01f2 c668 2e9a | h. |
01f4 f60e 19a5 | |
01f6 f746 e61c | F |
01f8 f38c 44f4 | D |
01fa 1023 b82c | # ,|
01fc 2838 7651 |(8vQ|
01fe a1a2 6967 | ig|