|
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 01f8 | | .CONST 0x01f8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0051 | Q | .CONST 0x0051 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; 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 e002 | | Load 0x0,0x2 0012 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0013 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0014 02c7 | | Declare_Variable Any 0015 4801 |H | Short_Literal 0x1 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 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 001d a403 | | Store_Unchecked 0x2,0x3 001e 4801 |H | Short_Literal 0x1 001f e002 | | Load 0x0,0x2 0020 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0021 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0022 e5fe | | Load 0x2,-0x2 0023 e002 | | Load 0x0,0x2 0024 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0025 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0026 e002 | | Load 0x0,0x2 0027 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0028 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0029 e029 | ) | Load 0x0,0x29 002a 02c7 | | Declare_Variable Any 002b 00d8 | | Load_Top At_Offset_0 002c 1c00 | | Execute_Immediate Run_Utility,0x0 002d e010 | | Load 0x0,0x10 002e 02c7 | | Declare_Variable Any 002f 00d8 | | Load_Top At_Offset_0 0030 1c00 | | Execute_Immediate Run_Utility,0x0 0031 0092 0124 | $| Action Push_String_Extended,0x124 ; "Null_Tc_Template" 0033 801b | | Call 0x0,0x1b 0034 e00f | | Load 0x0,0xf 0035 02c7 | | Declare_Variable Any 0036 00d8 | | Load_Top At_Offset_0 0037 1c00 | | Execute_Immediate Run_Utility,0x0 0038 e010 | | Load 0x0,0x10 0039 02c7 | | Declare_Variable Any 003a 00d8 | | Load_Top At_Offset_0 003b 1c00 | | Execute_Immediate Run_Utility,0x0 003c e008 | | Load 0x0,0x8 003d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003e 02c7 | | Declare_Variable Any 003f 00d8 | | Load_Top At_Offset_0 0040 1c00 | | Execute_Immediate Run_Utility,0x0 0041 e00e | | Load 0x0,0xe 0042 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0043 4809 |H | Short_Literal 0x9 0044 e001 | | Load 0x0,0x1 0045 01d7 | | Execute Vector,Field_Read 0046 0a03 | | Execute_Immediate Plus,0x3 0047 e001 | | Load 0x0,0x1 0048 01d7 | | Execute Vector,Field_Read 0049 02ab | | Declare_Subprogram For_Call,With_Address 004a 4809 |H | Short_Literal 0x9 004b e001 | | Load 0x0,0x1 004c 01d7 | | Execute Vector,Field_Read 004d 0a01 | | Execute_Immediate Plus,0x1 004e e001 | | Load 0x0,0x1 004f 01d7 | | Execute Vector,Field_Read 0050 02ab | | Declare_Subprogram For_Call,With_Address 0051 BODY_0008: 0051 e004 | | Load 0x0,0x4 0052 180e | | Execute Package,Field_Execute,Field_Number 0xe 0053 4800 |H | Short_Literal 0x0 0054 0092 0125 | %| Action Push_String_Extended,0x125 ; "TestMate_Tools.Create_Test_Cases (From_Drivers => \x22" 0056 e5ff | | Load 0x2,-0x1 0057 01cc | | Execute Vector,Catenate 0058 0092 0126 | &| Action Push_String_Extended,0x126 ; "\x22" 005a 01cc | | Execute Vector,Catenate 005b 0092 0127 | '| Action Push_String_Extended,0x127 ; ", " 005d 01cc | | Execute Vector,Catenate 005e 0092 0128 | (| Action Push_String_Extended,0x128 ; "Test_Case_Template => " 0060 01cc | | Execute Vector,Catenate 0061 0092 0126 | &| Action Push_String_Extended,0x126 ; "\x22" 0063 01cc | | Execute Vector,Catenate 0064 e5fe | | Load 0x2,-0x2 0065 01cc | | Execute Vector,Catenate 0066 0092 0126 | &| Action Push_String_Extended,0x126 ; "\x22" 0068 01cc | | Execute Vector,Catenate 0069 0092 0127 | '| Action Push_String_Extended,0x127 ; ", " 006b 01cc | | Execute Vector,Catenate 006c 0092 0129 | )| Action Push_String_Extended,0x129 ; "Test_Case_Name => " 006e 01cc | | Execute Vector,Catenate 006f 0092 0126 | &| Action Push_String_Extended,0x126 ; "\x22" 0071 01cc | | Execute Vector,Catenate 0072 e5fd | | Load 0x2,-0x3 0073 01cc | | Execute Vector,Catenate 0074 0092 0126 | &| Action Push_String_Extended,0x126 ; "\x22" 0076 01cc | | Execute Vector,Catenate 0077 0092 0127 | '| Action Push_String_Extended,0x127 ; ", " 0079 01cc | | Execute Vector,Catenate 007a 0092 012a | *| Action Push_String_Extended,0x12a ; "Replace => " 007c 01cc | | Execute Vector,Catenate 007d e5fc | | Load 0x2,-0x4 007e 00e1 | | Load_Encached Boolean_Cache 007f 011c | | Execute Any,Convert_Unchecked 0080 1c01 | | Execute_Immediate Run_Utility,0x1 0081 01cc | | Execute Vector,Catenate 0082 0092 0127 | '| Action Push_String_Extended,0x127 ; ", " 0084 01cc | | Execute Vector,Catenate 0085 0092 012b | +| Action Push_String_Extended,0x12b ; "Response => " 0087 01cc | | Execute Vector,Catenate 0088 0092 0126 | &| Action Push_String_Extended,0x126 ; "\x22" 008a 01cc | | Execute Vector,Catenate 008b e5fb | | Load 0x2,-0x5 008c 01cc | | Execute Vector,Catenate 008d 0092 0126 | &| Action Push_String_Extended,0x126 ; "\x22" 008f 01cc | | Execute Vector,Catenate 0090 0092 012c | ,| Action Push_String_Extended,0x12c ; ")" 0092 01cc | | Execute Vector,Catenate 0093 e006 | | Load 0x0,0x6 0094 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0095 00db | | Load_Top At_Offset_3 0096 e5fb | | Load 0x2,-0x5 0097 e004 | | Load 0x0,0x4 0098 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0099 c40b | | Store 0x2,0xb 009a 4801 |H | Short_Literal 0x1 009b e40b | | Load 0x2,0xb 009c e008 | | Load 0x0,0x8 009d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 009e 6809 |h | Jump_Zero 0xa8 009f e004 | | Load 0x0,0x4 00a0 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a1 4802 |H | Short_Literal 0x2 00a2 e40b | | Load 0x2,0xb 00a3 e008 | | Load 0x0,0x8 00a4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a5 e006 | | Load 0x0,0x6 00a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a7 7871 |xq | Jump 0x119 00a8 e5fd | | Load 0x2,-0x3 00a9 e5fe | | Load 0x2,-0x2 00aa e404 | | Load 0x2,0x4 00ab e403 | | Load 0x2,0x3 00ac 840d | | Call 0x2,0xd 00ad 686b |hk | Jump_Zero 0x119 00ae 00da | | Load_Top At_Offset_2 00af e40a | | Load 0x2,0xa 00b0 e409 | | Load 0x2,0x9 00b1 8216 | | Call 0x1,0x16 00b2 c409 | | Store 0x2,0x9 00b3 c40a | | Store 0x2,0xa 00b4 005b | [ | Store_Top Discrete,At_Offset_3 00b5 00da | | Load_Top At_Offset_2 00b6 7062 |pb | Jump_Nonzero 0x119 00b7 e409 | | Load 0x2,0x9 00b8 4802 |H | Short_Literal 0x2 00b9 8025 | % | Call 0x0,0x25 00ba 8007 | | Call 0x0,0x7 00bb 6843 |hC | Jump_Zero 0xff 00bc e406 | | Load 0x2,0x6 00bd e405 | | Load 0x2,0x5 00be e018 | | Load 0x0,0x18 00bf e404 | | Load 0x2,0x4 00c0 802a | * | Call 0x0,0x2a 00c1 c018 | | Store 0x0,0x18 00c2 c405 | | Store 0x2,0x5 00c3 c406 | | Store 0x2,0x6 00c4 e00e | | Load 0x0,0xe 00c5 e406 | | Load 0x2,0x6 00c6 e405 | | Load 0x2,0x5 00c7 4800 |H | Short_Literal 0x0 00c8 802b | + | Call 0x0,0x2b 00c9 c405 | | Store 0x2,0x5 00ca c406 | | Store 0x2,0x6 00cb 005b | [ | Store_Top Discrete,At_Offset_3 00cc 00da | | Load_Top At_Offset_2 00cd 701f |p | Jump_Nonzero 0xed 00ce e004 | | Load 0x0,0x4 00cf 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d0 4800 |H | Short_Literal 0x0 00d1 0092 012d | -| Action Push_String_Extended,0x12d ; "Using " 00d3 e404 | | Load 0x2,0x4 00d4 e005 | | Load 0x0,0x5 00d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00d6 01cc | | Execute Vector,Catenate 00d7 0092 012e | .| Action Push_String_Extended,0x12e ; " as the test case template" 00d9 01cc | | Execute Vector,Catenate 00da e006 | | Load 0x0,0x6 00db 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00dc e405 | | Load 0x2,0x5 00dd e403 | | Load 0x2,0x3 00de e408 | | Load 0x2,0x8 00df e40a | | Load 0x2,0xa 00e0 e409 | | Load 0x2,0x9 00e1 e406 | | Load 0x2,0x6 00e2 e5fc | | Load 0x2,-0x4 00e3 e5fd | | Load 0x2,-0x3 00e4 840e | | Call 0x2,0xe 00e5 c403 | | Store 0x2,0x3 00e6 c405 | | Store 0x2,0x5 00e7 e406 | | Load 0x2,0x6 00e8 e405 | | Load 0x2,0x5 00e9 802e | . | Call 0x0,0x2e 00ea c405 | | Store 0x2,0x5 00eb c406 | | Store 0x2,0x6 00ec 7827 |x' | Jump 0x114 00ed e004 | | Load 0x0,0x4 00ee 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ef 4807 |H | Short_Literal 0x7 00f0 e404 | | Load 0x2,0x4 00f1 e005 | | Load 0x0,0x5 00f2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f3 0092 012f | /| Action Push_String_Extended,0x12f ; " is not a Test Case object." 00f5 01cc | | Execute Vector,Catenate 00f6 0092 0130 | 0| Action Push_String_Extended,0x130 ; " It cannot be used as a Test Case Template." 00f8 01cc | | Execute Vector,Catenate 00f9 0092 0131 | 1| Action Push_String_Extended,0x131 ; " No test cases were created." 00fb 01cc | | Execute Vector,Catenate 00fc e006 | | Load 0x0,0x6 00fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00fe 7815 |x | Jump 0x114 00ff e004 | | Load 0x0,0x4 0100 180e | | Execute Package,Field_Execute,Field_Number 0xe 0101 4807 |H | Short_Literal 0x7 0102 0092 0132 | 2| Action Push_String_Extended,0x132 ; "Test Case location " 0104 e409 | | Load 0x2,0x9 0105 4802 |H | Short_Literal 0x2 0106 8025 | % | Call 0x0,0x25 0107 e005 | | Load 0x0,0x5 0108 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0109 01cc | | Execute Vector,Catenate 010a 0092 0133 | 3| Action Push_String_Extended,0x133 ; " is undefined." 010c 01cc | | Execute Vector,Catenate 010d 0092 0134 | 4| Action Push_String_Extended,0x134 ; " Check your the context file " 010f 01cc | | Execute Vector,Catenate 0110 e408 | | Load 0x2,0x8 0111 01cc | | Execute Vector,Catenate 0112 e006 | | Load 0x0,0x6 0113 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0114 e40a | | Load 0x2,0xa 0115 e409 | | Load 0x2,0x9 0116 8011 | | Call 0x0,0x11 0117 c409 | | Store 0x2,0x9 0118 c40a | | Store 0x2,0xa 0119 e004 | | Load 0x0,0x4 011a 180e | | Execute Package,Field_Execute,Field_Number 0xe 011b 4800 |H | Short_Literal 0x0 011c 0092 0135 | 5| Action Push_String_Extended,0x135 ; "TestMate_Tools.Create_Test_Cases Completed" 011e e006 | | Load 0x0,0x6 011f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0120 e402 | | Load 0x2,0x2 0121 e004 | | Load 0x0,0x4 0122 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0123 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0124 ; -------------------------------------------------------------------------------------- 0124 ; STRING TABLE 0124 ; -------------------------------------------------------------------------------------- 0124 0026 | & | .STRTAB 0x0026->0x0137 ; "Null_Tc_Template" 0125 0034 | 4 | .STRTAB 0x0034->0x013f ; "TestMate_Tools.Create_Test_Cases (From_Drivers => \x22" 0126 0065 | e | .STRTAB 0x0065->0x0158 ; "\x22" 0127 0064 | d | .STRTAB 0x0064->0x0159 ; ", " 0128 0064 | d | .STRTAB 0x0064->0x015a ; "Test_Case_Template => " 0129 0078 | x | .STRTAB 0x0078->0x0165 ; "Test_Case_Name => " 012a 0088 | | .STRTAB 0x0088->0x016e ; "Replace => " 012b 0091 | | .STRTAB 0x0091->0x0173 ; "Response => " 012c 009b | | .STRTAB 0x009b->0x0179 ; ")" 012d 009a | | .STRTAB 0x009a->0x017a ; "Using " 012e 009e | | .STRTAB 0x009e->0x017d ; " as the test case template" 012f 00b6 | | .STRTAB 0x00b6->0x018a ; " is not a Test Case object." 0130 00cf | | .STRTAB 0x00cf->0x0197 ; " It cannot be used as a Test Case Template." 0131 00f9 | | .STRTAB 0x00f9->0x01ad ; " No test cases were created." 0132 0114 | | .STRTAB 0x0114->0x01bc ; "Test Case location " 0133 0125 | % | .STRTAB 0x0125->0x01c5 ; " is undefined." 0134 0131 | 1 | .STRTAB 0x0131->0x01cc ; " Check your the context file " 0135 014d | M | .STRTAB 0x014d->0x01db ; "TestMate_Tools.Create_Test_Cases Completed" 0136 0175 | u | .STREND 0x0175->0x01f0 0137 4e75 6c6c |Null| .STRTAB_STRINGS 01f1 0000 0000 | | .BLANK 0000[0x7] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; Debug Table 01f8 ; -------------------------------------------------------------------------------------- 01f8 0004 000a | | .DEBUG4 0x0004,0x000a,0x8b96,0x0000,0x0001,0x0000 01fe 0000 0000 | | .XXX[0x2]