|
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 0108 | | .CONST 0x0108 ; 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 0034 | 4 | .CONST 0x0034 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0011 4801 |H | Short_Literal 0x1
0012 032a | * | Declare_Type Record,Incomplete
0013 00d8 | | Load_Top At_Offset_0
0014 02a0 | | Declare_Subprogram Null_Subprogram
0015 e20d | | Load 0x1,0xd
0016 03c7 | | Complete_Type Access,By_Defining
0017 00bf | | Action Accept_Activation
0018 00e9 | | Load_Encached String_Cache
0019 02a0 | | Declare_Subprogram Null_Subprogram
001a 4818 |H | Short_Literal 0x18
001b 03d3 | | Declare_Type Access,Defined,Accesses_Protected
001c e001 | | Load 0x0,0x1
001d e002 | | Load 0x0,0x2
001e 49f4 |I | Short_Literal 0x1f4
001f 00db | | Load_Top At_Offset_3
0020 4801 |H | Short_Literal 0x1
0021 e003 | | Load 0x0,0x3
0022 0387 | | Declare_Variable Package
0023 00d8 | | Load_Top At_Offset_0
0024 020f | | Execute Module,Activate
0025 00d8 | | Load_Top At_Offset_0
0026 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0027 02a0 | | Declare_Subprogram Null_Subprogram
0028 e210 | | Load 0x1,0x10
0029 0326 | & | Complete_Type Record,By_Defining
002a 0092 00f5 | | Action Push_String_Extended,0xf5 ; "=>"
002c 029d 008b | | Declare_Subprogram INIT_0088,For_Outer_Call
002e 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call
0030 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0031 00c7 | | Action Elaborate_Subprogram
0032 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0033 00c7 | | Action Elaborate_Subprogram
0034 BODY_0008:
0034 00bc | | Action Signal_Activated
0035 00bb | | Action Signal_Completion
0036 0000 0000 | | .XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0042 | B | .CONST 0x0042 ; Address of begin
0039 0065 | e | .CONST 0x0065 ; Address of exception handler
003a 0003 | | .CONST 0x0003 ; Number of locals
003b INIT_0038:
003b e004 | | Load 0x0,0x4
003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003d 02c7 | | Declare_Variable Any
003e 00d8 | | Load_Top At_Offset_0
003f 1c00 | | Execute_Immediate Run_Utility,0x0
0040 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0042 BODY_0038:
0042 e5fe | | Load 0x2,-0x2
0043 700c |p | Jump_Nonzero 0x50
0044 e20d | | Load 0x1,0xd
0045 03bc | | Declare_Variable Access,By_Allocation
0046 a5fe | | Store_Unchecked 0x2,-0x2
0047 e5fe | | Load 0x2,-0x2
0048 0229 | ) | Execute Access,All_Read
0049 e212 | | Load 0x1,0x12
004a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
004b e212 | | Load 0x1,0x12
004c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
004d 00d9 | | Load_Top At_Offset_1
004e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004f 00d1 | | Pop_Control Pop_Count_1
0050 00d9 | | Load_Top At_Offset_1
0051 00ea | | Load_Encached Null_String_Cache
0052 e5ff | | Load 0x2,-0x1
0053 4800 |H | Short_Literal 0x0
0054 e004 | | Load 0x0,0x4
0055 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0056 c402 | | Store 0x2,0x2
0057 00cf | | Action Mark_Auxiliary
0058 7802 |x | Jump 0x5b
0059 8403 | | Call 0x2,0x3
005a 00c9 | | Action Pop_Auxiliary_Loop
005b 00da | | Load_Top At_Offset_2
005c e004 | | Load 0x0,0x4
005d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
005e 6ffa |o | Jump_Zero 0x59
005f 00ce | | Action Pop_Auxiliary
0060 00d9 | | Load_Top At_Offset_1
0061 e004 | | Load 0x0,0x4
0062 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0063 c402 | | Store 0x2,0x2
0064 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0065 TRAP_0038:
0065 00d8 | | Load_Top At_Offset_0
0066 0107 | | Execute Exception,Get_Name
0067 4920 |I | Short_Literal 0x120
0068 492f |I/ | Short_Literal 0x12f
0069 0262 | b | Execute Discrete,In_Range
006a 6801 |h | Jump_Zero 0x6c
006b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
006c 0100 | | Execute Exception,Raise
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 007d | } | .CONST 0x007d ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00db | | Load_Top At_Offset_3
0074 00db | | Load_Top At_Offset_3
0075 0227 | ' | Execute Access,All_Reference
0076 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0077 e212 | | Load 0x1,0x12
0078 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0079 0227 | ' | Execute Access,All_Reference
007a 0335 | 5 | Declare_Variable Array,Duplicate
007b 00cd | | Action Spare6_Action
007c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
007d TRAP_0070:
007d e212 | | Load 0x1,0x12
007e 1b20 | | Execute Package,Field_Read,Field_Number 0x20
007f 010f | | Execute Exception,Equal
0080 6804 |h | Jump_Zero 0x85
0081 e5fe | | Load 0x2,-0x2
0082 0335 | 5 | Declare_Variable Array,Duplicate
0083 00cd | | Action Spare6_Action
0084 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0085 0100 | | Execute Exception,Raise
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0092 | | .CONST 0x0092 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b 4801 |H | Short_Literal 0x1
008c 00db | | Load_Top At_Offset_3
008d e213 | | Load 0x1,0x13
008e e005 | | Load 0x0,0x5
008f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0090 00e3 | | Load_Encached Natural_Cache
0091 03f1 | | Declare_Variable Discrete,With_Value
0092 BODY_0088:
0092 00d8 | | Load_Top At_Offset_0
0093 0c01 | | Execute_Immediate Greater_Equal,0x1
0094 680a |h | Jump_Zero 0x9f
0095 4820 |H | Short_Literal 0x20
0096 e5ff | | Load 0x2,-0x1
0097 01dd | | Execute Vector,First
0098 00da | | Load_Top At_Offset_2
0099 0aff | | Execute_Immediate Plus,-0x1
009a e5ff | | Load 0x2,-0x1
009b 01cf | | Execute Vector,Slice_Read
009c e005 | | Load 0x0,0x5
009d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009f e006 | | Load 0x0,0x6
00a0 0257 | W | Execute Discrete,Raise
00a1 0000 0000 | | .BLANK 0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b2 | | .CONST 0x00b2 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab 4801 |H | Short_Literal 0x1
00ac 00db | | Load_Top At_Offset_3
00ad e213 | | Load 0x1,0x13
00ae e005 | | Load 0x0,0x5
00af 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00b0 00e3 | | Load_Encached Natural_Cache
00b1 03f1 | | Declare_Variable Discrete,With_Value
00b2 BODY_00a8:
00b2 00d8 | | Load_Top At_Offset_0
00b3 0c01 | | Execute_Immediate Greater_Equal,0x1
00b4 680f |h | Jump_Zero 0xc4
00b5 4820 |H | Short_Literal 0x20
00b6 00d9 | | Load_Top At_Offset_1
00b7 0a02 | | Execute_Immediate Plus,0x2
00b8 00d8 | | Load_Top At_Offset_0
00b9 00e2 | | Load_Encached Integer_Cache
00ba 0260 | ` | Execute Discrete,In_Type
00bb 7001 |p | Jump_Nonzero 0xbd
00bc 0801 | | Execute_Immediate Raise,0x1
00bd e5ff | | Load 0x2,-0x1
00be 01dc | | Execute Vector,Last
00bf e5ff | | Load 0x2,-0x1
00c0 01cf | | Execute Vector,Slice_Read
00c1 e005 | | Load 0x0,0x5
00c2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c4 e006 | | Load 0x0,0x6
00c5 0257 | W | Execute Discrete,Raise
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d0 | | .CONST 0x00d0 ; Address of begin
00c9 00e6 | | .CONST 0x00e6 ; Address of exception handler
00ca 0003 | | .CONST 0x0003 ; Number of locals
00cb INIT_00c8:
00cb e402 | | Load 0x2,0x2
00cc e004 | | Load 0x0,0x4
00cd 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
00ce e211 | | Load 0x1,0x11
00cf 0007 | | Action Break_Optional
00d0 BODY_00c8:
00d0 00d9 | | Load_Top At_Offset_1
00d1 01db | | Execute Vector,Length
00d2 6812 |h | Jump_Zero 0xe5
00d3 00d9 | | Load_Top At_Offset_1
00d4 8215 | | Call 0x1,0x15
00d5 e211 | | Load 0x1,0x11
00d6 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00d7 0039 | 9 | Store_Top Access,At_Offset_1
00d8 e5fe | | Load 0x2,-0x2
00d9 0229 | ) | Execute Access,All_Read
00da 00d8 | | Load_Top At_Offset_0
00db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00dc 4800 |H | Short_Literal 0x0
00dd 00db | | Load_Top At_Offset_3
00de e602 | | Load 0x3,0x2
00df 8214 | | Call 0x1,0x14
00e0 e212 | | Load 0x1,0x12
00e1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00e2 00d9 | | Load_Top At_Offset_1
00e3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e4 00d1 | | Pop_Control Pop_Count_1
00e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e6 TRAP_00c8:
00e6 e006 | | Load 0x0,0x6
00e7 010f | | Execute Exception,Equal
00e8 680b |h | Jump_Zero 0xf4
00e9 4800 |H | Short_Literal 0x0
00ea 4800 |H | Short_Literal 0x0
00eb 4805 |H | Short_Literal 0x5
00ec 0092 00f6 | | Action Push_String_Extended,0xf6 ; "Invalid line in name map: "
00ee e5ff | | Load 0x2,-0x1
00ef 01cc | | Execute Vector,Catenate
00f0 00ea | | Load_Encached Null_String_Cache
00f1 e007 | | Load 0x0,0x7
00f2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f4 0100 | | Execute Exception,Raise
00f5 ; --------------------------------------------------------------------------------------
00f5 ; STRING TABLE
00f5 ; --------------------------------------------------------------------------------------
00f5 0006 | | .STRTAB 0x0006->0x00f8 ; "=>"
00f6 0006 | | .STRTAB 0x0006->0x00f9 ; "Invalid line in name map: "
00f7 001e | | .STREND 0x001e->0x0106
00f8 3d3e 496e |=>In| .STRTAB_STRINGS
0106 0000 0000 | | .XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; Debug Table
0108 ; --------------------------------------------------------------------------------------
0108 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfcd9,0x0000,0x0001,0x0000
010e b002 8833 | 3| .XXX[0xf2]
0110 6bec b001 |k |
0112 3817 77ec |8 w |
0114 b002 142f | /|
0116 83ed aba1 | |
0118 a554 0c00 | T |
011a 3b58 e703 |;X |
011c 8eb5 984f | O|
011e 9403 db5c | \|
0120 a70f 4401 | D |
0122 ec09 47f8 | G |
0124 0698 e7fc | |
0126 b003 fc10 | |
0128 8002 df67 | g|
012a 6bfb 9400 |k |
012c baa4 0c00 | |
012e 8759 5c98 | Y\ |
0130 b002 d6aa | |
0132 afec b002 | |
0134 deaa afec | |
0136 b402 eaa9 | |
0138 17f7 9402 | |
013a db03 9e35 | 5|
013c eb02 f6ad | |
013e 984f 9401 | O |
0140 d790 a70f | |
0142 4400 fe59 |D Y|
0144 3002 cff8 |0 |
0146 63f7 6bf0 |c k |
0148 b403 c80e | |
014a 26a6 5fee |& _ |
014c 3501 a556 |5 V|
014e a9fb d7ee | |
0150 5d87 e3ec |] |
0152 b403 ce5e | ^|
0154 afef b773 | s|
0156 f7ef 9401 | |
0158 876b 80fd | k |
015a 0758 384b | X8K|
015c 36ad 984d |6 M|
015e 3068 c6ab |0h |
0160 4403 ea35 |D 5|
0162 a240 5ffc | @_ |
0164 3bf1 9d48 |; H|
0166 a8b2 5fef | _ |
0168 9802 e294 | |
016a 0c03 4789 | G |
016c 5c98 b400 |\ |
016e e41f 6bec | k |
0170 b402 f437 | 7|
0172 77ec b401 |w |
0174 7c3b 83ef ||; |
0176 9800 d304 | |
0178 0c02 ef34 | 4|
017a 6701 34c5 |g 4 |
017c 984f 9802 | O |
017e 0f97 9f33 | 3|
0180 4402 edf9 |D |
0182 3001 1c4e |0 N|
0184 53fe 4fed |S O |
0186 2dca 50c0 |- P |
0188 82a8 ebf3 | |
018a 9800 fea4 | |
018c 0c03 5735 | W5|
018e 5c98 b401 |\ |
0190 2c13 6bec |, k |
0192 b401 b433 | 3|
0194 77ec b400 |w |
0196 ec1b 83ef | |
0198 9801 929c | |
019a 0c03 bb88 | |
019c be1a ff71 | q|
019e 984f 9802 | O |
01a0 4393 4402 |C D |
01a2 36a5 3001 |6 0 |
01a4 c816 53fe | S |
01a6 4fec b801 |O |
01a8 c410 8403 | |
01aa bf66 d7f6 | f |
01ac ec31 9446 | 1 F|
01ae abfb e724 | $|
01b0 b803 bc13 | |
01b2 6bec b801 |k |
01b4 d41f 77ec | w |
01b6 b803 2833 | (3|
01b8 83ef 9c00 | |
01ba 3f31 4fd1 |?1O |
01bc eb00 a000 | |
01be 2410 6002 |$ ` |
01c0 f154 c6ab | T |
01c2 4402 998d |D |
01c4 3003 1816 |0 |
01c6 53fe 4fed |S O |
01c8 f948 4504 | HE |
01ca b3fa 5bfb | [ |
01cc 7345 9444 |sE D|
01ce 7b38 5bf0 |{8[ |
01d0 b802 8017 | |
01d2 6bec b803 |k |
01d4 f86b 77ec | kw |
01d6 b802 f80f | |
01d8 83ef 9c03 | |
01da 8a98 0c01 | |
01dc b04d cf07 | M |
01de 4371 984f |Cq O|
01e0 9c01 d790 | |
01e2 a70f 4403 | D |
01e4 318d 2114 |1 ! |
01e6 5ffc 3bf0 |_ ; |
01e8 b800 5814 | X |
01ea 8802 83b2 | |
01ec e7ff ae7d | }|
01ee a554 0c00 | T |
01f0 db3b 6bf0 | ;k |
01f2 b803 b2da | |
01f4 afec b803 | |
01f6 beda afec | |
01f8 b803 c6d9 | |
01fa 17f6 5629 | V)|
01fc a554 0c00 | T |
01fe 9691 cf05 | |