|
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_6060f0
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01d0 | | .CONST 0x01d0 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004a | J | .CONST 0x004a ; Address of begin
0009 0059 | Y | .CONST 0x0059 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b 4802 |H | Short_Literal 0x2
000c 02cb | | Declare_Variable Entry
000d 4802 |H | Short_Literal 0x2
000e 02cb | | Declare_Variable Entry
000f 4800 |H | Short_Literal 0x0
0010 02cb | | Declare_Variable Entry
0011 4801 |H | Short_Literal 0x1
0012 02cb | | Declare_Variable Entry
0013 00bf | | Action Accept_Activation
0014 e001 | | Load 0x0,0x1
0015 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0016 02c7 | | Declare_Variable Any
0017 00d8 | | Load_Top At_Offset_0
0018 1c00 | | Execute_Immediate Run_Utility,0x0
0019 e001 | | Load 0x0,0x1
001a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
001b 02c7 | | Declare_Variable Any
001c 00d8 | | Load_Top At_Offset_0
001d 1c00 | | Execute_Immediate Run_Utility,0x0
001e e002 | | Load 0x0,0x2
001f 0322 | " | Declare_Variable Record
0020 00d8 | | Load_Top At_Offset_0
0021 1c00 | | Execute_Immediate Run_Utility,0x0
0022 00e1 | | Load_Encached Boolean_Cache
0023 e003 | | Load 0x0,0x3
0024 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0025 00e1 | | Load_Encached Boolean_Cache
0026 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0027 e004 | | Load 0x0,0x4
0028 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0029 02c7 | | Declare_Variable Any
002a 00d8 | | Load_Top At_Offset_0
002b 1c00 | | Execute_Immediate Run_Utility,0x0
002c 029b 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Unelaborated
002e e005 | | Load 0x0,0x5
002f e006 | | Load 0x0,0x6
0030 e007 | | Load 0x0,0x7
0031 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0032 e001 | | Load 0x0,0x1
0033 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0034 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0035 480a |H | Short_Literal 0xa
0036 e008 | | Load 0x0,0x8
0037 0387 | | Declare_Variable Package
0038 00d8 | | Load_Top At_Offset_0
0039 020f | | Execute Module,Activate
003a e001 | | Load 0x0,0x1
003b 1914 | | Execute Package,Field_Reference,Field_Number 0x14
003c 0007 | | Action Break_Optional
003d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
003e 00c7 | | Action Elaborate_Subprogram
003f 480d |H | Short_Literal 0xd
0040 0299 0083 | | Declare_Subprogram INIT_0080,For_Accept
0042 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
0044 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0046 4810 |H | Short_Literal 0x10
0047 0299 015b | [| Declare_Subprogram INIT_0158,For_Accept
0049 00bc | | Action Signal_Activated
004a BODY_0008:
004a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
004b 1d0d | | Execute_Immediate Reference_Lex_1,0xd
004c 0137 | 7 | Execute Entry,Rendezvous
004d 821c | | Call 0x1,0x1c
004e 821d | | Call 0x1,0x1d
004f e217 | | Load 0x1,0x17
0050 e004 | | Load 0x0,0x4
0051 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0052 e217 | | Load 0x1,0x17
0053 e004 | | Load 0x0,0x4
0054 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0055 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0056 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0057 0137 | 7 | Execute Entry,Rendezvous
0058 00bb | | Action Signal_Completion
0059 TRAP_0008:
0059 e009 | | Load 0x0,0x9
005a 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
005b 010f | | Execute Exception,Equal
005c 6801 |h | Jump_Zero 0x5e
005d 00bb | | Action Signal_Completion
005e 4801 |H | Short_Literal 0x1
005f e211 | | Load 0x1,0x11
0060 e001 | | Load 0x0,0x1
0061 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0062 0119 | | Execute Any,Check_In_Formal_Type
0063 4808 |H | Short_Literal 0x8
0064 0092 0180 | | Action Push_String_Extended,0x180 ; "Unexpected Exception in body"
0066 4800 |H | Short_Literal 0x0
0067 4801 |H | Short_Literal 0x1
0068 e00a | | Load 0x0,0xa
0069 1815 | | Execute Package,Field_Execute,Field_Number 0x15
006a 01cc | | Execute Vector,Catenate
006b e001 | | Load 0x0,0x1
006c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
006d 00bb | | Action Signal_Completion
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 4800 |H | Short_Literal 0x0
0074 e5fd | | Load 0x2,-0x3
0075 e001 | | Load 0x0,0x1
0076 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0077 0119 | | Execute Any,Check_In_Formal_Type
0078 e5fe | | Load 0x2,-0x2
0079 e5ff | | Load 0x2,-0x1
007a e001 | | Load 0x0,0x1
007b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
007c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
007d 0000 0000 | | .XXX[0x3]
007f 0000 | |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00db | | Load_Top At_Offset_3
0084 0227 | ' | Execute Access,All_Reference
0085 e213 | | Load 0x1,0x13
0086 017d | } | Execute Record,Structure_Write
0087 e213 | | Load 0x1,0x13
0088 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0089 a214 | | Store_Unchecked 0x1,0x14
008a e211 | | Load 0x1,0x11
008b 00d8 | | Load_Top At_Offset_0
008c 0120 | | Execute Any,Is_Value
008d 6804 |h | Jump_Zero 0x92
008e e001 | | Load 0x0,0x1
008f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0090 011e | | Execute Any,Convert
0091 7803 |x | Jump 0x95
0092 e001 | | Load 0x0,0x1
0093 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0094 0119 | | Execute Any,Check_In_Formal_Type
0095 e00b | | Load 0x0,0xb
0096 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0097 e5fd | | Load 0x2,-0x3
0098 e001 | | Load 0x0,0x1
0099 1b0f | | Execute Package,Field_Read,Field_Number 0xf
009a 0119 | | Execute Any,Check_In_Formal_Type
009b e001 | | Load 0x0,0x1
009c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
009d c211 | | Store 0x1,0x11
009e e212 | | Load 0x1,0x12
009f 00d8 | | Load_Top At_Offset_0
00a0 0120 | | Execute Any,Is_Value
00a1 6804 |h | Jump_Zero 0xa6
00a2 e001 | | Load 0x0,0x1
00a3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a4 011e | | Execute Any,Convert
00a5 7803 |x | Jump 0xa9
00a6 e001 | | Load 0x0,0x1
00a7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a8 0119 | | Execute Any,Check_In_Formal_Type
00a9 e00b | | Load 0x0,0xb
00aa 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00ab e5fd | | Load 0x2,-0x3
00ac e001 | | Load 0x0,0x1
00ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ae 0119 | | Execute Any,Check_In_Formal_Type
00af e001 | | Load 0x0,0x1
00b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b1 c212 | | Store 0x1,0x12
00b2 4100 |A | End_Rendezvous 0x0
00b3 0000 0000 | | .BLANK 0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c1 | | .CONST 0x00c1 ; Address of begin
00b9 00dc | | .CONST 0x00dc ; Address of exception handler
00ba 0003 | | .CONST 0x0003 ; Number of locals
00bb INIT_00b8:
00bb 480e |H | Short_Literal 0xe
00bc 0299 0163 | c| Declare_Subprogram INIT_0160,For_Accept
00be 480f |H | Short_Literal 0xf
00bf 0299 017b | {| Declare_Subprogram INIT_0178,For_Accept
00c1 BODY_00b8:
00c1 4802 |H | Short_Literal 0x2
00c2 4802 |H | Short_Literal 0x2
00c3 0099 | | Action Reference_Dynamic
00c4 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00c5 0137 | 7 | Execute Entry,Rendezvous
00c6 e003 | | Load 0x0,0x3
00c7 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00c8 6027 |`' | Indirect_Literal Discrete,0xf0,{0x00007fff, 0xffffffff}
00c9 e217 | | Load 0x1,0x17
00ca e004 | | Load 0x0,0x4
00cb 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00cc c215 | | Store 0x1,0x15
00cd e214 | | Load 0x1,0x14
00ce 6807 |h | Jump_Zero 0xd6
00cf e211 | | Load 0x1,0x11
00d0 e001 | | Load 0x0,0x1
00d1 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00d2 0119 | | Execute Any,Check_In_Formal_Type
00d3 0092 0181 | | Action Push_String_Extended,0x181 ; "Error_Channel connected"
00d5 821a | | Call 0x1,0x1a
00d6 4803 |H | Short_Literal 0x3
00d7 4802 |H | Short_Literal 0x2
00d8 0099 | | Action Reference_Dynamic
00d9 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00da 0137 | 7 | Execute Entry,Rendezvous
00db 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00dc TRAP_00b8:
00dc e009 | | Load 0x0,0x9
00dd 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00de 010f | | Execute Exception,Equal
00df 680c |h | Jump_Zero 0xec
00e0 4801 |H | Short_Literal 0x1
00e1 e211 | | Load 0x1,0x11
00e2 e001 | | Load 0x0,0x1
00e3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00e4 0119 | | Execute Any,Check_In_Formal_Type
00e5 4807 |H | Short_Literal 0x7
00e6 0092 0182 | | Action Push_String_Extended,0x182 ; "Terminating due to Open or Connect failure"
00e8 e001 | | Load 0x0,0x1
00e9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ea 00d8 | | Load_Top At_Offset_0
00eb 0101 | | Execute Exception,Reraise
00ec 0100 | | Execute Exception,Raise
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0108 | | .CONST 0x0108 ; Address of begin
00f9 013b | ; | .CONST 0x013b ; Address of exception handler
00fa 0005 | | .CONST 0x0005 ; Number of locals
00fb INIT_00f8:
00fb 4801 |H | Short_Literal 0x1
00fc 4880 |H | Short_Literal 0x80
00fd e00c | | Load 0x0,0xc
00fe 035b | [ | Declare_Type Array,Constrained
00ff 0337 | 7 | Declare_Variable Array
0100 00e3 | | Load_Encached Natural_Cache
0101 4880 |H | Short_Literal 0x80
0102 e219 | | Load 0x1,0x19
0103 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0104 1c08 | | Execute_Immediate Run_Utility,0x8
0105 00d8 | | Load_Top At_Offset_0
0106 1c00 | | Execute_Immediate Run_Utility,0x0
0107 00e1 | | Load_Encached Boolean_Cache
0108 BODY_00f8:
0108 00d9 | | Load_Top At_Offset_1
0109 e212 | | Load 0x1,0x12
010a e001 | | Load 0x0,0x1
010b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
010c 0119 | | Execute Any,Check_In_Formal_Type
010d 4807 |H | Short_Literal 0x7
010e e219 | | Load 0x1,0x19
010f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0110 00d1 | | Pop_Control Pop_Count_1
0111 00cf | | Action Mark_Auxiliary
0112 00e3 | | Load_Encached Natural_Cache
0113 e402 | | Load 0x2,0x2
0114 e003 | | Load 0x0,0x3
0115 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0116 603d |`= | Indirect_Literal Discrete,0x154,{0x00000000, 0x00960000}
0117 e217 | | Load 0x1,0x17
0118 e004 | | Load 0x0,0x4
0119 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
011a c215 | | Store 0x1,0x15
011b 00d1 | | Pop_Control Pop_Count_1
011c c403 | | Store 0x2,0x3
011d 00db | | Load_Top At_Offset_3
011e 0c01 | | Execute_Immediate Greater_Equal,0x1
011f 6814 |h | Jump_Zero 0x134
0120 e213 | | Load 0x1,0x13
0121 e215 | | Load 0x1,0x15
0122 e009 | | Load 0x0,0x9
0123 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0124 00e1 | | Load_Encached Boolean_Cache
0125 00db | | Load_Top At_Offset_3
0126 00ea | | Load_Encached Null_String_Cache
0127 4801 |H | Short_Literal 0x1
0128 e403 | | Load 0x2,0x3
0129 e402 | | Load 0x2,0x2
012a 01cf | | Execute Vector,Slice_Read
012b e00d | | Load 0x0,0xd
012c 180f | | Execute Package,Field_Execute,Field_Number 0xf
012d e219 | | Load 0x1,0x19
012e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012f 00d1 | | Pop_Control Pop_Count_1
0130 005a | Z | Store_Top Discrete,At_Offset_2
0131 4801 |H | Short_Literal 0x1
0132 a216 | | Store_Unchecked 0x1,0x16
0133 7804 |x | Jump 0x138
0134 e217 | | Load 0x1,0x17
0135 e004 | | Load 0x0,0x4
0136 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0137 6802 |h | Jump_Zero 0x13a
0138 00c9 | | Action Pop_Auxiliary_Loop
0139 7fd8 | | Jump 0x112
013a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
013b TRAP_00f8:
013b 0007 | | Action Break_Optional
013c 4801 |H | Short_Literal 0x1
013d e211 | | Load 0x1,0x11
013e e001 | | Load 0x0,0x1
013f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0140 0119 | | Execute Any,Check_In_Formal_Type
0141 4808 |H | Short_Literal 0x8
0142 0092 0183 | | Action Push_String_Extended,0x183 ; "Unexpected exception "
0144 4800 |H | Short_Literal 0x0
0145 4801 |H | Short_Literal 0x1
0146 e00a | | Load 0x0,0xa
0147 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0148 01cc | | Execute Vector,Catenate
0149 e001 | | Load 0x0,0x1
014a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
014b 00da | | Load_Top At_Offset_2
014c e219 | | Load 0x1,0x19
014d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
014e 00d1 | | Pop_Control Pop_Count_1
014f 4801 |H | Short_Literal 0x1
0150 a216 | | Store_Unchecked 0x1,0x16
0151 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0152 0000 0000 | | .XXX[0x2]
0154 0000 0000 | | .LITERAL {0x00000000, 0x00960000}
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e216 | | Load 0x1,0x16
015c a5fe | | Store_Unchecked 0x2,-0x2
015d 4101 |A | End_Rendezvous 0x1
015e 0000 0000 | | .XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 e217 | | Load 0x1,0x17
0164 e213 | | Load 0x1,0x13
0165 e7fe | | Load 0x3,-0x2
0166 e00e | | Load 0x0,0xe
0167 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0168 e009 | | Load 0x0,0x9
0169 181b | | Execute Package,Field_Execute,Field_Number 0x1b
016a c217 | | Store 0x1,0x17
016b e217 | | Load 0x1,0x17
016c c7fd | | Store 0x3,-0x3
016d e214 | | Load 0x1,0x14
016e 6807 |h | Jump_Zero 0x176
016f e211 | | Load 0x1,0x11
0170 e001 | | Load 0x0,0x1
0171 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0172 0119 | | Execute Any,Check_In_Formal_Type
0173 0092 0184 | | Action Push_String_Extended,0x184 ; "Error_Channel opened"
0175 821a | | Call 0x1,0x1a
0176 4101 |A | End_Rendezvous 0x1
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b e213 | | Load 0x1,0x13
017c e215 | | Load 0x1,0x15
017d e009 | | Load 0x0,0x9
017e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
017f 4100 |A | End_Rendezvous 0x0
0180 ; --------------------------------------------------------------------------------------
0180 ; STRING TABLE
0180 ; --------------------------------------------------------------------------------------
0180 000c | | .STRTAB 0x000c->0x0186 ; "Unexpected Exception in body"
0181 0026 | & | .STRTAB 0x0026->0x0194 ; "Error_Channel connected"
0182 003b | ; | .STRTAB 0x003b->0x019f ; "Terminating due to Open or Connect failure"
0183 0063 | c | .STRTAB 0x0063->0x01b4 ; "Unexpected exception "
0184 0076 | v | .STRTAB 0x0076->0x01bf ; "Error_Channel opened"
0185 0088 | | .STREND 0x0088->0x01c9
0186 556e 6578 |Unex| .STRTAB_STRINGS
01c9 0000 0000 | | .BLANK 0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; Debug Table
01d0 ; --------------------------------------------------------------------------------------
01d0 0004 000e | | .DEBUG4 0x0004,0x000e,0xf416,0x0000,0x0001,0x0000
01d6 0000 0000 | | .BLANK 0000[0xd]
01e3 0004 0000 | | .XXX[0x4]
01e5 2025 de50 | % P|
01e7 0000 0000 | | .BLANK 0000[0x19]