|
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_03c0fe
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 0048 | H | .CONST 0x0048 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0011 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0013 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0015 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0017 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0019 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001b 00bf | | Action Accept_Activation
001c 00e3 | | Load_Encached Natural_Cache
001d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
001e 029b 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Unelaborated
0020 e002 | | Load 0x0,0x2
0021 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0022 e003 | | Load 0x0,0x3
0023 e004 | | Load 0x0,0x4
0024 e005 | | Load 0x0,0x5
0025 02a0 | | Declare_Subprogram Null_Subprogram
0026 4804 |H | Short_Literal 0x4
0027 032d | - | Declare_Type Record,Defined
0028 e006 | | Load 0x0,0x6
0029 e007 | | Load 0x0,0x7
002a 4861 |Ha | Short_Literal 0x61
002b 00e4 | | Load_Encached Positive_Cache
002c e217 | | Load 0x1,0x17
002d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
002e e008 | | Load 0x0,0x8
002f 0387 | | Declare_Variable Package
0030 00d8 | | Load_Top At_Offset_0
0031 020f | | Execute Module,Activate
0032 00d8 | | Load_Top At_Offset_0
0033 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0034 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0035 00c7 | | Action Elaborate_Subprogram
0036 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0037 00c7 | | Action Elaborate_Subprogram
0038 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0039 00c7 | | Action Elaborate_Subprogram
003a 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call
003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003d 00c7 | | Action Elaborate_Subprogram
003e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
003f 00c7 | | Action Elaborate_Subprogram
0040 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0041 00c7 | | Action Elaborate_Subprogram
0042 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0043 00c7 | | Action Elaborate_Subprogram
0044 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0045 00c7 | | Action Elaborate_Subprogram
0046 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0047 00c7 | | Action Elaborate_Subprogram
0048 BODY_0008:
0048 00bc | | Action Signal_Activated
0049 00bb | | Action Signal_Completion
004a 0000 0000 | | .BLANK 0000[0x6]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 e218 | | Load 0x1,0x18
0054 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0055 4861 |Ha | Short_Literal 0x61
0056 e218 | | Load 0x1,0x18
0057 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0058 c219 | | Store 0x1,0x19
0059 4801 |H | Short_Literal 0x1
005a a215 | | Store_Unchecked 0x1,0x15
005b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
005c 0000 0000 | | .BLANK 0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 e219 | | Load 0x1,0x19
0064 e218 | | Load 0x1,0x18
0065 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0066 c219 | | Store 0x1,0x19
0067 4801 |H | Short_Literal 0x1
0068 a215 | | Store_Unchecked 0x1,0x15
0069 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006a 0000 0000 | | .BLANK 0000[0x6]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0075 | u | .CONST 0x0075 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 e217 | | Load 0x1,0x17
0074 0322 | " | Declare_Variable Record
0075 BODY_0070:
0075 e5ff | | Load 0x2,-0x1
0076 e402 | | Load 0x2,0x2
0077 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0078 e5fe | | Load 0x2,-0x2
0079 0092 0165 | e| Action Push_String_Extended,0x165 ; " "
007b 01cc | | Execute Vector,Catenate
007c e5fd | | Load 0x2,-0x3
007d 01cc | | Execute Vector,Catenate
007e 0092 0165 | e| Action Push_String_Extended,0x165 ; " "
0080 01cc | | Execute Vector,Catenate
0081 e5fc | | Load 0x2,-0x4
0082 01cc | | Execute Vector,Catenate
0083 0092 0165 | e| Action Push_String_Extended,0x165 ; " "
0085 01cc | | Execute Vector,Catenate
0086 e5fb | | Load 0x2,-0x5
0087 01cc | | Execute Vector,Catenate
0088 e003 | | Load 0x0,0x3
0089 e009 | | Load 0x0,0x9
008a 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
008b e402 | | Load 0x2,0x2
008c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
008d e5fa | | Load 0x2,-0x6
008e e402 | | Load 0x2,0x2
008f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0090 e5fa | | Load 0x2,-0x6
0091 0f04 | | Execute_Immediate Equal,0x4
0092 6804 |h | Jump_Zero 0x97
0093 4800 |H | Short_Literal 0x0
0094 e402 | | Load 0x2,0x2
0095 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0096 7809 |x | Jump 0xa0
0097 e5fa | | Load 0x2,-0x6
0098 7004 |p | Jump_Nonzero 0x9d
0099 4802 |H | Short_Literal 0x2
009a e402 | | Load 0x2,0x2
009b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
009c 7803 |x | Jump 0xa0
009d 4801 |H | Short_Literal 0x1
009e e402 | | Load 0x2,0x2
009f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00a0 e219 | | Load 0x1,0x19
00a1 4800 |H | Short_Literal 0x0
00a2 e402 | | Load 0x2,0x2
00a3 e215 | | Load 0x1,0x15
00a4 00d8 | | Load_Top At_Offset_0
00a5 00e4 | | Load_Encached Positive_Cache
00a6 0260 | ` | Execute Discrete,In_Type
00a7 7001 |p | Jump_Nonzero 0xa9
00a8 0801 | | Execute_Immediate Raise,0x1
00a9 e218 | | Load 0x1,0x18
00aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ab c219 | | Store 0x1,0x19
00ac e215 | | Load 0x1,0x15
00ad 0a01 | | Execute_Immediate Plus,0x1
00ae c215 | | Store 0x1,0x15
00af 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4802 |H | Short_Literal 0x2
00b4 e00a | | Load 0x0,0xa
00b5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00b6 0092 0166 | f| Action Push_String_Extended,0x166 ; "Exception conditions in log - may indicate serious problem"
00b8 e00a | | Load 0x0,0xa
00b9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00ba 0092 0167 | g| Action Push_String_Extended,0x167 ; "----------------------------------------------------------"
00bc e00a | | Load 0x0,0xa
00bd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00be 00cf | | Action Mark_Auxiliary
00bf e215 | | Load 0x1,0x15
00c0 0aff | | Execute_Immediate Plus,-0x1
00c1 4801 |H | Short_Literal 0x1
00c2 0263 | c | Execute Discrete,Above_Bound
00c3 7008 |p | Jump_Nonzero 0xcc
00c4 4801 |H | Short_Literal 0x1
00c5 e404 | | Load 0x2,0x4
00c6 e219 | | Load 0x1,0x19
00c7 e218 | | Load 0x1,0x18
00c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c9 821a | | Call 0x1,0x1a
00ca 00c8 | | Action Pop_Auxiliary_Range
00cb 3ff8 |? | Loop_Increasing 0xc4
00cc 00ce | | Action Pop_Auxiliary
00cd 4802 |H | Short_Literal 0x2
00ce e00a | | Load 0x0,0xa
00cf 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00d0 0092 0168 | h| Action Push_String_Extended,0x168 ; "Operations on Users"
00d2 e00a | | Load 0x0,0xa
00d3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00d4 0092 0169 | i| Action Push_String_Extended,0x169 ; "-------------------"
00d6 e00a | | Load 0x0,0xa
00d7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00d8 00cf | | Action Mark_Auxiliary
00d9 e215 | | Load 0x1,0x15
00da 0aff | | Execute_Immediate Plus,-0x1
00db 4801 |H | Short_Literal 0x1
00dc 0263 | c | Execute Discrete,Above_Bound
00dd 7008 |p | Jump_Nonzero 0xe6
00de 4800 |H | Short_Literal 0x0
00df e404 | | Load 0x2,0x4
00e0 e219 | | Load 0x1,0x19
00e1 e218 | | Load 0x1,0x18
00e2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00e3 821a | | Call 0x1,0x1a
00e4 00c8 | | Action Pop_Auxiliary_Range
00e5 3ff8 |? | Loop_Increasing 0xde
00e6 00ce | | Action Pop_Auxiliary
00e7 4802 |H | Short_Literal 0x2
00e8 e00a | | Load 0x0,0xa
00e9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00ea 0092 016a | j| Action Push_String_Extended,0x16a ; "Other Events"
00ec e00a | | Load 0x0,0xa
00ed 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00ee 0092 016b | k| Action Push_String_Extended,0x16b ; "------------"
00f0 e00a | | Load 0x0,0xa
00f1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00f2 00cf | | Action Mark_Auxiliary
00f3 e215 | | Load 0x1,0x15
00f4 0aff | | Execute_Immediate Plus,-0x1
00f5 4801 |H | Short_Literal 0x1
00f6 0263 | c | Execute Discrete,Above_Bound
00f7 7008 |p | Jump_Nonzero 0x100
00f8 4803 |H | Short_Literal 0x3
00f9 e404 | | Load 0x2,0x4
00fa e219 | | Load 0x1,0x19
00fb e218 | | Load 0x1,0x18
00fc 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00fd 821a | | Call 0x1,0x1a
00fe 00c8 | | Action Pop_Auxiliary_Range
00ff 3ff8 |? | Loop_Increasing 0xf8
0100 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0101 0000 0000 | | .BLANK 0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 4801 |H | Short_Literal 0x1
010c a5ff | | Store_Unchecked 0x2,-0x1
010d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
010e 0000 0000 | | .XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e5ff | | Load 0x2,-0x1
0114 0a01 | | Execute_Immediate Plus,0x1
0115 c5ff | | Store 0x2,-0x1
0116 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0117 0000 | | .XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e5ff | | Load 0x2,-0x1
011c 00d8 | | Load_Top At_Offset_0
011d 00e3 | | Load_Encached Natural_Cache
011e 0260 | ` | Execute Discrete,In_Type
011f 7001 |p | Jump_Nonzero 0x121
0120 0801 | | Execute_Immediate Raise,0x1
0121 e215 | | Load 0x1,0x15
0122 027b | { | Execute Discrete,Greater_Equal
0123 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012f | / | .CONST 0x012f ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0003 | | .CONST 0x0003 ; Number of locals
012b INIT_0128:
012b e00b | | Load 0x0,0xb
012c 0322 | " | Declare_Variable Record
012d e217 | | Load 0x1,0x17
012e 0322 | " | Declare_Variable Record
012f BODY_0128:
012f e5ff | | Load 0x2,-0x1
0130 00d8 | | Load_Top At_Offset_0
0131 00e4 | | Load_Encached Positive_Cache
0132 0260 | ` | Execute Discrete,In_Type
0133 7001 |p | Jump_Nonzero 0x135
0134 0801 | | Execute_Immediate Raise,0x1
0135 e219 | | Load 0x1,0x19
0136 e218 | | Load 0x1,0x18
0137 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0138 e403 | | Load 0x2,0x3
0139 017d | } | Execute Record,Structure_Write
013a 00d8 | | Load_Top At_Offset_0
013b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
013c e402 | | Load 0x2,0x2
013d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
013e 00d8 | | Load_Top At_Offset_0
013f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0140 e402 | | Load 0x2,0x2
0141 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0142 e402 | | Load 0x2,0x2
0143 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0144 e403 | | Load 0x2,0x3
0145 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0146 e402 | | Load 0x2,0x2
0147 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b e5ff | | Load 0x2,-0x1
014c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014d 0000 0000 | | .XXX[0x3]
014f 0000 | |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 e5ff | | Load 0x2,-0x1
0154 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0155 e5fe | | Load 0x2,-0x2
0156 027f | | Execute Discrete,Equal
0157 680c |h | Jump_Zero 0x164
0158 e5ff | | Load 0x2,-0x1
0159 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
015a 800c | | Call 0x0,0xc
015b 0092 0165 | e| Action Push_String_Extended,0x165 ; " "
015d 01cc | | Execute Vector,Catenate
015e e5ff | | Load 0x2,-0x1
015f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0160 0217 | | Execute Heap_Access,All_Reference
0161 01cc | | Execute Vector,Catenate
0162 e00a | | Load 0x0,0xa
0163 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0164 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0165 ; --------------------------------------------------------------------------------------
0165 ; STRING TABLE
0165 ; --------------------------------------------------------------------------------------
0165 0010 | | .STRTAB 0x0010->0x016d ; " "
0166 000f | | .STRTAB 0x000f->0x016d ; "Exception conditions in log - may indicate serious problem"
0167 0047 | G | .STRTAB 0x0047->0x018a ; "----------------------------------------------------------"
0168 007f | | .STRTAB 0x007f->0x01a7 ; "Operations on Users"
0169 0090 | | .STRTAB 0x0090->0x01b1 ; "-------------------"
016a 00a1 | | .STRTAB 0x00a1->0x01ba ; "Other Events"
016b 00ab | | .STRTAB 0x00ab->0x01c0 ; "------------"
016c 00b5 | | .STREND 0x00b5->0x01c6
016d 2045 7863 | Exc| .STRTAB_STRINGS
01c7 0000 | | .XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9c88,0x0000,0x0001,0x0000
01ce 0000 0000 | | .BLANK 0000[0x32]