|
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_0bf8df
└─⟦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 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0050 | P | .CONST 0x0050 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b e011 | | Load 0x0,0x11
000c e213 | | Load 0x1,0x13
000d 0098 | | Execute Package,Field_Read_Dynamic
000e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
000f e011 | | Load 0x0,0x11
0010 e213 | | Load 0x1,0x13
0011 0098 | | Execute Package,Field_Read_Dynamic
0012 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0013 e011 | | Load 0x0,0x11
0014 e213 | | Load 0x1,0x13
0015 0098 | | Execute Package,Field_Read_Dynamic
0016 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0017 e011 | | Load 0x0,0x11
0018 e213 | | Load 0x1,0x13
0019 0098 | | Execute Package,Field_Read_Dynamic
001a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001b e013 | | Load 0x0,0x13
001c e213 | | Load 0x1,0x13
001d 0098 | | Execute Package,Field_Read_Dynamic
001e 0007 | | Action Break_Optional
001f e011 | | Load 0x0,0x11
0020 e213 | | Load 0x1,0x13
0021 0098 | | Execute Package,Field_Read_Dynamic
0022 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0023 e00d | | Load 0x0,0xd
0024 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0025 02c7 | | Declare_Variable Any
0026 00d8 | | Load_Top At_Offset_0
0027 1c00 | | Execute_Immediate Run_Utility,0x0
0028 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
002a 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
002c 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
002e 029f 010b | | Declare_Subprogram INIT_0108,For_Call
0030 a014 | | Store_Unchecked 0x0,0x14
0031 00c6 | | Action Check_Subprogram_Elaborated
0032 480b |H | Short_Literal 0xb
0033 4802 |H | Short_Literal 0x2
0034 0099 | | Action Reference_Dynamic
0035 480c |H | Short_Literal 0xc
0036 4802 |H | Short_Literal 0x2
0037 0099 | | Action Reference_Dynamic
0038 0093 0000 | | push_full_address 0x0
003a 606d |`m | Indirect_Literal Discrete,0xa8,{0x80000000, 0x00010000}
003b 0273 | s | Execute Discrete,Plus
003c e002 | | Load 0x0,0x2
003d 0273 | s | Execute Discrete,Plus
003e e01e | | Load 0x0,0x1e
003f 0273 | s | Execute Discrete,Plus
0040 4810 |H | Short_Literal 0x10
0041 0007 | | Action Break_Optional
0042 4801 |H | Short_Literal 0x1
0043 e001 | | Load 0x0,0x1
0044 01d7 | | Execute Vector,Field_Read
0045 0a01 | | Execute_Immediate Plus,0x1
0046 e001 | | Load 0x0,0x1
0047 01d7 | | Execute Vector,Field_Read
0048 02ab | | Declare_Subprogram For_Call,With_Address
0049 4801 |H | Short_Literal 0x1
004a e001 | | Load 0x0,0x1
004b 01d7 | | Execute Vector,Field_Read
004c 0a03 | | Execute_Immediate Plus,0x3
004d e001 | | Load 0x0,0x1
004e 01d7 | | Execute Vector,Field_Read
004f 02ab | | Declare_Subprogram For_Call,With_Address
0050 BODY_0008:
0050 00be | | Action Activate_Tasks
0051 e011 | | Load 0x0,0x11
0052 e213 | | Load 0x1,0x13
0053 0098 | | Execute Package,Field_Read_Dynamic
0054 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0055 e00c | | Load 0x0,0xc
0056 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0057 e00e | | Load 0x0,0xe
0058 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0059 e011 | | Load 0x0,0x11
005a e213 | | Load 0x1,0x13
005b 0098 | | Execute Package,Field_Read_Dynamic
005c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005d c402 | | Store 0x2,0x2
005e e011 | | Load 0x0,0x11
005f e213 | | Load 0x1,0x13
0060 0098 | | Execute Package,Field_Read_Dynamic
0061 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0062 e00c | | Load 0x0,0xc
0063 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0064 e00e | | Load 0x0,0xe
0065 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0066 e011 | | Load 0x0,0x11
0067 e213 | | Load 0x1,0x13
0068 0098 | | Execute Package,Field_Read_Dynamic
0069 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006a c403 | | Store 0x2,0x3
006b e011 | | Load 0x0,0x11
006c e213 | | Load 0x1,0x13
006d 0098 | | Execute Package,Field_Read_Dynamic
006e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
006f e00c | | Load 0x0,0xc
0070 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0071 e00e | | Load 0x0,0xe
0072 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0073 e011 | | Load 0x0,0x11
0074 e213 | | Load 0x1,0x13
0075 0098 | | Execute Package,Field_Read_Dynamic
0076 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0077 c404 | | Store 0x2,0x4
0078 e011 | | Load 0x0,0x11
0079 e213 | | Load 0x1,0x13
007a 0098 | | Execute Package,Field_Read_Dynamic
007b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
007c e00c | | Load 0x0,0xc
007d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
007e e00e | | Load 0x0,0xe
007f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0080 e011 | | Load 0x0,0x11
0081 e213 | | Load 0x1,0x13
0082 0098 | | Execute Package,Field_Read_Dynamic
0083 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0084 c405 | | Store 0x2,0x5
0085 e408 | | Load 0x2,0x8
0086 e5fe | | Load 0x2,-0x2
0087 8215 | | Call 0x1,0x15
0088 c408 | | Store 0x2,0x8
0089 e013 | | Load 0x0,0x13
008a e213 | | Load 0x1,0x13
008b 0098 | | Execute Package,Field_Read_Dynamic
008c e016 | | Load 0x0,0x16
008d e213 | | Load 0x1,0x13
008e 0096 | | Execute Package,Entry
008f c406 | | Store 0x2,0x6
0090 e5ff | | Load 0x2,-0x1
0091 8411 | | Call 0x2,0x11
0092 e408 | | Load 0x2,0x8
0093 8216 | | Call 0x1,0x16
0094 c408 | | Store 0x2,0x8
0095 e5fe | | Load 0x2,-0x2
0096 8412 | | Call 0x2,0x12
0097 e011 | | Load 0x0,0x11
0098 e213 | | Load 0x1,0x13
0099 0098 | | Execute Package,Field_Read_Dynamic
009a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
009b e406 | | Load 0x2,0x6
009c e017 | | Load 0x0,0x17
009d e213 | | Load 0x1,0x13
009e 0096 | | Execute Package,Entry
009f c407 | | Store 0x2,0x7
00a0 e5fb | | Load 0x2,-0x5
00a1 e5fd | | Load 0x2,-0x3
00a2 e5fc | | Load 0x2,-0x4
00a3 e407 | | Load 0x2,0x7
00a4 8218 | | Call 0x1,0x18
00a5 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00a6 0000 0000 | | .XXX[0x2]
00a8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 e402 | | Load 0x2,0x2
00b5 e011 | | Load 0x0,0x11
00b6 e213 | | Load 0x1,0x13
00b7 0098 | | Execute Package,Field_Read_Dynamic
00b8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ba 0000 0000 | | .BLANK 0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2
00c4 8018 | | Call 0x0,0x18
00c5 00da | | Load_Top At_Offset_2
00c6 e004 | | Load 0x0,0x4
00c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c8 6809 |h | Jump_Zero 0xd2
00c9 e004 | | Load 0x0,0x4
00ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00cb e7fe | | Load 0x3,-0x2
00cc 801f | | Call 0x0,0x1f
00cd e406 | | Load 0x2,0x6
00ce e019 | | Load 0x0,0x19
00cf e213 | | Load 0x1,0x13
00d0 0096 | | Execute Package,Entry
00d1 7818 |x | Jump 0xea
00d2 00da | | Load_Top At_Offset_2
00d3 8020 | | Call 0x0,0x20
00d4 7004 |p | Jump_Nonzero 0xd9
00d5 00da | | Load_Top At_Offset_2
00d6 8021 | ! | Call 0x0,0x21
00d7 8020 | | Call 0x0,0x20
00d8 6809 |h | Jump_Zero 0xe2
00d9 00db | | Load_Top At_Offset_3
00da 801f | | Call 0x0,0x1f
00db 00db | | Load_Top At_Offset_3
00dc 801f | | Call 0x0,0x1f
00dd e406 | | Load 0x2,0x6
00de e019 | | Load 0x0,0x19
00df e213 | | Load 0x1,0x13
00e0 0096 | | Execute Package,Entry
00e1 7808 |x | Jump 0xea
00e2 e004 | | Load 0x0,0x4
00e3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e4 e7fe | | Load 0x3,-0x2
00e5 801f | | Call 0x0,0x1f
00e6 e406 | | Load 0x2,0x6
00e7 e019 | | Load 0x0,0x19
00e8 e213 | | Load 0x1,0x13
00e9 0096 | | Execute Package,Entry
00ea e402 | | Load 0x2,0x2
00eb 00db | | Load_Top At_Offset_3
00ec e011 | | Load 0x0,0x11
00ed e213 | | Load 0x1,0x13
00ee 0098 | | Execute Package,Field_Read_Dynamic
00ef 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f0 c402 | | Store 0x2,0x2
00f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00f2 0000 0000 | | .BLANK 0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00db | | Load_Top At_Offset_3
00fc e004 | | Load 0x0,0x4
00fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00fe 0119 | | Execute Any,Check_In_Formal_Type
00ff 00db | | Load_Top At_Offset_3
0100 e004 | | Load 0x0,0x4
0101 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0102 0119 | | Execute Any,Check_In_Formal_Type
0103 8409 | | Call 0x2,0x9
0104 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b e7fd | | Load 0x3,-0x3
010c e01a | | Load 0x0,0x1a
010d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010e 0119 | | Execute Any,Check_In_Formal_Type
010f e7fe | | Load 0x3,-0x2
0110 e004 | | Load 0x0,0x4
0111 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0112 0119 | | Execute Any,Check_In_Formal_Type
0113 e7ff | | Load 0x3,-0x1
0114 e004 | | Load 0x0,0x4
0115 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0116 0119 | | Execute Any,Check_In_Formal_Type
0117 840a | | Call 0x2,0xa
0118 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0119 0000 0000 | | .BLANK 0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; Debug Table
0120 ; --------------------------------------------------------------------------------------
0120 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0ba1,0x0000,0x0001,0x0000
0126 4d35 0531 |M5 1| .XXX[0xda]
0128 317d 0d05 |1} |
012a 4125 5105 |A%Q |
012c 30c4 0021 |0 !|
012e 4d51 0549 |MQ I|
0130 517d 2540 |Q}%@|
0132 c400 214d | !M|
0134 5105 4951 |Q IQ|
0136 7d39 40c4 |}9@ |
0138 0031 4d51 | 1MQ|
013a 4925 391d |I%9 |
013c 7d35 050d |}5 |
013e 493c c400 |I< |
0140 294d 5509 |)MU |
0142 2115 0511 |! |
0144 2539 1cc4 |%9 |
0146 0031 4d55 | 1MU|
0148 0941 0549 | A I|
014a 051d 4905 | I |
014c 4120 c400 |A |
014e 254d 5509 |%MU |
0150 4d0d 4925 |M I%|
0152 4150 c400 |AP |
0154 294d 5509 |)MU |
0156 4d15 0d51 |M Q|
0158 253d 38c4 |%=8 |
015a 002d 4d55 | -MU|
015c 4115 494d |A IM|
015e 0d49 2541 | I%A|
0160 50c4 0019 |P |
0162 4d65 3509 |Me5 |
0164 3d30 c400 |=0 |
0166 1551 0509 | Q |
0168 3114 c400 |1 |
016a 3551 0509 |5Q |
016c 3115 7d3d |1 }=|
016e 4151 253d |AQ%=|
0170 394c c400 |9L |
0172 2d51 0509 |-Q |
0174 3115 7d51 |1 }Q|
0176 2551 3114 |%Q1 |
0178 c400 0d51 | Q|
017a 051c c400 | |
017c 2551 051d |%Q |
017e 1d15 117d | }|
0180 4140 c400 |A@ |
0182 1151 1561 | Q a|
0184 50c4 000d |P |
0186 5125 40c4 |Q%@ |
0188 0029 5125 | )Q%|
018a 5131 157d |Q1 }|
018c 0549 1504 | I |
018e c400 2951 | )Q|
0190 2551 3115 |%Q1 |
0192 7d41 051d |}A |
0194 14c4 000d | |
0196 5139 40c4 |Q9@ |
0198 0029 5165 | )Qe|
019a 4115 5d49 |A ]I|
019c 2551 1548 |%Q H|
019e c400 2555 | %U|
01a0 3911 1549 |9 I|
01a2 3125 3914 |1%9 |
01a4 c400 1559 | Y|
01a6 0531 5514 | 1U |
01a8 c400 2159 | !Y|
01aa 1549 0905 | I |
01ac 5125 34c4 |Q%4 |
01ae 003d 113d | = =|
01b0 7d4d 5149 |}MQI|
01b2 2539 1d7d |%9 }|
01b4 3505 0d49 |5 I|
01b6 3cc4 0021 |< !|
01b8 113d 7d35 | =}5|
01ba 050d 493c | I<|
01bc c400 2105 | ! |
01be 491d 5535 |I U5|
01c0 1539 5000 | 9P |
01c2 0000 00d0 | |
01c4 011c 0091 | |
01c6 193d 4935 | =I5|
01c8 0551 5115 | QQ |
01ca 497d 1d31 |I} 1|
01cc 3d09 0531 |= 1|
01ce 4cb9 3505 |L 5 |
01d0 617d 0d21 |a} !|
01d2 0549 4d7d | IM}|
01d4 4115 497d |A I}|
01d6 3125 3914 |1%9 |
01d8 e198 5c00 | \ |
01da 454d 5105 |EMQ |
01dc 3911 0549 |9 I|
01de 10b9 413d | A=|
01e0 4d25 5125 |M%Q%|
01e2 5914 0020 |Y |
01e4 0000 0000 | |
01e6 0000 0003 | |
01e8 e800 0000 | |
01ea f001 ec00 | |
01ec 8519 3d49 | =I|
01ee 3505 5151 |5 QQ|
01f0 1549 7d1d | I} |
01f2 313d 0905 |1= |
01f4 314c b951 |1L Q|
01f6 0509 3115 | 1 |
01f8 0511 1549 | I|
01fa 7d05 4949 |} II|
01fc 0564 ee65 | d e|
01fe b18d 8420 | |