|
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_0694fc
└─⟦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 0100 | | .CONST 0x0100 ; 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 0032 | 2 | .CONST 0x0032 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 e001 | | Load 0x0,0x1
0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0018 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0019 0129 | ) | Execute Any,Make_Visible
001a c20f | | Store 0x1,0xf
001b e001 | | Load 0x0,0x1
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
001e 0129 | ) | Execute Any,Make_Visible
001f c210 | | Store 0x1,0x10
0020 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0022 c213 | | Store 0x1,0x13
0023 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0025 c212 | | Store 0x1,0x12
0026 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0028 c216 | | Store 0x1,0x16
0029 00bf | | Action Accept_Activation
002a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
002b 00c7 | | Action Elaborate_Subprogram
002c 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call
002e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002f 00c7 | | Action Elaborate_Subprogram
0030 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0031 00c7 | | Action Elaborate_Subprogram
0032 BODY_0008:
0032 00bc | | Action Signal_Activated
0033 00bb | | Action Signal_Completion
0034 0000 0000 | | .BLANK 0000[0x4]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0040 | @ | .CONST 0x0040 ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0002 | | .CONST 0x0002 ; Number of locals
003b INIT_0038:
003b 00da | | Load_Top At_Offset_2
003c e001 | | Load 0x0,0x1
003d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
003f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0040 BODY_0038:
0040 00d8 | | Load_Top At_Offset_0
0041 e002 | | Load 0x0,0x2
0042 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0043 027f | | Execute Discrete,Equal
0044 00d9 | | Load_Top At_Offset_1
0045 e002 | | Load 0x0,0x2
0046 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0047 027f | | Execute Discrete,Equal
0048 0278 | x | Execute Discrete,Or
0049 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
004a 0000 0000 | | .BLANK 0000[0x6]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0063 | c | .CONST 0x0063 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0005 | | .CONST 0x0005 ; Number of locals
0053 INIT_0050:
0053 e210 | | Load 0x1,0x10
0054 02c7 | | Declare_Variable Any
0055 4801 |H | Short_Literal 0x1
0056 e5ff | | Load 0x2,-0x1
0057 8218 | | Call 0x1,0x18
0058 a402 | | Store_Unchecked 0x2,0x2
0059 e003 | | Load 0x0,0x3
005a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005b 02c7 | | Declare_Variable Any
005c e003 | | Load 0x0,0x3
005d 180f | | Execute Package,Field_Execute,Field_Number 0xf
005e a403 | | Store_Unchecked 0x2,0x3
005f 00e1 | | Load_Encached Boolean_Cache
0060 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0061 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
0063 BODY_0050:
0063 00cf | | Action Mark_Auxiliary
0064 7802 |x | Jump 0x67
0065 8405 | | Call 0x2,0x5
0066 00c9 | | Action Pop_Auxiliary_Loop
0067 e402 | | Load 0x2,0x2
0068 e001 | | Load 0x0,0x1
0069 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
006b 6ff9 |o | Jump_Zero 0x65
006c 00ce | | Action Pop_Auxiliary
006d 00da | | Load_Top At_Offset_2
006e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006f 0000 | | .XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0083 | | .CONST 0x0083 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0004 | | .CONST 0x0004 ; Number of locals
0073 INIT_0070:
0073 e210 | | Load 0x1,0x10
0074 02c7 | | Declare_Variable Any
0075 4801 |H | Short_Literal 0x1
0076 e5ff | | Load 0x2,-0x1
0077 0092 00fd | | Action Push_String_Extended,0xfd ; "@"
0079 e004 | | Load 0x0,0x4
007a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
007b a402 | | Store_Unchecked 0x2,0x2
007c e210 | | Load 0x1,0x10
007d 02c7 | | Declare_Variable Any
007e e001 | | Load 0x0,0x1
007f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0080 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0081 a403 | | Store_Unchecked 0x2,0x3
0082 00e1 | | Load_Encached Boolean_Cache
0083 BODY_0070:
0083 00cf | | Action Mark_Auxiliary
0084 7817 |x | Jump 0x9c
0085 00db | | Load_Top At_Offset_3
0086 e001 | | Load 0x0,0x1
0087 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0088 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0089 e005 | | Load 0x0,0x5
008a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
008b 680a |h | Jump_Zero 0x96
008c 00db | | Load_Top At_Offset_3
008d e001 | | Load 0x0,0x1
008e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0090 e005 | | Load 0x0,0x5
0091 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0092 00db | | Load_Top At_Offset_3
0093 e003 | | Load 0x0,0x3
0094 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0095 c403 | | Store 0x2,0x3
0096 00db | | Load_Top At_Offset_3
0097 e001 | | Load 0x0,0x1
0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0099 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
009a c402 | | Store 0x2,0x2
009b 00c9 | | Action Pop_Auxiliary_Loop
009c 00db | | Load_Top At_Offset_3
009d e001 | | Load 0x0,0x1
009e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00a0 6fe4 |o | Jump_Zero 0x85
00a1 00ce | | Action Pop_Auxiliary
00a2 00da | | Load_Top At_Offset_2
00a3 e001 | | Load 0x0,0x1
00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00a6 00d9 | | Load_Top At_Offset_1
00a7 00db | | Load_Top At_Offset_3
00a8 e003 | | Load 0x0,0x3
00a9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00aa c403 | | Store 0x2,0x3
00ab 00d9 | | Load_Top At_Offset_1
00ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00bf | | .CONST 0x00bf ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0003 | | .CONST 0x0003 ; Number of locals
00b3 INIT_00b0:
00b3 e210 | | Load 0x1,0x10
00b4 02c7 | | Declare_Variable Any
00b5 e5fe | | Load 0x2,-0x2
00b6 e5ff | | Load 0x2,-0x1
00b7 8216 | | Call 0x1,0x16
00b8 a402 | | Store_Unchecked 0x2,0x2
00b9 e003 | | Load 0x0,0x3
00ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bb 02c7 | | Declare_Variable Any
00bc e003 | | Load 0x0,0x3
00bd 180f | | Execute Package,Field_Execute,Field_Number 0xf
00be a403 | | Store_Unchecked 0x2,0x3
00bf BODY_00b0:
00bf 00cf | | Action Mark_Auxiliary
00c0 7810 |x | Jump 0xd1
00c1 00da | | Load_Top At_Offset_2
00c2 e001 | | Load 0x0,0x1
00c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00c5 e005 | | Load 0x0,0x5
00c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c7 00da | | Load_Top At_Offset_2
00c8 e003 | | Load 0x0,0x3
00c9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ca c403 | | Store 0x2,0x3
00cb 00da | | Load_Top At_Offset_2
00cc e001 | | Load 0x0,0x1
00cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ce 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00cf c402 | | Store 0x2,0x2
00d0 00c9 | | Action Pop_Auxiliary_Loop
00d1 00da | | Load_Top At_Offset_2
00d2 e001 | | Load 0x0,0x1
00d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00d5 6feb |o | Jump_Zero 0xc1
00d6 00ce | | Action Pop_Auxiliary
00d7 00d8 | | Load_Top At_Offset_0
00d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ec | | .CONST 0x00ec ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 e402 | | Load 0x2,0x2
00e4 e001 | | Load 0x0,0x1
00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00e7 e001 | | Load 0x0,0x1
00e8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ea e20f | | Load 0x1,0xf
00eb 011e | | Execute Any,Convert
00ec BODY_00e0:
00ec e5ff | | Load 0x2,-0x1
00ed 00d9 | | Load_Top At_Offset_1
00ee e001 | | Load 0x0,0x1
00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00f1 7005 |p | Jump_Nonzero 0xf7
00f2 e403 | | Load 0x2,0x3
00f3 00d9 | | Load_Top At_Offset_1
00f4 e003 | | Load 0x0,0x3
00f5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f6 c403 | | Store 0x2,0x3
00f7 e402 | | Load 0x2,0x2
00f8 e001 | | Load 0x0,0x1
00f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fa 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00fb c402 | | Store 0x2,0x2
00fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00fd ; --------------------------------------------------------------------------------------
00fd ; STRING TABLE
00fd ; --------------------------------------------------------------------------------------
00fd 0004 | | .STRTAB 0x0004->0x00ff ; "@"
00fe 0003 | | .STREND 0x0003->0x00ff
00ff 4000 |@ | .STRTAB_STRINGS
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug Table
0100 ; --------------------------------------------------------------------------------------
0100 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0ecf,0x0000,0x0001,0x0000
0106 a848 caeb | H | .XXX[0xfa]
0108 5852 f001 |XR |
010a a284 6822 | h"|
010c 4068 dc99 |@h |
010e 0a89 cae7 | |
0110 604f 0c01 |`O |
0112 e2bd dc31 | 1|
0114 1c01 4e3e | N>|
0116 dd11 d401 | |
0118 884e ad22 | N "|
011a aab4 3055 | 0U|
011c 3c38 a91b |<8 |
011e 82e4 a0bf | |
0120 8001 7084 | p |
0122 da18 b023 | #|
0124 5021 cae4 |P! |
0126 e004 1932 | 2|
0128 02e3 f5eb | |
012a 8d7d 7ae2 | }z |
012c 3aeb 1c8b |: |
012e b00b 600a | ` |
0130 313c d802 |1< |
0132 16d4 ea2f | /|
0134 82c5 4c33 | L3|
0136 d819 8575 | u|
0138 d802 bdf6 | |
013a 7877 5675 |xwVu|
013c 8000 76da | v |
013e 0d62 a089 | b |
0140 14b7 fc18 | |
0142 d932 1243 | 2 C|
0144 c51b f2d5 | |
0146 80f4 9a70 | p|
0148 be4c 5c1d | L\ |
014a 84dd e2c4 | |
014c 8d60 1801 | ` |
014e 7ea7 0ca7 |~ |
0150 c8f3 b23f | ?|
0152 b818 5129 | Q)|
0154 79f8 4c07 |y L |
0156 cd8f d021 | !|
0158 942c 3670 | ,6p|
015a 987a 5acc | zZ |
015c de73 7aea | sz |
015e cc95 aecc | |
0160 d630 5493 | 0T |
0162 9681 f455 | U|
0164 b143 0adc | C |
0166 8001 8402 | |
0168 2425 6ad6 |$%j |
016a beb6 8001 | |
016c c4b4 fcd9 | |
016e de8d f4a6 | |
0170 3e6d 0a6e |>m n|
0172 36e8 30a0 |6 0 |
0174 36ec 3088 |6 0 |
0176 d802 0a15 | |
0178 5ed8 010f |^ |
017a 1c2b feeb | + |
017c 8000 1a71 | q|
017e 16e1 f6e8 | |
0180 8002 5c01 | \ |
0182 d860 1aed | ` |
0184 8001 2e1c | . |
0186 eecd c80b | |
0188 850a 1e88 | |
018a 1c00 36ee | 6 |
018c 7695 4ae1 |v J |
018e ae50 7ae8 | Pz |
0190 023b 1cbd | ; |
0192 b021 9802 | ! |
0194 4ac1 9a2d |J -|
0196 7c68 dcef ||h |
0198 301d b400 |0 |
019a e2db 860b | |
019c 781f 507d |x P}|
019e c008 5c33 | \3|
01a0 310c fad8 |1 |
01a2 ca0f 8048 | H|
01a4 7c03 707d || p}|
01a6 d800 3422 | 4"|
01a8 2401 a0bc |$ |
01aa 8021 d800 | ! |
01ac 5ec8 5c1e |^ \ |
01ae 4c00 6acb |L j |
01b0 c1cd 1175 | u|
01b2 e9fe 350c | 5 |
01b4 36ef 5e35 |6 ^5|
01b6 1231 01ec | 1 |
01b8 ced1 7ebc | ~ |
01ba 00eb 2c31 | ,1|
01bc 683b 54db |h;T |
01be a2e8 16e8 | |
01c0 1c3f 4d2c | ?M,|
01c2 8514 7c03 | | |
01c4 c8c8 0003 | |
01c6 d1a7 2000 | |
01c8 92e7 6242 | bB|
01ca 5ee8 c421 |^ !|
01cc 6231 5a7b |b1Z{|
01ce 9ae9 79e4 | y |
01d0 b6e5 443b | D;|
01d2 c241 8848 | A H|
01d4 78eb 6000 |x ` |
01d6 dae6 501d | P |
01d8 6c03 9c03 |l |
01da 29a4 0ae9 |) |
01dc eeec 7a44 | zD|
01de 1000 5a18 | Z |
01e0 8645 09d8 | E |
01e2 89b9 527e | R~|
01e4 669a f96a |f j|
01e6 6a7a f4df |jz |
01e8 7aea ea04 |z |
01ea 86dc 4a12 | J |
01ec 76c9 108c |v |
01ee 85f1 3002 | 0 |
01f0 45b2 8aca |E |
01f2 c000 e955 | U|
01f4 f6e5 82e5 | |
01f6 7ebd 6838 |~ h8|
01f8 46d2 381f |F 8 |
01fa ed68 dc03 | h |
01fc b67c c40f | | |
01fe c277 d1f3 | w |