|
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_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 0240 | @ | .CONST 0x0240 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 00e7 | | .CONST 0x00e7 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0007 | | .CONST 0x0007 ; Number of locals
001b INIT_0018:
001b 00e1 | | Load_Encached Boolean_Cache
001c 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
001e 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0020 029f 012b | +| Declare_Subprogram INIT_0128,For_Call
0022 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0024 e001 | | Load 0x0,0x1
0025 e002 | | Load 0x0,0x2
0026 0092 0148 | H| Action Push_String_Extended,0x148 ; "BBS"
0028 4803 |H | Short_Literal 0x3
0029 4800 |H | Short_Literal 0x0
002a 0092 0149 | I| Action Push_String_Extended,0x149 ; "PACK_IT"
002c 4803 |H | Short_Literal 0x3
002d 4802 |H | Short_Literal 0x2
002e 0099 | | Action Reference_Dynamic
002f e003 | | Load 0x0,0x3
0030 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0031 0092 014a | J| Action Push_String_Extended,0x14a ; "STICKER_LACK"
0033 4804 |H | Short_Literal 0x4
0034 4802 |H | Short_Literal 0x2
0035 0099 | | Action Reference_Dynamic
0036 e003 | | Load 0x0,0x3
0037 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0038 0092 014b | K| Action Push_String_Extended,0x14b ; "BOX_LACK"
003a 4805 |H | Short_Literal 0x5
003b 4802 |H | Short_Literal 0x2
003c 0099 | | Action Reference_Dynamic
003d e003 | | Load 0x0,0x3
003e 1913 | | Execute Package,Field_Reference,Field_Number 0x13
003f 0092 014c | L| Action Push_String_Extended,0x14c ; "TOO_BIG"
0041 4806 |H | Short_Literal 0x6
0042 4802 |H | Short_Literal 0x2
0043 0099 | | Action Reference_Dynamic
0044 e003 | | Load 0x0,0x3
0045 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0046 0092 014d | M| Action Push_String_Extended,0x14d ; "Rule number 05"
0048 e004 | | Load 0x0,0x4
0049 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
004a e005 | | Load 0x0,0x5
004b 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
004c 0092 014e | N| Action Push_String_Extended,0x14e ; "Rule number 06"
004e e004 | | Load 0x0,0x4
004f 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0050 e005 | | Load 0x0,0x5
0051 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0052 0092 014f | O| Action Push_String_Extended,0x14f ; "Rule number 07"
0054 e004 | | Load 0x0,0x4
0055 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0056 e005 | | Load 0x0,0x5
0057 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0058 0092 0150 | P| Action Push_String_Extended,0x150 ; "Rule number 08"
005a e004 | | Load 0x0,0x4
005b 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
005c e005 | | Load 0x0,0x5
005d 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
005e 0092 0151 | Q| Action Push_String_Extended,0x151 ; "Rule number 09"
0060 e004 | | Load 0x0,0x4
0061 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0062 e005 | | Load 0x0,0x5
0063 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0064 0092 0152 | R| Action Push_String_Extended,0x152 ; "Rule number 10"
0066 e004 | | Load 0x0,0x4
0067 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0068 e005 | | Load 0x0,0x5
0069 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
006a 0092 0153 | S| Action Push_String_Extended,0x153 ; "Rule number 11"
006c e004 | | Load 0x0,0x4
006d 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
006e e005 | | Load 0x0,0x5
006f 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0070 0092 0154 | T| Action Push_String_Extended,0x154 ; "Rule number 12"
0072 e004 | | Load 0x0,0x4
0073 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0074 e005 | | Load 0x0,0x5
0075 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0076 0092 0155 | U| Action Push_String_Extended,0x155 ; "Rule number 13"
0078 e004 | | Load 0x0,0x4
0079 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
007a e005 | | Load 0x0,0x5
007b 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
007c 0092 0156 | V| Action Push_String_Extended,0x156 ; "Rule number 14"
007e e004 | | Load 0x0,0x4
007f 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0080 e005 | | Load 0x0,0x5
0081 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0082 0092 0157 | W| Action Push_String_Extended,0x157 ; "Rule number 15"
0084 e004 | | Load 0x0,0x4
0085 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0086 e005 | | Load 0x0,0x5
0087 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0088 0092 0158 | X| Action Push_String_Extended,0x158 ; "Rule number 16"
008a e004 | | Load 0x0,0x4
008b 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
008c e005 | | Load 0x0,0x5
008d 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
008e 0092 0159 | Y| Action Push_String_Extended,0x159 ; "Rule number 17"
0090 e004 | | Load 0x0,0x4
0091 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0092 e005 | | Load 0x0,0x5
0093 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0094 0092 015a | Z| Action Push_String_Extended,0x15a ; "Rule number 18"
0096 e004 | | Load 0x0,0x4
0097 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0098 e005 | | Load 0x0,0x5
0099 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
009a 0092 015b | [| Action Push_String_Extended,0x15b ; "Rule number 19"
009c e004 | | Load 0x0,0x4
009d 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
009e e005 | | Load 0x0,0x5
009f 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00a0 0092 015c | \| Action Push_String_Extended,0x15c ; "Rule number 20"
00a2 e004 | | Load 0x0,0x4
00a3 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00a4 e005 | | Load 0x0,0x5
00a5 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00a6 0092 015d | ]| Action Push_String_Extended,0x15d ; "Rule number 21"
00a8 e004 | | Load 0x0,0x4
00a9 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00aa e005 | | Load 0x0,0x5
00ab 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00ac 0092 015e | ^| Action Push_String_Extended,0x15e ; "Rule number 22"
00ae e004 | | Load 0x0,0x4
00af 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00b0 e005 | | Load 0x0,0x5
00b1 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00b2 0092 015f | _| Action Push_String_Extended,0x15f ; "Rule number 23"
00b4 e004 | | Load 0x0,0x4
00b5 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00b6 e005 | | Load 0x0,0x5
00b7 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00b8 0092 0160 | `| Action Push_String_Extended,0x160 ; "Rule number 24"
00ba e004 | | Load 0x0,0x4
00bb 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00bc e005 | | Load 0x0,0x5
00bd 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00be 0092 0161 | a| Action Push_String_Extended,0x161 ; "Rule number 25"
00c0 e004 | | Load 0x0,0x4
00c1 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00c2 e005 | | Load 0x0,0x5
00c3 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00c4 0092 0162 | b| Action Push_String_Extended,0x162 ; "Rule number 26"
00c6 e004 | | Load 0x0,0x4
00c7 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00c8 e005 | | Load 0x0,0x5
00c9 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00ca 0092 0163 | c| Action Push_String_Extended,0x163 ; "Rule number 27"
00cc e004 | | Load 0x0,0x4
00cd 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00ce e005 | | Load 0x0,0x5
00cf 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00d0 0092 0164 | d| Action Push_String_Extended,0x164 ; "Rule number 28"
00d2 e004 | | Load 0x0,0x4
00d3 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00d4 e005 | | Load 0x0,0x5
00d5 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00d6 0092 0165 | e| Action Push_String_Extended,0x165 ; "Rule number 29"
00d8 e004 | | Load 0x0,0x4
00d9 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00da e005 | | Load 0x0,0x5
00db 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00dc 0092 0166 | f| Action Push_String_Extended,0x166 ; "Rule number 30"
00de e004 | | Load 0x0,0x4
00df 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00e0 e005 | | Load 0x0,0x5
00e1 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00e2 4804 |H | Short_Literal 0x4
00e3 e006 | | Load 0x0,0x6
00e4 0387 | | Declare_Variable Package
00e5 00d8 | | Load_Top At_Offset_0
00e6 020f | | Execute Module,Activate
00e7 BODY_0018:
00e7 4804 |H | Short_Literal 0x4
00e8 0092 0148 | H| Action Push_String_Extended,0x148 ; "BBS"
00ea e007 | | Load 0x0,0x7
00eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ec e008 | | Load 0x0,0x8
00ed 180d | | Execute Package,Field_Execute,Field_Number 0xd
00ee 6009 |` | Indirect_Literal Discrete,0xf8,{0x00000000, 0x7fffffff}
00ef 00d9 | | Load_Top At_Offset_1
00f0 186d | m | Execute Package,Field_Execute,Field_Number 0x6d
00f1 a402 | | Store_Unchecked 0x2,0x2
00f2 e008 | | Load 0x0,0x8
00f3 180f | | Execute Package,Field_Execute,Field_Number 0xf
00f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e009 | | Load 0x0,0x9
0104 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0105 e009 | | Load 0x0,0x9
0106 1918 | | Execute Package,Field_Reference,Field_Number 0x18
0107 e009 | | Load 0x0,0x9
0108 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0109 e009 | | Load 0x0,0x9
010a 191a | | Execute Package,Field_Reference,Field_Number 0x1a
010b e009 | | Load 0x0,0x9
010c 191b | | Execute Package,Field_Reference,Field_Number 0x1b
010d e009 | | Load 0x0,0x9
010e 191c | | Execute Package,Field_Reference,Field_Number 0x1c
010f e009 | | Load 0x0,0x9
0110 191d | | Execute Package,Field_Reference,Field_Number 0x1d
0111 e009 | | Load 0x0,0x9
0112 191e | | Execute Package,Field_Reference,Field_Number 0x1e
0113 e009 | | Load 0x0,0x9
0114 191f | | Execute Package,Field_Reference,Field_Number 0x1f
0115 e004 | | Load 0x0,0x4
0116 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0117 00ca | | Action Exit_Nullary_Function
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e009 | | Load 0x0,0x9
011c 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
011d e009 | | Load 0x0,0x9
011e 1923 | # | Execute Package,Field_Reference,Field_Number 0x23
011f e009 | | Load 0x0,0x9
0120 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24
0121 e009 | | Load 0x0,0x9
0122 1925 | % | Execute Package,Field_Reference,Field_Number 0x25
0123 e009 | | Load 0x0,0x9
0124 1926 | & | Execute Package,Field_Reference,Field_Number 0x26
0125 e004 | | Load 0x0,0x4
0126 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0127 00ca | | Action Exit_Nullary_Function
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
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 e009 | | Load 0x0,0x9
012c 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
012d e009 | | Load 0x0,0x9
012e 192a | * | Execute Package,Field_Reference,Field_Number 0x2a
012f e009 | | Load 0x0,0x9
0130 192b | + | Execute Package,Field_Reference,Field_Number 0x2b
0131 e009 | | Load 0x0,0x9
0132 192c | , | Execute Package,Field_Reference,Field_Number 0x2c
0133 e009 | | Load 0x0,0x9
0134 192d | - | Execute Package,Field_Reference,Field_Number 0x2d
0135 e004 | | Load 0x0,0x4
0136 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0137 00ca | | Action Exit_Nullary_Function
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e009 | | Load 0x0,0x9
013c 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
013d e009 | | Load 0x0,0x9
013e 1931 | 1 | Execute Package,Field_Reference,Field_Number 0x31
013f e009 | | Load 0x0,0x9
0140 1932 | 2 | Execute Package,Field_Reference,Field_Number 0x32
0141 e009 | | Load 0x0,0x9
0142 1933 | 3 | Execute Package,Field_Reference,Field_Number 0x33
0143 e009 | | Load 0x0,0x9
0144 1934 | 4 | Execute Package,Field_Reference,Field_Number 0x34
0145 e004 | | Load 0x0,0x4
0146 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0147 00ca | | Action Exit_Nullary_Function
0148 ; --------------------------------------------------------------------------------------
0148 ; STRING TABLE
0148 ; --------------------------------------------------------------------------------------
0148 0040 | @ | .STRTAB 0x0040->0x0168 ; "BBS"
0149 0041 | A | .STRTAB 0x0041->0x0169 ; "PACK_IT"
014a 0046 | F | .STRTAB 0x0046->0x016d ; "STICKER_LACK"
014b 0050 | P | .STRTAB 0x0050->0x0173 ; "BOX_LACK"
014c 0056 | V | .STRTAB 0x0056->0x0177 ; "TOO_BIG"
014d 005b | [ | .STRTAB 0x005b->0x017a ; "Rule number 05"
014e 0068 | h | .STRTAB 0x0068->0x0182 ; "Rule number 06"
014f 0075 | u | .STRTAB 0x0075->0x0189 ; "Rule number 07"
0150 0082 | | .STRTAB 0x0082->0x0191 ; "Rule number 08"
0151 008f | | .STRTAB 0x008f->0x0198 ; "Rule number 09"
0152 009c | | .STRTAB 0x009c->0x01a0 ; "Rule number 10"
0153 00a9 | | .STRTAB 0x00a9->0x01a7 ; "Rule number 11"
0154 00b6 | | .STRTAB 0x00b6->0x01af ; "Rule number 12"
0155 00c3 | | .STRTAB 0x00c3->0x01b6 ; "Rule number 13"
0156 00d0 | | .STRTAB 0x00d0->0x01be ; "Rule number 14"
0157 00dd | | .STRTAB 0x00dd->0x01c5 ; "Rule number 15"
0158 00ea | | .STRTAB 0x00ea->0x01cd ; "Rule number 16"
0159 00f7 | | .STRTAB 0x00f7->0x01d4 ; "Rule number 17"
015a 0104 | | .STRTAB 0x0104->0x01dc ; "Rule number 18"
015b 0111 | | .STRTAB 0x0111->0x01e3 ; "Rule number 19"
015c 011e | | .STRTAB 0x011e->0x01eb ; "Rule number 20"
015d 012b | + | .STRTAB 0x012b->0x01f2 ; "Rule number 21"
015e 0138 | 8 | .STRTAB 0x0138->0x01fa ; "Rule number 22"
015f 0145 | E | .STRTAB 0x0145->0x0201 ; "Rule number 23"
0160 0152 | R | .STRTAB 0x0152->0x0209 ; "Rule number 24"
0161 015f | _ | .STRTAB 0x015f->0x0210 ; "Rule number 25"
0162 016c | l | .STRTAB 0x016c->0x0218 ; "Rule number 26"
0163 0179 | y | .STRTAB 0x0179->0x021f ; "Rule number 27"
0164 0186 | | .STRTAB 0x0186->0x0227 ; "Rule number 28"
0165 0193 | | .STRTAB 0x0193->0x022e ; "Rule number 29"
0166 01a0 | | .STRTAB 0x01a0->0x0236 ; "Rule number 30"
0167 01ad | | .STREND 0x01ad->0x023d
0168 4242 5350 |BBSP| .STRTAB_STRINGS
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; Debug Table
0240 ; --------------------------------------------------------------------------------------
0240 0004 0001 | | .DEBUG4 0x0004,0x0001,0xe58e,0x0000,0x0001,0x0006
0246 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
024a 001b 025e | ^| .DBG4T 0x001b,0x025e,0x8001,0x0000
024e 0103 0000 | | .DBG4T 0x0103,0x0000,0x000c,0x0000
0252 011b 0000 | | .DBG4T 0x011b,0x0000,0x000c,0x0000
0256 012b 0000 | + | .DBG4T 0x012b,0x0000,0x000c,0x0000
025a 013b 0000 | ; | .DBG4T 0x013b,0x0000,0x000c,0x0000
025e ; --------------------------------------------------------------------------------------
025e ; Debug chain
025e ; --------------------------------------------------------------------------------------
025e 0002 0004 | | .DBGLEN 0x0002,0x0004
0260 001b 001c | | .DBGLNO 0x001b,0x001c,0x00e7,0x00ec,0x00ee,0x00f2
0266 0000 0000 | | .BLANK 0000[0x19a]