|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0b849f
└─⟦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 0260 | ` | .CONST 0x0260 ; 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 0001 | | .CONST 0x0001 ; 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 0026 | & | .CONST 0x0026 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0005 | | .CONST 0x0005 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 0322 | " | Declare_Variable Record
001d 00d8 | | Load_Top At_Offset_0
001e 1c00 | | Execute_Immediate Run_Utility,0x0
001f 00e1 | | Load_Encached Boolean_Cache
0020 e003 | | Load 0x0,0x3
0021 0322 | " | Declare_Variable Record
0022 00d8 | | Load_Top At_Offset_0
0023 1c00 | | Execute_Immediate Run_Utility,0x0
0024 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call
0026 BODY_0018:
0026 0092 00f3 | | Action Push_String_Extended,0xf3 ; "debut orb"
0028 8004 | | Call 0x0,0x4
0029 00e1 | | Load_Encached Boolean_Cache
002a e402 | | Load 0x2,0x2
002b e005 | | Load 0x0,0x5
002c e006 | | Load 0x0,0x6
002d 8007 | | Call 0x0,0x7
002e 00d1 | | Pop_Control Pop_Count_1
002f 005b | [ | Store_Top Discrete,At_Offset_3
0030 00da | | Load_Top At_Offset_2
0031 6806 |h | Jump_Zero 0x38
0032 00db | | Load_Top At_Offset_3
0033 8008 | | Call 0x0,0x8
0034 00cf | | Action Mark_Auxiliary
0035 8405 | | Call 0x2,0x5
0036 00c9 | | Action Pop_Auxiliary_Loop
0037 7ffd | | Jump 0x35
0038 0092 00f4 | | Action Push_String_Extended,0xf4 ; "erreur reseau"
003a 8004 | | Call 0x0,0x4
003b 0092 00f5 | | Action Push_String_Extended,0xf5 ; "fin de l'orb"
003d 8004 | | Call 0x0,0x4
003e 800a | | Call 0x0,0xa
003f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 00d1 | | .CONST 0x00d1 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 0092 00f6 | | Action Push_String_Extended,0xf6 ; "attente d'un message"
0045 8004 | | Call 0x0,0x4
0046 e404 | | Load 0x2,0x4
0047 800b | | Call 0x0,0xb
0048 00d1 | | Pop_Control Pop_Count_1
0049 0092 00f7 | | Action Push_String_Extended,0xf7 ; "un message recu"
004b 8004 | | Call 0x0,0x4
004c e404 | | Load 0x2,0x4
004d 800c | | Call 0x0,0xc
004e 460f |F | Jump_Case 0x10
004f 7819 |x | Jump 0x69 ; case 0x0
0050 7822 |x" | Jump 0x73 ; case 0x1
0051 787b |x{ | Jump 0xcd ; case 0x2
0052 7866 |xf | Jump 0xb9 ; case 0x3
0053 7879 |xy | Jump 0xcd ; case 0x4
0054 786e |xn | Jump 0xc3 ; case 0x5
0055 7827 |x' | Jump 0x7d ; case 0x6
0056 7830 |x0 | Jump 0x87 ; case 0x7
0057 7839 |x9 | Jump 0x91 ; case 0x8
0058 7842 |xB | Jump 0x9b ; case 0x9
0059 784b |xK | Jump 0xa5 ; case 0xa
005a 7854 |xT | Jump 0xaf ; case 0xb
005b 7871 |xq | Jump 0xcd ; case 0xc
005c 7870 |xp | Jump 0xcd ; case 0xd
005d 786f |xo | Jump 0xcd ; case 0xe
005e 7800 |x | Jump 0x5f ; case 0xf
005f 0092 00f8 | | Action Push_String_Extended,0xf8 ; "c'est une answer !"
0061 8004 | | Call 0x0,0x4
0062 e404 | | Load 0x2,0x4
0063 800d | | Call 0x0,0xd
0064 00d1 | | Pop_Control Pop_Count_1
0065 0092 00f9 | | Action Push_String_Extended,0xf9 ; "answer traitee"
0067 8004 | | Call 0x0,0x4
0068 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0069 0092 00fa | | Action Push_String_Extended,0xfa ; "c'est une registration !"
006b 8004 | | Call 0x0,0x4
006c e404 | | Load 0x2,0x4
006d 800e | | Call 0x0,0xe
006e 00d1 | | Pop_Control Pop_Count_1
006f 0092 00fb | | Action Push_String_Extended,0xfb ; "registration traitee"
0071 8004 | | Call 0x0,0x4
0072 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0073 0092 00fc | | Action Push_String_Extended,0xfc ; "c'est une unregistration !"
0075 8004 | | Call 0x0,0x4
0076 e404 | | Load 0x2,0x4
0077 800f | | Call 0x0,0xf
0078 00d1 | | Pop_Control Pop_Count_1
0079 0092 00fd | | Action Push_String_Extended,0xfd ; "unregistration traitee"
007b 8004 | | Call 0x0,0x4
007c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007d 0092 00fe | | Action Push_String_Extended,0xfe ; "c'est une publication !"
007f 8004 | | Call 0x0,0x4
0080 e404 | | Load 0x2,0x4
0081 8010 | | Call 0x0,0x10
0082 00d1 | | Pop_Control Pop_Count_1
0083 0092 00ff | | Action Push_String_Extended,0xff ; "publication traitee"
0085 8004 | | Call 0x0,0x4
0086 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0087 0092 0100 | | Action Push_String_Extended,0x100 ; "c'est une unpublication !"
0089 8004 | | Call 0x0,0x4
008a e404 | | Load 0x2,0x4
008b 8011 | | Call 0x0,0x11
008c 00d1 | | Pop_Control Pop_Count_1
008d 0092 0101 | | Action Push_String_Extended,0x101 ; "unpublication traitee"
008f 8004 | | Call 0x0,0x4
0090 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0091 0092 0102 | | Action Push_String_Extended,0x102 ; "c'est une subscription !"
0093 8004 | | Call 0x0,0x4
0094 e404 | | Load 0x2,0x4
0095 8012 | | Call 0x0,0x12
0096 00d1 | | Pop_Control Pop_Count_1
0097 0092 0103 | | Action Push_String_Extended,0x103 ; "subscription traitee"
0099 8004 | | Call 0x0,0x4
009a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009b 0092 0104 | | Action Push_String_Extended,0x104 ; "c'est une unsubscription !"
009d 8004 | | Call 0x0,0x4
009e e404 | | Load 0x2,0x4
009f 8013 | | Call 0x0,0x13
00a0 00d1 | | Pop_Control Pop_Count_1
00a1 0092 0105 | | Action Push_String_Extended,0x105 ; "unsubscription traitee"
00a3 8004 | | Call 0x0,0x4
00a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a5 0092 0106 | | Action Push_String_Extended,0x106 ; "c'est une filtartion !"
00a7 8004 | | Call 0x0,0x4
00a8 e404 | | Load 0x2,0x4
00a9 8014 | | Call 0x0,0x14
00aa 00d1 | | Pop_Control Pop_Count_1
00ab 0092 0107 | | Action Push_String_Extended,0x107 ; "filtration traitee"
00ad 8004 | | Call 0x0,0x4
00ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00af 0092 0108 | | Action Push_String_Extended,0x108 ; "c'est une unfiltartion !"
00b1 8004 | | Call 0x0,0x4
00b2 e404 | | Load 0x2,0x4
00b3 8015 | | Call 0x0,0x15
00b4 00d1 | | Pop_Control Pop_Count_1
00b5 0092 0109 | | Action Push_String_Extended,0x109 ; "unfiltration traitee"
00b7 8004 | | Call 0x0,0x4
00b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b9 0092 010a | | Action Push_String_Extended,0x10a ; "c'est une request !"
00bb 8004 | | Call 0x0,0x4
00bc e404 | | Load 0x2,0x4
00bd 8016 | | Call 0x0,0x16
00be 00d1 | | Pop_Control Pop_Count_1
00bf 0092 010b | | Action Push_String_Extended,0x10b ; "request traitee"
00c1 8004 | | Call 0x0,0x4
00c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c3 0092 010c | | Action Push_String_Extended,0x10c ; "c'est une forward !"
00c5 8004 | | Call 0x0,0x4
00c6 e404 | | Load 0x2,0x4
00c7 8017 | | Call 0x0,0x17
00c8 00d1 | | Pop_Control Pop_Count_1
00c9 0092 010d | | Action Push_String_Extended,0x10d ; "forward traitee"
00cb 8004 | | Call 0x0,0x4
00cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00cd 0092 010e | | Action Push_String_Extended,0x10e ; "erreur : reception de message inconnu"
00cf 8004 | | Call 0x0,0x4
00d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d1 TRAP_0040:
00d1 010e | | Execute Exception,Is_Constraint_Error
00d2 6804 |h | Jump_Zero 0xd7
00d3 0092 010f | | Action Push_String_Extended,0x10f ; "constraint_error"
00d5 8004 | | Call 0x0,0x4
00d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d7 010d | | Execute Exception,Is_Numeric_Error
00d8 6804 |h | Jump_Zero 0xdd
00d9 0092 0110 | | Action Push_String_Extended,0x110 ; "numeric_error"
00db 8004 | | Call 0x0,0x4
00dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00dd 010c | | Execute Exception,Is_Program_Error
00de 6804 |h | Jump_Zero 0xe3
00df 0092 0111 | | Action Push_String_Extended,0x111 ; "program_error"
00e1 8004 | | Call 0x0,0x4
00e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e3 010b | | Execute Exception,Is_Storage_Error
00e4 6804 |h | Jump_Zero 0xe9
00e5 0092 0112 | | Action Push_String_Extended,0x112 ; "storage_error"
00e7 8004 | | Call 0x0,0x4
00e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e9 010a | | Execute Exception,Is_Tasking_Error
00ea 6804 |h | Jump_Zero 0xef
00eb 0092 0113 | | Action Push_String_Extended,0x113 ; "tasking_error"
00ed 8004 | | Call 0x0,0x4
00ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ef 0092 0114 | | Action Push_String_Extended,0x114 ; "an exception was raised"
00f1 8004 | | Call 0x0,0x4
00f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f3 ; --------------------------------------------------------------------------------------
00f3 ; STRING TABLE
00f3 ; --------------------------------------------------------------------------------------
00f3 0046 | F | .STRTAB 0x0046->0x0116 ; "debut orb"
00f4 004d | M | .STRTAB 0x004d->0x011a ; "erreur reseau"
00f5 0058 | X | .STRTAB 0x0058->0x0121 ; "fin de l'orb"
00f6 0062 | b | .STRTAB 0x0062->0x0127 ; "attente d'un message"
00f7 0074 | t | .STRTAB 0x0074->0x0131 ; "un message recu"
00f8 0081 | | .STRTAB 0x0081->0x0138 ; "c'est une answer !"
00f9 0091 | | .STRTAB 0x0091->0x0141 ; "answer traitee"
00fa 009d | | .STRTAB 0x009d->0x0148 ; "c'est une registration !"
00fb 00b3 | | .STRTAB 0x00b3->0x0154 ; "registration traitee"
00fc 00c5 | | .STRTAB 0x00c5->0x015e ; "c'est une unregistration !"
00fd 00dd | | .STRTAB 0x00dd->0x016b ; "unregistration traitee"
00fe 00f1 | | .STRTAB 0x00f1->0x0176 ; "c'est une publication !"
00ff 0106 | | .STRTAB 0x0106->0x0182 ; "publication traitee"
0100 0117 | | .STRTAB 0x0117->0x018b ; "c'est une unpublication !"
0101 012e | . | .STRTAB 0x012e->0x0198 ; "unpublication traitee"
0102 0141 | A | .STRTAB 0x0141->0x01a2 ; "c'est une subscription !"
0103 0157 | W | .STRTAB 0x0157->0x01ae ; "subscription traitee"
0104 0169 | i | .STRTAB 0x0169->0x01b8 ; "c'est une unsubscription !"
0105 0181 | | .STRTAB 0x0181->0x01c5 ; "unsubscription traitee"
0106 0195 | | .STRTAB 0x0195->0x01d0 ; "c'est une filtartion !"
0107 01a9 | | .STRTAB 0x01a9->0x01db ; "filtration traitee"
0108 01b9 | | .STRTAB 0x01b9->0x01e4 ; "c'est une unfiltartion !"
0109 01cf | | .STRTAB 0x01cf->0x01f0 ; "unfiltration traitee"
010a 01e1 | | .STRTAB 0x01e1->0x01fa ; "c'est une request !"
010b 01f2 | | .STRTAB 0x01f2->0x0204 ; "request traitee"
010c 01ff | | .STRTAB 0x01ff->0x020b ; "c'est une forward !"
010d 0210 | | .STRTAB 0x0210->0x0215 ; "forward traitee"
010e 021d | | .STRTAB 0x021d->0x021c ; "erreur : reception de message inconnu"
010f 0240 | @ | .STRTAB 0x0240->0x022f ; "constraint_error"
0110 024e | N | .STRTAB 0x024e->0x0237 ; "numeric_error"
0111 0259 | Y | .STRTAB 0x0259->0x023d ; "program_error"
0112 0264 | d | .STRTAB 0x0264->0x0244 ; "storage_error"
0113 026f | o | .STRTAB 0x026f->0x024a ; "tasking_error"
0114 027a | z | .STRTAB 0x027a->0x0251 ; "an exception was raised"
0115 0290 | | .STREND 0x0290->0x025d
0116 6465 6275 |debu| .STRTAB_STRINGS
025d 0000 0000 | | .XXX[0x3]
025f 0000 | |
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug Table
0260 ; --------------------------------------------------------------------------------------
0260 0004 000a | | .DEBUG4 0x0004,0x000a,0x6ff8,0x0000,0x0001,0x0003
0266 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
026a 001b 0272 | r| .DBG4T 0x001b,0x0272,0x8001,0x4000
026e 0043 0287 | C | .DBG4T 0x0043,0x0287,0x0004,0x4000
0272 ; --------------------------------------------------------------------------------------
0272 ; Debug chain
0272 ; --------------------------------------------------------------------------------------
0272 0003 0008 | | .DBGLEN 0x0003,0x0008
0274 001b 001f | | .DBGLNO 0x001b,0x001f,0x0020,0x0026,0x0029,0x0030,0x0032,0x0035,0x0038,0x003b,0x003e
027f 0001 0002 | | .XXX[0x8]
0281 0003 0004 | |
0283 0006 0008 | |
0285 0009 000a | |
0287 ; --------------------------------------------------------------------------------------
0287 ; Debug chain
0287 ; --------------------------------------------------------------------------------------
0287 0000 002c | ,| .DBGLEN 0x0000,0x002c
0289 0043 0046 | C F| .DBGLNO 0x0043,0x0046,0x0049,0x004c,0x005f,0x0062,0x0065,0x0069,0x006c,0x006f,0x0073,0x0076,0x0079,0x007d,0x0080,0x0083,0x0087,0x008a,0x008d,0x0091,0x0094,0x0097,0x009b,0x009e,0x00a1,0x00a5,0x00a8,0x00ab,0x00af,0x00b2,0x00b5,0x00b9,0x00bc,0x00bf,0x00c3,0x00c6,0x00c9,0x00cd,0x00d3,0x00d9,0x00df,0x00e5,0x00eb,0x00ef
02b5 0001 0002 | | .XXX[0x2c]
02b7 0003 0004 | |
02b9 0020 0021 | !|
02bb 0022 0005 | " |
02bd 0006 0007 | |
02bf 0008 0009 | |
02c1 000a 000b | |
02c3 000c 000d | |
02c5 000e 000f | |
02c7 0010 0011 | |
02c9 0012 0013 | |
02cb 0014 0015 | |
02cd 0016 0017 | |
02cf 0018 0019 | |
02d1 001a 001b | |
02d3 001c 001d | |
02d5 001e 001f | |
02d7 0023 0024 | # $|
02d9 0025 0026 | % &|
02db 0027 0028 | ' (|
02dd 0029 002a | ) *|
02df 002b 002c | + ,|
02e1 0000 0000 | | .BLANK 0000[0x11f]