|
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_8fc0af
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x88, index=0x0 0008 ; -------------------------------------------------------------------------------------- 0008 0043 | C | .CONST 0x0043 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0011 4800 |H | Short_Literal 0x0 0012 0093 0083 | | push_full_address INIT_0080 0014 00f5 | | Load_Encached Unused21 0015 037e | ~ | Declare_Type Task,Defined,Visible 0016 036e | n | Declare_Variable Task,Visible 0017 4818 |H | Short_Literal 0x18 0018 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 0019 00bf | | Action Accept_Activation 001a e002 | | Load 0x0,0x2 001b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001c 02c7 | | Declare_Variable Any 001d 00d8 | | Load_Top At_Offset_0 001e 1c00 | | Execute_Immediate Run_Utility,0x0 001f e002 | | Load 0x0,0x2 0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0021 02c7 | | Declare_Variable Any 0022 00d8 | | Load_Top At_Offset_0 0023 1c00 | | Execute_Immediate Run_Utility,0x0 0024 e003 | | Load 0x0,0x3 0025 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0026 4801 |H | Short_Literal 0x1 0027 4808 |H | Short_Literal 0x8 0028 00e2 | | Load_Encached Integer_Cache 0029 03f8 | | Declare_Type Discrete,Constrained 002a 00d8 | | Load_Top At_Offset_0 002b e004 | | Load 0x0,0x4 002c 00d8 | | Load_Top At_Offset_0 002d 02a0 | | Declare_Subprogram Null_Subprogram 002e 4803 |H | Short_Literal 0x3 002f 032d | - | Declare_Type Record,Defined 0030 00d8 | | Load_Top At_Offset_0 0031 02a0 | | Declare_Subprogram Null_Subprogram 0032 e213 | | Load 0x1,0x13 0033 03c7 | | Complete_Type Access,By_Defining 0034 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0035 00c7 | | Action Elaborate_Subprogram 0036 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0037 00c7 | | Action Elaborate_Subprogram 0038 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0039 e005 | | Load 0x0,0x5 003a e006 | | Load 0x0,0x6 003b 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003c 1d16 | | Execute_Immediate Reference_Lex_1,0x16 003d 4805 |H | Short_Literal 0x5 003e e212 | | Load 0x1,0x12 003f 020e | | Execute Module,Augment_Imports 0040 0007 | | Action Break_Optional 0041 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0042 00c7 | | Action Elaborate_Subprogram 0043 BODY_0008: 0043 BODY_0008: 0043 00be | | Action Activate_Tasks 0044 00bc | | Action Signal_Activated 0045 00bb | | Action Signal_Completion 0046 0000 0000 | | .XXX[0x2] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004d | M | .CONST 0x004d ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0002 | | .CONST 0x0002 ; Number of locals 004b INIT_0048: 004b e213 | | Load 0x1,0x13 004c 0007 | | Action Break_Optional 004d BODY_0048: 004d e218 | | Load 0x1,0x18 004e 0322 | " | Declare_Variable Record 004f e5fd | | Load 0x2,-0x3 0050 00d9 | | Load_Top At_Offset_1 0051 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0052 e5fe | | Load 0x2,-0x2 0053 00d9 | | Load_Top At_Offset_1 0054 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0055 e5ff | | Load 0x2,-0x1 0056 00d9 | | Load_Top At_Offset_1 0057 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0058 e213 | | Load 0x1,0x13 0059 03b6 | | Declare_Variable Access,By_Allocation,With_Value 005a 0039 | 9 | Store_Top Access,At_Offset_1 005b e5fd | | Load 0x2,-0x3 005c 8007 | | Call 0x0,0x7 005d 00d8 | | Load_Top At_Offset_0 005e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 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 e5fb | | Load 0x2,-0x5 0064 e5fe | | Load 0x2,-0x2 0065 e5fc | | Load 0x2,-0x4 0066 e5fd | | Load 0x2,-0x3 0067 e5ff | | Load 0x2,-0x1 0068 0227 | ' | Execute Access,All_Reference 0069 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 006a 4805 |H | Short_Literal 0x5 006b e008 | | Load 0x0,0x8 006c e009 | | Load 0x0,0x9 006d 00ad | | QQ_Action Package,Field_Execute_Dynamic 006e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 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 0227 | ' | Execute Access,All_Reference 0075 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0076 800a | | Call 0x0,0xa 0077 e213 | | Load 0x1,0x13 0078 003b | ; | Store_Top Access,At_Offset_3 0079 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007a 0000 0000 | | .BLANK 0000[0x6] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0090 | | .CONST 0x0090 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0010 | | .CONST 0x0010 ; Number of locals 0083 INIT_0080: 0083 4802 |H | Short_Literal 0x2 0084 02cb | | Declare_Variable Entry 0085 00bf | | Action Accept_Activation 0086 00e2 | | Load_Encached Integer_Cache 0087 00e8 | | Load_Encached Character_Cache 0088 480d 4813 |H H | Declare_Variable Select 0x000, 0x001, 008a 4800 4801 |H H | [0x000]: 0x001 = 0x0008, 008c 4800 4801 |H H | [0x00d]: 0x013 = 0x0098 008e 02cf | | 008f 00bc | | Action Signal_Activated 0090 BODY_0080: 0090 00d8 | | Load_Top At_Offset_0 0091 013f | ? | Execute Select,Rendezvous 0092 00d1 | | Pop_Control Pop_Count_1 0093 00da | | Load_Top At_Offset_2 0094 00da | | Load_Top At_Offset_2 0095 8001 | | Call 0x0,0x1 0096 00bb | | Action Signal_Completion 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; See instruction 0x02cf at 0x88, index=0xd 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 0092 00b9 | | Action Push_String_Extended,0xb9 ; "je suis passe!" 009d e002 | | Load 0x0,0x2 009e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 009f 00cf | | Action Mark_Auxiliary 00a0 4be8 |K | Short_Literal 0x3e8 00a1 4801 |H | Short_Literal 0x1 00a2 0007 | | Action Break_Optional 00a3 e003 | | Load 0x0,0x3 00a4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00a5 e004 | | Load 0x0,0x4 00a6 e003 | | Load 0x0,0x3 00a7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00a8 c005 | | Store 0x0,0x5 00a9 0092 00ba | | Action Push_String_Extended,0xba ; "cnt =>" 00ab e005 | | Load 0x0,0x5 00ac 00e0 | | Load_Encached Standard_Cache 00ad 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ae 01cc | | Execute Vector,Catenate 00af e002 | | Load 0x0,0x2 00b0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00b1 00c8 | | Action Pop_Auxiliary_Range 00b2 3ff0 |? | Loop_Increasing 0xa3 00b3 00ce | | Action Pop_Auxiliary 00b4 4801 |H | Short_Literal 0x1 00b5 a20e | | Store_Unchecked 0x1,0xe 00b6 4842 |HB | Short_Literal 0x42 00b7 a20f | | Store_Unchecked 0x1,0xf 00b8 4100 |A | End_Rendezvous 0x0 00b9 ; -------------------------------------------------------------------------------------- 00b9 ; STRING TABLE 00b9 ; -------------------------------------------------------------------------------------- 00b9 0006 | | .STRTAB 0x0006->0x00bc ; "je suis passe!" 00ba 0012 | | .STRTAB 0x0012->0x00c3 ; "cnt =>" 00bb 0016 | | .STREND 0x0016->0x00c6 00bc 6a65 2073 |je s| .STRTAB_STRINGS 00c6 0000 0000 | | .XXX[0x2] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; Debug Table 00c8 ; -------------------------------------------------------------------------------------- 00c8 0004 000a | | .DEBUG4 0x0004,0x000a,0xc95c,0x0000,0x0001,0x0008 00ce 000b 00ee | | .DBG4T 0x000b,0x00ee,0xc000,0x8000 00d2 001a 00fa | | .DBG4T 0x001a,0x00fa,0xc000,0x8000 00d6 004b 010e | K | .DBG4T 0x004b,0x010e,0x1002,0x0000 00da 0063 0114 | c | .DBG4T 0x0063,0x0114,0x1001,0x0000 00de 0073 0117 | s | .DBG4T 0x0073,0x0117,0x1001,0x0000 00e2 0083 011b | | .DBG4T 0x0083,0x011b,0x0000,0x0000 00e6 0086 011e | | .DBG4T 0x0086,0x011e,0x0000,0x4000 00ea 009b 0126 | &| .DBG4T 0x009b,0x0126,0x0003,0x0000 00ee ; -------------------------------------------------------------------------------------- 00ee ; Debug chain 00ee ; -------------------------------------------------------------------------------------- 00ee 0005 0000 | | .DBGLEN 0x0005,0x0000 00f0 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0017 00f5 0002 0003 | | .XXX[0x5] 00f7 0004 0005 | | 00f9 0007 | | 00fa ; -------------------------------------------------------------------------------------- 00fa ; Debug chain 00fa ; -------------------------------------------------------------------------------------- 00fa 0009 0000 | | .DBGLEN 0x0009,0x0000 00fc 001a 001f | | .DBGLNO 0x001a,0x001f,0x0024,0x0026,0x002a,0x0034,0x0036,0x0038,0x0041 0105 0005 0006 | | .XXX[0x9] 0107 0007 0008 | | 0109 0009 000a | | 010b 000b 000c | | 010d 000d | | 010e ; -------------------------------------------------------------------------------------- 010e ; Debug chain 010e ; -------------------------------------------------------------------------------------- 010e 0001 0003 | | .DBGLEN 0x0001,0x0003 0110 004b 004d | K M| .DBGLNO 0x004b,0x004d,0x005b,0x005d 0114 ; -------------------------------------------------------------------------------------- 0114 ; Debug chain 0114 ; -------------------------------------------------------------------------------------- 0114 0000 0001 | | .DBGLEN 0x0000,0x0001 0116 0063 | c | .DBGLNO 0x0063 0117 ; -------------------------------------------------------------------------------------- 0117 ; Debug chain 0117 ; -------------------------------------------------------------------------------------- 0117 0000 0002 | | .DBGLEN 0x0000,0x0002 0119 0073 0077 | s w| .DBGLNO 0x0073,0x0077 011b ; -------------------------------------------------------------------------------------- 011b ; Debug chain 011b ; -------------------------------------------------------------------------------------- 011b 0001 0000 | | .DBGLEN 0x0001,0x0000 011d 0083 | | .DBGLNO 0x0083 011e ; -------------------------------------------------------------------------------------- 011e ; Debug chain 011e ; -------------------------------------------------------------------------------------- 011e 0002 0002 | | .DBGLEN 0x0002,0x0002 0120 0086 0087 | | .DBGLNO 0x0086,0x0087,0x0090,0x0093 0124 0001 0003 | | .XXX[0x2] 0126 ; -------------------------------------------------------------------------------------- 0126 ; Debug chain 0126 ; -------------------------------------------------------------------------------------- 0126 0000 0006 | | .DBGLEN 0x0000,0x0006 0128 009b 00a0 | | .DBGLNO 0x009b,0x00a0,0x00a3,0x00a9,0x00b4,0x00b6 012e 0000 0000 | | .BLANK 0000[0xd2]