|
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_6148f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 00f8 | | .CONST 0x00f8 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000f 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0013 00c7 | | Action Elaborate_Subprogram 0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 002a | * | .CONST 0x002a ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0004 | | .CONST 0x0004 ; Number of locals 0023 INIT_0020: 0023 e002 | | Load 0x0,0x2 0024 02ff | | Declare_Variable Variant_Record 0025 00d8 | | Load_Top At_Offset_0 0026 1c00 | | Execute_Immediate Run_Utility,0x0 0027 e003 | | Load 0x0,0x3 0028 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 002a BODY_0020: 002a e5ff | | Load 0x2,-0x1 002b 8004 | | Call 0x0,0x4 002c 8404 | | Call 0x2,0x4 002d e5ff | | Load 0x2,-0x1 002e 8005 | | Call 0x0,0x5 002f e5ff | | Load 0x2,-0x1 0030 8006 | | Call 0x0,0x6 0031 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0032 0000 0000 | | .BLANK 0000[0x6] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003d | = | .CONST 0x003d ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0002 | | .CONST 0x0002 ; Number of locals 003b INIT_0038: 003b 029f 009b | | Declare_Subprogram INIT_0098,For_Call 003d BODY_0038: 003d 00db | | Load_Top At_Offset_3 003e 8004 | | Call 0x0,0x4 003f 8402 | | Call 0x2,0x2 0040 00db | | Load_Top At_Offset_3 0041 8005 | | Call 0x0,0x5 0042 00db | | Load_Top At_Offset_3 0043 8006 | | Call 0x0,0x6 0044 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0045 0000 0000 | | .XXX[0x3] 0047 0000 | | 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004d | M | .CONST 0x004d ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0002 | | .CONST 0x0002 ; Number of locals 004b INIT_0048: 004b 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 004d BODY_0048: 004d 00db | | Load_Top At_Offset_3 004e 8004 | | Call 0x0,0x4 004f 8402 | | Call 0x2,0x2 0050 00db | | Load_Top At_Offset_3 0051 8005 | | Call 0x0,0x5 0052 00db | | Load_Top At_Offset_3 0053 8006 | | Call 0x0,0x6 0054 450a |E | Exit_Suprogram New_Top_Offset 0xa 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 008d | | .CONST 0x008d ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b e007 | | Load 0x0,0x7 005c 0322 | " | Declare_Variable Record 005d 482b |H+ | Short_Literal 0x2b 005e 00d9 | | Load_Top At_Offset_1 005f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0060 e007 | | Load 0x0,0x7 0061 012c | , | Execute Any,Size 0062 09fb | | Execute_Immediate Binary_Scale,-0x5 0063 00d9 | | Load_Top At_Offset_1 0064 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0065 4800 |H | Short_Literal 0x0 0066 00d9 | | Load_Top At_Offset_1 0067 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0068 e5ff | | Load 0x2,-0x1 0069 e008 | | Load 0x0,0x8 006a a009 | | Store_Unchecked 0x0,0x9 006b e00a | | Load 0x0,0xa 006c e00b | | Load 0x0,0xb 006d a00c | | Store_Unchecked 0x0,0xc 006e 800d | | Call 0x0,0xd 006f e003 | | Load 0x0,0x3 0070 e402 | | Load 0x2,0x2 0071 4801 |H | Short_Literal 0x1 0072 4800 |H | Short_Literal 0x0 0073 482b |H+ | Short_Literal 0x2b 0074 e5ff | | Load 0x2,-0x1 0075 e00e | | Load 0x0,0xe 0076 a00f | | Store_Unchecked 0x0,0xf 0077 a010 | | Store_Unchecked 0x0,0x10 0078 8011 | | Call 0x0,0x11 0079 00d1 | | Pop_Control Pop_Count_1 007a c403 | | Store 0x2,0x3 007b e403 | | Load 0x2,0x3 007c 680a |h | Jump_Zero 0x87 007d e402 | | Load 0x2,0x2 007e 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 007f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0080 e5fe | | Load 0x2,-0x2 0081 017d | } | Execute Record,Structure_Write 0082 e402 | | Load 0x2,0x2 0083 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0084 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0085 a5fd | | Store_Unchecked 0x2,-0x3 0086 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0087 e012 | | Load 0x0,0x12 0088 e5fe | | Load 0x2,-0x2 0089 017d | } | Execute Record,Structure_Write 008a 4800 |H | Short_Literal 0x0 008b a5fd | | Store_Unchecked 0x2,-0x3 008c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008d TRAP_0058: 008d 0007 | | Action Break_Optional 008e e5ff | | Load 0x2,-0x1 008f 8005 | | Call 0x0,0x5 0090 00d8 | | Load_Top At_Offset_0 0091 0101 | | Execute Exception,Reraise 0092 0000 0000 | | .BLANK 0000[0x6] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 00b6 | | .CONST 0x00b6 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b e013 | | Load 0x0,0x13 009c 0322 | " | Declare_Variable Record 009d 482a |H* | Short_Literal 0x2a 009e 00d9 | | Load_Top At_Offset_1 009f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a0 e013 | | Load 0x0,0x13 00a1 012c | , | Execute Any,Size 00a2 09fb | | Execute_Immediate Binary_Scale,-0x5 00a3 00d9 | | Load_Top At_Offset_1 00a4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00a5 e5fe | | Load 0x2,-0x2 00a6 00d9 | | Load_Top At_Offset_1 00a7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00a8 e5fd | | Load 0x2,-0x3 00a9 00d9 | | Load_Top At_Offset_1 00aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00ab e5fc | | Load 0x2,-0x4 00ac 00d9 | | Load_Top At_Offset_1 00ad 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00ae e5ff | | Load 0x2,-0x1 00af e014 | | Load 0x0,0x14 00b0 a015 | | Store_Unchecked 0x0,0x15 00b1 e016 | | Load 0x0,0x16 00b2 e017 | | Load 0x0,0x17 00b3 a018 | | Store_Unchecked 0x0,0x18 00b4 800d | | Call 0x0,0xd 00b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b6 TRAP_0098: 00b6 0007 | | Action Break_Optional 00b7 e5ff | | Load 0x2,-0x1 00b8 8005 | | Call 0x0,0x5 00b9 00d8 | | Load_Top At_Offset_0 00ba 0101 | | Execute Exception,Reraise 00bb 0000 0000 | | .BLANK 0000[0x5] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 00f0 | | .CONST 0x00f0 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e019 | | Load 0x0,0x19 00c4 0322 | " | Declare_Variable Record 00c5 4829 |H) | Short_Literal 0x29 00c6 00d9 | | Load_Top At_Offset_1 00c7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c8 e019 | | Load 0x0,0x19 00c9 012c | , | Execute Any,Size 00ca 09fb | | Execute_Immediate Binary_Scale,-0x5 00cb 00d9 | | Load_Top At_Offset_1 00cc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00cd 4800 |H | Short_Literal 0x0 00ce 00d9 | | Load_Top At_Offset_1 00cf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d0 e5fe | | Load 0x2,-0x2 00d1 00d9 | | Load_Top At_Offset_1 00d2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00d3 e5fd | | Load 0x2,-0x3 00d4 00d9 | | Load_Top At_Offset_1 00d5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00d6 e5fc | | Load 0x2,-0x4 00d7 00d9 | | Load_Top At_Offset_1 00d8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00d9 e5fb | | Load 0x2,-0x5 00da 00d9 | | Load_Top At_Offset_1 00db 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 00dc e5fa | | Load 0x2,-0x6 00dd 00d9 | | Load_Top At_Offset_1 00de 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 00df e5f9 | | Load 0x2,-0x7 00e0 00d9 | | Load_Top At_Offset_1 00e1 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 00e2 e5f8 | | Load 0x2,-0x8 00e3 00d9 | | Load_Top At_Offset_1 00e4 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 00e5 e5f7 | | Load 0x2,-0x9 00e6 00d9 | | Load_Top At_Offset_1 00e7 380a |8 | Execute Record,Field_Write,Field_Number 0xa 00e8 e5ff | | Load 0x2,-0x1 00e9 e01a | | Load 0x0,0x1a 00ea a01b | | Store_Unchecked 0x0,0x1b 00eb e01c | | Load 0x0,0x1c 00ec e01d | | Load 0x0,0x1d 00ed a01e | | Store_Unchecked 0x0,0x1e 00ee 800d | | Call 0x0,0xd 00ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f0 TRAP_00c0: 00f0 0007 | | Action Break_Optional 00f1 e5ff | | Load 0x2,-0x1 00f2 8005 | | Call 0x0,0x5 00f3 00d8 | | Load_Top At_Offset_0 00f4 0101 | | Execute Exception,Reraise 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; Debug Table 00f8 ; -------------------------------------------------------------------------------------- 00f8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6911,0x0000,0x0001,0x0008 00fe 000b 011e | | .DBG4T 0x000b,0x011e,0x8000,0x0000 0102 0012 0123 | #| .DBG4T 0x0012,0x0123,0x8000,0x0000 0106 0023 0128 | # (| .DBG4T 0x0023,0x0128,0x0001,0x0000 010a 003b 0130 | ; 0| .DBG4T 0x003b,0x0130,0x0001,0x0000 010e 004b 0136 | K 6| .DBG4T 0x004b,0x0136,0x0001,0x0000 0112 005b 013c | [ <| .DBG4T 0x005b,0x013c,0x0004,0x0000 0116 009b 0147 | G| .DBG4T 0x009b,0x0147,0x0004,0x0000 011a 00c3 014c | L| .DBG4T 0x00c3,0x014c,0x0004,0x0000 011e ; -------------------------------------------------------------------------------------- 011e ; Debug chain 011e ; -------------------------------------------------------------------------------------- 011e 0003 0000 | | .DBGLEN 0x0003,0x0000 0120 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f 0123 ; -------------------------------------------------------------------------------------- 0123 ; Debug chain 0123 ; -------------------------------------------------------------------------------------- 0123 0003 0000 | | .DBGLEN 0x0003,0x0000 0125 0012 0014 | | .DBGLNO 0x0012,0x0014,0x0016 0128 ; -------------------------------------------------------------------------------------- 0128 ; Debug chain 0128 ; -------------------------------------------------------------------------------------- 0128 0002 0004 | | .DBGLEN 0x0002,0x0004 012a 0023 0027 | # '| .DBGLNO 0x0023,0x0027,0x002a,0x002c,0x002d,0x002f 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug chain 0130 ; -------------------------------------------------------------------------------------- 0130 0000 0004 | | .DBGLEN 0x0000,0x0004 0132 003d 003f | = ?| .DBGLNO 0x003d,0x003f,0x0040,0x0042 0136 ; -------------------------------------------------------------------------------------- 0136 ; Debug chain 0136 ; -------------------------------------------------------------------------------------- 0136 0000 0004 | | .DBGLEN 0x0000,0x0004 0138 004d 004f | M O| .DBGLNO 0x004d,0x004f,0x0050,0x0052 013c ; -------------------------------------------------------------------------------------- 013c ; Debug chain 013c ; -------------------------------------------------------------------------------------- 013c 0000 0009 | | .DBGLEN 0x0000,0x0009 013e 005b 006f | [ o| .DBGLNO 0x005b,0x006f,0x007b,0x007d,0x0082,0x0087,0x008a,0x008e,0x0090 0147 ; -------------------------------------------------------------------------------------- 0147 ; Debug chain 0147 ; -------------------------------------------------------------------------------------- 0147 0000 0003 | | .DBGLEN 0x0000,0x0003 0149 009b 00b7 | | .DBGLNO 0x009b,0x00b7,0x00b9 014c ; -------------------------------------------------------------------------------------- 014c ; Debug chain 014c ; -------------------------------------------------------------------------------------- 014c 0000 0003 | | .DBGLEN 0x0000,0x0003 014e 00c3 00f1 | | .DBGLNO 0x00c3,0x00f1,0x00f3 0151 0000 0000 | | .BLANK 0000[0xaf]