|
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_14408c0
└─⟦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 0078 | x | .CONST 0x0078 ; 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 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 0030 | 0 | .CONST 0x0030 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0003 | | .CONST 0x0003 ; Number of locals
001b INIT_0018:
001b 4800 |H | Short_Literal 0x0
001c 0093 0053 | S| push_full_address INIT_0050
001e 00f5 | | Load_Encached Unused21
001f 037d | } | Declare_Type Task,Defined
0020 036f | o | Declare_Variable Task
0021 4800 |H | Short_Literal 0x0
0022 0093 003b | ;| push_full_address INIT_0038
0024 00f5 | | Load_Encached Unused21
0025 037d | } | Declare_Type Task,Defined
0026 036f | o | Declare_Variable Task
0027 e001 | | Load 0x0,0x1
0028 4801 |H | Short_Literal 0x1
0029 00db | | Load_Top At_Offset_3
002a 020e | | Execute Module,Augment_Imports
002b 0007 | | Action Break_Optional
002c e002 | | Load 0x0,0x2
002d 4801 |H | Short_Literal 0x1
002e 00da | | Load_Top At_Offset_2
002f 020e | | Execute Module,Augment_Imports
0030 BODY_0018:
0030 00be | | Action Activate_Tasks
0031 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0032 0000 0000 | | .BLANK 0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003e | > | .CONST 0x003e ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 000d | | .CONST 0x000d ; Number of locals
003b INIT_0038:
003b 00bf | | Action Accept_Activation
003c 00e8 | | Load_Encached Character_Cache
003d 00bc | | Action Signal_Activated
003e BODY_0038:
003e 00cf | | Action Mark_Auxiliary
003f 00e8 | | Load_Encached Character_Cache
0040 e001 | | Load 0x0,0x1
0041 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0042 005a | Z | Store_Top Discrete,At_Offset_2
0043 00d9 | | Load_Top At_Offset_1
0044 0f2e | . | Execute_Immediate Equal,0x2e
0045 7002 |p | Jump_Nonzero 0x48
0046 00c9 | | Action Pop_Auxiliary_Loop
0047 7ff7 | | Jump 0x3f
0048 00ce | | Action Pop_Auxiliary
0049 00bb | | Action Signal_Completion
004a 0000 0000 | | .BLANK 0000[0x6]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0057 | W | .CONST 0x0057 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 000d | | .CONST 0x000d ; Number of locals
0053 INIT_0050:
0053 00bf | | Action Accept_Activation
0054 00e2 | | Load_Encached Integer_Cache
0055 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0056 00bc | | Action Signal_Activated
0057 BODY_0050:
0057 00cf | | Action Mark_Auxiliary
0058 00d9 | | Load_Top At_Offset_1
0059 0a01 | | Execute_Immediate Plus,0x1
005a 005a | Z | Store_Top Discrete,At_Offset_2
005b 0092 006c | l| Action Push_String_Extended,0x6c ; "coucou "
005d 00da | | Load_Top At_Offset_2
005e 00e0 | | Load_Encached Standard_Cache
005f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0060 01cc | | Execute Vector,Catenate
0061 e001 | | Load 0x0,0x1
0062 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0063 6004 |` | Indirect_Literal Discrete,0x68,{0x00000000, 0x00010000}
0064 00ba | | Action Initiate_Delay
0065 00c9 | | Action Pop_Auxiliary_Loop
0066 7ff1 | | Jump 0x58
0067 0000 | | .XXX[0x1]
0068 0000 0000 | | .LITERAL {0x00000000, 0x00010000}
006c ; --------------------------------------------------------------------------------------
006c ; STRING TABLE
006c ; --------------------------------------------------------------------------------------
006c 0004 | | .STRTAB 0x0004->0x006e ; "coucou "
006d 0009 | | .STREND 0x0009->0x0071
006e 636f 7563 |couc| .STRTAB_STRINGS
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; Debug Table
0078 ; --------------------------------------------------------------------------------------
0078 0004 0001 | | .DEBUG4 0x0004,0x0001,0x62f8,0x0000,0x0001,0x0006
007e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
0082 001b 0096 | | .DBG4T 0x001b,0x0096,0x8001,0x0000
0086 003b 0000 | ; | .DBG4T 0x003b,0x0000,0x0000,0x0000
008a 003c 009d | < | .DBG4T 0x003c,0x009d,0x0000,0x4000
008e 0053 0000 | S | .DBG4T 0x0053,0x0000,0x0000,0x0000
0092 0054 00a4 | T | .DBG4T 0x0054,0x00a4,0x0000,0x4000
0096 ; --------------------------------------------------------------------------------------
0096 ; Debug chain
0096 ; --------------------------------------------------------------------------------------
0096 0004 0001 | | .DBGLEN 0x0004,0x0001
0098 001b 0021 | !| .DBGLNO 0x001b,0x0021,0x0027,0x002c,0x0031
009d ; --------------------------------------------------------------------------------------
009d ; Debug chain
009d ; --------------------------------------------------------------------------------------
009d 0001 0002 | | .DBGLEN 0x0001,0x0002
009f 003c 003f | < ?| .DBGLNO 0x003c,0x003f,0x0043
00a2 0002 0003 | | .XXX[0x2]
00a4 ; --------------------------------------------------------------------------------------
00a4 ; Debug chain
00a4 ; --------------------------------------------------------------------------------------
00a4 0001 0003 | | .DBGLEN 0x0001,0x0003
00a6 0054 0058 | T X| .DBGLNO 0x0054,0x0058,0x005b,0x0063
00aa 0002 0003 | | .XXX[0x3]
00ac 0004 | |
00ad 0000 0000 | | .BLANK 0000[0x153]