|
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_1ca4c7
└─⟦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 0130 | 0 | .CONST 0x0130 ; 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 0012 | | .CONST 0x0012 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call 0010 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0011 00c7 | | Action Elaborate_Subprogram 0012 BODY_0008: 0012 00bc | | Action Signal_Activated 0013 00bb | | Action Signal_Completion 0014 0000 0000 | | .BLANK 0000[0x4] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001c | | .CONST 0x001c ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0002 | | .CONST 0x0002 ; Number of locals 001b INIT_0018: 001b 00e1 | | Load_Encached Boolean_Cache 001c BODY_0018: 001c 8002 | | Call 0x0,0x2 001d 00d8 | | Load_Top At_Offset_0 001e 0d09 | | Execute_Immediate Less,0x9 001f 7035 |p5 | Jump_Nonzero 0x55 0020 00d8 | | Load_Top At_Offset_0 0021 0c2d | - | Execute_Immediate Greater_Equal,0x2d 0022 702f |p/ | Jump_Nonzero 0x52 0023 0af7 | | Execute_Immediate Plus,-0x9 0024 4623 |F# | Jump_Case 0x24 0025 7845 |xE | Jump 0x6b ; case 0x0 0026 782f |x/ | Jump 0x56 ; case 0x1 0027 782e |x. | Jump 0x56 ; case 0x2 0028 782d |x- | Jump 0x56 ; case 0x3 0029 782c |x, | Jump 0x56 ; case 0x4 002a 782b |x+ | Jump 0x56 ; case 0x5 002b 782a |x* | Jump 0x56 ; case 0x6 002c 7829 |x) | Jump 0x56 ; case 0x7 002d 7828 |x( | Jump 0x56 ; case 0x8 002e 7827 |x' | Jump 0x56 ; case 0x9 002f 7826 |x& | Jump 0x56 ; case 0xa 0030 7825 |x% | Jump 0x56 ; case 0xb 0031 7824 |x$ | Jump 0x56 ; case 0xc 0032 782f |x/ | Jump 0x62 ; case 0xd 0033 7822 |x" | Jump 0x56 ; case 0xe 0034 7856 |xV | Jump 0x8b ; case 0xf 0035 784c |xL | Jump 0x82 ; case 0x10 0036 7834 |x4 | Jump 0x6b ; case 0x11 0037 781e |x | Jump 0x56 ; case 0x12 0038 781d |x | Jump 0x56 ; case 0x13 0039 781c |x | Jump 0x56 ; case 0x14 003a 781b |x | Jump 0x56 ; case 0x15 003b 781a |x | Jump 0x56 ; case 0x16 003c 7819 |x | Jump 0x56 ; case 0x17 003d 7818 |x | Jump 0x56 ; case 0x18 003e 7817 |x | Jump 0x56 ; case 0x19 003f 7816 |x | Jump 0x56 ; case 0x1a 0040 7815 |x | Jump 0x56 ; case 0x1b 0041 7814 |x | Jump 0x56 ; case 0x1c 0042 7813 |x | Jump 0x56 ; case 0x1d 0043 7812 |x | Jump 0x56 ; case 0x1e 0044 7811 |x | Jump 0x56 ; case 0x1f 0045 7810 |x | Jump 0x56 ; case 0x20 0046 780f |x | Jump 0x56 ; case 0x21 0047 780e |x | Jump 0x56 ; case 0x22 0048 7800 |x | Jump 0x49 ; case 0x23 0049 4800 |H | Short_Literal 0x0 004a 8003 | | Call 0x0,0x3 004b 8004 | | Call 0x0,0x4 004c 8005 | | Call 0x0,0x5 004d 00e1 | | Load_Encached Boolean_Cache 004e 8006 | | Call 0x0,0x6 004f 0059 | Y | Store_Top Discrete,At_Offset_1 0050 8007 | | Call 0x0,0x7 0051 7855 |xU | Jump 0xa7 0052 0f44 | D | Execute_Immediate Equal,0x44 0053 7005 |p | Jump_Nonzero 0x59 0054 7801 |x | Jump 0x56 0055 00d1 | | Pop_Control Pop_Count_1 0056 4800 |H | Short_Literal 0x0 0057 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0058 784e |xN | Jump 0xa7 0059 4800 |H | Short_Literal 0x0 005a 8003 | | Call 0x0,0x3 005b 8004 | | Call 0x0,0x4 005c 8005 | | Call 0x0,0x5 005d 00e1 | | Load_Encached Boolean_Cache 005e 820e | | Call 0x1,0xe 005f 0059 | Y | Store_Top Discrete,At_Offset_1 0060 8007 | | Call 0x0,0x7 0061 7845 |xE | Jump 0xa7 0062 4800 |H | Short_Literal 0x0 0063 8003 | | Call 0x0,0x3 0064 8004 | | Call 0x0,0x4 0065 8005 | | Call 0x0,0x5 0066 00e1 | | Load_Encached Boolean_Cache 0067 8008 | | Call 0x0,0x8 0068 0059 | Y | Store_Top Discrete,At_Offset_1 0069 8007 | | Call 0x0,0x7 006a 783c |x< | Jump 0xa7 006b 4800 |H | Short_Literal 0x0 006c 8003 | | Call 0x0,0x3 006d 8004 | | Call 0x0,0x4 006e 8009 | | Call 0x0,0x9 006f 0b1e | | Execute_Immediate Case_Compare,0x1e 0070 7007 |p | Jump_Nonzero 0x78 0071 4823 |H# | Short_Literal 0x23 0072 4824 |H$ | Short_Literal 0x24 0073 0262 | b | Execute Discrete,In_Range 0074 7004 |p | Jump_Nonzero 0x79 0075 4800 |H | Short_Literal 0x0 0076 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0077 7808 |x | Jump 0x80 0078 00d1 | | Pop_Control Pop_Count_1 0079 4800 |H | Short_Literal 0x0 007a 8003 | | Call 0x0,0x3 007b 8004 | | Call 0x0,0x4 007c 8005 | | Call 0x0,0x5 007d 00e1 | | Load_Encached Boolean_Cache 007e 800a | | Call 0x0,0xa 007f 0059 | Y | Store_Top Discrete,At_Offset_1 0080 8007 | | Call 0x0,0x7 0081 7825 |x% | Jump 0xa7 0082 4800 |H | Short_Literal 0x0 0083 8003 | | Call 0x0,0x3 0084 8004 | | Call 0x0,0x4 0085 8005 | | Call 0x0,0x5 0086 00e1 | | Load_Encached Boolean_Cache 0087 800b | | Call 0x0,0xb 0088 0059 | Y | Store_Top Discrete,At_Offset_1 0089 8007 | | Call 0x0,0x7 008a 781c |x | Jump 0xa7 008b 4800 |H | Short_Literal 0x0 008c 8003 | | Call 0x0,0x3 008d 8004 | | Call 0x0,0x4 008e 8009 | | Call 0x0,0x9 008f 00d8 | | Load_Top At_Offset_0 0090 481c |H | Short_Literal 0x1c 0091 4824 |H$ | Short_Literal 0x24 0092 0262 | b | Execute Discrete,In_Range 0093 680f |h | Jump_Zero 0xa3 0094 0b1d | | Execute_Immediate Case_Compare,0x1d 0095 700d |p | Jump_Nonzero 0xa3 0096 481f |H | Short_Literal 0x1f 0097 4823 |H# | Short_Literal 0x23 0098 0262 | b | Execute Discrete,In_Range 0099 700a |p | Jump_Nonzero 0xa4 009a 7800 |x | Jump 0x9b 009b 4800 |H | Short_Literal 0x0 009c 8003 | | Call 0x0,0x3 009d 8004 | | Call 0x0,0x4 009e 8005 | | Call 0x0,0x5 009f 00e1 | | Load_Encached Boolean_Cache 00a0 800a | | Call 0x0,0xa 00a1 0059 | Y | Store_Top Discrete,At_Offset_1 00a2 7803 |x | Jump 0xa6 00a3 00d1 | | Pop_Control Pop_Count_1 00a4 4800 |H | Short_Literal 0x0 00a5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00a6 8007 | | Call 0x0,0x7 00a7 00d8 | | Load_Top At_Offset_0 00a8 a5ff | | Store_Unchecked 0x2,-0x1 00a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b4 | | .CONST 0x00b4 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 00e1 | | Load_Encached Boolean_Cache 00b4 BODY_00b0: 00b4 8002 | | Call 0x0,0x2 00b5 4647 |FG | Jump_Case 0x48 00b6 7847 |xG | Jump 0xfe ; case 0x0 00b7 7846 |xF | Jump 0xfe ; case 0x1 00b8 7845 |xE | Jump 0xfe ; case 0x2 00b9 7844 |xD | Jump 0xfe ; case 0x3 00ba 7843 |xC | Jump 0xfe ; case 0x4 00bb 7842 |xB | Jump 0xfe ; case 0x5 00bc 7841 |xA | Jump 0xfe ; case 0x6 00bd 7840 |x@ | Jump 0xfe ; case 0x7 00be 783f |x? | Jump 0xfe ; case 0x8 00bf 783e |x> | Jump 0xfe ; case 0x9 00c0 783d |x= | Jump 0xfe ; case 0xa 00c1 783c |x< | Jump 0xfe ; case 0xb 00c2 783b |x; | Jump 0xfe ; case 0xc 00c3 783a |x: | Jump 0xfe ; case 0xd 00c4 7839 |x9 | Jump 0xfe ; case 0xe 00c5 7838 |x8 | Jump 0xfe ; case 0xf 00c6 7837 |x7 | Jump 0xfe ; case 0x10 00c7 7836 |x6 | Jump 0xfe ; case 0x11 00c8 7835 |x5 | Jump 0xfe ; case 0x12 00c9 7834 |x4 | Jump 0xfe ; case 0x13 00ca 7833 |x3 | Jump 0xfe ; case 0x14 00cb 7832 |x2 | Jump 0xfe ; case 0x15 00cc 7844 |xD | Jump 0x111 ; case 0x16 00cd 7830 |x0 | Jump 0xfe ; case 0x17 00ce 7842 |xB | Jump 0x111 ; case 0x18 00cf 7841 |xA | Jump 0x111 ; case 0x19 00d0 782d |x- | Jump 0xfe ; case 0x1a 00d1 782c |x, | Jump 0xfe ; case 0x1b 00d2 782e |x. | Jump 0x101 ; case 0x1c 00d3 782a |x* | Jump 0xfe ; case 0x1d 00d4 782c |x, | Jump 0x101 ; case 0x1e 00d5 7828 |x( | Jump 0xfe ; case 0x1f 00d6 7827 |x' | Jump 0xfe ; case 0x20 00d7 7826 |x& | Jump 0xfe ; case 0x21 00d8 7825 |x% | Jump 0xfe ; case 0x22 00d9 7827 |x' | Jump 0x101 ; case 0x23 00da 7826 |x& | Jump 0x101 ; case 0x24 00db 7822 |x" | Jump 0xfe ; case 0x25 00dc 7821 |x! | Jump 0xfe ; case 0x26 00dd 7820 |x | Jump 0xfe ; case 0x27 00de 781f |x | Jump 0xfe ; case 0x28 00df 7831 |x1 | Jump 0x111 ; case 0x29 00e0 781d |x | Jump 0xfe ; case 0x2a 00e1 781c |x | Jump 0xfe ; case 0x2b 00e2 781b |x | Jump 0xfe ; case 0x2c 00e3 781a |x | Jump 0xfe ; case 0x2d 00e4 7819 |x | Jump 0xfe ; case 0x2e 00e5 7818 |x | Jump 0xfe ; case 0x2f 00e6 7817 |x | Jump 0xfe ; case 0x30 00e7 7816 |x | Jump 0xfe ; case 0x31 00e8 7828 |x( | Jump 0x111 ; case 0x32 00e9 7814 |x | Jump 0xfe ; case 0x33 00ea 7813 |x | Jump 0xfe ; case 0x34 00eb 7812 |x | Jump 0xfe ; case 0x35 00ec 7811 |x | Jump 0xfe ; case 0x36 00ed 7810 |x | Jump 0xfe ; case 0x37 00ee 780f |x | Jump 0xfe ; case 0x38 00ef 780e |x | Jump 0xfe ; case 0x39 00f0 7827 |x' | Jump 0x118 ; case 0x3a 00f1 7826 |x& | Jump 0x118 ; case 0x3b 00f2 7825 |x% | Jump 0x118 ; case 0x3c 00f3 780a |x | Jump 0xfe ; case 0x3d 00f4 7809 |x | Jump 0xfe ; case 0x3e 00f5 7808 |x | Jump 0xfe ; case 0x3f 00f6 7807 |x | Jump 0xfe ; case 0x40 00f7 7806 |x | Jump 0xfe ; case 0x41 00f8 7805 |x | Jump 0xfe ; case 0x42 00f9 7804 |x | Jump 0xfe ; case 0x43 00fa 780e |x | Jump 0x109 ; case 0x44 00fb 7802 |x | Jump 0xfe ; case 0x45 00fc 7801 |x | Jump 0xfe ; case 0x46 00fd 7800 |x | Jump 0xfe ; case 0x47 00fe 4801 |H | Short_Literal 0x1 00ff 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0100 7826 |x& | Jump 0x127 0101 4800 |H | Short_Literal 0x0 0102 8003 | | Call 0x0,0x3 0103 8004 | | Call 0x0,0x4 0104 8005 | | Call 0x0,0x5 0105 00e1 | | Load_Encached Boolean_Cache 0106 800a | | Call 0x0,0xa 0107 0059 | Y | Store_Top Discrete,At_Offset_1 0108 781e |x | Jump 0x127 0109 4800 |H | Short_Literal 0x0 010a 8003 | | Call 0x0,0x3 010b 8004 | | Call 0x0,0x4 010c 8005 | | Call 0x0,0x5 010d 00e1 | | Load_Encached Boolean_Cache 010e 800c | | Call 0x0,0xc 010f 0059 | Y | Store_Top Discrete,At_Offset_1 0110 7816 |x | Jump 0x127 0111 4800 |H | Short_Literal 0x0 0112 8003 | | Call 0x0,0x3 0113 8004 | | Call 0x0,0x4 0114 4801 |H | Short_Literal 0x1 0115 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0116 8005 | | Call 0x0,0x5 0117 780f |x | Jump 0x127 0118 4800 |H | Short_Literal 0x0 0119 8003 | | Call 0x0,0x3 011a 8004 | | Call 0x0,0x4 011b 8009 | | Call 0x0,0x9 011c 0f43 | C | Execute_Immediate Equal,0x43 011d 6807 |h | Jump_Zero 0x125 011e 4801 |H | Short_Literal 0x1 011f 8003 | | Call 0x0,0x3 0120 8004 | | Call 0x0,0x4 0121 4801 |H | Short_Literal 0x1 0122 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0123 8005 | | Call 0x0,0x5 0124 7802 |x | Jump 0x127 0125 4800 |H | Short_Literal 0x0 0126 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0127 00d8 | | Load_Top At_Offset_0 0128 a5ff | | Store_Unchecked 0x2,-0x1 0129 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012a 0000 0000 | | .BLANK 0000[0x6] 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug Table 0130 ; -------------------------------------------------------------------------------------- 0130 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdf5f,0x0000,0x0001,0x0004 0136 000b 0146 | F| .DBG4T 0x000b,0x0146,0x8000,0x0000 013a 000e 0149 | I| .DBG4T 0x000e,0x0149,0x8000,0x0000 013e 001b 014d | M| .DBG4T 0x001b,0x014d,0x0001,0x4000 0142 00b3 0192 | | .DBG4T 0x00b3,0x0192,0x0001,0x4000 0146 ; -------------------------------------------------------------------------------------- 0146 ; Debug chain 0146 ; -------------------------------------------------------------------------------------- 0146 0001 0000 | | .DBGLEN 0x0001,0x0000 0148 000b | | .DBGLNO 0x000b 0149 ; -------------------------------------------------------------------------------------- 0149 ; Debug chain 0149 ; -------------------------------------------------------------------------------------- 0149 0002 0000 | | .DBGLEN 0x0002,0x0000 014b 000e 0010 | | .DBGLNO 0x000e,0x0010 014d ; -------------------------------------------------------------------------------------- 014d ; Debug chain 014d ; -------------------------------------------------------------------------------------- 014d 0001 0021 | !| .DBGLEN 0x0001,0x0021 014f 001b 001c | | .DBGLNO 0x001b,0x001c,0x0049,0x004c,0x004d,0x0050,0x0056,0x0059,0x005c,0x005d,0x0060,0x0062,0x0065,0x0066,0x0069,0x006b,0x006e,0x0075,0x0079,0x007c,0x007d,0x0080,0x0082,0x0085,0x0086,0x0089,0x008b,0x008e,0x009b,0x009e,0x009f,0x00a4,0x00a6,0x00a7 0171 0001 0015 | | .XXX[0x21] 0173 0016 0017 | | 0175 0018 0020 | | 0177 0002 0003 | | 0179 0004 0005 | | 017b 0006 0007 | | 017d 0008 0009 | | 017f 000a 000b | | 0181 000f 000c | | 0183 000d 000e | | 0185 0010 0011 | | 0187 0012 0013 | | 0189 0014 0019 | | 018b 001a 001b | | 018d 001c 001d | | 018f 001e 001f | | 0191 0021 | ! | 0192 ; -------------------------------------------------------------------------------------- 0192 ; Debug chain 0192 ; -------------------------------------------------------------------------------------- 0192 0001 0012 | | .DBGLEN 0x0001,0x0012 0194 00b3 00b4 | | .DBGLNO 0x00b3,0x00b4,0x00fe,0x0101,0x0104,0x0105,0x0109,0x010c,0x010d,0x0111,0x0114,0x0116,0x0118,0x011b,0x011e,0x0121,0x0123,0x0125,0x0127 01a7 0001 0011 | | .XXX[0x12] 01a9 0002 0003 | | 01ab 0004 0005 | | 01ad 0006 0007 | | 01af 0008 0009 | | 01b1 000a 000b | | 01b3 000c 000d | | 01b5 000e 000f | | 01b7 0010 0012 | | 01b9 0000 0000 | | .BLANK 0000[0x47]