|
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_03b8fe
└─⟦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 0180 | | .CONST 0x0180 ; 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 00bc | | .CONST 0x00bc ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
000f c20e | | Store 0x1,0xe
0010 00bf | | Action Accept_Activation
0011 4801 |H | Short_Literal 0x1
0012 4803 |H | Short_Literal 0x3
0013 00e9 | | Load_Encached String_Cache
0014 035b | [ | Declare_Type Array,Constrained
0015 4801 |H | Short_Literal 0x1
0016 480c |H | Short_Literal 0xc
0017 4801 |H | Short_Literal 0x1
0018 4803 |H | Short_Literal 0x3
0019 00e9 | | Load_Encached String_Cache
001a 035b | [ | Declare_Type Array,Constrained
001b 02a0 | | Declare_Subprogram Null_Subprogram
001c 4801 |H | Short_Literal 0x1
001d 035d | ] | Declare_Type Array,Defined
001e 00d8 | | Load_Top At_Offset_0
001f 0337 | 7 | Declare_Variable Array
0020 00d8 | | Load_Top At_Offset_0
0021 0335 | 5 | Declare_Variable Array,Duplicate
0022 00cd | | Action Spare6_Action
0023 0092 0150 | P| Action Push_String_Extended,0x150 ; "JAN"
0025 00db | | Load_Top At_Offset_3
0026 01d8 | | Execute Vector,Element_Type
0027 0119 | | Execute Any,Check_In_Formal_Type
0028 4801 |H | Short_Literal 0x1
0029 00da | | Load_Top At_Offset_2
002a 01d6 | | Execute Vector,Field_Write
002b 0092 0151 | Q| Action Push_String_Extended,0x151 ; "FEB"
002d 00db | | Load_Top At_Offset_3
002e 01d8 | | Execute Vector,Element_Type
002f 0119 | | Execute Any,Check_In_Formal_Type
0030 4802 |H | Short_Literal 0x2
0031 00da | | Load_Top At_Offset_2
0032 01d6 | | Execute Vector,Field_Write
0033 0092 0152 | R| Action Push_String_Extended,0x152 ; "MAR"
0035 00db | | Load_Top At_Offset_3
0036 01d8 | | Execute Vector,Element_Type
0037 0119 | | Execute Any,Check_In_Formal_Type
0038 4803 |H | Short_Literal 0x3
0039 00da | | Load_Top At_Offset_2
003a 01d6 | | Execute Vector,Field_Write
003b 0092 0153 | S| Action Push_String_Extended,0x153 ; "APR"
003d 00db | | Load_Top At_Offset_3
003e 01d8 | | Execute Vector,Element_Type
003f 0119 | | Execute Any,Check_In_Formal_Type
0040 4804 |H | Short_Literal 0x4
0041 00da | | Load_Top At_Offset_2
0042 01d6 | | Execute Vector,Field_Write
0043 0092 0154 | T| Action Push_String_Extended,0x154 ; "MAY"
0045 00db | | Load_Top At_Offset_3
0046 01d8 | | Execute Vector,Element_Type
0047 0119 | | Execute Any,Check_In_Formal_Type
0048 4805 |H | Short_Literal 0x5
0049 00da | | Load_Top At_Offset_2
004a 01d6 | | Execute Vector,Field_Write
004b 0092 0155 | U| Action Push_String_Extended,0x155 ; "JUN"
004d 00db | | Load_Top At_Offset_3
004e 01d8 | | Execute Vector,Element_Type
004f 0119 | | Execute Any,Check_In_Formal_Type
0050 4806 |H | Short_Literal 0x6
0051 00da | | Load_Top At_Offset_2
0052 01d6 | | Execute Vector,Field_Write
0053 0092 0156 | V| Action Push_String_Extended,0x156 ; "JUL"
0055 00db | | Load_Top At_Offset_3
0056 01d8 | | Execute Vector,Element_Type
0057 0119 | | Execute Any,Check_In_Formal_Type
0058 4807 |H | Short_Literal 0x7
0059 00da | | Load_Top At_Offset_2
005a 01d6 | | Execute Vector,Field_Write
005b 0092 0157 | W| Action Push_String_Extended,0x157 ; "AUG"
005d 00db | | Load_Top At_Offset_3
005e 01d8 | | Execute Vector,Element_Type
005f 0119 | | Execute Any,Check_In_Formal_Type
0060 4808 |H | Short_Literal 0x8
0061 00da | | Load_Top At_Offset_2
0062 01d6 | | Execute Vector,Field_Write
0063 0092 0158 | X| Action Push_String_Extended,0x158 ; "SEP"
0065 00db | | Load_Top At_Offset_3
0066 01d8 | | Execute Vector,Element_Type
0067 0119 | | Execute Any,Check_In_Formal_Type
0068 4809 |H | Short_Literal 0x9
0069 00da | | Load_Top At_Offset_2
006a 01d6 | | Execute Vector,Field_Write
006b 0092 0159 | Y| Action Push_String_Extended,0x159 ; "OCT"
006d 00db | | Load_Top At_Offset_3
006e 01d8 | | Execute Vector,Element_Type
006f 0119 | | Execute Any,Check_In_Formal_Type
0070 480a |H | Short_Literal 0xa
0071 00da | | Load_Top At_Offset_2
0072 01d6 | | Execute Vector,Field_Write
0073 0092 015a | Z| Action Push_String_Extended,0x15a ; "NOV"
0075 00db | | Load_Top At_Offset_3
0076 01d8 | | Execute Vector,Element_Type
0077 0119 | | Execute Any,Check_In_Formal_Type
0078 480b |H | Short_Literal 0xb
0079 00da | | Load_Top At_Offset_2
007a 01d6 | | Execute Vector,Field_Write
007b 0092 015b | [| Action Push_String_Extended,0x15b ; "DEC"
007d 00db | | Load_Top At_Offset_3
007e 01d8 | | Execute Vector,Element_Type
007f 0119 | | Execute Any,Check_In_Formal_Type
0080 480c |H | Short_Literal 0xc
0081 00da | | Load_Top At_Offset_2
0082 01d6 | | Execute Vector,Field_Write
0083 00d9 | | Load_Top At_Offset_1
0084 01d4 | | Execute Vector,Structure_Write
0085 4800 |H | Short_Literal 0x0
0086 4809 |H | Short_Literal 0x9
0087 00e8 | | Load_Encached Character_Cache
0088 02a0 | | Declare_Subprogram Null_Subprogram
0089 4801 |H | Short_Literal 0x1
008a 035d | ] | Declare_Type Array,Defined
008b 00d8 | | Load_Top At_Offset_0
008c 0337 | 7 | Declare_Variable Array
008d 00d8 | | Load_Top At_Offset_0
008e 0335 | 5 | Declare_Variable Array,Duplicate
008f 00cd | | Action Spare6_Action
0090 4830 |H0 | Short_Literal 0x30
0091 4800 |H | Short_Literal 0x0
0092 00da | | Load_Top At_Offset_2
0093 01d6 | | Execute Vector,Field_Write
0094 4831 |H1 | Short_Literal 0x31
0095 4801 |H | Short_Literal 0x1
0096 00da | | Load_Top At_Offset_2
0097 01d6 | | Execute Vector,Field_Write
0098 4832 |H2 | Short_Literal 0x32
0099 4802 |H | Short_Literal 0x2
009a 00da | | Load_Top At_Offset_2
009b 01d6 | | Execute Vector,Field_Write
009c 4833 |H3 | Short_Literal 0x33
009d 4803 |H | Short_Literal 0x3
009e 00da | | Load_Top At_Offset_2
009f 01d6 | | Execute Vector,Field_Write
00a0 4834 |H4 | Short_Literal 0x34
00a1 4804 |H | Short_Literal 0x4
00a2 00da | | Load_Top At_Offset_2
00a3 01d6 | | Execute Vector,Field_Write
00a4 4835 |H5 | Short_Literal 0x35
00a5 4805 |H | Short_Literal 0x5
00a6 00da | | Load_Top At_Offset_2
00a7 01d6 | | Execute Vector,Field_Write
00a8 4836 |H6 | Short_Literal 0x36
00a9 4806 |H | Short_Literal 0x6
00aa 00da | | Load_Top At_Offset_2
00ab 01d6 | | Execute Vector,Field_Write
00ac 4837 |H7 | Short_Literal 0x37
00ad 4807 |H | Short_Literal 0x7
00ae 00da | | Load_Top At_Offset_2
00af 01d6 | | Execute Vector,Field_Write
00b0 4838 |H8 | Short_Literal 0x38
00b1 4808 |H | Short_Literal 0x8
00b2 00da | | Load_Top At_Offset_2
00b3 01d6 | | Execute Vector,Field_Write
00b4 4839 |H9 | Short_Literal 0x39
00b5 4809 |H | Short_Literal 0x9
00b6 00da | | Load_Top At_Offset_2
00b7 01d6 | | Execute Vector,Field_Write
00b8 00d9 | | Load_Top At_Offset_1
00b9 01d4 | | Execute Vector,Structure_Write
00ba 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00bb 00c7 | | Action Elaborate_Subprogram
00bc BODY_0008:
00bc 00bc | | Action Signal_Activated
00bd 00bb | | Action Signal_Completion
00be 0000 0000 | | .XXX[0x2]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00d2 | | .CONST 0x00d2 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0008 | | .CONST 0x0008 ; Number of locals
00c3 INIT_00c0:
00c3 4814 |H | Short_Literal 0x14
00c4 e001 | | Load 0x0,0x1
00c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c6 1c08 | | Execute_Immediate Run_Utility,0x8
00c7 00d8 | | Load_Top At_Offset_0
00c8 1c00 | | Execute_Immediate Run_Utility,0x0
00c9 00e2 | | Load_Encached Integer_Cache
00ca 00e2 | | Load_Encached Integer_Cache
00cb 00e2 | | Load_Encached Integer_Cache
00cc e002 | | Load 0x0,0x2
00cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ce 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
00d0 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
00d2 BODY_00c0:
00d2 e5ff | | Load 0x2,-0x1
00d3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00d4 7007 |p | Jump_Nonzero 0xdc
00d5 e402 | | Load 0x2,0x2
00d6 0092 015c | \| Action Push_String_Extended,0x15c ; " ??:??:?? ??-???-?? "
00d8 e001 | | Load 0x0,0x1
00d9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00da 00d1 | | Pop_Control Pop_Count_1
00db 7801 |x | Jump 0xdd
00dc 8408 | | Call 0x2,0x8
00dd e402 | | Load 0x2,0x2
00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00df 0000 | | .XXX[0x1]
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 e402 | | Load 0x2,0x2
00e4 00db | | Load_Top At_Offset_3
00e5 480a |H | Short_Literal 0xa
00e6 0270 | p | Execute Discrete,Divide
00e7 e213 | | Load 0x1,0x13
00e8 01d7 | | Execute Vector,Field_Read
00e9 e001 | | Load 0x0,0x1
00ea 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00eb 00d1 | | Pop_Control Pop_Count_1
00ec e402 | | Load 0x2,0x2
00ed 00db | | Load_Top At_Offset_3
00ee 480a |H | Short_Literal 0xa
00ef 026e | n | Execute Discrete,Modulo
00f0 e213 | | Load 0x1,0x13
00f1 01d7 | | Execute Vector,Field_Read
00f2 e001 | | Load 0x0,0x1
00f3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00f4 00d1 | | Pop_Control Pop_Count_1
00f5 00db | | Load_Top At_Offset_3
00f6 6805 |h | Jump_Zero 0xfc
00f7 e402 | | Load 0x2,0x2
00f8 e7fe | | Load 0x3,-0x2
00f9 e001 | | Load 0x0,0x1
00fa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00fb 00d1 | | Pop_Control Pop_Count_1
00fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e5ff | | Load 0x2,-0x1
0104 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0105 6046 |`F | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00000708}
0106 0270 | p | Execute Discrete,Divide
0107 00d8 | | Load_Top At_Offset_0
0108 00e2 | | Load_Encached Integer_Cache
0109 0260 | ` | Execute Discrete,In_Type
010a 7001 |p | Jump_Nonzero 0x10c
010b 0801 | | Execute_Immediate Raise,0x1
010c a403 | | Store_Unchecked 0x2,0x3
010d e5ff | | Load 0x2,-0x1
010e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010f 603c |`< | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00000708}
0110 026e | n | Execute Discrete,Modulo
0111 c406 | | Store 0x2,0x6
0112 e406 | | Load 0x2,0x6
0113 481e |H | Short_Literal 0x1e
0114 0270 | p | Execute Discrete,Divide
0115 00d8 | | Load_Top At_Offset_0
0116 00e2 | | Load_Encached Integer_Cache
0117 0260 | ` | Execute Discrete,In_Type
0118 7001 |p | Jump_Nonzero 0x11a
0119 0801 | | Execute_Immediate Raise,0x1
011a a404 | | Store_Unchecked 0x2,0x4
011b e406 | | Load 0x2,0x6
011c 481e |H | Short_Literal 0x1e
011d 026e | n | Execute Discrete,Modulo
011e 0901 | | Execute_Immediate Binary_Scale,0x1
011f 00d8 | | Load_Top At_Offset_0
0120 00e2 | | Load_Encached Integer_Cache
0121 0260 | ` | Execute Discrete,In_Type
0122 7001 |p | Jump_Nonzero 0x124
0123 0801 | | Execute_Immediate Raise,0x1
0124 a405 | | Store_Unchecked 0x2,0x5
0125 483a |H: | Short_Literal 0x3a
0126 e403 | | Load 0x2,0x3
0127 8407 | | Call 0x2,0x7
0128 483a |H: | Short_Literal 0x3a
0129 e404 | | Load 0x2,0x4
012a 8407 | | Call 0x2,0x7
012b 4820 |H | Short_Literal 0x20
012c e405 | | Load 0x2,0x5
012d 8407 | | Call 0x2,0x7
012e 482d |H- | Short_Literal 0x2d
012f e5ff | | Load 0x2,-0x1
0130 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0131 8407 | | Call 0x2,0x7
0132 e402 | | Load 0x2,0x2
0133 e5ff | | Load 0x2,-0x1
0134 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0135 e211 | | Load 0x1,0x11
0136 01d5 | | Execute Vector,Field_Reference
0137 e001 | | Load 0x0,0x1
0138 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0139 e001 | | Load 0x0,0x1
013a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
013b 00d1 | | Pop_Control Pop_Count_1
013c e402 | | Load 0x2,0x2
013d 482d |H- | Short_Literal 0x2d
013e e001 | | Load 0x0,0x1
013f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0140 00d1 | | Pop_Control Pop_Count_1
0141 4800 |H | Short_Literal 0x0
0142 e5ff | | Load 0x2,-0x1
0143 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0144 0a01 | | Execute_Immediate Plus,0x1
0145 00d8 | | Load_Top At_Offset_0
0146 00e2 | | Load_Encached Integer_Cache
0147 0260 | ` | Execute Discrete,In_Type
0148 7001 |p | Jump_Nonzero 0x14a
0149 0801 | | Execute_Immediate Raise,0x1
014a 8407 | | Call 0x2,0x7
014b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
014c 0000 0000 | | .LITERAL {0x00000000, 0x00000708}
0150 ; --------------------------------------------------------------------------------------
0150 ; STRING TABLE
0150 ; --------------------------------------------------------------------------------------
0150 001c | | .STRTAB 0x001c->0x015e ; "JAN"
0151 001d | | .STRTAB 0x001d->0x015f ; "FEB"
0152 001e | | .STRTAB 0x001e->0x0161 ; "MAR"
0153 001f | | .STRTAB 0x001f->0x0162 ; "APR"
0154 0020 | | .STRTAB 0x0020->0x0164 ; "MAY"
0155 0021 | ! | .STRTAB 0x0021->0x0165 ; "JUN"
0156 0022 | " | .STRTAB 0x0022->0x0167 ; "JUL"
0157 0023 | # | .STRTAB 0x0023->0x0168 ; "AUG"
0158 0024 | $ | .STRTAB 0x0024->0x016a ; "SEP"
0159 0025 | % | .STRTAB 0x0025->0x016b ; "OCT"
015a 0026 | & | .STRTAB 0x0026->0x016d ; "NOV"
015b 0027 | ' | .STRTAB 0x0027->0x016e ; "DEC"
015c 0028 | ( | .STRTAB 0x0028->0x0170 ; " ??:??:?? ??-???-?? "
015d 003a | : | .STREND 0x003a->0x017a
015e 4a41 4e46 |JANF| .STRTAB_STRINGS
017a 0000 0000 | | .BLANK 0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug Table
0180 ; --------------------------------------------------------------------------------------
0180 0004 000e | | .DEBUG4 0x0004,0x000e,0x0ece,0x0000,0x0001,0x0000
0186 9fff f91f | | .XXX[0x7a]
0188 e400 1f03 | |
018a f10f ac01 | |
018c 28cb f010 |( |
018e 04cb e400 | |
0190 03f1 c0d0 | |
0192 f000 78cb | x |
0194 0909 64cb | d |
0196 f000 0117 | |
0198 e400 03f1 | |
019a c8cb 4949 | II|
019c 4829 67ff |H)g |
019e fd17 e400 | |
01a0 1ee0 7127 | q'|
01a2 ec05 c000 | |
01a4 0018 29c8 | ) |
01a6 0c93 7147 | qG|
01a8 27ff f117 |' |
01aa e400 1ee0 | |
01ac 3092 2117 |0 ! |
01ae e400 1ee0 | |
01b0 a203 e400 | |
01b2 1f6a 70d3 | jp |
01b4 0109 0121 | !|
01b6 0203 e400 | |
01b8 1f6a 7853 | jxS|
01ba 0109 0121 | !|
01bc 038c 2052 | R|
01be 0117 e400 | |
01c0 1ee0 71c8 | q |
01c2 0c8b 6947 | iG|
01c4 27ff f0c8 |' |
01c6 0811 0400 | |
01c8 78cb 050f |x |
01ca ac00 a117 | |
01cc e400 03f1 | |
01ce e08b 688b | h |
01d0 688b 68cb |h h |
01d2 f020 0091 | |
01d4 24cb f114 |$ |
01d6 0019 0800 | |
01d8 50cb 0819 |P |
01da 0800 38dd | 8 |
01dc 0800 40cb | @ |
01de 250a 00cb |% |
01e0 00cb f0f0 | |
01e2 44cb 008b |D |
01e4 e400 03f1 | |
01e6 908b e400 | |
01e8 03f1 a0c8 | |
01ea f000 2741 | 'A|
01ec 6990 0949 |i I|
01ee 0147 27ff | G' |
01f0 e029 03ff | ) |
01f2 fcd5 03ff | |
01f4 d89d f000 | |
01f6 19bb 9000 | |
01f8 50dd f000 |P |
01fa 1400 3023 | 0#|
01fc 4c00 7907 |L y |
01fe e64c 0f90 | L |