|
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 - metrics - 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 For_Outer_Call,Visible,Unelaborated,INIT_0018
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 | | PushFullAddress InMicrocode
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,Field_Execute_Dynamic
004a e00b | | Load 0x0,0xb
004b 00da | | Load_Top At_Offset_2
004c 0096 | | Execute Package,Field_Execute_Dynamic
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,Field_Execute_Dynamic
0059 e403 | | Load 0x2,0x3
005a 4801 |H | Short_Literal 0x1
005b e404 | | Load 0x2,0x4
005c e00c | | Load 0x0,0xc
005d 00ad | | Action InMicrocode,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 | | Action InMicrocode,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 | | Action InMicrocode,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 | | Action InMicrocode,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 | | Action InMicrocode,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 | | Action InMicrocode,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,Field_Execute_Dynamic
00bb e012 | | Load 0x0,0x12
00bc 00da | | Load_Top At_Offset_2
00bd 0096 | | Execute Package,Field_Execute_Dynamic
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_Subprogram 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 ***"
; "**** 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]