|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_18b8e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0208 | | .CONST 0x0208 ; 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 0001 | | .CONST 0x0001 ; 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 0077 | w | .CONST 0x0077 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0004 | | .CONST 0x0004 ; Number of locals
001b INIT_0018:
001b 4801 |H | Short_Literal 0x1
001c 480a |H | Short_Literal 0xa
001d 00e5 | | Load_Encached Long_Integer_Cache
001e 03f8 | | Declare_Type Discrete,Constrained
001f 0093 0000 | | push_full_address 0x0
0021 605a |`Z | Indirect_Literal Discrete,0x7c,{0x80000000, 0x00010000}
0022 0273 | s | Execute Discrete,Plus
0023 e002 | | Load 0x0,0x2
0024 0273 | s | Execute Discrete,Plus
0025 e003 | | Load 0x0,0x3
0026 0273 | s | Execute Discrete,Plus
0027 00e8 | | Load_Encached Character_Cache
0028 00d8 | | Load_Top At_Offset_0
0029 012c | , | Execute Any,Size
002a 00d9 | | Load_Top At_Offset_1
002b 0266 | f | Execute Discrete,Bounds
002c 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
002e 03fa | | Declare_Type Discrete,Defined,With_Size
002f 00cd | | Action Spare6_Action
0030 00da | | Load_Top At_Offset_2
0031 00d8 | | Load_Top At_Offset_0
0032 012c | , | Execute Any,Size
0033 00d9 | | Load_Top At_Offset_1
0034 0266 | f | Execute Discrete,Bounds
0035 00db | | Load_Top At_Offset_3
0036 0122 | " | Execute Any,Make_Root_Type
0037 00d8 | | Load_Top At_Offset_0
0038 012c | , | Execute Any,Size
0039 00d0 | | Action Swap_Control
003a 0266 | f | Execute Discrete,Bounds
003b 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
003d 03fa | | Declare_Type Discrete,Defined,With_Size
003e 03f7 | | QQ_Declare_Variable Discrete,XXX
003f 00cd | | Action Spare6_Action
0040 00e0 | | Load_Encached Standard_Cache
0041 1923 | # | Execute Package,Field_Reference,Field_Number 0x23
0042 e004 | | Load 0x0,0x4
0043 0387 | | Declare_Variable Package
0044 00d8 | | Load_Top At_Offset_0
0045 020f | | Execute Module,Activate
0046 e005 | | Load 0x0,0x5
0047 00d9 | | Load_Top At_Offset_1
0048 0098 | | Execute Package,Field_Read_Dynamic
0049 0337 | 7 | Declare_Variable Array
004a 00d8 | | Load_Top At_Offset_0
004b 0335 | 5 | Declare_Variable Array,Duplicate
004c 00cd | | Action Spare6_Action
004d 4841 |HA | Short_Literal 0x41
004e 4801 |H | Short_Literal 0x1
004f 00da | | Load_Top At_Offset_2
0050 01d6 | | Execute Vector,Field_Write
0051 4841 |HA | Short_Literal 0x41
0052 4802 |H | Short_Literal 0x2
0053 00da | | Load_Top At_Offset_2
0054 01d6 | | Execute Vector,Field_Write
0055 4842 |HB | Short_Literal 0x42
0056 4803 |H | Short_Literal 0x3
0057 00da | | Load_Top At_Offset_2
0058 01d6 | | Execute Vector,Field_Write
0059 4842 |HB | Short_Literal 0x42
005a 4804 |H | Short_Literal 0x4
005b 00da | | Load_Top At_Offset_2
005c 01d6 | | Execute Vector,Field_Write
005d 4843 |HC | Short_Literal 0x43
005e 4805 |H | Short_Literal 0x5
005f 00da | | Load_Top At_Offset_2
0060 01d6 | | Execute Vector,Field_Write
0061 4843 |HC | Short_Literal 0x43
0062 4806 |H | Short_Literal 0x6
0063 00da | | Load_Top At_Offset_2
0064 01d6 | | Execute Vector,Field_Write
0065 4844 |HD | Short_Literal 0x44
0066 4807 |H | Short_Literal 0x7
0067 00da | | Load_Top At_Offset_2
0068 01d6 | | Execute Vector,Field_Write
0069 4844 |HD | Short_Literal 0x44
006a 4808 |H | Short_Literal 0x8
006b 00da | | Load_Top At_Offset_2
006c 01d6 | | Execute Vector,Field_Write
006d 4845 |HE | Short_Literal 0x45
006e 4809 |H | Short_Literal 0x9
006f 00da | | Load_Top At_Offset_2
0070 01d6 | | Execute Vector,Field_Write
0071 4845 |HE | Short_Literal 0x45
0072 480a |H | Short_Literal 0xa
0073 00da | | Load_Top At_Offset_2
0074 01d6 | | Execute Vector,Field_Write
0075 00d9 | | Load_Top At_Offset_1
0076 01d4 | | Execute Vector,Structure_Write
0077 BODY_0018:
0077 00d8 | | Load_Top At_Offset_0
0078 e006 | | Load 0x0,0x6
0079 00db | | Load_Top At_Offset_3
007a 0096 | | Execute Package,Entry
007b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4607 |F | Jump_Case 0x8
0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0085 7807 |x | Jump 0x8d ; case 0x1
0086 780a |x | Jump 0x91 ; case 0x2
0087 780e |x | Jump 0x96 ; case 0x3
0088 7811 |x | Jump 0x9a ; case 0x4
0089 7812 |x | Jump 0x9c ; case 0x5
008a 7813 |x | Jump 0x9e ; case 0x6
008b 7816 |x | Jump 0xa2 ; case 0x7
008c 4302 |C | .XXX[0x1]
008d 00da | | Load_Top At_Offset_2
008e 0091 00cc | | Action Push_String_Extended_Indexed,0xcc ; "NUL"
0090 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0091 00db | | Load_Top At_Offset_3
0092 00db | | Load_Top At_Offset_3
0093 00e0 | | Load_Encached Standard_Cache
0094 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0096 00da | | Load_Top At_Offset_2
0097 00e0 | | Load_Encached Standard_Cache
0098 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0099 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
009a 00db | | Load_Top At_Offset_3
009b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009c 00db | | Load_Top At_Offset_3
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009e 00e8 | | Load_Encached Character_Cache
009f 00dc | | Load_Top At_Offset_4
00a0 0267 | g | Execute Discrete,Predecessor
00a1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a2 00e8 | | Load_Encached Character_Cache
00a3 00dc | | Load_Top At_Offset_4
00a4 0268 | h | Execute Discrete,Successor
00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a6 0000 0000 | | .XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4607 |F | Jump_Case 0x8
00ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ad 7807 |x | Jump 0xb5 ; case 0x1
00ae 780a |x | Jump 0xb9 ; case 0x2
00af 780e |x | Jump 0xbe ; case 0x3
00b0 7811 |x | Jump 0xc2 ; case 0x4
00b1 7810 |x | Jump 0xc2 ; case 0x5
00b2 7811 |x | Jump 0xc4 ; case 0x6
00b3 7814 |x | Jump 0xc8 ; case 0x7
00b4 4302 |C | .XXX[0x1]
00b5 00da | | Load_Top At_Offset_2
00b6 00e0 | | Load_Encached Standard_Cache
00b7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b9 00db | | Load_Top At_Offset_3
00ba 00db | | Load_Top At_Offset_3
00bb 00e0 | | Load_Encached Standard_Cache
00bc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00be 00da | | Load_Top At_Offset_2
00bf 00e0 | | Load_Encached Standard_Cache
00c0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c2 00db | | Load_Top At_Offset_3
00c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c4 00e5 | | Load_Encached Long_Integer_Cache
00c5 00dc | | Load_Top At_Offset_4
00c6 0267 | g | Execute Discrete,Predecessor
00c7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c8 00e5 | | Load_Encached Long_Integer_Cache
00c9 00dc | | Load_Top At_Offset_4
00ca 0268 | h | Execute Discrete,Successor
00cb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00cc ; --------------------------------------------------------------------------------------
00cc ; STRING TABLE
00cc ; --------------------------------------------------------------------------------------
00cc 0102 | | .STRTAB 0x0102->0x014d ; "NUL"
00cd 0103 | | .STRTAB 0x0103->0x014e ; "SOH"
00ce 0104 | | .STRTAB 0x0104->0x0150 ; "STX"
00cf 0105 | | .STRTAB 0x0105->0x0151 ; "ETX"
00d0 0106 | | .STRTAB 0x0106->0x0153 ; "EOT"
00d1 0107 | | .STRTAB 0x0107->0x0154 ; "ENQ"
00d2 0108 | | .STRTAB 0x0108->0x0156 ; "ACK"
00d3 0109 | | .STRTAB 0x0109->0x0157 ; "BEL"
00d4 010a | | .STRTAB 0x010a->0x0159 ; "BS"
00d5 010a | | .STRTAB 0x010a->0x015a ; "HT"
00d6 010a | | .STRTAB 0x010a->0x015b ; "LF"
00d7 010a | | .STRTAB 0x010a->0x015c ; "VT"
00d8 010a | | .STRTAB 0x010a->0x015d ; "FF"
00d9 010a | | .STRTAB 0x010a->0x015e ; "CR"
00da 010a | | .STRTAB 0x010a->0x015f ; "SO"
00db 010a | | .STRTAB 0x010a->0x0160 ; "SI"
00dc 010a | | .STRTAB 0x010a->0x0161 ; "DLE"
00dd 010b | | .STRTAB 0x010b->0x0162 ; "DC1"
00de 010c | | .STRTAB 0x010c->0x0164 ; "DC2"
00df 010d | | .STRTAB 0x010d->0x0165 ; "DC3"
00e0 010e | | .STRTAB 0x010e->0x0167 ; "DC4"
00e1 010f | | .STRTAB 0x010f->0x0168 ; "NAK"
00e2 0110 | | .STRTAB 0x0110->0x016a ; "SYN"
00e3 0111 | | .STRTAB 0x0111->0x016b ; "ETB"
00e4 0112 | | .STRTAB 0x0112->0x016d ; "CAN"
00e5 0113 | | .STRTAB 0x0113->0x016e ; "EM"
00e6 0113 | | .STRTAB 0x0113->0x016f ; "SUB"
00e7 0114 | | .STRTAB 0x0114->0x0171 ; "ESC"
00e8 0115 | | .STRTAB 0x0115->0x0172 ; "FS"
00e9 0115 | | .STRTAB 0x0115->0x0173 ; "GS"
00ea 0115 | | .STRTAB 0x0115->0x0174 ; "RS"
00eb 0115 | | .STRTAB 0x0115->0x0175 ; "US"
00ec 0115 | | .STRTAB 0x0115->0x0176 ; "' '"
00ed 0116 | | .STRTAB 0x0116->0x0178 ; "'!'"
00ee 0117 | | .STRTAB 0x0117->0x0179 ; "'\x22'"
00ef 0118 | | .STRTAB 0x0118->0x017b ; "'#'"
00f0 0119 | | .STRTAB 0x0119->0x017c ; "'$'"
00f1 011a | | .STRTAB 0x011a->0x017e ; "'%'"
00f2 011b | | .STRTAB 0x011b->0x017f ; "'&'"
00f3 011c | | .STRTAB 0x011c->0x0181 ; "'''"
00f4 011d | | .STRTAB 0x011d->0x0182 ; "'('"
00f5 011e | | .STRTAB 0x011e->0x0184 ; "')'"
00f6 011f | | .STRTAB 0x011f->0x0185 ; "'*'"
00f7 0120 | | .STRTAB 0x0120->0x0187 ; "'+'"
00f8 0121 | ! | .STRTAB 0x0121->0x0188 ; "','"
00f9 0122 | " | .STRTAB 0x0122->0x018a ; "'-'"
00fa 0123 | # | .STRTAB 0x0123->0x018b ; "'.'"
00fb 0124 | $ | .STRTAB 0x0124->0x018d ; "'/'"
00fc 0125 | % | .STRTAB 0x0125->0x018e ; "'0'"
00fd 0126 | & | .STRTAB 0x0126->0x0190 ; "'1'"
00fe 0127 | ' | .STRTAB 0x0127->0x0191 ; "'2'"
00ff 0128 | ( | .STRTAB 0x0128->0x0193 ; "'3'"
0100 0129 | ) | .STRTAB 0x0129->0x0194 ; "'4'"
0101 012a | * | .STRTAB 0x012a->0x0196 ; "'5'"
0102 012b | + | .STRTAB 0x012b->0x0197 ; "'6'"
0103 012c | , | .STRTAB 0x012c->0x0199 ; "'7'"
0104 012d | - | .STRTAB 0x012d->0x019a ; "'8'"
0105 012e | . | .STRTAB 0x012e->0x019c ; "'9'"
0106 012f | / | .STRTAB 0x012f->0x019d ; "':'"
0107 0130 | 0 | .STRTAB 0x0130->0x019f ; "';'"
0108 0131 | 1 | .STRTAB 0x0131->0x01a0 ; "'<'"
0109 0132 | 2 | .STRTAB 0x0132->0x01a2 ; "'='"
010a 0133 | 3 | .STRTAB 0x0133->0x01a3 ; "'>'"
010b 0134 | 4 | .STRTAB 0x0134->0x01a5 ; "'?'"
010c 0135 | 5 | .STRTAB 0x0135->0x01a6 ; "'@'"
010d 0136 | 6 | .STRTAB 0x0136->0x01a8 ; "'A'"
010e 0137 | 7 | .STRTAB 0x0137->0x01a9 ; "'B'"
010f 0138 | 8 | .STRTAB 0x0138->0x01ab ; "'C'"
0110 0139 | 9 | .STRTAB 0x0139->0x01ac ; "'D'"
0111 013a | : | .STRTAB 0x013a->0x01ae ; "'E'"
0112 013b | ; | .STRTAB 0x013b->0x01af ; "'F'"
0113 013c | < | .STRTAB 0x013c->0x01b1 ; "'G'"
0114 013d | = | .STRTAB 0x013d->0x01b2 ; "'H'"
0115 013e | > | .STRTAB 0x013e->0x01b4 ; "'I'"
0116 013f | ? | .STRTAB 0x013f->0x01b5 ; "'J'"
0117 0140 | @ | .STRTAB 0x0140->0x01b7 ; "'K'"
0118 0141 | A | .STRTAB 0x0141->0x01b8 ; "'L'"
0119 0142 | B | .STRTAB 0x0142->0x01ba ; "'M'"
011a 0143 | C | .STRTAB 0x0143->0x01bb ; "'N'"
011b 0144 | D | .STRTAB 0x0144->0x01bd ; "'O'"
011c 0145 | E | .STRTAB 0x0145->0x01be ; "'P'"
011d 0146 | F | .STRTAB 0x0146->0x01c0 ; "'Q'"
011e 0147 | G | .STRTAB 0x0147->0x01c1 ; "'R'"
011f 0148 | H | .STRTAB 0x0148->0x01c3 ; "'S'"
0120 0149 | I | .STRTAB 0x0149->0x01c4 ; "'T'"
0121 014a | J | .STRTAB 0x014a->0x01c6 ; "'U'"
0122 014b | K | .STRTAB 0x014b->0x01c7 ; "'V'"
0123 014c | L | .STRTAB 0x014c->0x01c9 ; "'W'"
0124 014d | M | .STRTAB 0x014d->0x01ca ; "'X'"
0125 014e | N | .STRTAB 0x014e->0x01cc ; "'Y'"
0126 014f | O | .STRTAB 0x014f->0x01cd ; "'Z'"
0127 0150 | P | .STRTAB 0x0150->0x01cf ; "'['"
0128 0151 | Q | .STRTAB 0x0151->0x01d0 ; "'\x5c'"
0129 0152 | R | .STRTAB 0x0152->0x01d2 ; "']'"
012a 0153 | S | .STRTAB 0x0153->0x01d3 ; "'^'"
012b 0154 | T | .STRTAB 0x0154->0x01d5 ; "'_'"
012c 0155 | U | .STRTAB 0x0155->0x01d6 ; "'`'"
012d 0156 | V | .STRTAB 0x0156->0x01d8 ; "'a'"
012e 0157 | W | .STRTAB 0x0157->0x01d9 ; "'b'"
012f 0158 | X | .STRTAB 0x0158->0x01db ; "'c'"
0130 0159 | Y | .STRTAB 0x0159->0x01dc ; "'d'"
0131 015a | Z | .STRTAB 0x015a->0x01de ; "'e'"
0132 015b | [ | .STRTAB 0x015b->0x01df ; "'f'"
0133 015c | \ | .STRTAB 0x015c->0x01e1 ; "'g'"
0134 015d | ] | .STRTAB 0x015d->0x01e2 ; "'h'"
0135 015e | ^ | .STRTAB 0x015e->0x01e4 ; "'i'"
0136 015f | _ | .STRTAB 0x015f->0x01e5 ; "'j'"
0137 0160 | ` | .STRTAB 0x0160->0x01e7 ; "'k'"
0138 0161 | a | .STRTAB 0x0161->0x01e8 ; "'l'"
0139 0162 | b | .STRTAB 0x0162->0x01ea ; "'m'"
013a 0163 | c | .STRTAB 0x0163->0x01eb ; "'n'"
013b 0164 | d | .STRTAB 0x0164->0x01ed ; "'o'"
013c 0165 | e | .STRTAB 0x0165->0x01ee ; "'p'"
013d 0166 | f | .STRTAB 0x0166->0x01f0 ; "'q'"
013e 0167 | g | .STRTAB 0x0167->0x01f1 ; "'r'"
013f 0168 | h | .STRTAB 0x0168->0x01f3 ; "'s'"
0140 0169 | i | .STRTAB 0x0169->0x01f4 ; "'t'"
0141 016a | j | .STRTAB 0x016a->0x01f6 ; "'u'"
0142 016b | k | .STRTAB 0x016b->0x01f7 ; "'v'"
0143 016c | l | .STRTAB 0x016c->0x01f9 ; "'w'"
0144 016d | m | .STRTAB 0x016d->0x01fa ; "'x'"
0145 016e | n | .STRTAB 0x016e->0x01fc ; "'y'"
0146 016f | o | .STRTAB 0x016f->0x01fd ; "'z'"
0147 0170 | p | .STRTAB 0x0170->0x01ff ; "'{'"
0148 0171 | q | .STRTAB 0x0171->0x0200 ; "'|'"
0149 0172 | r | .STRTAB 0x0172->0x0202 ; "'}'"
014a 0173 | s | .STRTAB 0x0173->0x0203 ; "'~'"
014b 0174 | t | .STRTAB 0x0174->0x0205 ; "DEL"
014c 0175 | u | .STREND 0x0175->0x0206
014d 4e55 4c53 |NULS| .STRTAB_STRINGS
0207 0000 | | .XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug Table
0208 ; --------------------------------------------------------------------------------------
0208 0004 0004 | | .DEBUG4 0x0004,0x0004,0xa13d,0x0000,0x0001,0x0004
020e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
0212 001b 021e | | .DBG4T 0x001b,0x021e,0x8001,0x0000
0216 0083 0000 | | .DBG4T 0x0083,0x0000,0x0005,0x0000
021a 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x0005,0x0000
021e ; --------------------------------------------------------------------------------------
021e ; Debug chain
021e ; --------------------------------------------------------------------------------------
021e 0003 0001 | | .DBGLEN 0x0003,0x0001
0220 001b 001f | | .DBGLNO 0x001b,0x001f,0x0046,0x0077
0224 0000 0000 | | .BLANK 0000[0x1dc]