|
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_7494c7
└─⟦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 00c8 | | .CONST 0x00c8 ; 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 0032 | 2 | .CONST 0x0032 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 6033 |`3 | Indirect_Literal Discrete,0x40,{0x00000000, 0x00000fa0}
000d 00e3 | | Load_Encached Natural_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 0092 00ba | | Action Push_String_Extended,0xba ; "Carte"
0011 0129 | ) | Execute Any,Make_Visible
0012 0092 00bb | | Action Push_String_Extended,0xbb ; "Fin Carte"
0014 0129 | ) | Execute Any,Make_Visible
0015 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0017 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
0019 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
001b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
001d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
001f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0021 e20d | | Load 0x1,0xd
0022 02a0 | | Declare_Subprogram Null_Subprogram
0023 4801 |H | Short_Literal 0x1
0024 032e | . | Declare_Type Record,Defined,Visible
0025 00bf | | Action Accept_Activation
0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0027 00c7 | | Action Elaborate_Subprogram
0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0029 00c7 | | Action Elaborate_Subprogram
002a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002b 00c7 | | Action Elaborate_Subprogram
002c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
002d 00c7 | | Action Elaborate_Subprogram
002e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
002f 00c7 | | Action Elaborate_Subprogram
0030 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0031 00c7 | | Action Elaborate_Subprogram
0032 BODY_0008:
0032 00bc | | Action Signal_Activated
0033 00bb | | Action Signal_Completion
0034 0000 0000 | | .BLANK 0000[0x4]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 00db | | Load_Top At_Offset_3
003c 00db | | Load_Top At_Offset_3
003d 8211 | | Call 0x1,0x11
003e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
003f 0000 | | .XXX[0x1]
0040 0000 0000 | | .LITERAL {0x00000000, 0x00000fa0}
0044 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
004c e5fe | | Load 0x2,-0x2
004d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0055 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0056 0000 0000 | | .XXX[0x2]
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 4823 |H# | Short_Literal 0x23
005c e20e | | Load 0x1,0xe
005d e5ff | | Load 0x2,-0x1
005e 8212 | | Call 0x1,0x12
005f 00e0 | | Load_Encached Standard_Cache
0060 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0061 8002 | | Call 0x0,0x2
0062 01cc | | Execute Vector,Catenate
0063 01cb | | Execute Vector,Append
0064 e20f | | Load 0x1,0xf
0065 01cc | | Execute Vector,Catenate
0066 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006e | n | .CONST 0x006e ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b e216 | | Load 0x1,0x16
006c 0322 | " | Declare_Variable Record
006d 00e3 | | Load_Encached Natural_Cache
006e BODY_0068:
006e 00d8 | | Load_Top At_Offset_0
006f 00da | | Load_Top At_Offset_2
0070 e5ff | | Load 0x2,-0x1
0071 8215 | | Call 0x1,0x15
0072 00d1 | | Pop_Control Pop_Count_1
0073 0059 | Y | Store_Top Discrete,At_Offset_1
0074 00d9 | | Load_Top At_Offset_1
0075 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007e | ~ | .CONST 0x007e ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0004 | | .CONST 0x0004 ; Number of locals
007b INIT_0078:
007b 00e3 | | Load_Encached Natural_Cache
007c 03e9 | | Declare_Variable Discrete,Duplicate
007d 03e9 | | Declare_Variable Discrete,Duplicate
007e BODY_0078:
007e 00da | | Load_Top At_Offset_2
007f e20e | | Load 0x1,0xe
0080 e5ff | | Load 0x2,-0x1
0081 8003 | | Call 0x0,0x3
0082 005b | [ | Store_Top Discrete,At_Offset_3
0083 00d9 | | Load_Top At_Offset_1
0084 4823 |H# | Short_Literal 0x23
0085 e402 | | Load 0x2,0x2
0086 0a01 | | Execute_Immediate Plus,0x1
0087 00d8 | | Load_Top At_Offset_0
0088 00e2 | | Load_Encached Integer_Cache
0089 0260 | ` | Execute Discrete,In_Type
008a 7001 |p | Jump_Nonzero 0x8c
008b 0801 | | Execute_Immediate Raise,0x1
008c e5ff | | Load 0x2,-0x1
008d 01dc | | Execute Vector,Last
008e e5ff | | Load 0x2,-0x1
008f 01cf | | Execute Vector,Slice_Read
0090 8004 | | Call 0x0,0x4
0091 005a | Z | Store_Top Discrete,At_Offset_2
0092 00d8 | | Load_Top At_Offset_0
0093 e20f | | Load 0x1,0xf
0094 00db | | Load_Top At_Offset_3
0095 0a01 | | Execute_Immediate Plus,0x1
0096 00d8 | | Load_Top At_Offset_0
0097 00e2 | | Load_Encached Integer_Cache
0098 0260 | ` | Execute Discrete,In_Type
0099 7001 |p | Jump_Nonzero 0x9b
009a 0801 | | Execute_Immediate Raise,0x1
009b e5ff | | Load 0x2,-0x1
009c 01dc | | Execute Vector,Last
009d e5ff | | Load 0x2,-0x1
009e 01cf | | Execute Vector,Slice_Read
009f 8003 | | Call 0x0,0x3
00a0 0059 | Y | Store_Top Discrete,At_Offset_1
00a1 e5fe | | Load 0x2,-0x2
00a2 00db | | Load_Top At_Offset_3
00a3 0a01 | | Execute_Immediate Plus,0x1
00a4 00d8 | | Load_Top At_Offset_0
00a5 00e2 | | Load_Encached Integer_Cache
00a6 0260 | ` | Execute Discrete,In_Type
00a7 7001 |p | Jump_Nonzero 0xa9
00a8 0801 | | Execute_Immediate Raise,0x1
00a9 00db | | Load_Top At_Offset_3
00aa 0aff | | Execute_Immediate Plus,-0x1
00ab e5ff | | Load 0x2,-0x1
00ac 01cf | | Execute Vector,Slice_Read
00ad 00e2 | | Load_Encached Integer_Cache
00ae 00e0 | | Load_Encached Standard_Cache
00af 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00b0 00d8 | | Load_Top At_Offset_0
00b1 e20d | | Load 0x1,0xd
00b2 0260 | ` | Execute Discrete,In_Type
00b3 7001 |p | Jump_Nonzero 0xb5
00b4 0801 | | Execute_Immediate Raise,0x1
00b5 8210 | | Call 0x1,0x10
00b6 00d1 | | Pop_Control Pop_Count_1
00b7 00d8 | | Load_Top At_Offset_0
00b8 a5fd | | Store_Unchecked 0x2,-0x3
00b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ba ; --------------------------------------------------------------------------------------
00ba ; STRING TABLE
00ba ; --------------------------------------------------------------------------------------
00ba 0006 | | .STRTAB 0x0006->0x00bd ; "Carte"
00bb 0009 | | .STRTAB 0x0009->0x00bf ; "Fin Carte"
00bc 0010 | | .STREND 0x0010->0x00c4
00bd 4361 7274 |Cart| .STRTAB_STRINGS
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; Debug Table
00c8 ; --------------------------------------------------------------------------------------
00c8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x6f54,0x0000,0x0001,0x0008
00ce 000b 00ee | | .DBG4T 0x000b,0x00ee,0x8000,0x8000
00d2 0026 0104 | & | .DBG4T 0x0026,0x0104,0x8000,0x8000
00d6 003b 0112 | ; | .DBG4T 0x003b,0x0112,0x0001,0x0000
00da 004b 0115 | K | .DBG4T 0x004b,0x0115,0x0001,0x0000
00de 0053 0118 | S | .DBG4T 0x0053,0x0118,0x0002,0x0000
00e2 005b 011b | [ | .DBG4T 0x005b,0x011b,0x0002,0x0000
00e6 006b 011e | k | .DBG4T 0x006b,0x011e,0x0002,0x0000
00ea 007b 0124 | { $| .DBG4T 0x007b,0x0124,0x0001,0x0000
00ee ; --------------------------------------------------------------------------------------
00ee ; Debug chain
00ee ; --------------------------------------------------------------------------------------
00ee 000a 0000 | | .DBGLEN 0x000a,0x0000
00f0 000b 000f | | .DBGLNO 0x000b,0x000f,0x0012,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021
00fa 0002 0003 | | .XXX[0xa]
00fc 0004 0007 | |
00fe 0008 0009 | |
0100 000a 000b | |
0102 000c 000d | |
0104 ; --------------------------------------------------------------------------------------
0104 ; Debug chain
0104 ; --------------------------------------------------------------------------------------
0104 0006 0000 | | .DBGLEN 0x0006,0x0000
0106 0026 0028 | & (| .DBGLNO 0x0026,0x0028,0x002a,0x002c,0x002e,0x0030
010c 0002 0003 | | .XXX[0x6]
010e 0004 0005 | |
0110 0006 0007 | |
0112 ; --------------------------------------------------------------------------------------
0112 ; Debug chain
0112 ; --------------------------------------------------------------------------------------
0112 0000 0001 | | .DBGLEN 0x0000,0x0001
0114 003b | ; | .DBGLNO 0x003b
0115 ; --------------------------------------------------------------------------------------
0115 ; Debug chain
0115 ; --------------------------------------------------------------------------------------
0115 0000 0001 | | .DBGLEN 0x0000,0x0001
0117 004b | K | .DBGLNO 0x004b
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug chain
0118 ; --------------------------------------------------------------------------------------
0118 0000 0001 | | .DBGLEN 0x0000,0x0001
011a 0053 | S | .DBGLNO 0x0053
011b ; --------------------------------------------------------------------------------------
011b ; Debug chain
011b ; --------------------------------------------------------------------------------------
011b 0000 0001 | | .DBGLEN 0x0000,0x0001
011d 005b | [ | .DBGLNO 0x005b
011e ; --------------------------------------------------------------------------------------
011e ; Debug chain
011e ; --------------------------------------------------------------------------------------
011e 0002 0002 | | .DBGLEN 0x0002,0x0002
0120 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x006e,0x0074
0124 ; --------------------------------------------------------------------------------------
0124 ; Debug chain
0124 ; --------------------------------------------------------------------------------------
0124 0001 0005 | | .DBGLEN 0x0001,0x0005
0126 007b 007e | { ~| .DBGLNO 0x007b,0x007e,0x0083,0x0092,0x00a1,0x00b7
012c 0000 0000 | | .BLANK 0000[0xd4]