|
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_1188cd9
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0004 | | .CONST 0x0004 ; Number of locals 000b INIT_0008: 000b e213 | | Load 0x1,0x13 000c e5fe | | Load 0x2,-0x2 000d 0039 | 9 | Store_Top Access,At_Offset_1 000e e001 | | Load 0x0,0x1 000f 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0010 0322 | " | Declare_Variable Record 0011 e007 | | Load 0x0,0x7 0012 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0013 00d9 | | Load_Top At_Offset_1 0014 017d | } | Execute Record,Structure_Write 0015 e001 | | Load 0x0,0x1 0016 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0017 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0018 BODY_0008: 0018 e5fb | | Load 0x2,-0x5 0019 e5fc | | Load 0x2,-0x4 001a e5fd | | Load 0x2,-0x3 001b e5fe | | Load 0x2,-0x2 001c e5ff | | Load 0x2,-0x1 001d 821c | | Call 0x1,0x1c 001e 4800 |H | Short_Literal 0x0 001f e21a | | Load 0x1,0x1a 0020 170d | | Execute Task,Entry_Call,Field_Number 0xd 0021 00cf | | Action Mark_Auxiliary 0022 0007 | | Action Break_Optional 0023 4800 |H | Short_Literal 0x0 0024 e402 | | Load 0x2,0x2 0025 0227 | ' | Execute Access,All_Reference 0026 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0027 e402 | | Load 0x2,0x2 0028 0227 | ' | Execute Access,All_Reference 0029 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 002a e5ff | | Load 0x2,-0x1 002b e001 | | Load 0x0,0x1 002c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 002d e001 | | Load 0x0,0x1 002e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 002f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0030 4801 |H | Short_Literal 0x1 0031 e5fa | | Load 0x2,-0x6 0032 e21a | | Load 0x1,0x1a 0033 150e | | Execute Task,Timed_Call,Field_Number 0xe 0034 4601 |F | Jump_Case 0x2 0035 7801 |x | Jump 0x37 ; case 0x0 0036 7802 |x | Jump 0x39 ; case 0x1 0037 005a | Z | Store_Top Discrete,At_Offset_2 0038 7805 |x | Jump 0x3e 0039 e21a | | Load 0x1,0x1a 003a 0209 | | Execute Task,Abort 003b 0007 | | Action Break_Optional 003c e218 | | Load 0x1,0x18 003d 0257 | W | Execute Discrete,Raise 003e e5fb | | Load 0x2,-0x5 003f 0f00 | | Execute_Immediate Equal,0x0 0040 00da | | Load_Top At_Offset_2 0041 4801 |H | Short_Literal 0x1 0042 e008 | | Load 0x0,0x8 0043 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0044 01d7 | | Execute Vector,Field_Read 0045 027f | | Execute Discrete,Equal 0046 0279 | y | Execute Discrete,And 0047 e5fb | | Load 0x2,-0x5 0048 0f01 | | Execute_Immediate Equal,0x1 0049 00db | | Load_Top At_Offset_3 004a e008 | | Load 0x0,0x8 004b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 004c 027f | | Execute Discrete,Equal 004d 0279 | y | Execute Discrete,And 004e 0278 | x | Execute Discrete,Or 004f 6830 |h0 | Jump_Zero 0x80 0050 4800 |H | Short_Literal 0x0 0051 e402 | | Load 0x2,0x2 0052 0227 | ' | Execute Access,All_Reference 0053 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0054 e402 | | Load 0x2,0x2 0055 0227 | ' | Execute Access,All_Reference 0056 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0057 e5ff | | Load 0x2,-0x1 0058 e001 | | Load 0x0,0x1 0059 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 005a 4800 |H | Short_Literal 0x0 005b e007 | | Load 0x0,0x7 005c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005d e402 | | Load 0x2,0x2 005e 0227 | ' | Execute Access,All_Reference 005f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0060 e20f | | Load 0x1,0xf 0061 0119 | | Execute Any,Check_In_Formal_Type 0062 8210 | | Call 0x1,0x10 0063 e5ff | | Load 0x2,-0x1 0064 e001 | | Load 0x0,0x1 0065 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0066 00db | | Load_Top At_Offset_3 0067 0227 | ' | Execute Access,All_Reference 0068 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0069 a402 | | Store_Unchecked 0x2,0x2 006a 4800 |H | Short_Literal 0x0 006b e402 | | Load 0x2,0x2 006c 0227 | ' | Execute Access,All_Reference 006d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 006e e402 | | Load 0x2,0x2 006f 0227 | ' | Execute Access,All_Reference 0070 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0071 e5ff | | Load 0x2,-0x1 0072 e001 | | Load 0x0,0x1 0073 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0074 4800 |H | Short_Literal 0x0 0075 00db | | Load_Top At_Offset_3 0076 e402 | | Load 0x2,0x2 0077 0227 | ' | Execute Access,All_Reference 0078 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0079 e20f | | Load 0x1,0xf 007a 0119 | | Execute Any,Check_In_Formal_Type 007b 8210 | | Call 0x1,0x10 007c e5ff | | Load 0x2,-0x1 007d e001 | | Load 0x0,0x1 007e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 007f 7859 |xY | Jump 0xd9 0080 e5fb | | Load 0x2,-0x5 0081 0f00 | | Execute_Immediate Equal,0x0 0082 00da | | Load_Top At_Offset_2 0083 4800 |H | Short_Literal 0x0 0084 e008 | | Load 0x0,0x8 0085 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0086 01d7 | | Execute Vector,Field_Read 0087 027f | | Execute Discrete,Equal 0088 0279 | y | Execute Discrete,And 0089 e5fb | | Load 0x2,-0x5 008a 0f01 | | Execute_Immediate Equal,0x1 008b 00db | | Load_Top At_Offset_3 008c e008 | | Load 0x0,0x8 008d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 008e 027f | | Execute Discrete,Equal 008f 0279 | y | Execute Discrete,And 0090 0278 | x | Execute Discrete,Or 0091 6830 |h0 | Jump_Zero 0xc2 0092 4800 |H | Short_Literal 0x0 0093 e402 | | Load 0x2,0x2 0094 0227 | ' | Execute Access,All_Reference 0095 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0096 e402 | | Load 0x2,0x2 0097 0227 | ' | Execute Access,All_Reference 0098 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0099 e5ff | | Load 0x2,-0x1 009a e001 | | Load 0x0,0x1 009b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 009c 4800 |H | Short_Literal 0x0 009d e007 | | Load 0x0,0x7 009e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009f e402 | | Load 0x2,0x2 00a0 0227 | ' | Execute Access,All_Reference 00a1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a2 e20f | | Load 0x1,0xf 00a3 0119 | | Execute Any,Check_In_Formal_Type 00a4 8210 | | Call 0x1,0x10 00a5 e5ff | | Load 0x2,-0x1 00a6 e001 | | Load 0x0,0x1 00a7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00a8 00db | | Load_Top At_Offset_3 00a9 0227 | ' | Execute Access,All_Reference 00aa 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00ab a402 | | Store_Unchecked 0x2,0x2 00ac 4800 |H | Short_Literal 0x0 00ad e402 | | Load 0x2,0x2 00ae 0227 | ' | Execute Access,All_Reference 00af 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00b0 e402 | | Load 0x2,0x2 00b1 0227 | ' | Execute Access,All_Reference 00b2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00b3 e5ff | | Load 0x2,-0x1 00b4 e001 | | Load 0x0,0x1 00b5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00b6 4800 |H | Short_Literal 0x0 00b7 00db | | Load_Top At_Offset_3 00b8 e402 | | Load 0x2,0x2 00b9 0227 | ' | Execute Access,All_Reference 00ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00bb e20f | | Load 0x1,0xf 00bc 0119 | | Execute Any,Check_In_Formal_Type 00bd 8210 | | Call 0x1,0x10 00be e5ff | | Load 0x2,-0x1 00bf e001 | | Load 0x0,0x1 00c0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00c1 7817 |x | Jump 0xd9 00c2 00d9 | | Load_Top At_Offset_1 00c3 e008 | | Load 0x0,0x8 00c4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00c5 027f | | Execute Discrete,Equal 00c6 6801 |h | Jump_Zero 0xc8 00c7 7811 |x | Jump 0xd9 00c8 00d9 | | Load_Top At_Offset_1 00c9 8211 | | Call 0x1,0x11 00ca 680b |h | Jump_Zero 0xd6 00cb 00db | | Load_Top At_Offset_3 00cc 0227 | ' | Execute Access,All_Reference 00cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ce 00d8 | | Load_Top At_Offset_0 00cf 0120 | | Execute Any,Is_Value 00d0 7002 |p | Jump_Nonzero 0xd3 00d1 00d8 | | Load_Top At_Offset_0 00d2 011e | | Execute Any,Convert 00d3 e20f | | Load 0x1,0xf 00d4 0119 | | Execute Any,Check_In_Formal_Type 00d5 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 00d6 e5ff | | Load 0x2,-0x1 00d7 e001 | | Load 0x0,0x1 00d8 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00d9 00c9 | | Action Pop_Auxiliary_Loop 00da 7f48 | H | Jump 0x23 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug Table 00e0 ; -------------------------------------------------------------------------------------- 00e0 0004 0007 | | .DEBUG4 0x0004,0x0007,0x54d6,0x0000,0x0001,0x0000 00e6 0000 0000 | | .BLANK 0000[0x11a]