|
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_0bf8df
└─⟦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 0138 | 8 | .CONST 0x0138 ; 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 0032 | 2 | .CONST 0x0032 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0007 | | .CONST 0x0007 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
001d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
001e 02c7 | | Declare_Variable Any
001f 00d8 | | Load_Top At_Offset_0
0020 1c00 | | Execute_Immediate Run_Utility,0x0
0021 e002 | | Load 0x0,0x2
0022 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0023 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0024 e003 | | Load 0x0,0x3
0025 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0026 02c7 | | Declare_Variable Any
0027 00d8 | | Load_Top At_Offset_0
0028 1c00 | | Execute_Immediate Run_Utility,0x0
0029 e003 | | Load 0x0,0x3
002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002b 02c7 | | Declare_Variable Any
002c 00d8 | | Load_Top At_Offset_0
002d 1c00 | | Execute_Immediate Run_Utility,0x0
002e 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
0030 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
0032 BODY_0018:
0032 e002 | | Load 0x0,0x2
0033 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0034 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0035 e402 | | Load 0x2,0x2
0036 6029 |`) | Indirect_Literal Discrete,0x60,{0x00000000, 0x00004000}
0037 e004 | | Load 0x0,0x4
0038 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0039 e005 | | Load 0x0,0x5
003a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
003b e006 | | Load 0x0,0x6
003c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
003d 4801 |H | Short_Literal 0x1
003e 4800 |H | Short_Literal 0x0
003f e005 | | Load 0x0,0x5
0040 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0041 e002 | | Load 0x0,0x2
0042 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0043 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0044 e5ff | | Load 0x2,-0x1
0045 e002 | | Load 0x0,0x2
0046 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0047 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0048 c402 | | Store 0x2,0x2
0049 c403 | | Store 0x2,0x3
004a 00cf | | Action Mark_Auxiliary
004b 7807 |x | Jump 0x53
004c 8407 | | Call 0x2,0x7
004d e402 | | Load 0x2,0x2
004e e002 | | Load 0x0,0x2
004f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0050 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0051 c402 | | Store 0x2,0x2
0052 00c9 | | Action Pop_Auxiliary_Loop
0053 e402 | | Load 0x2,0x2
0054 e002 | | Load 0x0,0x2
0055 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0056 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0057 6ff4 |o | Jump_Zero 0x4c
0058 00ce | | Action Pop_Auxiliary
0059 e402 | | Load 0x2,0x2
005a e002 | | Load 0x0,0x2
005b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
005c 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
005d c402 | | Store 0x2,0x2
005e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
005f 0000 | | .XXX[0x1]
0060 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0064 0000 0000 | | .BLANK 0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0078 | x | .CONST 0x0078 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b 4801 |H | Short_Literal 0x1
006c 00db | | Load_Top At_Offset_3
006d 01db | | Execute Vector,Length
006e 00d8 | | Load_Top At_Offset_0
006f 00e2 | | Load_Encached Integer_Cache
0070 0260 | ` | Execute Discrete,In_Type
0071 7001 |p | Jump_Nonzero 0x73
0072 0801 | | Execute_Immediate Raise,0x1
0073 00e9 | | Load_Encached String_Cache
0074 035b | [ | Declare_Type Array,Constrained
0075 0337 | 7 | Declare_Variable Array
0076 00e2 | | Load_Encached Integer_Cache
0077 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0078 BODY_0068:
0078 00cf | | Action Mark_Auxiliary
0079 e7ff | | Load 0x3,-0x1
007a 01d9 | | Execute Vector,Reverse_Bounds
007b 0263 | c | Execute Discrete,Above_Bound
007c 701d |p | Jump_Nonzero 0x9a
007d 00d8 | | Load_Top At_Offset_0
007e e7ff | | Load 0x3,-0x1
007f 01d7 | | Execute Vector,Field_Read
0080 0b27 | ' | Execute_Immediate Case_Compare,0x27
0081 700e |p | Jump_Nonzero 0x90
0082 4828 |H( | Short_Literal 0x28
0083 4829 |H) | Short_Literal 0x29
0084 0262 | b | Execute Discrete,In_Range
0085 7012 |p | Jump_Nonzero 0x98
0086 00db | | Load_Top At_Offset_3
0087 0a01 | | Execute_Immediate Plus,0x1
0088 c603 | | Store 0x3,0x3
0089 00d8 | | Load_Top At_Offset_0
008a e7ff | | Load 0x3,-0x1
008b 01d7 | | Execute Vector,Field_Read
008c e603 | | Load 0x3,0x3
008d e602 | | Load 0x3,0x2
008e 01d6 | | Execute Vector,Field_Write
008f 7808 |x | Jump 0x98
0090 00d1 | | Pop_Control Pop_Count_1
0091 00db | | Load_Top At_Offset_3
0092 0a01 | | Execute_Immediate Plus,0x1
0093 c603 | | Store 0x3,0x3
0094 485f |H_ | Short_Literal 0x5f
0095 e603 | | Load 0x3,0x3
0096 e602 | | Load 0x3,0x2
0097 01d6 | | Execute Vector,Field_Write
0098 00c8 | | Action Pop_Auxiliary_Range
0099 3fe3 |? | Loop_Increasing 0x7d
009a 00ce | | Action Pop_Auxiliary
009b 4801 |H | Short_Literal 0x1
009c 00d9 | | Load_Top At_Offset_1
009d 00db | | Load_Top At_Offset_3
009e 01cf | | Execute Vector,Slice_Read
009f 00e9 | | Load_Encached String_Cache
00a0 01c6 | | Execute Vector,Convert_To_Formal
00a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a2 0000 0000 | | .BLANK 0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00af | | .CONST 0x00af ; Address of begin
00a9 00de | | .CONST 0x00de ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab e402 | | Load 0x2,0x2
00ac e002 | | Load 0x0,0x2
00ad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ae 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00af BODY_00a8:
00af e007 | | Load 0x0,0x7
00b0 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b1 4802 |H | Short_Literal 0x2
00b2 0092 010a | | Action Push_String_Extended,0x10a ; "Creating text backup of "
00b4 00db | | Load_Top At_Offset_3
00b5 01cc | | Execute Vector,Catenate
00b6 e008 | | Load 0x0,0x8
00b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b8 e404 | | Load 0x2,0x4
00b9 00ea | | Load_Encached Null_String_Cache
00ba 00da | | Load_Top At_Offset_2
00bb 4800 |H | Short_Literal 0x0
00bc e003 | | Load 0x0,0x3
00bd 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00be c404 | | Store 0x2,0x4
00bf e405 | | Load 0x2,0x5
00c0 00ea | | Load_Encached Null_String_Cache
00c1 00da | | Load_Top At_Offset_2
00c2 8406 | | Call 0x2,0x6
00c3 4801 |H | Short_Literal 0x1
00c4 e003 | | Load 0x0,0x3
00c5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c6 c405 | | Store 0x2,0x5
00c7 00cf | | Action Mark_Auxiliary
00c8 7807 |x | Jump 0xd0
00c9 e404 | | Load 0x2,0x4
00ca e003 | | Load 0x0,0x3
00cb 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
00cc e405 | | Load 0x2,0x5
00cd e003 | | Load 0x0,0x3
00ce 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00cf 00c9 | | Action Pop_Auxiliary_Loop
00d0 e404 | | Load 0x2,0x4
00d1 e003 | | Load 0x0,0x3
00d2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00d3 6ff5 |o | Jump_Zero 0xc9
00d4 00ce | | Action Pop_Auxiliary
00d5 e404 | | Load 0x2,0x4
00d6 e003 | | Load 0x0,0x3
00d7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d8 c404 | | Store 0x2,0x4
00d9 e405 | | Load 0x2,0x5
00da e003 | | Load 0x0,0x3
00db 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00dc c405 | | Store 0x2,0x5
00dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00de TRAP_00a8:
00de 00d8 | | Load_Top At_Offset_0
00df 0107 | | Execute Exception,Get_Name
00e0 4950 |IP | Short_Literal 0x150
00e1 495f |I_ | Short_Literal 0x15f
00e2 0262 | b | Execute Discrete,In_Range
00e3 6809 |h | Jump_Zero 0xed
00e4 e404 | | Load 0x2,0x4
00e5 e003 | | Load 0x0,0x3
00e6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e7 c404 | | Store 0x2,0x4
00e8 e405 | | Load 0x2,0x5
00e9 e003 | | Load 0x0,0x3
00ea 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00eb c405 | | Store 0x2,0x5
00ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ed e404 | | Load 0x2,0x4
00ee e003 | | Load 0x0,0x3
00ef 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f0 c404 | | Store 0x2,0x4
00f1 e405 | | Load 0x2,0x5
00f2 e003 | | Load 0x0,0x3
00f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f4 c405 | | Store 0x2,0x5
00f5 e007 | | Load 0x0,0x7
00f6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f7 4808 |H | Short_Literal 0x8
00f8 0092 010b | | Action Push_String_Extended,0x10b ; "Can't create text backup for "
00fa e602 | | Load 0x3,0x2
00fb 01cc | | Execute Vector,Catenate
00fc 0092 010c | | Action Push_String_Extended,0x10c ; " (attempt raises "
00fe 01cc | | Execute Vector,Catenate
00ff 4800 |H | Short_Literal 0x0
0100 4801 |H | Short_Literal 0x1
0101 e009 | | Load 0x0,0x9
0102 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0103 01cc | | Execute Vector,Catenate
0104 0092 010d | | Action Push_String_Extended,0x10d ; ")"
0106 01cc | | Execute Vector,Catenate
0107 e008 | | Load 0x0,0x8
0108 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0109 4501 |E | Exit_Suprogram New_Top_Offset 0x1
010a ; --------------------------------------------------------------------------------------
010a ; STRING TABLE
010a ; --------------------------------------------------------------------------------------
010a 000a | | .STRTAB 0x000a->0x010f ; "Creating text backup of "
010b 0020 | | .STRTAB 0x0020->0x011b ; "Can't create text backup for "
010c 003b | ; | .STRTAB 0x003b->0x0129 ; " (attempt raises "
010d 004a | J | .STRTAB 0x004a->0x0132 ; ")"
010e 0049 | I | .STREND 0x0049->0x0132
010f 4372 6561 |Crea| .STRTAB_STRINGS
0133 0000 0000 | | .BLANK 0000[0x5]
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug Table
0138 ; --------------------------------------------------------------------------------------
0138 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b8e,0x0000,0x0001,0x0000
013e e5fd e221 | !| .XXX[0x6d]
0140 e002 181b | |
0142 4801 e20f |H |
0144 8230 4803 | 0H |
0146 e221 e002 | ! |
0148 181e 4801 | H |
014a e20f 8230 | 0|
014c e5ff e222 | "|
014e 03b6 a223 | #|
0150 e5fe e222 | "|
0152 03b6 a224 | $|
0154 e5fd e222 | "|
0156 03b6 a225 | %|
0158 e221 e002 | ! |
015a 1824 a228 | $ (|
015c e228 0229 | ( )|
015e 00d8 3c00 | < |
0160 0092 0582 | |
0162 e5ff 01cc | |
0164 0092 0583 | |
0166 01cc e5fe | |
0168 01cc 4802 | H |
016a 8231 00d9 | 1 |
016c 3800 00d1 |8 |
016e e227 e003 | ' |
0170 1817 e228 | (|
0172 0227 3c00 | '< |
0174 e22a 1812 | * |
0176 e003 1817 | |
0178 e228 0227 | ( '|
017a 3c00 e22b |< +|
017c 1811 a229 | )|
017e 4801 e229 |H )|
0180 0217 3806 | 8 |
0182 4800 e229 |H )|
0184 0217 3807 | 8 |
0186 e228 0227 | ( '|
0188 3c00 e003 |< |
018a 182a e229 | * )|
018c 0217 3802 | 8 |
018e e229 0217 | ) |
0190 3c02 e229 |< )|
0192 0217 3804 | 8 |
0194 e229 0217 | ) |
0196 3c02 e229 |< )|
0198 0217 3803 | 8 |
019a e229 0217 | ) |
019c 3c02 e228 |< (|
019e 0227 3801 | '8 |
01a0 4504 00d8 |E |
01a2 0107 4940 | I@|
01a4 494f 0262 |IO b|
01a6 6803 4800 |h H |
01a8 a5fc 4504 | E |
01aa 0100 | |
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 01b5 01ca | | .XXX[0x1c]
01b2 0002 e003 | |
01b4 1b10 e221 | !|
01b6 e002 1824 | $|
01b8 0229 e003 | ) |
01ba 1b10 00d9 | |
01bc 3c00 e003 |< |
01be 1824 00da | $ |
01c0 3800 005a |8 Z|
01c2 00d1 e221 | !|
01c4 e002 1814 | |
01c6 e221 e002 | ! |
01c8 1810 4501 | E |
01ca 0007 4501 | E |
01cc 0000 0000 | | .BLANK 0000[0x4]
01d0 01d3 01eb | | .XXX[0x30]
01d2 0001 4801 | H |
01d4 a5fd 4805 | H |
01d6 8232 00db | 2 |
01d8 e221 e002 | ! |
01da 1822 8233 | " 3|
01dc 4800 e5fe |H |
01de e5ff e221 | !|
01e0 e002 1827 | '|
01e2 4806 e20f |H |
01e4 8230 0092 | 0 |
01e6 0584 e5fe | |
01e8 01cc 820e | |
01ea 4503 00d8 |E |
01ec 0107 4940 | I@|
01ee 494f 0262 |IO b|
01f0 6803 4800 |h H |
01f2 a5fd 4503 | E |
01f4 0100 0000 | |
01f6 0000 0000 | |
01f8 01fb 020f | |
01fa 0001 4801 | H |
01fc a5fd 4805 | H |
01fe 8232 8233 | 2 3|