|
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 00e8 | | .CONST 0x00e8 ; 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 003b | ; | .CONST 0x003b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0011 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0013 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0019 c213 | | Store 0x1,0x13
001a 00bf | | Action Accept_Activation
001b e001 | | Load 0x0,0x1
001c e002 | | Load 0x0,0x2
001d e003 | | Load 0x0,0x3
001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001f e004 | | Load 0x0,0x4
0020 0387 | | Declare_Variable Package
0021 00d8 | | Load_Top At_Offset_0
0022 020f | | Execute Module,Activate
0023 e005 | | Load 0x0,0x5
0024 e006 | | Load 0x0,0x6
0025 e003 | | Load 0x0,0x3
0026 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0027 e004 | | Load 0x0,0x4
0028 0387 | | Declare_Variable Package
0029 00d8 | | Load_Top At_Offset_0
002a 020f | | Execute Module,Activate
002b 00d9 | | Load_Top At_Offset_1
002c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
002d 00d9 | | Load_Top At_Offset_1
002e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
002f 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0030 00c7 | | Action Elaborate_Subprogram
0031 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0032 00c7 | | Action Elaborate_Subprogram
0033 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0034 00c7 | | Action Elaborate_Subprogram
0035 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0036 00c7 | | Action Elaborate_Subprogram
0037 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0038 00c7 | | Action Elaborate_Subprogram
0039 1d13 | | Execute_Immediate Reference_Lex_1,0x13
003a 00c7 | | Action Elaborate_Subprogram
003b BODY_0008:
003b 00bc | | Action Signal_Activated
003c 00bb | | Action Signal_Completion
003d 0000 0000 | | .XXX[0x3]
003f 0000 | |
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 e216 | | Load 0x1,0x16
0044 e003 | | Load 0x0,0x3
0045 180e | | Execute Package,Field_Execute,Field_Number 0xe
0046 e214 | | Load 0x1,0x14
0047 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0048 c216 | | Store 0x1,0x16
0049 e217 | | Load 0x1,0x17
004a e003 | | Load 0x0,0x3
004b 180e | | Execute Package,Field_Execute,Field_Number 0xe
004c e003 | | Load 0x0,0x3
004d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
004e e215 | | Load 0x1,0x15
004f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0050 c217 | | Store 0x1,0x17
0051 00da | | Load_Top At_Offset_2
0052 e003 | | Load 0x0,0x3
0053 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0054 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0065 | e | .CONST 0x0065 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0003 | | .CONST 0x0003 ; Number of locals
005b INIT_0058:
005b e007 | | Load 0x0,0x7
005c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
005d 02c7 | | Declare_Variable Any
005e 00d8 | | Load_Top At_Offset_0
005f 1c00 | | Execute_Immediate Run_Utility,0x0
0060 e003 | | Load 0x0,0x3
0061 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0062 02c7 | | Declare_Variable Any
0063 00d8 | | Load_Top At_Offset_0
0064 1c00 | | Execute_Immediate Run_Utility,0x0
0065 BODY_0058:
0065 00d9 | | Load_Top At_Offset_1
0066 00d9 | | Load_Top At_Offset_1
0067 0120 | | Execute Any,Is_Value
0068 6803 |h | Jump_Zero 0x6c
0069 e003 | | Load 0x0,0x3
006a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006b 7801 |x | Jump 0x6d
006c 00d9 | | Load_Top At_Offset_1
006d e5ff | | Load 0x2,-0x1
006e e003 | | Load 0x0,0x3
006f 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
0070 c403 | | Store 0x2,0x3
0071 c402 | | Store 0x2,0x2
0072 4801 |H | Short_Literal 0x1
0073 00da | | Load_Top At_Offset_2
0074 e007 | | Load 0x0,0x7
0075 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0076 6808 |h | Jump_Zero 0x7f
0077 e003 | | Load 0x0,0x3
0078 180e | | Execute Package,Field_Execute,Field_Number 0xe
0079 00da | | Load_Top At_Offset_2
007a e008 | | Load 0x0,0x8
007b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
007c e003 | | Load 0x0,0x3
007d 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
007e 0257 | W | Execute Discrete,Raise
007f 00d8 | | Load_Top At_Offset_0
0080 820d | | Call 0x1,0xd
0081 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0082 0000 0000 | | .BLANK 0000[0x6]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 009e | | .CONST 0x009e ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b e216 | | Load 0x1,0x16
008c e214 | | Load 0x1,0x14
008d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
008e e003 | | Load 0x0,0x3
008f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0090 e217 | | Load 0x1,0x17
0091 e215 | | Load 0x1,0x15
0092 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0093 e003 | | Load 0x0,0x3
0094 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0095 e216 | | Load 0x1,0x16
0096 e214 | | Load 0x1,0x14
0097 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0098 c216 | | Store 0x1,0x16
0099 e217 | | Load 0x1,0x17
009a e215 | | Load 0x1,0x15
009b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009c c217 | | Store 0x1,0x17
009d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009e TRAP_0088:
009e 0007 | | Action Break_Optional
009f 0092 00cd | | Action Push_String_Extended,0xcd ; "internal error popping the response stack"
00a1 e009 | | Load 0x0,0x9
00a2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab e003 | | Load 0x0,0x3
00ac 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
00ad 00ca | | Action Exit_Nullary_Function
00ae 0000 0000 | | .XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 e003 | | Load 0x0,0x3
00b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b5 e003 | | Load 0x0,0x3
00b6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00b7 00ca | | Action Exit_Nullary_Function
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e216 | | Load 0x1,0x16
00bc e003 | | Load 0x0,0x3
00bd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00be e214 | | Load 0x1,0x14
00bf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c0 c216 | | Store 0x1,0x16
00c1 e217 | | Load 0x1,0x17
00c2 e003 | | Load 0x0,0x3
00c3 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c4 e003 | | Load 0x0,0x3
00c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c6 e215 | | Load 0x1,0x15
00c7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c8 c217 | | Store 0x1,0x17
00c9 4801 |H | Short_Literal 0x1
00ca e003 | | Load 0x0,0x3
00cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00cd ; --------------------------------------------------------------------------------------
00cd ; STRING TABLE
00cd ; --------------------------------------------------------------------------------------
00cd 0004 | | .STRTAB 0x0004->0x00cf ; "internal error popping the response stack"
00ce 002b | + | .STREND 0x002b->0x00e3
00cf 696e 7465 |inte| .STRTAB_STRINGS
00e4 0000 0000 | | .BLANK 0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; Debug Table
00e8 ; --------------------------------------------------------------------------------------
00e8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0e57,0x0000,0x0001,0x0000
00ee ac66 0fbd | f | .XXX[0x112]
00f0 3cb5 0107 |< |
00f2 5403 a404 |T |
00f4 86a0 7c13 | | |
00f6 8004 9ac0 | |
00f8 1798 0c30 | 0|
00fa 3c75 7179 |<uqy|
00fc f100 7e13 | ~ |
00fe 00fd c03b | ;|
0100 c004 1400 | |
0102 b731 004d | 1 M|
0104 d6a0 c044 | D|
0106 0089 32e2 | 2 |
0108 c81d 2880 | ( |
010a 4312 3106 |C 1 |
010c 402e a30c |@. |
010e 7be0 b799 |{ |
0110 bc32 e22a | 2 *|
0112 b18a ff92 | |
0114 7808 0152 |x R|
0116 1aa6 a1c6 | |
0118 07db 442c | D,|
011a 215b 6784 |![g |
011c 0deb 0051 | Q|
011e 18c1 27c8 | ' |
0120 7fe3 00bc | |
0122 2183 3bc2 |! ; |
0124 0984 88c5 | |
0126 22ec 687c |" h||
0128 038d 7483 | t |
012a 98c2 c6c0 | |
012c d6a2 a0e1 | |
012e 8430 e004 | 0 |
0130 54c0 14b2 |T |
0132 bcfe 4039 | @9|
0134 3b7c 9a20 |;| |
0136 a21e 8058 | X|
0138 6a35 cec2 |j5 |
013a f32a 7d03 | *} |
013c e00f 8c80 | |
013e 10f8 7983 | y |
0140 a1f1 c07b | {|
0142 25c8 5231 |% R1|
0144 804e 309d | N0 |
0146 10c0 f209 | |
0148 10d8 306e | 0n|
014a 4320 eed4 |C |
014c 3dd4 021b |= |
014e 3b5f f301 |;_ |
0150 6204 01be |b |
0152 a224 a820 | $ |
0154 0df2 5f14 | _ |
0156 08c4 c2a0 | |
0158 7802 0d51 |x Q|
015a 43d0 1209 |C |
015c 6784 5922 |g Y"|
015e 907a c20f | z |
0160 c0dc 1810 | |
0162 88b1 11bf | |
0164 6e08 00b0 |n |
0166 d40b 8356 | V|
0168 113b cc0c | ; |
016a 1dd8 a0a5 | |
016c c414 0402 | |
016e 78a0 0299 |x |
0170 ec0d 57be | W |
0172 5676 0793 |Vv |
0174 1fd4 590f | Y |
0176 056c 60ae | l` |
0178 3b51 a4fe |;Q |
017a 8a83 f423 | #|
017c 0080 4014 | @ |
017e 1400 4ac0 | J |
0180 03d0 101a | |
0182 f906 1ca8 | |
0184 48ce 2654 |H &T|
0186 8208 f21b | |
0188 b9e3 6bc7 | k |
018a 6116 6220 |a b |
018c a181 0ae6 | |
018e 9c5f d904 | _ |
0190 0040 fa3a | @ :|
0192 34c9 b48c |4 |
0194 6301 2861 |c (a|
0196 0496 6810 | h |
0198 ea0d 6510 | e |
019a 5102 0026 |Q &|
019c 5c02 5cce |\ \ |
019e 183f bf94 | ? |
01a0 b2f5 225f | "_|
01a2 81e2 493c | I<|
01a4 880b a4a8 | |
01a6 5446 01e1 |TF |
01a8 4448 8206 |DH |
01aa 9c64 09d9 | d |
01ac 80e7 4207 | B |
01ae 2c17 2e31 |, .1|
01b0 5397 6a2d |S j-|
01b2 5bb0 9a9a |[ |
01b4 23b0 53d8 |# S |
01b6 f85c 9601 | \ |
01b8 e504 4442 | DB|
01ba 329e 7d60 |2 }`|
01bc 0190 811e | |
01be 41ed af3f |A ?|
01c0 58f2 7bfa |X { |
01c2 d1cf 0303 | |
01c4 f0a1 4d9c | M |
01c6 287f 3004 |( 0 |
01c8 ff1b c971 | q|
01ca 1709 8c7f | |
01cc d580 7b50 | {P|
01ce c022 9a9c | " |
01d0 6b7c bbe2 |k| |
01d2 06ee 8075 | u|
01d4 a2bd 6f63 | oc|
01d6 0a61 6488 | ad |
01d8 2008 6d27 | m'|
01da eec4 0a7c | ||
01dc 1c00 904f | O|
01de 3400 15e1 |4 |
01e0 324a 6315 |2Jc |
01e2 ac43 7860 | Cx`|
01e4 5943 9012 |YC |
01e6 d044 5b00 | D[ |
01e8 026a 042d | j -|
01ea c88d 2300 | # |
01ec 1f5c 8016 | \ |
01ee b428 a204 | ( |
01f0 05a9 78d9 | x |
01f2 c856 ba3d | V =|
01f4 4ca4 9699 |L |
01f6 921d d951 | Q|
01f8 a5c0 585c | X\|
01fa bc26 e204 | & |
01fc e648 1bc1 | H |
01fe 0f02 8d6a | j|