|
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_03c0fe
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 0020 | | .CONST 0x0020 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0005 | | .CONST 0x0005 ; Number of locals
001b INIT_0018:
001b 00e2 | | Load_Encached Integer_Cache
001c e002 | | Load 0x0,0x2
001d 03e9 | | Declare_Variable Discrete,Duplicate
001e 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
0020 BODY_0018:
0020 e5fd | | Load 0x2,-0x3
0021 4800 |H | Short_Literal 0x0
0022 0092 0154 | T| Action Push_String_Extended,0x154 ; "Pass count => "
0024 4800 |H | Short_Literal 0x0
0025 e5ff | | Load 0x2,-0x1
0026 0227 | ' | Execute Access,All_Reference
0027 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
0028 3418 |4 | Execute Record,Field_Reference,Field_Number 0x18
0029 01d5 | | Execute Vector,Field_Reference
002a 8003 | | Call 0x0,0x3
002b 01cc | | Execute Vector,Catenate
002c 8004 | | Call 0x0,0x4
002d 00d1 | | Pop_Control Pop_Count_1
002e e5fd | | Load 0x2,-0x3
002f 4800 |H | Short_Literal 0x0
0030 0092 0155 | U| Action Push_String_Extended,0x155 ; "Result => "
0032 4801 |H | Short_Literal 0x1
0033 e5ff | | Load 0x2,-0x1
0034 0227 | ' | Execute Access,All_Reference
0035 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
0036 3418 |4 | Execute Record,Field_Reference,Field_Number 0x18
0037 01d5 | | Execute Vector,Field_Reference
0038 8003 | | Call 0x0,0x3
0039 01cc | | Execute Vector,Catenate
003a 8004 | | Call 0x0,0x4
003b 00d1 | | Pop_Control Pop_Count_1
003c e5fd | | Load 0x2,-0x3
003d 4800 |H | Short_Literal 0x0
003e 0092 0156 | V| Action Push_String_Extended,0x156 ; "Bad Bits => "
0040 4802 |H | Short_Literal 0x2
0041 e5ff | | Load 0x2,-0x1
0042 0227 | ' | Execute Access,All_Reference
0043 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
0044 3418 |4 | Execute Record,Field_Reference,Field_Number 0x18
0045 01d5 | | Execute Vector,Field_Reference
0046 8003 | | Call 0x0,0x3
0047 01cc | | Execute Vector,Catenate
0048 8004 | | Call 0x0,0x4
0049 00d1 | | Pop_Control Pop_Count_1
004a e5fd | | Load 0x2,-0x3
004b 4800 |H | Short_Literal 0x0
004c 0092 0157 | W| Action Push_String_Extended,0x157 ; "Pattern_1 => "
004e 4803 |H | Short_Literal 0x3
004f e5ff | | Load 0x2,-0x1
0050 0227 | ' | Execute Access,All_Reference
0051 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
0052 3418 |4 | Execute Record,Field_Reference,Field_Number 0x18
0053 01d5 | | Execute Vector,Field_Reference
0054 8003 | | Call 0x0,0x3
0055 01cc | | Execute Vector,Catenate
0056 8004 | | Call 0x0,0x4
0057 00d1 | | Pop_Control Pop_Count_1
0058 e5fd | | Load 0x2,-0x3
0059 4800 |H | Short_Literal 0x0
005a 0092 0158 | X| Action Push_String_Extended,0x158 ; "Pattern_2 => "
005c 4804 |H | Short_Literal 0x4
005d e5ff | | Load 0x2,-0x1
005e 0227 | ' | Execute Access,All_Reference
005f 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
0060 3418 |4 | Execute Record,Field_Reference,Field_Number 0x18
0061 01d5 | | Execute Vector,Field_Reference
0062 8003 | | Call 0x0,0x3
0063 01cc | | Execute Vector,Catenate
0064 8004 | | Call 0x0,0x4
0065 00d1 | | Pop_Control Pop_Count_1
0066 e5fd | | Load 0x2,-0x3
0067 4800 |H | Short_Literal 0x0
0068 8005 | | Call 0x0,0x5
0069 00d1 | | Pop_Control Pop_Count_1
006a 00cf | | Action Mark_Auxiliary
006b 480f |H | Short_Literal 0xf
006c 4805 |H | Short_Literal 0x5
006d 0007 | | Action Break_Optional
006e e5fd | | Load 0x2,-0x3
006f 4800 |H | Short_Literal 0x0
0070 0092 0159 | Y| Action Push_String_Extended,0x159 ; "GP("
0072 4830 |H0 | Short_Literal 0x30
0073 4801 |H | Short_Literal 0x1
0074 4800 |H | Short_Literal 0x0
0075 e408 | | Load 0x2,0x8
0076 8006 | | Call 0x0,0x6
0077 01cc | | Execute Vector,Catenate
0078 0092 015a | Z| Action Push_String_Extended,0x15a ; ") => "
007a 01cc | | Execute Vector,Catenate
007b 00db | | Load_Top At_Offset_3
007c e5ff | | Load 0x2,-0x1
007d 0227 | ' | Execute Access,All_Reference
007e 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
007f 3418 |4 | Execute Record,Field_Reference,Field_Number 0x18
0080 01d5 | | Execute Vector,Field_Reference
0081 8003 | | Call 0x0,0x3
0082 01cc | | Execute Vector,Catenate
0083 8004 | | Call 0x0,0x4
0084 00d1 | | Pop_Control Pop_Count_1
0085 00c8 | | Action Pop_Auxiliary_Range
0086 3fe7 |? | Loop_Increasing 0x6e
0087 00ce | | Action Pop_Auxiliary
0088 e5fd | | Load 0x2,-0x3
0089 4800 |H | Short_Literal 0x0
008a 8005 | | Call 0x0,0x5
008b 00d1 | | Pop_Control Pop_Count_1
008c e5ff | | Load 0x2,-0x1
008d 0227 | ' | Execute Access,All_Reference
008e 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
008f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0090 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0091 e5ff | | Load 0x2,-0x1
0092 0227 | ' | Execute Access,All_Reference
0093 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0094 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0095 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0096 e5fd | | Load 0x2,-0x3
0097 4800 |H | Short_Literal 0x0
0098 0092 015b | [| Action Push_String_Extended,0x15b ; "TTOS / VTOS => "
009a 4830 |H0 | Short_Literal 0x30
009b 4800 |H | Short_Literal 0x0
009c 4800 |H | Short_Literal 0x0
009d e404 | | Load 0x2,0x4
009e 8006 | | Call 0x0,0x6
009f 01cc | | Execute Vector,Catenate
00a0 0092 015c | \| Action Push_String_Extended,0x15c ; " / "
00a2 01cc | | Execute Vector,Catenate
00a3 4830 |H0 | Short_Literal 0x30
00a4 4800 |H | Short_Literal 0x0
00a5 4800 |H | Short_Literal 0x0
00a6 e403 | | Load 0x2,0x3
00a7 8006 | | Call 0x0,0x6
00a8 01cc | | Execute Vector,Catenate
00a9 8004 | | Call 0x0,0x4
00aa 00d1 | | Pop_Control Pop_Count_1
00ab 00da | | Load_Top At_Offset_2
00ac 00da | | Load_Top At_Offset_2
00ad 027e | ~ | Execute Discrete,Not_Equal
00ae 6806 |h | Jump_Zero 0xb5
00af e5fd | | Load 0x2,-0x3
00b0 4800 |H | Short_Literal 0x0
00b1 0092 015d | ]| Action Push_String_Extended,0x15d ; "TTOP AND VTOP INCONSISTENT"
00b3 8004 | | Call 0x0,0x4
00b4 00d1 | | Pop_Control Pop_Count_1
00b5 00da | | Load_Top At_Offset_2
00b6 4c10 |L | Short_Literal -0x3f0
00b7 0273 | s | Execute Discrete,Plus
00b8 c402 | | Store 0x2,0x2
00b9 00cf | | Action Mark_Auxiliary
00ba 480f |H | Short_Literal 0xf
00bb 4800 |H | Short_Literal 0x0
00bc 0007 | | Action Break_Optional
00bd e5fd | | Load 0x2,-0x3
00be 4800 |H | Short_Literal 0x0
00bf 00da | | Load_Top At_Offset_2
00c0 8405 | | Call 0x2,0x5
00c1 e402 | | Load 0x2,0x2
00c2 e5ff | | Load 0x2,-0x1
00c3 0227 | ' | Execute Access,All_Reference
00c4 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
00c5 3419 |4 | Execute Record,Field_Reference,Field_Number 0x19
00c6 01d5 | | Execute Vector,Field_Reference
00c7 8003 | | Call 0x0,0x3
00c8 01cc | | Execute Vector,Catenate
00c9 8004 | | Call 0x0,0x4
00ca 00d1 | | Pop_Control Pop_Count_1
00cb e402 | | Load 0x2,0x2
00cc 7003 |p | Jump_Nonzero 0xd0
00cd 480f |H | Short_Literal 0xf
00ce a402 | | Store_Unchecked 0x2,0x2
00cf 7803 |x | Jump 0xd3
00d0 e402 | | Load 0x2,0x2
00d1 0aff | | Execute_Immediate Plus,-0x1
00d2 c402 | | Store 0x2,0x2
00d3 00c8 | | Action Pop_Auxiliary_Range
00d4 3fe8 |? | Loop_Increasing 0xbd
00d5 00ce | | Action Pop_Auxiliary
00d6 e5fd | | Load 0x2,-0x3
00d7 4800 |H | Short_Literal 0x0
00d8 8005 | | Call 0x0,0x5
00d9 00d1 | | Pop_Control Pop_Count_1
00da e5fd | | Load 0x2,-0x3
00db 4800 |H | Short_Literal 0x0
00dc 0092 015e | ^| Action Push_String_Extended,0x15e ; "TLC => "
00de 4830 |H0 | Short_Literal 0x30
00df 4800 |H | Short_Literal 0x0
00e0 4800 |H | Short_Literal 0x0
00e1 e5ff | | Load 0x2,-0x1
00e2 0227 | ' | Execute Access,All_Reference
00e3 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
00e4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e5 8006 | | Call 0x0,0x6
00e6 01cc | | Execute Vector,Catenate
00e7 8004 | | Call 0x0,0x4
00e8 00d1 | | Pop_Control Pop_Count_1
00e9 e5fd | | Load 0x2,-0x3
00ea 4800 |H | Short_Literal 0x0
00eb 0092 015f | _| Action Push_String_Extended,0x15f ; "VLC => "
00ed 4830 |H0 | Short_Literal 0x30
00ee 4800 |H | Short_Literal 0x0
00ef 4800 |H | Short_Literal 0x0
00f0 e5ff | | Load 0x2,-0x1
00f1 0227 | ' | Execute Access,All_Reference
00f2 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
00f3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f4 8006 | | Call 0x0,0x6
00f5 01cc | | Execute Vector,Catenate
00f6 8004 | | Call 0x0,0x4
00f7 00d1 | | Pop_Control Pop_Count_1
00f8 e5fd | | Load 0x2,-0x3
00f9 4800 |H | Short_Literal 0x0
00fa 8005 | | Call 0x0,0x5
00fb 00d1 | | Pop_Control Pop_Count_1
00fc e5fd | | Load 0x2,-0x3
00fd 4800 |H | Short_Literal 0x0
00fe 0092 0160 | `| Action Push_String_Extended,0x160 ; "MAR => "
0100 e5ff | | Load 0x2,-0x1
0101 0227 | ' | Execute Access,All_Reference
0102 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
0103 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11
0104 8003 | | Call 0x0,0x3
0105 01cc | | Execute Vector,Catenate
0106 8004 | | Call 0x0,0x4
0107 00d1 | | Pop_Control Pop_Count_1
0108 e5fd | | Load 0x2,-0x3
0109 4800 |H | Short_Literal 0x0
010a 0092 0161 | a| Action Push_String_Extended,0x161 ; "TAR => "
010c 4830 |H0 | Short_Literal 0x30
010d 4800 |H | Short_Literal 0x0
010e 4800 |H | Short_Literal 0x0
010f e5ff | | Load 0x2,-0x1
0110 0227 | ' | Execute Access,All_Reference
0111 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
0112 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
0113 8007 | | Call 0x0,0x7
0114 01cc | | Execute Vector,Catenate
0115 0092 0162 | b| Action Push_String_Extended,0x162 ; " VAR => "
0117 01cc | | Execute Vector,Catenate
0118 4830 |H0 | Short_Literal 0x30
0119 4800 |H | Short_Literal 0x0
011a 4800 |H | Short_Literal 0x0
011b e5ff | | Load 0x2,-0x1
011c 0227 | ' | Execute Access,All_Reference
011d 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
011e 3c13 |< | Execute Record,Field_Read,Field_Number 0x13
011f 8007 | | Call 0x0,0x7
0120 01cc | | Execute Vector,Catenate
0121 8004 | | Call 0x0,0x4
0122 00d1 | | Pop_Control Pop_Count_1
0123 e5fd | | Load 0x2,-0x3
0124 4800 |H | Short_Literal 0x0
0125 0092 0163 | c| Action Push_String_Extended,0x163 ; "RDR => "
0127 e5ff | | Load 0x2,-0x1
0128 0227 | ' | Execute Access,All_Reference
0129 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
012a 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
012b 8003 | | Call 0x0,0x3
012c 01cc | | Execute Vector,Catenate
012d 8004 | | Call 0x0,0x4
012e 00d1 | | Pop_Control Pop_Count_1
012f e5fd | | Load 0x2,-0x3
0130 4800 |H | Short_Literal 0x0
0131 0092 0164 | d| Action Push_String_Extended,0x164 ; "WDR => "
0133 e5ff | | Load 0x2,-0x1
0134 0227 | ' | Execute Access,All_Reference
0135 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
0136 3417 |4 | Execute Record,Field_Reference,Field_Number 0x17
0137 8003 | | Call 0x0,0x3
0138 01cc | | Execute Vector,Catenate
0139 8004 | | Call 0x0,0x4
013a 00d1 | | Pop_Control Pop_Count_1
013b e5fd | | Load 0x2,-0x3
013c 4800 |H | Short_Literal 0x0
013d 8005 | | Call 0x0,0x5
013e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
013f 0000 | | .XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 7003 |p | Jump_Nonzero 0x148
0145 0092 0165 | e| Action Push_String_Extended,0x165 ; "TOP => "
0147 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0148 0092 0166 | f| Action Push_String_Extended,0x166 ; "TOP-"
014a 4830 |H0 | Short_Literal 0x30
014b 4801 |H | Short_Literal 0x1
014c 4800 |H | Short_Literal 0x0
014d e7ff | | Load 0x3,-0x1
014e 8006 | | Call 0x0,0x6
014f 01cc | | Execute Vector,Catenate
0150 0092 0167 | g| Action Push_String_Extended,0x167 ; " => "
0152 01cc | | Execute Vector,Catenate
0153 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0154 ; --------------------------------------------------------------------------------------
0154 ; STRING TABLE
0154 ; --------------------------------------------------------------------------------------
0154 002a | * | .STRTAB 0x002a->0x0169 ; "Pass count => "
0155 0036 | 6 | .STRTAB 0x0036->0x0170 ; "Result => "
0156 0042 | B | .STRTAB 0x0042->0x0177 ; "Bad Bits => "
0157 004e | N | .STRTAB 0x004e->0x017e ; "Pattern_1 => "
0158 005a | Z | .STRTAB 0x005a->0x0185 ; "Pattern_2 => "
0159 0066 | f | .STRTAB 0x0066->0x018c ; "GP("
015a 0067 | g | .STRTAB 0x0067->0x018d ; ") => "
015b 006a | j | .STRTAB 0x006a->0x0190 ; "TTOS / VTOS => "
015c 0077 | w | .STRTAB 0x0077->0x0197 ; " / "
015d 0078 | x | .STRTAB 0x0078->0x0199 ; "TTOP AND VTOP INCONSISTENT"
015e 0090 | | .STRTAB 0x0090->0x01a6 ; "TLC => "
015f 0095 | | .STRTAB 0x0095->0x01a9 ; "VLC => "
0160 009a | | .STRTAB 0x009a->0x01ad ; "MAR => "
0161 009f | | .STRTAB 0x009f->0x01b0 ; "TAR => "
0162 00a4 | | .STRTAB 0x00a4->0x01b4 ; " VAR => "
0163 00aa | | .STRTAB 0x00aa->0x01b8 ; "RDR => "
0164 00af | | .STRTAB 0x00af->0x01bb ; "WDR => "
0165 00b4 | | .STRTAB 0x00b4->0x01bf ; "TOP => "
0166 00bb | | .STRTAB 0x00bb->0x01c3 ; "TOP-"
0167 00bd | | .STRTAB 0x00bd->0x01c5 ; " => "
0168 00bf | | .STREND 0x00bf->0x01c7
0169 5061 7373 |Pass| .STRTAB_STRINGS
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 0012 | | .DEBUG4 0x0004,0x0012,0x5aeb,0x0000,0x0001,0x0000
01ce 0000 0000 | | .BLANK 0000[0x32]