|
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 01e0 | | .CONST 0x01e0 ; 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 00c3 | | Declare_Subprogram INIT_00c0,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 00e8 | | Action Push_String_Extended,0xe8 ; "RUN_ALL" 0027 01df | | Execute Vector,Equal 0028 6840 |h@ | Jump_Zero 0x69 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 00e9 | | Action Push_String_Extended,0xe9 ; "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 00ea | | Action Push_String_Extended,0xea ; "0" 0037 8003 | | Call 0x0,0x3 0038 6809 |h | Jump_Zero 0x42 0039 e004 | | Load 0x0,0x4 003a 180e | | Execute Package,Field_Execute,Field_Number 0xe 003b 4807 |H | Short_Literal 0x7 003c 0092 00eb | | Action Push_String_Extended,0xeb ; "Failed single numeric 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 00ec | | Action Push_String_Extended,0xec ; "_" 0044 8003 | | Call 0x0,0x3 0045 6809 |h | Jump_Zero 0x4f 0046 e004 | | Load 0x0,0x4 0047 180e | | Execute Package,Field_Execute,Field_Number 0xe 0048 4807 |H | Short_Literal 0x7 0049 0092 00ed | | Action Push_String_Extended,0xed ; "Failed single underscore 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 00ee | | Action Push_String_Extended,0xee ; "a" 0051 8003 | | Call 0x0,0x3 0052 7009 |p | Jump_Nonzero 0x5c 0053 e004 | | Load 0x0,0x4 0054 180e | | Execute Package,Field_Execute,Field_Number 0xe 0055 4807 |H | Short_Literal 0x7 0056 0092 00ef | | Action Push_String_Extended,0xef ; "Failed single alpha 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 00f0 | | Action Push_String_Extended,0xf0 ; "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 00f1 | | Action Push_String_Extended,0xf1 ; "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 00f2 | | Action Push_String_Extended,0xf2 ; "abelcigmrerghepqermb" 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 00f3 | | Action Push_String_Extended,0xf3 ; "Failed \x22random\x22 alpha string 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 00f4 | | Action Push_String_Extended,0xf4 ; "0asderv" 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 00f5 | | Action Push_String_Extended,0xf5 ; "Failed leading char non-alpha char 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 00f6 | | Action Push_String_Extended,0xf6 ; "agadaraa/" 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 00f7 | | Action Push_String_Extended,0xf7 ; "Failed failed ending non-alpah char 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 00f8 | | Action Push_String_Extended,0xf8 ; "sdradramg asdrarul" 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 4802 |H | Short_Literal 0x2 0097 0092 00f9 | | Action Push_String_Extended,0xf9 ; "Failed embedded non-alpha char 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 00fa | | Action Push_String_Extended,0xfa ; "aZsaDdraJWRaNJWmGf" 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 00fb | | Action Push_String_Extended,0xfb ; "Failed mixed upper-lower case char 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 00d8 | | Load_Top At_Offset_0 00ab 7007 |p | Jump_Nonzero 0xb3 00ac 0092 00fc | | Action Push_String_Extended,0xfc ; "<CURRENT TEST CASE>" 00ae 0092 00fd | | Action Push_String_Extended,0xfd ; "<CURRENT TEST RUN>" 00b0 8006 | | Call 0x0,0x6 00b1 8007 | | Call 0x0,0x7 00b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b3 0092 00fc | | Action Push_String_Extended,0xfc ; "<CURRENT TEST CASE>" 00b5 0092 00fd | | Action Push_String_Extended,0xfd ; "<CURRENT TEST RUN>" 00b7 8008 | | Call 0x0,0x8 00b8 8007 | | Call 0x0,0x7 00b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ba 0000 0000 | | .BLANK 0000[0x6] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4607 |F | Jump_Case 0x8 00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00c5 7807 |x | Jump 0xcd ; case 0x1 00c6 780a |x | Jump 0xd1 ; case 0x2 00c7 780e |x | Jump 0xd6 ; case 0x3 00c8 7811 |x | Jump 0xda ; case 0x4 00c9 7812 |x | Jump 0xdc ; case 0x5 00ca 7813 |x | Jump 0xde ; case 0x6 00cb 7816 |x | Jump 0xe2 ; case 0x7 00cc 4302 |C | .XXX[0x1] 00cd 00da | | Load_Top At_Offset_2 00ce 0091 00e6 | | Action Push_String_Extended_Indexed,0xe6 ; "PASS" 00d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d1 00db | | Load_Top At_Offset_3 00d2 00db | | Load_Top At_Offset_3 00d3 00e0 | | Load_Encached Standard_Cache 00d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d6 00da | | Load_Top At_Offset_2 00d7 00e0 | | Load_Encached Standard_Cache 00d8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00da 00db | | Load_Top At_Offset_3 00db 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00dc 00db | | Load_Top At_Offset_3 00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00de e402 | | Load 0x2,0x2 00df 00dc | | Load_Top At_Offset_4 00e0 0267 | g | Execute Discrete,Predecessor 00e1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e2 e402 | | Load 0x2,0x2 00e3 00dc | | Load_Top At_Offset_4 00e4 0268 | h | Execute Discrete,Successor 00e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e6 ; -------------------------------------------------------------------------------------- 00e6 ; STRING TABLE 00e6 ; -------------------------------------------------------------------------------------- 00e6 0032 | 2 | .STRTAB 0x0032->0x00ff ; "PASS" 00e7 0034 | 4 | .STRTAB 0x0034->0x0101 ; "FAIL" 00e8 0036 | 6 | .STRTAB 0x0036->0x0103 ; "RUN_ALL" 00e9 003b | ; | .STRTAB 0x003b->0x0106 ; "Failed null string test" 00ea 0050 | P | .STRTAB 0x0050->0x0112 ; "0" 00eb 004f | O | .STRTAB 0x004f->0x0112 ; "Failed single numeric test" 00ec 0067 | g | .STRTAB 0x0067->0x011f ; "_" 00ed 0066 | f | .STRTAB 0x0066->0x0120 ; "Failed single underscore test" 00ee 0081 | | .STRTAB 0x0081->0x012e ; "a" 00ef 0080 | | .STRTAB 0x0080->0x012f ; "Failed single alpha test" 00f0 0096 | | .STRTAB 0x0096->0x013b ; "aA" 00f1 0096 | | .STRTAB 0x0096->0x013c ; "Failed 2 char alpha test" 00f2 00ac | | .STRTAB 0x00ac->0x0148 ; "abelcigmrerghepqermb" 00f3 00be | | .STRTAB 0x00be->0x0152 ; "Failed \x22random\x22 alpha string test" 00f4 00dd | | .STRTAB 0x00dd->0x0162 ; "0asderv" 00f5 00e2 | | .STRTAB 0x00e2->0x0166 ; "Failed leading char non-alpha char test" 00f6 0107 | | .STRTAB 0x0107->0x0179 ; "agadaraa/" 00f7 010e | | .STRTAB 0x010e->0x017e ; "Failed failed ending non-alpah char test" 00f8 0134 | 4 | .STRTAB 0x0134->0x0192 ; "sdradramg asdrarul" 00f9 0144 | D | .STRTAB 0x0144->0x019b ; "Failed embedded non-alpha char test" 00fa 0165 | e | .STRTAB 0x0165->0x01ac ; "aZsaDdraJWRaNJWmGf" 00fb 0175 | u | .STRTAB 0x0175->0x01b5 ; "Failed mixed upper-lower case char test" 00fc 019a | | .STRTAB 0x019a->0x01c9 ; "<CURRENT TEST CASE>" 00fd 01ab | | .STRTAB 0x01ab->0x01d2 ; "<CURRENT TEST RUN>" 00fe 01bb | | .STREND 0x01bb->0x01db 00ff 5041 5353 |PASS| .STRTAB_STRINGS 01dc 0000 0000 | | .BLANK 0000[0x4] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; Debug Table 01e0 ; -------------------------------------------------------------------------------------- 01e0 0004 0004 | | .DEBUG4 0x0004,0x0004,0x7862,0x0000,0x0001,0x0003 01e6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 01ea 001b 01f2 | | .DBG4T 0x001b,0x01f2,0x8001,0x8000 01ee 00c3 0000 | | .DBG4T 0x00c3,0x0000,0x0005,0x0000 01f2 ; -------------------------------------------------------------------------------------- 01f2 ; Debug chain 01f2 ; -------------------------------------------------------------------------------------- 01f2 0002 0022 | "| .DBGLEN 0x0002,0x0022 01f4 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,0x00ac,0x00b3 0218 0002 0003 | | .XXX[0x2] 021a 0000 0000 | | .BLANK 0000[0x1e6]