|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_103ce1
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0150 | P | .CONST 0x0150 ; 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 0028 | ( | .CONST 0x0028 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
0015 c211 | | Store 0x1,0x11
0016 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0018 c212 | | Store 0x1,0x12
0019 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
001b c213 | | Store 0x1,0x13
001c 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
001e c214 | | Store 0x1,0x14
001f 00bf | | Action Accept_Activation
0020 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0021 00c7 | | Action Elaborate_Subprogram
0022 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0023 00c7 | | Action Elaborate_Subprogram
0024 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0025 00c7 | | Action Elaborate_Subprogram
0026 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0027 00c7 | | Action Elaborate_Subprogram
0028 BODY_0008:
0028 00bc | | Action Signal_Activated
0029 00bb | | Action Signal_Completion
002a 0000 0000 | | .BLANK 0000[0x6]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0042 | B | .CONST 0x0042 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0004 | | .CONST 0x0004 ; Number of locals
0033 INIT_0030:
0033 e001 | | Load 0x0,0x1
0034 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0035 02ff | | Declare_Variable Variant_Record
0036 00d8 | | Load_Top At_Offset_0
0037 1c00 | | Execute_Immediate Run_Utility,0x0
0038 e002 | | Load 0x0,0x2
0039 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
003a 02ff | | Declare_Variable Variant_Record
003b 00d8 | | Load_Top At_Offset_0
003c 1c00 | | Execute_Immediate Run_Utility,0x0
003d e003 | | Load 0x0,0x3
003e 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
003f 02ff | | Declare_Variable Variant_Record
0040 00d8 | | Load_Top At_Offset_0
0041 1c00 | | Execute_Immediate Run_Utility,0x0
0042 BODY_0030:
0042 00d8 | | Load_Top At_Offset_0
0043 00da | | Load_Top At_Offset_2
0044 e402 | | Load 0x2,0x2
0045 e5ff | | Load 0x2,-0x1
0046 e004 | | Load 0x0,0x4
0047 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0048 00d3 | | Pop_Control Pop_Count_3
0049 4801 |H | Short_Literal 0x1
004a 00db | | Load_Top At_Offset_3
004b e001 | | Load 0x0,0x1
004c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
004d 4801 |H | Short_Literal 0x1
004e 00da | | Load_Top At_Offset_2
004f e002 | | Load 0x0,0x2
0050 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0051 00d8 | | Load_Top At_Offset_0
0052 e003 | | Load 0x0,0x3
0053 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0054 0092 00e2 | | Action Push_String_Extended,0xe2 ; "Rule PACK_IT : ball ("
0056 00db | | Load_Top At_Offset_3
0057 e001 | | Load 0x0,0x1
0058 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0059 e001 | | Load 0x0,0x1
005a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005b 011c | | Execute Any,Convert_Unchecked
005c 1c01 | | Execute_Immediate Run_Utility,0x1
005d 01cc | | Execute Vector,Catenate
005e 0092 00e3 | | Action Push_String_Extended,0xe3 ; "/"
0060 01cc | | Execute Vector,Catenate
0061 00db | | Load_Top At_Offset_3
0062 e001 | | Load 0x0,0x1
0063 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0064 00e0 | | Load_Encached Standard_Cache
0065 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0066 01cc | | Execute Vector,Catenate
0067 0092 00e4 | | Action Push_String_Extended,0xe4 ; ") in box ("
0069 01cc | | Execute Vector,Catenate
006a 00da | | Load_Top At_Offset_2
006b e002 | | Load 0x0,0x2
006c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
006d 00e0 | | Load_Encached Standard_Cache
006e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
006f 01cc | | Execute Vector,Catenate
0070 0092 00e5 | | Action Push_String_Extended,0xe5 ; ")"
0072 01cc | | Execute Vector,Catenate
0073 e005 | | Load 0x0,0x5
0074 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0075 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0080 | | .CONST 0x0080 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0002 | | .CONST 0x0002 ; Number of locals
007b INIT_0078:
007b e001 | | Load 0x0,0x1
007c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
007d 02ff | | Declare_Variable Variant_Record
007e 00d8 | | Load_Top At_Offset_0
007f 1c00 | | Execute_Immediate Run_Utility,0x0
0080 BODY_0078:
0080 00d8 | | Load_Top At_Offset_0
0081 e5ff | | Load 0x2,-0x1
0082 e004 | | Load 0x0,0x4
0083 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0084 00d1 | | Pop_Control Pop_Count_1
0085 4801 |H | Short_Literal 0x1
0086 00d9 | | Load_Top At_Offset_1
0087 e001 | | Load 0x0,0x1
0088 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0089 0092 00e6 | | Action Push_String_Extended,0xe6 ; "Rule STICKER_LACK : there are no stickers left with color "
008b 00d9 | | Load_Top At_Offset_1
008c e001 | | Load 0x0,0x1
008d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
008e e001 | | Load 0x0,0x1
008f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0090 011c | | Execute Any,Convert_Unchecked
0091 1c01 | | Execute_Immediate Run_Utility,0x1
0092 01cc | | Execute Vector,Catenate
0093 e005 | | Load 0x0,0x5
0094 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0095 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a0 | | .CONST 0x00a0 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b e001 | | Load 0x0,0x1
009c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
009d 02ff | | Declare_Variable Variant_Record
009e 00d8 | | Load_Top At_Offset_0
009f 1c00 | | Execute_Immediate Run_Utility,0x0
00a0 BODY_0098:
00a0 00d8 | | Load_Top At_Offset_0
00a1 e5ff | | Load 0x2,-0x1
00a2 e004 | | Load 0x0,0x4
00a3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00a4 00d1 | | Pop_Control Pop_Count_1
00a5 4801 |H | Short_Literal 0x1
00a6 00d9 | | Load_Top At_Offset_1
00a7 e001 | | Load 0x0,0x1
00a8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a9 0092 00e7 | | Action Push_String_Extended,0xe7 ; "Rule BOX_LACK : there are no boxes left with size greater then "
00ab 00d9 | | Load_Top At_Offset_1
00ac e001 | | Load 0x0,0x1
00ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ae 00e0 | | Load_Encached Standard_Cache
00af 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b0 01cc | | Execute Vector,Catenate
00b1 e005 | | Load 0x0,0x5
00b2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c0 | | .CONST 0x00c0 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb e001 | | Load 0x0,0x1
00bc 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00bd 02ff | | Declare_Variable Variant_Record
00be 00d8 | | Load_Top At_Offset_0
00bf 1c00 | | Execute_Immediate Run_Utility,0x0
00c0 BODY_00b8:
00c0 00d8 | | Load_Top At_Offset_0
00c1 e5ff | | Load 0x2,-0x1
00c2 e004 | | Load 0x0,0x4
00c3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00c4 00d1 | | Pop_Control Pop_Count_1
00c5 4801 |H | Short_Literal 0x1
00c6 00d9 | | Load_Top At_Offset_1
00c7 e001 | | Load 0x0,0x1
00c8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c9 0092 00e8 | | Action Push_String_Extended,0xe8 ; "Rule TOO_BIG : the "
00cb 00d9 | | Load_Top At_Offset_1
00cc e001 | | Load 0x0,0x1
00cd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ce e001 | | Load 0x0,0x1
00cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d0 011c | | Execute Any,Convert_Unchecked
00d1 1c01 | | Execute_Immediate Run_Utility,0x1
00d2 01cc | | Execute Vector,Catenate
00d3 0092 00e9 | | Action Push_String_Extended,0xe9 ; " ball with size "
00d5 01cc | | Execute Vector,Catenate
00d6 00d9 | | Load_Top At_Offset_1
00d7 e001 | | Load 0x0,0x1
00d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d9 00e0 | | Load_Encached Standard_Cache
00da 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00db 01cc | | Execute Vector,Catenate
00dc 0092 00ea | | Action Push_String_Extended,0xea ; " is too BIG"
00de 01cc | | Execute Vector,Catenate
00df e005 | | Load 0x0,0x5
00e0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e2 ; --------------------------------------------------------------------------------------
00e2 ; STRING TABLE
00e2 ; --------------------------------------------------------------------------------------
00e2 0014 | | .STRTAB 0x0014->0x00ec ; "Rule PACK_IT : ball ("
00e3 0027 | ' | .STRTAB 0x0027->0x00f6 ; "/"
00e4 0026 | & | .STRTAB 0x0026->0x00f7 ; ") in box ("
00e5 002e | . | .STRTAB 0x002e->0x00fc ; ")"
00e6 002d | - | .STRTAB 0x002d->0x00fc ; "Rule STICKER_LACK : there are no stickers left with color "
00e7 0065 | e | .STRTAB 0x0065->0x0119 ; "Rule BOX_LACK : there are no boxes left with size greater then "
00e8 00a2 | | .STRTAB 0x00a2->0x0139 ; "Rule TOO_BIG : the "
00e9 00b3 | | .STRTAB 0x00b3->0x0142 ; " ball with size "
00ea 00c1 | | .STRTAB 0x00c1->0x014a ; " is too BIG"
00eb 00ca | | .STREND 0x00ca->0x0150
00ec 5275 6c65 |Rule| .STRTAB_STRINGS
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug Table
0150 ; --------------------------------------------------------------------------------------
0150 0004 0001 | | .DEBUG4 0x0004,0x0001,0xe588,0x0000,0x0001,0x0006
0156 000b 016e | n| .DBG4T 0x000b,0x016e,0x8000,0x0000
015a 0020 0174 | t| .DBG4T 0x0020,0x0174,0x8000,0x0000
015e 0033 017a | 3 z| .DBG4T 0x0033,0x017a,0x0001,0x0000
0162 007b 0184 | { | .DBG4T 0x007b,0x0184,0x0001,0x0000
0166 009b 018a | | .DBG4T 0x009b,0x018a,0x0001,0x0000
016a 00bb 0190 | | .DBG4T 0x00bb,0x0190,0x0001,0x0000
016e ; --------------------------------------------------------------------------------------
016e ; Debug chain
016e ; --------------------------------------------------------------------------------------
016e 0004 0000 | | .DBGLEN 0x0004,0x0000
0170 0013 0016 | | .DBGLNO 0x0013,0x0016,0x0019,0x001c
0174 ; --------------------------------------------------------------------------------------
0174 ; Debug chain
0174 ; --------------------------------------------------------------------------------------
0174 0004 0000 | | .DBGLEN 0x0004,0x0000
0176 0020 0022 | "| .DBGLNO 0x0020,0x0022,0x0024,0x0026
017a ; --------------------------------------------------------------------------------------
017a ; Debug chain
017a ; --------------------------------------------------------------------------------------
017a 0003 0005 | | .DBGLEN 0x0003,0x0005
017c 0033 0038 | 3 8| .DBGLNO 0x0033,0x0038,0x003d,0x0042,0x0049,0x004d,0x0051,0x0054
0184 ; --------------------------------------------------------------------------------------
0184 ; Debug chain
0184 ; --------------------------------------------------------------------------------------
0184 0001 0003 | | .DBGLEN 0x0001,0x0003
0186 007b 0080 | { | .DBGLNO 0x007b,0x0080,0x0085,0x0089
018a ; --------------------------------------------------------------------------------------
018a ; Debug chain
018a ; --------------------------------------------------------------------------------------
018a 0001 0003 | | .DBGLEN 0x0001,0x0003
018c 009b 00a0 | | .DBGLNO 0x009b,0x00a0,0x00a5,0x00a9
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug chain
0190 ; --------------------------------------------------------------------------------------
0190 0001 0003 | | .DBGLEN 0x0001,0x0003
0192 00bb 00c0 | | .DBGLNO 0x00bb,0x00c0,0x00c5,0x00c9
0196 0000 0000 | | .BLANK 0000[0x6a]