|
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_02f8e7
└─⟦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 0080 | | .CONST 0x0080 ; 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 0018 | | .CONST 0x0018 ; Address of begin
0009 003f | ? | .CONST 0x003f ; Address of exception handler
000a 0005 | | .CONST 0x0005 ; Number of locals
000b INIT_0008:
000b 4801 |H | Short_Literal 0x1
000c 6057 |`W | Indirect_Literal Discrete,0x64,{0x00000000, 0x000007db}
000d 00e9 | | Load_Encached String_Cache
000e 0334 | 4 | Declare_Variable Array,With_Constraint
000f 00e3 | | Load_Encached Natural_Cache
0010 e01a | | Load 0x0,0x1a
0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0012 02c7 | | Declare_Variable Any
0013 e01a | | Load 0x0,0x1a
0014 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0015 c604 | | Store 0x3,0x4
0016 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
0018 BODY_0008:
0018 0092 0068 | h| Action Push_String_Extended,0x68 ; "Terminate with END_OF_INPUT key."
001a e01a | | Load 0x0,0x1a
001b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
001c 4801 |H | Short_Literal 0x1
001d e01a | | Load 0x0,0x1a
001e 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
001f 00cf | | Action Mark_Auxiliary
0020 0007 | | Action Break_Optional
0021 8605 | | Call 0x3,0x5
0022 00cf | | Action Mark_Auxiliary
0023 e603 | | Load 0x3,0x3
0024 4801 |H | Short_Literal 0x1
0025 0263 | c | Execute Discrete,Above_Bound
0026 700b |p | Jump_Nonzero 0x32
0027 00d8 | | Load_Top At_Offset_0
0028 e602 | | Load 0x3,0x2
0029 01d7 | | Execute Vector,Field_Read
002a 0f22 | " | Execute_Immediate Equal,0x22
002b 6804 |h | Jump_Zero 0x30
002c 4827 |H' | Short_Literal 0x27
002d e609 | | Load 0x3,0x9
002e e602 | | Load 0x3,0x2
002f 01d6 | | Execute Vector,Field_Write
0030 00c8 | | Action Pop_Auxiliary_Range
0031 3ff5 |? | Loop_Increasing 0x27
0032 00ce | | Action Pop_Auxiliary
0033 e7ff | | Load 0x3,-0x1
0034 480a |H | Short_Literal 0xa
0035 4801 |H | Short_Literal 0x1
0036 e603 | | Load 0x3,0x3
0037 e602 | | Load 0x3,0x2
0038 01cf | | Execute Vector,Slice_Read
0039 01cb | | Execute Vector,Append
003a e403 | | Load 0x2,0x3
003b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
003c c7ff | | Store 0x3,-0x1
003d 00c9 | | Action Pop_Auxiliary_Loop
003e 7fe2 | | Jump 0x21
003f TRAP_0008:
003f 00d8 | | Load_Top At_Offset_0
0040 0107 | | Execute Exception,Get_Name
0041 4950 |IP | Short_Literal 0x150
0042 495f |I_ | Short_Literal 0x15f
0043 0262 | b | Execute Discrete,In_Range
0044 6808 |h | Jump_Zero 0x4d
0045 e604 | | Load 0x3,0x4
0046 e01a | | Load 0x0,0x1a
0047 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0048 c604 | | Store 0x3,0x4
0049 4801 |H | Short_Literal 0x1
004a e01a | | Load 0x0,0x1a
004b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
004c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
004d 0100 | | Execute Exception,Raise
004e 0000 0000 | | .XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 005a | Z | .CONST 0x005a ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00e3 | | Load_Encached Natural_Cache
0054 e602 | | Load 0x3,0x2
0055 e01a | | Load 0x0,0x1a
0056 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0057 00d1 | | Pop_Control Pop_Count_1
0058 c603 | | Store 0x3,0x3
0059 4501 |E | Exit_Suprogram New_Top_Offset 0x1
005a TRAP_0050:
005a 00d8 | | Load_Top At_Offset_0
005b 0107 | | Execute Exception,Get_Name
005c 4970 |Ip | Short_Literal 0x170
005d 497f |I | Short_Literal 0x17f
005e 0262 | b | Execute Discrete,In_Range
005f 6803 |h | Jump_Zero 0x63
0060 4800 |H | Short_Literal 0x0
0061 a603 | | Store_Unchecked 0x3,0x3
0062 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0063 0100 | | Execute Exception,Raise
0064 0000 0000 | | .LITERAL {0x00000000, 0x000007db}
0068 ; --------------------------------------------------------------------------------------
0068 ; STRING TABLE
0068 ; --------------------------------------------------------------------------------------
0068 0004 | | .STRTAB 0x0004->0x006a ; "Terminate with END_OF_INPUT key."
0069 0022 | " | .STREND 0x0022->0x007a
006a 5465 726d |Term| .STRTAB_STRINGS
007a 0000 0000 | | .BLANK 0000[0x6]
0080 ; --------------------------------------------------------------------------------------
0080 ; Debug Table
0080 ; --------------------------------------------------------------------------------------
0080 0004 0000 | | .DEBUG4 0x0004,0x0000,0x11f4,0x0000,0x0001,0x0000
0086 a5cd 9590 | | .XXX[0x17a]
0088 81dd a195 | |
008a b881 8481 | |
008c cd95 c9d9 | |
008e 95c8 81c9 | |
0090 958d 95a5 | |
0092 d995 cc81 | |
0094 8481 c995 | |
0096 c5d5 95cd | |
0098 d081 b595 | |
009a cdcd 859d | |
009c 9428 8081 | ( |
009e 8dbd b9d1 | |
00a0 85a5 b9a5 | |
00a2 b99c 8184 | |
00a4 81c1 c9bd | |
00a6 9dc9 85b4 | |
00a8 81b9 d5b5 | |
00aa 8995 c881 | |
00ac d1a1 85d0 | |
00ae 8191 bd95 | |
00b0 cc81 b9bd | |
00b2 d081 a591 | |
00b4 95b9 d1a5 | |
00b6 99e4 8185 | |
00b8 b881 95e1 | |
00ba a5cd d1a5 | |
00bc b99c 2880 | ( |
00be 81c1 c9bd | |
00c0 9dc9 85b4 | |
00c2 b880 8151 | Q|
00c4 a194 8195 | |
00c6 e18d 95c1 | |
00c8 d1a5 bdb8 | |
00ca 81b5 85e4 | |
00cc 81a5 b991 | |
00ce a58d 85d1 | |
00d0 9481 8481 | |
00d2 91a5 cd85 | |
00d4 9dc9 9595 | |
00d6 b595 b9d0 | |
00d8 8189 95d1 | |
00da dd95 95b8 | |
00dc 818d b1a5 | |
00de 95b9 d028 | (|
00e0 8081 85b9 | |
00e2 9081 cd95 | |
00e4 c9d9 95c8 | |
00e6 8185 89bd | |
00e8 d5d0 81c1 | |
00ea c9bd 9dc9 | |
00ec 85b4 81b9 | |
00ee d5b5 8995 | |
00f0 c9a5 b99c | |
00f2 b828 8081 | ( |
00f4 01b9 bd91 | |
00f6 9480 8551 | Q|
00f8 bdbd b1cc | |
00fa b939 95d1 | 9 |
00fc ddbd c9ad | |
00fe a5b9 9cb9 | |
0100 49c1 8cb9 |I |
0102 39bd 7d4d |9 }M|
0104 d58d a17d | }|
0106 5995 c9cd |Y |
0108 a5bd b828 | (|
010a 2880 8139 |( 9|
010c bd7d 4dd5 | }M |
010e 8da1 7d59 | }Y|
0110 95c9 cda5 | |
0112 bdb8 80e8 | |
0114 8195 e18d | |
0116 95c1 d1a5 | |
0118 bdb8 ec28 | (|
011a 2880 8149 |( I|
011c 85a5 cd95 | |
011e 9081 dda1 | |
0120 95b8 8184 | |
0122 81b9 bdb9 | |
0124 95e1 a5cd | |
0126 d195 b9d0 | |
0128 81d9 95c9 | |
012a cda5 bdb8 | |
012c 81a5 cc81 | |
012e 8d85 b1b1 | |
0130 9590 b828 | (|
0132 2880 8151 |( Q|
0134 a1a5 cc81 | |
0136 95e1 8d95 | |
0138 c1d1 a5bd | |
013a b881 a5cc | |
013c 81c9 85a5 | |
013e cd95 9081 | |
0140 dda1 95b8 | |
0142 8184 81cd | |
0144 95c9 d995 | |
0146 c881 c995 | |
0148 8d95 a5d9 | |
014a 95cc 8184 | |
014c 81c9 95c5 | |
014e d595 cdd0 | |
0150 81b5 95cd | |
0152 cd85 9d94 | |
0154 2880 818d |( |
0156 bdb9 d185 | |
0158 a5b9 a5b9 | |
015a 9c81 8481 | |
015c d995 c9cd | |
015e a5bd b881 | |
0160 b9d5 b589 | |
0162 95c8 81d1 | |
0164 a185 d081 | |
0166 91bd 95cc | |
0168 81b9 bdd0 | |
016a 81a5 9195 | |
016c b9d1 a599 | |
016e e481 8481 | |
0170 cdd5 c1c1 | |
0172 bdc9 d195 | |
0174 9028 8081 | ( |
0176 d995 c9cd | |
0178 a5bd b8b8 | |
017a 2880 8101 |( |
017c b9bd 9194 | |
017e 8085 51bd | Q |
0180 bdb1 ccb9 | |
0182 3995 d1dd |9 |
0184 bdc9 ada5 | |
0186 b99c b949 | I|
0188 c18c b93d | =|
018a d1a1 95c9 | |
018c 7d15 c9c9 |} |
018e bdc8 2828 | ((|
0190 8081 3dd1 | = |
0192 a195 c97d | }|
0194 15c9 c9bd | |
0196 c880 e881 | |
0198 95e1 8d95 | |
019a c1d1 a5bd | |
019c b8ec 2828 | ((|
019e 8081 4985 | I |
01a0 a5cd 9590 | |
01a2 81d5 b991 | |
01a4 95c8 8184 | |
01a6 81d9 85c9 | |
01a8 a595 d1e4 | |
01aa 81bd 9881 | |
01ac 8da5 c98d | |
01ae d5b5 cdd1 | |
01b0 85b9 8d95 | |
01b2 ccb8 2828 | ((|
01b4 8081 51a1 | Q |
01b6 a5cc 8195 | |
01b8 e18d 95c1 | |
01ba d1a5 bdb8 | |
01bc 81a5 cc81 | |
01be c985 a5cd | |
01c0 9590 8189 | |
01c2 e481 99d5 | |
01c4 b98d d1a5 | |
01c6 bdb8 811d | |
01c8 95d1 7d35 | }5|
01ca 95cd cd85 | |
01cc 9d94 81d1 | |
01ce bc81 a5b9 | |
01d0 91a5 8d85 | |
01d2 d194 81d1 | |
01d4 a185 d028 | (|
01d6 8081 85b8 | |
01d8 81d5 b9ad | |
01da b9bd ddb8 | |
01dc 8195 e18d | |
01de 95c1 d1a5 | |
01e0 bdb8 81a1 | |
01e2 85cc 8189 | |
01e4 9595 b881 | |
01e6 c985 a5cd | |
01e8 9590 81a5 | |
01ea b881 d1a1 | |
01ec 9481 cd95 | |
01ee c9d9 95c8 | |
01f0 b828 8081 | ( |
01f2 01b9 bd91 | |
01f4 9480 8551 | Q|
01f6 bdbd b1cc | |
01f8 b939 95d1 | 9 |
01fa ddbd c9ad | |
01fc a5b9 9cb9 | |
01fe 49c1 8cb9 |I |