1 /2 LINCTAPE SYSTEM HANDLER 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 / 11 /COPYRIGHT (C) 1974,1975,1977 BY DIGITAL EQUIPMENT CORPORATION 12 / 13 / 14 / 15 / 16 / 17 / 18 / 19 / 20 / 21 / 22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 24 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 25 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 26 / 27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 29 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 31 / 32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 34 /DIGITAL. 35 / 36 / 37 / 38 / 39 / 40 / 41 / 42 / 43 / 44 / 45 / SOFSET=7747 46 SBLOCK=7776 47 LINC=6141 48 AXO=1 49 PDP=2 50 TMA=23 51 *0 52 53 VERSION="B&77 54 55 000000 7776 -2 56 000001 1411 DEVICE LINC;DEVICE SYS;4171;2007;0;1341 000002 1603 000003 2331 000004 2300 000005 4171 000006 2007 000007 0000 000010 1341 57 000011 1411 DEVICE LINC;DEVICE LTA0;4171;1007;0;1341 000012 1603 000013 1424 000014 0160 000015 4171 000016 1007 000017 0000 000020 1341 58 59 /V3D: REMOVED 'SOFSET' 60 000021 7732 STARTB-ENDB-1 61 62 NOPUNCH 63 *7600 64 ENPUNCH 65 66 007600 0000 STARTB, ZBLOCK 16 007601 0000 007602 0000 007603 0000 007604 0000 007605 0000 007606 0000 007607 0000 007610 0000 007611 0000 007612 0000 007613 0000 007614 0000 007615 0000 67 007616 4047 B4047, 4047 68 007617 7647 B7647, 7647 69 007620 1020 1020;20;4 /IO PRESET 007621 0020 007622 0004 70 007623 1020 1020;20;AXO /LOAD SOME LINCTAPE FLAGS 007624 0020 007625 0001 71 007626 1020 1020;7600;TMA /LOAD MEMORY ADDRESS 007627 7600 007630 0023 72 007631 0720 720;1 /READ RECORD 1 007632 0001 73 007633 0002 PDP /BACK TO PDP-8 MODE 74 007634 7200 CLA 75 007635 1616 TAD I B4047 76 007636 6211 CDF 10 77 007637 3617 DCA I B7647 78 007640 6201 CDF 00 79 007641 2216 ISZ B4047 80 007642 2217 ISZ B7647 81 007643 5235 JMP .-6 82 007644 5645 JMP I .+1 83 007645 7605 ENDB, 7605 84 85 86 87 /THE BOOTSTRAP FOR A LINCTAPE SYSTEM IS AS FOLLOWS: 88 89 /LEFT SWITCHES=700,RIGHT SWITCHES=0 90 /I-O PRESET IN LINC MODE AND PRESS "D0". TAPE WILL MOVE 91 /WHEN TAPE STOPS PRESS "START 20". 92 *200 93 94 NOPUNCH;*7600;ENPUNCH 95 96 007600 0000 ZBLOCK 7 007601 0000 007602 0000 007603 0000 007604 0000 007605 0000 007606 0000 97 007607 0002 SHNDLR, VERSION 98 007610 7600 S7600, 7600 99 007611 6214 RDF 100 007612 1340 TAD SCIF 101 007613 3330 DCA SXIT 102 007614 1607 TAD I SHNDLR 103 007615 3332 DCA SFUN /FUNCTION 104 007616 2207 ISZ SHNDLR 105 007617 1607 TAD I SHNDLR 106 007620 3333 DCA SADR /BUFFER ADDRESS 107 007621 2207 ISZ SHNDLR 108 007622 1607 TAD I SHNDLR 109 /V3D TAD SOFSET /SOFSET=0 110 007623 7000 NOP /SAVE ROOM 111 007624 7104 CLL RAL 112 007625 3272 DCA SBLOK /BLOCK NO. 113 007626 2207 ISZ SHNDLR 114 007627 7130 CLL CML RAR 115 007630 0332 AND SFUN 116 007631 7006 RTL 117 007632 7006 RTL 118 007633 1335 TAD S702 /GET FUNCTION;CREATE READ OR WRITE 119 007634 3271 DCA SINST /READ OR WRITE INSTRUCTION. 120 007635 1332 TAD SFUN 121 007636 0337 AND S70 /FIELD BITS TO AC 0-2 122 007637 1341 TAD SADCDF 123 007640 3256 DCA SADSET 124 007641 1256 TAD SADSET 125 007642 0337 AND S70 126 007643 7006 RTL 127 007644 7007 IAC RTL /SET EXTENDED ADDRESS 128 007645 7006 RTL 129 007646 6141 LINC 130 007647 0001 AXO 131 007650 0002 PDP 132 007651 7200 CLA 133 007652 1332 TAD SFUN 134 007653 7004 RAL 135 007654 0210 AND S7600 136 007655 3332 DCA SFUN 137 007656 0000 SADSET, 0 138 007657 7346 SLOOP, CLA CLL CMA RTL 139 007660 3334 DCA SERRCT /NO. ERROR TRIES 140 007661 1333 STRY, TAD SADR 141 007662 1336 TAD S200 142 007663 3342 DCA SADNXT 143 007664 1742 TAD I SADNXT 144 007665 3343 DCA SADSVC 145 007666 1333 TAD SADR 146 007667 6141 LINC 147 007670 0023 TMA /CORE ADDRESS TO CONTROL 148 007671 0000 SINST, 0 /READ OR WRITE 149 007672 0000 SBLOK, 0 /BLOCK NO. HERE 150 007673 0002 PDP 151 007674 7040 CMA /CHECKSUM HERE. 7777=GOOD 152 007675 3256 DCA SADSET 153 007676 1343 TAD SADSVC 154 007677 3742 DCA I SADNXT 155 IFNZRO .-7700 156 007700 7410 SKP 157 007701 7402 HLT 158 007702 1256 TAD SADSET 159 007703 7640 SZA CLA 160 007704 5316 JMP SERR 161 007705 2272 SOK, ISZ SBLOK 162 007706 1342 TAD SADNXT 163 007707 3333 DCA SADR 164 007710 1332 TAD SFUN 165 007711 1210 TAD S7600 166 007712 7450 SNA /ALL DONE? 167 007713 5327 JMP SDONE /YES 168 007714 3332 DCA SFUN 169 007715 5257 JMP SLOOP 170 007716 1271 SERR, TAD SINST 171 007717 7012 RTR;RTR 007720 7012 172 007721 7710 SPA CLA /WAS IT READ? 173 007722 5305 JMP SOK /NO..WRITE. CONTINUE 174 007723 2334 ISZ SERRCT /READ..RETRY IT? 175 007724 5261 JMP STRY 176 007725 7330 CLA CLL CML RAR /DON'T BOTHER 177 007726 7410 SKP 178 007727 2207 SDONE, ISZ SHNDLR 179 007730 0000 SXIT, 0 180 007731 5607 JMP I SHNDLR 181 007732 0000 SFUN, 0 182 007733 0000 SADR, 0 183 007734 0000 SERRCT, 0 184 007735 0702 S702, 702 185 007736 0200 S200, 200 186 007737 0070 S70, 70 187 007740 6203 SCIF, CDF CIF 0 188 007741 6201 SADCDF, CDF 0 189 007742 0000 SADNXT, 0 190 007743 0000 SADSVC, 0 191 $