|
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 - metrics - download
Length: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, ELAB_segment_table, NULL, R1k_Segment, seg_0500e0
└─⟦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 00b8 | | .CONST 0x00b8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 00b4 | | .CONST 0x00b4 ; 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 For_Outer_Call,Visible,INIT_0010
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 For_Call,INIT_0020
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_Subprogram 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 0073 | s | .CONST 0x0073 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 000f | | .CONST 0x000f ; Number of locals
0023 INIT_0020:
0023 7801 |x | Jump 0x25
0024 0002 | | .XXX[0x1]
0025 006f | o | Action Break_Unconditional
0026 7845 |xE | Jump 0x6c
0027 4800 |H | Short_Literal 0x0
0028 6087 |` | Indirect_Literal Discrete,0xb0,{0x0036710b, 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 607d |`} | Indirect_Literal Discrete,0xac,{0x00000000, 0x00096804}
002f e002 | | Load 0x0,0x2
0030 e001 | | Load 0x0,0x1
0031 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0032 6075 |`u | Indirect_Literal Discrete,0xa8,{0x00000000, 0x000cb004}
0033 e002 | | Load 0x0,0x2
0034 e001 | | Load 0x0,0x1
0035 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0036 606d |`m | Indirect_Literal Discrete,0xa4,{0x00000000, 0x003d4c04}
0037 e002 | | Load 0x0,0x2
0038 e001 | | Load 0x0,0x1
0039 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
003a 6065 |`e | Indirect_Literal Discrete,0xa0,{0x00000000, 0x0036c804}
003b e002 | | Load 0x0,0x2
003c e001 | | Load 0x0,0x1
003d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
003e 605d |`] | Indirect_Literal Discrete,0x9c,{0x00000000, 0x001a9404}
003f e002 | | Load 0x0,0x2
0040 e001 | | Load 0x0,0x1
0041 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0042 6055 |`U | Indirect_Literal Discrete,0x98,{0x00000000, 0x00065c04}
0043 e002 | | Load 0x0,0x2
0044 e001 | | Load 0x0,0x1
0045 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0046 604d |`M | Indirect_Literal Discrete,0x94,{0x00000000, 0x003d7004}
0047 e002 | | Load 0x0,0x2
0048 e001 | | Load 0x0,0x1
0049 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
004a 6045 |`E | Indirect_Literal Discrete,0x90,{0x00000000, 0x003b6804}
004b e002 | | Load 0x0,0x2
004c e001 | | Load 0x0,0x1
004d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
004e 603d |`= | Indirect_Literal Discrete,0x8c,{0x00000000, 0x00352404}
004f e002 | | Load 0x0,0x2
0050 e001 | | Load 0x0,0x1
0051 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0052 6035 |`5 | Indirect_Literal Discrete,0x88,{0x00000000, 0x003e1004}
0053 e002 | | Load 0x0,0x2
0054 e001 | | Load 0x0,0x1
0055 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0056 602d |`- | Indirect_Literal Discrete,0x84,{0x00000000, 0x000e3804}
0057 e002 | | Load 0x0,0x2
0058 e001 | | Load 0x0,0x1
0059 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
005a 6025 |`% | Indirect_Literal Discrete,0x80,{0x00000000, 0x000e1804}
005b e002 | | Load 0x0,0x2
005c e001 | | Load 0x0,0x1
005d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
005e 00db | | Load_Top At_Offset_3
005f e606 | | Load 0x3,0x6
0060 e60a | | Load 0x3,0xa
0061 e604 | | Load 0x3,0x4
0062 e605 | | Load 0x3,0x5
0063 e608 | | Load 0x3,0x8
0064 e60f | | Load 0x3,0xf
0065 e60e | | Load 0x3,0xe
0066 4808 |H | Short_Literal 0x8
0067 e602 | | Load 0x3,0x2
0068 020e | | Execute Module,Augment_Imports
0069 e602 | | Load 0x3,0x2
006a 020f | | Execute Module,Activate
006b 7807 |x | Jump BODY_0020
006c 600f |` | Indirect_Literal Discrete,0x7c,{0x00000000, 0x00001f40}
006d 600a |` | Indirect_Literal Discrete,0x78,{0x00000000, 0x00190c04}
006e e002 | | Load 0x0,0x2
006f e001 | | Load 0x0,0x1
0070 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0071 180d | | Execute Package,Field_Execute,Field_Number 0xd
0072 7fb4 | | Jump 0x27
0073 BODY_0020:
0073 8603 | | Call 0x3,0x3
0074 4501 |E | Exit_Subprogram 0x1
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
0078 0000 0000 | | .LITERAL {0x00000000, 0x00190c04}
007c 0000 0000 | | .LITERAL {0x00000000, 0x00001f40}
0080 0000 0000 | | .LITERAL {0x00000000, 0x000e1804}
0084 0000 0000 | | .LITERAL {0x00000000, 0x000e3804}
0088 0000 0000 | | .LITERAL {0x00000000, 0x003e1004}
008c 0000 0000 | | .LITERAL {0x00000000, 0x00352404}
0090 0000 0000 | | .LITERAL {0x00000000, 0x003b6804}
0094 0000 0000 | | .LITERAL {0x00000000, 0x003d7004}
0098 0000 0000 | | .LITERAL {0x00000000, 0x00065c04}
009c 0000 0000 | | .LITERAL {0x00000000, 0x001a9404}
00a0 0000 0000 | | .LITERAL {0x00000000, 0x0036c804}
00a4 0000 0000 | | .LITERAL {0x00000000, 0x003d4c04}
00a8 0000 0000 | | .LITERAL {0x00000000, 0x000cb004}
00ac 0000 0000 | | .LITERAL {0x00000000, 0x00096804}
00b0 0036 710b | 6q | .LITERAL {0x0036710b, 0x000000b0}
00b4 ; --------------------------------------------------------------------------------------
00b4 ; Segment Table
00b4 ; --------------------------------------------------------------------------------------
00b4 0028 0000 | ( | .XXX[0x4]
00b6 0000 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; Debug Table
00b8 ; --------------------------------------------------------------------------------------
00b8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x7705,0x0000,0x0001,0x0000
00be 7661 7465 |vate| .XXX[0x4]
00c0 3b27 001f |;' |
00c2 2020 2020 | | .BLANK 2020[0x8]
00ca 7768 656e |when| .XXX[0x9]
00cc 2043 6d73 | Cms|
00ce 5f46 3136 |_F16|
00d0 203d 3e1f | => |
00d2 0037 | 7 |
00d3 2020 2020 | | .BLANK 2020[0xa]
00dd 4164 612e |Ada.| .XXX[0x13]
00df 5368 6f77 |Show|
00e1 5f55 7361 |_Usa|
00e3 6765 2028 |ge (|
00e5 4e61 6d65 |Name|
00e7 203d 3e20 | => |
00e9 223c 4355 |"<CU|
00eb 5253 4f52 |RSOR|
00ed 3e22 2c37 |>",7|
00ef 0033 | 3 |
00f0 2020 2020 | | .BLANK 2020[0x12]
0102 476c 6f62 |Glob| .XXX[0x9]
0104 616c 203d |al =|
0106 3e20 5472 |> Tr|
0108 7565 2c33 |ue,3|
010a 003c | < |
010b 2020 2020 | | .BLANK 2020[0x12]
011d 4c69 6d69 |Limi| .XXX[0xe]
011f 7420 3d3e |t =>|
0121 2022 3c41 | "<A|
0123 4c4c 5f57 |LL_W|
0125 4f52 4c44 |ORLD|
0127 533e 222c |S>",|
0129 3c00 3520 |< 5 |
012b 2020 2020 | | .BLANK 2020[0x11]
013c 2043 6c6f | Clo| .XXX[0xb]
013e 7375 7265 |sure|
0140 203d 3e20 | => |
0142 5472 7565 |True|
0144 293b 3500 |);5 |
0146 1f20 | |
0147 2020 2020 | | .BLANK 2020[0x7]
014e 2077 6865 | whe| .XXX[0xa]
0150 6e20 436d |n Cm|
0152 735f 4631 |s_F1|
0154 3720 3d3e |7 =>|
0156 1f00 2420 | $ |
0158 2020 2020 | | .BLANK 2020[0x9]
0161 2041 6461 | Ada| .XXX[0xa]
0163 2e4d 616b |.Mak|
0165 655f 496e |e_In|
0167 6c69 6e65 |line|
0169 3b24 001f |;$ |
016b 2020 2020 | | .BLANK 2020[0x8]
0173 7768 656e |when| .XXX[0x9]
0175 2043 6d73 | Cms|
0177 5f46 3138 |_F18|
0179 203d 3e1f | => |
017b 0026 | & |
017c 2020 2020 | | .BLANK 2020[0xa]
0186 4164 612e |Ada.| .XXX[0xb]
0188 4d61 6b65 |Make|
018a 5f53 6570 |_Sep|
018c 6172 6174 |arat|
018e 653b 2600 |e;& |
0190 1f20 | |
0191 2020 2020 | | .BLANK 2020[0x7]
0198 2077 6865 | whe| .XXX[0xa]
019a 6e20 436d |n Cm|
019c 735f 4632 |s_F2|
019e 3020 3d3e |0 =>|
01a0 1f00 4320 | C |
01a2 2020 2020 | | .BLANK 2020[0x9]
01ab 2041 6363 | Acc| .XXX[0x1a]
01ad 6573 735f |ess_|
01af 4c69 7374 |List|
01b1 2e44 6973 |.Dis|
01b3 706c 6179 |play|
01b5 2028 466f | (Fo|
01b7 725f 4f62 |r_Ob|
01b9 6a65 6374 |ject|
01bb 203d 3e20 | => |
01bd 223c 4355 |"<CU|
01bf 5253 4f52 |RSOR|
01c1 3e22 293b |>");|
01c3 4300 2420 |C $ |
01c5 2020 2020 | | .BLANK 2020[0x7]
01cc 2077 6865 | whe| .XXX[0xc]
01ce 6e20 436d |n Cm|
01d0 735f 4265 |s_Be|
01d2 6769 6e5f |gin_|
01d4 4f66 203d |Of =|
01d6 3e24 0026 |>$ &|
01d8 2020 2020 | | .BLANK 2020[0xa]
01e2 4564 6974 |Edit| .XXX[0xb]
01e4 6f72 2e53 |or.S|
01e6 6372 6565 |cree|
01e8 6e2e 546f |n.To|
01ea 703b 2600 |p;& |
01ec 1e20 | |
01ed 2020 2020 | | .BLANK 2020[0x7]
01f4 2077 6865 | whe| .XXX[0xc]
01f6 6e20 436d |n Cm|
01f8 735f 5570 |s_Up|
01fa 203d 3e1e | => |
01fc 0005 2020 | |
01fe 2020 2005 | |