|
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_2bc09d
└─⟦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 0120 | | .CONST 0x0120 ; 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 006c | l | .CONST 0x006c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0013 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0015 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0017 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0019 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
001b 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
001d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 e004 | | Load 0x0,0x4
0024 e005 | | Load 0x0,0x5
0025 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0027 4802 |H | Short_Literal 0x2
0028 032e | . | Declare_Type Record,Defined,Visible
0029 00d8 | | Load_Top At_Offset_0
002a 0322 | " | Declare_Variable Record
002b e002 | | Load 0x0,0x2
002c 00d9 | | Load_Top At_Offset_1
002d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
002e e003 | | Load 0x0,0x3
002f 00d9 | | Load_Top At_Offset_1
0030 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0031 0129 | ) | Execute Any,Make_Visible
0032 c217 | | Store 0x1,0x17
0033 00d8 | | Load_Top At_Offset_0
0034 0322 | " | Declare_Variable Record
0035 0092 0105 | | Action Push_String_Extended,0x105 ; "anime"
0037 8006 | | Call 0x0,0x6
0038 00d9 | | Load_Top At_Offset_1
0039 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
003a e007 | | Load 0x0,0x7
003b 00d9 | | Load_Top At_Offset_1
003c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
003d 0129 | ) | Execute Any,Make_Visible
003e c218 | | Store 0x1,0x18
003f 00d8 | | Load_Top At_Offset_0
0040 0322 | " | Declare_Variable Record
0041 0092 0106 | | Action Push_String_Extended,0x106 ; "lieu"
0043 8006 | | Call 0x0,0x6
0044 00d9 | | Load_Top At_Offset_1
0045 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0046 e008 | | Load 0x0,0x8
0047 00d9 | | Load_Top At_Offset_1
0048 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0049 0129 | ) | Execute Any,Make_Visible
004a c219 | | Store 0x1,0x19
004b 00d8 | | Load_Top At_Offset_0
004c 0322 | " | Declare_Variable Record
004d 0092 0107 | | Action Push_String_Extended,0x107 ; "entite"
004f 8006 | | Call 0x0,0x6
0050 00d9 | | Load_Top At_Offset_1
0051 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0052 e009 | | Load 0x0,0x9
0053 00d9 | | Load_Top At_Offset_1
0054 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0055 0129 | ) | Execute Any,Make_Visible
0056 c21a | | Store 0x1,0x1a
0057 00bf | | Action Accept_Activation
0058 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0059 00c7 | | Action Elaborate_Subprogram
005a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
005b 00c7 | | Action Elaborate_Subprogram
005c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
005d 00c7 | | Action Elaborate_Subprogram
005e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
005f 00c7 | | Action Elaborate_Subprogram
0060 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0061 00c7 | | Action Elaborate_Subprogram
0062 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0063 00c7 | | Action Elaborate_Subprogram
0064 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0065 00c7 | | Action Elaborate_Subprogram
0066 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0067 00c7 | | Action Elaborate_Subprogram
0068 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0069 00c7 | | Action Elaborate_Subprogram
006a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006b 00c7 | | Action Elaborate_Subprogram
006c BODY_0008:
006c 00bc | | Action Signal_Activated
006d 00bb | | Action Signal_Completion
006e 0000 0000 | | .XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00da | | Load_Top At_Offset_2
0074 e5fe | | Load 0x2,-0x2
0075 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0076 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0077 0000 | | .XXX[0x1]
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 00e1 | | Load_Encached Boolean_Cache
007c e5fe | | Load 0x2,-0x2
007d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
007e e5ff | | Load 0x2,-0x1
007f 800a | | Call 0x0,0xa
0080 00d1 | | Pop_Control Pop_Count_1
0081 c5fd | | Store 0x2,-0x3
0082 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0083 0000 0000 | | .BLANK 0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00e1 | | Load_Encached Boolean_Cache
008c e5fe | | Load 0x2,-0x2
008d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
008e e5ff | | Load 0x2,-0x1
008f 800b | | Call 0x0,0xb
0090 00d1 | | Pop_Control Pop_Count_1
0091 c5fd | | Store 0x2,-0x3
0092 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0093 0000 0000 | | .BLANK 0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00e1 | | Load_Encached Boolean_Cache
009c e5fe | | Load 0x2,-0x2
009d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
009e e5ff | | Load 0x2,-0x1
009f 800c | | Call 0x0,0xc
00a0 00d1 | | Pop_Control Pop_Count_1
00a1 c5fd | | Store 0x2,-0x3
00a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a3 0000 0000 | | .BLANK 0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00e1 | | Load_Encached Boolean_Cache
00ac e5fd | | Load 0x2,-0x3
00ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ae e5fe | | Load 0x2,-0x2
00af e5ff | | Load 0x2,-0x1
00b0 800d | | Call 0x0,0xd
00b1 00d1 | | Pop_Control Pop_Count_1
00b2 c5fc | | Store 0x2,-0x4
00b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00e1 | | Load_Encached Boolean_Cache
00bc e5fd | | Load 0x2,-0x3
00bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00be e5fe | | Load 0x2,-0x2
00bf e5ff | | Load 0x2,-0x1
00c0 800e | | Call 0x0,0xe
00c1 00d1 | | Pop_Control Pop_Count_1
00c2 c5fc | | Store 0x2,-0x4
00c3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00e1 | | Load_Encached Boolean_Cache
00cc e5fc | | Load 0x2,-0x4
00cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ce e5fd | | Load 0x2,-0x3
00cf e5fe | | Load 0x2,-0x2
00d0 e5ff | | Load 0x2,-0x1
00d1 800f | | Call 0x0,0xf
00d2 00d1 | | Pop_Control Pop_Count_1
00d3 c5fb | | Store 0x2,-0x5
00d4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 0092 0108 | | Action Push_String_Extended,0x108 ; "Structure : Name : "
00dd 00db | | Load_Top At_Offset_3
00de 8215 | | Call 0x1,0x15
00df 01cc | | Execute Vector,Catenate
00e0 e010 | | Load 0x0,0x10
00e1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e2 00da | | Load_Top At_Offset_2
00e3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00e4 8011 | | Call 0x0,0x11
00e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2
00ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ed 8012 | | Call 0x0,0x12
00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ef 0000 | | .XXX[0x1]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00f5 02fd | | Declare_Variable Variant_Record,Duplicate
00f6 00cd | | Action Spare6_Action
00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4601 |F | Jump_Case 0x2
00fc 7801 |x | Jump 0xfe ; case 0x0
00fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00fe e002 | | Load 0x0,0x2
00ff 00db | | Load_Top At_Offset_3
0100 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0101 e003 | | Load 0x0,0x3
0102 00db | | Load_Top At_Offset_3
0103 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0105 ; --------------------------------------------------------------------------------------
0105 ; STRING TABLE
0105 ; --------------------------------------------------------------------------------------
0105 000a | | .STRTAB 0x000a->0x010a ; "anime"
0106 000d | | .STRTAB 0x000d->0x010c ; "lieu"
0107 000f | | .STRTAB 0x000f->0x010e ; "entite"
0108 0013 | | .STRTAB 0x0013->0x0111 ; "Structure : Name : "
0109 0024 | $ | .STREND 0x0024->0x011b
010a 616e 696d |anim| .STRTAB_STRINGS
011b 0000 0000 | | .BLANK 0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; Debug Table
0120 ; --------------------------------------------------------------------------------------
0120 0004 0008 | | .DEBUG4 0x0004,0x0008,0xffad,0x0000,0x0001,0x000d
0126 000b 015a | Z| .DBG4T 0x000b,0x015a,0x8000,0x8000
012a 0058 0182 | X | .DBG4T 0x0058,0x0182,0x8000,0x0000
012e 0073 018e | s | .DBG4T 0x0073,0x018e,0x0001,0x0000
0132 007b 0191 | { | .DBG4T 0x007b,0x0191,0x0001,0x0000
0136 008b 0194 | | .DBG4T 0x008b,0x0194,0x0001,0x0000
013a 009b 0197 | | .DBG4T 0x009b,0x0197,0x0001,0x0000
013e 00ab 019a | | .DBG4T 0x00ab,0x019a,0x0001,0x0000
0142 00bb 019d | | .DBG4T 0x00bb,0x019d,0x0001,0x0000
0146 00cb 01a0 | | .DBG4T 0x00cb,0x01a0,0x0001,0x0000
014a 00db 01a3 | | .DBG4T 0x00db,0x01a3,0x0001,0x0000
014e 00eb 01a7 | | .DBG4T 0x00eb,0x01a7,0x0002,0x0000
0152 00f3 01aa | | .DBG4T 0x00f3,0x01aa,0x0002,0x0000
0156 00fb 0000 | | .DBG4T 0x00fb,0x0000,0x0005,0x0000
015a ; --------------------------------------------------------------------------------------
015a ; Debug chain
015a ; --------------------------------------------------------------------------------------
015a 0013 0000 | | .DBGLEN 0x0013,0x0000
015c 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0020,0x0021,0x0022,0x0023,0x0029,0x0033,0x003f,0x004b
016f 0002 0003 | | .XXX[0x13]
0171 0004 0005 | |
0173 0006 0007 | |
0175 0008 0009 | |
0177 000a 000b | |
0179 000c 000d | |
017b 000e 000f | |
017d 0010 0011 | |
017f 0012 0013 | |
0181 0014 | |
0182 ; --------------------------------------------------------------------------------------
0182 ; Debug chain
0182 ; --------------------------------------------------------------------------------------
0182 000a 0000 | | .DBGLEN 0x000a,0x0000
0184 0058 005a | X Z| .DBGLNO 0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a
018e ; --------------------------------------------------------------------------------------
018e ; Debug chain
018e ; --------------------------------------------------------------------------------------
018e 0000 0001 | | .DBGLEN 0x0000,0x0001
0190 0073 | s | .DBGLNO 0x0073
0191 ; --------------------------------------------------------------------------------------
0191 ; Debug chain
0191 ; --------------------------------------------------------------------------------------
0191 0000 0001 | | .DBGLEN 0x0000,0x0001
0193 007b | { | .DBGLNO 0x007b
0194 ; --------------------------------------------------------------------------------------
0194 ; Debug chain
0194 ; --------------------------------------------------------------------------------------
0194 0000 0001 | | .DBGLEN 0x0000,0x0001
0196 008b | | .DBGLNO 0x008b
0197 ; --------------------------------------------------------------------------------------
0197 ; Debug chain
0197 ; --------------------------------------------------------------------------------------
0197 0000 0001 | | .DBGLEN 0x0000,0x0001
0199 009b | | .DBGLNO 0x009b
019a ; --------------------------------------------------------------------------------------
019a ; Debug chain
019a ; --------------------------------------------------------------------------------------
019a 0000 0001 | | .DBGLEN 0x0000,0x0001
019c 00ab | | .DBGLNO 0x00ab
019d ; --------------------------------------------------------------------------------------
019d ; Debug chain
019d ; --------------------------------------------------------------------------------------
019d 0000 0001 | | .DBGLEN 0x0000,0x0001
019f 00bb | | .DBGLNO 0x00bb
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug chain
01a0 ; --------------------------------------------------------------------------------------
01a0 0000 0001 | | .DBGLEN 0x0000,0x0001
01a2 00cb | | .DBGLNO 0x00cb
01a3 ; --------------------------------------------------------------------------------------
01a3 ; Debug chain
01a3 ; --------------------------------------------------------------------------------------
01a3 0000 0002 | | .DBGLEN 0x0000,0x0002
01a5 00db 00e2 | | .DBGLNO 0x00db,0x00e2
01a7 ; --------------------------------------------------------------------------------------
01a7 ; Debug chain
01a7 ; --------------------------------------------------------------------------------------
01a7 0000 0001 | | .DBGLEN 0x0000,0x0001
01a9 00eb | | .DBGLNO 0x00eb
01aa ; --------------------------------------------------------------------------------------
01aa ; Debug chain
01aa ; --------------------------------------------------------------------------------------
01aa 0000 0001 | | .DBGLEN 0x0000,0x0001
01ac 00f3 | | .DBGLNO 0x00f3
01ad 0000 0000 | | .BLANK 0000[0x53]