|
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 0190 | | .CONST 0x0190 ; 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 002e | . | .CONST 0x002e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 4800 |H | Short_Literal 0x0 0011 0093 0053 | S| push_full_address INIT_0050 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 a00c | | Store_Unchecked 0x0,0xc 0023 e00d | | Load 0x0,0xd 0024 e00e | | Load 0x0,0xe 0025 a00f | | Store_Unchecked 0x0,0xf 0026 4810 |H | Short_Literal 0x10 0027 e212 | | Load 0x1,0x12 0028 020e | | Execute Module,Augment_Imports 0029 0007 | | Action Break_Optional 002a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002b 00c7 | | Action Elaborate_Subprogram 002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002d 00c7 | | Action Elaborate_Subprogram 002e BODY_0008: 002e 00be | | Action Activate_Tasks 002f 00bc | | Action Signal_Activated 0030 00bb | | Action Signal_Completion 0031 0000 0000 | | .BLANK 0000[0x7] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b e5fc | | Load 0x2,-0x4 003c e5fd | | Load 0x2,-0x3 003d e5fe | | Load 0x2,-0x2 003e e5ff | | Load 0x2,-0x1 003f 4804 |H | Short_Literal 0x4 0040 e212 | | Load 0x1,0x12 0041 170d | | Execute Task,Entry_Call,Field_Number 0xd 0042 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0043 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 004c 4801 |H | Short_Literal 0x1 004d e212 | | Load 0x1,0x12 004e 170e | | Execute Task,Entry_Call,Field_Number 0xe 004f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0079 | y | .CONST 0x0079 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0015 | | .CONST 0x0015 ; Number of locals 0053 INIT_0050: 0053 4804 |H | Short_Literal 0x4 0054 02cb | | Declare_Variable Entry 0055 4801 |H | Short_Literal 0x1 0056 02cb | | Declare_Variable Entry 0057 00bf | | Action Accept_Activation 0058 00e1 | | Load_Encached Boolean_Cache 0059 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005a 4801 |H | Short_Literal 0x1 005b e001 | | Load 0x0,0x1 005c 1c08 | | Execute_Immediate Run_Utility,0x8 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 e002 | | Load 0x0,0x2 0064 0322 | " | Declare_Variable Record 0065 00d8 | | Load_Top At_Offset_0 0066 1c00 | | Execute_Immediate Run_Utility,0x0 0067 e002 | | Load 0x0,0x2 0068 0322 | " | Declare_Variable Record 0069 00d8 | | Load_Top At_Offset_0 006a 1c00 | | Execute_Immediate Run_Utility,0x0 006b e003 | | Load 0x0,0x3 006c 02ff | | Declare_Variable Variant_Record 006d 00d8 | | Load_Top At_Offset_0 006e 1c00 | | Execute_Immediate Run_Utility,0x0 006f 480e 481d |H H | Declare_Variable Select 0x000, 0x002, 0071 480d 481e |H H | [0x000]: 0x000 = 0x0000, 0073 4800 4800 |H H | [0x00d]: 0x01e = 0x00f0, 0075 4800 4802 |H H | [0x00e]: 0x01d = 0x00e8 0077 02cf | | 0078 00bc | | Action Signal_Activated 0079 BODY_0050: 0079 e210 | | Load 0x1,0x10 007a 4801 |H | Short_Literal 0x1 007b e004 | | Load 0x0,0x4 007c 8005 | | Call 0x0,0x5 007d 00d1 | | Pop_Control Pop_Count_1 007e e210 | | Load 0x1,0x10 007f 8006 | | Call 0x0,0x6 0080 e210 | | Load 0x1,0x10 0081 0092 0100 | | Action Push_String_Extended,0x100 ; " --------------------------------------------------------------" 0083 8007 | | Call 0x0,0x7 0084 e210 | | Load 0x1,0x10 0085 0092 0101 | | Action Push_String_Extended,0x101 ; " -- THE ROBOT WAITS FOR A JOB --" 0087 8007 | | Call 0x0,0x7 0088 e210 | | Load 0x1,0x10 0089 0092 0100 | | Action Push_String_Extended,0x100 ; " --------------------------------------------------------------" 008b 8007 | | Call 0x0,0x7 008c 00cf | | Action Mark_Auxiliary 008d 7849 |xI | Jump 0xd7 008e 00d9 | | Load_Top At_Offset_1 008f 013f | ? | Execute Select,Rendezvous 0090 4602 |F | Jump_Case 0x3 0091 7801 |x | Jump 0x93 ; case 0x0 0092 7815 |x | Jump 0xa8 ; case 0x1 0093 e211 | | Load 0x1,0x11 ; case 0x2 0094 8008 | | Call 0x0,0x8 0095 e210 | | Load 0x1,0x10 0096 8006 | | Call 0x0,0x6 0097 e210 | | Load 0x1,0x10 0098 0092 0100 | | Action Push_String_Extended,0x100 ; " --------------------------------------------------------------" 009a 8007 | | Call 0x0,0x7 009b e210 | | Load 0x1,0x10 009c 0092 0102 | | Action Push_String_Extended,0x102 ; " -- THE ROBOT HAS BEEN REMOVED --" 009e 8007 | | Call 0x0,0x7 009f e210 | | Load 0x1,0x10 00a0 0092 0100 | | Action Push_String_Extended,0x100 ; " --------------------------------------------------------------" 00a2 8007 | | Call 0x0,0x7 00a3 e210 | | Load 0x1,0x10 00a4 8006 | | Call 0x0,0x6 00a5 4801 |H | Short_Literal 0x1 00a6 a20f | | Store_Unchecked 0x1,0xf 00a7 782e |x. | Jump 0xd6 00a8 e210 | | Load 0x1,0x10 00a9 8006 | | Call 0x0,0x6 00aa e210 | | Load 0x1,0x10 00ab 0092 0100 | | Action Push_String_Extended,0x100 ; " --------------------------------------------------------------" 00ad 8007 | | Call 0x0,0x7 00ae e210 | | Load 0x1,0x10 00af 0092 0103 | | Action Push_String_Extended,0x103 ; " -- THE ROBOT IS WORKING --" 00b1 8007 | | Call 0x0,0x7 00b2 e210 | | Load 0x1,0x10 00b3 0092 0100 | | Action Push_String_Extended,0x100 ; " --------------------------------------------------------------" 00b5 8007 | | Call 0x0,0x7 00b6 e009 | | Load 0x0,0x9 00b7 4800 |H | Short_Literal 0x0 00b8 e211 | | Load 0x1,0x11 00b9 800a | | Call 0x0,0xa 00ba e00b | | Load 0x0,0xb 00bb 00ba | | Action Initiate_Delay 00bc e00c | | Load 0x0,0xc 00bd 4801 |H | Short_Literal 0x1 00be e213 | | Load 0x1,0x13 00bf 800d | | Call 0x0,0xd 00c0 e00e | | Load 0x0,0xe 00c1 4800 |H | Short_Literal 0x0 00c2 e211 | | Load 0x1,0x11 00c3 800a | | Call 0x0,0xa 00c4 e00f | | Load 0x0,0xf 00c5 4801 |H | Short_Literal 0x1 00c6 e211 | | Load 0x1,0x11 00c7 800a | | Call 0x0,0xa 00c8 e210 | | Load 0x1,0x10 00c9 8006 | | Call 0x0,0x6 00ca e210 | | Load 0x1,0x10 00cb 0092 0100 | | Action Push_String_Extended,0x100 ; " --------------------------------------------------------------" 00cd 8007 | | Call 0x0,0x7 00ce e210 | | Load 0x1,0x10 00cf 0092 0101 | | Action Push_String_Extended,0x101 ; " -- THE ROBOT WAITS FOR A JOB --" 00d1 8007 | | Call 0x0,0x7 00d2 e210 | | Load 0x1,0x10 00d3 0092 0100 | | Action Push_String_Extended,0x100 ; " --------------------------------------------------------------" 00d5 8007 | | Call 0x0,0x7 00d6 00c9 | | Action Pop_Auxiliary_Loop 00d7 e20f | | Load 0x1,0xf 00d8 6fb5 |o | Jump_Zero 0x8e 00d9 00ce | | Action Pop_Auxiliary 00da e210 | | Load 0x1,0x10 00db 0092 0104 | | Action Push_String_Extended,0x104 ; "fin de la tache" 00dd 8007 | | Call 0x0,0x7 00de e210 | | Load 0x1,0x10 00df 8010 | | Call 0x0,0x10 00e0 00d1 | | Pop_Control Pop_Count_1 00e1 00bb | | Action Signal_Completion 00e2 0000 0000 | | .BLANK 0000[0x6] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; See instruction 0x02cf at 0x6f, index=0xe 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 4100 |A | End_Rendezvous 0x0 00ef 0000 | | .XXX[0x1] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; See instruction 0x02cf at 0x6f, index=0xd 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00db | | Load_Top At_Offset_3 00f4 e211 | | Load 0x1,0x11 00f5 017d | } | Execute Record,Structure_Write 00f6 e212 | | Load 0x1,0x12 00f7 00d8 | | Load_Top At_Offset_0 00f8 017d | } | Execute Record,Structure_Write 00f9 e5fc | | Load 0x2,-0x4 00fa e213 | | Load 0x1,0x13 00fb 017d | } | Execute Record,Structure_Write 00fc e5fb | | Load 0x2,-0x5 00fd e214 | | Load 0x1,0x14 00fe 016d | m | Execute Variant_Record,Structure_Write 00ff 4100 |A | End_Rendezvous 0x0 0100 ; -------------------------------------------------------------------------------------- 0100 ; STRING TABLE 0100 ; -------------------------------------------------------------------------------------- 0100 000c | | .STRTAB 0x000c->0x0106 ; " --------------------------------------------------------------" 0101 0049 | I | .STRTAB 0x0049->0x0125 ; " -- THE ROBOT WAITS FOR A JOB --" 0102 0086 | | .STRTAB 0x0086->0x0145 ; " -- THE ROBOT HAS BEEN REMOVED --" 0103 00c3 | | .STRTAB 0x00c3->0x0164 ; " -- THE ROBOT IS WORKING --" 0104 0100 | | .STRTAB 0x0100->0x0184 ; "fin de la tache" 0105 010d | | .STREND 0x010d->0x018b 0106 202d 2d2d | ---| .STRTAB_STRINGS 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; Debug Table 0190 ; -------------------------------------------------------------------------------------- 0190 0004 0009 | | .DEBUG4 0x0004,0x0009,0x0ea9,0x0000,0x0001,0x0008 0196 000b 01b6 | | .DBG4T 0x000b,0x01b6,0xc000,0x0000 019a 0010 01ba | | .DBG4T 0x0010,0x01ba,0xc000,0x0000 019e 003b 01c0 | ; | .DBG4T 0x003b,0x01c0,0x1001,0x0000 01a2 004b 01c3 | K | .DBG4T 0x004b,0x01c3,0x1001,0x0000 01a6 0053 01c6 | S | .DBG4T 0x0053,0x01c6,0x0000,0x0000 01aa 0058 01ca | X | .DBG4T 0x0058,0x01ca,0x0000,0x4000 01ae 00eb 020c | | .DBG4T 0x00eb,0x020c,0x0003,0x0000 01b2 00f3 020f | | .DBG4T 0x00f3,0x020f,0x0003,0x0000 01b6 ; -------------------------------------------------------------------------------------- 01b6 ; Debug chain 01b6 ; -------------------------------------------------------------------------------------- 01b6 0002 0000 | | .DBGLEN 0x0002,0x0000 01b8 000b 000d | | .DBGLNO 0x000b,0x000d 01ba ; -------------------------------------------------------------------------------------- 01ba ; Debug chain 01ba ; -------------------------------------------------------------------------------------- 01ba 0004 0000 | | .DBGLEN 0x0004,0x0000 01bc 0010 0016 | | .DBGLNO 0x0010,0x0016,0x002a,0x002c 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; Debug chain 01c0 ; -------------------------------------------------------------------------------------- 01c0 0000 0001 | | .DBGLEN 0x0000,0x0001 01c2 003b | ; | .DBGLNO 0x003b 01c3 ; -------------------------------------------------------------------------------------- 01c3 ; Debug chain 01c3 ; -------------------------------------------------------------------------------------- 01c3 0000 0001 | | .DBGLEN 0x0000,0x0001 01c5 004b | K | .DBGLNO 0x004b 01c6 ; -------------------------------------------------------------------------------------- 01c6 ; Debug chain 01c6 ; -------------------------------------------------------------------------------------- 01c6 0002 0000 | | .DBGLEN 0x0002,0x0000 01c8 0053 0055 | S U| .DBGLNO 0x0053,0x0055 01ca ; -------------------------------------------------------------------------------------- 01ca ; Debug chain 01ca ; -------------------------------------------------------------------------------------- 01ca 0006 001d | | .DBGLEN 0x0006,0x001d 01cc 0058 005a | X Z| .DBGLNO 0x0058,0x005a,0x005f,0x0063,0x0067,0x006b,0x0079,0x007e,0x0080,0x0084,0x0088,0x008e,0x0093,0x0095,0x0097,0x009b,0x009f,0x00a3,0x00a5,0x00a8,0x00aa,0x00ae,0x00b2,0x00b6,0x00ba,0x00bc,0x00c0,0x00c4,0x00c8,0x00ca,0x00ce,0x00d2,0x00d7,0x00da,0x00de 01ef 0001 0002 | | .XXX[0x1d] 01f1 0003 0004 | | 01f3 0005 0007 | | 01f5 0017 0018 | | 01f7 0019 001a | | 01f9 001b 001c | | 01fb 001d 0009 | | 01fd 000a 000b | | 01ff 000c 000d | | 0201 000e 000f | | 0203 0010 0011 | | 0205 0012 0013 | | 0207 0014 0015 | | 0209 0006 001e | | 020b 001f | | 020c ; -------------------------------------------------------------------------------------- 020c ; Debug chain 020c ; -------------------------------------------------------------------------------------- 020c 0000 0001 | | .DBGLEN 0x0000,0x0001 020e 00eb | | .DBGLNO 0x00eb 020f ; -------------------------------------------------------------------------------------- 020f ; Debug chain 020f ; -------------------------------------------------------------------------------------- 020f 0000 0004 | | .DBGLEN 0x0000,0x0004 0211 00f3 00f6 | | .DBGLNO 0x00f3,0x00f6,0x00f9,0x00fc 0215 0000 0000 | | .BLANK 0000[0x1eb]