|
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_11cacfe
└─⟦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 0070 | p | .CONST 0x0070 ; 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 002c | , | .CONST 0x002c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 e001 | | Load 0x0,0x1
0014 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0015 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0016 0129 | ) | Execute Any,Make_Visible
0017 c20f | | Store 0x1,0xf
0018 e001 | | Load 0x0,0x1
0019 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
001b 0129 | ) | Execute Any,Make_Visible
001c c210 | | Store 0x1,0x10
001d 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
001f c213 | | Store 0x1,0x13
0020 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0022 c212 | | Store 0x1,0x12
0023 00bf | | Action Accept_Activation
0024 e210 | | Load 0x1,0x10
0025 02c7 | | Declare_Variable Any
0026 00d8 | | Load_Top At_Offset_0
0027 1c00 | | Execute_Immediate Run_Utility,0x0
0028 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0029 00c7 | | Action Elaborate_Subprogram
002a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002b 00c7 | | Action Elaborate_Subprogram
002c BODY_0008:
002c 00bc | | Action Signal_Activated
002d 00bb | | Action Signal_Completion
002e 0000 0000 | | .XXX[0x2]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0038 | 8 | .CONST 0x0038 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0002 | | .CONST 0x0002 ; Number of locals
0033 INIT_0030:
0033 00da | | Load_Top At_Offset_2
0034 e001 | | Load 0x0,0x1
0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0036 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0037 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0038 BODY_0030:
0038 00d8 | | Load_Top At_Offset_0
0039 e002 | | Load 0x0,0x2
003a 180f | | Execute Package,Field_Execute,Field_Number 0xf
003b 027f | | Execute Discrete,Equal
003c 00d9 | | Load_Top At_Offset_1
003d e002 | | Load 0x0,0x2
003e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
003f 027f | | Execute Discrete,Equal
0040 e5ff | | Load 0x2,-0x1
0041 e001 | | Load 0x0,0x1
0042 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0043 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0044 0092 0064 | d| Action Push_String_Extended,0x64 ; "UNITS"
0046 01de | | Execute Vector,Not_Equal
0047 0279 | y | Execute Discrete,And
0048 0278 | x | Execute Discrete,Or
0049 00d9 | | Load_Top At_Offset_1
004a e002 | | Load 0x0,0x2
004b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
004c 027f | | Execute Discrete,Equal
004d 0278 | x | Execute Discrete,Or
004e 00d9 | | Load_Top At_Offset_1
004f e002 | | Load 0x0,0x2
0050 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0051 027f | | Execute Discrete,Equal
0052 0278 | x | Execute Discrete,Or
0053 00d9 | | Load_Top At_Offset_1
0054 e002 | | Load 0x0,0x2
0055 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0056 027f | | Execute Discrete,Equal
0057 0278 | x | Execute Discrete,Or
0058 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0059 0000 0000 | | .BLANK 0000[0x7]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 0833 | 3 | Execute_Immediate Raise,0x33
0064 ; --------------------------------------------------------------------------------------
0064 ; STRING TABLE
0064 ; --------------------------------------------------------------------------------------
0064 0004 | | .STRTAB 0x0004->0x0066 ; "UNITS"
0065 0007 | | .STREND 0x0007->0x0068
0066 554e 4954 |UNIT| .STRTAB_STRINGS
0069 0000 0000 | | .BLANK 0000[0x7]
0070 ; --------------------------------------------------------------------------------------
0070 ; Debug Table
0070 ; --------------------------------------------------------------------------------------
0070 0004 0011 | | .DEBUG4 0x0004,0x0011,0x4a7d,0x0000,0x0001,0x0000
0076 19fa 0000 | | .XXX[0x3]
0078 90b2 | |
0079 0000 0000 | | .BLANK 0000[0x4]
007d 00e8 1429 | )| .XXX[0xc]
007f 0000 0000 | |
0081 0000 0001 | |
0083 0000 0000 | |
0085 0000 0001 | |
0087 0000 fc57 | W|
0089 0000 0000 | | .BLANK 0000[0x4]
008d 0004 19fa | | .XXX[0x4]
008f 0000 90b2 | |
0091 0000 0000 | | .BLANK 0000[0xc]
009d 0001 9fe5 | | .XXX[0xc]
009f 8000 8fe6 | |
00a1 0000 0000 | |
00a3 01d0 2a51 | *Q|
00a5 8001 a155 | U|
00a7 8000 8fea | |
00a9 0000 0000 | | .BLANK 0000[0x4]
00ad 00e8 158a | | .XXX[0xd]
00af 3001 4206 |0 B |
00b1 801d 02b5 | |
00b3 401d 02ca |@ |
00b5 7000 1279 |p y|
00b7 c000 67f9 | g |
00b9 6000 |` |
00ba 0000 0000 | | .BLANK 0000[0x9]
00c3 0050 0011 | P | .XXX[0x8]
00c5 fc60 8008 | ` |
00c7 5800 0e03 |X |
00c9 a05b f400 | [ |
00cb 0000 0000 | | .BLANK 0000[0xd]
00d8 0004 | | .XXX[0x1]
00d9 0000 0000 | | .BLANK 0000[0x4]
00dd 01c0 0000 | | .XXX[0x8]
00df 0020 2000 | |
00e1 11f6 a000 | |
00e3 001e c000 | |
00e5 0000 0000 | | .BLANK 0000[0xb]
00f0 03ff ffff | | .XXX[0x7]
00f2 fc00 0685 | |
00f4 5600 023f |V ?|
00f6 a800 | |
00f7 0000 0000 | | .BLANK 0000[0xc]
0103 0664 5400 | dT | .XXX[0x14]
0105 023f 8c00 | ? |
0107 0000 0000 | |
0109 0000 0003 | |
010b a061 d4c0 | a |
010d 053e 1b80 | > |
010f 740c 4a80 |t J |
0111 740c 9f40 |t @|
0113 0049 e780 | I |
0115 0199 1500 | |
0117 0000 0000 | | .BLANK 0000[0x9]
0120 0001 4000 | @ | .XXX[0x8]
0122 47da 8200 |G |
0124 2170 0038 |!p 8|
0126 0e81 9e80 | |
0128 0000 0000 | | .BLANK 0000[0xe]
0136 1000 0000 | | .XXX[0xc]
0138 0000 0000 | |
013a 0007 0000 | |
013c 0000 ffc0 | |
013e 0047 da80 | G |
0140 0000 7b00 | { |
0142 0000 0000 | | .BLANK 0000[0x8]
014a a1bd 7400 | t | .XXX[0x1c]
014c 011f 6a00 | j |
014e 0000 0003 | |
0150 a06a 3101 | j1 |
0152 ac8f 2e00 | . |
0154 0121 d600 | ! |
0156 0000 0000 | |
0158 0000 0001 | |
015a d035 db60 | 5 `|
015c 028d 8f20 | |
015e 3a06 c360 |: `|
0160 3a06 edc0 |: |
0162 0024 f400 | $ |
0164 286f 5d00 |(o] |
0166 0000 0000 | | .BLANK 0000[0xa]
0170 a000 23ed | # | .XXX[0x7]
0172 0100 10a0 | |
0174 001c 0740 | @|
0176 e304 | |
0177 0000 0000 | | .BLANK 0000[0xe]
0185 0800 0000 | | .XXX[0xc]
0187 0000 0000 | |
0189 0003 8000 | |
018b 0000 4040 | @@|
018d 0023 ed00 | # |
018f 0000 3d80 | = |
0191 0000 0000 | | .BLANK 0000[0xb]
019c 0007 ffff | | .XXX[0x13]
019e fff8 0740 | @|
01a0 e8c4 000a | |
01a2 35b8 80e8 |5 |
01a4 1d38 80e8 | 8 |
01a6 1de2 0000 | |
01a8 93d1 01cc | |
01aa ee7f 0000 | |
01ac 0000 01d0 | |
01ae 4e17 |N |
01af 0000 0000 | | .BLANK 0000[0x4]
01b3 0003 6842 | hB| .XXX[0x12]
01b5 0100 0086 | |
01b7 3d04 1142 |= B|
01b9 8000 4000 | @ |
01bb 10c7 a000 | |
01bd 127a 2039 | z 9|
01bf 9dcf e000 | |
01c1 0000 003a | :|
01c3 18b5 e000 | |
01c5 0000 0000 | | .BLANK 0000[0x4]
01c9 6cfd 8020 |l | .XXX[0x25]
01cb 0010 c7a0 | |
01cd 8228 5000 | (P |
01cf 0400 0218 | |
01d1 f400 3632 | 62|
01d3 fa00 021c | |
01d5 f007 40f6 | @ |
01d7 5c07 4114 |\ A |
01d9 5e00 2691 |^ & |
01db 4200 021a |B |
01dd 2407 40f8 |$ @ |
01df 5c07 40fe |\ @ |
01e1 5e00 268e |^ & |
01e3 a200 0218 | |
01e5 f807 40fa | @ |
01e7 5c07 40fc |\ @ |
01e9 5c00 1145 |\ E|
01eb 5a00 0219 |Z |
01ed 7000 |p |
01ee 0000 0000 | | .BLANK 0000[0x4]
01f2 361a 8a00 |6 | .XXX[0x4]
01f4 0218 fc00 | |
01f6 0000 0000 | | .BLANK 0000[0x4]
01fa 2e44 0c00 |.D | .XXX[0x6]
01fc 0219 0407 | |
01fe 4100 5c07 |A \ |