|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1568c6
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02a0 | | .CONST 0x02a0 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0022 | " | .CONST 0x0022 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0003 | | .CONST 0x0003 ; Number of locals 001b INIT_0018: 001b 4800 |H | Short_Literal 0x0 001c 4801 |H | Short_Literal 0x1 001d 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 001f 03fd | | Declare_Type Discrete,Defined 0020 00d8 | | Load_Top At_Offset_0 0021 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0022 BODY_0018: 0022 e5ff | | Load 0x2,-0x1 0023 e002 | | Load 0x0,0x2 0024 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0025 0092 0128 | (| Action Push_String_Extended,0x128 ; "ALL" 0027 01df | | Execute Vector,Equal 0028 684d |hM | Jump_Zero 0x76 0029 00ea | | Load_Encached Null_String_Cache 002a 8003 | | Call 0x0,0x3 002b 6809 |h | Jump_Zero 0x35 002c e004 | | Load 0x0,0x4 002d 180e | | Execute Package,Field_Execute,Field_Number 0xe 002e 4807 |H | Short_Literal 0x7 002f 0092 0129 | )| Action Push_String_Extended,0x129 ; "Failed null string test" 0031 e005 | | Load 0x0,0x5 0032 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0033 4801 |H | Short_Literal 0x1 0034 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0035 0092 012a | *| Action Push_String_Extended,0x12a ; "a" 0037 8003 | | Call 0x0,0x3 0038 7009 |p | Jump_Nonzero 0x42 0039 e004 | | Load 0x0,0x4 003a 180e | | Execute Package,Field_Execute,Field_Number 0xe 003b 4807 |H | Short_Literal 0x7 003c 0092 012b | +| Action Push_String_Extended,0x12b ; "Failed single alpha test" 003e e005 | | Load 0x0,0x5 003f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0040 4801 |H | Short_Literal 0x1 0041 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0042 0092 012c | ,| Action Push_String_Extended,0x12c ; "0" 0044 8003 | | Call 0x0,0x3 0045 7009 |p | Jump_Nonzero 0x4f 0046 e004 | | Load 0x0,0x4 0047 180e | | Execute Package,Field_Execute,Field_Number 0xe 0048 4807 |H | Short_Literal 0x7 0049 0092 012d | -| Action Push_String_Extended,0x12d ; "Failed single numeric test" 004b e005 | | Load 0x0,0x5 004c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004d 4801 |H | Short_Literal 0x1 004e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 004f 0092 012e | .| Action Push_String_Extended,0x12e ; "_" 0051 8003 | | Call 0x0,0x3 0052 6809 |h | Jump_Zero 0x5c 0053 e004 | | Load 0x0,0x4 0054 180e | | Execute Package,Field_Execute,Field_Number 0xe 0055 4807 |H | Short_Literal 0x7 0056 0092 012f | /| Action Push_String_Extended,0x12f ; "Failed single underscore test" 0058 e005 | | Load 0x0,0x5 0059 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005a 4801 |H | Short_Literal 0x1 005b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 005c 0092 0130 | 0| Action Push_String_Extended,0x130 ; "aA" 005e 8003 | | Call 0x0,0x3 005f 7009 |p | Jump_Nonzero 0x69 0060 e004 | | Load 0x0,0x4 0061 180e | | Execute Package,Field_Execute,Field_Number 0xe 0062 4807 |H | Short_Literal 0x7 0063 0092 0131 | 1| Action Push_String_Extended,0x131 ; "Failed 2 char alpha test" 0065 e005 | | Load 0x0,0x5 0066 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0067 4801 |H | Short_Literal 0x1 0068 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0069 0092 0132 | 2| Action Push_String_Extended,0x132 ; "96" 006b 8003 | | Call 0x0,0x3 006c 7009 |p | Jump_Nonzero 0x76 006d e004 | | Load 0x0,0x4 006e 180e | | Execute Package,Field_Execute,Field_Number 0xe 006f 4807 |H | Short_Literal 0x7 0070 0092 0133 | 3| Action Push_String_Extended,0x133 ; "Failed 2 char numeric test" 0072 e005 | | Load 0x0,0x5 0073 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0074 4801 |H | Short_Literal 0x1 0075 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0076 0092 0134 | 4| Action Push_String_Extended,0x134 ; "adsaaABAE028$aaru26mAA" 0078 8003 | | Call 0x0,0x3 0079 6809 |h | Jump_Zero 0x83 007a e004 | | Load 0x0,0x4 007b 180e | | Execute Package,Field_Execute,Field_Number 0xe 007c 4807 |H | Short_Literal 0x7 007d 0092 0135 | 5| Action Push_String_Extended,0x135 ; "Failed embedded non-alpha_numeric test" 007f e005 | | Load 0x0,0x5 0080 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0081 4801 |H | Short_Literal 0x1 0082 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0083 0092 0136 | 6| Action Push_String_Extended,0x136 ; "$2627shNNNTsh66" 0085 8003 | | Call 0x0,0x3 0086 6809 |h | Jump_Zero 0x90 0087 e004 | | Load 0x0,0x4 0088 180e | | Execute Package,Field_Execute,Field_Number 0xe 0089 4807 |H | Short_Literal 0x7 008a 0092 0137 | 7| Action Push_String_Extended,0x137 ; "Failed leading non-alpha_numeric test" 008c e005 | | Load 0x0,0x5 008d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008e 4801 |H | Short_Literal 0x1 008f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0090 0092 0138 | 8| Action Push_String_Extended,0x138 ; "02627GARYhs5gajuuu^" 0092 8003 | | Call 0x0,0x3 0093 6809 |h | Jump_Zero 0x9d 0094 e004 | | Load 0x0,0x4 0095 180e | | Execute Package,Field_Execute,Field_Number 0xe 0096 4807 |H | Short_Literal 0x7 0097 0092 0139 | 9| Action Push_String_Extended,0x139 ; "Failed ending non-alpha_numeric test" 0099 e005 | | Load 0x0,0x5 009a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009b 4801 |H | Short_Literal 0x1 009c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 009d 0092 013a | :| Action Push_String_Extended,0x13a ; "abelcigmrerghepqermb" 009f 8003 | | Call 0x0,0x3 00a0 7009 |p | Jump_Nonzero 0xaa 00a1 e004 | | Load 0x0,0x4 00a2 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a3 4807 |H | Short_Literal 0x7 00a4 0092 013b | ;| Action Push_String_Extended,0x13b ; "Failed \x22random\x22 alpha string test" 00a6 e005 | | Load 0x0,0x5 00a7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a8 4801 |H | Short_Literal 0x1 00a9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00aa 0092 013c | <| Action Push_String_Extended,0x13c ; "12345678900987654321" 00ac 8003 | | Call 0x0,0x3 00ad 7009 |p | Jump_Nonzero 0xb7 00ae e004 | | Load 0x0,0x4 00af 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b0 4807 |H | Short_Literal 0x7 00b1 0092 013d | =| Action Push_String_Extended,0x13d ; "Failed \x22random\x22 numeric string test" 00b3 e005 | | Load 0x0,0x5 00b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b5 4801 |H | Short_Literal 0x1 00b6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00b7 0092 013e | >| Action Push_String_Extended,0x13e ; "0asderv" 00b9 8003 | | Call 0x0,0x3 00ba 7009 |p | Jump_Nonzero 0xc4 00bb e004 | | Load 0x0,0x4 00bc 180e | | Execute Package,Field_Execute,Field_Number 0xe 00bd 4807 |H | Short_Literal 0x7 00be 0092 013f | ?| Action Push_String_Extended,0x13f ; "Failed leading char numeric test" 00c0 e005 | | Load 0x0,0x5 00c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c2 4801 |H | Short_Literal 0x1 00c3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00c4 0092 0140 | @| Action Push_String_Extended,0x140 ; "agadaraa0" 00c6 8003 | | Call 0x0,0x3 00c7 7009 |p | Jump_Nonzero 0xd1 00c8 e004 | | Load 0x0,0x4 00c9 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ca 4807 |H | Short_Literal 0x7 00cb 0092 0141 | A| Action Push_String_Extended,0x141 ; "Failed failed ending numeric char test" 00cd e005 | | Load 0x0,0x5 00ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cf 4801 |H | Short_Literal 0x1 00d0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00d1 0092 0142 | B| Action Push_String_Extended,0x142 ; "sdradramg8asdrarul" 00d3 8003 | | Call 0x0,0x3 00d4 7009 |p | Jump_Nonzero 0xde 00d5 e004 | | Load 0x0,0x4 00d6 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d7 4807 |H | Short_Literal 0x7 00d8 0092 0143 | C| Action Push_String_Extended,0x143 ; "Failed embedded numeric char test" 00da e005 | | Load 0x0,0x5 00db 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00dc 4801 |H | Short_Literal 0x1 00dd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00de 0092 0144 | D| Action Push_String_Extended,0x144 ; "aZsaD2dra6JWR9a02145NJWmGf" 00e0 8003 | | Call 0x0,0x3 00e1 7009 |p | Jump_Nonzero 0xeb 00e2 e004 | | Load 0x0,0x4 00e3 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e4 4807 |H | Short_Literal 0x7 00e5 0092 0145 | E| Action Push_String_Extended,0x145 ; "Failed mixed upper-lower case char test" 00e7 e005 | | Load 0x0,0x5 00e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e9 4801 |H | Short_Literal 0x1 00ea 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00eb 00d8 | | Load_Top At_Offset_0 00ec 7007 |p | Jump_Nonzero 0xf4 00ed 0092 0146 | F| Action Push_String_Extended,0x146 ; "<CURRENT TEST CASE>" 00ef 0092 0147 | G| Action Push_String_Extended,0x147 ; "<CURRENT TEST RUN>" 00f1 8006 | | Call 0x0,0x6 00f2 8007 | | Call 0x0,0x7 00f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f4 0092 0146 | F| Action Push_String_Extended,0x146 ; "<CURRENT TEST CASE>" 00f6 0092 0147 | G| Action Push_String_Extended,0x147 ; "<CURRENT TEST RUN>" 00f8 8008 | | Call 0x0,0x8 00f9 8007 | | Call 0x0,0x7 00fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00fb 0000 0000 | | .BLANK 0000[0x5] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4607 |F | Jump_Case 0x8 0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0105 7807 |x | Jump 0x10d ; case 0x1 0106 780a |x | Jump 0x111 ; case 0x2 0107 780e |x | Jump 0x116 ; case 0x3 0108 7811 |x | Jump 0x11a ; case 0x4 0109 7812 |x | Jump 0x11c ; case 0x5 010a 7813 |x | Jump 0x11e ; case 0x6 010b 7816 |x | Jump 0x122 ; case 0x7 010c 4302 |C | .XXX[0x1] 010d 00da | | Load_Top At_Offset_2 010e 0091 0126 | &| Action Push_String_Extended_Indexed,0x126 ; "PASS" 0110 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0111 00db | | Load_Top At_Offset_3 0112 00db | | Load_Top At_Offset_3 0113 00e0 | | Load_Encached Standard_Cache 0114 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0115 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0116 00da | | Load_Top At_Offset_2 0117 00e0 | | Load_Encached Standard_Cache 0118 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0119 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 011a 00db | | Load_Top At_Offset_3 011b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011c 00db | | Load_Top At_Offset_3 011d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011e e402 | | Load 0x2,0x2 011f 00dc | | Load_Top At_Offset_4 0120 0267 | g | Execute Discrete,Predecessor 0121 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0122 e402 | | Load 0x2,0x2 0123 00dc | | Load_Top At_Offset_4 0124 0268 | h | Execute Discrete,Successor 0125 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0126 ; -------------------------------------------------------------------------------------- 0126 ; STRING TABLE 0126 ; -------------------------------------------------------------------------------------- 0126 0046 | F | .STRTAB 0x0046->0x0149 ; "PASS" 0127 0048 | H | .STRTAB 0x0048->0x014b ; "FAIL" 0128 004a | J | .STRTAB 0x004a->0x014d ; "ALL" 0129 004b | K | .STRTAB 0x004b->0x014e ; "Failed null string test" 012a 0060 | ` | .STRTAB 0x0060->0x015a ; "a" 012b 005f | _ | .STRTAB 0x005f->0x015a ; "Failed single alpha test" 012c 0075 | u | .STRTAB 0x0075->0x0166 ; "0" 012d 0074 | t | .STRTAB 0x0074->0x0167 ; "Failed single numeric test" 012e 008c | | .STRTAB 0x008c->0x0174 ; "_" 012f 008b | | .STRTAB 0x008b->0x0174 ; "Failed single underscore test" 0130 00a6 | | .STRTAB 0x00a6->0x0183 ; "aA" 0131 00a6 | | .STRTAB 0x00a6->0x0184 ; "Failed 2 char alpha test" 0132 00bc | | .STRTAB 0x00bc->0x0190 ; "96" 0133 00bc | | .STRTAB 0x00bc->0x0191 ; "Failed 2 char numeric test" 0134 00d4 | | .STRTAB 0x00d4->0x019e ; "adsaaABAE028$aaru26mAA" 0135 00e8 | | .STRTAB 0x00e8->0x01a9 ; "Failed embedded non-alpha_numeric test" 0136 010c | | .STRTAB 0x010c->0x01bc ; "$2627shNNNTsh66" 0137 0119 | | .STRTAB 0x0119->0x01c3 ; "Failed leading non-alpha_numeric test" 0138 013c | < | .STRTAB 0x013c->0x01d6 ; "02627GARYhs5gajuuu^" 0139 014d | M | .STRTAB 0x014d->0x01df ; "Failed ending non-alpha_numeric test" 013a 016f | o | .STRTAB 0x016f->0x01f1 ; "abelcigmrerghepqermb" 013b 0181 | | .STRTAB 0x0181->0x01fb ; "Failed \x22random\x22 alpha string test" 013c 01a0 | | .STRTAB 0x01a0->0x020c ; "12345678900987654321" 013d 01b2 | | .STRTAB 0x01b2->0x0216 ; "Failed \x22random\x22 numeric string test" 013e 01d3 | | .STRTAB 0x01d3->0x0227 ; "0asderv" 013f 01d8 | | .STRTAB 0x01d8->0x022b ; "Failed leading char numeric test" 0140 01f6 | | .STRTAB 0x01f6->0x023b ; "agadaraa0" 0141 01fd | | .STRTAB 0x01fd->0x023f ; "Failed failed ending numeric char test" 0142 0221 | ! | .STRTAB 0x0221->0x0252 ; "sdradramg8asdrarul" 0143 0231 | 1 | .STRTAB 0x0231->0x025b ; "Failed embedded numeric char test" 0144 0250 | P | .STRTAB 0x0250->0x026c ; "aZsaD2dra6JWR9a02145NJWmGf" 0145 0268 | h | .STRTAB 0x0268->0x0279 ; "Failed mixed upper-lower case char test" 0146 028d | | .STRTAB 0x028d->0x028c ; "<CURRENT TEST CASE>" 0147 029e | | .STRTAB 0x029e->0x0296 ; "<CURRENT TEST RUN>" 0148 02ae | | .STREND 0x02ae->0x029f 0149 5041 5353 |PASS| .STRTAB_STRINGS 029f 0000 | | .XXX[0x1] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug Table 02a0 ; -------------------------------------------------------------------------------------- 02a0 0004 0004 | | .DEBUG4 0x0004,0x0004,0x785c,0x0000,0x0001,0x0003 02a6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 02aa 001b 02b2 | | .DBG4T 0x001b,0x02b2,0x8001,0x8000 02ae 0103 0000 | | .DBG4T 0x0103,0x0000,0x0005,0x0000 02b2 ; -------------------------------------------------------------------------------------- 02b2 ; Debug chain 02b2 ; -------------------------------------------------------------------------------------- 02b2 0002 0031 | 1| .DBGLEN 0x0002,0x0031 02b4 001b 0020 | | .DBGLNO 0x001b,0x0020,0x0022,0x0029,0x002c,0x0033,0x0035,0x0039,0x0040,0x0042,0x0046,0x004d,0x004f,0x0053,0x005a,0x005c,0x0060,0x0067,0x0069,0x006d,0x0074,0x0076,0x007a,0x0081,0x0083,0x0087,0x008e,0x0090,0x0094,0x009b,0x009d,0x00a1,0x00a8,0x00aa,0x00ae,0x00b5,0x00b7,0x00bb,0x00c2,0x00c4,0x00c8,0x00cf,0x00d1,0x00d5,0x00dc,0x00de,0x00e2,0x00e9,0x00eb,0x00ed,0x00f4 02e7 0002 0003 | | .XXX[0x2] 02e9 0000 0000 | | .BLANK 0000[0x117]