|
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_0eacf9
└─⟦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 00c8 | | .CONST 0x00c8 ; 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 002b | + | .CONST 0x002b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
000f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0011 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0013 4801 |H | Short_Literal 0x1
0014 481e |H | Short_Literal 0x1e
0015 00e9 | | Load_Encached String_Cache
0016 035c | \ | Declare_Type Array,Constrained,Visible
0017 00e3 | | Load_Encached Natural_Cache
0018 00e3 | | Load_Encached Natural_Cache
0019 e002 | | Load 0x0,0x2
001a 02a0 | | Declare_Subprogram Null_Subprogram
001b 4804 |H | Short_Literal 0x4
001c 032e | . | Declare_Type Record,Defined,Visible
001d 00bf | | Action Accept_Activation
001e 0093 0000 | | push_full_address 0x0
0020 6037 |`7 | Indirect_Literal Discrete,0x58,{0x80000000, 0x00010000}
0021 0273 | s | Execute Discrete,Plus
0022 0007 | | Action Break_Optional
0023 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0024 00c7 | | Action Elaborate_Subprogram
0025 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0026 00c7 | | Action Elaborate_Subprogram
0027 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0028 00c7 | | Action Elaborate_Subprogram
0029 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002a 00c7 | | Action Elaborate_Subprogram
002b BODY_0008:
002b 00bc | | Action Signal_Activated
002c 00bb | | Action Signal_Completion
002d 0000 0000 | | .XXX[0x3]
002f 0000 | |
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0034 | 4 | .CONST 0x0034 ; Address of begin
0031 004f | O | .CONST 0x004f ; Address of exception handler
0032 0002 | | .CONST 0x0002 ; Number of locals
0033 INIT_0030:
0033 00e3 | | Load_Encached Natural_Cache
0034 BODY_0030:
0034 00db | | Load_Top At_Offset_3
0035 01db | | Execute Vector,Length
0036 0059 | Y | Store_Top Discrete,At_Offset_1
0037 00d8 | | Load_Top At_Offset_0
0038 0c1f | | Execute_Immediate Greater_Equal,0x1f
0039 6802 |h | Jump_Zero 0x3c
003a e212 | | Load 0x1,0x12
003b 0257 | W | Execute Discrete,Raise
003c 00d8 | | Load_Top At_Offset_0
003d e5fc | | Load 0x2,-0x4
003e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
003f 4801 |H | Short_Literal 0x1
0040 00d9 | | Load_Top At_Offset_1
0041 e5ff | | Load 0x2,-0x1
0042 01cf | | Execute Vector,Slice_Read
0043 4801 |H | Short_Literal 0x1
0044 00da | | Load_Top At_Offset_2
0045 e5fc | | Load 0x2,-0x4
0046 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0047 01ce | | Execute Vector,Slice_Write
0048 e5fe | | Load 0x2,-0x2
0049 e5fc | | Load 0x2,-0x4
004a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
004b e5fd | | Load 0x2,-0x3
004c e5fc | | Load 0x2,-0x4
004d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
004e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
004f TRAP_0030:
004f e212 | | Load 0x1,0x12
0050 010f | | Execute Exception,Equal
0051 6805 |h | Jump_Zero 0x57
0052 0092 009c | | Action Push_String_Extended,0x9c ; "type du lecteur : 30 carateres maximum);"
0054 e003 | | Load 0x0,0x3
0055 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0056 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0057 0100 | | Execute Exception,Raise
0058 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
005c 0000 0000 | | .BLANK 0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 4801 |H | Short_Literal 0x1
0064 00db | | Load_Top At_Offset_3
0065 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0066 e5ff | | Load 0x2,-0x1
0067 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0068 01cf | | Execute Vector,Slice_Read
0069 4801 |H | Short_Literal 0x1
006a e5ff | | Load 0x2,-0x1
006b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
006c e5fe | | Load 0x2,-0x2
006d 01ce | | Execute Vector,Slice_Write
006e 00da | | Load_Top At_Offset_2
006f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0070 a5fd | | Store_Unchecked 0x2,-0x3
0071 00da | | Load_Top At_Offset_2
0072 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0073 e5fc | | Load 0x2,-0x4
0074 017d | } | Execute Record,Structure_Write
0075 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00da | | Load_Top At_Offset_2
007c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 0092 009d | | Action Push_String_Extended,0x9d ; "Type de Lecteur : "
0085 4801 |H | Short_Literal 0x1
0086 e5ff | | Load 0x2,-0x1
0087 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0088 e5ff | | Load 0x2,-0x1
0089 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
008a 01cf | | Execute Vector,Slice_Read
008b 01cc | | Execute Vector,Catenate
008c 0092 009e | | Action Push_String_Extended,0x9e ; "; Numero : "
008e 01cc | | Execute Vector,Catenate
008f 00db | | Load_Top At_Offset_3
0090 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0091 00e0 | | Load_Encached Standard_Cache
0092 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0093 01cc | | Execute Vector,Catenate
0094 0092 009f | | Action Push_String_Extended,0x9f ; " "
0096 01cc | | Execute Vector,Catenate
0097 00db | | Load_Top At_Offset_3
0098 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0099 8004 | | Call 0x0,0x4
009a 01cc | | Execute Vector,Catenate
009b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009c ; --------------------------------------------------------------------------------------
009c ; STRING TABLE
009c ; --------------------------------------------------------------------------------------
009c 000a | | .STRTAB 0x000a->0x00a1 ; "type du lecteur : 30 carateres maximum);"
009d 0030 | 0 | .STRTAB 0x0030->0x00b5 ; "Type de Lecteur : "
009e 0040 | @ | .STRTAB 0x0040->0x00be ; "; Numero : "
009f 0049 | I | .STRTAB 0x0049->0x00c3 ; " "
00a0 0048 | H | .STREND 0x0048->0x00c4
00a1 7479 7065 |type| .STRTAB_STRINGS
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; Debug Table
00c8 ; --------------------------------------------------------------------------------------
00c8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x55c5,0x0000,0x0001,0x0006
00ce 000b 00e6 | | .DBG4T 0x000b,0x00e6,0x8000,0x8000
00d2 001e 00f2 | | .DBG4T 0x001e,0x00f2,0x8000,0x0000
00d6 0033 00f9 | 3 | .DBG4T 0x0033,0x00f9,0x0001,0x0000
00da 0063 0104 | c | .DBG4T 0x0063,0x0104,0x0001,0x0000
00de 007b 0109 | { | .DBG4T 0x007b,0x0109,0x0002,0x0000
00e2 0083 010c | | .DBG4T 0x0083,0x010c,0x0002,0x0000
00e6 ; --------------------------------------------------------------------------------------
00e6 ; Debug chain
00e6 ; --------------------------------------------------------------------------------------
00e6 0005 0000 | | .DBGLEN 0x0005,0x0000
00e8 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013
00ed 0002 0003 | | .XXX[0x5]
00ef 0004 0005 | |
00f1 0006 | |
00f2 ; --------------------------------------------------------------------------------------
00f2 ; Debug chain
00f2 ; --------------------------------------------------------------------------------------
00f2 0005 0000 | | .DBGLEN 0x0005,0x0000
00f4 001e 0023 | #| .DBGLNO 0x001e,0x0023,0x0025,0x0027,0x0029
00f9 ; --------------------------------------------------------------------------------------
00f9 ; Debug chain
00f9 ; --------------------------------------------------------------------------------------
00f9 0001 0008 | | .DBGLEN 0x0001,0x0008
00fb 0033 0034 | 3 4| .DBGLNO 0x0033,0x0034,0x0037,0x003a,0x003c,0x003f,0x0048,0x004b,0x0052
0104 ; --------------------------------------------------------------------------------------
0104 ; Debug chain
0104 ; --------------------------------------------------------------------------------------
0104 0000 0003 | | .DBGLEN 0x0000,0x0003
0106 0063 006e | c n| .DBGLNO 0x0063,0x006e,0x0071
0109 ; --------------------------------------------------------------------------------------
0109 ; Debug chain
0109 ; --------------------------------------------------------------------------------------
0109 0000 0001 | | .DBGLEN 0x0000,0x0001
010b 007b | { | .DBGLNO 0x007b
010c ; --------------------------------------------------------------------------------------
010c ; Debug chain
010c ; --------------------------------------------------------------------------------------
010c 0000 0001 | | .DBGLEN 0x0000,0x0001
010e 0083 | | .DBGLNO 0x0083
010f 0000 0000 | | .BLANK 0000[0xf1]