|
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_1268af
└─⟦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 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 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 0056 | V | .CONST 0x0056 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000e | | .CONST 0x000e ; Number of locals 001b INIT_0018: 001b 4801 |H | Short_Literal 0x1 001c 4806 |H | Short_Literal 0x6 001d 00e9 | | Load_Encached String_Cache 001e 035b | [ | Declare_Type Array,Constrained 001f 0337 | 7 | Declare_Variable Array 0020 00d8 | | Load_Top At_Offset_0 0021 0335 | 5 | Declare_Variable Array,Duplicate 0022 00cd | | Action Spare6_Action 0023 4863 |Hc | Short_Literal 0x63 0024 4801 |H | Short_Literal 0x1 0025 00da | | Load_Top At_Offset_2 0026 01d6 | | Execute Vector,Field_Write 0027 486c |Hl | Short_Literal 0x6c 0028 4802 |H | Short_Literal 0x2 0029 00da | | Load_Top At_Offset_2 002a 01d6 | | Execute Vector,Field_Write 002b 4869 |Hi | Short_Literal 0x69 002c 4803 |H | Short_Literal 0x3 002d 00da | | Load_Top At_Offset_2 002e 01d6 | | Execute Vector,Field_Write 002f 4865 |He | Short_Literal 0x65 0030 4804 |H | Short_Literal 0x4 0031 00da | | Load_Top At_Offset_2 0032 01d6 | | Execute Vector,Field_Write 0033 486e |Hn | Short_Literal 0x6e 0034 4805 |H | Short_Literal 0x5 0035 00da | | Load_Top At_Offset_2 0036 01d6 | | Execute Vector,Field_Write 0037 4874 |Ht | Short_Literal 0x74 0038 4806 |H | Short_Literal 0x6 0039 00da | | Load_Top At_Offset_2 003a 01d6 | | Execute Vector,Field_Write 003b 00d9 | | Load_Top At_Offset_1 003c 01d4 | | Execute Vector,Structure_Write 003d 00e1 | | Load_Encached Boolean_Cache 003e e002 | | Load 0x0,0x2 003f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0040 0322 | " | Declare_Variable Record 0041 e003 | | Load 0x0,0x3 0042 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0043 e004 | | Load 0x0,0x4 0044 0337 | 7 | Declare_Variable Array 0045 00d8 | | Load_Top At_Offset_0 0046 0337 | 7 | Declare_Variable Array 0047 e005 | | Load 0x0,0x5 0048 02ff | | Declare_Variable Variant_Record 0049 00d8 | | Load_Top At_Offset_0 004a 1c00 | | Execute_Immediate Run_Utility,0x0 004b 00e1 | | Load_Encached Boolean_Cache 004c e006 | | Load 0x0,0x6 004d 0337 | 7 | Declare_Variable Array 004e e003 | | Load 0x0,0x3 004f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0050 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 0052 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0054 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0056 BODY_0018: 0056 840c | | Call 0x2,0xc 0057 a403 | | Store_Unchecked 0x2,0x3 0058 e403 | | Load 0x2,0x3 0059 682a |h* | Jump_Zero 0x84 005a e404 | | Load 0x2,0x4 005b e002 | | Load 0x0,0x2 005c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 005d 00d1 | | Pop_Control Pop_Count_1 005e e007 | | Load 0x0,0x7 005f e404 | | Load 0x2,0x4 0060 0092 00f5 | | Action Push_String_Extended,0xf5 ; "DATE" 0062 0092 00f6 | | Action Push_String_Extended,0xf6 ; "calendrier" 0064 8008 | | Call 0x0,0x8 0065 e406 | | Load 0x2,0x6 0066 01d4 | | Execute Vector,Structure_Write 0067 e406 | | Load 0x2,0x6 0068 8009 | | Call 0x0,0x9 0069 a409 | | Store_Unchecked 0x2,0x9 006a 00cf | | Action Mark_Auxiliary 006b 7804 |x | Jump 0x70 006c e406 | | Load 0x2,0x6 006d 8009 | | Call 0x0,0x9 006e a409 | | Store_Unchecked 0x2,0x9 006f 00c9 | | Action Pop_Auxiliary_Loop 0070 e409 | | Load 0x2,0x9 0071 6ffa |o | Jump_Zero 0x6c 0072 00ce | | Action Pop_Auxiliary 0073 e003 | | Load 0x0,0x3 0074 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0075 e40a | | Load 0x2,0xa 0076 e406 | | Load 0x2,0x6 0077 800a | | Call 0x0,0xa 0078 00d1 | | Pop_Control Pop_Count_1 0079 c405 | | Store 0x2,0x5 007a e405 | | Load 0x2,0x5 007b e003 | | Load 0x0,0x3 007c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007d 7002 |p | Jump_Nonzero 0x80 007e 840e | | Call 0x2,0xe 007f 7803 |x | Jump 0x83 0080 0092 00f7 | | Action Push_String_Extended,0xf7 ; "aucun serveur n'a ete trouve" 0082 800b | | Call 0x0,0xb 0083 840d | | Call 0x2,0xd 0084 0092 00f8 | | Action Push_String_Extended,0xf8 ; "c'est la fin" 0086 800b | | Call 0x0,0xb 0087 800c | | Call 0x0,0xc 0088 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0089 0000 0000 | | .BLANK 0000[0x7] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0099 | | .CONST 0x0099 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 00e1 | | Load_Encached Boolean_Cache 0094 e002 | | Load 0x0,0x2 0095 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0096 0322 | " | Declare_Variable Record 0097 00d8 | | Load_Top At_Offset_0 0098 0322 | " | Declare_Variable Record 0099 BODY_0090: 0099 00e1 | | Load_Encached Boolean_Cache 009a e00d | | Load 0x0,0xd 009b e00e | | Load 0x0,0xe 009c 800f | | Call 0x0,0xf 009d 005b | [ | Store_Top Discrete,At_Offset_3 009e 0092 00f9 | | Action Push_String_Extended,0xf9 ; "apres init Client_Request_To_Orb" 00a0 800b | | Call 0x0,0xb 00a1 00da | | Load_Top At_Offset_2 00a2 0f01 | | Execute_Immediate Equal,0x1 00a3 6802 |h | Jump_Zero 0xa6 00a4 e402 | | Load 0x2,0x2 00a5 8010 | | Call 0x0,0x10 00a6 00da | | Load_Top At_Offset_2 00a7 00ca | | Action Exit_Nullary_Function 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 8011 | | Call 0x0,0x11 00ac 8012 | | Call 0x0,0x12 00ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ae 0000 0000 | | .XXX[0x2] 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 e003 | | Load 0x0,0x3 00b4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00b5 e405 | | Load 0x2,0x5 00b6 e003 | | Load 0x0,0x3 00b7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00b8 c40b | | Store 0x2,0xb 00b9 e40b | | Load 0x2,0xb 00ba e003 | | Load 0x0,0x3 00bb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00bc e408 | | Load 0x2,0x8 00bd 016d | m | Execute Variant_Record,Structure_Write 00be 0092 00fa | | Action Push_String_Extended,0xfa ; " reponse numero 2 : " 00c0 e408 | | Load 0x2,0x8 00c1 e013 | | Load 0x0,0x13 00c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c3 01cc | | Execute Vector,Catenate 00c4 800b | | Call 0x0,0xb 00c5 e007 | | Load 0x0,0x7 00c6 e404 | | Load 0x2,0x4 00c7 0092 00f5 | | Action Push_String_Extended,0xf5 ; "DATE" 00c9 0092 00f6 | | Action Push_String_Extended,0xf6 ; "calendrier" 00cb 8008 | | Call 0x0,0x8 00cc e407 | | Load 0x2,0x7 00cd 01d4 | | Execute Vector,Structure_Write 00ce e407 | | Load 0x2,0x7 00cf 8009 | | Call 0x0,0x9 00d0 a409 | | Store_Unchecked 0x2,0x9 00d1 00cf | | Action Mark_Auxiliary 00d2 7804 |x | Jump 0xd7 00d3 e407 | | Load 0x2,0x7 00d4 8009 | | Call 0x0,0x9 00d5 a409 | | Store_Unchecked 0x2,0x9 00d6 00c9 | | Action Pop_Auxiliary_Loop 00d7 e409 | | Load 0x2,0x9 00d8 6ffa |o | Jump_Zero 0xd3 00d9 00ce | | Action Pop_Auxiliary 00da e003 | | Load 0x0,0x3 00db 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00dc e407 | | Load 0x2,0x7 00dd 8014 | | Call 0x0,0x14 00de c405 | | Store 0x2,0x5 00df 0092 00fb | | Action Push_String_Extended,0xfb ; "j'ai lu la reponse 2" 00e1 800b | | Call 0x0,0xb 00e2 e003 | | Load 0x0,0x3 00e3 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00e4 e405 | | Load 0x2,0x5 00e5 e003 | | Load 0x0,0x3 00e6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e7 c40b | | Store 0x2,0xb 00e8 e40b | | Load 0x2,0xb 00e9 e003 | | Load 0x0,0x3 00ea 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00eb e408 | | Load 0x2,0x8 00ec 016d | m | Execute Variant_Record,Structure_Write 00ed 0092 00fc | | Action Push_String_Extended,0xfc ; " reponse numero 1 : " 00ef e408 | | Load 0x2,0x8 00f0 e013 | | Load 0x0,0x13 00f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f2 01cc | | Execute Vector,Catenate 00f3 800b | | Call 0x0,0xb 00f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f5 ; -------------------------------------------------------------------------------------- 00f5 ; STRING TABLE 00f5 ; -------------------------------------------------------------------------------------- 00f5 0012 | | .STRTAB 0x0012->0x00fe ; "DATE" 00f6 0014 | | .STRTAB 0x0014->0x0100 ; "calendrier" 00f7 001c | | .STRTAB 0x001c->0x0105 ; "aucun serveur n'a ete trouve" 00f8 0036 | 6 | .STRTAB 0x0036->0x0113 ; "c'est la fin" 00f9 0040 | @ | .STRTAB 0x0040->0x0119 ; "apres init Client_Request_To_Orb" 00fa 005f | _ | .STRTAB 0x005f->0x0129 ; " reponse numero 2 : " 00fb 0071 | q | .STRTAB 0x0071->0x0133 ; "j'ai lu la reponse 2" 00fc 0083 | | .STRTAB 0x0083->0x013d ; " reponse numero 1 : " 00fd 0095 | | .STREND 0x0095->0x0147 00fe 4441 5445 |DATE| .STRTAB_STRINGS 0148 ; -------------------------------------------------------------------------------------- 0148 ; Debug Table 0148 ; -------------------------------------------------------------------------------------- 0148 0004 000a | | .DEBUG4 0x0004,0x000a,0x707d,0x0000,0x0001,0x0005 014e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 0152 001b 0162 | b| .DBG4T 0x001b,0x0162,0x8001,0x4000 0156 0093 018b | | .DBG4T 0x0093,0x018b,0x0002,0x0000 015a 00ab 0194 | | .DBG4T 0x00ab,0x0194,0x0001,0x0000 015e 00b3 0198 | | .DBG4T 0x00b3,0x0198,0x0004,0x4000 0162 ; -------------------------------------------------------------------------------------- 0162 ; Debug chain 0162 ; -------------------------------------------------------------------------------------- 0162 000b 000e | | .DBGLEN 0x000b,0x000e 0164 001b 003d | =| .DBGLNO 0x001b,0x003d,0x003e,0x0041,0x0043,0x0047,0x004b,0x004c,0x004e,0x0050,0x0052,0x0056,0x0058,0x005a,0x005e,0x0067,0x006c,0x0070,0x0073,0x007a,0x007e,0x0080,0x0083,0x0084,0x0087 017d 0001 0002 | | .XXX[0xe] 017f 0003 0004 | | 0181 0005 0007 | | 0183 0006 0008 | | 0185 0009 000a | | 0187 000b 000c | | 0189 000d 000e | | 018b ; -------------------------------------------------------------------------------------- 018b ; Debug chain 018b ; -------------------------------------------------------------------------------------- 018b 0002 0005 | | .DBGLEN 0x0002,0x0005 018d 0093 0094 | | .DBGLNO 0x0093,0x0094,0x0099,0x009e,0x00a1,0x00a4,0x00a6 0194 ; -------------------------------------------------------------------------------------- 0194 ; Debug chain 0194 ; -------------------------------------------------------------------------------------- 0194 0000 0002 | | .DBGLEN 0x0000,0x0002 0196 00ab 00ac | | .DBGLNO 0x00ab,0x00ac 0198 ; -------------------------------------------------------------------------------------- 0198 ; Debug chain 0198 ; -------------------------------------------------------------------------------------- 0198 0000 000c | | .DBGLEN 0x0000,0x000c 019a 00b3 00b9 | | .DBGLNO 0x00b3,0x00b9,0x00be,0x00c5,0x00ce,0x00d3,0x00d7,0x00da,0x00df,0x00e2,0x00e8,0x00ed 01a6 0001 0002 | | .XXX[0xc] 01a8 0003 0004 | | 01aa 0005 0007 | | 01ac 0006 0008 | | 01ae 0009 000a | | 01b0 000b 000c | | 01b2 0000 0000 | | .BLANK 0000[0x4e]