|
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_779ce4
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 0025 | % | .CONST 0x0025 ; Address of begin
0009 0028 | ( | .CONST 0x0028 ; Address of exception handler
000a 0008 | | .CONST 0x0008 ; Number of locals
000b INIT_0008:
000b e005 | | Load 0x0,0x5
000c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
000d 02c7 | | Declare_Variable Any
000e 00d8 | | Load_Top At_Offset_0
000f 1c00 | | Execute_Immediate Run_Utility,0x0
0010 e005 | | Load 0x0,0x5
0011 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0012 02c7 | | Declare_Variable Any
0013 00d8 | | Load_Top At_Offset_0
0014 1c00 | | Execute_Immediate Run_Utility,0x0
0015 4801 |H | Short_Literal 0x1
0016 4864 |Hd | Short_Literal 0x64
0017 e016 | | Load 0x0,0x16
0018 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0019 035b | [ | Declare_Type Array,Constrained
001a 0337 | 7 | Declare_Variable Array
001b 00e2 | | Load_Encached Integer_Cache
001c e006 | | Load 0x0,0x6
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 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call
0023 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
0025 BODY_0008:
0025 8407 | | Call 0x2,0x7
0026 8408 | | Call 0x2,0x8
0027 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0028 TRAP_0008:
0028 e214 | | Load 0x1,0x14
0029 010f | | Execute Exception,Equal
002a 6802 |h | Jump_Zero 0x2d
002b 00d8 | | Load_Top At_Offset_0
002c 0101 | | Execute Exception,Reraise
002d 8218 | | Call 0x1,0x18
002e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
002f 0000 | | .XXX[0x1]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 003b | ; | .CONST 0x003b ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 e406 | | Load 0x2,0x6
0034 00ea | | Load_Encached Null_String_Cache
0035 e5ff | | Load 0x2,-0x1
0036 4800 |H | Short_Literal 0x0
0037 e006 | | Load 0x0,0x6
0038 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0039 c406 | | Store 0x2,0x6
003a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
003b TRAP_0030:
003b 0007 | | Action Break_Optional
003c 0092 00c4 | | Action Push_String_Extended,0xc4 ; "Cannot open "
003e e5ff | | Load 0x2,-0x1
003f 01cc | | Execute Vector,Catenate
0040 0092 00c5 | | Action Push_String_Extended,0xc5 ; " for input"
0042 01cc | | Execute Vector,Catenate
0043 8219 | | Call 0x1,0x19
0044 01cc | | Execute Vector,Catenate
0045 8217 | | Call 0x1,0x17
0046 00cc | | Action Pop_Block
0047 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0051 | Q | .CONST 0x0051 ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0004 | | .CONST 0x0004 ; Number of locals
004b INIT_0048:
004b e406 | | Load 0x2,0x6
004c e006 | | Load 0x0,0x6
004d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
004e e002 | | Load 0x0,0x2
004f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0050 00e3 | | Load_Encached Natural_Cache
0051 BODY_0048:
0051 e406 | | Load 0x2,0x6
0052 e006 | | Load 0x0,0x6
0053 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0054 c406 | | Store 0x2,0x6
0055 e5fe | | Load 0x2,-0x2
0056 01db | | Execute Vector,Length
0057 6807 |h | Jump_Zero 0x5f
0058 4800 |H | Short_Literal 0x0
0059 0092 00c6 | | Action Push_String_Extended,0xc6 ; "Keys.End_Logging"
005b e5fe | | Load 0x2,-0x2
005c e00a | | Load 0x0,0xa
005d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
005e 180d | | Execute Package,Field_Execute,Field_Number 0xd
005f e403 | | Load 0x2,0x3
0060 4800 |H | Short_Literal 0x0
0061 e005 | | Load 0x0,0x5
0062 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0063 4800 |H | Short_Literal 0x0
0064 605b |`[ | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000}
0065 e005 | | Load 0x0,0x5
0066 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0067 e215 | | Load 0x1,0x15
0068 4804 |H | Short_Literal 0x4
0069 e005 | | Load 0x0,0x5
006a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
006b c403 | | Store 0x2,0x3
006c e403 | | Load 0x2,0x3
006d 6052 |`R | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000}
006e e005 | | Load 0x0,0x5
006f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0070 c403 | | Store 0x2,0x3
0071 e403 | | Load 0x2,0x3
0072 604d |`M | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000}
0073 e005 | | Load 0x0,0x5
0074 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0075 4800 |H | Short_Literal 0x0
0076 e215 | | Load 0x1,0x15
0077 4803 |H | Short_Literal 0x3
0078 e005 | | Load 0x0,0x5
0079 181b | | Execute Package,Field_Execute,Field_Number 0x1b
007a c403 | | Store 0x2,0x3
007b e402 | | Load 0x2,0x2
007c 6043 |`C | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000}
007d e005 | | Load 0x0,0x5
007e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007f 4800 |H | Short_Literal 0x0
0080 e215 | | Load 0x1,0x15
0081 4801 |H | Short_Literal 0x1
0082 e005 | | Load 0x0,0x5
0083 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0084 c402 | | Store 0x2,0x2
0085 e403 | | Load 0x2,0x3
0086 6035 |`5 | Indirect_Literal Discrete,0xbc,{0x00007fff, 0xffffffff}
0087 e002 | | Load 0x0,0x2
0088 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0089 e002 | | Load 0x0,0x2
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b 00d9 | | Load_Top At_Offset_1
008c 00d0 | | Action Swap_Control
008d 0260 | ` | Execute Discrete,In_Type
008e 7001 |p | Jump_Nonzero 0x90
008f 0801 | | Execute_Immediate Raise,0x1
0090 e216 | | Load 0x1,0x16
0091 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0092 c403 | | Store 0x2,0x3
0093 e403 | | Load 0x2,0x3
0094 602b |`+ | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000}
0095 e005 | | Load 0x0,0x5
0096 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0097 c403 | | Store 0x2,0x3
0098 e402 | | Load 0x2,0x2
0099 e005 | | Load 0x0,0x5
009a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
009b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
009c 00da | | Load_Top At_Offset_2
009d e00a | | Load 0x0,0xa
009e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
009f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a0 e002 | | Load 0x0,0x2
00a1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a2 e017 | | Load 0x0,0x17
00a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a4 00cf | | Action Mark_Auxiliary
00a5 7803 |x | Jump 0xa9
00a6 6011 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00010000}
00a7 00ba | | Action Initiate_Delay
00a8 00c9 | | Action Pop_Auxiliary_Loop
00a9 e402 | | Load 0x2,0x2
00aa e005 | | Load 0x0,0x5
00ab 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00ac 00da | | Load_Top At_Offset_2
00ad 027a | z | Execute Discrete,Less_Equal
00ae 77f7 |w | Jump_Nonzero 0xa6
00af 00ce | | Action Pop_Auxiliary
00b0 e402 | | Load 0x2,0x2
00b1 600e |` | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000}
00b2 e005 | | Load 0x0,0x5
00b3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00b4 c402 | | Store 0x2,0x2
00b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b6 0000 0000 | | .XXX[0x2]
00b8 0000 0000 | | .LITERAL {0x00000000, 0x00010000}
00bc 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
00c0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00c4 ; --------------------------------------------------------------------------------------
00c4 ; STRING TABLE
00c4 ; --------------------------------------------------------------------------------------
00c4 0008 | | .STRTAB 0x0008->0x00c8 ; "Cannot open "
00c5 0012 | | .STRTAB 0x0012->0x00ce ; " for input"
00c6 001a | | .STRTAB 0x001a->0x00d3 ; "Keys.End_Logging"
00c7 0028 | ( | .STREND 0x0028->0x00db
00c8 4361 6e6e |Cann| .STRTAB_STRINGS
00db 0000 0000 | | .BLANK 0000[0x5]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x8623,0x0000,0x0001,0x0000
00e6 0000 0000 | | .BLANK 0000[0x11a]