|
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_1c84c7
└─⟦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 00c0 | | .CONST 0x00c0 ; 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 0021 | ! | .CONST 0x0021 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 0093 0000 | | push_full_address 0x0 0010 6067 |`g | Indirect_Literal Discrete,0x78,{0x80000000, 0x00010000} 0011 0273 | s | Execute Discrete,Plus 0012 e002 | | Load 0x0,0x2 0013 0273 | s | Execute Discrete,Plus 0014 e003 | | Load 0x0,0x3 0015 0273 | s | Execute Discrete,Plus 0016 e004 | | Load 0x0,0x4 0017 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0018 a005 | | Store_Unchecked 0x0,0x5 0019 e006 | | Load 0x0,0x6 001a 0387 | | Declare_Variable Package 001b 00d8 | | Load_Top At_Offset_0 001c 020f | | Execute Module,Activate 001d 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call 001f 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0020 00c7 | | Action Elaborate_Subprogram 0021 BODY_0008: 0021 00bc | | Action Signal_Activated 0022 00bb | | Action Signal_Completion 0023 0000 0000 | | .BLANK 0000[0x5] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0032 | 2 | .CONST 0x0032 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0005 | | .CONST 0x0005 ; Number of locals 002b INIT_0028: 002b 00e1 | | Load_Encached Boolean_Cache 002c e007 | | Load 0x0,0x7 002d 0322 | " | Declare_Variable Record 002e e004 | | Load 0x0,0x4 002f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0030 e008 | | Load 0x0,0x8 0031 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0032 BODY_0028: 0032 4801 |H | Short_Literal 0x1 0033 a402 | | Store_Unchecked 0x2,0x2 0034 8009 | | Call 0x0,0x9 0035 00cf | | Action Mark_Auxiliary 0036 783b |x; | Jump 0x72 0037 800a | | Call 0x0,0xa 0038 e403 | | Load 0x2,0x3 0039 017d | } | Execute Record,Structure_Write 003a 00db | | Load_Top At_Offset_3 003b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 003c 7007 |p | Jump_Nonzero 0x44 003d 4800 |H | Short_Literal 0x0 003e a402 | | Store_Unchecked 0x2,0x2 003f 4802 |H | Short_Literal 0x2 0040 e403 | | Load 0x2,0x3 0041 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0042 800b | | Call 0x0,0xb 0043 782d |x- | Jump 0x71 0044 00db | | Load_Top At_Offset_3 0045 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0046 4607 |F | Jump_Case 0x8 0047 7829 |x) | Jump 0x71 ; case 0x0 0048 7828 |x( | Jump 0x71 ; case 0x1 0049 7812 |x | Jump 0x5c ; case 0x2 004a 7805 |x | Jump 0x50 ; case 0x3 004b 781a |x | Jump 0x66 ; case 0x4 004c 7824 |x$ | Jump 0x71 ; case 0x5 004d 7823 |x# | Jump 0x71 ; case 0x6 004e 7822 |x" | Jump 0x71 ; case 0x7 004f 7821 |x! | .XXX[0x1] 0050 00db | | Load_Top At_Offset_3 0051 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0052 0227 | ' | Execute Access,All_Reference 0053 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0054 701c |p | Jump_Nonzero 0x71 0055 4800 |H | Short_Literal 0x0 0056 a402 | | Store_Unchecked 0x2,0x2 0057 4800 |H | Short_Literal 0x0 0058 e403 | | Load 0x2,0x3 0059 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 005a 800b | | Call 0x0,0xb 005b 7815 |x | Jump 0x71 005c 00db | | Load_Top At_Offset_3 005d 820f | | Call 0x1,0xf 005e 7012 |p | Jump_Nonzero 0x71 005f 4800 |H | Short_Literal 0x0 0060 a402 | | Store_Unchecked 0x2,0x2 0061 4803 |H | Short_Literal 0x3 0062 e403 | | Load 0x2,0x3 0063 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0064 800b | | Call 0x0,0xb 0065 780b |x | Jump 0x71 0066 00db | | Load_Top At_Offset_3 0067 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0068 0227 | ' | Execute Access,All_Reference 0069 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 006a 7006 |p | Jump_Nonzero 0x71 006b 4800 |H | Short_Literal 0x0 006c a402 | | Store_Unchecked 0x2,0x2 006d 4800 |H | Short_Literal 0x0 006e e403 | | Load 0x2,0x3 006f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0070 800b | | Call 0x0,0xb 0071 00c9 | | Action Pop_Auxiliary_Loop 0072 800c | | Call 0x0,0xc 0073 6fc3 |o | Jump_Zero 0x37 0074 00ce | | Action Pop_Auxiliary 0075 00db | | Load_Top At_Offset_3 0076 00ca | | Action Exit_Nullary_Function 0077 0000 | | .XXX[0x1] 0078 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 007c 0000 0000 | | .BLANK 0000[0x4] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 008c | | .CONST 0x008c ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0005 | | .CONST 0x0005 ; Number of locals 0083 INIT_0080: 0083 e00d | | Load 0x0,0xd 0084 0322 | " | Declare_Variable Record 0085 e00e | | Load 0x0,0xe 0086 e20e | | Load 0x1,0xe 0087 0098 | | Execute Package,Field_Read_Dynamic 0088 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0089 e008 | | Load 0x0,0x8 008a 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 008b 00e1 | | Load_Encached Boolean_Cache 008c BODY_0080: 008c 4800 |H | Short_Literal 0x0 008d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 008e e008 | | Load 0x0,0x8 008f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0090 e5ff | | Load 0x2,-0x1 0091 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0092 0227 | ' | Execute Access,All_Reference 0093 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 0094 800f | | Call 0x0,0xf 0095 003a | : | Store_Top Access,At_Offset_2 0096 00cf | | Action Mark_Auxiliary 0097 7818 |x | Jump 0xb0 0098 00da | | Load_Top At_Offset_2 0099 8010 | | Call 0x0,0x10 009a e402 | | Load 0x2,0x2 009b 017d | } | Execute Record,Structure_Write 009c e402 | | Load 0x2,0x2 009d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 009e e403 | | Load 0x2,0x3 009f e011 | | Load 0x0,0x11 00a0 e20e | | Load 0x1,0xe 00a1 0096 | | Execute Package,Entry 00a2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00a3 00d9 | | Load_Top At_Offset_1 00a4 7007 |p | Jump_Nonzero 0xac 00a5 00db | | Load_Top At_Offset_3 00a6 e402 | | Load 0x2,0x2 00a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a8 e012 | | Load 0x0,0x12 00a9 e20e | | Load 0x1,0xe 00aa 0096 | | Execute Package,Entry 00ab c403 | | Store 0x2,0x3 00ac 00da | | Load_Top At_Offset_2 00ad 8013 | | Call 0x0,0x13 00ae 003b | ; | Store_Top Access,At_Offset_3 00af 00c9 | | Action Pop_Auxiliary_Loop 00b0 00d9 | | Load_Top At_Offset_1 00b1 0f00 | | Execute_Immediate Equal,0x0 00b2 00db | | Load_Top At_Offset_3 00b3 8014 | | Call 0x0,0x14 00b4 0f00 | | Execute_Immediate Equal,0x0 00b5 0279 | y | Execute Discrete,And 00b6 77e1 |w | Jump_Nonzero 0x98 00b7 00ce | | Action Pop_Auxiliary 00b8 00d8 | | Load_Top At_Offset_0 00b9 0f00 | | Execute_Immediate Equal,0x0 00ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bb 0000 0000 | | .BLANK 0000[0x5] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; Debug Table 00c0 ; -------------------------------------------------------------------------------------- 00c0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc6bd,0x0000,0x0001,0x0004 00c6 000b 00d6 | | .DBG4T 0x000b,0x00d6,0x8000,0x0000 00ca 000e 00d9 | | .DBG4T 0x000e,0x00d9,0x8000,0x0000 00ce 002b 00de | + | .DBG4T 0x002b,0x00de,0x0002,0x4000 00d2 0083 0108 | | .DBG4T 0x0083,0x0108,0x0002,0x4000 00d6 ; -------------------------------------------------------------------------------------- 00d6 ; Debug chain 00d6 ; -------------------------------------------------------------------------------------- 00d6 0001 0000 | | .DBGLEN 0x0001,0x0000 00d8 000b | | .DBGLNO 0x000b 00d9 ; -------------------------------------------------------------------------------------- 00d9 ; Debug chain 00d9 ; -------------------------------------------------------------------------------------- 00d9 0003 0000 | | .DBGLEN 0x0003,0x0000 00db 000e 001d | | .DBGLNO 0x000e,0x001d,0x001f 00de ; -------------------------------------------------------------------------------------- 00de ; Debug chain 00de ; -------------------------------------------------------------------------------------- 00de 0004 0012 | | .DBGLEN 0x0004,0x0012 00e0 002b 002c | + ,| .DBGLNO 0x002b,0x002c,0x002e,0x0030,0x0032,0x0034,0x0037,0x003a,0x003d,0x003f,0x0044,0x0050,0x0055,0x0057,0x005c,0x005f,0x0061,0x0066,0x006b,0x006d,0x0072,0x0075 00f6 0001 0002 | | .XXX[0x12] 00f8 0004 0005 | | 00fa 0006 0007 | | 00fc 0008 000c | | 00fe 000d 000e | | 0100 000f 0010 | | 0102 0011 0009 | | 0104 000a 000b | | 0106 0003 0013 | | 0108 ; -------------------------------------------------------------------------------------- 0108 ; Debug chain 0108 ; -------------------------------------------------------------------------------------- 0108 0004 0009 | | .DBGLEN 0x0004,0x0009 010a 0083 0085 | | .DBGLNO 0x0083,0x0085,0x0089,0x008b,0x008c,0x008e,0x0098,0x009c,0x00a3,0x00a5,0x00ac,0x00b0,0x00b8 0117 0001 0002 | | .XXX[0x9] 0119 0004 0005 | | 011b 0006 0007 | | 011d 0008 0003 | | 011f 0009 | | 0120 0000 0000 | | .BLANK 0000[0xe0]