|
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 00d0 | | .CONST 0x00d0 ; 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 0095 | | .CONST 0x0095 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f e001 | | Load 0x0,0x1 0020 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0021 e001 | | Load 0x0,0x1 0022 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0023 e001 | | Load 0x0,0x1 0024 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0025 e001 | | Load 0x0,0x1 0026 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0027 e001 | | Load 0x0,0x1 0028 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0029 e002 | | Load 0x0,0x2 002a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 002b e001 | | Load 0x0,0x1 002c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 002d e001 | | Load 0x0,0x1 002e 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 002f e001 | | Load 0x0,0x1 0030 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0031 02a0 | | Declare_Subprogram Null_Subprogram 0032 4809 |H | Short_Literal 0x9 0033 032e | . | Declare_Type Record,Defined,Visible 0034 c21d | | Store 0x1,0x1d 0035 00e1 | | Load_Encached Boolean_Cache 0036 00e1 | | Load_Encached Boolean_Cache 0037 e001 | | Load 0x0,0x1 0038 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0039 02a0 | | Declare_Subprogram Null_Subprogram 003a 4803 |H | Short_Literal 0x3 003b 032e | . | Declare_Type Record,Defined,Visible 003c c20e | | Store 0x1,0xe 003d 4800 |H | Short_Literal 0x0 003e 481f |H | Short_Literal 0x1f 003f e20e | | Load 0x1,0xe 0040 02a0 | | Declare_Subprogram Null_Subprogram 0041 4801 |H | Short_Literal 0x1 0042 035e | ^ | Declare_Type Array,Defined,Visible 0043 c20f | | Store 0x1,0xf 0044 00e1 | | Load_Encached Boolean_Cache 0045 00e1 | | Load_Encached Boolean_Cache 0046 e001 | | Load 0x0,0x1 0047 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0048 e001 | | Load 0x0,0x1 0049 1b0f | | Execute Package,Field_Read,Field_Number 0xf 004a e20f | | Load 0x1,0xf 004b 02a0 | | Declare_Subprogram Null_Subprogram 004c 4805 |H | Short_Literal 0x5 004d 032e | . | Declare_Type Record,Defined,Visible 004e c210 | | Store 0x1,0x10 004f 00e1 | | Load_Encached Boolean_Cache 0050 00e1 | | Load_Encached Boolean_Cache 0051 02a0 | | Declare_Subprogram Null_Subprogram 0052 4802 |H | Short_Literal 0x2 0053 032e | . | Declare_Type Record,Defined,Visible 0054 c211 | | Store 0x1,0x11 0055 e001 | | Load 0x0,0x1 0056 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0057 00e1 | | Load_Encached Boolean_Cache 0058 00e1 | | Load_Encached Boolean_Cache 0059 02a0 | | Declare_Subprogram Null_Subprogram 005a 4803 |H | Short_Literal 0x3 005b 032e | . | Declare_Type Record,Defined,Visible 005c c21e | | Store 0x1,0x1e 005d 4850 |HP | Short_Literal 0x50 005e e003 | | Load 0x0,0x3 005f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0060 1c07 | | Execute_Immediate Run_Utility,0x7 0061 0129 | ) | Execute Any,Make_Visible 0062 e004 | | Load 0x0,0x4 0063 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0064 00e1 | | Load_Encached Boolean_Cache 0065 00e1 | | Load_Encached Boolean_Cache 0066 00e2 | | Load_Encached Integer_Cache 0067 00e2 | | Load_Encached Integer_Cache 0068 e001 | | Load 0x0,0x1 0069 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006a e001 | | Load 0x0,0x1 006b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006c 029f 009b | | Declare_Subprogram INIT_0098,For_Call 006e 4808 |H | Short_Literal 0x8 006f 032e | . | Declare_Type Record,Defined,Visible 0070 c21f | | Store 0x1,0x1f 0071 e001 | | Load 0x0,0x1 0072 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0073 e001 | | Load 0x0,0x1 0074 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0075 e001 | | Load 0x0,0x1 0076 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0077 e001 | | Load 0x0,0x1 0078 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0079 e001 | | Load 0x0,0x1 007a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 007b e001 | | Load 0x0,0x1 007c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 007d e001 | | Load 0x0,0x1 007e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 007f e001 | | Load 0x0,0x1 0080 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0081 e001 | | Load 0x0,0x1 0082 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0083 e210 | | Load 0x1,0x10 0084 e21e | | Load 0x1,0x1e 0085 e21f | | Load 0x1,0x1f 0086 e211 | | Load 0x1,0x11 0087 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 0089 480d |H | Short_Literal 0xd 008a 032e | . | Declare_Type Record,Defined,Visible 008b c220 | | Store 0x1,0x20 008c 00d8 | | Load_Top At_Offset_0 008d 0321 | ! | Declare_Variable Record,Visible 008e 00d8 | | Load_Top At_Offset_0 008f 1c00 | | Execute_Immediate Run_Utility,0x0 0090 c215 | | Store 0x1,0x15 0091 00db | | Load_Top At_Offset_3 0092 0321 | ! | Declare_Variable Record,Visible 0093 c216 | | Store 0x1,0x16 0094 00bf | | Action Accept_Activation 0095 BODY_0008: 0095 00bc | | Action Signal_Activated 0096 00bb | | Action Signal_Completion 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 4608 |F | Jump_Case 0x9 009c 7808 |x | Jump 0xa5 ; case 0x0 009d 780e |x | Jump 0xac ; case 0x1 009e 7811 |x | Jump 0xb0 ; case 0x2 009f 7810 |x | Jump 0xb0 ; case 0x3 00a0 780f |x | Jump 0xb0 ; case 0x4 00a1 780e |x | Jump 0xb0 ; case 0x5 00a2 780d |x | Jump 0xb0 ; case 0x6 00a3 780c |x | Jump 0xb0 ; case 0x7 00a4 780b |x | Jump 0xb0 ; case 0x8 00a5 00da | | Load_Top At_Offset_2 00a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00a7 0125 | % | Execute Any,Set_Constraint 00a8 00da | | Load_Top At_Offset_2 00a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00aa 1c00 | | Execute_Immediate Run_Utility,0x0 00ab 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00ac 00da | | Load_Top At_Offset_2 00ad 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00ae 0125 | % | Execute Any,Set_Constraint 00af 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00b0 0869 | i | Execute_Immediate Raise,0x69 00b1 0000 0000 | | .BLANK 0000[0x7] 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 4608 |F | Jump_Case 0x9 00bc 7808 |x | Jump 0xc5 ; case 0x0 00bd 780b |x | Jump 0xc9 ; case 0x1 00be 780e |x | Jump 0xcd ; case 0x2 00bf 780d |x | Jump 0xcd ; case 0x3 00c0 780c |x | Jump 0xcd ; case 0x4 00c1 780b |x | Jump 0xcd ; case 0x5 00c2 780a |x | Jump 0xcd ; case 0x6 00c3 7809 |x | Jump 0xcd ; case 0x7 00c4 7808 |x | Jump 0xcd ; case 0x8 00c5 00da | | Load_Top At_Offset_2 00c6 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 00c7 1c00 | | Execute_Immediate Run_Utility,0x0 00c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00c9 00da | | Load_Top At_Offset_2 00ca 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 00cb 1c01 | | Execute_Immediate Run_Utility,0x1 00cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00cd 0869 | i | Execute_Immediate Raise,0x69 00ce 0000 0000 | | .XXX[0x2] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; Debug Table 00d0 ; -------------------------------------------------------------------------------------- 00d0 0004 000e | | .DEBUG4 0x0004,0x000e,0x1f25,0x0000,0x0001,0x0000 00d6 0000 0000 | | .BLANK 0000[0x12a]