|
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 00b0 | | .CONST 0x00b0 ; 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 0011 | | .CONST 0x0011 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0004 | | .CONST 0x0004 ; 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 00e3 | | Load_Encached Natural_Cache
0011 BODY_0008:
0011 4807 |H | Short_Literal 0x7
0012 8412 | | Call 0x2,0x12
0013 e01a | | Load 0x0,0x1a
0014 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0015 0092 004f | O| Action Push_String_Extended,0x4f ; "["
0017 4807 |H | Short_Literal 0x7
0018 e411 | | Load 0x2,0x11
0019 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
001a 01d7 | | Execute Vector,Field_Read
001b e402 | | Load 0x2,0x2
001c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
001d 01cc | | Execute Vector,Catenate
001e 0092 0050 | P| Action Push_String_Extended,0x50 ; "]"
0020 01cc | | Execute Vector,Catenate
0021 e01a | | Load 0x0,0x1a
0022 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0023 00e2 | | Load_Encached Integer_Cache
0024 e602 | | Load 0x3,0x2
0025 8413 | | Call 0x2,0x13
0026 00d1 | | Pop_Control Pop_Count_1
0027 c603 | | Store 0x3,0x3
0028 e603 | | Load 0x3,0x3
0029 0c01 | | Execute_Immediate Greater_Equal,0x1
002a 680f |h | Jump_Zero 0x3a
002b e411 | | Load 0x2,0x11
002c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
002d 4807 |H | Short_Literal 0x7
002e e605 | | Load 0x3,0x5
002f 01d7 | | Execute Vector,Field_Read
0030 4801 |H | Short_Literal 0x1
0031 e603 | | Load 0x3,0x3
0032 e602 | | Load 0x3,0x2
0033 01cf | | Execute Vector,Slice_Read
0034 e402 | | Load 0x2,0x2
0035 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0036 4807 |H | Short_Literal 0x7
0037 e605 | | Load 0x3,0x5
0038 01d6 | | Execute Vector,Field_Write
0039 00d1 | | Pop_Control Pop_Count_1
003a 4801 |H | Short_Literal 0x1
003b e01a | | Load 0x0,0x1a
003c 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
003d 0092 0051 | Q| Action Push_String_Extended,0x51 ; "Describe the problem or enhancement, including what you did, "
003f e01a | | Load 0x0,0x1a
0040 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0041 0092 0052 | R| Action Push_String_Extended,0x52 ; "what you expected to happen, and what actually happened."
0043 e01a | | Load 0x0,0x1a
0044 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0045 0092 0053 | S| Action Push_String_Extended,0x53 ; "Include any text from other windows which might be helpful."
0047 e01a | | Load 0x0,0x1a
0048 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0049 e411 | | Load 0x2,0x11
004a 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
004b 841c | | Call 0x2,0x1c
004c e411 | | Load 0x2,0x11
004d 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
004e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
004f ; --------------------------------------------------------------------------------------
004f ; STRING TABLE
004f ; --------------------------------------------------------------------------------------
004f 000c | | .STRTAB 0x000c->0x0055 ; "["
0050 000b | | .STRTAB 0x000b->0x0055 ; "]"
0051 000a | | .STRTAB 0x000a->0x0056 ; "Describe the problem or enhancement, including what you did, "
0052 0045 | E | .STRTAB 0x0045->0x0074 ; "what you expected to happen, and what actually happened."
0053 007b | { | .STRTAB 0x007b->0x0090 ; "Include any text from other windows which might be helpful."
0054 00b4 | | .STREND 0x00b4->0x00ae
0055 5b5d 4465 |[]De| .STRTAB_STRINGS
00ae 0000 0000 | | .XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; Debug Table
00b0 ; --------------------------------------------------------------------------------------
00b0 0004 0000 | | .DEBUG4 0x0004,0x0000,0x11f5,0x0000,0x0001,0x0000
00b6 496e 7075 |Inpu| .XXX[0x11]
00b8 745f 4c69 |t_Li|
00ba 6e65 2028 |ne (|
00bc 3120 2e2e |1 ..|
00be 204c 696e | Lin|
00c0 655f 4c65 |e_Le|
00c2 6e67 7468 |ngth|
00c4 2929 3b39 |));9|
00c6 003e | > |
00c7 2020 2020 | | .BLANK 2020[0x6]
00cd 4765 745f |Get_| .XXX[0x27]
00cf 4c69 7374 |List|
00d1 5f4f 665f |_Of_|
00d3 4e75 6d62 |Numb|
00d5 6572 7320 |ers |
00d7 2849 6e70 |(Inp|
00d9 7574 5f46 |ut_F|
00db 696c 652c |ile,|
00dd 204c 6973 | Lis|
00df 745f 4f66 |t_Of|
00e1 5f4e 756d |_Num|
00e3 6265 7273 |bers|
00e5 293b 3e00 |);> |
00e7 1620 2020 | |
00e9 2020 2020 | |
00eb 2077 6865 | whe|
00ed 6e20 6f74 |n ot|
00ef 6865 7273 |hers|
00f1 203d 3e16 | => |
00f3 0036 | 6 |
00f4 2020 2020 | | .BLANK 2020[0x6]
00fa 5465 7874 |Text| .XXX[0x17]
00fc 5f49 6f2e |_Io.|
00fe 5075 745f |Put_|
0100 4c69 6e65 |Line|
0102 2028 2249 | ("I|
0104 276d 2069 |'m i|
0106 676e 6f72 |gnor|
0108 696e 6720 |ing |
010a 696e 7075 |inpu|
010c 7420 2722 |t '"|
010e 2026 3600 | &6 |
0110 3d20 |= |
0111 2020 2020 | | .BLANK 2020[0xe]
011f 2049 6e70 | Inp| .XXX[0x12]
0121 7574 5f4c |ut_L|
0123 696e 6520 |ine |
0125 2831 202e |(1 .|
0127 2e20 4c69 |. Li|
0129 6e65 5f4c |ne_L|
012b 656e 6774 |engt|
012d 6829 2026 |h) &|
012f 3d00 3120 |= 1 |
0131 2020 2020 | | .BLANK 2020[0xe]
013f 2022 2720 | "' | .XXX[0xc]
0141 616e 6420 |and |
0143 6769 7669 |givi|
0145 6e67 2075 |ng u|
0147 7022 293b |p");|
0149 3100 1320 |1 |
014b 2020 2020 | | .BLANK 2020[0x5]
0150 2072 6574 | ret| .XXX[0x95]
0152 7572 6e3b |urn;|
0154 1300 0d20 | |
0156 2020 2065 | e|
0158 6e64 2063 |nd c|
015a 6173 653b |ase;|
015c 0d00 0000 | |
015e 0000 0000 | |
0160 1f20 2020 | |
0162 202d 2d7c | --||
0164 2040 494e | @IN|
0166 5445 5246 |TERF|
0168 4143 4520 |ACE |
016a 4449 5350 |DISP|
016c 4c41 595f |LAY_|
016e 5355 4d53 |SUMS|
0170 1f00 0000 | |
0172 0013 2020 | |
0174 2020 2d2d | --|
0176 2050 7269 | Pri|
0178 6e74 2072 |nt r|
017a 6570 6f72 |epor|
017c 7413 0006 |t |
017e 2020 2020 | |
0180 2d2d 0600 |-- |
0182 1520 2020 | |
0184 2054 6578 | Tex|
0186 745f 496f |t_Io|
0188 2e4e 6577 |.New|
018a 5f4c 696e |_Lin|
018c 653b 1500 |e; |
018e 4320 2020 |C |
0190 2054 6578 | Tex|
0192 745f 496f |t_Io|
0194 2e50 7574 |.Put|
0196 5f4c 696e |_Lin|
0198 6520 2822 |e ("|
019a 496e 7075 |Inpu|
019c 7420 636f |t co|
019e 6d70 6c65 |mple|
01a0 7465 2c20 |te, |
01a2 6e6f 7720 |now |
01a4 6765 6e65 |gene|
01a6 7261 7469 |rati|
01a8 6e67 2073 |ng s|
01aa 7461 7469 |tati|
01ac 7374 6963 |stic|
01ae 7322 293b |s");|
01b0 4300 1520 |C |
01b2 2020 2054 | T|
01b4 6578 745f |ext_|
01b6 496f 2e4e |Io.N|
01b8 6577 5f4c |ew_L|
01ba 696e 653b |ine;|
01bc 1500 2a20 | * |
01be 2020 2054 | T|
01c0 6578 745f |ext_|
01c2 496f 2e50 |Io.P|
01c4 7574 5f4c |ut_L|
01c6 696e 6520 |ine |
01c8 2822 2b22 |("+"|
01ca 2026 2048 | & H|
01cc 6561 6465 |eade|
01ce 7220 2620 |r & |
01d0 222b 2229 |"+")|
01d2 3b2a 0014 |;* |
01d4 2020 2020 | |
01d6 5465 7874 |Text|
01d8 5f49 6f2e |_Io.|
01da 5075 745f |Put_|
01dc 4c69 6e65 |Line|
01de 1400 4020 | @ |
01e0 2020 2020 | |
01e2 2020 2822 | ("|
01e4 7c20 || |
01e5 2020 2020 | | .BLANK 2020[0x4]
01e9 5374 6174 |Stat| .XXX[0x17]
01eb 6973 7469 |isti|
01ed 6373 206f |cs o|
01ef 6e20 6120 |n a |
01f1 7365 7420 |set |
01f3 6f66 2043 |of C|
01f5 6f6d 706c |ompl|
01f7 6578 204e |ex N|
01f9 756d 6265 |umbe|
01fb 7273 2020 |rs |
01fd 2020 2020 | |
01ff 2040 | @ |