|
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_ccb0b3
└─⟦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 0130 | 0 | .CONST 0x0130 ; 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 0028 | ( | .CONST 0x0028 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0011 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0013 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0015 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0017 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0019 00bf | | Action Accept_Activation
001a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
001b 00c7 | | Action Elaborate_Subprogram
001c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001d 00c7 | | Action Elaborate_Subprogram
001e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001f 00c7 | | Action Elaborate_Subprogram
0020 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0021 00c7 | | Action Elaborate_Subprogram
0022 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0023 00c7 | | Action Elaborate_Subprogram
0024 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0025 00c7 | | Action Elaborate_Subprogram
0026 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0027 00c7 | | Action Elaborate_Subprogram
0028 BODY_0008:
0028 00bc | | Action Signal_Activated
0029 00bb | | Action Signal_Completion
002a 0000 0000 | | .BLANK 0000[0x6]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 00cf | | Action Mark_Auxiliary
0034 4804 |H | Short_Literal 0x4
0035 4801 |H | Short_Literal 0x1
0036 0007 | | Action Break_Optional
0037 00d8 | | Load_Top At_Offset_0
0038 e001 | | Load 0x0,0x1
0039 01d5 | | Execute Vector,Field_Reference
003a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
003b 6830 |h0 | Jump_Zero 0x6c
003c 00d8 | | Load_Top At_Offset_0
003d e001 | | Load 0x0,0x1
003e 01d5 | | Execute Vector,Field_Reference
003f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0040 702b |p+ | Jump_Nonzero 0x6c
0041 4801 |H | Short_Literal 0x1
0042 4801 |H | Short_Literal 0x1
0043 e5ff | | Load 0x2,-0x1
0044 01db | | Execute Vector,Length
0045 00d8 | | Load_Top At_Offset_0
0046 00e2 | | Load_Encached Integer_Cache
0047 0260 | ` | Execute Discrete,In_Type
0048 7001 |p | Jump_Nonzero 0x4a
0049 0801 | | Execute_Immediate Raise,0x1
004a 00db | | Load_Top At_Offset_3
004b e001 | | Load 0x0,0x1
004c 01d5 | | Execute Vector,Field_Reference
004d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
004e 01cf | | Execute Vector,Slice_Read
004f e5ff | | Load 0x2,-0x1
0050 e002 | | Load 0x0,0x2
0051 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0052 6819 |h | Jump_Zero 0x6c
0053 4801 |H | Short_Literal 0x1
0054 4801 |H | Short_Literal 0x1
0055 e5fe | | Load 0x2,-0x2
0056 01db | | Execute Vector,Length
0057 00d8 | | Load_Top At_Offset_0
0058 00e2 | | Load_Encached Integer_Cache
0059 0260 | ` | Execute Discrete,In_Type
005a 7001 |p | Jump_Nonzero 0x5c
005b 0801 | | Execute_Immediate Raise,0x1
005c 00db | | Load_Top At_Offset_3
005d e001 | | Load 0x0,0x1
005e 01d5 | | Execute Vector,Field_Reference
005f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0060 01cf | | Execute Vector,Slice_Read
0061 e5fe | | Load 0x2,-0x2
0062 e002 | | Load 0x0,0x2
0063 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0064 6807 |h | Jump_Zero 0x6c
0065 4801 |H | Short_Literal 0x1
0066 00d9 | | Load_Top At_Offset_1
0067 e001 | | Load 0x0,0x1
0068 01d5 | | Execute Vector,Field_Reference
0069 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
006a 00d8 | | Load_Top At_Offset_0
006b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
006c 00c8 | | Action Pop_Auxiliary_Range
006d 3fc9 |? | Loop_Increasing 0x37
006e 00ce | | Action Pop_Auxiliary
006f 4800 |H | Short_Literal 0x0
0070 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0071 0000 0000 | | .BLANK 0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00cf | | Action Mark_Auxiliary
007c 4804 |H | Short_Literal 0x4
007d 4801 |H | Short_Literal 0x1
007e 0007 | | Action Break_Optional
007f 00d8 | | Load_Top At_Offset_0
0080 e001 | | Load 0x0,0x1
0081 01d5 | | Execute Vector,Field_Reference
0082 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0083 6817 |h | Jump_Zero 0x9b
0084 00d8 | | Load_Top At_Offset_0
0085 e001 | | Load 0x0,0x1
0086 01d5 | | Execute Vector,Field_Reference
0087 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0088 7012 |p | Jump_Nonzero 0x9b
0089 00d8 | | Load_Top At_Offset_0
008a e001 | | Load 0x0,0x1
008b 01d5 | | Execute Vector,Field_Reference
008c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
008d e003 | | Load 0x0,0x3
008e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
008f e003 | | Load 0x0,0x3
0090 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0091 e5ff | | Load 0x2,-0x1
0092 027d | } | Execute Discrete,Greater
0093 6807 |h | Jump_Zero 0x9b
0094 4801 |H | Short_Literal 0x1
0095 00d9 | | Load_Top At_Offset_1
0096 e001 | | Load 0x0,0x1
0097 01d5 | | Execute Vector,Field_Reference
0098 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0099 00d8 | | Load_Top At_Offset_0
009a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009b 00c8 | | Action Pop_Auxiliary_Range
009c 3fe2 |? | Loop_Increasing 0x7f
009d 00ce | | Action Pop_Auxiliary
009e 4800 |H | Short_Literal 0x0
009f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2
00a4 0c01 | | Execute_Immediate Greater_Equal,0x1
00a5 680b |h | Jump_Zero 0xb1
00a6 4800 |H | Short_Literal 0x0
00a7 00db | | Load_Top At_Offset_3
00a8 e001 | | Load 0x0,0x1
00a9 01d5 | | Execute Vector,Field_Reference
00aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00ab e003 | | Load 0x0,0x3
00ac 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ad 00db | | Load_Top At_Offset_3
00ae e001 | | Load 0x0,0x1
00af 01d5 | | Execute Vector,Field_Reference
00b0 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b2 0000 0000 | | .BLANK 0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2
00bc 0c01 | | Execute_Immediate Greater_Equal,0x1
00bd 680a |h | Jump_Zero 0xc8
00be 4800 |H | Short_Literal 0x0
00bf 00db | | Load_Top At_Offset_3
00c0 e001 | | Load 0x0,0x1
00c1 01d5 | | Execute Vector,Field_Reference
00c2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c3 4800 |H | Short_Literal 0x0
00c4 00db | | Load_Top At_Offset_3
00c5 e001 | | Load 0x0,0x1
00c6 01d5 | | Execute Vector,Field_Reference
00c7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c9 0000 0000 | | .BLANK 0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00cf | | Action Mark_Auxiliary
00d4 4804 |H | Short_Literal 0x4
00d5 4801 |H | Short_Literal 0x1
00d6 0007 | | Action Break_Optional
00d7 00d8 | | Load_Top At_Offset_0
00d8 e001 | | Load 0x0,0x1
00d9 01d5 | | Execute Vector,Field_Reference
00da 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00db 702d |p- | Jump_Nonzero 0x109
00dc 4801 |H | Short_Literal 0x1
00dd 00d9 | | Load_Top At_Offset_1
00de e001 | | Load 0x0,0x1
00df 01d5 | | Execute Vector,Field_Reference
00e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e1 4801 |H | Short_Literal 0x1
00e2 00d9 | | Load_Top At_Offset_1
00e3 e001 | | Load 0x0,0x1
00e4 01d5 | | Execute Vector,Field_Reference
00e5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e6 e5ff | | Load 0x2,-0x1
00e7 4801 |H | Short_Literal 0x1
00e8 e5ff | | Load 0x2,-0x1
00e9 01db | | Execute Vector,Length
00ea 00d8 | | Load_Top At_Offset_0
00eb 00e2 | | Load_Encached Integer_Cache
00ec 0260 | ` | Execute Discrete,In_Type
00ed 7001 |p | Jump_Nonzero 0xef
00ee 0801 | | Execute_Immediate Raise,0x1
00ef 00db | | Load_Top At_Offset_3
00f0 e001 | | Load 0x0,0x1
00f1 01d5 | | Execute Vector,Field_Reference
00f2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f3 01ce | | Execute Vector,Slice_Write
00f4 e5fe | | Load 0x2,-0x2
00f5 4801 |H | Short_Literal 0x1
00f6 e5fe | | Load 0x2,-0x2
00f7 01db | | Execute Vector,Length
00f8 00d8 | | Load_Top At_Offset_0
00f9 00e2 | | Load_Encached Integer_Cache
00fa 0260 | ` | Execute Discrete,In_Type
00fb 7001 |p | Jump_Nonzero 0xfd
00fc 0801 | | Execute_Immediate Raise,0x1
00fd 00db | | Load_Top At_Offset_3
00fe e001 | | Load 0x0,0x1
00ff 01d5 | | Execute Vector,Field_Reference
0100 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0101 01ce | | Execute Vector,Slice_Write
0102 e5fd | | Load 0x2,-0x3
0103 00d9 | | Load_Top At_Offset_1
0104 e001 | | Load 0x0,0x1
0105 01d5 | | Execute Vector,Field_Reference
0106 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0107 00d8 | | Load_Top At_Offset_0
0108 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0109 00c8 | | Action Pop_Auxiliary_Range
010a 3fcc |? | Loop_Increasing 0xd7
010b 00ce | | Action Pop_Auxiliary
010c 4800 |H | Short_Literal 0x0
010d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
010e 0000 0000 | | .XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 e001 | | Load 0x0,0x1
0115 01d5 | | Execute Vector,Field_Reference
0116 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0117 0320 | | Declare_Variable Record,Duplicate
0118 00cd | | Action Spare6_Action
0119 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011a 0000 0000 | | .BLANK 0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 e001 | | Load 0x0,0x1
0125 01d5 | | Execute Vector,Field_Reference
0126 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0127 00d8 | | Load_Top At_Offset_0
0128 0120 | | Execute Any,Is_Value
0129 7002 |p | Jump_Nonzero 0x12c
012a 00d8 | | Load_Top At_Offset_0
012b 011e | | Execute Any,Convert
012c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012d 0000 0000 | | .XXX[0x3]
012f 0000 | |
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug Table
0130 ; --------------------------------------------------------------------------------------
0130 0004 000e | | .DEBUG4 0x0004,0x000e,0x7702,0x0000,0x0001,0x0000
0136 0000 0000 | | .BLANK 0000[0xca]