|
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_03b8fe
└─⟦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 00a0 | | .CONST 0x00a0 ; 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 0013 | | .CONST 0x0013 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 00e5 | | Load_Encached Long_Integer_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 00e5 | | Load_Encached Long_Integer_Cache
0011 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0012 00c7 | | Action Elaborate_Subprogram
0013 BODY_0008:
0013 00bc | | Action Signal_Activated
0014 00bb | | Action Signal_Completion
0015 0000 0000 | | .XXX[0x3]
0017 0000 | |
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 003b | ; | .CONST 0x003b ; Address of begin
0019 0050 | P | .CONST 0x0050 ; Address of exception handler
001a 000b | | .CONST 0x000b ; Number of locals
001b INIT_0018:
001b 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
001d e5fe | | Load 0x2,-0x2
001e 0007 | | Action Break_Optional
001f 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
0021 4801 |H | Short_Literal 0x1
0022 4900 |I | Short_Literal 0x100
0023 00e9 | | Load_Encached String_Cache
0024 0334 | 4 | Declare_Variable Array,With_Constraint
0025 00e2 | | Load_Encached Integer_Cache
0026 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0027 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0029 4800 |H | Short_Literal 0x0
002a 6031 |`1 | Indirect_Literal Discrete,0x5c,{0x00000000, 0x0fffffff}
002b 00e5 | | Load_Encached Long_Integer_Cache
002c 03f8 | | Declare_Type Discrete,Constrained
002d 00d8 | | Load_Top At_Offset_0
002e 0007 | | Action Break_Optional
002f e5ff | | Load 0x2,-0x1
0030 e001 | | Load 0x0,0x1
0031 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0032 e5ff | | Load 0x2,-0x1
0033 e001 | | Load 0x0,0x1
0034 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0035 09fc | | Execute_Immediate Binary_Scale,-0x4
0036 00d8 | | Load_Top At_Offset_0
0037 e409 | | Load 0x2,0x9
0038 0260 | ` | Execute Discrete,In_Type
0039 7001 |p | Jump_Nonzero BODY_0018
003a 08e0 | | Execute_Immediate Raise,0xe0
003b BODY_0018:
003b 4801 |H | Short_Literal 0x1
003c 8404 | | Call 0x2,0x4
003d 6805 |h | Jump_Zero 0x43
003e 485e |H^ | Short_Literal 0x5e
003f e40a | | Load 0x2,0xa
0040 8402 | | Call 0x2,0x2
0041 01ca | | Execute Vector,Prepend
0042 8407 | | Call 0x2,0x7
0043 4810 |H | Short_Literal 0x10
0044 8404 | | Call 0x2,0x4
0045 6805 |h | Jump_Zero 0x4b
0046 485e |H^ | Short_Literal 0x5e
0047 e40b | | Load 0x2,0xb
0048 8402 | | Call 0x2,0x2
0049 01ca | | Execute Vector,Prepend
004a 8407 | | Call 0x2,0x7
004b 4802 |H | Short_Literal 0x2
004c e406 | | Load 0x2,0x6
004d e405 | | Load 0x2,0x5
004e 01cf | | Execute Vector,Slice_Read
004f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0050 TRAP_0018:
0050 0007 | | Action Break_Optional
0051 4820 |H | Short_Literal 0x20
0052 e40a | | Load 0x2,0xa
0053 8402 | | Call 0x2,0x2
0054 01cb | | Execute Vector,Append
0055 e40b | | Load 0x2,0xb
0056 8402 | | Call 0x2,0x2
0057 01cc | | Execute Vector,Catenate
0058 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0059 0000 0000 | | .XXX[0x3]
005b 0000 | |
005c 0000 0000 | | .LITERAL {0x00000000, 0x0fffffff}
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 0092 009c | | Action Push_String_Extended,0x9c ; "#"
0065 4820 |H | Short_Literal 0x20
0066 4800 |H | Short_Literal 0x0
0067 4810 |H | Short_Literal 0x10
0068 e7ff | | Load 0x3,-0x1
0069 e002 | | Load 0x0,0x2
006a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
006b 01cc | | Execute Vector,Catenate
006c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
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 e7ff | | Load 0x3,-0x1
0074 e403 | | Load 0x2,0x3
0075 e003 | | Load 0x0,0x3
0076 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0077 0e00 | | Execute_Immediate Not_Equal,0x0
0078 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0079 0000 0000 | | .BLANK 0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0086 | | .CONST 0x0086 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 e7ff | | Load 0x3,-0x1
0084 01db | | Execute Vector,Length
0085 0007 | | Action Break_Optional
0086 BODY_0080:
0086 e406 | | Load 0x2,0x6
0087 0a01 | | Execute_Immediate Plus,0x1
0088 c406 | | Store 0x2,0x6
0089 4820 |H | Short_Literal 0x20
008a e406 | | Load 0x2,0x6
008b e405 | | Load 0x2,0x5
008c 01d6 | | Execute Vector,Field_Write
008d e7ff | | Load 0x3,-0x1
008e e406 | | Load 0x2,0x6
008f 0a01 | | Execute_Immediate Plus,0x1
0090 0248 | H | Execute Discrete,Check_In_Integer
0091 e406 | | Load 0x2,0x6
0092 e602 | | Load 0x3,0x2
0093 0273 | s | Execute Discrete,Plus
0094 0248 | H | Execute Discrete,Check_In_Integer
0095 e405 | | Load 0x2,0x5
0096 01ce | | Execute Vector,Slice_Write
0097 e406 | | Load 0x2,0x6
0098 e602 | | Load 0x3,0x2
0099 0273 | s | Execute Discrete,Plus
009a c406 | | Store 0x2,0x6
009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009c ; --------------------------------------------------------------------------------------
009c ; STRING TABLE
009c ; --------------------------------------------------------------------------------------
009c 0004 | | .STRTAB 0x0004->0x009e ; "#"
009d 0003 | | .STREND 0x0003->0x009e
009e 2300 |# | .STRTAB_STRINGS
009f 0000 | | .XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; Debug Table
00a0 ; --------------------------------------------------------------------------------------
00a0 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb42,0x0000,0x0001,0x0000
00a6 0008 1bf7 | | .XXX[0xf]
00a8 d005 3350 | 3P|
00aa 0002 3000 | 0 |
00ac 0000 9000 | |
00ae 0779 8000 | y |
00b0 0000 2000 | |
00b2 0000 2009 | |
00b4 8000 | |
00b5 0000 0000 | | .BLANK 0000[0x8]
00bd 0206 fdf4 | | .XXX[0x13]
00bf 014c d400 | L |
00c1 008c 0000 | |
00c3 0024 0001 | $ |
00c5 de60 0000 | ` |
00c7 0008 0000 | |
00c9 0008 0000 | |
00cb 0018 0003 | |
00cd 26f0 045a |& Z|
00cf 4870 |Hp |
00d0 0000 0000 | | .BLANK 0000[0x4]
00d4 0215 b604 | | .XXX[0xd]
00d6 0000 28d5 | ( |
00d8 9fc8 1384 | |
00da 4000 0000 |@ |
00dc 040f e409 | |
00de c220 0000 | |
00e0 0002 | |
00e1 0000 0000 | | .BLANK 0000[0x5]
00e6 4508 8500 |E | .XXX[0xa]
00e8 0000 4000 | @ |
00ea 450c 8500 |E |
00ec 0000 4000 | @ |
00ee 0600 9800 | |
00f0 0000 0000 | | .BLANK 0000[0x4]
00f4 1143 2140 | C!@| .XXX[0x12]
00f6 0000 1007 | |
00f8 f204 e110 | |
00fa 0000 0001 | |
00fc 0000 0000 | |
00fe 9000 0530 | 0|
0100 8000 0000 | |
0102 2000 0000 | |
0104 4001 8026 |@ &|
0106 0000 0000 | | .BLANK 0000[0x8]
010e 0205 7198 | q | .XXX[0x13]
0110 6ffe 0800 |o |
0112 0040 0000 | @ |
0114 0024 0001 | $ |
0116 4c20 0000 |L |
0118 0008 0000 | |
011a 0010 0000 | |
011c 0018 0002 | |
011e 31b0 042b |1 +|
0120 69f0 |i |
0121 0000 0000 | | .BLANK 0000[0x4]
0125 0215 ca44 | D| .XXX[0xe]
0127 0000 b00d | |
0129 2065 e17c | e ||
012b 4f33 8000 |O3 |
012d 0150 32f0 | P2 |
012f d22a 4700 | *G |
0131 0000 a000 | |
0133 0000 0000 | | .BLANK 0000[0xc]
013f 0203 0802 | | .XXX[0x19]
0141 2091 8000 | |
0143 0000 0000 | |
0145 2062 2160 | b!`|
0147 0000 1008 | |
0149 1978 5f13 | x_ |
014b fef0 0000 | |
014d 5000 0000 |P |
014f 9000 05ff | |
0151 e000 0000 | |
0153 2000 0000 | |
0155 2001 80c6 | |
0157 0088 | |
0158 0000 0000 | | .BLANK 0000[0x7]
015f 0206 5e17 | ^ | .XXX[0x25]
0161 c4ff bc00 | |
0163 0014 0000 | |
0165 0024 0001 | $ |
0167 7ff8 0000 | |
0169 0008 0000 | |
016b 0008 0000 | |
016d 0018 0002 | |
016f 9048 042b | H +|
0171 9270 042b | p +|
0173 8d68 042b | h +|
0175 de68 0215 | h |
0177 de84 0000 | |
0179 c612 2036 | 6|
017b 55ac a000 |U |
017d 0000 0150 | P|
017f 1b2a d650 | * P|
0181 0000 0000 | |
0183 a000 | |
0184 0000 0000 | | .BLANK 0000[0x4]
0188 a5e2 8580 | | .XXX[0x9]
018a 0000 4000 | @ |
018c a5e4 8580 | |
018e 0000 4000 | @ |
0190 2600 |& |
0191 0000 0000 | | .BLANK 0000[0x5]
0196 2979 2160 |)y!`| .XXX[0x9]
0198 0000 1008 | |
019a 0d95 6b28 | k(|
019c 0000 0000 | |
019e 5000 |P |
019f 0000 0000 | | .BLANK 0000[0x5]
01a4 2000 0000 | | .XXX[0x4]
01a6 0009 8000 | |
01a8 0000 0000 | | .BLANK 0000[0x8]
01b0 0206 5e33 | ^3| .XXX[0x5]
01b2 ae31 4000 | 1@ |
01b4 0014 | |
01b5 0000 0000 | | .BLANK 0000[0x5]
01ba 0008 0000 | | .XXX[0x9]
01bc 0000 0000 | |
01be 0018 0002 | |
01c0 afd0 042b | +|
01c2 baf0 | |
01c3 0000 0000 | | .BLANK 0000[0x4]
01c7 0215 f2c5 | | .XXX[0x1b]
01c9 8000 0369 | i|
01cb 206f df40 | o @|
01cd 20d1 8000 | |
01cf 08d0 37ef | 7 |
01d1 ac08 25e0 | % |
01d3 0004 6080 | ` |
01d5 0000 0000 | |
01d7 0000 0001 | |
01d9 9d04 8580 | |
01db 0000 4001 | @ |
01dd 9d06 8580 | |
01df 0000 4000 | @ |
01e1 2600 |& |
01e2 0000 0000 | | .BLANK 0000[0x8]
01ea 0008 1bf7 | | .XXX[0xf]
01ec d00a 0380 | |
01ee 0002 3000 | 0 |
01f0 0000 9000 | |
01f2 072a a000 | * |
01f4 0000 2000 | |
01f6 0000 4009 | @ |
01f8 8000 | |
01f9 0000 0000 | | .BLANK 0000[0x7]