|
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 - metrics - download
Length: 1024 (0x400)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_767cc3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 0130 | 0 | .CONST 0x0130 ; 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 0044 | D | .CONST 0x0044 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 483f |H? | Short_Literal 0x3f
000d 00e3 | | Load_Encached Natural_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 0092 011e | | Action Push_String_Extended,0x11e ; "Lecteur"
0011 0129 | ) | Execute Any,Make_Visible
0012 0092 011f | | Action Push_String_Extended,0x11f ; "Fin Lecteur"
0014 0129 | ) | Execute Any,Make_Visible
0015 029a 004b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0048
0017 029a 005b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0058
0019 029a 0063 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0060
001b 029a 006b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0068
001d 029a 0073 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0070
001f 029a 007b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0078
0021 029a 0083 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0080
0023 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088
0025 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8
0027 029a 00bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b8
0029 e20d | | Load 0x1,0xd
002a e002 | | Load 0x0,0x2
002b e003 | | Load 0x0,0x3
002c 02a0 | | Declare_Subprogram Null_Subprogram
002d 4803 |H | Short_Literal 0x3
002e 032e | . | Declare_Type Record,Defined,Visible
002f 00bf | | Action Accept_Activation
0030 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0031 00c7 | | Action Elaborate_Subprogram
0032 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0033 00c7 | | Action Elaborate_Subprogram
0034 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0035 00c7 | | Action Elaborate_Subprogram
0036 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0037 00c7 | | Action Elaborate_Subprogram
0038 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0039 00c7 | | Action Elaborate_Subprogram
003a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003b 00c7 | | Action Elaborate_Subprogram
003c 1d16 | | Execute_Immediate Reference_Lex_1,0x16
003d 00c7 | | Action Elaborate_Subprogram
003e 1d17 | | Execute_Immediate Reference_Lex_1,0x17
003f 00c7 | | Action Elaborate_Subprogram
0040 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0041 00c7 | | Action Elaborate_Subprogram
0042 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0043 00c7 | | Action Elaborate_Subprogram
0044 BODY_0008:
0044 00bc | | Action Signal_Activated
0045 00bb | | Action Signal_Completion
0046 0000 0000 | | .XXX[0x2]
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 e5fc | | Load 0x2,-0x4
004c 00db | | Load_Top At_Offset_3
004d 8211 | | Call 0x1,0x11
004e 00d1 | | Pop_Control Pop_Count_1
004f e5fc | | Load 0x2,-0x4
0050 e5fe | | Load 0x2,-0x2
0051 8212 | | Call 0x1,0x12
0052 00d1 | | Pop_Control Pop_Count_1
0053 e5fc | | Load 0x2,-0x4
0054 e5fd | | Load 0x2,-0x3
0055 8213 | | Call 0x1,0x13
0056 4504 |E | Exit_Subprogram 0x4
0057 0000 | | .XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2
005c e5fe | | Load 0x2,-0x2
005d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
005e 4502 |E | Exit_Subprogram 0x2
005f 0000 | | .XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 00da | | Load_Top At_Offset_2
0064 e5fe | | Load 0x2,-0x2
0065 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0066 4502 |E | Exit_Subprogram 0x2
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c e5fe | | Load 0x2,-0x2
006d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
006e 4502 |E | Exit_Subprogram 0x2
006f 0000 | | .XXX[0x1]
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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0075 4401 |D | Exit_Subprogram With_Result,0x1
0076 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
007c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
007d 0320 | | Declare_Variable Record,Duplicate
007e 00cd | | Action Spare6_Action
007f 4401 |D | Exit_Subprogram With_Result,0x1
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0085 0320 | | Declare_Variable Record,Duplicate
0086 00cd | | Action Spare6_Action
0087 4401 |D | Exit_Subprogram With_Result,0x1
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 4823 |H# | Short_Literal 0x23
008c 4823 |H# | Short_Literal 0x23
008d 4823 |H# | Short_Literal 0x23
008e e20e | | Load 0x1,0xe
008f e5ff | | Load 0x2,-0x1
0090 8214 | | Call 0x1,0x14
0091 00e0 | | Load_Encached Standard_Cache
0092 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0093 8004 | | Call 0x0,0x4
0094 01cc | | Execute Vector,Catenate
0095 01cb | | Execute Vector,Append
0096 e5ff | | Load 0x2,-0x1
0097 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0098 8005 | | Call 0x0,0x5
0099 01cc | | Execute Vector,Catenate
009a 01cb | | Execute Vector,Append
009b e5ff | | Load 0x2,-0x1
009c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
009d 8006 | | Call 0x0,0x6
009e 01cc | | Execute Vector,Catenate
009f 01cb | | Execute Vector,Append
00a0 e20f | | Load 0x1,0xf
00a1 01cc | | Execute Vector,Catenate
00a2 4401 |D | Exit_Subprogram With_Result,0x1
00a3 0000 0000 | | .BLANK 0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ae | | .CONST 0x00ae ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab e21a | | Load 0x1,0x1a
00ac 0322 | " | Declare_Variable Record
00ad 00e3 | | Load_Encached Natural_Cache
00ae BODY_00a8:
00ae 00d8 | | Load_Top At_Offset_0
00af 00da | | Load_Top At_Offset_2
00b0 e5ff | | Load 0x2,-0x1
00b1 8219 | | Call 0x1,0x19
00b2 00d1 | | Pop_Control Pop_Count_1
00b3 0059 | Y | Store_Top Discrete,At_Offset_1
00b4 00d9 | | Load_Top At_Offset_1
00b5 4401 |D | Exit_Subprogram With_Result,0x1
00b6 0000 0000 | | .XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c0 | | .CONST 0x00c0 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0006 | | .CONST 0x0006 ; Number of locals
00bb INIT_00b8:
00bb 00e3 | | Load_Encached Natural_Cache
00bc 03e9 | | Declare_Variable Discrete,Duplicate
00bd 03e9 | | Declare_Variable Discrete,Duplicate
00be 03e9 | | Declare_Variable Discrete,Duplicate
00bf 03e9 | | Declare_Variable Discrete,Duplicate
00c0 BODY_00b8:
00c0 e402 | | Load 0x2,0x2
00c1 e20e | | Load 0x1,0xe
00c2 e5ff | | Load 0x2,-0x1
00c3 8007 | | Call 0x0,0x7
00c4 c402 | | Store 0x2,0x2
00c5 00db | | Load_Top At_Offset_3
00c6 4823 |H# | Short_Literal 0x23
00c7 e402 | | Load 0x2,0x2
00c8 0a01 | | Execute_Immediate Plus,0x1
00c9 00d8 | | Load_Top At_Offset_0
00ca 00e2 | | Load_Encached Integer_Cache
00cb 0260 | ` | Execute Discrete,In_Type
00cc 7001 |p | Jump_Nonzero 0xce
00cd 0801 | | Execute_Immediate Raise,0x1
00ce e5ff | | Load 0x2,-0x1
00cf 01dc | | Execute Vector,Last
00d0 e5ff | | Load 0x2,-0x1
00d1 01cf | | Execute Vector,Slice_Read
00d2 8008 | | Call 0x0,0x8
00d3 c403 | | Store 0x2,0x3
00d4 00da | | Load_Top At_Offset_2
00d5 e5fe | | Load 0x2,-0x2
00d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d7 e403 | | Load 0x2,0x3
00d8 0a01 | | Execute_Immediate Plus,0x1
00d9 00d8 | | Load_Top At_Offset_0
00da 00e2 | | Load_Encached Integer_Cache
00db 0260 | ` | Execute Discrete,In_Type
00dc 7001 |p | Jump_Nonzero 0xde
00dd 0801 | | Execute_Immediate Raise,0x1
00de e5ff | | Load 0x2,-0x1
00df 01dc | | Execute Vector,Last
00e0 e5ff | | Load 0x2,-0x1
00e1 01cf | | Execute Vector,Slice_Read
00e2 8009 | | Call 0x0,0x9
00e3 00d1 | | Pop_Control Pop_Count_1
00e4 005b | [ | Store_Top Discrete,At_Offset_3
00e5 00d9 | | Load_Top At_Offset_1
00e6 e5fe | | Load 0x2,-0x2
00e7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e8 e404 | | Load 0x2,0x4
00e9 0a02 | | Execute_Immediate Plus,0x2
00ea 00d8 | | Load_Top At_Offset_0
00eb 00e2 | | Load_Encached Integer_Cache
00ec 0260 | ` | Execute Discrete,In_Type
00ed 7001 |p | Jump_Nonzero 0xef
00ee 0801 | | Execute_Immediate Raise,0x1
00ef e5ff | | Load 0x2,-0x1
00f0 01dc | | Execute Vector,Last
00f1 e5ff | | Load 0x2,-0x1
00f2 01cf | | Execute Vector,Slice_Read
00f3 800a | | Call 0x0,0xa
00f4 00d1 | | Pop_Control Pop_Count_1
00f5 005a | Z | Store_Top Discrete,At_Offset_2
00f6 00d8 | | Load_Top At_Offset_0
00f7 e20f | | Load 0x1,0xf
00f8 00db | | Load_Top At_Offset_3
00f9 0a02 | | Execute_Immediate Plus,0x2
00fa 00d8 | | Load_Top At_Offset_0
00fb 00e2 | | Load_Encached Integer_Cache
00fc 0260 | ` | Execute Discrete,In_Type
00fd 7001 |p | Jump_Nonzero 0xff
00fe 0801 | | Execute_Immediate Raise,0x1
00ff e5ff | | Load 0x2,-0x1
0100 01dc | | Execute Vector,Last
0101 e5ff | | Load 0x2,-0x1
0102 01cf | | Execute Vector,Slice_Read
0103 8007 | | Call 0x0,0x7
0104 0059 | Y | Store_Top Discrete,At_Offset_1
0105 e5fe | | Load 0x2,-0x2
0106 e402 | | Load 0x2,0x2
0107 0a01 | | Execute_Immediate Plus,0x1
0108 00d8 | | Load_Top At_Offset_0
0109 00e2 | | Load_Encached Integer_Cache
010a 0260 | ` | Execute Discrete,In_Type
010b 7001 |p | Jump_Nonzero 0x10d
010c 0801 | | Execute_Immediate Raise,0x1
010d e403 | | Load 0x2,0x3
010e 0aff | | Execute_Immediate Plus,-0x1
010f e5ff | | Load 0x2,-0x1
0110 01cf | | Execute Vector,Slice_Read
0111 00e2 | | Load_Encached Integer_Cache
0112 00e0 | | Load_Encached Standard_Cache
0113 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0114 00d8 | | Load_Top At_Offset_0
0115 e20d | | Load 0x1,0xd
0116 0260 | ` | Execute Discrete,In_Type
0117 7001 |p | Jump_Nonzero 0x119
0118 0801 | | Execute_Immediate Raise,0x1
0119 8211 | | Call 0x1,0x11
011a 00d1 | | Pop_Control Pop_Count_1
011b 00d8 | | Load_Top At_Offset_0
011c a5fd | | Store_Unchecked 0x2,-0x3
011d 4502 |E | Exit_Subprogram 0x2
011e ; --------------------------------------------------------------------------------------
011e ; STRING TABLE
011e ; --------------------------------------------------------------------------------------
011e 0006 | | .STRTAB 0x0006->0x0121 ; "Lecteur"
011f 000b | | .STRTAB 0x000b->0x0124 ; "Fin Lecteur"
0120 0014 | | .STREND 0x0014->0x012a
0121 4c65 6374 |Lect| .STRTAB_STRINGS
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug Table
0130 ; --------------------------------------------------------------------------------------
0130 0004 0009 | | .DEBUG4 0x0004,0x0009,0x719f,0x0000,0x0001,0x000c
0136 000b 0166 | f| .DBG4T 0x000b,0x0166,0x8000,0x8000
013a 0030 0184 | 0 | .DBG4T 0x0030,0x0184,0x8000,0x8000
013e 004b 019a | K | .DBG4T 0x004b,0x019a,0x0001,0x0000
0142 005b 019f | [ | .DBG4T 0x005b,0x019f,0x0001,0x0000
0146 0063 01a2 | c | .DBG4T 0x0063,0x01a2,0x0001,0x0000
014a 006b 01a5 | k | .DBG4T 0x006b,0x01a5,0x0001,0x0000
014e 0073 01a8 | s | .DBG4T 0x0073,0x01a8,0x0002,0x0000
0152 007b 01ab | { | .DBG4T 0x007b,0x01ab,0x0002,0x0000
0156 0083 01ae | | .DBG4T 0x0083,0x01ae,0x0002,0x0000
015a 008b 01b1 | | .DBG4T 0x008b,0x01b1,0x0002,0x0000
015e 00ab 01b4 | | .DBG4T 0x00ab,0x01b4,0x0002,0x0000
0162 00bb 01ba | | .DBG4T 0x00bb,0x01ba,0x0001,0x0000
0166 ; --------------------------------------------------------------------------------------
0166 ; Debug chain
0166 ; --------------------------------------------------------------------------------------
0166 000e 0000 | | .DBGLEN 0x000e,0x0000
0168 000b 000f | | .DBGLNO 0x000b,0x000f,0x0012,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029
0176 0002 0003 | | .XXX[0xe]
0178 0004 0007 | |
017a 0008 0009 | |
017c 000a 000b | |
017e 000c 000d | |
0180 000e 000f | |
0182 0010 0011 | |
0184 ; --------------------------------------------------------------------------------------
0184 ; Debug chain
0184 ; --------------------------------------------------------------------------------------
0184 000a 0000 | | .DBGLEN 0x000a,0x0000
0186 0030 0032 | 0 2| .DBGLNO 0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042
0190 0002 0003 | | .XXX[0xa]
0192 0004 0005 | |
0194 0006 0007 | |
0196 0008 0009 | |
0198 000a 000b | |
019a ; --------------------------------------------------------------------------------------
019a ; Debug chain
019a ; --------------------------------------------------------------------------------------
019a 0000 0003 | | .DBGLEN 0x0000,0x0003
019c 004b 004f | K O| .DBGLNO 0x004b,0x004f,0x0053
019f ; --------------------------------------------------------------------------------------
019f ; Debug chain
019f ; --------------------------------------------------------------------------------------
019f 0000 0001 | | .DBGLEN 0x0000,0x0001
01a1 005b | [ | .DBGLNO 0x005b
01a2 ; --------------------------------------------------------------------------------------
01a2 ; Debug chain
01a2 ; --------------------------------------------------------------------------------------
01a2 0000 0001 | | .DBGLEN 0x0000,0x0001
01a4 0063 | c | .DBGLNO 0x0063
01a5 ; --------------------------------------------------------------------------------------
01a5 ; Debug chain
01a5 ; --------------------------------------------------------------------------------------
01a5 0000 0001 | | .DBGLEN 0x0000,0x0001
01a7 006b | k | .DBGLNO 0x006b
01a8 ; --------------------------------------------------------------------------------------
01a8 ; Debug chain
01a8 ; --------------------------------------------------------------------------------------
01a8 0000 0001 | | .DBGLEN 0x0000,0x0001
01aa 0073 | s | .DBGLNO 0x0073
01ab ; --------------------------------------------------------------------------------------
01ab ; Debug chain
01ab ; --------------------------------------------------------------------------------------
01ab 0000 0001 | | .DBGLEN 0x0000,0x0001
01ad 007b | { | .DBGLNO 0x007b
01ae ; --------------------------------------------------------------------------------------
01ae ; Debug chain
01ae ; --------------------------------------------------------------------------------------
01ae 0000 0001 | | .DBGLEN 0x0000,0x0001
01b0 0083 | | .DBGLNO 0x0083
01b1 ; --------------------------------------------------------------------------------------
01b1 ; Debug chain
01b1 ; --------------------------------------------------------------------------------------
01b1 0000 0001 | | .DBGLEN 0x0000,0x0001
01b3 008b | | .DBGLNO 0x008b
01b4 ; --------------------------------------------------------------------------------------
01b4 ; Debug chain
01b4 ; --------------------------------------------------------------------------------------
01b4 0002 0002 | | .DBGLEN 0x0002,0x0002
01b6 00ab 00ad | | .DBGLNO 0x00ab,0x00ad,0x00ae,0x00b4
01ba ; --------------------------------------------------------------------------------------
01ba ; Debug chain
01ba ; --------------------------------------------------------------------------------------
01ba 0001 0007 | | .DBGLEN 0x0001,0x0007
01bc 00bb 00c0 | | .DBGLNO 0x00bb,0x00c0,0x00c5,0x00d4,0x00e5,0x00f6,0x0105,0x011b
01c4 0000 0000 | | .BLANK 0000[0x3c]