|
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_19949d
└─⟦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 00e8 | | .CONST 0x00e8 ; 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 001f | | .CONST 0x001f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4801 |H | Short_Literal 0x1 000d 029f 002b | +| Declare_Subprogram INIT_0028,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0012 00bf | | Action Accept_Activation 0013 e002 | | Load 0x0,0x2 0014 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0015 029d 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call 0017 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call 0019 029d 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call 001b 029d 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call 001d 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001e 00c7 | | Action Elaborate_Subprogram 001f BODY_0008: 001f 00bc | | Action Signal_Activated 0020 00bb | | Action Signal_Completion 0021 0000 0000 | | .BLANK 0000[0x7] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 4607 |F | Jump_Case 0x8 002c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 002d 7807 |x | Jump 0x35 ; case 0x1 002e 780a |x | Jump 0x39 ; case 0x2 002f 780e |x | Jump 0x3e ; case 0x3 0030 7811 |x | Jump 0x42 ; case 0x4 0031 7812 |x | Jump 0x44 ; case 0x5 0032 7813 |x | Jump 0x46 ; case 0x6 0033 7816 |x | Jump 0x4a ; case 0x7 0034 4302 |C | .XXX[0x1] 0035 00da | | Load_Top At_Offset_2 0036 0091 00db | | Action Push_String_Extended_Indexed,0xdb ; "PREPOSITION" 0038 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0039 00db | | Load_Top At_Offset_3 003a 00db | | Load_Top At_Offset_3 003b 00e0 | | Load_Encached Standard_Cache 003c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 003d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003e 00da | | Load_Top At_Offset_2 003f 00e0 | | Load_Encached Standard_Cache 0040 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0041 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0042 00db | | Load_Top At_Offset_3 0043 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0044 00db | | Load_Top At_Offset_3 0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0046 e20d | | Load 0x1,0xd 0047 00dc | | Load_Top At_Offset_4 0048 0267 | g | Execute Discrete,Predecessor 0049 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 004a e20d | | Load 0x1,0xd 004b 00dc | | Load_Top At_Offset_4 004c 0268 | h | Execute Discrete,Successor 004d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 004e 0000 0000 | | .XXX[0x2] 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 e5fd | | Load 0x2,-0x3 0054 e5fe | | Load 0x2,-0x2 0055 e5ff | | Load 0x2,-0x1 0056 8213 | | Call 0x1,0x13 0057 c5fe | | Store 0x2,-0x2 0058 c5fd | | Store 0x2,-0x3 0059 00db | | Load_Top At_Offset_3 005a 6807 |h | Jump_Zero 0x62 005b e5fd | | Load 0x2,-0x3 005c e5fe | | Load 0x2,-0x2 005d e5ff | | Load 0x2,-0x1 005e 820e | | Call 0x1,0xe 005f c5fe | | Store 0x2,-0x2 0060 c5fd | | Store 0x2,-0x3 0061 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0062 4801 |H | Short_Literal 0x1 0063 a5fe | | Store_Unchecked 0x2,-0x2 0064 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 006c 0f01 | | Execute_Immediate Equal,0x1 006d 7002 |p | Jump_Nonzero 0x70 006e 8003 | | Call 0x0,0x3 006f 7801 |x | Jump 0x71 0070 8004 | | Call 0x0,0x4 0071 00db | | Load_Top At_Offset_3 0072 8005 | | Call 0x0,0x5 0073 e5fd | | Load 0x2,-0x3 0074 8006 | | Call 0x0,0x6 0075 e5fc | | Load 0x2,-0x4 0076 8007 | | Call 0x0,0x7 0077 c5fc | | Store 0x2,-0x4 0078 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0079 0000 0000 | | .BLANK 0000[0x7] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 8008 | | Call 0x0,0x8 0084 0f39 | 9 | Execute_Immediate Equal,0x39 0085 6814 |h | Jump_Zero 0x9a 0086 8008 | | Call 0x0,0x8 0087 0f44 | D | Execute_Immediate Equal,0x44 0088 680e |h | Jump_Zero 0x97 0089 e5fc | | Load 0x2,-0x4 008a e5fe | | Load 0x2,-0x2 008b 8009 | | Call 0x0,0x9 008c e5ff | | Load 0x2,-0x1 008d 8210 | | Call 0x1,0x10 008e c5fc | | Store 0x2,-0x4 008f e5fc | | Load 0x2,-0x4 0090 e5fd | | Load 0x2,-0x3 0091 e5fe | | Load 0x2,-0x2 0092 e5ff | | Load 0x2,-0x1 0093 8211 | | Call 0x1,0x11 0094 c5fd | | Store 0x2,-0x3 0095 c5fc | | Store 0x2,-0x4 0096 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0097 4800 |H | Short_Literal 0x0 0098 a5fd | | Store_Unchecked 0x2,-0x3 0099 4503 |E | Exit_Suprogram New_Top_Offset 0x3 009a 4801 |H | Short_Literal 0x1 009b a5fd | | Store_Unchecked 0x2,-0x3 009c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 8008 | | Call 0x0,0x8 00a4 0f3a | : | Execute_Immediate Equal,0x3a 00a5 6814 |h | Jump_Zero 0xba 00a6 8008 | | Call 0x0,0x8 00a7 0f44 | D | Execute_Immediate Equal,0x44 00a8 680e |h | Jump_Zero 0xb7 00a9 e5fc | | Load 0x2,-0x4 00aa e5fe | | Load 0x2,-0x2 00ab 8009 | | Call 0x0,0x9 00ac e5ff | | Load 0x2,-0x1 00ad 8210 | | Call 0x1,0x10 00ae c5fc | | Store 0x2,-0x4 00af e5fc | | Load 0x2,-0x4 00b0 e5fd | | Load 0x2,-0x3 00b1 e5fe | | Load 0x2,-0x2 00b2 e5ff | | Load 0x2,-0x1 00b3 8211 | | Call 0x1,0x11 00b4 c5fd | | Store 0x2,-0x3 00b5 c5fc | | Store 0x2,-0x4 00b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b7 4800 |H | Short_Literal 0x0 00b8 a5fd | | Store_Unchecked 0x2,-0x3 00b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ba 4801 |H | Short_Literal 0x1 00bb a5fd | | Store_Unchecked 0x2,-0x3 00bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 800a | | Call 0x0,0xa 00c4 0f44 | D | Execute_Immediate Equal,0x44 00c5 6812 |h | Jump_Zero 0xd8 00c6 e20f | | Load 0x1,0xf 00c7 8009 | | Call 0x0,0x9 00c8 800b | | Call 0x0,0xb 00c9 c20f | | Store 0x1,0xf 00ca e5fd | | Load 0x2,-0x3 00cb e20f | | Load 0x1,0xf 00cc 8009 | | Call 0x0,0x9 00cd e5ff | | Load 0x2,-0x1 00ce 8210 | | Call 0x1,0x10 00cf c5fd | | Store 0x2,-0x3 00d0 e5fd | | Load 0x2,-0x3 00d1 e5fe | | Load 0x2,-0x2 00d2 e20f | | Load 0x1,0xf 00d3 e5ff | | Load 0x2,-0x1 00d4 8212 | | Call 0x1,0x12 00d5 c5fe | | Store 0x2,-0x2 00d6 c5fd | | Store 0x2,-0x3 00d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d8 4800 |H | Short_Literal 0x0 00d9 a5fe | | Store_Unchecked 0x2,-0x2 00da 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00db ; -------------------------------------------------------------------------------------- 00db ; STRING TABLE 00db ; -------------------------------------------------------------------------------------- 00db 0006 | | .STRTAB 0x0006->0x00de ; "PREPOSITION" 00dc 000f | | .STRTAB 0x000f->0x00e3 ; "VERBE" 00dd 0012 | | .STREND 0x0012->0x00e6 00de 5052 4550 |PREP| .STRTAB_STRINGS 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; Debug Table 00e8 ; -------------------------------------------------------------------------------------- 00e8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xad9e,0x0000,0x0001,0x0008 00ee 000b 010e | | .DBG4T 0x000b,0x010e,0x8000,0x0000 00f2 0013 0112 | | .DBG4T 0x0013,0x0112,0x8000,0x0000 00f6 002b 0000 | + | .DBG4T 0x002b,0x0000,0x0005,0x0000 00fa 0053 011a | S | .DBG4T 0x0053,0x011a,0x0001,0x0000 00fe 006b 0120 | k | .DBG4T 0x006b,0x0120,0x0001,0x4000 0102 0083 012e | .| .DBG4T 0x0083,0x012e,0x0001,0x0000 0106 00a3 0136 | 6| .DBG4T 0x00a3,0x0136,0x0001,0x0000 010a 00c3 013e | >| .DBG4T 0x00c3,0x013e,0x0001,0x0000 010e ; -------------------------------------------------------------------------------------- 010e ; Debug chain 010e ; -------------------------------------------------------------------------------------- 010e 0002 0000 | | .DBGLEN 0x0002,0x0000 0110 000b 0010 | | .DBGLNO 0x000b,0x0010 0112 ; -------------------------------------------------------------------------------------- 0112 ; Debug chain 0112 ; -------------------------------------------------------------------------------------- 0112 0006 0000 | | .DBGLEN 0x0006,0x0000 0114 0013 0015 | | .DBGLNO 0x0013,0x0015,0x0017,0x0019,0x001b,0x001d 011a ; -------------------------------------------------------------------------------------- 011a ; Debug chain 011a ; -------------------------------------------------------------------------------------- 011a 0000 0004 | | .DBGLEN 0x0000,0x0004 011c 0053 0059 | S Y| .DBGLNO 0x0053,0x0059,0x005b,0x0062 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug chain 0120 ; -------------------------------------------------------------------------------------- 0120 0000 0006 | | .DBGLEN 0x0000,0x0006 0122 006b 006e | k n| .DBGLNO 0x006b,0x006e,0x0070,0x0071,0x0073,0x0075 0128 0001 0003 | | .XXX[0x6] 012a 0002 0004 | | 012c 0005 0006 | | 012e ; -------------------------------------------------------------------------------------- 012e ; Debug chain 012e ; -------------------------------------------------------------------------------------- 012e 0000 0006 | | .DBGLEN 0x0000,0x0006 0130 0083 0086 | | .DBGLNO 0x0083,0x0086,0x0089,0x008f,0x0097,0x009a 0136 ; -------------------------------------------------------------------------------------- 0136 ; Debug chain 0136 ; -------------------------------------------------------------------------------------- 0136 0000 0006 | | .DBGLEN 0x0000,0x0006 0138 00a3 00a6 | | .DBGLNO 0x00a3,0x00a6,0x00a9,0x00af,0x00b7,0x00ba 013e ; -------------------------------------------------------------------------------------- 013e ; Debug chain 013e ; -------------------------------------------------------------------------------------- 013e 0000 0005 | | .DBGLEN 0x0000,0x0005 0140 00c3 00c6 | | .DBGLNO 0x00c3,0x00c6,0x00ca,0x00d0,0x00d8 0145 0000 0000 | | .BLANK 0000[0xbb]