|
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 0130 | 0 | .CONST 0x0130 ; 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 0029 | ) | .CONST 0x0029 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; 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 e5ff | | Load 0x2,-0x1 0017 e002 | | Load 0x0,0x2 0018 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0019 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 001a 0092 00ad | | Action Push_String_Extended,0xad ; "$" 001c e002 | | Load 0x0,0x2 001d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 001f 0092 00ad | | Action Push_String_Extended,0xad ; "$" 0021 e00a | | Load 0x0,0xa 0022 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0023 00d8 | | Load_Top At_Offset_0 0024 01db | | Execute Vector,Length 0025 0e00 | | Execute_Immediate Not_Equal,0x0 0026 0007 | | Action Break_Optional 0027 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0029 BODY_0008: 0029 e004 | | Load 0x0,0x4 002a 180e | | Execute Package,Field_Execute,Field_Number 0xe 002b 4800 |H | Short_Literal 0x0 002c 0092 00ae | | Action Push_String_Extended,0xae ; "TestMate_Tools.Set_Context (To => \x22" 002e e5ff | | Load 0x2,-0x1 002f 01cc | | Execute Vector,Catenate 0030 0092 00af | | Action Push_String_Extended,0xaf ; "\x22" 0032 01cc | | Execute Vector,Catenate 0033 0092 00b0 | | Action Push_String_Extended,0xb0 ; "," 0035 01cc | | Execute Vector,Catenate 0036 0092 00b1 | | Action Push_String_Extended,0xb1 ; "Response => " 0038 01cc | | Execute Vector,Catenate 0039 0092 00af | | Action Push_String_Extended,0xaf ; "\x22" 003b 01cc | | Execute Vector,Catenate 003c e5fe | | Load 0x2,-0x2 003d 01cc | | Execute Vector,Catenate 003e 0092 00af | | Action Push_String_Extended,0xaf ; "\x22" 0040 01cc | | Execute Vector,Catenate 0041 0092 00b2 | | Action Push_String_Extended,0xb2 ; ")" 0043 01cc | | Execute Vector,Catenate 0044 e006 | | Load 0x0,0x6 0045 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0046 e403 | | Load 0x2,0x3 0047 e5fe | | Load 0x2,-0x2 0048 e004 | | Load 0x0,0x4 0049 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 004a c403 | | Store 0x2,0x3 004b 4801 |H | Short_Literal 0x1 004c e403 | | Load 0x2,0x3 004d e008 | | Load 0x0,0x8 004e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 004f 6809 |h | Jump_Zero 0x59 0050 e004 | | Load 0x0,0x4 0051 180e | | Execute Package,Field_Execute,Field_Number 0xe 0052 4802 |H | Short_Literal 0x2 0053 e403 | | Load 0x2,0x3 0054 e008 | | Load 0x0,0x8 0055 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0056 e006 | | Load 0x0,0x6 0057 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0058 7840 |x@ | Jump 0x99 0059 e404 | | Load 0x2,0x4 005a 8007 | | Call 0x0,0x7 005b 6832 |h2 | Jump_Zero 0x8e 005c 00d9 | | Load_Top At_Offset_1 005d 6824 |h$ | Jump_Zero 0x82 005e e404 | | Load 0x2,0x4 005f 800d | | Call 0x0,0xd 0060 6815 |h | Jump_Zero 0x76 0061 0092 00b3 | | Action Push_String_Extended,0xb3 ; "<PROFILE>" 0063 00db | | Load_Top At_Offset_3 0064 0092 00b4 | | Action Push_String_Extended,0xb4 ; "TestMate.Test_Context := " 0066 e404 | | Load 0x2,0x4 0067 01cc | | Execute Vector,Catenate 0068 e00a | | Load 0x0,0xa 0069 1815 | | Execute Package,Field_Execute,Field_Number 0x15 006a e004 | | Load 0x0,0x4 006b 180e | | Execute Package,Field_Execute,Field_Number 0xe 006c 4803 |H | Short_Literal 0x3 006d 0092 00b5 | | Action Push_String_Extended,0xb5 ; "TestMate.Test_Context set to " 006f e404 | | Load 0x2,0x4 0070 e005 | | Load 0x0,0x5 0071 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0072 01cc | | Execute Vector,Catenate 0073 e006 | | Load 0x0,0x6 0074 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0075 7823 |x# | Jump 0x99 0076 e004 | | Load 0x0,0x4 0077 180e | | Execute Package,Field_Execute,Field_Number 0xe 0078 4807 |H | Short_Literal 0x7 0079 e404 | | Load 0x2,0x4 007a e005 | | Load 0x0,0x5 007b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 007c 0092 00b6 | | Action Push_String_Extended,0xb6 ; " is not a Test Context file" 007e 01cc | | Execute Vector,Catenate 007f e006 | | Load 0x0,0x6 0080 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0081 7817 |x | Jump 0x99 0082 e004 | | Load 0x0,0x4 0083 180e | | Execute Package,Field_Execute,Field_Number 0xe 0084 4807 |H | Short_Literal 0x7 0085 e405 | | Load 0x2,0x5 0086 e005 | | Load 0x0,0x5 0087 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0088 0092 00b7 | | Action Push_String_Extended,0xb7 ; " has no switch file associated with it" 008a 01cc | | Execute Vector,Catenate 008b e006 | | Load 0x0,0x6 008c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008d 780b |x | Jump 0x99 008e e004 | | Load 0x0,0x4 008f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0090 4807 |H | Short_Literal 0x7 0091 e5ff | | Load 0x2,-0x1 0092 e005 | | Load 0x0,0x5 0093 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0094 0092 00b8 | | Action Push_String_Extended,0xb8 ; " does not exist." 0096 01cc | | Execute Vector,Catenate 0097 e006 | | Load 0x0,0x6 0098 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0099 e004 | | Load 0x0,0x4 009a 180e | | Execute Package,Field_Execute,Field_Number 0xe 009b 4800 |H | Short_Literal 0x0 009c 0092 00b9 | | Action Push_String_Extended,0xb9 ; "TestMate_Tools.Set_Context Completed" 009e e006 | | Load 0x0,0x6 009f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a0 e402 | | Load 0x2,0x2 00a1 e004 | | Load 0x0,0x4 00a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 4801 |H | Short_Literal 0x1 00ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ad ; -------------------------------------------------------------------------------------- 00ad ; STRING TABLE 00ad ; -------------------------------------------------------------------------------------- 00ad 001c | | .STRTAB 0x001c->0x00bb ; "$" 00ae 001b | | .STRTAB 0x001b->0x00bb ; "TestMate_Tools.Set_Context (To => \x22" 00af 003c | < | .STRTAB 0x003c->0x00cd ; "\x22" 00b0 003b | ; | .STRTAB 0x003b->0x00cd ; "," 00b1 003a | : | .STRTAB 0x003a->0x00ce ; "Response => " 00b2 0044 | D | .STRTAB 0x0044->0x00d4 ; ")" 00b3 0043 | C | .STRTAB 0x0043->0x00d4 ; "<PROFILE>" 00b4 004a | J | .STRTAB 0x004a->0x00d9 ; "TestMate.Test_Context := " 00b5 0061 | a | .STRTAB 0x0061->0x00e5 ; "TestMate.Test_Context set to " 00b6 007c | | | .STRTAB 0x007c->0x00f4 ; " is not a Test Context file" 00b7 0095 | | .STRTAB 0x0095->0x0101 ; " has no switch file associated with it" 00b8 00b9 | | .STRTAB 0x00b9->0x0114 ; " does not exist." 00b9 00c7 | | .STRTAB 0x00c7->0x011c ; "TestMate_Tools.Set_Context Completed" 00ba 00e9 | | .STREND 0x00e9->0x012e 00bb 2454 6573 |$Tes| .STRTAB_STRINGS 012f 0000 | | .XXX[0x1] 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug Table 0130 ; -------------------------------------------------------------------------------------- 0130 0004 000a | | .DEBUG4 0x0004,0x000a,0x8ba1,0x0000,0x0001,0x0000 0136 0000 0000 | | .BLANK 0000[0xca]