|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_57d8a8
└─⟦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 01e0 | | .CONST 0x01e0 ; 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 0021 | ! | .CONST 0x0021 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0011 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0013 00bf | | Action Accept_Activation
0014 4800 |H | Short_Literal 0x0
0015 4805 |H | Short_Literal 0x5
0016 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0018 03fd | | Declare_Type Discrete,Defined
0019 1d0d | | Execute_Immediate Reference_Lex_1,0xd
001a 00c7 | | Action Elaborate_Subprogram
001b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001c 00c7 | | Action Elaborate_Subprogram
001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001e 00c7 | | Action Elaborate_Subprogram
001f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0020 00c7 | | Action Elaborate_Subprogram
0021 BODY_0008:
0021 00bc | | Action Signal_Activated
0022 00bb | | Action Signal_Completion
0023 0000 0000 | | .BLANK 0000[0x5]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0034 | 4 | .CONST 0x0034 ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0004 | | .CONST 0x0004 ; Number of locals
002b INIT_0028:
002b e001 | | Load 0x0,0x1
002c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
002d 02ff | | Declare_Variable Variant_Record
002e e002 | | Load 0x0,0x2
002f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0030 02ff | | Declare_Variable Variant_Record
0031 e003 | | Load 0x0,0x3
0032 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0033 02ff | | Declare_Variable Variant_Record
0034 BODY_0028:
0034 00d8 | | Load_Top At_Offset_0
0035 00da | | Load_Top At_Offset_2
0036 e402 | | Load 0x2,0x2
0037 e5ff | | Load 0x2,-0x1
0038 e004 | | Load 0x0,0x4
0039 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
003a 00d3 | | Pop_Control Pop_Count_3
003b e005 | | Load 0x0,0x5
003c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003d 4802 |H | Short_Literal 0x2
003e e402 | | Load 0x2,0x2
003f e001 | | Load 0x0,0x1
0040 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0041 4801 |H | Short_Literal 0x1
0042 e006 | | Load 0x0,0x6
0043 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0044 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0045 4801 |H | Short_Literal 0x1
0046 00db | | Load_Top At_Offset_3
0047 e002 | | Load 0x0,0x2
0048 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0049 4801 |H | Short_Literal 0x1
004a e007 | | Load 0x0,0x7
004b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004d 4801 |H | Short_Literal 0x1
004e 00da | | Load_Top At_Offset_2
004f e003 | | Load 0x0,0x3
0050 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0051 0092 014b | K| Action Push_String_Extended,0x14b ; "=>Rule PACK_IT : ball ("
0053 4801 |H | Short_Literal 0x1
0054 e402 | | Load 0x2,0x2
0055 e001 | | Load 0x0,0x1
0056 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0057 e008 | | Load 0x0,0x8
0058 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0059 00d8 | | Load_Top At_Offset_0
005a e211 | | Load 0x1,0x11
005b 0260 | ` | Execute Discrete,In_Type
005c 7001 |p | Jump_Nonzero 0x5e
005d 0801 | | Execute_Immediate Raise,0x1
005e e211 | | Load 0x1,0x11
005f 011c | | Execute Any,Convert_Unchecked
0060 1c01 | | Execute_Immediate Run_Utility,0x1
0061 01cc | | Execute Vector,Catenate
0062 0092 014c | L| Action Push_String_Extended,0x14c ; "/"
0064 01cc | | Execute Vector,Catenate
0065 4800 |H | Short_Literal 0x0
0066 e402 | | Load 0x2,0x2
0067 e001 | | Load 0x0,0x1
0068 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0069 e008 | | Load 0x0,0x8
006a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
006b 01cc | | Execute Vector,Catenate
006c 0092 014d | M| Action Push_String_Extended,0x14d ; ") in box ("
006e 01cc | | Execute Vector,Catenate
006f 4800 |H | Short_Literal 0x0
0070 00db | | Load_Top At_Offset_3
0071 e002 | | Load 0x0,0x2
0072 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0073 e008 | | Load 0x0,0x8
0074 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0075 01cc | | Execute Vector,Catenate
0076 0092 014e | N| Action Push_String_Extended,0x14e ; ") with label: "
0078 01cc | | Execute Vector,Catenate
0079 4800 |H | Short_Literal 0x0
007a 00da | | Load_Top At_Offset_2
007b e003 | | Load 0x0,0x3
007c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
007d e008 | | Load 0x0,0x8
007e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
007f 00d8 | | Load_Top At_Offset_0
0080 e211 | | Load 0x1,0x11
0081 0260 | ` | Execute Discrete,In_Type
0082 7001 |p | Jump_Nonzero 0x84
0083 0801 | | Execute_Immediate Raise,0x1
0084 e211 | | Load 0x1,0x11
0085 011c | | Execute Any,Convert_Unchecked
0086 1c01 | | Execute_Immediate Run_Utility,0x1
0087 01cc | | Execute Vector,Catenate
0088 0092 014f | O| Action Push_String_Extended,0x14f ; "("
008a 01cc | | Execute Vector,Catenate
008b 4801 |H | Short_Literal 0x1
008c 00da | | Load_Top At_Offset_2
008d e003 | | Load 0x0,0x3
008e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
008f e007 | | Load 0x0,0x7
0090 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0091 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0092 01cc | | Execute Vector,Catenate
0093 0092 0150 | P| Action Push_String_Extended,0x150 ; ")"
0095 01cc | | Execute Vector,Catenate
0096 e009 | | Load 0x0,0x9
0097 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0098 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0099 0000 0000 | | .BLANK 0000[0x7]
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 1b14 | | Execute Package,Field_Read,Field_Number 0x14
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 e005 | | Load 0x0,0x5
00ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ad 4802 |H | Short_Literal 0x2
00ae 00da | | Load_Top At_Offset_2
00af e001 | | Load 0x0,0x1
00b0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00b1 0092 0151 | Q| Action Push_String_Extended,0x151 ; "=>Rule STICKER_LACK : there are no stickers left with color "
00b3 4801 |H | Short_Literal 0x1
00b4 00da | | Load_Top At_Offset_2
00b5 e001 | | Load 0x0,0x1
00b6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b7 e008 | | Load 0x0,0x8
00b8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00b9 00d8 | | Load_Top At_Offset_0
00ba e211 | | Load 0x1,0x11
00bb 0260 | ` | Execute Discrete,In_Type
00bc 7001 |p | Jump_Nonzero 0xbe
00bd 0801 | | Execute_Immediate Raise,0x1
00be e211 | | Load 0x1,0x11
00bf 011c | | Execute Any,Convert_Unchecked
00c0 1c01 | | Execute_Immediate Run_Utility,0x1
00c1 01cc | | Execute Vector,Catenate
00c2 e009 | | Load 0x0,0x9
00c3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00ce | | .CONST 0x00ce ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e001 | | Load 0x0,0x1
00cc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00cd 02ff | | Declare_Variable Variant_Record
00ce BODY_00c8:
00ce 00d8 | | Load_Top At_Offset_0
00cf e5ff | | Load 0x2,-0x1
00d0 e004 | | Load 0x0,0x4
00d1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00d2 00d1 | | Pop_Control Pop_Count_1
00d3 e005 | | Load 0x0,0x5
00d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d5 4802 |H | Short_Literal 0x2
00d6 00da | | Load_Top At_Offset_2
00d7 e001 | | Load 0x0,0x1
00d8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00d9 0092 0152 | R| Action Push_String_Extended,0x152 ; "=>Rule BOX_LACK : there are no boxes left with size greater then "
00db 4800 |H | Short_Literal 0x0
00dc 00da | | Load_Top At_Offset_2
00dd e001 | | Load 0x0,0x1
00de 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00df e008 | | Load 0x0,0x8
00e0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00e1 01cc | | Execute Vector,Catenate
00e2 e009 | | Load 0x0,0x9
00e3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ee | | .CONST 0x00ee ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0002 | | .CONST 0x0002 ; Number of locals
00eb INIT_00e8:
00eb e001 | | Load 0x0,0x1
00ec 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ed 02ff | | Declare_Variable Variant_Record
00ee BODY_00e8:
00ee 00d8 | | Load_Top At_Offset_0
00ef e5ff | | Load 0x2,-0x1
00f0 e004 | | Load 0x0,0x4
00f1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00f2 00d1 | | Pop_Control Pop_Count_1
00f3 e005 | | Load 0x0,0x5
00f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f5 4802 |H | Short_Literal 0x2
00f6 00da | | Load_Top At_Offset_2
00f7 e001 | | Load 0x0,0x1
00f8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00f9 0092 0153 | S| Action Push_String_Extended,0x153 ; "=>Rule TOO_BIG : the colour "
00fb 4801 |H | Short_Literal 0x1
00fc 00da | | Load_Top At_Offset_2
00fd e001 | | Load 0x0,0x1
00fe 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ff e008 | | Load 0x0,0x8
0100 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0101 00d8 | | Load_Top At_Offset_0
0102 e211 | | Load 0x1,0x11
0103 0260 | ` | Execute Discrete,In_Type
0104 7001 |p | Jump_Nonzero 0x106
0105 0801 | | Execute_Immediate Raise,0x1
0106 e211 | | Load 0x1,0x11
0107 011c | | Execute Any,Convert_Unchecked
0108 1c01 | | Execute_Immediate Run_Utility,0x1
0109 01cc | | Execute Vector,Catenate
010a 0092 0154 | T| Action Push_String_Extended,0x154 ; " ball with size "
010c 01cc | | Execute Vector,Catenate
010d 4800 |H | Short_Literal 0x0
010e 00da | | Load_Top At_Offset_2
010f e001 | | Load 0x0,0x1
0110 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0111 e008 | | Load 0x0,0x8
0112 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0113 01cc | | Execute Vector,Catenate
0114 0092 0155 | U| Action Push_String_Extended,0x155 ; " is too BIG"
0116 01cc | | Execute Vector,Catenate
0117 e009 | | Load 0x0,0x9
0118 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0119 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011a 0000 0000 | | .BLANK 0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 4607 |F | Jump_Case 0x8
0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0125 7806 |x | Jump 0x12c ; case 0x1
0126 7809 |x | Jump 0x130 ; case 0x2
0127 780d |x | Jump 0x135 ; case 0x3
0128 7810 |x | Jump 0x139 ; case 0x4
0129 7811 |x | Jump 0x13b ; case 0x5
012a 7812 |x | Jump 0x13d ; case 0x6
012b 7815 |x | Jump 0x141 ; case 0x7
012c 00da | | Load_Top At_Offset_2
012d 0091 0145 | E| Action Push_String_Extended_Indexed,0x145 ; "BLACK"
012f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0130 00db | | Load_Top At_Offset_3
0131 00db | | Load_Top At_Offset_3
0132 00e0 | | Load_Encached Standard_Cache
0133 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0135 00da | | Load_Top At_Offset_2
0136 00e0 | | Load_Encached Standard_Cache
0137 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0138 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0139 00db | | Load_Top At_Offset_3
013a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013b 00db | | Load_Top At_Offset_3
013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013d e211 | | Load 0x1,0x11
013e 00dc | | Load_Top At_Offset_4
013f 0267 | g | Execute Discrete,Predecessor
0140 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0141 e211 | | Load 0x1,0x11
0142 00dc | | Load_Top At_Offset_4
0143 0268 | h | Execute Discrete,Successor
0144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0145 ; --------------------------------------------------------------------------------------
0145 ; STRING TABLE
0145 ; --------------------------------------------------------------------------------------
0145 0024 | $ | .STRTAB 0x0024->0x0157 ; "BLACK"
0146 0027 | ' | .STRTAB 0x0027->0x0159 ; "RED"
0147 0028 | ( | .STRTAB 0x0028->0x015b ; "GREEN"
0148 002b | + | .STRTAB 0x002b->0x015d ; "BLUE"
0149 002d | - | .STRTAB 0x002d->0x015f ; "WHITE"
014a 0030 | 0 | .STRTAB 0x0030->0x0162 ; "YELLOW"
014b 0034 | 4 | .STRTAB 0x0034->0x0165 ; "=>Rule PACK_IT : ball ("
014c 0049 | I | .STRTAB 0x0049->0x0170 ; "/"
014d 0048 | H | .STRTAB 0x0048->0x0171 ; ") in box ("
014e 0050 | P | .STRTAB 0x0050->0x0176 ; ") with label: "
014f 005d | ] | .STRTAB 0x005d->0x017d ; "("
0150 005c | \ | .STRTAB 0x005c->0x017e ; ")"
0151 005b | [ | .STRTAB 0x005b->0x017e ; "=>Rule STICKER_LACK : there are no stickers left with color "
0152 0095 | | .STRTAB 0x0095->0x019c ; "=>Rule BOX_LACK : there are no boxes left with size greater then "
0153 00d4 | | .STRTAB 0x00d4->0x01bd ; "=>Rule TOO_BIG : the colour "
0154 00ee | | .STRTAB 0x00ee->0x01cb ; " ball with size "
0155 00fc | | .STRTAB 0x00fc->0x01d3 ; " is too BIG"
0156 0105 | | .STREND 0x0105->0x01d8
0157 424c 4143 |BLAC| .STRTAB_STRINGS
01d9 0000 0000 | | .BLANK 0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug Table
01e0 ; --------------------------------------------------------------------------------------
01e0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdf4f,0x0000,0x0001,0x0007
01e6 000b 0202 | | .DBG4T 0x000b,0x0202,0x8000,0x0000
01ea 0014 0208 | | .DBG4T 0x0014,0x0208,0x8000,0x0000
01ee 002b 020f | + | .DBG4T 0x002b,0x020f,0x0001,0x0000
01f2 00a3 0219 | | .DBG4T 0x00a3,0x0219,0x0001,0x0000
01f6 00cb 021f | | .DBG4T 0x00cb,0x021f,0x0001,0x0000
01fa 00eb 0225 | %| .DBG4T 0x00eb,0x0225,0x0001,0x0000
01fe 0123 0000 | # | .DBG4T 0x0123,0x0000,0x0005,0x0000
0202 ; --------------------------------------------------------------------------------------
0202 ; Debug chain
0202 ; --------------------------------------------------------------------------------------
0202 0004 0000 | | .DBGLEN 0x0004,0x0000
0204 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug chain
0208 ; --------------------------------------------------------------------------------------
0208 0005 0000 | | .DBGLEN 0x0005,0x0000
020a 0014 0019 | | .DBGLNO 0x0014,0x0019,0x001b,0x001d,0x001f
020f ; --------------------------------------------------------------------------------------
020f ; Debug chain
020f ; --------------------------------------------------------------------------------------
020f 0003 0005 | | .DBGLEN 0x0003,0x0005
0211 002b 002e | + .| .DBGLNO 0x002b,0x002e,0x0031,0x0034,0x003b,0x0041,0x0049,0x0051
0219 ; --------------------------------------------------------------------------------------
0219 ; Debug chain
0219 ; --------------------------------------------------------------------------------------
0219 0001 0003 | | .DBGLEN 0x0001,0x0003
021b 00a3 00a6 | | .DBGLNO 0x00a3,0x00a6,0x00ab,0x00b1
021f ; --------------------------------------------------------------------------------------
021f ; Debug chain
021f ; --------------------------------------------------------------------------------------
021f 0001 0003 | | .DBGLEN 0x0001,0x0003
0221 00cb 00ce | | .DBGLNO 0x00cb,0x00ce,0x00d3,0x00d9
0225 ; --------------------------------------------------------------------------------------
0225 ; Debug chain
0225 ; --------------------------------------------------------------------------------------
0225 0001 0003 | | .DBGLEN 0x0001,0x0003
0227 00eb 00ee | | .DBGLNO 0x00eb,0x00ee,0x00f3,0x00f9
022b 0000 0000 | | .BLANK 0000[0x1d5]