|
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 0188 ae5e | ^| .XXX[0x9a]
0168 7b66 3ec8 |{f> |
016a 8158 9622 | X "|
016c bc34 a5af | 4 |
016e 1503 3318 | 3 |
0170 3b31 3172 |;11r|
0172 981b ee66 | f|
0174 6552 6251 |eRbQ|
0176 2330 9f9e |#0 |
0178 4dcb 284a |M (J|
017a 9593 1000 | |
017c 02a2 524f | RO|
017e 6247 6281 |bGb |
0180 9556 8a75 | V u|
0182 5215 8892 |R |
0184 74e9 792a |t y*|
0186 5862 634a |XbcJ|
0188 5c14 4d4d |\ MM|
018a 4d88 ef3e |M >|
018c 50df 547e |P T~|
018e 26d5 e09e |& |
0190 18b5 d94c | L|
0192 e953 8253 | S S|
0194 464c 3899 |FL8 |
0196 56b0 a29a |V |
0198 06cd 4dcb | M |
019a 13c2 5132 | Q2|
019c c5c7 267b | &{|
019e c9e0 6855 | hU|
01a0 ce66 a7bc | f |
01a2 0a57 c84a | W J|
01a4 a26c 79cc | ly |
01a6 b49b ee92 | |
01a8 14e7 3b09 | ; |
01aa 8ab5 251b | % |
01ac 9795 b15b | [|
01ae caa1 322d | 2-|
01b0 373b a316 |7; |
01b2 512a 5e39 |Q*^9|
01b4 6fb1 4a24 |o J$|
01b6 c426 27ab | &' |
01b8 8cf8 99e2 | |
01ba c53f 94b6 | ? |
01bc 3a27 4c5f |:'L_|
01be cf9e a130 | 0|
01c0 098e 9f2a | *|
01c2 5d25 e9b5 |]% |
01c4 5564 cc06 |Ud |
01c6 4ef8 a8dd |N |
01c8 8ec7 2b00 | + |
01ca 619a 315a |a 1Z|
01cc a5ea cd55 | U|
01ce 4b19 c254 |K T|
01d0 e84e 30c5 | N0 |
01d2 8209 5fe4 | _ |
01d4 67ed 54e9 |g T |
01d6 0111 8ca2 | |
01d8 0984 975b | [|
01da 90d1 5b99 | [ |
01dc 2637 650a |&7e |
01de 5656 3c43 |VV<C|
01e0 92a6 ccc9 | |
01e2 b488 6fed | o |
01e4 e920 aec4 | |
01e6 a6d8 c461 | a|
01e8 2371 9232 |#q 2|
01ea 0eb7 31e1 | 1 |
01ec a0ad ed8e | |
01ee 54e1 be97 |T |
01f0 3ee0 64aa |> d |
01f2 b8b2 3a54 | :T|
01f4 ae8c 579f | W |
01f6 2b1b 24ec |+ $ |
01f8 31ca c94a |1 J|
01fa c23c e6f3 | < |
01fc 7a54 1d32 |zT 2|
01fe 836f 9a11 | o |