|
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_0a7cf5
└─⟦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 0160 | ` | .CONST 0x0160 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0024 | $ | .CONST 0x0024 ; Address of begin
0009 0106 | | .CONST 0x0106 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
000d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
000e 0129 | ) | Execute Any,Make_Visible
000f e001 | | Load 0x0,0x1
0010 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0011 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0012 0129 | ) | Execute Any,Make_Visible
0013 e001 | | Load 0x0,0x1
0014 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0015 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0016 0129 | ) | Execute Any,Make_Visible
0017 e001 | | Load 0x0,0x1
0018 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0019 1b11 | | Execute Package,Field_Read,Field_Number 0x11
001a 0129 | ) | Execute Any,Make_Visible
001b e001 | | Load 0x0,0x1
001c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
001d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
001e 0129 | ) | Execute Any,Make_Visible
001f 00bf | | Action Accept_Activation
0020 00e1 | | Load_Encached Boolean_Cache
0021 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call
0023 8213 | | Call 0x1,0x13
0024 BODY_0008:
0024 4800 |H | Short_Literal 0x0
0025 a20d | | Store_Unchecked 0x1,0xd
0026 4800 |H | Short_Literal 0x0
0027 a20e | | Store_Unchecked 0x1,0xe
0028 4800 |H | Short_Literal 0x0
0029 a210 | | Store_Unchecked 0x1,0x10
002a 4800 |H | Short_Literal 0x0
002b a20f | | Store_Unchecked 0x1,0xf
002c 4801 |H | Short_Literal 0x1
002d 0092 011d | | Action Push_String_Extended,0x11d ; "VT100"
002f 00da | | Load_Top At_Offset_2
0030 e002 | | Load 0x0,0x2
0031 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0032 6825 |h% | Jump_Zero 0x58
0033 00e1 | | Load_Encached Boolean_Cache
0034 e001 | | Load 0x0,0x1
0035 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0036 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0037 00da | | Load_Top At_Offset_2
0038 0092 011e | | Action Push_String_Extended,0x11e ; "Enter"
003a e001 | | Load 0x0,0x1
003b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
003c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
003d c20e | | Store 0x1,0xe
003e 005b | [ | Store_Top Discrete,At_Offset_3
003f 00e1 | | Load_Encached Boolean_Cache
0040 e001 | | Load 0x0,0x1
0041 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0042 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0043 00da | | Load_Top At_Offset_2
0044 0092 011f | | Action Push_String_Extended,0x11f ; "Delete"
0046 e001 | | Load 0x0,0x1
0047 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0048 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0049 c20f | | Store 0x1,0xf
004a 005b | [ | Store_Top Discrete,At_Offset_3
004b 00e1 | | Load_Encached Boolean_Cache
004c e001 | | Load 0x0,0x1
004d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
004e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
004f 00da | | Load_Top At_Offset_2
0050 0092 0120 | | Action Push_String_Extended,0x120 ; "C_Left_Bracket"
0052 e001 | | Load 0x0,0x1
0053 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0054 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0055 c211 | | Store 0x1,0x11
0056 005b | [ | Store_Top Discrete,At_Offset_3
0057 78ac |x | Jump 0x104
0058 4801 |H | Short_Literal 0x1
0059 0092 0121 | !| Action Push_String_Extended,0x121 ; "Facit"
005b 00da | | Load_Top At_Offset_2
005c e002 | | Load 0x0,0x2
005d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
005e 6831 |h1 | Jump_Zero 0x90
005f 00e1 | | Load_Encached Boolean_Cache
0060 e001 | | Load 0x0,0x1
0061 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0062 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0063 00da | | Load_Top At_Offset_2
0064 0092 0122 | "| Action Push_String_Extended,0x122 ; "backspace"
0066 e001 | | Load 0x0,0x1
0067 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0068 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0069 c210 | | Store 0x1,0x10
006a 005b | [ | Store_Top Discrete,At_Offset_3
006b 00e1 | | Load_Encached Boolean_Cache
006c e001 | | Load 0x0,0x1
006d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
006e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
006f 00da | | Load_Top At_Offset_2
0070 0092 011f | | Action Push_String_Extended,0x11f ; "Delete"
0072 e001 | | Load 0x0,0x1
0073 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0074 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0075 c20f | | Store 0x1,0xf
0076 005b | [ | Store_Top Discrete,At_Offset_3
0077 00e1 | | Load_Encached Boolean_Cache
0078 e001 | | Load 0x0,0x1
0079 1b17 | | Execute Package,Field_Read,Field_Number 0x17
007a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
007b 00da | | Load_Top At_Offset_2
007c 0092 011e | | Action Push_String_Extended,0x11e ; "Enter"
007e e001 | | Load 0x0,0x1
007f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0080 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0081 c20e | | Store 0x1,0xe
0082 005b | [ | Store_Top Discrete,At_Offset_3
0083 00e1 | | Load_Encached Boolean_Cache
0084 e001 | | Load 0x0,0x1
0085 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0086 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0087 00da | | Load_Top At_Offset_2
0088 0092 0120 | | Action Push_String_Extended,0x120 ; "C_Left_Bracket"
008a e001 | | Load 0x0,0x1
008b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
008c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
008d c211 | | Store 0x1,0x11
008e 005b | [ | Store_Top Discrete,At_Offset_3
008f 7874 |xt | Jump 0x104
0090 4801 |H | Short_Literal 0x1
0091 0092 0123 | #| Action Push_String_Extended,0x123 ; "Rational"
0093 00da | | Load_Top At_Offset_2
0094 e002 | | Load 0x0,0x2
0095 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0096 6831 |h1 | Jump_Zero 0xc8
0097 00e1 | | Load_Encached Boolean_Cache
0098 e001 | | Load 0x0,0x1
0099 1b17 | | Execute Package,Field_Read,Field_Number 0x17
009a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
009b 00da | | Load_Top At_Offset_2
009c 0092 011f | | Action Push_String_Extended,0x11f ; "Delete"
009e e001 | | Load 0x0,0x1
009f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00a0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00a1 c20f | | Store 0x1,0xf
00a2 005b | [ | Store_Top Discrete,At_Offset_3
00a3 00e1 | | Load_Encached Boolean_Cache
00a4 e001 | | Load 0x0,0x1
00a5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00a6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a7 00da | | Load_Top At_Offset_2
00a8 0092 011e | | Action Push_String_Extended,0x11e ; "Enter"
00aa e001 | | Load 0x0,0x1
00ab 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00ac 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ad c20e | | Store 0x1,0xe
00ae 005b | [ | Store_Top Discrete,At_Offset_3
00af 00e1 | | Load_Encached Boolean_Cache
00b0 e001 | | Load 0x0,0x1
00b1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00b2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00b3 00da | | Load_Top At_Offset_2
00b4 0092 0124 | $| Action Push_String_Extended,0x124 ; "Carriage_Return"
00b6 e001 | | Load 0x0,0x1
00b7 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00b8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00b9 c20d | | Store 0x1,0xd
00ba 005b | [ | Store_Top Discrete,At_Offset_3
00bb 00e1 | | Load_Encached Boolean_Cache
00bc e001 | | Load 0x0,0x1
00bd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00be 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00bf 00da | | Load_Top At_Offset_2
00c0 0092 0125 | %| Action Push_String_Extended,0x125 ; "F11"
00c2 e001 | | Load 0x0,0x1
00c3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00c4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00c5 c211 | | Store 0x1,0x11
00c6 005b | [ | Store_Top Discrete,At_Offset_3
00c7 783c |x< | Jump 0x104
00c8 00e1 | | Load_Encached Boolean_Cache
00c9 e001 | | Load 0x0,0x1
00ca 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00cb 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00cc 00da | | Load_Top At_Offset_2
00cd 0092 011f | | Action Push_String_Extended,0x11f ; "Delete"
00cf e001 | | Load 0x0,0x1
00d0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00d1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00d2 c20f | | Store 0x1,0xf
00d3 005b | [ | Store_Top Discrete,At_Offset_3
00d4 00e1 | | Load_Encached Boolean_Cache
00d5 e001 | | Load 0x0,0x1
00d6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00d7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00d8 00da | | Load_Top At_Offset_2
00d9 0092 0126 | &| Action Push_String_Extended,0x126 ; "Backspace"
00db e001 | | Load 0x0,0x1
00dc 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00dd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00de c210 | | Store 0x1,0x10
00df 005b | [ | Store_Top Discrete,At_Offset_3
00e0 00e1 | | Load_Encached Boolean_Cache
00e1 e001 | | Load 0x0,0x1
00e2 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00e3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00e4 00da | | Load_Top At_Offset_2
00e5 0092 0127 | '| Action Push_String_Extended,0x127 ; "Linefeed"
00e7 e001 | | Load 0x0,0x1
00e8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00e9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ea c20e | | Store 0x1,0xe
00eb 005b | [ | Store_Top Discrete,At_Offset_3
00ec 00e1 | | Load_Encached Boolean_Cache
00ed e001 | | Load 0x0,0x1
00ee 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00ef 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00f0 00da | | Load_Top At_Offset_2
00f1 0092 0124 | $| Action Push_String_Extended,0x124 ; "Carriage_Return"
00f3 e001 | | Load 0x0,0x1
00f4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00f5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00f6 c20d | | Store 0x1,0xd
00f7 005b | [ | Store_Top Discrete,At_Offset_3
00f8 00e1 | | Load_Encached Boolean_Cache
00f9 e001 | | Load 0x0,0x1
00fa 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00fb 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00fc 00da | | Load_Top At_Offset_2
00fd 0092 0128 | (| Action Push_String_Extended,0x128 ; "Escape"
00ff e001 | | Load 0x0,0x1
0100 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0101 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0102 c211 | | Store 0x1,0x11
0103 005b | [ | Store_Top Discrete,At_Offset_3
0104 00bc | | Action Signal_Activated
0105 00bb | | Action Signal_Completion
0106 TRAP_0008:
0106 0007 | | Action Break_Optional
0107 00bc | | Action Signal_Activated
0108 00bb | | Action Signal_Completion
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 011a | | .CONST 0x011a ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e003 | | Load 0x0,0x3
0114 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0115 e003 | | Load 0x0,0x3
0116 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0117 e003 | | Load 0x0,0x3
0118 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0119 00ca | | Action Exit_Nullary_Function
011a TRAP_0110:
011a 0007 | | Action Break_Optional
011b 00ea | | Load_Encached Null_String_Cache
011c 00ca | | Action Exit_Nullary_Function
011d ; --------------------------------------------------------------------------------------
011d ; STRING TABLE
011d ; --------------------------------------------------------------------------------------
011d 001a | | .STRTAB 0x001a->0x012a ; "VT100"
011e 001d | | .STRTAB 0x001d->0x012c ; "Enter"
011f 0020 | | .STRTAB 0x0020->0x012f ; "Delete"
0120 0024 | $ | .STRTAB 0x0024->0x0132 ; "C_Left_Bracket"
0121 0030 | 0 | .STRTAB 0x0030->0x0139 ; "Facit"
0122 0033 | 3 | .STRTAB 0x0033->0x013b ; "backspace"
0123 003a | : | .STRTAB 0x003a->0x0140 ; "Rational"
0124 0040 | @ | .STRTAB 0x0040->0x0144 ; "Carriage_Return"
0125 004d | M | .STRTAB 0x004d->0x014b ; "F11"
0126 004e | N | .STRTAB 0x004e->0x014d ; "Backspace"
0127 0055 | U | .STRTAB 0x0055->0x0151 ; "Linefeed"
0128 005b | [ | .STRTAB 0x005b->0x0155 ; "Escape"
0129 005f | _ | .STREND 0x005f->0x0158
012a 5654 3130 |VT10| .STRTAB_STRINGS
0159 0000 0000 | | .BLANK 0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; Debug Table
0160 ; --------------------------------------------------------------------------------------
0160 0004 000d | | .DEBUG4 0x0004,0x000d,0x91cd,0x0000,0x0001,0x0000
0166 f4b0 1825 | %| .XXX[0x8e]
0168 e217 0b64 | d|
016a 3600 007a |6 z|
016c 580c 0ef5 |X |
016e 0b85 b21f | |
0170 0000 3d2c | =,|
0172 0607 b085 | |
0174 c2d9 1180 | |
0176 001e 9603 | |
0178 03e3 42e1 | B |
017a 6c89 c000 |l |
017c 0f4b 0181 | K |
017e fa21 70b6 | !p |
0180 4560 0007 |E` |
0182 a580 c0fe | |
0184 50b8 5b22 |P ["|
0186 f000 03d2 | |
0188 c075 b2a8 | u |
018a 5c2d 92f8 |\- |
018c 0001 e960 | `|
018e 3ad9 742e |: t.|
0190 16c9 bc00 | |
0192 00f4 b80f | |
0194 60da 170b |` |
0196 79f4 0000 |y |
0198 7cac 07b0 || |
019a a90b 85bd | |
019c 3300 003e |3 >|
019e 5603 d88e |V |
01a0 85c2 de99 | |
01a2 8000 1f2b | +|
01a4 01ec 4742 | GB|
01a6 e16f 4cc0 | oL |
01a8 000f 9580 | |
01aa f623 a170 | # p|
01ac b7a6 6000 | ` |
01ae 07ca c07b | {|
01b0 11d0 b85b | [|
01b2 d330 0003 | 0 |
01b4 e560 3d88 | `= |
01b6 e85c 2df4 | \- |
01b8 0800 01f2 | |
01ba c021 eb14 | ! |
01bc 2e16 fa04 |. |
01be 0000 f960 | `|
01c0 10f5 8a17 | |
01c2 0b7d 0200 | } |
01c4 007c b008 | | |
01c6 7ac5 0b85 |z |
01c8 be81 0000 | |
01ca 3e58 043d |>X =|
01cc 6285 c2df |b |
01ce 4080 001f |@ |
01d0 2c02 1eb1 |, |
01d2 42e1 6fa0 |B o |
01d4 4000 0f96 |@ |
01d6 010f 58a1 | X |
01d8 70b7 d020 |p |
01da 0007 cb00 | |
01dc 87ac 50b8 | P |
01de 5be8 1000 |[ |
01e0 03e5 8043 | C|
01e2 d628 5c2d | (\-|
01e4 f408 0001 | |
01e6 f2c0 21eb | ! |
01e8 142e 16fa | . |
01ea 0400 00f9 | |
01ec 6010 f58a |` |
01ee 170b 7d02 | } |
01f0 0000 7cb0 | | |
01f2 087a c400 | z |
01f4 0000 0000 | | .BLANK 0000[0xc]