|
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_0418f8
└─⟦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 0098 | | .CONST 0x0098 ; 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 0039 | 9 | .CONST 0x0039 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b e002 | | Load 0x0,0x2
000c 0266 | f | Execute Discrete,Bounds
000d 00e1 | | Load_Encached Boolean_Cache
000e 02a0 | | Declare_Subprogram Null_Subprogram
000f 4801 |H | Short_Literal 0x1
0010 035e | ^ | Declare_Type Array,Defined,Visible
0011 00d8 | | Load_Top At_Offset_0
0012 0337 | 7 | Declare_Variable Array
0013 4801 |H | Short_Literal 0x1
0014 4809 |H | Short_Literal 0x9
0015 00da | | Load_Top At_Offset_2
0016 01d6 | | Execute Vector,Field_Write
0017 4801 |H | Short_Literal 0x1
0018 4806 |H | Short_Literal 0x6
0019 00da | | Load_Top At_Offset_2
001a 01d6 | | Execute Vector,Field_Write
001b 4805 |H | Short_Literal 0x5
001c 4800 |H | Short_Literal 0x0
001d 4800 |H | Short_Literal 0x0
001e 00d9 | | Load_Top At_Offset_1
001f e20e | | Load 0x1,0xe
0020 01d6 | | Execute Vector,Field_Write
0021 3ffb |? | Loop_Increasing 0x1d
0022 4800 |H | Short_Literal 0x0
0023 4807 |H | Short_Literal 0x7
0024 00da | | Load_Top At_Offset_2
0025 01d6 | | Execute Vector,Field_Write
0026 4800 |H | Short_Literal 0x0
0027 4808 |H | Short_Literal 0x8
0028 00da | | Load_Top At_Offset_2
0029 01d6 | | Execute Vector,Field_Write
002a 4836 |H6 | Short_Literal 0x36
002b 480a |H | Short_Literal 0xa
002c 4800 |H | Short_Literal 0x0
002d 00d9 | | Load_Top At_Offset_1
002e e20e | | Load 0x1,0xe
002f 01d6 | | Execute Vector,Field_Write
0030 3ffb |? | Loop_Increasing 0x2c
0031 00d9 | | Load_Top At_Offset_1
0032 01c3 | | Execute Vector,Check_In_Type
0033 0129 | ) | Execute Any,Make_Visible
0034 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
0036 00bf | | Action Accept_Activation
0037 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0038 00c7 | | Action Elaborate_Subprogram
0039 BODY_0008:
0039 00bc | | Action Signal_Activated
003a 00bb | | Action Signal_Completion
003b 0000 0000 | | .BLANK 0000[0x5]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 8003 | | Call 0x0,0x3
0044 0f09 | | Execute_Immediate Equal,0x9
0045 6819 |h | Jump_Zero 0x5f
0046 8004 | | Call 0x0,0x4
0047 0f05 | | Execute_Immediate Equal,0x5
0048 6803 |h | Jump_Zero 0x4c
0049 0092 0079 | y| Action Push_String_Extended,0x79 ; "egal"
004b 8005 | | Call 0x0,0x5
004c 8006 | | Call 0x0,0x6
004d 8003 | | Call 0x0,0x3
004e 0f0b | | Execute_Immediate Equal,0xb
004f 680b |h | Jump_Zero 0x5b
0050 8006 | | Call 0x0,0x6
0051 8007 | | Call 0x0,0x7
0052 8003 | | Call 0x0,0x3
0053 0f0c | | Execute_Immediate Equal,0xc
0054 6802 |h | Jump_Zero 0x57
0055 8006 | | Call 0x0,0x6
0056 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0057 0092 007a | z| Action Push_String_Extended,0x7a ; "il manque ')'"
0059 8008 | | Call 0x0,0x8
005a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
005b 0092 007b | {| Action Push_String_Extended,0x7b ; "il manque '('"
005d 8008 | | Call 0x0,0x8
005e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
005f 8003 | | Call 0x0,0x3
0060 0f06 | | Execute_Immediate Equal,0x6
0061 6813 |h | Jump_Zero 0x75
0062 8006 | | Call 0x0,0x6
0063 8003 | | Call 0x0,0x3
0064 0f0b | | Execute_Immediate Equal,0xb
0065 680b |h | Jump_Zero 0x71
0066 8006 | | Call 0x0,0x6
0067 8007 | | Call 0x0,0x7
0068 8003 | | Call 0x0,0x3
0069 0f0c | | Execute_Immediate Equal,0xc
006a 6802 |h | Jump_Zero 0x6d
006b 8006 | | Call 0x0,0x6
006c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006d 0092 007a | z| Action Push_String_Extended,0x7a ; "il manque ')'"
006f 8008 | | Call 0x0,0x8
0070 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0071 0092 007b | {| Action Push_String_Extended,0x7b ; "il manque '('"
0073 8008 | | Call 0x0,0x8
0074 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0075 0092 007c | || Action Push_String_Extended,0x7c ; "il manque '!=' ou '='"
0077 8008 | | Call 0x0,0x8
0078 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0079 ; --------------------------------------------------------------------------------------
0079 ; STRING TABLE
0079 ; --------------------------------------------------------------------------------------
0079 000a | | .STRTAB 0x000a->0x007e ; "egal"
007a 000c | | .STRTAB 0x000c->0x0080 ; "il manque ')'"
007b 0017 | | .STRTAB 0x0017->0x0086 ; "il manque '('"
007c 0022 | " | .STRTAB 0x0022->0x008d ; "il manque '!=' ou '='"
007d 0035 | 5 | .STREND 0x0035->0x0097
007e 6567 616c |egal| .STRTAB_STRINGS
0098 ; --------------------------------------------------------------------------------------
0098 ; Debug Table
0098 ; --------------------------------------------------------------------------------------
0098 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdabc,0x0000,0x0001,0x0003
009e 000b 00aa | | .DBG4T 0x000b,0x00aa,0x8000,0x0000
00a2 0037 00af | 7 | .DBG4T 0x0037,0x00af,0x8000,0x0000
00a6 0043 00b2 | C | .DBG4T 0x0043,0x00b2,0x0001,0x0000
00aa ; --------------------------------------------------------------------------------------
00aa ; Debug chain
00aa ; --------------------------------------------------------------------------------------
00aa 0003 0000 | | .DBGLEN 0x0003,0x0000
00ac 000b 0011 | | .DBGLNO 0x000b,0x0011,0x0034
00af ; --------------------------------------------------------------------------------------
00af ; Debug chain
00af ; --------------------------------------------------------------------------------------
00af 0001 0000 | | .DBGLEN 0x0001,0x0000
00b1 0037 | 7 | .DBGLNO 0x0037
00b2 ; --------------------------------------------------------------------------------------
00b2 ; Debug chain
00b2 ; --------------------------------------------------------------------------------------
00b2 0000 0015 | | .DBGLEN 0x0000,0x0015
00b4 0043 0046 | C F| .DBGLNO 0x0043,0x0046,0x0049,0x004c,0x004d,0x0050,0x0051,0x0052,0x0055,0x0057,0x005b,0x005f,0x0062,0x0063,0x0066,0x0067,0x0068,0x006b,0x006d,0x0071,0x0075
00c9 0000 0000 | | .BLANK 0000[0x137]