|
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 0118 | | .CONST 0x0118 ; 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 0049 | I | .CONST 0x0049 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000e | | .CONST 0x000e ; Number of locals
001b INIT_0018:
001b 4801 |H | Short_Literal 0x1
001c 4802 |H | Short_Literal 0x2
001d 00e9 | | Load_Encached String_Cache
001e 035b | [ | Declare_Type Array,Constrained
001f 0337 | 7 | Declare_Variable Array
0020 4801 |H | Short_Literal 0x1
0021 4850 |HP | Short_Literal 0x50
0022 00e9 | | Load_Encached String_Cache
0023 035b | [ | Declare_Type Array,Constrained
0024 0337 | 7 | Declare_Variable Array
0025 00e3 | | Load_Encached Natural_Cache
0026 4801 |H | Short_Literal 0x1
0027 4850 |HP | Short_Literal 0x50
0028 00e9 | | Load_Encached String_Cache
0029 035b | [ | Declare_Type Array,Constrained
002a 00e3 | | Load_Encached Natural_Cache
002b 00e3 | | Load_Encached Natural_Cache
002c 00e3 | | Load_Encached Natural_Cache
002d 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
002f 4804 |H | Short_Literal 0x4
0030 032d | - | Declare_Type Record,Defined
0031 00d8 | | Load_Top At_Offset_0
0032 0322 | " | Declare_Variable Record
0033 00d8 | | Load_Top At_Offset_0
0034 1c00 | | Execute_Immediate Run_Utility,0x0
0035 e5ff | | Load 0x2,-0x1
0036 0227 | ' | Execute Access,All_Reference
0037 3417 |4 | Execute Record,Field_Reference,Field_Number 0x17
0038 0007 | | Action Break_Optional
0039 e5ff | | Load 0x2,-0x1
003a 0227 | ' | Execute Access,All_Reference
003b 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
003c 0007 | | Action Break_Optional
003d e002 | | Load 0x0,0x2
003e 0322 | " | Declare_Variable Record
003f 00e3 | | Load_Encached Natural_Cache
0040 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0041 03e9 | | Declare_Variable Discrete,Duplicate
0042 00e3 | | Load_Encached Natural_Cache
0043 4a00 |J | Short_Literal 0x200
0044 4a09 |J | Short_Literal 0x209
0045 00e3 | | Load_Encached Natural_Cache
0046 03f8 | | Declare_Type Discrete,Constrained
0047 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0049 BODY_0018:
0049 e5fd | | Load 0x2,-0x3
004a 6804 |h | Jump_Zero 0x4f
004b e5fd | | Load 0x2,-0x3
004c 606f |`o | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00000400}
004d 027b | { | Execute Discrete,Greater_Equal
004e 6803 |h | Jump_Zero 0x52
004f 4800 |H | Short_Literal 0x0
0050 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0051 7805 |x | Jump 0x57
0052 4bff |K | Short_Literal 0x3ff
0053 e5fd | | Load 0x2,-0x3
0054 0272 | r | Execute Discrete,Minus
0055 0a01 | | Execute_Immediate Plus,0x1
0056 005b | [ | Store_Top Discrete,At_Offset_3
0057 00cf | | Action Mark_Auxiliary
0058 4bff |K | Short_Literal 0x3ff
0059 e40c | | Load 0x2,0xc
005a 0263 | c | Execute Discrete,Above_Bound
005b 704a |pJ | Jump_Nonzero 0xa6
005c 00d8 | | Load_Top At_Offset_0
005d e407 | | Load 0x2,0x7
005e 01d5 | | Execute Vector,Field_Reference
005f e409 | | Load 0x2,0x9
0060 017d | } | Execute Record,Structure_Write
0061 0092 0103 | | Action Push_String_Extended,0x103 ; " "
0063 0092 0104 | | Action Push_String_Extended,0x104 ; "H"
0065 e409 | | Load 0x2,0x9
0066 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0067 8003 | | Call 0x0,0x3
0068 0092 0103 | | Action Push_String_Extended,0x103 ; " "
006a 0092 0105 | | Action Push_String_Extended,0x105 ; "C"
006c e409 | | Load 0x2,0x9
006d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
006e 8003 | | Call 0x0,0x3
006f 01cc | | Execute Vector,Catenate
0070 e402 | | Load 0x2,0x2
0071 01d4 | | Execute Vector,Structure_Write
0072 e5fb | | Load 0x2,-0x5
0073 4800 |H | Short_Literal 0x0
0074 e402 | | Load 0x2,0x2
0075 4820 |H | Short_Literal 0x20
0076 4805 |H | Short_Literal 0x5
0077 4810 |H | Short_Literal 0x10
0078 e409 | | Load 0x2,0x9
0079 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
007a e004 | | Load 0x0,0x4
007b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
007c 01cc | | Execute Vector,Catenate
007d 8005 | | Call 0x0,0x5
007e 00d1 | | Pop_Control Pop_Count_1
007f e409 | | Load 0x2,0x9
0080 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0081 e40d | | Load 0x2,0xd
0082 0260 | ` | Execute Discrete,In_Type
0083 6820 |h | Jump_Zero 0xa4
0084 00d8 | | Load_Top At_Offset_0
0085 4bff |K | Short_Literal 0x3ff
0086 027f | | Execute Discrete,Equal
0087 7006 |p | Jump_Nonzero 0x8e
0088 00d8 | | Load_Top At_Offset_0
0089 0a01 | | Execute_Immediate Plus,0x1
008a e407 | | Load 0x2,0x7
008b 01d5 | | Execute Vector,Field_Reference
008c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
008d 7016 |p | Jump_Nonzero 0xa4
008e 00d8 | | Load_Top At_Offset_0
008f a40a | | Store_Unchecked 0x2,0xa
0090 00cf | | Action Mark_Auxiliary
0091 e40c | | Load 0x2,0xc
0092 00da | | Load_Top At_Offset_2
0093 0264 | d | Execute Discrete,Below_Bound
0094 700c |p | Jump_Nonzero 0xa1
0095 00d8 | | Load_Top At_Offset_0
0096 0aff | | Execute_Immediate Plus,-0x1
0097 c40b | | Store 0x2,0xb
0098 00d8 | | Load_Top At_Offset_0
0099 e407 | | Load 0x2,0x7
009a 01d5 | | Execute Vector,Field_Reference
009b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
009c 7002 |p | Jump_Nonzero 0x9f
009d 00d2 | | Pop_Control Pop_Count_2
009e 7802 |x | Jump 0xa1
009f 00c8 | | Action Pop_Auxiliary_Range
00a0 37f4 |7 | Loop_Decreasing 0x95
00a1 00ce | | Action Pop_Auxiliary
00a2 00d2 | | Pop_Control Pop_Count_2
00a3 7802 |x | Jump 0xa6
00a4 00c8 | | Action Pop_Auxiliary_Range
00a5 3fb6 |? | Loop_Increasing 0x5c
00a6 00ce | | Action Pop_Auxiliary
00a7 e5fc | | Load 0x2,-0x4
00a8 6812 |h | Jump_Zero 0xbb
00a9 e5fb | | Load 0x2,-0x5
00aa 4800 |H | Short_Literal 0x0
00ab 8006 | | Call 0x0,0x6
00ac 00d1 | | Pop_Control Pop_Count_1
00ad e5fb | | Load 0x2,-0x5
00ae 4800 |H | Short_Literal 0x0
00af 0092 0106 | | Action Push_String_Extended,0x106 ; "Micro Stack contents :"
00b1 8005 | | Call 0x0,0x5
00b2 00d1 | | Pop_Control Pop_Count_1
00b3 00cf | | Action Mark_Auxiliary
00b4 e007 | | Load 0x0,0x7
00b5 01d9 | | Execute Vector,Reverse_Bounds
00b6 0007 | | Action Break_Optional
00b7 840e | | Call 0x2,0xe
00b8 00c8 | | Action Pop_Auxiliary_Range
00b9 3ffd |? | Loop_Increasing 0xb7
00ba 00ce | | Action Pop_Auxiliary
00bb 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00bc 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4601 |F | Jump_Case 0x2
00c4 7801 |x | Jump 0xc6 ; case 0x0
00c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00c6 e405 | | Load 0x2,0x5
00c7 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00c8 0337 | 7 | Declare_Variable Array
00c9 4850 |HP | Short_Literal 0x50
00ca 4801 |H | Short_Literal 0x1
00cb 4820 |H | Short_Literal 0x20
00cc 00d9 | | Load_Top At_Offset_1
00cd e602 | | Load 0x3,0x2
00ce 01d6 | | Execute Vector,Field_Write
00cf 3ffb |? | Loop_Increasing 0xcb
00d0 00db | | Load_Top At_Offset_3
00d1 00d9 | | Load_Top At_Offset_1
00d2 00d9 | | Load_Top At_Offset_1
00d3 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00d4 0119 | | Execute Any,Check_In_Formal_Type
00d5 00d1 | | Pop_Control Pop_Count_1
00d6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d7 4800 |H | Short_Literal 0x0
00d8 00db | | Load_Top At_Offset_3
00d9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00da 4800 |H | Short_Literal 0x0
00db 00db | | Load_Top At_Offset_3
00dc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00dd 4800 |H | Short_Literal 0x0
00de 00db | | Load_Top At_Offset_3
00df 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb e5fb | | Load 0x2,-0x5
00ec 4800 |H | Short_Literal 0x0
00ed 4820 |H | Short_Literal 0x20
00ee 4802 |H | Short_Literal 0x2
00ef 480a |H | Short_Literal 0xa
00f0 e411 | | Load 0x2,0x11
00f1 e004 | | Load 0x0,0x4
00f2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00f3 0092 0107 | | Action Push_String_Extended,0x107 ; " - "
00f5 01cc | | Execute Vector,Catenate
00f6 4820 |H | Short_Literal 0x20
00f7 4805 |H | Short_Literal 0x5
00f8 4810 |H | Short_Literal 0x10
00f9 e411 | | Load 0x2,0x11
00fa e408 | | Load 0x2,0x8
00fb 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
00fc 01d5 | | Execute Vector,Field_Reference
00fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00fe e004 | | Load 0x0,0x4
00ff 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0100 01cc | | Execute Vector,Catenate
0101 8005 | | Call 0x0,0x5
0102 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0103 ; --------------------------------------------------------------------------------------
0103 ; STRING TABLE
0103 ; --------------------------------------------------------------------------------------
0103 000c | | .STRTAB 0x000c->0x0109 ; " "
0104 000b | | .STRTAB 0x000b->0x0109 ; "H"
0105 000a | | .STRTAB 0x000a->0x010a ; "C"
0106 0009 | | .STRTAB 0x0009->0x010a ; "Micro Stack contents :"
0107 001d | | .STRTAB 0x001d->0x0115 ; " - "
0108 001e | | .STREND 0x001e->0x0117
0109 2048 434d | HCM| .STRTAB_STRINGS
0117 0000 | | .XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug Table
0118 ; --------------------------------------------------------------------------------------
0118 0004 0012 | | .DEBUG4 0x0004,0x0012,0x5b6d,0x0000,0x0001,0x0000
011e 0000 0000 | | .BLANK 0000[0xe2]