|
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, ELAB_segment_table, NULL, R1k_Segment, seg_6148f2
└─⟦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 0090 | | .CONST 0x0090 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0088 | | .CONST 0x0088 ; Offset to segment table (only in elab segments)
0007 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 000e | | .CONST 0x000e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029c 0013 | | Declare_Subprogram INIT_0010,For_Outer_Call,Visible
000d 00bf | | Action Accept_Activation
000e BODY_0008:
000e 00bc | | Action Signal_Activated
000f 00bb | | Action Signal_Completion
0010 ; --------------------------------------------------------------------------------------
0010 ; SUBPROGRAM
0010 ; --------------------------------------------------------------------------------------
0010 0015 | | .CONST 0x0015 ; Address of begin
0011 001a | | .CONST 0x001a ; Address of exception handler
0012 0002 | | .CONST 0x0002 ; Number of locals
0013 INIT_0010:
0013 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call
0015 BODY_0010:
0015 8402 | | Call 0x2,0x2
0016 7801 |x | Jump 0x18
0017 0003 | | .XXX[0x1]
0018 006f | o | Action Break_Unconditional
0019 4501 |E | Exit_Suprogram New_Top_Offset 0x1
001a TRAP_0010:
001a 7801 |x | Jump 0x1c
001b 0003 | | .XXX[0x1]
001c 006f | o | Action Break_Unconditional
001d 00d8 | | Load_Top At_Offset_0
001e 0100 | | Execute Exception,Raise
001f 0000 | | .XXX[0x1]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 005e | ^ | .CONST 0x005e ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 000a | | .CONST 0x000a ; Number of locals
0023 INIT_0020:
0023 7801 |x | Jump 0x25
0024 0002 | | .XXX[0x1]
0025 006f | o | Action Break_Unconditional
0026 7830 |x0 | Jump 0x57
0027 4800 |H | Short_Literal 0x0
0028 605b |`[ | Indirect_Literal Discrete,0x84,{0x0014650b, 0x000000b0}
0029 02a0 | | Declare_Subprogram Null_Subprogram
002a 038e | | Declare_Type Package,Defined
002b 0387 | | Declare_Variable Package
002c 00d8 | | Load_Top At_Offset_0
002d 190d | | Execute Package,Field_Reference,Field_Number 0xd
002e 6051 |`Q | Indirect_Literal Discrete,0x80,{0x00000000, 0x003d6804}
002f e002 | | Load 0x0,0x2
0030 e001 | | Load 0x0,0x1
0031 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0032 6049 |`I | Indirect_Literal Discrete,0x7c,{0x00000000, 0x001a9404}
0033 e002 | | Load 0x0,0x2
0034 e001 | | Load 0x0,0x1
0035 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0036 6041 |`A | Indirect_Literal Discrete,0x78,{0x00000000, 0x003b6804}
0037 e002 | | Load 0x0,0x2
0038 e001 | | Load 0x0,0x1
0039 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
003a 6039 |`9 | Indirect_Literal Discrete,0x74,{0x00000000, 0x000ca804}
003b e002 | | Load 0x0,0x2
003c e001 | | Load 0x0,0x1
003d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
003e 6031 |`1 | Indirect_Literal Discrete,0x70,{0x00000000, 0x000cb004}
003f e002 | | Load 0x0,0x2
0040 e001 | | Load 0x0,0x1
0041 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0042 6029 |`) | Indirect_Literal Discrete,0x6c,{0x00000000, 0x000e3804}
0043 e002 | | Load 0x0,0x2
0044 e001 | | Load 0x0,0x1
0045 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0046 6021 |`! | Indirect_Literal Discrete,0x68,{0x00000000, 0x000e1804}
0047 e002 | | Load 0x0,0x2
0048 e001 | | Load 0x0,0x1
0049 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
004a e604 | | Load 0x3,0x4
004b e607 | | Load 0x3,0x7
004c e608 | | Load 0x3,0x8
004d e606 | | Load 0x3,0x6
004e e605 | | Load 0x3,0x5
004f e60a | | Load 0x3,0xa
0050 e609 | | Load 0x3,0x9
0051 4807 |H | Short_Literal 0x7
0052 e602 | | Load 0x3,0x2
0053 020e | | Execute Module,Augment_Imports
0054 e602 | | Load 0x3,0x2
0055 020f | | Execute Module,Activate
0056 7807 |x | Jump BODY_0020
0057 600c |` | Indirect_Literal Discrete,0x64,{0x00000000, 0x00001f40}
0058 6007 |` | Indirect_Literal Discrete,0x60,{0x00000000, 0x00190c04}
0059 e002 | | Load 0x0,0x2
005a e001 | | Load 0x0,0x1
005b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
005c 180d | | Execute Package,Field_Execute,Field_Number 0xd
005d 7fc9 | | Jump 0x27
005e BODY_0020:
005e 8603 | | Call 0x3,0x3
005f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0060 0000 0000 | | .LITERAL {0x00000000, 0x00190c04}
0064 0000 0000 | | .LITERAL {0x00000000, 0x00001f40}
0068 0000 0000 | | .LITERAL {0x00000000, 0x000e1804}
006c 0000 0000 | | .LITERAL {0x00000000, 0x000e3804}
0070 0000 0000 | | .LITERAL {0x00000000, 0x000cb004}
0074 0000 0000 | | .LITERAL {0x00000000, 0x000ca804}
0078 0000 0000 | | .LITERAL {0x00000000, 0x003b6804}
007c 0000 0000 | | .LITERAL {0x00000000, 0x001a9404}
0080 0000 0000 | | .LITERAL {0x00000000, 0x003d6804}
0084 0014 650b | e | .LITERAL {0x0014650b, 0x000000b0}
0088 ; --------------------------------------------------------------------------------------
0088 ; Segment Table
0088 ; --------------------------------------------------------------------------------------
0088 0028 | ( | .XXX[0x1]
0089 0000 0000 | | .BLANK 0000[0x7]
0090 ; --------------------------------------------------------------------------------------
0090 ; Debug Table
0090 ; --------------------------------------------------------------------------------------
0090 0004 000e | | .DEBUG4 0x0004,0x000e,0xa2eb,0x0000,0x0001,0x0000
0096 2020 2020 | | .BLANK 2020[0x5]
009b 2077 6865 | whe| .XXX[0xb]
009d 6e20 272f |n '/|
009f 2720 7c20 |' | |
00a1 273f 2720 |'?' |
00a3 3d3e 2900 |=>) |
00a5 3420 |4 |
00a6 2020 2020 | | .BLANK 2020[0xd]
00b3 2045 6469 | Edi| .XXX[0xe]
00b5 746f 722e |tor.|
00b7 5769 6e64 |Wind|
00b9 6f77 2e44 |ow.D|
00bb 6972 6563 |irec|
00bd 746f 7279 |tory|
00bf 3b34 0029 |;4 )|
00c1 2020 2020 | | .BLANK 2020[0xc]
00cd 7768 656e |when| .XXX[0xa]
00cf 2027 3227 | '2'|
00d1 207c 2027 | | '|
00d3 4027 203d |@' =|
00d5 3e29 0035 |>) 5|
00d7 2020 2020 | | .BLANK 2020[0xe]
00e5 4564 6974 |Edit| .XXX[0xe]
00e7 6f72 2e57 |or.W|
00e9 696e 646f |indo|
00eb 772e 4672 |w.Fr|
00ed 616d 6573 |ames|
00ef 2028 3229 | (2)|
00f1 3b35 0029 |;5 )|
00f3 2020 2020 | | .BLANK 2020[0xc]
00ff 7768 656e |when| .XXX[0xa]
0101 2027 3627 | '6'|
0103 207c 2027 | | '|
0105 5e27 203d |^' =|
0107 3e29 0035 |>) 5|
0109 2020 2020 | | .BLANK 2020[0xe]
0117 4564 6974 |Edit| .XXX[0xe]
0119 6f72 2e57 |or.W|
011b 696e 646f |indo|
011d 772e 4672 |w.Fr|
011f 616d 6573 |ames|
0121 2028 3629 | (6)|
0123 3b35 0035 |;5 5|
0125 2020 2020 | | .BLANK 2020[0xc]
0131 7768 656e |when| .XXX[0x10]
0133 2027 4127 | 'A'|
0135 207c 2027 | | '|
0137 6127 207c |a' ||
0139 204e 756d | Num|
013b 6572 6963 |eric|
013d 5f37 203d |_7 =|
013f 3e35 0037 |>5 7|
0141 2020 2020 | | .BLANK 2020[0xe]
014f 4564 6974 |Edit| .XXX[0xf]
0151 6f72 2e57 |or.W|
0153 696e 646f |indo|
0155 772e 4265 |w.Be|
0157 6769 6e6e |ginn|
0159 696e 675f |ing_|
015b 4f66 3b37 |Of;7|
015d 0029 | ) |
015e 2020 2020 | | .BLANK 2020[0xc]
016a 7768 656e |when| .XXX[0xa]
016c 2027 4227 | 'B'|
016e 207c 2027 | | '|
0170 6227 203d |b' =|
0172 3e29 0037 |>) 7|
0174 2020 2020 | | .BLANK 2020[0xe]
0182 4564 6974 |Edit| .XXX[0xf]
0184 6f72 2e57 |or.W|
0186 696e 646f |indo|
0188 772e 4265 |w.Be|
018a 6769 6e6e |ginn|
018c 696e 675f |ing_|
018e 4f66 3b37 |Of;7|
0190 0029 | ) |
0191 2020 2020 | | .BLANK 2020[0xc]
019d 7768 656e |when| .XXX[0xa]
019f 2027 4327 | 'C'|
01a1 207c 2027 | | '|
01a3 6327 203d |c' =|
01a5 3e29 002f |>) /|
01a7 2020 2020 | | .BLANK 2020[0xe]
01b5 4564 6974 |Edit| .XXX[0xb]
01b7 6f72 2e57 |or.W|
01b9 696e 646f |indo|
01bb 772e 436f |w.Co|
01bd 7079 3b2f |py;/|
01bf 004d | M |
01c0 2020 2020 | | .BLANK 2020[0xc]
01cc 7768 656e |when| .XXX[0x1c]
01ce 2027 4427 | 'D'|
01d0 207c 2027 | | '|
01d2 4b27 207c |K' ||
01d4 2027 5727 | 'W'|
01d6 207c 2027 | | '|
01d8 5827 207c |X' ||
01da 2027 6427 | 'd'|
01dc 207c 2027 | | '|
01de 6b27 207c |k' ||
01e0 2027 7727 | 'w'|
01e2 207c 2027 | | '|
01e4 7827 203d |x' =|
01e6 3e4d 002f |>M /|
01e8 2020 2020 | | .BLANK 2020[0xe]
01f6 4564 6974 |Edit| .XXX[0xa]
01f8 6f72 2e57 |or.W|
01fa 696e 646f |indo|
01fc 772e 4465 |w.De|
01fe 6c65 742f |let/|