|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_bdfc99
└─⟦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 0188 | | .CONST 0x0188 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002d | - | .CONST 0x002d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 4800 |H | Short_Literal 0x0 0011 0093 004b | K| push_full_address INIT_0048 0013 00f5 | | Load_Encached Unused21 0014 037d | } | Declare_Type Task,Defined 0015 036f | o | Declare_Variable Task 0016 e002 | | Load 0x0,0x2 0017 e003 | | Load 0x0,0x3 0018 e004 | | Load 0x0,0x4 0019 e20f | | Load 0x1,0xf 001a a005 | | Store_Unchecked 0x0,0x5 001b a006 | | Store_Unchecked 0x0,0x6 001c a007 | | Store_Unchecked 0x0,0x7 001d a008 | | Store_Unchecked 0x0,0x8 001e e009 | | Load 0x0,0x9 001f a00a | | Store_Unchecked 0x0,0xa 0020 e20e | | Load 0x1,0xe 0021 e00b | | Load 0x0,0xb 0022 e00c | | Load 0x0,0xc 0023 e00d | | Load 0x0,0xd 0024 a00e | | Store_Unchecked 0x0,0xe 0025 480f |H | Short_Literal 0xf 0026 e212 | | Load 0x1,0x12 0027 020e | | Execute Module,Augment_Imports 0028 0007 | | Action Break_Optional 0029 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002a 00c7 | | Action Elaborate_Subprogram 002b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002c 00c7 | | Action Elaborate_Subprogram 002d BODY_0008: 002d 00be | | Action Activate_Tasks 002e 00bc | | Action Signal_Activated 002f 00bb | | Action Signal_Completion 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 e5fc | | Load 0x2,-0x4 0034 e5fd | | Load 0x2,-0x3 0035 e5fe | | Load 0x2,-0x2 0036 e5ff | | Load 0x2,-0x1 0037 4804 |H | Short_Literal 0x4 0038 e212 | | Load 0x1,0x12 0039 170d | | Execute Task,Entry_Call,Field_Number 0xd 003a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 003b 0000 0000 | | .BLANK 0000[0x5] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 00da | | Load_Top At_Offset_2 0044 4801 |H | Short_Literal 0x1 0045 e212 | | Load 0x1,0x12 0046 170e | | Execute Task,Entry_Call,Field_Number 0xe 0047 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0071 | q | .CONST 0x0071 ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0015 | | .CONST 0x0015 ; Number of locals 004b INIT_0048: 004b 4804 |H | Short_Literal 0x4 004c 02cb | | Declare_Variable Entry 004d 4801 |H | Short_Literal 0x1 004e 02cb | | Declare_Variable Entry 004f 00bf | | Action Accept_Activation 0050 00e1 | | Load_Encached Boolean_Cache 0051 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0052 4801 |H | Short_Literal 0x1 0053 e001 | | Load 0x0,0x1 0054 1c08 | | Execute_Immediate Run_Utility,0x8 0055 00d8 | | Load_Top At_Offset_0 0056 1c00 | | Execute_Immediate Run_Utility,0x0 0057 e002 | | Load 0x0,0x2 0058 0322 | " | Declare_Variable Record 0059 00d8 | | Load_Top At_Offset_0 005a 1c00 | | Execute_Immediate Run_Utility,0x0 005b e002 | | Load 0x0,0x2 005c 0322 | " | Declare_Variable Record 005d 00d8 | | Load_Top At_Offset_0 005e 1c00 | | Execute_Immediate Run_Utility,0x0 005f e002 | | Load 0x0,0x2 0060 0322 | " | Declare_Variable Record 0061 00d8 | | Load_Top At_Offset_0 0062 1c00 | | Execute_Immediate Run_Utility,0x0 0063 e003 | | Load 0x0,0x3 0064 02ff | | Declare_Variable Variant_Record 0065 00d8 | | Load_Top At_Offset_0 0066 1c00 | | Execute_Immediate Run_Utility,0x0 0067 480e 481c |H H | Declare_Variable Select 0x000, 0x002, 0069 480d 481d |H H | [0x000]: 0x000 = 0x0000, 006b 4800 4800 |H H | [0x00d]: 0x01d = 0x00e8, 006d 4800 4802 |H H | [0x00e]: 0x01c = 0x00e0 006f 02cf | | 0070 00bc | | Action Signal_Activated 0071 BODY_0048: 0071 e210 | | Load 0x1,0x10 0072 4801 |H | Short_Literal 0x1 0073 e004 | | Load 0x0,0x4 0074 8005 | | Call 0x0,0x5 0075 00d1 | | Pop_Control Pop_Count_1 0076 e210 | | Load 0x1,0x10 0077 8006 | | Call 0x0,0x6 0078 e210 | | Load 0x1,0x10 0079 0092 00f8 | | Action Push_String_Extended,0xf8 ; " --------------------------------------------------------------" 007b 8007 | | Call 0x0,0x7 007c e210 | | Load 0x1,0x10 007d 0092 00f9 | | Action Push_String_Extended,0xf9 ; " -- THE ROBOT WAITS FOR A JOB --" 007f 8007 | | Call 0x0,0x7 0080 e210 | | Load 0x1,0x10 0081 0092 00f8 | | Action Push_String_Extended,0xf8 ; " --------------------------------------------------------------" 0083 8007 | | Call 0x0,0x7 0084 00cf | | Action Mark_Auxiliary 0085 784e |xN | Jump 0xd4 0086 00d9 | | Load_Top At_Offset_1 0087 013f | ? | Execute Select,Rendezvous 0088 4602 |F | Jump_Case 0x3 0089 7801 |x | Jump 0x8b ; case 0x0 008a 7816 |x | Jump 0xa1 ; case 0x1 008b e211 | | Load 0x1,0x11 ; case 0x2 008c 4801 |H | Short_Literal 0x1 008d 8008 | | Call 0x0,0x8 008e e210 | | Load 0x1,0x10 008f 8006 | | Call 0x0,0x6 0090 e210 | | Load 0x1,0x10 0091 0092 00f8 | | Action Push_String_Extended,0xf8 ; " --------------------------------------------------------------" 0093 8007 | | Call 0x0,0x7 0094 e210 | | Load 0x1,0x10 0095 0092 00fa | | Action Push_String_Extended,0xfa ; " -- THE ROBOT HAS BEEN REMOVED --" 0097 8007 | | Call 0x0,0x7 0098 e210 | | Load 0x1,0x10 0099 0092 00f8 | | Action Push_String_Extended,0xf8 ; " --------------------------------------------------------------" 009b 8007 | | Call 0x0,0x7 009c e210 | | Load 0x1,0x10 009d 8006 | | Call 0x0,0x6 009e 4801 |H | Short_Literal 0x1 009f a20f | | Store_Unchecked 0x1,0xf 00a0 7832 |x2 | Jump 0xd3 00a1 e210 | | Load 0x1,0x10 00a2 8006 | | Call 0x0,0x6 00a3 e210 | | Load 0x1,0x10 00a4 0092 00f8 | | Action Push_String_Extended,0xf8 ; " --------------------------------------------------------------" 00a6 8007 | | Call 0x0,0x7 00a7 e210 | | Load 0x1,0x10 00a8 0092 00fb | | Action Push_String_Extended,0xfb ; " -- THE ROBOT IS WORKING --" 00aa 8007 | | Call 0x0,0x7 00ab e210 | | Load 0x1,0x10 00ac 0092 00f8 | | Action Push_String_Extended,0xf8 ; " --------------------------------------------------------------" 00ae 8007 | | Call 0x0,0x7 00af e009 | | Load 0x0,0x9 00b0 4804 |H | Short_Literal 0x4 00b1 e211 | | Load 0x1,0x11 00b2 4801 |H | Short_Literal 0x1 00b3 800a | | Call 0x0,0xa 00b4 e00b | | Load 0x0,0xb 00b5 00ba | | Action Initiate_Delay 00b6 e00c | | Load 0x0,0xc 00b7 4803 |H | Short_Literal 0x3 00b8 e213 | | Load 0x1,0x13 00b9 4802 |H | Short_Literal 0x2 00ba 800a | | Call 0x0,0xa 00bb e00d | | Load 0x0,0xd 00bc 4804 |H | Short_Literal 0x4 00bd e211 | | Load 0x1,0x11 00be 4801 |H | Short_Literal 0x1 00bf 800a | | Call 0x0,0xa 00c0 e00e | | Load 0x0,0xe 00c1 4805 |H | Short_Literal 0x5 00c2 e211 | | Load 0x1,0x11 00c3 4801 |H | Short_Literal 0x1 00c4 800a | | Call 0x0,0xa 00c5 e210 | | Load 0x1,0x10 00c6 8006 | | Call 0x0,0x6 00c7 e210 | | Load 0x1,0x10 00c8 0092 00f8 | | Action Push_String_Extended,0xf8 ; " --------------------------------------------------------------" 00ca 8007 | | Call 0x0,0x7 00cb e210 | | Load 0x1,0x10 00cc 0092 00f9 | | Action Push_String_Extended,0xf9 ; " -- THE ROBOT WAITS FOR A JOB --" 00ce 8007 | | Call 0x0,0x7 00cf e210 | | Load 0x1,0x10 00d0 0092 00f8 | | Action Push_String_Extended,0xf8 ; " --------------------------------------------------------------" 00d2 8007 | | Call 0x0,0x7 00d3 00c9 | | Action Pop_Auxiliary_Loop 00d4 e20f | | Load 0x1,0xf 00d5 6fb0 |o | Jump_Zero 0x86 00d6 00ce | | Action Pop_Auxiliary 00d7 e210 | | Load 0x1,0x10 00d8 0092 00fc | | Action Push_String_Extended,0xfc ; "fin de la tache" 00da 8007 | | Call 0x0,0x7 00db e210 | | Load 0x1,0x10 00dc 800f | | Call 0x0,0xf 00dd 00d1 | | Pop_Control Pop_Count_1 00de 00bb | | Action Signal_Completion 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; See instruction 0x02cf at 0x67, index=0xe 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 00db | | Load_Top At_Offset_3 00e4 e211 | | Load 0x1,0x11 00e5 017d | } | Execute Record,Structure_Write 00e6 4100 |A | End_Rendezvous 0x0 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; See instruction 0x02cf at 0x67, index=0xd 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 00db | | Load_Top At_Offset_3 00ec e211 | | Load 0x1,0x11 00ed 017d | } | Execute Record,Structure_Write 00ee e212 | | Load 0x1,0x12 00ef 00d8 | | Load_Top At_Offset_0 00f0 017d | } | Execute Record,Structure_Write 00f1 e5fc | | Load 0x2,-0x4 00f2 e213 | | Load 0x1,0x13 00f3 017d | } | Execute Record,Structure_Write 00f4 e5fb | | Load 0x2,-0x5 00f5 e214 | | Load 0x1,0x14 00f6 016d | m | Execute Variant_Record,Structure_Write 00f7 4100 |A | End_Rendezvous 0x0 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; STRING TABLE 00f8 ; -------------------------------------------------------------------------------------- 00f8 000c | | .STRTAB 0x000c->0x00fe ; " --------------------------------------------------------------" 00f9 0049 | I | .STRTAB 0x0049->0x011d ; " -- THE ROBOT WAITS FOR A JOB --" 00fa 0086 | | .STRTAB 0x0086->0x013d ; " -- THE ROBOT HAS BEEN REMOVED --" 00fb 00c3 | | .STRTAB 0x00c3->0x015c ; " -- THE ROBOT IS WORKING --" 00fc 0100 | | .STRTAB 0x0100->0x017c ; "fin de la tache" 00fd 010d | | .STREND 0x010d->0x0183 00fe 202d 2d2d | ---| .STRTAB_STRINGS 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; Debug Table 0188 ; -------------------------------------------------------------------------------------- 0188 0004 0009 | | .DEBUG4 0x0004,0x0009,0x0eb3,0x0000,0x0001,0x0008 018e 000b 01ae | | .DBG4T 0x000b,0x01ae,0xc000,0x0000 0192 0010 01b2 | | .DBG4T 0x0010,0x01b2,0xc000,0x0000 0196 0033 01b8 | 3 | .DBG4T 0x0033,0x01b8,0x1001,0x0000 019a 0043 01bb | C | .DBG4T 0x0043,0x01bb,0x1001,0x0000 019e 004b 01be | K | .DBG4T 0x004b,0x01be,0x0000,0x0000 01a2 0050 01c2 | P | .DBG4T 0x0050,0x01c2,0x0000,0x4000 01a6 00e3 0204 | | .DBG4T 0x00e3,0x0204,0x0003,0x0000 01aa 00eb 0207 | | .DBG4T 0x00eb,0x0207,0x0003,0x0000 01ae ; -------------------------------------------------------------------------------------- 01ae ; Debug chain 01ae ; -------------------------------------------------------------------------------------- 01ae 0002 0000 | | .DBGLEN 0x0002,0x0000 01b0 000b 000d | | .DBGLNO 0x000b,0x000d 01b2 ; -------------------------------------------------------------------------------------- 01b2 ; Debug chain 01b2 ; -------------------------------------------------------------------------------------- 01b2 0004 0000 | | .DBGLEN 0x0004,0x0000 01b4 0010 0016 | | .DBGLNO 0x0010,0x0016,0x0029,0x002b 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; Debug chain 01b8 ; -------------------------------------------------------------------------------------- 01b8 0000 0001 | | .DBGLEN 0x0000,0x0001 01ba 0033 | 3 | .DBGLNO 0x0033 01bb ; -------------------------------------------------------------------------------------- 01bb ; Debug chain 01bb ; -------------------------------------------------------------------------------------- 01bb 0000 0001 | | .DBGLEN 0x0000,0x0001 01bd 0043 | C | .DBGLNO 0x0043 01be ; -------------------------------------------------------------------------------------- 01be ; Debug chain 01be ; -------------------------------------------------------------------------------------- 01be 0002 0000 | | .DBGLEN 0x0002,0x0000 01c0 004b 004d | K M| .DBGLNO 0x004b,0x004d 01c2 ; -------------------------------------------------------------------------------------- 01c2 ; Debug chain 01c2 ; -------------------------------------------------------------------------------------- 01c2 0006 001d | | .DBGLEN 0x0006,0x001d 01c4 0050 0052 | P R| .DBGLNO 0x0050,0x0052,0x0057,0x005b,0x005f,0x0063,0x0071,0x0076,0x0078,0x007c,0x0080,0x0086,0x008b,0x008e,0x0090,0x0094,0x0098,0x009c,0x009e,0x00a1,0x00a3,0x00a7,0x00ab,0x00af,0x00b4,0x00b6,0x00bb,0x00c0,0x00c5,0x00c7,0x00cb,0x00cf,0x00d4,0x00d7,0x00db 01e7 0001 0002 | | .XXX[0x1d] 01e9 0003 0004 | | 01eb 0005 0007 | | 01ed 0017 0018 | | 01ef 0019 001a | | 01f1 001b 001c | | 01f3 001d 0009 | | 01f5 000a 000b | | 01f7 000c 000d | | 01f9 000e 000f | | 01fb 0010 0011 | | 01fd 0012 0013 | | 01ff 0014 0015 | | 0201 0006 001e | | 0203 001f | | 0204 ; -------------------------------------------------------------------------------------- 0204 ; Debug chain 0204 ; -------------------------------------------------------------------------------------- 0204 0000 0001 | | .DBGLEN 0x0000,0x0001 0206 00e3 | | .DBGLNO 0x00e3 0207 ; -------------------------------------------------------------------------------------- 0207 ; Debug chain 0207 ; -------------------------------------------------------------------------------------- 0207 0000 0004 | | .DBGLEN 0x0000,0x0004 0209 00eb 00ee | | .DBGLNO 0x00eb,0x00ee,0x00f1,0x00f4 020d 0000 0000 | | .BLANK 0000[0x1f3]