|
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_569ccd
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00b8 | | .CONST 0x00b8 ; 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 0036 | 6 | .CONST 0x0036 ; Address of begin
0019 006e | n | .CONST 0x006e ; Address of exception handler
001a 0004 | | .CONST 0x0004 ; Number of locals
001b INIT_0018:
001b 0093 0000 | | push_full_address 0x0
001d 605e |`^ | Indirect_Literal Discrete,0x7c,{0x80000000, 0x00010000}
001e 0273 | s | Execute Discrete,Plus
001f e002 | | Load 0x0,0x2
0020 0273 | s | Execute Discrete,Plus
0021 e003 | | Load 0x0,0x3
0022 0273 | s | Execute Discrete,Plus
0023 4800 |H | Short_Literal 0x0
0024 4800 |H | Short_Literal 0x0
0025 482d |H- | Short_Literal 0x2d
0026 e004 | | Load 0x0,0x4
0027 0387 | | Declare_Variable Package
0028 00d8 | | Load_Top At_Offset_0
0029 020f | | Execute Module,Activate
002a e005 | | Load 0x0,0x5
002b 00d9 | | Load_Top At_Offset_1
002c 0098 | | Execute Package,Field_Read_Dynamic
002d 0322 | " | Declare_Variable Record
002e 00d8 | | Load_Top At_Offset_0
002f 1c00 | | Execute_Immediate Run_Utility,0x0
0030 e005 | | Load 0x0,0x5
0031 00da | | Load_Top At_Offset_2
0032 0098 | | Execute Package,Field_Read_Dynamic
0033 0322 | " | Declare_Variable Record
0034 00d8 | | Load_Top At_Offset_0
0035 1c00 | | Execute_Immediate Run_Utility,0x0
0036 BODY_0018:
0036 00d8 | | Load_Top At_Offset_0
0037 480f |H | Short_Literal 0xf
0038 e006 | | Load 0x0,0x6
0039 e402 | | Load 0x2,0x2
003a 0096 | | Execute Package,Entry
003b 00d1 | | Pop_Control Pop_Count_1
003c 00d8 | | Load_Top At_Offset_0
003d 480a |H | Short_Literal 0xa
003e e007 | | Load 0x0,0x7
003f e402 | | Load 0x2,0x2
0040 0096 | | Execute Package,Entry
0041 00d1 | | Pop_Control Pop_Count_1
0042 00d9 | | Load_Top At_Offset_1
0043 480a |H | Short_Literal 0xa
0044 e006 | | Load 0x0,0x6
0045 e402 | | Load 0x2,0x2
0046 0096 | | Execute Package,Entry
0047 00d1 | | Pop_Control Pop_Count_1
0048 0092 0080 | | Action Push_String_Extended,0x80 ; "Il reste: "
004a e008 | | Load 0x0,0x8
004b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
004c 00d8 | | Load_Top At_Offset_0
004d e009 | | Load 0x0,0x9
004e e402 | | Load 0x2,0x2
004f 0096 | | Execute Package,Entry
0050 00e0 | | Load_Encached Standard_Cache
0051 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0052 e008 | | Load 0x0,0x8
0053 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0054 0092 0081 | | Action Push_String_Extended,0x81 ; " litres dans la clio"
0056 e008 | | Load 0x0,0x8
0057 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0058 0092 0082 | | Action Push_String_Extended,0x82 ; "Il y a : "
005a e008 | | Load 0x0,0x8
005b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
005c 00d9 | | Load_Top At_Offset_1
005d e009 | | Load 0x0,0x9
005e e402 | | Load 0x2,0x2
005f 0096 | | Execute Package,Entry
0060 00e0 | | Load_Encached Standard_Cache
0061 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0062 e008 | | Load 0x0,0x8
0063 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0064 0092 0083 | | Action Push_String_Extended,0x83 ; " litres dans ma 205"
0066 e008 | | Load 0x0,0x8
0067 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0068 00d8 | | Load_Top At_Offset_0
0069 480a |H | Short_Literal 0xa
006a e007 | | Load 0x0,0x7
006b e402 | | Load 0x2,0x2
006c 0096 | | Execute Package,Entry
006d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006e TRAP_0018:
006e e00a | | Load 0x0,0xa
006f e402 | | Load 0x2,0x2
0070 0098 | | Execute Package,Field_Read_Dynamic
0071 010f | | Execute Exception,Equal
0072 6805 |h | Jump_Zero 0x78
0073 0092 0084 | | Action Push_String_Extended,0x84 ; "Tu essayes d'en prendre de trop!!!"
0075 e008 | | Load 0x0,0x8
0076 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0077 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0078 0100 | | Execute Exception,Raise
0079 0000 0000 | | .XXX[0x3]
007b 0000 | |
007c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0080 ; --------------------------------------------------------------------------------------
0080 ; STRING TABLE
0080 ; --------------------------------------------------------------------------------------
0080 000c | | .STRTAB 0x000c->0x0086 ; "Il reste: "
0081 0014 | | .STRTAB 0x0014->0x008b ; " litres dans la clio"
0082 0026 | & | .STRTAB 0x0026->0x0095 ; "Il y a : "
0083 002d | - | .STRTAB 0x002d->0x0099 ; " litres dans ma 205"
0084 003e | > | .STRTAB 0x003e->0x00a3 ; "Tu essayes d'en prendre de trop!!!"
0085 005e | ^ | .STREND 0x005e->0x00b4
0086 496c 2072 |Il r| .STRTAB_STRINGS
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; Debug Table
00b8 ; --------------------------------------------------------------------------------------
00b8 0004 000a | | .DEBUG4 0x0004,0x000a,0xdc49,0x0000,0x0001,0x0002
00be 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
00c2 001b 00c6 | | .DBG4T 0x001b,0x00c6,0x8001,0x8000
00c6 ; --------------------------------------------------------------------------------------
00c6 ; Debug chain
00c6 ; --------------------------------------------------------------------------------------
00c6 0003 000b | | .DBGLEN 0x0003,0x000b
00c8 001b 002a | *| .DBGLNO 0x001b,0x002a,0x0030,0x0036,0x003c,0x0042,0x0048,0x004c,0x0054,0x0058,0x005c,0x0064,0x0068,0x0073
00d6 0001 0005 | | .XXX[0x3]
00d8 0006 | |
00d9 0000 0000 | | .BLANK 0000[0x127]