|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_440cbd
└─⟦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 0198 | | .CONST 0x0198 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0036 | 6 | .CONST 0x0036 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 0093 007b | {| push_full_address INIT_0078
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 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0018 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
001a 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
001c 00bf | | Action Accept_Activation
001d 00e3 | | Load_Encached Natural_Cache
001e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0020 00c7 | | Action Elaborate_Subprogram
0021 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0022 00c7 | | Action Elaborate_Subprogram
0023 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0024 00c7 | | Action Elaborate_Subprogram
0025 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0026 00c7 | | Action Elaborate_Subprogram
0027 e002 | | Load 0x0,0x2
0028 e003 | | Load 0x0,0x3
0029 e004 | | Load 0x0,0x4
002a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
002b e005 | | Load 0x0,0x5
002c e006 | | Load 0x0,0x6
002d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002e e007 | | Load 0x0,0x7
002f a008 | | Store_Unchecked 0x0,0x8
0030 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0031 480a |H | Short_Literal 0xa
0032 e20d | | Load 0x1,0xd
0033 020e | | Execute Module,Augment_Imports
0034 e20d | | Load 0x1,0xd
0035 020d | | Execute Module,Elaborate
0036 BODY_0008:
0036 00bc | | Action Signal_Activated
0037 00bb | | Action Signal_Completion
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003d | = | .CONST 0x003d ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0002 | | .CONST 0x0002 ; Number of locals
003b INIT_0038:
003b e009 | | Load 0x0,0x9
003c 0007 | | Action Break_Optional
003d BODY_0038:
003d 4807 |H | Short_Literal 0x7
003e 800a | | Call 0x0,0xa
003f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0040 00d8 | | Load_Top At_Offset_0
0041 00d8 | | Load_Top At_Offset_0
0042 e002 | | Load 0x0,0x2
0043 0260 | ` | Execute Discrete,In_Type
0044 7001 |p | Jump_Nonzero 0x46
0045 0801 | | Execute_Immediate Raise,0x1
0046 a5fe | | Store_Unchecked 0x2,-0x2
0047 480a |H | Short_Literal 0xa
0048 800a | | Call 0x0,0xa
0049 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
004a 00d8 | | Load_Top At_Offset_0
004b e5ff | | Load 0x2,-0x1
004c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004d 4809 |H | Short_Literal 0x9
004e 800a | | Call 0x0,0xa
004f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0050 00d8 | | Load_Top At_Offset_0
0051 e5ff | | Load 0x2,-0x1
0052 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0053 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0054 0000 0000 | | .BLANK 0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00db | | Load_Top At_Offset_3
005c 00db | | Load_Top At_Offset_3
005d 800b | | Call 0x0,0xb
005e 00d1 | | Pop_Control Pop_Count_1
005f c5fe | | Store 0x2,-0x2
0060 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0061 0000 0000 | | .BLANK 0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4800 |H | Short_Literal 0x0
006c 00db | | Load_Top At_Offset_3
006d 170d | | Execute Task,Entry_Call,Field_Number 0xd
006e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006f 0000 | | .XXX[0x1]
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 4800 |H | Short_Literal 0x0
0074 00db | | Load_Top At_Offset_3
0075 170e | | Execute Task,Entry_Call,Field_Number 0xe
0076 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0077 0000 | | .XXX[0x1]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 009c | | .CONST 0x009c ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0016 | | .CONST 0x0016 ; Number of locals
007b INIT_0078:
007b 4800 |H | Short_Literal 0x0
007c 02cb | | Declare_Variable Entry
007d 4800 |H | Short_Literal 0x0
007e 02cb | | Declare_Variable Entry
007f 00bf | | Action Accept_Activation
0080 e001 | | Load 0x0,0x1
0081 0007 | | Action Break_Optional
0082 00e8 | | Load_Encached Character_Cache
0083 e002 | | Load 0x0,0x2
0084 0322 | " | Declare_Variable Record
0085 e002 | | Load 0x0,0x2
0086 0322 | " | Declare_Variable Record
0087 480a |H | Short_Literal 0xa
0088 00d9 | | Load_Top At_Offset_1
0089 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008a 480a |H | Short_Literal 0xa
008b 00d9 | | Load_Top At_Offset_1
008c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
008d 00e3 | | Load_Encached Natural_Cache
008e 00e1 | | Load_Encached Boolean_Cache
008f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0090 00e1 | | Load_Encached Boolean_Cache
0091 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0092 480e 4822 |H H"| Declare_Variable Select 0x000, 0x002,
0094 480d 4825 |H H%| [0x000]: 0x000 = 0x0000,
0096 4800 4800 |H H | [0x00d]: 0x025 = 0x0128,
0098 4800 4802 |H H | [0x00e]: 0x022 = 0x0110
009a 02cf | |
009b 00bc | | Action Signal_Activated
009c BODY_0078:
009c 0092 0136 | 6| Action Push_String_Extended,0x136 ; "Tache Asteroide en route ..."
009e e003 | | Load 0x0,0x3
009f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a0 e004 | | Load 0x0,0x4
00a1 0a01 | | Execute_Immediate Plus,0x1
00a2 c004 | | Store 0x0,0x4
00a3 e004 | | Load 0x0,0x4
00a4 a213 | | Store_Unchecked 0x1,0x13
00a5 4800 |H | Short_Literal 0x0
00a6 e005 | | Load 0x0,0x5
00a7 e006 | | Load 0x0,0x6
00a8 00ad | | QQ_Action Package,Field_Execute_Dynamic
00a9 e001 | | Load 0x0,0x1
00aa e211 | | Load 0x1,0x11
00ab 8007 | | Call 0x0,0x7
00ac 00d1 | | Pop_Control Pop_Count_1
00ad c20f | | Store 0x1,0xf
00ae 0092 0137 | 7| Action Push_String_Extended,0x137 ; "Tache Initialisee numero "
00b0 e213 | | Load 0x1,0x13
00b1 00e0 | | Load_Encached Standard_Cache
00b2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b3 01cc | | Execute Vector,Catenate
00b4 e003 | | Load 0x0,0x3
00b5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b6 00cf | | Action Mark_Auxiliary
00b7 784e |xN | Jump 0x106
00b8 e212 | | Load 0x1,0x12
00b9 e213 | | Load 0x1,0x13
00ba e211 | | Load 0x1,0x11
00bb 4803 |H | Short_Literal 0x3
00bc e005 | | Load 0x0,0x5
00bd e008 | | Load 0x0,0x8
00be 00ad | | QQ_Action Package,Field_Execute_Dynamic
00bf e212 | | Load 0x1,0x12
00c0 e002 | | Load 0x0,0x2
00c1 0322 | " | Declare_Variable Record
00c2 480a |H | Short_Literal 0xa
00c3 00d9 | | Load_Top At_Offset_1
00c4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c5 480a |H | Short_Literal 0xa
00c6 00d9 | | Load_Top At_Offset_1
00c7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00c8 017e | ~ | Execute Record,Not_Equal
00c9 6804 |h | Jump_Zero 0xce
00ca 4800 |H | Short_Literal 0x0
00cb e212 | | Load 0x1,0x12
00cc 4820 |H | Short_Literal 0x20
00cd 8009 | | Call 0x0,0x9
00ce e211 | | Load 0x1,0x11
00cf e212 | | Load 0x1,0x12
00d0 017d | } | Execute Record,Structure_Write
00d1 0092 0138 | 8| Action Push_String_Extended,0x138 ; "Attente de la tache "
00d3 e213 | | Load 0x1,0x13
00d4 00e0 | | Load_Encached Standard_Cache
00d5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d6 01cc | | Execute Vector,Catenate
00d7 e003 | | Load 0x0,0x3
00d8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d9 00d9 | | Load_Top At_Offset_1
00da 013f | ? | Execute Select,Rendezvous
00db 00d1 | | Pop_Control Pop_Count_1
00dc 6043 |`C | Indirect_Literal Discrete,0x120,{0x00000000, 0x00000ccd}
00dd 00ba | | Action Initiate_Delay
00de 00db | | Load_Top At_Offset_3
00df 0f01 | | Execute_Immediate Equal,0x1
00e0 00db | | Load_Top At_Offset_3
00e1 0f01 | | Execute_Immediate Equal,0x1
00e2 0279 | y | Execute Discrete,And
00e3 6821 |h! | Jump_Zero 0x105
00e4 0092 0139 | 9| Action Push_String_Extended,0x139 ; "ok je bouge"
00e6 e003 | | Load 0x0,0x3
00e7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e8 4800 |H | Short_Literal 0x0
00e9 e211 | | Load 0x1,0x11
00ea 482a |H* | Short_Literal 0x2a
00eb 8009 | | Call 0x0,0x9
00ec e20f | | Load 0x1,0xf
00ed e211 | | Load 0x1,0x11
00ee 800a | | Call 0x0,0xa
00ef 00d1 | | Pop_Control Pop_Count_1
00f0 c20f | | Store 0x1,0xf
00f1 0092 013a | :| Action Push_String_Extended,0x13a ; "ma pos virtuelle est calculee :"
00f3 e003 | | Load 0x0,0x3
00f4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f5 e211 | | Load 0x1,0x11
00f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f7 00e0 | | Load_Encached Standard_Cache
00f8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f9 0092 013b | ;| Action Push_String_Extended,0x13b ; " , "
00fb 01cc | | Execute Vector,Catenate
00fc e211 | | Load 0x1,0x11
00fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00fe 00e0 | | Load_Encached Standard_Cache
00ff 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0100 01cc | | Execute Vector,Catenate
0101 e003 | | Load 0x0,0x3
0102 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0103 4800 |H | Short_Literal 0x0
0104 a214 | | Store_Unchecked 0x1,0x14
0105 00c9 | | Action Pop_Auxiliary_Loop
0106 00da | | Load_Top At_Offset_2
0107 77b0 |w | Jump_Nonzero 0xb8
0108 00ce | | Action Pop_Auxiliary
0109 00bb | | Action Signal_Completion
010a 0000 0000 | | .BLANK 0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; See instruction 0x02cf at 0x92, index=0xe
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 0092 013c | <| Action Push_String_Extended,0x13c ; "je me tue"
0115 e003 | | Load 0x0,0x3
0116 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0117 4800 |H | Short_Literal 0x0
0118 e211 | | Load 0x1,0x11
0119 4820 |H | Short_Literal 0x20
011a 8009 | | Call 0x0,0x9
011b 4800 |H | Short_Literal 0x0
011c a215 | | Store_Unchecked 0x1,0x15
011d 4100 |A | End_Rendezvous 0x0
011e 0000 0000 | | .XXX[0x2]
0120 0000 0000 | | .LITERAL {0x00000000, 0x00000ccd}
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; See instruction 0x02cf at 0x92, index=0xd
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 0092 013d | =| Action Push_String_Extended,0x13d ; " OK pour pos Ordre de se deplacer accepte par"
012d e213 | | Load 0x1,0x13
012e 00e0 | | Load_Encached Standard_Cache
012f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0130 01cc | | Execute Vector,Catenate
0131 e003 | | Load 0x0,0x3
0132 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0133 4801 |H | Short_Literal 0x1
0134 a214 | | Store_Unchecked 0x1,0x14
0135 4100 |A | End_Rendezvous 0x0
0136 ; --------------------------------------------------------------------------------------
0136 ; STRING TABLE
0136 ; --------------------------------------------------------------------------------------
0136 0012 | | .STRTAB 0x0012->0x013f ; "Tache Asteroide en route ..."
0137 002c | , | .STRTAB 0x002c->0x014d ; "Tache Initialisee numero "
0138 0043 | C | .STRTAB 0x0043->0x0159 ; "Attente de la tache "
0139 0055 | U | .STRTAB 0x0055->0x0163 ; "ok je bouge"
013a 005e | ^ | .STRTAB 0x005e->0x0169 ; "ma pos virtuelle est calculee :"
013b 007b | { | .STRTAB 0x007b->0x0178 ; " , "
013c 007c | | | .STRTAB 0x007c->0x017a ; "je me tue"
013d 0083 | | .STRTAB 0x0083->0x017e ; " OK pour pos Ordre de se deplacer accepte par"
013e 00ae | | .STREND 0x00ae->0x0195
013f 5461 6368 |Tach| .STRTAB_STRINGS
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; Debug Table
0198 ; --------------------------------------------------------------------------------------
0198 0004 000a | | .DEBUG4 0x0004,0x000a,0xbc20,0x0000,0x0001,0x000a
019e 000b 01c6 | | .DBG4T 0x000b,0x01c6,0x8000,0x0000
01a2 001d 01cf | | .DBG4T 0x001d,0x01cf,0x8000,0x0000
01a6 003b 01d7 | ; | .DBG4T 0x003b,0x01d7,0x0001,0x0000
01aa 005b 01e0 | [ | .DBG4T 0x005b,0x01e0,0x0001,0x0000
01ae 006b 01e3 | k | .DBG4T 0x006b,0x01e3,0x0001,0x0000
01b2 0073 01e6 | s | .DBG4T 0x0073,0x01e6,0x0001,0x0000
01b6 007b 01e9 | { | .DBG4T 0x007b,0x01e9,0x0000,0x0000
01ba 0080 01ed | | .DBG4T 0x0080,0x01ed,0x0000,0x4000
01be 0113 0220 | | .DBG4T 0x0113,0x0220,0x0003,0x0000
01c2 012b 0225 | + %| .DBG4T 0x012b,0x0225,0x0003,0x0000
01c6 ; --------------------------------------------------------------------------------------
01c6 ; Debug chain
01c6 ; --------------------------------------------------------------------------------------
01c6 0007 0000 | | .DBGLEN 0x0007,0x0000
01c8 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0014,0x0016,0x0018,0x001a,0x001c
01cf ; --------------------------------------------------------------------------------------
01cf ; Debug chain
01cf ; --------------------------------------------------------------------------------------
01cf 0006 0000 | | .DBGLEN 0x0006,0x0000
01d1 001d 001f | | .DBGLNO 0x001d,0x001f,0x0021,0x0023,0x0025,0x0027
01d7 ; --------------------------------------------------------------------------------------
01d7 ; Debug chain
01d7 ; --------------------------------------------------------------------------------------
01d7 0001 0006 | | .DBGLEN 0x0001,0x0006
01d9 003b 003d | ; =| .DBGLNO 0x003b,0x003d,0x0040,0x0047,0x004a,0x004d,0x0050
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug chain
01e0 ; --------------------------------------------------------------------------------------
01e0 0000 0001 | | .DBGLEN 0x0000,0x0001
01e2 005b | [ | .DBGLNO 0x005b
01e3 ; --------------------------------------------------------------------------------------
01e3 ; Debug chain
01e3 ; --------------------------------------------------------------------------------------
01e3 0000 0001 | | .DBGLEN 0x0000,0x0001
01e5 006b | k | .DBGLNO 0x006b
01e6 ; --------------------------------------------------------------------------------------
01e6 ; Debug chain
01e6 ; --------------------------------------------------------------------------------------
01e6 0000 0001 | | .DBGLEN 0x0000,0x0001
01e8 0073 | s | .DBGLNO 0x0073
01e9 ; --------------------------------------------------------------------------------------
01e9 ; Debug chain
01e9 ; --------------------------------------------------------------------------------------
01e9 0002 0000 | | .DBGLEN 0x0002,0x0000
01eb 007b 007d | { }| .DBGLNO 0x007b,0x007d
01ed ; --------------------------------------------------------------------------------------
01ed ; Debug chain
01ed ; --------------------------------------------------------------------------------------
01ed 0007 0015 | | .DBGLEN 0x0007,0x0015
01ef 0080 0082 | | .DBGLNO 0x0080,0x0082,0x0083,0x0085,0x008d,0x008e,0x0090,0x009c,0x00a0,0x00a3,0x00a5,0x00a9,0x00ae,0x00b8,0x00bf,0x00ca,0x00ce,0x00d1,0x00d9,0x00dc,0x00de,0x00e4,0x00e8,0x00ec,0x00f1,0x00f5,0x0103,0x0106
020b 0001 0002 | | .XXX[0x15]
020d 0003 0004 | |
020f 0005 0006 | |
0211 0008 0009 | |
0213 000a 000b | |
0215 000c 000d | |
0217 0010 0011 | |
0219 0012 0013 | |
021b 0014 0015 | |
021d 0016 0017 | |
021f 0007 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug chain
0220 ; --------------------------------------------------------------------------------------
0220 0000 0003 | | .DBGLEN 0x0000,0x0003
0222 0113 0117 | | .DBGLNO 0x0113,0x0117,0x011b
0225 ; --------------------------------------------------------------------------------------
0225 ; Debug chain
0225 ; --------------------------------------------------------------------------------------
0225 0000 0002 | | .DBGLEN 0x0000,0x0002
0227 012b 0133 | + 3| .DBGLNO 0x012b,0x0133
0229 0000 0000 | | .BLANK 0000[0x1d7]