|
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_03c0fe
└─⟦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 0188 | | .CONST 0x0188 ; 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 00f4 | | Action Push_String_Extended,0xf4 ; "Operation failed" 0012 029d 00eb | | Declare_Subprogram INIT_00e8,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 00f5 | | Action Push_String_Extended,0xf5 ; "Set_Task_Name" 0050 4822 |H" | Short_Literal 0x22 0051 0092 00f6 | | Action Push_String_Extended,0xf6 ; "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 00f7 | | Action Push_String_Extended,0xf7 ; " 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 00f5 | | Action Push_String_Extended,0xf5 ; "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 00d7 | | .CONST 0x00d7 ; 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 4801 |H | Short_Literal 0x1 0080 e5ff | | Load 0x2,-0x1 0081 800a | | Call 0x0,0xa 0082 c402 | | Store 0x2,0x2 0083 0059 | Y | Store_Top Discrete,At_Offset_1 0084 00d8 | | Load_Top At_Offset_0 0085 684c |hL | Jump_Zero 0xd2 0086 00d9 | | Load_Top At_Offset_1 0087 800b | | Call 0x0,0xb 0088 6804 |h | Jump_Zero 0x8d 0089 0092 00f8 | | Action Push_String_Extended,0xf8 ; "A name can only be assigned to a single task, not all tasks." 008b 800c | | Call 0x0,0xc 008c 7845 |xE | Jump 0xd2 008d e5fe | | Load 0x2,-0x2 008e 8210 | | Call 0x1,0x10 008f 6834 |h4 | Jump_Zero 0xc4 0090 e5fd | | Load 0x2,-0x3 0091 e5fe | | Load 0x2,-0x2 0092 00db | | Load_Top At_Offset_3 0093 820d | | Call 0x1,0xd 0094 c5fd | | Store 0x2,-0x3 0095 4802 |H | Short_Literal 0x2 0096 e5fd | | Load 0x2,-0x3 0097 e005 | | Load 0x0,0x5 0098 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0099 680a |h | Jump_Zero 0xa4 009a 480a |H | Short_Literal 0xa 009b 0092 00f9 | | Action Push_String_Extended,0xf9 ; "Set_Task_Name failed: " 009d e5fd | | Load 0x2,-0x3 009e e005 | | Load 0x0,0x5 009f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00a0 01cc | | Execute Vector,Catenate 00a1 01cb | | Execute Vector,Append 00a2 800c | | Call 0x0,0xc 00a3 782e |x. | Jump 0xd2 00a4 e5fe | | Load 0x2,-0x2 00a5 01db | | Execute Vector,Length 00a6 700c |p | Jump_Nonzero 0xb3 00a7 480a |H | Short_Literal 0xa 00a8 0092 00fa | | Action Push_String_Extended,0xfa ; "Task " 00aa 00db | | Load_Top At_Offset_3 00ab 800d | | Call 0x0,0xd 00ac 01cc | | Execute Vector,Catenate 00ad 0092 00fb | | Action Push_String_Extended,0xfb ; " now has no assigned task name." 00af 01cc | | Execute Vector,Catenate 00b0 01cb | | Execute Vector,Append 00b1 800e | | Call 0x0,0xe 00b2 781f |x | Jump 0xd2 00b3 480a |H | Short_Literal 0xa 00b4 0092 00fc | | Action Push_String_Extended,0xfc ; "Task name \x22" 00b6 e5fe | | Load 0x2,-0x2 00b7 01cc | | Execute Vector,Catenate 00b8 0092 00fd | | Action Push_String_Extended,0xfd ; "\x22 assigned to task " 00ba 01cc | | Execute Vector,Catenate 00bb 00db | | Load_Top At_Offset_3 00bc 800d | | Call 0x0,0xd 00bd 01cc | | Execute Vector,Catenate 00be 0092 00fe | | Action Push_String_Extended,0xfe ; "." 00c0 01cc | | Execute Vector,Catenate 00c1 01cb | | Execute Vector,Append 00c2 800e | | Call 0x0,0xe 00c3 780e |x | Jump 0xd2 00c4 480a |H | Short_Literal 0xa 00c5 4822 |H" | Short_Literal 0x22 00c6 0092 00f6 | | Action Push_String_Extended,0xf6 ; "The name \x22" 00c8 e5fe | | Load 0x2,-0x2 00c9 e007 | | Load 0x0,0x7 00ca 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00cb 01cc | | Execute Vector,Catenate 00cc 01cb | | Execute Vector,Append 00cd 0092 00f7 | | Action Push_String_Extended,0xf7 ; " is not a simple ADA name." 00cf 01cc | | Execute Vector,Catenate 00d0 01cb | | Execute Vector,Append 00d1 800c | | Call 0x0,0xc 00d2 e5fd | | Load 0x2,-0x3 00d3 e005 | | Load 0x0,0x5 00d4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00d5 c5fd | | Store 0x2,-0x3 00d6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d7 TRAP_0070: 00d7 0007 | | Action Break_Optional 00d8 480a |H | Short_Literal 0xa 00d9 0092 00ff | | Action Push_String_Extended,0xff ; "Exception raised during command processing: " 00db e008 | | Load 0x0,0x8 00dc 180d | | Execute Package,Field_Execute,Field_Number 0xd 00dd 01cc | | Execute Vector,Catenate 00de 01cb | | Execute Vector,Append 00df 800c | | Call 0x0,0xc 00e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e1 0000 0000 | | .BLANK 0000[0x7] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec 01db | | Execute Vector,Length 00ed 6804 |h | Jump_Zero 0xf2 00ee 00da | | Load_Top At_Offset_2 00ef e006 | | Load 0x0,0x6 00f0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f2 4801 |H | Short_Literal 0x1 00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f4 ; -------------------------------------------------------------------------------------- 00f4 ; STRING TABLE 00f4 ; -------------------------------------------------------------------------------------- 00f4 001a | | .STRTAB 0x001a->0x0101 ; "Operation failed" 00f5 0028 | ( | .STRTAB 0x0028->0x0109 ; "Set_Task_Name" 00f6 0033 | 3 | .STRTAB 0x0033->0x010f ; "The name \x22" 00f7 003b | ; | .STRTAB 0x003b->0x0114 ; " is not a simple ADA name." 00f8 0053 | S | .STRTAB 0x0053->0x0121 ; "A name can only be assigned to a single task, not all tasks." 00f9 008d | | .STRTAB 0x008d->0x013f ; "Set_Task_Name failed: " 00fa 00a1 | | .STRTAB 0x00a1->0x014a ; "Task " 00fb 00a4 | | .STRTAB 0x00a4->0x014d ; " now has no assigned task name." 00fc 00c1 | | .STRTAB 0x00c1->0x015c ; "Task name \x22" 00fd 00ca | | .STRTAB 0x00ca->0x0162 ; "\x22 assigned to task " 00fe 00db | | .STRTAB 0x00db->0x016b ; "." 00ff 00da | | .STRTAB 0x00da->0x016c ; "Exception raised during command processing: " 0100 0104 | | .STREND 0x0104->0x0182 0101 4f70 6572 |Oper| .STRTAB_STRINGS 0182 0000 0000 | | .BLANK 0000[0x6] 0188 ; -------------------------------------------------------------------------------------- 0188 ; Debug Table 0188 ; -------------------------------------------------------------------------------------- 0188 0004 000d | | .DEBUG4 0x0004,0x000d,0x76b7,0x0000,0x0001,0x0000 018e 0000 0000 | | .BLANK 0000[0x72]