|
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_03b8fe
└─⟦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 0150 | P | .CONST 0x0150 ; 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 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 004d | M | .CONST 0x004d ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000f | | .CONST 0x000f ; Number of locals
001b INIT_0018:
001b 00da | | Load_Top At_Offset_2
001c 8001 | | Call 0x0,0x1
001d 4801 |H | Short_Literal 0x1
001e 4802 |H | Short_Literal 0x2
001f 00e9 | | Load_Encached String_Cache
0020 035b | [ | Declare_Type Array,Constrained
0021 0337 | 7 | Declare_Variable Array
0022 4801 |H | Short_Literal 0x1
0023 4850 |HP | Short_Literal 0x50
0024 00e9 | | Load_Encached String_Cache
0025 035b | [ | Declare_Type Array,Constrained
0026 0337 | 7 | Declare_Variable Array
0027 00e3 | | Load_Encached Natural_Cache
0028 4801 |H | Short_Literal 0x1
0029 4850 |HP | Short_Literal 0x50
002a 00e9 | | Load_Encached String_Cache
002b 035b | [ | Declare_Type Array,Constrained
002c 00e3 | | Load_Encached Natural_Cache
002d 00e3 | | Load_Encached Natural_Cache
002e 00e3 | | Load_Encached Natural_Cache
002f 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
0031 4804 |H | Short_Literal 0x4
0032 032d | - | Declare_Type Record,Defined
0033 00d8 | | Load_Top At_Offset_0
0034 0322 | " | Declare_Variable Record
0035 00d8 | | Load_Top At_Offset_0
0036 1c00 | | Execute_Immediate Run_Utility,0x0
0037 e5ff | | Load 0x2,-0x1
0038 0227 | ' | Execute Access,All_Reference
0039 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
003a 0007 | | Action Break_Optional
003b e5ff | | Load 0x2,-0x1
003c 0227 | ' | Execute Access,All_Reference
003d 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
003e 0007 | | Action Break_Optional
003f e002 | | Load 0x0,0x2
0040 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0041 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0042 0322 | " | Declare_Variable Record
0043 00e3 | | Load_Encached Natural_Cache
0044 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0045 03e9 | | Declare_Variable Discrete,Duplicate
0046 00e3 | | Load_Encached Natural_Cache
0047 4a00 |J | Short_Literal 0x200
0048 4a09 |J | Short_Literal 0x209
0049 00e3 | | Load_Encached Natural_Cache
004a 03f8 | | Declare_Type Discrete,Constrained
004b 029f 010b | | Declare_Subprogram INIT_0108,For_Call
004d BODY_0018:
004d 4800 |H | Short_Literal 0x0
004e e5fa | | Load 0x2,-0x6
004f 0092 0125 | %| Action Push_String_Extended,0x125 ; "Microcode trace for Wcs version "
0051 e402 | | Load 0x2,0x2
0052 01cc | | Execute Vector,Catenate
0053 e5fb | | Load 0x2,-0x5
0054 e003 | | Load 0x0,0x3
0055 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0056 e5fd | | Load 0x2,-0x3
0057 6804 |h | Jump_Zero 0x5c
0058 e5fd | | Load 0x2,-0x3
0059 6076 |`v | Indirect_Literal Discrete,0xd0,{0x00000000, 0x00000400}
005a 027b | { | Execute Discrete,Greater_Equal
005b 6803 |h | Jump_Zero 0x5f
005c 4800 |H | Short_Literal 0x0
005d 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
005e 7805 |x | Jump 0x64
005f 4bff |K | Short_Literal 0x3ff
0060 e5fd | | Load 0x2,-0x3
0061 0272 | r | Execute Discrete,Minus
0062 0a01 | | Execute_Immediate Plus,0x1
0063 005b | [ | Store_Top Discrete,At_Offset_3
0064 00cf | | Action Mark_Auxiliary
0065 4bff |K | Short_Literal 0x3ff
0066 e40d | | Load 0x2,0xd
0067 0263 | c | Execute Discrete,Above_Bound
0068 704d |pM | Jump_Nonzero 0xb6
0069 00d8 | | Load_Top At_Offset_0
006a e408 | | Load 0x2,0x8
006b 01d5 | | Execute Vector,Field_Reference
006c e40a | | Load 0x2,0xa
006d 017d | } | Execute Record,Structure_Write
006e 0092 0126 | &| Action Push_String_Extended,0x126 ; " "
0070 0092 0127 | '| Action Push_String_Extended,0x127 ; "H"
0072 e40a | | Load 0x2,0xa
0073 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0074 e004 | | Load 0x0,0x4
0075 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0076 0092 0126 | &| Action Push_String_Extended,0x126 ; " "
0078 0092 0128 | (| Action Push_String_Extended,0x128 ; "C"
007a e40a | | Load 0x2,0xa
007b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
007c e004 | | Load 0x0,0x4
007d 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
007e 01cc | | Execute Vector,Catenate
007f e403 | | Load 0x2,0x3
0080 01d4 | | Execute Vector,Structure_Write
0081 4800 |H | Short_Literal 0x0
0082 e5fa | | Load 0x2,-0x6
0083 e403 | | Load 0x2,0x3
0084 4820 |H | Short_Literal 0x20
0085 4805 |H | Short_Literal 0x5
0086 4810 |H | Short_Literal 0x10
0087 e40a | | Load 0x2,0xa
0088 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0089 e005 | | Load 0x0,0x5
008a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
008b 01cc | | Execute Vector,Catenate
008c e5fb | | Load 0x2,-0x5
008d e003 | | Load 0x0,0x3
008e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
008f e40a | | Load 0x2,0xa
0090 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0091 e40e | | Load 0x2,0xe
0092 0260 | ` | Execute Discrete,In_Type
0093 6820 |h | Jump_Zero 0xb4
0094 00d8 | | Load_Top At_Offset_0
0095 4bff |K | Short_Literal 0x3ff
0096 027f | | Execute Discrete,Equal
0097 7006 |p | Jump_Nonzero 0x9e
0098 00d8 | | Load_Top At_Offset_0
0099 0a01 | | Execute_Immediate Plus,0x1
009a e408 | | Load 0x2,0x8
009b 01d5 | | Execute Vector,Field_Reference
009c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
009d 7016 |p | Jump_Nonzero 0xb4
009e 00d8 | | Load_Top At_Offset_0
009f a40b | | Store_Unchecked 0x2,0xb
00a0 00cf | | Action Mark_Auxiliary
00a1 e40d | | Load 0x2,0xd
00a2 00da | | Load_Top At_Offset_2
00a3 0264 | d | Execute Discrete,Below_Bound
00a4 700c |p | Jump_Nonzero 0xb1
00a5 00d8 | | Load_Top At_Offset_0
00a6 0aff | | Execute_Immediate Plus,-0x1
00a7 c40c | | Store 0x2,0xc
00a8 00d8 | | Load_Top At_Offset_0
00a9 e408 | | Load 0x2,0x8
00aa 01d5 | | Execute Vector,Field_Reference
00ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ac 7002 |p | Jump_Nonzero 0xaf
00ad 00d2 | | Pop_Control Pop_Count_2
00ae 7802 |x | Jump 0xb1
00af 00c8 | | Action Pop_Auxiliary_Range
00b0 37f4 |7 | Loop_Decreasing 0xa5
00b1 00ce | | Action Pop_Auxiliary
00b2 00d2 | | Pop_Control Pop_Count_2
00b3 7802 |x | Jump 0xb6
00b4 00c8 | | Action Pop_Auxiliary_Range
00b5 3fb3 |? | Loop_Increasing 0x69
00b6 00ce | | Action Pop_Auxiliary
00b7 4800 |H | Short_Literal 0x0
00b8 e5fa | | Load 0x2,-0x6
00b9 e5fb | | Load 0x2,-0x5
00ba e003 | | Load 0x0,0x3
00bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bc e5fc | | Load 0x2,-0x4
00bd 6810 |h | Jump_Zero 0xce
00be 4800 |H | Short_Literal 0x0
00bf e5fa | | Load 0x2,-0x6
00c0 0092 0129 | )| Action Push_String_Extended,0x129 ; "Micro Stack contents :"
00c2 e5fb | | Load 0x2,-0x5
00c3 e003 | | Load 0x0,0x3
00c4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00c5 00cf | | Action Mark_Auxiliary
00c6 e004 | | Load 0x0,0x4
00c7 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
00c8 01d9 | | Execute Vector,Reverse_Bounds
00c9 0007 | | Action Break_Optional
00ca 840f | | Call 0x2,0xf
00cb 00c8 | | Action Pop_Auxiliary_Range
00cc 3ffd |? | Loop_Increasing 0xca
00cd 00ce | | Action Pop_Auxiliary
00ce 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00cf 0000 | | .XXX[0x1]
00d0 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4608 |F | Jump_Case 0x9
00dc 7808 |x | Jump 0xe5 ; case 0x0
00dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00de 7821 |x! | Jump 0x100 ; case 0x2
00df 7820 |x | Jump 0x100 ; case 0x3
00e0 781f |x | Jump 0x100 ; case 0x4
00e1 781e |x | Jump 0x100 ; case 0x5
00e2 781d |x | Jump 0x100 ; case 0x6
00e3 781c |x | Jump 0x100 ; case 0x7
00e4 781b |x | Jump 0x100 ; case 0x8
00e5 e406 | | Load 0x2,0x6
00e6 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00e7 0337 | 7 | Declare_Variable Array
00e8 4850 |HP | Short_Literal 0x50
00e9 4801 |H | Short_Literal 0x1
00ea 4820 |H | Short_Literal 0x20
00eb 00d9 | | Load_Top At_Offset_1
00ec e602 | | Load 0x3,0x2
00ed 01d6 | | Execute Vector,Field_Write
00ee 3ffb |? | Loop_Increasing 0xea
00ef 00db | | Load_Top At_Offset_3
00f0 00d9 | | Load_Top At_Offset_1
00f1 00d9 | | Load_Top At_Offset_1
00f2 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00f3 0119 | | Execute Any,Check_In_Formal_Type
00f4 00d1 | | Pop_Control Pop_Count_1
00f5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f6 4800 |H | Short_Literal 0x0
00f7 00db | | Load_Top At_Offset_3
00f8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f9 4800 |H | Short_Literal 0x0
00fa 00db | | Load_Top At_Offset_3
00fb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00fc 4800 |H | Short_Literal 0x0
00fd 00db | | Load_Top At_Offset_3
00fe 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00ff 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0100 0869 | i | Execute_Immediate Raise,0x69
0101 0000 0000 | | .BLANK 0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 4800 |H | Short_Literal 0x0
010c e5fa | | Load 0x2,-0x6
010d 4820 |H | Short_Literal 0x20
010e 4802 |H | Short_Literal 0x2
010f 480a |H | Short_Literal 0xa
0110 e412 | | Load 0x2,0x12
0111 e005 | | Load 0x0,0x5
0112 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0113 0092 012a | *| Action Push_String_Extended,0x12a ; " - "
0115 01cc | | Execute Vector,Catenate
0116 4820 |H | Short_Literal 0x20
0117 4805 |H | Short_Literal 0x5
0118 4810 |H | Short_Literal 0x10
0119 e412 | | Load 0x2,0x12
011a e409 | | Load 0x2,0x9
011b 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
011c 01d5 | | Execute Vector,Field_Reference
011d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
011e e005 | | Load 0x0,0x5
011f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0120 01cc | | Execute Vector,Catenate
0121 e5fb | | Load 0x2,-0x5
0122 e003 | | Load 0x0,0x3
0123 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0124 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0125 ; --------------------------------------------------------------------------------------
0125 ; STRING TABLE
0125 ; --------------------------------------------------------------------------------------
0125 000e | | .STRTAB 0x000e->0x012c ; "Microcode trace for Wcs version "
0126 002c | , | .STRTAB 0x002c->0x013c ; " "
0127 002b | + | .STRTAB 0x002b->0x013c ; "H"
0128 002a | * | .STRTAB 0x002a->0x013d ; "C"
0129 0029 | ) | .STRTAB 0x0029->0x013d ; "Micro Stack contents :"
012a 003d | = | .STRTAB 0x003d->0x0148 ; " - "
012b 003e | > | .STREND 0x003e->0x014a
012c 4d69 6372 |Micr| .STRTAB_STRINGS
014a 0000 0000 | | .BLANK 0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug Table
0150 ; --------------------------------------------------------------------------------------
0150 0004 000e | | .DEBUG4 0x0004,0x000e,0x9a08,0x0000,0x0001,0x0000
0156 9500 cc00 | | .XXX[0xaa]
0158 14f2 03c8 | |
015a 0051 2010 | Q |
015c a006 c800 | |
015e 4f00 055d |O ]|
0160 8103 001f | |
0162 7803 6c00 |x l |
0164 3ec0 10b0 |> |
0166 00f4 6027 | `'|
0168 8003 f401 | |
016a 0e00 13d6 | |
016c 02fc 003f | ?|
016e c008 8000 | |
0170 0000 0000 | |
0172 0404 008b | |
0174 0010 e200 | |
0176 0000 4730 | G0|
0178 1490 012a | *|
017a 002c 0004 | , |
017c d000 8a00 | |
017e 139a 02f0 | |
0180 0052 c008 | R |
0182 9001 4c00 | L |
0184 3780 0541 |7 A|
0186 00cf 0015 | |
0188 2a04 8400 |* |
018a 5720 0b50 |W P|
018c 015f 0027 | _ '|
018e c005 a080 | |
0190 a300 16ae | |
0192 0544 005b | D [|
0194 7000 0001 |p |
0196 70c0 41c0 |p A |
0198 05d1 00c0 | |
019a 0017 6602 | f |
019c cc00 5e20 | ^ |
019e 09b0 017a | z|
01a0 c033 8005 | 3 |
01a2 fc81 4700 | G |
01a4 1816 0258 | X|
01a6 0061 e009 | a |
01a8 8001 8980 | |
01aa 4640 0636 |F@ 6|
01ac 80f1 0018 | |
01ae fc03 7400 | t |
01b0 6478 1060 |dx `|
01b2 0195 2000 | |
01b4 0006 5980 | Y |
01b6 9c00 197a | z|
01b8 0588 0066 | f|
01ba 900c 4001 | @ |
01bc 9d00 3580 | 5 |
01be 067a 0127 | z '|
01c0 0019 fa03 | |
01c2 4000 6840 |@ h@|
01c4 0b10 01a2 | |
01c6 6058 4006 |`X@ |
01c8 8f80 bd00 | |
01ca 1a6c 029c | l |
01cc 006b 700d | kp |
01ce 2001 b0a0 | |
01d0 2a40 06c8 |*@ |
01d2 8000 001b | |
01d4 5402 b000 |T |
01d6 6e48 0e30 |nH 0|
01d8 01ba a037 | 7|
01da 0006 f000 | |
01dc c900 1bf0 | |
01de 0318 0070 | p|
01e0 700c b001 |p |
01e2 c320 3500 | 5 |
01e4 0712 011e | |
01e6 001c 6002 | ` |
01e8 d000 71d8 | q |
01ea 0000 01c8 | |
01ec e047 0007 | G |
01ee 2981 3200 |) 2 |
01f0 1cc0 03d8 | |
01f2 0073 4800 | sH |
01f4 0001 d160 | `|
01f6 3e00 074b |> K|
01f8 0125 001d | % |
01fa 5c00 0000 |\ |
01fc 75d8 1080 |u |
01fe 01d8 8000 | |