|
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_0840c3
└─⟦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 01a0 | | .CONST 0x01a0 ; 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 0039 | 9 | .CONST 0x0039 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0006 | | .CONST 0x0006 ; Number of locals
001b INIT_0018:
001b 60ec |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x00000400}
001c e002 | | Load 0x0,0x2
001d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001e 1c08 | | Execute_Immediate Run_Utility,0x8
001f 00d8 | | Load_Top At_Offset_0
0020 1c00 | | Execute_Immediate Run_Utility,0x0
0021 60e6 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x00000400}
0022 e002 | | Load 0x0,0x2
0023 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0024 1c08 | | Execute_Immediate Run_Utility,0x8
0025 00d8 | | Load_Top At_Offset_0
0026 1c00 | | Execute_Immediate Run_Utility,0x0
0027 60e0 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x00000400}
0028 e002 | | Load 0x0,0x2
0029 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002a 1c08 | | Execute_Immediate Run_Utility,0x8
002b 00d8 | | Load_Top At_Offset_0
002c 1c00 | | Execute_Immediate Run_Utility,0x0
002d 60da |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x00000400}
002e e002 | | Load 0x0,0x2
002f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0030 1c08 | | Execute_Immediate Run_Utility,0x8
0031 00d8 | | Load_Top At_Offset_0
0032 1c00 | | Execute_Immediate Run_Utility,0x0
0033 60d4 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x00000400}
0034 e002 | | Load 0x0,0x2
0035 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0036 1c08 | | Execute_Immediate Run_Utility,0x8
0037 00d8 | | Load_Top At_Offset_0
0038 1c00 | | Execute_Immediate Run_Utility,0x0
0039 BODY_0018:
0039 0092 010c | | Action Push_String_Extended,0x10c ; "Jour : "
003b e003 | | Load 0x0,0x3
003c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
003d e003 | | Load 0x0,0x3
003e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
003f 00e0 | | Load_Encached Standard_Cache
0040 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0041 01cc | | Execute Vector,Catenate
0042 e004 | | Load 0x0,0x4
0043 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0044 0092 010d | | Action Push_String_Extended,0x10d ; "Mois : "
0046 e003 | | Load 0x0,0x3
0047 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0048 e003 | | Load 0x0,0x3
0049 1814 | | Execute Package,Field_Execute,Field_Number 0x14
004a 00e0 | | Load_Encached Standard_Cache
004b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
004c 01cc | | Execute Vector,Catenate
004d e004 | | Load 0x0,0x4
004e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
004f 0092 010e | | Action Push_String_Extended,0x10e ; "Annee: "
0051 e003 | | Load 0x0,0x3
0052 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0053 e003 | | Load 0x0,0x3
0054 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0055 00e0 | | Load_Encached Standard_Cache
0056 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0057 01cc | | Execute Vector,Catenate
0058 e004 | | Load 0x0,0x4
0059 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
005a e402 | | Load 0x2,0x2
005b 0092 010f | | Action Push_String_Extended,0x10f ; "date($lionel$philippe$)"
005d e002 | | Load 0x0,0x2
005e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
005f 00d1 | | Pop_Control Pop_Count_1
0060 00db | | Load_Top At_Offset_3
0061 0092 0110 | | Action Push_String_Extended,0x110 ; "Date(phil)"
0063 e002 | | Load 0x0,0x2
0064 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0065 00d1 | | Pop_Control Pop_Count_1
0066 00da | | Load_Top At_Offset_2
0067 0092 0111 | | Action Push_String_Extended,0x111 ; "Heure("
0069 e002 | | Load 0x0,0x2
006a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
006b 00d1 | | Pop_Control Pop_Count_1
006c 00d9 | | Load_Top At_Offset_1
006d 0092 0112 | | Action Push_String_Extended,0x112 ; "abcde("
006f e002 | | Load 0x0,0x2
0070 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0071 00d1 | | Pop_Control Pop_Count_1
0072 00d8 | | Load_Top At_Offset_0
0073 0092 0113 | | Action Push_String_Extended,0x113 ; "date"
0075 e002 | | Load 0x0,0x2
0076 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0077 00d1 | | Pop_Control Pop_Count_1
0078 0092 0114 | | Action Push_String_Extended,0x114 ; "var1=date($lionel$philippe$)"
007a e004 | | Load 0x0,0x4
007b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
007c 0092 0115 | | Action Push_String_Extended,0x115 ; "var2=Date(phil)"
007e e004 | | Load 0x0,0x4
007f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0080 0092 0116 | | Action Push_String_Extended,0x116 ; "var3=Heure("
0082 e004 | | Load 0x0,0x4
0083 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0084 0092 0117 | | Action Push_String_Extended,0x117 ; "var4=abcde("
0086 e004 | | Load 0x0,0x4
0087 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0088 0092 0118 | | Action Push_String_Extended,0x118 ; "var5=date"
008a e004 | | Load 0x0,0x4
008b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
008c 0092 0119 | | Action Push_String_Extended,0x119 ; "Param1: "
008e 4801 |H | Short_Literal 0x1
008f e402 | | Load 0x2,0x2
0090 8005 | | Call 0x0,0x5
0091 e002 | | Load 0x0,0x2
0092 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0093 01cc | | Execute Vector,Catenate
0094 e004 | | Load 0x0,0x4
0095 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0096 0092 011a | | Action Push_String_Extended,0x11a ; "Param2: "
0098 4802 |H | Short_Literal 0x2
0099 e402 | | Load 0x2,0x2
009a 8005 | | Call 0x0,0x5
009b e002 | | Load 0x0,0x2
009c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009d 01cc | | Execute Vector,Catenate
009e e004 | | Load 0x0,0x4
009f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a0 0092 011b | | Action Push_String_Extended,0x11b ; "var1=var2 ? "
00a2 e004 | | Load 0x0,0x4
00a3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00a4 00db | | Load_Top At_Offset_3
00a5 e402 | | Load 0x2,0x2
00a6 8006 | | Call 0x0,0x6
00a7 6805 |h | Jump_Zero 0xad
00a8 0092 011c | | Action Push_String_Extended,0x11c ; "Oui"
00aa e004 | | Load 0x0,0x4
00ab 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ac 7804 |x | Jump 0xb1
00ad 0092 011d | | Action Push_String_Extended,0x11d ; "Non"
00af e004 | | Load 0x0,0x4
00b0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b1 0092 011e | | Action Push_String_Extended,0x11e ; "var1=var3 ? "
00b3 e004 | | Load 0x0,0x4
00b4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00b5 00da | | Load_Top At_Offset_2
00b6 e402 | | Load 0x2,0x2
00b7 8006 | | Call 0x0,0x6
00b8 6805 |h | Jump_Zero 0xbe
00b9 0092 011c | | Action Push_String_Extended,0x11c ; "Oui"
00bb e004 | | Load 0x0,0x4
00bc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00bd 7804 |x | Jump 0xc2
00be 0092 011d | | Action Push_String_Extended,0x11d ; "Non"
00c0 e004 | | Load 0x0,0x4
00c1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c2 0092 011f | | Action Push_String_Extended,0x11f ; "var3=var4 ? "
00c4 e004 | | Load 0x0,0x4
00c5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00c6 00d9 | | Load_Top At_Offset_1
00c7 00db | | Load_Top At_Offset_3
00c8 8006 | | Call 0x0,0x6
00c9 6805 |h | Jump_Zero 0xcf
00ca 0092 011c | | Action Push_String_Extended,0x11c ; "Oui"
00cc e004 | | Load 0x0,0x4
00cd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ce 7804 |x | Jump 0xd3
00cf 0092 011d | | Action Push_String_Extended,0x11d ; "Non"
00d1 e004 | | Load 0x0,0x4
00d2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d3 0092 0120 | | Action Push_String_Extended,0x120 ; "var1=var5 ? "
00d5 e004 | | Load 0x0,0x4
00d6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00d7 00d8 | | Load_Top At_Offset_0
00d8 e402 | | Load 0x2,0x2
00d9 8006 | | Call 0x0,0x6
00da 6805 |h | Jump_Zero 0xe0
00db 0092 011c | | Action Push_String_Extended,0x11c ; "Oui"
00dd e004 | | Load 0x0,0x4
00de 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00df 7804 |x | Jump 0xe4
00e0 0092 011d | | Action Push_String_Extended,0x11d ; "Non"
00e2 e004 | | Load 0x0,0x4
00e3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e4 0092 0121 | !| Action Push_String_Extended,0x121 ; "var1=var1 ? "
00e6 e004 | | Load 0x0,0x4
00e7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00e8 e402 | | Load 0x2,0x2
00e9 00d8 | | Load_Top At_Offset_0
00ea 8006 | | Call 0x0,0x6
00eb 6805 |h | Jump_Zero 0xf1
00ec 0092 011c | | Action Push_String_Extended,0x11c ; "Oui"
00ee e004 | | Load 0x0,0x4
00ef 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f0 7804 |x | Jump 0xf5
00f1 0092 011d | | Action Push_String_Extended,0x11d ; "Non"
00f3 e004 | | Load 0x0,0x4
00f4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f5 0092 0122 | "| Action Push_String_Extended,0x122 ; "var5=var5 ? "
00f7 e004 | | Load 0x0,0x4
00f8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00f9 00d8 | | Load_Top At_Offset_0
00fa 00d9 | | Load_Top At_Offset_1
00fb 8006 | | Call 0x0,0x6
00fc 6805 |h | Jump_Zero 0x102
00fd 0092 011c | | Action Push_String_Extended,0x11c ; "Oui"
00ff e004 | | Load 0x0,0x4
0100 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0101 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0102 0092 011d | | Action Push_String_Extended,0x11d ; "Non"
0104 e004 | | Load 0x0,0x4
0105 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0106 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0107 0000 | | .XXX[0x1]
0108 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
010c ; --------------------------------------------------------------------------------------
010c ; STRING TABLE
010c ; --------------------------------------------------------------------------------------
010c 0030 | 0 | .STRTAB 0x0030->0x0124 ; "Jour : "
010d 0035 | 5 | .STRTAB 0x0035->0x0127 ; "Mois : "
010e 003a | : | .STRTAB 0x003a->0x012b ; "Annee: "
010f 003f | ? | .STRTAB 0x003f->0x012e ; "date($lionel$philippe$)"
0110 0054 | T | .STRTAB 0x0054->0x013a ; "Date(phil)"
0111 005c | \ | .STRTAB 0x005c->0x013f ; "Heure("
0112 0060 | ` | .STRTAB 0x0060->0x0142 ; "abcde("
0113 0064 | d | .STRTAB 0x0064->0x0145 ; "date"
0114 0066 | f | .STRTAB 0x0066->0x0147 ; "var1=date($lionel$philippe$)"
0115 0080 | | .STRTAB 0x0080->0x0155 ; "var2=Date(phil)"
0116 008d | | .STRTAB 0x008d->0x015c ; "var3=Heure("
0117 0096 | | .STRTAB 0x0096->0x0162 ; "var4=abcde("
0118 009f | | .STRTAB 0x009f->0x0167 ; "var5=date"
0119 00a6 | | .STRTAB 0x00a6->0x016c ; "Param1: "
011a 00ac | | .STRTAB 0x00ac->0x0170 ; "Param2: "
011b 00b2 | | .STRTAB 0x00b2->0x0174 ; "var1=var2 ? "
011c 00bd | | .STRTAB 0x00bd->0x017a ; "Oui"
011d 00be | | .STRTAB 0x00be->0x017c ; "Non"
011e 00bf | | .STRTAB 0x00bf->0x017d ; "var1=var3 ? "
011f 00ca | | .STRTAB 0x00ca->0x0184 ; "var3=var4 ? "
0120 00d5 | | .STRTAB 0x00d5->0x018a ; "var1=var5 ? "
0121 00e0 | | .STRTAB 0x00e0->0x0191 ; "var1=var1 ? "
0122 00eb | | .STRTAB 0x00eb->0x0197 ; "var5=var5 ? "
0123 00f6 | | .STREND 0x00f6->0x019e
0124 4a6f 7572 |Jour| .STRTAB_STRINGS
019e 0000 0000 | | .XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug Table
01a0 ; --------------------------------------------------------------------------------------
01a0 0004 000a | | .DEBUG4 0x0004,0x000a,0x7446,0x0000,0x0001,0x0002
01a6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
01aa 001b 01ae | | .DBG4T 0x001b,0x01ae,0x8001,0x0000
01ae ; --------------------------------------------------------------------------------------
01ae ; Debug chain
01ae ; --------------------------------------------------------------------------------------
01ae 0005 0027 | '| .DBGLEN 0x0005,0x0027
01b0 001b 0021 | !| .DBGLNO 0x001b,0x0021,0x0027,0x002d,0x0033,0x0039,0x0044,0x004f,0x005a,0x0060,0x0066,0x006c,0x0072,0x0078,0x007c,0x0080,0x0084,0x0088,0x008c,0x0096,0x00a0,0x00a4,0x00a8,0x00ad,0x00b1,0x00b5,0x00b9,0x00be,0x00c2,0x00c6,0x00ca,0x00cf,0x00d3,0x00d7,0x00db,0x00e0,0x00e4,0x00e8,0x00ec,0x00f1,0x00f5,0x00f9,0x00fd,0x0102
01dc 0000 0000 | | .BLANK 0000[0x24]