|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0028 | ( | .CONST 0x0028 ; Address of begin 0019 0049 | I | .CONST 0x0049 ; Address of exception handler 001a 0004 | | .CONST 0x0004 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 001d 02c7 | | Declare_Variable Any 001e 00d8 | | Load_Top At_Offset_0 001f 1c00 | | Execute_Immediate Run_Utility,0x0 0020 029e 0053 | S| Declare_Subprogram INIT_0050,For_Call,Unelaborated 0022 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0024 4803 |H | Short_Literal 0x3 0025 4802 |H | Short_Literal 0x2 0026 0099 | | Action Reference_Dynamic 0027 00c7 | | Action Elaborate_Subprogram 0028 BODY_0018: 0028 e5fb | | Load 0x2,-0x5 0029 e001 | | Load 0x0,0x1 002a 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 002b 4606 |F | Jump_Case 0x7 002c 7806 |x | Jump 0x33 ; case 0x0 002d 7805 |x | Jump 0x33 ; case 0x1 002e 7807 |x | Jump 0x36 ; case 0x2 002f 7809 |x | Jump 0x39 ; case 0x3 0030 7802 |x | Jump 0x33 ; case 0x4 0031 7801 |x | Jump 0x33 ; case 0x5 0032 7800 |x | Jump 0x33 ; case 0x6 0033 e001 | | Load 0x0,0x1 0034 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0035 0257 | W | Execute Discrete,Raise 0036 e5fb | | Load 0x2,-0x5 0037 8403 | | Call 0x2,0x3 0038 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0039 e5fb | | Load 0x2,-0x5 003a e002 | | Load 0x0,0x2 003b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 003c 0f0e | | Execute_Immediate Equal,0xe 003d 7003 |p | Jump_Nonzero 0x41 003e e001 | | Load 0x0,0x1 003f 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0040 0257 | W | Execute Discrete,Raise 0041 e5fb | | Load 0x2,-0x5 0042 e002 | | Load 0x0,0x2 0043 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0044 c402 | | Store 0x2,0x2 0045 00da | | Load_Top At_Offset_2 0046 8404 | | Call 0x2,0x4 0047 c402 | | Store 0x2,0x2 0048 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0049 TRAP_0018: 0049 e003 | | Load 0x0,0x3 004a 010f | | Execute Exception,Equal 004b 6801 |h | Jump_Zero 0x4d 004c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 004d 0100 | | Execute Exception,Raise 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0058 | X | .CONST 0x0058 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0002 | | .CONST 0x0002 ; Number of locals 0053 INIT_0050: 0053 e001 | | Load 0x0,0x1 0054 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0055 02c7 | | Declare_Variable Any 0056 00d8 | | Load_Top At_Offset_0 0057 1c00 | | Execute_Immediate Run_Utility,0x0 0058 BODY_0050: 0058 e5f9 | | Load 0x2,-0x7 0059 e5fa | | Load 0x2,-0x6 005a 00d8 | | Load_Top At_Offset_0 005b 0120 | | Execute Any,Is_Value 005c 6803 |h | Jump_Zero 0x60 005d e5fc | | Load 0x2,-0x4 005e 011e | | Execute Any,Convert 005f 7802 |x | Jump 0x62 0060 e5fc | | Load 0x2,-0x4 0061 0119 | | Execute Any,Check_In_Formal_Type 0062 e7ff | | Load 0x3,-0x1 0063 85fd | | Call 0x2,-0x3 0064 c5fa | | Store 0x2,-0x6 0065 c5f9 | | Store 0x2,-0x7 0066 e5f9 | | Load 0x2,-0x7 0067 4603 |F | Jump_Case 0x4 0068 7805 |x | Jump 0x6e ; case 0x0 0069 7859 |xY | Jump 0xc3 ; case 0x1 006a 7858 |xX | Jump 0xc3 ; case 0x2 006b 7800 |x | Jump 0x6c ; case 0x3 006c e003 | | Load 0x0,0x3 006d 0257 | W | Execute Discrete,Raise 006e 00db | | Load_Top At_Offset_3 006f e004 | | Load 0x0,0x4 0070 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0071 4626 |F& | Jump_Case 0x27 0072 7850 |xP | Jump 0xc3 ; case 0x0 0073 784f |xO | Jump 0xc3 ; case 0x1 0074 784e |xN | Jump 0xc3 ; case 0x2 0075 784d |xM | Jump 0xc3 ; case 0x3 0076 784c |xL | Jump 0xc3 ; case 0x4 0077 784b |xK | Jump 0xc3 ; case 0x5 0078 784a |xJ | Jump 0xc3 ; case 0x6 0079 7849 |xI | Jump 0xc3 ; case 0x7 007a 783a |x: | Jump 0xb5 ; case 0x8 007b 781d |x | Jump 0x99 ; case 0x9 007c 7846 |xF | Jump 0xc3 ; case 0xa 007d 7825 |x% | Jump 0xa3 ; case 0xb 007e 7844 |xD | Jump 0xc3 ; case 0xc 007f 7823 |x# | Jump 0xa3 ; case 0xd 0080 7842 |xB | Jump 0xc3 ; case 0xe 0081 7841 |xA | Jump 0xc3 ; case 0xf 0082 7840 |x@ | Jump 0xc3 ; case 0x10 0083 783f |x? | Jump 0xc3 ; case 0x11 0084 783e |x> | Jump 0xc3 ; case 0x12 0085 782f |x/ | Jump 0xb5 ; case 0x13 0086 783c |x< | Jump 0xc3 ; case 0x14 0087 783b |x; | Jump 0xc3 ; case 0x15 0088 783a |x: | Jump 0xc3 ; case 0x16 0089 7839 |x9 | Jump 0xc3 ; case 0x17 008a 7838 |x8 | Jump 0xc3 ; case 0x18 008b 7821 |x! | Jump 0xad ; case 0x19 008c 7836 |x6 | Jump 0xc3 ; case 0x1a 008d 7835 |x5 | Jump 0xc3 ; case 0x1b 008e 7834 |x4 | Jump 0xc3 ; case 0x1c 008f 7833 |x3 | Jump 0xc3 ; case 0x1d 0090 7832 |x2 | Jump 0xc3 ; case 0x1e 0091 7831 |x1 | Jump 0xc3 ; case 0x1f 0092 7830 |x0 | Jump 0xc3 ; case 0x20 0093 782f |x/ | Jump 0xc3 ; case 0x21 0094 782e |x. | Jump 0xc3 ; case 0x22 0095 782d |x- | Jump 0xc3 ; case 0x23 0096 782c |x, | Jump 0xc3 ; case 0x24 0097 782b |x+ | Jump 0xc3 ; case 0x25 0098 782a |x* | Jump 0xc3 ; case 0x26 0099 00db | | Load_Top At_Offset_3 009a e004 | | Load 0x0,0x4 009b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 009c e002 | | Load 0x0,0x2 009d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 009e c602 | | Store 0x3,0x2 009f 00d8 | | Load_Top At_Offset_0 00a0 8404 | | Call 0x2,0x4 00a1 c602 | | Store 0x3,0x2 00a2 7820 |x | Jump 0xc3 00a3 00db | | Load_Top At_Offset_3 00a4 e004 | | Load 0x0,0x4 00a5 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 00a6 e002 | | Load 0x0,0x2 00a7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00a8 c602 | | Store 0x3,0x2 00a9 00d8 | | Load_Top At_Offset_0 00aa 8404 | | Call 0x2,0x4 00ab c602 | | Store 0x3,0x2 00ac 7816 |x | Jump 0xc3 00ad 00db | | Load_Top At_Offset_3 00ae e004 | | Load 0x0,0x4 00af 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 00b0 c602 | | Store 0x3,0x2 00b1 00d8 | | Load_Top At_Offset_0 00b2 8404 | | Call 0x2,0x4 00b3 c602 | | Store 0x3,0x2 00b4 780e |x | Jump 0xc3 00b5 00db | | Load_Top At_Offset_3 00b6 e004 | | Load 0x0,0x4 00b7 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 00b8 c602 | | Store 0x3,0x2 00b9 00d8 | | Load_Top At_Offset_0 00ba 8404 | | Call 0x2,0x4 00bb c602 | | Store 0x3,0x2 00bc 00db | | Load_Top At_Offset_3 00bd e004 | | Load 0x0,0x4 00be 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 00bf c602 | | Store 0x3,0x2 00c0 00d8 | | Load_Top At_Offset_0 00c1 8404 | | Call 0x2,0x4 00c2 c602 | | Store 0x3,0x2 00c3 e5f9 | | Load 0x2,-0x7 00c4 e5fa | | Load 0x2,-0x6 00c5 00d8 | | Load_Top At_Offset_0 00c6 0120 | | Execute Any,Is_Value 00c7 6803 |h | Jump_Zero 0xcb 00c8 e5fc | | Load 0x2,-0x4 00c9 011e | | Execute Any,Convert 00ca 7802 |x | Jump 0xcd 00cb e5fc | | Load 0x2,-0x4 00cc 0119 | | Execute Any,Check_In_Formal_Type 00cd e7ff | | Load 0x3,-0x1 00ce 85fe | | Call 0x2,-0x2 00cf c5fa | | Store 0x2,-0x6 00d0 c5f9 | | Store 0x2,-0x7 00d1 e5f9 | | Load 0x2,-0x7 00d2 4800 |H | Short_Literal 0x0 00d3 4802 |H | Short_Literal 0x2 00d4 0262 | b | Execute Discrete,In_Range 00d5 7003 |p | Jump_Nonzero 0xd9 00d6 7800 |x | Jump 0xd7 00d7 e003 | | Load 0x0,0x3 00d8 0257 | W | Execute Discrete,Raise 00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00cf | | Action Mark_Auxiliary 00e4 7811 |x | Jump 0xf6 00e5 00db | | Load_Top At_Offset_3 00e6 e001 | | Load 0x0,0x1 00e7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00e8 8403 | | Call 0x2,0x3 00e9 e5f9 | | Load 0x2,-0x7 00ea 4603 |F | Jump_Case 0x4 00eb 7805 |x | Jump 0xf1 ; case 0x0 00ec 7804 |x | Jump 0xf1 ; case 0x1 00ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2 00ee 7800 |x | Jump 0xef ; case 0x3 00ef e003 | | Load 0x0,0x3 00f0 0257 | W | Execute Discrete,Raise 00f1 00db | | Load_Top At_Offset_3 00f2 e001 | | Load 0x0,0x1 00f3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00f4 c7ff | | Store 0x3,-0x1 00f5 00c9 | | Action Pop_Auxiliary_Loop 00f6 00db | | Load_Top At_Offset_3 00f7 e001 | | Load 0x0,0x1 00f8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00f9 6feb |o | Jump_Zero 0xe5 00fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fb 0000 0000 | | .BLANK 0000[0x5] 0100 ; -------------------------------------------------------------------------------------- 0100 ; Debug Table 0100 ; -------------------------------------------------------------------------------------- 0100 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2eb0,0x0000,0x0001,0x0004 0106 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 010a 001b 0116 | | .DBG4T 0x001b,0x0116,0xa801,0xc002 010e 0053 0130 | S 0| .DBG4T 0x0053,0x0130,0x0801,0x4002 0112 00e3 0155 | U| .DBG4T 0x00e3,0x0155,0x0801,0x4002 0116 ; -------------------------------------------------------------------------------------- 0116 ; Debug chain 0116 ; -------------------------------------------------------------------------------------- 0116 0004 0008 | | .DBGLEN 0x0004,0x0008 0118 001b 0020 | | .DBGLNO 0x001b,0x0020,0x0022,0x0024,0x0028,0x0033,0x0036,0x0039,0x003e,0x0041,0x0045,0x004c 0124 0002 0003 | | .XXX[0xc] 0126 0004 0005 | | 0128 0001 0007 | | 012a 0002 0003 | | 012c 0006 0004 | | 012e 0005 0008 | | 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug chain 0130 ; -------------------------------------------------------------------------------------- 0130 0001 0011 | | .DBGLEN 0x0001,0x0011 0132 0053 0058 | S X| .DBGLNO 0x0053,0x0058,0x0066,0x006c,0x006e,0x0099,0x009f,0x00a3,0x00a9,0x00ad,0x00b1,0x00b5,0x00b9,0x00bc,0x00c0,0x00c3,0x00d1,0x00d7 0144 0001 0002 | | .XXX[0x11] 0146 000f 0003 | | 0148 0008 0009 | | 014a 000a 000b | | 014c 000c 000d | | 014e 0004 0005 | | 0150 0006 0007 | | 0152 0011 0012 | | 0154 0013 | | 0155 ; -------------------------------------------------------------------------------------- 0155 ; Debug chain 0155 ; -------------------------------------------------------------------------------------- 0155 0000 0005 | | .DBGLEN 0x0000,0x0005 0157 00e5 00e9 | | .DBGLNO 0x00e5,0x00e9,0x00ef,0x00f1,0x00f6 015c 0002 0003 | | .XXX[0x5] 015e 0004 0007 | | 0160 0001 | | 0161 0000 0000 | | .BLANK 0000[0x9f]