|
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_375cff
└─⟦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 0160 | ` | .CONST 0x0160 ; 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 0031 | 1 | .CONST 0x0031 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 0093 005b | [| push_full_address INIT_0058 000e 00f5 | | Load_Encached Unused21 000f 037b | { | Declare_Type Task,Defined,Visible,Not_Elaborated 0010 00d8 | | Load_Top At_Offset_0 0011 02a0 | | Declare_Subprogram Null_Subprogram 0012 4818 |H | Short_Literal 0x18 0013 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 0014 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 0016 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0018 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 001a 00bf | | Action Accept_Activation 001b 00e3 | | Load_Encached Natural_Cache 001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001e 00c7 | | Action Elaborate_Subprogram 001f 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0020 00c7 | | Action Elaborate_Subprogram 0021 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0022 00c7 | | Action Elaborate_Subprogram 0023 e002 | | Load 0x0,0x2 0024 e003 | | Load 0x0,0x3 0025 e004 | | Load 0x0,0x4 0026 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0027 e005 | | Load 0x0,0x5 0028 e006 | | Load 0x0,0x6 0029 e007 | | Load 0x0,0x7 002a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002b a008 | | Store_Unchecked 0x0,0x8 002c 4809 |H | Short_Literal 0x9 002d e20d | | Load 0x1,0xd 002e 020e | | Execute Module,Augment_Imports 002f e20d | | Load 0x1,0xd 0030 020d | | Execute Module,Elaborate 0031 BODY_0008: 0031 00bc | | Action Signal_Activated 0032 00bb | | Action Signal_Completion 0033 0000 0000 | | .BLANK 0000[0x5] 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 00db | | Load_Top At_Offset_3 003c 00db | | Load_Top At_Offset_3 003d 8009 | | Call 0x0,0x9 003e 00d1 | | Pop_Control Pop_Count_1 003f c5fe | | Store 0x2,-0x2 0040 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0041 0000 0000 | | .BLANK 0000[0x7] 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 4800 |H | Short_Literal 0x0 004c 00db | | Load_Top At_Offset_3 004d 170d | | Execute Task,Entry_Call,Field_Number 0xd 004e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004f 0000 | | .XXX[0x1] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 4800 |H | Short_Literal 0x0 0054 00db | | Load_Top At_Offset_3 0055 170e | | Execute Task,Entry_Call,Field_Number 0xe 0056 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0057 0000 | | .XXX[0x1] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0076 | v | .CONST 0x0076 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0016 | | .CONST 0x0016 ; Number of locals 005b INIT_0058: 005b 4800 |H | Short_Literal 0x0 005c 02cb | | Declare_Variable Entry 005d 4800 |H | Short_Literal 0x0 005e 02cb | | Declare_Variable Entry 005f 00bf | | Action Accept_Activation 0060 e001 | | Load 0x0,0x1 0061 0007 | | Action Break_Optional 0062 00e8 | | Load_Encached Character_Cache 0063 e002 | | Load 0x0,0x2 0064 0322 | " | Declare_Variable Record 0065 00d8 | | Load_Top At_Offset_0 0066 0322 | " | Declare_Variable Record 0067 00e3 | | Load_Encached Natural_Cache 0068 00e1 | | Load_Encached Boolean_Cache 0069 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 006a 00e1 | | Load_Encached Boolean_Cache 006b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 006c 480e 481b |H H | Declare_Variable Select 0x000, 0x002, 006e 480d 481e |H H | [0x000]: 0x000 = 0x0000, 0070 4800 4800 |H H | [0x00d]: 0x01e = 0x00f0, 0072 4800 4802 |H H | [0x00e]: 0x01b = 0x00d8 0074 02cf | | 0075 00bc | | Action Signal_Activated 0076 BODY_0058: 0076 0092 00fe | | Action Push_String_Extended,0xfe ; "Tache Tir en route ..." 0078 e003 | | Load 0x0,0x3 0079 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 007a e004 | | Load 0x0,0x4 007b 0a01 | | Execute_Immediate Plus,0x1 007c c004 | | Store 0x0,0x4 007d e004 | | Load 0x0,0x4 007e a213 | | Store_Unchecked 0x1,0x13 007f 4800 |H | Short_Literal 0x0 0080 e005 | | Load 0x0,0x5 0081 e006 | | Load 0x0,0x6 0082 00ad | | QQ_Action Package,Field_Execute_Dynamic 0083 0092 00ff | | Action Push_String_Extended,0xff ; "Tache Initialisee numero " 0085 e213 | | Load 0x1,0x13 0086 00e0 | | Load_Encached Standard_Cache 0087 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0088 01cc | | Execute Vector,Catenate 0089 e003 | | Load 0x0,0x3 008a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 008b 00cf | | Action Mark_Auxiliary 008c 7840 |x@ | Jump 0xcd 008d e212 | | Load 0x1,0x12 008e e211 | | Load 0x1,0x11 008f 017d | } | Execute Record,Structure_Write 0090 e213 | | Load 0x1,0x13 0091 e212 | | Load 0x1,0x12 0092 4802 |H | Short_Literal 0x2 0093 e005 | | Load 0x0,0x5 0094 e007 | | Load 0x0,0x7 0095 00ad | | QQ_Action Package,Field_Execute_Dynamic 0096 0092 0100 | | Action Push_String_Extended,0x100 ; "Attente de la tache " 0098 e213 | | Load 0x1,0x13 0099 00e0 | | Load_Encached Standard_Cache 009a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 009b 01cc | | Execute Vector,Catenate 009c e003 | | Load 0x0,0x3 009d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 009e 00d9 | | Load_Top At_Offset_1 009f 013f | ? | Execute Select,Rendezvous 00a0 4602 |F | Jump_Case 0x3 00a1 7801 |x | Jump 0xa3 ; case 0x0 00a2 7829 |x) | Jump 0xcc ; case 0x1 00a3 00db | | Load_Top At_Offset_3 ; case 0x2 00a4 6825 |h% | Jump_Zero 0xca 00a5 0092 0101 | | Action Push_String_Extended,0x101 ; "ok je bouge" 00a7 e003 | | Load 0x0,0x3 00a8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00a9 e20f | | Load 0x1,0xf 00aa e212 | | Load 0x1,0x12 00ab 8008 | | Call 0x0,0x8 00ac 00d1 | | Pop_Control Pop_Count_1 00ad c20f | | Store 0x1,0xf 00ae 0092 0102 | | Action Push_String_Extended,0x102 ; "ma pos virtuelle est calculee :" 00b0 e003 | | Load 0x0,0x3 00b1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00b2 e212 | | Load 0x1,0x12 00b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b4 00e0 | | Load_Encached Standard_Cache 00b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b6 0092 0103 | | Action Push_String_Extended,0x103 ; " , " 00b8 01cc | | Execute Vector,Catenate 00b9 e212 | | Load 0x1,0x12 00ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00bb 00e0 | | Load_Encached Standard_Cache 00bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00bd 01cc | | Execute Vector,Catenate 00be e003 | | Load 0x0,0x3 00bf 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00c0 4800 |H | Short_Literal 0x0 00c1 e211 | | Load 0x1,0x11 00c2 4820 |H | Short_Literal 0x20 00c3 8009 | | Call 0x0,0x9 00c4 4800 |H | Short_Literal 0x0 00c5 e212 | | Load 0x1,0x12 00c6 486f |Ho | Short_Literal 0x6f 00c7 8009 | | Call 0x0,0x9 00c8 4800 |H | Short_Literal 0x0 00c9 a214 | | Store_Unchecked 0x1,0x14 00ca 601d |` | Indirect_Literal Discrete,0xe8,{0x00000000, 0x00008000} 00cb 00ba | | Action Initiate_Delay 00cc 00c9 | | Action Pop_Auxiliary_Loop 00cd 00da | | Load_Top At_Offset_2 00ce 77be |w | Jump_Nonzero 0x8d 00cf 00ce | | Action Pop_Auxiliary 00d0 00bb | | Action Signal_Completion 00d1 0000 0000 | | .BLANK 0000[0x7] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; See instruction 0x02cf at 0x6c, index=0xe 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 0092 0104 | | Action Push_String_Extended,0x104 ; "je me tue" 00dd e003 | | Load 0x0,0x3 00de 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00df 4800 |H | Short_Literal 0x0 00e0 e212 | | Load 0x1,0x12 00e1 4820 |H | Short_Literal 0x20 00e2 8009 | | Call 0x0,0x9 00e3 4800 |H | Short_Literal 0x0 00e4 a215 | | Store_Unchecked 0x1,0x15 00e5 4100 |A | End_Rendezvous 0x0 00e6 0000 0000 | | .XXX[0x2] 00e8 0000 0000 | | .LITERAL {0x00000000, 0x00008000} 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; See instruction 0x02cf at 0x6c, 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 0092 0105 | | Action Push_String_Extended,0x105 ; " OK pour pos Ordre de se deplacer accepte par " 00f5 e213 | | Load 0x1,0x13 00f6 00e0 | | Load_Encached Standard_Cache 00f7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f8 01cc | | Execute Vector,Catenate 00f9 e003 | | Load 0x0,0x3 00fa 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00fb 4801 |H | Short_Literal 0x1 00fc a214 | | Store_Unchecked 0x1,0x14 00fd 4100 |A | End_Rendezvous 0x0 00fe ; -------------------------------------------------------------------------------------- 00fe ; STRING TABLE 00fe ; -------------------------------------------------------------------------------------- 00fe 0012 | | .STRTAB 0x0012->0x0107 ; "Tache Tir en route ..." 00ff 0026 | & | .STRTAB 0x0026->0x0112 ; "Tache Initialisee numero " 0100 003d | = | .STRTAB 0x003d->0x011e ; "Attente de la tache " 0101 004f | O | .STRTAB 0x004f->0x0128 ; "ok je bouge" 0102 0058 | X | .STRTAB 0x0058->0x012e ; "ma pos virtuelle est calculee :" 0103 0075 | u | .STRTAB 0x0075->0x013d ; " , " 0104 0076 | v | .STRTAB 0x0076->0x013f ; "je me tue" 0105 007d | } | .STRTAB 0x007d->0x0143 ; " OK pour pos Ordre de se deplacer accepte par " 0106 00a9 | | .STREND 0x00a9->0x015a 0107 5461 6368 |Tach| .STRTAB_STRINGS 015b 0000 0000 | | .BLANK 0000[0x5] 0160 ; -------------------------------------------------------------------------------------- 0160 ; Debug Table 0160 ; -------------------------------------------------------------------------------------- 0160 0004 000a | | .DEBUG4 0x0004,0x000a,0xbbe7,0x0000,0x0001,0x0009 0166 000b 018a | | .DBG4T 0x000b,0x018a,0x8000,0x0000 016a 001b 0192 | | .DBG4T 0x001b,0x0192,0x8000,0x0000 016e 003b 0199 | ; | .DBG4T 0x003b,0x0199,0x0001,0x0000 0172 004b 019c | K | .DBG4T 0x004b,0x019c,0x0001,0x0000 0176 0053 019f | S | .DBG4T 0x0053,0x019f,0x0001,0x0000 017a 005b 01a2 | [ | .DBG4T 0x005b,0x01a2,0x0000,0x0000 017e 0060 01a6 | ` | .DBG4T 0x0060,0x01a6,0x0000,0x4000 0182 00db 01d4 | | .DBG4T 0x00db,0x01d4,0x0003,0x0000 0186 00f3 01d9 | | .DBG4T 0x00f3,0x01d9,0x0003,0x0000 018a ; -------------------------------------------------------------------------------------- 018a ; Debug chain 018a ; -------------------------------------------------------------------------------------- 018a 0006 0000 | | .DBGLEN 0x0006,0x0000 018c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0014,0x0016,0x0018,0x001a 0192 ; -------------------------------------------------------------------------------------- 0192 ; Debug chain 0192 ; -------------------------------------------------------------------------------------- 0192 0005 0000 | | .DBGLEN 0x0005,0x0000 0194 001b 001d | | .DBGLNO 0x001b,0x001d,0x001f,0x0021,0x0023 0199 ; -------------------------------------------------------------------------------------- 0199 ; Debug chain 0199 ; -------------------------------------------------------------------------------------- 0199 0000 0001 | | .DBGLEN 0x0000,0x0001 019b 003b | ; | .DBGLNO 0x003b 019c ; -------------------------------------------------------------------------------------- 019c ; Debug chain 019c ; -------------------------------------------------------------------------------------- 019c 0000 0001 | | .DBGLEN 0x0000,0x0001 019e 004b | K | .DBGLNO 0x004b 019f ; -------------------------------------------------------------------------------------- 019f ; Debug chain 019f ; -------------------------------------------------------------------------------------- 019f 0000 0001 | | .DBGLEN 0x0000,0x0001 01a1 0053 | S | .DBGLNO 0x0053 01a2 ; -------------------------------------------------------------------------------------- 01a2 ; Debug chain 01a2 ; -------------------------------------------------------------------------------------- 01a2 0002 0000 | | .DBGLEN 0x0002,0x0000 01a4 005b 005d | [ ]| .DBGLNO 0x005b,0x005d 01a6 ; -------------------------------------------------------------------------------------- 01a6 ; Debug chain 01a6 ; -------------------------------------------------------------------------------------- 01a6 0006 0013 | | .DBGLEN 0x0006,0x0013 01a8 0060 0062 | ` b| .DBGLNO 0x0060,0x0062,0x0063,0x0067,0x0068,0x006a,0x0076,0x007a,0x007d,0x007f,0x0083,0x008d,0x0090,0x0096,0x009e,0x00a3,0x00a5,0x00a9,0x00ae,0x00b2,0x00c0,0x00c4,0x00c8,0x00ca,0x00cd 01c1 0001 0002 | | .XXX[0x13] 01c3 0003 0004 | | 01c5 0005 0007 | | 01c7 0008 0009 | | 01c9 000a 000d | | 01cb 000e 000f | | 01cd 0010 0011 | | 01cf 0012 0013 | | 01d1 0014 0015 | | 01d3 0006 | | 01d4 ; -------------------------------------------------------------------------------------- 01d4 ; Debug chain 01d4 ; -------------------------------------------------------------------------------------- 01d4 0000 0003 | | .DBGLEN 0x0000,0x0003 01d6 00db 00df | | .DBGLNO 0x00db,0x00df,0x00e3 01d9 ; -------------------------------------------------------------------------------------- 01d9 ; Debug chain 01d9 ; -------------------------------------------------------------------------------------- 01d9 0000 0002 | | .DBGLEN 0x0000,0x0002 01db 00f3 00fb | | .DBGLNO 0x00f3,0x00fb 01dd 0000 0000 | | .BLANK 0000[0x23]