|
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_20c0b1
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 0018 | | .CONST 0x0018 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e e002 | | Load 0x0,0x2
000f 0337 | 7 | Declare_Variable Array
0010 4824 |H$ | Short_Literal 0x24
0011 8003 | | Call 0x0,0x3
0012 00d9 | | Load_Top At_Offset_1
0013 01d4 | | Execute Vector,Structure_Write
0014 029d 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call
0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0017 00c7 | | Action Elaborate_Subprogram
0018 BODY_0008:
0018 00bc | | Action Signal_Activated
0019 00bb | | Action Signal_Completion
001a 0000 0000 | | .BLANK 0000[0x6]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023 | # | .CONST 0x0023 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0001 | | .CONST 0x0001 ; Number of locals
0023 BODY_0020:
0023 INIT_0020:
0023 00cf | | Action Mark_Auxiliary
0024 7804 |x | Jump 0x29
0025 00db | | Load_Top At_Offset_3
0026 820f | | Call 0x1,0xf
0027 00d1 | | Pop_Control Pop_Count_1
0028 00c9 | | Action Pop_Auxiliary_Loop
0029 e20e | | Load 0x1,0xe
002a 8004 | | Call 0x0,0x4
002b 8005 | | Call 0x0,0x5
002c 77f8 |w | Jump_Nonzero 0x25
002d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
002e 0000 0000 | | .XXX[0x2]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0041 | A | .CONST 0x0041 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0004 | | .CONST 0x0004 ; Number of locals
0033 INIT_0030:
0033 4820 |H | Short_Literal 0x20
0034 e006 | | Load 0x0,0x6
0035 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0036 1c08 | | Execute_Immediate Run_Utility,0x8
0037 00d8 | | Load_Top At_Offset_0
0038 1c00 | | Execute_Immediate Run_Utility,0x0
0039 4820 |H | Short_Literal 0x20
003a e006 | | Load 0x0,0x6
003b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003c 1c08 | | Execute_Immediate Run_Utility,0x8
003d 00d8 | | Load_Top At_Offset_0
003e 1c00 | | Execute_Immediate Run_Utility,0x0
003f e007 | | Load 0x0,0x7
0040 0007 | | Action Break_Optional
0041 BODY_0030:
0041 00da | | Load_Top At_Offset_2
0042 e006 | | Load 0x0,0x6
0043 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0044 00d1 | | Pop_Control Pop_Count_1
0045 00d9 | | Load_Top At_Offset_1
0046 e006 | | Load 0x0,0x6
0047 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0048 00d1 | | Pop_Control Pop_Count_1
0049 8004 | | Call 0x0,0x4
004a 0f24 | $ | Execute_Immediate Equal,0x24
004b 6864 |hd | Jump_Zero 0xb0
004c 8008 | | Call 0x0,0x8
004d 8004 | | Call 0x0,0x4
004e 0f0a | | Execute_Immediate Equal,0xa
004f 685c |h\ | Jump_Zero 0xac
0050 8008 | | Call 0x0,0x8
0051 8004 | | Call 0x0,0x4
0052 0f03 | | Execute_Immediate Equal,0x3
0053 6854 |hT | Jump_Zero 0xa8
0054 00da | | Load_Top At_Offset_2
0055 8009 | | Call 0x0,0x9
0056 e006 | | Load 0x0,0x6
0057 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0058 00d1 | | Pop_Control Pop_Count_1
0059 8008 | | Call 0x0,0x8
005a 8004 | | Call 0x0,0x4
005b 0f0c | | Execute_Immediate Equal,0xc
005c 6847 |hG | Jump_Zero 0xa4
005d 8008 | | Call 0x0,0x8
005e 8004 | | Call 0x0,0x4
005f 0f03 | | Execute_Immediate Equal,0x3
0060 683f |h? | Jump_Zero 0xa0
0061 00d9 | | Load_Top At_Offset_1
0062 8009 | | Call 0x0,0x9
0063 e006 | | Load 0x0,0x6
0064 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0065 00d1 | | Pop_Control Pop_Count_1
0066 8008 | | Call 0x0,0x8
0067 8004 | | Call 0x0,0x4
0068 0f0c | | Execute_Immediate Equal,0xc
0069 6832 |h2 | Jump_Zero 0x9c
006a 8008 | | Call 0x0,0x8
006b e007 | | Load 0x0,0x7
006c 800a | | Call 0x0,0xa
006d 0059 | Y | Store_Top Discrete,At_Offset_1
006e 8004 | | Call 0x0,0x4
006f 0f0b | | Execute_Immediate Equal,0xb
0070 6827 |h' | Jump_Zero 0x98
0071 8008 | | Call 0x0,0x8
0072 e5ff | | Load 0x2,-0x1
0073 00da | | Load_Top At_Offset_2
0074 e006 | | Load 0x0,0x6
0075 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0076 e402 | | Load 0x2,0x2
0077 e006 | | Load 0x0,0x6
0078 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0079 800b | | Call 0x0,0xb
007a 6804 |h | Jump_Zero 0x7f
007b 0092 00b4 | | Action Push_String_Extended,0xb4 ; "Dipplication de Lien !"
007d 800c | | Call 0x0,0xc
007e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007f 00d8 | | Load_Top At_Offset_0
0080 0f2d | - | Execute_Immediate Equal,0x2d
0081 680b |h | Jump_Zero 0x8d
0082 e5ff | | Load 0x2,-0x1
0083 4801 |H | Short_Literal 0x1
0084 00db | | Load_Top At_Offset_3
0085 e006 | | Load 0x0,0x6
0086 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0087 e402 | | Load 0x2,0x2
0088 e006 | | Load 0x0,0x6
0089 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008a 800d | | Call 0x0,0xd
008b 00d1 | | Pop_Control Pop_Count_1
008c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008d e5ff | | Load 0x2,-0x1
008e 4802 |H | Short_Literal 0x2
008f 00db | | Load_Top At_Offset_3
0090 e006 | | Load 0x0,0x6
0091 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0092 e402 | | Load 0x2,0x2
0093 e006 | | Load 0x0,0x6
0094 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0095 800d | | Call 0x0,0xd
0096 00d1 | | Pop_Control Pop_Count_1
0097 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0098 0092 00b5 | | Action Push_String_Extended,0xb5 ; "Manque )"
009a 800e | | Call 0x0,0xe
009b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009c 0092 00b6 | | Action Push_String_Extended,0xb6 ; "Manque ,"
009e 800e | | Call 0x0,0xe
009f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a0 0092 00b7 | | Action Push_String_Extended,0xb7 ; "Mauvais id"
00a2 800e | | Call 0x0,0xe
00a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a4 0092 00b6 | | Action Push_String_Extended,0xb6 ; "Manque ,"
00a6 800e | | Call 0x0,0xe
00a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a8 0092 00b7 | | Action Push_String_Extended,0xb7 ; "Mauvais id"
00aa 800e | | Call 0x0,0xe
00ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ac 0092 00b8 | | Action Push_String_Extended,0xb8 ; "Manque ("
00ae 800e | | Call 0x0,0xe
00af 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b0 0092 00b9 | | Action Push_String_Extended,0xb9 ; "Manque CREER_LIEN"
00b2 800e | | Call 0x0,0xe
00b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b4 ; --------------------------------------------------------------------------------------
00b4 ; STRING TABLE
00b4 ; --------------------------------------------------------------------------------------
00b4 000e | | .STRTAB 0x000e->0x00bb ; "Dipplication de Lien !"
00b5 0022 | " | .STRTAB 0x0022->0x00c6 ; "Manque )"
00b6 0028 | ( | .STRTAB 0x0028->0x00ca ; "Manque ,"
00b7 002e | . | .STRTAB 0x002e->0x00ce ; "Mauvais id"
00b8 0036 | 6 | .STRTAB 0x0036->0x00d3 ; "Manque ("
00b9 003c | < | .STRTAB 0x003c->0x00d7 ; "Manque CREER_LIEN"
00ba 004b | K | .STREND 0x004b->0x00df
00bb 4469 7070 |Dipp| .STRTAB_STRINGS
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xb469,0x0000,0x0001,0x0004
00e6 000b 00f6 | | .DBG4T 0x000b,0x00f6,0x8000,0x0000
00ea 000e 00f9 | | .DBG4T 0x000e,0x00f9,0x8000,0x0000
00ee 0023 00fe | # | .DBG4T 0x0023,0x00fe,0x0001,0x4000
00f2 0033 0104 | 3 | .DBG4T 0x0033,0x0104,0x0001,0x0000
00f6 ; --------------------------------------------------------------------------------------
00f6 ; Debug chain
00f6 ; --------------------------------------------------------------------------------------
00f6 0001 0000 | | .DBGLEN 0x0001,0x0000
00f8 000b | | .DBGLNO 0x000b
00f9 ; --------------------------------------------------------------------------------------
00f9 ; Debug chain
00f9 ; --------------------------------------------------------------------------------------
00f9 0003 0000 | | .DBGLEN 0x0003,0x0000
00fb 000e 0014 | | .DBGLNO 0x000e,0x0014,0x0016
00fe ; --------------------------------------------------------------------------------------
00fe ; Debug chain
00fe ; --------------------------------------------------------------------------------------
00fe 0000 0002 | | .DBGLEN 0x0000,0x0002
0100 0025 0029 | % )| .DBGLNO 0x0025,0x0029
0102 0002 0001 | | .XXX[0x2]
0104 ; --------------------------------------------------------------------------------------
0104 ; Debug chain
0104 ; --------------------------------------------------------------------------------------
0104 0003 001f | | .DBGLEN 0x0003,0x001f
0106 0033 0039 | 3 9| .DBGLNO 0x0033,0x0039,0x003f,0x0041,0x0045,0x0049,0x004c,0x004d,0x0050,0x0051,0x0054,0x0059,0x005a,0x005d,0x005e,0x0061,0x0066,0x0067,0x006a,0x006b,0x006e,0x0071,0x0072,0x007b,0x007f,0x0082,0x008d,0x0098,0x009c,0x00a0,0x00a4,0x00a8,0x00ac,0x00b0
0128 0000 0000 | | .BLANK 0000[0xd8]