|
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_6a18da
└─⟦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 0088 | | .CONST 0x0088 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 002c | , | .CONST 0x002c ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0008 | | .CONST 0x0008 ; Number of locals
001b INIT_0018:
001b e5fa | | Load 0x2,-0x6
001c 01dd | | Execute Vector,First
001d 00e2 | | Load_Encached Integer_Cache
001e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
001f e5fa | | Load 0x2,-0x6
0020 01dc | | Execute Vector,Last
0021 00e2 | | Load_Encached Integer_Cache
0022 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0023 00e2 | | Load_Encached Integer_Cache
0024 00e2 | | Load_Encached Integer_Cache
0025 00e2 | | Load_Encached Integer_Cache
0026 e5fb | | Load 0x2,-0x5
0027 02c7 | | Declare_Variable Any
0028 00d8 | | Load_Top At_Offset_0
0029 1c00 | | Execute_Immediate Run_Utility,0x0
002a 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
002c BODY_0018:
002c e403 | | Load 0x2,0x3
002d e402 | | Load 0x2,0x2
002e 0272 | r | Execute Discrete,Minus
002f 005b | [ | Store_Top Discrete,At_Offset_3
0030 00cf | | Action Mark_Auxiliary
0031 782a |x* | Jump 0x5c
0032 00cf | | Action Mark_Auxiliary
0033 e5fa | | Load 0x2,-0x6
0034 01dc | | Execute Vector,Last
0035 e406 | | Load 0x2,0x6
0036 e402 | | Load 0x2,0x2
0037 0273 | s | Execute Discrete,Plus
0038 00d8 | | Load_Top At_Offset_0
0039 e5fc | | Load 0x2,-0x4
003a 0122 | " | Execute Any,Make_Root_Type
003b 0260 | ` | Execute Discrete,In_Type
003c 7001 |p | Jump_Nonzero 0x3e
003d 0801 | | Execute_Immediate Raise,0x1
003e 0263 | c | Execute Discrete,Above_Bound
003f 7017 |p | Jump_Nonzero 0x57
0040 00d8 | | Load_Top At_Offset_0
0041 e406 | | Load 0x2,0x6
0042 0272 | r | Execute Discrete,Minus
0043 c404 | | Store 0x2,0x4
0044 00cf | | Action Mark_Auxiliary
0045 780a |x | Jump 0x50
0046 e404 | | Load 0x2,0x4
0047 e406 | | Load 0x2,0x6
0048 0273 | s | Execute Discrete,Plus
0049 c405 | | Store 0x2,0x5
004a 8408 | | Call 0x2,0x8
004b e404 | | Load 0x2,0x4
004c e406 | | Load 0x2,0x6
004d 0272 | r | Execute Discrete,Minus
004e c404 | | Store 0x2,0x4
004f 00c9 | | Action Pop_Auxiliary_Loop
0050 e404 | | Load 0x2,0x4
0051 e402 | | Load 0x2,0x2
0052 027b | { | Execute Discrete,Greater_Equal
0053 77f2 |w | Jump_Nonzero 0x46
0054 00ce | | Action Pop_Auxiliary
0055 00c8 | | Action Pop_Auxiliary_Range
0056 3fe9 |? | Loop_Increasing 0x40
0057 00ce | | Action Pop_Auxiliary
0058 00db | | Load_Top At_Offset_3
0059 09ff | | Execute_Immediate Binary_Scale,-0x1
005a a406 | | Store_Unchecked 0x2,0x6
005b 00c9 | | Action Pop_Auxiliary_Loop
005c 00db | | Load_Top At_Offset_3
005d 0c01 | | Execute_Immediate Greater_Equal,0x1
005e 77d3 |w | Jump_Nonzero 0x32
005f 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0077 | w | .CONST 0x0077 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0003 | | .CONST 0x0003 ; Number of locals
0063 INIT_0060:
0063 e404 | | Load 0x2,0x4
0064 00d8 | | Load_Top At_Offset_0
0065 e5fc | | Load 0x2,-0x4
0066 0122 | " | Execute Any,Make_Root_Type
0067 0260 | ` | Execute Discrete,In_Type
0068 7001 |p | Jump_Nonzero 0x6a
0069 0801 | | Execute_Immediate Raise,0x1
006a e5fa | | Load 0x2,-0x6
006b 01d5 | | Execute Vector,Field_Reference
006c 0007 | | Action Break_Optional
006d e405 | | Load 0x2,0x5
006e 00d8 | | Load_Top At_Offset_0
006f e5fc | | Load 0x2,-0x4
0070 0122 | " | Execute Any,Make_Root_Type
0071 0260 | ` | Execute Discrete,In_Type
0072 7001 |p | Jump_Nonzero 0x74
0073 0801 | | Execute_Immediate Raise,0x1
0074 e5fa | | Load 0x2,-0x6
0075 01d5 | | Execute Vector,Field_Reference
0076 0007 | | Action Break_Optional
0077 BODY_0060:
0077 00d9 | | Load_Top At_Offset_1
0078 e5fb | | Load 0x2,-0x5
0079 0119 | | Execute Any,Check_In_Formal_Type
007a 00d9 | | Load_Top At_Offset_1
007b e5fb | | Load 0x2,-0x5
007c 0119 | | Execute Any,Check_In_Formal_Type
007d 85fe | | Call 0x2,-0x2
007e 6807 |h | Jump_Zero 0x86
007f 00d9 | | Load_Top At_Offset_1
0080 c407 | | Store 0x2,0x7
0081 00d8 | | Load_Top At_Offset_0
0082 c602 | | Store 0x3,0x2
0083 e407 | | Load 0x2,0x7
0084 c603 | | Store 0x3,0x3
0085 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0086 00cc | | Action Pop_Block
0087 7fcc | | Jump 0x54
0088 ; --------------------------------------------------------------------------------------
0088 ; Debug Table
0088 ; --------------------------------------------------------------------------------------
0088 0004 0001 | | .DEBUG4 0x0004,0x0001,0x2e9a,0x0000,0x0001,0x0003
008e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
0092 001b 009a | | .DBG4T 0x001b,0x009a,0xa801,0x4002
0096 0063 00b4 | c | .DBG4T 0x0063,0x00b4,0x0804,0x0002
009a ; --------------------------------------------------------------------------------------
009a ; Debug chain
009a ; --------------------------------------------------------------------------------------
009a 0006 0009 | | .DBGLEN 0x0006,0x0009
009c 001b 001f | | .DBGLNO 0x001b,0x001f,0x0023,0x0024,0x0025,0x0026,0x002c,0x0033,0x0040,0x0046,0x004a,0x004b,0x0050,0x0058,0x005c
00ab 0001 0003 | | .XXX[0x9]
00ad 0004 0006 | |
00af 0007 0008 | |
00b1 0005 0009 | |
00b3 0002 | |
00b4 ; --------------------------------------------------------------------------------------
00b4 ; Debug chain
00b4 ; --------------------------------------------------------------------------------------
00b4 0002 0005 | | .DBGLEN 0x0002,0x0005
00b6 0063 006d | c m| .DBGLNO 0x0063,0x006d,0x0077,0x007f,0x0081,0x0083,0x0086
00bd 0000 0000 | | .BLANK 0000[0x143]