|
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_0984ea
└─⟦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 00d0 | | .CONST 0x00d0 ; 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 0023 | # | .CONST 0x0023 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0008 | | .CONST 0x0008 ; Number of locals
001b INIT_0018:
001b 00e4 | | Load_Encached Positive_Cache
001c 03e9 | | Declare_Variable Discrete,Duplicate
001d 03e9 | | Declare_Variable Discrete,Duplicate
001e 00e4 | | Load_Encached Positive_Cache
001f 03e9 | | Declare_Variable Discrete,Duplicate
0020 03e9 | | Declare_Variable Discrete,Duplicate
0021 00e1 | | Load_Encached Boolean_Cache
0022 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0023 BODY_0018:
0023 00e4 | | Load_Encached Positive_Cache
0024 0092 00ac | | Action Push_String_Extended,0xac ; "Date($all$)"
0026 8002 | | Call 0x0,0x2
0027 005b | [ | Store_Top Discrete,At_Offset_3
0028 607f |` | Indirect_Literal Discrete,0xa8,{0x00000000, 0x00078000}
0029 00ba | | Action Initiate_Delay
002a 00cf | | Action Mark_Auxiliary
002b 7878 |xx | Jump 0xa4
002c 0092 00ad | | Action Push_String_Extended,0xad ; "Erreur"
002e e003 | | Load 0x0,0x3
002f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0030 4801 |H | Short_Literal 0x1
0031 e402 | | Load 0x2,0x2
0032 8004 | | Call 0x0,0x4
0033 e003 | | Load 0x0,0x3
0034 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0035 8005 | | Call 0x0,0x5
0036 7009 |p | Jump_Nonzero 0x40
0037 0092 00ae | | Action Push_String_Extended,0xae ; "Reponse: "
0039 8006 | | Call 0x0,0x6
003a 4801 |H | Short_Literal 0x1
003b e402 | | Load 0x2,0x2
003c 8004 | | Call 0x0,0x4
003d 8007 | | Call 0x0,0x7
003e e402 | | Load 0x2,0x2
003f 8008 | | Call 0x0,0x8
0040 0092 00ad | | Action Push_String_Extended,0xad ; "Erreur"
0042 e003 | | Load 0x0,0x3
0043 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0044 4801 |H | Short_Literal 0x1
0045 e403 | | Load 0x2,0x3
0046 8004 | | Call 0x0,0x4
0047 e003 | | Load 0x0,0x3
0048 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0049 8005 | | Call 0x0,0x5
004a 7009 |p | Jump_Nonzero 0x54
004b 0092 00ae | | Action Push_String_Extended,0xae ; "Reponse: "
004d 8006 | | Call 0x0,0x6
004e 4801 |H | Short_Literal 0x1
004f e403 | | Load 0x2,0x3
0050 8004 | | Call 0x0,0x4
0051 8007 | | Call 0x0,0x7
0052 e403 | | Load 0x2,0x3
0053 8008 | | Call 0x0,0x8
0054 0092 00ad | | Action Push_String_Extended,0xad ; "Erreur"
0056 e003 | | Load 0x0,0x3
0057 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0058 4801 |H | Short_Literal 0x1
0059 e404 | | Load 0x2,0x4
005a 8004 | | Call 0x0,0x4
005b e003 | | Load 0x0,0x3
005c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
005d 8005 | | Call 0x0,0x5
005e 7009 |p | Jump_Nonzero 0x68
005f 0092 00ae | | Action Push_String_Extended,0xae ; "Reponse: "
0061 8006 | | Call 0x0,0x6
0062 4801 |H | Short_Literal 0x1
0063 e404 | | Load 0x2,0x4
0064 8004 | | Call 0x0,0x4
0065 8007 | | Call 0x0,0x7
0066 e404 | | Load 0x2,0x4
0067 8008 | | Call 0x0,0x8
0068 0092 00ad | | Action Push_String_Extended,0xad ; "Erreur"
006a e003 | | Load 0x0,0x3
006b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
006c 4801 |H | Short_Literal 0x1
006d e405 | | Load 0x2,0x5
006e 8009 | | Call 0x0,0x9
006f e003 | | Load 0x0,0x3
0070 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0071 8005 | | Call 0x0,0x5
0072 7009 |p | Jump_Nonzero 0x7c
0073 0092 00ae | | Action Push_String_Extended,0xae ; "Reponse: "
0075 8006 | | Call 0x0,0x6
0076 4801 |H | Short_Literal 0x1
0077 e405 | | Load 0x2,0x5
0078 8009 | | Call 0x0,0x9
0079 8007 | | Call 0x0,0x7
007a e405 | | Load 0x2,0x5
007b 8008 | | Call 0x0,0x8
007c 0092 00ad | | Action Push_String_Extended,0xad ; "Erreur"
007e e003 | | Load 0x0,0x3
007f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0080 4801 |H | Short_Literal 0x1
0081 e406 | | Load 0x2,0x6
0082 8009 | | Call 0x0,0x9
0083 e003 | | Load 0x0,0x3
0084 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0085 8005 | | Call 0x0,0x5
0086 701c |p | Jump_Nonzero 0xa3
0087 0092 00ae | | Action Push_String_Extended,0xae ; "Reponse: "
0089 8006 | | Call 0x0,0x6
008a 0092 00af | | Action Push_String_Extended,0xaf ; "Jour:"
008c 4801 |H | Short_Literal 0x1
008d e406 | | Load 0x2,0x6
008e 8009 | | Call 0x0,0x9
008f 01cc | | Execute Vector,Catenate
0090 0092 00b0 | | Action Push_String_Extended,0xb0 ; " Mois:"
0092 01cc | | Execute Vector,Catenate
0093 4802 |H | Short_Literal 0x2
0094 e406 | | Load 0x2,0x6
0095 8009 | | Call 0x0,0x9
0096 01cc | | Execute Vector,Catenate
0097 0092 00b1 | | Action Push_String_Extended,0xb1 ; " Annee:"
0099 01cc | | Execute Vector,Catenate
009a 4803 |H | Short_Literal 0x3
009b e406 | | Load 0x2,0x6
009c 8009 | | Call 0x0,0x9
009d 01cc | | Execute Vector,Catenate
009e 8007 | | Call 0x0,0x7
009f 00db | | Load_Top At_Offset_3
00a0 8008 | | Call 0x0,0x8
00a1 4801 |H | Short_Literal 0x1
00a2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00a3 00c9 | | Action Pop_Auxiliary_Loop
00a4 00d9 | | Load_Top At_Offset_1
00a5 6f86 |o | Jump_Zero 0x2c
00a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a7 0000 | | .XXX[0x1]
00a8 0000 0000 | | .LITERAL {0x00000000, 0x00078000}
00ac ; --------------------------------------------------------------------------------------
00ac ; STRING TABLE
00ac ; --------------------------------------------------------------------------------------
00ac 000e | | .STRTAB 0x000e->0x00b3 ; "Date($all$)"
00ad 0017 | | .STRTAB 0x0017->0x00b8 ; "Erreur"
00ae 001b | | .STRTAB 0x001b->0x00bb ; "Reponse: "
00af 0022 | " | .STRTAB 0x0022->0x00c0 ; "Jour:"
00b0 0025 | % | .STRTAB 0x0025->0x00c2 ; " Mois:"
00b1 002a | * | .STRTAB 0x002a->0x00c6 ; " Annee:"
00b2 0030 | 0 | .STREND 0x0030->0x00ca
00b3 4461 7465 |Date| .STRTAB_STRINGS
00ca 0000 0000 | | .BLANK 0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; Debug Table
00d0 ; --------------------------------------------------------------------------------------
00d0 0004 000a | | .DEBUG4 0x0004,0x000a,0x7884,0x0000,0x0001,0x0002
00d6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
00da 001b 00de | | .DBG4T 0x001b,0x00de,0x8001,0x4000
00de ; --------------------------------------------------------------------------------------
00de ; Debug chain
00de ; --------------------------------------------------------------------------------------
00de 0003 0018 | | .DBGLEN 0x0003,0x0018
00e0 001b 001e | | .DBGLNO 0x001b,0x001e,0x0021,0x0023,0x0028,0x002c,0x0037,0x003a,0x003e,0x0040,0x004b,0x004e,0x0052,0x0054,0x005f,0x0062,0x0066,0x0068,0x0073,0x0076,0x007a,0x007c,0x0087,0x008a,0x009f,0x00a1,0x00a4
00fb 0001 0002 | | .XXX[0x18]
00fd 0004 0005 | |
00ff 0006 0007 | |
0101 0008 0009 | |
0103 000a 000b | |
0105 000c 000d | |
0107 000e 000f | |
0109 0010 0011 | |
010b 0012 0013 | |
010d 0014 0015 | |
010f 0016 0017 | |
0111 0018 0003 | |
0113 0000 0000 | | .BLANK 0000[0xed]