|
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 0118 | | .CONST 0x0118 ; 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 001d | | .CONST 0x001d ; Address of begin 0019 0066 | f | .CONST 0x0066 ; Address of exception handler 001a 0002 | | .CONST 0x0002 ; Number of locals 001b INIT_0018: 001b 0092 009b | | Action Push_String_Extended,0x9b ; "Generate_Postscript" 001d BODY_0018: 001d e5e3 | | Load 0x2,-0x1d 001e e001 | | Load 0x0,0x1 001f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0020 e5e3 | | Load 0x2,-0x1d 0021 e5e4 | | Load 0x2,-0x1c 0022 e5e5 | | Load 0x2,-0x1b 0023 e5e6 | | Load 0x2,-0x1a 0024 e5e7 | | Load 0x2,-0x19 0025 e5e8 | | Load 0x2,-0x18 0026 e5e9 | | Load 0x2,-0x17 0027 e5ea | | Load 0x2,-0x16 0028 e5eb | | Load 0x2,-0x15 0029 e5ec | | Load 0x2,-0x14 002a e5ed | | Load 0x2,-0x13 002b e5ee | | Load 0x2,-0x12 002c e5ef | | Load 0x2,-0x11 002d e5f0 | | Load 0x2,-0x10 002e e5f1 | | Load 0x2,-0xf 002f e5f2 | | Load 0x2,-0xe 0030 e5f3 | | Load 0x2,-0xd 0031 e5f4 | | Load 0x2,-0xc 0032 e5f5 | | Load 0x2,-0xb 0033 e5f6 | | Load 0x2,-0xa 0034 e5f7 | | Load 0x2,-0x9 0035 e5f8 | | Load 0x2,-0x8 0036 e5f9 | | Load 0x2,-0x7 0037 e5fa | | Load 0x2,-0x6 0038 e5fb | | Load 0x2,-0x5 0039 e5fc | | Load 0x2,-0x4 003a e5fd | | Load 0x2,-0x3 003b e5fe | | Load 0x2,-0x2 003c e5ff | | Load 0x2,-0x1 003d e402 | | Load 0x2,0x2 003e e002 | | Load 0x0,0x2 003f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0040 e003 | | Load 0x0,0x3 0041 180f | | Execute Package,Field_Execute,Field_Number 0xf 0042 e5e4 | | Load 0x2,-0x1c 0043 e5e5 | | Load 0x2,-0x1b 0044 e5e6 | | Load 0x2,-0x1a 0045 e5e7 | | Load 0x2,-0x19 0046 e5e8 | | Load 0x2,-0x18 0047 e5e9 | | Load 0x2,-0x17 0048 e5ea | | Load 0x2,-0x16 0049 e5eb | | Load 0x2,-0x15 004a e5ec | | Load 0x2,-0x14 004b e5ed | | Load 0x2,-0x13 004c e5ee | | Load 0x2,-0x12 004d e5ef | | Load 0x2,-0x11 004e e5f0 | | Load 0x2,-0x10 004f e5f1 | | Load 0x2,-0xf 0050 e5f2 | | Load 0x2,-0xe 0051 e5f3 | | Load 0x2,-0xd 0052 e5f4 | | Load 0x2,-0xc 0053 e5f5 | | Load 0x2,-0xb 0054 e5f6 | | Load 0x2,-0xa 0055 e5f7 | | Load 0x2,-0x9 0056 e5f8 | | Load 0x2,-0x8 0057 e5f9 | | Load 0x2,-0x7 0058 e5fa | | Load 0x2,-0x6 0059 e5fb | | Load 0x2,-0x5 005a e5fc | | Load 0x2,-0x4 005b e5fd | | Load 0x2,-0x3 005c e5fe | | Load 0x2,-0x2 005d e5ff | | Load 0x2,-0x1 005e e004 | | Load 0x0,0x4 005f 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0060 00d8 | | Load_Top At_Offset_0 0061 e002 | | Load 0x0,0x2 0062 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0063 e001 | | Load 0x0,0x1 0064 180f | | Execute Package,Field_Execute,Field_Number 0xf 0065 451e |E | Exit_Suprogram New_Top_Offset 0x1e 0066 TRAP_0018: 0066 e003 | | Load 0x0,0x3 0067 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0068 010f | | Execute Exception,Equal 0069 680f |h | Jump_Zero 0x79 006a 0092 009c | | Action Push_String_Extended,0x9c ; "Create_Defining_Diagram terminating because Insight is not authorized for this machine" 006c e005 | | Load 0x0,0x5 006d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 006e e001 | | Load 0x0,0x1 006f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0070 6805 |h | Jump_Zero 0x76 0071 e001 | | Load 0x0,0x1 0072 180f | | Execute Package,Field_Execute,Field_Number 0xf 0073 e006 | | Load 0x0,0x6 0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0075 0257 | W | Execute Discrete,Raise 0076 e001 | | Load 0x0,0x1 0077 180f | | Execute Package,Field_Execute,Field_Number 0xf 0078 451e |E | Exit_Suprogram New_Top_Offset 0x1e 0079 e003 | | Load 0x0,0x3 007a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007b 010f | | Execute Exception,Equal 007c 680f |h | Jump_Zero 0x8c 007d 0092 009d | | Action Push_String_Extended,0x9d ; "Create_Defining_Diagram terminating because the Insight token limit has been exceeded" 007f e005 | | Load 0x0,0x5 0080 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0081 e001 | | Load 0x0,0x1 0082 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0083 6805 |h | Jump_Zero 0x89 0084 e001 | | Load 0x0,0x1 0085 180f | | Execute Package,Field_Execute,Field_Number 0xf 0086 e006 | | Load 0x0,0x6 0087 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0088 0257 | W | Execute Discrete,Raise 0089 e001 | | Load 0x0,0x1 008a 180f | | Execute Package,Field_Execute,Field_Number 0xf 008b 451e |E | Exit_Suprogram New_Top_Offset 0x1e 008c e001 | | Load 0x0,0x1 008d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 008e 6805 |h | Jump_Zero 0x94 008f e001 | | Load 0x0,0x1 0090 180f | | Execute Package,Field_Execute,Field_Number 0xf 0091 e006 | | Load 0x0,0x6 0092 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0093 0257 | W | Execute Discrete,Raise 0094 0092 009e | | Action Push_String_Extended,0x9e ; "Background_Exception raised see above for details" 0096 e005 | | Load 0x0,0x5 0097 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0098 e001 | | Load 0x0,0x1 0099 180f | | Execute Package,Field_Execute,Field_Number 0xf 009a 451e |E | Exit_Suprogram New_Top_Offset 0x1e 009b ; -------------------------------------------------------------------------------------- 009b ; STRING TABLE 009b ; -------------------------------------------------------------------------------------- 009b 000a | | .STRTAB 0x000a->0x00a0 ; "Generate_Postscript" 009c 001b | | .STRTAB 0x001b->0x00a9 ; "Create_Defining_Diagram terminating because Insight is not authorized for this machine" 009d 006f | o | .STRTAB 0x006f->0x00d4 ; "Create_Defining_Diagram terminating because the Insight token limit has been exceeded" 009e 00c2 | | .STRTAB 0x00c2->0x00ff ; "Background_Exception raised see above for details" 009f 00f1 | | .STREND 0x00f1->0x0117 00a0 4765 6e65 |Gene| .STRTAB_STRINGS 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug Table 0118 ; -------------------------------------------------------------------------------------- 0118 0004 0014 | | .DEBUG4 0x0004,0x0014,0x1119,0x0000,0x0001,0x0000 011e 5d33 7142 |]3qB| .XXX[0xe2] 0120 3711 4984 |7 I | 0122 1b90 5311 | S | 0124 80f9 582f | X/| 0126 b9aa 3612 | 6 | 0128 91d1 6b90 | k | 012a e234 2629 | 4&)| 012c 8c33 518b | 3Q | 012e 7080 7be0 |p { | 0130 0060 0c0a | ` | 0132 6a2d 8c33 |j- 3| 0134 b180 ef48 | H| 0136 f8c4 81e5 | | 0138 ad36 10c5 | 6 | 013a 4283 a44e |B N| 013c ee14 3100 | 1 | 013e 2ce8 eb1f |, | 0140 007c 6074 | |`t| 0142 740c 9866 |t f| 0144 59cc 3391 |Y 3 | 0146 84b8 38ca | 8 | 0148 0272 a4f3 | r | 014a 2103 ae13 |! | 014c 9480 0db1 | | 014e 60fe a02f |` /| 0150 48e3 2001 |H | 0152 6257 8c90 |bW | 0154 0c7e 6faa | ~o | 0156 4c32 917c |L2 || 0158 b938 cb42 | 8 B| 015a 9aa4 f325 | %| 015c 00f8 e123 | #| 015e 4002 ed16 |@ | 0160 3dd3 90a0 |= | 0162 0e5c 6236 | \b6| 0164 8c33 a1ae | 3 | 0166 1b15 c885 | | 0168 3261 572d |2aW-| 016a 01b5 1b8c | | 016c b00e 3166 | 1f| 016e 3b4c 3131 |;L11| 0170 b2f9 4836 | H6| 0172 807c b5b2 | | | 0174 a93c cc82 | < | 0176 2f06 08c9 |/ | 0178 1436 4170 | 6Ap| 017a e4eb 3a03 | : | 017c b915 2760 | '`| 017e 0306 1035 | 5| 0180 0211 84e7 | | 0182 3903 3890 |9 8 | 0184 a174 48d8 | tH | 0186 00ef e001 | | 0188 000c 9b69 | i| 018a 3920 5179 |9 Qy| 018c ab55 00ae | U | 018e e04e c927 | N '| 0190 8980 d442 | B| 0192 53b5 20df |S | 0194 028b d04e | N| 0196 a8f3 5602 | V | 0198 ff94 af65 | e| 019a 251a 1545 |% E| 019c 6035 8158 |`5 X| 019e d238 d480 | 8 | 01a0 2aa8 fb58 |* X| 01a2 030a 987b | {| 01a4 a459 df48 | Y H| 01a6 f120 58ea | X | 01a8 1724 159c | $ | 01aa 10d5 751b | u | 01ac 5a03 629c |Z b | 01ae 78a4 5f33 |x _3| 01b0 1645 cc36 | E 6| 01b2 51a6 8744 |Q D| 01b4 d5c2 3744 | 7D| 01b6 e362 00d7 | b | 01b8 a3a1 a00c | | 01ba 2985 d290 |) | 01bc 3682 0e77 |6 w| 01be 490e 8574 |I t| 01c0 70e7 7103 |p q | 01c2 2698 7975 |& yu| 01c4 28aa 01ee |( | 01c6 0461 b990 | a | 01c8 ba3a d1cb | : | 01ca 91d0 0c9a | | 01cc 862f 4c34 | /L4| 01ce c1a8 a93c | <| 01d0 df42 ad15 | B | 01d2 1f78 01ae | x | 01d4 9bc9 e00d | | 01d6 606d 9f61 |`m a| 01d8 f744 e37d | D }| 01da 0106 638e | c | 01dc 70b1 1c38 |p 8| 01de e141 dae4 | A | 01e0 e38b 0198 | | 01e2 606a 240c |`j$ | 01e4 166b 290c | k) | 01e6 3801 ae39 |8 9| 01e8 38e5 028d |8 | 01ea 84e7 9b02 | | 01ec da9b ca70 | p| 01ee 0cf0 8235 | 5| 01f0 cc39 d170 | 9 p| 01f2 e438 e880 | 8 | 01f4 3a88 0fb5 |: | 01f6 69a2 5038 |i P8| 01f8 41a5 3610 |A 6 | 01fa e900 1ee8 | | 01fc e3a8 01cb | | 01fe e002 b00d | |