|
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_2bc09d
└─⟦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 0120 | | .CONST 0x0120 ; 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 006c | l | .CONST 0x006c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0013 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0015 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0017 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0019 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 001b 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 001d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 e004 | | Load 0x0,0x4 0024 e005 | | Load 0x0,0x5 0025 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0027 4802 |H | Short_Literal 0x2 0028 032e | . | Declare_Type Record,Defined,Visible 0029 00d8 | | Load_Top At_Offset_0 002a 0322 | " | Declare_Variable Record 002b e002 | | Load 0x0,0x2 002c 00d9 | | Load_Top At_Offset_1 002d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 002e e003 | | Load 0x0,0x3 002f 00d9 | | Load_Top At_Offset_1 0030 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0031 0129 | ) | Execute Any,Make_Visible 0032 c217 | | Store 0x1,0x17 0033 00d8 | | Load_Top At_Offset_0 0034 0322 | " | Declare_Variable Record 0035 0092 0105 | | Action Push_String_Extended,0x105 ; "anime" 0037 8006 | | Call 0x0,0x6 0038 00d9 | | Load_Top At_Offset_1 0039 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 003a e007 | | Load 0x0,0x7 003b 00d9 | | Load_Top At_Offset_1 003c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 003d 0129 | ) | Execute Any,Make_Visible 003e c218 | | Store 0x1,0x18 003f 00d8 | | Load_Top At_Offset_0 0040 0322 | " | Declare_Variable Record 0041 0092 0106 | | Action Push_String_Extended,0x106 ; "lieu" 0043 8006 | | Call 0x0,0x6 0044 00d9 | | Load_Top At_Offset_1 0045 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0046 e008 | | Load 0x0,0x8 0047 00d9 | | Load_Top At_Offset_1 0048 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0049 0129 | ) | Execute Any,Make_Visible 004a c219 | | Store 0x1,0x19 004b 00d8 | | Load_Top At_Offset_0 004c 0322 | " | Declare_Variable Record 004d 0092 0107 | | Action Push_String_Extended,0x107 ; "entite" 004f 8006 | | Call 0x0,0x6 0050 00d9 | | Load_Top At_Offset_1 0051 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0052 e009 | | Load 0x0,0x9 0053 00d9 | | Load_Top At_Offset_1 0054 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0055 0129 | ) | Execute Any,Make_Visible 0056 c21a | | Store 0x1,0x1a 0057 00bf | | Action Accept_Activation 0058 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0059 00c7 | | Action Elaborate_Subprogram 005a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 005b 00c7 | | Action Elaborate_Subprogram 005c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 005d 00c7 | | Action Elaborate_Subprogram 005e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 005f 00c7 | | Action Elaborate_Subprogram 0060 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0061 00c7 | | Action Elaborate_Subprogram 0062 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0063 00c7 | | Action Elaborate_Subprogram 0064 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0065 00c7 | | Action Elaborate_Subprogram 0066 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0067 00c7 | | Action Elaborate_Subprogram 0068 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0069 00c7 | | Action Elaborate_Subprogram 006a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 006b 00c7 | | Action Elaborate_Subprogram 006c BODY_0008: 006c 00bc | | Action Signal_Activated 006d 00bb | | Action Signal_Completion 006e 0000 0000 | | .XXX[0x2] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 0074 e5fe | | Load 0x2,-0x2 0075 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0076 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0077 0000 | | .XXX[0x1] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00e1 | | Load_Encached Boolean_Cache 007c e5fe | | Load 0x2,-0x2 007d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 007e e5ff | | Load 0x2,-0x1 007f 800a | | Call 0x0,0xa 0080 00d1 | | Pop_Control Pop_Count_1 0081 c5fd | | Store 0x2,-0x3 0082 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0083 0000 0000 | | .BLANK 0000[0x5] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00e1 | | Load_Encached Boolean_Cache 008c e5fe | | Load 0x2,-0x2 008d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 008e e5ff | | Load 0x2,-0x1 008f 800b | | Call 0x0,0xb 0090 00d1 | | Pop_Control Pop_Count_1 0091 c5fd | | Store 0x2,-0x3 0092 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0093 0000 0000 | | .BLANK 0000[0x5] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00e1 | | Load_Encached Boolean_Cache 009c e5fe | | Load 0x2,-0x2 009d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 009e e5ff | | Load 0x2,-0x1 009f 800c | | Call 0x0,0xc 00a0 00d1 | | Pop_Control Pop_Count_1 00a1 c5fd | | Store 0x2,-0x3 00a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a3 0000 0000 | | .BLANK 0000[0x5] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00e1 | | Load_Encached Boolean_Cache 00ac e5fd | | Load 0x2,-0x3 00ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ae e5fe | | Load 0x2,-0x2 00af e5ff | | Load 0x2,-0x1 00b0 800d | | Call 0x0,0xd 00b1 00d1 | | Pop_Control Pop_Count_1 00b2 c5fc | | Store 0x2,-0x4 00b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 00e1 | | Load_Encached Boolean_Cache 00bc e5fd | | Load 0x2,-0x3 00bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00be e5fe | | Load 0x2,-0x2 00bf e5ff | | Load 0x2,-0x1 00c0 800e | | Call 0x0,0xe 00c1 00d1 | | Pop_Control Pop_Count_1 00c2 c5fc | | Store 0x2,-0x4 00c3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c4 0000 0000 | | .BLANK 0000[0x4] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00e1 | | Load_Encached Boolean_Cache 00cc e5fc | | Load 0x2,-0x4 00cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ce e5fd | | Load 0x2,-0x3 00cf e5fe | | Load 0x2,-0x2 00d0 e5ff | | Load 0x2,-0x1 00d1 800f | | Call 0x0,0xf 00d2 00d1 | | Pop_Control Pop_Count_1 00d3 c5fb | | Store 0x2,-0x5 00d4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 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 0108 | | Action Push_String_Extended,0x108 ; "Structure : Name : " 00dd 00db | | Load_Top At_Offset_3 00de 8215 | | Call 0x1,0x15 00df 01cc | | Execute Vector,Catenate 00e0 e010 | | Load 0x0,0x10 00e1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00e2 00da | | Load_Top At_Offset_2 00e3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00e4 8011 | | Call 0x0,0x11 00e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 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 00da | | Load_Top At_Offset_2 00ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00ed 8012 | | Call 0x0,0x12 00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ef 0000 | | .XXX[0x1] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 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 00da | | Load_Top At_Offset_2 00f4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00f5 02fd | | Declare_Variable Variant_Record,Duplicate 00f6 00cd | | Action Spare6_Action 00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 4601 |F | Jump_Case 0x2 00fc 7801 |x | Jump 0xfe ; case 0x0 00fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00fe e002 | | Load 0x0,0x2 00ff 00db | | Load_Top At_Offset_3 0100 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0101 e003 | | Load 0x0,0x3 0102 00db | | Load_Top At_Offset_3 0103 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0105 ; -------------------------------------------------------------------------------------- 0105 ; STRING TABLE 0105 ; -------------------------------------------------------------------------------------- 0105 000a | | .STRTAB 0x000a->0x010a ; "anime" 0106 000d | | .STRTAB 0x000d->0x010c ; "lieu" 0107 000f | | .STRTAB 0x000f->0x010e ; "entite" 0108 0013 | | .STRTAB 0x0013->0x0111 ; "Structure : Name : " 0109 0024 | $ | .STREND 0x0024->0x011b 010a 616e 696d |anim| .STRTAB_STRINGS 011b 0000 0000 | | .BLANK 0000[0x5] 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug Table 0120 ; -------------------------------------------------------------------------------------- 0120 0004 0008 | | .DEBUG4 0x0004,0x0008,0xffad,0x0000,0x0001,0x000d 0126 000b 015a | Z| .DBG4T 0x000b,0x015a,0x8000,0x8000 012a 0058 0182 | X | .DBG4T 0x0058,0x0182,0x8000,0x0000 012e 0073 018e | s | .DBG4T 0x0073,0x018e,0x0001,0x0000 0132 007b 0191 | { | .DBG4T 0x007b,0x0191,0x0001,0x0000 0136 008b 0194 | | .DBG4T 0x008b,0x0194,0x0001,0x0000 013a 009b 0197 | | .DBG4T 0x009b,0x0197,0x0001,0x0000 013e 00ab 019a | | .DBG4T 0x00ab,0x019a,0x0001,0x0000 0142 00bb 019d | | .DBG4T 0x00bb,0x019d,0x0001,0x0000 0146 00cb 01a0 | | .DBG4T 0x00cb,0x01a0,0x0001,0x0000 014a 00db 01a3 | | .DBG4T 0x00db,0x01a3,0x0001,0x0000 014e 00eb 01a7 | | .DBG4T 0x00eb,0x01a7,0x0002,0x0000 0152 00f3 01aa | | .DBG4T 0x00f3,0x01aa,0x0002,0x0000 0156 00fb 0000 | | .DBG4T 0x00fb,0x0000,0x0005,0x0000 015a ; -------------------------------------------------------------------------------------- 015a ; Debug chain 015a ; -------------------------------------------------------------------------------------- 015a 0013 0000 | | .DBGLEN 0x0013,0x0000 015c 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0020,0x0021,0x0022,0x0023,0x0029,0x0033,0x003f,0x004b 016f 0002 0003 | | .XXX[0x13] 0171 0004 0005 | | 0173 0006 0007 | | 0175 0008 0009 | | 0177 000a 000b | | 0179 000c 000d | | 017b 000e 000f | | 017d 0010 0011 | | 017f 0012 0013 | | 0181 0014 | | 0182 ; -------------------------------------------------------------------------------------- 0182 ; Debug chain 0182 ; -------------------------------------------------------------------------------------- 0182 000a 0000 | | .DBGLEN 0x000a,0x0000 0184 0058 005a | X Z| .DBGLNO 0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a 018e ; -------------------------------------------------------------------------------------- 018e ; Debug chain 018e ; -------------------------------------------------------------------------------------- 018e 0000 0001 | | .DBGLEN 0x0000,0x0001 0190 0073 | s | .DBGLNO 0x0073 0191 ; -------------------------------------------------------------------------------------- 0191 ; Debug chain 0191 ; -------------------------------------------------------------------------------------- 0191 0000 0001 | | .DBGLEN 0x0000,0x0001 0193 007b | { | .DBGLNO 0x007b 0194 ; -------------------------------------------------------------------------------------- 0194 ; Debug chain 0194 ; -------------------------------------------------------------------------------------- 0194 0000 0001 | | .DBGLEN 0x0000,0x0001 0196 008b | | .DBGLNO 0x008b 0197 ; -------------------------------------------------------------------------------------- 0197 ; Debug chain 0197 ; -------------------------------------------------------------------------------------- 0197 0000 0001 | | .DBGLEN 0x0000,0x0001 0199 009b | | .DBGLNO 0x009b 019a ; -------------------------------------------------------------------------------------- 019a ; Debug chain 019a ; -------------------------------------------------------------------------------------- 019a 0000 0001 | | .DBGLEN 0x0000,0x0001 019c 00ab | | .DBGLNO 0x00ab 019d ; -------------------------------------------------------------------------------------- 019d ; Debug chain 019d ; -------------------------------------------------------------------------------------- 019d 0000 0001 | | .DBGLEN 0x0000,0x0001 019f 00bb | | .DBGLNO 0x00bb 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; Debug chain 01a0 ; -------------------------------------------------------------------------------------- 01a0 0000 0001 | | .DBGLEN 0x0000,0x0001 01a2 00cb | | .DBGLNO 0x00cb 01a3 ; -------------------------------------------------------------------------------------- 01a3 ; Debug chain 01a3 ; -------------------------------------------------------------------------------------- 01a3 0000 0002 | | .DBGLEN 0x0000,0x0002 01a5 00db 00e2 | | .DBGLNO 0x00db,0x00e2 01a7 ; -------------------------------------------------------------------------------------- 01a7 ; Debug chain 01a7 ; -------------------------------------------------------------------------------------- 01a7 0000 0001 | | .DBGLEN 0x0000,0x0001 01a9 00eb | | .DBGLNO 0x00eb 01aa ; -------------------------------------------------------------------------------------- 01aa ; Debug chain 01aa ; -------------------------------------------------------------------------------------- 01aa 0000 0001 | | .DBGLEN 0x0000,0x0001 01ac 00f3 | | .DBGLNO 0x00f3 01ad 0000 0000 | | .BLANK 0000[0x53]