|
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_0340e4
└─⟦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 00f8 | | .CONST 0x00f8 ; 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 0003 | | .CONST 0x0003 ; Number of locals
000b INIT_0008:
000b 00db | | Load_Top At_Offset_3
000c e013 | | Load 0x0,0x13
000d 180d | | Execute Package,Field_Execute,Field_Number 0xd
000e 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0010 BODY_0008:
0010 4800 |H | Short_Literal 0x0
0011 0092 006d | m| Action Push_String_Extended,0x6d ; "Transport"
0013 e00e | | Load 0x0,0xe
0014 180d | | Execute Package,Field_Execute,Field_Number 0xd
0015 8403 | | Call 0x2,0x3
0016 4800 |H | Short_Literal 0x0
0017 0092 006e | n| Action Push_String_Extended,0x6e ; "Transport_Server"
0019 e00e | | Load 0x0,0xe
001a 180d | | Execute Package,Field_Execute,Field_Number 0xd
001b 8403 | | Call 0x2,0x3
001c 4800 |H | Short_Literal 0x0
001d 00da | | Load_Top At_Offset_2
001e e00e | | Load 0x0,0xe
001f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0020 8403 | | Call 0x2,0x3
0021 4800 |H | Short_Literal 0x0
0022 4800 |H | Short_Literal 0x0
0023 e5fe | | Load 0x2,-0x2
0024 e013 | | Load 0x0,0x13
0025 180e | | Execute Package,Field_Execute,Field_Number 0xe
0026 e00e | | Load 0x0,0xe
0027 180f | | Execute Package,Field_Execute,Field_Number 0xf
0028 8403 | | Call 0x2,0x3
0029 4801 |H | Short_Literal 0x1
002a 0092 006f | o| Action Push_String_Extended,0x6f ; "Connection : Transport.Connection_Id"
002c 4800 |H | Short_Literal 0x0
002d 0092 0070 | p| Action Push_String_Extended,0x70 ; "Serve"
002f e00e | | Load 0x0,0xe
0030 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0031 8403 | | Call 0x2,0x3
0032 4802 |H | Short_Literal 0x2
0033 0092 0071 | q| Action Push_String_Extended,0x71 ; "package Server is new Transport_Server (Serve);"
0035 8403 | | Call 0x2,0x3
0036 4802 |H | Short_Literal 0x2
0037 0092 0072 | r| Action Push_String_Extended,0x72 ; "Server.Create ("
0039 00db | | Load_Top At_Offset_3
003a 01cc | | Execute Vector,Catenate
003b 0092 0073 | s| Action Push_String_Extended,0x73 ; ".Network, "
003d 01cc | | Execute Vector,Catenate
003e 00db | | Load_Top At_Offset_3
003f 01cc | | Execute Vector,Catenate
0040 0092 0074 | t| Action Push_String_Extended,0x74 ; ".Socket)"
0042 01cc | | Execute Vector,Catenate
0043 0092 0075 | u| Action Push_String_Extended,0x75 ; "Server.Pool_Id"
0045 0092 0076 | v| Action Push_String_Extended,0x76 ; "Std"
0047 e00e | | Load 0x0,0xe
0048 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0049 8403 | | Call 0x2,0x3
004a 4802 |H | Short_Literal 0x2
004b 0092 0077 | w| Action Push_String_Extended,0x77 ; "procedure Finalize (Abort_Servers : Boolean := False) renames Server.Finalize;"
004d 8403 | | Call 0x2,0x3
004e 4800 |H | Short_Literal 0x0
004f 00ea | | Load_Encached Null_String_Cache
0050 e00e | | Load 0x0,0xe
0051 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0052 8403 | | Call 0x2,0x3
0053 4504 |E | Exit_Suprogram New_Top_Offset 0x4
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 00da | | Load_Top At_Offset_2
005c e5fd | | Load 0x2,-0x3
005d e015 | | Load 0x0,0x15
005e 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
005f 00db | | Load_Top At_Offset_3
0060 0c01 | | Execute_Immediate Greater_Equal,0x1
0061 680a |h | Jump_Zero 0x6c
0062 00db | | Load_Top At_Offset_3
0063 00d8 | | Load_Top At_Offset_0
0064 e015 | | Load 0x0,0x15
0065 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0066 0260 | ` | Execute Discrete,In_Type
0067 7001 |p | Jump_Nonzero 0x69
0068 0801 | | Execute_Immediate Raise,0x1
0069 e5fd | | Load 0x2,-0x3
006a e015 | | Load 0x0,0x15
006b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
006c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
006d ; --------------------------------------------------------------------------------------
006d ; STRING TABLE
006d ; --------------------------------------------------------------------------------------
006d 0018 | | .STRTAB 0x0018->0x0079 ; "Transport"
006e 001f | | .STRTAB 0x001f->0x007d ; "Transport_Server"
006f 002d | - | .STRTAB 0x002d->0x0085 ; "Connection : Transport.Connection_Id"
0070 004f | O | .STRTAB 0x004f->0x0097 ; "Serve"
0071 0052 | R | .STRTAB 0x0052->0x009a ; "package Server is new Transport_Server (Serve);"
0072 007f | | .STRTAB 0x007f->0x00b1 ; "Server.Create ("
0073 008c | | .STRTAB 0x008c->0x00b9 ; ".Network, "
0074 0094 | | .STRTAB 0x0094->0x00be ; ".Socket)"
0075 009a | | .STRTAB 0x009a->0x00c2 ; "Server.Pool_Id"
0076 00a6 | | .STRTAB 0x00a6->0x00c9 ; "Std"
0077 00a7 | | .STRTAB 0x00a7->0x00ca ; "procedure Finalize (Abort_Servers : Boolean := False) renames Server.Finalize;"
0078 00f3 | | .STREND 0x00f3->0x00f1
0079 5472 616e |Tran| .STRTAB_STRINGS
00f2 0000 0000 | | .BLANK 0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; Debug Table
00f8 ; --------------------------------------------------------------------------------------
00f8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f2c,0x0000,0x0001,0x0002
00fe 000b 0106 | | .DBG4T 0x000b,0x0106,0x0001,0x0000
0102 005b 0113 | [ | .DBG4T 0x005b,0x0113,0x0001,0x0000
0106 ; --------------------------------------------------------------------------------------
0106 ; Debug chain
0106 ; --------------------------------------------------------------------------------------
0106 0002 0009 | | .DBGLEN 0x0002,0x0009
0108 000b 000e | | .DBGLNO 0x000b,0x000e,0x0010,0x0016,0x001c,0x0021,0x0029,0x0032,0x0036,0x004a,0x004e
0113 ; --------------------------------------------------------------------------------------
0113 ; Debug chain
0113 ; --------------------------------------------------------------------------------------
0113 0000 0003 | | .DBGLEN 0x0000,0x0003
0115 005b 005f | [ _| .DBGLNO 0x005b,0x005f,0x0062
0118 0000 0000 | | .BLANK 0000[0xe8]