|
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
└─ ⟦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 0128 | ( | .CONST 0x0128 ; 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 0044 | D | .CONST 0x0044 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b 4804 |H | Short_Literal 0x4
000c 02cb | | Declare_Variable Entry
000d 4800 |H | Short_Literal 0x0
000e 02cb | | Declare_Variable Entry
000f 4800 |H | Short_Literal 0x0
0010 02cb | | Declare_Variable Entry
0011 00bf | | Action Accept_Activation
0012 0093 0000 | | push_full_address 0x0
0014 604b |`K | Indirect_Literal Discrete,0x60,{0x80000000, 0x00010000}
0015 0273 | s | Execute Discrete,Plus
0016 0007 | | Action Break_Optional
0017 e001 | | Load 0x0,0x1
0018 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0019 02c7 | | Declare_Variable Any
001a 00d8 | | Load_Top At_Offset_0
001b 1c00 | | Execute_Immediate Run_Utility,0x0
001c e001 | | Load 0x0,0x1
001d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
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 0322 | " | Declare_Variable Record
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 e003 | | Load 0x0,0x3
0026 0322 | " | Declare_Variable Record
0027 e004 | | Load 0x0,0x4
0028 0322 | " | Declare_Variable Record
0029 00d8 | | Load_Top At_Offset_0
002a 1c00 | | Execute_Immediate Run_Utility,0x0
002b e005 | | Load 0x0,0x5
002c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002d e005 | | Load 0x0,0x5
002e 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
002f 02c7 | | Declare_Variable Any
0030 00d8 | | Load_Top At_Offset_0
0031 1c00 | | Execute_Immediate Run_Utility,0x0
0032 e005 | | Load 0x0,0x5
0033 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0034 02c7 | | Declare_Variable Any
0035 00d8 | | Load_Top At_Offset_0
0036 1c00 | | Execute_Immediate Run_Utility,0x0
0037 e005 | | Load 0x0,0x5
0038 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0039 00e1 | | Load_Encached Boolean_Cache
003a 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
003b 00e3 | | Load_Encached Natural_Cache
003c 029d 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call
003e 480e |H | Short_Literal 0xe
003f 0299 006b | k| Declare_Subprogram INIT_0068,For_Accept
0041 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
0043 00bc | | Action Signal_Activated
0044 BODY_0008:
0044 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0045 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0046 0137 | 7 | Execute Entry,Rendezvous
0047 00cf | | Action Mark_Auxiliary
0048 7802 |x | Jump 0x4b
0049 821e | | Call 0x1,0x1e
004a 00c9 | | Action Pop_Auxiliary_Loop
004b e21a | | Load 0x1,0x1a
004c 77fc |w | Jump_Nonzero 0x49
004d 00ce | | Action Pop_Auxiliary
004e 00bb | | Action Signal_Completion
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0056 | V | .CONST 0x0056 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 8006 | | Call 0x0,0x6
0055 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0056 TRAP_0050:
0056 e007 | | Load 0x0,0x7
0057 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0058 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0059 010f | | Execute Exception,Equal
005a 6802 |h | Jump_Zero 0x5d
005b e008 | | Load 0x0,0x8
005c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005d 0100 | | Execute Exception,Raise
005e 0000 0000 | | .XXX[0x2]
0060 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0064 0000 0000 | | .BLANK 0000[0x4]
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 4100 |A | End_Rendezvous 0x0
006c 0000 0000 | | .BLANK 0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007c | | | .CONST 0x007c ; Address of begin
0071 0085 | | .CONST 0x0085 ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 480f 4812 |H H | Declare_Variable Select 0x000, 0x002,
0075 480d 4813 |H H | [0x000]: 0x000 = 0x0000,
0077 4800 4800 |H H | [0x00d]: 0x013 = 0x0098,
0079 4800 4802 |H H | [0x00f]: 0x012 = 0x0090
007b 02cf | |
007c BODY_0070:
007c 00cf | | Action Mark_Auxiliary
007d 7804 |x | Jump 0x82
007e 00d9 | | Load_Top At_Offset_1
007f 013f | ? | Execute Select,Rendezvous
0080 00d1 | | Pop_Control Pop_Count_1
0081 00c9 | | Action Pop_Auxiliary_Loop
0082 e21a | | Load 0x1,0x1a
0083 77fa |w | Jump_Nonzero 0x7e
0084 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0085 TRAP_0070:
0085 e210 | | Load 0x1,0x10
0086 010f | | Execute Exception,Equal
0087 6802 |h | Jump_Zero 0x8a
0088 00cc | | Action Pop_Block
0089 7fc3 | | Jump 0x4d
008a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008b 0000 0000 | | .BLANK 0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; See instruction 0x02cf at 0x73, index=0xf
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 4800 |H | Short_Literal 0x0
0094 a21a | | Store_Unchecked 0x1,0x1a
0095 4100 |A | End_Rendezvous 0x0
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; See instruction 0x02cf at 0x73, index=0xd
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b e7fc | | Load 0x3,-0x4
009c 6814 |h | Jump_Zero 0xb1
009d 4800 |H | Short_Literal 0x0
009e a7fb | | Store_Unchecked 0x3,-0x5
009f e211 | | Load 0x1,0x11
00a0 4801 |H | Short_Literal 0x1
00a1 e7fd | | Load 0x3,-0x3
00a2 8009 | | Call 0x0,0x9
00a3 e7fe | | Load 0x3,-0x2
00a4 800a | | Call 0x0,0xa
00a5 e7fe | | Load 0x3,-0x2
00a6 e7fd | | Load 0x3,-0x3
00a7 800b | | Call 0x0,0xb
00a8 e7fd | | Load 0x3,-0x3
00a9 821c | | Call 0x1,0x1c
00aa e7fd | | Load 0x3,-0x3
00ab 800c | | Call 0x0,0xc
00ac e7fe | | Load 0x3,-0x2
00ad 800d | | Call 0x0,0xd
00ae 800e | | Call 0x0,0xe
00af c211 | | Store 0x1,0x11
00b0 4101 |A | End_Rendezvous 0x1
00b1 e211 | | Load 0x1,0x11
00b2 4800 |H | Short_Literal 0x0
00b3 e7fd | | Load 0x3,-0x3
00b4 8009 | | Call 0x0,0x9
00b5 e7fe | | Load 0x3,-0x2
00b6 800a | | Call 0x0,0xa
00b7 e7fe | | Load 0x3,-0x2
00b8 e7fd | | Load 0x3,-0x3
00b9 800b | | Call 0x0,0xb
00ba e7fd | | Load 0x3,-0x3
00bb 821c | | Call 0x1,0x1c
00bc e7fd | | Load 0x3,-0x3
00bd 800c | | Call 0x0,0xc
00be e7fe | | Load 0x3,-0x2
00bf 800d | | Call 0x0,0xd
00c0 800e | | Call 0x0,0xe
00c1 c211 | | Store 0x1,0x11
00c2 4802 |H | Short_Literal 0x2
00c3 e211 | | Load 0x1,0x11
00c4 e001 | | Load 0x0,0x1
00c5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c6 6803 |h | Jump_Zero 0xca
00c7 4800 |H | Short_Literal 0x0
00c8 a7fb | | Store_Unchecked 0x3,-0x5
00c9 4101 |A | End_Rendezvous 0x1
00ca 4801 |H | Short_Literal 0x1
00cb a7fb | | Store_Unchecked 0x3,-0x5
00cc e212 | | Load 0x1,0x12
00cd e00f | | Load 0x0,0xf
00ce 00e3 | | Load_Encached Natural_Cache
00cf e005 | | Load 0x0,0x5
00d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d1 00e1 | | Load_Encached Boolean_Cache
00d2 e218 | | Load 0x1,0x18
00d3 0120 | | Execute Any,Is_Value
00d4 6803 |h | Jump_Zero 0xd8
00d5 e005 | | Load 0x0,0x5
00d6 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00d7 7801 |x | Jump 0xd9
00d8 e218 | | Load 0x1,0x18
00d9 00e3 | | Load_Encached Natural_Cache
00da e217 | | Load 0x1,0x17
00db 0120 | | Execute Any,Is_Value
00dc 6803 |h | Jump_Zero 0xe0
00dd e005 | | Load 0x0,0x5
00de 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00df 7801 |x | Jump 0xe1
00e0 e217 | | Load 0x1,0x17
00e1 e005 | | Load 0x0,0x5
00e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e3 e010 | | Load 0x0,0x10
00e4 e214 | | Load 0x1,0x14
00e5 e215 | | Load 0x1,0x15
00e6 4801 |H | Short_Literal 0x1
00e7 e7fe | | Load 0x3,-0x2
00e8 8011 | | Call 0x0,0x11
00e9 00d2 | | Pop_Control Pop_Count_2
00ea e213 | | Load 0x1,0x13
00eb 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00ec c216 | | Store 0x1,0x16
00ed c217 | | Store 0x1,0x17
00ee e213 | | Load 0x1,0x13
00ef 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
00f0 c218 | | Store 0x1,0x18
00f1 e213 | | Load 0x1,0x13
00f2 380c |8 | Execute Record,Field_Write,Field_Number 0xc
00f3 c219 | | Store 0x1,0x19
00f4 c21b | | Store 0x1,0x1b
00f5 e213 | | Load 0x1,0x13
00f6 380b |8 | Execute Record,Field_Write,Field_Number 0xb
00f7 c212 | | Store 0x1,0x12
00f8 e21b | | Load 0x1,0x1b
00f9 e213 | | Load 0x1,0x13
00fa 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00fb e216 | | Load 0x1,0x16
00fc 8012 | | Call 0x0,0x12
00fd e213 | | Load 0x1,0x13
00fe 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
00ff e217 | | Load 0x1,0x17
0100 8013 | | Call 0x0,0x13
0101 e213 | | Load 0x1,0x13
0102 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0103 e218 | | Load 0x1,0x18
0104 8013 | | Call 0x0,0x13
0105 e213 | | Load 0x1,0x13
0106 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0107 e219 | | Load 0x1,0x19
0108 8012 | | Call 0x0,0x12
0109 e213 | | Load 0x1,0x13
010a 380a |8 | Execute Record,Field_Write,Field_Number 0xa
010b e7fd | | Load 0x3,-0x3
010c 821c | | Call 0x1,0x1c
010d e213 | | Load 0x1,0x13
010e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
010f e7fd | | Load 0x3,-0x3
0110 821c | | Call 0x1,0x1c
0111 8014 | | Call 0x0,0x14
0112 e213 | | Load 0x1,0x13
0113 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0114 e7fd | | Load 0x3,-0x3
0115 800b | | Call 0x0,0xb
0116 e213 | | Load 0x1,0x13
0117 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0118 e7fd | | Load 0x3,-0x3
0119 800c | | Call 0x0,0xc
011a e213 | | Load 0x1,0x13
011b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
011c e213 | | Load 0x1,0x13
011d 4801 |H | Short_Literal 0x1
011e e7fe | | Load 0x3,-0x2
011f 8015 | | Call 0x0,0x15
0120 8016 | | Call 0x0,0x16
0121 4101 |A | End_Rendezvous 0x1
0122 0000 0000 | | .BLANK 0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug Table
0128 ; --------------------------------------------------------------------------------------
0128 0004 000c | | .DEBUG4 0x0004,0x000c,0xecf5,0x0000,0x0001,0x0000
012e 0000 0000 | | .BLANK 0000[0xd2]