projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 7af5ad59 PH |
1 | /2 TC08 SYSTEM HANDLER |
| 2 | / | |
| 3 | / | |
| 4 | / | |
| 5 | / | |
| 6 | / | |
| 7 | / | |
| 8 | / | |
| 9 | / | |
| 10 | / | |
| 11 | /COPYRIGHT (C) 1974,1975 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 | \f VERSION="B&77 | |
| 46 | *0 | |
| 47 | -2 | |
| 48 | DEVICE TC08;DEVICE SYS;4161;2007;0;1341 | |
| 49 | DEVICE TC08;DEVICE DTA0;4161;1007;0;1341 | |
| 50 | \f STARTB-ENDB-1 /NEGATIVE OF LENGTH OF BOOTSTRAP | |
| 51 | ||
| 52 | NOPUNCH | |
| 53 | *7600 | |
| 54 | ENPUNCH | |
| 55 | ||
| 56 | STARTB, TAD B600 /THIS CODE ONLY EXECUTED ON DMS-TYPE BOOTSTRAP | |
| 57 | DTCA DTXA /ALL IT DOES IS SIMULATE THE OTHER TYPE OF BOOTSTRAP | |
| 58 | DTSF /MORAL: DISK MONITOR SYSTEM SUCKS | |
| 59 | JMP .-1 | |
| 60 | DCA BOOTX | |
| 61 | DCA BOOTX+1 /FUDGE TO MAKE USE OF SOME COMMON CODE | |
| 62 | TAD B620 | |
| 63 | JMP BOOT3 /START READING OVER OURSELVES WITH RECORD 0 AGAIN | |
| 64 | ZBLOCK 7611-. | |
| 65 | BM7642, -7641 /MUST BE BEFORE 7617 | |
| 66 | BOOT1, TAD 7755 | |
| 67 | TAD BM7642 | |
| 68 | SNA CLA /WATCH THE PROGRESS OF THE READ | |
| 69 | JMP BOOT2 /WHEN IT GETS PAST 7643, SWITCH TO FIELD 1 | |
| 70 | NOP /LOADS OVER DTSF IN 7616 | |
| 71 | JMP BOOT1 /LOADS OVER JMP .-1 IN 7617 - STARTS BOOTSTRAP | |
| 72 | BOOT2, TAD B10 | |
| 73 | DTLB /ZAP A 10 INTO STATUS REG B TO LOAD INTO FIELD 1 | |
| 74 | DTSF /FROM HERE ON - LOAD THE FIELD 1 RESIDENT INTO FIELD 1 | |
| 75 | JMP .-1 | |
| 76 | BOOT3, DTXA /CONTINUE READING NEXT RECORD(ALSO SEE CODE AT 7600) | |
| 77 | DTLB /INTO FIELD 0 | |
| 78 | TAD B7577 | |
| 79 | DCA 7755 /PAGE 7600 | |
| 80 | DCA 7754 | |
| 81 | BOOTX, CDF CIF 10 | |
| 82 | JMP 7642 /JUMP INTO WAIT LOOP IN FIELD 1 | |
| 83 | JMP BOOT1 /DISK MONITOR FUDGE - JUMP INTO WAITING LOOP | |
| 84 | B7577, 7577 | |
| 85 | B10, 10 | |
| 86 | B600, 600 | |
| 87 | B620, 620 | |
| 88 | ZBLOCK 7642-. | |
| 89 | DCA 7744 | |
| 90 | DTSF /THIS IS LOADED INTO FIELD 1 WITH MONITOR RESIDENT | |
| 91 | JMP .-1 /IT IS IN THE CD OUTPUT AREA AND SO WILL BE ZAPPED | |
| 92 | CDF CIF 0 /BY THE KEYBOARD MONITOR | |
| 93 | ENDB, JMP 7605 /OK, FIELD 0 RESIDENT READ IN, START UP MONITOR | |
| 94 | ||
| 95 | /BOOTSTRAP FOR DECTAPE MONITOR IS THE SAME AS FOR THE | |
| 96 | /DEC LIBRARY SYSTEM, RL MONITOR AND POLY BASIC - OR JUST | |
| 97 | /READ RECORD 0 INTO 7600 AND TRANSFER TO 7600 A LA DISK | |
| 98 | /MONITOR SYSTEM ON DECTAPE | |
| 99 | \f DTRB=6772 | |
| 100 | DTLB=6774 | |
| 101 | DTXA=6764 | |
| 102 | DTCA=6762 | |
| 103 | DTRA=6761 | |
| 104 | DTSF=6771 | |
| 105 | ||
| 106 | *200 | |
| 107 | ||
| 108 | NOPUNCH | |
| 109 | *7600 | |
| 110 | ENPUNCH | |
| 111 | ||
| 112 | SBLOCK=7776 /RELIC FROM OS/8 ASSEMBLY | |
| 113 | ZBLOCK 7 | |
| 114 | SHNDLR, VERSION | |
| 115 | CLA CLL CMA RTL | |
| 116 | DCA SYSCNT /3 TRIES ON ERROR | |
| 117 | RDF | |
| 118 | TAD SCIF | |
| 119 | DCA SFIELD /RETURN FIELD SETUP | |
| 120 | TAD I SHNDLR | |
| 121 | DCA SFUN | |
| 122 | ISZ SHNDLR | |
| 123 | CLA CMA | |
| 124 | TAD I SHNDLR | |
| 125 | DCA SLOC /BUFFER ADDRESS-1 | |
| 126 | ISZ SHNDLR | |
| 127 | STRY, TAD S410 /SETUP DTA0 TO DO SEARCH REVERSE | |
| 128 | DTCA DTXA /BUT MOTION BIT IS NOT ON | |
| 129 | DTLB | |
| 130 | CLA CMA CLL RAL | |
| 131 | DCA SCA /7776=SBLOCK FROM OS/8 ASSEMBLY | |
| 132 | TAD SFUN | |
| 133 | RTR | |
| 134 | RTR | |
| 135 | SERR, RTL | |
| 136 | RAL /LAST 4 INST. PUT MOTION BIT IN LINK | |
| 137 | /IF THIS BIT WAS SET IN THE CALLING | |
| 138 | /SEQUENCE, SEARCH STARTS FORWARD. | |
| 139 | S7600, 7600 | |
| 140 | TAD S200 | |
| 141 | SC, SZL | |
| 142 | TAD S400 | |
| 143 | DTXA /ZAP MOTION BIT ON | |
| 144 | DTSF DTRB | |
| 145 | JMP .-1 | |
| 146 | SPA /CHECK FOR ANY ERRORS | |
| 147 | JMP SERR | |
| 148 | DTRA /NO ERRORS | |
| 149 | RTL | |
| 150 | CMA RTL /COMPLEMENT OF DIRECTION TO LINK | |
| 151 | /IF LINK ON, SEARCHING FORWARD. | |
| 152 | SNL CLA | |
| 153 | CML RTL | |
| 154 | TAD SBLOCK /SEARCH FOR ONE RECORD BEFORE THE | |
| 155 | /REQUIRED ONE. THEN REVERSE DIRECTION | |
| 156 | CMA | |
| 157 | TAD I SHNDLR | |
| 158 | TAD I SHNDLR /X+X=2*X; RECORDS TO BLOCKS | |
| 159 | NOP | |
| 160 | NOP | |
| 161 | CMA | |
| 162 | SZA CLA /IS IT PROPER RECORD? | |
| 163 | JMP SC | |
| 164 | SNL /YES..IF LINK IS ON,WAS FWD SRCH | |
| 165 | JMP SC+1 /REVERSE..REVERSE TAPE MOTION | |
| 166 | /AND SEARCH FORWARD | |
| 167 | TAD SLOC | |
| 168 | DCA SCA | |
| 169 | TAD SFUN | |
| 170 | DTLB /SET UP FIELD | |
| 171 | TAD SFUN | |
| 172 | CLL RAL | |
| 173 | AND S7600 | |
| 174 | DCA SBLKCT /BLOCK COUNT | |
| 175 | RAL /FUNCTION TO BIT 11 | |
| 176 | IFNZRO .-7700 <NZERR> | |
| 177 | SKP | |
| 178 | HLT /TO PROTECT AGAINST BAD PROGRAMMERS | |
| 179 | IAC | |
| 180 | CLL CML RTL | |
| 181 | RTL /FORMS EITHER READ OR WRITE | |
| 182 | SL, DTXA | |
| 183 | TAD S7600 | |
| 184 | DCA SWC /TRANSFER 200 (8) | |
| 185 | DTSF DTRB | |
| 186 | JMP .-1 | |
| 187 | CLL CML /IN CASE OF FATAL ERROR | |
| 188 | SPA CLA | |
| 189 | JMP SERR2 | |
| 190 | TAD SBLKCT | |
| 191 | TAD S7600 | |
| 192 | SNA /ALL DONE? | |
| 193 | JMP SOVER /YES | |
| 194 | DCA SBLKCT | |
| 195 | JMP SL | |
| 196 | SERR2, ISZ SYSCNT /TRY AGAIN? | |
| 197 | JMP STRY | |
| 198 | SKP /DON'T BOTHER | |
| 199 | SOVER, ISZ SHNDLR | |
| 200 | ISZ SHNDLR | |
| 201 | TAD S200 /STOP THE TAPE | |
| 202 | DTXA | |
| 203 | RAR /GIVE FATAL RETURN | |
| 204 | SFIELD, HLT | |
| 205 | JMP I SHNDLR | |
| 206 | \fSCIF, CIF 0 | |
| 207 | S400, 400 | |
| 208 | S200, 200 | |
| 209 | S410, 410 | |
| 210 | SBLKCT=7753 | |
| 211 | SYSCNT=7750 | |
| 212 | SFUN=7751 | |
| 213 | SLOC=7752 | |
| 214 | SWC=7754 | |
| 215 | SCA=7755 | |
| 216 | $ | |
| 217 | \f |