|
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_0a7cf5
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01b8 | | .CONST 0x01b8 ; 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 002b | + | .CONST 0x002b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000e | | .CONST 0x000e ; Number of locals
000b INIT_0008:
000b 00e1 | | Load_Encached Boolean_Cache
000c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
000d 00e1 | | Load_Encached Boolean_Cache
000e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
000f e21d | | Load 0x1,0x1d
0010 02ff | | Declare_Variable Variant_Record
0011 00d8 | | Load_Top At_Offset_0
0012 1c00 | | Execute_Immediate Run_Utility,0x0
0013 00d8 | | Load_Top At_Offset_0
0014 02ff | | Declare_Variable Variant_Record
0015 00d8 | | Load_Top At_Offset_0
0016 1c00 | | Execute_Immediate Run_Utility,0x0
0017 e28f | | Load 0x1,0x8f
0018 02ff | | Declare_Variable Variant_Record
0019 00d8 | | Load_Top At_Offset_0
001a 1c00 | | Execute_Immediate Run_Utility,0x0
001b 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
001d e03b | ; | Load 0x0,0x3b
001e 02ab | | Declare_Subprogram For_Call,With_Address
001f e03c | < | Load 0x0,0x3c
0020 02ab | | Declare_Subprogram For_Call,With_Address
0021 e03d | = | Load 0x0,0x3d
0022 02ab | | Declare_Subprogram For_Call,With_Address
0023 e03e | > | Load 0x0,0x3e
0024 02ab | | Declare_Subprogram For_Call,With_Address
0025 e03f | ? | Load 0x0,0x3f
0026 02ab | | Declare_Subprogram For_Call,With_Address
0027 e040 | @ | Load 0x0,0x40
0028 02ab | | Declare_Subprogram For_Call,With_Address
0029 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
002b BODY_0008:
002b e5fe | | Load 0x2,-0x2
002c 822c | , | Call 0x1,0x2c
002d 6807 |h | Jump_Zero 0x35
002e e5fe | | Load 0x2,-0x2
002f 822d | - | Call 0x1,0x2d
0030 e5fe | | Load 0x2,-0x2
0031 822f | / | Call 0x1,0x2f
0032 e404 | | Load 0x2,0x4
0033 016d | m | Execute Variant_Record,Structure_Write
0034 7803 |x | Jump 0x38
0035 e21e | | Load 0x1,0x1e
0036 e404 | | Load 0x2,0x4
0037 016d | m | Execute Variant_Record,Structure_Write
0038 e5ff | | Load 0x2,-0x1
0039 00d8 | | Load_Top At_Offset_0
003a 0c0e | | Execute_Immediate Greater_Equal,0xe
003b 7013 |p | Jump_Nonzero 0x4f
003c 460d |F | Jump_Case 0xe
003d 7812 |x | Jump 0x50 ; case 0x0
003e 7811 |x | Jump 0x50 ; case 0x1
003f 7810 |x | Jump 0x50 ; case 0x2
0040 780f |x | Jump 0x50 ; case 0x3
0041 780e |x | Jump 0x50 ; case 0x4
0042 782b |x+ | Jump 0x6e ; case 0x5
0043 780c |x | Jump 0x50 ; case 0x6
0044 7862 |xb | Jump 0xa7 ; case 0x7
0045 782e |x. | Jump 0x74 ; case 0x8
0046 7833 |x3 | Jump 0x7a ; case 0x9
0047 7838 |x8 | Jump 0x80 ; case 0xa
0048 7807 |x | Jump 0x50 ; case 0xb
0049 7865 |xe | Jump 0xaf ; case 0xc
004a 7800 |x | Jump 0x4b ; case 0xd
004b e404 | | Load 0x2,0x4
004c 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
004d 840a | | Call 0x2,0xa
004e 7868 |xh | Jump 0xb7
004f 00d1 | | Pop_Control Pop_Count_1
0050 4801 |H | Short_Literal 0x1
0051 e2d0 | | Load 0x1,0xd0
0052 e00f | | Load 0x0,0xf
0053 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0054 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0055 4811 |H | Short_Literal 0x11
0056 8262 | b | Call 0x1,0x62
0057 e00f | | Load 0x0,0xf
0058 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0059 0092 0167 | g| Action Push_String_Extended,0x167 ; "*** This section of the document is currently unimplemented."
005b e2d0 | | Load 0x1,0xd0
005c e00f | | Load 0x0,0xf
005d 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
005e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
005f 4800 |H | Short_Literal 0x0
0060 4800 |H | Short_Literal 0x0
0061 4801 |H | Short_Literal 0x1
0062 0092 0168 | h| Action Push_String_Extended,0x168 ; "Undefined Process_Kinds =>"
0064 e5ff | | Load 0x2,-0x1
0065 00e0 | | Load_Encached Standard_Cache
0066 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0067 01cc | | Execute Vector,Catenate
0068 0092 0169 | i| Action Push_String_Extended,0x169 ; " has been detected"
006a 01cc | | Execute Vector,Catenate
006b 8218 | | Call 0x1,0x18
006c 8248 | H | Call 0x1,0x48
006d 7849 |xI | Jump 0xb7
006e e2cd | | Load 0x1,0xcd
006f 840e | | Call 0x2,0xe
0070 e2d2 | | Load 0x1,0xd2
0071 e2d0 | | Load 0x1,0xd0
0072 8041 | A | Call 0x0,0x41
0073 7843 |xC | Jump 0xb7
0074 e5fe | | Load 0x2,-0x2
0075 822c | , | Call 0x1,0x2c
0076 6840 |h@ | Jump_Zero 0xb7
0077 e5fe | | Load 0x2,-0x2
0078 8408 | | Call 0x2,0x8
0079 783d |x= | Jump 0xb7
007a e5fe | | Load 0x2,-0x2
007b 822c | , | Call 0x1,0x2c
007c 683a |h: | Jump_Zero 0xb7
007d e5fe | | Load 0x2,-0x2
007e 8409 | | Call 0x2,0x9
007f 7837 |x7 | Jump 0xb7
0080 e5fe | | Load 0x2,-0x2
0081 822c | , | Call 0x1,0x2c
0082 0b00 | | Execute_Immediate Case_Compare,0x0
0083 7019 |p | Jump_Nonzero 0x9d
0084 0f01 | | Execute_Immediate Equal,0x1
0085 7019 |p | Jump_Nonzero 0x9f
0086 00cf | | Action Mark_Auxiliary
0087 e5fe | | Load 0x2,-0x2
0088 822e | . | Call 0x1,0x2e
0089 e5fe | | Load 0x2,-0x2
008a 822d | - | Call 0x1,0x2d
008b 0263 | c | Execute Discrete,Above_Bound
008c 700e |p | Jump_Nonzero 0x9b
008d 00e1 | | Load_Encached Boolean_Cache
008e 00d9 | | Load_Top At_Offset_1
008f e5fe | | Load 0x2,-0x2
0090 822f | / | Call 0x1,0x2f
0091 840d | | Call 0x2,0xd
0092 c402 | | Store 0x2,0x2
0093 e403 | | Load 0x2,0x3
0094 7002 |p | Jump_Nonzero 0x97
0095 e402 | | Load 0x2,0x2
0096 7801 |x | Jump 0x98
0097 4801 |H | Short_Literal 0x1
0098 a403 | | Store_Unchecked 0x2,0x3
0099 00c8 | | Action Pop_Auxiliary_Range
009a 3ff2 |? | Loop_Increasing 0x8d
009b 00ce | | Action Pop_Auxiliary
009c 781a |x | Jump 0xb7
009d 00d1 | | Pop_Control Pop_Count_1
009e 7818 |x | Jump 0xb7
009f 00e1 | | Load_Encached Boolean_Cache
00a0 e5fe | | Load 0x2,-0x2
00a1 822d | - | Call 0x1,0x2d
00a2 e5fe | | Load 0x2,-0x2
00a3 822f | / | Call 0x1,0x2f
00a4 840d | | Call 0x2,0xd
00a5 c403 | | Store 0x2,0x3
00a6 7810 |x | Jump 0xb7
00a7 e5fe | | Load 0x2,-0x2
00a8 822c | , | Call 0x1,0x2c
00a9 680d |h | Jump_Zero 0xb7
00aa 00e1 | | Load_Encached Boolean_Cache
00ab e5fe | | Load 0x2,-0x2
00ac 840c | | Call 0x2,0xc
00ad c403 | | Store 0x2,0x3
00ae 7808 |x | Jump 0xb7
00af e5fe | | Load 0x2,-0x2
00b0 822d | - | Call 0x1,0x2d
00b1 e5fe | | Load 0x2,-0x2
00b2 822f | / | Call 0x1,0x2f
00b3 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00b4 840b | | Call 0x2,0xb
00b5 4801 |H | Short_Literal 0x1
00b6 a403 | | Store_Unchecked 0x2,0x3
00b7 e403 | | Load 0x2,0x3
00b8 7011 |p | Jump_Nonzero 0xca
00b9 e5fd | | Load 0x2,-0x3
00ba 01db | | Execute Vector,Length
00bb 680e |h | Jump_Zero 0xca
00bc e00f | | Load 0x0,0xf
00bd 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
00be e00f | | Load 0x0,0xf
00bf 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00c0 e5fd | | Load 0x2,-0x3
00c1 e2d0 | | Load 0x1,0xd0
00c2 e00f | | Load 0x0,0xf
00c3 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
00c4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c5 4801 |H | Short_Literal 0x1
00c6 e2d0 | | Load 0x1,0xd0
00c7 e00f | | Load 0x0,0xf
00c8 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
00c9 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00ca 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00cb 0000 0000 | | .BLANK 0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00de | | .CONST 0x00de ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0004 | | .CONST 0x0004 ; Number of locals
00d3 INIT_00d0:
00d3 e28f | | Load 0x1,0x8f
00d4 02ff | | Declare_Variable Variant_Record
00d5 00d8 | | Load_Top At_Offset_0
00d6 1c00 | | Execute_Immediate Run_Utility,0x0
00d7 e21d | | Load 0x1,0x1d
00d8 02ff | | Declare_Variable Variant_Record
00d9 00d8 | | Load_Top At_Offset_0
00da 1c00 | | Execute_Immediate Run_Utility,0x0
00db e7fe | | Load 0x3,-0x2
00dc e031 | 1 | Load 0x0,0x31
00dd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00de BODY_00d0:
00de e7ff | | Load 0x3,-0x1
00df 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00e0 0e03 | | Execute_Immediate Not_Equal,0x3
00e1 6801 |h | Jump_Zero 0xe3
00e2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e3 4801 |H | Short_Literal 0x1
00e4 e7ff | | Load 0x3,-0x1
00e5 822b | + | Call 0x1,0x2b
00e6 00db | | Load_Top At_Offset_3
00e7 016d | m | Execute Variant_Record,Structure_Write
00e8 00cf | | Action Mark_Auxiliary
00e9 00db | | Load_Top At_Offset_3
00ea 822e | . | Call 0x1,0x2e
00eb e602 | | Load 0x3,0x2
00ec 822d | - | Call 0x1,0x2d
00ed 0263 | c | Execute Discrete,Above_Bound
00ee 7057 |pW | Jump_Nonzero 0x146
00ef 00d8 | | Load_Top At_Offset_0
00f0 e602 | | Load 0x3,0x2
00f1 822f | / | Call 0x1,0x2f
00f2 e603 | | Load 0x3,0x3
00f3 016d | m | Execute Variant_Record,Structure_Write
00f4 e603 | | Load 0x3,0x3
00f5 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00f6 e004 | | Load 0x0,0x4
00f7 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
00f8 e7fe | | Load 0x3,-0x2
00f9 027f | | Execute Discrete,Equal
00fa 6849 |hI | Jump_Zero 0x144
00fb e403 | | Load 0x2,0x3
00fc 7013 |p | Jump_Nonzero 0x110
00fd e00f | | Load 0x0,0xf
00fe 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
00ff e00f | | Load 0x0,0xf
0100 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0101 0092 016a | j| Action Push_String_Extended,0x16a ; "Interface "
0103 4801 |H | Short_Literal 0x1
0104 e404 | | Load 0x2,0x4
0105 8220 | | Call 0x1,0x20
0106 01cc | | Execute Vector,Catenate
0107 0092 016b | k| Action Push_String_Extended,0x16b ; " Usages"
0109 01cc | | Execute Vector,Catenate
010a e2d0 | | Load 0x1,0xd0
010b e00f | | Load 0x0,0xf
010c 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
010d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
010e 4801 |H | Short_Literal 0x1
010f a403 | | Store_Unchecked 0x2,0x3
0110 e00f | | Load 0x0,0xf
0111 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0112 00ea | | Load_Encached Null_String_Cache
0113 4800 |H | Short_Literal 0x0
0114 e603 | | Load 0x3,0x3
0115 8222 | " | Call 0x1,0x22
0116 4820 |H | Short_Literal 0x20
0117 480a |H | Short_Literal 0xa
0118 8243 | C | Call 0x1,0x43
0119 821f | | Call 0x1,0x1f
011a 0092 016c | l| Action Push_String_Extended,0x16c ; "-to-"
011c 01cc | | Execute Vector,Catenate
011d 480a |H | Short_Literal 0xa
011e e603 | | Load 0x3,0x3
011f 821f | | Call 0x1,0x1f
0120 01cc | | Execute Vector,Catenate
0121 0092 016d | m| Action Push_String_Extended,0x16d ; " ("
0123 01cc | | Execute Vector,Catenate
0124 4801 |H | Short_Literal 0x1
0125 e7ff | | Load 0x3,-0x1
0126 8220 | | Call 0x1,0x20
0127 01cc | | Execute Vector,Catenate
0128 0092 016e | n| Action Push_String_Extended,0x16e ; ") used in "
012a 01cc | | Execute Vector,Catenate
012b e604 | | Load 0x3,0x4
012c 01cc | | Execute Vector,Catenate
012d 01cb | | Execute Vector,Append
012e 4801 |H | Short_Literal 0x1
012f e603 | | Load 0x3,0x3
0130 8220 | | Call 0x1,0x20
0131 01cc | | Execute Vector,Catenate
0132 e2d0 | | Load 0x1,0xd0
0133 e00f | | Load 0x0,0xf
0134 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0135 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0136 e00f | | Load 0x0,0xf
0137 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0138 e00f | | Load 0x0,0xf
0139 1b16 | | Execute Package,Field_Read,Field_Number 0x16
013a e603 | | Load 0x3,0x3
013b 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
013c e7ff | | Load 0x3,-0x1
013d 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
013e e005 | | Load 0x0,0x5
013f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0140 e2d0 | | Load 0x1,0xd0
0141 e00f | | Load 0x0,0xf
0142 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0143 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0144 00c8 | | Action Pop_Auxiliary_Range
0145 3fa9 |? | Loop_Increasing 0xef
0146 00ce | | Action Pop_Auxiliary
0147 e403 | | Load 0x2,0x3
0148 6808 |h | Jump_Zero 0x151
0149 e00f | | Load 0x0,0xf
014a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
014b e00f | | Load 0x0,0xf
014c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
014d e2d0 | | Load 0x1,0xd0
014e e00f | | Load 0x0,0xf
014f 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0150 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0151 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0152 0000 0000 | | .BLANK 0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c e023 | # | Load 0x0,0x23
015d 180e | | Execute Package,Field_Execute,Field_Number 0xe
015e 0f04 | | Execute_Immediate Equal,0x4
015f 7004 |p | Jump_Nonzero 0x164
0160 00da | | Load_Top At_Offset_2
0161 e022 | " | Load 0x0,0x22
0162 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0163 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0164 0092 016f | o| Action Push_String_Extended,0x16f ; "SDD"
0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0167 ; --------------------------------------------------------------------------------------
0167 ; STRING TABLE
0167 ; --------------------------------------------------------------------------------------
0167 0014 | | .STRTAB 0x0014->0x0171 ; "*** This section of the document is currently unimplemented."
0168 004e | N | .STRTAB 0x004e->0x018f ; "Undefined Process_Kinds =>"
0169 0066 | f | .STRTAB 0x0066->0x019c ; " has been detected"
016a 0076 | v | .STRTAB 0x0076->0x01a5 ; "Interface "
016b 007e | ~ | .STRTAB 0x007e->0x01aa ; " Usages"
016c 0083 | | .STRTAB 0x0083->0x01ad ; "-to-"
016d 0085 | | .STRTAB 0x0085->0x01af ; " ("
016e 0085 | | .STRTAB 0x0085->0x01b0 ; ") used in "
016f 008d | | .STRTAB 0x008d->0x01b5 ; "SDD"
0170 008e | | .STREND 0x008e->0x01b7
0171 2a2a 2a20 |*** | .STRTAB_STRINGS
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; Debug Table
01b8 ; --------------------------------------------------------------------------------------
01b8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc75,0x0000,0x0001,0x0000
01be 5800 0f93 |X | .XXX[0x42]
01c0 5800 1790 |X |
01c2 6e61 a893 |na |
01c4 5801 a383 |X |
01c6 5c02 fb8b |\ |
01c8 5c03 cf87 |\ |
01ca 5c02 db9c |\ |
01cc 3851 a893 |8Q |
01ce 5c01 1fac |\ |
01d0 bc05 a893 | |
01d2 6001 fb83 |` |
01d4 6000 4b93 |` K |
01d6 6003 b3a3 |` |
01d8 6002 7f7f |` |
01da 6402 979f |d |
01dc 6402 33b7 |d 3 |
01de 6403 0b8b |d |
01e0 6401 9383 |d |
01e2 6401 9b83 |d |
01e4 6401 a490 |d |
01e6 9803 6802 | h |
01e8 07b7 6802 | h |
01ea 5f7f 6800 |_ h |
01ec 33a7 6802 |3 h |
01ee 6f7f 6801 |o h |
01f0 17af 6803 | h |
01f2 539f 6c02 |S l |
01f4 2780 ef6d |' m|
01f6 a893 6c02 | l |
01f8 a8b0 9803 | |
01fa 6c03 dba3 |l |
01fc 6c01 17af |l |
01fe 7003 9fb7 |p |