|
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_13970b9
└─⟦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 0120 | | .CONST 0x0120 ; 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 0014 | | .CONST 0x0014 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0011 00c7 | | Action Elaborate_Subprogram 0012 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0013 00c7 | | Action Elaborate_Subprogram 0014 BODY_0008: 0014 00bc | | Action Signal_Activated 0015 00bb | | Action Signal_Completion 0016 0000 0000 | | .XXX[0x2] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b 4801 |H | Short_Literal 0x1 001c 4804 |H | Short_Literal 0x4 001d e003 | | Load 0x0,0x3 001e 035b | [ | Declare_Type Array,Constrained 001f 0337 | 7 | Declare_Variable Array 0020 e004 | | Load 0x0,0x4 0021 0337 | 7 | Declare_Variable Array 0022 e005 | | Load 0x0,0x5 0023 8006 | | Call 0x0,0x6 0024 4800 |H | Short_Literal 0x0 0025 00da | | Load_Top At_Offset_2 0026 01d6 | | Execute Vector,Field_Write 0027 e004 | | Load 0x0,0x4 0028 01c3 | | Execute Vector,Check_In_Type 0029 8007 | | Call 0x0,0x7 002a 4801 |H | Short_Literal 0x1 002b 00da | | Load_Top At_Offset_2 002c 01d6 | | Execute Vector,Field_Write 002d e004 | | Load 0x0,0x4 002e 0337 | 7 | Declare_Variable Array 002f e008 | | Load 0x0,0x8 0030 8006 | | Call 0x0,0x6 0031 4800 |H | Short_Literal 0x0 0032 00da | | Load_Top At_Offset_2 0033 01d6 | | Execute Vector,Field_Write 0034 e004 | | Load 0x0,0x4 0035 01c3 | | Execute Vector,Check_In_Type 0036 8007 | | Call 0x0,0x7 0037 4802 |H | Short_Literal 0x2 0038 00da | | Load_Top At_Offset_2 0039 01d6 | | Execute Vector,Field_Write 003a e004 | | Load 0x0,0x4 003b 0337 | 7 | Declare_Variable Array 003c e009 | | Load 0x0,0x9 003d 8006 | | Call 0x0,0x6 003e 4800 |H | Short_Literal 0x0 003f 00da | | Load_Top At_Offset_2 0040 01d6 | | Execute Vector,Field_Write 0041 e004 | | Load 0x0,0x4 0042 01c3 | | Execute Vector,Check_In_Type 0043 8007 | | Call 0x0,0x7 0044 4803 |H | Short_Literal 0x3 0045 00da | | Load_Top At_Offset_2 0046 01d6 | | Execute Vector,Field_Write 0047 e004 | | Load 0x0,0x4 0048 0337 | 7 | Declare_Variable Array 0049 e00a | | Load 0x0,0xa 004a 8006 | | Call 0x0,0x6 004b 4800 |H | Short_Literal 0x0 004c 00da | | Load_Top At_Offset_2 004d 01d6 | | Execute Vector,Field_Write 004e e004 | | Load 0x0,0x4 004f 01c3 | | Execute Vector,Check_In_Type 0050 800b | | Call 0x0,0xb 0051 4804 |H | Short_Literal 0x4 0052 00da | | Load_Top At_Offset_2 0053 01d6 | | Execute Vector,Field_Write 0054 e003 | | Load 0x0,0x3 0055 01c6 | | Execute Vector,Convert_To_Formal 0056 00ca | | Action Exit_Nullary_Function 0057 0000 | | .XXX[0x1] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0078 | x | .CONST 0x0078 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 000b | | .CONST 0x000b ; Number of locals 005b INIT_0058: 005b 00e8 | | Load_Encached Character_Cache 005c 00e1 | | Load_Encached Boolean_Cache 005d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 005e 4801 |H | Short_Literal 0x1 005f e5ff | | Load 0x2,-0x1 0060 01d5 | | Execute Vector,Field_Reference 0061 0007 | | Action Break_Optional 0062 4802 |H | Short_Literal 0x2 0063 e5ff | | Load 0x2,-0x1 0064 01d5 | | Execute Vector,Field_Reference 0065 0007 | | Action Break_Optional 0066 4803 |H | Short_Literal 0x3 0067 e5ff | | Load 0x2,-0x1 0068 01d5 | | Execute Vector,Field_Reference 0069 0007 | | Action Break_Optional 006a 4802 |H | Short_Literal 0x2 006b 4803 |H | Short_Literal 0x3 006c e00c | | Load 0x0,0xc 006d 03f8 | | Declare_Type Discrete,Constrained 006e 4800 |H | Short_Literal 0x0 006f 4801 |H | Short_Literal 0x1 0070 e00c | | Load 0x0,0xc 0071 03f8 | | Declare_Type Discrete,Constrained 0072 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 0074 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0076 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0078 BODY_0058: 0078 4802 |H | Short_Literal 0x2 0079 4801 |H | Short_Literal 0x1 007a 800d | | Call 0x0,0xd 007b 6830 |h0 | Jump_Zero 0xac 007c 4801 |H | Short_Literal 0x1 007d 4803 |H | Short_Literal 0x3 007e 4803 |H | Short_Literal 0x3 007f 8409 | | Call 0x2,0x9 0080 4801 |H | Short_Literal 0x1 0081 a403 | | Store_Unchecked 0x2,0x3 0082 00cf | | Action Mark_Auxiliary 0083 0007 | | Action Break_Optional 0084 4803 |H | Short_Literal 0x3 0085 800e | | Call 0x0,0xe 0086 a402 | | Store_Unchecked 0x2,0x2 0087 e402 | | Load 0x2,0x2 0088 0f20 | | Execute_Immediate Equal,0x20 0089 7008 |p | Jump_Nonzero 0x92 008a 4800 |H | Short_Literal 0x0 008b 4803 |H | Short_Literal 0x3 008c 800f | | Call 0x0,0xf 008d a403 | | Store_Unchecked 0x2,0x3 008e e403 | | Load 0x2,0x3 008f 6802 |h | Jump_Zero 0x92 0090 00c9 | | Action Pop_Auxiliary_Loop 0091 7ff2 | | Jump 0x84 0092 00ce | | Action Pop_Auxiliary 0093 e403 | | Load 0x2,0x3 0094 7003 |p | Jump_Nonzero 0x98 0095 e406 | | Load 0x2,0x6 0096 8010 | | Call 0x0,0x10 0097 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0098 e011 | | Load 0x0,0x11 0099 0337 | 7 | Declare_Variable Array 009a e00a | | Load 0x0,0xa 009b 4800 |H | Short_Literal 0x0 009c 00da | | Load_Top At_Offset_2 009d 01d6 | | Execute Vector,Field_Write 009e e011 | | Load 0x0,0x11 009f 01c3 | | Execute Vector,Check_In_Type 00a0 8012 | | Call 0x0,0x12 00a1 4803 |H | Short_Literal 0x3 00a2 4801 |H | Short_Literal 0x1 00a3 8013 | | Call 0x0,0x13 00a4 4803 |H | Short_Literal 0x3 00a5 8014 | | Call 0x0,0x14 00a6 e404 | | Load 0x2,0x4 00a7 8010 | | Call 0x0,0x10 00a8 e405 | | Load 0x2,0x5 00a9 8010 | | Call 0x0,0x10 00aa 840a | | Call 0x2,0xa 00ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ac 4800 |H | Short_Literal 0x0 00ad 4803 |H | Short_Literal 0x3 00ae 4804 |H | Short_Literal 0x4 00af 8409 | | Call 0x2,0x9 00b0 840b | | Call 0x2,0xb 00b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b2 0000 0000 | | .BLANK 0000[0x6] 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 4801 |H | Short_Literal 0x1 00bc a403 | | Store_Unchecked 0x2,0x3 00bd 00cf | | Action Mark_Auxiliary 00be 7805 |x | Jump 0xc4 00bf e7fe | | Load 0x3,-0x2 00c0 e7ff | | Load 0x3,-0x1 00c1 800f | | Call 0x0,0xf 00c2 a403 | | Store_Unchecked 0x2,0x3 00c3 00c9 | | Action Pop_Auxiliary_Loop 00c4 e403 | | Load 0x2,0x3 00c5 77f9 |w | Jump_Nonzero 0xbf 00c6 00ce | | Action Pop_Auxiliary 00c7 4801 |H | Short_Literal 0x1 00c8 a403 | | Store_Unchecked 0x2,0x3 00c9 00cf | | Action Mark_Auxiliary 00ca 7805 |x | Jump 0xd0 00cb e7fd | | Load 0x3,-0x3 00cc e7ff | | Load 0x3,-0x1 00cd 800f | | Call 0x0,0xf 00ce a403 | | Store_Unchecked 0x2,0x3 00cf 00c9 | | Action Pop_Auxiliary_Loop 00d0 e403 | | Load 0x2,0x3 00d1 77f9 |w | Jump_Nonzero 0xcb 00d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 4801 |H | Short_Literal 0x1 00dc a403 | | Store_Unchecked 0x2,0x3 00dd 4802 |H | Short_Literal 0x2 00de 4800 |H | Short_Literal 0x0 00df 800f | | Call 0x0,0xf 00e0 a403 | | Store_Unchecked 0x2,0x3 00e1 4800 |H | Short_Literal 0x0 00e2 800e | | Call 0x0,0xe 00e3 0f20 | | Execute_Immediate Equal,0x20 00e4 e403 | | Load 0x2,0x3 00e5 0f00 | | Execute_Immediate Equal,0x0 00e6 0278 | x | Execute Discrete,Or 00e7 6802 |h | Jump_Zero 0xea 00e8 e406 | | Load 0x2,0x6 00e9 8010 | | Call 0x0,0x10 00ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00eb 0000 0000 | | .BLANK 0000[0x5] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 4801 |H | Short_Literal 0x1 00f4 a403 | | Store_Unchecked 0x2,0x3 00f5 00cf | | Action Mark_Auxiliary 00f6 7805 |x | Jump 0xfc 00f7 4801 |H | Short_Literal 0x1 00f8 4804 |H | Short_Literal 0x4 00f9 800f | | Call 0x0,0xf 00fa a403 | | Store_Unchecked 0x2,0x3 00fb 00c9 | | Action Pop_Auxiliary_Loop 00fc 4804 |H | Short_Literal 0x4 00fd 800e | | Call 0x0,0xe 00fe 0e20 | | Execute_Immediate Not_Equal,0x20 00ff e403 | | Load 0x2,0x3 0100 0279 | y | Execute Discrete,And 0101 77f5 |w | Jump_Nonzero 0xf7 0102 00ce | | Action Pop_Auxiliary 0103 e403 | | Load 0x2,0x3 0104 7012 |p | Jump_Nonzero 0x117 0105 4802 |H | Short_Literal 0x2 0106 4804 |H | Short_Literal 0x4 0107 800f | | Call 0x0,0xf 0108 a403 | | Store_Unchecked 0x2,0x3 0109 4801 |H | Short_Literal 0x1 010a a403 | | Store_Unchecked 0x2,0x3 010b 00cf | | Action Mark_Auxiliary 010c 7805 |x | Jump 0x112 010d 4800 |H | Short_Literal 0x0 010e 4804 |H | Short_Literal 0x4 010f 800f | | Call 0x0,0xf 0110 a403 | | Store_Unchecked 0x2,0x3 0111 00c9 | | Action Pop_Auxiliary_Loop 0112 e403 | | Load 0x2,0x3 0113 77f9 |w | Jump_Nonzero 0x10d 0114 00ce | | Action Pop_Auxiliary 0115 840b | | Call 0x2,0xb 0116 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0117 4804 |H | Short_Literal 0x4 0118 4802 |H | Short_Literal 0x2 0119 8013 | | Call 0x0,0x13 011a e404 | | Load 0x2,0x4 011b 8010 | | Call 0x0,0x10 011c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug Table 0120 ; -------------------------------------------------------------------------------------- 0120 0004 0009 | | .DEBUG4 0x0004,0x0009,0x222f,0x0000,0x0001,0x0007 0126 000b 0142 | B| .DBG4T 0x000b,0x0142,0x0000,0x0000 012a 0010 0146 | F| .DBG4T 0x0010,0x0146,0x0000,0x0000 012e 001b 014a | J| .DBG4T 0x001b,0x014a,0x0002,0x0000 0132 005b 014d | [ M| .DBG4T 0x005b,0x014d,0x0001,0x0000 0136 00bb 016b | k| .DBG4T 0x00bb,0x016b,0x0001,0x4000 013a 00db 0179 | y| .DBG4T 0x00db,0x0179,0x0001,0x0000 013e 00f3 017f | | .DBG4T 0x00f3,0x017f,0x0001,0x4000 0142 ; -------------------------------------------------------------------------------------- 0142 ; Debug chain 0142 ; -------------------------------------------------------------------------------------- 0142 0002 0000 | | .DBGLEN 0x0002,0x0000 0144 000b 000d | | .DBGLNO 0x000b,0x000d 0146 ; -------------------------------------------------------------------------------------- 0146 ; Debug chain 0146 ; -------------------------------------------------------------------------------------- 0146 0002 0000 | | .DBGLEN 0x0002,0x0000 0148 0010 0012 | | .DBGLNO 0x0010,0x0012 014a ; -------------------------------------------------------------------------------------- 014a ; Debug chain 014a ; -------------------------------------------------------------------------------------- 014a 0000 0001 | | .DBGLEN 0x0000,0x0001 014c 001b | | .DBGLNO 0x001b 014d ; -------------------------------------------------------------------------------------- 014d ; Debug chain 014d ; -------------------------------------------------------------------------------------- 014d 000a 0012 | | .DBGLEN 0x000a,0x0012 014f 005b 005c | [ \| .DBGLNO 0x005b,0x005c,0x005e,0x0062,0x0066,0x006a,0x006e,0x0072,0x0074,0x0076,0x0078,0x007c,0x0080,0x0083,0x0084,0x0087,0x008a,0x008e,0x0093,0x0095,0x0098,0x00a1,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00b0 016b ; -------------------------------------------------------------------------------------- 016b ; Debug chain 016b ; -------------------------------------------------------------------------------------- 016b 0000 0006 | | .DBGLEN 0x0000,0x0006 016d 00bb 00bf | | .DBGLNO 0x00bb,0x00bf,0x00c4,0x00c7,0x00cb,0x00d0 0173 0001 0003 | | .XXX[0x6] 0175 0002 0004 | | 0177 0006 0005 | | 0179 ; -------------------------------------------------------------------------------------- 0179 ; Debug chain 0179 ; -------------------------------------------------------------------------------------- 0179 0000 0004 | | .DBGLEN 0x0000,0x0004 017b 00db 00dd | | .DBGLNO 0x00db,0x00dd,0x00e1,0x00e8 017f ; -------------------------------------------------------------------------------------- 017f ; Debug chain 017f ; -------------------------------------------------------------------------------------- 017f 0000 000b | | .DBGLEN 0x0000,0x000b 0181 00f3 00f7 | | .DBGLNO 0x00f3,0x00f7,0x00fc,0x0103,0x0105,0x0109,0x010d,0x0112,0x0115,0x0117,0x011a 018c 0001 0003 | | .XXX[0xb] 018e 0002 0004 | | 0190 0005 0006 | | 0192 0008 0007 | | 0194 0009 000a | | 0196 000b | | 0197 0000 0000 | | .BLANK 0000[0x69]