|
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_03f8e1
└─⟦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 0138 | 8 | .CONST 0x0138 ; 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 001c | | .CONST 0x001c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0011 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0013 00bf | | Action Accept_Activation
0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0015 00c7 | | Action Elaborate_Subprogram
0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0017 00c7 | | Action Elaborate_Subprogram
0018 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0019 00c7 | | Action Elaborate_Subprogram
001a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001b 00c7 | | Action Elaborate_Subprogram
001c BODY_0008:
001c 00bc | | Action Signal_Activated
001d 00bb | | Action Signal_Completion
001e 0000 0000 | | .XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 002c | , | .CONST 0x002c ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0004 | | .CONST 0x0004 ; Number of locals
0023 INIT_0020:
0023 e001 | | Load 0x0,0x1
0024 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0025 02ff | | Declare_Variable Variant_Record
0026 e002 | | Load 0x0,0x2
0027 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0028 02ff | | Declare_Variable Variant_Record
0029 e003 | | Load 0x0,0x3
002a 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
002b 02ff | | Declare_Variable Variant_Record
002c BODY_0020:
002c 00d8 | | Load_Top At_Offset_0
002d 00da | | Load_Top At_Offset_2
002e e402 | | Load 0x2,0x2
002f e5ff | | Load 0x2,-0x1
0030 e004 | | Load 0x0,0x4
0031 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0032 00d3 | | Pop_Control Pop_Count_3
0033 4801 |H | Short_Literal 0x1
0034 00db | | Load_Top At_Offset_3
0035 e001 | | Load 0x0,0x1
0036 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0037 4801 |H | Short_Literal 0x1
0038 00da | | Load_Top At_Offset_2
0039 e002 | | Load 0x0,0x2
003a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
003b 00d8 | | Load_Top At_Offset_0
003c e003 | | Load 0x0,0x3
003d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
003e 0092 00c8 | | Action Push_String_Extended,0xc8 ; "Rule PACK_IT : ball ("
0040 00db | | Load_Top At_Offset_3
0041 e001 | | Load 0x0,0x1
0042 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0043 e001 | | Load 0x0,0x1
0044 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0045 011c | | Execute Any,Convert_Unchecked
0046 1c01 | | Execute_Immediate Run_Utility,0x1
0047 01cc | | Execute Vector,Catenate
0048 0092 00c9 | | Action Push_String_Extended,0xc9 ; "/"
004a 01cc | | Execute Vector,Catenate
004b 00db | | Load_Top At_Offset_3
004c e001 | | Load 0x0,0x1
004d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
004e 00e0 | | Load_Encached Standard_Cache
004f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0050 01cc | | Execute Vector,Catenate
0051 0092 00ca | | Action Push_String_Extended,0xca ; ") in box ("
0053 01cc | | Execute Vector,Catenate
0054 00da | | Load_Top At_Offset_2
0055 e002 | | Load 0x0,0x2
0056 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0057 00e0 | | Load_Encached Standard_Cache
0058 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0059 01cc | | Execute Vector,Catenate
005a 0092 00cb | | Action Push_String_Extended,0xcb ; ")"
005c 01cc | | Execute Vector,Catenate
005d e005 | | Load 0x0,0x5
005e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
005f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0066 | f | .CONST 0x0066 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0002 | | .CONST 0x0002 ; Number of locals
0063 INIT_0060:
0063 e001 | | Load 0x0,0x1
0064 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0065 02ff | | Declare_Variable Variant_Record
0066 BODY_0060:
0066 00d8 | | Load_Top At_Offset_0
0067 e5ff | | Load 0x2,-0x1
0068 e004 | | Load 0x0,0x4
0069 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
006a 00d1 | | Pop_Control Pop_Count_1
006b 4801 |H | Short_Literal 0x1
006c 00d9 | | Load_Top At_Offset_1
006d e001 | | Load 0x0,0x1
006e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
006f 0092 00cc | | Action Push_String_Extended,0xcc ; "Rule STICKER_LACK : there are no stickers left with color "
0071 00d9 | | Load_Top At_Offset_1
0072 e001 | | Load 0x0,0x1
0073 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0074 e001 | | Load 0x0,0x1
0075 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0076 011c | | Execute Any,Convert_Unchecked
0077 1c01 | | Execute_Immediate Run_Utility,0x1
0078 01cc | | Execute Vector,Catenate
0079 e005 | | Load 0x0,0x5
007a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
007b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
007c 0000 0000 | | .BLANK 0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0086 | | .CONST 0x0086 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 e001 | | Load 0x0,0x1
0084 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0085 02ff | | Declare_Variable Variant_Record
0086 BODY_0080:
0086 00d8 | | Load_Top At_Offset_0
0087 e5ff | | Load 0x2,-0x1
0088 e004 | | Load 0x0,0x4
0089 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
008a 00d1 | | Pop_Control Pop_Count_1
008b 4801 |H | Short_Literal 0x1
008c 00d9 | | Load_Top At_Offset_1
008d e001 | | Load 0x0,0x1
008e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
008f 0092 00cd | | Action Push_String_Extended,0xcd ; "Rule BOX_LACK : there are no boxes left with size greater then "
0091 00d9 | | Load_Top At_Offset_1
0092 e001 | | Load 0x0,0x1
0093 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0094 00e0 | | Load_Encached Standard_Cache
0095 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0096 01cc | | Execute Vector,Catenate
0097 e005 | | Load 0x0,0x5
0098 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0099 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009a 0000 0000 | | .BLANK 0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a6 | | .CONST 0x00a6 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0002 | | .CONST 0x0002 ; Number of locals
00a3 INIT_00a0:
00a3 e001 | | Load 0x0,0x1
00a4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00a5 02ff | | Declare_Variable Variant_Record
00a6 BODY_00a0:
00a6 00d8 | | Load_Top At_Offset_0
00a7 e5ff | | Load 0x2,-0x1
00a8 e004 | | Load 0x0,0x4
00a9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00aa 00d1 | | Pop_Control Pop_Count_1
00ab 4801 |H | Short_Literal 0x1
00ac 00d9 | | Load_Top At_Offset_1
00ad e001 | | Load 0x0,0x1
00ae 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00af 0092 00ce | | Action Push_String_Extended,0xce ; "Rule TOO_BIG : the "
00b1 00d9 | | Load_Top At_Offset_1
00b2 e001 | | Load 0x0,0x1
00b3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b4 e001 | | Load 0x0,0x1
00b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b6 011c | | Execute Any,Convert_Unchecked
00b7 1c01 | | Execute_Immediate Run_Utility,0x1
00b8 01cc | | Execute Vector,Catenate
00b9 0092 00cf | | Action Push_String_Extended,0xcf ; " ball with size "
00bb 01cc | | Execute Vector,Catenate
00bc 00d9 | | Load_Top At_Offset_1
00bd e001 | | Load 0x0,0x1
00be 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00bf 00e0 | | Load_Encached Standard_Cache
00c0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c1 01cc | | Execute Vector,Catenate
00c2 0092 00d0 | | Action Push_String_Extended,0xd0 ; " is too BIG"
00c4 01cc | | Execute Vector,Catenate
00c5 e005 | | Load 0x0,0x5
00c6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c8 ; --------------------------------------------------------------------------------------
00c8 ; STRING TABLE
00c8 ; --------------------------------------------------------------------------------------
00c8 0014 | | .STRTAB 0x0014->0x00d2 ; "Rule PACK_IT : ball ("
00c9 0027 | ' | .STRTAB 0x0027->0x00dc ; "/"
00ca 0026 | & | .STRTAB 0x0026->0x00dd ; ") in box ("
00cb 002e | . | .STRTAB 0x002e->0x00e2 ; ")"
00cc 002d | - | .STRTAB 0x002d->0x00e2 ; "Rule STICKER_LACK : there are no stickers left with color "
00cd 0065 | e | .STRTAB 0x0065->0x00ff ; "Rule BOX_LACK : there are no boxes left with size greater then "
00ce 00a2 | | .STRTAB 0x00a2->0x011f ; "Rule TOO_BIG : the "
00cf 00b3 | | .STRTAB 0x00b3->0x0128 ; " ball with size "
00d0 00c1 | | .STRTAB 0x00c1->0x0130 ; " is too BIG"
00d1 00ca | | .STREND 0x00ca->0x0136
00d2 5275 6c65 |Rule| .STRTAB_STRINGS
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug Table
0138 ; --------------------------------------------------------------------------------------
0138 0004 0001 | | .DEBUG4 0x0004,0x0001,0xe4d4,0x0000,0x0001,0x0006
013e 000b 0156 | V| .DBG4T 0x000b,0x0156,0x8000,0x0000
0142 0014 015c | \| .DBG4T 0x0014,0x015c,0x8000,0x0000
0146 0023 0162 | # b| .DBG4T 0x0023,0x0162,0x0001,0x0000
014a 0063 016c | c l| .DBG4T 0x0063,0x016c,0x0001,0x0000
014e 0083 0172 | r| .DBG4T 0x0083,0x0172,0x0001,0x0000
0152 00a3 0178 | x| .DBG4T 0x00a3,0x0178,0x0001,0x0000
0156 ; --------------------------------------------------------------------------------------
0156 ; Debug chain
0156 ; --------------------------------------------------------------------------------------
0156 0004 0000 | | .DBGLEN 0x0004,0x0000
0158 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011
015c ; --------------------------------------------------------------------------------------
015c ; Debug chain
015c ; --------------------------------------------------------------------------------------
015c 0004 0000 | | .DBGLEN 0x0004,0x0000
015e 0014 0016 | | .DBGLNO 0x0014,0x0016,0x0018,0x001a
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug chain
0162 ; --------------------------------------------------------------------------------------
0162 0003 0005 | | .DBGLEN 0x0003,0x0005
0164 0023 0026 | # &| .DBGLNO 0x0023,0x0026,0x0029,0x002c,0x0033,0x0037,0x003b,0x003e
016c ; --------------------------------------------------------------------------------------
016c ; Debug chain
016c ; --------------------------------------------------------------------------------------
016c 0001 0003 | | .DBGLEN 0x0001,0x0003
016e 0063 0066 | c f| .DBGLNO 0x0063,0x0066,0x006b,0x006f
0172 ; --------------------------------------------------------------------------------------
0172 ; Debug chain
0172 ; --------------------------------------------------------------------------------------
0172 0001 0003 | | .DBGLEN 0x0001,0x0003
0174 0083 0086 | | .DBGLNO 0x0083,0x0086,0x008b,0x008f
0178 ; --------------------------------------------------------------------------------------
0178 ; Debug chain
0178 ; --------------------------------------------------------------------------------------
0178 0001 0003 | | .DBGLEN 0x0001,0x0003
017a 00a3 00a6 | | .DBGLNO 0x00a3,0x00a6,0x00ab,0x00af
017e 0000 0000 | | .BLANK 0000[0x82]