|
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_07c0f5
└─⟦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 0027 | ' | .CONST 0x0027 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0004 | | .CONST 0x0004 ; Number of locals
001b INIT_0018:
001b 00e1 | | Load_Encached Boolean_Cache
001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001d 4801 |H | Short_Literal 0x1
001e 4803 |H | Short_Literal 0x3
001f 00e9 | | Load_Encached String_Cache
0020 035b | [ | Declare_Type Array,Constrained
0021 0337 | 7 | Declare_Variable Array
0022 4801 |H | Short_Literal 0x1
0023 4802 |H | Short_Literal 0x2
0024 00e9 | | Load_Encached String_Cache
0025 035b | [ | Declare_Type Array,Constrained
0026 0337 | 7 | Declare_Variable Array
0027 BODY_0018:
0027 0092 0076 | v| Action Push_String_Extended,0x76 ; " essai request days sur l'object 1 "
0029 e002 | | Load 0x0,0x2
002a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
002b 00e1 | | Load_Encached Boolean_Cache
002c 00da | | Load_Top At_Offset_2
002d 4801 |H | Short_Literal 0x1
002e 0092 0077 | w| Action Push_String_Extended,0x77 ; "days"
0030 8003 | | Call 0x0,0x3
0031 00d1 | | Pop_Control Pop_Count_1
0032 005b | [ | Store_Top Discrete,At_Offset_3
0033 00da | | Load_Top At_Offset_2
0034 6808 |h | Jump_Zero 0x3d
0035 0092 0078 | x| Action Push_String_Extended,0x78 ; " ok jour "
0037 e002 | | Load 0x0,0x2
0038 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0039 00d9 | | Load_Top At_Offset_1
003a e002 | | Load 0x0,0x2
003b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
003c 7804 |x | Jump 0x41
003d 0092 0079 | y| Action Push_String_Extended,0x79 ; "erreur"
003f e002 | | Load 0x0,0x2
0040 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0041 0092 007a | z| Action Push_String_Extended,0x7a ; " essai request month sur l'object 1 "
0043 e002 | | Load 0x0,0x2
0044 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0045 00e1 | | Load_Encached Boolean_Cache
0046 00d9 | | Load_Top At_Offset_1
0047 4801 |H | Short_Literal 0x1
0048 0092 007b | {| Action Push_String_Extended,0x7b ; "mont"
004a 8003 | | Call 0x0,0x3
004b 00d1 | | Pop_Control Pop_Count_1
004c 005b | [ | Store_Top Discrete,At_Offset_3
004d 00da | | Load_Top At_Offset_2
004e 6808 |h | Jump_Zero 0x57
004f 0092 007c | || Action Push_String_Extended,0x7c ; " ok mois "
0051 e002 | | Load 0x0,0x2
0052 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0053 00d8 | | Load_Top At_Offset_0
0054 e002 | | Load 0x0,0x2
0055 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0056 7804 |x | Jump 0x5b
0057 0092 0079 | y| Action Push_String_Extended,0x79 ; "erreur"
0059 e002 | | Load 0x0,0x2
005a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
005b 0092 007d | }| Action Push_String_Extended,0x7d ; " essai request year sur l'object 1 "
005d e002 | | Load 0x0,0x2
005e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
005f 00e1 | | Load_Encached Boolean_Cache
0060 00d9 | | Load_Top At_Offset_1
0061 4801 |H | Short_Literal 0x1
0062 0092 007e | ~| Action Push_String_Extended,0x7e ; "year"
0064 8003 | | Call 0x0,0x3
0065 00d1 | | Pop_Control Pop_Count_1
0066 005b | [ | Store_Top Discrete,At_Offset_3
0067 00da | | Load_Top At_Offset_2
0068 6808 |h | Jump_Zero 0x71
0069 0092 007f | | Action Push_String_Extended,0x7f ; " ok annee "
006b e002 | | Load 0x0,0x2
006c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
006d 00d8 | | Load_Top At_Offset_0
006e e002 | | Load 0x0,0x2
006f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0070 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0071 0092 0079 | y| Action Push_String_Extended,0x79 ; "erreur"
0073 e002 | | Load 0x0,0x2
0074 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0075 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0076 ; --------------------------------------------------------------------------------------
0076 ; STRING TABLE
0076 ; --------------------------------------------------------------------------------------
0076 0016 | | .STRTAB 0x0016->0x0081 ; " essai request days sur l'object 1 "
0077 0037 | 7 | .STRTAB 0x0037->0x0092 ; "days"
0078 0039 | 9 | .STRTAB 0x0039->0x0094 ; " ok jour "
0079 0040 | @ | .STRTAB 0x0040->0x0099 ; "erreur"
007a 0044 | D | .STRTAB 0x0044->0x009c ; " essai request month sur l'object 1 "
007b 0066 | f | .STRTAB 0x0066->0x00ae ; "mont"
007c 0068 | h | .STRTAB 0x0068->0x00b0 ; " ok mois "
007d 006f | o | .STRTAB 0x006f->0x00b4 ; " essai request year sur l'object 1 "
007e 0090 | | .STRTAB 0x0090->0x00c6 ; "year"
007f 0092 | | .STRTAB 0x0092->0x00c8 ; " ok annee "
0080 009a | | .STREND 0x009a->0x00cd
0081 2065 7373 | ess| .STRTAB_STRINGS
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; Debug Table
00d0 ; --------------------------------------------------------------------------------------
00d0 0004 000a | | .DEBUG4 0x0004,0x000a,0x6d0c,0x0000,0x0001,0x0002
00d6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
00da 001b 00de | | .DBG4T 0x001b,0x00de,0x8001,0x0000
00de ; --------------------------------------------------------------------------------------
00de ; Debug chain
00de ; --------------------------------------------------------------------------------------
00de 0003 0012 | | .DBGLEN 0x0003,0x0012
00e0 001b 001d | | .DBGLNO 0x001b,0x001d,0x0022,0x0027,0x002b,0x0033,0x0035,0x0039,0x003d,0x0041,0x0045,0x004d,0x004f,0x0053,0x0057,0x005b,0x005f,0x0067,0x0069,0x006d,0x0071
00f5 0000 0000 | | .BLANK 0000[0x10b]