|
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_08f0d3
└─⟦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 0200 | | .CONST 0x0200 ; 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 004c | L | .CONST 0x004c ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0007 | | .CONST 0x0007 ; Number of locals
001b INIT_0018:
001b 4861 |Ha | Short_Literal 0x61
001c 487a |Hz | Short_Literal 0x7a
001d 00e8 | | Load_Encached Character_Cache
001e 03f8 | | Declare_Type Discrete,Constrained
001f 0093 0000 | | push_full_address 0x0
0021 606a |`j | Indirect_Literal Discrete,0x8c,{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 00d9 | | Load_Top At_Offset_1
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 00db | | Load_Top At_Offset_3
002d 0122 | " | Execute Any,Make_Root_Type
002e 00d8 | | Load_Top At_Offset_0
002f 012c | , | Execute Any,Size
0030 00d0 | | Action Swap_Control
0031 0266 | f | Execute Discrete,Bounds
0032 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
0034 03fa | | Declare_Type Discrete,Defined,With_Size
0035 03f7 | | QQ_Declare_Variable Discrete,XXX
0036 00cd | | Action Spare6_Action
0037 e004 | | Load 0x0,0x4
0038 0387 | | Declare_Variable Package
0039 00d8 | | Load_Top At_Offset_0
003a 020f | | Execute Module,Activate
003b 0092 0136 | 6| Action Push_String_Extended,0x136 ; "!Local.An_English_Text_File"
003d e005 | | Load 0x0,0x5
003e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003f 02c7 | | Declare_Variable Any
0040 00d8 | | Load_Top At_Offset_0
0041 1c00 | | Execute_Immediate Run_Utility,0x0
0042 00e8 | | Load_Encached Character_Cache
0043 e006 | | Load 0x0,0x6
0044 e403 | | Load 0x2,0x3
0045 0098 | | Execute Package,Field_Read_Dynamic
0046 0337 | 7 | Declare_Variable Array
0047 e007 | | Load 0x0,0x7
0048 e403 | | Load 0x2,0x3
0049 0096 | | Execute Package,Entry
004a 00d9 | | Load_Top At_Offset_1
004b 01d4 | | Execute Vector,Structure_Write
004c BODY_0018:
004c 00be | | Action Activate_Tasks
004d 00da | | Load_Top At_Offset_2
004e 00ea | | Load_Encached Null_String_Cache
004f e404 | | Load 0x2,0x4
0050 4800 |H | Short_Literal 0x0
0051 e005 | | Load 0x0,0x5
0052 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0053 c405 | | Store 0x2,0x5
0054 00cf | | Action Mark_Auxiliary
0055 7826 |x& | Jump 0x7c
0056 00cf | | Action Mark_Auxiliary
0057 781a |x | Jump 0x72
0058 00e8 | | Load_Encached Character_Cache
0059 e405 | | Load 0x2,0x5
005a e005 | | Load 0x0,0x5
005b 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
005c c406 | | Store 0x2,0x6
005d 00db | | Load_Top At_Offset_3
005e e008 | | Load 0x0,0x8
005f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0060 a406 | | Store_Unchecked 0x2,0x6
0061 00db | | Load_Top At_Offset_3
0062 4861 |Ha | Short_Literal 0x61
0063 487a |Hz | Short_Literal 0x7a
0064 0262 | b | Execute Discrete,In_Range
0065 680b |h | Jump_Zero 0x71
0066 00da | | Load_Top At_Offset_2
0067 e406 | | Load 0x2,0x6
0068 00d8 | | Load_Top At_Offset_0
0069 e402 | | Load 0x2,0x2
006a 0260 | ` | Execute Discrete,In_Type
006b 7001 |p | Jump_Nonzero 0x6d
006c 0801 | | Execute_Immediate Raise,0x1
006d e009 | | Load 0x0,0x9
006e e403 | | Load 0x2,0x3
006f 0096 | | Execute Package,Entry
0070 00d1 | | Pop_Control Pop_Count_1
0071 00c9 | | Action Pop_Auxiliary_Loop
0072 e405 | | Load 0x2,0x5
0073 e005 | | Load 0x0,0x5
0074 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0075 6fe2 |o | Jump_Zero 0x58
0076 00ce | | Action Pop_Auxiliary
0077 4801 |H | Short_Literal 0x1
0078 e405 | | Load 0x2,0x5
0079 e005 | | Load 0x0,0x5
007a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
007b 00c9 | | Action Pop_Auxiliary_Loop
007c 00db | | Load_Top At_Offset_3
007d e005 | | Load 0x0,0x5
007e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
007f 6fd6 |o | Jump_Zero 0x56
0080 00ce | | Action Pop_Auxiliary
0081 00d8 | | Load_Top At_Offset_0
0082 e00a | | Load 0x0,0xa
0083 e403 | | Load 0x2,0x3
0084 0096 | | Execute Package,Entry
0085 00d8 | | Load_Top At_Offset_0
0086 e00b | | Load 0x0,0xb
0087 e403 | | Load 0x2,0x3
0088 0096 | | Execute Package,Entry
0089 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008a 0000 0000 | | .XXX[0x2]
008c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 4607 |F | Jump_Case 0x8
0094 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0095 7807 |x | Jump 0x9d ; case 0x1
0096 780a |x | Jump 0xa1 ; case 0x2
0097 780e |x | Jump 0xa6 ; case 0x3
0098 7811 |x | Jump 0xaa ; case 0x4
0099 7812 |x | Jump 0xac ; case 0x5
009a 7813 |x | Jump 0xae ; case 0x6
009b 7816 |x | Jump 0xb2 ; case 0x7
009c 4302 |C | .XXX[0x1]
009d 00da | | Load_Top At_Offset_2
009e 0091 00b6 | | Action Push_String_Extended_Indexed,0xb6 ; "NUL"
00a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a1 00db | | Load_Top At_Offset_3
00a2 00db | | Load_Top At_Offset_3
00a3 00e0 | | Load_Encached Standard_Cache
00a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a6 00da | | Load_Top At_Offset_2
00a7 00e0 | | Load_Encached Standard_Cache
00a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00aa 00db | | Load_Top At_Offset_3
00ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ac 00db | | Load_Top At_Offset_3
00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ae 00e8 | | Load_Encached Character_Cache
00af 00dc | | Load_Top At_Offset_4
00b0 0267 | g | Execute Discrete,Predecessor
00b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b2 00e8 | | Load_Encached Character_Cache
00b3 00dc | | Load_Top At_Offset_4
00b4 0268 | h | Execute Discrete,Successor
00b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b6 ; --------------------------------------------------------------------------------------
00b6 ; STRING TABLE
00b6 ; --------------------------------------------------------------------------------------
00b6 0104 | | .STRTAB 0x0104->0x0138 ; "NUL"
00b7 0105 | | .STRTAB 0x0105->0x0139 ; "SOH"
00b8 0106 | | .STRTAB 0x0106->0x013b ; "STX"
00b9 0107 | | .STRTAB 0x0107->0x013c ; "ETX"
00ba 0108 | | .STRTAB 0x0108->0x013e ; "EOT"
00bb 0109 | | .STRTAB 0x0109->0x013f ; "ENQ"
00bc 010a | | .STRTAB 0x010a->0x0141 ; "ACK"
00bd 010b | | .STRTAB 0x010b->0x0142 ; "BEL"
00be 010c | | .STRTAB 0x010c->0x0144 ; "BS"
00bf 010c | | .STRTAB 0x010c->0x0145 ; "HT"
00c0 010c | | .STRTAB 0x010c->0x0146 ; "LF"
00c1 010c | | .STRTAB 0x010c->0x0147 ; "VT"
00c2 010c | | .STRTAB 0x010c->0x0148 ; "FF"
00c3 010c | | .STRTAB 0x010c->0x0149 ; "CR"
00c4 010c | | .STRTAB 0x010c->0x014a ; "SO"
00c5 010c | | .STRTAB 0x010c->0x014b ; "SI"
00c6 010c | | .STRTAB 0x010c->0x014c ; "DLE"
00c7 010d | | .STRTAB 0x010d->0x014d ; "DC1"
00c8 010e | | .STRTAB 0x010e->0x014f ; "DC2"
00c9 010f | | .STRTAB 0x010f->0x0150 ; "DC3"
00ca 0110 | | .STRTAB 0x0110->0x0152 ; "DC4"
00cb 0111 | | .STRTAB 0x0111->0x0153 ; "NAK"
00cc 0112 | | .STRTAB 0x0112->0x0155 ; "SYN"
00cd 0113 | | .STRTAB 0x0113->0x0156 ; "ETB"
00ce 0114 | | .STRTAB 0x0114->0x0158 ; "CAN"
00cf 0115 | | .STRTAB 0x0115->0x0159 ; "EM"
00d0 0115 | | .STRTAB 0x0115->0x015a ; "SUB"
00d1 0116 | | .STRTAB 0x0116->0x015c ; "ESC"
00d2 0117 | | .STRTAB 0x0117->0x015d ; "FS"
00d3 0117 | | .STRTAB 0x0117->0x015e ; "GS"
00d4 0117 | | .STRTAB 0x0117->0x015f ; "RS"
00d5 0117 | | .STRTAB 0x0117->0x0160 ; "US"
00d6 0117 | | .STRTAB 0x0117->0x0161 ; "' '"
00d7 0118 | | .STRTAB 0x0118->0x0163 ; "'!'"
00d8 0119 | | .STRTAB 0x0119->0x0164 ; "'\x22'"
00d9 011a | | .STRTAB 0x011a->0x0166 ; "'#'"
00da 011b | | .STRTAB 0x011b->0x0167 ; "'$'"
00db 011c | | .STRTAB 0x011c->0x0169 ; "'%'"
00dc 011d | | .STRTAB 0x011d->0x016a ; "'&'"
00dd 011e | | .STRTAB 0x011e->0x016c ; "'''"
00de 011f | | .STRTAB 0x011f->0x016d ; "'('"
00df 0120 | | .STRTAB 0x0120->0x016f ; "')'"
00e0 0121 | ! | .STRTAB 0x0121->0x0170 ; "'*'"
00e1 0122 | " | .STRTAB 0x0122->0x0172 ; "'+'"
00e2 0123 | # | .STRTAB 0x0123->0x0173 ; "','"
00e3 0124 | $ | .STRTAB 0x0124->0x0175 ; "'-'"
00e4 0125 | % | .STRTAB 0x0125->0x0176 ; "'.'"
00e5 0126 | & | .STRTAB 0x0126->0x0178 ; "'/'"
00e6 0127 | ' | .STRTAB 0x0127->0x0179 ; "'0'"
00e7 0128 | ( | .STRTAB 0x0128->0x017b ; "'1'"
00e8 0129 | ) | .STRTAB 0x0129->0x017c ; "'2'"
00e9 012a | * | .STRTAB 0x012a->0x017e ; "'3'"
00ea 012b | + | .STRTAB 0x012b->0x017f ; "'4'"
00eb 012c | , | .STRTAB 0x012c->0x0181 ; "'5'"
00ec 012d | - | .STRTAB 0x012d->0x0182 ; "'6'"
00ed 012e | . | .STRTAB 0x012e->0x0184 ; "'7'"
00ee 012f | / | .STRTAB 0x012f->0x0185 ; "'8'"
00ef 0130 | 0 | .STRTAB 0x0130->0x0187 ; "'9'"
00f0 0131 | 1 | .STRTAB 0x0131->0x0188 ; "':'"
00f1 0132 | 2 | .STRTAB 0x0132->0x018a ; "';'"
00f2 0133 | 3 | .STRTAB 0x0133->0x018b ; "'<'"
00f3 0134 | 4 | .STRTAB 0x0134->0x018d ; "'='"
00f4 0135 | 5 | .STRTAB 0x0135->0x018e ; "'>'"
00f5 0136 | 6 | .STRTAB 0x0136->0x0190 ; "'?'"
00f6 0137 | 7 | .STRTAB 0x0137->0x0191 ; "'@'"
00f7 0138 | 8 | .STRTAB 0x0138->0x0193 ; "'A'"
00f8 0139 | 9 | .STRTAB 0x0139->0x0194 ; "'B'"
00f9 013a | : | .STRTAB 0x013a->0x0196 ; "'C'"
00fa 013b | ; | .STRTAB 0x013b->0x0197 ; "'D'"
00fb 013c | < | .STRTAB 0x013c->0x0199 ; "'E'"
00fc 013d | = | .STRTAB 0x013d->0x019a ; "'F'"
00fd 013e | > | .STRTAB 0x013e->0x019c ; "'G'"
00fe 013f | ? | .STRTAB 0x013f->0x019d ; "'H'"
00ff 0140 | @ | .STRTAB 0x0140->0x019f ; "'I'"
0100 0141 | A | .STRTAB 0x0141->0x01a0 ; "'J'"
0101 0142 | B | .STRTAB 0x0142->0x01a2 ; "'K'"
0102 0143 | C | .STRTAB 0x0143->0x01a3 ; "'L'"
0103 0144 | D | .STRTAB 0x0144->0x01a5 ; "'M'"
0104 0145 | E | .STRTAB 0x0145->0x01a6 ; "'N'"
0105 0146 | F | .STRTAB 0x0146->0x01a8 ; "'O'"
0106 0147 | G | .STRTAB 0x0147->0x01a9 ; "'P'"
0107 0148 | H | .STRTAB 0x0148->0x01ab ; "'Q'"
0108 0149 | I | .STRTAB 0x0149->0x01ac ; "'R'"
0109 014a | J | .STRTAB 0x014a->0x01ae ; "'S'"
010a 014b | K | .STRTAB 0x014b->0x01af ; "'T'"
010b 014c | L | .STRTAB 0x014c->0x01b1 ; "'U'"
010c 014d | M | .STRTAB 0x014d->0x01b2 ; "'V'"
010d 014e | N | .STRTAB 0x014e->0x01b4 ; "'W'"
010e 014f | O | .STRTAB 0x014f->0x01b5 ; "'X'"
010f 0150 | P | .STRTAB 0x0150->0x01b7 ; "'Y'"
0110 0151 | Q | .STRTAB 0x0151->0x01b8 ; "'Z'"
0111 0152 | R | .STRTAB 0x0152->0x01ba ; "'['"
0112 0153 | S | .STRTAB 0x0153->0x01bb ; "'\x5c'"
0113 0154 | T | .STRTAB 0x0154->0x01bd ; "']'"
0114 0155 | U | .STRTAB 0x0155->0x01be ; "'^'"
0115 0156 | V | .STRTAB 0x0156->0x01c0 ; "'_'"
0116 0157 | W | .STRTAB 0x0157->0x01c1 ; "'`'"
0117 0158 | X | .STRTAB 0x0158->0x01c3 ; "'a'"
0118 0159 | Y | .STRTAB 0x0159->0x01c4 ; "'b'"
0119 015a | Z | .STRTAB 0x015a->0x01c6 ; "'c'"
011a 015b | [ | .STRTAB 0x015b->0x01c7 ; "'d'"
011b 015c | \ | .STRTAB 0x015c->0x01c9 ; "'e'"
011c 015d | ] | .STRTAB 0x015d->0x01ca ; "'f'"
011d 015e | ^ | .STRTAB 0x015e->0x01cc ; "'g'"
011e 015f | _ | .STRTAB 0x015f->0x01cd ; "'h'"
011f 0160 | ` | .STRTAB 0x0160->0x01cf ; "'i'"
0120 0161 | a | .STRTAB 0x0161->0x01d0 ; "'j'"
0121 0162 | b | .STRTAB 0x0162->0x01d2 ; "'k'"
0122 0163 | c | .STRTAB 0x0163->0x01d3 ; "'l'"
0123 0164 | d | .STRTAB 0x0164->0x01d5 ; "'m'"
0124 0165 | e | .STRTAB 0x0165->0x01d6 ; "'n'"
0125 0166 | f | .STRTAB 0x0166->0x01d8 ; "'o'"
0126 0167 | g | .STRTAB 0x0167->0x01d9 ; "'p'"
0127 0168 | h | .STRTAB 0x0168->0x01db ; "'q'"
0128 0169 | i | .STRTAB 0x0169->0x01dc ; "'r'"
0129 016a | j | .STRTAB 0x016a->0x01de ; "'s'"
012a 016b | k | .STRTAB 0x016b->0x01df ; "'t'"
012b 016c | l | .STRTAB 0x016c->0x01e1 ; "'u'"
012c 016d | m | .STRTAB 0x016d->0x01e2 ; "'v'"
012d 016e | n | .STRTAB 0x016e->0x01e4 ; "'w'"
012e 016f | o | .STRTAB 0x016f->0x01e5 ; "'x'"
012f 0170 | p | .STRTAB 0x0170->0x01e7 ; "'y'"
0130 0171 | q | .STRTAB 0x0171->0x01e8 ; "'z'"
0131 0172 | r | .STRTAB 0x0172->0x01ea ; "'{'"
0132 0173 | s | .STRTAB 0x0173->0x01eb ; "'|'"
0133 0174 | t | .STRTAB 0x0174->0x01ed ; "'}'"
0134 0175 | u | .STRTAB 0x0175->0x01ee ; "'~'"
0135 0176 | v | .STRTAB 0x0176->0x01f0 ; "DEL"
0136 0177 | w | .STRTAB 0x0177->0x01f1 ; "!Local.An_English_Text_File"
0137 0190 | | .STREND 0x0190->0x01ff
0138 4e55 4c53 |NULS| .STRTAB_STRINGS
01ff 0000 | | .XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug Table
0200 ; --------------------------------------------------------------------------------------
0200 0004 0004 | | .DEBUG4 0x0004,0x0004,0xa118,0x0000,0x0001,0x0003
0206 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
020a 001b 0212 | | .DBG4T 0x001b,0x0212,0x8001,0x4000
020e 0093 0000 | | .DBG4T 0x0093,0x0000,0x0005,0x0000
0212 ; --------------------------------------------------------------------------------------
0212 ; Debug chain
0212 ; --------------------------------------------------------------------------------------
0212 0006 000a | | .DBGLEN 0x0006,0x000a
0214 001b 001f | | .DBGLNO 0x001b,0x001f,0x003b,0x003d,0x0042,0x0043,0x004d,0x0058,0x005d,0x0061,0x0066,0x0072,0x0077,0x007c,0x0081,0x0085
0224 0001 0004 | | .XXX[0xa]
0226 0005 0006 | |
0228 0007 0003 | |
022a 0008 0002 | |
022c 0009 000a | |
022e 0000 0000 | | .BLANK 0000[0x1d2]