|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0314bd
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0128 | ( | .CONST 0x0128 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001e | | .CONST 0x001e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4803 |H | Short_Literal 0x3 000d 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 0011 4808 |H | Short_Literal 0x8 0012 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 0014 03fe | | Declare_Type Discrete,Defined,Visible 0015 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0017 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0019 00bf | | Action Accept_Activation 001a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001b 00c7 | | Action Elaborate_Subprogram 001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001d 00c7 | | Action Elaborate_Subprogram 001e BODY_0008: 001e 00bc | | Action Signal_Activated 001f 00bb | | Action Signal_Completion 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 4607 |F | Jump_Case 0x8 0024 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0025 7807 |x | Jump 0x2d ; case 0x1 0026 780a |x | Jump 0x31 ; case 0x2 0027 780e |x | Jump 0x36 ; case 0x3 0028 7811 |x | Jump 0x3a ; case 0x4 0029 7812 |x | Jump 0x3c ; case 0x5 002a 7813 |x | Jump 0x3e ; case 0x6 002b 7816 |x | Jump 0x42 ; case 0x7 002c 4302 |C | .XXX[0x1] 002d 00da | | Load_Top At_Offset_2 002e 0091 00f6 | | Action Push_String_Extended_Indexed,0xf6 ; "ST_START" 0030 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0031 00db | | Load_Top At_Offset_3 0032 00db | | Load_Top At_Offset_3 0033 00e0 | | Load_Encached Standard_Cache 0034 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0035 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0036 00da | | Load_Top At_Offset_2 0037 00e0 | | Load_Encached Standard_Cache 0038 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0039 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 003a 00db | | Load_Top At_Offset_3 003b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003c 00db | | Load_Top At_Offset_3 003d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003e e20d | | Load 0x1,0xd 003f 00dc | | Load_Top At_Offset_4 0040 0267 | g | Execute Discrete,Predecessor 0041 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0042 e20d | | Load 0x1,0xd 0043 00dc | | Load_Top At_Offset_4 0044 0268 | h | Execute Discrete,Successor 0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0046 0000 0000 | | .XXX[0x2] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 4607 |F | Jump_Case 0x8 004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 004d 7807 |x | Jump 0x55 ; case 0x1 004e 780a |x | Jump 0x59 ; case 0x2 004f 780e |x | Jump 0x5e ; case 0x3 0050 7811 |x | Jump 0x62 ; case 0x4 0051 7812 |x | Jump 0x64 ; case 0x5 0052 7813 |x | Jump 0x66 ; case 0x6 0053 7816 |x | Jump 0x6a ; case 0x7 0054 4302 |C | .XXX[0x1] 0055 00da | | Load_Top At_Offset_2 0056 0091 00fa | | Action Push_String_Extended_Indexed,0xfa ; "LE" 0058 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0059 00db | | Load_Top At_Offset_3 005a 00db | | Load_Top At_Offset_3 005b 00e0 | | Load_Encached Standard_Cache 005c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005e 00da | | Load_Top At_Offset_2 005f 00e0 | | Load_Encached Standard_Cache 0060 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0061 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0062 00db | | Load_Top At_Offset_3 0063 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0064 00db | | Load_Top At_Offset_3 0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0066 e20e | | Load 0x1,0xe 0067 00dc | | Load_Top At_Offset_4 0068 0267 | g | Execute Discrete,Predecessor 0069 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006a e20e | | Load 0x1,0xe 006b 00dc | | Load_Top At_Offset_4 006c 0268 | h | Execute Discrete,Successor 006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006e 0000 0000 | | .XXX[0x2] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 007b | { | .CONST 0x007b ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0006 | | .CONST 0x0006 ; Number of locals 0073 INIT_0070: 0073 00e3 | | Load_Encached Natural_Cache 0074 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0075 e20d | | Load 0x1,0xd 0076 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0077 00e8 | | Load_Encached Character_Cache 0078 00e1 | | Load_Encached Boolean_Cache 0079 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 007a 03e9 | | Declare_Variable Discrete,Duplicate 007b BODY_0070: 007b e5fc | | Load 0x2,-0x4 007c 00ea | | Load_Encached Null_String_Cache 007d 8002 | | Call 0x0,0x2 007e 00d1 | | Pop_Control Pop_Count_1 007f 00cf | | Action Mark_Auxiliary 0080 7848 |xH | Jump 0xc9 0081 e5fd | | Load 0x2,-0x3 0082 e5ff | | Load 0x2,-0x1 0083 01d7 | | Execute Vector,Field_Read 0084 a404 | | Store_Unchecked 0x2,0x4 0085 00db | | Load_Top At_Offset_3 0086 8003 | | Call 0x0,0x3 0087 c404 | | Store 0x2,0x4 0088 e403 | | Load 0x2,0x3 0089 4603 |F | Jump_Case 0x4 008a 7806 |x | Jump 0x91 ; case 0x0 008b 7817 |x | Jump 0xa3 ; case 0x1 008c 7832 |x2 | Jump 0xbf ; case 0x2 008d 7800 |x | Jump 0x8e ; case 0x3 008e 4801 |H | Short_Literal 0x1 008f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0090 7837 |x7 | Jump 0xc8 0091 00db | | Load_Top At_Offset_3 0092 e004 | | Load 0x0,0x4 0093 0260 | ` | Execute Discrete,In_Type 0094 6803 |h | Jump_Zero 0x98 0095 4801 |H | Short_Literal 0x1 0096 a403 | | Store_Unchecked 0x2,0x3 0097 7830 |x0 | Jump 0xc8 0098 00db | | Load_Top At_Offset_3 0099 0f20 | | Execute_Immediate Equal,0x20 009a 6803 |h | Jump_Zero 0x9e 009b 4802 |H | Short_Literal 0x2 009c a403 | | Store_Unchecked 0x2,0x3 009d 782a |x* | Jump 0xc8 009e 4803 |H | Short_Literal 0x3 009f a403 | | Store_Unchecked 0x2,0x3 00a0 4801 |H | Short_Literal 0x1 00a1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00a2 7825 |x% | Jump 0xc8 00a3 00db | | Load_Top At_Offset_3 00a4 e004 | | Load 0x0,0x4 00a5 0260 | ` | Execute Discrete,In_Type 00a6 e404 | | Load 0x2,0x4 00a7 0f5f | _ | Execute_Immediate Equal,0x5f 00a8 0278 | x | Execute Discrete,Or 00a9 680a |h | Jump_Zero 0xb4 00aa e5fc | | Load 0x2,-0x4 00ab e404 | | Load 0x2,0x4 00ac 8005 | | Call 0x0,0x5 00ad 00d1 | | Pop_Control Pop_Count_1 00ae e5fd | | Load 0x2,-0x3 00af 0a01 | | Execute_Immediate Plus,0x1 00b0 c5fd | | Store 0x2,-0x3 00b1 4801 |H | Short_Literal 0x1 00b2 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00b3 7814 |x | Jump 0xc8 00b4 00db | | Load_Top At_Offset_3 00b5 0f20 | | Execute_Immediate Equal,0x20 00b6 6803 |h | Jump_Zero 0xba 00b7 4801 |H | Short_Literal 0x1 00b8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00b9 780e |x | Jump 0xc8 00ba 4801 |H | Short_Literal 0x1 00bb 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00bc 4800 |H | Short_Literal 0x0 00bd 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00be 7809 |x | Jump 0xc8 00bf 00db | | Load_Top At_Offset_3 00c0 0f20 | | Execute_Immediate Equal,0x20 00c1 6804 |h | Jump_Zero 0xc6 00c2 e5fd | | Load 0x2,-0x3 00c3 0a01 | | Execute_Immediate Plus,0x1 00c4 c5fd | | Store 0x2,-0x3 00c5 7802 |x | Jump 0xc8 00c6 4800 |H | Short_Literal 0x0 00c7 a403 | | Store_Unchecked 0x2,0x3 00c8 00c9 | | Action Pop_Auxiliary_Loop 00c9 00d9 | | Load_Top At_Offset_1 00ca 0f00 | | Execute_Immediate Equal,0x0 00cb e5fd | | Load 0x2,-0x3 00cc e5fe | | Load 0x2,-0x2 00cd 027a | z | Execute Discrete,Less_Equal 00ce 0279 | y | Execute Discrete,And 00cf 77b1 |w | Jump_Nonzero 0x81 00d0 00ce | | Action Pop_Auxiliary 00d1 00d9 | | Load_Top At_Offset_1 00d2 7005 |p | Jump_Nonzero 0xd8 00d3 e5fc | | Load 0x2,-0x4 00d4 0092 0103 | | Action Push_String_Extended,0x103 ; "Lex Error" 00d6 8002 | | Call 0x0,0x2 00d7 00d1 | | Pop_Control Pop_Count_1 00d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d9 0000 0000 | | .BLANK 0000[0x7] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00cf | | Action Mark_Auxiliary 00e4 4808 |H | Short_Literal 0x8 00e5 4800 |H | Short_Literal 0x0 00e6 0007 | | Action Break_Optional 00e7 e5ff | | Load 0x2,-0x1 00e8 8006 | | Call 0x0,0x6 00e9 00d9 | | Load_Top At_Offset_1 00ea e20e | | Load 0x1,0xe 00eb 011c | | Execute Any,Convert_Unchecked 00ec 1c01 | | Execute_Immediate Run_Utility,0x1 00ed 01df | | Execute Vector,Equal 00ee 6802 |h | Jump_Zero 0xf1 00ef 4801 |H | Short_Literal 0x1 00f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f1 00c8 | | Action Pop_Auxiliary_Range 00f2 3ff4 |? | Loop_Increasing 0xe7 00f3 00ce | | Action Pop_Auxiliary 00f4 4800 |H | Short_Literal 0x0 00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f6 ; -------------------------------------------------------------------------------------- 00f6 ; STRING TABLE 00f6 ; -------------------------------------------------------------------------------------- 00f6 001e | | .STRTAB 0x001e->0x0105 ; "ST_START" 00f7 0024 | $ | .STRTAB 0x0024->0x0109 ; "ST_WORD" 00f8 0029 | ) | .STRTAB 0x0029->0x010c ; "ST_SEP" 00f9 002d | - | .STRTAB 0x002d->0x010f ; "ST_UNK" 00fa 0031 | 1 | .STRTAB 0x0031->0x0112 ; "LE" 00fb 0031 | 1 | .STRTAB 0x0031->0x0113 ; "LA" 00fc 0031 | 1 | .STRTAB 0x0031->0x0114 ; "UN" 00fd 0031 | 1 | .STRTAB 0x0031->0x0115 ; "UNE" 00fe 0032 | 2 | .STRTAB 0x0032->0x0117 ; "DANS" 00ff 0034 | 4 | .STRTAB 0x0034->0x0119 ; "SUR" 0100 0035 | 5 | .STRTAB 0x0035->0x011a ; "AVEC" 0101 0037 | 7 | .STRTAB 0x0037->0x011c ; "A" 0102 0036 | 6 | .STRTAB 0x0036->0x011d ; "AU" 0103 0036 | 6 | .STRTAB 0x0036->0x011e ; "Lex Error" 0104 003d | = | .STREND 0x003d->0x0122 0105 5354 5f53 |ST_S| .STRTAB_STRINGS 0123 0000 0000 | | .BLANK 0000[0x5] 0128 ; -------------------------------------------------------------------------------------- 0128 ; Debug Table 0128 ; -------------------------------------------------------------------------------------- 0128 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdf32,0x0000,0x0001,0x0006 012e 000b 0146 | F| .DBG4T 0x000b,0x0146,0x8000,0x8000 0132 001a 0150 | P| .DBG4T 0x001a,0x0150,0x8000,0x0000 0136 0023 0000 | # | .DBG4T 0x0023,0x0000,0x0005,0x0000 013a 004b 0000 | K | .DBG4T 0x004b,0x0000,0x0005,0x0000 013e 0073 0154 | s T| .DBG4T 0x0073,0x0154,0x0001,0x4000 0142 00e3 018c | | .DBG4T 0x00e3,0x018c,0x0002,0x0000 0146 ; -------------------------------------------------------------------------------------- 0146 ; Debug chain 0146 ; -------------------------------------------------------------------------------------- 0146 0004 0000 | | .DBGLEN 0x0004,0x0000 0148 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0017 014c 0002 0003 | | .XXX[0x4] 014e 0006 0007 | | 0150 ; -------------------------------------------------------------------------------------- 0150 ; Debug chain 0150 ; -------------------------------------------------------------------------------------- 0150 0002 0000 | | .DBGLEN 0x0002,0x0000 0152 001a 001c | | .DBGLNO 0x001a,0x001c 0154 ; -------------------------------------------------------------------------------------- 0154 ; Debug chain 0154 ; -------------------------------------------------------------------------------------- 0154 0004 0019 | | .DBGLEN 0x0004,0x0019 0156 0073 0075 | s u| .DBGLNO 0x0073,0x0075,0x0077,0x0078,0x007b,0x0081,0x0085,0x0088,0x008e,0x0091,0x0095,0x0098,0x009b,0x009e,0x00a0,0x00a3,0x00aa,0x00ae,0x00b1,0x00b4,0x00b7,0x00ba,0x00bc,0x00bf,0x00c2,0x00c6,0x00c9,0x00d1,0x00d3 0173 0001 0003 | | .XXX[0x19] 0175 0004 0005 | | 0177 0017 0006 | | 0179 0007 0008 | | 017b 0009 000a | | 017d 000b 000c | | 017f 000d 000e | | 0181 000f 0010 | | 0183 0011 0012 | | 0185 0013 0014 | | 0187 0015 0016 | | 0189 0002 0018 | | 018b 0019 | | 018c ; -------------------------------------------------------------------------------------- 018c ; Debug chain 018c ; -------------------------------------------------------------------------------------- 018c 0000 0004 | | .DBGLEN 0x0000,0x0004 018e 00e4 00e7 | | .DBGLNO 0x00e4,0x00e7,0x00ef,0x00f4 0192 0000 0000 | | .BLANK 0000[0x6e]