|
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_ccb0b3
└─⟦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 0150 | P | .CONST 0x0150 ; 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 00f0 | | .CONST 0x00f0 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0005 | | .CONST 0x0005 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 000d 0337 | 7 | Declare_Variable Array 000e 00d8 | | Load_Top At_Offset_0 000f 0335 | 5 | Declare_Variable Array,Duplicate 0010 00cd | | Action Spare6_Action 0011 4800 |H | Short_Literal 0x0 0012 4800 |H | Short_Literal 0x0 0013 00da | | Load_Top At_Offset_2 0014 01d6 | | Execute Vector,Field_Write 0015 4800 |H | Short_Literal 0x0 0016 4801 |H | Short_Literal 0x1 0017 00da | | Load_Top At_Offset_2 0018 01d6 | | Execute Vector,Field_Write 0019 4800 |H | Short_Literal 0x0 001a 4802 |H | Short_Literal 0x2 001b 00da | | Load_Top At_Offset_2 001c 01d6 | | Execute Vector,Field_Write 001d 4800 |H | Short_Literal 0x0 001e 4803 |H | Short_Literal 0x3 001f 00da | | Load_Top At_Offset_2 0020 01d6 | | Execute Vector,Field_Write 0021 4800 |H | Short_Literal 0x0 0022 4804 |H | Short_Literal 0x4 0023 00da | | Load_Top At_Offset_2 0024 01d6 | | Execute Vector,Field_Write 0025 00d9 | | Load_Top At_Offset_1 0026 01d4 | | Execute Vector,Structure_Write 0027 4800 |H | Short_Literal 0x0 0028 4801 |H | Short_Literal 0x1 0029 e001 | | Load 0x0,0x1 002a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 002b 035b | [ | Declare_Type Array,Constrained 002c 0337 | 7 | Declare_Variable Array 002d e210 | | Load 0x1,0x10 002e 00ea | | Load_Encached Null_String_Cache 002f 4801 |H | Short_Literal 0x1 0030 4800 |H | Short_Literal 0x0 0031 0092 00f2 | | Action Push_String_Extended,0xf2 ; "false" 0033 0092 00f3 | | Action Push_String_Extended,0xf3 ; "option_1" 0035 4801 |H | Short_Literal 0x1 0036 e001 | | Load 0x0,0x1 0037 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0038 0337 | 7 | Declare_Variable Array 0039 4801 |H | Short_Literal 0x1 003a 4801 |H | Short_Literal 0x1 003b 00da | | Load_Top At_Offset_2 003c 01d6 | | Execute Vector,Field_Write 003d 4800 |H | Short_Literal 0x0 003e 4800 |H | Short_Literal 0x0 003f 00da | | Load_Top At_Offset_2 0040 01d6 | | Execute Vector,Field_Write 0041 4800 |H | Short_Literal 0x0 0042 4802 |H | Short_Literal 0x2 0043 00da | | Load_Top At_Offset_2 0044 01d6 | | Execute Vector,Field_Write 0045 4800 |H | Short_Literal 0x0 0046 4803 |H | Short_Literal 0x3 0047 00da | | Load_Top At_Offset_2 0048 01d6 | | Execute Vector,Field_Write 0049 e001 | | Load 0x0,0x1 004a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004b 01c3 | | Execute Vector,Check_In_Type 004c 0092 00f4 | | Action Push_String_Extended,0xf4 ; "op1" 004e e001 | | Load 0x0,0x1 004f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0050 e001 | | Load 0x0,0x1 0051 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0052 0119 | | Execute Any,Check_In_Formal_Type 0053 4800 |H | Short_Literal 0x0 0054 00da | | Load_Top At_Offset_2 0055 01d6 | | Execute Vector,Field_Write 0056 e210 | | Load 0x1,0x10 0057 00ea | | Load_Encached Null_String_Cache 0058 4801 |H | Short_Literal 0x1 0059 4801 |H | Short_Literal 0x1 005a 0092 00f5 | | Action Push_String_Extended,0xf5 ; "value" 005c 0092 00f6 | | Action Push_String_Extended,0xf6 ; "option_2" 005e 4801 |H | Short_Literal 0x1 005f e001 | | Load 0x0,0x1 0060 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0061 0337 | 7 | Declare_Variable Array 0062 4801 |H | Short_Literal 0x1 0063 4803 |H | Short_Literal 0x3 0064 00da | | Load_Top At_Offset_2 0065 01d6 | | Execute Vector,Field_Write 0066 4802 |H | Short_Literal 0x2 0067 4800 |H | Short_Literal 0x0 0068 4800 |H | Short_Literal 0x0 0069 00d9 | | Load_Top At_Offset_1 006a e40b | | Load 0x2,0xb 006b 01d6 | | Execute Vector,Field_Write 006c 3ffb |? | Loop_Increasing 0x68 006d e001 | | Load 0x0,0x1 006e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006f 01c3 | | Execute Vector,Check_In_Type 0070 0092 00f7 | | Action Push_String_Extended,0xf7 ; "op2" 0072 e001 | | Load 0x0,0x1 0073 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0074 e001 | | Load 0x0,0x1 0075 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0076 0119 | | Execute Any,Check_In_Formal_Type 0077 4801 |H | Short_Literal 0x1 0078 00da | | Load_Top At_Offset_2 0079 01d6 | | Execute Vector,Field_Write 007a 4800 |H | Short_Literal 0x0 007b 4801 |H | Short_Literal 0x1 007c e001 | | Load 0x0,0x1 007d 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 007e 035b | [ | Declare_Type Array,Constrained 007f 0337 | 7 | Declare_Variable Array 0080 e210 | | Load 0x1,0x10 0081 00ea | | Load_Encached Null_String_Cache 0082 00ea | | Load_Encached Null_String_Cache 0083 4800 |H | Short_Literal 0x0 0084 4800 |H | Short_Literal 0x0 0085 0092 00f8 | | Action Push_String_Extended,0xf8 ; "exe" 0087 00ea | | Load_Encached Null_String_Cache 0088 4800 |H | Short_Literal 0x0 0089 4803 |H | Short_Literal 0x3 008a 4800 |H | Short_Literal 0x0 008b 4801 |H | Short_Literal 0x1 008c e001 | | Load 0x0,0x1 008d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 008e e001 | | Load 0x0,0x1 008f 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0090 0119 | | Execute Any,Check_In_Formal_Type 0091 4800 |H | Short_Literal 0x0 0092 00da | | Load_Top At_Offset_2 0093 01d6 | | Execute Vector,Field_Write 0094 e210 | | Load 0x1,0x10 0095 0092 00f9 | | Action Push_String_Extended,0xf9 ; "lst" 0097 00ea | | Load_Encached Null_String_Cache 0098 4800 |H | Short_Literal 0x0 0099 4801 |H | Short_Literal 0x1 009a 0092 00fa | | Action Push_String_Extended,0xfa ; "list" 009c 0092 00fb | | Action Push_String_Extended,0xfb ; "List" 009e 4801 |H | Short_Literal 0x1 009f 4801 |H | Short_Literal 0x1 00a0 4803 |H | Short_Literal 0x3 00a1 4800 |H | Short_Literal 0x0 00a2 e001 | | Load 0x0,0x1 00a3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00a4 e001 | | Load 0x0,0x1 00a5 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 00a6 0119 | | Execute Any,Check_In_Formal_Type 00a7 4801 |H | Short_Literal 0x1 00a8 00da | | Load_Top At_Offset_2 00a9 01d6 | | Execute Vector,Field_Write 00aa e001 | | Load 0x0,0x1 00ab 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00ac 02c7 | | Declare_Variable Any 00ad e210 | | Load 0x1,0x10 00ae 00ea | | Load_Encached Null_String_Cache 00af 00ea | | Load_Encached Null_String_Cache 00b0 0092 00fc | | Action Push_String_Extended,0xfc ; "mkdir" 00b2 0092 00fd | | Action Push_String_Extended,0xfd ; "MOVE_SCRIPT_FILE" 00b4 0092 00fe | | Action Push_String_Extended,0xfe ; "copy_command" 00b6 0092 00ff | | Action Push_String_Extended,0xff ; "sh " 00b8 4801 |H | Short_Literal 0x1 00b9 e211 | | Load 0x1,0x11 00ba e404 | | Load 0x2,0x4 00bb 4800 |H | Short_Literal 0x0 00bc 00ea | | Load_Encached Null_String_Cache 00bd 00ea | | Load_Encached Null_String_Cache 00be 0092 0100 | | Action Push_String_Extended,0x100 ; "." 00c0 e403 | | Load 0x2,0x3 00c1 0092 0101 | | Action Push_String_Extended,0x101 ; " " 00c3 0092 0102 | | Action Push_String_Extended,0x102 ; "-" 00c5 0092 0101 | | Action Push_String_Extended,0x101 ; " " 00c7 4801 |H | Short_Literal 0x1 00c8 4800 |H | Short_Literal 0x0 00c9 00ea | | Load_Encached Null_String_Cache 00ca 4800 |H | Short_Literal 0x0 00cb 4800 |H | Short_Literal 0x0 00cc 00ea | | Load_Encached Null_String_Cache 00cd 00ea | | Load_Encached Null_String_Cache 00ce 0092 0103 | | Action Push_String_Extended,0x103 ; "cd" 00d0 4801 |H | Short_Literal 0x1 00d1 0092 0104 | | Action Push_String_Extended,0x104 ; "o" 00d3 00ea | | Load_Encached Null_String_Cache 00d4 00ea | | Load_Encached Null_String_Cache 00d5 0092 0105 | | Action Push_String_Extended,0x105 ; "/usr/bin/ada/ada -b" 00d7 00ea | | Load_Encached Null_String_Cache 00d8 00ea | | Load_Encached Null_String_Cache 00d9 0092 0106 | | Action Push_String_Extended,0x106 ; "/usr/bin/ada/ada " 00db 48ff |H | Short_Literal 0xff 00dc 4801 |H | Short_Literal 0x1 00dd 4801 |H | Short_Literal 0x1 00de 0092 0107 | | Action Push_String_Extended,0x107 ; "/" 00e0 00ea | | Load_Encached Null_String_Cache 00e1 00ea | | Load_Encached Null_String_Cache 00e2 0092 0107 | | Action Push_String_Extended,0x107 ; "/" 00e4 0092 0100 | | Action Push_String_Extended,0x100 ; "." 00e6 0092 0108 | | Action Push_String_Extended,0x108 ; "ada" 00e8 0092 0108 | | Action Push_String_Extended,0x108 ; "ada" 00ea 48ff |H | Short_Literal 0xff 00eb 481f |H | Short_Literal 0x1f 00ec e402 | | Load 0x2,0x2 00ed e001 | | Load 0x0,0x1 00ee 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 00ef a405 | | Store_Unchecked 0x2,0x5 00f0 BODY_0008: 00f0 00d8 | | Load_Top At_Offset_0 00f1 00ca | | Action Exit_Nullary_Function 00f2 ; -------------------------------------------------------------------------------------- 00f2 ; STRING TABLE 00f2 ; -------------------------------------------------------------------------------------- 00f2 0030 | 0 | .STRTAB 0x0030->0x010a ; "false" 00f3 0033 | 3 | .STRTAB 0x0033->0x010c ; "option_1" 00f4 0039 | 9 | .STRTAB 0x0039->0x0110 ; "op1" 00f5 003a | : | .STRTAB 0x003a->0x0112 ; "value" 00f6 003d | = | .STRTAB 0x003d->0x0114 ; "option_2" 00f7 0043 | C | .STRTAB 0x0043->0x0118 ; "op2" 00f8 0044 | D | .STRTAB 0x0044->0x011a ; "exe" 00f9 0045 | E | .STRTAB 0x0045->0x011b ; "lst" 00fa 0046 | F | .STRTAB 0x0046->0x011d ; "list" 00fb 0048 | H | .STRTAB 0x0048->0x011f ; "List" 00fc 004a | J | .STRTAB 0x004a->0x0121 ; "mkdir" 00fd 004d | M | .STRTAB 0x004d->0x0123 ; "MOVE_SCRIPT_FILE" 00fe 005b | [ | .STRTAB 0x005b->0x012b ; "copy_command" 00ff 0065 | e | .STRTAB 0x0065->0x0131 ; "sh " 0100 0066 | f | .STRTAB 0x0066->0x0133 ; "." 0101 0065 | e | .STRTAB 0x0065->0x0133 ; " " 0102 0064 | d | .STRTAB 0x0064->0x0134 ; "-" 0103 0063 | c | .STRTAB 0x0063->0x0134 ; "cd" 0104 0063 | c | .STRTAB 0x0063->0x0135 ; "o" 0105 0062 | b | .STRTAB 0x0062->0x0136 ; "/usr/bin/ada/ada -b" 0106 0073 | s | .STRTAB 0x0073->0x013f ; "/usr/bin/ada/ada " 0107 0082 | | .STRTAB 0x0082->0x0148 ; "/" 0108 0081 | | .STRTAB 0x0081->0x0148 ; "ada" 0109 0082 | | .STREND 0x0082->0x014a 010a 6661 6c73 |fals| .STRTAB_STRINGS 014a 0000 0000 | | .BLANK 0000[0x6] 0150 ; -------------------------------------------------------------------------------------- 0150 ; Debug Table 0150 ; -------------------------------------------------------------------------------------- 0150 0004 0003 | | .DEBUG4 0x0004,0x0003,0x2f97,0x0000,0x0001,0x0001 0156 000b 015a | Z| .DBG4T 0x000b,0x015a,0x0002,0x0000 015a ; -------------------------------------------------------------------------------------- 015a ; Debug chain 015a ; -------------------------------------------------------------------------------------- 015a 0004 0001 | | .DBGLEN 0x0004,0x0001 015c 000b 0027 | '| .DBGLNO 0x000b,0x0027,0x007a,0x00aa,0x00f0 0161 0000 0000 | | .BLANK 0000[0x9f]