|
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_28a4f3
└─⟦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 00c8 | | .CONST 0x00c8 ; 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 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x36, index=0x0
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x8e, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 0023 | # | .CONST 0x0023 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000e | | .CONST 0x000e ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 0093 006b | k| push_full_address INIT_0068
000e 00f5 | | Load_Encached Unused21
000f 037e | ~ | Declare_Type Task,Defined,Visible
0010 036e | n | Declare_Variable Task,Visible
0011 4800 |H | Short_Literal 0x0
0012 0093 002b | +| push_full_address INIT_0028
0014 00f5 | | Load_Encached Unused21
0015 037e | ~ | Declare_Type Task,Defined,Visible
0016 036e | n | Declare_Variable Task,Visible
0017 00bf | | Action Accept_Activation
0018 00b6 | | Action Make_Scope
0019 e001 | | Load 0x0,0x1
001a 4802 |H | Short_Literal 0x2
001b e20d | | Load 0x1,0xd
001c 020e | | Execute Module,Augment_Imports
001d 0007 | | Action Break_Optional
001e 00b6 | | Action Make_Scope
001f e001 | | Load 0x0,0x1
0020 4802 |H | Short_Literal 0x2
0021 00db | | Load_Top At_Offset_3
0022 020e | | Execute Module,Augment_Imports
0023 BODY_0008:
0023 BODY_0008:
0023 BODY_0008:
0023 00be | | Action Activate_Tasks
0024 00bc | | Action Signal_Activated
0025 00bb | | Action Signal_Completion
0026 0000 0000 | | .XXX[0x2]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 003e | > | .CONST 0x003e ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0012 | | .CONST 0x0012 ; Number of locals
002b INIT_0028:
002b 4800 |H | Short_Literal 0x0
002c 02cb | | Declare_Variable Entry
002d 4800 |H | Short_Literal 0x0
002e 02cb | | Declare_Variable Entry
002f 4800 |H | Short_Literal 0x0
0030 02cb | | Declare_Variable Entry
0031 00bf | | Action Accept_Activation
0032 00e2 | | Load_Encached Integer_Cache
0033 480d |H | Short_Literal 0xd
0034 0299 005b | [| Declare_Subprogram INIT_0058,For_Accept
0036 480e 480c |H H | Declare_Variable Select 0x000, 0x001,
0038 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
003a 4800 4801 |H H | [0x00e]: 0x00c = 0x0060
003c 02cf | |
003d 00bc | | Action Signal_Activated
003e BODY_0028:
003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003f 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0040 0137 | 7 | Execute Entry,Rendezvous
0041 00cf | | Action Mark_Auxiliary
0042 00db | | Load_Top At_Offset_3
0043 0f08 | | Execute_Immediate Equal,0x8
0044 00da | | Load_Top At_Offset_2
0045 1000 | | Execute Select,Guard_Write,Field_Number 0x0
0046 00d9 | | Load_Top At_Offset_1
0047 013f | ? | Execute Select,Rendezvous
0048 4601 |F | Jump_Case 0x2
0049 7800 |x | Jump 0x4a ; case 0x0
004a 4800 |H | Short_Literal 0x0 ; case 0x1
004b e001 | | Load 0x0,0x1
004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004d 170d | | Execute Task,Entry_Call,Field_Number 0xd
004e 4800 |H | Short_Literal 0x0
004f e002 | | Load 0x0,0x2
0050 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0051 1710 | | Execute Task,Entry_Call,Field_Number 0x10
0052 00c9 | | Action Pop_Auxiliary_Loop
0053 7fee | | Jump 0x42
0054 0000 0000 | | .BLANK 0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 4100 |A | End_Rendezvous 0x0
005c 0000 0000 | | .BLANK 0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; See instruction 0x02cf at 0x36, index=0xe
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 4100 |A | End_Rendezvous 0x0
0064 0000 0000 | | .BLANK 0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0078 | x | .CONST 0x0078 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0011 | | .CONST 0x0011 ; Number of locals
006b INIT_0068:
006b 4800 |H | Short_Literal 0x0
006c 02cb | | Declare_Variable Entry
006d 4800 |H | Short_Literal 0x0
006e 02cb | | Declare_Variable Entry
006f 4800 |H | Short_Literal 0x0
0070 02cb | | Declare_Variable Entry
0071 00bf | | Action Accept_Activation
0072 480e |H | Short_Literal 0xe
0073 0299 0083 | | Declare_Subprogram INIT_0080,For_Accept
0075 029f 008b | | Declare_Subprogram INIT_0088,For_Call
0077 00bc | | Action Signal_Activated
0078 BODY_0068:
0078 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0079 1d0e | | Execute_Immediate Reference_Lex_1,0xe
007a 0137 | 7 | Execute Entry,Rendezvous
007b 8211 | | Call 0x1,0x11
007c 00bb | | Action Signal_Completion
007d 0000 0000 | | .XXX[0x3]
007f 0000 | |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
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 4100 |A | End_Rendezvous 0x0
0084 0000 0000 | | .BLANK 0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0097 | | .CONST 0x0097 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0003 | | .CONST 0x0003 ; Number of locals
008b INIT_0088:
008b 480e |H | Short_Literal 0xe
008c 0299 00b3 | | Declare_Subprogram INIT_00b0,For_Accept
008e 480f 4817 |H H | Declare_Variable Select 0x000, 0x002,
0090 480d 4818 |H H | [0x000]: 0x001 = 0x0008,
0092 4800 4801 |H H | [0x00d]: 0x018 = 0x00c0,
0094 4800 4802 |H H | [0x00f]: 0x017 = 0x00b8
0096 02cf | |
0097 BODY_0088:
0097 4802 |H | Short_Literal 0x2
0098 4802 |H | Short_Literal 0x2
0099 0099 | | Action Reference_Dynamic
009a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
009b 0137 | 7 | Execute Entry,Rendezvous
009c 00d8 | | Load_Top At_Offset_0
009d 013f | ? | Execute Select,Rendezvous
009e 4602 |F | Jump_Case 0x3
009f 7801 |x | Jump 0xa1 ; case 0x0
00a0 7805 |x | Jump 0xa6 ; case 0x1
00a1 4800 |H | Short_Literal 0x0 ; case 0x2
00a2 e001 | | Load 0x0,0x1
00a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a4 170f | | Execute Task,Entry_Call,Field_Number 0xf
00a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a6 4800 |H | Short_Literal 0x0
00a7 e001 | | Load 0x0,0x1
00a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a9 170e | | Execute Task,Entry_Call,Field_Number 0xe
00aa 4800 |H | Short_Literal 0x0
00ab e002 | | Load 0x0,0x2
00ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ad 170f | | Execute Task,Entry_Call,Field_Number 0xf
00ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00af 0000 | | .XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4100 |A | End_Rendezvous 0x0
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; See instruction 0x02cf at 0x8e, index=0xf
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 4100 |A | End_Rendezvous 0x0
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; See instruction 0x02cf at 0x8e, index=0xd
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4100 |A | End_Rendezvous 0x0
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; Debug Table
00c8 ; --------------------------------------------------------------------------------------
00c8 0004 0001 | | .DEBUG4 0x0004,0x0001,0x6f25,0x0000,0x0001,0x000d
00ce 000b 0102 | | .DBG4T 0x000b,0x0102,0x8000,0x0000
00d2 0018 0106 | | .DBG4T 0x0018,0x0106,0x8000,0x0000
00d6 002b 010a | + | .DBG4T 0x002b,0x010a,0x0000,0x0000
00da 0032 010f | 2 | .DBG4T 0x0032,0x010f,0x0000,0x4000
00de 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x0003,0x0000
00e2 0063 0000 | c | .DBG4T 0x0063,0x0000,0x0003,0x0000
00e6 006b 011a | k | .DBG4T 0x006b,0x011a,0x0000,0x0000
00ea 0072 011f | r | .DBG4T 0x0072,0x011f,0x0000,0x0000
00ee 0083 0000 | | .DBG4T 0x0083,0x0000,0x0003,0x0000
00f2 008b 0123 | #| .DBG4T 0x008b,0x0123,0x0004,0x4000
00f6 00b3 0000 | | .DBG4T 0x00b3,0x0000,0x0003,0x0000
00fa 00bb 0000 | | .DBG4T 0x00bb,0x0000,0x0003,0x0000
00fe 00c3 0000 | | .DBG4T 0x00c3,0x0000,0x0003,0x0000
0102 ; --------------------------------------------------------------------------------------
0102 ; Debug chain
0102 ; --------------------------------------------------------------------------------------
0102 0002 0000 | | .DBGLEN 0x0002,0x0000
0104 000b 0011 | | .DBGLNO 0x000b,0x0011
0106 ; --------------------------------------------------------------------------------------
0106 ; Debug chain
0106 ; --------------------------------------------------------------------------------------
0106 0002 0000 | | .DBGLEN 0x0002,0x0000
0108 0018 001e | | .DBGLNO 0x0018,0x001e
010a ; --------------------------------------------------------------------------------------
010a ; Debug chain
010a ; --------------------------------------------------------------------------------------
010a 0003 0000 | | .DBGLEN 0x0003,0x0000
010c 002b 002d | + -| .DBGLNO 0x002b,0x002d,0x002f
010f ; --------------------------------------------------------------------------------------
010f ; Debug chain
010f ; --------------------------------------------------------------------------------------
010f 0001 0004 | | .DBGLEN 0x0001,0x0004
0111 0032 003e | 2 >| .DBGLNO 0x0032,0x003e,0x0042,0x004a,0x004e
0116 0001 0003 | | .XXX[0x4]
0118 0005 0006 | |
011a ; --------------------------------------------------------------------------------------
011a ; Debug chain
011a ; --------------------------------------------------------------------------------------
011a 0003 0000 | | .DBGLEN 0x0003,0x0000
011c 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x006f
011f ; --------------------------------------------------------------------------------------
011f ; Debug chain
011f ; --------------------------------------------------------------------------------------
011f 0000 0002 | | .DBGLEN 0x0000,0x0002
0121 0078 007b | x {| .DBGLNO 0x0078,0x007b
0123 ; --------------------------------------------------------------------------------------
0123 ; Debug chain
0123 ; --------------------------------------------------------------------------------------
0123 0000 0005 | | .DBGLEN 0x0000,0x0005
0125 0097 009c | | .DBGLNO 0x0097,0x009c,0x00a1,0x00a6,0x00aa
012a 0001 0002 | | .XXX[0x5]
012c 0007 0004 | |
012e 0005 | |
012f 0000 0000 | | .BLANK 0000[0xd1]