|
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_02f8e7
└─⟦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 0048 | H | .CONST 0x0048 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0003 | | .CONST 0x0003 ; Number of locals
000b INIT_0008:
000b 4801 |H | Short_Literal 0x1
000c 4880 |H | Short_Literal 0x80
000d 00e9 | | Load_Encached String_Cache
000e 0334 | 4 | Declare_Variable Array,With_Constraint
000f 00e3 | | Load_Encached Natural_Cache
0010 BODY_0008:
0010 0092 0027 | '| Action Push_String_Extended,0x27 ; "Is this truly an Urgent issue? (Yes or No) [No] :"
0012 e01a | | Load 0x0,0x1a
0013 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0014 00e3 | | Load_Encached Natural_Cache
0015 e802 | | Load 0x4,0x2
0016 e01a | | Load 0x0,0x1a
0017 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0018 00d1 | | Pop_Control Pop_Count_1
0019 c803 | | Store 0x4,0x3
001a 00d8 | | Load_Top At_Offset_0
001b 0c01 | | Execute_Immediate Greater_Equal,0x1
001c 6808 |h | Jump_Zero 0x25
001d 0092 0028 | (| Action Push_String_Extended,0x28 ; "YES"
001f 4801 |H | Short_Literal 0x1
0020 e803 | | Load 0x4,0x3
0021 e802 | | Load 0x4,0x2
0022 01cf | | Execute Vector,Slice_Read
0023 8607 | | Call 0x3,0x7
0024 00ca | | Action Exit_Nullary_Function
0025 4800 |H | Short_Literal 0x0
0026 00ca | | Action Exit_Nullary_Function
0027 ; --------------------------------------------------------------------------------------
0027 ; STRING TABLE
0027 ; --------------------------------------------------------------------------------------
0027 0006 | | .STRTAB 0x0006->0x002a ; "Is this truly an Urgent issue? (Yes or No) [No] :"
0028 0036 | 6 | .STRTAB 0x0036->0x0043 ; "YES"
0029 0037 | 7 | .STREND 0x0037->0x0044
002a 4973 2074 |Is t| .STRTAB_STRINGS
0045 0000 0000 | | .XXX[0x3]
0047 0000 | |
0048 ; --------------------------------------------------------------------------------------
0048 ; Debug Table
0048 ; --------------------------------------------------------------------------------------
0048 0004 0000 | | .DEBUG4 0x0004,0x0000,0x11f3,0x0000,0x0001,0x0000
004e c195 c985 | | .XXX[0x9c]
0050 d1bd c8b9 | |
0052 0591 917d | }|
0054 51bd 7d1d |Q } |
0056 c9bd d5c0 | |
0058 0000 0024 | $|
005a 0000 0090 | |
005c 85d1 bdbd | |
005e b1cc b9cd | |
0060 e5cd d195 | |
0062 b57d d5d1 | } |
0064 a5b1 a5d1 | |
0066 a595 ccb9 | |
0068 bdd5 d1c1 | |
006a d5d1 7d8d | } |
006c bdd5 b9d0 | |
006e 0000 0024 | $|
0070 0000 0090 | |
0072 8551 bdbd | Q |
0074 b1cc b94d | M|
0076 e5cd d195 | |
0078 b57d 55d1 | }U |
007a a5b1 a5d1 | |
007c a595 ccb9 | |
007e 3dd5 d1c1 |= |
0080 d5d1 7d0d | } |
0082 bdd5 b9d0 | |
0084 0000 0000 | |
0086 0599 95f8 | |
0088 2758 9406 |'X |
008a 8ffe b803 | |
008c ed65 b800 | e |
008e 0000 1200 | |
0090 0000 4042 | @B|
0092 e8de ded8 | |
0094 e65c e6f2 | \ |
0096 e6e8 cada | |
0098 beea e8d2 | |
009a d8d2 e8d2 | |
009c cae6 5cd4 | \ |
009e dec4 bedc | |
00a0 c2da ca00 | |
00a2 0000 1200 | |
00a4 0000 4042 | @B|
00a6 a8de ded8 | |
00a8 e65c a6f2 | \ |
00aa e6e8 cada | |
00ac beaa e8d2 | |
00ae d8d2 e8d2 | |
00b0 cae6 5c94 | \ |
00b2 dec4 be9c | |
00b4 c2da ca00 | |
00b6 0000 0002 | |
00b8 ccd1 ae13 | |
00ba ad68 02cc | h |
00bc dc80 02cc | |
00be e4b2 0000 | |
00c0 0009 0000 | |
00c2 001d 2174 | !t|
00c4 6f6f 6c73 |ools|
00c6 2e73 7973 |.sys|
00c8 7465 6d5f |tem_|
00ca 7574 696c |util|
00cc 6974 6965 |itie|
00ce 732e 696d |s.im|
00d0 6167 6500 |age |
00d2 0000 0900 | |
00d4 0000 1d21 | !|
00d6 546f 6f6c |Tool|
00d8 732e 5379 |s.Sy|
00da 7374 656d |stem|
00dc 5f55 7469 |_Uti|
00de 6c69 7469 |liti|
00e0 6573 2e49 |es.I|
00e2 6d61 6765 |mage|
00e4 0000 0000 | |
00e6 0166 6bf0 | fk |
00e8 09d7 4300 | C |
00ea 0000 0000 | | .BLANK 0000[0x5]
00ef 0480 0000 | | .XXX[0x3c]
00f1 1810 ba37 | 7|
00f3 b7b6 3997 | 9 |
00f5 39bc b9ba |9 |
00f7 32b6 afba |2 |
00f9 ba34 b634 | 4 4|
00fb ba34 b2b9 | 4 |
00fd 9736 b0b7 | 6 |
00ff 3ab3 30b1 |: 0 |
0101 ba3a b932 | : 2|
0103 b939 afb1 | 9 |
0105 30b2 2fb1 |0 / |
0107 3637 b1b5 |67 |
0109 b980 0000 | |
010b 0480 0000 | |
010d 1810 aa37 | 7|
010f b7b6 3997 | 9 |
0111 29bc b9ba |) |
0113 32b6 afaa |2 |
0115 ba34 b634 | 4 4|
0117 ba34 b2b9 | 4 |
0119 9726 b0b7 | & |
011b 3ab3 30b1 |: 0 |
011d ba3a b932 | : 2|
011f b939 afa1 | 9 |
0121 30b2 2fa1 |0 / |
0123 3637 b1b5 |67 |
0125 b980 0000 | |
0127 0000 b337 | 7|
0129 6c84 ebe9 |l |
012b 0000 0000 | | .BLANK 0000[0x5]
0130 0002 4000 | @ | .XXX[0x65]
0132 000a 085d | ]|
0134 1bdb db1c | |
0136 cb9c de5c | \|
0138 dd19 5b57 | [W|
013a dd5d 1a5b | ] [|
013c 1a5d 1a59 | ] Y|
013e 5ccb 9cd9 |\ |
0140 5cdc da5b |\ [|
0142 db97 da5d | ]|
0144 195c 985d | \ ]|
0146 1bdc 8000 | |
0148 0002 4000 | @ |
014a 000a 0855 | U|
014c 1bdb db1c | |
014e cb94 de5c | \|
0150 dd19 5b57 | [W|
0152 d55d 1a5b | ] [|
0154 1a5d 1a59 | ] Y|
0156 5ccb 94d9 |\ |
0158 5cdc da5b |\ [|
015a db97 d25d | ]|
015c 195c 985d | \ ]|
015e 1bdc 8000 | |
0160 0000 0059 | Y|
0162 9cbc 8276 | v|
0164 1840 599e | @Y |
0166 3ec0 6907 |> i |
0168 5220 0000 |R |
016a 0120 0000 | |
016c 03e4 2e8d | . |
016e eded 8e65 | e|
0170 ce6f 2e6e | o.n|
0172 8cad abee | |
0174 ae8d 2d8d | - |
0176 2e8d 2cae |. , |
0178 65ce 6cae |e l |
017a 6e6d 2ded |nm- |
017c c000 0001 | |
017e 2000 0003 | |
0180 e42a 8ded | * |
0182 ed8e 65ca | e |
0184 6f2e 6e8c |o.n |
0186 adab eaae | |
0188 8d2d 8d2e | - .|
018a 8d2c ae65 | , e|
018c ca6c ae6e | l n|
018e 6d2d edc0 |m- |
0190 0000 0000 | |
0192 2cce d161 |, a|
0194 3b1e |; |
0195 0000 0000 | | .BLANK 0000[0x6]
019b 9000 0001 | | .XXX[0x28]
019d c217 46f6 | F |
019f f6c7 32e7 | 2 |
01a1 3797 3746 |7 7F|
01a3 56d5 f757 |V W|
01a5 4696 c697 |F |
01a7 4696 5732 |F W2|
01a9 e746 1706 | F |
01ab 5000 0000 |P |
01ad 9000 0001 | |
01af c215 46f6 | F |
01b1 f6c7 32e5 | 2 |
01b3 3797 3746 |7 7F|
01b5 56d5 f557 |V W|
01b7 4696 c697 |F |
01b9 4696 5732 |F W2|
01bb e546 1706 | F |
01bd 5000 0000 |P |
01bf 0016 6799 | g |
01c1 409d 97f0 |@ |
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 0050 0000 | P | .XXX[0x23]
01ca 00b3 1b7b | {|
01cc 6b6b 0b73 |kk s|
01ce 2399 7323 |# s#|
01d0 0b2b 6b7b | +k{|
01d2 7173 9ba3 |qs |
01d4 0ba3 ab98 | |
01d6 0000 0048 | H|
01d8 0000 00b9 | |
01da 0a1b 7b6b | {k|
01dc 6b0b 7323 |k s#|
01de 9972 230b | r# |
01e0 2b6b 7b71 |+k{q|
01e2 729b a30b |r |
01e4 a3ab 9800 | |
01e6 0000 000b | |
01e8 33e3 684e |3 hN|
01ea d070 | p |
01eb 0000 0000 | | .BLANK 0000[0x5]
01f0 0068 0000 | h | .XXX[0x10]
01f2 0029 8dbd | ) |
01f4 b1b1 958d | |
01f6 d1a5 bdb8 | |
01f8 0000 0024 | $|
01fa 0000 0090 | |
01fc 850d bdb5 | |
01fe b585 b991 | |