|
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_03b8fe
└─⟦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 0198 | | .CONST 0x0198 ; 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 0026 | & | .CONST 0x0026 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0006 | | .CONST 0x0006 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001d e002 | | Load 0x0,0x2 001e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001f 0337 | 7 | Declare_Variable Array 0020 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0022 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 0024 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0026 BODY_0018: 0026 e001 | | Load 0x0,0x1 0027 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0028 e403 | | Load 0x2,0x3 0029 e003 | | Load 0x0,0x3 002a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 002b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 002c 00d1 | | Pop_Control Pop_Count_1 002d c402 | | Store 0x2,0x2 002e e403 | | Load 0x2,0x3 002f 8404 | | Call 0x2,0x4 0030 4801 |H | Short_Literal 0x1 0031 e004 | | Load 0x0,0x4 0032 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0033 0092 0141 | A| Action Push_String_Extended,0x141 ; "Group name map" 0035 e004 | | Load 0x0,0x4 0036 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0037 0092 0142 | B| Action Push_String_Extended,0x142 ; "--------------" 0039 e004 | | Load 0x0,0x4 003a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 003b 00cf | | Action Mark_Auxiliary 003c 4bff |K | Short_Literal 0x3ff 003d 4800 |H | Short_Literal 0x0 003e 0007 | | Action Break_Optional 003f 00d8 | | Load_Top At_Offset_0 0040 e005 | | Load 0x0,0x5 0041 180d | | Execute Package,Field_Execute,Field_Number 0xd 0042 e409 | | Load 0x2,0x9 0043 8405 | | Call 0x2,0x5 0044 00c8 | | Action Pop_Auxiliary_Range 0045 3ff9 |? | Loop_Increasing 0x3f 0046 00ce | | Action Pop_Auxiliary 0047 e5ff | | Load 0x2,-0x1 0048 6801 |h | Jump_Zero 0x4a 0049 8406 | | Call 0x2,0x6 004a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 004b 0000 0000 | | .BLANK 0000[0x5] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0058 | X | .CONST 0x0058 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0004 | | .CONST 0x0004 ; Number of locals 0053 INIT_0050: 0053 00e3 | | Load_Encached Natural_Cache 0054 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0055 e002 | | Load 0x0,0x2 0056 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0057 03e9 | | Declare_Variable Discrete,Duplicate 0058 BODY_0050: 0058 4800 |H | Short_Literal 0x0 0059 a603 | | Store_Unchecked 0x3,0x3 005a e603 | | Load 0x3,0x3 005b a604 | | Store_Unchecked 0x3,0x4 005c 0092 0143 | C| Action Push_String_Extended,0x143 ; "Free group map" 005e e004 | | Load 0x0,0x4 005f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0060 0092 0142 | B| Action Push_String_Extended,0x142 ; "--------------" 0062 e004 | | Load 0x0,0x4 0063 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0064 00cf | | Action Mark_Auxiliary 0065 7836 |x6 | Jump 0x9c 0066 e604 | | Load 0x3,0x4 0067 e7ff | | Load 0x3,-0x1 0068 01d7 | | Execute Vector,Field_Read 0069 702e |p. | Jump_Nonzero 0x98 006a e603 | | Load 0x3,0x3 006b e604 | | Load 0x3,0x4 006c 027e | ~ | Execute Discrete,Not_Equal 006d 6827 |h' | Jump_Zero 0x95 006e e603 | | Load 0x3,0x3 006f e604 | | Load 0x3,0x4 0070 0aff | | Execute_Immediate Plus,-0x1 0071 027f | | Execute Discrete,Equal 0072 6806 |h | Jump_Zero 0x79 0073 e603 | | Load 0x3,0x3 0074 00e0 | | Load_Encached Standard_Cache 0075 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0076 e004 | | Load 0x0,0x4 0077 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0078 7812 |x | Jump 0x8b 0079 e603 | | Load 0x3,0x3 007a 00e0 | | Load_Encached Standard_Cache 007b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 007c 0092 0144 | D| Action Push_String_Extended,0x144 ; " .." 007e 01cc | | Execute Vector,Catenate 007f e604 | | Load 0x3,0x4 0080 0aff | | Execute_Immediate Plus,-0x1 0081 00d8 | | Load_Top At_Offset_0 0082 00e2 | | Load_Encached Integer_Cache 0083 0260 | ` | Execute Discrete,In_Type 0084 7001 |p | Jump_Nonzero 0x86 0085 08e0 | | Execute_Immediate Raise,0xe0 0086 00e0 | | Load_Encached Standard_Cache 0087 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0088 01cc | | Execute Vector,Catenate 0089 e004 | | Load 0x0,0x4 008a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 008b e602 | | Load 0x3,0x2 008c 0a01 | | Execute_Immediate Plus,0x1 008d c602 | | Store 0x3,0x2 008e e602 | | Load 0x3,0x2 008f 480a |H | Short_Literal 0xa 0090 026e | n | Execute Discrete,Modulo 0091 7003 |p | Jump_Nonzero 0x95 0092 4801 |H | Short_Literal 0x1 0093 e004 | | Load 0x0,0x4 0094 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0095 e604 | | Load 0x3,0x4 0096 0a01 | | Execute_Immediate Plus,0x1 0097 c603 | | Store 0x3,0x3 0098 e604 | | Load 0x3,0x4 0099 0a01 | | Execute_Immediate Plus,0x1 009a c604 | | Store 0x3,0x4 009b 00c9 | | Action Pop_Auxiliary_Loop 009c e604 | | Load 0x3,0x4 009d 4bff |K | Short_Literal 0x3ff 009e 027c | | | Execute Discrete,Less 009f 77c6 |w | Jump_Nonzero 0x66 00a0 00ce | | Action Pop_Auxiliary 00a1 e603 | | Load 0x3,0x3 00a2 e604 | | Load 0x3,0x4 00a3 027e | ~ | Execute Discrete,Not_Equal 00a4 6812 |h | Jump_Zero 0xb7 00a5 e603 | | Load 0x3,0x3 00a6 00e0 | | Load_Encached Standard_Cache 00a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a8 0092 0144 | D| Action Push_String_Extended,0x144 ; " .." 00aa 01cc | | Execute Vector,Catenate 00ab e604 | | Load 0x3,0x4 00ac 0aff | | Execute_Immediate Plus,-0x1 00ad 00d8 | | Load_Top At_Offset_0 00ae 00e2 | | Load_Encached Integer_Cache 00af 0260 | ` | Execute Discrete,In_Type 00b0 7001 |p | Jump_Nonzero 0xb2 00b1 08e0 | | Execute_Immediate Raise,0xe0 00b2 00e0 | | Load_Encached Standard_Cache 00b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b4 01cc | | Execute Vector,Catenate 00b5 e004 | | Load 0x0,0x4 00b6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00b7 4801 |H | Short_Literal 0x1 00b8 e004 | | Load 0x0,0x4 00b9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00bb 0000 0000 | | .BLANK 0000[0x5] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4801 |H | Short_Literal 0x1 00c4 e7fe | | Load 0x3,-0x2 00c5 0092 0145 | E| Action Push_String_Extended,0x145 ; "<unknown" 00c7 e006 | | Load 0x0,0x6 00c8 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00c9 700d |p | Jump_Nonzero 0xd7 00ca 4820 |H | Short_Literal 0x20 00cb 4804 |H | Short_Literal 0x4 00cc 480a |H | Short_Literal 0xa 00cd e7ff | | Load 0x3,-0x1 00ce e006 | | Load 0x0,0x6 00cf 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00d0 0092 0146 | F| Action Push_String_Extended,0x146 ; " " 00d2 01cc | | Execute Vector,Catenate 00d3 e7fe | | Load 0x3,-0x2 00d4 01cc | | Execute Vector,Catenate 00d5 e004 | | Load 0x0,0x4 00d6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00ed | | .CONST 0x00ed ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0005 | | .CONST 0x0005 ; Number of locals 00db INIT_00d8: 00db e007 | | Load 0x0,0x7 00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00dd 02c7 | | Declare_Variable Any 00de e008 | | Load 0x0,0x8 00df 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e0 e007 | | Load 0x0,0x7 00e1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e2 a602 | | Store_Unchecked 0x3,0x2 00e3 e003 | | Load 0x0,0x3 00e4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e6 02ff | | Declare_Variable Variant_Record 00e7 00d8 | | Load_Top At_Offset_0 00e8 1c00 | | Execute_Immediate Run_Utility,0x0 00e9 e002 | | Load 0x0,0x2 00ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00eb e001 | | Load 0x0,0x1 00ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ed BODY_00d8: 00ed e001 | | Load 0x0,0x1 00ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ef e603 | | Load 0x3,0x3 00f0 e602 | | Load 0x3,0x2 00f1 4800 |H | Short_Literal 0x0 00f2 4800 |H | Short_Literal 0x0 00f3 4800 |H | Short_Literal 0x0 00f4 e009 | | Load 0x0,0x9 00f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f6 e003 | | Load 0x0,0x3 00f7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00f8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f9 00d1 | | Pop_Control Pop_Count_1 00fa c605 | | Store 0x3,0x5 00fb 00d8 | | Load_Top At_Offset_0 00fc 7022 |p" | Jump_Nonzero 0x11f 00fd e001 | | Load 0x0,0x1 00fe 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ff e002 | | Load 0x0,0x2 0100 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0101 e602 | | Load 0x3,0x2 0102 4800 |H | Short_Literal 0x0 0103 e603 | | Load 0x3,0x3 0104 e003 | | Load 0x0,0x3 0105 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0106 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0107 c604 | | Store 0x3,0x4 0108 c605 | | Store 0x3,0x5 0109 e001 | | Load 0x0,0x1 010a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 010b e602 | | Load 0x3,0x2 010c 4800 |H | Short_Literal 0x0 010d e603 | | Load 0x3,0x3 010e e003 | | Load 0x0,0x3 010f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0110 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0111 c402 | | Store 0x2,0x2 0112 e402 | | Load 0x2,0x2 0113 680b |h | Jump_Zero 0x11f 0114 0092 0147 | G| Action Push_String_Extended,0x147 ; "*** Very serious: unable to destroy group: " 0116 e402 | | Load 0x2,0x2 0117 e001 | | Load 0x0,0x1 0118 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0119 0122 | " | Execute Any,Make_Root_Type 011a 025e | ^ | Execute Discrete,Convert 011b 1c01 | | Execute_Immediate Run_Utility,0x1 011c 01cc | | Execute Vector,Catenate 011d e004 | | Load 0x0,0x4 011e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 011f e602 | | Load 0x3,0x2 0120 4801 |H | Short_Literal 0x1 0121 4800 |H | Short_Literal 0x0 0122 e007 | | Load 0x0,0x7 0123 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0124 c602 | | Store 0x3,0x2 0125 00d8 | | Load_Top At_Offset_0 0126 700c |p | Jump_Nonzero 0x133 0127 4801 |H | Short_Literal 0x1 0128 e004 | | Load 0x0,0x4 0129 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 012a 0092 0148 | H| Action Push_String_Extended,0x148 ; "Next group id =" 012c e604 | | Load 0x3,0x4 012d 00e0 | | Load_Encached Standard_Cache 012e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 012f 01cc | | Execute Vector,Catenate 0130 e004 | | Load 0x0,0x4 0131 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0132 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0133 4801 |H | Short_Literal 0x1 0134 e004 | | Load 0x0,0x4 0135 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0136 0092 0149 | I| Action Push_String_Extended,0x149 ; "Unable to get next group id: " 0138 e605 | | Load 0x3,0x5 0139 e001 | | Load 0x0,0x1 013a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013b 025e | ^ | Execute Discrete,Convert 013c 1c01 | | Execute_Immediate Run_Utility,0x1 013d 01cc | | Execute Vector,Catenate 013e e004 | | Load 0x0,0x4 013f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0140 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0141 ; -------------------------------------------------------------------------------------- 0141 ; STRING TABLE 0141 ; -------------------------------------------------------------------------------------- 0141 0014 | | .STRTAB 0x0014->0x014b ; "Group name map" 0142 0020 | | .STRTAB 0x0020->0x0152 ; "--------------" 0143 002c | , | .STRTAB 0x002c->0x0159 ; "Free group map" 0144 0038 | 8 | .STRTAB 0x0038->0x0160 ; " .." 0145 0039 | 9 | .STRTAB 0x0039->0x0161 ; "<unknown" 0146 003f | ? | .STRTAB 0x003f->0x0165 ; " " 0147 003f | ? | .STRTAB 0x003f->0x0166 ; "*** Very serious: unable to destroy group: " 0148 0068 | h | .STRTAB 0x0068->0x017c ; "Next group id =" 0149 0075 | u | .STRTAB 0x0075->0x0183 ; "Unable to get next group id: " 014a 0090 | | .STREND 0x0090->0x0192 014b 4772 6f75 |Grou| .STRTAB_STRINGS 0192 0000 0000 | | .BLANK 0000[0x6] 0198 ; -------------------------------------------------------------------------------------- 0198 ; Debug Table 0198 ; -------------------------------------------------------------------------------------- 0198 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb5e,0x0000,0x0001,0x0000 019e 7d19 2531 |} %1| .XXX[0x62] 01a0 154c 5c00 | L\ | 01a2 414d 5105 |AMQ | 01a4 3911 0549 |9 I| 01a6 10b9 093d | =| 01a8 3d31 1505 |=1 | 01aa 3858 0059 |8X Y| 01ac 4d51 0539 |MQ 9| 01ae 1105 4910 | I | 01b0 b909 3d3d | ==| 01b2 3115 0538 |1 8| 01b4 b919 0531 | 1| 01b6 4d15 fa40 |M @| 01b8 8c00 3141 | 1A| 01ba 4925 3951 |I%9Q| 01bc 7d49 1541 |}I A| 01be 3d49 505c |=IP\| 01c0 0041 4d51 | AMQ| 01c2 0539 1105 | 9 | 01c4 4910 b909 |I | 01c6 3d3d 3115 |==1 | 01c8 0538 5800 | 8X | 01ca 554d 5105 |UMQ | 01cc 3911 0549 |9 I| 01ce 10b9 093d | =| 01d0 3d31 1505 |=1 | 01d2 38b9 5149 |8 QI| 01d4 5515 fa40 |U @| 01d6 8c00 3d49 | =I| 01d8 1541 3d49 | A=I| 01da 517d 1925 |Q} %| 01dc 3115 3905 |1 9 | 01de 3514 5c00 |5 \ | 01e0 3d4d 5105 |=MQ | 01e2 3911 0549 |9 I| 01e4 10b9 4d51 | MQ| 01e6 4925 391c |I%9 | 01e8 2c00 24f1 |, $ | 01ea 1115 1905 | | 01ec 5531 50f8 |U1P | 01ee 0008 0000 | | 01f0 0c50 0019 | P | 01f2 4915 413d |I A=| 01f4 4950 0800 |IP | 01f6 0000 0c00 | | 01f8 0400 0000 | | 01fa 1802 a62b | +| 01fc 1c00 f001 | | 01fe a000 0000 | |