.MAIN. HCD65XX V3.1 10JULY87 PAGE 1 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 1 2 3 4 5 6 7 ;* ------------------ * 8 ;* ---------------------- бурст суброутинес -- (REV 2) ----------- * 9 ;* ------------------ * 10 ;* * 11 ;* тHESE ASSEMBLY LANGUAGE SUB-ROUTINES ARE DESIGNED FOR USE IN YOUR * 12 ;* басиц AND MACHINE CODE PROGRAMS. а басиц PROGRAM NEEDS SIMPLY TO * 13 ;* поке THE APPROPRIATE VALUES INTO THE VARIABLE LOCATIONS SHOWN BELOW, * 14 ;* AND THEN сыс TO THE DESIRED ROUTINE. аLL OF THE бурст PROTOCOL AND * 15 ;* HANDSHAKING IS DONE FOR YOU. тHE басиц PROGRAM CAN THEN пеек ANY * 16 ;* VALUES RETURNED. * 17 ;* 18 ;* тHE ROUTINES IN THIS LISTING THAT REQUIRE DATA BUFFER STORAGE AREAS * 19 ;* ARE PASSED THE LOCATION OF THE BUFFER IN буфлоц. буфлоц POINTS TO * 20 ;* рам LOCATION IN рам BANK 0 OF THE START OF THE BUFFER. сINCE THE * 21 ;* кернел AND и/о ARE NEEDED, YOU MUST PUT буфлоц BELOW $ц000. бUT BE * 22 ;* SURE TO PUT IT IN рам ABOVE YOUR басиц TEXT. аS A GENERAL RULE, * 23 ;* WORK YOUR WAY BACK FROM $ц000 AND YOU'LL BE ок. * 24 ;* 25 ;* тO USE THESE ROUTINES, YOUR басиц PROGRAM MUST FIRST блоад THE FILE * 26 ;* 'бурст субс.бин'. тHE ROUTINES LOAD AT $1300, SO THEY ARE IN A * 27 ;* SAFE PLACE BELOW басиц TEXT AREA. * 28 ;* 29 ;* тHERE IS NO бурст формат ROUTINE PROVIDED. тHE FOLLOWING басиц * 30 ;* COMMANDS WILL FORMAT PHYSICAL TRACKS 10 THROUGH 20 OF THE DISK WITH * 31 ;* 5 1024 BYTE SECTORS: * 32 ;* 33 ;* опен 1,8,15 * 34 ;* принт#1,"у0";цхр$(3);цхр$(20);цхр$(5);цхр$(10); * 35 ;* 36 ;* нOTE THE USE OF THE SEMICOLON (;) AT THE END OF THE STATEMENT. * 37 ;* тHIS IS VERY IMPORTANT! иF THERE WAS NO SEMICOLON, THE ц128 WOULD * 38 ;* SEND A CARRIAGE RETURN AFTER THE LAST PARAMETER. сINCE THE 1581 * 39 ;* COUNTS THE NUMBER OF BYTES SENT TO DETERMINE THE NUMBER OF OPTIONAL * 40 ;* PARAMETERS THAT ARE BEING SENT, IT WOULD MISINTERPRET THE CARRIAGE * 41 ;* RETURN AS THE NEXT OPTIONAL PARAMETER. иN THIS CASE, IT WOULD BE * 42 ;* FILL BYTE. аNY FORMATTING ERRORS CAN BE CHECKED VIA THE COMMAND * 43 ;* CHANNEL. * 44 ;* 45 ;* сINCE THE бурст COMMANDS MAKE USE OF THE COMMAND CHANNEL TO THE * 46 ;* DRIVE, THE COMMAND CHANNEL MUST FIRST BE опенED IN YOUR басиц * 47 ;* PROGRAM. тHE LOGICAL FILE NUMBER WHICH YOU ASSIGNED TO THE COMMAND * 48 ;* CHANNEL SHOULD BE POKED TO лф BEFORE CALLING ANY OF THESE ROUTINES. * 49 ;* * 50 51 52 53 54 55 56 57 .MAIN. HCD65XX V3.1 10JULY87 PAGE 2 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 58 ;******************************************************************** 59 ; жARIABLES - жALUES FROM басиц CAN BE покеD, пеекED TO THESE AREAS. 60 ;******************************************************************** 61 =1300 62 *=$1300 63 1300 00 64 статус .BYTE 0 ; STATUS BYTE 1301 08 65 деж .BYTE 8 ; DEVICE NUMBER 1302 08 66 лф .BYTE 8 ; LOGICAL FILE NUMBER 1303 =1304 67 трацк *=*+1 ; TRACK 1304 =1305 68 сецтор *=*+1 ; SECTOR 1305 =1306 69 нумсец *=*+1 ; нUMBER OF SECTORS. 1306 =1308 70 буфлоц *=*+2 ; пAGE # OF BUFFER TO GET/PUT DATA. 1308 =1309 71 сецсизе *=*+1 ; сECTOR SIZE (1=256, 2=512, 4=1024) 1309 =130A 72 сиде *=*+1 ; пHYSICAL SIDE OF THE DISK (0 OR 1). 130A =130B 73 минсец *=*+1 ; мINIMUM LOGICAL SECTOR FOUND IN яуеры. 130B =130C 74 маьсец *=*+1 ; мAXIMUM LOGICAL SECTOR FOUND IN яуеры. 130C =130D 75 интлж *=*+1 ; пHYSICAL INTERLEAVE FOUND IN яуеры. 130D =130E 76 флаг *=*+1 ; еMPTY TRACK FLAG. 77 ; тHIS FLAG IS USED TO INDICATE THAT THE 78 ; TRACK OR DATA JUST READ CONTAINS ALL 0'S. тHIS IS HANDY IN SOME CASES, 79 ; SUCH AS DURING A DISK COPY PROGRAM. вHEN A DISK IS FORMATTED, THE SECTORS 80 ; ARE FILLED WITH 0'S. иF A SECTOR TO BE COPIED CONTAINS ALL 0'S, THEN WE 81 ; DON'T BOTHER TO WRITE IT TO THE DESTINATION DISK 82 83 84 ;**************************************************** 85 ; оTHER VARIABLES USED IN THE FOLLOWING ROUTINES.... 86 ;**************************************************** 87 88 130E 89 CMDLINE 130E 55 30 90 .BYTE 'U0' ; бURST PREFIX. =131A 91 *=*+10 ; пARAMETER SPACE FOR BURST COMMAND. 131A =131B 92 CMDLEN *=*+1 ; лENGTH OF THE COMMAND STRING (# OF BYTES). 131B =131C 93 OLDCLK *=*+1 ; сTATUS OF CLOCK LINE. 131C =131D 94 TEMP *=*+1 95 96 ;****************************************************************** 97 ; йумп табле OF AVAILABLE BURST ROUTINES. сыс TO THESE LOCATIONS 98 ; FROM басиц. тHE бурст ROUTINES THEMSELVES CAN THEN BE MODIFIED 99 ; OR CUSTOMIZED WITHOUT AFFECTING THE сыс LOCATIONS FROM басиц. 100 ;****************************************************************** 101 =1340 102 *=$1340 103 1340 104 й_иняуире_формат 1340 4C 148D 105 JMP иняуире_формат 1343 106 й_пхысицал_реад 1343 4C 136B 107 JMP преад 1346 108 й_логицал_реад 1346 4C 135E 109 JMP лреад 1349 110 й_пхысицал_врите 1349 4C 13F9 111 JMP пврите 134C 112 й_логицал_врите 134C 4C 13EC 113 JMP лврите 114 .MAIN. HCD65XX V3.1 10JULY87 PAGE 3 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 115 134F 116 й_меморы_реад 134F 4C 1532 117 JMP меморы_реад 1352 118 й_меморы_врите 1352 4C 1594 119 JMP меморы_врите 1355 120 й_думп_цацхе 1355 4C 15FB 121 JMP думп_цацхе 1358 122 й_яуеры_формат 1358 4C 14AF 123 JMP яуеры_формат 135B 124 й_цомпаре_меморы 135B 4C 162A 125 JMP цомпаре_меморы 126 127 ;*************************************** 128 ; лOCATIONS OF IMPORTANT ц128 STUFF... 129 ;*************************************** 130 =FFC9 131 CHKOUT=$FFC9 ; KERNEL CHANNEL OUTPUT =FFCC 132 CLRCHN=$FFCC ; KERNEL CLEAR CHANNEL =FFBA 133 SETLFS=$FFBA ; KERNEL SET LOGICAL FILE NUMBER =FFBD 134 SETNAM=$FFBD ; KERNEL SET FILENAME =FFD2 135 BSOUT =$FFD2 ; KERNEL BASIC INPUT/OUTPUT =FF47 136 SPIN_OUT=$FF47 ; сET UP FAST SERIAL FOR INPUT OR OUTPUT. 137 ; сец FOR OUTPUT, цлц FOR INPUT. =DD00 138 D2PRA =$DD00 ; ц128 SERIAL PORT LOCATION =0010 139 CLKOUT=$10 ; SLOW SERIAL CLOCK OUTPUT BIT MASK =0040 140 CLKIN =$40 ; SLOW SERIAL CLOCK INPUT BIT MASK =DC0D 141 D1ICR =$DC0D ; 6526 циа INTERRUPT CONTROL REGISTER =DC0C 142 D1SDR =$DC0C ; 6526 циа SERIAL DATA REGISTER =00FA 143 BUFFER=$FA ; ZERO PAGE POINTER VARIABLE =00FC 144 BUFFER2=$FC ; ZERO PAGE POINTER VARIABLE 145 146 ;****************************** 147 ; бурст COMMAND PRIMITIVES 148 ;****************************** 149 =0000 150 пбурстрд =$00 ; пHYSICAL BURST READ. =0002 151 пбурствр =$02 ; пHYSICAL BURST WRITE. =0080 152 лбурстрд =$80 ; лOGICAL BURST READ =0082 153 лбурствр =$82 ; лOGICAL BURST WRITE. =0004 154 бурст_иняуире =$04 ; бURST INQUIRE. =009D 155 думпцацхе =$9д ; дUMP TRACK CACHE ('FORCE' BIT SET) =008A 156 бурст_яуеры =$8а ; яUERY DISK FORMAT. 157 158 ;********************************************************* 159 ;* --------------- бурст роутинес -------------------- * 160 ;********************************************************* 161 135E 162 лреад ;лOGICAL SECTOR READ FROM THE DEVICE INDICATED BY лф. 163 ;тHE TRACK AND SECTOR ARE IN трацк, сецтор. тHE LOCATION 164 ;сTATUS BYTE FROM DRIVE IS RETURNED IN статус. 165 135E A9 80 166 LDA #LBURSTRD ;LOGICAL BURST READ COMMAND 1360 8D 1310 167 STA CMDLINE+2 1363 A9 01 168 LDA #$01 1365 8D 1308 169 STA сецсизе ;лOGICAL SECTOR SIZE IS ALWAYS 256 BYTES. 1368 4C 1377 170 JMP реад 171 .MAIN. HCD65XX V3.1 10JULY87 PAGE 4 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 172 173 136B 174 преад ;пHYSICAL SECTOR READ FROM DEVICE INDICATED BY лф. 175 ;тHE TRACK AND SECTOR ARE IN трацк, сецтор. тHE LOCATION 176 ;OF START OF THE ц128 BUFFER TO PUT THE READ DATA IN буфлоц. 177 ;тHE PHYSICAL SECTOR SIZE IN сецсизе (1=256,2=512,4=1024). 178 ;нUMBER OF SECTORS IN нумсец. 179 ;пHYSICAL SIDE OF THE DISK IN сиде (0 OR 1). 180 ;сTATUS BYTE FROM DRIVE IS RETURNED IN статус. 181 136B A9 00 182 LDA #пбурстрд ;пHYSICAL BURST READ COMMAND. 136D AE 1309 183 LDX сиде ; цHECK WHICH SIDE TO READ FROM. 1370 F0 02 184 BEQ 1$ 1372 09 10 185 ORA #$10 ; иF SIDE 1, THEN SET BIT IN THE COMMAND BYTE. 1374 8D 1310 186 1$ STA CMDLINE+2 187 188 1377 189 реад 190 1377 AD FF00 191 LDA $FF00 ;сAVE OLD мму SETUP. 137A 48 192 PHA 193 137B A9 0E 194 LDA #$0E ;сET мму FOR рам0,кернел,и/о. 137D 8D FF00 195 STA $FF00 196 1380 20 167D 197 JSR сету0 ;пUT "у0" AT START OF COMMAND STRING. 198 1383 AD 1303 199 LDA трацк 1386 8D 1311 200 STA цмдлине+3 ; TRACK 1389 AD 1304 201 LDA сецтор 138C 8D 1312 202 STA цмдлине+4 ; SECTOR 138F AD 1305 203 LDA нумсец 1392 8D 1313 204 STA цмдлине+5 ; нUMBER OF SECTORS TO READ. 205 1395 A9 06 206 LDA #$06 ; лENGTH OF COMMAND STRING. 1397 8D 131A 207 STA цмдлен 139A 20 1664 208 JSR SENDCMD ; SEND CMD STRING 209 139D AD 1306 210 LDA буфлоц ; сET UP ZERO PAGE INDIRECT POINTER. 13A0 85 FA 211 STA буффер 13A2 AD 1307 212 LDA буфлоц+1 13A5 85 FB 213 STA буффер+1 214 13A7 A0 00 215 LDY #0 ; CLEAR THE 'EMPTY SECTOR(S)' FLAG. 13A9 8C 130D 216 STY FLAG 217 13AC 78 218 SEI ; нO IRQ'S ALLOWED DURING HANDSHAKE. 13AD 2C DC0D 219 BIT D1ICR ; CLEAR PENDING 220 13B0 20 169C 221 JSR цлк_цхнг ;цHANGE STATE OF CLOCK. 222 13B3 AE 1308 223 1$ LDX сецсизе ; сECTOR SIZE GIVES # OF PAGES PER SECTOR. 224 13B6 20 16A5 225 JSR ваит ;вAIT FOR FAST BYTE (1ST IS STATUS). 13B9 AD DC0C 226 LDA D1SDR ;гET STATUS BYTE. 13BC 8D 1300 227 STA статус 228 .MAIN. HCD65XX V3.1 10JULY87 PAGE 5 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 229 230 13BF 29 0F 231 AND #15 ;вAS THERE AN ERROR? 13C1 C9 02 232 CMP #2 ; 13C3 B0 21 233 BCS 5$ ; BRANCH IF ERROR OCCURED. 234 13C5 20 169C 235 JSR цлк_цхнг ;цHANGE CLOCK SO NEXT BYTE IS SENT. 236 13C8 20 16A5 237 3$ JSR ваит ;вAIT FOR THE NEXT BYTE. 238 13CB 20 169C 239 JSR цлк_цхнг ;цHANGE STATE OF CLOCK SO NEXT BYTE IS SENT. 13CE AD DC0C 240 LDA д1сдр ;гET THE DATA BYTE 13D1 91 FA 241 STA (BUFFER),Y ; AND SAVE IT 242 ; WHILE NEXT BYTE IS BEING TRANSMITTED. 243 13D3 0D 130D 244 ORA FLAG ;уPDATE 'ZERO' SECTOR FLAG. 13D6 8D 130D 245 STA FLAG 246 13D9 C8 247 INY ;аNY MORE IN THIS PAGE? 13DA D0 EC 248 BNE 3$ 249 13DC E6 FB 250 INC буффер+1 13DE CA 251 DEX ;лOOP FOR THE # OF PAGES PER SECTOR. 13DF D0 E7 252 BNE 3$ 253 13E1 CE 1313 254 DEC цмдлине+5 ;лOOP FOR THE NUMBER OF SECTORS. 13E4 D0 CD 255 BNE 1$ 256 13E6 58 257 5$ CLI 258 13E7 68 259 PLA ;рESTORE мму TO OLD CONFIGURATION. 13E8 8D FF00 260 STA $FF00 261 13EB 60 262 RTS 263 264 ;**************************************************************** 265 13EC 266 лврите ;лOGICAL SECTOR WRITE TO THE DEVICE INDICATED BY лф. 267 ;тHE TRACK AND SECTOR ARE IN трацк, сецтор. тHE LOCATION 268 ;OF START OF ц128 BUFFER CONTAINING WRITE DATA IN буфлоц. 269 ;сTATUS BYTE FROM DRIVE IS RETURNED IN статус. 270 13EC A9 82 271 LDA #LBURSTWR 13EE 8D 1310 272 STA CMDLINE+2 ; BURST WRITE 13F1 A9 01 273 LDA #$01 13F3 8D 1308 274 STA сецсизе ; лOGICAL SECTOR SIZE IS ALWAYS 256 BYTES. 13F6 4C 1405 275 JMP врите 276 277 13F9 278 пврите ;пHYSICAL SECTOR WRITE TO THE DEVICE INDICATED BY лф. 279 ;тHE TRACK AND SECTOR ARE IN трацк, сецтор. тHE LOCATION 280 ;OF START OF ц128 BUFFER CONTAINING WRITE DATA IN буфлоц. 281 ;тHE PHYSICAL SECTOR SIZE IN сецсизе (1=256,2=512,4=1024). 282 ;нUMBER OF SECTORS IN нумсец. 283 ;пHYSICAL SIDE IN сиде. 284 ;сTATUS BYTE FROM DRIVE IS RETURNED IN статус. 285 .MAIN. HCD65XX V3.1 10JULY87 PAGE 6 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 286 287 13F9 A9 02 288 LDA #пбурствр ;пHYSICAL BURST WRITE COMMAND. 13FB AE 1309 289 LDX сиде ; цHECK WHICH SIDE TO WRITE TO. 13FE F0 02 290 BEQ 1$ 1400 09 10 291 ORA #$10 ; иF SIDE 1, THEN SET BIT IN THE COMMAND BYTE. 1402 8D 1310 292 1$ STA CMDLINE+2 293 294 1405 295 врите 296 1405 AD FF00 297 LDA $FF00 ;сAVE OLD мму SETUP. 1408 48 298 PHA 299 1409 A9 0E 300 LDA #$0E ;сET мму FOR рам0,кернел,и/о. 140B 8D FF00 301 STA $FF00 302 140E 20 167D 303 JSR сету0 ;пUT "у0" AT START OF COMMAND STRING. 1411 AD 1303 304 LDA трацк 1414 8D 1311 305 STA цмдлине+3 ; TRACK 1417 AD 1304 306 LDA сецтор 141A 8D 1312 307 STA цмдлине+4 ; SECTOR 141D AD 1305 308 LDA нумсец 1420 8D 1313 309 STA цмдлине+5 ; нUMBER OF SECTORS TO WRITE. 310 1423 A9 06 311 LDA #$06 1425 8D 131A 312 STA цмдлен ;цOMMAND LENGTH. 1428 20 1664 313 JSR SENDCMD ; SEND CMD STRING 314 142B AD 1306 315 LDA буфлоц ; сET UP ZERO PAGE INDIRECT POINTER. 142E 85 FA 316 STA буффер 1430 AD 1307 317 LDA буфлоц+1 1433 85 FB 318 STA буффер+1 319 1435 A9 40 320 LDA #CLKIN ;иNITIAL CLOCK STATUS. 1437 8D 131B 321 STA OLDCLK 322 143A A0 00 323 LDY #0 143C 78 324 SEI ; NO IRQ'S DURING BURST HANDSHAKE 325 143D AE 1308 326 1$ LDX сецсизе ; сECTOR SIZE GIVES # OF PAGES PER SECTOR. 327 1440 38 328 SEC ;тURN FAST SERIAL TO OUTPUT MODE. 1441 20 FF47 329 JSR SPIN_OUT 330 1444 AD DD00 331 2$ LDA D2PRA ;вAIT FOR STATE CHANGE. 1447 4D 131B 332 EOR OLDCLK 144A 29 40 333 AND #CLKIN 144C F0 F6 334 BEQ 2$ 335 144E 4D 131B 336 EOR OLDCLK ;цHANGE STATUS OF олдцлк. 1451 8D 131B 337 STA OLDCLK 338 1454 B1 FA 339 LDA (BUFFER),Y ; GET DATA 1456 8D DC0C 340 STA D1SDR ; & SEND IT 341 1459 20 16A5 342 JSR ваит ;вAIT FOR THE BYTE TO BE TRANSMITTED. .MAIN. HCD65XX V3.1 10JULY87 PAGE 7 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 343 344 145C C8 345 INY 145D D0 E5 346 BNE 2$ ;аNY MORE LEFT IN THIS PAGE? 347 145F E6 FB 348 INC BUFFER+1 1461 CA 349 DEX ;лOOP FOR THE # OF PAGES PER SECTOR. 1462 D0 E0 350 BNE 2$ 351 1464 18 352 CLC ;тURN AROUND TO INPUT MODE TO GET статус. 1465 20 FF47 353 JSR SPIN_OUT 354 1468 2C DC0D 355 BIT D1ICR ; CLEAR PENDING 356 146B 20 1688 357 JSR CLKLO ; SET CLOCK LOW WHEN READY FOR STATUS 358 146E 20 16A5 359 JSR ваит ;вAIT FOR THE BYTE TO BE SHIFTED IN. 1471 AD DC0C 360 LDA D1SDR ;гET THE STATUS BYTE. 1474 8D 1300 361 STA статус ;сAVE IT. 1477 48 362 PHA 1478 20 1693 363 JSR CLKHI ;рELEASE THE SLOW CLOCK LINE. 147B 68 364 PLA 365 147C 29 0F 366 AND #15 ;цHECK FOR ANY ERROR. 147E C9 02 367 CMP #2 1480 B0 05 368 BCS 7$ ; BRANCH IF THERE WAS AN ERROR. 369 1482 CE 1313 370 DEC цмдлине+5 ;лOOP FOR THE NUMBER OF SECTORS. 1485 D0 B6 371 BNE 1$ 372 1487 58 373 7$ CLI 1488 68 374 PLA ;рESTORE OLD MEMORY CONFIGURATION. 1489 8D FF00 375 STA $FF00 148C 60 376 RTS 377 378 ;************************************************************ 379 148D 380 иняуире_формат ;сENDS AN иняуире диск COMMAND TO THE DRIVE INDICATE BY 381 ;THE LOGICAL FILE (лф). сTATUS IS RETURNED IN статус. 382 148D 20 167D 383 JSR сету0 ;пUT "у0" AT START OF COMMAND STRING. 1490 A9 04 384 LDA #бурст_иняуире ; INQUIRE BURST COMMAND 1492 8D 1310 385 STA CMDLINE+2 1495 A9 03 386 LDA #$03 ; LENGTH OF COMMAND. 1497 8D 131A 387 STA цмдлен 149A 20 1664 388 JSR SENDCMD ; SEND CMD STRING 389 149D 78 390 SEI ;дISABLE INTERRUPTS DURING HANDSHAKE. 391 149E 2C DC0D 392 BIT д1ицр ;цLEAR ANY BYTE READY THAT'S PENDING. 393 14A1 20 169C 394 JSR цлк_цхнг ;цHANGE CLOCK SO 1581 SENDS NEXT. 14A4 20 16A5 395 JSR ваит ;вAIT FOR THE BYTE TO BE SHIFTED IN. 14A7 AD DC0C 396 LDA д1сдр ;гET THE STATUS BYTE. 14AA 8D 1300 397 STA статус ;сAVE IT OFF. 14AD 58 398 CLI 14AE 60 399 RTS .MAIN. HCD65XX V3.1 10JULY87 PAGE 8 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 400 401 402 ;************************************************************ 403 14AF 404 яуеры_формат ;сENDS A яуеры диск формат COMMAND TO THE DRIVE INDICATE BY 405 ;THE LOGICAL FILE (лф). пHYSICAL TRACK NUMBER TO QUERY 406 ;SHOULD BE PROVIDED IN трацк. пHYSICAL SIDE SHOULD 407 ;BE PROVIDED IN сиде. сTATUS IS RETURNED IN статус. 408 ;нUMBER OF SECTORS FOUND ON THE TRACK RETURNED IN нумсец. 409 ;лOGICAL TRACK NUMBER FOUND IN THE SECTOR HEADERS RETURNED 410 ;IN трацк. мINIMUM LOGICAL SECTOR NUMBER FOUND IN THE 411 ;SECTOR HEADERS IS RETURNED IN минсец. тHE MAXIMIUM 412 ;LOGICAL SECTOR IS RETURNED маьсец. пHYSICAL INTERLEAVE 413 ;IS RETURNED IN интлж. 414 ;иF AN ERROR IS ENCOUNTERED IN COMPILING THIS INFORMATION 415 ;(AS INDICATED BY статус), THEN NONE OF THE RETURN VALUES 416 ;ARE VALID (EXCEPT статус). 417 14AF 20 167D 418 JSR сету0 ;пUT "у0" AT START OF COMMAND STRING. 419 14B2 A9 8A 420 LDA #бурст_яуеры ;яуеры диск BURST COMMAND 14B4 AE 1309 421 LDX сиде ; сET THE SIDE BIT ACCORDINGLY. 14B7 D0 02 422 BNE 4$ 14B9 09 10 423 ORA #$10 14BB 8D 1310 424 4$ STA CMDLINE+2 425 14BE AD 1303 426 LDA трацк ; пHYSICAL TRACK OFFSET. 14C1 8D 1311 427 STA CMDLINE+3 14C4 A9 04 428 LDA #$04 ; LENGTH OF COMMAND. 14C6 8D 131A 429 STA цмдлен 14C9 20 1664 430 JSR SENDCMD ; SEND CMD STRING 431 14CC 78 432 SEI ;дISABLE INTERRUPTS DURING HANDSHAKE. 14CD 2C DC0D 433 BIT д1ицр ;цLEAR ANY BYTE READY THAT'S PENDING. 434 14D0 20 169C 435 JSR цлк_цхнг ;цHANGE STATE OF CLOCK SO 1581 SENDS NEXT. 14D3 20 16A5 436 JSR ваит ;вAIT FOR THE FIRST STATUS BYTE. 14D6 AD DC0C 437 LDA д1сдр ;гET THE STATUS BYTE (STATUS OF TRACK 0). 14D9 8D 1300 438 STA статус ;сAVE IT OFF. 439 14DC 29 0F 440 AND #$0F ;вAS THERE AN ERROR? 14DE C9 02 441 CMP #2 14E0 B0 4E 442 BCS 5$ ; BRANCH IF THERE WAS AN ERROR. 443 14E2 20 169C 444 JSR цлк_цхнг ;цHANGE STATE OF CLOCK, SO 1581 SENDS NEXT. 14E5 20 16A5 445 JSR ваит ;вAIT FOR NEXT STATUS BYTE TO BE READY. 14E8 AD DC0C 446 LDA д1сдр ;гET IT (STATUS OF TRACK трацк). 14EB 8D 1300 447 STA статус ;сAVE IT. 448 14EE 29 0F 449 AND #$0F ;вAS THERE AN ERROR? 14F0 C9 02 450 CMP #2 14F2 B0 3C 451 BCS 5$ ; BRANCH IF AN ERROR. 452 14F4 20 169C 453 JSR цлк_цхнг ;цHANGE STATE OF CLOCK, SO 1581 SENDS NEXT. 14F7 20 16A5 454 JSR ваит ;вAIT FOR 'NUMBER OF SECTORS BYTE' TO BE READY. 14FA AD DC0C 455 LDA д1сдр ;гET IT. 14FD 8D 1305 456 STA нумсец ;сAVE IT. .MAIN. HCD65XX V3.1 10JULY87 PAGE 9 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 457 458 1500 20 169C 459 JSR цлк_цхнг ;цHANGE STATE OF CLOCK, SO 1581 SENDS NEXT. 1503 20 16A5 460 JSR ваит ;вAIT FOR 'LOGICAL TRACK #' BYTE TO BE READY. 1506 AD DC0C 461 LDA д1сдр ;гET IT. 1509 8D 1303 462 STA трацк ;сAVE IT. 463 150C 20 169C 464 JSR цлк_цхнг ;цHANGE STATE OF CLOCK, SO 1581 SENDS NEXT. 150F 20 16A5 465 JSR ваит ;вAIT FOR 'MINIMUM SECTOR #' BYTE TO BE READY. 1512 AD DC0C 466 LDA д1сдр ;гET IT. 1515 8D 130A 467 STA минсец ;сAVE IT. 468 1518 20 169C 469 JSR цлк_цхнг ;цHANGE STATE OF CLOCK, SO 1581 SENDS NEXT. 151B 20 16A5 470 JSR ваит ;вAIT FOR 'MAXIMUM SECTOR #' BYTE TO BE READY. 151E AD DC0C 471 LDA д1сдр ;гET IT. 1521 8D 130B 472 STA маьсец ;сAVE IT. 473 1524 20 169C 474 JSR цлк_цхнг ;цHANGE STATE OF CLOCK, SO 1581 SENDS NEXT. 1527 20 16A5 475 JSR ваит ;вAIT FOR 'INTERLEAVE' BYTE TO BE READY. 152A AD DC0C 476 LDA д1сдр ;гET IT. 152D 8D 130C 477 STA интлж ;сAVE IT. 478 1530 58 479 5$ CLI 1531 60 480 RTS 481 482 ;*************************************************************** 483 1532 484 меморы_реад ;бURST MEMORY READ OF THE 1581. пAGE IN 1581 MEMORY TO 485 ;START READING AT IN .ь, NUMBER OF PAGES TO READ IN .ы, 486 ;LOCATION TO STORE DATA IN ц128 MEMORY IN буфлоц. 487 ;лOGICAL FILE TO BE READ FROM IN лф. 488 1532 AD FF00 489 LDA $FF00 ;сAVE OLD мму SETUP. 1535 48 490 PHA 491 1536 A9 0E 492 LDA #$0E ;сET мму FOR рам0,кернел,и/о. 1538 8D FF00 493 STA $FF00 494 153B 20 167D 495 JSR сету0 ;пUT "у0" AT START OF COMMAND STRING. 153E A9 3E 496 LDA #$3е ;('>') 'BURST MEMORY READ' COMMAND STRING. 1540 8D 1310 497 STA цмдлине+2 ; ( "у0>мр" ) 1543 A9 4D 498 LDA #$4д ;('м') 1545 8D 1311 499 STA цмдлине+3 1548 A9 52 500 LDA #$52 ;('р') 154A 8D 1312 501 STA цмдлине+4 154D 8E 1313 502 STX цмдлине+5 ; 1581 PAGE TO START READING FROM. 1550 8C 1314 503 STY цмдлине+6 ; # OF PAGES TO READ. 504 1553 A9 07 505 LDA #$07 ; лENGTH OF COMMAND STRING. 1555 8D 131A 506 STA цмдлен 1558 20 1664 507 JSR SENDCMD ; SEND CMD STRING 508 155B AD 1306 509 LDA буфлоц ; сET UP ZERO PAGE INDIRECT POINTER. 155E 85 FA 510 STA буффер 1560 AD 1307 511 LDA буфлоц+1 1563 85 FB 512 STA буффер+1 513 .MAIN. HCD65XX V3.1 10JULY87 PAGE 10 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 514 1565 A9 00 515 LDA #0 ; CLEAR THE 'EMPTY SECTOR(S)' FLAG. 1567 8D 130D 516 STA FLAG 517 156A 78 518 SEI ; нO IRQ'S ALLOWED DURING HANDSHAKE. 519 156B 2C DC0D 520 BIT D1ICR ; CLEAR PENDING 521 156E 20 169C 522 JSR цлк_цхнг ;цHANGE STATE OF CLOCK. 523 1571 A0 00 524 LDY #0 1573 20 16A5 525 3$ JSR ваит ;вAIT FOR THE BYTE TO BE SHIFTED IN. 526 1576 20 169C 527 JSR цлк_цхнг ;цHANGE CLOCK SO NEXT BYTE IS SENT. 1579 AD DC0C 528 LDA D1SDR ; GET DATA 157C 91 FA 529 STA (BUFFER),Y ; AND SAVE IT WHILE NEXT BYTE IS TRANSMITTED. 530 157E 0D 130D 531 ORA FLAG ; уPDATE 'ZERO' FLAG. 1581 8D 130D 532 STA FLAG 533 1584 C8 534 INY 1585 D0 EC 535 BNE 3$ ;аNY MORE IN THIS PAGE? 536 1587 E6 FB 537 INC буффер+1 1589 CE 1314 538 DEC цмдлине+6 ;аNY MORE PAGES TO DO? 158C D0 E5 539 BNE 3$ 540 158E 58 541 5$ CLI 542 158F 68 543 PLA ;рESTORE OLD MEMORY CONFIGURATION. 1590 8D FF00 544 STA $FF00 545 1593 60 546 RTS 547 548 ;************************************************************ 549 1594 550 меморы_врите ;бURST MEMORY WRITE TO THE 1581'S MEMORY. тHE 551 ;LOCATION IN ц128 MEMORY TO SEND DATA FROM IN буфлоц. 552 ;тHE PAGE IN 1581 MEMORY TO START WRITING TO IN .ь. 553 ;тHE NUMBER OF PAGES TO WRITE IN .ы. 554 ;лOGICAL FILE TO BE WRITTEN TO IN лф. 555 1594 AD FF00 556 LDA $FF00 ;сAVE OLD мму SETUP. 1597 48 557 PHA 558 1598 A9 0E 559 LDA #$0E ;сET мму FOR рам0,кернел,и/о. 159A 8D FF00 560 STA $FF00 561 159D 20 167D 562 JSR сету0 ;пUT "у0" AT START OF COMMAND STRING. 15A0 A9 3E 563 LDA #$3е ;('>') 'BURST MEMORY WRITE' COMMAND STRING. 15A2 8D 1310 564 STA цмдлине+2 ; ( "у0>мв" ) 15A5 A9 4D 565 LDA #$4д ;('м') 15A7 8D 1311 566 STA цмдлине+3 15AA A9 57 567 LDA #$57 ;('в') 15AC 8D 1312 568 STA цмдлине+4 15AF 8E 1313 569 STX цмдлине+5 ; 1581 PAGE TO START WRITING TO. 15B2 8C 1314 570 STY цмдлине+6 ; # OF PAGES TO WRITE. .MAIN. HCD65XX V3.1 10JULY87 PAGE 11 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 571 572 15B5 A9 07 573 LDA #$07 ; лENGTH OF COMMAND STRING. 15B7 8D 131A 574 STA цмдлен 575 15BA 20 1664 576 JSR SENDCMD ; SEND CMD STRING 577 15BD AD 1306 578 LDA буфлоц ; сET UP ZERO PAGE INDIRECT POINTER. 15C0 85 FA 579 STA буффер 15C2 AD 1307 580 LDA буфлоц+1 15C5 85 FB 581 STA буффер+1 582 15C7 A9 40 583 LDA #CLKIN ;иNITIAL CLOCK STATUS. 15C9 8D 131B 584 STA OLDCLK 585 15CC A0 00 586 LDY #0 15CE 78 587 SEI ;нO иря'S ALLOWED DURING HANDSHAKE. 588 15CF 38 589 SEC ; сET TO OUTPUT MODE. 15D0 20 FF47 590 JSR спин_оут 591 15D3 AD DD00 592 2$ LDA D2PRA ;вAIT FOR STATE (SLOW CLOCK LINE) CHANGE. 15D6 4D 131B 593 EOR олдцлк 15D9 29 40 594 AND #цлкин 15DB F0 F6 595 BEQ 2$ 596 15DD 4D 131B 597 EOR олдцлк ;цHANGE STATUS OF олдцлк VARIABLE. 15E0 8D 131B 598 STA олдцлк 599 15E3 B1 FA 600 LDA (буффер),Y ;гET DATA TO WRITE. 15E5 8D DC0C 601 STA д1сдр ;сEND IT. 602 15E8 20 16A5 603 JSR ваит ;вAIT FOR THE BYTE TO BE SENT. 604 15EB C8 605 INY 15EC D0 E5 606 BNE 2$ ;мORE IN THIS PAGE? 607 15EE E6 FB 608 INC буффер+1 15F0 CE 1314 609 DEC цмдлине+6 15F3 D0 DE 610 BNE 2$ ;аNY MORE PAGES TO SEND? 611 15F5 58 612 CLI 613 15F6 68 614 PLA ;рESTORE OLD MEMORY CONFIGURATION. 15F7 8D FF00 615 STA $FF00 616 15FA 60 617 RTS 618 619 620 ;********************************************************** 621 622 15FB 623 думп_цацхе ;дUMPS THE TRACK CACHE AT 1581 $0ц00 TO THE PHYSICAL TRACK 624 ;SPECIFIED IN трацк, ON THE SIDE SPECIFIED IN сиде. тHE 625 ;'FORCE' BIT IS SET, SO IT IS WRITTEN WHETHER DIRTY OR NOT. 626 627 .MAIN. HCD65XX V3.1 10JULY87 PAGE 12 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 628 15FB 20 167D 629 JSR сету0 15FE A9 9D 630 LDA #думпцацхе ;дUMP TRACK CACHE COMMAND. 631 1600 AE 1309 632 LDX сиде ; сET сиде BIT ACCORDINGLY. 1603 F0 02 633 BEQ 1$ 1605 09 40 634 ORA #$40 635 1607 8D 1310 636 1$ STA цмдлине+2 ; пUT THE COMMAND BYTE INTO COMMAND STRING. 160A AD 1303 637 LDA трацк 160D 8D 1311 638 STA цмдлине+3 ; пHYSICAL TRACK TO DUMP CACHE TO. 639 1610 A9 04 640 LDA #4 1612 8D 131A 641 STA цмдлен ;лENGTH OF THE COMMAND STRING. 1615 20 1664 642 JSR сендцмд 643 1618 78 644 SEI ;дISABLE INTERRUPTS DURING HANDSHAKE. 645 1619 2C DC0D 646 BIT д1ицр ;цLEAR ANY BYTE READY THAT'S PENDING. 647 161C 20 169C 648 JSR цлк_цхнг ;цHANGE CLOCK SO 1581 WILL SEND STATUS BYTE. 161F 20 16A5 649 JSR ваит ;вAIT FOR BYTE TO BE SHIFTED IN. 1622 AD DC0C 650 LDA д1сдр ;гET THE STATUS BYTE. 1625 8D 1300 651 STA статус ;сAVE IT OFF. 652 1628 58 653 CLI 1629 60 654 RTS 655 656 657 ;************************************************************* 658 162A 659 цомпаре_меморы ;цOMPARES MEMORY BLOCKS IN THE ц128 MEMORY. 660 ;нUMBER OF PAGES TO COMPARE IN .а. 661 ;фIRST PAGE OF FIRST MEMORY BLOCK IN .ь. 662 ;фIRST PAGE OF SECOND MEMORY BLOCK IN .ы. 663 ;иF THEY ARE EQUAL, THEN статус=0. 664 162A 8D 131C 665 STA TEMP 666 162D AD FF00 667 LDA $FF00 ;сAVE OLD мму SETUP. 1630 48 668 PHA 669 1631 A9 0E 670 LDA #$0E ;сET мму FOR рам0,кернел,и/о. 1633 8D FF00 671 STA $FF00 672 1636 86 FB 673 STX BUFFER+1 ;сET UP мсб OF 1ST MEMORY POINTER. 1638 84 FD 674 STY BUFFER2+1 ;сET UP мсб OF 2ND MEMORY POINTER. 163A AE 131C 675 LDX TEMP ;нUMBER OF PAGES TO COMPARE. 676 163D A9 00 677 LDA #0 ;сET UP лсб'S OF MEMORY POINTERS. 163F 85 FA 678 STA BUFFER 1641 85 FC 679 STA BUFFER2 680 1643 8D 1300 681 STA статус ;иNITIALIZE статус. 682 1646 A0 00 683 LDY #0 684 .MAIN. HCD65XX V3.1 10JULY87 PAGE 13 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 685 1648 B1 FA 686 2$ LDA (BUFFER),Y 164A D1 FC 687 CMP (BUFFER2),Y 164C F0 07 688 BEQ 1$ 689 164E A9 FF 690 LDA #$FF ;нOT EQUAL! лOAD статус WITH NONZERO. 1650 8D 1300 691 STA статус 1653 D0 0A 692 BNE 99$ ; (BRANCH ALWAYS) 693 1655 C8 694 1$ INY 1656 D0 F0 695 BNE 2$ ;мORE IN THIS PAGE? 696 1658 E6 FB 697 INC BUFFER+1 165A E6 FD 698 INC BUFFER2+1 165C CA 699 DEX ;# OF PAGES COUNTER. 165D D0 E9 700 BNE 2$ 701 165F 68 702 99$ PLA ;рESTORE OLD MEMORY CONFIGURATION. 1660 8D FF00 703 STA $FF00 704 1663 60 705 RTS 706 707 ;********************************************************** 708 1664 709 сендцмд ;сENDS THE COMMAND IN цмдлине TO THE LOGICAL FILE 710 ;INDICATED BY лф. лENGTH OF THE COMMAND SHOULD BE IN цмдлен. 711 1664 AE 1302 712 LDX лф 1667 20 FFC9 713 JSR CHKOUT ; CHANNEL OUTPUT (POINTED TO BY .ь) 166A A2 00 714 LDX #0 166C AC 131A 715 LDY CMDLEN ; SEND CMD 166F BD 130E 716 1$ LDA CMDLINE,X 1672 20 FFD2 717 JSR BSOUT 1675 E8 718 INX 1676 88 719 DEY 1677 D0 F6 720 BNE 1$ 721 1679 20 FFCC 722 JSR CLRCHN ; SEND BUFFERED CHAR & EOI 167C 60 723 RTS 724 725 ;*********************************************************** 726 167D A9 55 727 сету0 LDA #85 ;'у' 167F 8D 130E 728 STA цмдлине 1682 A9 30 729 LDA #48 ;'0' 1684 8D 130F 730 STA цмдлине+1 1687 60 731 RTS 732 733 1688 734 цлкло ; SET CLOCK LOW 1688 48 735 PHA 1689 AD DD00 736 LDA D2PRA 168C 09 10 737 ORA #CLKOUT 168E 8D DD00 738 STA D2PRA 1691 68 739 PLA 1692 60 740 RTS 741 .MAIN. HCD65XX V3.1 10JULY87 PAGE 14 0:BURST SUBS.SRC,S,R ERROR ADDR CODE SEQ SOURCE STATEMENT 742 743 1693 744 цлкхи ; SET CLOCK HIGH 1693 AD DD00 745 LDA D2PRA 1696 29 EF 746 AND #$FF-CLKOUT 1698 8D DD00 747 STA D2PRA 169B 60 748 RTS 749 169C 750 цлк_цхнг ; CHANGE THE STATE OF THE CLOCK LINE OUTPUT. 169C AD DD00 751 LDA д2пра 169F 49 10 752 EOR #CLKOUT 16A1 8D DD00 753 STA д2пра 16A4 60 754 RTS 755 16A5 756 ваит ; WAIT FOR THE SHIFT REGISTER TO BE FULL OR EMPTY. 16A5 A9 08 757 1$ LDA #8 16A7 2C DC0D 758 BIT д1ицр 16AA F0 F9 759 BEQ 1$ 16AC 60 760 RTS 761 762 763 .END 0 ERRORS DETECTED .MAIN. HCD65XX V3.1 10JULY87 PAGE 15 SYMBOL TABLE = LABEL, <=> = SYMBOL, <+>= MULTIBLY DEFINED BSOUT =FFD2 BUFFER =00FA BUFFER2 =00FC BUFLOC 1306 BURST_INQUIRE =0004 BURST_QUERY =008A CHKOUT =FFC9 CLKHI 1693 CLKIN =0040 CLKLO 1688 CLKOUT =0010 CLK_CHNG 169C CLRCHN =FFCC CMDLEN 131A CMDLINE 130E COMPARE_MEMORY 162A D1ICR =DC0D D1SDR =DC0C D2PRA =DD00 DEV 1301 DUMPCACHE =009D DUMP_CACHE 15FB FLAG 130D INQUIRE_FORMAT 148D INTLV 130C J_COMPARE_MEMORY 135B J_DUMP_CACHE 1355 J_INQUIRE_FORMAT 1340 J_LOGICAL_READ 1346 J_LOGICAL_WRITE 134C J_MEMORY_READ 134F J_MEMORY_WRITE 1352 J_PHYSICAL_READ 1343 J_PHYSICAL_WRITE 1349 J_QUERY_FORMAT 1358 LBURSTRD =0080 LBURSTWR =0082 LF 1302 LREAD 135E LWRITE 13EC MAXSEC 130B MEMORY_READ 1532 MEMORY_WRITE 1594 MINSEC 130A NUMSEC 1305 OLDCLK 131B PBURSTRD =0000 PBURSTWR =0002 PREAD 136B PWRITE 13F9 QUERY_FORMAT 14AF READ 1377 SECSIZE 1308 SECTOR 1304 SENDCMD 1664 SETLFS =FFBA SETNAM =FFBD SETU0 167D SIDE 1309 SPIN_OUT =FF47 STATUS 1300 TEMP 131C TRACK 1303 WAIT 16A5 WRITE 1405