|
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_094cbf
└─⟦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 0120 | | .CONST 0x0120 ; 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 0024 | $ | .CONST 0x0024 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0003 | | .CONST 0x0003 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 0322 | " | Declare_Variable Record 001d e003 | | Load 0x0,0x3 001e 00d9 | | Load_Top At_Offset_1 001f 017d | } | Execute Record,Structure_Write 0020 e004 | | Load 0x0,0x4 0021 02ff | | Declare_Variable Variant_Record 0022 00d8 | | Load_Top At_Offset_0 0023 1c00 | | Execute_Immediate Run_Utility,0x0 0024 BODY_0018: 0024 0092 00a5 | | Action Push_String_Extended,0xa5 ; "debut de test" 0026 e005 | | Load 0x0,0x5 0027 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0028 00d9 | | Load_Top At_Offset_1 0029 4800 |H | Short_Literal 0x0 002a 4801 |H | Short_Literal 0x1 002b e006 | | Load 0x0,0x6 002c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 002d 035b | [ | Declare_Type Array,Constrained 002e 0337 | 7 | Declare_Variable Array 002f 4800 |H | Short_Literal 0x0 0030 4800 |H | Short_Literal 0x0 0031 00da | | Load_Top At_Offset_2 0032 01d6 | | Execute Vector,Field_Write 0033 48ea |H | Short_Literal 0xea 0034 4801 |H | Short_Literal 0x1 0035 00da | | Load_Top At_Offset_2 0036 01d6 | | Execute Vector,Field_Write 0037 e007 | | Load 0x0,0x7 0038 180f | | Execute Package,Field_Execute,Field_Number 0xf 0039 8008 | | Call 0x0,0x8 003a 00d1 | | Pop_Control Pop_Count_1 003b 0092 00a6 | | Action Push_String_Extended,0xa6 ; "variable initialiser" 003d e005 | | Load 0x0,0x5 003e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 003f 0092 00a7 | | Action Push_String_Extended,0xa7 ; "affichage de l'image de la variable variable" 0041 e005 | | Load 0x0,0x5 0042 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0043 00d9 | | Load_Top At_Offset_1 0044 8009 | | Call 0x0,0x9 0045 800a | | Call 0x0,0xa 0046 e005 | | Load 0x0,0x5 0047 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0048 0092 00a8 | | Action Push_String_Extended,0xa8 ; "affichage de l'adresse Ip" 004a e005 | | Load 0x0,0x5 004b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 004c 00d9 | | Load_Top At_Offset_1 004d 800b | | Call 0x0,0xb 004e e007 | | Load 0x0,0x7 004f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0050 4801 |H | Short_Literal 0x1 0051 e005 | | Load 0x0,0x5 0052 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0053 0092 00a9 | | Action Push_String_Extended,0xa9 ; "affichage du numero de socket" 0055 e005 | | Load 0x0,0x5 0056 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0057 4801 |H | Short_Literal 0x1 0058 00da | | Load_Top At_Offset_2 0059 800c | | Call 0x0,0xc 005a 01d7 | | Execute Vector,Field_Read 005b 0908 | | Execute_Immediate Binary_Scale,0x8 005c 4802 |H | Short_Literal 0x2 005d 00db | | Load_Top At_Offset_3 005e 800c | | Call 0x0,0xc 005f 01d7 | | Execute Vector,Field_Read 0060 0273 | s | Execute Discrete,Plus 0061 00d8 | | Load_Top At_Offset_0 0062 00e2 | | Load_Encached Integer_Cache 0063 0260 | ` | Execute Discrete,In_Type 0064 7001 |p | Jump_Nonzero 0x66 0065 0801 | | Execute_Immediate Raise,0x1 0066 00e0 | | Load_Encached Standard_Cache 0067 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0068 e005 | | Load 0x0,0x5 0069 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 006a 0092 00aa | | Action Push_String_Extended,0xaa ; "affichage du texte d'entre" 006c e005 | | Load 0x0,0x5 006d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 006e 00d9 | | Load_Top At_Offset_1 006f 8009 | | Call 0x0,0x9 0070 00d9 | | Load_Top At_Offset_1 0071 016d | m | Execute Variant_Record,Structure_Write 0072 00d8 | | Load_Top At_Offset_0 0073 800a | | Call 0x0,0xa 0074 e005 | | Load 0x0,0x5 0075 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0076 0092 00ab | | Action Push_String_Extended,0xab ; "interpretation du texte d'entre" 0078 e005 | | Load 0x0,0x5 0079 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 007a 00d8 | | Load_Top At_Offset_0 007b 800d | | Call 0x0,0xd 007c 00da | | Load_Top At_Offset_2 007d 017d | } | Execute Record,Structure_Write 007e 0092 00ac | | Action Push_String_Extended,0xac ; "affichage du numero ip" 0080 e005 | | Load 0x0,0x5 0081 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0082 00d9 | | Load_Top At_Offset_1 0083 800b | | Call 0x0,0xb 0084 e007 | | Load 0x0,0x7 0085 180d | | Execute Package,Field_Execute,Field_Number 0xd 0086 4801 |H | Short_Literal 0x1 0087 e005 | | Load 0x0,0x5 0088 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0089 0092 00a9 | | Action Push_String_Extended,0xa9 ; "affichage du numero de socket" 008b e005 | | Load 0x0,0x5 008c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 008d 4801 |H | Short_Literal 0x1 008e 00da | | Load_Top At_Offset_2 008f 800c | | Call 0x0,0xc 0090 01d7 | | Execute Vector,Field_Read 0091 0908 | | Execute_Immediate Binary_Scale,0x8 0092 4802 |H | Short_Literal 0x2 0093 00db | | Load_Top At_Offset_3 0094 800c | | Call 0x0,0xc 0095 01d7 | | Execute Vector,Field_Read 0096 0273 | s | Execute Discrete,Plus 0097 00d8 | | Load_Top At_Offset_0 0098 00e2 | | Load_Encached Integer_Cache 0099 0260 | ` | Execute Discrete,In_Type 009a 7001 |p | Jump_Nonzero 0x9c 009b 0801 | | Execute_Immediate Raise,0x1 009c 00e0 | | Load_Encached Standard_Cache 009d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 009e e005 | | Load 0x0,0x5 009f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00a0 0092 00ad | | Action Push_String_Extended,0xad ; "fin du programme" 00a2 e005 | | Load 0x0,0x5 00a3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a5 ; -------------------------------------------------------------------------------------- 00a5 ; STRING TABLE 00a5 ; -------------------------------------------------------------------------------------- 00a5 0014 | | .STRTAB 0x0014->0x00af ; "debut de test" 00a6 001f | | .STRTAB 0x001f->0x00b5 ; "variable initialiser" 00a7 0031 | 1 | .STRTAB 0x0031->0x00bf ; "affichage de l'image de la variable variable" 00a8 005b | [ | .STRTAB 0x005b->0x00d5 ; "affichage de l'adresse Ip" 00a9 0072 | r | .STRTAB 0x0072->0x00e2 ; "affichage du numero de socket" 00aa 008d | | .STRTAB 0x008d->0x00f0 ; "affichage du texte d'entre" 00ab 00a5 | | .STRTAB 0x00a5->0x00fd ; "interpretation du texte d'entre" 00ac 00c2 | | .STRTAB 0x00c2->0x010d ; "affichage du numero ip" 00ad 00d6 | | .STRTAB 0x00d6->0x0118 ; "fin du programme" 00ae 00e4 | | .STREND 0x00e4->0x0120 00af 6465 6275 |debu| .STRTAB_STRINGS 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug Table 0120 ; -------------------------------------------------------------------------------------- 0120 0004 000a | | .DEBUG4 0x0004,0x000a,0x7aa7,0x0000,0x0001,0x0002 0126 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 012a 001b 012e | .| .DBG4T 0x001b,0x012e,0x8001,0x0000 012e ; -------------------------------------------------------------------------------------- 012e ; Debug chain 012e ; -------------------------------------------------------------------------------------- 012e 0002 0015 | | .DBGLEN 0x0002,0x0015 0130 001b 0020 | | .DBGLNO 0x001b,0x0020,0x0024,0x0028,0x003b,0x003f,0x0043,0x0048,0x004c,0x0050,0x0053,0x0057,0x006a,0x006e,0x0072,0x0076,0x007a,0x007e,0x0082,0x0086,0x0089,0x008d,0x00a0 0147 0000 0000 | | .BLANK 0000[0xb9]