|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_c89cc3
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0098 | | .CONST 0x0098 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0038 | 8 | .CONST 0x0038 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0007 | | .CONST 0x0007 ; Number of locals
000b INIT_0008:
000b e002 | | Load 0x0,0x2
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 02c7 | | Declare_Variable Any
000e 00d8 | | Load_Top At_Offset_0
000f 1c00 | | Execute_Immediate Run_Utility,0x0
0010 e003 | | Load 0x0,0x3
0011 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0012 4801 |H | Short_Literal 0x1
0013 4806 |H | Short_Literal 0x6
0014 00e9 | | Load_Encached String_Cache
0015 0334 | 4 | Declare_Variable Array,With_Constraint
0016 507d |P} | Indirect_Literal Any,0x94,{0x5443502f, 0x49502020}
0017 4800 |H | Short_Literal 0x0
0018 4801 |H | Short_Literal 0x1
0019 e004 | | Load 0x0,0x4
001a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001b 035b | [ | Declare_Type Array,Constrained
001c 0337 | 7 | Declare_Variable Array
001d e5fd | | Load 0x2,-0x3
001e 09f8 | | Execute_Immediate Binary_Scale,-0x8
001f 00d8 | | Load_Top At_Offset_0
0020 e004 | | Load 0x0,0x4
0021 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0022 0260 | ` | Execute Discrete,In_Type
0023 7001 |p | Jump_Nonzero 0x25
0024 0801 | | Execute_Immediate Raise,0x1
0025 4800 |H | Short_Literal 0x0
0026 00da | | Load_Top At_Offset_2
0027 01d6 | | Execute Vector,Field_Write
0028 e5fd | | Load 0x2,-0x3
0029 48ff |H | Short_Literal 0xff
002a 0279 | y | Execute Discrete,And
002b 00d8 | | Load_Top At_Offset_0
002c e004 | | Load 0x0,0x4
002d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
002e 0260 | ` | Execute Discrete,In_Type
002f 7001 |p | Jump_Nonzero 0x31
0030 0801 | | Execute_Immediate Raise,0x1
0031 4801 |H | Short_Literal 0x1
0032 00da | | Load_Top At_Offset_2
0033 01d6 | | Execute Vector,Field_Write
0034 e5fe | | Load 0x2,-0x2
0035 e005 | | Load 0x0,0x5
0036 180e | | Execute Package,Field_Execute,Field_Number 0xe
0037 00e3 | | Load_Encached Natural_Cache
0038 BODY_0008:
0038 e003 | | Load 0x0,0x3
0039 1b19 | | Execute Package,Field_Read,Field_Number 0x19
003a e402 | | Load 0x2,0x2
003b 0120 | | Execute Any,Is_Value
003c 6803 |h | Jump_Zero 0x40
003d e002 | | Load 0x0,0x2
003e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003f 7801 |x | Jump 0x41
0040 e402 | | Load 0x2,0x2
0041 e003 | | Load 0x0,0x3
0042 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0043 e404 | | Load 0x2,0x4
0044 e002 | | Load 0x0,0x2
0045 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0046 c402 | | Store 0x2,0x2
0047 c403 | | Store 0x2,0x3
0048 e403 | | Load 0x2,0x3
0049 6803 |h | Jump_Zero 0x4d
004a 4803 |H | Short_Literal 0x3
004b a5fa | | Store_Unchecked 0x2,-0x6
004c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
004d 00cf | | Action Mark_Auxiliary
004e e5fc | | Load 0x2,-0x4
004f 4801 |H | Short_Literal 0x1
0050 0263 | c | Execute Discrete,Above_Bound
0051 701b |p | Jump_Nonzero 0x6d
0052 e003 | | Load 0x0,0x3
0053 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0054 603b |`; | Indirect_Literal Discrete,0x90,{0x00007fff, 0xffffffff}
0055 e405 | | Load 0x2,0x5
0056 e406 | | Load 0x2,0x6
0057 e402 | | Load 0x2,0x2
0058 e002 | | Load 0x0,0x2
0059 181c | | Execute Package,Field_Execute,Field_Number 0x1c
005a c403 | | Store 0x2,0x3
005b e403 | | Load 0x2,0x3
005c 7002 |p | Jump_Nonzero 0x5f
005d 00d2 | | Pop_Control Pop_Count_2
005e 780e |x | Jump 0x6d
005f 00d8 | | Load_Top At_Offset_0
0060 e5fc | | Load 0x2,-0x4
0061 027f | | Execute Discrete,Equal
0062 6806 |h | Jump_Zero 0x69
0063 4803 |H | Short_Literal 0x3
0064 a5fa | | Store_Unchecked 0x2,-0x6
0065 e402 | | Load 0x2,0x2
0066 e002 | | Load 0x0,0x2
0067 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0068 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0069 e5fb | | Load 0x2,-0x5
006a 00ba | | Action Initiate_Delay
006b 00c8 | | Action Pop_Auxiliary_Range
006c 3fe5 |? | Loop_Increasing 0x52
006d 00ce | | Action Pop_Auxiliary
006e 00e3 | | Load_Encached Natural_Cache
006f e003 | | Load 0x0,0x3
0070 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0071 4800 |H | Short_Literal 0x0
0072 601d |` | Indirect_Literal Discrete,0x90,{0x00007fff, 0xffffffff}
0073 e5ff | | Load 0x2,-0x1
0074 8006 | | Call 0x0,0x6
0075 e402 | | Load 0x2,0x2
0076 e002 | | Load 0x0,0x2
0077 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0078 c403 | | Store 0x2,0x3
0079 0059 | Y | Store_Top Discrete,At_Offset_1
007a e403 | | Load 0x2,0x3
007b 6803 |h | Jump_Zero 0x7f
007c 4803 |H | Short_Literal 0x3
007d a5fa | | Store_Unchecked 0x2,-0x6
007e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
007f 00d8 | | Load_Top At_Offset_0
0080 e5ff | | Load 0x2,-0x1
0081 01db | | Execute Vector,Length
0082 027e | ~ | Execute Discrete,Not_Equal
0083 6803 |h | Jump_Zero 0x87
0084 4802 |H | Short_Literal 0x2
0085 a5fa | | Store_Unchecked 0x2,-0x6
0086 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0087 4800 |H | Short_Literal 0x0
0088 a5fa | | Store_Unchecked 0x2,-0x6
0089 e402 | | Load 0x2,0x2
008a e002 | | Load 0x0,0x2
008b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
008c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0094 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0098 ; --------------------------------------------------------------------------------------
0098 ; Debug Table
0098 ; --------------------------------------------------------------------------------------
0098 0004 0009 | | .DEBUG4 0x0004,0x0009,0x09ac,0x0000,0x0001,0x0001
009e 000b 00a2 | | .DBG4T 0x000b,0x00a2,0x0001,0x8000
00a2 ; --------------------------------------------------------------------------------------
00a2 ; Debug chain
00a2 ; --------------------------------------------------------------------------------------
00a2 0006 0016 | | .DBGLEN 0x0006,0x0016
00a4 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0017,0x0034,0x0037,0x0038,0x0048,0x004a,0x004c,0x004e,0x0052,0x005b,0x005d,0x005f,0x0063,0x0065,0x0068,0x0069,0x006e,0x007a,0x007c,0x007e,0x007f,0x0084,0x0086,0x0087,0x0089
00c0 0001 0002 | | .XXX[0x6]
00c2 0003 0005 | |
00c4 0006 0007 | |
00c6 0000 0000 | | .BLANK 0000[0x13a]