|
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_0a7cf5
└─⟦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 0158 | X | .CONST 0x0158 ; 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 0048 | H | .CONST 0x0048 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4805 |H | Short_Literal 0x5 000d 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0016 c210 | | Store 0x1,0x10 0017 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0019 c20e | | Store 0x1,0xe 001a 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 001c c211 | | Store 0x1,0x11 001d 00bf | | Action Accept_Activation 001e e20d | | Load 0x1,0xd 001f 0266 | f | Execute Discrete,Bounds 0020 e001 | | Load 0x0,0x1 0021 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0022 02a0 | | Declare_Subprogram Null_Subprogram 0023 4801 |H | Short_Literal 0x1 0024 035d | ] | Declare_Type Array,Defined 0025 00d8 | | Load_Top At_Offset_0 0026 0337 | 7 | Declare_Variable Array 0027 480b |H | Short_Literal 0xb 0028 4800 |H | Short_Literal 0x0 0029 00da | | Load_Top At_Offset_2 002a 01d6 | | Execute Vector,Field_Write 002b 4805 |H | Short_Literal 0x5 002c 4802 |H | Short_Literal 0x2 002d 00da | | Load_Top At_Offset_2 002e 01d6 | | Execute Vector,Field_Write 002f 4805 |H | Short_Literal 0x5 0030 4804 |H | Short_Literal 0x4 0031 00da | | Load_Top At_Offset_2 0032 01d6 | | Execute Vector,Field_Write 0033 4805 |H | Short_Literal 0x5 0034 4805 |H | Short_Literal 0x5 0035 00da | | Load_Top At_Offset_2 0036 01d6 | | Execute Vector,Field_Write 0037 4801 |H | Short_Literal 0x1 0038 4801 |H | Short_Literal 0x1 0039 00da | | Load_Top At_Offset_2 003a 01d6 | | Execute Vector,Field_Write 003b 4801 |H | Short_Literal 0x1 003c 4803 |H | Short_Literal 0x3 003d 00da | | Load_Top At_Offset_2 003e 01d6 | | Execute Vector,Field_Write 003f 00d9 | | Load_Top At_Offset_1 0040 01c3 | | Execute Vector,Check_In_Type 0041 0007 | | Action Break_Optional 0042 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0043 00c7 | | Action Elaborate_Subprogram 0044 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0045 00c7 | | Action Elaborate_Subprogram 0046 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0047 00c7 | | Action Elaborate_Subprogram 0048 BODY_0008: 0048 00bc | | Action Signal_Activated 0049 00bb | | Action Signal_Completion 004a 0000 0000 | | .BLANK 0000[0x6] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 4607 |F | Jump_Case 0x8 0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0055 7806 |x | Jump 0x5c ; case 0x1 0056 7809 |x | Jump 0x60 ; case 0x2 0057 780d |x | Jump 0x65 ; case 0x3 0058 7810 |x | Jump 0x69 ; case 0x4 0059 7811 |x | Jump 0x6b ; case 0x5 005a 7812 |x | Jump 0x6d ; case 0x6 005b 7815 |x | Jump 0x71 ; case 0x7 005c 00da | | Load_Top At_Offset_2 005d 0091 00ff | | Action Push_String_Extended_Indexed,0xff ; "NIL" 005f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0060 00db | | Load_Top At_Offset_3 0061 00db | | Load_Top At_Offset_3 0062 00e0 | | Load_Encached Standard_Cache 0063 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0064 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0065 00da | | Load_Top At_Offset_2 0066 00e0 | | Load_Encached Standard_Cache 0067 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0068 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0069 00db | | Load_Top At_Offset_3 006a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006b 00db | | Load_Top At_Offset_3 006c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006d e20d | | Load 0x1,0xd 006e 00dc | | Load_Top At_Offset_4 006f 0267 | g | Execute Discrete,Predecessor 0070 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0071 e20d | | Load 0x1,0xd 0072 00dc | | Load_Top At_Offset_4 0073 0268 | h | Execute Discrete,Successor 0074 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0075 0000 0000 | | .XXX[0x3] 0077 0000 | | 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00da | | Load_Top At_Offset_2 007c e213 | | Load 0x1,0x13 007d 01d7 | | Execute Vector,Field_Read 007e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007f 0000 | | .XXX[0x1] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0089 | | .CONST 0x0089 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 e002 | | Load 0x0,0x2 0085 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0086 e20d | | Load 0x1,0xd 0087 1c02 | | Execute_Immediate Run_Utility,0x2 0088 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0089 TRAP_0080: 0089 010e | | Execute Exception,Is_Constraint_Error 008a 6802 |h | Jump_Zero 0x8d 008b 4800 |H | Short_Literal 0x0 008c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008d 0100 | | Execute Exception,Raise 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0095 | | .CONST 0x0095 ; Address of begin 0091 00f0 | | .CONST 0x00f0 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 820e | | Call 0x1,0xe 0095 BODY_0090: 0095 00d8 | | Load_Top At_Offset_0 0096 e213 | | Load 0x1,0x13 0097 01d7 | | Execute Vector,Field_Read 0098 e5fe | | Load 0x2,-0x2 0099 e001 | | Load 0x0,0x1 009a 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 009b e001 | | Load 0x0,0x1 009c 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 009d 027f | | Execute Discrete,Equal 009e 701a |p | Jump_Nonzero 0xb9 009f e5fc | | Load 0x2,-0x4 00a0 0092 0105 | | Action Push_String_Extended,0x105 ; "The " 00a2 00da | | Load_Top At_Offset_2 00a3 e20d | | Load 0x1,0xd 00a4 011c | | Execute Any,Convert_Unchecked 00a5 1c01 | | Execute_Immediate Run_Utility,0x1 00a6 01cc | | Execute Vector,Catenate 00a7 0092 0106 | | Action Push_String_Extended,0x106 ; " document must be generated in the context of a " 00a9 01cc | | Execute Vector,Catenate 00aa 00da | | Load_Top At_Offset_2 00ab e213 | | Load 0x1,0x13 00ac 01d7 | | Execute Vector,Field_Read 00ad e001 | | Load 0x0,0x1 00ae 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 00af 01cc | | Execute Vector,Catenate 00b0 0092 0107 | | Action Push_String_Extended,0x107 ; " component" 00b2 01cc | | Execute Vector,Catenate 00b3 e003 | | Load 0x0,0x3 00b4 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 00b5 e003 | | Load 0x0,0x3 00b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b7 c5fc | | Store 0x2,-0x4 00b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b9 e5fc | | Load 0x2,-0x4 00ba e003 | | Load 0x0,0x3 00bb 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00bc c5fc | | Store 0x2,-0x4 00bd 00d8 | | Load_Top At_Offset_0 00be 4605 |F | Jump_Case 0x6 00bf 7821 |x! | Jump 0xe1 ; case 0x0 00c0 780b |x | Jump 0xcc ; case 0x1 00c1 7811 |x | Jump 0xd3 ; case 0x2 00c2 7817 |x | Jump 0xda ; case 0x3 00c3 7801 |x | Jump 0xc5 ; case 0x4 00c4 7800 |x | Jump 0xc5 ; case 0x5 00c5 e5fc | | Load 0x2,-0x4 00c6 e5fd | | Load 0x2,-0x3 00c7 e5fe | | Load 0x2,-0x2 00c8 e5ff | | Load 0x2,-0x1 00c9 8004 | | Call 0x0,0x4 00ca c5fc | | Store 0x2,-0x4 00cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00cc e5fc | | Load 0x2,-0x4 00cd e5fd | | Load 0x2,-0x3 00ce e5fe | | Load 0x2,-0x2 00cf e5ff | | Load 0x2,-0x1 00d0 8005 | | Call 0x0,0x5 00d1 c5fc | | Store 0x2,-0x4 00d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00d3 e5fc | | Load 0x2,-0x4 00d4 e5fd | | Load 0x2,-0x3 00d5 e5fe | | Load 0x2,-0x2 00d6 e5ff | | Load 0x2,-0x1 00d7 8006 | | Call 0x0,0x6 00d8 c5fc | | Store 0x2,-0x4 00d9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00da e5fc | | Load 0x2,-0x4 00db e5fd | | Load 0x2,-0x3 00dc e5fe | | Load 0x2,-0x2 00dd e5ff | | Load 0x2,-0x1 00de 8007 | | Call 0x0,0x7 00df c5fc | | Store 0x2,-0x4 00e0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00e1 e5fc | | Load 0x2,-0x4 00e2 4822 |H" | Short_Literal 0x22 00e3 e5ff | | Load 0x2,-0x1 00e4 e002 | | Load 0x0,0x2 00e5 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00e6 01ca | | Execute Vector,Prepend 00e7 0092 0108 | | Action Push_String_Extended,0x108 ; "\x22 is an invalid document name" 00e9 01cc | | Execute Vector,Catenate 00ea e003 | | Load 0x0,0x3 00eb 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 00ec e003 | | Load 0x0,0x3 00ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ee c5fc | | Store 0x2,-0x4 00ef 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f0 TRAP_0090: 00f0 0007 | | Action Break_Optional 00f1 e5fc | | Load 0x2,-0x4 00f2 4829 |H) | Short_Literal 0x29 00f3 0092 0109 | | Action Push_String_Extended,0x109 ; "Unexpected exception in Documents.Generate (" 00f5 e003 | | Load 0x0,0x3 00f6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00f7 01cc | | Execute Vector,Catenate 00f8 01cb | | Execute Vector,Append 00f9 e003 | | Load 0x0,0x3 00fa 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00fb e003 | | Load 0x0,0x3 00fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00fd c5fc | | Store 0x2,-0x4 00fe 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ff ; -------------------------------------------------------------------------------------- 00ff ; STRING TABLE 00ff ; -------------------------------------------------------------------------------------- 00ff 0018 | | .STRTAB 0x0018->0x010b ; "NIL" 0100 0019 | | .STRTAB 0x0019->0x010c ; "IRS" 0101 001a | | .STRTAB 0x001a->0x010e ; "SRS" 0102 001b | | .STRTAB 0x001b->0x010f ; "IDD" 0103 001c | | .STRTAB 0x001c->0x0111 ; "PSDD" 0104 001e | | .STRTAB 0x001e->0x0113 ; "SDD" 0105 001f | | .STRTAB 0x001f->0x0114 ; "The " 0106 0021 | ! | .STRTAB 0x0021->0x0116 ; " document must be generated in the context of a " 0107 004f | O | .STRTAB 0x004f->0x012e ; " component" 0108 0057 | W | .STRTAB 0x0057->0x0133 ; "\x22 is an invalid document name" 0109 0072 | r | .STRTAB 0x0072->0x0142 ; "Unexpected exception in Documents.Generate (" 010a 009c | | .STREND 0x009c->0x0158 010b 4e49 4c49 |NILI| .STRTAB_STRINGS 0158 ; -------------------------------------------------------------------------------------- 0158 ; Debug Table 0158 ; -------------------------------------------------------------------------------------- 0158 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc63,0x0000,0x0001,0x0000 015e 4580 06f0 |E | .XXX[0xa2] 0160 80ba 009a | | 0162 a204 0c00 | | 0164 3a68 0810 |:h | 0166 0988 a046 | F| 0168 c007 f701 | | 016a 1700 fe48 | H| 016c 0000 004f | O| 016e 180a a009 | | 0170 40e0 0000 |@ | 0172 23be 811c |# | 0174 000f ac02 | | 0176 8000 4210 | B | 0178 0840 0136 | @ 6| 017a 8031 0005 | 1 | 017c 1a00 8700 | | 017e 14ea 0224 | $| 0180 0057 0808 | W | 0182 c001 6b40 | k@| 0184 25c0 05b4 |% | 0186 808d 0017 | | 0188 3e03 3c00 |> < | 018a 5dd0 0940 |] @| 018c 017e 002a | ~ *| 018e 0006 1300 | | 0190 8e00 1882 | | 0192 02e0 0062 | b| 0194 e009 6001 | ` | 0196 9240 2840 | @(@| 0198 0656 80b3 | V | 019a 0019 c603 | | 019c 0000 67f0 | g | 019e 0b50 01a6 | P | 01a0 804c c006 | L | 01a2 a781 0d00 | | 01a4 1ad4 0308 | | 01a6 006c 2800 | l( | 01a8 0001 b400 | | 01aa 0000 06d5 | | 01ac 8113 001b | | 01ae 8c03 1800 | | 01b0 70b8 0a70 |p p| 01b2 01c9 a042 | B| 01b4 c007 4f00 | O | 01b6 ae00 1d72 | r| 01b8 0000 0076 | v| 01ba a00e c001 | | 01bc dbe0 2880 | ( | 01be 077d 00a4 | } | 01c0 001e 2a03 | * | 01c2 f800 7980 | y | 01c4 16a0 01e9 | | 01c6 6000 0007 |` | 01c8 b300 c800 | | 01ca 1f38 04ac | 8 | 01cc 007e 3814 | ~8 | 01ce 8001 fa60 | `| 01d0 3c40 07ff |<@ | 01d2 00bc 0020 | | 01d4 6803 3000 |h 0 | 01d6 8200 0bf0 | | 01d8 020e c058 | X| 01da 8008 4080 | @ | 01dc d300 2130 | !0| 01de 052c 0085 | , | 01e0 9810 9002 | | 01e2 19e0 5c40 | \@| 01e4 0875 0000 | u | 01e6 0088 0602 | | 01e8 dc02 20d8 | | 01ea 0d00 0887 | | 01ec 6039 c022 |`9 "| 01ee 3080 b400 |0 | 01f0 88f6 0000 | | 01f2 0226 0813 | & | 01f4 e008 9b80 | | 01f6 0000 2282 | " | 01f8 80ca 008a | | 01fa 4003 ac02 |@ | 01fc 2ab0 0c30 |* 0| 01fe 08ae 2000 | |