|
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_0a7cf5
└─⟦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 0140 | @ | .CONST 0x0140 ; 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 002f | / | .CONST 0x002f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 00e9 | | Load_Encached String_Cache
000e 0129 | ) | Execute Any,Make_Visible
000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0011 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0013 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0015 00bf | | Action Accept_Activation
0016 0092 0112 | | Action Push_String_Extended,0x112 ; "SRS"
0018 0092 0113 | | Action Push_String_Extended,0x113 ; "IRS"
001a 0092 0114 | | Action Push_String_Extended,0x114 ; "STLDD"
001c 0092 0115 | | Action Push_String_Extended,0x115 ; "SDDD"
001e 0092 0116 | | Action Push_String_Extended,0x116 ; "IDD"
0020 4800 |H | Short_Literal 0x0
0021 4805 |H | Short_Literal 0x5
0022 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
0024 03fd | | Declare_Type Discrete,Defined
0025 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call
0027 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0028 00c7 | | Action Elaborate_Subprogram
0029 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002a 00c7 | | Action Elaborate_Subprogram
002b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002c 00c7 | | Action Elaborate_Subprogram
002d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002e 00c7 | | Action Elaborate_Subprogram
002f BODY_0008:
002f 00bc | | Action Signal_Activated
0030 00bb | | Action Signal_Completion
0031 0000 0000 | | .BLANK 0000[0x7]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0046 | F | .CONST 0x0046 ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0003 | | .CONST 0x0003 ; Number of locals
003b INIT_0038:
003b e001 | | Load 0x0,0x1
003c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
003d 0322 | " | Declare_Variable Record
003e e001 | | Load 0x0,0x1
003f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0040 00d9 | | Load_Top At_Offset_1
0041 017d | } | Execute Record,Structure_Write
0042 00d8 | | Load_Top At_Offset_0
0043 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0044 00e0 | | Load_Encached Standard_Cache
0045 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0046 BODY_0038:
0046 4820 |H | Short_Literal 0x20
0047 00d9 | | Load_Top At_Offset_1
0048 01dd | | Execute Vector,First
0049 0a01 | | Execute_Immediate Plus,0x1
004a 00d8 | | Load_Top At_Offset_0
004b 00e2 | | Load_Encached Integer_Cache
004c 0260 | ` | Execute Discrete,In_Type
004d 7001 |p | Jump_Nonzero 0x4f
004e 0801 | | Execute_Immediate Raise,0x1
004f 00da | | Load_Top At_Offset_2
0050 01dc | | Execute Vector,Last
0051 00db | | Load_Top At_Offset_3
0052 01cf | | Execute Vector,Slice_Read
0053 01cb | | Execute Vector,Append
0054 00da | | Load_Top At_Offset_2
0055 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0056 e001 | | Load 0x0,0x1
0057 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0058 011c | | Execute Any,Convert_Unchecked
0059 1c01 | | Execute_Immediate Run_Utility,0x1
005a 01cc | | Execute Vector,Catenate
005b 00da | | Load_Top At_Offset_2
005c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
005d 00e0 | | Load_Encached Standard_Cache
005e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
005f 01cc | | Execute Vector,Catenate
0060 00ca | | Action Exit_Nullary_Function
0061 0000 0000 | | .BLANK 0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 0092 0118 | | Action Push_String_Extended,0x118 ; "<UNKNOWN SUBPARAGRAPH>"
006d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
006e 0000 0000 | | .XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 483c |H< | Short_Literal 0x3c
0074 00db | | Load_Top At_Offset_3
0075 01ca | | Execute Vector,Prepend
0076 0092 0119 | | Action Push_String_Extended,0x119 ; " Explanation>"
0078 01cc | | Execute Vector,Catenate
0079 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
007a 0000 0000 | | .BLANK 0000[0x6]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 008f | | .CONST 0x008f ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0003 | | .CONST 0x0003 ; Number of locals
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 e002 | | Load 0x0,0x2
0085 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0086 011c | | Execute Any,Convert_Unchecked
0087 1c01 | | Execute_Immediate Run_Utility,0x1
0088 4801 |H | Short_Literal 0x1
0089 00d9 | | Load_Top At_Offset_1
008a 485f |H_ | Short_Literal 0x5f
008b e003 | | Load 0x0,0x3
008c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
008d 00e3 | | Load_Encached Natural_Cache
008e 03f1 | | Declare_Variable Discrete,With_Value
008f BODY_0080:
008f e5ff | | Load 0x2,-0x1
0090 00d1 | | Pop_Control Pop_Count_1
0091 0092 011a | | Action Push_String_Extended,0x11a ; "*** "
0093 e5ff | | Load 0x2,-0x1
0094 e002 | | Load 0x0,0x2
0095 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0096 011c | | Execute Any,Convert_Unchecked
0097 1c01 | | Execute_Immediate Run_Utility,0x1
0098 01cc | | Execute Vector,Catenate
0099 0092 011b | | Action Push_String_Extended,0x11b ; " ***"
009b 01cc | | Execute Vector,Catenate
009c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4607 |F | Jump_Case 0x8
00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00a5 7806 |x | Jump 0xac ; case 0x1
00a6 7809 |x | Jump 0xb0 ; case 0x2
00a7 780d |x | Jump 0xb5 ; case 0x3
00a8 7810 |x | Jump 0xb9 ; case 0x4
00a9 7811 |x | Jump 0xbb ; case 0x5
00aa 7812 |x | Jump 0xbd ; case 0x6
00ab 7815 |x | Jump 0xc1 ; case 0x7
00ac 00da | | Load_Top At_Offset_2
00ad 0091 0112 | | Action Push_String_Extended_Indexed,0x112 ; "SRS"
00af 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b0 00db | | Load_Top At_Offset_3
00b1 00db | | Load_Top At_Offset_3
00b2 00e0 | | Load_Encached Standard_Cache
00b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b5 00da | | Load_Top At_Offset_2
00b6 00e0 | | Load_Encached Standard_Cache
00b7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b9 00db | | Load_Top At_Offset_3
00ba 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00bb 00db | | Load_Top At_Offset_3
00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00bd e217 | | Load 0x1,0x17
00be 00dc | | Load_Top At_Offset_4
00bf 0267 | g | Execute Discrete,Predecessor
00c0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c1 e217 | | Load 0x1,0x17
00c2 00dc | | Load_Top At_Offset_4
00c3 0268 | h | Execute Discrete,Successor
00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00db | | .CONST 0x00db ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0005 | | .CONST 0x0005 ; Number of locals
00cb INIT_00c8:
00cb 4820 |H | Short_Literal 0x20
00cc 00db | | Load_Top At_Offset_3
00cd e003 | | Load 0x0,0x3
00ce 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00cf e003 | | Load 0x0,0x3
00d0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d1 00d8 | | Load_Top At_Offset_0
00d2 01db | | Execute Vector,Length
00d3 00e3 | | Load_Encached Natural_Cache
00d4 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00d5 00d9 | | Load_Top At_Offset_1
00d6 01dd | | Execute Vector,First
00d7 00e4 | | Load_Encached Positive_Cache
00d8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00d9 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
00db BODY_00c8:
00db e212 | | Load 0x1,0x12
00dc 8405 | | Call 0x2,0x5
00dd 6802 |h | Jump_Zero 0xe0
00de 4800 |H | Short_Literal 0x0
00df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e0 e213 | | Load 0x1,0x13
00e1 8405 | | Call 0x2,0x5
00e2 6802 |h | Jump_Zero 0xe5
00e3 4801 |H | Short_Literal 0x1
00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e5 e214 | | Load 0x1,0x14
00e6 8405 | | Call 0x2,0x5
00e7 6802 |h | Jump_Zero 0xea
00e8 4802 |H | Short_Literal 0x2
00e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ea e215 | | Load 0x1,0x15
00eb 8405 | | Call 0x2,0x5
00ec 6802 |h | Jump_Zero 0xef
00ed 4803 |H | Short_Literal 0x3
00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ef e216 | | Load 0x1,0x16
00f0 8405 | | Call 0x2,0x5
00f1 6802 |h | Jump_Zero 0xf4
00f2 4804 |H | Short_Literal 0x4
00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f4 4805 |H | Short_Literal 0x5
00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f6 0000 0000 | | .XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb e403 | | Load 0x2,0x3
00fc 00db | | Load_Top At_Offset_3
00fd 01db | | Execute Vector,Length
00fe 027b | { | Execute Discrete,Greater_Equal
00ff 6810 |h | Jump_Zero 0x110
0100 e404 | | Load 0x2,0x4
0101 00d8 | | Load_Top At_Offset_0
0102 e7ff | | Load 0x3,-0x1
0103 01db | | Execute Vector,Length
0104 0273 | s | Execute Discrete,Plus
0105 0aff | | Execute_Immediate Plus,-0x1
0106 00d8 | | Load_Top At_Offset_0
0107 00e2 | | Load_Encached Integer_Cache
0108 0260 | ` | Execute Discrete,In_Type
0109 7001 |p | Jump_Nonzero 0x10b
010a 0801 | | Execute_Immediate Raise,0x1
010b e402 | | Load 0x2,0x2
010c 01cf | | Execute Vector,Slice_Read
010d 00db | | Load_Top At_Offset_3
010e 01df | | Execute Vector,Equal
010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0110 4800 |H | Short_Literal 0x0
0111 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0112 ; --------------------------------------------------------------------------------------
0112 ; STRING TABLE
0112 ; --------------------------------------------------------------------------------------
0112 0016 | | .STRTAB 0x0016->0x011d ; "SRS"
0113 0017 | | .STRTAB 0x0017->0x011e ; "IRS"
0114 0018 | | .STRTAB 0x0018->0x0120 ; "STLDD"
0115 001b | | .STRTAB 0x001b->0x0122 ; "SDDD"
0116 001d | | .STRTAB 0x001d->0x0124 ; "IDD"
0117 001e | | .STRTAB 0x001e->0x0126 ; "UNKNOWN"
0118 0023 | # | .STRTAB 0x0023->0x0129 ; "<UNKNOWN SUBPARAGRAPH>"
0119 0037 | 7 | .STRTAB 0x0037->0x0134 ; " Explanation>"
011a 0042 | B | .STRTAB 0x0042->0x013b ; "*** "
011b 0044 | D | .STRTAB 0x0044->0x013d ; " ***"
011c 0046 | F | .STREND 0x0046->0x013f
011d 5352 5349 |SRSI| .STRTAB_STRINGS
013f 0000 | | .XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug Table
0140 ; --------------------------------------------------------------------------------------
0140 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfca0,0x0000,0x0001,0x0000
0146 0000 0000 | | .BLANK 0000[0x2e]
0174 8014 0000 | | .XXX[0xb]
0176 0000 0000 | |
0178 0100 0000 | |
017a 0880 0000 | |
017c 0004 0000 | |
017e 0028 | ( |
017f 0000 0000 | | .BLANK 0000[0x2e]
01ad 1002 8000 | | .XXX[0xb]
01af 0000 0000 | |
01b1 0020 0000 | |
01b3 0110 0000 | |
01b5 0000 8000 | |
01b7 0005 | |
01b8 0000 0000 | | .BLANK 0000[0x48]