|
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_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 0000 | | .CONST 0x0000 ; 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 00db | | .CONST 0x00db ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0003 | | .CONST 0x0003 ; Number of locals
001b INIT_0018:
001b 00e1 | | Load_Encached Boolean_Cache
001c e001 | | Load 0x0,0x1
001d e002 | | Load 0x0,0x2
001e 0092 00e8 | | Action Push_String_Extended,0xe8 ; "BBS"
0020 4800 |H | Short_Literal 0x0
0021 4800 |H | Short_Literal 0x0
0022 0092 00e9 | | Action Push_String_Extended,0xe9 ; "PACK_IT"
0024 e003 | | Load 0x0,0x3
0025 190d | | Execute Package,Field_Reference,Field_Number 0xd
0026 e004 | | Load 0x0,0x4
0027 190d | | Execute Package,Field_Reference,Field_Number 0xd
0028 0092 00ea | | Action Push_String_Extended,0xea ; "STICKER_LACK"
002a e003 | | Load 0x0,0x3
002b 190e | | Execute Package,Field_Reference,Field_Number 0xe
002c e004 | | Load 0x0,0x4
002d 190e | | Execute Package,Field_Reference,Field_Number 0xe
002e 0092 00eb | | Action Push_String_Extended,0xeb ; "BOX_LACK"
0030 e003 | | Load 0x0,0x3
0031 190f | | Execute Package,Field_Reference,Field_Number 0xf
0032 e004 | | Load 0x0,0x4
0033 190f | | Execute Package,Field_Reference,Field_Number 0xf
0034 0092 00ec | | Action Push_String_Extended,0xec ; "TOO_BIG"
0036 e003 | | Load 0x0,0x3
0037 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0038 e004 | | Load 0x0,0x4
0039 1910 | | Execute Package,Field_Reference,Field_Number 0x10
003a 0092 00ed | | Action Push_String_Extended,0xed ; "Rule number 05"
003c e005 | | Load 0x0,0x5
003d 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
003e e006 | | Load 0x0,0x6
003f 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0040 0092 00ee | | Action Push_String_Extended,0xee ; "Rule number 06"
0042 e005 | | Load 0x0,0x5
0043 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0044 e006 | | Load 0x0,0x6
0045 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0046 0092 00ef | | Action Push_String_Extended,0xef ; "Rule number 07"
0048 e005 | | Load 0x0,0x5
0049 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
004a e006 | | Load 0x0,0x6
004b 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
004c 0092 00f0 | | Action Push_String_Extended,0xf0 ; "Rule number 08"
004e e005 | | Load 0x0,0x5
004f 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0050 e006 | | Load 0x0,0x6
0051 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0052 0092 00f1 | | Action Push_String_Extended,0xf1 ; "Rule number 09"
0054 e005 | | Load 0x0,0x5
0055 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0056 e006 | | Load 0x0,0x6
0057 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0058 0092 00f2 | | Action Push_String_Extended,0xf2 ; "Rule number 10"
005a e005 | | Load 0x0,0x5
005b 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
005c e006 | | Load 0x0,0x6
005d 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
005e 0092 00f3 | | Action Push_String_Extended,0xf3 ; "Rule number 11"
0060 e005 | | Load 0x0,0x5
0061 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0062 e006 | | Load 0x0,0x6
0063 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0064 0092 00f4 | | Action Push_String_Extended,0xf4 ; "Rule number 12"
0066 e005 | | Load 0x0,0x5
0067 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0068 e006 | | Load 0x0,0x6
0069 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
006a 0092 00f5 | | Action Push_String_Extended,0xf5 ; "Rule number 13"
006c e005 | | Load 0x0,0x5
006d 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
006e e006 | | Load 0x0,0x6
006f 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0070 0092 00f6 | | Action Push_String_Extended,0xf6 ; "Rule number 14"
0072 e005 | | Load 0x0,0x5
0073 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0074 e006 | | Load 0x0,0x6
0075 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0076 0092 00f7 | | Action Push_String_Extended,0xf7 ; "Rule number 15"
0078 e005 | | Load 0x0,0x5
0079 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
007a e006 | | Load 0x0,0x6
007b 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
007c 0092 00f8 | | Action Push_String_Extended,0xf8 ; "Rule number 16"
007e e005 | | Load 0x0,0x5
007f 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0080 e006 | | Load 0x0,0x6
0081 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0082 0092 00f9 | | Action Push_String_Extended,0xf9 ; "Rule number 17"
0084 e005 | | Load 0x0,0x5
0085 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0086 e006 | | Load 0x0,0x6
0087 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0088 0092 00fa | | Action Push_String_Extended,0xfa ; "Rule number 18"
008a e005 | | Load 0x0,0x5
008b 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
008c e006 | | Load 0x0,0x6
008d 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
008e 0092 00fb | | Action Push_String_Extended,0xfb ; "Rule number 19"
0090 e005 | | Load 0x0,0x5
0091 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0092 e006 | | Load 0x0,0x6
0093 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0094 0092 00fc | | Action Push_String_Extended,0xfc ; "Rule number 20"
0096 e005 | | Load 0x0,0x5
0097 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0098 e006 | | Load 0x0,0x6
0099 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
009a 0092 00fd | | Action Push_String_Extended,0xfd ; "Rule number 21"
009c e005 | | Load 0x0,0x5
009d 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
009e e006 | | Load 0x0,0x6
009f 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00a0 0092 00fe | | Action Push_String_Extended,0xfe ; "Rule number 22"
00a2 e005 | | Load 0x0,0x5
00a3 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00a4 e006 | | Load 0x0,0x6
00a5 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00a6 0092 00ff | | Action Push_String_Extended,0xff ; "Rule number 23"
00a8 e005 | | Load 0x0,0x5
00a9 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00aa e006 | | Load 0x0,0x6
00ab 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00ac 0092 0100 | | Action Push_String_Extended,0x100 ; "Rule number 24"
00ae e005 | | Load 0x0,0x5
00af 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00b0 e006 | | Load 0x0,0x6
00b1 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00b2 0092 0101 | | Action Push_String_Extended,0x101 ; "Rule number 25"
00b4 e005 | | Load 0x0,0x5
00b5 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00b6 e006 | | Load 0x0,0x6
00b7 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00b8 0092 0102 | | Action Push_String_Extended,0x102 ; "Rule number 26"
00ba e005 | | Load 0x0,0x5
00bb 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00bc e006 | | Load 0x0,0x6
00bd 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00be 0092 0103 | | Action Push_String_Extended,0x103 ; "Rule number 27"
00c0 e005 | | Load 0x0,0x5
00c1 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00c2 e006 | | Load 0x0,0x6
00c3 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00c4 0092 0104 | | Action Push_String_Extended,0x104 ; "Rule number 28"
00c6 e005 | | Load 0x0,0x5
00c7 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00c8 e006 | | Load 0x0,0x6
00c9 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00ca 0092 0105 | | Action Push_String_Extended,0x105 ; "Rule number 29"
00cc e005 | | Load 0x0,0x5
00cd 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00ce e006 | | Load 0x0,0x6
00cf 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00d0 0092 0106 | | Action Push_String_Extended,0x106 ; "Rule number 30"
00d2 e005 | | Load 0x0,0x5
00d3 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00d4 e006 | | Load 0x0,0x6
00d5 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00d6 4804 |H | Short_Literal 0x4
00d7 e007 | | Load 0x0,0x7
00d8 0387 | | Declare_Variable Package
00d9 00d8 | | Load_Top At_Offset_0
00da 020f | | Execute Module,Activate
00db BODY_0018:
00db e008 | | Load 0x0,0x8
00dc 180d | | Execute Package,Field_Execute,Field_Number 0xd
00dd 6006 |` | Indirect_Literal Discrete,0xe4,{0x00000000, 0x7fffffff}
00de 00d9 | | Load_Top At_Offset_1
00df 186d | m | Execute Package,Field_Execute,Field_Number 0x6d
00e0 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e2 0000 0000 | | .XXX[0x2]
00e4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00e8 ; --------------------------------------------------------------------------------------
00e8 ; STRING TABLE
00e8 ; --------------------------------------------------------------------------------------
00e8 0040 | @ | .STRTAB 0x0040->0x0108 ; "BBS"
00e9 0041 | A | .STRTAB 0x0041->0x0109 ; "PACK_IT"
00ea 0046 | F | .STRTAB 0x0046->0x010d ; "STICKER_LACK"
00eb 0050 | P | .STRTAB 0x0050->0x0113 ; "BOX_LACK"
00ec 0056 | V | .STRTAB 0x0056->0x0117 ; "TOO_BIG"
00ed 005b | [ | .STRTAB 0x005b->0x011a ; "Rule number 05"
00ee 0068 | h | .STRTAB 0x0068->0x0122 ; "Rule number 06"
00ef 0075 | u | .STRTAB 0x0075->0x0129 ; "Rule number 07"
00f0 0082 | | .STRTAB 0x0082->0x0131 ; "Rule number 08"
00f1 008f | | .STRTAB 0x008f->0x0138 ; "Rule number 09"
00f2 009c | | .STRTAB 0x009c->0x0140 ; "Rule number 10"
00f3 00a9 | | .STRTAB 0x00a9->0x0147 ; "Rule number 11"
00f4 00b6 | | .STRTAB 0x00b6->0x014f ; "Rule number 12"
00f5 00c3 | | .STRTAB 0x00c3->0x0156 ; "Rule number 13"
00f6 00d0 | | .STRTAB 0x00d0->0x015e ; "Rule number 14"
00f7 00dd | | .STRTAB 0x00dd->0x0165 ; "Rule number 15"
00f8 00ea | | .STRTAB 0x00ea->0x016d ; "Rule number 16"
00f9 00f7 | | .STRTAB 0x00f7->0x0174 ; "Rule number 17"
00fa 0104 | | .STRTAB 0x0104->0x017c ; "Rule number 18"
00fb 0111 | | .STRTAB 0x0111->0x0183 ; "Rule number 19"
00fc 011e | | .STRTAB 0x011e->0x018b ; "Rule number 20"
00fd 012b | + | .STRTAB 0x012b->0x0192 ; "Rule number 21"
00fe 0138 | 8 | .STRTAB 0x0138->0x019a ; "Rule number 22"
00ff 0145 | E | .STRTAB 0x0145->0x01a1 ; "Rule number 23"
0100 0152 | R | .STRTAB 0x0152->0x01a9 ; "Rule number 24"
0101 015f | _ | .STRTAB 0x015f->0x01b0 ; "Rule number 25"
0102 016c | l | .STRTAB 0x016c->0x01b8 ; "Rule number 26"
0103 0179 | y | .STRTAB 0x0179->0x01bf ; "Rule number 27"
0104 0186 | | .STRTAB 0x0186->0x01c7 ; "Rule number 28"
0105 0193 | | .STRTAB 0x0193->0x01ce ; "Rule number 29"
0106 01a0 | | .STRTAB 0x01a0->0x01d6 ; "Rule number 30"
0107 01ad | | .STREND 0x01ad->0x01dd
0108 4242 5350 |BBSP| .STRTAB_STRINGS
01de 0000 0000 | | .XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug Table
01e0 ; --------------------------------------------------------------------------------------
01e0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdf5a,0x0000,0x0001,0x0002
01e6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
01ea 001b 01ee | | .DBG4T 0x001b,0x01ee,0x8001,0x0000
01ee ; --------------------------------------------------------------------------------------
01ee ; Debug chain
01ee ; --------------------------------------------------------------------------------------
01ee 0002 0002 | | .DBGLEN 0x0002,0x0002
01f0 001b 001c | | .DBGLNO 0x001b,0x001c,0x00db,0x00dd
01f4 0000 0000 | | .BLANK 0000[0xc]