|
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_0448f4
└─⟦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 0168 | h | .CONST 0x0168 ; 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 0030 | 0 | .CONST 0x0030 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0013 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0015 00bf | | Action Accept_Activation
0016 0092 0129 | )| Action Push_String_Extended,0x129 ; "r1000"
0018 0092 012a | *| Action Push_String_Extended,0x12a ; "Rational"
001a 0092 012b | +| Action Push_String_Extended,0x12b ; "aconit"
001c e001 | | Load 0x0,0x1
001d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001e 02c7 | | Declare_Variable Any
001f 00d8 | | Load_Top At_Offset_0
0020 1c00 | | Execute_Immediate Run_Utility,0x0
0021 e001 | | Load 0x0,0x1
0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0023 02c7 | | Declare_Variable Any
0024 00d8 | | Load_Top At_Offset_0
0025 1c00 | | Execute_Immediate Run_Utility,0x0
0026 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0027 00c7 | | Action Elaborate_Subprogram
0028 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0029 00c7 | | Action Elaborate_Subprogram
002a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002b 00c7 | | Action Elaborate_Subprogram
002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002d 00c7 | | Action Elaborate_Subprogram
002e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002f 00c7 | | Action Elaborate_Subprogram
0030 BODY_0008:
0030 00bc | | Action Signal_Activated
0031 00bb | | Action Signal_Completion
0032 0000 0000 | | .BLANK 0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b e216 | | Load 0x1,0x16
003c 0120 | | Execute Any,Is_Value
003d 6803 |h | Jump_Zero 0x41
003e e001 | | Load 0x0,0x1
003f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0040 7801 |x | Jump 0x42
0041 e216 | | Load 0x1,0x16
0042 e215 | | Load 0x1,0x15
0043 0120 | | Execute Any,Is_Value
0044 6803 |h | Jump_Zero 0x48
0045 e001 | | Load 0x0,0x1
0046 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0047 7801 |x | Jump 0x49
0048 e215 | | Load 0x1,0x15
0049 00ea | | Load_Encached Null_String_Cache
004a 00ea | | Load_Encached Null_String_Cache
004b e213 | | Load 0x1,0x13
004c e212 | | Load 0x1,0x12
004d e214 | | Load 0x1,0x14
004e e001 | | Load 0x0,0x1
004f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0050 c215 | | Store 0x1,0x15
0051 c216 | | Store 0x1,0x16
0052 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0053 0000 0000 | | .BLANK 0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e216 | | Load 0x1,0x16
005c 0120 | | Execute Any,Is_Value
005d 6803 |h | Jump_Zero 0x61
005e e001 | | Load 0x0,0x1
005f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0060 7801 |x | Jump 0x62
0061 e216 | | Load 0x1,0x16
0062 6009 |` | Indirect_Literal Discrete,0x6c,{0x00007fff, 0xffffffff}
0063 e215 | | Load 0x1,0x15
0064 e5ff | | Load 0x2,-0x1
0065 e001 | | Load 0x0,0x1
0066 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0067 c216 | | Store 0x1,0x16
0068 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0069 0000 0000 | | .XXX[0x3]
006b 0000 | |
006c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
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 0833 | 3 | Execute_Immediate Raise,0x33
0074 0000 0000 | | .BLANK 0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0095 | | .CONST 0x0095 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0004 | | .CONST 0x0004 ; Number of locals
007b INIT_0078:
007b e001 | | Load 0x0,0x1
007c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007d 02c7 | | Declare_Variable Any
007e 00d8 | | Load_Top At_Offset_0
007f 1c00 | | Execute_Immediate Run_Utility,0x0
0080 e001 | | Load 0x0,0x1
0081 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0082 02c7 | | Declare_Variable Any
0083 00d8 | | Load_Top At_Offset_0
0084 1c00 | | Execute_Immediate Run_Utility,0x0
0085 0092 012c | ,| Action Push_String_Extended,0x12c ; "/tmp/"
0087 e002 | | Load 0x0,0x2
0088 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0089 e002 | | Load 0x0,0x2
008a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
008b 01cc | | Execute Vector,Catenate
008c 4801 |H | Short_Literal 0x1
008d 4803 |H | Short_Literal 0x3
008e 4800 |H | Short_Literal 0x0
008f e003 | | Load 0x0,0x3
0090 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0091 e003 | | Load 0x0,0x3
0092 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0093 01cc | | Execute Vector,Catenate
0094 0007 | | Action Break_Optional
0095 BODY_0078:
0095 e5ff | | Load 0x2,-0x1
0096 0092 012d | -| Action Push_String_Extended,0x12d ; " spooled to Aconit"
0098 01cc | | Execute Vector,Catenate
0099 e004 | | Load 0x0,0x4
009a 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
009b 00d9 | | Load_Top At_Offset_1
009c 0120 | | Execute Any,Is_Value
009d 6803 |h | Jump_Zero 0xa1
009e e001 | | Load 0x0,0x1
009f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a0 7801 |x | Jump 0xa2
00a1 00d9 | | Load_Top At_Offset_1
00a2 00db | | Load_Top At_Offset_3
00a3 0120 | | Execute Any,Is_Value
00a4 6803 |h | Jump_Zero 0xa8
00a5 e001 | | Load 0x0,0x1
00a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a7 7801 |x | Jump 0xa9
00a8 00db | | Load_Top At_Offset_3
00a9 00ea | | Load_Encached Null_String_Cache
00aa 00ea | | Load_Encached Null_String_Cache
00ab e213 | | Load 0x1,0x13
00ac e212 | | Load 0x1,0x12
00ad e214 | | Load 0x1,0x14
00ae e001 | | Load 0x0,0x1
00af 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b0 c402 | | Store 0x2,0x2
00b1 c403 | | Store 0x2,0x3
00b2 00da | | Load_Top At_Offset_2
00b3 e001 | | Load 0x0,0x1
00b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b5 012f | / | Execute Any,Equal
00b6 6804 |h | Jump_Zero 0xbb
00b7 0092 012e | .| Action Push_String_Extended,0x12e ; "Can't obtain context, check Dtia server"
00b9 e004 | | Load 0x0,0x4
00ba 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
00bb 00d9 | | Load_Top At_Offset_1
00bc 0092 012f | /| Action Push_String_Extended,0x12f ; "<QUIET>"
00be e005 | | Load 0x0,0x5
00bf 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
00c0 c403 | | Store 0x2,0x3
00c1 e005 | | Load 0x0,0x5
00c2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c3 e006 | | Load 0x0,0x6
00c4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c5 e006 | | Load 0x0,0x6
00c6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c7 e006 | | Load 0x0,0x6
00c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c9 4802 |H | Short_Literal 0x2
00ca 4800 |H | Short_Literal 0x0
00cb 4801 |H | Short_Literal 0x1
00cc 4804 |H | Short_Literal 0x4
00cd 00e9 | | Load_Encached String_Cache
00ce 0334 | 4 | Declare_Variable Array,With_Constraint
00cf 5040 |P@ | Indirect_Literal Any,0x110,{0x756e6978, 0x20202020}
00d0 e006 | | Load 0x0,0x6
00d1 180f | | Execute Package,Field_Execute,Field_Number 0xf
00d2 e006 | | Load 0x0,0x6
00d3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d4 e213 | | Load 0x1,0x13
00d5 e212 | | Load 0x1,0x12
00d6 e214 | | Load 0x1,0x14
00d7 e404 | | Load 0x2,0x4
00d8 e5ff | | Load 0x2,-0x1
00d9 e007 | | Load 0x0,0x7
00da 180e | | Execute Package,Field_Execute,Field_Number 0xe
00db 00d9 | | Load_Top At_Offset_1
00dc 0120 | | Execute Any,Is_Value
00dd 6803 |h | Jump_Zero 0xe1
00de e001 | | Load 0x0,0x1
00df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e0 7801 |x | Jump 0xe2
00e1 00d9 | | Load_Top At_Offset_1
00e2 6029 |`) | Indirect_Literal Discrete,0x10c,{0x00007fff, 0xffffffff}
00e3 e402 | | Load 0x2,0x2
00e4 0092 0130 | 0| Action Push_String_Extended,0x130 ; "lpr -Paab "
00e6 e404 | | Load 0x2,0x4
00e7 01cc | | Execute Vector,Catenate
00e8 e001 | | Load 0x0,0x1
00e9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00ea c403 | | Store 0x2,0x3
00eb 00d9 | | Load_Top At_Offset_1
00ec 0120 | | Execute Any,Is_Value
00ed 6803 |h | Jump_Zero 0xf1
00ee e001 | | Load 0x0,0x1
00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f0 7801 |x | Jump 0xf2
00f1 00d9 | | Load_Top At_Offset_1
00f2 00ea | | Load_Encached Null_String_Cache
00f3 00da | | Load_Top At_Offset_2
00f4 e402 | | Load 0x2,0x2
00f5 e001 | | Load 0x0,0x1
00f6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00f7 c403 | | Store 0x2,0x3
00f8 00d9 | | Load_Top At_Offset_1
00f9 0120 | | Execute Any,Is_Value
00fa 6803 |h | Jump_Zero 0xfe
00fb e001 | | Load 0x0,0x1
00fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fd 7801 |x | Jump 0xff
00fe 00d9 | | Load_Top At_Offset_1
00ff 00db | | Load_Top At_Offset_3
0100 6007 |` | Indirect_Literal Discrete,0x108,{0xffffffff, 0xffff8000}
0101 e001 | | Load 0x0,0x1
0102 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0103 c402 | | Store 0x2,0x2
0104 c403 | | Store 0x2,0x3
0105 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0106 0000 0000 | | .XXX[0x2]
0108 ffff ffff | | .LITERAL {0xffffffff, 0xffff8000}
010c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0110 756e 6978 |unix| .LITERAL {0x756e6978, 0x20202020}
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e216 | | Load 0x1,0x16
011c 0120 | | Execute Any,Is_Value
011d 6803 |h | Jump_Zero 0x121
011e e001 | | Load 0x0,0x1
011f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0120 7801 |x | Jump 0x122
0121 e216 | | Load 0x1,0x16
0122 e215 | | Load 0x1,0x15
0123 67e4 |g | Indirect_Literal Discrete,0x108,{0xffffffff, 0xffff8000}
0124 e001 | | Load 0x0,0x1
0125 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0126 c215 | | Store 0x1,0x15
0127 c216 | | Store 0x1,0x16
0128 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0129 ; --------------------------------------------------------------------------------------
0129 ; STRING TABLE
0129 ; --------------------------------------------------------------------------------------
0129 0012 | | .STRTAB 0x0012->0x0132 ; "r1000"
012a 0015 | | .STRTAB 0x0015->0x0134 ; "Rational"
012b 001b | | .STRTAB 0x001b->0x0138 ; "aconit"
012c 001f | | .STRTAB 0x001f->0x013b ; "/tmp/"
012d 0022 | " | .STRTAB 0x0022->0x013e ; " spooled to Aconit"
012e 0032 | 2 | .STRTAB 0x0032->0x0147 ; "Can't obtain context, check Dtia server"
012f 0057 | W | .STRTAB 0x0057->0x015a ; "<QUIET>"
0130 005c | \ | .STRTAB 0x005c->0x015e ; "lpr -Paab "
0131 0064 | d | .STREND 0x0064->0x0163
0132 7231 3030 |r100| .STRTAB_STRINGS
0163 0000 0000 | | .BLANK 0000[0x5]
0168 ; --------------------------------------------------------------------------------------
0168 ; Debug Table
0168 ; --------------------------------------------------------------------------------------
0168 0004 000a | | .DEBUG4 0x0004,0x000a,0x90f9,0x0000,0x0001,0x0007
016e 000b 018a | | .DBG4T 0x000b,0x018a,0x8000,0x0000
0172 0016 0191 | | .DBG4T 0x0016,0x0191,0x8000,0x8000
0176 003b 01a7 | ; | .DBG4T 0x003b,0x01a7,0x0001,0x0000
017a 005b 01aa | [ | .DBG4T 0x005b,0x01aa,0x0001,0x0000
017e 0073 01ad | s | .DBG4T 0x0073,0x01ad,0x0001,0x0000
0182 007b 01b0 | { | .DBG4T 0x007b,0x01b0,0x0001,0x0000
0186 011b 01be | | .DBG4T 0x011b,0x01be,0x0001,0x0000
018a ; --------------------------------------------------------------------------------------
018a ; Debug chain
018a ; --------------------------------------------------------------------------------------
018a 0005 0000 | | .DBGLEN 0x0005,0x0000
018c 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013
0191 ; --------------------------------------------------------------------------------------
0191 ; Debug chain
0191 ; --------------------------------------------------------------------------------------
0191 000a 0000 | | .DBGLEN 0x000a,0x0000
0193 0016 0018 | | .DBGLNO 0x0016,0x0018,0x001a,0x001c,0x0021,0x0026,0x0028,0x002a,0x002c,0x002e
019d 0004 0005 | | .XXX[0xa]
019f 0006 0007 | |
01a1 0008 0009 | |
01a3 000a 000b | |
01a5 000c 000d | |
01a7 ; --------------------------------------------------------------------------------------
01a7 ; Debug chain
01a7 ; --------------------------------------------------------------------------------------
01a7 0000 0001 | | .DBGLEN 0x0000,0x0001
01a9 003b | ; | .DBGLNO 0x003b
01aa ; --------------------------------------------------------------------------------------
01aa ; Debug chain
01aa ; --------------------------------------------------------------------------------------
01aa 0000 0001 | | .DBGLEN 0x0000,0x0001
01ac 005b | [ | .DBGLNO 0x005b
01ad ; --------------------------------------------------------------------------------------
01ad ; Debug chain
01ad ; --------------------------------------------------------------------------------------
01ad 0000 0001 | | .DBGLEN 0x0000,0x0001
01af 0073 | s | .DBGLNO 0x0073
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug chain
01b0 ; --------------------------------------------------------------------------------------
01b0 0003 0009 | | .DBGLEN 0x0003,0x0009
01b2 007b 0080 | { | .DBGLNO 0x007b,0x0080,0x0085,0x0095,0x009b,0x00b2,0x00b7,0x00bb,0x00c1,0x00db,0x00eb,0x00f8
01be ; --------------------------------------------------------------------------------------
01be ; Debug chain
01be ; --------------------------------------------------------------------------------------
01be 0000 0001 | | .DBGLEN 0x0000,0x0001
01c0 011b | | .DBGLNO 0x011b
01c1 0000 0000 | | .BLANK 0000[0x3f]