|
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_5510f5
└─⟦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 00f0 | | .CONST 0x00f0 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0033 | 3 | .CONST 0x0033 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000a | | .CONST 0x000a ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 0322 | " | Declare_Variable Record 001d 00d8 | | Load_Top At_Offset_0 001e 1c00 | | Execute_Immediate Run_Utility,0x0 001f e002 | | Load 0x0,0x2 0020 0322 | " | Declare_Variable Record 0021 00d8 | | Load_Top At_Offset_0 0022 1c00 | | Execute_Immediate Run_Utility,0x0 0023 e003 | | Load 0x0,0x3 0024 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0025 e003 | | Load 0x0,0x3 0026 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0027 e004 | | Load 0x0,0x4 0028 02ff | | Declare_Variable Variant_Record 0029 00d8 | | Load_Top At_Offset_0 002a 1c00 | | Execute_Immediate Run_Utility,0x0 002b e003 | | Load 0x0,0x3 002c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 002d e003 | | Load 0x0,0x3 002e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 002f e005 | | Load 0x0,0x5 0030 0337 | 7 | Declare_Variable Array 0031 e005 | | Load 0x0,0x5 0032 0337 | 7 | Declare_Variable Array 0033 BODY_0018: 0033 0092 00b4 | | Action Push_String_Extended,0xb4 ; "coucou" 0035 e006 | | Load 0x0,0x6 0036 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0037 48c8 |H | Short_Literal 0xc8 0038 0092 00b4 | | Action Push_String_Extended,0xb4 ; "coucou" 003a e007 | | Load 0x0,0x7 003b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 003c e406 | | Load 0x2,0x6 003d 016d | m | Execute Variant_Record,Structure_Write 003e 0092 00b5 | | Action Push_String_Extended,0xb5 ; "cooccouc2" 0040 e006 | | Load 0x0,0x6 0041 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0042 e406 | | Load 0x2,0x6 0043 e007 | | Load 0x0,0x7 0044 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0045 e006 | | Load 0x0,0x6 0046 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0047 e404 | | Load 0x2,0x4 0048 48c8 |H | Short_Literal 0xc8 0049 0092 00b6 | | Action Push_String_Extended,0xb6 ; "ghgjlkkjkjkjjkjl" 004b e007 | | Load 0x0,0x7 004c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 004d e004 | | Load 0x0,0x4 004e 0161 | a | Execute Variant_Record,Check_In_Formal_Type 004f e003 | | Load 0x0,0x3 0050 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0051 a404 | | Store_Unchecked 0x2,0x4 0052 e404 | | Load 0x2,0x4 0053 48c8 |H | Short_Literal 0xc8 0054 0092 00b7 | | Action Push_String_Extended,0xb7 ; "cucupopo" 0056 e007 | | Load 0x0,0x7 0057 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0058 e004 | | Load 0x0,0x4 0059 0161 | a | Execute Variant_Record,Check_In_Formal_Type 005a e003 | | Load 0x0,0x3 005b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 005c a404 | | Store_Unchecked 0x2,0x4 005d e404 | | Load 0x2,0x4 005e 48c8 |H | Short_Literal 0xc8 005f 0092 00b8 | | Action Push_String_Extended,0xb8 ; "barbapapa" 0061 e007 | | Load 0x0,0x7 0062 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0063 e004 | | Load 0x0,0x4 0064 0161 | a | Execute Variant_Record,Check_In_Formal_Type 0065 e003 | | Load 0x0,0x3 0066 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0067 a404 | | Store_Unchecked 0x2,0x4 0068 0092 00b9 | | Action Push_String_Extended,0xb9 ; "liste_ok" 006a e006 | | Load 0x0,0x6 006b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 006c 0092 00ba | | Action Push_String_Extended,0xba ; "destin" 006e e008 | | Load 0x0,0x8 006f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0070 e005 | | Load 0x0,0x5 0071 01c7 | | Execute Vector,Convert 0072 00da | | Load_Top At_Offset_2 0073 01d4 | | Execute Vector,Structure_Write 0074 0092 00bb | | Action Push_String_Extended,0xbb ; "e ok" 0076 e006 | | Load 0x0,0x6 0077 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0078 0092 00bc | | Action Push_String_Extended,0xbc ; "destou" 007a e008 | | Load 0x0,0x8 007b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 007c e005 | | Load 0x0,0x5 007d 01c7 | | Execute Vector,Convert 007e 00d9 | | Load_Top At_Offset_1 007f 01d4 | | Execute Vector,Structure_Write 0080 e402 | | Load 0x2,0x2 0081 e003 | | Load 0x0,0x3 0082 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0083 e009 | | Load 0x0,0x9 0084 0337 | 7 | Declare_Variable Array 0085 502a |P* | Indirect_Literal Any,0xb0,{0x39393920, 0x20202020} 0086 e009 | | Load 0x0,0x9 0087 01c3 | | Execute Vector,Check_In_Type 0088 4800 |H | Short_Literal 0x0 0089 e40a | | Load 0x2,0xa 008a e409 | | Load 0x2,0x9 008b 800a | | Call 0x0,0xa 008c 00d1 | | Pop_Control Pop_Count_1 008d 0092 00bd | | Action Push_String_Extended,0xbd ; "create_ok" 008f e006 | | Load 0x0,0x6 0090 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0091 e402 | | Load 0x2,0x2 0092 800b | | Call 0x0,0xb 0093 e402 | | Load 0x2,0x2 0094 00d8 | | Load_Top At_Offset_0 0095 800c | | Call 0x0,0xc 0096 e402 | | Load 0x2,0x2 0097 800d | | Call 0x0,0xd 0098 e402 | | Load 0x2,0x2 0099 800e | | Call 0x0,0xe 009a e40a | | Load 0x2,0xa 009b e409 | | Load 0x2,0x9 009c 800a | | Call 0x0,0xa 009d 00d1 | | Pop_Control Pop_Count_1 009e 0092 00bd | | Action Push_String_Extended,0xbd ; "create_ok" 00a0 e006 | | Load 0x0,0x6 00a1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00a2 e402 | | Load 0x2,0x2 00a3 800b | | Call 0x0,0xb 00a4 e402 | | Load 0x2,0x2 00a5 4803 |H | Short_Literal 0x3 00a6 800f | | Call 0x0,0xf 00a7 00d1 | | Pop_Control Pop_Count_1 00a8 e402 | | Load 0x2,0x2 00a9 800b | | Call 0x0,0xb 00aa 0092 00be | | Action Push_String_Extended,0xbe ; "fini le test..." 00ac e006 | | Load 0x0,0x6 00ad 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ae 8010 | | Call 0x0,0x10 00af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b0 3939 3920 |999 | .LITERAL {0x39393920, 0x20202020} 00b4 ; -------------------------------------------------------------------------------------- 00b4 ; STRING TABLE 00b4 ; -------------------------------------------------------------------------------------- 00b4 0018 | | .STRTAB 0x0018->0x00c0 ; "coucou" 00b5 001c | | .STRTAB 0x001c->0x00c3 ; "cooccouc2" 00b6 0023 | # | .STRTAB 0x0023->0x00c7 ; "ghgjlkkjkjkjjkjl" 00b7 0031 | 1 | .STRTAB 0x0031->0x00cf ; "cucupopo" 00b8 0037 | 7 | .STRTAB 0x0037->0x00d3 ; "barbapapa" 00b9 003e | > | .STRTAB 0x003e->0x00d8 ; "liste_ok" 00ba 0044 | D | .STRTAB 0x0044->0x00dc ; "destin" 00bb 0048 | H | .STRTAB 0x0048->0x00df ; "e ok" 00bc 004a | J | .STRTAB 0x004a->0x00e1 ; "destou" 00bd 004e | N | .STRTAB 0x004e->0x00e4 ; "create_ok" 00be 0055 | U | .STRTAB 0x0055->0x00e8 ; "fini le test..." 00bf 0062 | b | .STREND 0x0062->0x00f0 00c0 636f 7563 |couc| .STRTAB_STRINGS 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; Debug Table 00f0 ; -------------------------------------------------------------------------------------- 00f0 0004 000a | | .DEBUG4 0x0004,0x000a,0x1c84,0x0000,0x0001,0x0002 00f6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 00fa 001b 00fe | | .DBG4T 0x001b,0x00fe,0x8001,0x0000 00fe ; -------------------------------------------------------------------------------------- 00fe ; Debug chain 00fe ; -------------------------------------------------------------------------------------- 00fe 0009 0015 | | .DBGLEN 0x0009,0x0015 0100 001b 001f | | .DBGLNO 0x001b,0x001f,0x0023,0x0025,0x0027,0x002b,0x002d,0x002f,0x0031,0x0033,0x0037,0x003e,0x0042,0x0047,0x0052,0x005d,0x0068,0x006c,0x0074,0x0078,0x0080,0x008d,0x0091,0x0093,0x009e,0x00a2,0x00a4,0x00a8,0x00aa,0x00ae 011e 0000 0000 | | .BLANK 0000[0xe2]