|
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_06e8fd
└─⟦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 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 0092 00ec | | Action Push_String_Extended,0xec ; "Operation failed" 0012 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 002a | * | .CONST 0x002a ; Address of begin 0021 005f | _ | .CONST 0x005f ; Address of exception handler 0022 0002 | | .CONST 0x0002 ; Number of locals 0023 INIT_0020: 0023 00db | | Load_Top At_Offset_3 0024 01db | | Execute Vector,Length 0025 e002 | | Load 0x0,0x2 0026 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0027 1c08 | | Execute_Immediate Run_Utility,0x8 0028 00d8 | | Load_Top At_Offset_0 0029 1c00 | | Execute_Immediate Run_Utility,0x0 002a BODY_0020: 002a 00db | | Load_Top At_Offset_3 002b 8003 | | Call 0x0,0x3 002c 6831 |h1 | Jump_Zero 0x5e 002d e5fe | | Load 0x2,-0x2 002e 8210 | | Call 0x1,0x10 002f 6807 |h | Jump_Zero 0x37 0030 e5fe | | Load 0x2,-0x2 0031 e5ff | | Load 0x2,-0x1 0032 8004 | | Call 0x0,0x4 0033 e005 | | Load 0x0,0x5 0034 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0035 c5fd | | Store 0x2,-0x3 0036 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0037 00d8 | | Load_Top At_Offset_0 0038 e5fe | | Load 0x2,-0x2 0039 e006 | | Load 0x0,0x6 003a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 003b e002 | | Load 0x0,0x2 003c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 003d 00d1 | | Pop_Control Pop_Count_1 003e 00d8 | | Load_Top At_Offset_0 003f e002 | | Load 0x0,0x2 0040 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0041 0c01 | | Execute_Immediate Greater_Equal,0x1 0042 6809 |h | Jump_Zero 0x4c 0043 00d8 | | Load_Top At_Offset_0 0044 e002 | | Load 0x0,0x2 0045 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0046 e5ff | | Load 0x2,-0x1 0047 8004 | | Call 0x0,0x4 0048 e005 | | Load 0x0,0x5 0049 1819 | | Execute Package,Field_Execute,Field_Number 0x19 004a c5fd | | Store 0x2,-0x3 004b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 004c e5fd | | Load 0x2,-0x3 004d 00ea | | Load_Encached Null_String_Cache 004e 0092 00ed | | Action Push_String_Extended,0xed ; "Set_Task_Name" 0050 4822 |H" | Short_Literal 0x22 0051 0092 00ee | | Action Push_String_Extended,0xee ; "The name \x22" 0053 e5fe | | Load 0x2,-0x2 0054 e007 | | Load 0x0,0x7 0055 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0056 01cc | | Execute Vector,Catenate 0057 01cb | | Execute Vector,Append 0058 0092 00ef | | Action Push_String_Extended,0xef ; " is not a simple ADA name." 005a 01cc | | Execute Vector,Catenate 005b e005 | | Load 0x0,0x5 005c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 005d c5fd | | Store 0x2,-0x3 005e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 005f TRAP_0020: 005f 0007 | | Action Break_Optional 0060 e5fd | | Load 0x2,-0x3 0061 0092 00ed | | Action Push_String_Extended,0xed ; "Set_Task_Name" 0063 e008 | | Load 0x0,0x8 0064 180d | | Execute Package,Field_Execute,Field_Number 0xd 0065 e20f | | Load 0x1,0xf 0066 e005 | | Load 0x0,0x5 0067 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0068 c5fd | | Store 0x2,-0x3 0069 4503 |E | Exit_Suprogram New_Top_Offset 0x3 006a 0000 0000 | | .BLANK 0000[0x6] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0078 | x | .CONST 0x0078 ; Address of begin 0071 00d6 | | .CONST 0x00d6 ; Address of exception handler 0072 0003 | | .CONST 0x0003 ; Number of locals 0073 INIT_0070: 0073 e009 | | Load 0x0,0x9 0074 02c7 | | Declare_Variable Any 0075 00d8 | | Load_Top At_Offset_0 0076 1c00 | | Execute_Immediate Run_Utility,0x0 0077 00e1 | | Load_Encached Boolean_Cache 0078 BODY_0070: 0078 00e1 | | Load_Encached Boolean_Cache 0079 00da | | Load_Top At_Offset_2 007a 0120 | | Execute Any,Is_Value 007b 6802 |h | Jump_Zero 0x7e 007c e009 | | Load 0x0,0x9 007d 7801 |x | Jump 0x7f 007e 00da | | Load_Top At_Offset_2 007f e5ff | | Load 0x2,-0x1 0080 800a | | Call 0x0,0xa 0081 c402 | | Store 0x2,0x2 0082 0059 | Y | Store_Top Discrete,At_Offset_1 0083 00d8 | | Load_Top At_Offset_0 0084 684c |hL | Jump_Zero 0xd1 0085 00d9 | | Load_Top At_Offset_1 0086 800b | | Call 0x0,0xb 0087 6804 |h | Jump_Zero 0x8c 0088 0092 00f0 | | Action Push_String_Extended,0xf0 ; "A name can only be assigned to a single task, not all tasks." 008a 800c | | Call 0x0,0xc 008b 7845 |xE | Jump 0xd1 008c e5fe | | Load 0x2,-0x2 008d 8210 | | Call 0x1,0x10 008e 6834 |h4 | Jump_Zero 0xc3 008f e5fd | | Load 0x2,-0x3 0090 e5fe | | Load 0x2,-0x2 0091 00db | | Load_Top At_Offset_3 0092 820d | | Call 0x1,0xd 0093 c5fd | | Store 0x2,-0x3 0094 4802 |H | Short_Literal 0x2 0095 e5fd | | Load 0x2,-0x3 0096 e005 | | Load 0x0,0x5 0097 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0098 680a |h | Jump_Zero 0xa3 0099 480a |H | Short_Literal 0xa 009a 0092 00f1 | | Action Push_String_Extended,0xf1 ; "Set_Task_Name failed: " 009c e5fd | | Load 0x2,-0x3 009d e005 | | Load 0x0,0x5 009e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 009f 01cc | | Execute Vector,Catenate 00a0 01cb | | Execute Vector,Append 00a1 800c | | Call 0x0,0xc 00a2 782e |x. | Jump 0xd1 00a3 e5fe | | Load 0x2,-0x2 00a4 01db | | Execute Vector,Length 00a5 700c |p | Jump_Nonzero 0xb2 00a6 480a |H | Short_Literal 0xa 00a7 0092 00f2 | | Action Push_String_Extended,0xf2 ; "Task " 00a9 00db | | Load_Top At_Offset_3 00aa 800d | | Call 0x0,0xd 00ab 01cc | | Execute Vector,Catenate 00ac 0092 00f3 | | Action Push_String_Extended,0xf3 ; " now has no assigned task name." 00ae 01cc | | Execute Vector,Catenate 00af 01cb | | Execute Vector,Append 00b0 800e | | Call 0x0,0xe 00b1 781f |x | Jump 0xd1 00b2 480a |H | Short_Literal 0xa 00b3 0092 00f4 | | Action Push_String_Extended,0xf4 ; "Task name \x22" 00b5 e5fe | | Load 0x2,-0x2 00b6 01cc | | Execute Vector,Catenate 00b7 0092 00f5 | | Action Push_String_Extended,0xf5 ; "\x22 assigned to task " 00b9 01cc | | Execute Vector,Catenate 00ba 00db | | Load_Top At_Offset_3 00bb 800d | | Call 0x0,0xd 00bc 01cc | | Execute Vector,Catenate 00bd 0092 00f6 | | Action Push_String_Extended,0xf6 ; "." 00bf 01cc | | Execute Vector,Catenate 00c0 01cb | | Execute Vector,Append 00c1 800e | | Call 0x0,0xe 00c2 780e |x | Jump 0xd1 00c3 480a |H | Short_Literal 0xa 00c4 4822 |H" | Short_Literal 0x22 00c5 0092 00ee | | Action Push_String_Extended,0xee ; "The name \x22" 00c7 e5fe | | Load 0x2,-0x2 00c8 e007 | | Load 0x0,0x7 00c9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ca 01cc | | Execute Vector,Catenate 00cb 01cb | | Execute Vector,Append 00cc 0092 00ef | | Action Push_String_Extended,0xef ; " is not a simple ADA name." 00ce 01cc | | Execute Vector,Catenate 00cf 01cb | | Execute Vector,Append 00d0 800c | | Call 0x0,0xc 00d1 e5fd | | Load 0x2,-0x3 00d2 e005 | | Load 0x0,0x5 00d3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00d4 c5fd | | Store 0x2,-0x3 00d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d6 TRAP_0070: 00d6 0007 | | Action Break_Optional 00d7 480a |H | Short_Literal 0xa 00d8 0092 00f7 | | Action Push_String_Extended,0xf7 ; "Exception raised during command processing: " 00da e008 | | Load 0x0,0x8 00db 180d | | Execute Package,Field_Execute,Field_Number 0xd 00dc 01cc | | Execute Vector,Catenate 00dd 01cb | | Execute Vector,Append 00de 800c | | Call 0x0,0xc 00df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 00da | | Load_Top At_Offset_2 00e4 01db | | Execute Vector,Length 00e5 6804 |h | Jump_Zero 0xea 00e6 00da | | Load_Top At_Offset_2 00e7 e006 | | Load 0x0,0x6 00e8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ea 4801 |H | Short_Literal 0x1 00eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ec ; -------------------------------------------------------------------------------------- 00ec ; STRING TABLE 00ec ; -------------------------------------------------------------------------------------- 00ec 001a | | .STRTAB 0x001a->0x00f9 ; "Operation failed" 00ed 0028 | ( | .STRTAB 0x0028->0x0101 ; "Set_Task_Name" 00ee 0033 | 3 | .STRTAB 0x0033->0x0107 ; "The name \x22" 00ef 003b | ; | .STRTAB 0x003b->0x010c ; " is not a simple ADA name." 00f0 0053 | S | .STRTAB 0x0053->0x0119 ; "A name can only be assigned to a single task, not all tasks." 00f1 008d | | .STRTAB 0x008d->0x0137 ; "Set_Task_Name failed: " 00f2 00a1 | | .STRTAB 0x00a1->0x0142 ; "Task " 00f3 00a4 | | .STRTAB 0x00a4->0x0145 ; " now has no assigned task name." 00f4 00c1 | | .STRTAB 0x00c1->0x0154 ; "Task name \x22" 00f5 00ca | | .STRTAB 0x00ca->0x015a ; "\x22 assigned to task " 00f6 00db | | .STRTAB 0x00db->0x0163 ; "." 00f7 00da | | .STRTAB 0x00da->0x0164 ; "Exception raised during command processing: " 00f8 0104 | | .STREND 0x0104->0x017a 00f9 4f70 6572 |Oper| .STRTAB_STRINGS 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; Debug Table 0180 ; -------------------------------------------------------------------------------------- 0180 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1661,0x0000,0x0001,0x0000 0186 8cae 6740 | g@| .XXX[0x13] 0188 0000 0c80 | | 018a 0000 02a4 | | 018c 042a ae6c | * l| 018e ae4e 65ca | Ne | 0190 4d4c 45c8 |MLE | 0192 af0c 2dae | - | 0194 0d8c ae67 | g| 0196 4000 0000 |@ | 0198 2000 | | 0199 0000 0000 | | .BLANK 0000[0x4] 019d 000f 4000 | @ | .XXX[0x3d] 019f 0000 0000 | | 01a1 000f 2000 | | 01a3 000f e000 | | 01a5 0003 2a4c | *L| 01a7 adcc 2dac | - | 01a9 a405 0448 | H| 01ab af04 4584 | E | 01ad 48af 0c2d |H -| 01af ae0d 8cae | | 01b1 6445 2760 |dE'`| 01b3 0000 0f60 | `| 01b5 0000 03a4 | | 01b7 0404 040a | | 01b9 4cad cc2d |L -| 01bb aca4 0504 | | 01bd 48af 0445 |H E| 01bf 8448 af0c | H | 01c1 2dae 0d8c |- | 01c3 ae64 4527 | dE'| 01c5 6000 000f |` | 01c7 6000 0003 |` | 01c9 a404 0404 | | 01cb 0a4c adcc | L | 01cd 2dac a405 |- | 01cf 0448 af04 | H | 01d1 4584 48af |E H | 01d3 0c2d ae0d | - | 01d5 8cae 6445 | dE| 01d7 2760 0000 |'` | 01d9 0020 | | 01da 0000 0000 | | .BLANK 0000[0x5] 01df 0320 0000 | | .XXX[0x21] 01e1 0000 0000 | | 01e3 0300 0000 | | 01e5 0360 0000 | ` | 01e7 0948 2e6e | H.n| 01e9 6ead aca4 |n | 01eb 0e8d 0c2e | .| 01ed 840e 8d0c | | 01ef a40a 4cad | L | 01f1 cc2d aca4 | - | 01f3 0c6d edad | m | 01f5 ac2d cc84 | - | 01f7 0d2e 640e | .d | 01f9 8de4 0c4c | L| 01fb a40c adce | | 01fd 8cae 4cac | L | 01ff 840c | |