|
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_02f8e7
└─⟦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 00e8 | | .CONST 0x00e8 ; 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 000b | | .CONST 0x000b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b BODY_0008: 000b INIT_0008: 000b e7ff | | Load 0x3,-0x1 000c 4607 |F | Jump_Case 0x8 000d 7807 |x | Jump 0x15 ; case 0x0 000e 7813 |x | Jump 0x22 ; case 0x1 000f 782c |x, | Jump 0x3c ; case 0x2 0010 781e |x | Jump 0x2f ; case 0x3 0011 784b |xK | Jump 0x5d ; case 0x4 0012 7836 |x6 | Jump 0x49 ; case 0x5 0013 7842 |xB | Jump 0x56 ; case 0x6 0014 7855 |xU | Jump 0x6a ; case 0x7 0015 0092 006d | m| Action Push_String_Extended,0x6d ; "What is your User_Name? [" 0017 4800 |H | Short_Literal 0x0 0018 e411 | | Load 0x2,0x11 0019 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 001a 01d7 | | Execute Vector,Field_Read 001b e402 | | Load 0x2,0x2 001c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 001d 01cc | | Execute Vector,Catenate 001e 0092 006e | n| Action Push_String_Extended,0x6e ; "] :" 0020 01cc | | Execute Vector,Catenate 0021 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0022 0092 006f | o| Action Push_String_Extended,0x6f ; "What is your Company? [" 0024 4801 |H | Short_Literal 0x1 0025 e411 | | Load 0x2,0x11 0026 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0027 01d7 | | Execute Vector,Field_Read 0028 e402 | | Load 0x2,0x2 0029 1816 | | Execute Package,Field_Execute,Field_Number 0x16 002a 01cc | | Execute Vector,Catenate 002b 0092 006e | n| Action Push_String_Extended,0x6e ; "] :" 002d 01cc | | Execute Vector,Catenate 002e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 002f 0092 0070 | p| Action Push_String_Extended,0x70 ; "What is your local_site? [" 0031 4803 |H | Short_Literal 0x3 0032 e411 | | Load 0x2,0x11 0033 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0034 01d7 | | Execute Vector,Field_Read 0035 e402 | | Load 0x2,0x2 0036 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0037 01cc | | Execute Vector,Catenate 0038 0092 006e | n| Action Push_String_Extended,0x6e ; "] :" 003a 01cc | | Execute Vector,Catenate 003b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 003c 0092 0071 | q| Action Push_String_Extended,0x71 ; "What is your Region? [" 003e 4802 |H | Short_Literal 0x2 003f e411 | | Load 0x2,0x11 0040 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0041 01d7 | | Execute Vector,Field_Read 0042 e402 | | Load 0x2,0x2 0043 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0044 01cc | | Execute Vector,Catenate 0045 0092 006e | n| Action Push_String_Extended,0x6e ; "] :" 0047 01cc | | Execute Vector,Catenate 0048 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0049 0092 0072 | r| Action Push_String_Extended,0x72 ; "What machine does this report refer to? [" 004b 4805 |H | Short_Literal 0x5 004c e411 | | Load 0x2,0x11 004d 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 004e 01d7 | | Execute Vector,Field_Read 004f e402 | | Load 0x2,0x2 0050 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0051 01cc | | Execute Vector,Catenate 0052 0092 006e | n| Action Push_String_Extended,0x6e ; "] :" 0054 01cc | | Execute Vector,Catenate 0055 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0056 4806 |H | Short_Literal 0x6 0057 e411 | | Load 0x2,0x11 0058 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0059 01d7 | | Execute Vector,Field_Read 005a e402 | | Load 0x2,0x2 005b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 005c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005d 0092 0073 | s| Action Push_String_Extended,0x73 ; "What configuration was it running? [" 005f 4804 |H | Short_Literal 0x4 0060 e411 | | Load 0x2,0x11 0061 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0062 01d7 | | Execute Vector,Field_Read 0063 e402 | | Load 0x2,0x2 0064 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0065 01cc | | Execute Vector,Catenate 0066 0092 006e | n| Action Push_String_Extended,0x6e ; "] :" 0068 01cc | | Execute Vector,Catenate 0069 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006a 0092 0074 | t| Action Push_String_Extended,0x74 ; "Please enter a ONE LINE SUMMARY of the problem: " 006c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006d ; -------------------------------------------------------------------------------------- 006d ; STRING TABLE 006d ; -------------------------------------------------------------------------------------- 006d 0012 | | .STRTAB 0x0012->0x0076 ; "What is your User_Name? [" 006e 0029 | ) | .STRTAB 0x0029->0x0082 ; "] :" 006f 002a | * | .STRTAB 0x002a->0x0084 ; "What is your Company? [" 0070 003f | ? | .STRTAB 0x003f->0x008f ; "What is your local_site? [" 0071 0057 | W | .STRTAB 0x0057->0x009c ; "What is your Region? [" 0072 006b | k | .STRTAB 0x006b->0x00a7 ; "What machine does this report refer to? [" 0073 0092 | | .STRTAB 0x0092->0x00bc ; "What configuration was it running? [" 0074 00b4 | | .STRTAB 0x00b4->0x00ce ; "Please enter a ONE LINE SUMMARY of the problem: " 0075 00e2 | | .STREND 0x00e2->0x00e6 0076 5768 6174 |What| .STRTAB_STRINGS 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; Debug Table 00e8 ; -------------------------------------------------------------------------------------- 00e8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x11f7,0x0000,0x0001,0x0000 00ee 6419 0641 |d A| .XXX[0x112] 00f0 9064 1906 | d | 00f2 4190 6419 |A d | 00f4 0641 9064 | A d| 00f6 1906 4190 | A | 00f8 6419 0641 |d A| 00fa 9064 1906 | d | 00fc 4190 6419 |A d | 00fe 0641 9064 | A d| 0100 1906 4190 | A | 0102 6419 0641 |d A| 0104 9064 1906 | d | 0106 4190 6419 |A d | 0108 0641 9064 | A d| 010a 1906 4190 | A | 010c 6419 0641 |d A| 010e 9064 1906 | d | 0110 4190 6419 |A d | 0112 0641 9064 | A d| 0114 1906 4190 | A | 0116 6419 0641 |d A| 0118 9064 1906 | d | 011a 4190 6419 |A d | 011c 0641 9064 | A d| 011e 1906 4190 | A | 0120 6419 0641 |d A| 0122 9064 1906 | d | 0124 4190 6419 |A d | 0126 0641 9064 | A d| 0128 1906 4190 | A | 012a 6419 0641 |d A| 012c 9064 1906 | d | 012e 4190 6419 |A d | 0130 0641 9064 | A d| 0132 1906 4190 | A | 0134 6419 0641 |d A| 0136 9064 1906 | d | 0138 4190 6419 |A d | 013a 0641 9064 | A d| 013c 1906 4190 | A | 013e 6419 0641 |d A| 0140 9064 1906 | d | 0142 4190 6419 |A d | 0144 0641 9064 | A d| 0146 1906 4190 | A | 0148 6419 0641 |d A| 014a 9064 1906 | d | 014c 4190 6419 |A d | 014e 0641 9064 | A d| 0150 1906 4190 | A | 0152 6419 0641 |d A| 0154 9064 1906 | d | 0156 4190 6419 |A d | 0158 0641 9064 | A d| 015a 1906 4190 | A | 015c 6419 0641 |d A| 015e 9064 1906 | d | 0160 4190 6419 |A d | 0162 0641 9064 | A d| 0164 1906 4190 | A | 0166 6419 0641 |d A| 0168 9064 1906 | d | 016a 4190 6419 |A d | 016c 0641 9064 | A d| 016e 1906 4190 | A | 0170 6419 0641 |d A| 0172 9064 1906 | d | 0174 4190 6419 |A d | 0176 0641 9064 | A d| 0178 1906 4190 | A | 017a 6419 0641 |d A| 017c 9064 1906 | d | 017e 4190 6419 |A d | 0180 0641 9064 | A d| 0182 1906 4190 | A | 0184 6419 0641 |d A| 0186 9064 1906 | d | 0188 4190 6419 |A d | 018a 0641 9064 | A d| 018c 1906 4190 | A | 018e 6419 0641 |d A| 0190 9064 1906 | d | 0192 4190 6419 |A d | 0194 0641 9064 | A d| 0196 1906 4190 | A | 0198 6419 0641 |d A| 019a 9064 1906 | d | 019c 4190 6419 |A d | 019e 0641 9064 | A d| 01a0 1906 4190 | A | 01a2 6419 0641 |d A| 01a4 9064 1906 | d | 01a6 4190 6419 |A d | 01a8 0641 9064 | A d| 01aa 1906 4190 | A | 01ac 6419 0641 |d A| 01ae 9064 1906 | d | 01b0 4190 6419 |A d | 01b2 0641 9064 | A d| 01b4 1906 4190 | A | 01b6 6419 0641 |d A| 01b8 9064 1906 | d | 01ba 4190 6419 |A d | 01bc 0641 9064 | A d| 01be 1906 4190 | A | 01c0 6419 0641 |d A| 01c2 9064 1906 | d | 01c4 4190 6419 |A d | 01c6 0641 9064 | A d| 01c8 1906 4190 | A | 01ca 6419 0641 |d A| 01cc 9064 1906 | d | 01ce 4190 6419 |A d | 01d0 0641 9064 | A d| 01d2 1906 4190 | A | 01d4 6419 0641 |d A| 01d6 9064 1906 | d | 01d8 4190 6419 |A d | 01da 0641 9064 | A d| 01dc 1906 4190 | A | 01de 6419 0641 |d A| 01e0 9064 1906 | d | 01e2 4190 6419 |A d | 01e4 0641 9064 | A d| 01e6 1906 4190 | A | 01e8 6419 0641 |d A| 01ea 9064 1906 | d | 01ec 4190 6419 |A d | 01ee 0641 9064 | A d| 01f0 1906 4190 | A | 01f2 6419 0641 |d A| 01f4 9064 1906 | d | 01f6 4190 6419 |A d | 01f8 0641 9064 | A d| 01fa 1906 4190 | A | 01fc 6419 0641 |d A| 01fe 9064 1906 | d |