|
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_0a7cf5
└─⟦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 0118 | | .CONST 0x0118 ; 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 0011 | | .CONST 0x0011 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0004 | | .CONST 0x0004 ; Number of locals
000b INIT_0008:
000b 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call
000d 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
000f 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
0011 BODY_0008:
0011 e5ff | | Load 0x2,-0x1
0012 e022 | " | Load 0x0,0x22
0013 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0014 700b |p | Jump_Nonzero 0x20
0015 e023 | # | Load 0x0,0x23
0016 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0017 e023 | # | Load 0x0,0x23
0018 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0019 e5fc | | Load 0x2,-0x4
001a e022 | " | Load 0x0,0x22
001b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
001c e023 | # | Load 0x0,0x23
001d 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
001e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
001f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0020 8402 | | Call 0x2,0x2
0021 00cf | | Action Mark_Auxiliary
0022 e5ff | | Load 0x2,-0x1
0023 e022 | " | Load 0x0,0x22
0024 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0025 e5ff | | Load 0x2,-0x1
0026 e022 | " | Load 0x0,0x22
0027 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0028 0263 | c | Execute Discrete,Above_Bound
0029 7007 |p | Jump_Nonzero 0x31
002a 00d8 | | Load_Top At_Offset_0
002b e5ff | | Load 0x2,-0x1
002c e022 | " | Load 0x0,0x22
002d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
002e 8404 | | Call 0x2,0x4
002f 00c8 | | Action Pop_Auxiliary_Range
0030 3ff9 |? | Loop_Increasing 0x2a
0031 00ce | | Action Pop_Auxiliary
0032 e023 | # | Load 0x0,0x23
0033 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0034 e023 | # | Load 0x0,0x23
0035 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0036 8210 | | Call 0x1,0x10
0037 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 480a |H | Short_Literal 0xa
003c e022 | " | Load 0x0,0x22
003d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
003e 00ea | | Load_Encached Null_String_Cache
003f e5ff | | Load 0x2,-0x1
0040 e022 | " | Load 0x0,0x22
0041 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0042 4800 |H | Short_Literal 0x0
0043 e5fd | | Load 0x2,-0x3
0044 e5fe | | Load 0x2,-0x2
0045 820d | | Call 0x1,0xd
0046 480b |H | Short_Literal 0xb
0047 e022 | " | Load 0x0,0x22
0048 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0049 e023 | # | Load 0x0,0x23
004a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
004b 5810 |X | Indirect_Literal Float,0x5c,50.0
004c 4802 |H | Short_Literal 0x2
004d 0092 00c4 | | Action Push_String_Extended,0xc4 ; "Interface Name (ID)"
004f 820e | | Call 0x1,0xe
0050 480b |H | Short_Literal 0xb
0051 e022 | " | Load 0x0,0x22
0052 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0053 e023 | # | Load 0x0,0x23
0054 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0055 5806 |X | Indirect_Literal Float,0x5c,50.0
0056 4802 |H | Short_Literal 0x2
0057 0092 00c5 | | Action Push_String_Extended,0xc5 ; "Using CI"
0059 820e | | Call 0x1,0xe
005a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
005b 0000 | | .XXX[0x1]
005c 4049 0000 |@I | .DBL 50.0
005e 0000 0000 | |
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 4801 |H | Short_Literal 0x1
0064 480c |H | Short_Literal 0xc
0065 e022 | " | Load 0x0,0x22
0066 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0067 00ea | | Load_Encached Null_String_Cache
0068 4800 |H | Short_Literal 0x0
0069 e7ff | | Load 0x3,-0x1
006a e022 | " | Load 0x0,0x22
006b 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
006c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
006d 4807 |H | Short_Literal 0x7
006e e7ff | | Load 0x3,-0x1
006f e022 | " | Load 0x0,0x22
0070 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0071 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0072 820f | | Call 0x1,0xf
0073 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0074 0000 0000 | | .BLANK 0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0087 | | .CONST 0x0087 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0004 | | .CONST 0x0004 ; Number of locals
007b INIT_0078:
007b 00e1 | | Load_Encached Boolean_Cache
007c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
007d 00db | | Load_Top At_Offset_3
007e 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
007f e024 | $ | Load 0x0,0x24
0080 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0081 011e | | Execute Any,Convert
0082 e022 | " | Load 0x0,0x22
0083 1b8a | | Execute Package,Field_Read,Field_Number 0x8a
0084 00d9 | | Load_Top At_Offset_1
0085 e024 | $ | Load 0x0,0x24
0086 1873 | s | Execute Package,Field_Execute,Field_Number 0x73
0087 BODY_0078:
0087 00d8 | | Load_Top At_Offset_0
0088 01db | | Execute Vector,Length
0089 700f |p | Jump_Nonzero 0x99
008a 00d9 | | Load_Top At_Offset_1
008b 8403 | | Call 0x2,0x3
008c 4801 |H | Short_Literal 0x1
008d 480d |H | Short_Literal 0xd
008e e022 | " | Load 0x0,0x22
008f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0090 0092 00c6 | | Action Push_String_Extended,0xc6 ; "This interface has been defined, but is currently unused by other components. Use Definition to visit and verify this interface."
0092 4800 |H | Short_Literal 0x0
0093 e603 | | Load 0x3,0x3
0094 e022 | " | Load 0x0,0x22
0095 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0096 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0097 e237 | 7 | Load 0x1,0x37
0098 820f | | Call 0x1,0xf
0099 00cf | | Action Mark_Auxiliary
009a 00d9 | | Load_Top At_Offset_1
009b 01d9 | | Execute Vector,Reverse_Bounds
009c 0263 | c | Execute Discrete,Above_Bound
009d 7025 |p% | Jump_Nonzero 0xc3
009e e602 | | Load 0x3,0x2
009f 6805 |h | Jump_Zero 0xa5
00a0 e603 | | Load 0x3,0x3
00a1 8403 | | Call 0x2,0x3
00a2 4800 |H | Short_Literal 0x0
00a3 a602 | | Store_Unchecked 0x3,0x2
00a4 7808 |x | Jump 0xad
00a5 4801 |H | Short_Literal 0x1
00a6 480d |H | Short_Literal 0xd
00a7 e022 | " | Load 0x0,0x22
00a8 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
00a9 e023 | # | Load 0x0,0x23
00aa 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00ab 00ea | | Load_Encached Null_String_Cache
00ac 820f | | Call 0x1,0xf
00ad 4801 |H | Short_Literal 0x1
00ae 480d |H | Short_Literal 0xd
00af e022 | " | Load 0x0,0x22
00b0 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
00b1 00ea | | Load_Encached Null_String_Cache
00b2 4800 |H | Short_Literal 0x0
00b3 e607 | | Load 0x3,0x7
00b4 e604 | | Load 0x3,0x4
00b5 01d7 | | Execute Vector,Field_Read
00b6 e022 | " | Load 0x0,0x22
00b7 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
00b8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00b9 4807 |H | Short_Literal 0x7
00ba e607 | | Load 0x3,0x7
00bb e604 | | Load 0x3,0x4
00bc 01d7 | | Execute Vector,Field_Read
00bd e022 | " | Load 0x0,0x22
00be 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
00bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c0 820f | | Call 0x1,0xf
00c1 00c8 | | Action Pop_Auxiliary_Range
00c2 3fdb |? | Loop_Increasing 0x9e
00c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c4 ; --------------------------------------------------------------------------------------
00c4 ; STRING TABLE
00c4 ; --------------------------------------------------------------------------------------
00c4 0008 | | .STRTAB 0x0008->0x00c8 ; "Interface Name (ID)"
00c5 0019 | | .STRTAB 0x0019->0x00d1 ; "Using CI"
00c6 001f | | .STRTAB 0x001f->0x00d5 ; "This interface has been defined, but is currently unused by other components. Use Definition to visit and verify this interface."
00c7 009e | | .STREND 0x009e->0x0116
00c8 496e 7465 |Inte| .STRTAB_STRINGS
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug Table
0118 ; --------------------------------------------------------------------------------------
0118 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc82,0x0000,0x0001,0x0000
011e 0000 0000 | | .BLANK 0000[0x1c]
013a 0004 00a0 | | .XXX[0xc]
013c 0000 0000 | |
013e 0000 0800 | |
0140 0000 4400 | D |
0142 0000 0020 | |
0144 0000 0140 | @|
0146 0000 0000 | | .BLANK 0000[0x2e]
0174 8014 0000 | | .XXX[0xb]
0176 0000 0000 | |
0178 0100 0000 | |
017a 0880 0000 | |
017c 0004 0000 | |
017e 0028 | ( |
017f 0000 0000 | | .BLANK 0000[0x2e]
01ad 1002 8000 | | .XXX[0xb]
01af 0000 0000 | |
01b1 0020 0000 | |
01b3 0110 0000 | |
01b5 0000 8000 | |
01b7 0005 | |
01b8 0000 0000 | | .BLANK 0000[0x48]