|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0158 | X | .CONST 0x0158 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0036 | 6 | .CONST 0x0036 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 0093 0000 | | push_full_address 0x0
000d 604e |`N | Indirect_Literal Discrete,0x5c,{0x80000000, 0x00010000}
000e 0273 | s | Execute Discrete,Plus
000f e20d | | Load 0x1,0xd
0010 6047 |`G | Indirect_Literal Discrete,0x58,{0x00000000, 0x0000ffff}
0011 0279 | y | Execute Discrete,And
0012 0273 | s | Execute Discrete,Plus
0013 0129 | ) | Execute Any,Make_Visible
0014 0093 0000 | | push_full_address 0x0
0016 603d |`= | Indirect_Literal Discrete,0x54,{0x80000000, 0x00020000}
0017 0273 | s | Execute Discrete,Plus
0018 e20d | | Load 0x1,0xd
0019 603e |`> | Indirect_Literal Discrete,0x58,{0x00000000, 0x0000ffff}
001a 0279 | y | Execute Discrete,And
001b 0273 | s | Execute Discrete,Plus
001c 0129 | ) | Execute Any,Make_Visible
001d 00ea | | Load_Encached Null_String_Cache
001e 0129 | ) | Execute Any,Make_Visible
001f 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0021 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0023 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0025 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0027 00bf | | Action Accept_Activation
0028 00e3 | | Load_Encached Natural_Cache
0029 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
002b 00c7 | | Action Elaborate_Subprogram
002c 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call
002e 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call
0030 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0031 00c7 | | Action Elaborate_Subprogram
0032 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0033 00c7 | | Action Elaborate_Subprogram
0034 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0035 00c7 | | Action Elaborate_Subprogram
0036 BODY_0008:
0036 00bc | | Action Signal_Activated
0037 00bb | | Action Signal_Completion
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b e210 | | Load 0x1,0x10
003c e002 | | Load 0x0,0x2
003d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
003e e5ff | | Load 0x2,-0x1
003f 7011 |p | Jump_Nonzero 0x51
0040 e002 | | Load 0x0,0x2
0041 180e | | Execute Package,Field_Execute,Field_Number 0xe
0042 4800 |H | Short_Literal 0x0
0043 0092 010c | | Action Push_String_Extended,0x10c ; "["
0045 e20e | | Load 0x1,0xe
0046 01cc | | Execute Vector,Catenate
0047 0092 010d | | Action Push_String_Extended,0x10d ; " ("
0049 01cc | | Execute Vector,Catenate
004a e20f | | Load 0x1,0xf
004b 01cc | | Execute Vector,Catenate
004c 0092 010e | | Action Push_String_Extended,0x10e ; ");]"
004e 01cc | | Execute Vector,Catenate
004f e003 | | Load 0x0,0x3
0050 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0051 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0052 0000 0000 | | .XXX[0x2]
0054 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0058 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
005c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0067 | g | .CONST 0x0067 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0003 | | .CONST 0x0003 ; Number of locals
0063 INIT_0060:
0063 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
0065 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0067 BODY_0060:
0067 e219 | | Load 0x1,0x19
0068 0a01 | | Execute_Immediate Plus,0x1
0069 c219 | | Store 0x1,0x19
006a e210 | | Load 0x1,0x10
006b e002 | | Load 0x0,0x2
006c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
006d 4603 |F | Jump_Case 0x4
006e 780e |x | Jump 0x7d ; case 0x0
006f 7809 |x | Jump 0x79 ; case 0x1
0070 7813 |x | Jump 0x84 ; case 0x2
0071 7800 |x | Jump 0x72 ; case 0x3
0072 8402 | | Call 0x2,0x2
0073 e5fd | | Load 0x2,-0x3
0074 6803 |h | Jump_Zero 0x78
0075 8403 | | Call 0x2,0x3
0076 e212 | | Load 0x1,0x12
0077 0257 | W | Execute Discrete,Raise
0078 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0079 8402 | | Call 0x2,0x2
007a 8403 | | Call 0x2,0x3
007b e212 | | Load 0x1,0x12
007c 0257 | W | Execute Discrete,Raise
007d 8402 | | Call 0x2,0x2
007e 8403 | | Call 0x2,0x3
007f e5fc | | Load 0x2,-0x4
0080 6802 |h | Jump_Zero 0x83
0081 e213 | | Load 0x1,0x13
0082 0257 | W | Execute Discrete,Raise
0083 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0084 8402 | | Call 0x2,0x2
0085 e5fd | | Load 0x2,-0x3
0086 6805 |h | Jump_Zero 0x8c
0087 8403 | | Call 0x2,0x3
0088 e5fc | | Load 0x2,-0x4
0089 6802 |h | Jump_Zero 0x8c
008a e213 | | Load 0x1,0x13
008b 0257 | W | Execute Discrete,Raise
008c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0098 | | .CONST 0x0098 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 e219 | | Load 0x1,0x19
0094 e5ff | | Load 0x2,-0x1
0095 0272 | r | Execute Discrete,Minus
0096 c219 | | Store 0x1,0x19
0097 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0098 TRAP_0090:
0098 010e | | Execute Exception,Is_Constraint_Error
0099 6803 |h | Jump_Zero 0x9d
009a 4800 |H | Short_Literal 0x0
009b a219 | | Store_Unchecked 0x1,0x19
009c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009d 0100 | | Execute Exception,Raise
009e 0000 0000 | | .XXX[0x2]
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 e5ff | | Load 0x2,-0x1
00a4 7001 |p | Jump_Nonzero 0xa6
00a5 821a | | Call 0x1,0x1a
00a6 821b | | Call 0x1,0x1b
00a7 e219 | | Load 0x1,0x19
00a8 0c01 | | Execute_Immediate Greater_Equal,0x1
00a9 680a |h | Jump_Zero 0xb4
00aa e210 | | Load 0x1,0x10
00ab e002 | | Load 0x0,0x2
00ac 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ad 4800 |H | Short_Literal 0x0
00ae 4802 |H | Short_Literal 0x2
00af 0262 | b | Execute Discrete,In_Range
00b0 7003 |p | Jump_Nonzero 0xb4
00b1 7800 |x | Jump 0xb2
00b2 e212 | | Load 0x1,0x12
00b3 0257 | W | Execute Discrete,Raise
00b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bd | | .CONST 0x00bd ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
00bd BODY_00b8:
00bd e002 | | Load 0x0,0x2
00be 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bf 4800 |H | Short_Literal 0x0
00c0 0092 010f | | Action Push_String_Extended,0x10f ; "[end of "
00c2 e20e | | Load 0x1,0xe
00c3 01cc | | Execute Vector,Catenate
00c4 0092 0110 | | Action Push_String_Extended,0x110 ; " operation--"
00c6 01cc | | Execute Vector,Catenate
00c7 8402 | | Call 0x2,0x2
00c8 01cc | | Execute Vector,Catenate
00c9 0092 0111 | | Action Push_String_Extended,0x111 ; " detected]"
00cb 01cc | | Execute Vector,Catenate
00cc e003 | | Load 0x0,0x3
00cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 e211 | | Load 0x1,0x11
00d4 e002 | | Load 0x0,0x2
00d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d7 0000 | | .XXX[0x1]
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 e5ff | | Load 0x2,-0x1
00dc e214 | | Load 0x1,0x14
00dd 01de | | Execute Vector,Not_Equal
00de 6806 |h | Jump_Zero 0xe5
00df e002 | | Load 0x0,0x2
00e0 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e1 e5fe | | Load 0x2,-0x2
00e2 e5ff | | Load 0x2,-0x1
00e3 e003 | | Load 0x0,0x3
00e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb e5fb | | Load 0x2,-0x5
00ec 7001 |p | Jump_Nonzero 0xee
00ed 821a | | Call 0x1,0x1a
00ee 821b | | Call 0x1,0x1b
00ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f7 | | .CONST 0x00f7 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0003 | | .CONST 0x0003 ; Number of locals
00f3 INIT_00f0:
00f3 0092 0112 | | Action Push_String_Extended,0x112 ; " unrecoverable error"
00f5 0092 0113 | | Action Push_String_Extended,0x113 ; " unrecoverable errors"
00f7 BODY_00f0:
00f7 e219 | | Load 0x1,0x19
00f8 0b00 | | Execute_Immediate Case_Compare,0x0
00f9 700b |p | Jump_Nonzero 0x105
00fa 0f01 | | Execute_Immediate Equal,0x1
00fb 700d |p | Jump_Nonzero 0x109
00fc 4820 |H | Short_Literal 0x20
00fd e219 | | Load 0x1,0x19
00fe 00e0 | | Load_Encached Standard_Cache
00ff 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0100 e004 | | Load 0x0,0x4
0101 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0102 e603 | | Load 0x3,0x3
0103 01cc | | Execute Vector,Catenate
0104 00ca | | Action Exit_Nullary_Function
0105 00d1 | | Pop_Control Pop_Count_1
0106 0092 0114 | | Action Push_String_Extended,0x114 ; "no unrecoverable errors"
0108 00ca | | Action Exit_Nullary_Function
0109 0092 0115 | | Action Push_String_Extended,0x115 ; "1 unrecoverable error"
010b 00ca | | Action Exit_Nullary_Function
010c ; --------------------------------------------------------------------------------------
010c ; STRING TABLE
010c ; --------------------------------------------------------------------------------------
010c 0016 | | .STRTAB 0x0016->0x0117 ; "["
010d 0015 | | .STRTAB 0x0015->0x0117 ; " ("
010e 0015 | | .STRTAB 0x0015->0x0118 ; ");]"
010f 0016 | | .STRTAB 0x0016->0x011a ; "[end of "
0110 001c | | .STRTAB 0x001c->0x011e ; " operation--"
0111 0026 | & | .STRTAB 0x0026->0x0124 ; " detected]"
0112 002e | . | .STRTAB 0x002e->0x0129 ; " unrecoverable error"
0113 0040 | @ | .STRTAB 0x0040->0x0133 ; " unrecoverable errors"
0114 0053 | S | .STRTAB 0x0053->0x013d ; "no unrecoverable errors"
0115 0068 | h | .STRTAB 0x0068->0x0149 ; "1 unrecoverable error"
0116 007b | { | .STREND 0x007b->0x0153
0117 5b20 2829 |[ ()| .STRTAB_STRINGS
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; Debug Table
0158 ; --------------------------------------------------------------------------------------
0158 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9760,0x0000,0x0001,0x0000
015e 0000 0000 | | .BLANK 0000[0x6]
0164 2000 163a | :| .XXX[0x3]
0166 4000 |@ |
0167 0000 0000 | | .BLANK 0000[0xd]
0174 8014 0000 | | .XXX[0xb]
0176 0000 0000 | |
0178 0100 0000 | |
017a 0880 0000 | |
017c 0004 0000 | |
017e 0028 | ( |
017f 0000 0000 | | .BLANK 0000[0x2e]
01ad 1002 8000 | | .XXX[0xb]
01af 0000 0000 | |
01b1 0020 0000 | |
01b3 0110 0000 | |
01b5 0000 8000 | |
01b7 0005 | |
01b8 0000 0000 | | .BLANK 0000[0x48]