|
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_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 0238 | 8 | .CONST 0x0238 ; 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 00fb | | Declare_Subprogram INIT_00f8,For_Call 001e 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0020 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 0022 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 0024 e001 | | Load 0x0,0x1 0025 e002 | | Load 0x0,0x2 0026 0092 0140 | @| Action Push_String_Extended,0x140 ; "BBS" 0028 4800 |H | Short_Literal 0x0 0029 4801 |H | Short_Literal 0x1 002a 0092 0141 | A| Action Push_String_Extended,0x141 ; "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 190d | | Execute Package,Field_Reference,Field_Number 0xd 0031 0092 0142 | B| Action Push_String_Extended,0x142 ; "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 190e | | Execute Package,Field_Reference,Field_Number 0xe 0038 0092 0143 | C| Action Push_String_Extended,0x143 ; "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 190f | | Execute Package,Field_Reference,Field_Number 0xf 003f 0092 0144 | D| Action Push_String_Extended,0x144 ; "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 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0046 0092 0145 | E| Action Push_String_Extended,0x145 ; "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 0146 | F| Action Push_String_Extended,0x146 ; "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 0147 | G| Action Push_String_Extended,0x147 ; "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 0148 | H| Action Push_String_Extended,0x148 ; "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 0149 | I| Action Push_String_Extended,0x149 ; "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 014a | J| Action Push_String_Extended,0x14a ; "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 014b | K| Action Push_String_Extended,0x14b ; "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 014c | L| Action Push_String_Extended,0x14c ; "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 014d | M| Action Push_String_Extended,0x14d ; "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 014e | N| Action Push_String_Extended,0x14e ; "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 014f | O| Action Push_String_Extended,0x14f ; "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 0150 | P| Action Push_String_Extended,0x150 ; "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 0151 | Q| Action Push_String_Extended,0x151 ; "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 0152 | R| Action Push_String_Extended,0x152 ; "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 0153 | S| Action Push_String_Extended,0x153 ; "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 0154 | T| Action Push_String_Extended,0x154 ; "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 0155 | U| Action Push_String_Extended,0x155 ; "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 0156 | V| Action Push_String_Extended,0x156 ; "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 0157 | W| Action Push_String_Extended,0x157 ; "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 0158 | X| Action Push_String_Extended,0x158 ; "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 0159 | Y| Action Push_String_Extended,0x159 ; "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 015a | Z| Action Push_String_Extended,0x15a ; "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 015b | [| Action Push_String_Extended,0x15b ; "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 015c | \| Action Push_String_Extended,0x15c ; "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 015d | ]| Action Push_String_Extended,0x15d ; "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 015e | ^| Action Push_String_Extended,0x15e ; "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 e007 | | Load 0x0,0x7 00e8 180d | | Execute Package,Field_Execute,Field_Number 0xd 00e9 6006 |` | Indirect_Literal Discrete,0xf0,{0x00000000, 0x7fffffff} 00ea 00d9 | | Load_Top At_Offset_1 00eb 186d | m | Execute Package,Field_Execute,Field_Number 0x6d 00ec a402 | | Store_Unchecked 0x2,0x2 00ed e007 | | Load 0x0,0x7 00ee 180f | | Execute Package,Field_Execute,Field_Number 0xf 00ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f0 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb e008 | | Load 0x0,0x8 00fc 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00fd e008 | | Load 0x0,0x8 00fe 1918 | | Execute Package,Field_Reference,Field_Number 0x18 00ff e008 | | Load 0x0,0x8 0100 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0101 e008 | | Load 0x0,0x8 0102 191a | | Execute Package,Field_Reference,Field_Number 0x1a 0103 e008 | | Load 0x0,0x8 0104 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0105 e008 | | Load 0x0,0x8 0106 191c | | Execute Package,Field_Reference,Field_Number 0x1c 0107 e008 | | Load 0x0,0x8 0108 191d | | Execute Package,Field_Reference,Field_Number 0x1d 0109 e008 | | Load 0x0,0x8 010a 191e | | Execute Package,Field_Reference,Field_Number 0x1e 010b e008 | | Load 0x0,0x8 010c 191f | | Execute Package,Field_Reference,Field_Number 0x1f 010d e004 | | Load 0x0,0x4 010e 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 010f 00ca | | Action Exit_Nullary_Function 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 e008 | | Load 0x0,0x8 0114 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0115 e008 | | Load 0x0,0x8 0116 1923 | # | Execute Package,Field_Reference,Field_Number 0x23 0117 e008 | | Load 0x0,0x8 0118 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24 0119 e008 | | Load 0x0,0x8 011a 1925 | % | Execute Package,Field_Reference,Field_Number 0x25 011b e008 | | Load 0x0,0x8 011c 1926 | & | Execute Package,Field_Reference,Field_Number 0x26 011d e004 | | Load 0x0,0x4 011e 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 011f 00ca | | Action Exit_Nullary_Function 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 e008 | | Load 0x0,0x8 0124 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0125 e008 | | Load 0x0,0x8 0126 192a | * | Execute Package,Field_Reference,Field_Number 0x2a 0127 e008 | | Load 0x0,0x8 0128 192b | + | Execute Package,Field_Reference,Field_Number 0x2b 0129 e008 | | Load 0x0,0x8 012a 192c | , | Execute Package,Field_Reference,Field_Number 0x2c 012b e008 | | Load 0x0,0x8 012c 192d | - | Execute Package,Field_Reference,Field_Number 0x2d 012d e004 | | Load 0x0,0x4 012e 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 012f 00ca | | Action Exit_Nullary_Function 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 e008 | | Load 0x0,0x8 0134 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0135 e008 | | Load 0x0,0x8 0136 1931 | 1 | Execute Package,Field_Reference,Field_Number 0x31 0137 e008 | | Load 0x0,0x8 0138 1932 | 2 | Execute Package,Field_Reference,Field_Number 0x32 0139 e008 | | Load 0x0,0x8 013a 1933 | 3 | Execute Package,Field_Reference,Field_Number 0x33 013b e008 | | Load 0x0,0x8 013c 1934 | 4 | Execute Package,Field_Reference,Field_Number 0x34 013d e004 | | Load 0x0,0x4 013e 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 013f 00ca | | Action Exit_Nullary_Function 0140 ; -------------------------------------------------------------------------------------- 0140 ; STRING TABLE 0140 ; -------------------------------------------------------------------------------------- 0140 0040 | @ | .STRTAB 0x0040->0x0160 ; "BBS" 0141 0041 | A | .STRTAB 0x0041->0x0161 ; "PACK_IT" 0142 0046 | F | .STRTAB 0x0046->0x0165 ; "STICKER_LACK" 0143 0050 | P | .STRTAB 0x0050->0x016b ; "BOX_LACK" 0144 0056 | V | .STRTAB 0x0056->0x016f ; "TOO_BIG" 0145 005b | [ | .STRTAB 0x005b->0x0172 ; "Rule number 05" 0146 0068 | h | .STRTAB 0x0068->0x017a ; "Rule number 06" 0147 0075 | u | .STRTAB 0x0075->0x0181 ; "Rule number 07" 0148 0082 | | .STRTAB 0x0082->0x0189 ; "Rule number 08" 0149 008f | | .STRTAB 0x008f->0x0190 ; "Rule number 09" 014a 009c | | .STRTAB 0x009c->0x0198 ; "Rule number 10" 014b 00a9 | | .STRTAB 0x00a9->0x019f ; "Rule number 11" 014c 00b6 | | .STRTAB 0x00b6->0x01a7 ; "Rule number 12" 014d 00c3 | | .STRTAB 0x00c3->0x01ae ; "Rule number 13" 014e 00d0 | | .STRTAB 0x00d0->0x01b6 ; "Rule number 14" 014f 00dd | | .STRTAB 0x00dd->0x01bd ; "Rule number 15" 0150 00ea | | .STRTAB 0x00ea->0x01c5 ; "Rule number 16" 0151 00f7 | | .STRTAB 0x00f7->0x01cc ; "Rule number 17" 0152 0104 | | .STRTAB 0x0104->0x01d4 ; "Rule number 18" 0153 0111 | | .STRTAB 0x0111->0x01db ; "Rule number 19" 0154 011e | | .STRTAB 0x011e->0x01e3 ; "Rule number 20" 0155 012b | + | .STRTAB 0x012b->0x01ea ; "Rule number 21" 0156 0138 | 8 | .STRTAB 0x0138->0x01f2 ; "Rule number 22" 0157 0145 | E | .STRTAB 0x0145->0x01f9 ; "Rule number 23" 0158 0152 | R | .STRTAB 0x0152->0x0201 ; "Rule number 24" 0159 015f | _ | .STRTAB 0x015f->0x0208 ; "Rule number 25" 015a 016c | l | .STRTAB 0x016c->0x0210 ; "Rule number 26" 015b 0179 | y | .STRTAB 0x0179->0x0217 ; "Rule number 27" 015c 0186 | | .STRTAB 0x0186->0x021f ; "Rule number 28" 015d 0193 | | .STRTAB 0x0193->0x0226 ; "Rule number 29" 015e 01a0 | | .STRTAB 0x01a0->0x022e ; "Rule number 30" 015f 01ad | | .STREND 0x01ad->0x0235 0160 4242 5350 |BBSP| .STRTAB_STRINGS 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; Debug Table 0238 ; -------------------------------------------------------------------------------------- 0238 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdcc2,0x0000,0x0001,0x0006 023e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 0242 001b 0256 | V| .DBG4T 0x001b,0x0256,0x8001,0x0000 0246 00fb 0000 | | .DBG4T 0x00fb,0x0000,0x000c,0x0000 024a 0113 0000 | | .DBG4T 0x0113,0x0000,0x000c,0x0000 024e 0123 0000 | # | .DBG4T 0x0123,0x0000,0x000c,0x0000 0252 0133 0000 | 3 | .DBG4T 0x0133,0x0000,0x000c,0x0000 0256 ; -------------------------------------------------------------------------------------- 0256 ; Debug chain 0256 ; -------------------------------------------------------------------------------------- 0256 0002 0003 | | .DBGLEN 0x0002,0x0003 0258 001b 001c | | .DBGLNO 0x001b,0x001c,0x00e7,0x00e9,0x00ed 025d 0000 0000 | | .BLANK 0000[0x1a3]