|
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 0158 | X | .CONST 0x0158 ; 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 005b | [ | .CONST 0x005b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
000d 4806 |H | Short_Literal 0x6
000e e001 | | Load 0x0,0x1
000f 01d7 | | Execute Vector,Field_Read
0010 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0011 4804 |H | Short_Literal 0x4
0012 e001 | | Load 0x0,0x1
0013 01d7 | | Execute Vector,Field_Read
0014 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0015 4802 |H | Short_Literal 0x2
0016 e001 | | Load 0x0,0x1
0017 01d7 | | Execute Vector,Field_Read
0018 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0019 4808 |H | Short_Literal 0x8
001a e001 | | Load 0x0,0x1
001b 01d7 | | Execute Vector,Field_Read
001c 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
001d 480c |H | Short_Literal 0xc
001e e001 | | Load 0x0,0x1
001f 01d7 | | Execute Vector,Field_Read
0020 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0021 480a |H | Short_Literal 0xa
0022 e001 | | Load 0x0,0x1
0023 01d7 | | Execute Vector,Field_Read
0024 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0025 0093 0000 | | push_full_address 0x0
0027 6050 |`P | Indirect_Literal Discrete,0x78,{0x80000000, 0x00010000}
0028 0273 | s | Execute Discrete,Plus
0029 0129 | ) | Execute Any,Make_Visible
002a 00bf | | Action Accept_Activation
002b 485f |H_ | Short_Literal 0x5f
002c 0092 0102 | | Action Push_String_Extended,0x102 ; "!Machine.Temporary.KEYS_"
002e e002 | | Load 0x0,0x2
002f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0030 e002 | | Load 0x0,0x2
0031 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0032 01cc | | Execute Vector,Catenate
0033 01cb | | Execute Vector,Append
0034 e002 | | Load 0x0,0x2
0035 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0036 e002 | | Load 0x0,0x2
0037 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0038 01cc | | Execute Vector,Catenate
0039 0007 | | Action Break_Optional
003a e003 | | Load 0x0,0x3
003b e004 | | Load 0x0,0x4
003c e002 | | Load 0x0,0x2
003d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003e e005 | | Load 0x0,0x5
003f 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0040 0387 | | Declare_Variable Package
0041 00d8 | | Load_Top At_Offset_0
0042 020f | | Execute Module,Activate
0043 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call
0045 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call
0047 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call
0049 1d0d | | Execute_Immediate Reference_Lex_1,0xd
004a 00c7 | | Action Elaborate_Subprogram
004b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
004c 00c7 | | Action Elaborate_Subprogram
004d 480e |H | Short_Literal 0xe
004e e001 | | Load 0x0,0x1
004f 01d7 | | Execute Vector,Field_Read
0050 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0051 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0052 00c7 | | Action Elaborate_Subprogram
0053 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0054 00c7 | | Action Elaborate_Subprogram
0055 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0056 00c7 | | Action Elaborate_Subprogram
0057 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0058 00c7 | | Action Elaborate_Subprogram
0059 1d13 | | Execute_Immediate Reference_Lex_1,0x13
005a 00c7 | | Action Elaborate_Subprogram
005b BODY_0008:
005b 00bc | | Action Signal_Activated
005c 00bb | | Action Signal_Completion
005d 0000 0000 | | .XXX[0x3]
005f 0000 | |
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 006c | l | .CONST 0x006c ; Address of begin
0061 006f | o | .CONST 0x006f ; Address of exception handler
0062 0004 | | .CONST 0x0004 ; Number of locals
0063 INIT_0060:
0063 e006 | | Load 0x0,0x6
0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0065 02c7 | | Declare_Variable Any
0066 00d8 | | Load_Top At_Offset_0
0067 1c00 | | Execute_Immediate Run_Utility,0x0
0068 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
006a 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
006c BODY_0060:
006c 8403 | | Call 0x2,0x3
006d 8404 | | Call 0x2,0x4
006e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
006f TRAP_0060:
006f e214 | | Load 0x1,0x14
0070 010f | | Execute Exception,Equal
0071 6802 |h | Jump_Zero 0x74
0072 00d8 | | Load_Top At_Offset_0
0073 0101 | | Execute Exception,Reraise
0074 8218 | | Call 0x1,0x18
0075 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0076 0000 0000 | | .XXX[0x2]
0078 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
007c 0000 0000 | | .BLANK 0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 e007 | | Load 0x0,0x7
0084 180e | | Execute Package,Field_Execute,Field_Number 0xe
0085 4805 |H | Short_Literal 0x5
0086 e5ff | | Load 0x2,-0x1
0087 e008 | | Load 0x0,0x8
0088 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0089 e007 | | Load 0x0,0x7
008a 180e | | Execute Package,Field_Execute,Field_Number 0xe
008b e007 | | Load 0x0,0x7
008c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
008d 6802 |h | Jump_Zero 0x90
008e e214 | | Load 0x1,0x14
008f 0257 | W | Execute Discrete,Raise
0090 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0091 0000 0000 | | .BLANK 0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
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 e007 | | Load 0x0,0x7
009c 180e | | Execute Package,Field_Execute,Field_Number 0xe
009d 4808 |H | Short_Literal 0x8
009e 0092 0103 | | Action Push_String_Extended,0x103 ; "Unhandled exception "
00a0 4800 |H | Short_Literal 0x0
00a1 4801 |H | Short_Literal 0x1
00a2 e009 | | Load 0x0,0x9
00a3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a4 01cc | | Execute Vector,Catenate
00a5 e008 | | Load 0x0,0x8
00a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a7 e007 | | Load 0x0,0x7
00a8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a9 e007 | | Load 0x0,0x7
00aa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00ab 6802 |h | Jump_Zero 0xae
00ac e214 | | Load 0x1,0x14
00ad 0257 | W | Execute Discrete,Raise
00ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00af 0000 | | .XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 0092 0104 | | Action Push_String_Extended,0x104 ; " ("
00b5 4800 |H | Short_Literal 0x0
00b6 4800 |H | Short_Literal 0x0
00b7 e009 | | Load 0x0,0x9
00b8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00b9 01cc | | Execute Vector,Catenate
00ba 0092 0105 | | Action Push_String_Extended,0x105 ; ")."
00bc 01cc | | Execute Vector,Catenate
00bd 00ca | | Action Exit_Nullary_Function
00be 0000 0000 | | .XXX[0x2]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 00cb | | .CONST 0x00cb ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 e402 | | Load 0x2,0x2
00c4 00ea | | Load_Encached Null_String_Cache
00c5 e5ff | | Load 0x2,-0x1
00c6 4801 |H | Short_Literal 0x1
00c7 e006 | | Load 0x0,0x6
00c8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c9 c402 | | Store 0x2,0x2
00ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00cb TRAP_00c0:
00cb 0007 | | Action Break_Optional
00cc 0092 0106 | | Action Push_String_Extended,0x106 ; "Cannot create "
00ce e5ff | | Load 0x2,-0x1
00cf 01cc | | Execute Vector,Catenate
00d0 0092 0107 | | Action Push_String_Extended,0x107 ; " for output"
00d2 01cc | | Execute Vector,Catenate
00d3 8219 | | Call 0x1,0x19
00d4 01cc | | Execute Vector,Catenate
00d5 8217 | | Call 0x1,0x17
00d6 00cc | | Action Pop_Block
00d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00de | | .CONST 0x00de ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db e402 | | Load 0x2,0x2
00dc e006 | | Load 0x0,0x6
00dd 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00de BODY_00d8:
00de e402 | | Load 0x2,0x2
00df e006 | | Load 0x0,0x6
00e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e1 c402 | | Store 0x2,0x2
00e2 e5fe | | Load 0x2,-0x2
00e3 01db | | Execute Vector,Length
00e4 7007 |p | Jump_Nonzero 0xec
00e5 0092 0108 | | Action Push_String_Extended,0x108 ; "Logging keystrokes."
00e7 e006 | | Load 0x0,0x6
00e8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00e9 e006 | | Load 0x0,0x6
00ea 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00eb 7811 |x | Jump 0xfd
00ec 482e |H. | Short_Literal 0x2e
00ed 0092 0109 | | Action Push_String_Extended,0x109 ; "Logging keystrokes; end with "
00ef e5fe | | Load 0x2,-0x2
00f0 01cc | | Execute Vector,Catenate
00f1 01cb | | Execute Vector,Append
00f2 e006 | | Load 0x0,0x6
00f3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00f4 e006 | | Load 0x0,0x6
00f5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00f6 4800 |H | Short_Literal 0x0
00f7 0092 010a | | Action Push_String_Extended,0x10a ; "Keys.End_Logging"
00f9 e5fe | | Load 0x2,-0x2
00fa e00a | | Load 0x0,0xa
00fb 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00fc 180d | | Execute Package,Field_Execute,Field_Number 0xd
00fd 00d8 | | Load_Top At_Offset_0
00fe e00a | | Load 0x0,0xa
00ff 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0100 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0101 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0102 ; --------------------------------------------------------------------------------------
0102 ; STRING TABLE
0102 ; --------------------------------------------------------------------------------------
0102 0014 | | .STRTAB 0x0014->0x010c ; "!Machine.Temporary.KEYS_"
0103 002a | * | .STRTAB 0x002a->0x0118 ; "Unhandled exception "
0104 003c | < | .STRTAB 0x003c->0x0122 ; " ("
0105 003c | < | .STRTAB 0x003c->0x0123 ; ")."
0106 003c | < | .STRTAB 0x003c->0x0124 ; "Cannot create "
0107 0048 | H | .STRTAB 0x0048->0x012b ; " for output"
0108 0051 | Q | .STRTAB 0x0051->0x0130 ; "Logging keystrokes."
0109 0062 | b | .STRTAB 0x0062->0x013a ; "Logging keystrokes; end with "
010a 007d | } | .STRTAB 0x007d->0x0148 ; "Keys.End_Logging"
010b 008b | | .STREND 0x008b->0x0150
010c 214d 6163 |!Mac| .STRTAB_STRINGS
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; Debug Table
0158 ; --------------------------------------------------------------------------------------
0158 0004 0009 | | .DEBUG4 0x0004,0x0009,0x861e,0x0000,0x0001,0x0000
015e 0000 0000 | | .BLANK 0000[0xa2]