|
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 4802 |H | Short_Literal 0x2
0029 4800 |H | Short_Literal 0x0
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,0xdcc1,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]