Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/format.asm @ 924:c155aac72190

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made cosmetic changes
author boisy
date Sun, 19 Jan 2003 14:54:09 +0000
parents 92b575ffa143
children ebd5b6ce665d
comparison
equal deleted inserted replaced
923:840aa54d6f45 924:c155aac72190
22 rev set $01 22 rev set $01
23 edition set $16 23 edition set $16
24 24
25 mod eom,name,tylg,atrv,start,size 25 mod eom,name,tylg,atrv,start,size
26 26
27 SavedU rmb 2 27 org 0
28 DiskPath rmb 1 28 savedu rmb 2
29 CurrTrak rmb 2 29 diskpath rmb 1
30 currtrak rmb 2
30 u0005 rmb 2 31 u0005 rmb 2
31 CurrSct rmb 1 32 currsect rmb 1
32 u0008 rmb 1 33 u0008 rmb 1
33 u0009 rmb 1 34 u0009 rmb 1
34 u000A rmb 2 35 u000A rmb 2
35 u000C rmb 2 36 u000C rmb 2
36 u000E rmb 2 37 u000E rmb 2
37 MFM rmb 1 38 mfm rmb 1
38 u0011 rmb 1 39 u0011 rmb 1
39 T4896 rmb 1 40 T4896 rmb 1
40 u0013 rmb 1 41 u0013 rmb 1
41 u0014 rmb 1 42 u0014 rmb 1
42 NCyls rmb 2 43 ncyls rmb 2
43 u0017 rmb 1 44 u0017 rmb 1
44 u0018 rmb 1 45 u0018 rmb 1
45 Sectors rmb 1 46 sectors rmb 1
46 u001A rmb 1 47 u001A rmb 1
47 Sectors0 rmb 1 48 sectors0 rmb 1
48 u001C rmb 1 49 u001C rmb 1
49 DType rmb 1 50 dtype rmb 1
50 u001E rmb 1 51 u001E rmb 1
51 u001F rmb 1 52 u001F rmb 1
52 u0020 rmb 1 53 u0020 rmb 1
53 Interlv rmb 1 54 interlv rmb 1
54 u0022 rmb 2 55 u0022 rmb 2
55 u0024 rmb 1 56 u0024 rmb 1
56 u0025 rmb 1 57 u0025 rmb 1
57 u0026 rmb 1 58 u0026 rmb 1
58 u0027 rmb 1 59 u0027 rmb 1
78 u003F rmb 2 79 u003F rmb 2
79 u0041 rmb 2 80 u0041 rmb 2
80 u0043 rmb 1 81 u0043 rmb 1
81 u0044 rmb 1 82 u0044 rmb 1
82 u0045 rmb 1 83 u0045 rmb 1
83 DTEntry rmb 2 84 dtentry rmb 2
84 u0048 rmb 1 85 u0048 rmb 1
85 STOff rmb 2 86 stoff rmb 2
86 u004B rmb 1 87 u004B rmb 1
87 u004C rmb 1 88 u004C rmb 1
88 u004D rmb 1 89 u004D rmb 1
89 u004E rmb 1 90 u004E rmb 1
90 u004F rmb 1 91 u004F rmb 1
94 u006B rmb 4 95 u006B rmb 4
95 u006F rmb 32 96 u006F rmb 32
96 u008F rmb 40 97 u008F rmb 40
97 u00B7 rmb 14 98 u00B7 rmb 14
98 u00C5 rmb 12 99 u00C5 rmb 12
99 TimePkt rmb 5 100 timepkt rmb 5
100 u00D6 rmb 18 101 u00D6 rmb 18
101 u00E8 rmb 14 102 u00E8 rmb 14
102 u00F6 rmb 177 103 u00F6 rmb 177
103 u01A7 rmb 2 104 u01A7 rmb 2
104 u01A9 rmb 2 105 u01A9 rmb 2
105 u01AB rmb 12 106 u01AB rmb 12
106 OptBuf rmb 256 107 optbuf rmb 256
107 u02B7 rmb 3 108 u02B7 rmb 3
108 u02BA rmb 9924 109 u02BA rmb 9924
109 u297E rmb 451 110 u297E rmb 451
110 size equ . 111 size equ .
111 112
200 fcb $00 201 fcb $00
201 fcb $30 0 202 fcb $30 0
202 fcb $01 203 fcb $01
203 fcb $54 T 204 fcb $54 T
204 205
205 start stu <SavedU 206 start stu <savedu
206 bsr ClrWork cleark work area 207 bsr ClrWork cleark work area
207 bsr OpenDev get device name and open it 208 bsr OpenDev get device name and open it
208 bsr Default 209 bsr Default
209 lbsr GetDTyp 210 lbsr GetDTyp
210 lbsr Format 211 lbsr Format
211 lbsr InitDisk 212 lbsr InitDisk
212 lbsr Access 213 lbsr Access
213 lbsr Stamps 214 lbsr Stamps
214 lbsr L0843 215 lbsr L0843
215 ldu <DTEntry 216 ldu <dtentry
216 os9 I$Detach 217 os9 I$Detach
217 clrb 218 clrb
218 L00BB os9 F$Exit 219 L00BB os9 F$Exit
219 ClrWork leay DiskPath,u 220 ClrWork leay diskpath,u
220 pshs y 221 pshs y
221 leay >u00B7,u 222 leay >u00B7,u
222 ClrOne clr ,-y 223 ClrOne clr ,-y
223 cmpy ,s 224 cmpy ,s
224 bhi ClrOne 225 bhi ClrOne
244 lda #C$SPAC 245 lda #C$SPAC
245 sta ,y 246 sta ,y
246 clra 247 clra
247 os9 I$Attach 248 os9 I$Attach
248 lbcs L0961 249 lbcs L0961
249 stu <DTEntry 250 stu <dtentry
250 ldu <SavedU 251 ldu <savedu
251 lda #PENTIR 252 lda #PENTIR
252 ldb #C$SPAC 253 ldb #C$SPAC
253 std ,y 254 std ,y
254 lda #WRITE. 255 lda #WRITE.
255 leax <u004F,u 256 leax <u004F,u
256 os9 I$Open 257 os9 I$Open
257 bcs L00BB 258 bcs L00BB
258 sta <DiskPath 259 sta <diskpath
259 rts 260 rts
260 261
261 Default bsr GetOpts 262 Default bsr GetOpts
262 bsr L0183 263 bsr L0183
263 lbsr L025E 264 lbsr L025E
264 rts 265 rts
265 266
266 GetOpts leax >OptBuf,u 267 GetOpts leax >optbuf,u
267 clrb 268 clrb
268 os9 I$GetStt 269 os9 I$GetStt
269 bcs L00BB 270 bcs L00BB
270 ldb PD.SID-PD.OPT,x 271 ldb PD.SID-PD.OPT,x
271 stb <u0013 272 stb <u0013
272 stb <u0014 273 stb <u0014
273 ldb PD.SToff-PD.OPT,x 274 ldb PD.SToff-PD.OPT,x
274 beq L0143 275 beq L0143
275 tfr b,a 276 tfr b,a
276 anda #$0F 277 anda #$0F
277 sta <STOff 278 sta <stoff
278 lsrb 279 lsrb
279 lsrb 280 lsrb
280 lsrb 281 lsrb
281 lsrb 282 lsrb
282 stb <u004B 283 stb <u004B
283 L0143 ldb PD.DNS-PD.OPT,x 284 L0143 ldb PD.DNS-PD.OPT,x
284 pshs b 285 pshs b
285 andb #DNS.MFM 286 andb #DNS.MFM
286 stb <MFM 287 stb <mfm
287 stb <u0011 288 stb <u0011
288 ldb ,s 289 ldb ,s
289 lsrb 290 lsrb
290 pshs b 291 pshs b
291 andb #$01 (PD.DTD) 292 andb #$01 (PD.DTD)
297 puls b 298 puls b
298 ldb #$01 299 ldb #$01
299 stb <u004D 300 stb <u004D
300 beq L0169 301 beq L0169
301 stb <u004B 302 stb <u004B
302 clr <STOff 303 clr <stoff
303 L0169 ldd PD.CYL-PD.OPT,x 304 L0169 ldd PD.CYL-PD.OPT,x
304 std <NCyls 305 std <ncyls
305 ldb PD.TYP-PD.OPT,x 306 ldb PD.TYP-PD.OPT,x
306 stb <DType 307 stb <dtype
307 ldd PD.SCT-PD.OPT,x 308 ldd PD.SCT-PD.OPT,x
308 std <Sectors 309 std <sectors
309 ldd PD.T0S-PD.OPT,x 310 ldd PD.T0S-PD.OPT,x
310 std <Sectors0 311 std <sectors0
311 ldb PD.ILV-PD.OPT,x 312 ldb PD.ILV-PD.OPT,x
312 stb <Interlv 313 stb <interlv
313 ldb #$01 314 ldb #$01
314 stb <u0027 315 stb <u0027
315 clrb 316 clrb
316 rts 317 rts
317 L0183 ldx <u0022 318 L0183 ldx <u0022
382 383
383 cmpb <u0011 384 cmpb <u0011
384 bgt L01FE 385 bgt L01FE
385 cmpb <u004C 386 cmpb <u004C
386 blt L01FE 387 blt L01FE
387 stb <MFM 388 stb <mfm
388 clrb 389 clrb
389 390
390 DoComa 391 DoComa
391 DoRParen 392 DoRParen
392 DoLParen 393 DoLParen
434 clrb 435 clrb
435 rts 436 rts
436 437
437 DoSQuote lbsr L092C 438 DoSQuote lbsr L092C
438 ldd <u001F 439 ldd <u001F
439 std <NCyls 440 std <ncyls
440 rts 441 rts
441 442
442 DoColon lbsr L092C 443 DoColon lbsr L092C
443 ldd <u001F 444 ldd <u001F
444 tsta 445 tsta
445 beq L0243 446 beq L0243
446 ldb #$01 447 ldb #$01
447 L0243 stb <Interlv 448 L0243 stb <interlv
448 rts 449 rts
449 lbsr L092C 450 lbsr L092C
450 ldd <u001F 451 ldd <u001F
451 tsta 452 tsta
452 beq L0250 453 beq L0250
460 stb <u0027 461 stb <u0027
461 L025C clrb 462 L025C clrb
462 L025D rts 463 L025D rts
463 L025E leax >Title,pcr 464 L025E leax >Title,pcr
464 lbsr L02E2 465 lbsr L02E2
465 leay >OptBuf,u 466 leay >optbuf,u
466 ldx PD.T0S-PD.OPT,y 467 ldx PD.T0S-PD.OPT,y
467 tst <MFM 468 tst <mfm
468 beq L0271 469 beq L0271
469 ldx PD.SCT-PD.OPT,y 470 ldx PD.SCT-PD.OPT,y
470 L0271 stx <Sectors 471 L0271 stx <sectors
471 leax >FmtMsg,pcr 472 leax >FmtMsg,pcr
472 ldy #FmtMLen 473 ldy #FmtMLen
473 lbsr L02E6 474 lbsr L02E6
474 leax <u004F,u 475 leax <u004F,u
475 tfr x,y 476 tfr x,y
483 puls y 484 puls y
484 lda #PENTIR 485 lda #PENTIR
485 sta -$01,y 486 sta -$01,y
486 lda <u001E 487 lda <u001E
487 bne L02BC 488 bne L02BC
488 tst <DType 489 tst <dtype
489 bpl L02AB 490 bpl L02AB
490 leax >HDFmt,pcr 491 leax >HDFmt,pcr
491 ldy #$002A 492 ldy #$002A
492 lbsr L02E6 493 lbsr L02E6
493 L02AB leax >Query,pcr 494 L02AB leax >Query,pcr
494 ldy #QueryLen 495 ldy #QueryLen
495 lbsr L02EC 496 lbsr L02EC
496 anda #$DF 497 anda #$DF
497 cmpa #'Y 498 cmpa #'Y
498 bne L02D5 499 bne L02D5
499 L02BC tst <DType 500 L02BC tst <dtype
500 bpl L025D 501 bpl L025D
501 leax >HDFmt,pcr 502 leax >HDFmt,pcr
502 ldy #$0038 503 ldy #$0038
503 lbsr L02EC 504 lbsr L02EC
504 anda #$DF 505 anda #$DF
527 anda #$7F 528 anda #$7F
528 rts 529 rts
529 530
530 GetDTyp leax >L001A,pcr 531 GetDTyp leax >L001A,pcr
531 stx <u000A 532 stx <u000A
532 ldb <DType 533 ldb <dtype
533 bitb #TYP.HARD+TYP.NSF 534 bitb #TYP.HARD+TYP.NSF
534 bne L0323 535 bne L0323
535 tst <u004D 536 tst <u004D
536 beq L031B 537 beq L031B
537 leax >L0076,pcr 538 leax >L0076,pcr
538 bra L032D 539 bra L032D
539 L031B leax >L0020,pcr 540 L031B leax >L0020,pcr
540 tst <MFM 541 tst <mfm
541 beq L032D 542 beq L032D
542 L0323 stx <u000A 543 L0323 stx <u000A
543 leax >L0049,pcr 544 leax >L0049,pcr
544 tst <u004C 545 tst <u004C
545 beq L032F 546 beq L032F
547 L032F stx <u000C 548 L032F stx <u000C
548 clra 549 clra
549 ldb <u0013 550 ldb <u0013
550 tfr d,y 551 tfr d,y
551 clrb 552 clrb
552 ldx <NCyls 553 ldx <ncyls
553 bsr L0379 554 bsr L0379
554 exg d,x 555 exg d,x
555 subd #$0001 556 subd #$0001
556 bcc L0344 557 bcc L0344
557 leax -$01,x 558 leax -$01,x
558 L0344 exg d,x 559 L0344 exg d,x
559 ldy <Sectors 560 ldy <sectors
560 bsr L0379 561 bsr L0379
561 exg d,x 562 exg d,x
562 addd <Sectors0 563 addd <sectors0
563 std <u0025 564 std <u0025
564 exg d,x 565 exg d,x
565 adcb #$00 566 adcb #$00
566 stb <u0024 567 stb <u0024
567 lda #$08 568 lda #$08
623 bne L03AE 624 bne L03AE
624 rts 625 rts
625 626
626 Format tst <u004E 627 Format tst <u004E
627 bne L03E4 628 bne L03E4
628 tst <DType 629 tst <dtype
629 bpl L03E5 630 bpl L03E5
630 leax >Both,pcr 631 leax >Both,pcr
631 ldy #BothLen 632 ldy #BothLen
632 lbsr L02EC 633 lbsr L02EC
633 anda #$DF 634 anda #$DF
634 cmpa #'Y 635 cmpa #'Y
635 beq L03E5 636 beq L03E5
636 cmpa #'N 637 cmpa #'N
637 bne Format 638 bne Format
638 L03E4 rts 639 L03E4 rts
639 L03E5 lda <DiskPath 640 L03E5 lda <diskpath
640 ldb #SS.Reset 641 ldb #SS.Reset
641 os9 I$SetStt 642 os9 I$SetStt
642 lbcs L00BB 643 lbcs L00BB
643 ldd #$0000 644 ldd #$0000
644 std <CurrTrak 645 std <currtrak
645 inca 646 inca
646 sta <CurrSct 647 sta <currsect
647 L03F8 clr <u0005 648 L03F8 clr <u0005
648 L03FA bsr L045C 649 L03FA bsr L045C
649 leax >u00B7,u 650 leax >u00B7,u
650 ldd <CurrTrak 651 ldd <currtrak
651 addd <u0048 652 addd <u0048
652 tfr d,u 653 tfr d,u
653 clrb 654 clrb
654 tst <u004D 655 tst <u004D
655 bne L041B 656 bne L041B
656 tst <MFM 657 tst <mfm
657 beq L041D 658 beq L041D
658 tst <u004C 659 tst <u004C
659 bne L041B 660 bne L041B
660 tst <CurrTrak+1 661 tst <currtrak+1
661 bne L041B 662 bne L041B
662 tst <u0005 663 tst <u0005
663 beq L041D 664 beq L041D
664 L041B orb #$02 665 L041B orb #$02
665 L041D tst <T4896 666 L041D tst <T4896
667 orb #$04 668 orb #$04
668 L0423 lda <u0005 669 L0423 lda <u0005
669 beq L0429 670 beq L0429
670 orb #$01 671 orb #$01
671 L0429 tfr d,y 672 L0429 tfr d,y
672 lda <DiskPath 673 lda <diskpath
673 ldb #SS.WTrk 674 ldb #SS.WTrk
674 os9 I$SetStt 675 os9 I$SetStt
675 lbcs L00BB 676 lbcs L00BB
676 ldu <SavedU 677 ldu <savedu
677 ldb <u0005 678 ldb <u0005
678 incb 679 incb
679 stb <u0005 680 stb <u0005
680 cmpb <u0013 681 cmpb <u0013
681 bcs L03FA 682 bcs L03FA
682 ldd <CurrTrak 683 ldd <currtrak
683 addd #$0001 684 addd #$0001
684 std <CurrTrak 685 std <currtrak
685 cmpd <NCyls 686 cmpd <ncyls
686 bcs L03F8 687 bcs L03F8
687 rts 688 rts
688 L044E ldy <u000E 689 L044E ldy <u000E
689 L0451 ldd ,y++ 690 L0451 ldd ,y++
690 beq L046B 691 beq L046B
691 L0455 stb ,x+ 692 L0455 stb ,x+
692 deca 693 deca
693 bne L0455 694 bne L0455
694 bra L0451 695 bra L0451
695 L045C lda <DType 696 L045C lda <dtype
696 bita #$C0 697 bita #$C0
697 beq L046C 698 beq L046C
698 ldy <u000C 699 ldy <u000C
699 leax >u00B7,u 700 leax >u00B7,u
700 bsr L0451 701 bsr L0451
701 L046B rts 702 L046B rts
702 L046C ldy <u000C 703 L046C ldy <u000C
703 ldb <u001A 704 ldb <u001A
704 tst <CurrTrak+1 705 tst <currtrak+1
705 bne L047E 706 bne L047E
706 tst <u0005 707 tst <u0005
707 bne L047E 708 bne L047E
708 ldy <u000A 709 ldy <u000A
709 ldb <u001C 710 ldb <u001C
734 clr <u0009 735 clr <u0009
735 leax >u00B7,u 736 leax >u00B7,u
736 ldd <u003F 737 ldd <u003F
737 leay >u008F,u 738 leay >u008F,u
738 L04C3 leax d,x 739 L04C3 leax d,x
739 ldd <CurrTrak+1 740 ldd <currtrak+1
740 adda <STOff 741 adda <stoff
741 std ,x 742 std ,x
742 ldb <u0009 743 ldb <u0009
743 lda b,y 744 lda b,y
744 incb 745 incb
745 stb <u0009 746 stb <u0009
746 ldb <CurrSct 747 ldb <currsect
747 adda <u004B 748 adda <u004B
748 bcs L04E5 749 bcs L04E5
749 std $02,x 750 std $02,x
750 lda <u0009 751 lda <u0009
751 cmpa <u0018 752 cmpa <u0018
755 L04E4 rts 756 L04E4 rts
756 L04E5 leax >AbortSct,pcr 757 L04E5 leax >AbortSct,pcr
757 lbra L06F9 758 lbra L06F9
758 L04EC pshs y,b 759 L04EC pshs y,b
759 tfr b,a 760 tfr b,a
760 ldb <CurrTrak+1 761 ldb <currtrak+1
761 cmpb #$01 762 cmpb #$01
762 bhi L0518 763 bhi L0518
763 leax >u008F,u 764 leax >u008F,u
764 leay a,x 765 leay a,x
765 ldb <Interlv 766 ldb <interlv
766 bne L0507 767 bne L0507
767 L0500 leax >AbortIlv,pcr 768 L0500 leax >AbortIlv,pcr
768 lbra L06F9 769 lbra L06F9
769 L0507 cmpb <u0018 770 L0507 cmpb <u0018
770 bhi L0500 771 bhi L0500
775 inca 776 inca
776 cmpa <u0018 777 cmpa <u0018
777 bne L051A 778 bne L051A
778 leas $06,s 779 leas $06,s
779 L0518 puls pc,y,b 780 L0518 puls pc,y,b
780 L051A ldb <Interlv 781 L051A ldb <interlv
781 abx 782 abx
782 cmpx $04,s 783 cmpx $04,s
783 bcs L0525 784 bcs L0525
784 ldb ,s 785 ldb ,s
785 leax b,x 786 leax b,x
791 InitDisk lbsr L0898 792 InitDisk lbsr L0898
792 ldd <u0025 793 ldd <u0025
793 std $01,x 794 std $01,x
794 ldb <u0024 795 ldb <u0024
795 stb ,x 796 stb ,x
796 ldd <Sectors 797 ldd <sectors
797 std <$11,x 798 std <$11,x
798 stb $03,x 799 stb $03,x
799 lda <u0027 800 lda <u0027
800 sta $07,x 801 sta $07,x
801 clra 802 clra
804 beq L054F 805 beq L054F
805 addd #$0001 806 addd #$0001
806 L054F addd #$0001 807 L054F addd #$0001
807 std $09,x 808 std $09,x
808 clra 809 clra
809 tst <MFM 810 tst <mfm
810 beq L0561 811 beq L0561
811 ora #$02 812 ora #$02
812 tst <u004C 813 tst <u004C
813 beq L0561 814 beq L0561
814 ora #$08 815 ora #$08
822 L056F sta <$10,x 823 L056F sta <$10,x
823 ldd <u0028 824 ldd <u0028
824 std $04,x 825 std $04,x
825 lda #$FF 826 lda #$FF
826 sta $0D,x 827 sta $0D,x
827 leax >TimePkt,u 828 leax >timepkt,u
828 os9 F$Time 829 os9 F$Time
829 leax >u00D6,u 830 leax >u00D6,u
830 leay <u006F,u 831 leay <u006F,u
831 tst ,y 832 tst ,y
832 beq L0594 833 beq L0594
852 decb 853 decb
853 beq L0594 854 beq L0594
854 lda ,-x 855 lda ,-x
855 ora #$80 856 ora #$80
856 sta ,x 857 sta ,x
857 L05C7 leax >TimePkt,u 858 L05C7 leax >timepkt,u
858 leay <$40,x 859 leay <$40,x
859 pshs y 860 pshs y
860 ldd #$0000 861 ldd #$0000
861 L05D3 addd ,x++ 862 L05D3 addd ,x++
862 cmpx ,s 863 cmpx ,s
867 std >u01A7,u 868 std >u01A7,u
868 ldd >L0016,pcr 869 ldd >L0016,pcr
869 std >u01A9,u 870 std >u01A9,u
870 ldd >L0018,pcr 871 ldd >L0018,pcr
871 std >u01AB,u 872 std >u01AB,u
872 lda <DiskPath 873 lda <diskpath
873 ldb #SS.Opt 874 ldb #SS.Opt
874 leax >u00F6,u 875 leax >u00F6,u
875 os9 I$GetStt 876 os9 I$GetStt
876 ldb #SS.Reset 877 ldb #SS.Reset
877 os9 I$SetStt 878 os9 I$SetStt
878 lbcs L00BB 879 lbcs L00BB
879 leax >u00B7,u 880 leax >u00B7,u
880 lbra L08A4 881 lbra L08A4
881 Access lda <DiskPath 882
883 Access lda <diskpath
882 os9 I$Close 884 os9 I$Close
883 leax <u004F,u 885 leax <u004F,u
884 lda #READ. 886 lda #READ.
885 os9 I$Open 887 os9 I$Open
886 lbcs L06F5 888 lbcs L06F5
887 sta <DiskPath 889 sta <diskpath
888 leax >u00B7,u 890 leax >u00B7,u
889 ldy #256 891 ldy #256
890 os9 I$Read 892 os9 I$Read
891 lbcs L06F5 893 lbcs L06F5
892 lda <DiskPath 894 lda <diskpath
893 os9 I$Close 895 os9 I$Close
894 leax <u004F,u 896 leax <u004F,u
895 lda #UPDAT. 897 lda #UPDAT.
896 os9 I$Open 898 os9 I$Open
897 lbcs L06F5 899 lbcs L06F5
898 sta <DiskPath 900 sta <diskpath
899 rts 901 rts
900 Stamps lda <DType 902
903 Stamps lda <dtype
901 clr <u0045 904 clr <u0045
902 bita #$80 905 bita #$80
903 beq L0667 906 beq L0667
904 L0650 leax >Verify,pcr 907 L0650 leax >Verify,pcr
905 ldy #VerifyL 908 ldy #VerifyL
908 cmpa #$59 911 cmpa #$59
909 beq L0667 912 beq L0667
910 cmpa #$4E 913 cmpa #$4E
911 bne L0650 914 bne L0650
912 sta <u0045 915 sta <u0045
913 L0667 ldd <Sectors0 916 L0667 ldd <sectors0
914 std <u0017 917 std <u0017
915 clra 918 clra
916 clrb 919 clrb
917 std <u0036 920 std <u0036
918 std <CurrTrak 921 std <currtrak
919 std <u0008 922 std <u0008
920 std <u0032 923 std <u0032
921 stb <u0031 924 stb <u0031
922 sta <u003C 925 sta <u003C
923 leax >OptBuf,u 926 leax >optbuf,u
924 stx <u0038 927 stx <u0038
925 lbsr L089C 928 lbsr L089C
926 leax >$0100,x 929 leax >$0100,x
927 stx <u003A 930 stx <u003A
928 clra 931 clra
960 beq L06CC 963 beq L06CC
961 subd #$0001 964 subd #$0001
962 L06CC stb <u002C 965 L06CC stb <u002C
963 L06CE tst <u0045 966 L06CE tst <u0045
964 bne L0700 967 bne L0700
965 lda <DiskPath 968 lda <diskpath
966 leax >u00B7,u 969 leax >u00B7,u
967 ldy #256 970 ldy #256
968 os9 I$Read 971 os9 I$Read
969 bcc L0700 972 bcc L0700
970 os9 F$PErr 973 os9 F$PErr
989 clr <u0009 992 clr <u0009
990 tst <u0045 993 tst <u0045
991 bne L073A 994 bne L073A
992 lda #$20 995 lda #$20
993 pshs a 996 pshs a
994 lda <CurrTrak+1 997 lda <currtrak+1
995 lbsr L07A7 998 lbsr L07A7
996 pshs b,a 999 pshs b,a
997 lda <CurrTrak 1000 lda <currtrak
998 lbsr L07A7 1001 lbsr L07A7
999 pshs b 1002 pshs b
1000 tfr s,x 1003 tfr s,x
1001 ldy #$0004 1004 ldy #$0004
1002 lbsr L02E6 1005 lbsr L02E6
1003 lda $02,s 1006 lda $02,s
1004 cmpa #$46 1007 cmpa #$46
1005 bne L0738 1008 bne L0738
1006 lbsr L02DE 1009 lbsr L02DE
1007 L0738 leas $04,s 1010 L0738 leas $04,s
1008 L073A ldd <CurrTrak 1011 L073A ldd <currtrak
1009 addd #$0001 1012 addd #$0001
1010 std <CurrTrak 1013 std <currtrak
1011 ldd <Sectors 1014 ldd <sectors
1012 std <u0017 1015 std <u0017
1013 L0745 dec <u002B 1016 L0745 dec <u002B
1014 bne L075B 1017 bne L075B
1015 bsr L0784 1018 bsr L0784
1016 tst <u002A 1019 tst <u002A
1033 L076C stb <u0031 1036 L076C stb <u0031
1034 stx <u0032 1037 stx <u0032
1035 lbra L06CE 1038 lbra L06CE
1036 L0773 lda #$FF 1039 L0773 lda #$FF
1037 sta <u002A 1040 sta <u002A
1038 leay >OptBuf,u 1041 leay >optbuf,u
1039 L077B cmpy <u0038 1042 L077B cmpy <u0038
1040 beq L07BF 1043 beq L07BF
1041 bsr L0784 1044 bsr L0784
1042 bra L077B 1045 bra L077B
1043 L0784 ldx <u0038 1046 L0784 ldx <u0038
1051 clr <u003C 1054 clr <u003C
1052 stx <u0038 1055 stx <u0038
1053 cmpx <u003A 1056 cmpx <u003A
1054 bne L07A6 1057 bne L07A6
1055 bsr L0803 1058 bsr L0803
1056 leax >OptBuf,u 1059 leax >optbuf,u
1057 stx <u0038 1060 stx <u0038
1058 lbsr L089C 1061 lbsr L089C
1059 L07A6 rts 1062 L07A6 rts
1060 L07A7 tfr a,b 1063 L07A7 tfr a,b
1061 lsra 1064 lsra
1106 L0803 pshs y 1109 L0803 pshs y
1107 clra 1110 clra
1108 ldb #$01 1111 ldb #$01
1109 cmpd <u0034 1112 cmpd <u0034
1110 bne L081E 1113 bne L081E
1111 leax >OptBuf,u 1114 leax >optbuf,u
1112 clra 1115 clra
1113 ldb <u002F 1116 ldb <u002F
1114 tfr d,y 1117 tfr d,y
1115 clrb 1118 clrb
1116 os9 F$AllBit 1119 os9 F$AllBit
1117 lbcs L06F5 1120 lbcs L06F5
1118 L081E lbsr L08B2 1121 L081E lbsr L08B2
1119 leax >OptBuf,u 1122 leax >optbuf,u
1120 lbsr L08A4 1123 lbsr L08A4
1121 ldd <u0024 1124 ldd <u0024
1122 cmpd <u0031 1125 cmpd <u0031
1123 bcs L083A 1126 bcs L083A
1124 bhi L0837 1127 bhi L0837
1173 clrb 1176 clrb
1174 L089E sta d,x 1177 L089E sta d,x
1175 decb 1178 decb
1176 bne L089E 1179 bne L089E
1177 rts 1180 rts
1178 L08A4 lda <DiskPath 1181 L08A4 lda <diskpath
1179 ldy #256 1182 ldy #256
1180 os9 I$Write 1183 os9 I$Write
1181 lbcs L00BB 1184 lbcs L00BB
1182 rts 1185 rts
1183 L08B2 clra 1186 L08B2 clra
1184 ldb <u0034 1187 ldb <u0034
1185 tfr d,x 1188 tfr d,x
1186 lda <u0035 1189 lda <u0035
1187 clrb 1190 clrb
1188 tfr d,u 1191 tfr d,u
1189 L08BC lda <DiskPath 1192 L08BC lda <diskpath
1190 os9 I$Seek 1193 os9 I$Seek
1191 ldu <SavedU 1194 ldu <savedu
1192 lbcs L00BB 1195 lbcs L00BB
1193 rts 1196 rts
1194 L08C8 ldx <u0031 1197 L08C8 ldx <u0031
1195 lda <u0033 1198 lda <u0033
1196 clrb 1199 clrb
1220 puls b,a 1223 puls b,a
1221 bra L08E6 1224 bra L08E6
1222 L090E sta ,u+ 1225 L090E sta ,u+
1223 lda #C$CR 1226 lda #C$CR
1224 sta ,u 1227 sta ,u
1225 ldu <SavedU 1228 ldu <savedu
1226 leas $02,s 1229 leas $02,s
1227 leax >u00B7,u 1230 leax >u00B7,u
1228 lbsr L02E2 1231 lbsr L02E2
1229 rts 1232 rts
1230 1233