|
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_04fcfe
└─⟦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 0100 | | .CONST 0x0100 ; 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 0045 | E | .CONST 0x0045 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 029b 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Unelaborated
0010 4800 |H | Short_Literal 0x0
0011 0093 008b | | push_full_address INIT_0088
0013 00f5 | | Load_Encached Unused21
0014 037d | } | Declare_Type Task,Defined
0015 036f | o | Declare_Variable Task
0016 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call
0018 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call
001a 0093 0000 | | push_full_address 0x0
001c 6033 |`3 | Indirect_Literal Discrete,0x50,{0x80000000, 0x00010000}
001d 0273 | s | Execute Discrete,Plus
001e e002 | | Load 0x0,0x2
001f 0273 | s | Execute Discrete,Plus
0020 e003 | | Load 0x0,0x3
0021 0273 | s | Execute Discrete,Plus
0022 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0023 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0024 e004 | | Load 0x0,0x4
0025 0387 | | Declare_Variable Package
0026 00d8 | | Load_Top At_Offset_0
0027 020f | | Execute Module,Activate
0028 4804 |H | Short_Literal 0x4
0029 e001 | | Load 0x0,0x1
002a 01d7 | | Execute Vector,Field_Read
002b 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
002c 4802 |H | Short_Literal 0x2
002d e001 | | Load 0x0,0x1
002e 01d7 | | Execute Vector,Field_Read
002f 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0030 e005 | | Load 0x0,0x5
0031 a006 | | Store_Unchecked 0x0,0x6
0032 a007 | | Store_Unchecked 0x0,0x7
0033 a008 | | Store_Unchecked 0x0,0x8
0034 e009 | | Load 0x0,0x9
0035 e00a | | Load 0x0,0xa
0036 e212 | | Load 0x1,0x12
0037 0095 | | Execute Package,Field_Reference_Dynamic
0038 a00b | | Store_Unchecked 0x0,0xb
0039 a00c | | Store_Unchecked 0x0,0xc
003a a00d | | Store_Unchecked 0x0,0xd
003b a00e | | Store_Unchecked 0x0,0xe
003c e00f | | Load 0x0,0xf
003d 480b |H | Short_Literal 0xb
003e e20f | | Load 0x1,0xf
003f 020e | | Execute Module,Augment_Imports
0040 0007 | | Action Break_Optional
0041 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0042 00c7 | | Action Elaborate_Subprogram
0043 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0044 00c7 | | Action Elaborate_Subprogram
0045 BODY_0008:
0045 00be | | Action Activate_Tasks
0046 00bc | | Action Signal_Activated
0047 00bb | | Action Signal_Completion
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 e20f | | Load 0x1,0xf
004d 170d | | Execute Task,Entry_Call,Field_Number 0xd
004e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
004f 0000 | | .XXX[0x1]
0050 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 0092 00e0 | | Action Push_String_Extended,0xe0 ; "--- processing message => "
005d 00db | | Load_Top At_Offset_3
005e 800d | | Call 0x0,0xd
005f 01cc | | Execute Vector,Catenate
0060 e00f | | Load 0x0,0xf
0061 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0062 00da | | Load_Top At_Offset_2
0063 8010 | | Call 0x0,0x10
0064 4609 |F | Jump_Case 0xa
0065 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0
0066 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1
0067 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2
0068 780a |x | Jump 0x73 ; case 0x3
0069 7806 |x | Jump 0x70 ; case 0x4
006a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5
006b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6
006c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7
006d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8
006e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9
006f 4502 |E | .XXX[0x1]
0070 00da | | Load_Top At_Offset_2
0071 8214 | | Call 0x1,0x14
0072 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0073 00da | | Load_Top At_Offset_2
0074 8213 | | Call 0x1,0x13
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 4800 |H | Short_Literal 0x0
007c e20f | | Load 0x1,0xf
007d 170e | | Execute Task,Entry_Call,Field_Number 0xe
007e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007f 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
0084 e011 | | Load 0x0,0x11
0085 0119 | | Execute Any,Check_In_Formal_Type
0086 820e | | Call 0x1,0xe
0087 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 009a | | .CONST 0x009a ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0012 | | .CONST 0x0012 ; Number of locals
008b INIT_0088:
008b 4800 |H | Short_Literal 0x0
008c 02cb | | Declare_Variable Entry
008d 4800 |H | Short_Literal 0x0
008e 02cb | | Declare_Variable Entry
008f 00bf | | Action Accept_Activation
0090 e001 | | Load 0x0,0x1
0091 480d |H | Short_Literal 0xd
0092 0299 00ab | | Declare_Subprogram INIT_00a8,For_Accept
0094 480e |H | Short_Literal 0xe
0095 0299 00b3 | | Declare_Subprogram INIT_00b0,For_Accept
0097 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
0099 00bc | | Action Signal_Activated
009a BODY_0088:
009a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
009b 1d0d | | Execute_Immediate Reference_Lex_1,0xd
009c 0137 | 7 | Execute Entry,Rendezvous
009d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
009e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
009f 0137 | 7 | Execute Entry,Rendezvous
00a0 8212 | | Call 0x1,0x12
00a1 00cf | | Action Mark_Auxiliary
00a2 6009 |` | Indirect_Literal Discrete,0xac,{0x00007fff, 0xffffffff}
00a3 00ba | | Action Initiate_Delay
00a4 00c9 | | Action Pop_Auxiliary_Loop
00a5 7ffc | | Jump 0xa2
00a6 0000 0000 | | .XXX[0x2]
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 4100 |A | End_Rendezvous 0x0
00ac 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4100 |A | End_Rendezvous 0x0
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 00d3 | | .CONST 0x00d3 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e001 | | Load 0x0,0x1
00bc 601f |` | Indirect_Literal Discrete,0xdc,{0x00000000, 0x00000ccd}
00bd 480a |H | Short_Literal 0xa
00be 8002 | | Call 0x0,0x2
00bf 8003 | | Call 0x0,0x3
00c0 8002 | | Call 0x0,0x2
00c1 8004 | | Call 0x0,0x4
00c2 e005 | | Load 0x0,0x5
00c3 0092 00e1 | | Action Push_String_Extended,0xe1 ; "string"
00c5 0092 00e2 | | Action Push_String_Extended,0xe2 ; "date"
00c7 0092 00e2 | | Action Push_String_Extended,0xe2 ; "date"
00c9 8006 | | Call 0x0,0x6
00ca 8007 | | Call 0x0,0x7
00cb 8002 | | Call 0x0,0x2
00cc 8007 | | Call 0x0,0x7
00cd 4806 |H | Short_Literal 0x6
00ce 8008 | | Call 0x0,0x8
00cf 8009 | | Call 0x0,0x9
00d0 800a | | Call 0x0,0xa
00d1 c20f | | Store 0x1,0xf
00d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d3 TRAP_00b8:
00d3 0007 | | Action Break_Optional
00d4 0092 00e3 | | Action Push_String_Extended,0xe3 ; "ca a foire"
00d6 e00b | | Load 0x0,0xb
00d7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d9 0000 0000 | | .XXX[0x3]
00db 0000 | |
00dc 0000 0000 | | .LITERAL {0x00000000, 0x00000ccd}
00e0 ; --------------------------------------------------------------------------------------
00e0 ; STRING TABLE
00e0 ; --------------------------------------------------------------------------------------
00e0 000a | | .STRTAB 0x000a->0x00e5 ; "--- processing message => "
00e1 0022 | " | .STRTAB 0x0022->0x00f2 ; "string"
00e2 0026 | & | .STRTAB 0x0026->0x00f5 ; "date"
00e3 0028 | ( | .STRTAB 0x0028->0x00f7 ; "ca a foire"
00e4 0030 | 0 | .STREND 0x0030->0x00fc
00e5 2d2d 2d20 |--- | .STRTAB_STRINGS
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug Table
0100 ; --------------------------------------------------------------------------------------
0100 0004 0009 | | .DEBUG4 0x0004,0x0009,0x916b,0x0000,0x0001,0x000b
0106 000b 0132 | 2| .DBG4T 0x000b,0x0132,0x8000,0x0000
010a 000e 0135 | 5| .DBG4T 0x000e,0x0135,0x8000,0x0000
010e 004b 013f | K ?| .DBG4T 0x004b,0x013f,0x0001,0x0000
0112 005b 0142 | [ B| .DBG4T 0x005b,0x0142,0x0001,0x4000
0116 007b 0000 | { | .DBG4T 0x007b,0x0000,0x000b,0x0000
011a 0083 0000 | | .DBG4T 0x0083,0x0000,0x000b,0x0000
011e 008b 014c | L| .DBG4T 0x008b,0x014c,0x0000,0x0000
0122 0090 0150 | P| .DBG4T 0x0090,0x0150,0x0000,0x4000
0126 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x0003,0x0000
012a 00b3 0000 | | .DBG4T 0x00b3,0x0000,0x0003,0x0000
012e 00bb 015b | [| .DBG4T 0x00bb,0x015b,0x0004,0x0000
0132 ; --------------------------------------------------------------------------------------
0132 ; Debug chain
0132 ; --------------------------------------------------------------------------------------
0132 0001 0000 | | .DBGLEN 0x0001,0x0000
0134 000b | | .DBGLNO 0x000b
0135 ; --------------------------------------------------------------------------------------
0135 ; Debug chain
0135 ; --------------------------------------------------------------------------------------
0135 0008 0000 | | .DBGLEN 0x0008,0x0000
0137 000e 0010 | | .DBGLNO 0x000e,0x0010,0x0016,0x0028,0x002c,0x0030,0x0041,0x0043
013f ; --------------------------------------------------------------------------------------
013f ; Debug chain
013f ; --------------------------------------------------------------------------------------
013f 0000 0001 | | .DBGLEN 0x0000,0x0001
0141 004b | K | .DBGLNO 0x004b
0142 ; --------------------------------------------------------------------------------------
0142 ; Debug chain
0142 ; --------------------------------------------------------------------------------------
0142 0000 0004 | | .DBGLEN 0x0000,0x0004
0144 005b 0062 | [ b| .DBGLNO 0x005b,0x0062,0x0070,0x0073
0148 0001 0002 | | .XXX[0x4]
014a 0004 0003 | |
014c ; --------------------------------------------------------------------------------------
014c ; Debug chain
014c ; --------------------------------------------------------------------------------------
014c 0002 0000 | | .DBGLEN 0x0002,0x0000
014e 008b 008d | | .DBGLNO 0x008b,0x008d
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug chain
0150 ; --------------------------------------------------------------------------------------
0150 0001 0004 | | .DBGLEN 0x0001,0x0004
0152 0090 009a | | .DBGLNO 0x0090,0x009a,0x009d,0x00a0,0x00a2
0157 0001 0002 | | .XXX[0x4]
0159 0003 0005 | |
015b ; --------------------------------------------------------------------------------------
015b ; Debug chain
015b ; --------------------------------------------------------------------------------------
015b 0000 0002 | | .DBGLEN 0x0000,0x0002
015d 00bb 00d4 | | .DBGLNO 0x00bb,0x00d4
015f 0000 0000 | | .BLANK 0000[0xa1]