|
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_375cff
└─⟦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 0160 | ` | .CONST 0x0160 ; 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 0031 | 1 | .CONST 0x0031 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 0093 005b | [| push_full_address INIT_0058
000e 00f5 | | Load_Encached Unused21
000f 037b | { | Declare_Type Task,Defined,Visible,Not_Elaborated
0010 00d8 | | Load_Top At_Offset_0
0011 02a0 | | Declare_Subprogram Null_Subprogram
0012 4818 |H | Short_Literal 0x18
0013 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0014 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0016 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
0018 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
001a 00bf | | Action Accept_Activation
001b 00e3 | | Load_Encached Natural_Cache
001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001e 00c7 | | Action Elaborate_Subprogram
001f 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0020 00c7 | | Action Elaborate_Subprogram
0021 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0022 00c7 | | Action Elaborate_Subprogram
0023 e002 | | Load 0x0,0x2
0024 e003 | | Load 0x0,0x3
0025 e004 | | Load 0x0,0x4
0026 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0027 e005 | | Load 0x0,0x5
0028 e006 | | Load 0x0,0x6
0029 e007 | | Load 0x0,0x7
002a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002b a008 | | Store_Unchecked 0x0,0x8
002c 4809 |H | Short_Literal 0x9
002d e20d | | Load 0x1,0xd
002e 020e | | Execute Module,Augment_Imports
002f e20d | | Load 0x1,0xd
0030 020d | | Execute Module,Elaborate
0031 BODY_0008:
0031 00bc | | Action Signal_Activated
0032 00bb | | Action Signal_Completion
0033 0000 0000 | | .BLANK 0000[0x5]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 00db | | Load_Top At_Offset_3
003c 00db | | Load_Top At_Offset_3
003d 8009 | | Call 0x0,0x9
003e 00d1 | | Pop_Control Pop_Count_1
003f c5fe | | Store 0x2,-0x2
0040 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0041 0000 0000 | | .BLANK 0000[0x7]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 4800 |H | Short_Literal 0x0
004c 00db | | Load_Top At_Offset_3
004d 170d | | Execute Task,Entry_Call,Field_Number 0xd
004e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 4800 |H | Short_Literal 0x0
0054 00db | | Load_Top At_Offset_3
0055 170e | | Execute Task,Entry_Call,Field_Number 0xe
0056 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0057 0000 | | .XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0076 | v | .CONST 0x0076 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0016 | | .CONST 0x0016 ; Number of locals
005b INIT_0058:
005b 4800 |H | Short_Literal 0x0
005c 02cb | | Declare_Variable Entry
005d 4800 |H | Short_Literal 0x0
005e 02cb | | Declare_Variable Entry
005f 00bf | | Action Accept_Activation
0060 e001 | | Load 0x0,0x1
0061 0007 | | Action Break_Optional
0062 00e8 | | Load_Encached Character_Cache
0063 e002 | | Load 0x0,0x2
0064 0322 | " | Declare_Variable Record
0065 00d8 | | Load_Top At_Offset_0
0066 0322 | " | Declare_Variable Record
0067 00e3 | | Load_Encached Natural_Cache
0068 00e1 | | Load_Encached Boolean_Cache
0069 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
006a 00e1 | | Load_Encached Boolean_Cache
006b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
006c 480e 481b |H H | Declare_Variable Select 0x000, 0x002,
006e 480d 481e |H H | [0x000]: 0x000 = 0x0000,
0070 4800 4800 |H H | [0x00d]: 0x01e = 0x00f0,
0072 4800 4802 |H H | [0x00e]: 0x01b = 0x00d8
0074 02cf | |
0075 00bc | | Action Signal_Activated
0076 BODY_0058:
0076 0092 00fe | | Action Push_String_Extended,0xfe ; "Tache Tir en route ..."
0078 e003 | | Load 0x0,0x3
0079 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
007a e004 | | Load 0x0,0x4
007b 0a01 | | Execute_Immediate Plus,0x1
007c c004 | | Store 0x0,0x4
007d e004 | | Load 0x0,0x4
007e a213 | | Store_Unchecked 0x1,0x13
007f 4800 |H | Short_Literal 0x0
0080 e005 | | Load 0x0,0x5
0081 e006 | | Load 0x0,0x6
0082 00ad | | QQ_Action Package,Field_Execute_Dynamic
0083 0092 00ff | | Action Push_String_Extended,0xff ; "Tache Initialisee numero "
0085 e213 | | Load 0x1,0x13
0086 00e0 | | Load_Encached Standard_Cache
0087 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0088 01cc | | Execute Vector,Catenate
0089 e003 | | Load 0x0,0x3
008a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
008b 00cf | | Action Mark_Auxiliary
008c 7840 |x@ | Jump 0xcd
008d e212 | | Load 0x1,0x12
008e e211 | | Load 0x1,0x11
008f 017d | } | Execute Record,Structure_Write
0090 e213 | | Load 0x1,0x13
0091 e212 | | Load 0x1,0x12
0092 4802 |H | Short_Literal 0x2
0093 e005 | | Load 0x0,0x5
0094 e007 | | Load 0x0,0x7
0095 00ad | | QQ_Action Package,Field_Execute_Dynamic
0096 0092 0100 | | Action Push_String_Extended,0x100 ; "Attente de la tache "
0098 e213 | | Load 0x1,0x13
0099 00e0 | | Load_Encached Standard_Cache
009a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009b 01cc | | Execute Vector,Catenate
009c e003 | | Load 0x0,0x3
009d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
009e 00d9 | | Load_Top At_Offset_1
009f 013f | ? | Execute Select,Rendezvous
00a0 4602 |F | Jump_Case 0x3
00a1 7801 |x | Jump 0xa3 ; case 0x0
00a2 7829 |x) | Jump 0xcc ; case 0x1
00a3 00db | | Load_Top At_Offset_3 ; case 0x2
00a4 6825 |h% | Jump_Zero 0xca
00a5 0092 0101 | | Action Push_String_Extended,0x101 ; "ok je bouge"
00a7 e003 | | Load 0x0,0x3
00a8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a9 e20f | | Load 0x1,0xf
00aa e212 | | Load 0x1,0x12
00ab 8008 | | Call 0x0,0x8
00ac 00d1 | | Pop_Control Pop_Count_1
00ad c20f | | Store 0x1,0xf
00ae 0092 0102 | | Action Push_String_Extended,0x102 ; "ma pos virtuelle est calculee :"
00b0 e003 | | Load 0x0,0x3
00b1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b2 e212 | | Load 0x1,0x12
00b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00b4 00e0 | | Load_Encached Standard_Cache
00b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b6 0092 0103 | | Action Push_String_Extended,0x103 ; " , "
00b8 01cc | | Execute Vector,Catenate
00b9 e212 | | Load 0x1,0x12
00ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00bb 00e0 | | Load_Encached Standard_Cache
00bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00bd 01cc | | Execute Vector,Catenate
00be e003 | | Load 0x0,0x3
00bf 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c0 4800 |H | Short_Literal 0x0
00c1 e211 | | Load 0x1,0x11
00c2 4820 |H | Short_Literal 0x20
00c3 8009 | | Call 0x0,0x9
00c4 4800 |H | Short_Literal 0x0
00c5 e212 | | Load 0x1,0x12
00c6 486f |Ho | Short_Literal 0x6f
00c7 8009 | | Call 0x0,0x9
00c8 4800 |H | Short_Literal 0x0
00c9 a214 | | Store_Unchecked 0x1,0x14
00ca 601d |` | Indirect_Literal Discrete,0xe8,{0x00000000, 0x00008000}
00cb 00ba | | Action Initiate_Delay
00cc 00c9 | | Action Pop_Auxiliary_Loop
00cd 00da | | Load_Top At_Offset_2
00ce 77be |w | Jump_Nonzero 0x8d
00cf 00ce | | Action Pop_Auxiliary
00d0 00bb | | Action Signal_Completion
00d1 0000 0000 | | .BLANK 0000[0x7]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; See instruction 0x02cf at 0x6c, index=0xe
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 0104 | | Action Push_String_Extended,0x104 ; "je me tue"
00dd e003 | | Load 0x0,0x3
00de 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00df 4800 |H | Short_Literal 0x0
00e0 e212 | | Load 0x1,0x12
00e1 4820 |H | Short_Literal 0x20
00e2 8009 | | Call 0x0,0x9
00e3 4800 |H | Short_Literal 0x0
00e4 a215 | | Store_Unchecked 0x1,0x15
00e5 4100 |A | End_Rendezvous 0x0
00e6 0000 0000 | | .XXX[0x2]
00e8 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
00ec 0000 0000 | | .BLANK 0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; See instruction 0x02cf at 0x6c, index=0xd
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 0092 0105 | | Action Push_String_Extended,0x105 ; " OK pour pos Ordre de se deplacer accepte par "
00f5 e213 | | Load 0x1,0x13
00f6 00e0 | | Load_Encached Standard_Cache
00f7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f8 01cc | | Execute Vector,Catenate
00f9 e003 | | Load 0x0,0x3
00fa 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00fb 4801 |H | Short_Literal 0x1
00fc a214 | | Store_Unchecked 0x1,0x14
00fd 4100 |A | End_Rendezvous 0x0
00fe ; --------------------------------------------------------------------------------------
00fe ; STRING TABLE
00fe ; --------------------------------------------------------------------------------------
00fe 0012 | | .STRTAB 0x0012->0x0107 ; "Tache Tir en route ..."
00ff 0026 | & | .STRTAB 0x0026->0x0112 ; "Tache Initialisee numero "
0100 003d | = | .STRTAB 0x003d->0x011e ; "Attente de la tache "
0101 004f | O | .STRTAB 0x004f->0x0128 ; "ok je bouge"
0102 0058 | X | .STRTAB 0x0058->0x012e ; "ma pos virtuelle est calculee :"
0103 0075 | u | .STRTAB 0x0075->0x013d ; " , "
0104 0076 | v | .STRTAB 0x0076->0x013f ; "je me tue"
0105 007d | } | .STRTAB 0x007d->0x0143 ; " OK pour pos Ordre de se deplacer accepte par "
0106 00a9 | | .STREND 0x00a9->0x015a
0107 5461 6368 |Tach| .STRTAB_STRINGS
015b 0000 0000 | | .BLANK 0000[0x5]
0160 ; --------------------------------------------------------------------------------------
0160 ; Debug Table
0160 ; --------------------------------------------------------------------------------------
0160 0004 000a | | .DEBUG4 0x0004,0x000a,0xbbe7,0x0000,0x0001,0x0009
0166 000b 018a | | .DBG4T 0x000b,0x018a,0x8000,0x0000
016a 001b 0192 | | .DBG4T 0x001b,0x0192,0x8000,0x0000
016e 003b 0199 | ; | .DBG4T 0x003b,0x0199,0x0001,0x0000
0172 004b 019c | K | .DBG4T 0x004b,0x019c,0x0001,0x0000
0176 0053 019f | S | .DBG4T 0x0053,0x019f,0x0001,0x0000
017a 005b 01a2 | [ | .DBG4T 0x005b,0x01a2,0x0000,0x0000
017e 0060 01a6 | ` | .DBG4T 0x0060,0x01a6,0x0000,0x4000
0182 00db 01d4 | | .DBG4T 0x00db,0x01d4,0x0003,0x0000
0186 00f3 01d9 | | .DBG4T 0x00f3,0x01d9,0x0003,0x0000
018a ; --------------------------------------------------------------------------------------
018a ; Debug chain
018a ; --------------------------------------------------------------------------------------
018a 0006 0000 | | .DBGLEN 0x0006,0x0000
018c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0014,0x0016,0x0018,0x001a
0192 ; --------------------------------------------------------------------------------------
0192 ; Debug chain
0192 ; --------------------------------------------------------------------------------------
0192 0005 0000 | | .DBGLEN 0x0005,0x0000
0194 001b 001d | | .DBGLNO 0x001b,0x001d,0x001f,0x0021,0x0023
0199 ; --------------------------------------------------------------------------------------
0199 ; Debug chain
0199 ; --------------------------------------------------------------------------------------
0199 0000 0001 | | .DBGLEN 0x0000,0x0001
019b 003b | ; | .DBGLNO 0x003b
019c ; --------------------------------------------------------------------------------------
019c ; Debug chain
019c ; --------------------------------------------------------------------------------------
019c 0000 0001 | | .DBGLEN 0x0000,0x0001
019e 004b | K | .DBGLNO 0x004b
019f ; --------------------------------------------------------------------------------------
019f ; Debug chain
019f ; --------------------------------------------------------------------------------------
019f 0000 0001 | | .DBGLEN 0x0000,0x0001
01a1 0053 | S | .DBGLNO 0x0053
01a2 ; --------------------------------------------------------------------------------------
01a2 ; Debug chain
01a2 ; --------------------------------------------------------------------------------------
01a2 0002 0000 | | .DBGLEN 0x0002,0x0000
01a4 005b 005d | [ ]| .DBGLNO 0x005b,0x005d
01a6 ; --------------------------------------------------------------------------------------
01a6 ; Debug chain
01a6 ; --------------------------------------------------------------------------------------
01a6 0006 0013 | | .DBGLEN 0x0006,0x0013
01a8 0060 0062 | ` b| .DBGLNO 0x0060,0x0062,0x0063,0x0067,0x0068,0x006a,0x0076,0x007a,0x007d,0x007f,0x0083,0x008d,0x0090,0x0096,0x009e,0x00a3,0x00a5,0x00a9,0x00ae,0x00b2,0x00c0,0x00c4,0x00c8,0x00ca,0x00cd
01c1 0001 0002 | | .XXX[0x13]
01c3 0003 0004 | |
01c5 0005 0007 | |
01c7 0008 0009 | |
01c9 000a 000d | |
01cb 000e 000f | |
01cd 0010 0011 | |
01cf 0012 0013 | |
01d1 0014 0015 | |
01d3 0006 | |
01d4 ; --------------------------------------------------------------------------------------
01d4 ; Debug chain
01d4 ; --------------------------------------------------------------------------------------
01d4 0000 0003 | | .DBGLEN 0x0000,0x0003
01d6 00db 00df | | .DBGLNO 0x00db,0x00df,0x00e3
01d9 ; --------------------------------------------------------------------------------------
01d9 ; Debug chain
01d9 ; --------------------------------------------------------------------------------------
01d9 0000 0002 | | .DBGLEN 0x0000,0x0002
01db 00f3 00fb | | .DBGLNO 0x00f3,0x00fb
01dd 0000 0000 | | .BLANK 0000[0x23]