|
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_2980c5
└─⟦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 0148 | H | .CONST 0x0148 ; 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 5099 |P | Indirect_Literal Any,0xb0,{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 e006 | | Load 0x0,0x6
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 0092 00b4 | | Action Push_String_Extended,0xb4 ; "Message_Transport put open "
004a e00a | | Load 0x0,0xa
004b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
004c e403 | | Load 0x2,0x3
004d 6807 |h | Jump_Zero 0x55
004e 4803 |H | Short_Literal 0x3
004f a5fa | | Store_Unchecked 0x2,-0x6
0050 0092 00b5 | | Action Push_String_Extended,0xb5 ; "Message_Transport put open failed "
0052 e00a | | Load 0x0,0xa
0053 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0054 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0055 00cf | | Action Mark_Auxiliary
0056 e5fc | | Load 0x2,-0x4
0057 4801 |H | Short_Literal 0x1
0058 0263 | c | Execute Discrete,Above_Bound
0059 7023 |p# | Jump_Nonzero 0x7d
005a e003 | | Load 0x0,0x3
005b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
005c 604f |`O | Indirect_Literal Discrete,0xac,{0x00007fff, 0xffffffff}
005d e405 | | Load 0x2,0x5
005e e406 | | Load 0x2,0x6
005f e402 | | Load 0x2,0x2
0060 e002 | | Load 0x0,0x2
0061 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0062 c403 | | Store 0x2,0x3
0063 e403 | | Load 0x2,0x3
0064 7006 |p | Jump_Nonzero 0x6b
0065 0092 00b6 | | Action Push_String_Extended,0xb6 ; "Message_Transport put connect OK "
0067 e00a | | Load 0x0,0xa
0068 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0069 00d2 | | Pop_Control Pop_Count_2
006a 7812 |x | Jump 0x7d
006b 00d8 | | Load_Top At_Offset_0
006c e5fc | | Load 0x2,-0x4
006d 027f | | Execute Discrete,Equal
006e 680a |h | Jump_Zero 0x79
006f 4803 |H | Short_Literal 0x3
0070 a5fa | | Store_Unchecked 0x2,-0x6
0071 e402 | | Load 0x2,0x2
0072 e002 | | Load 0x0,0x2
0073 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0074 0092 00b7 | | Action Push_String_Extended,0xb7 ; "Message_Transport put connect failed "
0076 e00a | | Load 0x0,0xa
0077 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0078 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0079 e5fb | | Load 0x2,-0x5
007a 00ba | | Action Initiate_Delay
007b 00c8 | | Action Pop_Auxiliary_Range
007c 3fdd |? | Loop_Increasing 0x5a
007d 00ce | | Action Pop_Auxiliary
007e 0092 00b8 | | Action Push_String_Extended,0xb8 ; "Message_Transport put T.Transmit"
0080 e00a | | Load 0x0,0xa
0081 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0082 00e3 | | Load_Encached Natural_Cache
0083 e003 | | Load 0x0,0x3
0084 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0085 4800 |H | Short_Literal 0x0
0086 6025 |`% | Indirect_Literal Discrete,0xac,{0x00007fff, 0xffffffff}
0087 e5ff | | Load 0x2,-0x1
0088 8009 | | Call 0x0,0x9
0089 e402 | | Load 0x2,0x2
008a e002 | | Load 0x0,0x2
008b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
008c c403 | | Store 0x2,0x3
008d 0059 | Y | Store_Top Discrete,At_Offset_1
008e e403 | | Load 0x2,0x3
008f 6807 |h | Jump_Zero 0x97
0090 4803 |H | Short_Literal 0x3
0091 a5fa | | Store_Unchecked 0x2,-0x6
0092 0092 00b9 | | Action Push_String_Extended,0xb9 ; "Message_Transport put Connection_Failed"
0094 e00a | | Load 0x0,0xa
0095 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0096 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0097 00d8 | | Load_Top At_Offset_0
0098 e5ff | | Load 0x2,-0x1
0099 01db | | Execute Vector,Length
009a 027e | ~ | Execute Discrete,Not_Equal
009b 6807 |h | Jump_Zero 0xa3
009c 4802 |H | Short_Literal 0x2
009d a5fa | | Store_Unchecked 0x2,-0x6
009e 0092 00ba | | Action Push_String_Extended,0xba ; "Message_Transport put Incomplete_Transmission"
00a0 e00a | | Load 0x0,0xa
00a1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a2 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00a3 4800 |H | Short_Literal 0x0
00a4 a5fa | | Store_Unchecked 0x2,-0x6
00a5 0092 00bb | | Action Push_String_Extended,0xbb ; "Message_Transport put OK"
00a7 e00a | | Load 0x0,0xa
00a8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a9 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00aa 0000 0000 | | .XXX[0x2]
00ac 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
00b0 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
00b4 ; --------------------------------------------------------------------------------------
00b4 ; STRING TABLE
00b4 ; --------------------------------------------------------------------------------------
00b4 0012 | | .STRTAB 0x0012->0x00bd ; "Message_Transport put open "
00b5 002b | + | .STRTAB 0x002b->0x00ca ; "Message_Transport put open failed "
00b6 004b | K | .STRTAB 0x004b->0x00db ; "Message_Transport put connect OK "
00b7 006a | j | .STRTAB 0x006a->0x00ec ; "Message_Transport put connect failed "
00b8 008d | | .STRTAB 0x008d->0x00fe ; "Message_Transport put T.Transmit"
00b9 00ab | | .STRTAB 0x00ab->0x010e ; "Message_Transport put Connection_Failed"
00ba 00d0 | | .STRTAB 0x00d0->0x0122 ; "Message_Transport put Incomplete_Transmission"
00bb 00fb | | .STRTAB 0x00fb->0x0138 ; "Message_Transport put OK"
00bc 0111 | | .STREND 0x0111->0x0144
00bd 4d65 7373 |Mess| .STRTAB_STRINGS
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0004 0009 | | .DEBUG4 0x0004,0x0009,0xb6fa,0x0000,0x0001,0x0001
014e 000b 0152 | R| .DBG4T 0x000b,0x0152,0x0001,0x8000
0152 ; --------------------------------------------------------------------------------------
0152 ; Debug chain
0152 ; --------------------------------------------------------------------------------------
0152 0006 001d | | .DBGLEN 0x0006,0x001d
0154 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0017,0x0034,0x0037,0x0038,0x0048,0x004c,0x004e,0x0050,0x0054,0x0056,0x005a,0x0063,0x0065,0x0069,0x006b,0x006f,0x0071,0x0074,0x0078,0x0079,0x007e,0x0082,0x008e,0x0090,0x0092,0x0096,0x0097,0x009c,0x009e,0x00a2,0x00a3,0x00a5
0177 0001 0002 | | .XXX[0x6]
0179 0003 0005 | |
017b 0006 0007 | |
017d 0000 0000 | | .BLANK 0000[0x83]