|
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 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 e002 | | Load 0x0,0x2 001c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001d e003 | | Load 0x0,0x3 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 e002 | | Load 0x0,0x2 0027 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0028 e403 | | Load 0x2,0x3 0029 e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 0032 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0033 0092 0140 | @| Action Push_String_Extended,0x140 ; "Group name map" 0035 e005 | | Load 0x0,0x5 0036 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0037 0092 0141 | A| Action Push_String_Extended,0x141 ; "--------------" 0039 e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 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 e003 | | Load 0x0,0x3 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 0142 | B| Action Push_String_Extended,0x142 ; "Free group map" 005e e005 | | Load 0x0,0x5 005f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0060 0092 0141 | A| Action Push_String_Extended,0x141 ; "--------------" 0062 e005 | | Load 0x0,0x5 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 e005 | | Load 0x0,0x5 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 0143 | C| Action Push_String_Extended,0x143 ; " .." 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 0801 | | Execute_Immediate Raise,0x1 0086 00e0 | | Load_Encached Standard_Cache 0087 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0088 01cc | | Execute Vector,Catenate 0089 e005 | | Load 0x0,0x5 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 e005 | | Load 0x0,0x5 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 0143 | C| Action Push_String_Extended,0x143 ; " .." 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 0801 | | Execute_Immediate Raise,0x1 00b2 00e0 | | Load_Encached Standard_Cache 00b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b4 01cc | | Execute Vector,Catenate 00b5 e005 | | Load 0x0,0x5 00b6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00b7 4801 |H | Short_Literal 0x1 00b8 e005 | | Load 0x0,0x5 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 0144 | D| Action Push_String_Extended,0x144 ; "<unknown" 00c7 e007 | | Load 0x0,0x7 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 e007 | | Load 0x0,0x7 00cf 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00d0 0092 0145 | E| Action Push_String_Extended,0x145 ; " " 00d2 01cc | | Execute Vector,Catenate 00d3 e7fe | | Load 0x3,-0x2 00d4 01cc | | Execute Vector,Catenate 00d5 e005 | | Load 0x0,0x5 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 e008 | | Load 0x0,0x8 00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00dd 02c7 | | Declare_Variable Any 00de e009 | | Load 0x0,0x9 00df 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e0 e008 | | Load 0x0,0x8 00e1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e2 a602 | | Store_Unchecked 0x3,0x2 00e3 e004 | | Load 0x0,0x4 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 e003 | | Load 0x0,0x3 00ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00eb e002 | | Load 0x0,0x2 00ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ed BODY_00d8: 00ed e002 | | Load 0x0,0x2 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 e00a | | Load 0x0,0xa 00f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f6 e004 | | Load 0x0,0x4 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 7021 |p! | Jump_Nonzero 0x11e 00fd e002 | | Load 0x0,0x2 00fe 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ff e003 | | Load 0x0,0x3 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 e004 | | Load 0x0,0x4 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 e002 | | Load 0x0,0x2 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 e004 | | Load 0x0,0x4 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 680a |h | Jump_Zero 0x11e 0114 0092 0146 | F| Action Push_String_Extended,0x146 ; "*** Very serious: unable to destroy group: " 0116 e402 | | Load 0x2,0x2 0117 e002 | | Load 0x0,0x2 0118 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0119 011c | | Execute Any,Convert_Unchecked 011a 1c01 | | Execute_Immediate Run_Utility,0x1 011b 01cc | | Execute Vector,Catenate 011c e005 | | Load 0x0,0x5 011d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 011e e602 | | Load 0x3,0x2 011f 4801 |H | Short_Literal 0x1 0120 4800 |H | Short_Literal 0x0 0121 e008 | | Load 0x0,0x8 0122 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0123 c602 | | Store 0x3,0x2 0124 00d8 | | Load_Top At_Offset_0 0125 700c |p | Jump_Nonzero 0x132 0126 4801 |H | Short_Literal 0x1 0127 e005 | | Load 0x0,0x5 0128 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0129 0092 0147 | G| Action Push_String_Extended,0x147 ; "Next group id =" 012b e604 | | Load 0x3,0x4 012c 00e0 | | Load_Encached Standard_Cache 012d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 012e 01cc | | Execute Vector,Catenate 012f e005 | | Load 0x0,0x5 0130 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0131 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0132 4801 |H | Short_Literal 0x1 0133 e005 | | Load 0x0,0x5 0134 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0135 0092 0148 | H| Action Push_String_Extended,0x148 ; "Unable to get next group id: " 0137 e605 | | Load 0x3,0x5 0138 e002 | | Load 0x0,0x2 0139 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013a 011c | | Execute Any,Convert_Unchecked 013b 1c01 | | Execute_Immediate Run_Utility,0x1 013c 01cc | | Execute Vector,Catenate 013d e005 | | Load 0x0,0x5 013e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 013f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0140 ; -------------------------------------------------------------------------------------- 0140 ; STRING TABLE 0140 ; -------------------------------------------------------------------------------------- 0140 0014 | | .STRTAB 0x0014->0x014a ; "Group name map" 0141 0020 | | .STRTAB 0x0020->0x0151 ; "--------------" 0142 002c | , | .STRTAB 0x002c->0x0158 ; "Free group map" 0143 0038 | 8 | .STRTAB 0x0038->0x015f ; " .." 0144 0039 | 9 | .STRTAB 0x0039->0x0160 ; "<unknown" 0145 003f | ? | .STRTAB 0x003f->0x0164 ; " " 0146 003f | ? | .STRTAB 0x003f->0x0165 ; "*** Very serious: unable to destroy group: " 0147 0068 | h | .STRTAB 0x0068->0x017b ; "Next group id =" 0148 0075 | u | .STRTAB 0x0075->0x0182 ; "Unable to get next group id: " 0149 0090 | | .STREND 0x0090->0x0191 014a 4772 6f75 |Grou| .STRTAB_STRINGS 0191 0000 0000 | | .BLANK 0000[0x7] 0198 ; -------------------------------------------------------------------------------------- 0198 ; Debug Table 0198 ; -------------------------------------------------------------------------------------- 0198 0004 0010 | | .DEBUG4 0x0004,0x0010,0xd92c,0x0000,0x0001,0x0000 019e 0000 0000 | | .XXX[0x3] 01a0 0000 | | 01a1 01cc 0000 | | .XXX[0x26] 01a3 0031 cdd5 | 1 | 01a5 8d8d 95cd | | 01a7 cd99 d5b1 | | 01a9 b1e4 0000 | | 01ab 0164 0000 | d | 01ad 0098 850d | | 01af bdb5 b585 | | 01b1 b991 ccb9 | | 01b3 41c9 bd9d |A | 01b5 c985 b4b9 | | 01b7 4dd1 85c9 |M | 01b9 d195 917d | }| 01bb 4dd5 8d8d |M | 01bd 95cd cd99 | | 01bf d5b1 b1e4 | | 01c1 0000 0000 | | 01c3 19c5 e7f8 | | 01c5 38da bc00 |8 | 01c7 0000 0000 | | .BLANK 0000[0x5] 01cc 3a00 0000 |: | .XXX[0x34] 01ce 2ae6 eed2 |* | 01d0 e8c6 d0ca | | 01d2 e65c c8ca | \ | 01d4 ccc2 ead8 | | 01d6 e8be ccd2 | | 01d8 d8ca 0000 | | 01da 0026 0000 | & | 01dc 003e 4286 | >B | 01de deda dac2 | | 01e0 dcc8 e65c | \| 01e2 a6ee d2e8 | | 01e4 c6d0 cae6 | | 01e6 5c88 cacc |\ | 01e8 c2ea d8e8 | | 01ea be8c d2d8 | | 01ec ca00 0000 | | 01ee 000c e2f9 | | 01f0 4e1c 6e7c |N n|| 01f2 0ce2 e0f6 | | 01f4 0ce3 07b2 | | 01f6 0000 000e | | 01f8 0000 0013 | | 01fa 7379 7374 |syst| 01fc 656d 2e73 |em.s| 01fe 746f 7261 |tora|