|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_02f8e7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0178 | x | .CONST 0x0178 ; 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 8000 | | .CONST 0x8000 ; 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 0025 | % | .CONST 0x0025 ; Address of begin
0019 004b | K | .CONST 0x004b ; Address of exception handler
001a 0008 | | .CONST 0x0008 ; Number of locals
001b INIT_0018:
001b 00e7 | | Load_Encached Duration_Cache
001c 00e1 | | Load_Encached Boolean_Cache
001d 00e1 | | Load_Encached Boolean_Cache
001e 00e7 | | Load_Encached Duration_Cache
001f 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0021 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
0023 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0025 BODY_0018:
0025 8407 | | Call 0x2,0x7
0026 4800 |H | Short_Literal 0x0
0027 e001 | | Load 0x0,0x1
0028 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0029 e5fe | | Load 0x2,-0x2
002a 01db | | Execute Vector,Length
002b 0c01 | | Execute_Immediate Greater_Equal,0x1
002c 6801 |h | Jump_Zero 0x2e
002d 8408 | | Call 0x2,0x8
002e 0092 00ec | | Action Push_String_Extended,0xec ; "Starting system backup"
0030 e002 | | Load 0x0,0x2
0031 180e | | Execute Package,Field_Execute,Field_Number 0xe
0032 00e1 | | Load_Encached Boolean_Cache
0033 00e1 | | Load_Encached Boolean_Cache
0034 00e7 | | Load_Encached Duration_Cache
0035 e003 | | Load 0x0,0x3
0036 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0037 c402 | | Store 0x2,0x2
0038 c403 | | Store 0x2,0x3
0039 c404 | | Store 0x2,0x4
003a 4800 |H | Short_Literal 0x0
003b e003 | | Load 0x0,0x3
003c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
003d 4801 |H | Short_Literal 0x1
003e e003 | | Load 0x0,0x3
003f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0040 e5ff | | Load 0x2,-0x1
0041 e004 | | Load 0x0,0x4
0042 180f | | Execute Package,Field_Execute,Field_Number 0xf
0043 0092 00ed | | Action Push_String_Extended,0xed ; "<PROFILE>"
0045 0092 00ee | | Action Push_String_Extended,0xee ; "Snapshot"
0047 e003 | | Load 0x0,0x3
0048 180e | | Execute Package,Field_Execute,Field_Number 0xe
0049 8406 | | Call 0x2,0x6
004a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
004b TRAP_0018:
004b 0007 | | Action Break_Optional
004c 0092 00ef | | Action Push_String_Extended,0xef ; "Backup failed with an unhandled exception."
004e e005 | | Load 0x0,0x5
004f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0050 e005 | | Load 0x0,0x5
0051 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0052 8406 | | Call 0x2,0x6
0053 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0054 0000 0000 | | .BLANK 0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e402 | | Load 0x2,0x2
005c e003 | | Load 0x0,0x3
005d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
005e e403 | | Load 0x2,0x3
005f e003 | | Load 0x0,0x3
0060 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0061 e404 | | Load 0x2,0x4
0062 e003 | | Load 0x0,0x3
0063 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0064 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0065 0000 0000 | | .XXX[0x3]
0067 0000 | |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0099 | | .CONST 0x0099 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0009 | | .CONST 0x0009 ; Number of locals
006b INIT_0068:
006b e006 | | Load 0x0,0x6
006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006d 02c7 | | Declare_Variable Any
006e e006 | | Load 0x0,0x6
006f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0070 c602 | | Store 0x3,0x2
0071 0092 00f0 | | Action Push_String_Extended,0xf0 ; "July 16, 1986 at 00:00:01 AM"
0073 e006 | | Load 0x0,0x6
0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0075 02c7 | | Declare_Variable Any
0076 e603 | | Load 0x3,0x3
0077 e007 | | Load 0x0,0x7
0078 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0079 e007 | | Load 0x0,0x7
007a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
007b c604 | | Store 0x3,0x4
007c 00d8 | | Load_Top At_Offset_0
007d e602 | | Load 0x3,0x2
007e e006 | | Load 0x0,0x6
007f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0080 00e7 | | Load_Encached Duration_Cache
0081 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0082 0092 00f1 | | Action Push_String_Extended,0xf1 ; "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
0084 e605 | | Load 0x3,0x5
0085 00d8 | | Load_Top At_Offset_0
0086 0c00 | | Execute_Immediate Greater_Equal,0x0
0087 7003 |p | Jump_Nonzero 0x8b
0088 605b |`[ | Indirect_Literal Discrete,0xe4,{0xffffffff, 0xffffc000}
0089 0273 | s | Execute Discrete,Plus
008a 7802 |x | Jump 0x8d
008b 6054 |`T | Indirect_Literal Discrete,0xe0,{0x00000000, 0x00004000}
008c 0273 | s | Execute Discrete,Plus
008d 09f1 | | Execute_Immediate Binary_Scale,-0xf
008e 00e2 | | Load_Encached Integer_Cache
008f 025e | ^ | Execute Discrete,Convert
0090 09ff | | Execute_Immediate Binary_Scale,-0x1
0091 00e2 | | Load_Encached Integer_Cache
0092 03f1 | | Declare_Variable Discrete,With_Value
0093 00e2 | | Load_Encached Integer_Cache
0094 4801 |H | Short_Literal 0x1
0095 4806 |H | Short_Literal 0x6
0096 00e9 | | Load_Encached String_Cache
0097 0334 | 4 | Declare_Variable Array,With_Constraint
0098 504f |PO | Indirect_Literal Any,0xe8,{0x2a2a2a2a, 0x2a2a2020}
0099 BODY_0068:
0099 00cf | | Action Mark_Auxiliary
009a e609 | | Load 0x3,0x9
009b 01da | | Execute Vector,Bounds
009c 0007 | | Action Break_Optional
009d e607 | | Load 0x3,0x7
009e 4824 |H$ | Short_Literal 0x24
009f 026e | n | Execute Discrete,Modulo
00a0 a608 | | Store_Unchecked 0x3,0x8
00a1 e608 | | Load 0x3,0x8
00a2 0a01 | | Execute_Immediate Plus,0x1
00a3 0248 | H | Execute Discrete,Check_In_Integer
00a4 e606 | | Load 0x3,0x6
00a5 01d7 | | Execute Vector,Field_Read
00a6 e60c | | Load 0x3,0xc
00a7 e609 | | Load 0x3,0x9
00a8 01d6 | | Execute Vector,Field_Write
00a9 e607 | | Load 0x3,0x7
00aa 4824 |H$ | Short_Literal 0x24
00ab 0270 | p | Execute Discrete,Divide
00ac a607 | | Store_Unchecked 0x3,0x7
00ad 00c8 | | Action Pop_Auxiliary_Range
00ae 37ee |7 | Loop_Decreasing 0x9d
00af 00ce | | Action Pop_Auxiliary
00b0 e607 | | Load 0x3,0x7
00b1 6807 |h | Jump_Zero 0xb9
00b2 e008 | | Load 0x0,0x8
00b3 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b4 4802 |H | Short_Literal 0x2
00b5 0092 00f2 | | Action Push_String_Extended,0xf2 ; "Time since base time has overflowed 6 digits."
00b7 e009 | | Load 0x0,0x9
00b8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b9 e008 | | Load 0x0,0x8
00ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bb 4802 |H | Short_Literal 0x2
00bc 0092 00f3 | | Action Push_String_Extended,0xf3 ; "The backup tape's Volid is "
00be e609 | | Load 0x3,0x9
00bf 01cc | | Execute Vector,Catenate
00c0 e009 | | Load 0x0,0x9
00c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c2 00d8 | | Load_Top At_Offset_0
00c3 00ca | | Action Exit_Nullary_Function
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 00d4 | | .CONST 0x00d4 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb e5fe | | Load 0x2,-0x2
00cc e007 | | Load 0x0,0x7
00cd 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00ce e007 | | Load 0x0,0x7
00cf 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00d0 a405 | | Store_Unchecked 0x2,0x5
00d1 e405 | | Load 0x2,0x5
00d2 00ba | | Action Initiate_Delay
00d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d4 TRAP_00c8:
00d4 0007 | | Action Break_Optional
00d5 e008 | | Load 0x0,0x8
00d6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d7 4807 |H | Short_Literal 0x7
00d8 0092 00f4 | | Action Push_String_Extended,0xf4 ; "Invalid starting time value given."
00da e009 | | Load 0x0,0x9
00db 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00e4 ffff ffff | | .LITERAL {0xffffffff, 0xffffc000}
00e8 2a2a 2a2a |****| .LITERAL {0x2a2a2a2a, 0x2a2a2020}
00ec ; --------------------------------------------------------------------------------------
00ec ; STRING TABLE
00ec ; --------------------------------------------------------------------------------------
00ec 0014 | | .STRTAB 0x0014->0x00f6 ; "Starting system backup"
00ed 0028 | ( | .STRTAB 0x0028->0x0101 ; "<PROFILE>"
00ee 002f | / | .STRTAB 0x002f->0x0105 ; "Snapshot"
00ef 0035 | 5 | .STRTAB 0x0035->0x0109 ; "Backup failed with an unhandled exception."
00f0 005d | ] | .STRTAB 0x005d->0x011e ; "July 16, 1986 at 00:00:01 AM"
00f1 0077 | w | .STRTAB 0x0077->0x012c ; "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
00f2 0099 | | .STRTAB 0x0099->0x013e ; "Time since base time has overflowed 6 digits."
00f3 00c4 | | .STRTAB 0x00c4->0x0155 ; "The backup tape's Volid is "
00f4 00dd | | .STRTAB 0x00dd->0x0162 ; "Invalid starting time value given."
00f5 00fd | | .STREND 0x00fd->0x0173
00f6 5374 6172 |Star| .STRTAB_STRINGS
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; Debug Table
0178 ; --------------------------------------------------------------------------------------
0178 0004 0000 | | .DEBUG4 0x0004,0x0000,0xb066,0x0000,0x0001,0x0000
017e 0000 0000 | | .XXX[0xc]
0180 0183 0004 | |
0182 0001 e5ff | |
0184 e00a 1b22 | "|
0186 025e 1c01 | ^ |
0188 826a 4502 | jE |
018a 0000 0000 | | .BLANK 0000[0x6]
0190 0193 0004 | | .XXX[0xa]
0192 0001 e5ff | |
0194 e00a 1b28 | (|
0196 025e 1c01 | ^ |
0198 826a 4502 | jE |
019a 0000 0000 | | .BLANK 0000[0x6]
01a0 01a3 0004 | | .XXX[0xa]
01a2 0001 e5ff | |
01a4 e00b 1b0f | |
01a6 025e 1c01 | ^ |
01a8 826a 4502 | jE |
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 01b3 0004 | | .XXX[0xa]
01b2 0001 e5ff | |
01b4 e00a 1b20 | |
01b6 025e 1c01 | ^ |
01b8 826a 4502 | jE |
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 01c3 0004 | | .XXX[0xa]
01c2 0001 e5ff | |
01c4 e00a 1b35 | 5|
01c6 025e 1c01 | ^ |
01c8 826a 4502 | jE |
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 01d3 0004 | | .XXX[0xa]
01d2 0001 e5ff | |
01d4 e00a 1b2f | /|
01d6 025e 1c01 | ^ |
01d8 826a 4502 | jE |
01da 0000 0000 | | .BLANK 0000[0x6]
01e0 01e3 0004 | | .XXX[0xa]
01e2 0001 e5ff | |
01e4 e00a 1b2d | -|
01e6 025e 1c01 | ^ |
01e8 826a 4502 | jE |
01ea 0000 0000 | | .BLANK 0000[0x6]
01f0 01f3 0004 | | .XXX[0x9]
01f2 0001 e5ff | |
01f4 00e1 025e | ^|
01f6 1c01 826a | j|
01f8 4502 |E |
01f9 0000 0000 | | .BLANK 0000[0x7]