|
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_04dcb3
└─⟦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 0100 | | .CONST 0x0100 ; 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 004e | N | .CONST 0x004e ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0008 | | .CONST 0x0008 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
001d 02c7 | | Declare_Variable Any
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e002 | | Load 0x0,0x2
0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 02c7 | | Declare_Variable Any
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 e003 | | Load 0x0,0x3
0026 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0027 4801 |H | Short_Literal 0x1
0028 4806 |H | Short_Literal 0x6
0029 00e9 | | Load_Encached String_Cache
002a 0334 | 4 | Declare_Variable Array,With_Constraint
002b 507c |P| | Indirect_Literal Any,0xa8,{0x5443502f, 0x49502020}
002c 4801 |H | Short_Literal 0x1
002d 4804 |H | Short_Literal 0x4
002e e003 | | Load 0x0,0x3
002f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0030 035b | [ | Declare_Type Array,Constrained
0031 0337 | 7 | Declare_Variable Array
0032 00d8 | | Load_Top At_Offset_0
0033 0335 | 5 | Declare_Variable Array,Duplicate
0034 00cd | | Action Spare6_Action
0035 4802 |H | Short_Literal 0x2
0036 4801 |H | Short_Literal 0x1
0037 00da | | Load_Top At_Offset_2
0038 01d6 | | Execute Vector,Field_Write
0039 4806 |H | Short_Literal 0x6
003a 4802 |H | Short_Literal 0x2
003b 00da | | Load_Top At_Offset_2
003c 01d6 | | Execute Vector,Field_Write
003d 4800 |H | Short_Literal 0x0
003e 4803 |H | Short_Literal 0x3
003f 00da | | Load_Top At_Offset_2
0040 01d6 | | Execute Vector,Field_Write
0041 4808 |H | Short_Literal 0x8
0042 4804 |H | Short_Literal 0x4
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 00d9 | | Load_Top At_Offset_1
0046 01d4 | | Execute Vector,Structure_Write
0047 00e3 | | Load_Encached Natural_Cache
0048 4801 |H | Short_Literal 0x1
0049 4804 |H | Short_Literal 0x4
004a e004 | | Load 0x0,0x4
004b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004c 035b | [ | Declare_Type Array,Constrained
004d 0337 | 7 | Declare_Variable Array
004e BODY_0018:
004e 00be | | Action Activate_Tasks
004f 0092 00ac | | Action Push_String_Extended,0xac ; "Initialisation O.K."
0051 e005 | | Load 0x0,0x5
0052 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0053 e003 | | Load 0x0,0x3
0054 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0055 e403 | | Load 0x2,0x3
0056 0120 | | Execute Any,Is_Value
0057 6803 |h | Jump_Zero 0x5b
0058 e002 | | Load 0x0,0x2
0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005a 7801 |x | Jump 0x5c
005b e403 | | Load 0x2,0x3
005c e406 | | Load 0x2,0x6
005d e405 | | Load 0x2,0x5
005e e002 | | Load 0x0,0x2
005f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0060 c403 | | Store 0x2,0x3
0061 c404 | | Store 0x2,0x4
0062 e403 | | Load 0x2,0x3
0063 e002 | | Load 0x0,0x2
0064 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0065 6805 |h | Jump_Zero 0x6b
0066 0092 00ad | | Action Push_String_Extended,0xad ; "Ouverture Reception canal O.K."
0068 e005 | | Load 0x0,0x5
0069 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
006a 7804 |x | Jump 0x6f
006b 0092 00ae | | Action Push_String_Extended,0xae ; "Ouverture reception canal echec"
006d e005 | | Load 0x0,0x5
006e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
006f 0092 00af | | Action Push_String_Extended,0xaf ; "attente connection"
0071 e005 | | Load 0x0,0x5
0072 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0073 e003 | | Load 0x0,0x3
0074 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0075 602e |`. | Indirect_Literal Discrete,0xa4,{0x00007fff, 0xffffffff}
0076 e403 | | Load 0x2,0x3
0077 e002 | | Load 0x0,0x2
0078 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0079 c404 | | Store 0x2,0x4
007a 00e3 | | Load_Encached Natural_Cache
007b 00d9 | | Load_Top At_Offset_1
007c e003 | | Load 0x0,0x3
007d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
007e 6025 |`% | Indirect_Literal Discrete,0xa4,{0x00007fff, 0xffffffff}
007f e403 | | Load 0x2,0x3
0080 e002 | | Load 0x0,0x2
0081 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0082 c404 | | Store 0x2,0x4
0083 00d1 | | Pop_Control Pop_Count_1
0084 005a | Z | Store_Top Discrete,At_Offset_2
0085 0092 00b0 | | Action Push_String_Extended,0xb0 ; "Reception OK"
0087 e005 | | Load 0x0,0x5
0088 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0089 0092 00b1 | | Action Push_String_Extended,0xb1 ; "Resultat : "
008b e005 | | Load 0x0,0x5
008c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
008d 00d8 | | Load_Top At_Offset_0
008e e006 | | Load 0x0,0x6
008f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0090 e005 | | Load 0x0,0x5
0091 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0092 0092 00b2 | | Action Push_String_Extended,0xb2 ; "Nombre de byte transmis"
0094 00da | | Load_Top At_Offset_2
0095 00e0 | | Load_Encached Standard_Cache
0096 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0097 01cc | | Execute Vector,Catenate
0098 e005 | | Load 0x0,0x5
0099 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
009a e403 | | Load 0x2,0x3
009b e002 | | Load 0x0,0x2
009c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
009d e403 | | Load 0x2,0x3
009e e002 | | Load 0x0,0x2
009f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a1 0000 0000 | | .XXX[0x3]
00a3 0000 | |
00a4 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
00a8 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
00ac ; --------------------------------------------------------------------------------------
00ac ; STRING TABLE
00ac ; --------------------------------------------------------------------------------------
00ac 0010 | | .STRTAB 0x0010->0x00b4 ; "Initialisation O.K."
00ad 0021 | ! | .STRTAB 0x0021->0x00bd ; "Ouverture Reception canal O.K."
00ae 003f | ? | .STRTAB 0x003f->0x00cd ; "Ouverture reception canal echec"
00af 005d | ] | .STRTAB 0x005d->0x00dd ; "attente connection"
00b0 006d | m | .STRTAB 0x006d->0x00e6 ; "Reception OK"
00b1 0077 | w | .STRTAB 0x0077->0x00ec ; "Resultat : "
00b2 0080 | | .STRTAB 0x0080->0x00f2 ; "Nombre de byte transmis"
00b3 0095 | | .STREND 0x0095->0x00fd
00b4 496e 6974 |Init| .STRTAB_STRINGS
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug Table
0100 ; --------------------------------------------------------------------------------------
0100 0004 000a | | .DEBUG4 0x0004,0x000a,0x03dd,0x0000,0x0001,0x0002
0106 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
010a 001b 010e | | .DBG4T 0x001b,0x010e,0x8001,0x0000
010e ; --------------------------------------------------------------------------------------
010e ; Debug chain
010e ; --------------------------------------------------------------------------------------
010e 0007 000e | | .DBGLEN 0x0007,0x000e
0110 001b 0020 | | .DBGLNO 0x001b,0x0020,0x0025,0x0027,0x002c,0x0047,0x0048,0x004f,0x0053,0x0062,0x0066,0x006b,0x006f,0x0073,0x007a,0x0085,0x0089,0x008d,0x0092,0x009a,0x009d
0125 0000 0000 | | .BLANK 0000[0xdb]