|
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_1a14b9
└─⟦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 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 0022 | " | .CONST 0x0022 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 4800 |H | Short_Literal 0x0
0011 0093 003b | ;| push_full_address INIT_0038
0013 00f5 | | Load_Encached Unused21
0014 037d | } | Declare_Type Task,Defined
0015 036f | o | Declare_Variable Task
0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0017 00c7 | | Action Elaborate_Subprogram
0018 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0019 00c7 | | Action Elaborate_Subprogram
001a e002 | | Load 0x0,0x2
001b e003 | | Load 0x0,0x3
001c a004 | | Store_Unchecked 0x0,0x4
001d a005 | | Store_Unchecked 0x0,0x5
001e a006 | | Store_Unchecked 0x0,0x6
001f 4805 |H | Short_Literal 0x5
0020 e20f | | Load 0x1,0xf
0021 020e | | Execute Module,Augment_Imports
0022 BODY_0008:
0022 00be | | Action Activate_Tasks
0023 00bc | | Action Signal_Activated
0024 00bb | | Action Signal_Completion
0025 0000 0000 | | .XXX[0x3]
0027 0000 | |
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b | + | .CONST 0x002b ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0001 | | .CONST 0x0001 ; Number of locals
002b BODY_0028:
002b INIT_0028:
002b 00da | | Load_Top At_Offset_2
002c 4801 |H | Short_Literal 0x1
002d e20f | | Load 0x1,0xf
002e 170d | | Execute Task,Entry_Call,Field_Number 0xd
002f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 8007 | | Call 0x0,0x7
0034 4800 |H | Short_Literal 0x0
0035 e20f | | Load 0x1,0xf
0036 170e | | Execute Task,Entry_Call,Field_Number 0xe
0037 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0056 | V | .CONST 0x0056 ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0014 | | .CONST 0x0014 ; Number of locals
003b INIT_0038:
003b 4801 |H | Short_Literal 0x1
003c 02cb | | Declare_Variable Entry
003d 4800 |H | Short_Literal 0x0
003e 02cb | | Declare_Variable Entry
003f 00bf | | Action Accept_Activation
0040 e001 | | Load 0x0,0x1
0041 0322 | " | Declare_Variable Record
0042 00d8 | | Load_Top At_Offset_0
0043 1c00 | | Execute_Immediate Run_Utility,0x0
0044 00e1 | | Load_Encached Boolean_Cache
0045 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0046 e002 | | Load 0x0,0x2
0047 0322 | " | Declare_Variable Record
0048 00d8 | | Load_Top At_Offset_0
0049 1c00 | | Execute_Immediate Run_Utility,0x0
004a 00e1 | | Load_Encached Boolean_Cache
004b 480d |H | Short_Literal 0xd
004c 0299 007b | {| Declare_Subprogram INIT_0078,For_Accept
004e 480e 4810 |H H | Declare_Variable Select 0x000, 0x001,
0050 4801 4800 |H H | [0x001]: 0x000 = 0x0000,
0052 4800 4801 |H H | [0x00e]: 0x010 = 0x0080
0054 02cf | |
0055 00bc | | Action Signal_Activated
0056 BODY_0038:
0056 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0057 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0058 0137 | 7 | Execute Entry,Rendezvous
0059 00cf | | Action Mark_Auxiliary
005a 00d9 | | Load_Top At_Offset_1
005b 013f | ? | Execute Select,Rendezvous
005c 4602 |F | Jump_Case 0x3
005d 780b |x | Jump 0x69 ; case 0x0
005e 7800 |x | Jump 0x5f ; case 0x1
005f 00e1 | | Load_Encached Boolean_Cache ; case 0x2
0060 e211 | | Load 0x1,0x11
0061 e20f | | Load 0x1,0xf
0062 8003 | | Call 0x0,0x3
0063 00d2 | | Pop_Control Pop_Count_2
0064 c212 | | Store 0x1,0x12
0065 00db | | Load_Top At_Offset_3
0066 6802 |h | Jump_Zero 0x69
0067 e20f | | Load 0x1,0xf
0068 8004 | | Call 0x0,0x4
0069 e210 | | Load 0x1,0x10
006a 7001 |p | Jump_Nonzero 0x6c
006b 7802 |x | Jump 0x6e
006c 00c9 | | Action Pop_Auxiliary_Loop
006d 7fec | | Jump 0x5a
006e 00ce | | Action Pop_Auxiliary
006f 0092 0086 | | Action Push_String_Extended,0x86 ; "fin channel_operator_to_bal"
0071 8005 | | Call 0x0,0x5
0072 00bb | | Action Signal_Completion
0073 0000 0000 | | .BLANK 0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00db | | Load_Top At_Offset_3
007c e211 | | Load 0x1,0x11
007d 017d | } | Execute Record,Structure_Write
007e 4100 |A | End_Rendezvous 0x0
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; See instruction 0x02cf at 0x4e, index=0xe
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4800 |H | Short_Literal 0x0
0084 a210 | | Store_Unchecked 0x1,0x10
0085 4100 |A | End_Rendezvous 0x0
0086 ; --------------------------------------------------------------------------------------
0086 ; STRING TABLE
0086 ; --------------------------------------------------------------------------------------
0086 0004 | | .STRTAB 0x0004->0x0088 ; "fin channel_operator_to_bal"
0087 001d | | .STREND 0x001d->0x0095
0088 6669 6e20 |fin | .STRTAB_STRINGS
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; Debug Table
0098 ; --------------------------------------------------------------------------------------
0098 0004 000a | | .DEBUG4 0x0004,0x000a,0x7bb8,0x0000,0x0001,0x0008
009e 000b 00be | | .DBG4T 0x000b,0x00be,0x8000,0x0000
00a2 0010 00c2 | | .DBG4T 0x0010,0x00c2,0x8000,0x0000
00a6 002b 00c8 | + | .DBG4T 0x002b,0x00c8,0x0001,0x0000
00aa 0033 00cb | 3 | .DBG4T 0x0033,0x00cb,0x0001,0x0000
00ae 003b 00cf | ; | .DBG4T 0x003b,0x00cf,0x0000,0x0000
00b2 0040 00d3 | @ | .DBG4T 0x0040,0x00d3,0x0000,0x4000
00b6 007b 00e9 | { | .DBG4T 0x007b,0x00e9,0x0003,0x0000
00ba 0083 00ec | | .DBG4T 0x0083,0x00ec,0x0003,0x0000
00be ; --------------------------------------------------------------------------------------
00be ; Debug chain
00be ; --------------------------------------------------------------------------------------
00be 0002 0000 | | .DBGLEN 0x0002,0x0000
00c0 000b 000d | | .DBGLNO 0x000b,0x000d
00c2 ; --------------------------------------------------------------------------------------
00c2 ; Debug chain
00c2 ; --------------------------------------------------------------------------------------
00c2 0004 0000 | | .DBGLEN 0x0004,0x0000
00c4 0010 0016 | | .DBGLNO 0x0010,0x0016,0x0018,0x001a
00c8 ; --------------------------------------------------------------------------------------
00c8 ; Debug chain
00c8 ; --------------------------------------------------------------------------------------
00c8 0000 0001 | | .DBGLEN 0x0000,0x0001
00ca 002b | + | .DBGLNO 0x002b
00cb ; --------------------------------------------------------------------------------------
00cb ; Debug chain
00cb ; --------------------------------------------------------------------------------------
00cb 0000 0002 | | .DBGLEN 0x0000,0x0002
00cd 0033 0034 | 3 4| .DBGLNO 0x0033,0x0034
00cf ; --------------------------------------------------------------------------------------
00cf ; Debug chain
00cf ; --------------------------------------------------------------------------------------
00cf 0002 0000 | | .DBGLEN 0x0002,0x0000
00d1 003b 003d | ; =| .DBGLNO 0x003b,0x003d
00d3 ; --------------------------------------------------------------------------------------
00d3 ; Debug chain
00d3 ; --------------------------------------------------------------------------------------
00d3 0004 0008 | | .DBGLEN 0x0004,0x0008
00d5 0040 0044 | @ D| .DBGLNO 0x0040,0x0044,0x0046,0x004a,0x0056,0x005a,0x005f,0x0065,0x0067,0x0069,0x006b,0x006f
00e1 0001 0003 | | .XXX[0x8]
00e3 0005 0006 | |
00e5 0007 0008 | |
00e7 0009 000a | |
00e9 ; --------------------------------------------------------------------------------------
00e9 ; Debug chain
00e9 ; --------------------------------------------------------------------------------------
00e9 0000 0001 | | .DBGLEN 0x0000,0x0001
00eb 007b | { | .DBGLNO 0x007b
00ec ; --------------------------------------------------------------------------------------
00ec ; Debug chain
00ec ; --------------------------------------------------------------------------------------
00ec 0000 0001 | | .DBGLEN 0x0000,0x0001
00ee 0083 | | .DBGLNO 0x0083
00ef 0000 0000 | | .BLANK 0000[0x111]