|
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_03bcfe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0148 | H | .CONST 0x0148 ; 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 0026 | & | .CONST 0x0026 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
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 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0016 c212 | | Store 0x1,0x12
0017 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0019 c213 | | Store 0x1,0x13
001a e001 | | Load 0x0,0x1
001b 0129 | ) | Execute Any,Make_Visible
001c c211 | | Store 0x1,0x11
001d 00bf | | Action Accept_Activation
001e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
001f 00c7 | | Action Elaborate_Subprogram
0020 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0021 00c7 | | Action Elaborate_Subprogram
0022 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0023 00c7 | | Action Elaborate_Subprogram
0024 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0025 00c7 | | Action Elaborate_Subprogram
0026 BODY_0008:
0026 00bc | | Action Signal_Activated
0027 00bb | | Action Signal_Completion
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 003f | ? | .CONST 0x003f ; Address of begin
0029 007e | ~ | .CONST 0x007e ; Address of exception handler
002a 0006 | | .CONST 0x0006 ; Number of locals
002b INIT_0028:
002b e002 | | Load 0x0,0x2
002c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
002d 02c7 | | Declare_Variable Any
002e 00d8 | | Load_Top At_Offset_0
002f 1c00 | | Execute_Immediate Run_Utility,0x0
0030 e003 | | Load 0x0,0x3
0031 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0032 e003 | | Load 0x0,0x3
0033 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0034 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0035 e003 | | Load 0x0,0x3
0036 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0037 02c7 | | Declare_Variable Any
0038 00d8 | | Load_Top At_Offset_0
0039 1c00 | | Execute_Immediate Run_Utility,0x0
003a e003 | | Load 0x0,0x3
003b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003c 02c7 | | Declare_Variable Any
003d 00d8 | | Load_Top At_Offset_0
003e 1c00 | | Execute_Immediate Run_Utility,0x0
003f BODY_0028:
003f 00be | | Action Activate_Tasks
0040 e003 | | Load 0x0,0x3
0041 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0042 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0043 e405 | | Load 0x2,0x5
0044 0120 | | Execute Any,Is_Value
0045 6803 |h | Jump_Zero 0x49
0046 e003 | | Load 0x0,0x3
0047 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0048 7801 |x | Jump 0x4a
0049 e405 | | Load 0x2,0x5
004a 6039 |`9 | Indirect_Literal Discrete,0x84,{0x00000000, 0x00004000}
004b e004 | | Load 0x0,0x4
004c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004d e005 | | Load 0x0,0x5
004e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004f e003 | | Load 0x0,0x3
0050 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0051 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0052 e5ff | | Load 0x2,-0x1
0053 e003 | | Load 0x0,0x3
0054 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0055 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0056 c405 | | Store 0x2,0x5
0057 c404 | | Store 0x2,0x4
0058 e404 | | Load 0x2,0x4
0059 6802 |h | Jump_Zero 0x5c
005a e211 | | Load 0x1,0x11
005b 0257 | W | Execute Discrete,Raise
005c e003 | | Load 0x0,0x3
005d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005e e402 | | Load 0x2,0x2
005f 4800 |H | Short_Literal 0x0
0060 4800 |H | Short_Literal 0x0
0061 e004 | | Load 0x0,0x4
0062 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0063 e002 | | Load 0x0,0x2
0064 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0065 e002 | | Load 0x0,0x2
0066 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0067 c402 | | Store 0x2,0x2
0068 c403 | | Store 0x2,0x3
0069 e403 | | Load 0x2,0x3
006a 6802 |h | Jump_Zero 0x6d
006b e211 | | Load 0x1,0x11
006c 0257 | W | Execute Discrete,Raise
006d e402 | | Load 0x2,0x2
006e e405 | | Load 0x2,0x5
006f e002 | | Load 0x0,0x2
0070 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0071 c406 | | Store 0x2,0x6
0072 e003 | | Load 0x0,0x3
0073 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0074 e402 | | Load 0x2,0x2
0075 e002 | | Load 0x0,0x2
0076 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0077 c402 | | Store 0x2,0x2
0078 c403 | | Store 0x2,0x3
0079 00d8 | | Load_Top At_Offset_0
007a e003 | | Load 0x0,0x3
007b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
007c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007e TRAP_0028:
007e 0007 | | Action Break_Optional
007f e211 | | Load 0x1,0x11
0080 0257 | W | Execute Discrete,Raise
0081 0000 0000 | | .XXX[0x3]
0083 0000 | |
0084 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 009f | | .CONST 0x009f ; Address of begin
0089 00de | | .CONST 0x00de ; Address of exception handler
008a 0006 | | .CONST 0x0006 ; Number of locals
008b INIT_0088:
008b e002 | | Load 0x0,0x2
008c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
008d 02c7 | | Declare_Variable Any
008e 00d8 | | Load_Top At_Offset_0
008f 1c00 | | Execute_Immediate Run_Utility,0x0
0090 e003 | | Load 0x0,0x3
0091 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0092 e003 | | Load 0x0,0x3
0093 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0094 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0095 e003 | | Load 0x0,0x3
0096 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0097 02c7 | | Declare_Variable Any
0098 00d8 | | Load_Top At_Offset_0
0099 1c00 | | Execute_Immediate Run_Utility,0x0
009a e003 | | Load 0x0,0x3
009b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
009c 02c7 | | Declare_Variable Any
009d 00d8 | | Load_Top At_Offset_0
009e 1c00 | | Execute_Immediate Run_Utility,0x0
009f BODY_0088:
009f 00be | | Action Activate_Tasks
00a0 e003 | | Load 0x0,0x3
00a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a3 e405 | | Load 0x2,0x5
00a4 0120 | | Execute Any,Is_Value
00a5 6803 |h | Jump_Zero 0xa9
00a6 e003 | | Load 0x0,0x3
00a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a8 7801 |x | Jump 0xaa
00a9 e405 | | Load 0x2,0x5
00aa 67d9 |g | Indirect_Literal Discrete,0x84,{0x00000000, 0x00004000}
00ab e004 | | Load 0x0,0x4
00ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ad e005 | | Load 0x0,0x5
00ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00af e003 | | Load 0x0,0x3
00b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b2 e5ff | | Load 0x2,-0x1
00b3 e003 | | Load 0x0,0x3
00b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00b6 c405 | | Store 0x2,0x5
00b7 c404 | | Store 0x2,0x4
00b8 e404 | | Load 0x2,0x4
00b9 6802 |h | Jump_Zero 0xbc
00ba e211 | | Load 0x1,0x11
00bb 0257 | W | Execute Discrete,Raise
00bc e003 | | Load 0x0,0x3
00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00be e402 | | Load 0x2,0x2
00bf 4800 |H | Short_Literal 0x0
00c0 4800 |H | Short_Literal 0x0
00c1 e004 | | Load 0x0,0x4
00c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c3 e002 | | Load 0x0,0x2
00c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c5 e002 | | Load 0x0,0x2
00c6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c7 c402 | | Store 0x2,0x2
00c8 c403 | | Store 0x2,0x3
00c9 e403 | | Load 0x2,0x3
00ca 6802 |h | Jump_Zero 0xcd
00cb e211 | | Load 0x1,0x11
00cc 0257 | W | Execute Discrete,Raise
00cd e402 | | Load 0x2,0x2
00ce e405 | | Load 0x2,0x5
00cf e002 | | Load 0x0,0x2
00d0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00d1 c406 | | Store 0x2,0x6
00d2 e003 | | Load 0x0,0x3
00d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d4 e402 | | Load 0x2,0x2
00d5 e002 | | Load 0x0,0x2
00d6 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d7 c402 | | Store 0x2,0x2
00d8 c403 | | Store 0x2,0x3
00d9 00d8 | | Load_Top At_Offset_0
00da e003 | | Load 0x0,0x3
00db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00dc 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00de TRAP_0088:
00de 0007 | | Action Break_Optional
00df e211 | | Load 0x1,0x11
00e0 0257 | W | Execute Discrete,Raise
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f3 | | .CONST 0x00f3 ; Address of begin
00e9 0114 | | .CONST 0x0114 ; Address of exception handler
00ea 0003 | | .CONST 0x0003 ; Number of locals
00eb INIT_00e8:
00eb e003 | | Load 0x0,0x3
00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ed e003 | | Load 0x0,0x3
00ee 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f0 02c7 | | Declare_Variable Any
00f1 00d8 | | Load_Top At_Offset_0
00f2 1c00 | | Execute_Immediate Run_Utility,0x0
00f3 BODY_00e8:
00f3 e003 | | Load 0x0,0x3
00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f5 e403 | | Load 0x2,0x3
00f6 0120 | | Execute Any,Is_Value
00f7 6804 |h | Jump_Zero 0xfc
00f8 e003 | | Load 0x0,0x3
00f9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fb 7801 |x | Jump 0xfd
00fc e403 | | Load 0x2,0x3
00fd e005 | | Load 0x0,0x5
00fe 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ff e003 | | Load 0x0,0x3
0100 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0101 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0102 e003 | | Load 0x0,0x3
0103 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0104 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0105 c403 | | Store 0x2,0x3
0106 c402 | | Store 0x2,0x2
0107 e402 | | Load 0x2,0x2
0108 6802 |h | Jump_Zero 0x10b
0109 e211 | | Load 0x1,0x11
010a 0257 | W | Execute Discrete,Raise
010b 00d8 | | Load_Top At_Offset_0
010c e002 | | Load 0x0,0x2
010d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
010e e002 | | Load 0x0,0x2
010f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0110 e003 | | Load 0x0,0x3
0111 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0112 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0113 00ca | | Action Exit_Nullary_Function
0114 TRAP_00e8:
0114 0007 | | Action Break_Optional
0115 e211 | | Load 0x1,0x11
0116 0257 | W | Execute Discrete,Raise
0117 0000 | | .XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0123 | # | .CONST 0x0123 ; Address of begin
0119 0142 | B | .CONST 0x0142 ; Address of exception handler
011a 0003 | | .CONST 0x0003 ; Number of locals
011b INIT_0118:
011b e003 | | Load 0x0,0x3
011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011d e003 | | Load 0x0,0x3
011e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
011f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0120 02c7 | | Declare_Variable Any
0121 00d8 | | Load_Top At_Offset_0
0122 1c00 | | Execute_Immediate Run_Utility,0x0
0123 BODY_0118:
0123 e003 | | Load 0x0,0x3
0124 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0125 e403 | | Load 0x2,0x3
0126 0120 | | Execute Any,Is_Value
0127 6804 |h | Jump_Zero 0x12c
0128 e003 | | Load 0x0,0x3
0129 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
012a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012b 7801 |x | Jump 0x12d
012c e403 | | Load 0x2,0x3
012d e005 | | Load 0x0,0x5
012e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
012f e003 | | Load 0x0,0x3
0130 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0131 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0132 e003 | | Load 0x0,0x3
0133 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0134 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0135 c403 | | Store 0x2,0x3
0136 c402 | | Store 0x2,0x2
0137 e402 | | Load 0x2,0x2
0138 6802 |h | Jump_Zero 0x13b
0139 e211 | | Load 0x1,0x11
013a 0257 | W | Execute Discrete,Raise
013b 00d8 | | Load_Top At_Offset_0
013c e002 | | Load 0x0,0x2
013d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
013e e003 | | Load 0x0,0x3
013f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0140 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0141 00ca | | Action Exit_Nullary_Function
0142 TRAP_0118:
0142 0007 | | Action Break_Optional
0143 e211 | | Load 0x1,0x11
0144 0257 | W | Execute Discrete,Raise
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0004 000f | | .DEBUG4 0x0004,0x000f,0x4302,0x0000,0x0001,0x0000
014e 1505 5114 | Q | .XXX[0xb2]
0150 f5ee 51fa | Q |
0152 408c 002d |@ -|
0154 4915 353d |I 5=|
0156 5115 7d19 |Q } |
0158 2531 145c |%1 \|
015a 003d 4d51 | =MQ|
015c 0539 1105 | 9 |
015e 4910 b94d |I M|
0160 5149 2539 |QI%9|
0162 1c01 fa40 | @|
0164 8c00 3125 | 1%|
0166 4d7d 1125 |M} %|
0168 4915 0d51 |I Q|
016a 3d49 645c |=Id\|
016c 0041 4d51 | AMQ|
016e 0539 1105 | 9 |
0170 4910 b909 |I |
0172 3d3d 3115 |==1 |
0174 0538 5800 | 8X |
0176 594d 5105 |YMQ |
0178 3911 0549 |9 I|
017a 10b9 093d | =|
017c 3d31 1505 |=1 |
017e 38b9 1905 |8 |
0180 314d 15fa |1M |
0182 408c 0029 |@ )|
0184 0d3d 3939 | =99|
0186 150d 5125 | Q%|
0188 3d38 5c00 |=8\ |
018a 6549 1545 |eI E|
018c 5515 4d51 |U MQ|
018e 4cb9 0d3d |L =|
0190 3939 150d |99 |
0192 5125 3d39 |Q%=9|
0194 7d59 0531 |}Y 1|
0196 5514 01f6 |U |
0198 4094 0019 |@ |
019a 4d51 0551 |MQ Q|
019c 554c 5c00 |UL\ |
019e 5d4d 2535 |]M%5|
01a0 4131 157d |A1 }|
01a2 4d51 0551 |MQ Q|
01a4 554c b90d |UL |
01a6 3d39 1125 |=9 %|
01a8 5125 3d38 |Q%=8|
01aa 0000 0011 | |
01ac c0a8 0000 | |
01ae 01b0 0000 | |
01b0 0008 0000 | |
01b2 0640 00f2 | @ |
01b4 922a 8aaa | * |
01b6 2a9a a299 |* |
01b8 7292 2a9a |r * |
01ba 7aaa 921a |z |
01bc 2afa 624a |* bJ|
01be 6a4a a2fa |jJ |
01c0 9aa2 0aa2 | |
01c2 aa99 c330 | 0|
01c4 b800 e29a | |
01c6 4a6a 8262 |Jj b|
01c8 2afa 9aa2 |* |
01ca 0aa2 aa99 | |
01cc 721a 7a72 |r zr|
01ce 224a a24a |"J J|
01d0 7a72 fa72 |zr r|
01d2 0a6a 2800 | j( |
01d4 8008 b800 | |
01d6 9a92 2a8a | * |
01d8 aa2a 9aa2 | * |
01da 9972 6a0a | rj |
01dc 5a2a fa2a |Z* *|
01de 9292 7a94 | z |
01e0 9878 70b8 | xp |
01e2 009a 922a | *|
01e4 8aaa 2a9a | * |
01e6 a299 722a | r*|
01e8 9292 7a92 | z |
01ea fa72 0a6a | r j|
01ec 28b8 002a |( *|
01ee 4a6a 0a3a |Jj :|
01f0 28b0 0112 |( |
01f2 922a 8aaa | * |
01f4 2a9a a299 |* |
01f6 722a 9292 |r* |
01f8 7a92 fa72 |z r|
01fa 0a6a 2972 | j)r|
01fc 922a 9a7a | * z|
01fe aa92 1a2a | *|