|
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_f1f4e2
└─⟦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 00c8 | | .CONST 0x00c8 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001c | | .CONST 0x001c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0017 00c7 | | Action Elaborate_Subprogram 0018 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0019 00c7 | | Action Elaborate_Subprogram 001a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001b 00c7 | | Action Elaborate_Subprogram 001c BODY_0008: 001c 00bc | | Action Signal_Activated 001d 00bb | | Action Signal_Completion 001e 0000 0000 | | .XXX[0x2] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 00db | | Load_Top At_Offset_3 0024 00db | | Load_Top At_Offset_3 0025 e001 | | Load 0x0,0x1 0026 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0027 e5fc | | Load 0x2,-0x4 0028 e5fd | | Load 0x2,-0x3 0029 e001 | | Load 0x0,0x1 002a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 002b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 002c 0000 0000 | | .BLANK 0000[0x4] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 00db | | Load_Top At_Offset_3 0034 00db | | Load_Top At_Offset_3 0035 e001 | | Load 0x0,0x1 0036 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0037 00db | | Load_Top At_Offset_3 0038 e5fd | | Load 0x2,-0x3 0039 e5ff | | Load 0x2,-0x1 003a e001 | | Load 0x0,0x1 003b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 003c 180d | | Execute Package,Field_Execute,Field_Number 0xd 003d e001 | | Load 0x0,0x1 003e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 003f e5fc | | Load 0x2,-0x4 0040 e5fe | | Load 0x2,-0x2 0041 e001 | | Load 0x0,0x1 0042 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0043 180d | | Execute Package,Field_Execute,Field_Number 0xd 0044 e5fd | | Load 0x2,-0x3 0045 e5ff | | Load 0x2,-0x1 0046 e001 | | Load 0x0,0x1 0047 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0048 180d | | Execute Package,Field_Execute,Field_Number 0xd 0049 e001 | | Load 0x0,0x1 004a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004b e5fc | | Load 0x2,-0x4 004c e5fe | | Load 0x2,-0x2 004d e001 | | Load 0x0,0x1 004e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 004f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0050 00db | | Load_Top At_Offset_3 0051 e001 | | Load 0x0,0x1 0052 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0053 00db | | Load_Top At_Offset_3 0054 00db | | Load_Top At_Offset_3 0055 e001 | | Load 0x0,0x1 0056 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0057 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b e5fd | | Load 0x2,-0x3 005c 00d8 | | Load_Top At_Offset_0 005d e5fe | | Load 0x2,-0x2 005e e5ff | | Load 0x2,-0x1 005f 820e | | Call 0x1,0xe 0060 e5fd | | Load 0x2,-0x3 0061 e5fe | | Load 0x2,-0x2 0062 e001 | | Load 0x0,0x1 0063 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0064 180d | | Execute Package,Field_Execute,Field_Number 0xd 0065 e5fd | | Load 0x2,-0x3 0066 e5ff | | Load 0x2,-0x1 0067 e001 | | Load 0x0,0x1 0068 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0069 180d | | Execute Package,Field_Execute,Field_Number 0xd 006a e5fe | | Load 0x2,-0x2 006b e5ff | | Load 0x2,-0x1 006c 820d | | Call 0x1,0xd 006d 00db | | Load_Top At_Offset_3 006e e5fd | | Load 0x2,-0x3 006f e5ff | | Load 0x2,-0x1 0070 e001 | | Load 0x0,0x1 0071 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0072 180d | | Execute Package,Field_Execute,Field_Number 0xd 0073 e5fd | | Load 0x2,-0x3 0074 e5fe | | Load 0x2,-0x2 0075 e001 | | Load 0x0,0x1 0076 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0077 180d | | Execute Package,Field_Execute,Field_Number 0xd 0078 e5ff | | Load 0x2,-0x1 0079 820d | | Call 0x1,0xd 007a 4802 |H | Short_Literal 0x2 007b e5fd | | Load 0x2,-0x3 007c e001 | | Load 0x0,0x1 007d 1b19 | | Execute Package,Field_Read,Field_Number 0x19 007e 180f | | Execute Package,Field_Execute,Field_Number 0xf 007f e5fe | | Load 0x2,-0x2 0080 e001 | | Load 0x0,0x1 0081 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0082 180e | | Execute Package,Field_Execute,Field_Number 0xe 0083 4802 |H | Short_Literal 0x2 0084 e5fd | | Load 0x2,-0x3 0085 e001 | | Load 0x0,0x1 0086 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0087 180f | | Execute Package,Field_Execute,Field_Number 0xf 0088 e5ff | | Load 0x2,-0x1 0089 e001 | | Load 0x0,0x1 008a 1b19 | | Execute Package,Field_Read,Field_Number 0x19 008b 180d | | Execute Package,Field_Execute,Field_Number 0xd 008c e001 | | Load 0x0,0x1 008d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008e 00db | | Load_Top At_Offset_3 008f 00db | | Load_Top At_Offset_3 0090 e001 | | Load 0x0,0x1 0091 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0092 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0093 0000 0000 | | .BLANK 0000[0x5] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a0 | | .CONST 0x00a0 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0004 | | .CONST 0x0004 ; Number of locals 009b INIT_0098: 009b e001 | | Load 0x0,0x1 009c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 009d 03e9 | | Declare_Variable Discrete,Duplicate 009e e001 | | Load 0x0,0x1 009f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00a0 BODY_0098: 00a0 e5ff | | Load 0x2,-0x1 00a1 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00a2 e5fd | | Load 0x2,-0x3 00a3 e5fe | | Load 0x2,-0x2 00a4 e001 | | Load 0x0,0x1 00a5 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00a6 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a7 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00a8 e5fd | | Load 0x2,-0x3 00a9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00aa 00cf | | Action Mark_Auxiliary 00ab 4807 |H | Short_Literal 0x7 00ac 4801 |H | Short_Literal 0x1 00ad 0007 | | Action Break_Optional 00ae 00db | | Load_Top At_Offset_3 00af e403 | | Load 0x2,0x3 00b0 e402 | | Load 0x2,0x2 00b1 820f | | Call 0x1,0xf 00b2 4814 |H | Short_Literal 0x14 00b3 e404 | | Load 0x2,0x4 00b4 e402 | | Load 0x2,0x2 00b5 e001 | | Load 0x0,0x1 00b6 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00b7 180d | | Execute Package,Field_Execute,Field_Number 0xd 00b8 e001 | | Load 0x0,0x1 00b9 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00ba 180d | | Execute Package,Field_Execute,Field_Number 0xd 00bb a402 | | Store_Unchecked 0x2,0x2 00bc 4814 |H | Short_Literal 0x14 00bd e403 | | Load 0x2,0x3 00be e001 | | Load 0x0,0x1 00bf 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00c0 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c1 a403 | | Store_Unchecked 0x2,0x3 00c2 00db | | Load_Top At_Offset_3 00c3 0aee | | Execute_Immediate Plus,-0x12 00c4 c404 | | Store 0x2,0x4 00c5 00c8 | | Action Pop_Auxiliary_Range 00c6 3fe7 |? | Loop_Increasing 0xae 00c7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; Debug Table 00c8 ; -------------------------------------------------------------------------------------- 00c8 0004 0001 | | .DEBUG4 0x0004,0x0001,0x513d,0x0000,0x0001,0x0006 00ce 000b 00e6 | | .DBG4T 0x000b,0x00e6,0x8000,0x0000 00d2 0014 00ec | | .DBG4T 0x0014,0x00ec,0x8000,0x0000 00d6 0023 00f2 | # | .DBG4T 0x0023,0x00f2,0x0001,0x0000 00da 0033 00f6 | 3 | .DBG4T 0x0033,0x00f6,0x0001,0x0000 00de 005b 00fd | [ | .DBG4T 0x005b,0x00fd,0x0001,0x0000 00e2 009b 0104 | | .DBG4T 0x009b,0x0104,0x0001,0x0000 00e6 ; -------------------------------------------------------------------------------------- 00e6 ; Debug chain 00e6 ; -------------------------------------------------------------------------------------- 00e6 0004 0000 | | .DBGLEN 0x0004,0x0000 00e8 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011 00ec ; -------------------------------------------------------------------------------------- 00ec ; Debug chain 00ec ; -------------------------------------------------------------------------------------- 00ec 0004 0000 | | .DBGLEN 0x0004,0x0000 00ee 0014 0016 | | .DBGLNO 0x0014,0x0016,0x0018,0x001a 00f2 ; -------------------------------------------------------------------------------------- 00f2 ; Debug chain 00f2 ; -------------------------------------------------------------------------------------- 00f2 0000 0002 | | .DBGLEN 0x0000,0x0002 00f4 0023 0027 | # '| .DBGLNO 0x0023,0x0027 00f6 ; -------------------------------------------------------------------------------------- 00f6 ; Debug chain 00f6 ; -------------------------------------------------------------------------------------- 00f6 0000 0005 | | .DBGLEN 0x0000,0x0005 00f8 0033 0037 | 3 7| .DBGLNO 0x0033,0x0037,0x003f,0x004b,0x0053 00fd ; -------------------------------------------------------------------------------------- 00fd ; Debug chain 00fd ; -------------------------------------------------------------------------------------- 00fd 0000 0005 | | .DBGLEN 0x0000,0x0005 00ff 005b 0060 | [ `| .DBGLNO 0x005b,0x0060,0x006d,0x007a,0x008e 0104 ; -------------------------------------------------------------------------------------- 0104 ; Debug chain 0104 ; -------------------------------------------------------------------------------------- 0104 0002 0008 | | .DBGLEN 0x0002,0x0008 0106 009b 009e | | .DBGLNO 0x009b,0x009e,0x00a0,0x00a2,0x00a8,0x00ab,0x00ae,0x00b2,0x00bc,0x00c2 0110 0000 0000 | | .BLANK 0000[0xf0]