|
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_03bcfe
└─⟦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 01a0 | | .CONST 0x01a0 ; 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 8001 | | .CONST 0x8001 ; 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 0039 | 9 | .CONST 0x0039 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000b | | .CONST 0x000b ; Number of locals 001b INIT_0018: 001b 00ec | | Load_Encached Diana_Tree_Cache 001c 039d | | Declare_Variable Heap_Access,Duplicate 001d e5fe | | Load 0x2,-0x2 001e 4975 |Iu | Short_Literal 0x175 001f 00eb | | Load_Encached Diana_Cache 0020 0098 | | Execute Package,Field_Read_Dynamic 0021 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0022 00e3 | | Load_Encached Natural_Cache 0023 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0024 e002 | | Load 0x0,0x2 0025 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0026 02c7 | | Declare_Variable Any 0027 00d8 | | Load_Top At_Offset_0 0028 1c00 | | Execute_Immediate Run_Utility,0x0 0029 e5ff | | Load 0x2,-0x1 002a 00eb | | Load_Encached Diana_Cache 002b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 002c 8003 | | Call 0x0,0x3 002d 00e1 | | Load_Encached Boolean_Cache 002e 03f1 | | Declare_Variable Discrete,With_Value 002f 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 0031 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0033 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0035 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0037 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 0039 BODY_0018: 0039 e004 | | Load 0x0,0x4 003a e005 | | Load 0x0,0x5 003b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 003c c004 | | Store 0x0,0x4 003d 0092 0134 | 4| Action Push_String_Extended,0x134 ; " The name " 003f e5ff | | Load 0x2,-0x1 0040 00eb | | Load_Encached Diana_Cache 0041 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0042 01cc | | Execute Vector,Catenate 0043 0092 0135 | 5| Action Push_String_Extended,0x135 ; " is overloaded." 0045 01cc | | Execute Vector,Catenate 0046 8006 | | Call 0x0,0x6 0047 8007 | | Call 0x0,0x7 0048 0092 0136 | 6| Action Push_String_Extended,0x136 ; " When you ask for it again, please choose one instance by appending to\x0a " 004a e5ff | | Load 0x2,-0x1 004b 00eb | | Load_Encached Diana_Cache 004c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 004d 01cc | | Execute Vector,Catenate 004e 0092 0137 | 7| Action Push_String_Extended,0x137 ; " a single quote " 0050 01cc | | Execute Vector,Catenate 0051 0092 0138 | 8| Action Push_String_Extended,0x138 ; "followed by a choice qualifier or nickname, as follows:" 0053 01cc | | Execute Vector,Catenate 0054 8006 | | Call 0x0,0x6 0055 8007 | | Call 0x0,0x7 0056 8007 | | Call 0x0,0x7 0057 00cf | | Action Mark_Auxiliary 0058 e404 | | Load 0x2,0x4 0059 4801 |H | Short_Literal 0x1 005a 0263 | c | Execute Discrete,Above_Bound 005b 704f |pO | Jump_Nonzero 0xab 005c 00d8 | | Load_Top At_Offset_0 005d e5fe | | Load 0x2,-0x2 005e 4975 |Iu | Short_Literal 0x175 005f 00eb | | Load_Encached Diana_Cache 0060 0098 | | Execute Package,Field_Read_Dynamic 0061 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0062 a402 | | Store_Unchecked 0x2,0x2 0063 e008 | | Load 0x0,0x8 0064 e402 | | Load 0x2,0x2 0065 e009 | | Load 0x0,0x9 0066 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0067 a403 | | Store_Unchecked 0x2,0x3 0068 e406 | | Load 0x2,0x6 0069 7004 |p | Jump_Nonzero 0x6e 006a e402 | | Load 0x2,0x2 006b e00a | | Load 0x0,0xa 006c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 006d a402 | | Store_Unchecked 0x2,0x2 006e 0092 0139 | 9| Action Push_String_Extended,0x139 ; " Choice " 0070 00d9 | | Load_Top At_Offset_1 0071 e406 | | Load 0x2,0x6 0072 e402 | | Load 0x2,0x2 0073 840b | | Call 0x2,0xb 0074 01cc | | Execute Vector,Catenate 0075 0092 013a | :| Action Push_String_Extended,0x13a ; ":" 0077 01cc | | Execute Vector,Catenate 0078 8006 | | Call 0x0,0x6 0079 8007 | | Call 0x0,0x7 007a e405 | | Load 0x2,0x5 007b 4800 |H | Short_Literal 0x0 007c e00b | | Load 0x0,0xb 007d 4800 |H | Short_Literal 0x0 007e 00eb | | Load_Encached Diana_Cache 007f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0080 e00c | | Load 0x0,0xc 0081 4820 |H | Short_Literal 0x20 0082 e00d | | Load 0x0,0xd 0083 e00c | | Load 0x0,0xc 0084 4800 |H | Short_Literal 0x0 0085 4800 |H | Short_Literal 0x0 0086 e406 | | Load 0x2,0x6 0087 4800 |H | Short_Literal 0x0 0088 e403 | | Load 0x2,0x3 0089 e402 | | Load 0x2,0x2 008a e00e | | Load 0x0,0xe 008b e00f | | Load 0x0,0xf 008c a010 | | Store_Unchecked 0x0,0x10 008d a011 | | Store_Unchecked 0x0,0x11 008e a012 | | Store_Unchecked 0x0,0x12 008f a013 | | Store_Unchecked 0x0,0x13 0090 e014 | | Load 0x0,0x14 0091 e015 | | Load 0x0,0x15 0092 e016 | | Load 0x0,0x16 0093 e017 | | Load 0x0,0x17 0094 a018 | | Store_Unchecked 0x0,0x18 0095 a019 | | Store_Unchecked 0x0,0x19 0096 a01a | | Store_Unchecked 0x0,0x1a 0097 a01b | | Store_Unchecked 0x0,0x1b 0098 a01c | | Store_Unchecked 0x0,0x1c 0099 a01d | | Store_Unchecked 0x0,0x1d 009a a01e | | Store_Unchecked 0x0,0x1e 009b a01f | | Store_Unchecked 0x0,0x1f 009c a020 | | Store_Unchecked 0x0,0x20 009d a021 | ! | Store_Unchecked 0x0,0x21 009e a022 | " | Store_Unchecked 0x0,0x22 009f a023 | # | Store_Unchecked 0x0,0x23 00a0 a024 | $ | Store_Unchecked 0x0,0x24 00a1 a025 | % | Store_Unchecked 0x0,0x25 00a2 a026 | & | Store_Unchecked 0x0,0x26 00a3 a027 | ' | Store_Unchecked 0x0,0x27 00a4 a028 | ( | Store_Unchecked 0x0,0x28 00a5 a029 | ) | Store_Unchecked 0x0,0x29 00a6 802a | * | Call 0x0,0x2a 00a7 c405 | | Store 0x2,0x5 00a8 8007 | | Call 0x0,0x7 00a9 00c8 | | Action Pop_Auxiliary_Range 00aa 3fb1 |? | Loop_Increasing 0x5c 00ab 00ce | | Action Pop_Auxiliary 00ac e004 | | Load 0x0,0x4 00ad e005 | | Load 0x0,0x5 00ae 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00af c004 | | Store 0x0,0x4 00b0 00eb | | Load_Encached Diana_Cache 00b1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00b3 0000 0000 | | .BLANK 0000[0x5] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 00da | | Load_Top At_Offset_2 00bc 01db | | Execute Vector,Length 00bd 0c02 | | Execute_Immediate Greater_Equal,0x2 00be 6813 |h | Jump_Zero 0xd2 00bf 00da | | Load_Top At_Offset_2 00c0 01dd | | Execute Vector,First 00c1 00db | | Load_Top At_Offset_3 00c2 01d7 | | Execute Vector,Field_Read 00c3 0f27 | ' | Execute_Immediate Equal,0x27 00c4 680d |h | Jump_Zero 0xd2 00c5 00da | | Load_Top At_Offset_2 00c6 01dd | | Execute Vector,First 00c7 0a01 | | Execute_Immediate Plus,0x1 00c8 00d8 | | Load_Top At_Offset_0 00c9 00e2 | | Load_Encached Integer_Cache 00ca 0260 | ` | Execute Discrete,In_Type 00cb 7001 |p | Jump_Nonzero 0xcd 00cc 0801 | | Execute_Immediate Raise,0x1 00cd 00db | | Load_Top At_Offset_3 00ce 01dc | | Execute Vector,Last 00cf e7ff | | Load 0x3,-0x1 00d0 01cf | | Execute Vector,Slice_Read 00d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d2 00da | | Load_Top At_Offset_2 00d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 4820 |H | Short_Literal 0x20 00dc 4800 |H | Short_Literal 0x0 00dd 480a |H | Short_Literal 0xa 00de e7ff | | Load 0x3,-0x1 00df e02b | + | Load 0x0,0x2b 00e0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00e1 e02c | , | Load 0x0,0x2c 00e2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e3 8407 | | Call 0x2,0x7 00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec 01db | | Execute Vector,Length 00ed 700a |p | Jump_Nonzero 0xf8 00ee 00db | | Load_Top At_Offset_3 00ef 01db | | Execute Vector,Length 00f0 7003 |p | Jump_Nonzero 0xf4 00f1 e7fd | | Load 0x3,-0x3 00f2 8408 | | Call 0x2,0x8 00f3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00f4 00db | | Load_Top At_Offset_3 00f5 e02b | + | Load 0x0,0x2b 00f6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00f8 00da | | Load_Top At_Offset_2 00f9 e7fe | | Load 0x3,-0x2 00fa 01df | | Execute Vector,Equal 00fb e7fe | | Load 0x3,-0x2 00fc 01db | | Execute Vector,Length 00fd 0f00 | | Execute_Immediate Equal,0x0 00fe 0278 | x | Execute Discrete,Or 00ff 6805 |h | Jump_Zero 0x105 0100 00da | | Load_Top At_Offset_2 0101 e02c | , | Load 0x0,0x2c 0102 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0103 8407 | | Call 0x2,0x7 0104 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0105 00da | | Load_Top At_Offset_2 0106 e02c | , | Load 0x0,0x2c 0107 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0108 8407 | | Call 0x2,0x7 0109 0092 013b | ;| Action Push_String_Extended,0x13b ; " (with nickname " 010b 01cc | | Execute Vector,Catenate 010c e7fe | | Load 0x3,-0x2 010d e02b | + | Load 0x0,0x2b 010e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 010f 01cc | | Execute Vector,Catenate 0110 0092 013c | <| Action Push_String_Extended,0x13c ; ")" 0112 01cc | | Execute Vector,Catenate 0113 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011d | | .CONST 0x011d ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 011c 802d | - | Call 0x0,0x2d 011d BODY_0118: 011d e7fe | | Load 0x3,-0x2 011e 00d9 | | Load_Top At_Offset_1 011f e02e | . | Load 0x0,0x2e 0120 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0121 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0122 00da | | Load_Top At_Offset_2 0123 e02e | . | Load 0x0,0x2e 0124 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0125 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0126 8409 | | Call 0x2,0x9 0127 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00db | | Load_Top At_Offset_3 012c 6803 |h | Jump_Zero 0x130 012d e7fd | | Load 0x3,-0x3 012e 8408 | | Call 0x2,0x8 012f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0130 e7fd | | Load 0x3,-0x3 0131 00db | | Load_Top At_Offset_3 0132 840a | | Call 0x2,0xa 0133 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0134 ; -------------------------------------------------------------------------------------- 0134 ; STRING TABLE 0134 ; -------------------------------------------------------------------------------------- 0134 0014 | | .STRTAB 0x0014->0x013e ; " The name " 0135 001c | | .STRTAB 0x001c->0x0143 ; " is overloaded." 0136 0029 | ) | .STRTAB 0x0029->0x014a ; " When you ask for it again, please choose one instance by appending to\x0a " 0137 006f | o | .STRTAB 0x006f->0x016e ; " a single quote " 0138 007d | } | .STRTAB 0x007d->0x0176 ; "followed by a choice qualifier or nickname, as follows:" 0139 00b2 | | .STRTAB 0x00b2->0x0192 ; " Choice " 013a 00b8 | | .STRTAB 0x00b8->0x0196 ; ":" 013b 00b7 | | .STRTAB 0x00b7->0x0196 ; " (with nickname " 013c 00c5 | | .STRTAB 0x00c5->0x019e ; ")" 013d 00c4 | | .STREND 0x00c4->0x019f 013e 2054 6865 | The| .STRTAB_STRINGS 019f 0000 | | .XXX[0x1] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; Debug Table 01a0 ; -------------------------------------------------------------------------------------- 01a0 0004 000d | | .DEBUG4 0x0004,0x000d,0x2bd6,0x0000,0x0001,0x0000 01a6 ae4c a40c | L | .XXX[0x3e] 01a8 2e4c a40d |.L | 01aa 2dce 6eac |- n | 01ac cccd 2c6d | ,m| 01ae 2cad ce84 |, | 01b0 0c2c 6c6c | ,ll| 01b2 ae6e 640e | nd | 01b4 4d2c ed0e |M, | 01b6 8e64 0e8d | d | 01b8 e40e 0cae | | 01ba 4ccd ee4d |L M| 01bc a000 0006 | | 01be e000 0001 | | 01c0 ce8d 0ca4 | | 01c2 0dee 0cae | | 01c4 4c2e 8d2d |L. -| 01c6 edc5 c000 | | 01c8 0006 6000 | ` | 01ca 0002 4404 | D | 01cc 0404 0e8d | | 01ce 0ca4 0dee | | 01d0 0cae 4c2e | L.| 01d2 8d2d edc5 | - | 01d4 c000 0006 | | 01d6 6000 0002 |` | 01d8 4404 0404 |D | 01da 0e8d 0ca4 | | 01dc 0dee 0cae | | 01de 4c2e 8d2d |L. -| 01e0 edc5 c000 | | 01e2 0000 2000 | | 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 0008 c000 | | .XXX[0x18] 01ea 0000 0000 | | 01ec 0008 a000 | | 01ee 0009 2000 | | 01f0 0005 6de4 | m | 01f2 086c 2e0c | l. | 01f4 2c6d 2e8f |,m. | 01f6 2be8 ae4e |+ N| 01f8 4dee 4744 |M GD| 01fa 040a 8d0c | | 01fc a40d eeae | | 01fe 8e0e ae84 | |