|
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_1c84c7
└─⟦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 00c0 | | .CONST 0x00c0 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0021 | ! | .CONST 0x0021 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 0093 0000 | | push_full_address 0x0
0010 6067 |`g | Indirect_Literal Discrete,0x78,{0x80000000, 0x00010000}
0011 0273 | s | Execute Discrete,Plus
0012 e002 | | Load 0x0,0x2
0013 0273 | s | Execute Discrete,Plus
0014 e003 | | Load 0x0,0x3
0015 0273 | s | Execute Discrete,Plus
0016 e004 | | Load 0x0,0x4
0017 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0018 a005 | | Store_Unchecked 0x0,0x5
0019 e006 | | Load 0x0,0x6
001a 0387 | | Declare_Variable Package
001b 00d8 | | Load_Top At_Offset_0
001c 020f | | Execute Module,Activate
001d 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call
001f 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0020 00c7 | | Action Elaborate_Subprogram
0021 BODY_0008:
0021 00bc | | Action Signal_Activated
0022 00bb | | Action Signal_Completion
0023 0000 0000 | | .BLANK 0000[0x5]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0032 | 2 | .CONST 0x0032 ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0005 | | .CONST 0x0005 ; Number of locals
002b INIT_0028:
002b 00e1 | | Load_Encached Boolean_Cache
002c e007 | | Load 0x0,0x7
002d 0322 | " | Declare_Variable Record
002e e004 | | Load 0x0,0x4
002f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0030 e008 | | Load 0x0,0x8
0031 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0032 BODY_0028:
0032 4801 |H | Short_Literal 0x1
0033 a402 | | Store_Unchecked 0x2,0x2
0034 8009 | | Call 0x0,0x9
0035 00cf | | Action Mark_Auxiliary
0036 783b |x; | Jump 0x72
0037 800a | | Call 0x0,0xa
0038 e403 | | Load 0x2,0x3
0039 017d | } | Execute Record,Structure_Write
003a 00db | | Load_Top At_Offset_3
003b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
003c 7007 |p | Jump_Nonzero 0x44
003d 4800 |H | Short_Literal 0x0
003e a402 | | Store_Unchecked 0x2,0x2
003f 4802 |H | Short_Literal 0x2
0040 e403 | | Load 0x2,0x3
0041 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0042 800b | | Call 0x0,0xb
0043 782d |x- | Jump 0x71
0044 00db | | Load_Top At_Offset_3
0045 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0046 4607 |F | Jump_Case 0x8
0047 7829 |x) | Jump 0x71 ; case 0x0
0048 7828 |x( | Jump 0x71 ; case 0x1
0049 7812 |x | Jump 0x5c ; case 0x2
004a 7805 |x | Jump 0x50 ; case 0x3
004b 781a |x | Jump 0x66 ; case 0x4
004c 7824 |x$ | Jump 0x71 ; case 0x5
004d 7823 |x# | Jump 0x71 ; case 0x6
004e 7822 |x" | Jump 0x71 ; case 0x7
004f 7821 |x! | .XXX[0x1]
0050 00db | | Load_Top At_Offset_3
0051 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0052 0227 | ' | Execute Access,All_Reference
0053 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0054 701c |p | Jump_Nonzero 0x71
0055 4800 |H | Short_Literal 0x0
0056 a402 | | Store_Unchecked 0x2,0x2
0057 4800 |H | Short_Literal 0x0
0058 e403 | | Load 0x2,0x3
0059 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
005a 800b | | Call 0x0,0xb
005b 7815 |x | Jump 0x71
005c 00db | | Load_Top At_Offset_3
005d 820f | | Call 0x1,0xf
005e 7012 |p | Jump_Nonzero 0x71
005f 4800 |H | Short_Literal 0x0
0060 a402 | | Store_Unchecked 0x2,0x2
0061 4803 |H | Short_Literal 0x3
0062 e403 | | Load 0x2,0x3
0063 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0064 800b | | Call 0x0,0xb
0065 780b |x | Jump 0x71
0066 00db | | Load_Top At_Offset_3
0067 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0068 0227 | ' | Execute Access,All_Reference
0069 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
006a 7006 |p | Jump_Nonzero 0x71
006b 4800 |H | Short_Literal 0x0
006c a402 | | Store_Unchecked 0x2,0x2
006d 4800 |H | Short_Literal 0x0
006e e403 | | Load 0x2,0x3
006f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0070 800b | | Call 0x0,0xb
0071 00c9 | | Action Pop_Auxiliary_Loop
0072 800c | | Call 0x0,0xc
0073 6fc3 |o | Jump_Zero 0x37
0074 00ce | | Action Pop_Auxiliary
0075 00db | | Load_Top At_Offset_3
0076 00ca | | Action Exit_Nullary_Function
0077 0000 | | .XXX[0x1]
0078 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
007c 0000 0000 | | .BLANK 0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 008c | | .CONST 0x008c ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0005 | | .CONST 0x0005 ; Number of locals
0083 INIT_0080:
0083 e00d | | Load 0x0,0xd
0084 0322 | " | Declare_Variable Record
0085 e00e | | Load 0x0,0xe
0086 e20e | | Load 0x1,0xe
0087 0098 | | Execute Package,Field_Read_Dynamic
0088 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0089 e008 | | Load 0x0,0x8
008a 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
008b 00e1 | | Load_Encached Boolean_Cache
008c BODY_0080:
008c 4800 |H | Short_Literal 0x0
008d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
008e e008 | | Load 0x0,0x8
008f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0090 e5ff | | Load 0x2,-0x1
0091 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0092 0227 | ' | Execute Access,All_Reference
0093 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0094 800f | | Call 0x0,0xf
0095 003a | : | Store_Top Access,At_Offset_2
0096 00cf | | Action Mark_Auxiliary
0097 7818 |x | Jump 0xb0
0098 00da | | Load_Top At_Offset_2
0099 8010 | | Call 0x0,0x10
009a e402 | | Load 0x2,0x2
009b 017d | } | Execute Record,Structure_Write
009c e402 | | Load 0x2,0x2
009d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
009e e403 | | Load 0x2,0x3
009f e011 | | Load 0x0,0x11
00a0 e20e | | Load 0x1,0xe
00a1 0096 | | Execute Package,Entry
00a2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00a3 00d9 | | Load_Top At_Offset_1
00a4 7007 |p | Jump_Nonzero 0xac
00a5 00db | | Load_Top At_Offset_3
00a6 e402 | | Load 0x2,0x2
00a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00a8 e012 | | Load 0x0,0x12
00a9 e20e | | Load 0x1,0xe
00aa 0096 | | Execute Package,Entry
00ab c403 | | Store 0x2,0x3
00ac 00da | | Load_Top At_Offset_2
00ad 8013 | | Call 0x0,0x13
00ae 003b | ; | Store_Top Access,At_Offset_3
00af 00c9 | | Action Pop_Auxiliary_Loop
00b0 00d9 | | Load_Top At_Offset_1
00b1 0f00 | | Execute_Immediate Equal,0x0
00b2 00db | | Load_Top At_Offset_3
00b3 8014 | | Call 0x0,0x14
00b4 0f00 | | Execute_Immediate Equal,0x0
00b5 0279 | y | Execute Discrete,And
00b6 77e1 |w | Jump_Nonzero 0x98
00b7 00ce | | Action Pop_Auxiliary
00b8 00d8 | | Load_Top At_Offset_0
00b9 0f00 | | Execute_Immediate Equal,0x0
00ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bb 0000 0000 | | .BLANK 0000[0x5]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; Debug Table
00c0 ; --------------------------------------------------------------------------------------
00c0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc6bd,0x0000,0x0001,0x0004
00c6 000b 00d6 | | .DBG4T 0x000b,0x00d6,0x8000,0x0000
00ca 000e 00d9 | | .DBG4T 0x000e,0x00d9,0x8000,0x0000
00ce 002b 00de | + | .DBG4T 0x002b,0x00de,0x0002,0x4000
00d2 0083 0108 | | .DBG4T 0x0083,0x0108,0x0002,0x4000
00d6 ; --------------------------------------------------------------------------------------
00d6 ; Debug chain
00d6 ; --------------------------------------------------------------------------------------
00d6 0001 0000 | | .DBGLEN 0x0001,0x0000
00d8 000b | | .DBGLNO 0x000b
00d9 ; --------------------------------------------------------------------------------------
00d9 ; Debug chain
00d9 ; --------------------------------------------------------------------------------------
00d9 0003 0000 | | .DBGLEN 0x0003,0x0000
00db 000e 001d | | .DBGLNO 0x000e,0x001d,0x001f
00de ; --------------------------------------------------------------------------------------
00de ; Debug chain
00de ; --------------------------------------------------------------------------------------
00de 0004 0012 | | .DBGLEN 0x0004,0x0012
00e0 002b 002c | + ,| .DBGLNO 0x002b,0x002c,0x002e,0x0030,0x0032,0x0034,0x0037,0x003a,0x003d,0x003f,0x0044,0x0050,0x0055,0x0057,0x005c,0x005f,0x0061,0x0066,0x006b,0x006d,0x0072,0x0075
00f6 0001 0002 | | .XXX[0x12]
00f8 0004 0005 | |
00fa 0006 0007 | |
00fc 0008 000c | |
00fe 000d 000e | |
0100 000f 0010 | |
0102 0011 0009 | |
0104 000a 000b | |
0106 0003 0013 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; Debug chain
0108 ; --------------------------------------------------------------------------------------
0108 0004 0009 | | .DBGLEN 0x0004,0x0009
010a 0083 0085 | | .DBGLNO 0x0083,0x0085,0x0089,0x008b,0x008c,0x008e,0x0098,0x009c,0x00a3,0x00a5,0x00ac,0x00b0,0x00b8
0117 0001 0002 | | .XXX[0x9]
0119 0004 0005 | |
011b 0006 0007 | |
011d 0008 0003 | |
011f 0009 | |
0120 0000 0000 | | .BLANK 0000[0xe0]