|
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_5e40f2
└─⟦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 0110 | | .CONST 0x0110 ; 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 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 0037 | 7 | .CONST 0x0037 ; Address of exception handler 001a 0003 | | .CONST 0x0003 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e 00d8 | | Load_Top At_Offset_0 001f 1c00 | | Execute_Immediate Run_Utility,0x0 0020 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 0022 BODY_0018: 0022 00d9 | | Load_Top At_Offset_1 0023 00ea | | Load_Encached Null_String_Cache 0024 e5ff | | Load 0x2,-0x1 0025 4800 |H | Short_Literal 0x0 0026 e001 | | Load 0x0,0x1 0027 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0028 c402 | | Store 0x2,0x2 0029 00cf | | Action Mark_Auxiliary 002a 7802 |x | Jump 0x2d 002b 8403 | | Call 0x2,0x3 002c 00c9 | | Action Pop_Auxiliary_Loop 002d 00da | | Load_Top At_Offset_2 002e e001 | | Load 0x0,0x1 002f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0030 6ffa |o | Jump_Zero 0x2b 0031 00ce | | Action Pop_Auxiliary 0032 00d9 | | Load_Top At_Offset_1 0033 e001 | | Load 0x0,0x1 0034 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0035 c402 | | Store 0x2,0x2 0036 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0037 TRAP_0018: 0037 00d8 | | Load_Top At_Offset_0 0038 0107 | | Execute Exception,Get_Name 0039 4920 |I | Short_Literal 0x120 003a 492f |I/ | Short_Literal 0x12f 003b 0262 | b | Execute Discrete,In_Range 003c 680d |h | Jump_Zero 0x4a 003d e002 | | Load 0x0,0x2 003e 180e | | Execute Package,Field_Execute,Field_Number 0xe 003f 4808 |H | Short_Literal 0x8 0040 0092 0095 | | Action Push_String_Extended,0x95 ; "Cannot open '" 0042 e5ff | | Load 0x2,-0x1 0043 01cc | | Execute Vector,Catenate 0044 0092 0096 | | Action Push_String_Extended,0x96 ; "' (NAME_ERROR)" 0046 01cc | | Execute Vector,Catenate 0047 e003 | | Load 0x0,0x3 0048 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0049 4502 |E | Exit_Suprogram New_Top_Offset 0x2 004a e002 | | Load 0x0,0x2 004b 180e | | Execute Package,Field_Execute,Field_Number 0xe 004c 4808 |H | Short_Literal 0x8 004d 0092 0097 | | Action Push_String_Extended,0x97 ; "Unexpected exception " 004f 4800 |H | Short_Literal 0x0 0050 4801 |H | Short_Literal 0x1 0051 e004 | | Load 0x0,0x4 0052 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0053 01cc | | Execute Vector,Catenate 0054 0092 0098 | | Action Push_String_Extended,0x98 ; " while opening/closing " 0056 01cc | | Execute Vector,Catenate 0057 0092 0099 | | Action Push_String_Extended,0x99 ; "parameter default change directives file " 0059 01cc | | Execute Vector,Catenate 005a e5ff | | Load 0x2,-0x1 005b 01cc | | Execute Vector,Catenate 005c e003 | | Load 0x0,0x3 005d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 005f 0000 | | .XXX[0x1] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 006c | l | .CONST 0x006c ; Address of begin 0061 0071 | q | .CONST 0x0071 ; Address of exception handler 0062 0004 | | .CONST 0x0004 ; Number of locals 0063 INIT_0060: 0063 e402 | | Load 0x2,0x2 0064 e001 | | Load 0x0,0x1 0065 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0066 e402 | | Load 0x2,0x2 0067 e001 | | Load 0x0,0x1 0068 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0069 e402 | | Load 0x2,0x2 006a e001 | | Load 0x0,0x1 006b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 006c BODY_0060: 006c 00d8 | | Load_Top At_Offset_0 006d 00da | | Load_Top At_Offset_2 006e e602 | | Load 0x3,0x2 006f 8005 | | Call 0x0,0x5 0070 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0071 TRAP_0060: 0071 0007 | | Action Break_Optional 0072 e002 | | Load 0x0,0x2 0073 180e | | Execute Package,Field_Execute,Field_Number 0xe 0074 4808 |H | Short_Literal 0x8 0075 0092 009a | | Action Push_String_Extended,0x9a ; "Unexpected exception while changing parameter's default value" 0077 e003 | | Load 0x0,0x3 0078 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0079 e002 | | Load 0x0,0x2 007a 180e | | Execute Package,Field_Execute,Field_Number 0xe 007b 4808 |H | Short_Literal 0x8 007c 0092 009b | | Action Push_String_Extended,0x9b ; "Parameter => " 007e e5ff | | Load 0x2,-0x1 007f 01cc | | Execute Vector,Catenate 0080 e003 | | Load 0x0,0x3 0081 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0082 e002 | | Load 0x0,0x2 0083 180e | | Execute Package,Field_Execute,Field_Number 0xe 0084 4808 |H | Short_Literal 0x8 0085 0092 009c | | Action Push_String_Extended,0x9c ; "Kind => " 0087 e603 | | Load 0x3,0x3 0088 01cc | | Execute Vector,Catenate 0089 e003 | | Load 0x0,0x3 008a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008b e002 | | Load 0x0,0x2 008c 180e | | Execute Package,Field_Execute,Field_Number 0xe 008d 4808 |H | Short_Literal 0x8 008e 0092 009d | | Action Push_String_Extended,0x9d ; "Value => " 0090 e604 | | Load 0x3,0x4 0091 01cc | | Execute Vector,Catenate 0092 e003 | | Load 0x0,0x3 0093 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0094 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0095 ; -------------------------------------------------------------------------------------- 0095 ; STRING TABLE 0095 ; -------------------------------------------------------------------------------------- 0095 0014 | | .STRTAB 0x0014->0x009f ; "Cannot open '" 0096 001f | | .STRTAB 0x001f->0x00a5 ; "' (NAME_ERROR)" 0097 002b | + | .STRTAB 0x002b->0x00ac ; "Unexpected exception " 0098 003e | > | .STRTAB 0x003e->0x00b7 ; " while opening/closing " 0099 0053 | S | .STRTAB 0x0053->0x00c2 ; "parameter default change directives file " 009a 007a | z | .STRTAB 0x007a->0x00d7 ; "Unexpected exception while changing parameter's default value" 009b 00b5 | | .STRTAB 0x00b5->0x00f5 ; "Parameter => " 009c 00c0 | | .STRTAB 0x00c0->0x00fc ; "Kind => " 009d 00cb | | .STRTAB 0x00cb->0x0102 ; "Value => " 009e 00d6 | | .STREND 0x00d6->0x0109 009f 4361 6e6e |Cann| .STRTAB_STRINGS 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug Table 0110 ; -------------------------------------------------------------------------------------- 0110 0004 000d | | .DEBUG4 0x0004,0x000d,0x968e,0x0000,0x0001,0x0000 0116 5d7d a5bd |]} | .XXX[0xea] 0118 b5bd d994 | | 011a 000c 0308 | | 011c 617d cdbd |a} | 011e b585 d18d | | 0120 a00c 02b0 | | 0122 657d 95e1 |e} | 0124 7dcd bd99 |} | 0126 c80c 0390 | | 0128 657d b995 |e} | 012a d1a5 b9a5 | | 012c d00c 0030 | 0| 012e 697d 7da5 |i}} | 0130 b9cd c5d5 | | 0132 940c 0138 | 8| 0134 697d 7dc9 |i}} | 0136 95b5 c5d5 | | 0138 940c 01f0 | | 013a 697d b995 |i} | 013c d1a5 b9d1 | | 013e c80c 0280 | | 0140 697d c995 |i} | 0142 d1d5 c9b9 | | 0144 a00c 03d8 | | 0146 697d cdd1 |i} | 0148 858d add1 | | 014a c80c 00c8 | | 014c 6d7d 8dc9 |m} | 014e b589 e000 | | 0150 000c 0200 | | 0152 6d7d dd85 |m} | 0154 ad95 d5c0 | | 0156 000c 0270 | p| 0158 6d7d cdb1 |m} | 015a 9595 c000 | | 015c 000c 03c0 | | 015e 6d7d c9d5 |m} | 0160 b800 0000 | | 0162 000c 0170 | p| 0164 717d b5b1 |q} | 0166 bdbd c000 | | 0168 000c 02a0 | | 016a 717d b5b1 |q} | 016c c185 b9a5 | | 016e 8c0c 0388 | | 0170 757d b58d |u} | 0172 bdb9 99a5 | | 0174 9c0c 01e8 | | 0176 797d 91bd |y} | 0178 8db1 bd8d | | 017a ac0c 00b0 | | 017c 817d d195 | } | 017e b1b1 a1bd | | 0180 cc0c 02b0 | | 0182 817d 9d95 | } | 0184 d1d5 b9cd | | 0186 bc0c 0370 | p| 0188 817d c1d5 | } | 018a d1d5 b9cd | | 018c bc0c 00a0 | | 018e 857d 85c9 | } | 0190 c1d1 8589 | | 0192 7c0c 00d8 || | 0194 857d 85c9 | } | 0196 c1dd a1bd | | 0198 a00c 01b8 | | 019a 857d 85c9 | } | 019c c1c9 95cd | | 019e bc0c 0148 | H| 01a0 897d 85c9 | } | 01a2 c1a5 b9c1 | | 01a4 d40c 0070 | p| 01a6 8d7d 85c9 | } | 01a8 c1d1 99c9 | | 01aa 940c 0248 | H| 01ac 957d 85c9 | } | 01ae c1d1 b995 | | 01b0 dc0c 0328 | (| 01b2 957d a1bd | } | 01b4 cdd1 7d85 | } | 01b6 c80c 01c8 | | 01b8 997d 8dbd | } | 01ba b9d9 cdbd | | 01bc 8c0c 01c8 | | 01be a17d a1a4 | } | 01c0 0000 0000 | | 01c2 000c 02f0 | | 01c4 a17d 8dd9 | } | 01c6 d1cd bd8d | | 01c8 ac0c 0030 | 0| 01ca c17d e1c1 | } | 01cc c9a5 b9d1 | | 01ce 980c 0180 | | 01d0 c17d c1c9 | } | 01d2 a5b9 d1b8 | | 01d4 000c 0250 | P| 01d6 c97d c1d5 | } | 01d8 d18d a000 | | 01da 000c 0228 | (| 01dc cd7d c1c9 | } | 01de a5b9 d198 | | 01e0 000c 0008 | | 01e2 d17d e1c1 | } | 01e4 7d85 b1b0 |} | 01e6 000c 0040 | @| 01e8 d17d e1c1 | } | 01ea 7dc1 85b9 |} | 01ec a40c 0110 | | 01ee d17d e1c1 | } | 01f0 7da1 bdd0 |} | 01f2 000c 01a0 | | 01f4 d17d e1c1 | } | 01f6 7ddd 85c9 |} | 01f8 b40c 0230 | 0| 01fa d17d e1c1 | } | 01fc 7d8d bdbd |} | 01fe b00c 02c0 | |