|
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
└─ ⟦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 0068 | h | .CONST 0x0068 ; 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 0014 | | .CONST 0x0014 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0005 | | .CONST 0x0005 ; Number of locals
000b INIT_0008:
000b 00e5 | | Load_Encached Long_Integer_Cache
000c 03e9 | | Declare_Variable Discrete,Duplicate
000d 03e9 | | Declare_Variable Discrete,Duplicate
000e e5fe | | Load 0x2,-0x2
000f e5fd | | Load 0x2,-0x3
0010 0273 | s | Execute Discrete,Plus
0011 0aff | | Execute_Immediate Plus,-0x1
0012 00e2 | | Load_Encached Integer_Cache
0013 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0014 BODY_0008:
0014 e5fd | | Load 0x2,-0x3
0015 0c41 | A | Execute_Immediate Greater_Equal,0x41
0016 7003 |p | Jump_Nonzero 0x1a
0017 00d8 | | Load_Top At_Offset_0
0018 0c80 | | Execute_Immediate Greater_Equal,-0x80
0019 6801 |h | Jump_Zero 0x1b
001a 08e0 | | Execute_Immediate Raise,0xe0
001b e5fe | | Load 0x2,-0x2
001c 0c41 | A | Execute_Immediate Greater_Equal,0x41
001d 680e |h | Jump_Zero 0x2c
001e 00e5 | | Load_Encached Long_Integer_Cache
001f e5fd | | Load 0x2,-0x3
0020 e5fe | | Load 0x2,-0x2
0021 0ac0 | | Execute_Immediate Plus,-0x40
0022 00d8 | | Load_Top At_Offset_0
0023 00e3 | | Load_Encached Natural_Cache
0024 0260 | ` | Execute Discrete,In_Type
0025 7001 |p | Jump_Nonzero 0x27
0026 0801 | | Execute_Immediate Raise,0x1
0027 e5ff | | Load 0x2,-0x1
0028 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0029 8212 | | Call 0x1,0x12
002a c402 | | Store 0x2,0x2
002b 7836 |x6 | Jump 0x62
002c 00d8 | | Load_Top At_Offset_0
002d 0d40 | @ | Execute_Immediate Less,0x40
002e 6808 |h | Jump_Zero 0x37
002f 00e5 | | Load_Encached Long_Integer_Cache
0030 e5fd | | Load 0x2,-0x3
0031 e5fe | | Load 0x2,-0x2
0032 e5ff | | Load 0x2,-0x1
0033 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0034 8212 | | Call 0x1,0x12
0035 c402 | | Store 0x2,0x2
0036 782b |x+ | Jump 0x62
0037 00e5 | | Load_Encached Long_Integer_Cache
0038 4840 |H@ | Short_Literal 0x40
0039 e5fe | | Load 0x2,-0x2
003a 0272 | r | Execute Discrete,Minus
003b 00d8 | | Load_Top At_Offset_0
003c 00e3 | | Load_Encached Natural_Cache
003d 0260 | ` | Execute Discrete,In_Type
003e 7001 |p | Jump_Nonzero 0x40
003f 0801 | | Execute_Immediate Raise,0x1
0040 e5fe | | Load 0x2,-0x2
0041 e5ff | | Load 0x2,-0x1
0042 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0043 8212 | | Call 0x1,0x12
0044 005b | [ | Store_Top Discrete,At_Offset_3
0045 00e5 | | Load_Encached Long_Integer_Cache
0046 00d9 | | Load_Top At_Offset_1
0047 0ac1 | | Execute_Immediate Plus,-0x3f
0048 00d8 | | Load_Top At_Offset_0
0049 00e3 | | Load_Encached Natural_Cache
004a 0260 | ` | Execute Discrete,In_Type
004b 7001 |p | Jump_Nonzero 0x4d
004c 0801 | | Execute_Immediate Raise,0x1
004d 4800 |H | Short_Literal 0x0
004e e5ff | | Load 0x2,-0x1
004f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0050 8212 | | Call 0x1,0x12
0051 005a | Z | Store_Top Discrete,At_Offset_2
0052 00e5 | | Load_Encached Long_Integer_Cache
0053 00d9 | | Load_Top At_Offset_1
0054 0ac1 | | Execute_Immediate Plus,-0x3f
0055 00d8 | | Load_Top At_Offset_0
0056 00e2 | | Load_Encached Integer_Cache
0057 0260 | ` | Execute Discrete,In_Type
0058 7001 |p | Jump_Nonzero 0x5a
0059 0801 | | Execute_Immediate Raise,0x1
005a e403 | | Load 0x2,0x3
005b 820e | | Call 0x1,0xe
005c 005b | [ | Store_Top Discrete,At_Offset_3
005d 00e5 | | Load_Encached Long_Integer_Cache
005e 00db | | Load_Top At_Offset_3
005f 00db | | Load_Top At_Offset_3
0060 8211 | | Call 0x1,0x11
0061 c402 | | Store 0x2,0x2
0062 00db | | Load_Top At_Offset_3
0063 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0064 0000 0000 | | .BLANK 0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; Debug Table
0068 ; --------------------------------------------------------------------------------------
0068 0004 0011 | | .DEBUG4 0x0004,0x0011,0x34e0,0x0000,0x0001,0x0000
006e 4020 4c72 |@ Lr| .XXX[0x186]
0070 8000 1b11 | |
0072 82c9 b2a0 | |
0074 1026 39c0 | &9 |
0076 000d 88c1 | |
0078 64ee 5008 |d P |
007a 131d 2000 | |
007c 06c4 60b2 | ` |
007e 7d08 0409 |} |
0080 8eb0 0003 | |
0082 6230 593f |b0Y?|
0084 6402 04c7 |d |
0086 6800 01b1 |h |
0088 182c a1ba | , |
008a 0102 63bc | c |
008c 0000 d88c | |
008e 1651 8100 | Q |
0090 8131 e200 | 1 |
0092 006c 460b | lF |
0094 28e4 8040 |( @|
0096 98f3 0000 | |
0098 3623 0594 |6# |
009a a240 204c | @ L|
009c 7a80 001b |z |
009e 1182 ca78 | x|
00a0 2010 263d | &=|
00a2 c000 0d88 | |
00a4 c165 4250 | eBP|
00a6 0813 1f20 | |
00a8 0006 c460 | `|
00aa b2ae 2804 | ( |
00ac 098f b000 | |
00ae 0362 3059 | b0Y|
00b0 58f4 0204 |X |
00b2 c7e8 0001 | |
00b4 b118 2cae | , |
00b6 0201 0263 | c|
00b8 fc00 00d8 | |
00ba 8c16 57a5 | W |
00bc 0081 3202 | 2 |
00be 0000 6c46 | lF|
00c0 0b2c 1a80 | , |
00c2 4099 0300 |@ |
00c4 0036 2305 | 6# |
00c6 9635 4020 | 5@ |
00c8 4c82 8000 |L |
00ca 1b11 82cb | |
00cc 6620 1026 |f &|
00ce 41c0 000d |A |
00d0 88c1 65dd | e |
00d2 9008 1321 | !|
00d4 2000 06c4 | |
00d6 60b2 f268 |` h|
00d8 0409 90b0 | |
00da 0003 6230 | b0|
00dc 597b 0402 |Y{ |
00de 04c8 6800 | h |
00e0 01b1 182c | ,|
00e2 c002 0102 | |
00e4 643c 0000 |d< |
00e6 d88c 1660 | `|
00e8 3d00 8132 |= 2|
00ea 2200 006c |" l|
00ec 460b 325c |F 2\|
00ee 8040 9913 | @ |
00f0 0000 3623 | 6#|
00f2 0599 5840 | X@|
00f4 204c 8a80 | L |
00f6 001b 1182 | |
00f8 ccba 2010 | |
00fa 2645 c000 |&E |
00fc 0d88 c166 | f|
00fe a5d0 0813 | |
0100 2320 0006 |# |
0102 c460 b37f | ` |
0104 2804 0991 |( |
0106 b000 0362 | b|
0108 3059 c2a4 |0Y |
010a 0204 c8e8 | |
010c 0001 b118 | |
010e 2ce6 5a01 |, Z |
0110 0264 7c00 | d| |
0112 00d8 8c16 | |
0114 743d 0081 |t= |
0116 3242 0000 |2B |
0118 6c46 0b3b |lF ;|
011a 1c80 4099 | @ |
011c 2300 0036 |# 6|
011e 2305 9e42 |# B|
0120 4020 4c92 |@ L |
0122 8000 1b11 | |
0124 82cf 73a0 | s |
0126 1026 49c0 | &I |
0128 000d 88c1 | |
012a 67bd 9008 |g |
012c 1325 2000 | % |
012e 06c4 60b3 | ` |
0130 e728 0409 | ( |
0132 92b0 0003 | |
0134 6230 5a59 |b0ZY|
0136 f402 04c9 | |
0138 6800 01b1 |h |
013a 182d 9fda | - |
013c 0102 64bc | d |
013e 0000 d88c | |
0140 16d1 9100 | |
0142 8132 6200 | 2b |
0144 006c 460b | lF |
0146 6922 8040 |i" @|
0148 9933 0000 | 3 |
014a 3623 05b5 |6# |
014c 0140 204c | @ L|
014e 9a80 001b | |
0150 1182 dcec | |
0152 a010 264d | &M|
0154 c000 0d88 | |
0156 c16f 2f10 | o/ |
0158 0813 2720 | ' |
015a 0006 c460 | `|
015c b7d9 2804 | ( |
015e 0993 b000 | |
0160 0362 305c | b0\|
0162 7f64 0204 | d |
0164 c9e8 0001 | |
0166 b118 2e3f | .?|
0168 c201 0264 | d|
016a fc00 00d8 | |
016c 8c17 1fed | |
016e 0081 3282 | 2 |
0170 0000 6c46 | lF|
0172 0b92 c680 | |
0174 4099 4300 |@ C |
0176 0036 2306 | 6# |
0178 2c52 4020 |,R@ |
017a 4ca2 8000 |L |
017c 1b11 8316 | |
017e 49a0 1026 |I &|
0180 51c0 000d |Q |
0182 88c1 8b36 | 6|
0184 1008 1329 | )|
0186 2000 06c4 | |
0188 60c5 9c68 |` h|
018a 0409 94b0 | |
018c 0003 6230 | b0|
018e 62ce d402 |b |
0190 04ca 6800 | h |
0192 01b1 1831 | 1|
0194 690a 0102 |i |
0196 653c 0000 |e< |
0198 d88c 18b4 | |
019a a900 8132 | 2|
019c a200 006c | l|
019e 460c 5a7e |F Z~|
01a0 8040 9953 | @ S|
01a2 0000 3623 | 6#|
01a4 062d 4740 | -G@|
01a6 204c aa80 | L |
01a8 001b 1183 | |
01aa 16a7 a010 | |
01ac 2655 c000 |&U |
01ae 0d88 c18b | |
01b0 58d0 0813 |X |
01b2 2b20 0006 |+ |
01b4 c460 c5b0 | ` |
01b6 6804 0995 |h |
01b8 b000 0362 | b|
01ba 3062 d9e4 |0b |
01bc 0204 cae8 | |
01be 0001 b118 | |
01c0 316d 9201 |1m |
01c2 0265 7c00 | e| |
01c4 00d8 8c18 | |
01c6 b759 0081 | Y |
01c8 32c2 0000 |2 |
01ca 6c46 0c5c |lF \|
01cc e480 4099 | @ |
01ce 6300 0036 |c 6|
01d0 2306 2e79 |# .y|
01d2 4020 4cb2 |@ L |
01d4 8000 1b11 | |
01d6 8317 4320 | C |
01d8 1026 59c0 | &Y |
01da 000d 88c1 | |
01dc 8ba8 5008 | P |
01de 132d 2000 | - |
01e0 06c4 60c5 | ` |
01e2 d648 0409 | H |
01e4 96b0 0003 | |
01e6 6230 62eb |b0b |
01e8 d402 04cb | |
01ea 6800 01b1 |h |
01ec 1831 7ef2 | 1~ |
01ee 0102 65bc | e |
01f0 0000 d88c | |
01f2 18bf 7c00 | | |
01f4 0000 0000 | | .BLANK 0000[0xc]