|
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_779ce4
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 002b | + | .CONST 0x002b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0006 | | .CONST 0x0006 ; Number of locals 000b INIT_0008: 000b e004 | | Load 0x0,0x4 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 02c7 | | Declare_Variable Any 000e e004 | | Load 0x0,0x4 000f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0010 a402 | | Store_Unchecked 0x2,0x2 0011 e008 | | Load 0x0,0x8 0012 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0013 02c7 | | Declare_Variable Any 0014 00d8 | | Load_Top At_Offset_0 0015 1c00 | | Execute_Immediate Run_Utility,0x0 0016 e002 | | Load 0x0,0x2 0017 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0018 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0019 e5ff | | Load 0x2,-0x1 001a e002 | | Load 0x0,0x2 001b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 001d 4803 |H | Short_Literal 0x3 001e e001 | | Load 0x0,0x1 001f 01d7 | | Execute Vector,Field_Read 0020 0a03 | | Execute_Immediate Plus,0x3 0021 e001 | | Load 0x0,0x1 0022 01d7 | | Execute Vector,Field_Read 0023 02ab | | Declare_Subprogram For_Call,With_Address 0024 4803 |H | Short_Literal 0x3 0025 e001 | | Load 0x0,0x1 0026 01d7 | | Execute Vector,Field_Read 0027 0a01 | | Execute_Immediate Plus,0x1 0028 e001 | | Load 0x0,0x1 0029 01d7 | | Execute Vector,Field_Read 002a 02ab | | Declare_Subprogram For_Call,With_Address 002b BODY_0008: 002b e004 | | Load 0x0,0x4 002c 180e | | Execute Package,Field_Execute,Field_Number 0xe 002d 4800 |H | Short_Literal 0x0 002e 0092 010b | | Action Push_String_Extended,0x10b ; "TestMate_Tools.Create_Context_File (Context_File_Name => \x22" 0030 e5ff | | Load 0x2,-0x1 0031 01cc | | Execute Vector,Catenate 0032 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 0034 01cc | | Execute Vector,Catenate 0035 0092 010d | | Action Push_String_Extended,0x10d ; "," 0037 01cc | | Execute Vector,Catenate 0038 0092 010e | | Action Push_String_Extended,0x10e ; " Driver_Location => " 003a 01cc | | Execute Vector,Catenate 003b 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 003d 01cc | | Execute Vector,Catenate 003e e5fe | | Load 0x2,-0x2 003f 01cc | | Execute Vector,Catenate 0040 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 0042 01cc | | Execute Vector,Catenate 0043 0092 010d | | Action Push_String_Extended,0x10d ; "," 0045 01cc | | Execute Vector,Catenate 0046 0092 010f | | Action Push_String_Extended,0x10f ; " Subject_Program_Location => " 0048 01cc | | Execute Vector,Catenate 0049 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 004b 01cc | | Execute Vector,Catenate 004c e5fd | | Load 0x2,-0x3 004d 01cc | | Execute Vector,Catenate 004e 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 0050 01cc | | Execute Vector,Catenate 0051 0092 010d | | Action Push_String_Extended,0x10d ; "," 0053 01cc | | Execute Vector,Catenate 0054 0092 0110 | | Action Push_String_Extended,0x110 ; " Test_Case_Location => " 0056 01cc | | Execute Vector,Catenate 0057 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 0059 01cc | | Execute Vector,Catenate 005a e5fc | | Load 0x2,-0x4 005b 01cc | | Execute Vector,Catenate 005c 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 005e 01cc | | Execute Vector,Catenate 005f 0092 010d | | Action Push_String_Extended,0x10d ; "," 0061 01cc | | Execute Vector,Catenate 0062 0092 0111 | | Action Push_String_Extended,0x111 ; " Test_Set_Location => " 0064 01cc | | Execute Vector,Catenate 0065 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 0067 01cc | | Execute Vector,Catenate 0068 e5fb | | Load 0x2,-0x5 0069 01cc | | Execute Vector,Catenate 006a 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 006c 01cc | | Execute Vector,Catenate 006d 0092 010d | | Action Push_String_Extended,0x10d ; "," 006f 01cc | | Execute Vector,Catenate 0070 0092 0112 | | Action Push_String_Extended,0x112 ; " Input_Location => " 0072 01cc | | Execute Vector,Catenate 0073 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 0075 01cc | | Execute Vector,Catenate 0076 e5fa | | Load 0x2,-0x6 0077 01cc | | Execute Vector,Catenate 0078 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 007a 01cc | | Execute Vector,Catenate 007b 0092 010d | | Action Push_String_Extended,0x10d ; "," 007d 01cc | | Execute Vector,Catenate 007e 0092 0113 | | Action Push_String_Extended,0x113 ; " Output_Location => " 0080 01cc | | Execute Vector,Catenate 0081 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 0083 01cc | | Execute Vector,Catenate 0084 e5f9 | | Load 0x2,-0x7 0085 01cc | | Execute Vector,Catenate 0086 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 0088 01cc | | Execute Vector,Catenate 0089 0092 010d | | Action Push_String_Extended,0x10d ; "," 008b 01cc | | Execute Vector,Catenate 008c 0092 0114 | | Action Push_String_Extended,0x114 ; " Expected_Output_Location => " 008e 01cc | | Execute Vector,Catenate 008f 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 0091 01cc | | Execute Vector,Catenate 0092 e5f8 | | Load 0x2,-0x8 0093 01cc | | Execute Vector,Catenate 0094 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 0096 01cc | | Execute Vector,Catenate 0097 0092 010d | | Action Push_String_Extended,0x10d ; "," 0099 01cc | | Execute Vector,Catenate 009a 0092 0115 | | Action Push_String_Extended,0x115 ; " Script_Location => " 009c 01cc | | Execute Vector,Catenate 009d 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 009f 01cc | | Execute Vector,Catenate 00a0 e5f7 | | Load 0x2,-0x9 00a1 01cc | | Execute Vector,Catenate 00a2 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 00a4 01cc | | Execute Vector,Catenate 00a5 0092 010d | | Action Push_String_Extended,0x10d ; "," 00a7 01cc | | Execute Vector,Catenate 00a8 0092 0116 | | Action Push_String_Extended,0x116 ; " Log_Location => " 00aa 01cc | | Execute Vector,Catenate 00ab 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 00ad 01cc | | Execute Vector,Catenate 00ae e5f6 | | Load 0x2,-0xa 00af 01cc | | Execute Vector,Catenate 00b0 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 00b2 01cc | | Execute Vector,Catenate 00b3 0092 010d | | Action Push_String_Extended,0x10d ; "," 00b5 01cc | | Execute Vector,Catenate 00b6 0092 0117 | | Action Push_String_Extended,0x117 ; " Run_Location => " 00b8 01cc | | Execute Vector,Catenate 00b9 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 00bb 01cc | | Execute Vector,Catenate 00bc e5f5 | | Load 0x2,-0xb 00bd 01cc | | Execute Vector,Catenate 00be 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 00c0 01cc | | Execute Vector,Catenate 00c1 0092 010d | | Action Push_String_Extended,0x10d ; "," 00c3 01cc | | Execute Vector,Catenate 00c4 0092 0118 | | Action Push_String_Extended,0x118 ; " Response => " 00c6 01cc | | Execute Vector,Catenate 00c7 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 00c9 01cc | | Execute Vector,Catenate 00ca e5f4 | | Load 0x2,-0xc 00cb 01cc | | Execute Vector,Catenate 00cc 0092 010c | | Action Push_String_Extended,0x10c ; "\x22" 00ce 01cc | | Execute Vector,Catenate 00cf 0092 0119 | | Action Push_String_Extended,0x119 ; ")" 00d1 01cc | | Execute Vector,Catenate 00d2 e006 | | Load 0x0,0x6 00d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d4 00db | | Load_Top At_Offset_3 00d5 e5f4 | | Load 0x2,-0xc 00d6 e004 | | Load 0x0,0x4 00d7 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 00d8 c403 | | Store 0x2,0x3 00d9 4801 |H | Short_Literal 0x1 00da e403 | | Load 0x2,0x3 00db e008 | | Load 0x0,0x8 00dc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00dd 6809 |h | Jump_Zero 0xe7 00de e004 | | Load 0x0,0x4 00df 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e0 4802 |H | Short_Literal 0x2 00e1 e403 | | Load 0x2,0x3 00e2 e008 | | Load 0x0,0x8 00e3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00e4 e006 | | Load 0x0,0x6 00e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e6 7819 |x | Jump 0x100 00e7 e5f5 | | Load 0x2,-0xb 00e8 e5f6 | | Load 0x2,-0xa 00e9 e5f7 | | Load 0x2,-0x9 00ea e5f8 | | Load 0x2,-0x8 00eb e5f9 | | Load 0x2,-0x7 00ec e5fa | | Load 0x2,-0x6 00ed e5fb | | Load 0x2,-0x5 00ee e5fc | | Load 0x2,-0x4 00ef e5fd | | Load 0x2,-0x3 00f0 e5fe | | Load 0x2,-0x2 00f1 e5ff | | Load 0x2,-0x1 00f2 8405 | | Call 0x2,0x5 00f3 680c |h | Jump_Zero 0x100 00f4 e5f5 | | Load 0x2,-0xb 00f5 e5f6 | | Load 0x2,-0xa 00f6 e5f7 | | Load 0x2,-0x9 00f7 e5f8 | | Load 0x2,-0x8 00f8 e5f9 | | Load 0x2,-0x7 00f9 e5fa | | Load 0x2,-0x6 00fa e5fb | | Load 0x2,-0x5 00fb e5fc | | Load 0x2,-0x4 00fc e5fd | | Load 0x2,-0x3 00fd e5fe | | Load 0x2,-0x2 00fe e5ff | | Load 0x2,-0x1 00ff 8406 | | Call 0x2,0x6 0100 e004 | | Load 0x0,0x4 0101 180e | | Execute Package,Field_Execute,Field_Number 0xe 0102 4800 |H | Short_Literal 0x0 0103 0092 011a | | Action Push_String_Extended,0x11a ; "TestMate_Tools.Create_Context_File Completed" 0105 e006 | | Load 0x0,0x6 0106 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0107 e402 | | Load 0x2,0x2 0108 e004 | | Load 0x0,0x4 0109 1810 | | Execute Package,Field_Execute,Field_Number 0x10 010a 450d |E | Exit_Suprogram New_Top_Offset 0xd 010b ; -------------------------------------------------------------------------------------- 010b ; STRING TABLE 010b ; -------------------------------------------------------------------------------------- 010b 0022 | " | .STRTAB 0x0022->0x011c ; "TestMate_Tools.Create_Context_File (Context_File_Name => \x22" 010c 005a | Z | .STRTAB 0x005a->0x0139 ; "\x22" 010d 0059 | Y | .STRTAB 0x0059->0x0139 ; "," 010e 0058 | X | .STRTAB 0x0058->0x013a ; " Driver_Location => " 010f 006a | j | .STRTAB 0x006a->0x0144 ; " Subject_Program_Location => " 0110 0085 | | .STRTAB 0x0085->0x0152 ; " Test_Case_Location => " 0111 009a | | .STRTAB 0x009a->0x015e ; " Test_Set_Location => " 0112 00ae | | .STRTAB 0x00ae->0x0169 ; " Input_Location => " 0113 00bf | | .STRTAB 0x00bf->0x0172 ; " Output_Location => " 0114 00d1 | | .STRTAB 0x00d1->0x017c ; " Expected_Output_Location => " 0115 00ec | | .STRTAB 0x00ec->0x018b ; " Script_Location => " 0116 00fe | | .STRTAB 0x00fe->0x0195 ; " Log_Location => " 0117 010d | | .STRTAB 0x010d->0x019d ; " Run_Location => " 0118 011c | | .STRTAB 0x011c->0x01a6 ; " Response => " 0119 0127 | ' | .STRTAB 0x0127->0x01ac ; ")" 011a 0126 | & | .STRTAB 0x0126->0x01ad ; "TestMate_Tools.Create_Context_File Completed" 011b 0150 | P | .STREND 0x0150->0x01c3 011c 5465 7374 |Test| .STRTAB_STRINGS 01c3 0000 0000 | | .BLANK 0000[0x5] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; Debug Table 01c8 ; -------------------------------------------------------------------------------------- 01c8 0004 000a | | .DEBUG4 0x0004,0x000a,0x8b93,0x0000,0x0001,0x0000 01ce 0000 0000 | | .BLANK 0000[0x32]