|
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_ed48f1
└─⟦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 0048 | H | .CONST 0x0048 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d e001 | | Load 0x0,0x1 001e 0129 | ) | Execute Any,Make_Visible 001f c21e | | Store 0x1,0x1e 0020 00e3 | | Load_Encached Natural_Cache 0021 0266 | f | Execute Discrete,Bounds 0022 e002 | | Load 0x0,0x2 0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0024 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0026 4801 |H | Short_Literal 0x1 0027 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0028 c20d | | Store 0x1,0xd 0029 4801 |H | Short_Literal 0x1 002a e003 | | Load 0x0,0x3 002b 180d | | Execute Package,Field_Execute,Field_Number 0xd 002c e20d | | Load 0x1,0xd 002d 035c | \ | Declare_Type Array,Constrained,Visible 002e 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0030 4801 |H | Short_Literal 0x1 0031 032e | . | Declare_Type Record,Defined,Visible 0032 c21b | | Store 0x1,0x1b 0033 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0035 c20f | | Store 0x1,0xf 0036 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0038 c210 | | Store 0x1,0x10 0039 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 003b c211 | | Store 0x1,0x11 003c 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 003e c212 | | Store 0x1,0x12 003f 00bf | | Action Accept_Activation 0040 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0041 00c7 | | Action Elaborate_Subprogram 0042 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0043 00c7 | | Action Elaborate_Subprogram 0044 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0045 00c7 | | Action Elaborate_Subprogram 0046 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0047 00c7 | | Action Elaborate_Subprogram 0048 BODY_0008: 0048 00bc | | Action Signal_Activated 0049 00bb | | Action Signal_Completion 004a 0000 0000 | | .BLANK 0000[0x6] 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 00d1 | | Pop_Control Pop_Count_1 0054 00da | | Load_Top At_Offset_2 0055 01dc | | Execute Vector,Last 0056 00db | | Load_Top At_Offset_3 0057 01dd | | Execute Vector,First 0058 0263 | c | Execute Discrete,Above_Bound 0059 700a |p | Jump_Nonzero 0x64 005a 00d8 | | Load_Top At_Offset_0 005b e5ff | | Load 0x2,-0x1 005c 01d5 | | Execute Vector,Field_Reference 005d 0125 | % | Execute Any,Set_Constraint 005e 00d8 | | Load_Top At_Offset_0 005f e5ff | | Load 0x2,-0x1 0060 01d5 | | Execute Vector,Field_Reference 0061 1c00 | | Execute_Immediate Run_Utility,0x0 0062 0a01 | | Execute_Immediate Plus,0x1 0063 7ff4 | | Jump 0x58 0064 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0070 | p | .CONST 0x0070 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0002 | | .CONST 0x0002 ; Number of locals 006b INIT_0068: 006b e002 | | Load 0x0,0x2 006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006d 02c7 | | Declare_Variable Any 006e 00d8 | | Load_Top At_Offset_0 006f 1c00 | | Execute_Immediate Run_Utility,0x0 0070 BODY_0068: 0070 00cf | | Action Mark_Auxiliary 0071 e5ff | | Load 0x2,-0x1 0072 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0073 01d9 | | Execute Vector,Reverse_Bounds 0074 0263 | c | Execute Discrete,Above_Bound 0075 7007 |p | Jump_Nonzero 0x7d 0076 00db | | Load_Top At_Offset_3 0077 00d9 | | Load_Top At_Offset_1 0078 e5ff | | Load 0x2,-0x1 0079 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 007a 01d6 | | Execute Vector,Field_Write 007b 00c8 | | Action Pop_Auxiliary_Range 007c 3ff9 |? | Loop_Increasing 0x76 007d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007e 0000 0000 | | .XXX[0x2] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0088 | | .CONST 0x0088 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 e002 | | Load 0x0,0x2 0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0085 02c7 | | Declare_Variable Any 0086 00d8 | | Load_Top At_Offset_0 0087 1c00 | | Execute_Immediate Run_Utility,0x0 0088 BODY_0080: 0088 00db | | Load_Top At_Offset_3 0089 e003 | | Load 0x0,0x3 008a 180d | | Execute Package,Field_Execute,Field_Number 0xd 008b 026e | n | Execute Discrete,Modulo 008c e5fd | | Load 0x2,-0x3 008d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 008e 01d7 | | Execute Vector,Field_Read 008f 00d9 | | Load_Top At_Offset_1 0090 012f | / | Execute Any,Equal 0091 6809 |h | Jump_Zero 0x9b 0092 e5fe | | Load 0x2,-0x2 0093 e5ff | | Load 0x2,-0x1 0094 e003 | | Load 0x0,0x3 0095 180d | | Execute Package,Field_Execute,Field_Number 0xd 0096 026e | n | Execute Discrete,Modulo 0097 e5fd | | Load 0x2,-0x3 0098 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0099 01d6 | | Execute Vector,Field_Write 009a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 009b e21e | | Load 0x1,0x1e 009c 0257 | W | Execute Discrete,Raise 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a8 | | .CONST 0x00a8 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e002 | | Load 0x0,0x2 00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a5 02c7 | | Declare_Variable Any 00a6 00d8 | | Load_Top At_Offset_0 00a7 1c00 | | Execute_Immediate Run_Utility,0x0 00a8 BODY_00a0: 00a8 00d8 | | Load_Top At_Offset_0 00a9 e5ff | | Load 0x2,-0x1 00aa e003 | | Load 0x0,0x3 00ab 180d | | Execute Package,Field_Execute,Field_Number 0xd 00ac 026e | n | Execute Discrete,Modulo 00ad e5fd | | Load 0x2,-0x3 00ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00af 01d6 | | Execute Vector,Field_Write 00b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b1 0000 0000 | | .BLANK 0000[0x7] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 00db | | Load_Top At_Offset_3 00bc e003 | | Load 0x0,0x3 00bd 180d | | Execute Package,Field_Execute,Field_Number 0xd 00be 026e | n | Execute Discrete,Modulo 00bf 00db | | Load_Top At_Offset_3 00c0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00c1 01d7 | | Execute Vector,Field_Read 00c2 00d8 | | Load_Top At_Offset_0 00c3 0120 | | Execute Any,Is_Value 00c4 7002 |p | Jump_Nonzero 0xc7 00c5 00d8 | | Load_Top At_Offset_0 00c6 011e | | Execute Any,Convert 00c7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 4608 |F | Jump_Case 0x9 00cc 7808 |x | Jump 0xd5 ; case 0x0 00cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00ce 780a |x | Jump 0xd9 ; case 0x2 00cf 7809 |x | Jump 0xd9 ; case 0x3 00d0 7808 |x | Jump 0xd9 ; case 0x4 00d1 7807 |x | Jump 0xd9 ; case 0x5 00d2 7806 |x | Jump 0xd9 ; case 0x6 00d3 7805 |x | Jump 0xd9 ; case 0x7 00d4 7804 |x | Jump 0xd9 ; case 0x8 00d5 00da | | Load_Top At_Offset_2 00d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00d7 1c00 | | Execute_Immediate Run_Utility,0x0 00d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00d9 0869 | i | Execute_Immediate Raise,0x69 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug Table 00e0 ; -------------------------------------------------------------------------------------- 00e0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x0a6a,0x0000,0x0001,0x0008 00e6 000b 0106 | | .DBG4T 0x000b,0x0106,0x8000,0x0000 00ea 0040 0110 | @ | .DBG4T 0x0040,0x0110,0x8000,0x0000 00ee 0053 0000 | S | .DBG4T 0x0053,0x0000,0x0005,0x0000 00f2 006b 0116 | k | .DBG4T 0x006b,0x0116,0x0001,0x0000 00f6 0083 011b | | .DBG4T 0x0083,0x011b,0x0001,0x0000 00fa 00a3 0121 | !| .DBG4T 0x00a3,0x0121,0x0001,0x0000 00fe 00bb 0125 | %| .DBG4T 0x00bb,0x0125,0x0002,0x0000 0102 00cb 0000 | | .DBG4T 0x00cb,0x0000,0x0005,0x0000 0106 ; -------------------------------------------------------------------------------------- 0106 ; Debug chain 0106 ; -------------------------------------------------------------------------------------- 0106 0008 0000 | | .DBGLEN 0x0008,0x0000 0108 000b 001d | | .DBGLNO 0x000b,0x001d,0x0020,0x0029,0x0033,0x0036,0x0039,0x003c 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug chain 0110 ; -------------------------------------------------------------------------------------- 0110 0004 0000 | | .DBGLEN 0x0004,0x0000 0112 0040 0042 | @ B| .DBGLNO 0x0040,0x0042,0x0044,0x0046 0116 ; -------------------------------------------------------------------------------------- 0116 ; Debug chain 0116 ; -------------------------------------------------------------------------------------- 0116 0001 0002 | | .DBGLEN 0x0001,0x0002 0118 006b 0071 | k q| .DBGLNO 0x006b,0x0071,0x0076 011b ; -------------------------------------------------------------------------------------- 011b ; Debug chain 011b ; -------------------------------------------------------------------------------------- 011b 0001 0003 | | .DBGLEN 0x0001,0x0003 011d 0083 0088 | | .DBGLNO 0x0083,0x0088,0x0092,0x009b 0121 ; -------------------------------------------------------------------------------------- 0121 ; Debug chain 0121 ; -------------------------------------------------------------------------------------- 0121 0001 0001 | | .DBGLEN 0x0001,0x0001 0123 00a3 00a8 | | .DBGLNO 0x00a3,0x00a8 0125 ; -------------------------------------------------------------------------------------- 0125 ; Debug chain 0125 ; -------------------------------------------------------------------------------------- 0125 0000 0001 | | .DBGLEN 0x0000,0x0001 0127 00bb | | .DBGLNO 0x00bb 0128 0000 0000 | | .BLANK 0000[0xd8]