|
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_3f70ee
└─⟦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 0168 | h | .CONST 0x0168 ; 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 003a | : | .CONST 0x003a ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0009 | | .CONST 0x0009 ; Number of locals 001b INIT_0018: 001b 00e1 | | Load_Encached Boolean_Cache 001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001d e002 | | Load 0x0,0x2 001e 0322 | " | Declare_Variable Record 001f 00d8 | | Load_Top At_Offset_0 0020 1c00 | | Execute_Immediate Run_Utility,0x0 0021 e003 | | Load 0x0,0x3 0022 036f | o | Declare_Variable Task 0023 60a4 |` | Indirect_Literal Discrete,0xc8,{0x00000000, 0x00050000} 0024 00e7 | | Load_Encached Duration_Cache 0025 03f1 | | Declare_Variable Discrete,With_Value 0026 00e4 | | Load_Encached Positive_Cache 0027 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0028 00e3 | | Load_Encached Natural_Cache 0029 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 002a 0093 0000 | | push_full_address 0x0 002c 6097 |` | Indirect_Literal Discrete,0xc4,{0x80000000, 0x00010000} 002d 0273 | s | Execute Discrete,Plus 002e e004 | | Load 0x0,0x4 002f 0273 | s | Execute Discrete,Plus 0030 e005 | | Load 0x0,0x5 0031 0273 | s | Execute Discrete,Plus 0032 00db | | Load_Top At_Offset_3 0033 00db | | Load_Top At_Offset_3 0034 e404 | | Load 0x2,0x4 0035 e006 | | Load 0x0,0x6 0036 0387 | | Declare_Variable Package 0037 00d8 | | Load_Top At_Offset_0 0038 020f | | Execute Module,Activate 0039 00e3 | | Load_Encached Natural_Cache 003a BODY_0018: 003a 00be | | Action Activate_Tasks 003b 0092 00cc | | Action Push_String_Extended,0xcc ; "============== Agent de Maintenance ====================" 003d e007 | | Load 0x0,0x7 003e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 003f 4801 |H | Short_Literal 0x1 0040 4800 |H | Short_Literal 0x0 0041 4800 |H | Short_Literal 0x0 0042 0092 00cd | | Action Push_String_Extended,0xcd ; "**** Message from agent_maintenance ***" 0044 e008 | | Load 0x0,0x8 0045 e009 | | Load 0x0,0x9 0046 4800 |H | Short_Literal 0x0 0047 e00a | | Load 0x0,0xa 0048 e408 | | Load 0x2,0x8 0049 0096 | | Execute Package,Entry 004a e00b | | Load 0x0,0xb 004b 00da | | Load_Top At_Offset_2 004c 0096 | | Execute Package,Entry 004d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 004e 4801 |H | Short_Literal 0x1 004f 4800 |H | Short_Literal 0x0 0050 00da | | Load_Top At_Offset_2 0051 0092 00ce | | Action Push_String_Extended,0xce ; " " 0053 e008 | | Load 0x0,0x8 0054 e009 | | Load 0x0,0x9 0055 4802 |H | Short_Literal 0x2 0056 e00a | | Load 0x0,0xa 0057 e408 | | Load 0x2,0x8 0058 0096 | | Execute Package,Entry 0059 e403 | | Load 0x2,0x3 005a 4801 |H | Short_Literal 0x1 005b e404 | | Load 0x2,0x4 005c e00c | | Load 0x0,0xc 005d 00ad | | QQ_Action Package,Field_Execute_Dynamic 005e 00d1 | | Pop_Control Pop_Count_1 005f 00e1 | | Load_Encached Boolean_Cache 0060 4801 |H | Short_Literal 0x1 0061 e404 | | Load 0x2,0x4 0062 e00d | | Load 0x0,0xd 0063 00ad | | QQ_Action Package,Field_Execute_Dynamic 0064 c402 | | Store 0x2,0x2 0065 00cf | | Action Mark_Auxiliary 0066 7807 |x | Jump 0x6e 0067 00e1 | | Load_Encached Boolean_Cache 0068 4801 |H | Short_Literal 0x1 0069 e404 | | Load 0x2,0x4 006a e00d | | Load 0x0,0xd 006b 00ad | | QQ_Action Package,Field_Execute_Dynamic 006c c402 | | Store 0x2,0x2 006d 00c9 | | Action Pop_Auxiliary_Loop 006e e402 | | Load 0x2,0x2 006f 77f7 |w | Jump_Nonzero 0x67 0070 00ce | | Action Pop_Auxiliary 0071 0092 00cf | | Action Push_String_Extended,0xcf ; "-------- Affichage de la liste des abonnes -------" 0073 e007 | | Load 0x0,0x7 0074 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0075 00cf | | Action Mark_Auxiliary 0076 e403 | | Load 0x2,0x3 0077 4801 |H | Short_Literal 0x1 0078 e404 | | Load 0x2,0x4 0079 e00c | | Load 0x0,0xc 007a 00ad | | QQ_Action Package,Field_Execute_Dynamic 007b 00d1 | | Pop_Control Pop_Count_1 007c e403 | | Load 0x2,0x3 007d 800e | | Call 0x0,0xe 007e 6830 |h0 | Jump_Zero 0xaf 007f e403 | | Load 0x2,0x3 0080 800f | | Call 0x0,0xf 0081 0f05 | | Execute_Immediate Equal,0x5 0082 680f |h | Jump_Zero 0x92 0083 0092 00d0 | | Action Push_String_Extended,0xd0 ; "Abonne n." 0085 e407 | | Load 0x2,0x7 0086 00e0 | | Load_Encached Standard_Cache 0087 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0088 01cc | | Execute Vector,Catenate 0089 0092 00d1 | | Action Push_String_Extended,0xd1 ; " : " 008b 01cc | | Execute Vector,Catenate 008c e403 | | Load 0x2,0x3 008d 8010 | | Call 0x0,0x10 008e 8011 | | Call 0x0,0x11 008f 01cc | | Execute Vector,Catenate 0090 e007 | | Load 0x0,0x7 0091 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0092 4800 |H | Short_Literal 0x0 0093 a402 | | Store_Unchecked 0x2,0x2 0094 00e1 | | Load_Encached Boolean_Cache 0095 4801 |H | Short_Literal 0x1 0096 e404 | | Load 0x2,0x4 0097 e00d | | Load 0x0,0xd 0098 00ad | | QQ_Action Package,Field_Execute_Dynamic 0099 c402 | | Store 0x2,0x2 009a 00cf | | Action Mark_Auxiliary 009b 7807 |x | Jump 0xa3 009c 00e1 | | Load_Encached Boolean_Cache 009d 4801 |H | Short_Literal 0x1 009e e404 | | Load 0x2,0x4 009f e00d | | Load 0x0,0xd 00a0 00ad | | QQ_Action Package,Field_Execute_Dynamic 00a1 c402 | | Store 0x2,0x2 00a2 00c9 | | Action Pop_Auxiliary_Loop 00a3 e402 | | Load 0x2,0x2 00a4 77f7 |w | Jump_Nonzero 0x9c 00a5 00ce | | Action Pop_Auxiliary 00a6 0092 00d2 | | Action Push_String_Extended,0xd2 ; "---------------------------------------------------" 00a8 e007 | | Load 0x0,0x7 00a9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00aa 00db | | Load_Top At_Offset_3 00ab 0a01 | | Execute_Immediate Plus,0x1 00ac c407 | | Store 0x2,0x7 00ad 00c9 | | Action Pop_Auxiliary_Loop 00ae 7fc7 | | Jump 0x76 00af 00ce | | Action Pop_Auxiliary 00b0 4801 |H | Short_Literal 0x1 00b1 4800 |H | Short_Literal 0x0 00b2 00da | | Load_Top At_Offset_2 00b3 0092 00cd | | Action Push_String_Extended,0xcd ; "**** Message from agent_maintenance ***" 00b5 e008 | | Load 0x0,0x8 00b6 e009 | | Load 0x0,0x9 00b7 4801 |H | Short_Literal 0x1 00b8 e00a | | Load 0x0,0xa 00b9 e408 | | Load 0x2,0x8 00ba 0096 | | Execute Package,Entry 00bb e012 | | Load 0x0,0x12 00bc 00da | | Load_Top At_Offset_2 00bd 0096 | | Execute Package,Entry 00be 0092 00d3 | | Action Push_String_Extended,0xd3 ; "============== Fin d'activite Agent de Maintenance =================" 00c0 e007 | | Load 0x0,0x7 00c1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c3 0000 | | .XXX[0x1] 00c4 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00c8 0000 0000 | | .LITERAL {0x00000000, 0x00050000} 00cc ; -------------------------------------------------------------------------------------- 00cc ; STRING TABLE 00cc ; -------------------------------------------------------------------------------------- 00cc 0012 | | .STRTAB 0x0012->0x00d5 ; "============== Agent de Maintenance ====================" 00cd 0048 | H | .STRTAB 0x0048->0x00f1 ; "**** Message from agent_maintenance ***" 00ce 006e | n | .STRTAB 0x006e->0x0105 ; " " 00cf 006d | m | .STRTAB 0x006d->0x0105 ; "-------- Affichage de la liste des abonnes -------" 00d0 009e | | .STRTAB 0x009e->0x011f ; "Abonne n." 00d1 00a5 | | .STRTAB 0x00a5->0x0123 ; " : " 00d2 00a6 | | .STRTAB 0x00a6->0x0125 ; "---------------------------------------------------" 00d3 00d7 | | .STRTAB 0x00d7->0x013e ; "============== Fin d'activite Agent de Maintenance =================" 00d4 0119 | | .STREND 0x0119->0x0160 00d5 3d3d 3d3d |====| .STRTAB_STRINGS 0161 0000 0000 | | .BLANK 0000[0x7] 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug Table 0168 ; -------------------------------------------------------------------------------------- 0168 0004 000a | | .DEBUG4 0x0004,0x000a,0x8728,0x0000,0x0001,0x0002 016e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 0172 001b 0176 | v| .DBG4T 0x001b,0x0176,0x8001,0x4000 0176 ; -------------------------------------------------------------------------------------- 0176 ; Debug chain 0176 ; -------------------------------------------------------------------------------------- 0176 0008 0016 | | .DBGLEN 0x0008,0x0016 0178 001b 001d | | .DBGLNO 0x001b,0x001d,0x0021,0x0023,0x0026,0x0028,0x002a,0x0039,0x003b,0x003f,0x004a,0x004e,0x0059,0x005f,0x0067,0x006e,0x0071,0x0076,0x007c,0x007f,0x0083,0x0092,0x0094,0x009c,0x00a3,0x00a6,0x00aa,0x00b0,0x00bb,0x00be 0196 0001 0002 | | .XXX[0x16] 0198 0003 0004 | | 019a 0005 0006 | | 019c 0008 0007 | | 019e 0009 000b | | 01a0 000c 000d | | 01a2 000e 000f | | 01a4 0010 0012 | | 01a6 0011 0013 | | 01a8 0014 0015 | | 01aa 0016 0017 | | 01ac 0000 0000 | | .BLANK 0000[0x54]