/P?S/8 DSD-240-8/DYNEX SYSTEM HANDLER PAL8-VB0 08-APR-87 PAGE 1 1 /P?S/8 DSD-240-8/DYNEX SYSTEM HANDLER 2 3 / LAST EDIT: 21-NOV-1986 06:00:00 CJL 4 5 / MUST BE ASSEMBLED WITH '/J' SWITCH SET. 6 7 / P?S/8 HANDLER FOR DSD-240-8 DISK CONTROLLER AND WESTERN DYNEX CONTROLLER. 8 9 / CAN BE ASSEMBLED FOR UPPER (REMOVABLE) OR LOWER (FIXED) DISK. 10 11 / CAN BE BOOTSTRAPPED TO ANY UNIT. 12 13 / ASSEMBLY INSTRUCTIONS. 14 15 / SETTING UPPER=4000 GENERATES A HANDLER FOR THE UPPER DISK. 16 / SETTING UPPER=0000 GENERATES A HANDLER FOR THE LOWER DISK. 17 18 / SETTING BTUNIT=0000-0007 GENERATES THE HANDLER FOR THE RESPECTIVE UNIT. 19 / P?S/8 MONITOR GENERATION RESTRICTIONS REQUIRE BTUNIT=0 FOR THE INITIAL 20 / MONITOR, HOWEVER THE OTHER UNITS SHOULD BE PATCHED TO REFLECT THE 21 / CHANGES INTRODUCED BY SETTING BTUNIT TO 0001-0007. 22 23 / SETTING DRIVE=0000 GENERATES A HANDLER FOR DRIVE ZERO. 24 25 / SETTING DEVCODE=0062 GENERATES DEVICE 62 IOT'S. 26 27 / CONDITIONAL ASSEMBLY DEFINITIONS. 28 29 IFNDEF BTUNIT /GENERATE A UNIT ZERO SYSTEM 30 31 IFNDEF DEVCODE /GENERATE DEVICE 62 IOT'S. 32 33 IFNDEF DRIVE /GENERATE A DRIVE ZERO SYSTEM 34 35 IFNDEF UPPER /GENERATE AN UPPER DISK SYSTEM /P?S/8 DSD-240-8/DYNEX SYSTEM HANDLER PAL8-VB0 08-APR-87 PAGE 4 109 / ANY DRIVE BOOTSTRAP. 110 111 NOPUNCH /TURN OFF BINARY OUTPUT 112 113 0000 *0000 /BOOTSTRAP ADDRESS 114 115 000000 4000 BTUNIT%2^626+UPPER /CYLINDER WORD 116 000001 0000 BTUNIT&1^400 /SECTOR WORD 117 000002 0000 0000 /WORD COUNT 118 000003 0000 0000 /CURRENT ADDRESS 119 000004 0000 0000 /RESERVED WORD 120 000005 6624 DEXC /RETURNED CYLINDER WORD 121 000006 5006 JMP . /ZEROED WORD 122 /STATUS RETURNED HERE 123 124 / ENABLE DISK AND START AT 00001-00005 (OR 00000 IF UPPER=0000). 125 126 ENPUNCH /RESTORE BINARY OUTPUT /P?S/8 DSD-240-8/DYNEX SYSTEM HANDLER PAL8-VB0 08-APR-87 PAGE 9 286 1041 RELOC /UN-FOOL THE ASSEMBLER 287 288 / I/O TRAPS COME HERE. 289 290 011041 6214 TRAPIO, RDF /GET CALLING FIELD 291 011042 1244 TAD TRPCDF/(CDF) /MAKE INTO CDF CALLING FIELD 292 011043 3247 DCA TRPINST /STORE IN-LINE 293 011044 6201 TRPCDF, CDF 00 /GOTO MONITOR FIELD 294 011045 1777 TAD I (SYSIO) /GET CALLING ADDRESS 295 011046 3020 DCA CALADR /SAVE FOR ERROR HANDLER 296 011047 0000 TRPINST,.-. /GOTO CALLING FIELD 297 011050 1247 TAD TRPINST /GET CDF CALLING FIELD 298 011051 3021 DCA CALFLD /SAVE FOR ERROR HANDLER 299 011052 7201 NL0001 /SET CIF BIT 300 011053 1247 TAD TRPINST /NOW HAVE CIF CALLING FIELD 301 011054 6202 CIF 00 /GOTO MONITOR FIELD 302 011055 5776 JMP I (SYSIO+6) /CONTINUE THERE 303 304 / ERROR BLURBS. 305 306 011056 4024 DLERR, TEXT " TRANSFER LATE"/DATA LATE ERROR BLURB 307 011057 2201 308 011060 1623 309 011061 0605 310 011062 2240 311 011063 1401 312 011064 2405 313 011065 4003 SEEK, TEXT " CYLINDER SEEK"/SEEK ERROR BLURB 314 011066 3114 315 011067 1116 316 011070 0405 317 011071 2240 318 011072 2305 319 011073 0513 320 011074 4040 PARITY, TEXT " READ PARITY"/PARITY ERROR BLURB 321 011075 4022 322 011076 0501 323 011077 0440 324 011100 2001 325 011101 2211 326 011102 2431 327 011103 4004 NONEXIS,TEXT " DISK EXCEEDED"/NON-EXISTANT TRACK ERROR BLURB 328 011104 1123 329 011105 1340 330 011106 0530 331 011107 0305 332 011110 0504 333 011111 0504 /P?S/8 DSD-240-8/DYNEX SYSTEM HANDLER PAL8-VB0 08-APR-87 PAGE 10 334 011112 4011 DRVERR, TEXT " INTERNAL DISK"/INTERNAL DRIVE ERROR BLURB 335 011113 1624 336 011114 0522 337 011115 1601 338 011116 1440 339 011117 0411 340 011120 2313 341 011121 4027 WRILOCK,TEXT " WRITE PROTECT"/WRITE-LOCK ERROR BLURB 342 011122 2211 343 011123 2405 344 011124 4020 345 011125 2217 346 011126 2405 347 011127 0324 348 011130 4040 DRVBSY, TEXT " DRIVE BUSY"/DRIVE BUSY ERROR BLURB 349 011131 4040 350 011132 0422 351 011133 1126 352 011134 0540 353 011135 0225 354 011136 2331 355 356 0007 BLBLEN= .-DRVBSY /LENGTH OF ERROR BLURBS 357 358 011176 7646 359 011177 7640 360 1200 PAGE