|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0524d2
└─⟦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 5900 |Y | .CONST 0x5900 ; 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 0000 | | .CONST 0x0000 ; 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 0021 | ! | .CONST 0x0021 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0004 | | .CONST 0x0004 ; Number of locals
001b INIT_0018:
001b 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call
001d 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
001f 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0021 BODY_0018:
0021 8402 | | Call 0x2,0x2
0022 00cf | | Action Mark_Auxiliary
0023 8404 | | Call 0x2,0x4
0024 00c9 | | Action Pop_Auxiliary_Loop
0025 7ffd | | Jump 0x23
0026 00ce | | Action Pop_Auxiliary
0027 8403 | | Call 0x2,0x3
0028 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0029 0000 0000 | | .BLANK 0000[0x7]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 e002 | | Load 0x0,0x2
0034 0337 | 7 | Declare_Variable Array
0035 4809 |H | Short_Literal 0x9
0036 4800 |H | Short_Literal 0x0
0037 00da | | Load_Top At_Offset_2
0038 01d6 | | Execute Vector,Field_Write
0039 4805 |H | Short_Literal 0x5
003a 4801 |H | Short_Literal 0x1
003b 00da | | Load_Top At_Offset_2
003c 01d6 | | Execute Vector,Field_Write
003d e002 | | Load 0x0,0x2
003e 01c3 | | Execute Vector,Check_In_Type
003f 8003 | | Call 0x0,0x3
0040 e002 | | Load 0x0,0x2
0041 0337 | 7 | Declare_Variable Array
0042 480a |H | Short_Literal 0xa
0043 4800 |H | Short_Literal 0x0
0044 00da | | Load_Top At_Offset_2
0045 01d6 | | Execute Vector,Field_Write
0046 4804 |H | Short_Literal 0x4
0047 4801 |H | Short_Literal 0x1
0048 00da | | Load_Top At_Offset_2
0049 01d6 | | Execute Vector,Field_Write
004a e002 | | Load 0x0,0x2
004b 01c3 | | Execute Vector,Check_In_Type
004c 8003 | | Call 0x0,0x3
004d e002 | | Load 0x0,0x2
004e 0337 | 7 | Declare_Variable Array
004f 480a |H | Short_Literal 0xa
0050 4800 |H | Short_Literal 0x0
0051 00da | | Load_Top At_Offset_2
0052 01d6 | | Execute Vector,Field_Write
0053 4805 |H | Short_Literal 0x5
0054 4801 |H | Short_Literal 0x1
0055 00da | | Load_Top At_Offset_2
0056 01d6 | | Execute Vector,Field_Write
0057 e002 | | Load 0x0,0x2
0058 01c3 | | Execute Vector,Check_In_Type
0059 8003 | | Call 0x0,0x3
005a e002 | | Load 0x0,0x2
005b 0337 | 7 | Declare_Variable Array
005c 4808 |H | Short_Literal 0x8
005d 4800 |H | Short_Literal 0x0
005e 00da | | Load_Top At_Offset_2
005f 01d6 | | Execute Vector,Field_Write
0060 4805 |H | Short_Literal 0x5
0061 4801 |H | Short_Literal 0x1
0062 00da | | Load_Top At_Offset_2
0063 01d6 | | Execute Vector,Field_Write
0064 e002 | | Load 0x0,0x2
0065 01c3 | | Execute Vector,Check_In_Type
0066 8003 | | Call 0x0,0x3
0067 e002 | | Load 0x0,0x2
0068 0337 | 7 | Declare_Variable Array
0069 4809 |H | Short_Literal 0x9
006a 4800 |H | Short_Literal 0x0
006b 00da | | Load_Top At_Offset_2
006c 01d6 | | Execute Vector,Field_Write
006d 4804 |H | Short_Literal 0x4
006e 4801 |H | Short_Literal 0x1
006f 00da | | Load_Top At_Offset_2
0070 01d6 | | Execute Vector,Field_Write
0071 e002 | | Load 0x0,0x2
0072 01c3 | | Execute Vector,Check_In_Type
0073 8003 | | Call 0x0,0x3
0074 e004 | | Load 0x0,0x4
0075 0337 | 7 | Declare_Variable Array
0076 4832 |H2 | Short_Literal 0x32
0077 4801 |H | Short_Literal 0x1
0078 00da | | Load_Top At_Offset_2
0079 01d6 | | Execute Vector,Field_Write
007a 4808 |H | Short_Literal 0x8
007b 4800 |H | Short_Literal 0x0
007c 00da | | Load_Top At_Offset_2
007d 01d6 | | Execute Vector,Field_Write
007e 4806 |H | Short_Literal 0x6
007f 4802 |H | Short_Literal 0x2
0080 00da | | Load_Top At_Offset_2
0081 01d6 | | Execute Vector,Field_Write
0082 e004 | | Load 0x0,0x4
0083 01c3 | | Execute Vector,Check_In_Type
0084 8005 | | Call 0x0,0x5
0085 e004 | | Load 0x0,0x4
0086 0337 | 7 | Declare_Variable Array
0087 484b |HK | Short_Literal 0x4b
0088 4801 |H | Short_Literal 0x1
0089 00da | | Load_Top At_Offset_2
008a 01d6 | | Execute Vector,Field_Write
008b 4809 |H | Short_Literal 0x9
008c 4800 |H | Short_Literal 0x0
008d 00da | | Load_Top At_Offset_2
008e 01d6 | | Execute Vector,Field_Write
008f 4806 |H | Short_Literal 0x6
0090 4802 |H | Short_Literal 0x2
0091 00da | | Load_Top At_Offset_2
0092 01d6 | | Execute Vector,Field_Write
0093 e004 | | Load 0x0,0x4
0094 01c3 | | Execute Vector,Check_In_Type
0095 8005 | | Call 0x0,0x5
0096 e004 | | Load 0x0,0x4
0097 0337 | 7 | Declare_Variable Array
0098 485f |H_ | Short_Literal 0x5f
0099 4801 |H | Short_Literal 0x1
009a 00da | | Load_Top At_Offset_2
009b 01d6 | | Execute Vector,Field_Write
009c 480a |H | Short_Literal 0xa
009d 4800 |H | Short_Literal 0x0
009e 00da | | Load_Top At_Offset_2
009f 01d6 | | Execute Vector,Field_Write
00a0 4806 |H | Short_Literal 0x6
00a1 4802 |H | Short_Literal 0x2
00a2 00da | | Load_Top At_Offset_2
00a3 01d6 | | Execute Vector,Field_Write
00a4 e004 | | Load 0x0,0x4
00a5 01c3 | | Execute Vector,Check_In_Type
00a6 8005 | | Call 0x0,0x5
00a7 e004 | | Load 0x0,0x4
00a8 0337 | 7 | Declare_Variable Array
00a9 4864 |Hd | Short_Literal 0x64
00aa 4801 |H | Short_Literal 0x1
00ab 00da | | Load_Top At_Offset_2
00ac 01d6 | | Execute Vector,Field_Write
00ad 4808 |H | Short_Literal 0x8
00ae 4800 |H | Short_Literal 0x0
00af 00da | | Load_Top At_Offset_2
00b0 01d6 | | Execute Vector,Field_Write
00b1 4806 |H | Short_Literal 0x6
00b2 4802 |H | Short_Literal 0x2
00b3 00da | | Load_Top At_Offset_2
00b4 01d6 | | Execute Vector,Field_Write
00b5 e004 | | Load 0x0,0x4
00b6 01c3 | | Execute Vector,Check_In_Type
00b7 8005 | | Call 0x0,0x5
00b8 e006 | | Load 0x0,0x6
00b9 0337 | 7 | Declare_Variable Array
00ba 4aee |J | Short_Literal 0x2ee
00bb 4801 |H | Short_Literal 0x1
00bc 00da | | Load_Top At_Offset_2
00bd 01d6 | | Execute Vector,Field_Write
00be 480a |H | Short_Literal 0xa
00bf 4800 |H | Short_Literal 0x0
00c0 00da | | Load_Top At_Offset_2
00c1 01d6 | | Execute Vector,Field_Write
00c2 4805 |H | Short_Literal 0x5
00c3 4802 |H | Short_Literal 0x2
00c4 00da | | Load_Top At_Offset_2
00c5 01d6 | | Execute Vector,Field_Write
00c6 e006 | | Load 0x0,0x6
00c7 01c3 | | Execute Vector,Check_In_Type
00c8 8007 | | Call 0x0,0x7
00c9 e006 | | Load 0x0,0x6
00ca 0337 | 7 | Declare_Variable Array
00cb 6020 |` | Indirect_Literal Discrete,0xec,{0x00000000, 0x00002710}
00cc 4801 |H | Short_Literal 0x1
00cd 00da | | Load_Top At_Offset_2
00ce 01d6 | | Execute Vector,Field_Write
00cf 4809 |H | Short_Literal 0x9
00d0 4800 |H | Short_Literal 0x0
00d1 00da | | Load_Top At_Offset_2
00d2 01d6 | | Execute Vector,Field_Write
00d3 4805 |H | Short_Literal 0x5
00d4 4802 |H | Short_Literal 0x2
00d5 00da | | Load_Top At_Offset_2
00d6 01d6 | | Execute Vector,Field_Write
00d7 e006 | | Load 0x0,0x6
00d8 01c3 | | Execute Vector,Check_In_Type
00d9 8007 | | Call 0x0,0x7
00da e006 | | Load 0x0,0x6
00db 0337 | 7 | Declare_Variable Array
00dc 4896 |H | Short_Literal 0x96
00dd 4801 |H | Short_Literal 0x1
00de 00da | | Load_Top At_Offset_2
00df 01d6 | | Execute Vector,Field_Write
00e0 480a |H | Short_Literal 0xa
00e1 4800 |H | Short_Literal 0x0
00e2 00da | | Load_Top At_Offset_2
00e3 01d6 | | Execute Vector,Field_Write
00e4 4804 |H | Short_Literal 0x4
00e5 4802 |H | Short_Literal 0x2
00e6 00da | | Load_Top At_Offset_2
00e7 01d6 | | Execute Vector,Field_Write
00e8 e006 | | Load 0x0,0x6
00e9 01c3 | | Execute Vector,Check_In_Type
00ea 8007 | | Call 0x0,0x7
00eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ec 0000 0000 | | .LITERAL {0x00000000, 0x00002710}
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0100 | | .CONST 0x0100 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 4801 |H | Short_Literal 0x1
00f4 4814 |H | Short_Literal 0x14
00f5 e008 | | Load 0x0,0x8
00f6 035b | [ | Declare_Type Array,Constrained
00f7 0337 | 7 | Declare_Variable Array
00f8 4814 |H | Short_Literal 0x14
00f9 4801 |H | Short_Literal 0x1
00fa 8009 | | Call 0x0,0x9
00fb 00d9 | | Load_Top At_Offset_1
00fc e602 | | Load 0x3,0x2
00fd 01d6 | | Execute Vector,Field_Write
00fe 3ffb |? | Loop_Increasing 0xfa
00ff 800a | | Call 0x0,0xa
0100 BODY_00f0:
0100 0092 0126 | &| Action Push_String_Extended,0x126 ; "---> the working memory now contains "
0102 00d9 | | Load_Top At_Offset_1
0103 01db | | Execute Vector,Length
0104 00d8 | | Load_Top At_Offset_0
0105 00e2 | | Load_Encached Integer_Cache
0106 0260 | ` | Execute Discrete,In_Type
0107 7001 |p | Jump_Nonzero 0x109
0108 0801 | | Execute_Immediate Raise,0x1
0109 00e0 | | Load_Encached Standard_Cache
010a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
010b 01cc | | Execute Vector,Catenate
010c 0092 0127 | '| Action Push_String_Extended,0x127 ; " facts"
010e 01cc | | Execute Vector,Catenate
010f e00b | | Load 0x0,0xb
0110 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0111 00d8 | | Load_Top At_Offset_0
0112 800c | | Call 0x0,0xc
0113 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011c | | .CONST 0x011c ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b 800d | | Call 0x0,0xd
011c BODY_0118:
011c 00d8 | | Load_Top At_Offset_0
011d 800e | | Call 0x0,0xe
011e 01de | | Execute Vector,Not_Equal
011f 6804 |h | Jump_Zero 0x124
0120 00d8 | | Load_Top At_Offset_0
0121 800f | | Call 0x0,0xf
0122 8010 | | Call 0x0,0x10
0123 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0124 00cc | | Action Pop_Block
0125 7f00 | | Jump 0x26
0126 ; --------------------------------------------------------------------------------------
0126 ; STRING TABLE
0126 ; --------------------------------------------------------------------------------------
0126 0006 | | .STRTAB 0x0006->0x0129 ; "---> the working memory now contains "
0127 0029 | ) | .STRTAB 0x0029->0x013b ; " facts"
0128 002d | - | .STREND 0x002d->0x013e
0129 2d2d 2d3e |--->| .STRTAB_STRINGS
013f 0000 | | .XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug Table
0140 ; --------------------------------------------------------------------------------------
0140 0004 0004 | | .DEBUG4 0x0004,0x0004,0x55d0,0x0000,0x0001,0x0005
0146 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
014a 001b 015a | Z| .DBG4T 0x001b,0x015a,0x8001,0xc000
014e 0033 0166 | 3 f| .DBG4T 0x0033,0x0166,0x0001,0x0000
0152 00f3 0174 | t| .DBG4T 0x00f3,0x0174,0x0001,0x0000
0156 011b 0179 | y| .DBG4T 0x011b,0x0179,0x0004,0x0000
015a ; --------------------------------------------------------------------------------------
015a ; Debug chain
015a ; --------------------------------------------------------------------------------------
015a 0002 0003 | | .DBGLEN 0x0002,0x0003
015c 001b 001d | | .DBGLNO 0x001b,0x001d,0x0021,0x0023,0x0027
0161 0003 0004 | | .XXX[0x5]
0163 0001 0003 | |
0165 0004 | |
0166 ; --------------------------------------------------------------------------------------
0166 ; Debug chain
0166 ; --------------------------------------------------------------------------------------
0166 0000 000c | | .DBGLEN 0x0000,0x000c
0168 0033 0040 | 3 @| .DBGLNO 0x0033,0x0040,0x004d,0x005a,0x0067,0x0074,0x0085,0x0096,0x00a7,0x00b8,0x00c9,0x00da
0174 ; --------------------------------------------------------------------------------------
0174 ; Debug chain
0174 ; --------------------------------------------------------------------------------------
0174 0001 0002 | | .DBGLEN 0x0001,0x0002
0176 00f3 0100 | | .DBGLNO 0x00f3,0x0100,0x0111
0179 ; --------------------------------------------------------------------------------------
0179 ; Debug chain
0179 ; --------------------------------------------------------------------------------------
0179 0001 0003 | | .DBGLEN 0x0001,0x0003
017b 011b 011c | | .DBGLNO 0x011b,0x011c,0x0120,0x0124
017f 0000 0000 | | .BLANK 0000[0x81]