|
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]