|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3
└─⟦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 0248 | H | .CONST 0x0248 ; 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 8001 | | .CONST 0x8001 ; 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 003f | ? | .CONST 0x003f ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0007 | | .CONST 0x0007 ; Number of locals
001b INIT_0018:
001b 6098 |` | Indirect_Literal Discrete,0xb4,{0x00000000, 0x00004000}
001c e001 | | Load 0x0,0x1
001d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001e e002 | | Load 0x0,0x2
001f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0020 e003 | | Load 0x0,0x3
0021 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0022 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0023 0092 00d4 | | Action Push_String_Extended,0xd4 ; "$$"
0025 e003 | | Load 0x0,0x3
0026 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0027 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0028 e003 | | Load 0x0,0x3
0029 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
002a 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
002b 0092 00d5 | | Action Push_String_Extended,0xd5 ; "Delta3_0_Dfs"
002d 0092 00d6 | | Action Push_String_Extended,0xd6 ; "!Machine.Release.Archive.Environment."
002f 00da | | Load_Top At_Offset_2
0030 01cc | | Execute Vector,Catenate
0031 0007 | | Action Break_Optional
0032 00d8 | | Load_Top At_Offset_0
0033 0092 00d7 | | Action Push_String_Extended,0xd7 ; ".Dfs_Image"
0035 01cc | | Execute Vector,Catenate
0036 0007 | | Action Break_Optional
0037 00d8 | | Load_Top At_Offset_0
0038 0092 00d8 | | Action Push_String_Extended,0xd8 ; "."
003a 01cc | | Execute Vector,Catenate
003b 00db | | Load_Top At_Offset_3
003c 01cc | | Execute Vector,Catenate
003d 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
003f BODY_0018:
003f e004 | | Load 0x0,0x4
0040 180e | | Execute Package,Field_Execute,Field_Number 0xe
0041 4800 |H | Short_Literal 0x0
0042 0092 00d9 | | Action Push_String_Extended,0xd9 ; "[Read_Dfs_Image]"
0044 e005 | | Load 0x0,0x5
0045 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0046 0092 00da | | Action Push_String_Extended,0xda ; "Read_Dfs_Image"
0048 8006 | | Call 0x0,0x6
0049 6869 |hi | Jump_Zero 0xb3
004a 00db | | Load_Top At_Offset_3
004b 8007 | | Call 0x0,0x7
004c 700d |p | Jump_Nonzero 0x5a
004d e004 | | Load 0x0,0x4
004e 180e | | Execute Package,Field_Execute,Field_Number 0xe
004f 4805 |H | Short_Literal 0x5
0050 0092 00db | | Action Push_String_Extended,0xdb ; "The world "
0052 e404 | | Load 0x2,0x4
0053 01cc | | Execute Vector,Catenate
0054 0092 00dc | | Action Push_String_Extended,0xdc ; " does not exist. This tool should only be used as part of the Delta 3.0 install."
0056 01cc | | Execute Vector,Catenate
0057 e005 | | Load 0x0,0x5
0058 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0059 4503 |E | Exit_Suprogram New_Top_Offset 0x3
005a 00da | | Load_Top At_Offset_2
005b 8007 | | Call 0x0,0x7
005c 682a |h* | Jump_Zero 0x87
005d 00da | | Load_Top At_Offset_2
005e 0092 00dd | | Action Push_String_Extended,0xdd ; "'c(world)"
0060 01cc | | Execute Vector,Catenate
0061 8007 | | Call 0x0,0x7
0062 700d |p | Jump_Nonzero 0x70
0063 e004 | | Load 0x0,0x4
0064 180e | | Execute Package,Field_Execute,Field_Number 0xe
0065 4805 |H | Short_Literal 0x5
0066 0092 00de | | Action Push_String_Extended,0xde ; "The object "
0068 e405 | | Load 0x2,0x5
0069 01cc | | Execute Vector,Catenate
006a 0092 00df | | Action Push_String_Extended,0xdf ; " is not a world. Please delete this object and then re-run this procedure."
006c 01cc | | Execute Vector,Catenate
006d e005 | | Load 0x0,0x5
006e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0070 e5ff | | Load 0x2,-0x1
0071 680d |h | Jump_Zero 0x7f
0072 e004 | | Load 0x0,0x4
0073 180e | | Execute Package,Field_Execute,Field_Number 0xe
0074 4805 |H | Short_Literal 0x5
0075 0092 00db | | Action Push_String_Extended,0xdb ; "The world "
0077 e405 | | Load 0x2,0x5
0078 01cc | | Execute Vector,Catenate
0079 0092 00e0 | | Action Push_String_Extended,0xe0 ; " already exists. If you would like to change its volume, then delete it and re-run this procedure, otherwise set the volume to 0 to use the current world."
007b 01cc | | Execute Vector,Catenate
007c e005 | | Load 0x0,0x5
007d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
007e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
007f 0092 00e1 | | Action Push_String_Extended,0xe1 ; "<ERRORS>"
0081 4801 |H | Short_Literal 0x1
0082 4800 |H | Short_Literal 0x0
0083 e405 | | Load 0x2,0x5
0084 e008 | | Load 0x0,0x8
0085 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0086 7817 |x | Jump 0x9e
0087 0092 00e1 | | Action Push_String_Extended,0xe1 ; "<ERRORS>"
0089 0092 00e2 | | Action Push_String_Extended,0xe2 ; "!Model.R1000"
008b e5fe | | Load 0x2,-0x2
008c e008 | | Load 0x0,0x8
008d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
008e 00d9 | | Load_Top At_Offset_1
008f 00d0 | | Action Swap_Control
0090 0260 | ` | Execute Discrete,In_Type
0091 7001 |p | Jump_Nonzero 0x93
0092 0801 | | Execute_Immediate Raise,0x1
0093 4800 |H | Short_Literal 0x0
0094 e405 | | Load 0x2,0x5
0095 e008 | | Load 0x0,0x8
0096 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0097 0092 00e1 | | Action Push_String_Extended,0xe1 ; "<ERRORS>"
0099 4801 |H | Short_Literal 0x1
009a 4800 |H | Short_Literal 0x0
009b e405 | | Load 0x2,0x5
009c e008 | | Load 0x0,0x8
009d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
009e 00da | | Load_Top At_Offset_2
009f 8007 | | Call 0x0,0x7
00a0 6809 |h | Jump_Zero 0xaa
00a1 8407 | | Call 0x2,0x7
00a2 e004 | | Load 0x0,0x4
00a3 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a4 4800 |H | Short_Literal 0x0
00a5 0092 00e3 | | Action Push_String_Extended,0xe3 ; "[Read_Dfs_Image has completed]"
00a7 e005 | | Load 0x0,0x5
00a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00aa e004 | | Load 0x0,0x4
00ab 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ac 4805 |H | Short_Literal 0x5
00ad 0092 00e4 | | Action Push_String_Extended,0xe4 ; "Problems were encountered creating the world "
00af e405 | | Load 0x2,0x5
00b0 01cc | | Execute Vector,Catenate
00b1 e005 | | Load 0x0,0x5
00b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00b4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 00bf | | .CONST 0x00bf ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e5ff | | Load 0x2,-0x1
00bc e406 | | Load 0x2,0x6
00bd 8009 | | Call 0x0,0x9
00be 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00bf TRAP_00b8:
00bf 0007 | | Action Break_Optional
00c0 e004 | | Load 0x0,0x4
00c1 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c2 4808 |H | Short_Literal 0x8
00c3 0092 00e5 | | Action Push_String_Extended,0xe5 ; "Reading the Dfs image has failed due to an exception. You should either try again, copy the Dfs image from another machine, or install the dfs using the tape."
00c5 e005 | | Load 0x0,0x5
00c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c7 e406 | | Load 0x2,0x6
00c8 8007 | | Call 0x0,0x7
00c9 6808 |h | Jump_Zero 0xd2
00ca 0092 00e1 | | Action Push_String_Extended,0xe1 ; "<ERRORS>"
00cc 0092 00e6 | | Action Push_String_Extended,0xe6 ; "<DIRECTORIES>"
00ce 4802 |H | Short_Literal 0x2
00cf e406 | | Load 0x2,0x6
00d0 e008 | | Load 0x0,0x8
00d1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00d2 00cc | | Action Pop_Block
00d3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d4 ; --------------------------------------------------------------------------------------
00d4 ; STRING TABLE
00d4 ; --------------------------------------------------------------------------------------
00d4 0028 | ( | .STRTAB 0x0028->0x00e8 ; "$$"
00d5 0028 | ( | .STRTAB 0x0028->0x00e9 ; "Delta3_0_Dfs"
00d6 0032 | 2 | .STRTAB 0x0032->0x00ef ; "!Machine.Release.Archive.Environment."
00d7 0055 | U | .STRTAB 0x0055->0x0101 ; ".Dfs_Image"
00d8 005d | ] | .STRTAB 0x005d->0x0106 ; "."
00d9 005c | \ | .STRTAB 0x005c->0x0107 ; "[Read_Dfs_Image]"
00da 006a | j | .STRTAB 0x006a->0x010f ; "Read_Dfs_Image"
00db 0076 | v | .STRTAB 0x0076->0x0116 ; "The world "
00dc 007e | ~ | .STRTAB 0x007e->0x011b ; " does not exist. This tool should only be used as part of the Delta 3.0 install."
00dd 00cd | | .STRTAB 0x00cd->0x0143 ; "'c(world)"
00de 00d4 | | .STRTAB 0x00d4->0x0148 ; "The object "
00df 00dd | | .STRTAB 0x00dd->0x014d ; " is not a world. Please delete this object and then re-run this procedure."
00e0 0126 | & | .STRTAB 0x0126->0x0173 ; " already exists. If you would like to change its volume, then delete it and re-run this procedure, otherwise set the volume to 0 to use the current world."
00e1 01bf | | .STRTAB 0x01bf->0x01c0 ; "<ERRORS>"
00e2 01c5 | | .STRTAB 0x01c5->0x01c4 ; "!Model.R1000"
00e3 01cf | | .STRTAB 0x01cf->0x01ca ; "[Read_Dfs_Image has completed]"
00e4 01eb | | .STRTAB 0x01eb->0x01d9 ; "Problems were encountered creating the world "
00e5 0216 | | .STRTAB 0x0216->0x01f0 ; "Reading the Dfs image has failed due to an exception. You should either try again, copy the Dfs image from another machine, or install the dfs using the tape."
00e6 02b3 | | .STRTAB 0x02b3->0x023f ; "<DIRECTORIES>"
00e7 02be | | .STREND 0x02be->0x0246
00e8 2424 4465 |$$De| .STRTAB_STRINGS
0246 0000 0000 | | .XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug Table
0248 ; --------------------------------------------------------------------------------------
0248 0004 0001 | | .DEBUG4 0x0004,0x0001,0x3bb2,0x0000,0x0001,0x0000
024e 0000 0000 | | .BLANK 0000[0x1b2]