|
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_5510f5
└─⟦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 00f0 | | .CONST 0x00f0 ; 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 0024 | $ | .CONST 0x0024 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000f 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0011 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0013 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0015 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0017 00bf | | Action Accept_Activation 0018 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0019 00c7 | | Action Elaborate_Subprogram 001a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001b 00c7 | | Action Elaborate_Subprogram 001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001d 00c7 | | Action Elaborate_Subprogram 001e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001f 00c7 | | Action Elaborate_Subprogram 0020 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0021 00c7 | | Action Elaborate_Subprogram 0022 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0023 00c7 | | Action Elaborate_Subprogram 0024 BODY_0008: 0024 00bc | | Action Signal_Activated 0025 00bb | | Action Signal_Completion 0026 0000 0000 | | .XXX[0x2] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 0092 00a6 | | Action Push_String_Extended,0xa6 ; "emetteur: " 002d 00db | | Load_Top At_Offset_3 002e 8002 | | Call 0x0,0x2 002f e003 | | Load 0x0,0x3 0030 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0031 01cc | | Execute Vector,Catenate 0032 8004 | | Call 0x0,0x4 0033 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 0092 00a7 | | Action Push_String_Extended,0xa7 ; "destinataire: " 003d 00db | | Load_Top At_Offset_3 003e 8005 | | Call 0x0,0x5 003f e003 | | Load 0x0,0x3 0040 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0041 01cc | | Execute Vector,Catenate 0042 8004 | | Call 0x0,0x4 0043 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0044 0000 0000 | | .BLANK 0000[0x4] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 0092 00a8 | | Action Push_String_Extended,0xa8 ; "type du message : " 004d 00db | | Load_Top At_Offset_3 004e 8006 | | Call 0x0,0x6 004f e007 | | Load 0x0,0x7 0050 011c | | Execute Any,Convert_Unchecked 0051 1c01 | | Execute_Immediate Run_Utility,0x1 0052 01cc | | Execute Vector,Catenate 0053 8004 | | Call 0x0,0x4 0054 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 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 0092 00a9 | | Action Push_String_Extended,0xa9 ; "numero de message: " 005d 00db | | Load_Top At_Offset_3 005e 8008 | | Call 0x0,0x8 005f 01cc | | Execute Vector,Catenate 0060 8004 | | Call 0x0,0x4 0061 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0062 0000 0000 | | .BLANK 0000[0x6] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006f | o | .CONST 0x006f ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b e009 | | Load 0x0,0x9 006c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 006d e009 | | Load 0x0,0x9 006e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 006f BODY_0068: 006f e5ff | | Load 0x2,-0x1 0070 800a | | Call 0x0,0xa 0071 003a | : | Store_Top Access,At_Offset_2 0072 e009 | | Load 0x0,0x9 0073 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0074 00da | | Load_Top At_Offset_2 0075 e009 | | Load 0x0,0x9 0076 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0077 0039 | 9 | Store_Top Access,At_Offset_1 0078 0092 00aa | | Action Push_String_Extended,0xaa ; "liste des parametres de la trame" 007a 8004 | | Call 0x0,0x4 007b 00cf | | Action Mark_Auxiliary 007c 780b |x | Jump 0x88 007d 00d9 | | Load_Top At_Offset_1 007e e009 | | Load 0x0,0x9 007f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0080 e00b | | Load 0x0,0xb 0081 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0082 8004 | | Call 0x0,0x4 0083 00d9 | | Load_Top At_Offset_1 0084 e009 | | Load 0x0,0x9 0085 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0086 003a | : | Store_Top Access,At_Offset_2 0087 00c9 | | Action Pop_Auxiliary_Loop 0088 00d9 | | Load_Top At_Offset_1 0089 e009 | | Load 0x0,0x9 008a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 008b 0e01 | | Execute_Immediate Not_Equal,0x1 008c 77f0 |w | Jump_Nonzero 0x7d 008d 00ce | | Action Pop_Auxiliary 008e 0092 00ab | | Action Push_String_Extended,0xab ; "fin de la liste de parametres" 0090 8004 | | Call 0x0,0x4 0091 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0092 0000 0000 | | .BLANK 0000[0x6] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c 820d | | Call 0x1,0xd 009d 00da | | Load_Top At_Offset_2 009e 820e | | Call 0x1,0xe 009f 00da | | Load_Top At_Offset_2 00a0 820f | | Call 0x1,0xf 00a1 00da | | Load_Top At_Offset_2 00a2 8210 | | Call 0x1,0x10 00a3 00da | | Load_Top At_Offset_2 00a4 8211 | | Call 0x1,0x11 00a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a6 ; -------------------------------------------------------------------------------------- 00a6 ; STRING TABLE 00a6 ; -------------------------------------------------------------------------------------- 00a6 000e | | .STRTAB 0x000e->0x00ad ; "emetteur: " 00a7 0016 | | .STRTAB 0x0016->0x00b2 ; "destinataire: " 00a8 0022 | " | .STRTAB 0x0022->0x00b9 ; "type du message : " 00a9 0032 | 2 | .STRTAB 0x0032->0x00c2 ; "numero de message: " 00aa 0043 | C | .STRTAB 0x0043->0x00cb ; "liste des parametres de la trame" 00ab 0061 | a | .STRTAB 0x0061->0x00db ; "fin de la liste de parametres" 00ac 007c | | | .STREND 0x007c->0x00ea 00ad 656d 6574 |emet| .STRTAB_STRINGS 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; Debug Table 00f0 ; -------------------------------------------------------------------------------------- 00f0 0004 000a | | .DEBUG4 0x0004,0x000a,0x1c85,0x0000,0x0001,0x0008 00f6 000b 0116 | | .DBG4T 0x000b,0x0116,0x8000,0x0000 00fa 0018 011e | | .DBG4T 0x0018,0x011e,0x8000,0x0000 00fe 002b 0126 | + &| .DBG4T 0x002b,0x0126,0x0001,0x0000 0102 003b 0129 | ; )| .DBG4T 0x003b,0x0129,0x0001,0x0000 0106 004b 012c | K ,| .DBG4T 0x004b,0x012c,0x0001,0x0000 010a 005b 012f | [ /| .DBG4T 0x005b,0x012f,0x0001,0x0000 010e 006b 0132 | k 2| .DBG4T 0x006b,0x0132,0x0001,0x4000 0112 009b 0144 | D| .DBG4T 0x009b,0x0144,0x0001,0x0000 0116 ; -------------------------------------------------------------------------------------- 0116 ; Debug chain 0116 ; -------------------------------------------------------------------------------------- 0116 0006 0000 | | .DBGLEN 0x0006,0x0000 0118 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015 011e ; -------------------------------------------------------------------------------------- 011e ; Debug chain 011e ; -------------------------------------------------------------------------------------- 011e 0006 0000 | | .DBGLEN 0x0006,0x0000 0120 0018 001a | | .DBGLNO 0x0018,0x001a,0x001c,0x001e,0x0020,0x0022 0126 ; -------------------------------------------------------------------------------------- 0126 ; Debug chain 0126 ; -------------------------------------------------------------------------------------- 0126 0000 0001 | | .DBGLEN 0x0000,0x0001 0128 002b | + | .DBGLNO 0x002b 0129 ; -------------------------------------------------------------------------------------- 0129 ; Debug chain 0129 ; -------------------------------------------------------------------------------------- 0129 0000 0001 | | .DBGLEN 0x0000,0x0001 012b 003b | ; | .DBGLNO 0x003b 012c ; -------------------------------------------------------------------------------------- 012c ; Debug chain 012c ; -------------------------------------------------------------------------------------- 012c 0000 0001 | | .DBGLEN 0x0000,0x0001 012e 004b | K | .DBGLNO 0x004b 012f ; -------------------------------------------------------------------------------------- 012f ; Debug chain 012f ; -------------------------------------------------------------------------------------- 012f 0000 0001 | | .DBGLEN 0x0000,0x0001 0131 005b | [ | .DBGLNO 0x005b 0132 ; -------------------------------------------------------------------------------------- 0132 ; Debug chain 0132 ; -------------------------------------------------------------------------------------- 0132 0002 0007 | | .DBGLEN 0x0002,0x0007 0134 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x006f,0x0072,0x0078,0x007d,0x0083,0x0088,0x008e 013d 0001 0002 | | .XXX[0x7] 013f 0003 0005 | | 0141 0006 0004 | | 0143 0007 | | 0144 ; -------------------------------------------------------------------------------------- 0144 ; Debug chain 0144 ; -------------------------------------------------------------------------------------- 0144 0000 0005 | | .DBGLEN 0x0000,0x0005 0146 009b 009d | | .DBGLNO 0x009b,0x009d,0x009f,0x00a1,0x00a3 014b 0000 0000 | | .BLANK 0000[0xb5]