|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_27d38cd
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0148 | H | .CONST 0x0148 ; 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 0041 | A | .CONST 0x0041 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 4800 |H | Short_Literal 0x0
0011 4802 |H | Short_Literal 0x2
0012 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
0014 03fd | | Declare_Type Discrete,Defined
0015 00d8 | | Load_Top At_Offset_0
0016 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0017 e001 | | Load 0x0,0x1
0018 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0019 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001a 02ff | | Declare_Variable Variant_Record
001b 00d8 | | Load_Top At_Offset_0
001c 1c00 | | Execute_Immediate Run_Utility,0x0
001d e001 | | Load 0x0,0x1
001e 1b20 | | Execute Package,Field_Read,Field_Number 0x20
001f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0020 02ff | | Declare_Variable Variant_Record
0021 00d8 | | Load_Top At_Offset_0
0022 1c00 | | Execute_Immediate Run_Utility,0x0
0023 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call
0025 e001 | | Load 0x0,0x1
0026 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0027 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0028 00c6 | | Action Check_Subprogram_Elaborated
0029 1d13 | | Execute_Immediate Reference_Lex_1,0x13
002a e002 | | Load 0x0,0x2
002b e003 | | Load 0x0,0x3
002c 4800 |H | Short_Literal 0x0
002d 0007 | | Action Break_Optional
002e 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call
0030 e001 | | Load 0x0,0x1
0031 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0032 191c | | Execute Package,Field_Reference,Field_Number 0x1c
0033 00c6 | | Action Check_Subprogram_Elaborated
0034 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0035 e004 | | Load 0x0,0x4
0036 e005 | | Load 0x0,0x5
0037 4800 |H | Short_Literal 0x0
0038 0007 | | Action Break_Optional
0039 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call
003b 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call
003d 1d0d | | Execute_Immediate Reference_Lex_1,0xd
003e 00c7 | | Action Elaborate_Subprogram
003f 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0040 00c7 | | Action Elaborate_Subprogram
0041 BODY_0008:
0041 00bc | | Action Signal_Activated
0042 00bb | | Action Signal_Completion
0043 0000 0000 | | .BLANK 0000[0x5]
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 e006 | | Load 0x0,0x6
004c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
004d e007 | | Load 0x0,0x7
004e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
004f e008 | | Load 0x0,0x8
0050 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0051 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0052 0000 0000 | | .BLANK 0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005c | \ | .CONST 0x005c ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0002 | | .CONST 0x0002 ; Number of locals
005b INIT_0058:
005b 00e1 | | Load_Encached Boolean_Cache
005c BODY_0058:
005c e210 | | Load 0x1,0x10
005d 4602 |F | Jump_Case 0x3
005e 7805 |x | Jump 0x64 ; case 0x0
005f 7807 |x | Jump 0x67 ; case 0x1
0060 7800 |x | Jump 0x61 ; case 0x2
0061 4800 |H | Short_Literal 0x0
0062 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0063 7805 |x | Jump 0x69
0064 821d | | Call 0x1,0x1d
0065 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0066 7802 |x | Jump 0x69
0067 821e | | Call 0x1,0x1e
0068 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0069 00d8 | | Load_Top At_Offset_0
006a 00ca | | Action Exit_Nullary_Function
006b 0000 0000 | | .BLANK 0000[0x5]
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 4607 |F | Jump_Case 0x8
0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0075 7806 |x | Jump 0x7c ; case 0x1
0076 7809 |x | Jump 0x80 ; case 0x2
0077 780d |x | Jump 0x85 ; case 0x3
0078 7810 |x | Jump 0x89 ; case 0x4
0079 7811 |x | Jump 0x8b ; case 0x5
007a 7812 |x | Jump 0x8d ; case 0x6
007b 7815 |x | Jump 0x91 ; case 0x7
007c 00da | | Load_Top At_Offset_2
007d 0091 0125 | %| Action Push_String_Extended_Indexed,0x125 ; "CONTEXTE0"
007f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0080 00db | | Load_Top At_Offset_3
0081 00db | | Load_Top At_Offset_3
0082 00e0 | | Load_Encached Standard_Cache
0083 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0085 00da | | Load_Top At_Offset_2
0086 00e0 | | Load_Encached Standard_Cache
0087 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0089 00db | | Load_Top At_Offset_3
008a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008b 00db | | Load_Top At_Offset_3
008c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008d e20f | | Load 0x1,0xf
008e 00dc | | Load_Top At_Offset_4
008f 0267 | g | Execute Discrete,Predecessor
0090 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0091 e20f | | Load 0x1,0xf
0092 00dc | | Load_Top At_Offset_4
0093 0268 | h | Execute Discrete,Successor
0094 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
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 00da | | Load_Top At_Offset_2
009c e006 | | Load 0x0,0x6
009d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
009e e5fe | | Load 0x2,-0x2
009f e007 | | Load 0x0,0x7
00a0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00a1 027d | } | Execute Discrete,Greater
00a2 4402 |D | Exit_Subprogram With_Value,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 00da | | Load_Top At_Offset_2
00ac e001 | | Load 0x0,0x1
00ad 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00af e006 | | Load 0x0,0x6
00b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b1 00db | | Load_Top At_Offset_3
00b2 e001 | | Load 0x0,0x1
00b3 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00b4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b5 e007 | | Load 0x0,0x7
00b6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00b7 0272 | r | Execute Discrete,Minus
00b8 e5fe | | Load 0x2,-0x2
00b9 e001 | | Load 0x0,0x1
00ba 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bc e006 | | Load 0x0,0x6
00bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00be e5fe | | Load 0x2,-0x2
00bf e001 | | Load 0x0,0x1
00c0 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00c1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c2 e007 | | Load 0x0,0x7
00c3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00c4 0272 | r | Execute Discrete,Minus
00c5 027c | | | Execute Discrete,Less
00c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c7 0000 | | .XXX[0x1]
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 e006 | | Load 0x0,0x6
00cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00cd e006 | | Load 0x0,0x6
00ce 1a0f | | Execute Package,Field_Write,Field_Number 0xf
00cf e007 | | Load 0x0,0x7
00d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d1 e007 | | Load 0x0,0x7
00d2 1a10 | | Execute Package,Field_Write,Field_Number 0x10
00d3 6038 |`8 | Indirect_Literal Discrete,0x10c,{0x00000000, 0x000007d0}
00d4 e007 | | Load 0x0,0x7
00d5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00d6 e006 | | Load 0x0,0x6
00d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d8 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00d9 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00da e001 | | Load 0x0,0x1
00db 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00dd e211 | | Load 0x1,0x11
00de 016d | m | Execute Variant_Record,Structure_Write
00df e211 | | Load 0x1,0x11
00e0 e001 | | Load 0x0,0x1
00e1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e3 6804 |h | Jump_Zero 0xe8
00e4 4801 |H | Short_Literal 0x1
00e5 a210 | | Store_Unchecked 0x1,0x10
00e6 4801 |H | Short_Literal 0x1
00e7 00ca | | Action Exit_Nullary_Function
00e8 e211 | | Load 0x1,0x11
00e9 e001 | | Load 0x0,0x1
00ea 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ec 701a |p | Jump_Nonzero 0x107
00ed e211 | | Load 0x1,0x11
00ee 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00ef 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00f0 e001 | | Load 0x0,0x1
00f1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00f2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f3 e212 | | Load 0x1,0x12
00f4 016d | m | Execute Variant_Record,Structure_Write
00f5 0092 0128 | (| Action Push_String_Extended,0x128 ; " MEILLEUR COUPLE ACTUEL "
00f7 e001 | | Load 0x0,0x1
00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f9 e212 | | Load 0x1,0x12
00fa e001 | | Load 0x0,0x1
00fb 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00fd e006 | | Load 0x0,0x6
00fe 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ff e212 | | Load 0x1,0x12
0100 e001 | | Load 0x0,0x1
0101 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0102 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0103 e007 | | Load 0x0,0x7
0104 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0105 4801 |H | Short_Literal 0x1
0106 00ca | | Action Exit_Nullary_Function
0107 4800 |H | Short_Literal 0x0
0108 00ca | | Action Exit_Nullary_Function
0109 0000 0000 | | .XXX[0x3]
010b 0000 | |
010c 0000 0000 | | .LITERAL {0x00000000, 0x000007d0}
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e008 | | Load 0x0,0x8
0114 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0115 7004 |p | Jump_Nonzero 0x11a
0116 e008 | | Load 0x0,0x8
0117 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0118 4801 |H | Short_Literal 0x1
0119 00ca | | Action Exit_Nullary_Function
011a e008 | | Load 0x0,0x8
011b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
011c 6806 |h | Jump_Zero 0x123
011d e008 | | Load 0x0,0x8
011e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
011f e008 | | Load 0x0,0x8
0120 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0121 4800 |H | Short_Literal 0x0
0122 00ca | | Action Exit_Nullary_Function
0123 4800 |H | Short_Literal 0x0
0124 00ca | | Action Exit_Nullary_Function
0125 ; --------------------------------------------------------------------------------------
0125 ; STRING TABLE
0125 ; --------------------------------------------------------------------------------------
0125 000a | | .STRTAB 0x000a->0x012a ; "CONTEXTE0"
0126 0011 | | .STRTAB 0x0011->0x012e ; "CONTEXTE1"
0127 0018 | | .STRTAB 0x0018->0x0133 ; "CONTEXTE2"
0128 001f | | .STRTAB 0x001f->0x0137 ; " MEILLEUR COUPLE ACTUEL "
0129 0035 | 5 | .STREND 0x0035->0x0143
012a 434f 4e54 |CONT| .STRTAB_STRINGS
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0004 0001 | | .DEBUG4 0x0004,0x0001,0x64f1,0x0000,0x0001,0x0009
014e 000b 0172 | r| .DBG4T 0x000b,0x0172,0x8000,0x0000
0152 0010 0176 | v| .DBG4T 0x0010,0x0176,0x8000,0x0000
0156 004b 0184 | K | .DBG4T 0x004b,0x0184,0x0001,0x0000
015a 005b 0189 | [ | .DBG4T 0x005b,0x0189,0x0002,0x4000
015e 0073 0000 | s | .DBG4T 0x0073,0x0000,0x0005,0x0000
0162 009b 0196 | | .DBG4T 0x009b,0x0196,0x0002,0x0000
0166 00ab 0199 | | .DBG4T 0x00ab,0x0199,0x0002,0x0000
016a 00cb 019c | | .DBG4T 0x00cb,0x019c,0x0002,0x0000
016e 0113 01ab | | .DBG4T 0x0113,0x01ab,0x0002,0x0000
0172 ; --------------------------------------------------------------------------------------
0172 ; Debug chain
0172 ; --------------------------------------------------------------------------------------
0172 0002 0000 | | .DBGLEN 0x0002,0x0000
0174 000b 000d | | .DBGLNO 0x000b,0x000d
0176 ; --------------------------------------------------------------------------------------
0176 ; Debug chain
0176 ; --------------------------------------------------------------------------------------
0176 000c 0000 | | .DBGLEN 0x000c,0x0000
0178 0010 0015 | | .DBGLNO 0x0010,0x0015,0x0017,0x001d,0x0023,0x0025,0x002e,0x0030,0x0039,0x003b,0x003d,0x003f
0184 ; --------------------------------------------------------------------------------------
0184 ; Debug chain
0184 ; --------------------------------------------------------------------------------------
0184 0000 0003 | | .DBGLEN 0x0000,0x0003
0186 004b 004d | K M| .DBGLNO 0x004b,0x004d,0x004f
0189 ; --------------------------------------------------------------------------------------
0189 ; Debug chain
0189 ; --------------------------------------------------------------------------------------
0189 0001 0005 | | .DBGLEN 0x0001,0x0005
018b 005b 005c | [ \| .DBGLNO 0x005b,0x005c,0x0061,0x0064,0x0067,0x0069
0191 0001 0004 | | .XXX[0x5]
0193 0002 0003 | |
0195 0005 | |
0196 ; --------------------------------------------------------------------------------------
0196 ; Debug chain
0196 ; --------------------------------------------------------------------------------------
0196 0000 0001 | | .DBGLEN 0x0000,0x0001
0198 009b | | .DBGLNO 0x009b
0199 ; --------------------------------------------------------------------------------------
0199 ; Debug chain
0199 ; --------------------------------------------------------------------------------------
0199 0000 0001 | | .DBGLEN 0x0000,0x0001
019b 00ab | | .DBGLNO 0x00ab
019c ; --------------------------------------------------------------------------------------
019c ; Debug chain
019c ; --------------------------------------------------------------------------------------
019c 0000 000d | | .DBGLEN 0x0000,0x000d
019e 00cb 00cf | | .DBGLNO 0x00cb,0x00cf,0x00d3,0x00df,0x00e4,0x00e6,0x00e8,0x00ed,0x00f5,0x00f9,0x00ff,0x0105,0x0107
01ab ; --------------------------------------------------------------------------------------
01ab ; Debug chain
01ab ; --------------------------------------------------------------------------------------
01ab 0000 0008 | | .DBGLEN 0x0000,0x0008
01ad 0113 0116 | | .DBGLNO 0x0113,0x0116,0x0118,0x011a,0x011d,0x011f,0x0121,0x0123
01b5 0000 0000 | | .BLANK 0000[0x4b]