|
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_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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0130 | 0 | .CONST 0x0130 ; 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 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 005e | ^ | .CONST 0x005e ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0016 | | .CONST 0x0016 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001d 02c7 | | Declare_Variable Any
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e002 | | Load 0x0,0x2
0021 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0022 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0023 02c7 | | Declare_Variable Any
0024 00d8 | | Load_Top At_Offset_0
0025 1c00 | | Execute_Immediate Run_Utility,0x0
0026 e002 | | Load 0x0,0x2
0027 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0028 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0029 e002 | | Load 0x0,0x2
002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002b e003 | | Load 0x0,0x3
002c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
002d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002e 02c7 | | Declare_Variable Any
002f 00d8 | | Load_Top At_Offset_0
0030 1c00 | | Execute_Immediate Run_Utility,0x0
0031 e003 | | Load 0x0,0x3
0032 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0034 02c7 | | Declare_Variable Any
0035 00d8 | | Load_Top At_Offset_0
0036 1c00 | | Execute_Immediate Run_Utility,0x0
0037 e003 | | Load 0x0,0x3
0038 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0039 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
003a 02c7 | | Declare_Variable Any
003b 00d8 | | Load_Top At_Offset_0
003c 1c00 | | Execute_Immediate Run_Utility,0x0
003d 00e5 | | Load_Encached Long_Integer_Cache
003e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003f 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0041 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0043 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0045 a004 | | Store_Unchecked 0x0,0x4
0046 00c6 | | Action Check_Subprogram_Elaborated
0047 00e5 | | Load_Encached Long_Integer_Cache
0048 4808 |H | Short_Literal 0x8
0049 484e |HN | Short_Literal 0x4e
004a 480e |H | Short_Literal 0xe
004b 4803 |H | Short_Literal 0x3
004c 480a |H | Short_Literal 0xa
004d 4802 |H | Short_Literal 0x2
004e 0099 | | Action Reference_Dynamic
004f 480c |H | Short_Literal 0xc
0050 4802 |H | Short_Literal 0x2
0051 0099 | | Action Reference_Dynamic
0052 480b |H | Short_Literal 0xb
0053 4802 |H | Short_Literal 0x2
0054 0099 | | Action Reference_Dynamic
0055 0093 0000 | | push_full_address 0x0
0057 609c |` | Indirect_Literal Discrete,0xf4,{0x80000000, 0x00010000}
0058 0273 | s | Execute Discrete,Plus
0059 e005 | | Load 0x0,0x5
005a 0273 | s | Execute Discrete,Plus
005b e006 | | Load 0x0,0x6
005c 0273 | s | Execute Discrete,Plus
005d 4816 |H | Short_Literal 0x16
005e BODY_0018:
005e 00be | | Action Activate_Tasks
005f e002 | | Load 0x0,0x2
0060 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0061 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0062 e403 | | Load 0x2,0x3
0063 608c |` | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00004000}
0064 e007 | | Load 0x0,0x7
0065 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0066 e008 | | Load 0x0,0x8
0067 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0068 e009 | | Load 0x0,0x9
0069 1811 | | Execute Package,Field_Execute,Field_Number 0x11
006a 4801 |H | Short_Literal 0x1
006b 4800 |H | Short_Literal 0x0
006c e008 | | Load 0x0,0x8
006d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
006e e002 | | Load 0x0,0x2
006f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0070 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0071 e5ff | | Load 0x2,-0x1
0072 e002 | | Load 0x0,0x2
0073 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0074 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0075 c403 | | Store 0x2,0x3
0076 c404 | | Store 0x2,0x4
0077 00cf | | Action Mark_Auxiliary
0078 786e |xn | Jump 0xe7
0079 e002 | | Load 0x0,0x2
007a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007b e402 | | Load 0x2,0x2
007c 0120 | | Execute Any,Is_Value
007d 6803 |h | Jump_Zero 0x81
007e e002 | | Load 0x0,0x2
007f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0080 7801 |x | Jump 0x82
0081 e402 | | Load 0x2,0x2
0082 e403 | | Load 0x2,0x3
0083 e002 | | Load 0x0,0x2
0084 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0085 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0086 c402 | | Store 0x2,0x2
0087 c405 | | Store 0x2,0x5
0088 e406 | | Load 0x2,0x6
0089 0120 | | Execute Any,Is_Value
008a 6804 |h | Jump_Zero 0x8f
008b e003 | | Load 0x0,0x3
008c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
008d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008e 7801 |x | Jump 0x90
008f e406 | | Load 0x2,0x6
0090 e407 | | Load 0x2,0x7
0091 4800 |H | Short_Literal 0x0
0092 4800 |H | Short_Literal 0x0
0093 e007 | | Load 0x0,0x7
0094 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0095 e402 | | Load 0x2,0x2
0096 e003 | | Load 0x0,0x3
0097 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0098 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0099 c407 | | Store 0x2,0x7
009a c406 | | Store 0x2,0x6
009b e408 | | Load 0x2,0x8
009c e407 | | Load 0x2,0x7
009d e003 | | Load 0x0,0x3
009e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
009f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00a0 c408 | | Store 0x2,0x8
00a1 00cf | | Action Mark_Auxiliary
00a2 782a |x* | Jump 0xcd
00a3 e408 | | Load 0x2,0x8
00a4 e003 | | Load 0x0,0x3
00a5 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00a6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00a7 a409 | | Store_Unchecked 0x2,0x9
00a8 e5fe | | Load 0x2,-0x2
00a9 6804 |h | Jump_Zero 0xae
00aa e5fe | | Load 0x2,-0x2
00ab e409 | | Load 0x2,0x9
00ac 027f | | Execute Discrete,Equal
00ad 6819 |h | Jump_Zero 0xc7
00ae e409 | | Load 0x2,0x9
00af 4801 |H | Short_Literal 0x1
00b0 e408 | | Load 0x2,0x8
00b1 e003 | | Load 0x0,0x3
00b2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00b3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00b4 e40d | | Load 0x2,0xd
00b5 e40e | | Load 0x2,0xe
00b6 e40f | | Load 0x2,0xf
00b7 e410 | | Load 0x2,0x10
00b8 e411 | | Load 0x2,0x11
00b9 4812 |H | Short_Literal 0x12
00ba 4802 |H | Short_Literal 0x2
00bb 0099 | | Action Reference_Dynamic
00bc 4813 |H | Short_Literal 0x13
00bd 4802 |H | Short_Literal 0x2
00be 0099 | | Action Reference_Dynamic
00bf 4814 |H | Short_Literal 0x14
00c0 4802 |H | Short_Literal 0x2
00c1 0099 | | Action Reference_Dynamic
00c2 4815 |H | Short_Literal 0x15
00c3 4802 |H | Short_Literal 0x2
00c4 0099 | | Action Reference_Dynamic
00c5 8004 | | Call 0x0,0x4
00c6 c409 | | Store 0x2,0x9
00c7 e408 | | Load 0x2,0x8
00c8 e003 | | Load 0x0,0x3
00c9 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ca 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00cb c408 | | Store 0x2,0x8
00cc 00c9 | | Action Pop_Auxiliary_Loop
00cd e408 | | Load 0x2,0x8
00ce e003 | | Load 0x0,0x3
00cf 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00d0 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00d1 6fd1 |o | Jump_Zero 0xa3
00d2 00ce | | Action Pop_Auxiliary
00d3 e406 | | Load 0x2,0x6
00d4 0120 | | Execute Any,Is_Value
00d5 6804 |h | Jump_Zero 0xda
00d6 e003 | | Load 0x0,0x3
00d7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d9 7801 |x | Jump 0xdb
00da e406 | | Load 0x2,0x6
00db e407 | | Load 0x2,0x7
00dc e003 | | Load 0x0,0x3
00dd 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00de 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00df c407 | | Store 0x2,0x7
00e0 c406 | | Store 0x2,0x6
00e1 e403 | | Load 0x2,0x3
00e2 e002 | | Load 0x0,0x2
00e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00e4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00e5 c403 | | Store 0x2,0x3
00e6 00c9 | | Action Pop_Auxiliary_Loop
00e7 e403 | | Load 0x2,0x3
00e8 e002 | | Load 0x0,0x2
00e9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ea 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00eb 6f8d |o | Jump_Zero 0x79
00ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00f4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4801 |H | Short_Literal 0x1
00fc e00a | | Load 0x0,0xa
00fd 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00db | | Load_Top At_Offset_3
0104 6810 |h | Jump_Zero 0x115
0105 0092 0127 | '| Action Push_String_Extended,0x127 ; "#"
0107 4820 |H | Short_Literal 0x20
0108 4800 |H | Short_Literal 0x0
0109 480a |H | Short_Literal 0xa
010a e7fe | | Load 0x3,-0x2
010b e00b | | Load 0x0,0xb
010c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
010d 01cc | | Execute Vector,Catenate
010e 0092 0128 | (| Action Push_String_Extended,0x128 ; ": "
0110 01cc | | Execute Vector,Catenate
0111 e00a | | Load 0x0,0xa
0112 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0113 4800 |H | Short_Literal 0x0
0114 a7fe | | Store_Unchecked 0x3,-0x2
0115 00da | | Load_Top At_Offset_2
0116 e00a | | Load 0x0,0xa
0117 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0118 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0119 0000 0000 | | .BLANK 0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 e00a | | Load 0x0,0xa
0125 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0126 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0127 ; --------------------------------------------------------------------------------------
0127 ; STRING TABLE
0127 ; --------------------------------------------------------------------------------------
0127 0006 | | .STRTAB 0x0006->0x012a ; "#"
0128 0005 | | .STRTAB 0x0005->0x012a ; ": "
0129 0006 | | .STREND 0x0006->0x012c
012a 233a 2020 |#: | .STRTAB_STRINGS
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug Table
0130 ; --------------------------------------------------------------------------------------
0130 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc023,0x0000,0x0001,0x0000
0136 0000 0000 | | .BLANK 0000[0xca]