|
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_2140b1
└─⟦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 0098 | | .CONST 0x0098 ; 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 4803 |H | Short_Literal 0x3 0011 8003 | | Call 0x0,0x3 0012 00d9 | | Load_Top At_Offset_1 0013 01d4 | | Execute Vector,Structure_Write 0014 029d 003b | ;| Declare_Subprogram INIT_0038,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 e5fd | | Load 0x2,-0x3 0024 e5fe | | Load 0x2,-0x2 0025 e5ff | | Load 0x2,-0x1 0026 820f | | Call 0x1,0xf 0027 00d2 | | Pop_Control Pop_Count_2 0028 00cf | | Action Mark_Auxiliary 0029 7806 |x | Jump 0x30 002a e5fd | | Load 0x2,-0x3 002b e5fe | | Load 0x2,-0x2 002c e5ff | | Load 0x2,-0x1 002d 820f | | Call 0x1,0xf 002e 00d2 | | Pop_Control Pop_Count_2 002f 00c9 | | Action Pop_Auxiliary_Loop 0030 e20e | | Load 0x1,0xe 0031 8004 | | Call 0x0,0x4 0032 8005 | | Call 0x0,0x5 0033 77f6 |w | Jump_Nonzero 0x2a 0034 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0035 0000 0000 | | .XXX[0x3] 0037 0000 | | 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0047 | G | .CONST 0x0047 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0003 | | .CONST 0x0003 ; Number of locals 003b INIT_0038: 003b 4820 |H | Short_Literal 0x20 003c e006 | | Load 0x0,0x6 003d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003e 1c08 | | Execute_Immediate Run_Utility,0x8 003f 00d8 | | Load_Top At_Offset_0 0040 1c00 | | Execute_Immediate Run_Utility,0x0 0041 4820 |H | Short_Literal 0x20 0042 e006 | | Load 0x0,0x6 0043 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0044 1c08 | | Execute_Immediate Run_Utility,0x8 0045 00d8 | | Load_Top At_Offset_0 0046 1c00 | | Execute_Immediate Run_Utility,0x0 0047 BODY_0038: 0047 8004 | | Call 0x0,0x4 0048 0f03 | | Execute_Immediate Equal,0x3 0049 6828 |h( | Jump_Zero 0x72 004a e5fd | | Load 0x2,-0x3 004b 8007 | | Call 0x0,0x7 004c 8008 | | Call 0x0,0x8 004d 6804 |h | Jump_Zero 0x52 004e 0092 0076 | v| Action Push_String_Extended,0x76 ; "Complement deja existant" 0050 8009 | | Call 0x0,0x9 0051 7803 |x | Jump 0x55 0052 e5fd | | Load 0x2,-0x3 0053 8007 | | Call 0x0,0x7 0054 800a | | Call 0x0,0xa 0055 00d9 | | Load_Top At_Offset_1 0056 8007 | | Call 0x0,0x7 0057 e006 | | Load 0x0,0x6 0058 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0059 00d1 | | Pop_Control Pop_Count_1 005a 800b | | Call 0x0,0xb 005b 8004 | | Call 0x0,0x4 005c 0f21 | ! | Execute_Immediate Equal,0x21 005d 6810 |h | Jump_Zero 0x6e 005e 800b | | Call 0x0,0xb 005f 00d8 | | Load_Top At_Offset_0 0060 e5ff | | Load 0x2,-0x1 0061 800c | | Call 0x0,0xc 0062 00d1 | | Pop_Control Pop_Count_1 0063 e5fe | | Load 0x2,-0x2 0064 00d9 | | Load_Top At_Offset_1 0065 e006 | | Load 0x0,0x6 0066 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0067 00db | | Load_Top At_Offset_3 0068 e006 | | Load 0x0,0x6 0069 1813 | | Execute Package,Field_Execute,Field_Number 0x13 006a e5ff | | Load 0x2,-0x1 006b 800d | | Call 0x0,0xd 006c 00d1 | | Pop_Control Pop_Count_1 006d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006e 0092 0077 | w| Action Push_String_Extended,0x77 ; "Manque Objet" 0070 800e | | Call 0x0,0xe 0071 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0072 0092 0078 | x| Action Push_String_Extended,0x78 ; "Manque Nom Objet" 0074 800e | | Call 0x0,0xe 0075 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0076 ; -------------------------------------------------------------------------------------- 0076 ; STRING TABLE 0076 ; -------------------------------------------------------------------------------------- 0076 0008 | | .STRTAB 0x0008->0x007a ; "Complement deja existant" 0077 001e | | .STRTAB 0x001e->0x0086 ; "Manque Objet" 0078 0028 | ( | .STRTAB 0x0028->0x008c ; "Manque Nom Objet" 0079 0036 | 6 | .STREND 0x0036->0x0094 007a 436f 6d70 |Comp| .STRTAB_STRINGS 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; Debug Table 0098 ; -------------------------------------------------------------------------------------- 0098 0004 0008 | | .DEBUG4 0x0004,0x0008,0xb488,0x0000,0x0001,0x0004 009e 000b 00ae | | .DBG4T 0x000b,0x00ae,0x8000,0x0000 00a2 000e 00b1 | | .DBG4T 0x000e,0x00b1,0x8000,0x0000 00a6 0023 00b6 | # | .DBG4T 0x0023,0x00b6,0x0001,0x4000 00aa 003b 00be | ; | .DBG4T 0x003b,0x00be,0x0001,0x0000 00ae ; -------------------------------------------------------------------------------------- 00ae ; Debug chain 00ae ; -------------------------------------------------------------------------------------- 00ae 0001 0000 | | .DBGLEN 0x0001,0x0000 00b0 000b | | .DBGLNO 0x000b 00b1 ; -------------------------------------------------------------------------------------- 00b1 ; Debug chain 00b1 ; -------------------------------------------------------------------------------------- 00b1 0003 0000 | | .DBGLEN 0x0003,0x0000 00b3 000e 0014 | | .DBGLNO 0x000e,0x0014,0x0016 00b6 ; -------------------------------------------------------------------------------------- 00b6 ; Debug chain 00b6 ; -------------------------------------------------------------------------------------- 00b6 0000 0003 | | .DBGLEN 0x0000,0x0003 00b8 0023 002a | # *| .DBGLNO 0x0023,0x002a,0x0030 00bb 0001 0003 | | .XXX[0x3] 00bd 0002 | | 00be ; -------------------------------------------------------------------------------------- 00be ; Debug chain 00be ; -------------------------------------------------------------------------------------- 00be 0002 000c | | .DBGLEN 0x0002,0x000c 00c0 003b 0041 | ; A| .DBGLNO 0x003b,0x0041,0x0047,0x004a,0x004e,0x0052,0x0055,0x005a,0x005b,0x005e,0x005f,0x0063,0x006e,0x0072 00ce 0000 0000 | | .BLANK 0000[0x132]