Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:19 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\F9\fscbm.asmOutput Filename : obj\F9\fscbm.objListing Has Been Relocated2601 .LIST on26022603 F8FFB1 .INCLUDE inc\dirp00.inc2604 ;----------------------------------------------------------2605 ; DIRP00.ASM2606 ; PROGETTO: B16012607 ;2608 ; Variabili in Direct Page $002609 ;----------------------------------------------------------26102611 ; sezione COMMON -- questo permette di includere il file in piu' file26122613 .LIST on26142615 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0026162617 000000 .ABSOLUTE ;; inizia sempre da $002618 000000 .ORG 0x002619 0000002620 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2621 000002 0000 .DW2622 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2623 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2624 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2625 ; <6>: flag warm reset2626 00000D 00 RTCFlag .DB26272628 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12629 ; <7>: device ready2630 ; <6>: compact flash device (C.F.)2631 ; <5>: device identification ok2632 ; <4>: MBR loaded2633 ; <3>: valid signature in MBR2634 ; <2>: first partition found&active2635 ; <1>:2636 ; <0>: valid partition flag26372638 ; <7>: device ready2639 ; <6>: USB device2640 ; <5>: compact flash device (C.F.)2641 ; <4>: device identification ok2642 ; <3>: MBR loaded2643 ; <2>: first partition found&active2644 ; <1>: always 12645 ; <0>: valid partition flag2646 000010Tue Jul 17 11:00:19 2018 Page 226472648 00000E atadev .EQU diskstat26492650 000010 usbdev .DS 2 ; flag flash disk on usb bus #02651 ; <7>: device plugged and ready2652 ; <6>: always 12653 ; <5>: device identification ok2654 ; <4>: MBR loaded2655 ; <3>: valid signature in MBR2656 ; <2>: first partition found&active2657 ; <1>:2658 ; <0>: valid partition flag26592660 000012 diskmax .DS 16 ; disk max. sector's2661 000012 atasec .EQU diskmax2662 00001A usbsec .EQU diskmax+8266326642665 000022 atambr .DS 8 ; data for first partition found in mbr2666 ; first 3 bytes for start sector of partition2667 ; last byte for partition type2668 00002A usbmbr .DS 826692670 000032 ataprt .DS 8 ; total sec's of first partition2671 00003A usbprt .DS 8 ; total sec's of first partition267226732674 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2675 ; <7>: module on2676 ; <6>: ch376 flag2677 ; <5:0>: chip version26782679 000043 00 usb0st .DB ; usb0 status2680 ; <7>: usb0 host mode ok2681 ; <6>: flash disk attached flag2682 ; <5>: usb device attached26832684 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2685 ; <7>: disk format established in bit 0&12686 ; <6>: double step seek done2687 ; <5>: trust format bit's (set after ok r/w)2688 ; <4>: write protect bit (if disk in drive)2689 ; <3>: don't care2690 ; <2>: don't care2691 ; <1>: HD disk if set else DD disk2692 ; <0>: CBM format if set else IBM format26932694 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2695 ; <7>: disk format established in bit 0&12696 ; <6>: change disk simulation (after format)2697 ; <5>: don't care2698 ; <4>: write protect bit (under sw control)2699 ; <3>: don't care2700 ; <2>: don't care2701 ; <1>: HD disk if set else DD disk2702 ; <0>: CBM format if set else IBM format2703Tue Jul 17 11:00:19 2018 Page 32704 000046 00 fdcctl .DB ; fdc controller status2705 ; <7>: drive is attached2706 ; <6>: drive need recalibration (restore)2707 ; <5>: FDC controller ok2708 ; <4>: motor on2709 ; <3>: dma is active2710 ; <2>: dma chip ok (post routine)2711 ; <1>: clock rate (1=HD,0=DD)2712 ; <0>: disk ready27132714 000047 00 fdctrk .DB ; fd: current seek track2715 000048 00 fdcerr .DB ; fd: last error code2716 000049 00 ataerr .DB ; ata: last error code2717 00004A 00 ataxer .DB ; ata: last extended error code27182719 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27202721 00004C 0000 MemTop .DW ; top memoria RAM2722 00004E 00 .DB ; banco top mem27232724 00004F 00 DflTxtIn .DB ; device di default text input2725 000050 00 DflTxtOut .DB ; device di default text output27262727 000051 COPPtr LP ; long pointer for COP decoding2728 000054 00 COPIdx .DB ; COP signature/index27292730 000055 00 BiosEnt .DB ; flag accesso a bios setup27312732 ; variabili utilizzate da ACIA2733 000056 spwrk .DS $3027342735 ; bios mem2736 000086 0000 nsize .DW ; dimensione blocco da allocare2737 ;bsize .DW ; dimensione vera blocco free2738 000088 0000 splitsz .DW ; dimensione blocco splittato2739 00008A 0000 bfree .DW ; puntatore blocco free2740 00008C 0000 hdrptr .DW ; puntatore header heap27412742 00008E 0000 pbrklv .DW ; current break level of current process2743 000090 0000 pbrkmin .DW ; minimum breal level of current process2744 000092 0000 pbrkmax .DW ; maximum breal level of current process2745 0000942746 ; bios temp. work area2747 000094 bwrktmp .DS $2827482749 0000BC 00 coptmp .DB ; temp. used while cop27502751 0000BD 00 tstser .DB ; check ser/usb test board post2752 ; <7>: VIA2 ok2753 ; <6>: PICRAM ok2754 ; <1>: UART 16C550 ok2755 ; <0>: R65C51 ok275627572758 ;crc16 .DW27592760 0000BD .RELATIVETue Jul 17 11:00:19 2018 Page 427612762 .ENDS27632764 [01] .IFDEF _ACIA_INC_2765 .INCLUDE INC\SP.INC2766 [00] .ENDIF27672771 .LIST on27722773 F8FFB1 .INCLUDE inc\dpcbmfs.inc2774 ;; cbm-fs27752776 001000 VIECMAX .EQU $100027772778 000005 mxfils .EQU 5 ; max # filenames in cmd string2779 000060 cmdlen .EQU 96 ; length of command buffer (+ terminator #0)2780 000061 fntlen .EQU 97 ; length of canonical file name table2781 00001B nbsiz .EQU 27 ; nambuf text size2782 000018 dirlen .EQU 24 ; directory length used2783 000008 maxfd .EQU 8 ; max # file descriptors2784 00000A intfd .EQU maxfd+2 ; internal # file descriptors2785 00000F mxchnls .EQU 15 ; max # data channels2786 000008 irdfd .EQU maxfd ; internal fd for read file2787 000009 iwrfd .EQU maxfd+1 ; internal fd for write file27882789 000010 bindx .EQU 16 ; bam offset index2790 000006 bamsiz .EQU 6 ; # bytes/track in bam2791 000028 numsec .EQU 40 ; number of logical sectors (blocks)2792 00000A phisec .EQU 10 ; number of phisycal sectors / track2793 000028 dirtrk .EQU 40 ; system logical track2794 000003 dirst .EQU 3 ; starting directory sector2795 000051 maxtrk .EQU 81 ; max. logical track + 12796 000001 startrk .EQU 1 ; logical starting track27972798 ; max. available blocks's #2799 000C58 maxblks .EQU (numsec*(maxtrk-1)-numsec)28002801 000044 dskvern .EQU $44 ; disk version number2802 000033 dosvern .EQU $33 ; dos version number2803 00008D subvern .EQU $8D ; disk sub-version number header ofs. 29 & 302804 0000C0 iobyte .EQU $C0 ; default bam i/o byte28052806 000004 MAXDOSDRV .EQU 4 ; dos drives are 0..328072808 ;deltyp .EQU 0 ; deleted type2809 000001 seqtyp .EQU 1 ; sequential type2810 000002 prgtyp .EQU 2 ; program type2811 000003 usrtyp .EQU 3 ; user type2812 000004 reltyp .EQU 4 ; relative type2813 000005 partyp .EQU 5 ; partition type2814 000006 exetyp .EQU 6 ; new executable type2815 000007 typmsk .EQU 7 ; mask for type bits28162817 ; internal use: open function's2818 000000 rdmode .EQU 0 ; open read mode2819 000001 wtmode .EQU 1 ; open write mode2820 000002 apmode .EQU 2 ; open append modeTue Jul 17 11:00:19 2018 Page 52821 000003 mdmode .EQU 3 ; open modify mode2822 000003 lddir .EQU 3 ; load directory2823 000004 seqdir .EQU 4 ; open dir as seq. file2824 000005 damode .EQU 5 ; open direct access type28252826 ; error codes2827 000014 rdtrk .EQU 20 ; track read error2828 000015 badfmt .EQU 21 ; bad disk format (or unformatted disk)2829 000016 wrtrk .EQU 22 ; track write error2830 000018 rdsec .EQU 24 ; read error2831 000019 wrsec .EQU 25 ; write error2832 00001A wpon .EQU 26 ; write protect on2833 00001D badid .EQU 29 ; disk id mismatch2834 00001E badsyn .EQU 30 ; general syntax2835 00001F badcmd .EQU 31 ; invalid command2836 000020 longln .EQU 32 ; long line2837 000021 badfn .EQU 33 ; invalid filname2838 000022 nofile .EQU 34 ; no file given2839 000023 baddrv .EQU 35 ; illegal drive number2840 000024 badchn .EQU 36 ; illegal channel number2841 000025 nullln .EQU 37 ; empty command string2842 000027 notsam .EQU 39 ; cannot rename across drives2843 000028 flock .EQU 40 ; locked file2844 000029 fsplt .EQU 41 ; write file not closed2845 00002A bnotm .EQU 42 ; unmatch blocks count2846 00002B invlnk .EQU 43 ; invalid file link2847 00002C badlst .EQU 44 ; wrong index in last block2848 00003C filopn .EQU 60 ; file open2849 00003D filnop .EQU 61 ; file not open2850 00003E flntfd .EQU 62 ; file not found2851 00003F flexst .EQU 63 ; file exists2852 000040 mistyp .EQU 64 ; file type mismatch2853 000042 badts .EQU 66 ; illegal track or sector2854 000043 systs .EQU 67 ; illegal system t or s2855 000044 wrfil .EQU 68 ; write only file2856 000045 rdfil .EQU 69 ; read only file2857 000046 nochnl .EQU 70 ; no channel available2858 000047 direrr .EQU 71 ; directory error2859 000048 dskful .EQU 72 ; disk full2860 000049 cbmv2 .EQU 73 ; cbm emulator version2861 00004A nodriv .EQU 74 ; drive not ready2862 00004B opnchn .EQU 75 ; channel is open2863 00004C nolinx .EQU 76 ; no logical index available2864 00004D fmter .EQU 77 ; format error2865 00004E ibmfmt .EQU 78 ; ibm-formatted disk2866 00004F syterr .EQU 79 ; system track read error2867 000050 dirlnk .EQU 80 ; corrupted directory link2868 000051 bamcnt .EQU 81 ; corrupted bam2869 000052 badcat .EQU 82 ; recursive concat2870 000053 badtlk .EQU 83 ; invalid talk command2871 000054 badlsn .EQU 84 ; invalid listen command28722873 ; sezione COMMON -- questo permette di includere il file in piu' file28742875 DPCBMFS: .SECTION page0, ref_only, common2876 000000 .ABSOLUTE ;; inizia sempre da $002877 000000 .ORG 0x00Tue Jul 17 11:00:19 2018 Page 628782879 000000 zpstart .EQU $28802881 000000 delsec .DS 2 ; sector of 1st avail entry2882 000002 delind .DS 2 ; index of 1st avail entry2883 000004 dirsec .DS 2 ; directory sector of last not empty entry2884 000006 index .DS 2 ; index of last not empty entry2885 000008 00 track .DB ; current track2886 000009 00 sector .DB ; current sector2887 00000A dirp LP ; long pointer to directory entry2888 00000D 00 nxtsec .DB ; next sector in dir link2889 00000E 00 type .DB ; active file type2890 00000F 00 mode .DB ; active file mode2891 000010 00 typflg .DB ; match by type flag2892 000011 00 patflg .DB ; pattern presence flag2893 000012 00 f1cnt .DB ; file stream 1 count2894 000013 00 f2cnt .DB ; file stream total count2895 000014 00 f1ptr .DB ; file stream 1 pointer2896 000015 00 f2ptr .DB ; file stream 2 pointer2897 000016 00 entfnd .DB ; dir-entry found flag ($FF = not found)2898 000017 00 found .DB ; flag found in file stream2899 000018 00 tgflg .DB ; drive toggle flag2900 ; <7>: search both drives2901 ; <6>: drvnum was toggled29022903 000019 00 drvnum .DB ; current drive29042905 00001A filtbl .DS mxfils ; filename pointer2906 00001F 00 tmpxxx .DB ; extra byte for filtbl/tmp byte2907 000020 filtrk .DS mxfils ; 1st link/track2908 000025 filsec .DS mxfils ; /sector2909 00002A entsec .DS mxfils ; sector of directory entry2910 00002F entind .DS mxfils ; index of directory entry2911 000034 fildrv .DS mxfils ; default flag, drive #2912 000039 pattyp .DS mxfils ; pattern,replace,closed-flags,type29132914 00003E dpsave .EQU $ - zpstart29152916 ;----------------------29172918 00003E tlp LP ; tmp long pointer2919 000041 00 cmdsiz .DB ; cmd string size2920 000042 00 char .DB ; tmp store char2921 000043 00 image .DB ; file stream image29222923 000041 qfmt .EQU cmdsiz ; quick format flag2924 000042 idch1 .EQU char ; ID format char 12925 000043 idch2 .EQU image ; ID format char 22926 000042 opntm .EQU char ; <7>: open type in parameter2927 ; <6>: open mode in parameter29282929 ; virtual iec -----------------------------------------2930 000044 00 sa .DB ; persistent second addr. virtual iec2931 000045 00 viecbuf .DB ; virtual iec buffered data2932 000046 0000 viecsiz .DW2933 000048 0000 viecndx .DW2934 00004A vieclp LPTue Jul 17 11:00:19 2018 Page 72935 00004D 00 viecfg .DB ; virtual iec flag2936 ; <7>: active talk/listen2937 ; <6>: talk (listen if 0)29382939 00004E 00 vcmdix .DB ; index to command string2940 00004F 00 vbufnum .DB ; viec buffer #2941 000050 00 vcmdsiz .DB ; size of virtuasl iec buffer (channel 15)2942 000051 00 veof .DB ; eof flag29432944 ;-----------------------------------------------------2945 000052 00 chnl .DB ; channel param2946 000053 00 cmdnum .DB ; command #2947 000054 00 bchn .DB ; block-op channel2948 000055 00 subcmd .DB ; blk subcommand # or open type cmd29492950 000056 00 lsterr .DB ; last error29512952 000057 00 lindx .DB ; logical index (internal file descriptor)2953 000058 00 linuse .DB ; lindx use flags (1=free, 0=busy)2954 000059 lintab .DS mxchnls ; lindx table ($FF = free)2955 ; <7>: write type fd2956 ; <6>: direct access type fd2957 ; <5>: directory load type fd2958 ; <3>: drive2959 ; <2:0> = logical index29602961 000068 drvfg .DS 2 ; drive flag2962 ; <7>: cbm formatted disk2963 ; <6>: valid format in bit 1,02964 ; <5>: flag verify in bam iobyte2965 ; <4>: flag write protect on2966 ; <3>: flag new version2967 ;2968 ; <1:0> 00 DD ibm format2969 ; 01 DD cbm format2970 ; 10 HD ibm format2971 ; 11 HD cbm format (not used)29722973 00006A 0000 ndbf .DW ; # of disk blocks free drive 02974 00006C 0000 .DW ; # of disk blocks free drive 129752976 00006E sysbuf .DS 2 ; DMA buffer # of system track cache2977 000070 trkbuf .DS 2 ; DMA buffer # of data track cache2978 000072 wrtbuf .DS 2 ; DMA buffer # of write buffer cache2979 000074 dirofs .DS 2 ; directory cache buffer high pointer (dma)2980 000076 dirbnk .DS 2 ; directory cache buffer bank (dma)2981 000078 trkofs .DS 2 ; track cache buffer high pointer (dma)2982 00007A trkbnk .DS 2 ; track cache buffer bank (dma)2983 00007C wrtofs .DS 2 ; write cache pointer2984 00007E wrtbnk .DS 22985 000080 tcache .DS 2 ; current track in cache (0 invalidate cache)2986 000082 wcache .DS 2 ; current track in write cache (0 inv. cache)29872988 000084 wbam .DS 2 ; dirty bam flag29892990 000086 0000 bsize .DW ; size of buffer while read/write op2991 000088 0000 btrf .DW ; count of transf. bytesTue Jul 17 11:00:19 2018 Page 82992 000086 ntot .EQU bsize ; free block's counter while check file system2993 000088 bcnt .EQU btrf ; block's count while chech file system29942995 00008A bufp LP ; long pointer to read data buffer (cache)2996 00008D bmpnt LP ; bam long pointer2997 000090 wbuf LP ; long pointer to write data buffer29982999 000093 00 tmp0 .DB ; temp. byte3000 000094 0000 wtmp .DW ; tmp word30013002 000096 fdst .DS maxfd ; fd status3003 ; <7>: ready3004 ; <6>: eof flag3005 ; <0>: drive3006 00009E dsec .DS maxfd ; sector of dir entry3007 0000A6 dind .DS maxfd ; index of dir entry3008 0000AE ftrk .DS maxfd ; current file track (hi dir ptr for dir list)3009 0000B6 fsec .DS maxfd ; current file sector (rdlst for dir list)3010 0000BE fdptr .DS maxfd ; file buffer pointer3011 0000C6 fdblk .DS maxfd ; current file block # count3012 0000CE .DS maxfd ; dir. ptr for dir list3013 0000D6 fdlst .DS maxfd ; local buffer last byte ptr3014 0000DE fdix .DS maxfd ; local buffer pointer301530163017 0000E6 00 wrop .DB ; flag write-op3018 0000E7 00 data .DB ; buffered byte3019 0000E8 00 rddrv .DB ; drive # to read (buffered operation)3020 0000E9 00 rdidx .DB ; pointer to read buffer (buffered operation)3021 0000EA 00 rdlst .DB ; pointer to last byte (buffered operation)3022 0000EB 00 rdeof .DB ; eof condition (buffered operation)3023 0000EC 00 wrdrv .DB ; drive # to write (buffered operation)3024 0000ED 00 wridx .DB ; pointer to write buffer (buffered operation)3025 0000EE 00 wsec .DB ; last dirty sector in write cache3026 0000EF 00 wfirst .DB ; first dirty sector in write cache3027 0000F0 0000 wcnt .DW ; block's # of write file (buffered operation)30283029 0000F2 00 pdrv .DB ; used by disk access routines: drive #3030 0000F3 00 pside .DB ; side #3031 0000F4 00 psec .DB ; start sector #3032 0000F5 00 pcnt .DB ; sector(s) count #3033 0000F6 00 pbuf .DB ; dma buffer #30343035 0000F7 00 dblfd .DB ; double index lindx3036 0000F8 00 trap .DB ; flag error trap3037 0000F9 00 cmdtrap .DB ; no error if command string is empty30383039 0000F9 .RELATIVE3040 .ENDS30413042 ; CBM FS work area3043 CBMFSW: .SECTION common, ref_only3044 000000 .ABSOLUTE3045 00E100 .ORG CBMFSW_START30463047 00E100 cmdbuf .DS cmdlen ; command buffer3048 00E160 00 .DB ; for terminator '0'Tue Jul 17 11:00:19 2018 Page 93049 00E161 fntab .DS fntlen ; room for one dos filename (80) + one cbm...3050 ; filename (17) or for 5 cbm file names (85)3051 00E1C23052 00E1C2 nambuf .DS nbsiz ; directory buffer3053 00E1DD nambuf2 .DS 19 ; buffer for store quoted file name30543055 00E1F0 0000 0000 dskser .LWORD ; serial in new version3056 00E1F4 0000 0000 .LWORD30573058 00E1F8 0000 tos .DW ; saved stack pointer3059 00E1FA 00 etrk .DB ; save track & sector for fmterr function3060 00E1FB 00 esec .DB3061 00E1FC dskid1 .DS 2 ; disk id 13062 00E1FE dskid2 .DS 2 ; disk id 230633064 00E200 .RELATIVE3065 .ENDS30663067 CBMVIEC: .SECTION common, ref_only3068 000000 .ABSOLUTE3069 00E200 .ORG CBMVIEC_START30703071 00E200 vixtab .DS 163072 00E210 vsiztab .DS 163073 00E220 vftab .DS 163074 00E230 00 vopnsa .DB ; SA for open command3075 00E231 00 .DB3076 00E232 vieccmd .DS cmdlen3077 00E292 00 .DB307830793080 00E292 .RELATIVE3081 .ENDS308230833084 .CODEF93085 .LONGA off3086 .LONGI off30873088 .EXTERN gctime1630893090 ;---------------------------------------------------------------------------3091 ; System interface3092 ;---------------------------------------------------------------------------30933094 ; virtual iec interface30953096 ; open procedure3097 ; call vlsnopn (A=sa)3098 ; call vsndcmd (A=byte)3099 ; call vunlsnopn3100 ; vlsnopn - listen for open3101 ; first call when send command or open file3102 ; A=sa3103 F92A6F vlsnopn:3104 .GLOBAL vlsnopn3105Tue Jul 17 11:00:19 2018 Page 103106 F92A6F 0B phd3107 F92A70 F4 00 7E pea #CBMFSP03108 F92A73 2B pld ; set dp to emulator3109 F92A74 8B phb ; save current dbr3110 F92A75 A2 00 ldx #03111 F92A77 DA phx3112 F92A78 AB plb ; set dbr=03113 F92A79 29 0F and #$0F3114 F92A7B 8D 30 E2 sta !vopnsa ; save SA3115 F92A7E 64 4E stz vcmdix ; clear command string index3116 F92A80 AB plb3117 F92A81 2B pld3118 F92A82 6B rtl3119 F92A833120 ; vsndcmd: send cmd byte (A)3121 F92A83 vsndcmd:3122 .GLOBAL vsndcmd31233124 F92A83 DA phx3125 F92A84 0B phd3126 F92A85 F4 00 7E pea #CBMFSP03127 F92A88 2B pld ; set dp to emulator3128 F92A89 8B phb ; save current dbr3129 F92A8A A2 00 ldx #03130 F92A8C DA phx3131 F92A8D AB plb ; set dbr=03132 F92A8E A6 4E ldx vcmdix3133 F92A90 E0 60 cpx #cmdlen3134 F92A92 B0 06 bcs ?end ; string too long, no store3135 F92A94 9D 32 E2 sta !vieccmd,x ; store3136 F92A97 E8 inx3137 F92A98 86 4E stx vcmdix ; update string index3138 F92A9A AB ?end: plb3139 F92A9B 2B pld3140 F92A9C FA plx3141 F92A9D 6B rtl31423143 ; vunlsnopn - ulisten after open command3144 ; CF=1 if error3145 F92A9E vunlsnopn:3146 .GLOBAL vunlsnopn31473148 F92A9E 0B phd3149 F92A9F F4 00 7E pea #CBMFSP03150 F92AA2 2B pld ; set dp to emulator3151 F92AA3 8B phb ; save current dbr3152 F92AA4 A2 00 ldx #03153 F92AA6 DA phx3154 F92AA7 AB plb ; set dbr=03155 F92AA8 AD 30 E2 lda !vopnsa ; open SA3156 F92AAB 20 B1 2A jsr vopen ; exec open cmd3157 F92AAE AB plb3158 F92AAF 2B pld3159 F92AB0 6B rtl3160 F92AB13161 ; vopen: local for open3162 ; A=sa, X=0Tue Jul 17 11:00:19 2018 Page 113163 F92AB1 vopen:3164 F92AB1 85 52 sta chnl ; channel for exec command3165 F92AB3 C9 0F cmp #$0F3166 F92AB5 D0 01 bne ?trp3167 F92AB7 CA dex ; accept null string in cmd channel3168 F92AB8 86 F9 ?trp: stx cmdtrap3169 F92ABA A9 32 lda #<vieccmd ; set pointer of command string3170 F92ABC 85 3E sta tlp3171 F92ABE A9 E2 lda #>vieccmd3172 F92AC0 85 3F sta tlp+13173 F92AC2 64 40 stz tlp+2 ; cmd. string in bank 03174 F92AC4 A6 4E ldx vcmdix3175 F92AC6 9E 32 E2 stz !vieccmd,x ; terminate command string3176 F92AC9 20 8D 2F jsr parsex ; parse & execute command string3177 F92ACC 64 4E stz vcmdix ; clear command buffer index3178 F92ACE B0 1B bcs ?end ; error3179 F92AD0 A6 52 ldx chnl3180 F92AD2 E0 0F cpx #$0F3181 F92AD4 D0 02 bne ?dat ; data channel3182 F92AD6 18 clc3183 F92AD7 60 rts3184 F92AD8 B5 57 ?dat: lda lindx,x3185 F92ADA 29 07 and #$073186 F92ADC 0A asl a3187 F92ADD AA tax ; double index #3188 F92ADE ACC16CLC ; CF=0, no error3189 F92ADE C2 21 rep #(PMFLAG.OR.PCFLAG)3190 .LONGA on3191 .MNLIST3192 F92AE0 9E 00 E2 stz !vixtab,x3193 F92AE3 9E 10 E2 stz !vsiztab,x3194 F92AE6 9E 20 E2 stz !vftab,x ; pre-read flag & eof3195 F92AE9 ACC083196 F92AE9 E2 20 sep #PMFLAG3197 .LONGA off3198 .MNLIST3199 F92AEB 60 ?end: rts32003201 ; call after open (X = sa)3202 F92AEC vopnlst:3203 .GLOBAL vopnlst3204 F92AEC DA phx3205 F92AED 0B phd3206 F92AEE F4 00 7E pea #CBMFSP03207 F92AF1 2B pld ; set dp to emulator3208 F92AF2 8B phb ; save current dbr3209 F92AF3 A9 00 lda #03210 F92AF5 48 pha3211 F92AF6 AB plb ; set dbr=03212 F92AF7 B5 57 ?dat: lda lindx,x3213 F92AF9 29 07 and #$073214 F92AFB 0A asl a3215 F92AFC AA tax ; double index #3216 F92AFD ACC16CLC ; CF=0, no error3217 F92AFD C2 21 rep #(PMFLAG.OR.PCFLAG)3218 .LONGA on3219 .MNLISTTue Jul 17 11:00:19 2018 Page 123220 F92AFF 9E 00 E2 stz !vixtab,x3221 F92B02 9E 10 E2 stz !vsiztab,x3222 F92B05 9E 20 E2 stz !vftab,x ; pre-read flag & eof3223 F92B08 ACC083224 F92B08 E2 20 sep #PMFLAG3225 .LONGA off3226 .MNLIST3227 F92B0A AB plb3228 F92B0B 2B pld3229 F92B0C FA plx3230 F92B0D 6B rtl32313232 ; A,X,Y=long pointer to command string3233 ; B=sa3234 F92B0E viec8open:3235 F92B0E 0B phd ; save current dp3236 F92B0F F4 00 7E pea #CBMFSP03237 F92B12 2B pld ; set dp to emulator3238 F92B13 85 3E sta tlp ; set command string ptr3239 F92B15 86 3F stx tlp+13240 F92B17 84 40 sty tlp+23241 F92B19 EB xba ; channel #3242 F92B1A 29 0F and #$0F3243 F92B1C 85 52 sta chnl3244 F92B1E 8B phb ; save current dbr3245 F92B1F A2 00 ldx #03246 F92B21 DA phx3247 F92B22 AB plb ; set dbr=03248 F92B23 C9 0F cmp #$0F3249 F92B25 D0 01 bne ?trp3250 F92B27 CA dex ; accept null string in cmd channel3251 F92B28 86 F9 ?trp: stx cmdtrap3252 F92B2A 20 8D 2F jsr parsex ; parse & execute command string3253 F92B2D B0 1E bcs ?end ; error3254 F92B2F A6 52 ldx chnl3255 F92B31 E0 0F cpx #$0F3256 F92B33 D0 05 bne ?dat ; data channel3257 F92B35 64 4E stz vcmdix ; clear command buffer index3258 F92B37 18 clc3259 F92B38 F0 13 beq ?end3260 F92B3A B5 57 ?dat: lda lindx,x3261 F92B3C 29 07 and #$073262 F92B3E 0A asl a3263 F92B3F AA tax ; double index #3264 F92B40 ACC16CLC3265 F92B40 C2 21 rep #(PMFLAG.OR.PCFLAG)3266 .LONGA on3267 .MNLIST3268 F92B42 9E 00 E2 stz !vixtab,x3269 F92B45 9E 10 E2 stz !vsiztab,x3270 F92B48 9E 20 E2 stz !vftab,x ; pre-read flag & eof3271 F92B4B ACC083272 F92B4B E2 20 sep #PMFLAG3273 .LONGA off3274 .MNLIST3275 F92B4D AB ?end: plb ; restore dbr3276 F92B4E 2B pld ; restore dpTue Jul 17 11:00:19 2018 Page 133277 F92B4F 6B rtl ; return CF=1 if error32783279 ; listen command3280 ; A=sa3281 F92B50 viec8lsn:3282 .GLOBAL viec8lsn32833284 F92B50 DA phx ; save X, Y3285 F92B51 5A phy3286 F92B52 0B phd ; save current dp3287 F92B53 F4 00 7E pea #CBMFSP03288 F92B56 2B pld ; set dp to cbmfs emulator3289 F92B57 8B phb ; save dbr3290 F92B58 A2 00 ldx #03291 F92B5A DA phx3292 F92B5B AB plb ; set dbr = 03293 F92B5C 85 52 sta chnl ; save sa3294 F92B5E 29 0F and #$0F3295 F92B60 AA tax ; X=sa3296 F92B613297 F92B61 9C 30 E2 stz !vopnsa32983299 F92B64 24 4D bit viecfg ; already active?3300 F92B66 10 12 bpl ?tst ; no3301 F92B68 E4 44 cpx sa3302 F92B6A D0 07 bne ?bad3303 F92B6C3304 F92B6C A0 FF ldy #$FF3305 F92B6E 8C 30 E2 sty .ABS.vopnsa3306 F92B71 80 15 bra ?dat33073308 F92B73 A9 54 ?bad: lda #badlsn ; invalid listen command3309 F92B75 20 35 2E jsr viecerr ; set error3310 F92B78 80 2F bra ?end ; exit with CF=13311 F92B7A 20 10 2E ?tst: jsr vtstwr ; test if write channel3312 F92B7D B0 2A bcs ?end ; error3313 F92B7F E0 0F cpx #$0F3314 F92B81 D0 05 bne ?dat ; data channel3315 F92B83 64 4E stz vcmdix ; clear index3316 F92B85 18 clc3317 F92B86 80 21 bra ?end ; exit3318 F92B88 A6 4F ?dat: ldx vbufnum3319 F92B8A3320 F92B8A 18 clc3321 F92B8B 2C 30 E2 bit !vopnsa3322 F92B8E 30 19 bmi ?end33233324 F92B90 ACC16CLC3325 F92B90 C2 21 rep #(PMFLAG.OR.PCFLAG)3326 .LONGA on3327 .MNLIST3328 F92B92 BF CA 2E F9 lda >viecdma,x3329 F92B96 85 4A sta vieclp3330 F92B98 A0 03 ldy #DMABNK+1 ; bank $80..$BF3331 F92B9A 84 4C sty vieclp+23332 F92B9C BF 00 E2 00 lda vixtab,x ; get current index3333 F92BA0 85 48 sta viecndxTue Jul 17 11:00:19 2018 Page 143334 F92BA2 A9 00 10 lda #VIECMAX ; max. size of buffer3335 F92BA5 85 46 sta viecsiz3336 F92BA7 ACC083337 F92BA7 E2 20 sep #PMFLAG3338 .LONGA off3339 .MNLIST3340 F92BA9 A5 52 ?end: lda chnl3341 F92BAB AB plb3342 F92BAC 2B pld3343 F92BAD 7A ply3344 F92BAE FA plx3345 F92BAF 6B rtl33463347 ; talk command3348 ; A=sa3349 F92BB0 viec8tlk:3350 .GLOBAL viec8tlk33513352 F92BB0 DA phx ; save X, Y3353 F92BB1 5A phy3354 F92BB2 0B phd ; save current dp3355 F92BB3 F4 00 7E pea #CBMFSP03356 F92BB6 2B pld ; set dp to cbmfs emulator3357 F92BB7 8B phb ; save dbr3358 F92BB8 A2 00 ldx #03359 F92BBA DA phx3360 F92BBB AB plb ; set dbr = 03361 F92BBC 85 52 sta chnl ; save sa3362 F92BBE 29 0F and #$0F3363 F92BC0 AA tax ; X=sa3364 F92BC13365 F92BC1 9C 30 E2 stz !vopnsa33663367 F92BC4 24 4D bit viecfg ; already active?3368 F92BC6 10 12 bpl ?tst ; no3369 F92BC8 E4 44 cpx sa3370 F92BCA D0 07 bne ?bad3371 F92BCC A0 FF ldy #$FF3372 F92BCE 8C 30 E2 sty .ABS.vopnsa3373 F92BD1 80 2B bra ?dat33743375 F92BD3 A9 53 ?bad: lda #badtlk ; invalid talk command3376 F92BD5 20 35 2E jsr viecerr ; set error3377 F92BD8 80 6D bra ?end ; exit with CF=13378 F92BDA 20 F5 2D ?tst: jsr vtstrd ; test if read channel3379 F92BDD B0 68 bcs ?end ; error3380 F92BDF E0 0F cpx #$0F3381 F92BE1 D0 1B bne ?dat ; data channel3382 F92BE3 20 44 57 jsr fnderr ; find last error3383 F92BE6 A0 FF ldy #$FF ; store error string3384 F92BE8 C8 ?lp: iny3385 F92BE9 B7 3E lda [tlp],y3386 F92BEB 99 32 E2 sta vieccmd,y3387 F92BEE D0 F8 bne ?lp3388 F92BF0 A9 0D lda #$0D3389 F92BF2 99 32 E2 sta vieccmd,y3390 F92BF5 C8 inyTue Jul 17 11:00:19 2018 Page 153391 F92BF6 84 50 sty vcmdsiz ; buffer size3392 F92BF8 64 4E stz vcmdix ; clear index3393 F92BFA C2 41 rep #PCFLAG+PVFLAG ; CF=VF=0: no error, no eof3394 F92BFC 80 49 bra ?end ; exit3395 F92BFE A6 4F ?dat: ldx vbufnum3396 F92C00 BD 21 E2 lda !vftab+1,x3397 F92C03 85 51 sta veof ; eof flag3398 F92C053399 F92C05 2C 30 E2 bit !vopnsa3400 F92C08 30 19 bmi ?dat234013402 F92C0A ACC16CLC ; CF=03403 F92C0A C2 21 rep #(PMFLAG.OR.PCFLAG)3404 .LONGA on3405 .MNLIST3406 F92C0C BF CA 2E F9 lda >viecdma,x3407 F92C10 85 4A sta vieclp ; set buffer pointer3408 F92C12 A0 03 ldy #DMABNK+13409 F92C14 84 4C sty vieclp+23410 F92C16 BF 00 E2 00 lda vixtab,x3411 F92C1A 85 48 sta viecndx ; current index3412 F92C1C BD 10 E2 lda !vsiztab,x3413 F92C1F 85 46 sta viecsiz ; current buffer size3414 F92C21 ACC083415 F92C21 E2 20 sep #PMFLAG3416 .LONGA off3417 .MNLIST3418 F92C23 24 51 ?dat2: bit veof ; eof?3419 F92C25 30 1E bmi ?eof ; yes: exit with CF=0, VF=13420 F92C27 3C 20 E2 bit !vftab,x ; pre-read flag3421 F92C2A 30 0A bmi ?ok ; already pre-readed3422 F92C2C 20 4E 2C jsr vbufrd ; pre-read into buffer3423 F92C2F A9 80 lda #$803424 F92C31 9D 20 E2 sta !vftab,x ; set pre-read flag3425 F92C34 B0 11 bcs ?end ; read error3426 F92C36 ?ok: ACC16CV ; CF=0, VF=03427 F92C36 C2 61 rep #(PMFLAG.OR.PCFLAG.OR.PVFLAG)3428 .LONGA on3429 .MNLIST3430 F92C38 A5 46 lda viecsiz ; buffer is empty?3431 F92C3A ACC083432 F92C3A E2 20 sep #PMFLAG3433 .LONGA off3434 .MNLIST3435 F92C3C D0 09 bne ?end ; no3436 F92C3E A9 C0 lda #$C03437 F92C40 85 51 sta veof ; set eof flag3438 F92C42 9D 21 E2 sta !vftab+1,x3439 F92C45 E2 40 ?eof: sep #PVFLAG ; VF=1: eof3440 F92C47 A5 52 ?end: lda chnl3441 F92C49 AB plb3442 F92C4A 2B pld3443 F92C4B 7A ply3444 F92C4C FA plx3445 F92C4D 6B rtl34463447 ; CF=1 if read errorTue Jul 17 11:00:19 2018 Page 163448 F92C4E vbufrd:3449 F92C4E ACC163450 F92C4E C2 20 rep #PMFLAG3451 .LONGA on3452 .MNLIST3453 F92C50 A5 4A lda vieclp ; set read buffer3454 F92C52 A4 4C ldy vieclp+23455 F92C54 85 90 sta wbuf3456 F92C56 84 92 sty wbuf+23457 F92C58 A9 00 10 lda #VIECMAX ; buffer max. size3458 F92C5B 85 86 sta bsize3459 F92C5D 64 88 stz btrf ; clear transferred count3460 F92C5F 64 46 stz viecsiz ; empty buffer3461 F92C61 64 48 stz viecndx3462 F92C63 ACC083463 F92C63 E2 20 sep #PMFLAG3464 .LONGA off3465 .MNLIST3466 F92C65 A0 00 ldy #0 ; pre-read into buffer3467 F92C67 A6 44 ldx sa3468 F92C69 86 52 stx chnl3469 F92C6B 20 4F 43 jsr fd_rw3470 F92C6E A6 4F ldx vbufnum3471 F92C70 ACC163472 F92C70 C2 20 rep #PMFLAG3473 .LONGA on3474 .MNLIST3475 F92C72 A9 00 00 lda #03476 F92C75 B0 02 bcs ?st ; error3477 F92C77 A5 88 lda btrf ; count of transf. bytes3478 F92C79 85 46 ?st: sta viecsiz3479 F92C7B 9D 10 E2 sta !vsiztab,x3480 F92C7E ACC083481 F92C7E E2 20 sep #PMFLAG3482 .LONGA off3483 .MNLIST3484 F92C80 60 rts34853486 ; A=data3487 F92C81 viec8put:3488 .GLOBAL viec8put34893490 F92C81 DA phx ; save X, Y3491 F92C82 5A phy3492 F92C83 0B phd ; save current dp3493 F92C84 F4 00 7E pea #CBMFSP03494 F92C87 2B pld ; set dp to cbmfs emulator3495 F92C88 8B phb ; save dbr3496 F92C89 A2 00 ldx #03497 F92C8B DA phx3498 F92C8C AB plb ; set dbr = 03499 F92C8D 85 45 sta viecbuf ; save data to put3500 F92C8F 24 4D bit viecfg ; current sa is active?3501 F92C91 10 02 bpl ?ern ; no3502 F92C93 50 0F bvc ?ok ; ready to listen3503 F92C95 A9 46 ?ern: lda #nochnl ; no channel available3504 F92C97 80 04 bra ?erTue Jul 17 11:00:19 2018 Page 173505 F92C99 A6 44 ?erl: ldx sa ; channel # error3506 F92C9B A9 20 lda #longln ; command too long3507 F92C9D 20 35 2E ?er: jsr viecerr3508 F92CA0 A5 45 lda viecbuf3509 F92CA2 80 4E bra ?end ; return CF=13510 F92CA4 A6 44 ?ok: ldx sa ; trust on sa channel3511 F92CA6 E0 0F cpx #$0F3512 F92CA8 D0 0E bne ?dat ; put to data channel3513 F92CAA A6 4E ldx vcmdix ; current buffer index3514 F92CAC E0 60 cpx #cmdlen3515 F92CAE B0 E9 bcs ?erl ; command line too long3516 F92CB0 9D 32 E2 sta !vieccmd,x ; store3517 F92CB3 E8 inx3518 F92CB4 86 4E stx vcmdix ; update index3519 ;cmp #$0D ; terminate command string?3520 ;bne ?clc ; no, wait terminator3521 ;stz !vieccmd-1,x ; terminate string with null3522 ;lda #$0F3523 ;xba ; B=channel 153524 ;lda #<vieccmd ; set pointer to command string3525 ;ldx #>vieccmd3526 ;ldy #0 ; command string in bank 03527 ;stz vcmdix ; clear buffer index3528 ;jsr viec8cmd ; exexcute command in channel 153529 ;lda #$0D3530 F92CB6 80 3A bra ?end ; CF set if error3531 F92CB8 A2 00 ?dat: ldx #03532 F92CBA INDEX163533 F92CBA C2 10 rep #PXFLAG3534 .LONGI on3535 .MNLIST3536 F92CBC A4 48 ldy viecndx ; index into buffer3537 F92CBE C4 46 cpy viecsiz3538 F92CC0 B0 07 bcs ?wr ; flush buffer3539 F92CC2 97 4A sta [vieclp],y ; store3540 F92CC4 C8 iny3541 F92CC5 84 48 sty viecndx ; update index3542 F92CC7 80 27 bra ?xy8 ; exit with CF=03543 F92CC9 A4 4A ?wr: ldy vieclp ; flush buffer on disk3544 F92CCB 84 90 sty wbuf ; set buffer pointer3545 F92CCD A5 4C lda vieclp+23546 F92CCF 85 92 sta wbuf+23547 F92CD1 A4 46 ldy viecsiz3548 F92CD3 84 86 sty bsize ; buffer size3549 F92CD5 86 88 stx btrf ; clear transferred count3550 F92CD7 86 48 stx viecndx ; clear index3551 ;stx viecsiz ; clear size3552 F92CD9 CPU083553 F92CD9 E2 30 sep #(PMFLAG.OR.PXFLAG)3554 .LONGA off3555 .LONGI off3556 .MNLIST3557 F92CDB A6 44 ldx sa ; set channel #3558 F92CDD 86 52 stx chnl3559 F92CDF A0 01 ldy #1 ; write op3560 F92CE1 20 4F 43 jsr fd_rw3561 F92CE4 A5 45 lda viecbuf ; data to storeTue Jul 17 11:00:19 2018 Page 183562 F92CE6 B0 0A bcs ?end ; error3563 F92CE8 A0 01 ldy #13564 F92CEA INDEX163565 F92CEA C2 10 rep #PXFLAG3566 .LONGI on3567 .MNLIST3568 F92CEC 87 4A sta [vieclp] ; store3569 F92CEE 84 48 sty viecndx ; next index = 13570 F92CF0 ?xy8: INDEX083571 F92CF0 E2 10 sep #PXFLAG3572 .LONGI off3573 .MNLIST3574 F92CF2 AB ?end: plb3575 F92CF3 2B pld3576 F92CF4 7A ply3577 F92CF5 FA plx3578 F92CF6 6B rtl35793580 F92CF7 viec8get:3581 .GLOBAL viec8get35823583 F92CF7 DA phx ; save X, Y3584 F92CF8 5A phy3585 F92CF9 0B phd ; save current dp3586 F92CFA F4 00 7E pea #CBMFSP03587 F92CFD 2B pld ; set dp to cbmfs emulator3588 F92CFE 8B phb ; save dbr3589 F92CFF A2 00 ldx #03590 F92D01 DA phx3591 F92D02 AB plb ; set dbr = 03592 F92D03 24 4D bit viecfg ; current sa is active?3593 F92D05 10 02 bpl ?ern ; no3594 F92D07 70 09 bvs ?ok ; ready to talk3595 F92D09 A9 46 ?ern: lda #nochnl ; no channel available3596 F92D0B 20 35 2E jsr viecerr3597 F92D0E A9 0D lda #$0D3598 F92D10 80 5C bra ?end ; return CF=13599 F92D12 A6 44 ?ok: ldx sa ; talk channel3600 F92D14 E0 0F cpx #$0F3601 F92D16 D0 1E bne ?dat ; data channel3602 F92D18 A9 0D lda #$0D3603 F92D1A A4 50 ldy vcmdsiz ; if buffer is empty...3604 F92D1C F0 4A beq ?eof ; ... return CR & VF=1 (eof)3605 F92D1E A6 4E ldx vcmdix ; index into buffer3606 F92D20 E4 50 cpx vcmdsiz ; if buffer is terminated...3607 F92D22 90 03 bcc ?get3608 F92D24 18 clc ; ... return CR & VF=1 (eof)3609 F92D25 80 41 bra ?eof3610 F92D27 BD 32 E2 ?get: lda !vieccmd,x ; get data3611 F92D2A E8 inx3612 F92D2B 86 4E stx vcmdix3613 F92D2D E4 50 cpx vcmdsiz ; if not last data...3614 F92D2F B8 clv3615 F92D30 90 3C bcc ?end ; ...exit with VF=03616 F92D32 64 56 stz lsterr ; clear last error3617 F92D34 80 32 bra ?eof ; return VF=1 (eof)3618 F92D36 A2 00 ?dat: ldx #0Tue Jul 17 11:00:19 2018 Page 193619 F92D38 INDEX16CLC ; CF=03620 F92D38 C2 11 rep #(PXFLAG.OR.PCFLAG)3621 .LONGI on3622 .MNLIST3623 F92D3A A9 0D lda #$0D ; return CR if eof3624 F92D3C 24 51 bit veof ; eof flag ?3625 F92D3E 30 2E bmi ?end ; exit with CF=0, VF=13626 F92D40 A4 46 ldy viecsiz ; if buffer is empty...3627 F92D42 F0 24 beq ?eof ; ... return CR & VF=1 (eof)3628 F92D44 A4 48 ldy viecndx ; index into buffer3629 F92D46 B7 4A lda [vieclp],y ; get data3630 F92D48 C8 iny3631 F92D49 84 48 sty viecndx ; update index3632 F92D4B C4 46 cpy viecsiz3633 F92D4D B8 clv3634 F92D4E 90 1E bcc ?end ; no eof3635 F92D50 C0 00 10 cpy #VIECMAX ; partial buffer?3636 F92D53 85 45 sta viecbuf ; save data3637 F92D55 90 1E bcc ?eof2 ; yes, eof3638 F92D57 INDEX083639 F92D57 E2 10 sep #PXFLAG3640 .LONGI off3641 .MNLIST3642 F92D59 20 4E 2C jsr vbufrd ; pre-read buffer3643 F92D5C A5 45 lda viecbuf ; data3644 F92D5E B0 0E bcs ?end ; error3645 F92D60 INDEX16CV3646 F92D60 C2 51 rep #(PXFLAG.OR.PCFLAG.OR.PVFLAG)3647 .LONGI on3648 .MNLIST3649 F92D62 A4 88 ldy btrf ; count of transf. bytes3650 F92D64 84 46 sty viecsiz3651 ;bne ?end ; is not last char3652 F92D66 80 06 bra ?end3653 F92D68 ?eof: CPU08VF ; eof so set VF = 13654 F92D68 E2 70 sep #(PMFLAG.OR.PXFLAG.OR.PVFLAG)3655 .LONGA off3656 .LONGI off3657 .MNLIST3658 F92D6A A2 C0 ldx #$C03659 F92D6C 86 51 stx veof ; set eof flag3660 F92D6E ?end: CPU083661 F92D6E E2 30 sep #(PMFLAG.OR.PXFLAG)3662 .LONGA off3663 .LONGI off3664 .MNLIST3665 F92D70 AB plb3666 F92D71 2B pld3667 F92D72 7A ply3668 F92D73 FA plx3669 F92D74 6B rtl3670 F92D75 ?eof2: CPU083671 F92D75 E2 30 sep #(PMFLAG.OR.PXFLAG)3672 .LONGA off3673 .LONGI off3674 .MNLIST3675 F92D77 B8 clvTue Jul 17 11:00:19 2018 Page 203676 F92D78 A9 C0 lda #$C03677 F92D7A 85 51 sta veof3678 F92D7C A5 45 lda viecbuf3679 F92D7E 80 EE bra ?end36803681 ; unlisten3682 F92D80 v8unlsn:3683 .GLOBAL v8unlsn36843685 F92D80 DA phx3686 F92D81 0B phd ; save current dp3687 F92D82 F4 00 7E pea #CBMFSP03688 F92D85 2B pld ; set dp to cbmfs emulator3689 F92D86 8B phb ; save dbr3690 F92D87 A9 00 lda #03691 F92D89 48 pha3692 F92D8A AB plb ; set dbr = 03693 F92D8B 24 4D bit viecfg ; current sa is active?3694 F92D8D 10 10 bpl ?end ; no3695 F92D8F 70 0E bvs ?end ; channel is talking3696 F92D91 A5 44 lda sa3697 F92D93 C9 0F cmp #$0F3698 F92D95 D0 05 bne ?clr3699 F92D97 20 B1 2A jsr vopen3700 F92D9A 80 04 bra ?end23701 F92D9C 20 C3 2D ?clr: jsr v8clr3702 F92D9F 18 ?end: clc3703 F92DA0 AB ?end2: plb3704 F92DA1 2B pld3705 F92DA2 FA plx3706 F92DA3 6B rtl3707 F92DA43708 ; untalk3709 F92DA4 v8untlk:3710 .GLOBAL v8untlk37113712 F92DA4 DA phx3713 F92DA5 0B phd ; save current dp3714 F92DA6 F4 00 7E pea #CBMFSP03715 F92DA9 2B pld ; set dp to cbmfs emulator3716 F92DAA 8B phb ; save dbr3717 F92DAB A9 00 lda #03718 F92DAD 48 pha3719 F92DAE AB plb ; set dbr = 03720 F92DAF 24 4D bit viecfg ; current sa is active?3721 F92DB1 10 0B bpl ?end ; no3722 F92DB3 50 09 bvc ?end ; channel is listening3723 F92DB5 A6 44 ldx sa3724 F92DB7 E0 0F cpx #$0F3725 F92DB9 F0 03 beq ?end3726 F92DBB 20 C3 2D jsr v8clr3727 F92DBE AB ?end: plb3728 F92DBF 2B pld3729 F92DC0 FA plx3730 F92DC1 18 clc3731 F92DC2 6B rtl3732 F92DC3Tue Jul 17 11:00:19 2018 Page 213733 ; clear channel3734 F92DC3 v8clr:3735 F92DC3 A6 4F ldx vbufnum3736 F92DC5 A5 51 lda veof3737 F92DC7 9F 21 E2 00 sta vftab+1,x3738 F92DCB ACC163739 F92DCB C2 20 rep #PMFLAG3740 .LONGA on3741 .MNLIST3742 F92DCD A5 48 lda viecndx3743 F92DCF 9F 00 E2 00 sta vixtab,x3744 F92DD3 A5 46 lda viecsiz3745 F92DD5 9F 10 E2 00 sta vsiztab,x3746 F92DD9 ACC083747 F92DD9 E2 20 sep #PMFLAG3748 .LONGA off3749 .MNLIST3750 F92DDB 64 4D stz viecfg3751 F92DDD 60 rts37523753 ; A,X,Y=long pointer to command string3754 ; B=sa3755 F92DDE viec8cmd:3756 F92DDE 85 3E sta tlp ; set pointer to command string3757 F92DE0 86 3F stx tlp+13758 F92DE2 84 40 sty tlp+23759 F92DE4 A2 00 ldx #03760 F92DE6 EB xba3761 F92DE7 29 0F and #$0F3762 F92DE9 85 52 sta chnl3763 F92DEB C9 0F cmp #$0F3764 F92DED D0 01 bne ?trp3765 F92DEF CA dex ; accept null string in cmd channel3766 F92DF0 86 F9 ?trp: stx cmdtrap3767 F92DF2 4C 8D 2F jmp parsex ; parse & execute command string37683769 ; test channel for read3770 ; x = channel #3771 F92DF5 vtstrd:3772 F92DF5 E0 0F cpx #$0F3773 F92DF7 F0 0F beq ?ok ; is command channel3774 F92DF9 B5 59 lda lintab,x ; test if given channel is open3775 F92DFB A8 tay3776 F92DFC C9 FF cmp #$FF3777 F92DFE F0 2F beq verrnochn ; channel not open3778 F92E00 98 tya3779 F92E01 30 30 bmi verrbadchn ; channel not open for read3780 F92E03 29 07 and #$073781 F92E05 0A asl a3782 F92E06 85 4F sta vbufnum ; buffer number #3783 F92E08 86 44 ?ok: stx sa ; save channel #3784 F92E0A A9 C0 lda #$C0 ; set active talk sa3785 F92E0C 85 4D sta viecfg3786 F92E0E 18 clc ; no error3787 F92E0F 60 rts37883789 ; test channel for writeTue Jul 17 11:00:19 2018 Page 223790 ; x = channel #3791 F92E10 vtstwr:3792 F92E10 E0 0F cpx #$0F3793 F92E12 F0 13 beq ?set ; is command channel3794 F92E14 B5 59 lda lintab,x ; test if given channel is open3795 F92E16 A8 tay3796 F92E17 C9 FF cmp #$FF3797 F92E19 F0 14 beq verrnochn ; channel not open3798 F92E1B 98 tya3799 F92E1C 30 04 bmi ?ok ; ok is a write channel3800 F92E1E 0A asl a ; test bit 6 - direct access3801 F92E1F 10 12 bpl verrbadchn ; channel not open for write3802 F92E21 98 tya3803 F92E22 29 07 ?ok: and #$073804 F92E24 0A asl a3805 F92E25 85 4F sta vbufnum ; buffer number #3806 F92E27 86 44 ?set: stx sa ; save channel #3807 F92E29 A9 80 lda #$80 ; set active listen sa3808 F92E2B 85 4D sta viecfg3809 F92E2D 18 clc ; no error3810 F92E2E 60 rts38113812 F92E2F verrnochn:3813 F92E2F A9 3D lda #filnop3814 F92E31 80 02 bra viecerr3815 F92E33 verrbadchn:3816 F92E33 A9 24 lda #badchn3817 F92E35 viecerr:3818 F92E35 8E FA E1 stx etrk3819 F92E38 9C FB E1 stz esec3820 F92E3B 85 56 sta lsterr3821 F92E3D 38 sec3822 F92E3E 60 rts38233824 F92E3F verrlsn:3825 F92E3F A9 54 lda #badlsn3826 F92E41 80 F2 bra viecerr38273828 ; test channel for close3829 ; A=sa3830 F92E43 vtstcls:3831 F92E43 64 51 stz veof ; clear flush buffer flag3832 F92E45 29 0F and #$0F3833 F92E47 AA tax3834 F92E48 E0 0F cpx #$0F3835 F92E4A F0 3E beq ?end3836 F92E4C 24 4D bit viecfg3837 F92E4E 30 EF bmi verrlsn3838 F92E50 B5 59 lda lintab,x3839 F92E52 C9 FF cmp #$FF3840 F92E54 F0 D9 beq verrnochn3841 F92E56 A8 tay3842 F92E57 29 07 and #$073843 F92E59 0A asl a3844 F92E5A 85 4F sta vbufnum3845 F92E5C 98 tya3846 F92E5D 30 03 bmi ?setTue Jul 17 11:00:19 2018 Page 233847 F92E5F 0A asl a3848 F92E60 10 02 bpl ?ok3849 F92E62 85 51 ?set: sta veof ; set flush buffer flag3850 F92E64 86 44 ?ok: stx sa3851 F92E66 24 51 bit veof3852 F92E68 10 20 bpl ?end3853 F92E6A A6 4F ldx vbufnum3854 F92E6C ACC16CLC ; CF=03855 F92E6C C2 21 rep #(PMFLAG.OR.PCFLAG)3856 .LONGA on3857 .MNLIST3858 F92E6E BF CA 2E F9 lda >viecdma,x3859 F92E72 85 90 sta wbuf ; set buffer pointer3860 F92E74 A0 03 ldy #DMABNK+13861 F92E76 84 92 sty wbuf+23862 F92E78 BD 00 E2 lda !vixtab,x3863 F92E7B 85 86 sta bsize ; current index3864 F92E7D 64 88 stz btrf ; clear transferred count3865 F92E7F 9E 00 E2 stz !vixtab,x3866 F92E82 ACC083867 F92E82 E2 20 sep #PMFLAG3868 .LONGA off3869 .MNLIST3870 F92E84 D0 02 bne ?sa ; ok, will flush buffer3871 F92E86 64 51 stz veof ; nothing to flush3872 F92E88 A6 44 ?sa: ldx sa3873 F92E8A 18 ?end: clc3874 F92E8B 60 rts38753876 ; close3877 F92E8C A=sa3878 F92E8C v8close:3879 .GLOBAL v8close38803881 F92E8C 0B phd ; save current dp3882 F92E8D F4 00 7E pea #CBMFSP03883 F92E90 2B pld ; set dp to cbmfs emulator3884 F92E91 8B phb ; save dbr3885 F92E92 A2 00 ldx #03886 F92E94 DA phx3887 F92E95 AB plb ; set dbr = 03888 F92E96 20 43 2E jsr vtstcls3889 F92E99 B0 2C bcs ?end ; error3890 F92E9B E0 0F cpx #$0F3891 F92E9D 18 clc3892 F92E9E F0 27 beq ?end3893 F92EA0 86 52 stx chnl3894 F92EA2 24 51 bit veof ; need ro flush buffer?3895 F92EA4 10 0D bpl ?cls ; no, close file3896 F92EA6 A6 44 ldx sa ; set channel #3897 F92EA8 86 52 stx chnl3898 F92EAA A0 01 ldy #1 ; write op3899 F92EAC 20 4F 43 jsr fd_rw3900 F92EAF A6 44 ldx sa ; set channel #3901 F92EB1 86 52 stx chnl ; ignore error3902 F92EB3 20 AF 44 ?cls: jsr fdcls ; close file(s)3903 F92EB6 64 4D stz viecfgTue Jul 17 11:00:19 2018 Page 243904 F92EB8 A6 4F ldx vbufnum3905 F92EBA ACC163906 F92EBA C2 20 rep #PMFLAG3907 .LONGA on3908 .MNLIST3909 F92EBC 9E 00 E2 stz vixtab,x3910 F92EBF 9E 10 E2 stz vsiztab,x3911 F92EC2 9E 20 E2 stz vftab,x3912 F92EC5 ACC083913 F92EC5 E2 20 sep #PMFLAG3914 .LONGA off3915 .MNLIST3916 F92EC7 AB ?end: plb3917 F92EC8 2B pld3918 F92EC9 6B rtl39193920 F92ECA viecdma:3921 F92ECA 0000 0010 0020 .DW $0000, $1000, $2000, $300000303922 F92ED2 0040 0050 0060 .DW $4000, $5000, $6000, $700000703923 F92EDA3924 ;---------------------------------------------------------------------------3925 ; COP_cbmfs_cmd - send command to CBM file system emulator3926 ;3927 ; prototype: COP_cbmfs_cmd(sCmd, bChnl)3928 ;3929 ; Params (4 bytes):3930 ; sCmd = command string long pointer3931 ; bChnl = channel number $00..$0F3932 ; $00 input only3933 ; $01 output only3934 ; $02..$0E data channel3935 ; $0F command channel3936 ;3937 ; Out:3938 ; CF = 0 if operation completed successfully3939 ; A,X,Y preserved3940 ; CF = 1 if error3941 ; A, X preserved3942 ; Y = error code (cbm style)3943 ; Status register always preserved except carry39443945 ; params offset3946 000013 bChnl .SET STKPRMS3947 000014 sCmd .SET STKPRMS + 139483949 F92EDA COP_cbmfs_cmd:3950 .GLOBAL COP_cbmfs_cmd39513952 F92EDA ACC163953 F92EDA C2 20 rep #PMFLAG3954 .LONGA on3955 .MNLIST3956 F92EDC A9 00 7E lda #CBMFSP0 ; set DP -- not need to be saved3957 F92EDF 5B tcd3958 F92EE0 A3 14 lda sCmd,s ; get command string long pointerTue Jul 17 11:00:19 2018 Page 253959 F92EE2 85 3E sta tlp3960 F92EE4 ACC083961 F92EE4 E2 20 sep #PMFLAG3962 .LONGA off3963 .MNLIST3964 F92EE6 A3 16 lda sCmd+2,s3965 F92EE8 85 40 sta tlp+23966 F92EEA A3 13 lda bChnl,s3967 F92EEC 29 0F and #$0F ; mask3968 F92EEE 85 52 sta chnl3969 F92EF0 64 F9 stz cmdtrap3970 F92EF2 20 8D 2F jsr parsex ; parse & execute command string3971 F92EF5 6B rtl ; return CF=1 if error39723973 ; internal file system command3974 ; A,X,Y=long pointer to command string3975 F92EF6 cbmfs_cmd:3976 .PUBLIC cbmfs_cmd39773978 F92EF6 0B phd ; save current dp3979 F92EF7 F4 00 7E pea #CBMFSP03980 F92EFA 2B pld ; set dp to emulator3981 F92EFB 85 3E sta tlp ; set command string ptr3982 F92EFD 86 3F stx tlp+13983 F92EFF 84 40 sty tlp+23984 F92F01 A9 0F lda #$0F ; command to channel 153985 F92F03 85 52 sta chnl3986 F92F05 8B phb ; save current dbr3987 F92F06 A9 00 lda #03988 F92F08 48 pha3989 F92F09 AB plb ; set dbr=03990 F92F0A 64 F9 stz cmdtrap3991 F92F0C 20 8D 2F jsr parsex ; parse & execute command string3992 F92F0F AB plb ; restore dbr3993 F92F10 2B pld ; restore dp3994 F92F11 60 rts ; return CF=1 if error (A=error code)39953996 ; internal file system command3997 ; return error string pointer (C=pointer, X=bank)3998 F92F12 cbmfs_err:3999 .PUBLIC cbmfs_err40004001 F92F12 0B phd ; save current dp4002 F92F13 F4 00 7E pea #CBMFSP04003 F92F16 2B pld ; set dp to emulator4004 F92F17 20 44 57 jsr fnderr4005 F92F1A A0 00 ldy #04006 F92F1C B7 3E ?02: lda [tlp],y4007 F92F1E F0 10 beq ?064008 F92F20 C9 61 cmp #'a'4009 F92F22 90 06 bcc ?044010 F92F24 C9 7B cmp #'z'+14011 F92F26 B0 02 bcs ?044012 F92F28 29 DF and #$DF4013 F92F2A 99 00 E1 ?04: sta cmdbuf,y4014 F92F2D C8 iny4015 F92F2E 80 EC bra ?02Tue Jul 17 11:00:19 2018 Page 264016 F92F30 99 00 E1 ?06: sta cmdbuf,y4017 F92F33 A9 E1 lda #>cmdbuf4018 F92F35 EB xba4019 F92F36 A9 00 lda #<cmdbuf4020 F92F38 A2 00 ldx #04021 F92F3A AB plb ; restore dbr4022 F92F3B 2B pld ; restore dp4023 F92F3C 60 rts4024 F92F3D4025 ;---------------------------------------------------------------------------4026 ; COP_cbmfs_rw - read/write on channel (in an open file)4027 ;4028 ; prototype: COP_cbmfs_rw(lpBuf, wSize, bChnl)4029 ;4030 ; Params (6 bytes):4031 ; lpBuf = long pointer to buffer4032 ; wSize = size (16 bit) of buffer if read or bytes count to write4033 ; bChnl = channel number ($00..$0F)4034 ;4035 ; Out:4036 ; CF = 0 if operation completed successfully4037 ; C = number of bytes transferred4038 ; X = unchanged4039 ; Y = unchanged4040 ; CF = 1 if error4041 ; C = number of bytes transferred4042 ; X = unchanged4043 ; Y = error code (cbm-like)4044 ; Status register always preserved except carry4045 ;4046 ; Note:4047 ; Write to channel 15 ($0F) is no-op and return C = 0 and carry = 04048 ; Use COP_cbmfs_cmd function to send command on channel 154049 ; Read on channel 15 ($0F) return last error message4050 ; and need at least 96 bytes buffer large40514052 ; params offset4053 000013 bChnl .SET STKPRMS4054 000014 wSize .SET STKPRMS + 14055 000016 lpBuf .SET STKPRMS + 340564057 F92F3D COP_cbmfs_rw:4058 .GLOBAL COP_cbmfs_rw40594060 F92F3D ACC16 ; retrieve function number4061 F92F3D C2 20 rep #PMFLAG4062 .LONGA on4063 .MNLIST4064 F92F3F A3 10 lda STKPCL,s ; pointer to byte after signature4065 F92F41 85 51 sta COPPtr4066 F92F43 1A inc a ; update return address4067 F92F44 83 10 sta STKPCL,s4068 F92F46 ACC08 ; A,M -> 8 bit4069 F92F46 E2 20 sep #PMFLAG4070 .LONGA off4071 .MNLIST4072 F92F48 A3 12 lda STKPBR,s ; bank where was executed cop instructionTue Jul 17 11:00:19 2018 Page 274073 F92F4A 85 53 sta COPPtr+24074 F92F4C A7 51 lda [COPPtr] ; byte after signature (0->read, 1->write)4075 F92F4E A8 tay ; Y = read(0)/write(1)4076 F92F4F ACC164077 F92F4F C2 20 rep #PMFLAG4078 .LONGA on4079 .MNLIST4080 F92F51 A9 00 7E lda #CBMFSP0 ; set DP -- not need to be saved4081 F92F54 5B tcd4082 F92F55 A3 14 lda wSize,s ; get buffer size4083 F92F57 85 86 sta bsize4084 F92F59 64 88 stz btrf ; clear transferred count4085 F92F5B A3 16 lda lpBuf,s ; dest. buffer poinnter4086 F92F5D 85 90 sta wbuf4087 F92F5F ACC08 ; A,M -> 8 bit4088 F92F5F E2 20 sep #PMFLAG4089 .LONGA off4090 .MNLIST4091 F92F61 A3 18 lda lpBuf+2,s4092 F92F63 85 92 sta wbuf+24093 F92F65 A3 13 lda bChnl,s ; get channel4094 F92F67 29 0F and #$0F ; mask4095 F92F69 AA tax4096 F92F6A 86 52 stx chnl4097 F92F6C 20 4F 43 jsr fd_rw ; return carry = 1 if error4098 F92F6F AA tax ; save error code if any4099 F92F70 ACC164100 F92F70 C2 20 rep #PMFLAG4101 .LONGA on4102 .MNLIST4103 F92F72 A5 88 lda btrf ; return count of transf. bytes to caller4104 F92F74 83 0D sta STKCR,s4105 F92F76 ACC084106 F92F76 E2 20 sep #PMFLAG4107 .LONGA off4108 .MNLIST4109 F92F78 8A txa4110 F92F79 6B rtl41114112 ;---------------------------------------------------------------------------4113 ; COP_cbmfs_close4114 ;4115 ; prototype: COP_cbmfs_close4116 ;4117 ; Params: none in stack4118 ; A = channel to close ($00..$0F)4119 ; closing chnl $0F close all open files4120 ;4121 ; Out:4122 ; CF = 0 if operation completed successfully4123 ; C = unchanged4124 ; X = unchanged4125 ; Y = unchanged4126 ; CF = 1 if error4127 ; C = unchanged4128 ; X = unchanged4129 ; Y = error code (cbm-like)Tue Jul 17 11:00:19 2018 Page 284130 ; Status register always preserved except carry4131 ;4132 F92F7A COP_cbmfs_close:4133 .GLOBAL COP_cbmfs_close41344135 F92F7A ACC164136 F92F7A C2 20 rep #PMFLAG4137 .LONGA on4138 .MNLIST4139 F92F7C A9 00 7E lda #CBMFSP0 ; set DP -- not need to be saved4140 F92F7F 5B tcd4141 F92F80 ACC084142 F92F80 E2 20 sep #PMFLAG4143 .LONGA off4144 .MNLIST4145 F92F82 A3 0D lda STKCR,s ; get channel4146 F92F84 29 0F and #$0F4147 F92F86 AA tax4148 F92F87 86 52 stx chnl4149 F92F89 20 AF 44 jsr fdcls4150 F92F8C 6B rtl41514152 ;---------------------------------------------------------------------------4153 ; parse command string & execute command4154 ;---------------------------------------------------------------------------41554156 ; parse & execute command string4157 F92F8D parsex:4158 F92F8D ACC164159 F92F8D C2 20 rep #PMFLAG4160 .LONGA on4161 .MNLIST4162 F92F8F 3B tsc ; save current stack pointer4163 F92F90 8D F8 E1 sta !tos4164 F92F93 ACC084165 F92F93 E2 20 sep #PMFLAG4166 .LONGA off4167 .MNLIST4168 F92F95 64 56 stz lsterr4169 F92F97 20 D1 42 jsr cmdset ; trim & up case input string4170 F92F9A A4 41 ldy cmdsiz4171 F92F9C F0 40 beq ?10 ; empty command string4172 F92F9E A5 52 lda chnl4173 F92FA0 C9 0F cmp #$0F4174 F92FA2 D0 3F bne ?30 ; open command4175 F92FA4 A2 10 ldx #ncmds-1 ; check first letter...4176 F92FA6 AD 00 E1 lda !cmdbuf ; ...with cmd table4177 F92FA9 DF 58 5A F9 ?02: cmp >cmdtbl,x4178 F92FAD F0 06 beq ?044179 F92FAF CA dex4180 F92FB0 10 F7 bpl ?024181 F92FB2 4C FD 40 jmp e_badcmd4182 F92FB5 86 53 ?04: stx cmdnum4183 F92FB7 A4 41 ldy cmdsiz ; if just one char is an arror !4184 F92FB9 88 dey4185 F92FBA F0 24 beq ?20 ; syntax error4186 F92FBC E0 0F cpx #ndcmd ; no check drive for block-opTue Jul 17 11:00:19 2018 Page 294187 F92FBE B0 0F bcs ?064188 F92FC0 AD 01 E1 lda !cmdbuf+14189 F92FC3 A0 00 ldy #0 ; check cbm drive (0 or 1)4190 F92FC5 E0 09 cpx #pcmd-1 ; if M command, first drive will be dos drive4191 F92FC7 D0 01 bne ?054192 F92FC9 88 dey ; check dos drive4193 F92FCA 20 98 3D ?05: jsr chkdrv4194 F92FCD 85 19 sta drvnum ; save first drive in command string4195 F92FCF E0 0A ?06: cpx #pcmd ; limit of not parsed cmd4196 F92FD1 B0 05 bcs ?084197 F92FD3 20 0E 41 jsr tagcmd ; full parse command4198 F92FD6 A6 53 ldx cmdnum4199 F92FD8 8A ?08: txa4200 F92FD9 0A asl a4201 F92FDA AA tax4202 F92FDB FC C4 5A jsr (cjump,x)4203 F92FDE 18 ?10: clc ; return no error4204 F92FDF 60 rts42054206 F92FE0 4C 05 41 ?20: jmp e_badsyn42074208 ;---------------------------------------------------------------------------4209 ; open function's4210 ;---------------------------------------------------------------------------42114212 ; parse open command on channel 0..144213 ; covered cases:4214 ; "*"4215 ; "dr:*"4216 ; "#"4217 ; "$"4218 ; "$dr"4219 ; "$dr:pattern=type"4220 ; "filename,type,mode" (drive #0)4221 ; "[@]dr:filename,type,mode"4222 ; in: A = channel #4223 F92FE3 AA ?30: tax ; check free chnl4224 F92FE4 B4 59 ldy lintab,x4225 F92FE6 C0 FF cpy #$FF4226 F92FE8 F0 05 beq ?31 ; ok, chnl is free4227 F92FEA A9 4B lda #opnchn4228 F92FEC 4C ED 56 jmp chnerr4229 F92FEF AE 00 E1 ?31: ldx cmdbuf ; first char of cmd string4230 F92FF2 64 19 stz drvnum ; set drive 0 as default4231 F92FF4 64 55 stz subcmd ; default open file4232 F92FF6 A8 tay ; channel4233 F92FF7 D0 30 bne ?36 ; not "load" channel (0)4234 F92FF9 E0 2A cpx #'*' ; load first program on drive 0?4235 F92FFB D0 2C bne ?364236 F92FFD A9 2A ?32: lda #'*' ; file = "*"4237 F92FFF 8F 00 E1 00 sta cmdbuf4238 F93003 9C 01 E1 stz cmdbuf+14239 F93006 A9 01 lda #14240 F93008 85 41 sta cmdsiz4241 F9300A A2 00 ldx #<cmdbuf4242 F9300C 86 1A stx filtbl ; file ptr4243 F9300E A9 80 lda #$80Tue Jul 17 11:00:19 2018 Page 304244 F93010 85 39 sta pattyp4245 F93012 A9 00 lda #04246 F93014 A5 19 lda drvnum4247 F93016 85 34 sta fildrv4248 F93018 A9 02 lda #prgtyp4249 F9301A 85 10 sta typflg ; filter prog. type in search4250 F9301C 64 0F stz mode ; read mode4251 F9301E A9 01 lda #14252 F93020 85 12 sta f1cnt4253 F93022 85 13 sta f2cnt4254 F93024 64 55 stz subcmd ; open file read mode4255 F93026 4C C4 30 jmp ?784256 F93029 E0 24 ?36: cpx #'$' ; open directory ?4257 F9302B D0 1D bne ?484258 F9302D 98 tya4259 F9302E D0 0A bne ?40 ; open directory as seq. file4260 F93030 20 AB 41 jsr prsldd ; parse string for load directory cmd4261 F93033 A9 03 lda #lddir ; load dir4262 F93035 85 55 sta subcmd4263 F93037 4C C4 30 jmp ?784264 F9303A 88 ?40: dey ; error if channel = 14265 F9303B F0 0A beq ?444266 F9303D 20 31 42 jsr simprs ; simple parser for set drive4267 F93040 A9 04 lda #seqdir4268 F93042 85 55 sta subcmd ; open directory as seq. file4269 F93044 4C C7 30 jmp ?80 ; no pattern here4270 F93047 4C 8E 3D ?44: jmp e_badchn4271 F9304A E0 23 ?48: cpx #'#' ; open direct access?4272 F9304C D0 12 bne ?604273 F9304E A6 41 ldx cmdsiz4274 F93050 CA dex ; #xxx is unsupported4275 F93051 F0 03 beq ?52 ; ok4276 F93053 4C 05 41 ?50: jmp e_badsyn4277 F93056 C0 02 ?52: cpy #24278 F93058 90 ED bcc ?44 ; can't use ch 0 & 14279 F9305A A9 05 lda #damode ; open direct access type4280 F9305C 85 55 sta subcmd4281 F9305E 80 67 bra ?80 ; no pattern for direct access type4282 F93060 20 66 41 ?60: jsr prsopn ; parse "@dr:filename,type,mode"4283 F93063 A2 00 ldx #04284 F93065 86 0F stx mode ; default read mode4285 F93067 86 42 stx <opntm ; flag type & mode in parameters4286 F93069 E8 inx4287 F9306A 86 0E stx type ; defaul type: seq4288 F9306C E4 12 cpx f1cnt ; f1cnt now hold # params4289 F9306E B0 0B bcs ?64 ; no parameter's4290 F93070 20 D0 30 jsr ?100 ; at least one param: check for type & mode4291 F93073 E8 inx4292 F93074 E4 12 cpx f1cnt4293 F93076 B0 03 bcs ?64 ; only one parameter4294 F93078 20 D0 30 jsr ?100 ; set type & mode4295 F9307B A4 0E ?64: ldy type4296 F9307D C0 04 cpy #reltyp4297 F9307F F0 D2 beq ?50 ; error (unsupported type)4298 F93081 C0 05 cpy #partyp4299 F93083 F0 CE beq ?50 ; error (unsupported type)4300 F93085 A6 52 ldx chnlTue Jul 17 11:00:19 2018 Page 314301 F93087 E0 02 cpx #24302 F93089 B0 0C bcs ?66 ; not load / save4303 F9308B 86 0F stx mode ; force read on chn 0 and write on chn 14304 F9308D 24 42 bit opntm4305 F9308F 30 0C bmi ?68 ; type from parameter4306 F93091 A9 02 lda #prgtyp ; set default type for load/save4307 F93093 85 0E sta type4308 F93095 80 06 bra ?684309 F93097 24 42 ?66: bit opntm4310 F93099 30 04 bmi ?70 ; type from param4311 F9309B A9 01 lda #seqtyp ; default type: seq4312 F9309D 85 0E ?68: sta type4313 F9309F A6 0F ?70: ldx mode4314 F930A1 E0 01 cpx #wtmode4315 F930A3 D0 17 bne ?764316 F930A5 24 39 bit pattyp ; no wildcards for write4317 F930A7 10 05 bpl ?744318 F930A9 A9 21 ?72: lda #badfn4319 F930AB 4C 07 41 jmp cmderr4320 F930AE AF 00 E1 00 ?74: lda cmdbuf ; check replace write mode4321 F930B2 C9 40 cmp #'@'4322 F930B4 D0 06 bne ?764323 F930B6 A9 80 lda #$80 ; set flag replace mode4324 F930B8 85 E6 sta wrop4325 F930BA A6 0F ldx mode4326 F930BC 86 55 ?76 stx subcmd ; open file sub-command (read, write, append)4327 F930BE E4 03 cpx mdmode ; is like read mode4328 F930C0 D0 02 bne ?784329 F930C2 64 55 stz subcmd4330 F930C4 20 AC 3F ?78: jsr buildfn ; build table of canonical names4331 F930C7 A5 55 ?80: lda subcmd4332 F930C9 0A asl a4333 F930CA AA tax4334 F930CB FC F0 5A jsr (opncmd,x) ; execute open func.4335 F930CE 18 clc ; return no error4336 F930CF 60 rts43374338 ; check type & mode4339 F930D0 B4 1A ?100: ldy filtbl,x ; get ptr4340 F930D2 B9 00 E1 lda cmdbuf,y ; get char4341 F930D5 DA phx4342 F930D6 A2 04 ldx #nmodes4343 F930D8 CA ?102: dex4344 F930D9 30 0C bmi ?104 ; no valid mode4345 F930DB DF 7A 5A F9 cmp >modlst,x4346 F930DF D0 F7 bne ?1024347 F930E1 86 0F stx mode ; mode found4348 F930E3 A9 40 lda #$404349 F930E5 04 42 tsb <opntm ; set flag mode4350 F930E7 A2 06 ?104: ldx #ntypes4351 F930E9 CA ?106: dex4352 F930EA 30 0C bmi ?108 ; no valid type4353 F930EC DF 7E 5A F9 cmp >tplst,x4354 F930F0 D0 F7 bne ?1064355 F930F2 86 0E stx type ; type found4356 F930F4 A9 80 lda #$804357 F930F6 04 42 tsb <opntm ; set flag typeTue Jul 17 11:00:19 2018 Page 324358 F930F8 FA ?108: plx4359 F930F9 60 rts43604361 ;---------------------------------------------------------------------------4362 ; open file for reading subcommand4363 ;---------------------------------------------------------------------------4364 F930FA opnrd:4365 F930FA 20 03 31 jsr opread ; open an read fd4366 F930FD 20 AB 57 jsr tread ; pre-read in read cache4367 F93100 64 F8 stz trap ; no trap error4368 F93102 60 rts43694370 ; open a read fd4371 ; common routine for open read & open append4372 F93103 opread:4373 F93103 20 97 4B jsr optsch ; init drive and set up search opt.4374 F93106 20 70 4A jsr ffst ; look for file entry4375 F93109 A5 20 lda filtrk4376 F9310B D0 05 bne ?02 ; ok, file found4377 F9310D A9 3E lda #flntfd4378 F9310F 4C 07 41 jmp cmderr ; file not found4379 F93112 A5 39 ?02: lda pattyp4380 F93114 29 07 and #typmsk ; type from file4381 F93116 A6 0E ldx type ; del. type is invalid !!4382 F93118 D0 04 bne ?04 ; type from parameter4383 F9311A 85 0E sta type ; type from file4384 F9311C 80 09 bra ?064385 F9311E C5 0E ?04: cmp type ; match type from file?4386 F93120 F0 05 beq ?06 ; yes4387 F93122 A9 40 lda #mistyp ; type mismatch4388 F93124 4C 07 41 jmp cmderr4389 F93127 A5 0F ?06: lda mode4390 F93129 AA tax4391 F9312A C9 03 cmp #mdmode4392 F9312C F0 0B beq ?08 ; open always, even splat file4393 F9312E A9 20 lda #$20 ; this is a splat file?4394 F93130 24 39 bit pattyp4395 F93132 F0 05 beq ?08 ; no -- open4396 F93134 A9 29 lda #fsplt4397 F93136 4C 07 41 jmp cmderr ; write file not closed4398 F93139 E0 02 ?08: cpx #apmode4399 F9313B D0 0B bne ?104400 F9313D A9 40 lda #$404401 F9313F 24 39 bit pattyp ; locked file?4402 F93141 F0 05 beq ?10 ; no4403 F93143 A9 28 lda #flock4404 F93145 4C 07 41 jmp cmderr ; locked file4405 F93148 20 28 47 ?10: jsr opnrfd ; open read fd4406 F9314B A9 80 lda #$804407 F9314D 85 F8 sta trap ; trap disk error while open4408 F9314F 60 rts44094410 ;---------------------------------------------------------------------------4411 ; open file for writing subcommand4412 ;---------------------------------------------------------------------------4413 F93150 opnwr:4414 F93150 20 97 4B jsr optsch ; init drive and set up search opt.Tue Jul 17 11:00:19 2018 Page 334415 F93153 20 70 4A jsr ffst ; look for file entry4416 F93156 A5 20 lda filtrk4417 F93158 F0 27 beq ?08 ; ok, file not found: can create it4418 F9315A 24 E6 bit wrop ; replace file?4419 F9315C 30 05 bmi ?02 ; yes4420 F9315E A9 3F lda #flexst4421 F93160 4C 07 41 jmp cmderr ; file exists4422 F93163 A5 39 ?02: lda pattyp ; splat file?4423 F93165 89 20 bit #$204424 F93167 F0 05 beq ?04 ; no4425 F93169 A9 29 lda #fsplt4426 F9316B 4C 07 41 jmp cmderr ; write file not closed4427 F9316E 29 07 ?04: and #typmsk ; type from file4428 F93170 A6 0E ldx type ; del. type is invalid !!4429 F93172 D0 04 bne ?06 ; type from parameter4430 F93174 85 0E sta type ; type from file4431 F93176 80 0B bra ?104432 F93178 C5 0E ?06: cmp type ; match type from file?4433 F9317A F0 07 beq ?10 ; yes4434 F9317C A9 40 lda #mistyp ; type mismatch4435 F9317E 4C 07 41 jmp cmderr4436 F93181 64 E6 ?08: stz wrop ; create file4437 F93183 20 52 47 ?10: jsr opnwfd ; open file for write4438 F93186 A6 19 ldx drvnum4439 F93188 74 68 stz drvfg,x4440 F9318A 60 rts44414442 ;---------------------------------------------------------------------------4443 ; open file for append subcommand4444 ;---------------------------------------------------------------------------4445 F9318B opnap:4446 F9318B 20 03 31 jsr opread ; first of all open an read fd4447 F9318E 64 E6 stz wrop ; use as temp. eof flag4448 F93190 A5 2A lda entsec ; set dir to entry4449 F93192 85 09 sta sector4450 F93194 A0 28 ldy #dirtrk4451 F93196 84 08 sty track4452 F93198 A7 0A lda [dirp] ; clear flag closed file4453 F9319A 29 4F and #$4F4454 F9319C 87 0A sta [dirp]4455 F9319E 20 57 36 jsr wrdsec ; update dir on disk4456 F931A1 A5 20 lda filtrk4457 F931A3 85 08 sta track ; set up first block4458 F931A5 A5 25 lda filsec4459 F931A7 85 09 sta sector4460 F931A9 ACC164461 F931A9 C2 20 rep #PMFLAG4462 .LONGA on4463 .MNLIST4464 F931AB 64 F0 stz wcnt ; clear block's counter4465 F931AD A6 F7 ldx dblfd4466 F931AF B5 C6 lda fdblk,x4467 F931B1 85 94 sta wtmp ; set limit for read block's #4468 F931B3 ACC084469 F931B3 E2 20 sep #PMFLAG4470 .LONGA off4471 .MNLISTTue Jul 17 11:00:19 2018 Page 344472 F931B5 20 C1 57 ?02: jsr wread ; read whole track in write cache4473 F931B8 20 5A 56 jsr setwb ; set cache ptr to right sector4474 F931BB ?04: ACC164475 F931BB C2 20 rep #PMFLAG4476 .LONGA on4477 .MNLIST4478 F931BD A5 F0 lda wcnt ; update block's counter4479 F931BF 1A inc a4480 F931C0 85 F0 sta wcnt4481 F931C2 C5 94 cmp wtmp ; sanity check4482 F931C4 ACC084483 F931C4 E2 20 sep #PMFLAG4484 .LONGA off4485 .MNLIST4486 F931C6 90 0B bcc ?08 ; for now is ok4487 F931C8 F0 05 beq ?06 ; reached block's count #4488 F931CA A9 2A ?05: lda #bnotm4489 F931CC 4C FB 56 jmp doserr ; unmatch blocks count4490 F931CF A9 80 ?06: lda #$804491 F931D1 85 E6 sta wrop ; signal count match4492 F931D3 A0 01 ?08: ldy #14493 F931D5 B7 90 lda [wbuf],y ; next sector4494 F931D7 A8 tay4495 F931D8 A7 90 lda [wbuf] ; next track4496 F931DA F0 1A beq ?10 ; end of file?4497 F931DC 84 09 sty sector ; next sector4498 F931DE C9 51 cmp #maxtrk4499 F931E0 B0 45 bcs ?15 ; invalid track in link4500 F931E2 C0 28 cpy #numsec4501 F931E4 B0 41 bcs ?15 ; invalid sector in link4502 F931E6 C5 08 cmp track ; same track?4503 F931E8 85 08 sta track4504 F931EA D0 C9 bne ?02 ; will read a new track4505 F931EC 18 clc4506 F931ED 98 tya4507 F931EE A6 19 ldx drvnum4508 F931F0 75 7C adc wrtofs,x ; sector in the same track4509 F931F2 85 91 sta wbuf+14510 F931F4 80 C5 bra ?04 ; next data block4511 F931F6 24 E6 ?10: bit wrop ; here block's count should match4512 F931F8 10 D0 bpl ?05 ; unmatch4513 F931FA C0 02 cpy #2 ; last block wrong index?4514 F931FC 90 30 bcc ?20 ; yes4515 F931FE C8 iny ; bump pointer4516 F931FF A6 57 ldx lindx4517 F93201 94 BE sty fdptr,x ; start index for append4518 F93203 A5 09 lda sector4519 F93205 95 B6 sta fsec,x ; current file sector4520 F93207 A5 08 lda track4521 F93209 95 AE sta ftrk,x ; current file track4522 F9320B ACC164523 F9320B C2 20 rep #PMFLAG4524 .LONGA on4525 .MNLIST4526 F9320D A5 F0 lda wcnt ; append !!4527 F9320F 3A dec a ; one less...when close file...4528 F93210 A6 F7 ldx dblfd ; one more block will be addedTue Jul 17 11:00:19 2018 Page 354529 F93212 95 C6 sta fdblk,x ; store current block's count4530 F93214 ACC084531 F93214 E2 20 sep #PMFLAG4532 .LONGA off4533 .MNLIST4534 F93216 A9 80 lda #$80 ; now set fd for write4535 F93218 05 57 ora lindx4536 F9321A A6 52 ldx chnl4537 F9321C 95 59 sta lintab,x4538 F9321E A6 57 ldx lindx4539 F93220 64 F8 stz trap ; no trap error4540 F93222 A6 19 ldx drvnum4541 F93224 74 68 stz drvfg,x4542 F93226 60 rts45434544 F93227 85 08 ?15: sta track ; invalid link4545 F93229 A9 2B lda #invlnk4546 F9322B 4C FB 56 jmp doserr ; invalid file link45474548 F9322E 84 09 ?20: sty sector ; wrong index in last block4549 F93230 A9 2C lda #badlst4550 F93232 4C FB 56 jmp doserr45514552 ;---------------------------------------------------------------------------4553 ; load directory subcommand4554 ;---------------------------------------------------------------------------4555 ; start directory loading function4556 F93235 loaddir:4557 F93235 20 97 4B jsr optsch ; init drive4558 F93238 20 BB 47 jsr getrfd ; get a free fd4559 F9323B A6 52 ldx chnl4560 F9323D B5 59 lda lintab,x4561 F9323F 09 20 ora #$20 ; flag dir. listing4562 F93241 95 59 sta lintab,x4563 F93243 20 2D 4A jsr blknb ; clear name buffer4564 F93246 20 3D 56 jsr sethdp ; set dir header pointer4565 F93249 20 15 49 jsr setfdp ; set buffer pointer4566 F9324C A9 04 lda #4 ; set ptr to start of disk name4567 F9324E 85 0A sta dirp4568 F93250 A0 16 ldy #22 ; offset 26 - copy all till start of name4569 F93252 B7 0A ?02: lda [dirp],y4570 F93254 C9 A0 cmp #$A04571 F93256 D0 02 bne ?044572 F93258 A9 20 lda #' '4573 F9325A 99 C4 E1 ?04: sta nambuf+2,y4574 F9325D 88 dey4575 F9325E 10 F2 bpl ?024576 F93260 A9 14 lda #SCN_RVSON4577 F93262 8D C2 E1 sta !nambuf4578 F93265 A9 22 lda #'"' ; send name in quotes4579 F93267 8D C3 E1 sta !nambuf+14580 F9326A 8D D4 E1 sta !nambuf+184581 F9326D A9 20 lda #$204582 F9326F 8D D5 E1 sta !nambuf+194583 F93272 A0 00 ldy #0 ; start to fill buffer4584 F93274 A9 01 lda #1 ; put sal in buffer4585 F93276 AA taxTue Jul 17 11:00:19 2018 Page 364586 F93277 97 8A sta [bufp],y4587 F93279 C8 iny4588 F9327A A9 04 lda #4 ; put sah in buffer4589 F9327C 97 8A sta [bufp],y4590 F9327E C8 iny4591 F9327F 8A txa ; insert fhoney links (0101)4592 F93280 97 8A sta [bufp],y4593 F93282 C8 iny4594 F93283 97 8A sta [bufp],y4595 F93285 C8 iny4596 F93286 A5 19 lda drvnum ; put in drive #4597 F93288 97 8A sta [bufp],y4598 F9328A C8 iny4599 F9328B A9 00 lda #04600 F9328D 97 8A sta [bufp],y4601 F9328F C8 iny4602 F93290 20 1F 4A jsr movbuf ; get disk name (27 bytes)4603 F93293 88 dey ; adjust (-2 bytes)...4604 F93294 88 dey ; ...to have 32 bytes with terminator4605 F93295 A9 00 lda #0 ; terminator: end of this line4606 F93297 97 8A sta [bufp],y4607 F93299 C8 iny ; here will be 324608 F9329A 5A phy4609 F9329B 20 70 4A jsr ffst ; start find dir entry4610 F9329E 7A ply4611 F9329F 64 EA stz rdlst4612 F932A1 64 EB stz rdeof4613 F932A3 64 E9 stz rdidx4614 F932A5 20 28 49 jsr dlist ; fill buffer with first block4615 F932A8 4C 06 47 jmp savzp ; save zp var's after starting dir search46164617 ;---------------------------------------------------------------------------4618 ; open directory as seq. file subcommand4619 ;---------------------------------------------------------------------------4620 F932AB opndir:4621 F932AB 20 97 4B jsr optsch ; init drive4622 F932AE 20 BB 47 jsr getrfd ; get free fd4623 F932B1 A6 57 ldx lindx ; X=fd4624 F932B3 A9 28 lda #dirtrk ; open directory4625 F932B5 95 AE sta ftrk,x4626 F932B7 74 B6 stz fsec,x4627 F932B9 A9 02 lda #24628 F932BB 95 BE sta fdptr,x ; start of buffer4629 F932BD 60 rts46304631 ;---------------------------------------------------------------------------4632 ; open direct access subcommand4633 ;---------------------------------------------------------------------------4634 F932BE opnblk:4635 F932BE 20 BB 47 jsr getrfd ; get free fd4636 F932C1 A6 52 ldx chnl4637 F932C3 B5 59 lda lintab,x4638 F932C5 09 40 ora #$40 ; direct access flag4639 F932C7 95 59 sta lintab,x4640 F932C9 60 rts46414642 ;---------------------------------------------------------------------------Tue Jul 17 11:00:19 2018 Page 374643 ; scratch command4644 ;---------------------------------------------------------------------------4645 F932CA scratch:4646 F932CA 20 B1 42 jsr fs1set ; set type filter if any4647 F932CD 20 8D 41 jsr alldrs ; set all drives/file ptr's4648 F932D0 20 AC 3F jsr buildfn ; build canonical file names4649 F932D3 20 97 4B jsr optsch ; init all drive's4650 F932D6 64 42 stz char ; use as counter4651 F932D8 20 70 4A jsr ffst ; start search4652 F932DB 30 4A bmi ?30 ; no match files4653 F932DD 64 43 ?15: stz image ; flag4654 F932DF 20 37 48 jsr tstfd ; is an open file?4655 F932E2 90 1E bcc ?20 ; yes - don't scratch4656 F932E4 A6 19 ldx drvnum4657 F932E6 A9 10 lda #$104658 F932E8 34 68 bit drvfg,x4659 F932EA D0 16 bne ?20 ; disk write protect on - skip4660 F932EC A7 0A lda [dirp] ; type & flags4661 F932EE 10 12 bpl ?20 ; not properly closed - skip splat file4662 F932F0 89 40 bit #$404663 F932F2 D0 0E bne ?20 ; skip locked file4664 F932F4 29 07 and #typmsk ; mask type4665 F932F6 C9 04 cmp #reltyp4666 F932F8 F0 08 beq ?20 ; skip rel files4667 F932FA C9 05 cmp #partyp4668 F932FC F0 04 beq ?20 ; skip part type4669 F932FE A9 80 lda #$80 ; candidate to be deleted4670 F93300 85 43 sta image4671 F93302 20 5F 33 ?20: jsr shownam ; show file name4672 F93305 24 43 bit image4673 F93307 10 16 bpl ?254674 F93309 A9 00 lda #04675 F9330B 87 0A sta [dirp] ; delete entry4676 F9330D 20 57 36 jsr wrdsec ; update dir on disk4677 F93310 A6 16 ldx entfnd4678 F93312 B5 20 lda filtrk,x ; get first t&s of file4679 F93314 85 08 sta track4680 F93316 B5 25 lda filsec,x4681 F93318 85 09 sta sector4682 F9331A 20 38 33 jsr delfil ; delete file by links4683 F9331D E6 42 inc char ; update counter of scratched files4684 F9331F 20 2C 3B ?25: jsr donemsg4685 F93322 20 66 4A jsr ffre ; search next matching file4686 F93325 10 B6 bpl ?15 ; more files4687 F93327 A6 42 ?30: ldx char4688 F93329 8E FA E1 stx etrk ; report scratched file's #4689 F9332C 9C FB E1 stz esec4690 F9332F A9 01 lda #14691 F93331 85 56 sta lsterr ; not a true error4692 F93333 64 68 stz drvfg ; invalidate all drive's4693 F93335 64 69 stz drvfg+14694 F93337 60 rts46954696 ; delete file by link4697 ; track & sector first t&s of the file4698 F93338 delfil:4699 F93338 20 AB 57 jsr tread ; read whole track in cacheTue Jul 17 11:00:19 2018 Page 384700 F9333B 20 4A 56 jsr setcp ; set cache ptr to right sector4701 F9333E 20 CD 4D ?02: jsr frets ; free current t&s in bam4702 F93341 A0 01 ldy #14703 F93343 B7 8A lda [bufp],y ; next sector4704 F93345 A8 tay4705 F93346 A7 8A lda [bufp] ; next track4706 F93348 F0 12 beq ?10 ; end of file4707 F9334A 84 09 sty sector ; next sector4708 F9334C C5 08 cmp track ; same track?4709 F9334E 85 08 sta track4710 F93350 D0 E6 bne delfil ; will read a new track4711 F93352 18 clc4712 F93353 98 tya4713 F93354 A6 19 ldx drvnum4714 F93356 75 78 adc trkofs,x ; sector in the same track4715 F93358 85 8B sta bufp+14716 F9335A 80 E2 bra ?02 ; follow link4717 F9335C 4C 10 4E ?10: jmp mapout ; update & write out bam47184719 F9335F shownam:4720 F9335F 20 B0 33 jsr movnam4721 F93362 D4 94 pei (wtmp)4722 F93364 A9 00 lda #^nambuf4723 F93366 48 pha4724 F93367 F4 C2 E1 pea #!nambuf4725 F9336A A5 19 lda drvnum4726 F9336C 48 pha4727 F9336D 4B phk4728 F9336E F4 77 33 pea #!?1004729 F93371 A9 0A lda #104730 F93373 48 pha4731 F93374 BPRINTF4732 F93374 02 11 cop $114733 .MNLIST4734 F93376 60 rts47354736 F93377 0D 64 65 6C 65 ?100: .DB $0D, 'delete #%bu:%s (%04hu blocks):...', $0074 65 20 23 2562 75 3A 25 7320 28 25 30 3468 75 20 62 6C6F 63 6B 73 293A 2E 2E 2E 0047374738 ; move directory entry to namebuf4739 ; in: X=index in file stream4740 F9339A movnamx:4741 F9339A B5 34 lda fildrv,x ; set directory entry4742 F9339C 29 01 and #14743 F9339E 85 19 sta drvnum4744 F933A0 DA phx4745 F933A1 20 3D 56 jsr sethdp4746 F933A4 FA plx4747 F933A5 B5 2A lda entsec,x4748 F933A7 18 clc4749 F933A8 65 0B adc dirp+14750 F933AA 85 0B sta dirp+1 ; set dir. pointer to file entryTue Jul 17 11:00:19 2018 Page 394751 F933AC B5 2F lda entind,x4752 F933AE 85 0A sta dirp47534754 ; move directory entry to namebuf4755 F933B0 movnam:4756 F933B0 20 2D 4A jsr blknb ; blank nambuf4757 F933B3 A0 1D ldy #29 ; & adjust spacing4758 F933B5 B7 0A lda [dirp],y ; hi blocks #4759 F933B7 85 95 sta wtmp+14760 F933B9 88 dey4761 F933BA B7 0A lda [dirp],y ; low blocks #4762 F933BC 85 94 sta wtmp4763 F933BE A2 00 ldx #0 ; file name start4764 F933C0 A9 22 lda #'"'4765 F933C2 8D C2 E1 sta !nambuf4766 F933C5 A0 03 ldy #34767 F933C7 B7 0A ?04: lda [dirp],y4768 F933C9 29 7F and #$7F4769 F933CB 9D C3 E1 sta !nambuf+1,x4770 F933CE E8 inx4771 F933CF C8 iny4772 F933D0 E0 10 cpx #164773 F933D2 90 F3 bcc ?044774 F933D4 A9 22 lda #'"'4775 F933D6 9D C3 E1 sta !nambuf+1,x4776 F933D9 E8 inx4777 F933DA E8 inx4778 F933DB A7 0A lda [dirp] ; set type chars4779 F933DD 30 07 bmi ?064780 F933DF A8 tay4781 F933E0 A9 2A lda #'*' ; file not closed: splat file4782 F933E2 9D C3 E1 sta !nambuf+1,x4783 F933E5 98 tya4784 F933E6 E8 ?06: inx4785 F933E7 9B txy ; Y = nambuf index4786 F933E8 48 pha4787 F933E9 29 07 and #typmsk4788 F933EB AA tax ; X = file type4789 F933EC BF 84 5A F9 lda >typlst,x4790 F933F0 99 C3 E1 sta nambuf+1,y4791 F933F3 C8 iny4792 F933F4 BF 8A 5A F9 lda >tp1lst,x4793 F933F8 99 C3 E1 sta nambuf+1,y4794 F933FB C8 iny4795 F933FC BF 90 5A F9 lda >tp2lst,x4796 F93400 99 C3 E1 sta nambuf+1,y4797 F93403 C8 iny4798 F93404 BB tyx4799 F93405 68 pla4800 F93406 0A asl a4801 F93407 10 05 bpl ?08 ; file not locked4802 F93409 A9 3C lda #'<'4803 F9340B 9D C3 E1 sta !nambuf+1,x ; file locked4804 F9340E E8 ?08: inx4805 F9340F 9E C3 E1 stz nambuf+1,x4806 F93412 60 rts4807Tue Jul 17 11:00:19 2018 Page 404808 ;---------------------------------------------------------------------------4809 ; new disk command (format)4810 ;---------------------------------------------------------------------------48114812 ; quick format command4813 F93413 quickf:4814 F93413 20 83 41 jsr onedrv ; set just one drive/file ptr4815 F93416 20 AC 3F jsr buildfn ; build canonical file names4816 F93419 A9 C0 lda #$C04817 F9341B 80 08 bra newdsk24818 F9341D4819 ; standard cbm format command4820 F9341D newdsk:4821 F9341D 20 83 41 jsr onedrv ; set just one drive/file ptr4822 F93420 20 AC 3F jsr buildfn ; build canonical file names4823 F93423 A9 80 lda #$804824 F93425 newdsk2:4825 F93425 85 41 sta <qfmt ; assume no ID disk given => quick format4826 F93427 A5 12 lda f1cnt ; saved total count4827 F93429 C9 01 cmp #14828 F9342B F0 29 beq ?06 ; just disk name: quick format4829 F9342D C9 02 cmp #24830 F9342F F0 03 beq ?04 ; given disk ID in filtab4831 F93431 4C 05 41 ?02: jmp e_badsyn ; error if more data4832 F93434 A6 1B ?04: ldx filtbl+1 ; pointer to ID string4833 F93436 20 55 40 jsr fndlmt ; find string limit4834 F93439 98 tya ; string size4835 F9343A F0 F5 beq ?02 ; empty string4836 F9343C C9 03 cmp #34837 F9343E B0 F1 bcs ?02 ; more than 2 char's4838 F93440 A6 1B ldx filtbl+14839 F93442 BD 00 E1 lda !cmdbuf,x4840 F93445 20 9F 35 jsr ?50 ; check ID char: just alphanumeric4841 F93448 85 42 sta <idch14842 F9344A BD 01 E1 lda !cmdbuf+1,x4843 F9344D 20 9F 35 jsr ?504844 F93450 85 43 sta <idch24845 F93452 A9 80 lda #$804846 F93454 14 41 trb <qfmt ; clear bit 7: given ID in cmd string4847 F93456 A5 34 ?06: lda fildrv4848 F93458 29 01 and #14849 F9345A 85 19 sta drvnum4850 F9345C AA tax4851 F9345D 74 68 stz drvfg,x ; invalid drive4852 F9345F 20 B4 56 jsr dsktst ; check if disk is ready4853 F93462 A9 10 lda #$104854 F93464 34 68 bit drvfg,x ; disk write protect on?4855 F93466 F0 05 beq ?07 ; no4856 F93468 A9 1A lda #wpon4857 F9346A 4C 07 41 jmp cmderr4858 F9346D ?07: FDCGETFMT ; query disk format4859 F9346D 02 30 cop $304860 F9346F 04 .DB $044861 .MNLIST4862 F93470 B0 17 bcs ?08 ; unformatted or not recognized format4863 F93472 98 tya ; format in bit 1,04864 F93473 C9 01 cmp #1Tue Jul 17 11:00:19 2018 Page 414865 F93475 D0 12 bne ?08 ; not the right format4866 F93477 20 8F 57 jsr sysrd ; try to read system track4867 F9347A B0 0D bcs ?08 ; error reading system track4868 F9347C 20 3E 55 jsr hdrtst ; test right dir. format4869 F9347F 90 11 bcc ?10 ; ok, can be used quick format4870 F93481 24 41 bit <qfmt4871 F93483 30 08 bmi ?09 ; no ID given4872 F93485 50 2B bvc ?20 ; cbm standard: go to full format4873 F93487 80 0F bra ?12 ; quick format with given ID4874 F93489 24 41 ?08: bit <qfmt ; here quick format not possible4875 F9348B 10 25 bpl ?20 ; go to full format4876 F9348D A9 4D ?09: lda #fmter ; not given disk ID4877 F9348F 4C 07 41 jmp cmderr4878 F93492 24 41 ?10: bit <qfmt4879 F93494 30 2E bmi ?30 ; no ID given so quick format4880 F93496 50 0C bvc ?15 ; standard cbm format: compare given ID4881 F93498 A5 42 ?12: lda <idch1 ; quick format with given ID4882 F9349A 9D FC E1 sta !dskid1,x4883 F9349D A5 43 lda <idch24884 F9349F 9D FE E1 sta !dskid2,x4885 F934A2 80 20 bra ?30 ; quick format4886 F934A4 A5 42 ?15: lda <idch1 ; now check given ID with disk ID4887 F934A6 DD FC E1 cmp !dskid1,x4888 F934A9 D0 07 bne ?20 ; unmatch: full format4889 F934AB A5 43 lda <idch24890 F934AD DD FE E1 cmp !dskid2,x4891 F934B0 F0 12 beq ?30 ; match: quick format4892 F934B2 A5 42 ?20: lda <idch1 ; full format: start low level format4893 F934B4 9D FC E1 sta !dskid1,x ; store given disk ID4894 F934B7 A5 43 lda <idch24895 F934B9 9D FE E1 sta !dskid2,x4896 F934BC SCN_CR4897 F934BC SCNPRCHAR4898 .MLIST4899 F934BC 02 07 cop $074900 .MNLIST4901 F934BE 0D .DB $0D4902 .MNLIST4903 F934BF 20 E1 58 jsr llfmt4904 ;SCN_CR4905 F934C2 80 0C bra ?31 ; make empty file system4906 F934C4 A5 19 ?30: lda drvnum ; quick format4907 F934C6 48 pha4908 F934C7 4B phk4909 F934C8 F4 2E 35 pea #!?404910 F934CB A9 05 lda #54911 F934CD 48 pha4912 F934CE BPRINTF4913 F934CE 02 11 cop $114914 .MNLIST4915 F934D0 20 3D 56 ?31: jsr sethdp ; make empty file system4916 F934D3 20 B3 35 jsr ?60 ; clear cache4917 F934D6 20 9C 4E jsr newmap ; create a new bam4918 F934D9 20 4C 4F jsr newhdr ; create a new header4919 F934DC 64 8D stz bmpnt ; ptr to new bam4920 F934DE E6 0B inc dirp+1 ; set up bam4921 F934E0 INDEX16Tue Jul 17 11:00:19 2018 Page 424922 F934E0 C2 10 rep #PXFLAG4923 .LONGI on4924 .MNLIST4925 F934E2 A0 FF 01 ldy #$01FF ; transfer the new bam4926 F934E5 B7 8D ?32: lda [bmpnt],y4927 F934E7 97 0A sta [dirp],y4928 F934E9 88 dey4929 F934EA 10 F9 bpl ?324930 F934EC INDEX084931 F934EC E2 10 sep #PXFLAG4932 .LONGI off4933 .MNLIST4934 F934EE E6 0B inc dirp+1 ; set up first dir block4935 F934F0 E6 0B inc dirp+14936 F934F2 A9 00 lda #04937 F934F4 87 0A sta [dirp] ; null link4938 F934F6 A0 01 ldy #14939 F934F8 3A dec a4940 F934F9 97 0A sta [dirp],y4941 F934FB A4 1A ldy filtbl4942 F934FD B9 00 E1 ?34: lda cmdbuf,y4943 F93500 F0 0A beq ?364944 F93502 30 03 bmi ?354945 F93504 C8 iny4946 F93505 80 F6 bra ?344947 F93507 A9 00 ?35: lda #04948 F93509 99 00 E1 sta cmdbuf,y4949 F9350C 20 D7 57 ?36: jsr syswr ; write out system track4950 F9350F 74 68 stz drvfg,x ; invalidate drive4951 F93511 D4 94 pei (wtmp)4952 F93513 BD FE E1 lda !dskid2,x4953 F93516 48 pha4954 F93517 BD FC E1 lda !dskid1,x4955 F9351A 48 pha4956 F9351B A9 00 lda #^cmdbuf4957 F9351D 48 pha4958 F9351E A9 E1 lda #>cmdbuf4959 F93520 48 pha4960 F93521 A5 1A lda filtbl4961 F93523 48 pha4962 F93524 4B phk4963 F93525 F4 6A 35 pea #!?424964 F93528 A9 0B lda #114965 F9352A 48 pha4966 F9352B BPRINTF4967 F9352B 02 11 cop $114968 .MNLIST4969 F9352D 60 rts49704971 F9352E 0D 51 75 69 63 ?40: .DB $0D, 'Quick format diskette on drive #%bu - cbm 1581 format type', 06B 20 66 6F 726D 61 74 20 6469 73 6B 65 7474 65 20 6F 6E20 64 72 69 7665 20 23 25 6275 20 2D 20 63Tue Jul 17 11:00:19 2018 Page 4362 6D 20 31 3538 31 20 66 6F72 6D 61 74 2074 79 70 65 004972 F9356A 0D 44 69 73 6B ?42: .DB $0D, 'Disk name: "%s", ID: "%c%c", total free blocks: %hu', 020 6E 61 6D 653A 20 22 25 7322 2C 20 49 443A 20 22 25 6325 63 22 2C 2074 6F 74 61 6C20 66 72 65 6520 62 6C 6F 636B 73 3A 20 2568 75 0049734974 F9359F C9 30 ?50: cmp #'0' ; check ID4975 F935A1 90 0D bcc ?564976 F935A3 C9 3A cmp #'9'+14977 F935A5 90 08 bcc ?544978 F935A7 C9 41 cmp #'A'4979 F935A9 90 05 bcc ?564980 F935AB C9 5B cmp #'Z'+14981 F935AD B0 01 bcs ?564982 F935AF 60 ?54: rts4983 F935B0 4C 05 41 ?56: jmp e_badsyn ; ID error49844985 F935B3 ?60: CPU16 ; clear system cache4986 F935B3 C2 30 rep #(PMFLAG.OR.PXFLAG)4987 .LONGA on4988 .LONGI on4989 .MNLIST4990 F935B5 A0 FE 13 ldy #$1400-2 ; $1400 words4991 F935B8 A9 00 00 lda #04992 F935BB 97 0A ?62: sta [dirp],y4993 F935BD 88 dey4994 F935BE 88 dey4995 F935BF 10 FA bpl ?624996 F935C1 CPU084997 F935C1 E2 30 sep #(PMFLAG.OR.PXFLAG)4998 .LONGA off4999 .LONGI off5000 .MNLIST5001 F935C3 60 rts50025003 ;---------------------------------------------------------------------------5004 ; rename command5005 ;---------------------------------------------------------------------------5006 F935C4 rename:5007 F935C4 20 8D 41 jsr alldrs ; set all drives/file ptr's5008 F935C7 20 AC 3F jsr buildfn ; build canonical file names5009 F935CA A5 35 lda fildrv+15010 F935CC 29 01 and #15011 F935CE 85 35 sta fildrv+15012 F935D0 45 34 eor fildrv ; compare drive's #5013 F935D2 F0 05 beq ?01 ; ok, same drive5014 F935D4 A9 27 lda #notsamTue Jul 17 11:00:19 2018 Page 445015 F935D6 4C 07 41 jmp cmderr ; cannot rename across drives5016 F935D9 20 38 4A ?01: jsr lookup ; lookup for both file's5017 F935DC 20 20 36 jsr chkfs1 ; check fs1 and fs25018 F935DF A2 01 ldx #1 ; check file name 2 not open5019 F935E1 20 28 48 jsr tstopn ; cannot rename an open file5020 F935E4 A5 2B lda entsec+1 ; set sector of dir entry for file 25021 F935E6 85 09 sta sector5022 F935E8 20 C3 4C jsr setdptr ; set ptr to dir cache5023 F935EB A5 30 lda entind+1 ; set pointer to entry5024 F935ED 85 0A sta dirp5025 F935EF A7 0A lda [dirp] ; get type and flags5026 F935F1 89 40 bit #$405027 F935F3 D0 0F bne ?04 ; locked file5028 F935F5 A6 1A ldx filtbl ; pointer to file 1 name5029 F935F7 A0 03 ldy #3 ; pointer to file name on dir entry5030 F935F9 BD 00 E1 ?02: lda !cmdbuf,x ; move new file name5031 F935FC F0 59 beq wrdsec ; end -- write out sector5032 F935FE 97 0A sta [dirp],y5033 F93600 E8 inx5034 F93601 C8 iny5035 F93602 80 F5 bra ?0250365037 F93604 A9 28 ?04: lda #flock5038 F93606 4C 07 41 jmp cmderr5039 F936095040 ; check file 2 stream for existence (all should exist)5041 F93609 chkfs2:5042 F93609 A5 3A lda pattyp+1 ; 1st file bears type5043 F9360B 29 07 and #typmsk5044 F9360D 85 0E sta type5045 F9360F A6 13 ldx f2cnt5046 F93611 CA ?10: dex5047 F93612 E4 12 cpx f1cnt5048 F93614 90 09 bcc ?20 ; skip file in fs1 stream5049 F93616 B5 20 lda filtrk,x5050 F93618 D0 F7 bne ?10 ; ok, exist - check next5051 F9361A A9 3E lda #flntfd ; input file not found5052 F9361C 4C 07 41 jmp cmderr5053 F9361F 60 ?20: rts50545055 ; check file 1 stream for non-existence (all should not exist)5056 F93620 chkfs1:5057 F93620 20 09 36 jsr chkfs2 ; check fs 2 stream for existence5058 F93623 B5 20 ?25: lda filtrk,x ; check fs1 stream5059 F93625 F0 05 beq ?305060 F93627 A9 3F lda #flexst ; file exist5061 F93629 4C 07 41 jmp cmderr5062 F9362C CA ?30: dex ; check next file5063 F9362D 10 F4 bpl ?255064 F9362F 60 rts50655066 ;---------------------------------------------------------------------------5067 ; exist command - check file existance5068 ;---------------------------------------------------------------------------5069 F93630 exist:5070 F93630 20 83 41 jsr onedrv ; set just one drive/file ptr5071 F93633 20 AC 3F jsr buildfn ; build canonical file namesTue Jul 17 11:00:19 2018 Page 455072 F93636 20 38 4A jsr lookup ; lookup for file5073 F93639 A5 20 lda filtrk5074 F9363B D0 2F bne gtx ; ok5075 F9363D A9 3E lda #flntfd5076 F9363F 4C 07 41 jmp cmderr50775078 ;---------------------------------------------------------------------------5079 ; lock command - set lock bit in file type (set read only file)5080 ;---------------------------------------------------------------------------5081 F93642 lock:5082 F93642 20 5C 36 jsr gettyp ; set dir entry ptr & get file type5083 F93645 89 40 bit #$40 ; test lock bit5084 F93647 D0 23 bne gtx ; already locked, done5085 F93649 A8 tay ; save type5086 F9364A 20 6D 36 jsr wptst ; check if write protect5087 F9364D A2 00 ldx #0 ; check file not open5088 F9364F 20 28 48 jsr tstopn ; cannot do in an open file5089 F93652 98 tya ; restore type5090 F93653 09 40 ora #$40 ; set lock bit5091 F93655 87 0A sta [dirp]5092 F936575093 ; write out sector50945095 ; write given directory sector on disk5096 F93657 wrdsec:5097 F93657 A9 01 lda #1 ; write out just 1 sec5098 F93659 4C 11 58 jmp wrsys50995100 ; find file, set dir pointer, get file type & flag5101 F9365C gettyp:5102 F9365C 20 30 36 jsr exist ; file exist in dir entry?5103 F9365F A5 2A lda entsec ; set sector of dir entry5104 F93661 85 09 sta sector5105 F93663 20 C3 4C jsr setdptr ; set ptr to dir cache5106 F93666 A5 2F lda entind ; set pointer to entry5107 F93668 85 0A sta dirp5108 F9366A A7 0A lda [dirp] ; get type and flags5109 F9366C 60 gtx: rts51105111 ; abort if disk is write protect5112 F9366D wptst:5113 F9366D A6 19 ldx drvnum5114 F9366F A9 10 lda #$105115 F93671 34 68 bit drvfg,x5116 F93673 F0 F7 beq gtx ; ok, no write protect5117 F93675 A9 1A lda #wpon ; write protect on5118 F93677 4C F5 56 jmp drverr51195120 ;---------------------------------------------------------------------------5121 ; unlock command - clear lock bit in file type5122 ;---------------------------------------------------------------------------5123 F9367A unlock:5124 F9367A 20 5C 36 jsr gettyp ; set dir entry ptr & get file type5125 F9367D 89 40 bit #$40 ; test lock bit5126 F9367F F0 EB beq gtx ; already unlocked, done5127 F93681 A8 tay ; save type5128 F93682 20 6D 36 jsr wptst ; check if write protectTue Jul 17 11:00:19 2018 Page 465129 F93685 A2 00 ldx #0 ; check file not open5130 F93687 20 28 48 jsr tstopn ; cannot do in an open file5131 F9368A 98 tya ; restore type5132 F9368B 29 BF and #$BF ; reset lock bit5133 F9368D 87 0A sta [dirp]5134 F9368F 80 C6 bra wrdsec ; write out sector51355136 ;---------------------------------------------------------------------------5137 ; transfer command (copy file from ibm-dos disk)5138 ;---------------------------------------------------------------------------5139 F93691 transf:5140 F93691 A9 40 lda #$405141 F93693 85 35 sta fildrv+1 ; source drive is dos drive !5142 F93695 20 8D 41 jsr alldrs5143 F93698 A5 35 lda fildrv+1 ; dos drive will be in command string5144 F9369A 30 06 bmi ?02 ; no drive in cmd string5145 F9369C 29 07 and #75146 F9369E C5 34 cmp fildrv ; will be not the same5147 F936A0 D0 03 bne ?04 ; ok5148 F936A2 4C 89 3D ?02: jmp e_baddrv5149 F936A5 20 AC 3F ?04: jsr buildfn ; build canonical file names5150 F936A8 A9 40 lda #$405151 F936AA 14 35 trb fildrv+15152 F936AC 60 rts51535154 ;---------------------------------------------------------------------------5155 ; move command (copy file to ibm-dos disk)5156 ;---------------------------------------------------------------------------5157 F936AD move:5158 F936AD A9 40 lda #$405159 F936AF 85 34 sta fildrv ; dest drive is dos drive !5160 F936B1 20 8D 41 jsr alldrs5161 F936B4 A5 35 lda fildrv+1 ; cbm drive will be in command string5162 F936B6 30 08 bmi ?02 ; no drive in cmd string5163 F936B8 A5 34 lda fildrv5164 F936BA 29 07 and #75165 F936BC C5 35 cmp fildrv+1 ; will not be the same5166 F936BE D0 03 bne ?04 ; ok5167 F936C0 4C 89 3D ?02: jmp e_baddrv5168 F936C3 20 AC 3F ?04: jsr buildfn ; build canonical file names5169 F936C6 A9 40 lda #$405170 F936C8 14 34 trb fildrv5171 F936CA 60 rts51725173 ;---------------------------------------------------------------------------5174 ; append command5175 ;---------------------------------------------------------------------------5176 F936CB append:5177 F936CB 20 8D 41 jsr alldrs ; set all drives/file ptr's5178 F936CE 20 AC 3F jsr buildfn ; build canonical file names5179 F936D1 A9 40 lda #$405180 F936D3 85 55 sta subcmd ; flag concat5181 F936D5 20 38 4A jsr lookup ; look up all files5182 F936D8 A6 34 ldx fildrv ; test if dest drive is wp on5183 F936DA A9 10 lda #$105184 F936DC 34 68 bit drvfg,x5185 F936DE F0 05 beq ?04Tue Jul 17 11:00:19 2018 Page 475186 F936E0 A9 1A lda #wpon5187 F936E2 4C 07 41 jmp cmderr5188 F936E5 A5 20 ?04: lda filtrk5189 F936E7 D0 05 bne ?06 ; ok, dest file exist5190 F936E9 A9 3E lda #flntfd5191 F936EB 4C 07 41 jmp cmderr5192 F936EE A2 00 ?06: ldx #0 ; dest file will not be open5193 F936F0 20 28 48 jsr tstopn5194 F936F3 A2 01 ldx #15195 F936F5 20 FE 37 jsr tstdup ; check recursive concat5196 F936F8 20 09 36 jsr chkfs2 ; check if fs2 exist5197 F936FB 20 ED 37 jsr tstfs2 ; check not open5198 F936FE A6 13 ldx f2cnt ; fs1 & fs2 seq type only5199 F93700 CA ?08: dex ; index5200 F93701 30 18 bmi ?145201 F93703 B5 39 lda pattyp,x5202 F93705 89 20 bit #$205203 F93707 D0 0D bne ?12 ; error: splat file5204 F93709 29 07 and #typmsk5205 F9370B C9 01 cmp #seqtyp5206 F9370D D0 02 bne ?10 ; error: mismatch type5207 F9370F 80 EF bra ?085208 F93711 A9 40 ?10: lda #mistyp ; file type mismatch5209 F93713 4C 07 41 jmp cmderr5210 F93716 A9 29 ?12: lda #fsplt ; error: write file not closed5211 F93718 4C 07 41 jmp cmderr5212 F9371B A5 39 ?14: lda pattyp ; dest file is locked?5213 F9371D 89 40 bit #$405214 F9371F F0 05 beq ?16 ; no5215 F93721 A9 28 lda #flock ; error: locked file5216 F93723 4C 07 41 jmp cmderr5217 F93726 29 07 ?16: and #typmsk5218 F93728 85 0E sta type5219 F9372A 20 1D 38 jsr movdst ; set up dest file name5220 F9372D 20 EE 39 jsr skend ; seek end: prepare for append5221 F93730 A2 01 ldx #15222 F93732 20 3A 39 jsr cat ; concat fs2 to fs15223 F93735 A6 34 ldx fildrv ; invalidate dest drive...5224 F93737 74 68 stz drvfg,x ; ...so force init next time5225 F93739 60 rts52265227 ;---------------------------------------------------------------------------5228 ; copy command5229 ;5230 ; Cddr=sdr ; copy all files from sdr to ddr (not same dr)5231 ; Cddr:[*]=sdr:[*] ; copy all files from sdr to ddr (not same dr)5232 ; Cddr:[*]=sdr:fname ; copy sdr:fname to ddr:fname (not same drive)5233 ; Cddr:dest=[sdr:]fname ; copy sdr:fname to ddr:dest5234 ; Cddr:dest=[sdr1:]fname1,[sdr2:]fname2,[sdr3:]fname3,[sdr4:]fname45235 ;---------------------------------------------------------------------------5236 F9373A copy:5237 F9373A 20 6E 40 jsr prscpy ; parse cmd string5238 F9373D 20 AC 3F jsr buildfn ; build canonical file names5239 F93740 24 39 bit pattyp ; dest file is '*' ?5240 F93742 10 03 bpl ?025241 F93744 4C 3D 38 jmp cpall ; yes - copy disk-to-disk5242 F93747 64 55 ?02: stz subcmd ; flag copy+catTue Jul 17 11:00:19 2018 Page 485243 F93749 20 38 4A jsr lookup ; look up all files5244 F9374C A6 34 ldx fildrv ; test if dest drive is wp on5245 F9374E A9 10 lda #$105246 F93750 34 68 bit drvfg,x5247 F93752 F0 05 beq ?045248 F93754 A9 1A lda #wpon5249 F93756 4C 07 41 jmp cmderr5250 F93759 A5 13 ?04: lda f2cnt5251 F9375B C9 03 cmp #3 ; just copy f2 to f1?5252 F9375D 90 4B bcc ?20 ; yes5253 F9375F A5 35 lda fildrv+1 ; now test if first file of fs2 stream...5254 F93761 29 01 and #15255 F93763 C5 34 cmp fildrv ; ...is the same of the file on fs1 stream5256 F93765 D0 43 bne ?20 ; must create dest file5257 F93767 A5 2F lda entind5258 F93769 C5 30 cmp entind+15259 F9376B D0 3D bne ?20 ; must create dest file5260 F9376D A5 2A lda entsec5261 F9376F C5 2B cmp entsec+15262 F93771 D0 37 bne ?20 ; must create dest file52635264 ; file1=file2 so append file3,file4... to file15265 ; all files in fs2 stream will exist and will not be open5266 F93773 A2 02 ldx #25267 F93775 20 FE 37 jsr tstdup ; check recursive concat5268 F93778 20 09 36 jsr chkfs2 ; check if fs2 exist5269 F9377B 20 ED 37 jsr tstfs2 ; check not open5270 F9377E A5 0E lda type ; this is file1=file2 type5271 F93780 C9 01 cmp #seqtyp ; just seq. tipe can be concat.5272 F93782 F0 05 beq ?065273 F93784 A9 40 ?05: lda #mistyp ; file type mismatch5274 F93786 4C 07 41 jmp cmderr5275 F93789 20 1D 38 ?06: jsr movdst ; set up dest file name5276 F9378C A5 39 lda pattyp ; dest file is locked?5277 F9378E 89 40 bit #$405278 F93790 F0 05 beq ?08 ; no5279 F93792 A9 28 lda #flock ; error: locked file5280 F93794 4C 07 41 jmp cmderr5281 F93797 89 20 ?08: bit #$20 ; splat file?5282 F93799 F0 05 beq ?10 ; no5283 F9379B A9 29 ?09: lda #fsplt ; error: write file not closed5284 F9379D 4C 07 41 jmp cmderr5285 F937A0 20 D3 37 ?10: jsr ?70 ; check all files f3..fn (seq type, no splat)5286 F937A3 20 EE 39 jsr skend ; seek end: prepare for append5287 F937A6 A2 02 ldx #25288 F937A8 80 21 bra ?2452895290 ?20: ; file1 should be created, then copy file2 to file1 and concat...5291 ; ...file3,file4... to file1 (if type is seq)5292 F937AA 20 20 36 jsr chkfs1 ; fs1 should not exist, fs2 all should exist5293 F937AD 20 ED 37 jsr tstfs2 ; check fs2 not open5294 F937B0 20 1D 38 jsr movdst ; set up dest file name5295 F937B3 A5 3A lda pattyp+15296 F937B5 89 20 bit #$20 ; file1 will not be splat5297 F937B7 D0 E2 bne ?09 ; error: source file is splat file5298 F937B9 29 07 and #typmsk5299 F937BB C9 04 cmp #reltypTue Jul 17 11:00:19 2018 Page 495300 F937BD F0 C5 beq ?05 ; skip rel files5301 F937BF C9 05 cmp #partyp5302 F937C1 F0 C1 beq ?05 ; skip part type5303 F937C3 20 D3 37 jsr ?70 ; check all files f3..fn (seq type, no splat)5304 F937C6 20 93 39 jsr setwrf ; ok, create dest file5305 F937C9 A2 01 ldx #15306 F937CB 20 3A 39 ?24: jsr cat ; copy/concat5307 F937CE A6 34 ldx fildrv ; invalidate dest drive...5308 F937D0 74 68 stz drvfg,x ; ...so force init next time5309 F937D2 60 rts53105311 ?70: ; check f3..fn: must be just seq. type and no splat5312 F937D3 A6 13 ldx f2cnt5313 F937D5 E0 03 cpx #35314 F937D7 90 13 bcc ?74 ; skip this test if just 2 files5315 F937D9 CA ?72: dex ; index5316 F937DA E0 02 cpx #25317 F937DC 90 0E bcc ?745318 F937DE B5 39 lda pattyp,x5319 F937E0 89 20 bit #$205320 F937E2 D0 B7 bne ?09 ; error: splat file5321 F937E4 29 07 and #typmsk5322 F937E6 C9 01 cmp #seqtyp5323 F937E8 D0 9A bne ?05 ; error: mismatch type5324 F937EA 80 ED bra ?725325 F937EC 60 ?74: rts53265327 ; check file 2 stream for open (all should not be open) (80)5328 F937ED tstfs2:5329 F937ED A6 13 ldx f2cnt5330 F937EF CA ?82: dex5331 F937F0 E4 12 cpx f1cnt5332 F937F2 90 09 bcc ?84 ; skip file in fs1 stream5333 F937F4 86 16 stx entfnd5334 F937F6 20 28 48 jsr tstopn5335 F937F9 A6 16 ldx entfnd5336 F937FB 80 F2 bra ?825337 F937FD 60 ?84: rts53385339 ; in fs2 stream will not be th dest file5340 ; in: X=index of start test5341 F937FE tstdup:5342 F937FE B5 34 lda fildrv,x5343 F93800 29 01 and #15344 F93802 C5 34 cmp fildrv5345 F93804 D0 0C bne ?065346 F93806 B5 20 lda filtrk,x5347 F93808 C5 20 cmp filtrk5348 F9380A D0 06 bne ?065349 F9380C B5 25 lda filsec,x5350 F9380E C5 25 cmp filsec5351 F93810 F0 06 beq ?10 ; match5352 F93812 E8 ?06: inx5353 F93813 E4 13 cpx f2cnt5354 F93815 90 E7 bcc tstdup5355 F93817 60 rts5356 F93818 A9 52 ?10: lda #badcat ; recursive concatTue Jul 17 11:00:19 2018 Page 505357 F9381A 4C 07 41 jmp cmderr53585359 ; move first file name to namebuf2 (90)5360 F9381D movdst:5361 F9381D A2 00 ldx #0 ; file name start5362 F9381F A9 22 lda #'"'5363 F93821 8D DD E1 sta !nambuf25364 F93824 A4 1A ldy filtbl5365 F93826 B9 00 E1 ?94: lda !cmdbuf,y5366 F93829 29 7F and #$7F5367 F9382B 9D DE E1 sta !nambuf2+1,x5368 F9382E E8 inx5369 F9382F C8 iny5370 F93830 E0 10 cpx #165371 F93832 90 F2 bcc ?945372 F93834 A9 22 lda #'"'5373 F93836 9D DE E1 sta !nambuf2+1,x5374 F93839 9E DF E1 stz !nambuf2+2,x5375 F9383C 60 rts53765377 ; copy disk-to-disk (with pattern, no concat)5378 F9383D cpall:5379 F9383D A9 80 lda #$805380 F9383F 85 55 sta subcmd ; flag disk-to-disk copy5381 F93841 A5 34 lda fildrv5382 F93843 29 01 and #15383 F93845 85 34 sta fildrv5384 F93847 85 36 sta fildrv+2 ; save dest drive5385 F93849 A5 35 lda fildrv+15386 F9384B 29 01 and #15387 F9384D 85 35 sta fildrv+15388 F9384F A5 1A lda filtbl5389 F93851 85 1C sta filtbl+2 ; save file name 1 ptr5390 F93853 20 97 4B jsr optsch ; init all drive's5391 F93856 64 18 stz tgflg ; search just one drive5392 F93858 A5 35 lda fildrv+15393 F9385A 85 19 sta drvnum ; search just in src. drive5394 F9385C 85 34 sta fildrv5395 F9385E A5 1B lda filtbl+15396 F93860 85 1A sta filtbl5397 F93862 A9 01 lda #15398 F93864 85 12 sta f1cnt5399 F93866 85 13 sta f2cnt ; fake: just one file in stream!5400 F93868 20 70 4A jsr ffst ; start search on src drive5401 F9386B 30 3B bmi ?20 ; no files5402 F9386D 64 43 ?02: stz image ; flag5403 F9386F 64 16 stz entfnd ; file is in fs1 stream!5404 F93871 20 37 48 jsr tstfd ; is an open file?5405 F93874 90 1C bcc ?04 ; yes - don't copy5406 F93876 A6 36 ldx fildrv+25407 F93878 A9 10 lda #$105408 F9387A 34 68 bit drvfg,x5409 F9387C D0 14 bne ?04 ; dest disk write protect on - skip5410 F9387E A7 0A lda [dirp] ; type & flags5411 F93880 85 3C sta pattyp+35412 F93882 10 0E bpl ?04 ; not properly closed - skip splat file5413 F93884 29 07 and #typmsk ; mask typeTue Jul 17 11:00:19 2018 Page 515414 F93886 C9 04 cmp #reltyp5415 F93888 F0 08 beq ?04 ; skip rel files5416 F9388A C9 05 cmp #partyp5417 F9388C F0 04 beq ?04 ; skip part type5418 F9388E A9 80 lda #$80 ; candidate to be copied5419 F93890 85 43 sta image5420 F93892 20 C6 38 ?04: jsr ?50 ; lookup dest drive for file5421 F93895 A2 01 ldx #1 ; set up one read file5422 F93897 86 15 stx f2ptr5423 F93899 20 A9 38 jsr ?30 ; create & copy5424 F9389C 20 21 39 ?10: jsr ?80 ; set back search data for src drive5425 F9389F 20 66 4A jsr ffre ; search next matching file5426 F938A2 10 C9 bpl ?02 ; more files5427 F938A4 A6 36 ldx fildrv+2 ; invalidate dest drive...5428 F938A6 74 68 stz drvfg,x ; ...so force init next time5429 F938A8 60 ?20: rts54305431 ; create dest file and copy one file5432 F938A9 20 56 3A ?30: jsr cpymsg ; show message5433 F938AC 24 43 bit image ; skip?5434 F938AE 10 13 bpl ?34 ; yes5435 F938B0 20 93 39 jsr setwrf ; setup write file (create)5436 F938B3 20 C2 39 jsr setrdf ; setup read file5437 F938B6 20 B8 45 ?32: jsr bufget ; loop copy (buffered)5438 F938B9 20 08 46 jsr bufput5439 F938BC A5 EB lda rdeof5440 F938BE F0 F6 beq ?32 ; no eof5441 F938C0 20 5D 39 jsr clswrf ; close dest file5442 F938C3 4C 2C 3B ?34: jmp donemsg54435444 F938C6 20 B0 33 ?50: jsr movnam ; fill name buffer with src file5445 F938C9 24 43 bit image5446 F938CB 10 53 bpl ?54 ; skip this file5447 F938CD A5 20 lda filtrk ; save search data for file name 25448 F938CF 85 21 sta filtrk+15449 F938D1 A5 25 lda filsec5450 F938D3 85 26 sta filsec+15451 F938D5 A5 2A lda entsec5452 F938D7 85 2B sta entsec+15453 F938D9 A5 2F lda entind5454 F938DB 85 30 sta entind+15455 F938DD A5 39 lda pattyp5456 F938DF 85 3A sta pattyp+15457 F938E1 64 20 stz filtrk ; set search data for file name 15458 F938E3 64 25 stz filsec5459 F938E5 64 2A stz entsec5460 F938E7 64 2F stz entind5461 F938E9 64 39 stz pattyp5462 F938EB A5 36 lda fildrv+2 ; restore dest drive5463 F938ED 85 34 sta fildrv5464 F938EF 85 19 sta drvnum5465 F938F1 A6 1C ldx filtbl+2 ; restore file name 1 ptr5466 F938F3 86 1A stx filtbl5467 F938F5 A0 03 ldy #3 ; move the entry name to file name 15468 F938F7 B7 0A ?52: lda [dirp],y5469 F938F9 9D 00 E1 sta !cmdbuf,x5470 F938FC E8 inxTue Jul 17 11:00:19 2018 Page 525471 F938FD C8 iny5472 F938FE C0 13 cpy #195473 F93900 90 F5 bcc ?525474 F93902 A9 01 lda #1 ; now lookup file name on dest drv5475 F93904 85 12 sta f1cnt5476 F93906 85 13 sta f2cnt ; fake: just one file in stream!5477 F93908 20 3B 4A jsr lookup25478 F9390B A9 01 lda #1 ; restore real situation5479 F9390D 85 12 sta f1cnt5480 F9390F 1A inc a5481 F93910 85 13 sta f2cnt5482 F93912 A5 3C lda pattyp+35483 F93914 29 07 and #typmsk5484 F93916 85 0E sta type ; file type for copied file5485 F93918 A5 20 lda filtrk ; check if dest file already exist5486 F9391A F0 04 beq ?54 ; ok5487 F9391C 64 43 stz image ; can't copy this file5488 F9391E 64 0E stz type5489 F93920 60 ?54: rts54905491 F93921 64 20 ?80: stz filtrk ; set search data for file name 25492 F93923 64 25 stz filsec5493 F93925 64 2A stz entsec5494 F93927 64 2F stz entind5495 F93929 A5 35 lda fildrv+15496 F9392B 85 19 sta drvnum ; search in src. drive5497 F9392D 85 34 sta fildrv5498 F9392F A5 1B lda filtbl+15499 F93931 85 1A sta filtbl5500 F93933 A9 01 lda #15501 F93935 85 12 sta f1cnt5502 F93937 85 13 sta f2cnt ; fake: just one file in stream!5503 F93939 60 rts55045505 ; copy/concat5506 ; in: X=index of first file to concat5507 F9393A cat:5508 F9393A A9 80 lda #$805509 F9393C 85 43 sta image ; assume all good5510 F9393E 86 15 ?102: stx f2ptr ; start file5511 F93940 20 9A 33 jsr movnamx ; set up file name in nambuf5512 F93943 20 56 3A jsr cpymsg ; show message5513 F93946 20 C2 39 jsr setrdf ; setup read file5514 F93949 20 B8 45 ?104: jsr bufget ; loop copy5515 F9394C 20 08 46 jsr bufput5516 F9394F A5 EB lda rdeof5517 F93951 F0 F6 beq ?104 ; no eof5518 F93953 20 2C 3B jsr donemsg5519 F93956 A6 15 ldx f2ptr ; concat more file, if any5520 F93958 E8 inx5521 F93959 E4 13 cpx f2cnt5522 F9395B 90 E1 bcc ?102 ; append5523 ;jmp clswrf55245525 ; close write file when finish to copy5526 F9395D clswrf:5527 F9395D A5 2A lda entsec ; set dir. ptr to dest fileTue Jul 17 11:00:19 2018 Page 535528 F9395F 85 09 sta sector5529 F93961 A0 28 ldy #dirtrk5530 F93963 84 08 sty track5531 F93965 A6 EC ldx wrdrv5532 F93967 86 19 stx drvnum5533 F93969 20 3D 56 jsr sethdp5534 F9396C 18 clc5535 F9396D 65 09 adc sector5536 F9396F 85 0B sta dirp+1 ; set dir. pointer to file entry5537 F93971 A5 2F lda entind5538 F93973 85 0A sta dirp5539 F93975 A7 0A lda [dirp] ; set flag closed file5540 F93977 09 80 ora #$805541 F93979 87 0A sta [dirp]5542 F9397B A0 1C ldy #28 ; store block's #5543 F9397D ACC165544 F9397D C2 20 rep #PMFLAG5545 .LONGA on5546 .MNLIST5547 F9397F A5 F0 lda wcnt5548 F93981 1A inc a ; take in account last block5549 F93982 97 0A sta [dirp],y5550 F93984 ACC085551 F93984 E2 20 sep #PMFLAG5552 .LONGA off5553 .MNLIST5554 F93986 20 10 4E jsr mapout ; check&update bam on disk5555 F93989 A5 09 lda sector5556 F9398B C9 04 cmp #4 ; dir sec already updated with bam?5557 F9398D 90 03 bcc ?02 ; yes5558 F9398F 20 57 36 jsr wrdsec ; update directory5559 F93992 60 ?02: rts55605561 ; setup write file5562 F93993 setwrf:5563 F93993 A5 34 lda fildrv ; drive #5564 F93995 29 01 and #15565 F93997 85 EC sta wrdrv5566 F93999 85 19 sta drvnum5567 F9399B 64 09 stz sector5568 F9399D A9 28 lda #dirtrk5569 F9399F 85 08 sta track5570 F939A1 20 3D 56 jsr sethdp5571 F939A4 20 D2 4B jsr addfil ; create file in directory5572 F939A7 A4 20 ldy filtrk ; take first t&s5573 F939A9 84 08 sty track5574 F939AB A5 25 lda filsec5575 F939AD 85 09 sta sector5576 F939AF 85 EE sta wsec ; current write sector5577 F939B1 85 EF sta wfirst ; this is first sector5578 F939B3 20 C1 57 jsr wread ; pre-read whole track5579 F939B6 20 5A 56 jsr setwb ; set wbuf pointer5580 F939B9 A9 02 lda #25581 F939BB 85 ED sta wridx ; start index5582 F939BD 64 F0 stz wcnt ; clear block's count5583 F939BF 64 F1 stz wcnt+15584 F939C1 60 rtsTue Jul 17 11:00:19 2018 Page 5455855586 ; setup read file5587 F939C2 setrdf:5588 F939C2 A6 15 ldx f2ptr ; index=1..n-15589 F939C4 B5 34 lda fildrv,x5590 F939C6 29 01 and #15591 F939C8 85 19 sta drvnum5592 F939CA 85 E8 sta rddrv5593 F939CC B4 20 ldy filtrk,x ; first t&s of file5594 F939CE 84 08 sty track5595 F939D0 B5 25 lda filsec,x5596 F939D2 85 09 sta sector5597 F939D4 20 AB 57 jsr tread ; read whole track5598 F939D7 20 4A 56 jsr setcp ; set bufp pointer5599 F939DA 64 EA stz rdlst ; assume full block5600 F939DC A0 01 ldy #15601 F939DE B7 8A lda [bufp],y5602 F939E0 A8 tay5603 F939E1 A7 8A lda [bufp]5604 F939E3 D0 02 bne ?045605 F939E5 84 EA sty rdlst ; last byte pointer5606 F939E7 64 EB ?04: stz rdeof5607 F939E9 A9 02 lda #25608 F939EB 85 E9 sta rdidx5609 F939ED 60 rts56105611 ; seek end: open file and put pointer to last byte of file5612 ; use write cache for append5613 F939EE skend:5614 F939EE A5 34 lda fildrv5615 F939F0 29 01 and #15616 F939F2 85 EC sta wrdrv ; set up write drv5617 F939F4 85 19 sta drvnum5618 F939F6 A5 2A lda entsec ; set dir ptr to entry5619 F939F8 85 09 sta sector5620 F939FA A0 28 ldy #dirtrk5621 F939FC 84 08 sty track5622 F939FE 20 3D 56 jsr sethdp5623 F93A01 18 clc5624 F93A02 65 09 adc sector5625 F93A04 85 0B sta dirp+1 ; set dir. pointer to file entry5626 F93A06 A5 2F lda entind5627 F93A08 85 0A sta dirp5628 F93A0A A7 0A lda [dirp] ; clear flag closed file5629 F93A0C 29 7F and #$7F5630 F93A0E 87 0A sta [dirp]5631 F93A10 20 57 36 jsr wrdsec ; update dir on disk5632 F93A13 A5 20 lda filtrk5633 F93A15 85 08 sta track5634 F93A17 A5 25 lda filsec5635 F93A19 85 09 sta sector5636 F93A1B 64 F0 stz wcnt5637 F93A1D 64 F1 stz wcnt+15638 F93A1F 20 C1 57 ?02: jsr wread ; read whole track in write cache5639 F93A22 20 5A 56 jsr setwb ; set cache ptr to right sector5640 F93A25 E6 F0 ?04: inc wcnt5641 F93A27 D0 02 bne ?06Tue Jul 17 11:00:19 2018 Page 555642 F93A29 E6 F1 inc wcnt+15643 F93A2B A0 01 ?06: ldy #15644 F93A2D B7 90 lda [wbuf],y ; next sector5645 F93A2F A8 tay5646 F93A30 A7 90 lda [wbuf] ; next track5647 F93A32 F0 12 beq ?10 ; end of file5648 F93A34 84 09 sty sector ; next sector5649 F93A36 C5 08 cmp track ; same track?5650 F93A38 85 08 sta track5651 F93A3A D0 E3 bne ?02 ; will read a new track5652 F93A3C 18 clc5653 F93A3D 98 tya5654 F93A3E A6 19 ldx drvnum5655 F93A40 75 7C adc wrtofs,x ; sector in the same track5656 F93A42 85 91 sta wbuf+15657 F93A44 80 DF bra ?04 ; follow link5658 F93A46 C8 ?10: iny ; bump pointer5659 F93A47 84 ED sty wridx ; start index for append5660 F93A49 A5 09 lda sector5661 F93A4B 85 EE sta wsec ; current write sector5662 F93A4D 85 EF sta wfirst ; this is first sector5663 F93A4F ACC165664 F93A4F C2 20 rep #PMFLAG5665 .LONGA on5666 .MNLIST5667 F93A51 C6 F0 dec wcnt ; append !!5668 F93A53 ACC085669 F93A53 E2 20 sep #PMFLAG5670 .LONGA off5671 .MNLIST5672 F93A55 60 rts56735674 ; show message while copy/concat5675 F93A56 cpymsg:5676 F93A56 24 55 bit subcmd5677 F93A58 10 1C bpl ?02 ; copy/concat5678 F93A5A5679 ; show msg while disk-to-disk copy5680 F93A5A A5 34 lda fildrv ; dest drive5681 F93A5C 29 01 and #15682 F93A5E 48 pha5683 F93A5F D4 94 pei (wtmp) ; block's count #5684 F93A61 A9 00 lda #^nambuf5685 F93A63 48 pha5686 F93A64 F4 C2 E1 pea #!nambuf5687 F93A67 A5 35 lda fildrv+1 ; source drive5688 F93A69 29 01 and #15689 F93A6B 48 pha5690 F93A6C 4B phk5691 F93A6D F4 A7 3A pea #!?205692 F93A70 A9 0B lda #11 ; params #5693 F93A72 48 pha5694 F93A73 BPRINTF5695 F93A73 02 11 cop $115696 .MNLIST5697 F93A75 60 rts5698Tue Jul 17 11:00:19 2018 Page 565699 ; show msg while copy/concat5700 F93A76 A9 00 ?02: lda #^nambuf ; dest file name5701 F93A78 48 pha5702 F93A79 F4 DD E1 pea #!nambuf25703 F93A7C A5 34 lda fildrv ; dest drive5704 F93A7E 29 01 and #15705 F93A80 48 pha5706 F93A81 D4 94 pei (wtmp) ; block's count #5707 F93A83 A9 00 lda #^nambuf5708 F93A85 48 pha5709 F93A86 F4 C2 E1 pea #!nambuf5710 F93A89 A5 35 lda fildrv+1 ; source drive5711 F93A8B 29 01 and #15712 F93A8D 48 pha5713 F93A8E 4B phk ; string bank5714 F93A8F 24 55 bit subcmd5715 F93A91 70 0B bvs ?04 ; always append5716 F93A93 A6 15 ldx f2ptr5717 F93A95 E0 02 cpx #25718 F93A97 B0 05 bcs ?04 ; append5719 F93A99 F4 D6 3A pea #!?30 ; copy5720 F93A9C 80 03 bra ?065721 F93A9E F4 01 3B ?04: pea #!?405722 F93AA1 A9 0E ?06: lda #14 ; params #5723 F93AA3 48 pha5724 F93AA4 BPRINTF5725 F93AA4 02 11 cop $115726 .MNLIST5727 F93AA6 60 rts57285729 F93AA7 0D 63 6F 70 79 ?20: .DB $0D, 'copy #%bu:%s (%04hu blocks) to drive #%bu:...', $0020 23 25 62 753A 25 73 20 2825 30 34 68 7520 62 6C 6F 636B 73 29 20 746F 20 64 72 6976 65 20 23 2562 75 3A 2E 2E2E 005730 F93AD6 0D 63 6F 70 79 ?30: .DB $0D, 'copy #%bu:%s (%04hu blocks) to #%bu:%s...', $0020 23 25 62 753A 25 73 20 2825 30 34 68 7520 62 6C 6F 636B 73 29 20 746F 20 23 25 6275 3A 25 73 2E2E 2E 005731 F93B01 0D 63 61 74 20 ?40: .DB $0D, 'cat #%bu:%s (%04hu blocks) to #%bu:%s...', $0020 23 25 62 753A 25 73 20 2825 30 34 68 7520 62 6C 6F 636B 73 29 20 746F 20 23 25 6275 3A 25 73 2ETue Jul 17 11:00:19 2018 Page 572E 2E 0057325733 F93B2C donemsg:5734 F93B2C A9 3B lda #>?105735 F93B2E EB xba5736 F93B2F A9 3F lda #<?105737 F93B31 24 43 bit image5738 F93B33 10 05 bpl ?02 ; skip5739 F93B35 A9 3B lda #>?205740 F93B37 EB xba5741 F93B38 A9 45 lda #<?205742 F93B3A A2 F9 ?02: ldx #^?105743 F93B3C SCNSTROUT5744 F93B3C 02 03 cop $035745 .MNLIST5746 F93B3E 60 rts57475748 F93B3F 73 6B 69 70 2E ?10: .DB 'skip.', 0005749 F93B45 64 6F 6E 65 2E ?20: .DB 'done.', 00057505751 ;---------------------------------------------------------------------------5752 ; validate/file check command's5753 ;---------------------------------------------------------------------------5754 ; check file system but without change it5755 F93B4B fcheck:5756 F93B4B 20 05 3C jsr initd5757 F93B4E A0 00 ldy #$005758 F93B50 80 13 bra vdate157595760 ; check file system and change it5761 F93B52 vdate:5762 F93B52 20 05 3C jsr initd5763 F93B55 A6 19 ldx drvnum5764 F93B57 A0 80 ldy #$80 ; update file system5765 F93B59 B5 68 lda drvfg,x5766 F93B5B 89 08 bit #$08 ; test if new version5767 F93B5D F0 04 beq ?10 ; only check without correct in old version5768 F93B5F 89 10 bit #$10 ; write protect on?5769 F93B61 F0 02 beq vdate1 ; no -- proceed5770 F93B63 A0 00 ?10: ldy #$00 ; check only -- no update57715772 F93B65 vdate1:5773 F93B65 84 E6 sty wrop5774 F93B67 A5 19 lda drvnum5775 F93B69 48 pha5776 F93B6A 4B phk5777 F93B6B 24 E6 bit wrop5778 F93B6D 30 05 bmi ?025779 F93B6F F4 A4 3B pea #!?605780 F93B72 80 03 bra ?035781 F93B74 F4 D8 3B ?02: pea #!?705782 F93B77 A9 05 ?03: lda #55783 F93B79 48 pha5784 F93B7A BPRINTF5785 F93B7A 02 11 cop $11Tue Jul 17 11:00:19 2018 Page 585786 .MNLIST5787 F93B7C 20 9C 4E jsr newmap ; set new aux bam5788 F93B7F 64 02 stz delind5789 F93B81 ACC165790 F93B81 C2 20 rep #PMFLAG5791 .LONGA on5792 .MNLIST5793 F93B83 A9 58 0C lda #maxblks ; max. available block's5794 F93B86 85 86 sta ntot ; updated in aux bam5795 F93B88 85 88 sta bcnt ; updated in file check5796 F93B8A ACC085797 F93B8A E2 20 sep #PMFLAG5798 .LONGA off5799 .MNLIST5800 F93B8C 20 2D 4B jsr srchst ; search first file5801 F93B8F F0 0B beq ?10 ; end search58025803 F93B91 20 08 50 ?04: jsr chkfil ; found one - check5804 F93B94 20 65 4B jsr srre ; next entry5805 F93B97 D0 F8 bne ?045806 F93B99 20 A7 52 jsr chkdir5807 F93B9C 20 19 53 ?10: jsr updbam5808 F93B9F A6 19 ldx drvnum5809 F93BA1 74 68 stz drvfg,x5810 F93BA3 60 rts58115812 F93BA4 0D 63 68 65 63 ?60: .DB $0D, 'check file system on drive #%bu (without changes).', 06B 20 66 69 6C65 20 73 79 7374 65 6D 20 6F6E 20 64 72 6976 65 20 23 2562 75 20 28 7769 74 68 6F 7574 20 63 68 616E 67 65 73 292E 005813 F93BD8 0D 76 61 6C 69 ?70: .DB $0D, 'validate file system with bam on drive %bu.', 064 61 74 65 2066 69 6C 65 2073 79 73 74 656D 20 77 69 7468 20 62 61 6D20 6F 6E 20 6472 69 76 65 2025 62 75 2E 0058145815 ;---------------------------------------------------------------------------5816 ; initialize command5817 ;---------------------------------------------------------------------------5818 F93C05 initd:5819 F93C05 A5 41 lda cmdsiz5820 F93C07 C9 03 cmp #35821 F93C09 90 03 bcc ?025822 F93C0B 4C 05 41 jmp e_badsyn5823 F93C0E 20 31 42 ?02: jsr simprs5824 F93C11 A6 19 ldx drvnum ; force initTue Jul 17 11:00:19 2018 Page 595825 F93C13 74 68 stz drvfg,x5826 F93C15 4C 6A 56 jmp drvint58275828 ;---------------------------------------------------------------------------5829 ; duplicate command5830 ;---------------------------------------------------------------------------5831 F93C18 dupd:5832 F93C18 20 D7 40 jsr prsdtd ; check src & dst drive5833 F93C1B A5 35 lda fildrv+15834 F93C1D 29 01 and #15835 F93C1F 85 19 sta drvnum5836 F93C21 85 35 sta fildrv+15837 F93C23 49 01 eor #$015838 F93C25 85 42 sta char5839 F93C27 20 6A 56 jsr drvint ; init source drive5840 F93C2A 20 8A 4B jsr togdrv ; toggle drive5841 F93C2D 20 B4 56 jsr dsktst ; check if dest drive is ready5842 F93C30 A6 19 ldx drvnum5843 F93C32 A9 10 lda #$10 ; test if write protect5844 F93C34 34 68 bit drvfg,x5845 F93C36 F0 05 beq ?045846 F93C38 A9 1A lda #wpon5847 F93C3A 4C F5 56 jmp drverr5848 F93C3D ?04: SCN_CR5849 F93C3D SCNPRCHAR5850 .MLIST5851 F93C3D 02 07 cop $075852 .MNLIST5853 F93C3F 0D .DB $0D5854 .MNLIST5855 F93C40 20 E1 58 jsr llfmt ; format dest. drive5856 F93C43 SCN_CR5857 F93C43 SCNPRCHAR5858 .MLIST5859 F93C43 02 07 cop $075860 .MNLIST5861 F93C45 0D .DB $0D5862 .MNLIST5863 F93C46 A9 01 lda #15864 F93C48 85 08 sta track ; track counter5865 F93C4A 64 09 stz sector5866 F93C4C SCNGETPOS5867 F93C4C 02 18 cop $185868 F93C4E 02 .DB $025869 .MNLIST5870 F93C4F 86 94 stx wtmp5871 F93C51 84 95 sty wtmp+15872 F93C53 A6 94 ?10: ldx wtmp5873 F93C55 A4 95 ldy wtmp+15874 F93C57 SCNSETPOS5875 F93C57 02 18 cop $185876 F93C59 03 .DB $035877 .MNLIST5878 F93C5A A5 19 lda drvnum5879 F93C5C 48 pha ; dest drive5880 F93C5D A5 35 lda fildrv+15881 F93C5F 48 pha ; src driveTue Jul 17 11:00:19 2018 Page 605882 F93C60 A5 08 lda track5883 F93C62 48 pha5884 F93C63 4B phk ; bank of format str5885 F93C64 F4 90 3C pea #!?100 ; address of format str5886 F93C67 A9 07 lda #7 ; # params5887 F93C69 48 pha5888 F93C6A BPRINTF5889 F93C6A 02 11 cop $115890 .MNLIST5891 F93C6C A6 42 ldx char ; 0 if drive 1, 1 if drive 05892 F93C6E B5 70 lda trkbuf,x ; A=dma buffer #5893 F93C70 A6 35 ldx fildrv+1 ; X=src drive5894 F93C72 20 63 58 jsr readtk ; read whole track5895 F93C75 A6 42 ldx char ; 0 if drive 1, 1 if drive 05896 F93C77 B5 70 lda trkbuf,x ; A=dma buffer #5897 F93C79 A6 19 ldx drvnum ; X=dest drive5898 F93C7B 20 DF 57 jsr writetk ; write whole track5899 F93C7E E6 08 inc track5900 F93C80 A5 08 lda track5901 F93C82 C9 51 cmp #maxtrk5902 F93C84 90 CD bcc ?105903 F93C86 SCN_CR5904 F93C86 SCNPRCHAR5905 .MLIST5906 F93C86 02 07 cop $075907 .MNLIST5908 F93C88 0D .DB $0D5909 .MNLIST5910 F93C89 A6 19 ldx drvnum5911 F93C8B 74 68 stz drvfg,x ; invalid drive5912 F93C8D 4C 6A 56 jmp drvint ; init dest drive59135914 F93C90 63 6F 70 79 20 ?100: .DB 'copy track #%02bu from drive #%bu to drive #%bu', $0074 72 61 63 6B20 23 25 30 3262 75 20 66 726F 6D 20 64 7269 76 65 20 2325 62 75 20 746F 20 64 72 6976 65 20 23 2562 75 0059155916 ;---------------------------------------------------------------------------5917 ; block-op commands5918 ;---------------------------------------------------------------------------59195920 ; U1 & U2 commands5921 ; U1 is the same of B-R and U2 is the same of B-W5922 ; U1: ch dr trk blk5923 ; U1: ch,dr,trk,blk5924 ; U2: ch dr trk blk5925 ; U2: ch,dr,trk,blk5926 F93CC0 blku:5927 F93CC0 AD 01 E1 lda !cmdbuf+15928 F93CC3 3A dec a5929 F93CC4 C9 30 cmp #'0'Tue Jul 17 11:00:19 2018 Page 615930 F93CC6 F0 04 beq ?025931 F93CC8 C9 31 cmp #'1'5932 F93CCA D0 07 bne e_badcmd25933 F93CCC 29 01 ?02: and #$015934 F93CCE AA tax ; X=0 => R, X=1 => W5935 F93CCF A0 02 ldy #$02 ; index next char5936 F93CD1 80 21 bra blkprs59375938 F93CD3 e_badcmd2:5939 F93CD3 4C FD 40 jmp e_badcmd59405941 F93CD6 e_badsyn2:5942 F93CD6 4C 05 41 jmp e_badsyn59435944 ; block-op commands5945 ; B-R: ch dr trk blk5946 ; B-R: ch,dr,trk,blk5947 ; B-W: ch dr trk blk5948 ; B-W: ch,dr,trk,blk5949 ; B-A: dr trk blk5950 ; B-A: dr,trk,blk5951 ; B-F: dr trk blk5952 ; B-F: dr,trk,blk5953 ; B-P: ch pos5954 ; B-P: ch,pos5955 F93CD9 blkb:5956 F93CD9 AD 01 E1 lda !cmdbuf+15957 F93CDC C9 2D cmp #'-' ; subcommands seperator5958 F93CDE D0 F6 bne e_badsyn25959 F93CE0 A2 04 ldx #ncmds2-15960 F93CE2 AD 02 E1 lda !cmdbuf+25961 F93CE5 F0 EF beq e_badsyn2 ; syntax error if no more char's5962 F93CE7 DF 69 5A F9 ?02: cmp >cmdstb,x ; match subcommand5963 F93CEB F0 05 beq ?045964 F93CED CA dex5965 F93CEE 10 F7 bpl ?025966 F93CF0 30 E1 bmi e_badcmd2 ; error5967 F93CF2 A0 03 ?04: ldy #3 ; index next char59685969 ; common routine for block-op5970 ; X=0 => R, X=1 => W, X=2 => A, X=3 => F, X=4 => P5971 F93CF4 blkprs:5972 F93CF4 86 55 stx subcmd ; subcommand5973 F93CF6 B9 00 E1 lda cmdbuf,y ; must be seperator5974 F93CF9 C9 3A cmp #':'5975 F93CFB D0 D9 bne e_badsyn25976 F93CFD C8 ?02: iny5977 F93CFE B9 00 E1 lda cmdbuf,y5978 F93D01 F0 D3 beq e_badsyn2 ; end of string is an error here5979 F93D03 C9 20 cmp #' ' ; skip blanks after semicolon5980 F93D05 F0 F6 beq ?025981 F93D07 A2 FF ldx #$FF ; table index5982 F93D09 E8 ?04: inx5983 F93D0A E0 04 cpx #mxfils-15984 F93D0C B0 C8 bcs e_badsyn2 ; full param's table5985 F93D0E 20 B5 3D jsr asc2bin ; convert ascii to byte and put in table5986 F93D11 88 deyTue Jul 17 11:00:19 2018 Page 625987 F93D12 C8 ?06: iny5988 F93D13 B9 00 E1 lda cmdbuf,y ; loop for param's parsing5989 F93D16 F0 0A beq ?08 ; end parsing5990 F93D18 C9 20 cmp #' ' ; skip blank seperator5991 F93D1A F0 F6 beq ?065992 F93D1C C9 2C cmp #',' ; skip comma seperator5993 F93D1E F0 F2 beq ?065994 F93D20 D0 E7 bne ?04 ; parse next digit5995 F93D22 E8 ?08: inx5996 F93D23 86 12 stx f1cnt ; param's counter5997 F93D25 A9 04 lda #4 ; 4 param's for R, W (0 & 1)5998 F93D27 A4 55 ldy subcmd5999 F93D29 F0 0B beq ?106000 F93D2B 88 dey6001 F93D2C F0 08 beq ?106002 F93D2E 3A dec a ; 3 param's for A, F (2 & 3)6003 F93D2F 88 dey6004 F93D30 F0 04 beq ?106005 F93D32 88 dey6006 F93D33 F0 01 beq ?106007 F93D35 3A dec a ; 2 param's for P (4)6008 F93D36 85 1F ?10: sta tmpxxx6009 F93D38 E4 1F cpx tmpxxx6010 F93D3A D0 9A bne e_badsyn2 ; wrong param's count6011 F93D3C A4 55 ldy subcmd6012 F93D3E C0 04 cpy #46013 F93D40 B0 0F bcs ?14 ; skip drive check for P subcmd6014 F93D42 A2 01 ldx #1 ; for R,W second param is drive number6015 F93D44 C0 02 cpy #26016 F93D46 90 01 bcc ?126017 F93D48 CA dex ; for A,F first param is drive number6018 F93D49 B5 25 ?12: lda filsec,x ; check drive number6019 F93D4B C9 02 cmp #26020 F93D4D B0 3A bcs e_baddrv6021 F93D4F 85 19 sta drvnum6022 F93D51 C0 02 ?14: cpy #2 ; check channel # for R(0),W(1),P(4)6023 F93D53 90 04 bcc ?166024 F93D55 C0 04 cpy #46025 F93D57 D0 0C bne ?186026 F93D59 A5 25 ?16: lda filsec ; channel # is first param6027 F93D5B C9 02 cmp #2 ; valid channel: 2..146028 F93D5D 90 2F bcc e_badchn6029 F93D5F C9 0F cmp #156030 F93D61 B0 2B bcs e_badchn6031 F93D63 85 52 sta chnl6032 F93D65 C0 04 ?18: cpy #46033 F93D67 F0 1A beq ?22 ; skip trk & sec check for P subcmd6034 F93D69 A2 01 ldx #1 ; trk for A, F6035 F93D6B C0 02 cpy #26036 F93D6D B0 01 bcs ?206037 F93D6F E8 inx ; trk for R, W6038 F93D70 B5 25 ?20: lda filsec,x6039 F93D72 85 08 sta track6040 F93D74 F0 1D beq e_badts6041 F93D76 C9 51 cmp #maxtrk6042 F93D78 B0 19 bcs e_badts6043 F93D7A E8 inx ; check sector #Tue Jul 17 11:00:19 2018 Page 636044 F93D7B B5 25 lda filsec,x6045 F93D7D 85 09 sta sector6046 F93D7F C9 28 cmp #numsec6047 F93D81 B0 10 bcs e_badts6048 F93D83 98 ?22: tya6049 F93D84 0A asl a6050 F93D85 AA tax6051 F93D86 7C E6 5A jmp (scjmp,x)60526053 F93D89 e_baddrv:6054 F93D89 A9 23 lda #baddrv6055 F93D8B 4C F5 56 jmp drverr60566057 F93D8E e_badchn:6058 F93D8E A9 24 lda #badchn6059 F93D90 4C ED 56 jmp chnerr60606061 F93D93 e_badts:6062 F93D93 A9 42 lda #badts6063 F93D95 4C FB 56 jmp doserr60646065 ; check drive number in A6066 ; in: A = digit drive number ('0', '1', ...)6067 ; Y = 0 if check cbm drive (just 0,1)6068 ; Y = $FF if check dos drive (0..7)6069 ; out: A = drive number (0, 1, ...)6070 F93D98 chkdrv:6071 F93D98 C9 30 cmp #'0' ; drive 0 and 1 always valid6072 F93D9A F0 16 beq ?026073 F93D9C C9 31 cmp #'1'6074 F93D9E F0 12 beq ?026075 F93DA0 C8 iny ; not zero if check cbm drive6076 F93DA1 D0 E6 bne e_baddrv ; invalid cbm drive6077 F93DA3 C9 38 cmp #'8'6078 F93DA5 B0 E2 bcs e_baddrv ; valid dos drive: 0..76079 F93DA7 C9 30 cmp #'0'6080 F93DA9 90 DE bcc e_baddrv6081 F93DAB E9 30 sbc #'0'6082 F93DAD C9 04 cmp #MAXDOSDRV6083 F93DAF B0 D8 bcs e_baddrv6084 F93DB1 60 rts6085 F93DB2 29 01 ?02: and #$016086 F93DB4 60 rts60876088 ; convert ascii string to byte6089 ; in: A = first digit6090 ; X = table index6091 ; Y = cmdbuf index6092 ; out: X = table index6093 ; Y = index of first not-digit6094 F93DB5 asc2bin:6095 F93DB5 64 1F stz tmpxxx ; partial value6096 F93DB7 C9 30 cmp #'0' ; first char must be a digit6097 F93DB9 90 2F bcc ?086098 F93DBB C9 3A cmp #'9'+16099 F93DBD B0 2B bcs ?086100 F93DBF E9 2F ?02: sbc #'0'-1 ; convert digit (here always CF = 0)Tue Jul 17 11:00:19 2018 Page 646101 F93DC1 EB xba ; B = digit6102 F93DC2 18 clc6103 F93DC3 A5 1F lda tmpxxx ; partial null?6104 F93DC5 F0 0B beq ?04 ; yes, skip mult * 106105 F93DC7 C9 1A cmp #26 ; this value make overflow6106 F93DC9 B0 1F bcs ?086107 F93DCB 0A asl a ; safety multiply * 106108 F93DCC 0A asl a6109 F93DCD 65 1F adc tmpxxx6110 F93DCF 0A asl a ; always carry = 0 here6111 F93DD0 85 1F sta tmpxxx6112 F93DD2 EB ?04: xba6113 F93DD3 65 1F adc tmpxxx6114 F93DD5 B0 13 bcs ?08 ; overflow6115 F93DD7 85 1F sta tmpxxx6116 F93DD9 C8 iny ; next char6117 F93DDA B9 00 E1 lda cmdbuf,y6118 F93DDD C9 30 cmp #'0' ; continue conversion if next char is a digit6119 F93DDF 90 04 bcc ?066120 F93DE1 C9 3A cmp #'9'+16121 F93DE3 90 DA bcc ?026122 F93DE5 A5 1F ?06: lda tmpxxx ; store value in table6123 F93DE7 95 25 sta filsec,x6124 F93DE9 60 rts61256126 F93DEA 4C 05 41 ?08: jmp e_badsyn61276128 ; block read6129 F93DED blkrd:6130 F93DED 20 69 3F jsr tstda ; check direct access fd type6131 F93DF0 20 79 3F jsr dskbuf ; set tlp ptr to buffer return X=drive...6132 F93DF36133 ; param's in reverse order6134 F93DF3 A5 09 lda sector6135 F93DF5 48 pha6136 F93DF6 A5 08 lda track6137 F93DF8 48 pha6138 F93DF9 A5 19 lda drvnum6139 F93DFB 48 pha6140 F93DFC A5 52 lda chnl6141 F93DFE 48 pha6142 F93DFF A9 F9 lda #^?016143 F93E01 48 pha6144 F93E02 F4 34 3E pea #!?016145 F93E05 A9 08 lda #8 ; num params6146 F93E07 48 pha6147 F93E08 BPRINTF6148 F93E08 02 11 cop $116149 .MNLIST615061516152 F93E0A 20 B7 58 jsr readsec6153 F93E0D A5 09 lda sector6154 F93E0F 4A lsr a6155 F93E10 90 02 bcc ?026156 F93E12 E6 3F inc tlp+1 ; odd sector6157 F93E14 A0 00 ?02: ldy #0Tue Jul 17 11:00:19 2018 Page 656158 F93E16 B7 3E ?04: lda [tlp],y6159 F93E18 97 8A sta [bufp],y6160 F93E1A C8 iny6161 F93E1B D0 F9 bne ?046162 ;rts6163 F93E1D A5 F6 lda pbuf6164 F93E1F 48 pha6165 F93E20 A5 40 lda tlp+26166 F93E22 48 pha6167 F93E23 D4 3E pei (tlp)6168 F93E25 A5 8C lda bufp+26169 F93E27 48 pha6170 F93E28 D4 8A pei (bufp)6171 F93E2A 4B phk6172 F93E2B F4 65 3E pea #!?106173 F93E2E A9 0B lda #116174 F93E30 48 pha6175 F93E31 BPRINTF6176 F93E31 02 11 cop $116177 .MNLIST6178 F93E33 60 rts6179 F93E34 ?01:6180 F93E34 0D 42 2D 52 3A .DB $0D, 'B-R: chnl=%bd, drive=%bd, track=%bd, sector=%bd', 020 63 68 6E 6C3D 25 62 64 2C20 64 72 69 7665 3D 25 62 642C 20 74 72 6163 6B 3D 25 6264 2C 20 73 6563 74 6F 72 3D25 62 64 006181 F93E65 0D 62 75 66 70 ?10: .DB $0D, 'bufp: %P, tlp: %P, DMA: %bX', 03A 20 25 50 2C20 74 6C 70 3A20 25 50 2C 2044 4D 41 3A 2025 62 58 0061826183 ; block write6184 F93E82 blkwr:6185 ; param's in reverse order6186 F93E82 A5 09 lda sector6187 F93E84 48 pha6188 F93E85 A5 08 lda track6189 F93E87 48 pha6190 F93E88 A5 19 lda drvnum6191 F93E8A 48 pha6192 F93E8B A5 54 lda bchn6193 F93E8D 48 pha6194 F93E8E A9 F9 lda #^?016195 F93E90 48 pha6196 F93E91 F4 9A 3E pea #!?016197 F93E94 A9 08 lda #8 ; num params6198 F93E96 48 pha6199 F93E97 BPRINTF6200 F93E97 02 11 cop $11Tue Jul 17 11:00:19 2018 Page 666201 .MNLIST6202 F93E99 60 rts6203 F93E9A ?01:6204 F93E9A 42 2D 57 3A 20 .DB 'B-W: chnl=%bd, drive=%bd, track=%bd, sector=%bd', 063 68 6E 6C 3D25 62 64 2C 2064 72 69 76 653D 25 62 64 2C20 74 72 61 636B 3D 25 62 642C 20 73 65 6374 6F 72 3D 2562 64 0062056206 ; block allocate sector6207 F93ECA blkalc:6208 ; param's in reverse order6209 F93ECA A5 09 lda sector6210 F93ECC 48 pha6211 F93ECD A5 08 lda track6212 F93ECF 48 pha6213 F93ED0 A5 19 lda drvnum6214 F93ED2 48 pha6215 F93ED3 A9 F9 lda #^?016216 F93ED5 48 pha6217 F93ED6 F4 DF 3E pea #!?016218 F93ED9 A9 07 lda #7 ; num params6219 F93EDB 48 pha6220 F93EDC BPRINTF6221 F93EDC 02 11 cop $116222 .MNLIST6223 F93EDE 60 rts6224 F93EDF ?01:6225 F93EDF 42 2D 41 3A 20 .DB 'B-A: drive=%bd, track=%bd, sector=%bd', 064 72 69 76 653D 25 62 64 2C20 74 72 61 636B 3D 25 62 642C 20 73 65 6374 6F 72 3D 2562 64 0062266227 ; block free sector6228 F93F05 blkfree:6229 ; param's in reverse order6230 F93F05 A5 09 lda sector6231 F93F07 48 pha6232 F93F08 A5 08 lda track6233 F93F0A 48 pha6234 F93F0B A5 19 lda drvnum6235 F93F0D 48 pha6236 F93F0E A9 F9 lda #^?016237 F93F10 48 pha6238 F93F11 F4 1A 3F pea #!?016239 F93F14 A9 07 lda #7 ; num params6240 F93F16 48 pha6241 F93F17 BPRINTFTue Jul 17 11:00:19 2018 Page 676242 F93F17 02 11 cop $116243 .MNLIST6244 F93F19 60 rts6245 F93F1A ?01:6246 F93F1A 42 2D 46 3A 20 .DB 'B-F: drive=%bd, track=%bd, sector=%bd', 064 72 69 76 653D 25 62 64 2C20 74 72 61 636B 3D 25 62 642C 20 73 65 6374 6F 72 3D 2562 64 0062476248 ; block set buffer position6249 ; pos is in filsec+16250 F93F40 blkpos:62516252 ; param's in reverse order6253 F93F40 A5 26 lda filsec+16254 F93F42 48 pha6255 F93F43 A5 54 lda bchn6256 F93F45 48 pha6257 F93F46 A9 F9 lda #^?016258 F93F48 48 pha6259 F93F49 F4 52 3F pea #!?016260 F93F4C A9 06 lda #6; num params6261 F93F4E 48 pha6262 F93F4F BPRINTF6263 F93F4F 02 11 cop $116264 .MNLIST6265 F93F51 60 rts6266 F93F52 ?01:6267 F93F52 42 2D 50 3A 20 .DB 'B-P: chnl=%bd, pos=%bu', 063 68 6E 6C 3D25 62 64 2C 2070 6F 73 3D 2562 75 0062686269 ; check that chnl is open and direct type access6270 F93F69 tstda:6271 F93F69 20 F2 48 jsr isopn ; check chn is open6272 F93F6C 20 CA 48 jsr fnddafd ; check is direct access type6273 F93F6F B0 03 bcs ?106274 F93F71 4C 15 49 jmp setfdp ; set buffer for this fd & return X=lindx6275 F93F74 A9 40 ?10: lda #mistyp6276 F93F76 4C ED 56 jmp chnerr ; file type mismatch62776278 ; set buffer pointer for block-read / block-write6279 ; buffer is after dir. cache of the selected drive6280 ; set tmpxxx to dma buffer #6281 ; set Y=wtmp to phisycal sector6282 ; set pside to side6283 F93F79 dskbuf:6284 F93F79 20 6A 56 jsr drvint ; init drive6285 F93F7C A6 19 ldx drvnum ; set buffer ptr6286 F93F7E 86 F2 stx pdrv6287 F93F80 B5 6E lda sysbuf,x ; dma # of dir. cacheTue Jul 17 11:00:19 2018 Page 686288 F93F82 18 clc6289 F93F83 69 14 adc #phisec*26290 F93F85 1A inc a6291 F93F86 65 57 adc lindx6292 F93F88 85 F6 sta pbuf6293 F93F8A A0 02 ldy #DMABNK ; bank for buffer #00..#7F6294 F93F8C 0A asl a ; get high pointer6295 F93F8D 90 01 bcc ?026296 F93F8F C8 iny ; next bank6297 F93F90 64 3E ?02: stz tlp6298 F93F92 85 3F sta tlp+16299 F93F94 84 40 sty tlp+26300 F93F96 A5 09 lda sector ; 0..396301 F93F98 4A lsr a ; 0..196302 F93F99 A0 00 ldy #0 ; side 06303 F93F9B C9 0A cmp #phisec ; 0..9 -> side 0, 10..19 -> side 16304 F93F9D 90 03 bcc ?046305 F93F9F E9 0A sbc #phisec6306 F93FA1 C8 iny ; side 16307 F93FA2 1A ?04: inc a ; A = phisycal sec6308 F93FA3 85 F4 sta psec6309 F93FA5 84 F3 sty pside6310 F93FA7 A9 01 lda #16311 F93FA9 85 F5 sta pcnt6312 F93FAB 60 rts63136314 ;---------------------------------------------------------------------------6315 ; names string utilities6316 ;---------------------------------------------------------------------------63176318 ; build canonical file name's table6319 ; check for empty or too long file name6320 ; check for not allowed char's in file name6321 ; convert '*' in right number of '?'6322 ; pad file name with $A06323 F93FAC buildfn:6324 F93FAC A2 00 ldx #06325 F93FAE A9 61 lda #<fntab ; set ptr to first file name6326 F93FB0 85 3E sta tlp6327 F93FB2 A9 E1 lda #>fntab6328 F93FB4 85 3F sta tlp+16329 F93FB6 86 14 ?02: stx f1ptr ; table index6330 F93FB8 B5 34 lda fildrv,x6331 F93FBA 85 1F sta tmpxxx ; ibm/dos drive flag (bit 6)6332 F93FBC B5 1A lda filtbl,x6333 F93FBE AA tax ; pointer to string6334 F93FBF 20 55 40 jsr fndlmt ; find string limit6335 F93FC2 98 tya ; string size6336 F93FC3 D0 03 bne ?036337 F93FC5 4C 01 41 jmp e_nofile ; empty: no file given error6338 F93FC8 24 1F ?03: bit tmpxxx6339 F93FCA 70 48 bvs ?18 ; canonical ibm/dos file name6340 F93FCC C9 11 cmp #176341 F93FCE B0 27 bcs ?08 ; too long: badfn error6342 F93FD0 BD 00 E1 lda !cmdbuf,x ; check if string start with blank6343 F93FD3 C9 20 cmp #' '6344 F93FD5 F0 20 beq ?08 ; first char is blank: badfn errorTue Jul 17 11:00:19 2018 Page 696345 F93FD7 A0 00 ldy #0 ; store canonical file name6346 F93FD9 BD 00 E1 ?04: lda !cmdbuf,x6347 F93FDC F0 22 beq ?12 ; end of string6348 F93FDE 86 42 stx char6349 F93FE0 A2 05 ldx #nbadch-1 ; check forbidden char's in file name6350 F93FE2 DF 96 5A F9 ?06: cmp >badchr,x6351 F93FE6 F0 0F beq ?08 ; bad char: badfn error6352 F93FE8 CA dex6353 F93FE9 10 F7 bpl ?066354 F93FEB A6 42 ldx char6355 F93FED C9 2A cmp #'*' ; special char6356 F93FEF F0 0B beq ?10 ; handle star char6357 F93FF1 91 3E sta (tlp),y ; store char6358 F93FF3 E8 inx6359 F93FF4 C8 iny6360 F93FF5 80 E2 bra ?04 ; loop6361 F93FF7 A9 21 ?08: lda #badfn ; badfn error6362 F93FF9 4C 07 41 jmp cmderr6363 F93FFC A9 3F ?10: lda #'?' ; fill residual name with '?'6364 F93FFE 80 02 bra ?146365 F94000 A9 A0 ?12: lda #$A0 ; pad name with $A06366 F94002 88 ?14: dey6367 F94003 C8 ?16: iny6368 F94004 C0 10 cpy #166369 F94006 B0 04 bcs ?176370 F94008 91 3E sta (tlp),y6371 F9400A 80 F7 bra ?166372 F9400C A9 00 ?17: lda #0 ; string terminator6373 F9400E 91 3E sta (tlp),y6374 F94010 C8 iny ; offset to add for next string6375 F94011 18 clc6376 F94012 80 05 bra ?206377 F94014 20 2A 40 ?18: jsr dosfn ; handle dos file name6378 F94017 B0 DE bcs ?08 ; bad dos file name6379 F94019 A5 3E ?20: lda tlp ; set new file name pointer6380 F9401B A6 14 ldx f1ptr6381 F9401D 95 1A sta filtbl,x6382 F9401F 98 tya6383 F94020 65 3E adc tlp ; here always CF = 06384 F94022 85 3E sta tlp ; always stay in the same page !6385 F94024 E8 inx ; next file name6386 F94025 E4 13 cpx f2cnt6387 F94027 90 8D bcc ?026388 F94029 60 rts63896390 ; get canonical name of dos file name6391 F9402A dosfn:6392 F9402A CA dex ; store 'X:' at beginning6393 F9402B CA dex6394 F9402C A5 1F lda tmpxxx6395 F9402E 29 07 and #76396 F94030 18 clc6397 F94031 69 41 adc #'A' ; convert in drive letter6398 F94033 9D 00 E1 sta !cmdbuf,x6399 F94036 A9 3A lda #':'6400 F94038 9D 01 E1 sta !cmdbuf+1,x ; check name type A:/xxx...6401 F9403B A9 00 lda #0 ; bank of src stringTue Jul 17 11:00:19 2018 Page 706402 F9403D 48 pha6403 F9403E A9 E1 lda #>cmdbuf6404 F94040 48 pha ; pointer of source string6405 F94041 A9 00 lda #<cmdbuf6406 F94043 86 42 stx char6407 F94045 65 42 adc char ; add offset6408 F94047 48 pha6409 F94048 A9 00 lda #0 ; bank of dest string6410 F9404A 48 pha6411 F9404B D4 3E pei (tlp) ; dest string pointer6412 F9404D A9 80 lda #$806413 F9404F 48 pha ; fileflag (file)6414 F94050 TRUENAM ; get canonical name (sys call)6415 F94050 02 FE cop $FE6416 .MNLIST6417 F94052 A0 50 ldy #80 ; offset to add for next string6418 F94054 60 rts64196420 ; find string limit in cmdbuf pointed to by X6421 ; in: X = string pointer6422 ; out: X = string pointer6423 ; Y = string size6424 F94055 fndlmt:6425 F94055 DA phx ; save ptr6426 F94056 A0 00 ldy #0 ; string size6427 F94058 BD 00 E1 ?02: lda !cmdbuf,x6428 F9405B F0 0F beq ?06 ; end of string6429 F9405D C9 2C cmp #','6430 F9405F F0 08 beq ?04 ; 'comma' limited6431 F94061 C9 3D cmp #'='6432 F94063 F0 04 beq ?04 ; 'equal' limited6433 F94065 C8 iny6434 F94066 E8 inx6435 F94067 80 EF bra ?02 ; loop next char6436 F94069 9E 00 E1 ?04: stz !cmdbuf,x ; string limit6437 F9406C FA ?06: plx ; restore ptr6438 F9406D 60 rts64396440 ;---------------------------------------------------------------------------6441 ; parse command string utilities6442 ;---------------------------------------------------------------------------64436444 ; special case: parse command string for copy command6445 F9406E prscpy:6446 F9406E 20 6A 42 jsr prscln ; find ":"6447 F94071 D0 21 bne ?20 ; ok, found ":"6448 F94073 20 D7 40 jsr prsdtd ; look for "Cddrv=sdrv"6449 F94076 A2 5E ?10: ldx #cmdlen-26450 F94078 A9 2A lda #'*' ; put "*" at buffer end6451 F9407A 9D 00 E1 sta !cmdbuf,x6452 F9407D 9E 01 E1 stz !cmdbuf+1,x6453 F94080 86 1B stx filtbl+1 ; file2 ptr -> "*"6454 F94082 86 1A stx filtbl ; file1 ptr -> "*"6455 F94084 A9 80 lda #$806456 F94086 85 3A sta pattyp+1 ; file2 pattern flag6457 F94088 A2 01 ?14: ldx #1 ; set up cnt's6458 F9408A 86 12 stx f1cntTue Jul 17 11:00:19 2018 Page 716459 F9408C E8 inx6460 F9408D 86 13 stx f2cnt6461 F9408F A9 80 lda #$80 ; file1 pattern flag6462 F94091 85 39 sta pattyp6463 F94093 60 rts6464 F94094 20 13 41 ?20: jsr tagcmd2 ; continue normal parsing6465 F94097 20 8D 41 jsr alldrs ; put drv's in filtbl6466 F9409A A5 43 lda image ; get parse image6467 F9409C 29 55 and #%01010101 ; mask off copy (fs1 & fs2 just one file)6468 F9409E D0 2E bne ?30 ; concat6469 F940A06470 ; now parse string "ddrv:file1=sdrv:file2"6471 F940A0 A6 1A ldx filtbl ; check file16472 F940A2 BD 00 E1 lda !cmdbuf,x6473 F940A5 C9 2A cmp #'*' ; file1="*"?6474 F940A7 F0 04 beq ?226475 F940A9 C9 3D cmp #'=' ; file1 = NULL?6476 F940AB D0 21 bne ?30 ; no, check normal copy64776478 ?22: ; now string is the form "ddrv:*=sdrv:file2" or "ddrv:=sdrv:file2"6479 ; so operation is type DTD with unspecified file16480 F940AD A5 35 lda fildrv+1 ; check drv not equal6481 F940AF 29 07 and #$076482 F940B1 C5 34 cmp fildrv6483 F940B3 F0 50 beq e_badsyn ; cannot be equal6484 F940B5 A6 1B ldx filtbl+1 ; check file26485 F940B7 BD 00 E1 lda !cmdbuf,x6486 F940BA F0 BA beq ?10 ; file2 = NULL -> file2 = "*"6487 F940BC C9 2A cmp #'*'6488 F940BE F0 B6 beq ?10 ; file2 = "*"6489 F940C0 A2 5E ldx #cmdlen-26490 F940C2 A9 2A lda #'*' ; put "*" at buffer end6491 F940C4 9D 00 E1 sta !cmdbuf,x6492 F940C7 9E 01 E1 stz !cmdbuf+1,x6493 F940CA 86 1A stx filtbl ; file1 ptr -> "*"6494 F940CC 80 BA bra ?14 ; retain file2, file1 pattern flag64956496 ?30: ; check for normal copy: no pattern, fs1=1 file, fs2=n files6497 F940CE A5 43 lda image ; chk for normal6498 F940D0 29 D9 and #%110110016499 F940D2 D0 31 bne e_badsyn6500 F940D4 64 39 stz pattyp ; clear file1 pattern flag6501 F940D6 60 rts65026503 ; special case: parse string for disk-to-disk operation (DTD)6504 ; i.e.: "Cddrv=sdrv", "Dddrv=sdrv"6505 F940D7 prsdtd:6506 F940D7 A9 3D lda #'=' ; find "="6507 F940D9 20 6F 42 jsr parse6508 F940DC F0 27 beq e_badsyn ; error6509 F940DE B9 00 E1 lda cmdbuf,y ; test src drive6510 F940E1 20 5D 42 jsr tst0v16511 F940E4 30 13 bmi e_baddrv2 ; error6512 F940E6 85 35 sta fildrv+1 ; src drive6513 F940E8 88 dey6514 F940E9 88 dey ; back to dest drive6515 F940EA B9 00 E1 lda cmdbuf,yTue Jul 17 11:00:19 2018 Page 726516 F940ED 20 5D 42 jsr tst0v1 ; test dest drive6517 F940F0 30 07 bmi e_baddrv26518 F940F2 C5 35 cmp fildrv+1 ; cannot be equal6519 F940F4 F0 0F beq e_badsyn6520 F940F6 85 34 sta fildrv ; dest drive6521 F940F8 60 rts65226523 F940F9 e_baddrv2:6524 F940F9 A9 23 lda #baddrv6525 F940FB 80 0A bra cmderr6526 F940FD e_badcmd:6527 F940FD A9 1F lda #badcmd6528 F940FF 80 06 bra cmderr6529 F94101 e_nofile:6530 F94101 A9 22 lda #nofile ; no files6531 F94103 80 02 bra cmderr6532 F94105 e_badsyn:6533 F94105 A9 1E lda #badsyn ; err: bad syntax6534 F94107 cmderr:6535 F94107 64 08 stz track ; cmd level err proc6536 F94109 64 09 stz sector6537 F9410B 4C FB 56 jmp doserr65386539 ; tag cmd string,setup cmd.. struc, image & file pntrs6540 ; parse command line for R,S,N,A,T,M,L,K,E6541 ;6542 ; image bits6543 ; pgdrpgdr6544 ; fs1 fs26545 ; bit reps: pattern6546 ; greater than one file6547 ; drive:filename6548 ; not drive:filename (inverted d bit)6549 ;6550 ; fs1 only XX1000016551 ; fs1 & fs2 XX10XX106552 ; fs1 XX10XX00 (fs2 optional)655365546555 F9410E tagcmd:6556 F9410E 20 6A 42 jsr prscln6557 F94111 F0 EE beq e_nofile ; missing ':' -- error65586559 F94113 tagcmd2:6560 F94113 88 dey6561 F94114 88 dey6562 F94115 84 1A sty filtbl ; ":"-1 starts fs16563 F94117 8A txa6564 F94118 D0 E7 bne e_nofile ; err: "," before ":"65656566 F9411A prseq:6567 F9411A A9 3D lda #'=' ; search: "="6568 F9411C 20 6F 42 jsr parse6569 F9411F 8A txa ; ?file count= 1-1?6570 F94120 F0 02 beq ?406571 F94122 A9 40 lda #%01000000 ; g1-bit - fs1 count > 16572 F94124 09 21 ?40: ora #%00100001 ; d1,r2-bits - def. drive fs1, fs2 file req.Tue Jul 17 11:00:19 2018 Page 736573 F94126 85 43 sta image ; fs structure6574 F94128 E8 inx6575 F94129 86 12 stx f1cnt ; fs1 file count6576 F9412B 86 13 stx f2cnt ; init for no fs26577 F9412D A5 11 lda patflg6578 F9412F F0 06 beq ?506579 F94131 A9 80 lda #%10000000 ; p1-bit6580 F94133 04 43 tsb image6581 F94135 64 11 stz patflg ; clear pattern flag6582 F94137 98 ?50: tya ; ptr to fs26583 F94138 F0 21 beq ?75 ; no '=' -> no fs26584 F9413A 95 1A sta filtbl,x6585 F9413C A5 12 lda f1cnt ; fs2 is here now,...6586 F9413E 85 15 sta f2ptr ; ...now set f2 ptr6587 F94140 A9 8D lda #$8d ; dummy: find cr-shifted (till end of line)6588 F94142 20 6F 42 jsr parse ; parse rest of cmd string6589 F94145 E8 inx ; advance filtbl ptr to end6590 F94146 86 13 stx f2cnt ; save it6591 F94148 CA dex ; restore for test6592 F94149 A5 11 lda patflg ; save last pattern6593 F9414B F0 02 beq ?60 ; ?any patterns?6594 F9414D A9 08 lda #%00001000 ; yes, p2-bit6595 F9414F E4 12 ?60: cpx f1cnt ; ?f2cnt=f1cnt+1?6596 F94151 F0 02 beq ?706597 F94153 09 04 ora #%00000100 ; g2-bit6598 F94155 09 03 ?70: ora #%00000011 ; d2-bit,r2-bit6599 F94157 45 43 eor image ; eor clears r2-bit6600 F94159 85 43 sta image6601 F9415B A5 43 ?75: lda image6602 F9415D A6 53 ldx cmdnum6603 F9415F 3F 6E 5A F9 and >struct,x ; match cmd template6604 F94163 D0 A0 bne e_badsyn6605 F94165 60 rts66066607 ; parse command string for "open"6608 F94166 prsopn:6609 F94166 A9 80 lda #$806610 F94168 85 93 sta tmp0 ; accept default drive6611 F9416A 20 6A 42 jsr prscln ; look for ":"6612 F9416D D0 03 bne ?02 ; found6613 F9416F BB tyx ; not found: y=06614 F94170 F0 07 beq ?06 ; bra6615 F94172 8A ?02: txa6616 F94173 D0 90 bne e_badsyn ; comma before ":"6617 F94175 88 dey ; back up to ":"6618 F94176 F0 01 beq ?06 ; 1st char is ":"6619 F94178 88 dey6620 F94179 84 1A ?06: sty filtbl ; save filename ptr6621 F9417B A9 8D lda #$8d ; parse cmd string6622 F9417D 20 6F 42 jsr parse6623 F94180 E8 inx6624 F94181 86 13 stx f2cnt66256626 ; set 1st drive and table pointers6627 F94183 onedrv:6628 F94183 A5 13 lda f2cnt ; save f2cnt6629 F94185 85 12 sta f1cntTue Jul 17 11:00:19 2018 Page 746630 F94187 A9 01 lda #1 ; set pointer to first file6631 F94189 85 13 sta f2cnt6632 F9418B 85 15 sta f2ptr6633 F9418D6634 ;set up all drives from f2cnt (all files in stream)6635 F9418D alldrs:6636 F9418D A4 19 ldy drvnum ; default drive is last parsed drive6637 F9418F A2 00 ldx #0 ; ...into file entry table...6638 F94191 86 14 ?10 stx f1ptr ; ...on sector ptr byte6639 F94193 B5 34 lda fildrv,x ; set bit 6 if dos drive6640 F94195 85 42 sta char6641 F94197 B5 1A lda filtbl,x6642 F94199 20 EF 41 jsr setdrv6643 F9419C A6 14 ldx f1ptr6644 F9419E 95 1A sta filtbl,x ; incr ptr past ":"6645 ; bits rep drives6646 F941A0 98 tya6647 F941A1 05 42 ora char ; restore bit 66648 F941A3 95 34 sta fildrv,x ; bit7: default drive6649 F941A5 E8 inx ; bit0: drive #6650 F941A6 E4 13 cpx f2cnt6651 F941A8 90 E7 bcc ?106652 F941AA 60 rts66536654 ; parse string for load directory command6655 ; cover these situations:6656 ; "$"6657 ; "$x"6658 ; "$x:pattern=type"6659 F941AB prsldd:6660 F941AB A9 0B lda #ldcmd ; this is used as index for check image6661 F941AD 85 53 sta cmdnum6662 F941AF A9 80 lda #$80 ; load only drive zero6663 F941B1 A6 41 ldx cmdsiz6664 F941B3 CA dex6665 F941B4 F0 0B beq ?02 ; "$" case6666 F941B6 CA dex ; load by name6667 F941B7 D0 20 bne ?036668 F941B9 AD 01 E1 lda !cmdbuf+1 ; "$x" case6669 F941BC 20 5D 42 jsr tst0v16670 F941BF 30 18 bmi ?03 ; x is not a drive number6671 F941C1 85 34 ?02: sta fildrv ; specified drive or default drive6672 F941C3 86 1A stx filtbl ; file ptr -- here X = 06673 F941C5 E8 inx6674 F941C6 86 12 stx f1cnt ; just file 1 stream6675 F941C8 86 13 stx f2cnt6676 F941CA A9 80 lda #$806677 F941CC 85 39 sta pattyp6678 F941CE A9 2A lda #'*' ; in fact open "$x:*"6679 F941D0 8D 00 E1 sta !cmdbuf6680 F941D3 9C 01 E1 stz !cmdbuf+16681 F941D6 86 41 stx cmdsiz6682 F941D8 60 rts6683 F941D9 20 6A 42 ?03: jsr prscln ; "$x:pattern=type" case6684 F941DC D0 05 bne ?05 ; found ":"6685 F941DE 20 1E 43 jsr cmdrst ; search by name on both drives6686 F941E1 A0 03 ldy #3Tue Jul 17 11:00:19 2018 Page 756687 F941E3 88 ?05: dey6688 F941E4 88 dey6689 F941E5 84 1A sty filtbl6690 F941E7 20 1A 41 jsr prseq ; parse & set tables6691 F941EA 20 B1 42 jsr fs1set6692 F941ED 80 9E bra alldrs66936694 ;---------------------------------------6695 ; set drive number6696 ; determines drive # from text or6697 ; uses default (-d)6698 ; a: in,out: index, cmdbuf6699 ; y: in: default drive6700 ; out: drive number, - if default6701 ; char<6> set if check dos drive6702 ;---------------------------------------6703 F941EF setdrv:6704 F941EF AA tax ; x= cmdbuf index6705 F941F0 A9 3A lda #':'6706 F941F2 DD 01 E1 cmp !cmdbuf+1,x ; for xxx:file6707 F941F5 F0 0D beq ?40 ; ^6708 F941F7 DD 00 E1 cmp !cmdbuf,x ; for xxx:file6709 F941FA D0 2E bne ?50 ; ^6710 F941FC E8 inx ; found ":", so...6711 F941FD 80 2B bra ?506712 F941FF 29 01 ?22: and #1 ; convert to numeric6713 F94201 A8 ?24: tay ; set new default drive6714 F94202 8A txa ; a=index & xxxxfile6715 F94203 60 rts ; ^6716 F94204 BD 00 E1 ?40: lda !cmdbuf,x6717 F94207 E8 inx ; xxx:file6718 F94208 E8 inx ; --^6719 F94209 C9 30 cmp #'0' ; for xx0:file6720 F9420B F0 F2 beq ?22 ; ^6721 F9420D C9 31 cmp #'1' ; for xx1:file6722 F9420F F0 EE beq ?22 ; ^6723 F94211 24 42 bit char ; test bit 66724 F94213 50 11 bvc ?48 ; check default cbm drive6725 F94215 C9 38 cmp #'8'6726 F94217 B0 0A bcs ?45 ; valid dos drive: 0..76727 F94219 C9 30 cmp #'0'6728 F9421B 90 06 bcc ?456729 F9421D E9 30 sbc #'0'6730 F9421F C9 04 cmp #MAXDOSDRV6731 F94221 90 DE bcc ?24 ; dos drive ok6732 F94223 4C 89 3D ?45: jmp e_baddrv6733 F94226 24 93 ?48: bit tmp0 ; for default baddrv error!6734 F94228 10 F9 bpl ?456735 F9422A 98 ?50: tya ; for xxx,file or xx=file6736 F9422B 09 80 ora #$80 ; ^ ^6737 F9422D 29 87 and #$87 ; drive= -default6738 F9422F 80 D0 bra ?246739 F942316740 ; simple parser - set just the drive number6741 ; called by open directory command6742 F94231 simprs:6743 F94231 64 1A stz filtblTue Jul 17 11:00:19 2018 Page 766744 F94233 20 6A 42 jsr prscln ; search colon6745 F94236 F0 04 beq ?02 ; ":" not found, Y = next char6746 F94238 88 dey6747 F94239 88 dey6748 F9423A 84 1A sty filtbl ; ptr to char before ":"6749 F9423C 64 43 ?02: stz image6750 F9423E A4 1A ldy filtbl6751 F94240 B9 00 E1 ?04: lda cmdbuf,y6752 F94243 20 5D 42 jsr tst0v16753 F94246 10 10 bpl ?20 ; ok, found drive #6754 F94248 C8 iny6755 F94249 C4 41 cpy cmdsiz6756 F9424B B0 05 bcs ?10 ; end of string6757 F9424D A4 41 ldy cmdsiz6758 F9424F 88 dey6759 F94250 D0 EE bne ?046760 F94252 C6 43 ?10: dec image ; invalidate cmd template6761 F94254 A5 19 lda drvnum ; use default drive6762 F94256 09 80 ora #$806763 F94258 29 81 ?20: and #$816764 F9425A 85 34 sta fildrv6765 F9425C 60 rts67666767 ;test char in accum for "0" or "1"6768 F9425D C9 30 tst0v1: cmp #'0'6769 F9425F F0 06 beq ?026770 F94261 C9 31 cmp #'1'6771 F94263 F0 02 beq ?026772 F94265 09 80 ora #$80 ; use default drive6773 F94267 29 81 ?02: and #$81 ; mask dr #6774 F94269 60 rts67756776 ; find pos'n of ":"6777 F9426A prscln:6778 F9426A A0 00 ldy #0 ; buffer ptr6779 F9426C BB tyx ; comma counter6780 F9426D A9 3A lda #':'67816782 ;parse string6783 ; looks for special chars,6784 ; returning when var'bl char6785 ; is found6786 ; a: var'bl char6787 ; x: in,out: index, filtbl+16788 ; y: in: index, cmdbuf6789 ; out: new ptr, =0 if none6790 ; (z=1) if y=06791 F9426F parse:6792 F9426F 85 42 sta char ; save var'bl char6793 F94271 B9 00 E1 ?10: lda cmdbuf,y ; match char6794 F94274 F0 29 beq ?30 ; end of string6795 F94276 C8 iny6796 F94277 C5 42 cmp char6797 F94279 F0 26 beq ?35 ; found char6798 F9427B C9 2A cmp #'*' ; match pattern chars6799 F9427D F0 04 beq ?206800 F9427F C9 3F cmp #'?'Tue Jul 17 11:00:19 2018 Page 776801 F94281 D0 02 bne ?256802 F94283 E6 11 ?20: inc patflg ; set pattern flag6803 F94285 C9 2C ?25: cmp #',' ; match file separator6804 F94287 D0 E8 bne ?10 ; loop6805 F94289 94 1B sty filtbl+1,x ; put ptrs in table6806 F9428B A5 11 lda patflg ; save pattern for file6807 F9428D 29 7F and #$7f6808 F9428F F0 06 beq ?286809 F94291 A9 80 lda #$80 ; retain pattern presence...6810 F94293 95 39 sta pattyp,x6811 F94295 85 11 sta patflg ; ...but clear count6812 F94297 E8 ?28: inx6813 F94298 E0 05 cpx #mxfils6814 F9429A 90 D5 bcc ?10 ; no more than mxfils6815 F9429C 4C 05 41 jmp e_badsyn ; too many files6816 F9429F A0 00 ?30: ldy #0 ; y=0 (z=1)6817 F942A1 A5 41 ?35: lda cmdsiz6818 F942A3 95 1B sta filtbl+1,x6819 F942A5 A5 11 lda patflg6820 F942A7 29 7F and #$7f6821 F942A9 F0 04 beq ?406822 F942AB A9 80 lda #$806823 F942AD 95 39 sta pattyp,x6824 F942AF 98 ?40: tya ; z is set6825 F942B0 60 rts68266827 ; set ptrs to one file stream & chk type6828 ; for command that allow pattern=type6829 F942B1 fs1set:6830 F942B1 A2 00 ldx #06831 F942B3 A5 12 lda f1cnt6832 F942B5 C5 13 cmp f2cnt6833 F942B7 F0 15 beq ?15 ; just one file in stream6834 F942B9 C6 13 dec f2cnt6835 F942BB A6 13 ldx f2cnt6836 F942BD B5 1A lda filtbl,x6837 F942BF AA tax6838 F942C0 BD 00 E1 lda !cmdbuf,x6839 F942C3 A2 05 ldx #ntypes-16840 F942C5 DF 84 5A F9 ?10: cmp >typlst,x6841 F942C9 F0 03 beq ?156842 F942CB CA dex6843 F942CC D0 F7 bne ?106844 F942CE 86 10 ?15: stx typflg6845 F942D0 60 rts68466847 ; copy local cmd string, initialize command tables, ptrs, etc.6848 ; command string, as parameter, is terminated with '0' or CR6849 F942D1 cmdset:6850 F942D1 A0 00 ldy #06851 F942D3 A7 3E ?02: lda [tlp] ; trim left6852 F942D5 F0 2A beq ?10 ; end of cmd6853 F942D7 C9 0D cmp #$0D6854 F942D9 F0 18 beq ?06 ; end of cmd6855 F942DB C9 20 cmp #' ' ; trim blanks6856 F942DD D0 0A bne ?036857 F942DF E6 3E inc tlpTue Jul 17 11:00:19 2018 Page 786858 F942E1 D0 F0 bne ?026859 F942E3 E6 3F inc tlp+16860 F942E5 D0 EC bne ?026861 F942E7 F0 22 beq ?11 ; long line6862 F942E9 88 ?03: dey6863 F942EA C8 ?04: iny6864 F942EB B7 3E lda [tlp],y6865 F942ED F0 12 beq ?10 ; end of cmd6866 F942EF C9 0D cmp #$0D6867 F942F1 D0 04 bne ?086868 F942F3 A9 00 ?06: lda #0 ; end of cmd6869 F942F5 80 0A bra ?106870 F942F7 C9 61 ?08: cmp #'a' ; convert up case6871 F942F9 90 06 bcc ?106872 F942FB C9 7B cmp #'z'+16873 F942FD B0 02 bcs ?106874 F942FF 29 DF and #$DF6875 F94301 99 00 E1 ?10: sta cmdbuf,y6876 F94304 AA tax6877 F94305 F0 09 beq ?126878 F94307 C0 60 cpy #cmdlen6879 F94309 90 DF bcc ?046880 F9430B A9 20 ?11: lda #longln ; long line error6881 F9430D 4C 07 41 jmp cmderr6882 F94310 84 41 ?12: sty cmdsiz ; not counting final '0'6883 F94312 24 F9 bit cmdtrap6884 F94314 30 08 bmi cmdrst ; cmd. empty string is ok6885 F94316 BB tyx6886 F94317 D0 05 bne cmdrst6887 F94319 A9 25 lda #nullln ; empty command string error6888 F9431B 4C 07 41 jmp cmderr6889 F9431E6890 ; clear vars & tbls6891 F9431E cmdrst:6892 F9431E A0 00 ldy #06893 F94320 98 tya6894 F94321 85 0E sta type6895 F94323 85 0F sta mode6896 F94325 85 10 sta typflg6897 F94327 85 14 sta f1ptr6898 F94329 85 15 sta f2ptr6899 F9432B 85 12 sta f1cnt6900 F9432D 85 13 sta f2cnt6901 F9432F 85 11 sta patflg6902 F94331 85 56 sta lsterr6903 F94333 85 93 sta tmp06904 F94335 85 1F sta tmpxxx6905 F94337 85 F8 sta trap6906 F94339 85 E6 sta wrop6907 F9433B A2 05 ldx #mxfils6908 F9433D 95 19 ?10: sta filtbl-1,x6909 F9433F 95 29 sta entsec-1,x6910 F94341 95 2E sta entind-1,x6911 F94343 95 33 sta fildrv-1,x6912 F94345 95 38 sta pattyp-1,x6913 F94347 95 1F sta filtrk-1,x6914 F94349 95 24 sta filsec-1,xTue Jul 17 11:00:19 2018 Page 796915 F9434B CA dex6916 F9434C D0 EF bne ?106917 F9434E 60 rts69186919 ;---------------------------------------------------------------------------6920 ; read/write on fd6921 ;---------------------------------------------------------------------------69226923 ; buffered read/write on file6924 ; in: X = channel6925 ; Y = op (read/write)6926 F9434F fd_rw:6927 F9434F ACC166928 F9434F C2 20 rep #PMFLAG6929 .LONGA on6930 .MNLIST6931 F94351 3B tsc ; save current stack pointer6932 F94352 8D F8 E1 sta !tos6933 F94355 ACC086934 F94355 E2 20 sep #PMFLAG6935 .LONGA off6936 .MNLIST6937 F94357 E0 0F cpx #$0F6938 F94359 D0 26 bne ?08 ; file6939 F9435B 98 tya6940 F9435C F0 02 beq ?02 ; read on channel 156941 F9435E 18 clc ; write on channel 15 is no-op6942 F9435F 60 rts6943 F94360 20 1A 57 ?02: jsr fmterr ; format error string (bytes # in btrf)6944 F94363 64 56 stz lsterr6945 F94365 A0 00 ldy #06946 F94367 INDEX166947 F94367 C2 10 rep #PXFLAG6948 .LONGI on6949 .MNLIST6950 F94369 B9 00 E1 ?04: lda cmdbuf,y6951 F9436C 97 90 sta [wbuf],y6952 F9436E F0 0A beq ?06 ; end of transfer6953 F94370 C8 iny6954 F94371 C4 86 cpy bsize6955 F94373 90 F4 bcc ?046956 F94375 88 dey6957 F94376 A9 00 lda #0 ; trunc string6958 F94378 97 90 sta [wbuf],y6959 F9437A C8 ?06: iny6960 F9437B 84 88 sty btrf6961 F9437D INDEX086962 F9437D E2 10 sep #PXFLAG6963 .LONGI off6964 .MNLIST6965 F9437F 18 clc6966 F94380 60 rts6967 F94381 64 56 ?08: stz lsterr6968 F94383 64 E6 stz wrop6969 F94385 98 tya6970 F94386 F0 04 beq ?106971 F94388 A9 80 lda #$80Tue Jul 17 11:00:19 2018 Page 806972 F9438A 85 E6 sta wrop6973 F9438C 20 76 48 ?10: jsr fndfd ; check file (read/write)6974 F9438F 20 E2 48 jsr fddrv ; get associate drive #6975 F94392 B5 59 lda lintab,x6976 F94394 89 20 bit #$206977 F94396 F0 03 beq ?126978 F94398 4C 70 44 jmp fdlist ; buffered load dir6979 F9439B 89 40 ?12: bit #$406980 F9439D F0 03 beq ?146981 F9439F 4C 82 45 jmp fdda6982 F943A2 24 E6 ?14: bit wrop6983 F943A4 30 5F bmi fdwrite6984 ; bmi ?146985 ; jmp fdread6986 ;?14: jmp fdwrite69876988 ; read a block of data from file and transfer to destination buffer6989 ; before to call this function these var's should be initialized:6990 ; lindx =file descriptor (logical index)6991 ; bsize =size of destination buffer6992 ; wbuf =long pointer to destination buffer6993 ;6994 ; this function return when:6995 ; 1) destination buffer is full, and/or6996 ; 2) the eof condition is true6997 ; in this case the bit 7 of fdst is set6998 ;6999 ; on exit, btrf contain the effective transferred bytes count #7000 ;7001 F943A6 fdread:7002 F943A6 64 88 stz btrf ; clear count of readden bytes7003 F943A8 64 89 stz btrf+17004 F943AA A6 57 ldx lindx ; file descriptor7005 F943AC 34 96 bit fdst,x ; test if eof7006 F943AE 30 53 bmi ?40 ; yes, eof7007 F943B0 A5 19 lda drvnum ; set up read drive #7008 F943B2 85 E8 sta rddrv7009 F943B4 B4 AE ldy ftrk,x7010 F943B6 84 08 sty track ; set up current file track7011 F943B8 B5 B6 lda fsec,x7012 F943BA 85 09 sta sector ; setup current file sector7013 F943BC B4 BE ldy fdptr,x7014 F943BE 84 E9 sty rdidx ; set file pointer in this blk7015 F943C0 20 AB 57 jsr tread ; read whole track in read cache7016 F943C3 20 4A 56 jsr setcp ; set up bufp pointer7017 F943C6 64 EA stz rdlst ; assume full block (not last blk)7018 F943C8 A0 01 ldy #17019 F943CA B7 8A lda [bufp],y ; read link to next block7020 F943CC A8 tay ; next sector or last byte ptr7021 F943CD A7 8A lda [bufp] ; next libnk track7022 F943CF D0 02 bne ?10 ; no end of file7023 F943D1 84 EA sty rdlst ; last byte pointer (this is last blk)7024 F943D3 64 EB ?10: stz rdeof ; clear eof flag7025 F943D5 20 B8 45 ?20: jsr bufget ; get next byte from disk buffer7026 F943D8 INDEX167027 F943D8 C2 10 rep #PXFLAG7028 .LONGI onTue Jul 17 11:00:19 2018 Page 817029 .MNLIST7030 F943DA A4 88 ldy btrf ; current dest buffer ptr7031 F943DC 97 90 sta [wbuf],y ; store in dest buffer7032 F943DE C8 iny7033 F943DF 84 88 sty btrf ; update ptr7034 F943E1 C4 86 cpy bsize ; check size of dest buffer7035 F943E3 INDEX087036 F943E3 E2 10 sep #PXFLAG7037 .LONGI off7038 .MNLIST7039 F943E5 B0 04 bcs ?30 ; dest buffer is full7040 F943E7 A5 EB lda rdeof ; eof?7041 F943E9 F0 EA beq ?20 ; no -- get next byte7042 F943EB A6 57 ?30: ldx lindx7043 F943ED A4 08 ldy track7044 F943EF 94 AE sty ftrk,x ; save current fd7045 F943F1 A5 09 lda sector7046 F943F3 95 B6 sta fsec,x7047 F943F5 A4 E9 ldy rdidx7048 F943F7 94 BE sty fdptr,x7049 F943F9 A5 EB lda rdeof7050 F943FB F0 06 beq ?40 ; no eof7051 F943FD A9 80 lda #$807052 F943FF 15 96 ora fdst,x7053 F94401 95 96 sta fdst,x ; eof signal7054 F94403 18 ?40: clc7055 F94404 60 rts70567057 ; write a block of data from source buffer to file7058 ; before to call this function these var's should be initialized:7059 ; lindx =file descriptor (logical index)7060 ; bsize =number of bytes to write7061 ; wbuf =long pointer to destination buffer7062 ;7063 ; on exit, btrf contain the effective transferred bytes count #7064 ;7065 F94405 fdwrite:7066 F94405 64 EB stz rdeof7067 F94407 ACC167068 F94407 C2 20 rep #PMFLAG7069 .LONGA on7070 .MNLIST7071 F94409 64 88 stz btrf ; clear count of written bytes7072 F9440B A5 86 lda bsize ; nothing to write?7073 F9440D ACC087074 F9440D E2 20 sep #PMFLAG7075 .LONGA off7076 .MNLIST7077 F9440F F0 5D beq ?10 ; yes, nothing7078 F94411 A6 57 ldx lindx ; file descriptor7079 F94413 A5 19 lda drvnum ; set up write drive #7080 F94415 85 EC sta wrdrv7081 F94417 B4 AE ldy ftrk,x7082 F94419 84 08 sty track ; set up current file track7083 F9441B B5 B6 lda fsec,x7084 F9441D 85 09 sta sector ; setup current file sector7085 F9441F 85 EE sta wsec ; current sector to write in cacheTue Jul 17 11:00:19 2018 Page 827086 F94421 85 EF sta wfirst ; first sector to write in cache7087 F94423 B4 BE ldy fdptr,x7088 F94425 84 ED sty wridx ; set file pointer in this blk7089 F94427 A6 F7 ldx dblfd7090 F94429 ACC167091 F94429 C2 20 rep #PMFLAG7092 .LONGA on7093 .MNLIST7094 F9442B B5 C6 lda fdblk,x ; set up block's count7095 F9442D 85 F0 sta wcnt7096 F9442F A5 90 lda wbuf ; wbuf is used by write cache7097 F94431 85 8A sta bufp ; bufp is the src. buffer7098 F94433 ACC087099 F94433 E2 20 sep #PMFLAG7100 .LONGA off7101 .MNLIST7102 F94435 A5 92 lda wbuf+27103 F94437 85 8C sta bufp+27104 F94439 20 C1 57 jsr wread ; pre-read track in write cache7105 F9443C 20 5A 56 jsr setwb ; set buffer wbuf to cache7106 F9443F ?02: INDEX167107 F9443F C2 10 rep #PXFLAG7108 .LONGI on7109 .MNLIST7110 F94441 A4 88 ldy btrf ; transfer src. buffer to cache7111 F94443 B7 8A lda [bufp],y7112 F94445 C8 iny7113 F94446 84 88 sty btrf ; bump pointer7114 F94448 C4 86 cpy bsize7115 F9444A INDEX087116 F9444A E2 10 sep #PXFLAG7117 .LONGI off7118 .MNLIST7119 F9444C 08 php7120 F9444D 20 08 46 jsr bufput ; put in cache7121 F94450 28 plp7122 F94451 90 EC bcc ?02 ; loop7123 F94453 20 7A 46 jsr wrtcache ; flush cache on disk7124 F94456 A6 57 ldx lindx7125 F94458 A5 08 lda track7126 F9445A 95 AE sta ftrk,x7127 F9445C A5 09 lda sector7128 F9445E 95 B6 sta fsec,x7129 F94460 A4 ED ldy wridx7130 F94462 94 BE sty fdptr,x7131 F94464 A6 F7 ldx dblfd7132 F94466 ACC167133 F94466 C2 20 rep #PMFLAG7134 .LONGA on7135 .MNLIST7136 F94468 A5 F0 lda wcnt7137 F9446A 95 C6 sta fdblk,x7138 F9446C ACC087139 F9446C E2 20 sep #PMFLAG7140 .LONGA off7141 .MNLIST7142 F9446E 18 ?10: clcTue Jul 17 11:00:19 2018 Page 837143 F9446F 60 rts71447145 ; read a block of data from dir listing and transfer to destination buffer7146 ; before to call this function these var's should be initialized:7147 ; lindx =file descriptor (logical index)7148 ; bsize =size of destination buffer7149 ; wbuf =long pointer to destination buffer7150 ;7151 ; this function return when:7152 ; 1) destination buffer is full, and/or7153 ; 2) the eof condition is true7154 ; in this case the bit 7 of fdst is set7155 ;7156 ; on exit, btrf contain the effective transferred bytes count #7157 ;7158 F94470 fdlist:7159 F94470 20 15 49 jsr setfdp ; set buffer for this fd & return X=lindx7160 F94473 64 88 stz btrf ; clear count of readden bytes7161 F94475 64 89 stz btrf+17162 F94477 34 96 bit fdst,x ; test if eof7163 F94479 30 32 bmi ?40 ; yes, eof7164 F9447B B4 BE ldy fdptr,x7165 F9447D 84 E9 sty rdidx ; set file pointer in this blk7166 F9447F 64 EB stz rdeof ; clear eof flag7167 F94481 20 D7 46 jsr exxzp ; get zp var's for dir searching7168 F94484 20 B3 46 ?20: jsr bufget2 ; get next byte from list buffer7169 F94487 INDEX167170 F94487 C2 10 rep #PXFLAG7171 .LONGI on7172 .MNLIST7173 F94489 A4 88 ldy btrf ; current dest buffer ptr7174 F9448B 97 90 sta [wbuf],y ; store in dest buffer7175 F9448D C8 iny7176 F9448E 84 88 sty btrf ; update ptr7177 F94490 C4 86 cpy bsize ; check size of dest buffer7178 F94492 INDEX087179 F94492 E2 10 sep #PXFLAG7180 .LONGI off7181 .MNLIST7182 F94494 B0 04 bcs ?30 ; dest buffer is full7183 F94496 A5 EB lda rdeof ; eof?7184 F94498 F0 EA beq ?20 ; no -- get next byte7185 F9449A 20 D7 46 ?30: jsr exxzp ; restore zp var's7186 F9449D A6 57 ldx lindx7187 F9449F A4 E9 ldy rdidx7188 F944A1 94 BE sty fdptr,x7189 F944A3 A5 EB lda rdeof7190 F944A5 F0 06 beq ?40 ; no eof7191 F944A7 A9 80 lda #$807192 F944A9 15 96 ora fdst,x7193 F944AB 95 96 sta fdst,x ; eof signal7194 F944AD 18 ?40: clc7195 F944AE 60 rts71967197 ; close file7198 ; in: X = channel7199 ; if chnl=15 all open files will be closedTue Jul 17 11:00:19 2018 Page 847200 F944AF fdcls:7201 F944AF ACC167202 F944AF C2 20 rep #PMFLAG7203 .LONGA on7204 .MNLIST7205 F944B1 3B tsc ; save current stack pointer7206 F944B2 8D F8 E1 sta !tos7207 F944B5 ACC087208 F944B5 E2 20 sep #PMFLAG7209 .LONGA off7210 .MNLIST7211 F944B7 8A txa7212 F944B8 F0 2E beq ?28 ; read only chnl so just free lindx & chnl7213 F944BA E0 0F cpx #$0F7214 F944BC D0 0E bne ?20 ; close channel 1..147215 F944BE A2 0E ldx #mxchnls-1 ; closing chnl 15 close all open files7216 F944C0 86 52 ?02: stx chnl7217 F944C2 20 CC 44 jsr ?20 ; close chnl X7218 F944C5 A6 52 ldx chnl7219 F944C7 CA dex7220 F944C8 10 F6 bpl ?027221 F944CA 18 ?04: clc7222 F944CB 60 rts7223 F944CC B5 59 ?20: lda lintab,x ; close chnl X7224 F944CE C9 FF cmp #$FF7225 F944D0 F0 F8 beq ?04 ; is closed7226 F944D2 89 40 bit #$40 ; direct access?7227 F944D4 D0 0F bne ?26 ; yes, just update bam7228 F944D6 29 07 and #$077229 F944D8 85 57 sta lindx ; associated logical index7230 F944DA 20 E2 48 jsr fddrv ; get associated drive7231 F944DD 20 B2 48 jsr fndwfd ; look for write fd7232 F944E0 B0 06 bcs ?28 ; read fd: just free lindx7233 F944E2 20 ED 44 jsr clswfd7234 F944E5 20 02 58 ?26: jsr bamout7235 F944E8 20 F0 47 ?28: jsr frefd ; free fd7236 F944EB 18 clc7237 F944EC 60 rts72387239 ; close a write file7240 ;in: X=lindx7241 F944ED clswfd:7242 F944ED A5 19 lda drvnum ; set up write drive #7243 F944EF 85 EC sta wrdrv7244 F944F1 B4 AE ldy ftrk,x7245 F944F3 84 08 sty track ; set up current file track7246 F944F5 B5 B6 lda fsec,x7247 F944F7 85 09 sta sector ; setup current file sector7248 F944F9 85 EE sta wsec ; current sector to write in cache7249 F944FB 85 EF sta wfirst ; first sector to write in cache7250 F944FD B4 BE ldy fdptr,x7251 F944FF 84 ED sty wridx ; set file pointer in this blk7252 F94501 A6 F7 ldx dblfd7253 F94503 ACC167254 F94503 C2 20 rep #PMFLAG7255 .LONGA on7256 .MNLISTTue Jul 17 11:00:19 2018 Page 857257 F94505 B5 C6 lda fdblk,x ; set up block's count7258 F94507 1A inc a ; take in count last blk7259 F94508 85 F0 sta wcnt7260 F9450A CPU087261 F9450A E2 30 sep #(PMFLAG.OR.PXFLAG)7262 .LONGA off7263 .LONGI off7264 .MNLIST7265 F9450C 20 C1 57 jsr wread ; pre-read track in write cache7266 F9450F 20 5A 56 jsr setwb ; set buffer bufw to cache7267 F94512 A9 00 lda #0 ; null link in this block7268 F94514 87 90 sta [wbuf] ; finalize sector7269 F94516 A0 01 ldy #17270 F94518 A5 ED lda wridx ; last byte ptr (+1)7271 F9451A 3A dec a7272 F9451B 97 90 sta [wbuf],y7273 F9451D 20 7A 46 jsr wrtcache ; write out cache7274 F94520 A6 57 ldx lindx7275 F94522 B5 9E lda dsec,x ; set dir. ptr to file entry7276 F94524 85 09 sta sector7277 F94526 A0 28 ldy #dirtrk7278 F94528 84 08 sty track7279 F9452A 20 3D 56 jsr sethdp7280 F9452D 18 clc7281 F9452E 65 09 adc sector7282 F94530 85 0B sta dirp+1 ; set dir. pointer to file entry7283 F94532 A6 57 ldx lindx7284 F94534 B5 A6 lda dind,x7285 F94536 85 0A sta dirp7286 F94538 A7 0A lda [dirp] ; set flag closed file7287 F9453A AA tax7288 F9453B 29 4F and #$4F ; reset replace mode7289 F9453D 09 80 ora #$807290 F9453F 87 0A sta [dirp]7291 F94541 A0 1C ldy #28 ; store block's #7292 F94543 ACC167293 F94543 C2 20 rep #PMFLAG7294 .LONGA on7295 .MNLIST7296 F94545 A5 F0 lda wcnt7297 F94547 97 0A sta [dirp],y7298 F94549 ACC087299 F94549 E2 20 sep #PMFLAG7300 .LONGA off7301 .MNLIST7302 F9454B 8A txa7303 F9454C 89 20 bit #$20 ; replace flag?7304 F9454E F0 2F beq ?10 ; no7305 F94550 A0 1A ldy #267306 F94552 B7 0A lda [dirp],y ; get new start link7307 F94554 AA tax ; X=new track7308 F94555 C8 iny7309 F94556 B7 0A lda [dirp],y7310 F94558 EB xba ; B=new sec7311 F94559 A0 01 ldy #17312 F9455B B7 0A lda [dirp],y ; old start track7313 F9455D 48 phaTue Jul 17 11:00:19 2018 Page 867314 F9455E 8A txa ; new start track7315 F9455F 97 0A sta [dirp],y7316 F94561 FA plx ; X=old start track7317 F94562 C8 iny7318 F94563 B7 0A lda [dirp],y ; old start sec7319 F94565 EB xba ; A=new start sec, B=old start sec7320 F94566 97 0A sta [dirp],y7321 F94568 EB xba ; A=old start sec7322 F94569 A0 1B ldy #277323 F9456B 97 0A sta [dirp],y ; save old start sector7324 F9456D 48 pha7325 F9456E 88 dey7326 F9456F 8A txa7327 F94570 97 0A sta [dirp],y ; save old start track7328 F94572 48 pha7329 F94573 20 57 36 jsr wrdsec ; update directory7330 F94576 68 pla7331 F94577 85 08 sta track7332 F94579 68 pla7333 F9457A 85 09 sta sector7334 F9457C 4C 38 33 jmp delfil ; delete old file7335 F9457F 4C 57 36 ?10: jmp wrdsec73367337 F94582 fdda:7338 F94582 64 88 stz btrf ; clear count of readden bytes7339 F94584 64 89 stz btrf+17340 F94586 A6 57 ldx lindx ; file descriptor7341 F94588 24 E6 bit wrop7342 ;bmi ???7343 F9458A 34 96 bit fdst,x ; test if eof7344 F9458C 30 28 bmi ?40 ; yes, eof7345 F9458E B4 BE ldy fdptr,x7346 F94590 A4 88 ?10: ldy btrf ; current dest buffer ptr7347 F94592 97 90 sta [wbuf],y ; store in dest buffer7348 F94594 C8 iny7349 F94595 84 88 sty btrf ; update ptr7350 F94597 C4 86 cpy bsize ; check size of dest buffer7351 F94599 INDEX087352 F94599 E2 10 sep #PXFLAG7353 .LONGI off7354 .MNLIST7355 F9459B B0 01 bcs ?30 ; dest buffer is full7356 F9459D 98 tya ; eof?7357 ;bne ?20 ; no -- get next byte7358 F9459E A6 57 ?30: ldx lindx7359 F945A0 A4 08 ldy track7360 F945A2 94 AE sty ftrk,x ; save current fd7361 F945A4 A5 09 lda sector7362 F945A6 95 B6 sta fsec,x7363 F945A8 A4 E9 ldy rdidx7364 F945AA 94 BE sty fdptr,x7365 F945AC A5 EB lda rdeof7366 F945AE F0 06 beq ?40 ; no eof7367 F945B0 A9 80 lda #$807368 F945B2 15 96 ora fdst,x7369 F945B4 95 96 sta fdst,x ; eof signal7370 F945B6 18 ?40: clcTue Jul 17 11:00:19 2018 Page 877371 F945B7 60 rts73727373 ; get next byte from read cache in buffered operation7374 ; read a new whole track in cache if needed7375 ; update pointer and set EOF status in rdeof7376 ; out: A = byte7377 ; rdeof not null if EOF7378 ; rdidx updated7379 ; before to call this function:7380 ; pre-read whole track in cache7381 ; set bufp long pointer to cache and sector7382 ; set rdix=2, rdeof=0, rddrv=drive#7383 ; rdlst=0 if file have a next block7384 ; =last index if this is last block of file7385 F945B8 bufget:7386 F945B8 A4 E9 ldy rdidx ; current buffer pointer7387 F945BA A5 EA lda rdlst7388 F945BC F0 08 beq ?02 ; full buffer7389 F945BE C4 EA cpy rdlst ; end of buffer?7390 F945C0 D0 04 bne ?02 ; no7391 F945C2 B7 8A lda [bufp],y ; get byte7392 F945C4 80 07 bra ?047393 F945C6 B7 8A ?02: lda [bufp],y ; get byte7394 F945C8 C8 iny ; bump ptr and set/reset Z7395 F945C9 84 E9 sty rdidx7396 F945CB D0 06 bne ?05 ; exit (no EOF)7397 F945CD A4 EA ?04: ldy rdlst7398 F945CF F0 03 beq ?06 ; read next file block7399 F945D1 84 EB sty rdeof ; EOF7400 F945D3 60 ?05: rts7401 F945D4 85 E7 ?06: sta data ; save byte7402 F945D6 A6 E8 ldx rddrv7403 F945D8 86 19 stx drvnum7404 F945DA A0 01 ldy #1 ; read link to next block7405 F945DC B7 8A lda [bufp],y7406 F945DE 85 09 sta sector7407 F945E0 A8 tay7408 F945E1 A7 8A lda [bufp] ; read link7409 F945E3 C5 08 cmp track ; same track?7410 F945E5 85 08 sta track7411 F945E7 F0 05 beq ?08 ; ok, still in cache7412 F945E9 20 AB 57 jsr tread ; read whole track7413 F945EC A4 09 ldy sector7414 F945EE 98 ?08: tya ; set pointer to track/sec cache7415 F945EF 18 clc7416 F945F0 75 78 adc trkofs,x ; add start of dma buffer7417 F945F2 85 8B sta bufp+17418 F945F4 64 EA stz rdlst ; assume full buffer7419 F945F6 A0 01 ldy #17420 F945F8 B7 8A lda [bufp],y ; next sector7421 F945FA A8 tay7422 F945FB A7 8A lda [bufp] ; next track7423 F945FD D0 02 bne ?10 ; is not last block7424 F945FF 84 EA sty rdlst ; is last block7425 F94601 A0 02 ?10: ldy #27426 F94603 84 E9 sty rdidx ; set start pointer for next get7427 F94605 A5 E7 lda data ; get byteTue Jul 17 11:00:19 2018 Page 887428 F94607 60 rts ; not EOF74297430 ; put byte in write cache in buffered operation7431 ; update buffer pointer, allocate a new t&s if needed7432 ; update t&s link of the file and write out the cache if needed7433 ; in: A=byte7434 ; wridx=buffer pointer7435 ; wrdrv=drive#7436 ; wfirst=first sector written in this track7437 ; wsec=current sector written in this track7438 ; wcnt=current count of file block's7439 ; rdeof=flag eof when put last byte7440 ; wbuf=long pointer to cache and sector7441 ; before to call this function will pre-read the track7442 ; of first block of the file (into write cache)7443 F94608 bufput:7444 F94608 A4 ED ldy wridx ; need to allocate a new block?7445 F9460A D0 07 bne ?04 ; no, store7446 F9460C7447 ; this can happen when append data to current file7448 ; and last byte of last block was $FF7449 ; need to allocate a new block7450 F9460C 85 E7 sta data ; save byte to store7451 ;lda wsec ; must save just this sector7452 ;sta wfirst ; set first=last sector7453 F9460E 20 35 46 jsr ?08 ; update cache and alloc new sector...7454 F94611 A5 E7 lda data ; ...return Y=wrdix7455 F94613 97 90 ?04: sta [wbuf],y ; store data at7456 F94615 A5 EB lda rdeof ; test eof7457 F94617 D0 04 bne ?06 ; eof: this is last byte7458 F94619 C8 iny ; bump pointer7459 F9461A 84 ED sty wridx7460 ;beq ?08 ; need a new block7461 F9461C 60 rts7462 F9461D A9 00 ?06: lda #0 ; null link in this block7463 F9461F 87 90 sta [wbuf] ; finalize sector7464 F94621 A0 01 ldy #17465 F94623 A5 ED lda wridx ; last byte ptr7466 F94625 97 90 sta [wbuf],y7467 F94627 A6 EC ldx wrdrv ; restore drive #7468 F94629 86 19 stx drvnum7469 F9462B B5 82 lda wcache,x ; restore current track7470 F9462D 85 08 sta track7471 F9462F 20 7A 46 jsr wrtcache ; write out cache7472 F94632 E6 ED inc wridx ; bump pointer (can be null!!)7473 F94634 60 rts7474 F94635 A6 EC ?08: ldx wrdrv ; set drive #7475 F94637 86 19 stx drvnum7476 F94639 B5 82 lda wcache,x ; restore current t&s7477 F9463B 85 08 sta track7478 F9463D A5 EE lda wsec7479 F9463F 85 09 sta sector7480 F94641 20 FC 4C jsr nxtts ; alloc a new sector7481 F94644 A6 19 ldx drvnum7482 F94646 A0 01 ldy #17483 F94648 A5 09 lda sector ; set link to new sector7484 F9464A 97 90 sta [wbuf],yTue Jul 17 11:00:19 2018 Page 897485 F9464C A8 tay ; Y=sector7486 F9464D A5 08 lda track7487 F9464F 87 90 sta [wbuf]7488 F94651 D5 82 cmp wcache,x ; same track?7489 F94653 F0 12 beq ?10 ; yes7490 F94655 48 pha ; save new track7491 F94656 B5 82 lda wcache,x ; set old track7492 F94658 85 08 sta track7493 F9465A 20 7A 46 jsr wrtcache ; write out cache7494 F9465D 68 pla7495 F9465E 85 08 sta track ; restore new track7496 F94660 20 C1 57 jsr wread ; read the new whole track in write cache7497 F94663 A4 09 ldy sector7498 F94665 84 EF sty wfirst ; set first dirty sec7499 F94667 84 EE ?10: sty wsec ; update current sector7500 F94669 18 clc7501 F9466A 98 tya7502 F9466B 75 7C adc wrtofs,x ; set pointer to sector7503 F9466D 85 91 sta wbuf+17504 F9466F ACC167505 F9466F C2 20 rep #PMFLAG7506 .LONGA on7507 .MNLIST7508 F94671 E6 F0 inc wcnt ; update block's #7509 F94673 ACC087510 F94673 E2 20 sep #PMFLAG7511 .LONGA off7512 .MNLIST7513 F94675 A0 02 ldy #2 ; set start of pointer7514 F94677 84 ED sty wridx7515 F94679 60 rts75167517 F9467A wrtcache:7518 F9467A A6 19 ldx drvnum7519 F9467C A5 EF lda wfirst ; first dirty sec7520 F9467E 4A lsr a7521 F9467F 85 1F sta tmpxxx ; dma buffer offset7522 F94681 A8 tay7523 F94682 A5 EE lda wsec ; last dirty sector of this track7524 F94684 4A lsr a7525 F94685 C9 0A cmp #phisec ; if last is in side 0...7526 F94687 90 09 bcc ?10 ; ...write out side 0 only7527 F94689 C0 0A cpy #phisec ; if first is in side 1...7528 F9468B B0 05 bcs ?10 ; ...write out side 1 only7529 F9468D B5 72 lda wrtbuf,x ; dma buffer #7530 F9468F 4C DF 57 jmp writetk ; write out whole track7531 F94692 64 F3 ?10: stz pside ; assume side 07532 F94694 1A inc a ; A = last phis. sec7533 F94695 C8 iny ; Y = first phis. sec7534 F94696 90 0B bcc ?15 ; write out side 07535 F94698 E6 F3 inc pside ; side 17536 F9469A E9 0A sbc #phisec7537 F9469C EB xba ; B = last phis. sec7538 F9469D 98 tya7539 F9469E 38 sec7540 F9469F E9 0A sbc #phisec7541 F946A1 A8 tay ; Y = first phis. sec.Tue Jul 17 11:00:19 2018 Page 907542 F946A2 EB xba ; A = last phis. sec7543 F946A3 84 94 ?15: sty wtmp7544 F946A5 38 sec7545 F946A6 E5 94 sbc wtmp ; last - start + 1...7546 F946A8 1A inc a ; ...number's of sec to write out7547 F946A9 EB xba ; B = sec. count #7548 F946AA B5 72 lda wrtbuf,x7549 F946AC 18 clc7550 F946AD 65 1F adc tmpxxx ; add sector offset7551 F946AF EB xba ; B = dma buffer #, A = sec. count #7552 F946B0 4C 86 58 jmp writesec75537554 ; get next byte from dir listing cache -- special case for loaddir7555 ; update pointer and set EOF status in rdeof7556 ; out: A = byte7557 ; rdeof not null if EOF7558 ; rdidx updated7559 ; before to call this function:7560 ; prepare dir listing in cache7561 ; set bufp long pointer to cache7562 ; set rdix=0, rdeof=0, rddrv=drive#7563 ; rdlst=0 if dir.listing have a next block7564 ; =last index if this is last block of dir. listing7565 F946B3 bufget2:7566 F946B3 A4 E9 ldy rdidx ; current buffer pointer7567 F946B5 A5 EA lda rdlst7568 F946B7 F0 08 beq ?02 ; use full buffer7569 F946B9 C4 EA cpy rdlst ; end of buffer?7570 F946BB D0 04 bne ?02 ; no7571 F946BD B7 8A lda [bufp],y ; get byte7572 F946BF 80 07 bra ?047573 F946C1 B7 8A ?02: lda [bufp],y ; get byte7574 F946C3 C8 iny ; bump ptr and set/reset Z7575 F946C4 84 E9 sty rdidx7576 F946C6 D0 06 bne ?05 ; exit (no EOF)7577 F946C8 A4 EA ?04: ldy rdlst7578 F946CA F0 03 beq ?06 ; read next dir listing block7579 F946CC 84 EB sty rdeof ; EOF7580 F946CE 60 ?05: rts7581 F946CF 85 E7 ?06: sta data ; save byte7582 F946D1 20 28 49 jsr dlist ; fill buffer with dir listing7583 F946D4 A5 E7 lda data ; get byte7584 F946D6 60 rts75857586 ; exchange zero page var's while dir listing7587 ; will be used the next buffer (dir list use just one buffer)7588 F946D7 exxzp:7589 F946D7 A2 3D ldx #dpsave-1 ; exchange page 0 var's for dir. search7590 F946D9 9B txy7591 F946DA E6 8B inc bufp+1 ; next buffer7592 F946DC B7 8A ?02: lda [bufp],y7593 F946DE EB xba7594 F946DF B5 00 lda zpstart,x7595 F946E1 97 8A sta [bufp],y7596 F946E3 EB xba7597 F946E4 95 00 sta zpstart,x7598 F946E6 88 deyTue Jul 17 11:00:19 2018 Page 917599 F946E7 CA dex7600 F946E8 10 F2 bpl ?027601 F946EA A9 80 lda #$807602 F946EC 85 8A sta bufp7603 F946EE A2 60 ldx #fntlen-1 ; exchange file name table7604 F946F0 9B txy7605 F946F1 B7 8A ?04: lda [bufp],y7606 F946F3 EB xba7607 F946F4 BD 61 E1 lda !fntab,x7608 F946F7 97 8A sta [bufp],y7609 F946F9 EB xba7610 F946FA 9D 61 E1 sta !fntab,x7611 F946FD 88 dey7612 F946FE CA dex7613 F946FF 10 F0 bpl ?047614 F94701 64 8A stz bufp ; restore buffer ptr to listing buffer7615 F94703 C6 8B dec bufp+17616 F94705 60 rts76177618 ; save page 0 and file name table in next buffer while dir listing7619 F94706 savzp:7620 F94706 A2 3D ldx #dpsave-1 ; save page 0 var's for dir. search7621 F94708 9B txy7622 F94709 E6 8B inc bufp+1 ; next buffer7623 F9470B B5 00 ?02: lda zpstart,x7624 F9470D 97 8A sta [bufp],y7625 F9470F 88 dey7626 F94710 CA dex7627 F94711 10 F8 bpl ?027628 F94713 A9 80 lda #$807629 F94715 85 8A sta bufp7630 F94717 A2 60 ldx #fntlen-1 ; exchange file name table7631 F94719 9B txy7632 F9471A BD 61 E1 ?04: lda !fntab,x7633 F9471D 97 8A sta [bufp],y7634 F9471F 88 dey7635 F94720 CA dex7636 F94721 10 F7 bpl ?047637 F94723 64 8A stz bufp ; restore buffer ptr to listing buffer7638 F94725 C6 8B dec bufp+17639 F94727 60 rts76407641 ;---------------------------------------------------------------------------7642 ; logical channels helper's7643 ;---------------------------------------------------------------------------76447645 ; open a read file7646 F94728 opnrfd:7647 F94728 20 BB 47 jsr getrfd ; get a free file descriptor for read7648 F9472B A6 57 ldx lindx ; X=fd7649 F9472D A5 2A lda entsec ; store dir entry in fd table7650 F9472F A4 2F ldy entind7651 F94731 95 9E sta dsec,x7652 F94733 94 A6 sty dind,x7653 F94735 A4 20 ldy filtrk ; store first t&s of file7654 F94737 84 08 sty track7655 F94739 A5 25 lda filsecTue Jul 17 11:00:19 2018 Page 927656 F9473B 85 09 sta sector7657 F9473D 94 AE sty ftrk,x7658 F9473F 95 B6 sta fsec,x7659 F94741 A9 02 lda #27660 F94743 95 BE sta fdptr,x ; start of buffer7661 F94745 A0 1C ldy #287662 F94747 ACC167663 F94747 C2 20 rep #PMFLAG7664 .LONGA on7665 .MNLIST7666 F94749 B7 0A lda [dirp],y ; store file block's count7667 F9474B A6 F7 ldx dblfd7668 F9474D 95 C6 sta fdblk,x7669 F9474F ACC087670 F9474F E2 20 sep #PMFLAG7671 .LONGA off7672 .MNLIST7673 F94751 60 rts76747675 ; open a write file7676 ; if wrop<7>=0 create file7677 ; if wrop<7>=1 replace file7678 F94752 opnwfd:7679 F94752 20 B8 47 jsr getwfd ; get a free file descriptor for write7680 F94755 A9 80 lda #$807681 F94757 85 F8 sta trap ; trap error for free chnl on error7682 F94759 24 E6 bit wrop7683 F9475B 10 2C bpl ?04 ; create file on dir7684 F9475D 20 63 4D jsr intts ; get a starting t&s for file7685 F94760 A7 0A lda [dirp]7686 F94762 09 20 ora #$20 ; set replace flag on dir entry7687 F94764 87 0A sta [dirp]7688 F94766 A0 1A ldy #26 ; set replacing link on dir entry7689 F94768 A5 08 lda track7690 F9476A 97 0A sta [dirp],y7691 F9476C 85 20 sta filtrk7692 F9476E C8 iny7693 F9476F A5 09 lda sector7694 F94771 85 25 sta filsec7695 F94773 97 0A sta [dirp],y7696 F94775 20 02 58 jsr bamout ; save bam on disk7697 F94778 A5 2A lda entsec7698 F9477A C9 04 cmp #4 ; dir entry already sve with bam?7699 F9477C 90 17 bcc ?10 ; yes7700 F9477E 85 09 sta sector ; set sector of dir. entry7701 F94780 A9 28 lda #dirtrk7702 F94782 85 08 sta track7703 F94784 20 57 36 jsr wrdsec ; save dir sector on disk7704 F94787 80 0C bra ?107705 F94789 A9 28 ?04: lda #dirtrk7706 F9478B 85 08 sta track7707 F9478D 64 09 stz sector7708 F9478F 20 3D 56 jsr sethdp7709 F94792 20 D2 4B jsr addfil ; create file in directory7710 F94795 A6 57 ?10: ldx lindx7711 F94797 A5 2A lda entsec ; store dir entry in fd table7712 F94799 A4 2F ldy entindTue Jul 17 11:00:19 2018 Page 937713 F9479B 95 9E sta dsec,x7714 F9479D 94 A6 sty dind,x7715 F9479F A4 20 ldy filtrk ; store first t&s of file7716 F947A1 84 08 sty track7717 F947A3 A5 25 lda filsec7718 F947A5 85 09 sta sector7719 F947A7 94 AE sty ftrk,x7720 F947A9 95 B6 sta fsec,x7721 F947AB A9 02 lda #27722 F947AD 95 BE sta fdptr,x ; start of buffer7723 F947AF A6 F7 ldx dblfd7724 F947B1 74 C6 stz fdblk,x ; clear block's count7725 F947B3 74 C7 stz fdblk+1,x7726 F947B5 64 F8 stz trap ; clear trap error7727 F947B7 60 rts77287729 ; allocates a new logical index and associate at given channel7730 ; getwfd allocate a write lindx7731 ; getrfd allocate a read lindx7732 F947B8 getwfd:7733 F947B8 38 sec ; set .c=1 indicate write7734 F947B9 B0 01 bcs getlx7735 F947BB getrfd:7736 F947BB 18 clc ; set .c=0 indicate read7737 F947BC getlx:7738 F947BC 08 php ; save r/w flag (.c)7739 F947BD 20 13 48 jsr fndlnx ; get next lindx open7740 F947C0 85 57 sta lindx7741 F947C2 AA tax7742 F947C3 74 96 stz fdst,x7743 F947C5 74 9E stz dsec,x7744 F947C7 74 A6 stz dind,x7745 F947C9 74 AE stz ftrk,x7746 F947CB 74 B6 stz fsec,x7747 F947CD 74 BE stz fdptr,x7748 F947CF 74 D6 stz fdlst,x7749 F947D1 74 DE stz fdix,x7750 F947D3 0A asl a7751 F947D4 85 F7 sta dblfd7752 F947D6 8A txa7753 F947D7 A6 52 ldx chnl7754 F947D9 28 plp7755 F947DA 90 02 bcc ?04 ; read7756 F947DC 09 80 ora #$80 ; set write flag7757 F947DE 95 59 ?04: sta lintab,x7758 F947E0 A5 19 lda drvnum7759 F947E2 0A asl a7760 F947E3 0A asl a7761 F947E4 0A asl a7762 F947E5 15 59 ora lintab,x7763 F947E7 95 59 sta lintab,x ; save lindx in lintab7764 F947E9 A6 F7 ldx dblfd7765 F947EB 74 C6 stz fdblk,x7766 F947ED 74 C7 stz fdblk+1,x7767 F947EF 60 rts77687769 ; free a file descriptorTue Jul 17 11:00:19 2018 Page 947770 F947F0 frefd:7771 F947F0 A6 52 ldx chnl7772 F947F2 C9 0F cmp #$0F ; free rd/wrt chnls7773 F947F4 F0 1C beq ?25 ; but don't free ch157774 F947F6 B5 59 lda lintab,x7775 F947F8 C9 FF cmp #$FF7776 F947FA F0 16 beq ?25 ; already free7777 F947FC 29 07 and #$077778 F947FE 85 57 sta lindx7779 F94800 A9 FF lda #$FF7780 F94802 95 59 sta lintab,x ; mark free in lintab7781 F94804 A6 57 ldx lindx ; release lindx7782 F94806 74 96 stz fdst,x7783 F94808 A9 01 lda #17784 F9480A CA ?15: dex7785 F9480B 30 03 bmi ?107786 F9480D 0A asl a7787 F9480E D0 FA bne ?157788 F94810 04 58 ?10: tsb linuse ; 1=free 0=used7789 F94812 60 ?25: rts77907791 ; find free lindx to use and mark used in linuse7792 ; return lindx in A7793 F94813 fndlnx:7794 F94813 A0 00 ldy #0 ; bit counter7795 F94815 A9 01 lda #1 ; any bit is a logical index7796 F94817 24 58 ?10: bit linuse ; 1=free 0=used7797 F94819 D0 09 bne ?30 ; free index7798 F9481B C8 iny7799 F9481C 0A asl a ; shift '1' 8 times7800 F9481D D0 F8 bne ?107801 F9481F A9 4C lda #nolinx ; no free lindx available7802 F94821 4C 07 41 jmp cmderr7803 F94824 14 58 ?30: trb linuse ; mark bit used7804 F94826 98 tya ; return lindx in .a7805 F94827 60 rts78067807 ; check if entry in file table is open and abort if it is7808 ; in: X = file stream index to check7809 ; A destroyed7810 F94828 tstopn:7811 F94828 5A phy7812 F94829 86 16 stx entfnd ; index 0..n-17813 F9482B 20 37 48 jsr tstfd7814 F9482E B0 05 bcs ?027815 F94830 A9 3C lda #filopn7816 F94832 4C 07 41 jmp cmderr7817 F94835 7A ?02: ply7818 F94836 60 rts78197820 ; test if entfnd is active file from lindx tbl7821 ; c=1 file not active7822 ; c=0 file active x=entfnd,y=lindx7823 ; use tmp0 & tmpxxx7824 F94837 tstfd:7825 F94837 A2 00 ldx #0 ; start search at top7826 F94839 86 93 ?20: stx tmp0 ; save to look onTue Jul 17 11:00:19 2018 Page 957827 F9483B B5 59 lda lintab,x ; get lindx7828 F9483D C9 FF cmp #$ff7829 F9483F D0 08 bne ?40 ; allocated so test it7830 F94841 A6 93 ?30: ldx tmp0 ; not active7831 F94843 E8 inx7832 F94844 E0 0F cpx #mxchnls ; searched all?7833 F94846 90 F1 bcc ?20 ; no7834 F94848 60 rts ; yes, CF = 17835 F94849 86 93 ?40: stx tmp0 ; save x7836 F9484B AA tax7837 F9484C 29 07 and #$077838 F9484E A8 tay ; Y = lindx7839 F9484F 8A txa7840 F94850 29 08 and #$08 ; get drive #7841 F94852 4A lsr a7842 F94853 4A lsr a7843 F94854 4A lsr a7844 F94855 4A lsr a7845 F94856 85 1F sta tmpxxx7846 F94858 A6 16 ldx entfnd ; index entry found7847 F9485A B5 34 lda fildrv,x7848 F9485C 29 01 and #17849 F9485E C5 1F cmp tmpxxx ; same drive # ?7850 F94860 D0 DF bne ?30 ; no7851 F94862 BB tyx7852 F94863 B5 9E lda dsec,x ; yes - same dir. entry ?7853 F94865 A6 16 ldx entfnd7854 F94867 D5 2A cmp entsec,x7855 F94869 D0 D6 bne ?30 ; no7856 F9486B BB tyx7857 F9486C B5 A6 lda dind,x7858 F9486E A6 16 ldx entfnd7859 F94870 D5 2F cmp entind,x7860 F94872 D0 CD bne ?30 ; no7861 F94874 18 clc ; active file so CF = 07862 F94875 60 rts78637864 ; return file descriptor of the right type (read or write)7865 ; return X = lindx (fd)7866 F94876 fndfd:7867 F94876 20 F2 48 jsr isopn ; check if file is open7868 F94879 34 59 bit lintab,x7869 F9487B 50 0A bvc ?087870 F9487D 20 CA 48 jsr fnddafd ; direct access7871 F94880 90 18 bcc ?207872 F94882 A9 40 lda #mistyp7873 F94884 4C ED 56 jmp chnerr7874 F94887 24 E6 ?08: bit wrop7875 F94889 30 0A bmi ?10 ; write file7876 F9488B 20 A0 48 jsr fndrfd ; check read file7877 F9488E 90 0A bcc ?207878 F94890 A9 44 lda #wrfil ; write file only7879 F94892 4C ED 56 jmp chnerr7880 F94895 20 B2 48 ?10: jsr fndwfd ; check write file7881 F94898 B0 01 bcs ?30 ; read file only7882 F9489A 60 ?20: rts7883 F9489B A9 45 ?30: lda #rdfilTue Jul 17 11:00:19 2018 Page 967884 F9489D 4C ED 56 jmp chnerr78857886 ; find lindx of read fd7887 ; CF = 0 if chnl is a read channel, A=X = lindx7888 ; CF = 1 if chnl is not a read channel7889 F948A0 fndrfd:7890 F948A0 A6 52 ldx chnl7891 F948A2 38 sec7892 F948A3 B5 59 lda lintab,x7893 F948A5 30 0A bmi ?027894 F948A7 29 07 and #$077895 F948A9 85 57 sta lindx7896 F948AB AA tax7897 F948AC 0A asl a7898 F948AD 85 F7 sta dblfd7899 F948AF 8A txa7900 F948B0 18 clc7901 F948B1 60 ?02: rts79027903 ; find lindx of write fd7904 ; CF = 0 if chnl is a write channel, A=X = lindx7905 ; CF = 1 if chnl is not a write channel7906 F948B2 fndwfd:7907 F948B2 A6 52 ldx chnl7908 F948B4 B5 59 lda lintab,x7909 F948B6 A8 tay7910 F948B7 0A asl a7911 F948B8 90 0E bcc ?20 ; bit 7 = 0, not ok7912 F948BA 30 0C bmi ?20 ; bit 7 & 6 = 1, not ok7913 F948BC 98 tya7914 F948BD 29 07 and #$077915 F948BF 85 57 sta lindx7916 F948C1 AA tax7917 F948C2 0A asl a7918 F948C3 85 F7 sta dblfd7919 F948C5 8A txa7920 F948C6 18 clc7921 F948C7 60 rts7922 F948C8 38 ?20: sec7923 F948C9 60 rts79247925 ; find lindx of direct access fd7926 ; CF = 0 if chnl is direct access type, A=X = lindx7927 ; CF = 1 if not7928 F948CA fnddafd:7929 F948CA A6 52 ldx chnl7930 F948CC B5 59 lda lintab,x7931 F948CE A8 tay7932 F948CF 0A asl a7933 F948D0 B0 0D bcs ?10 ; bit 7=1, not ok7934 F948D2 10 0C bpl ?20 ; bit 6=0, not ok7935 F948D4 98 tya ; ok, just bit 6=17936 F948D5 29 07 and #$077937 F948D7 85 57 sta lindx7938 F948D9 AA tax7939 F948DA 0A asl a7940 F948DB 85 F7 sta dblfdTue Jul 17 11:00:19 2018 Page 977941 F948DD 8A txa7942 F948DE 18 clc7943 F948DF 60 ?10: rts7944 F948E0 38 ?20: sec7945 F948E1 60 rts79467947 ; get drive associated with fd7948 F948E2 fddrv:7949 F948E2 A6 52 ldx chnl7950 F948E4 B5 59 lda lintab,x7951 F948E6 C9 FF cmp #$FF7952 F948E8 F0 07 beq ?047953 F948EA 29 08 and #$08 ; drive is in bit 37954 F948EC 4A lsr a7955 F948ED 4A lsr a7956 F948EE 4A lsr a7957 F948EF 85 19 sta drvnum7958 F948F1 60 ?04: rts79597960 ; test if given channel is open7961 F948F2 isopn:7962 F948F2 A6 52 ldx chnl7963 F948F4 B5 59 lda lintab,x7964 F948F6 C9 FF cmp #$FF7965 F948F8 F0 01 beq ?02 ; channel not open7966 F948FA 60 rts7967 F948FB A9 3D ?02: lda #filnop7968 F948FD 4C ED 56 jmp chnerr79697970 ; get first available channel in range 2..147971 ; return channel in X and chnl7972 F94900 getfre:7973 F94900 A2 02 ldx #2 ; start from chnl 27974 F94902 B5 59 ?02: lda lintab,x7975 F94904 C9 FF cmp #$FF7976 F94906 F0 0A beq ?047977 F94908 E8 inx7978 F94909 E0 0F cpx #mxchnls7979 F9490B 90 F5 bcc ?027980 F9490D A9 46 lda #nochnl ; no channels available7981 F9490F 4C 07 41 jmp cmderr7982 F94912 86 52 ?04: stx chnl7983 F94914 60 rts79847985 ; set pointer to buffer associated with logical index7986 ; return X = lindx7987 F94915 setfdp:7988 F94915 A5 57 lda lindx7989 F94917 AA tax7990 F94918 18 clc7991 F94919 69 D4 adc #DMALXBUF ; buffer # for index = 07992 F9491B A0 02 ldy #DMABNK ; bank for buffer #00..#7F7993 F9491D 0A asl a ; get high pointer7994 F9491E 90 01 bcc ?027995 F94920 C8 iny ; next bank7996 F94921 64 8A ?02: stz bufp ; set buffer pointer7997 F94923 85 8B sta bufp+1Tue Jul 17 11:00:19 2018 Page 987998 F94925 84 8C sty bufp+27999 F94927 60 rts80008001 ;---------------------------------------------------------------------------8002 ; directory listing8003 ;---------------------------------------------------------------------------80048005 ; fill buffer with dir listing8006 ; any list line is 32 bytes long and in cbm basic format8007 ; first 2 bytes is the basic line link8008 ; follow 2 bytes with blocks count of file (like a basic line number)8009 ; follow file name and type8010 ; last byte is null fo terminate basic line8011 ; when listing terminate two null will be appended for terminate basic text8012 ;8013 ; in: Y=current pointer to dest buffer8014 ; out: rdlst is ptr to last byte (if not null ending listing)8015 F94928 dlist:8016 F94928 A9 01 lda #1 ; insert fhoney links ($0101)8017 F9492A 97 8A sta [bufp],y8018 F9492C C8 iny8019 F9492D 97 8A sta [bufp],y8020 F9492F C8 iny8021 F94930 20 67 49 jsr getnam ; get file name and fill name buffer8022 F94933 B0 16 bcs ?10 ; CF=1 if last entry8023 F94935 A5 94 lda wtmp ; put blocks #8024 F94937 97 8A sta [bufp],y8025 F94939 C8 iny8026 F9493A A5 95 lda wtmp+18027 F9493C 97 8A sta [bufp],y8028 F9493E C8 iny8029 F9493F 20 1F 4A jsr movbuf ; move 27 bytes from name buffer8030 F94942 A9 00 lda #0 ; end of entry8031 F94944 97 8A sta [bufp],y8032 F94946 C8 iny8033 F94947 D0 DF bne dlist ; next entry8034 F94949 80 19 bra ?20 ; buffer is full8035 F9494B A5 94 ?10: lda wtmp ; this is end of listing8036 F9494D 97 8A sta [bufp],y ; send free blocks #8037 F9494F C8 iny8038 F94950 A5 95 lda wtmp+18039 F94952 97 8A sta [bufp],y8040 F94954 C8 iny8041 F94955 20 1F 4A jsr movbuf ; move 27 bytes from name buffer8042 F94958 88 dey ; -2 bytes for make room for double null8043 F94959 88 dey8044 F9495A A9 00 lda #0 ; end of listing (000)8045 F9495C 97 8A sta [bufp],y8046 F9495E C8 iny8047 F9495F 97 8A sta [bufp],y8048 F94961 C8 iny8049 F94962 97 8A sta [bufp],y8050 F94964 84 EA ?20: sty rdlst ; set end pointer (not 0 if end)8051 F94966 60 rts80528053 ; get next file entry from directory8054 ; if listing is complete return with CF=1Tue Jul 17 11:00:19 2018 Page 998055 F94967 getnam:8056 F94967 5A phy ; save buffer index8057 F94968 A5 16 lda entfnd8058 F9496A 10 1E bpl ?10 ; more files8059 F9496C 20 2D 4A jsr blknb ; this is end of listing8060 F9496F A2 0B ldx #msglen-18061 F94971 BF 9C 5A F9 ?02: lda >fremsg,x8062 F94975 9D C2 E1 sta !nambuf,x8063 F94978 CA dex8064 F94979 10 F6 bpl ?028065 F9497B A5 19 lda drvnum8066 F9497D 0A asl a8067 F9497E AA tax8068 F9497F B5 6A lda ndbf,x ; save free block's count8069 F94981 85 94 sta wtmp8070 F94983 B5 6B lda ndbf+1,x8071 F94985 85 95 sta wtmp+18072 F94987 7A ply8073 F94988 38 sec ; CF=1 end of listing8074 F94989 60 rts80758076 F9498A A2 18 ?10: ldx #dirlen ; set number blocks8077 F9498C A0 1D ldy #29 ; & adjust spacing8078 F9498E B7 0A lda [dirp],y ; hi blocks #8079 F94990 85 95 sta wtmp+18080 F94992 F0 02 beq ?128081 F94994 A2 16 ldx #dirlen-2 ; blocks < 2568082 F94996 88 ?12: dey8083 F94997 B7 0A lda [dirp],y ; low blocks #8084 F94999 85 94 sta wtmp8085 F9499B E0 16 cpx #dirlen-28086 F9499D F0 0A beq ?148087 F9499F C9 0A cmp #108088 F949A1 90 06 bcc ?14 ; blocks < 108089 F949A3 CA dex8090 F949A4 C9 64 cmp #1008091 F949A6 90 01 bcc ?14 ; blocks < 1008092 F949A8 CA dex8093 F949A9 20 2D 4A ?14: jsr blknb ; clear name buffer8094 F949AC A7 0A lda [dirp] ; set type chars8095 F949AE 48 pha8096 F949AF 0A asl a ; (used in bcs for check closed flag)8097 F949B0 10 05 bpl ?15 ; file not locked8098 F949B2 A9 3C lda #'<'8099 F949B4 9D C3 E1 sta !nambuf+1,x ; file locked8100 F949B7 68 ?15: pla8101 F949B8 29 0F and #$0f8102 F949BA 9B txy ; Y = nambuf index8103 F949BB AA tax ; X = file type8104 F949BC BF 90 5A F9 lda >tp2lst,x8105 F949C0 99 C2 E1 sta nambuf,y8106 F949C3 88 dey8107 F949C4 BF 8A 5A F9 lda >tp1lst,x8108 F949C8 99 C2 E1 sta nambuf,y8109 F949CB 88 dey8110 F949CC BF 84 5A F9 lda >typlst,x8111 F949D0 99 C2 E1 sta nambuf,yTue Jul 17 11:00:19 2018 Page 1008112 F949D3 88 dey8113 F949D4 88 dey8114 F949D5 B0 05 bcs ?20 ; (from asl)8115 F949D7 A9 2A lda #'*' ; file not closed: splat file8116 F949D9 99 C3 E1 sta nambuf+1,y8117 F949DC A9 A0 ?20: lda #$A08118 F949DE 99 C2 E1 sta nambuf,y8119 F949E1 BB tyx ; X = nambuf index8120 F949E2 CA dex8121 F949E3 A0 12 ldy #18 ; end of file name8122 F949E5 B7 0A ?22: lda [dirp],y ; move file name8123 F949E7 9D C2 E1 sta !nambuf,x8124 F949EA CA dex8125 F949EB 88 dey8126 F949EC C0 03 cpy #38127 F949EE B0 F5 bcs ?228128 F949F0 A9 22 lda #'"' ; send name in quotes8129 F949F2 9D C2 E1 sta !nambuf,x8130 F949F5 E8 ?30: inx8131 F949F6 E0 20 cpx #$20 ; max 32 bytes8132 F949F8 B0 0B bcs ?358133 F949FA BD C2 E1 lda !nambuf,x8134 F949FD C9 22 cmp #'"'8135 F949FF F0 04 beq ?358136 F94A01 C9 A0 cmp #$A0 ; stop at first padding byte8137 F94A03 D0 F0 bne ?308138 F94A05 A9 22 ?35: lda #'"'8139 F94A07 9D C2 E1 sta !nambuf,x8140 F94A0A E8 ?37: inx8141 F94A0B E0 20 cpx #$208142 F94A0D B0 0A bcs ?408143 F94A0F A9 7F lda #$7F ; clear bit of any char8144 F94A11 3D C2 E1 and !nambuf,x8145 F94A14 9D C2 E1 sta !nambuf,x8146 F94A17 80 F1 bra ?378147 F94A19 20 88 4A ?40: jsr fndfil ; put dir ptr to next entry8148 F94A1C 7A ply8149 F94A1D 18 clc ; CF=0 no ending listing8150 F94A1E 60 rts81518152 ; move file name to listing buf8153 F94A1F movbuf:8154 F94A1F A2 00 ldx #08155 F94A21 BD C2 E1 ?02: lda !nambuf,x8156 F94A24 97 8A sta [bufp],y8157 F94A26 C8 iny8158 F94A27 E8 inx8159 F94A28 E0 1B cpx #nbsiz8160 F94A2A D0 F5 bne ?028161 F94A2C 60 rts81628163 ; blank nambuf8164 F94A2D blknb:8165 F94A2D A0 1B ldy #nbsiz8166 F94A2F A9 20 lda #' '8167 F94A31 99 C1 E1 ?02: sta nambuf-1,y8168 F94A34 88 deyTue Jul 17 11:00:19 2018 Page 1018169 F94A35 D0 FA bne ?028170 F94A37 60 rts81718172 ;---------------------------------------------------------------------------8173 ; directory search helper's8174 ;---------------------------------------------------------------------------81758176 ; lookup all files in stream and fill tbls w/info8177 F94A38 lookup:8178 F94A38 20 97 4B jsr optsch ; init drive(s)8179 F94A3B lookup2:8180 F94A3B A6 19 ?05: ldx drvnum8181 F94A3D 74 02 stz delind,x8182 F94A3F 20 2D 4B jsr srchst ; start search8183 F94A42 D0 10 bne ?25 ; valid entry8184 F94A44 24 18 ?10: bit tgflg ; end of dir - search both drives?8185 F94A46 10 1D bpl ?40 ; no, so exit8186 F94A48 70 1B bvs ?40 ; other drive already searched, so exit8187 F94A4A 20 8A 4B jsr togdrv ; toggle drvnum8188 F94A4D 80 EC bra ?05 ; lookup on other drive8189 F94A4F 20 76 4B ?20: jsr search ; find valid fn8190 F94A52 F0 0D beq ?30 ; end of directory8191 F94A54 20 A6 4A ?25: jsr compar ; compare dir w/ table8192 F94A57 A5 17 lda found ; found flag8193 F94A59 D0 0A bne ?40 ; all fn's found8194 F94A5B A5 16 lda entfnd8195 F94A5D 30 F0 bmi ?20 ; no match, continue searching dir8196 F94A5F 10 F3 bpl ?25 ; last match, compare again tables8197 F94A61 A5 17 ?30: lda found8198 F94A63 F0 DF beq ?10 ; lookup other drive, if need8199 F94A65 60 ?40: rts82008201 ; find next file name matching8202 ; any file in stream & return8203 ; with entry found stuffed into tables8204 ; return N=1 if lookup exhausted, otherwise N=08205 ; ffst start a search8206 ; findfil continue a search8207 ; ffre re-entry a search8208 F94A66 ffre:8209 F94A66 20 65 4B jsr srre ; find file re-entry8210 F94A69 F0 10 beq ffend ; end of directory8211 F94A6B D0 20 bne ffcp ; found valid entry82128213 F94A6D ffst0:8214 F94A6D 20 8A 4B jsr togdrv ; toggle drvnum and start again search8215 ; lookup it in the other drive8216 F94A70 ffst:8217 F94A70 A6 19 ldx drvnum ; find file start entry8218 F94A72 74 02 stz delind,x8219 F94A74 20 2D 4B jsr srchst8220 F94A77 D0 14 bne ffcp ; found valid entry8221 F94A79 85 17 sta found ; found=0 if end of directory8222 F94A7B A5 17 ffend: lda found ; = $FF if lookup completed8223 F94A7D D0 08 bne ?04 ; exit with N=18224 F94A7F 24 18 bit tgflg ; search both drives?8225 F94A81 10 02 bpl ?02 ; no, so exit with N=1Tue Jul 17 11:00:19 2018 Page 1028226 F94A83 50 E8 bvc ffst0 ; start searching on the other drive8227 ; if not already searched8228 F94A85 A9 FF ?02: lda #$FF ; exit with N=18229 F94A87 60 ?04: rts82308231 F94A88 fndfil:8232 F94A88 20 76 4B jsr search ; find file continuous...8233 F94A8B F0 EE beq ffend ; end of directory8234 F94A8D 20 A6 4A ffcp: jsr compar ; compare file names and fill tables8235 F94A90 A6 16 ldx entfnd8236 F94A92 10 05 bpl ?30 ; file stream tabulated8237 F94A94 A5 17 lda found8238 F94A96 F0 F0 beq fndfil ; continue searching8239 F94A98 60 rts ; N=1 - stop search8240 F94A99 A5 10 ?30: lda typflg8241 F94A9B F0 08 beq ?40 ; no type restriction - exit N=08242 F94A9D B5 39 lda pattyp,x8243 F94A9F 29 07 and #typmsk8244 F94AA1 C5 10 cmp typflg8245 F94AA3 D0 E3 bne fndfil8246 F94AA5 60 ?40: rts ; exit N=082478248 ;compare all filenames in stream table8249 ; with each valid entry in the8250 ; directory and matches are tabulated8251 ; Z=0,N=1 and found=$FF if table exhausted8252 ; Z=1,N=0 and found=0 if table not exhausted8253 ; entfnd = index of matching files stream or $FF in no match8254 ; at first match this function exit8255 ; if a search involve both drives, first will be processed table for8256 ; drvnum and after will be processed table for the other drive8257 F94AA6 compar:8258 F94AA6 A2 FF ldx #$FF8259 F94AA8 86 16 stx entfnd ; set entry not found8260 F94AAA E8 inx8261 F94AAB 86 11 stx patflg8262 F94AAD 20 12 4B jsr ?90 ; check unfound entry in file stream8263 F94AB0 F0 06 beq ?10 ; unfound, so will be tabulated8264 F94AB2 60 ?02: rts ; all are found8265 F94AB3 20 1A 4B ?05: jsr ?91 ; check next entry in file stream8266 F94AB6 D0 FA bne ?02 ; all are found8267 F94AB8 A5 19 ?10: lda drvnum ; current drive8268 F94ABA 55 34 eor fildrv,x8269 F94ABC 4A lsr a8270 F94ABD B0 F4 bcs ?05 ; drive doesn't match, check next file8271 F94ABF B5 1A ?20: lda filtbl,x ; good drive match8272 F94AC1 AA tax ; pointer to pattern8273 F94AC2 A0 03 ldy #3 ; offset of entry name in directory sec8274 F94AC4 BD 00 E1 ?30: lda !cmdbuf,x ; compare byte8275 F94AC7 F0 0C beq ?40 ; match filename !8276 F94AC9 D7 0A cmp [dirp],y8277 F94ACB F0 04 beq ?32 ; match byte8278 F94ACD C9 3F cmp #'?' ; '?' match any byte8279 F94ACF D0 E2 bne ?05 ; no match so check next entry in file stream8280 F94AD1 E8 ?32: inx8281 F94AD2 C8 iny8282 F94AD3 80 EF bra ?30Tue Jul 17 11:00:19 2018 Page 1038283 F94AD5 A6 15 ?40: ldx f2ptr ; file name match8284 F94AD7 86 16 stx entfnd ; save index in file stream8285 F94AD9 B5 39 lda pattyp,x ; store info in tables8286 F94ADB 29 80 and #$808287 F94ADD 85 11 sta patflg ; pattern flag8288 F94ADF 9B txy8289 F94AE0 A6 19 ldx drvnum8290 F94AE2 B5 06 lda index,x8291 F94AE4 BB tyx8292 F94AE5 95 2F sta entind,x8293 F94AE7 A5 09 lda sector8294 F94AE9 95 2A sta entsec,x8295 F94AEB A7 0A lda [dirp]8296 F94AED 48 pha8297 F94AEE 29 40 and #$40 ; mask on lock bit8298 F94AF0 85 93 sta tmp08299 F94AF2 68 pla8300 F94AF3 29 DF and #$FF-$20 ; mask off bit 5 ($DF)8301 F94AF5 30 02 bmi ?42 ; if is closed8302 F94AF7 09 20 ora #$20 ; file not closed: set bit 58303 F94AF9 29 27 ?42: and #$27 ; mask open bit and type8304 F94AFB 05 93 ora tmp0 ; plus lock bit8305 F94AFD 85 93 sta tmp08306 F94AFF A9 80 lda #$808307 F94B01 35 39 and pattyp,x ; <7>: pattern8308 F94B03 05 93 ora tmp0 ; <6>: lock bit, <5>: closed flag8309 F94B05 95 39 sta pattyp,x ; <2:0>: file type8310 F94B07 A0 01 ldy #1 ; first track & sector of file8311 F94B09 B7 0A lda [dirp],y8312 F94B0B 95 20 sta filtrk,x8313 F94B0D C8 iny8314 F94B0E B7 0A lda [dirp],y8315 F94B10 95 25 sta filsec,x8316 F94B128317 ; restart table check -- in this way exit always with found=08318 ; if tables not exhausted83198320 ; check table for unfound files8321 F94B12 A9 FF ?90: lda #$FF8322 F94B14 85 17 sta found8323 F94B16 A5 13 lda f2cnt8324 F94B18 85 15 sta f2ptr8325 F94B1A C6 15 ?91: dec f2ptr8326 F94B1C 30 0E bmi ?99 ; table exhausted8327 ; exit with Z=0,N=1 and found=$FF8328 F94B1E A6 15 ldx f2ptr8329 F94B20 B5 39 lda pattyp,x8330 F94B22 30 04 bmi ?95 ; wildcards: still must search8331 F94B24 B5 20 lda filtrk,x8332 F94B26 D0 F2 bne ?91 ; already tabulated so skip8333 F94B28 A9 00 ?95: lda #0 ; exit with Z=1,N=0...8334 F94B2A 85 17 sta found ; ... and found=08335 F94B2C 60 ?99: rts83368337 ; search directory8338 ; returns with valid entry w/ delind=08339 ; or returns w/ 1st deleted entry w/ delind=1Tue Jul 17 11:00:19 2018 Page 1048340 ; srchst will initiate a search8341 ; search will continue a search8342 ; srre will re-entry a search8343 F94B2D srchst:8344 F94B2D A6 19 ldx drvnum8345 F94B2F A0 00 ldy #0 ; init deleted sector8346 F94B31 94 00 sty delsec,x8347 F94B33 88 dey8348 F94B34 84 16 sty entfnd ; = $FF => not found8349 F94B36 A9 28 lda #dirtrk ; start search at beginning8350 F94B38 85 08 sta track8351 F94B3A A9 03 lda #dirst ; /1st dir blk8352 F94B3C 85 09 srnews: sta sector ; search from beginning or from a new sector8353 F94B3E 20 C3 4C jsr setdptr ; set dir buffer ptr8354 F94B41 A7 0A srnext: lda [dirp] ; search next entry8355 F94B43 D0 11 bne ?02 ; not empty entry8356 F94B45 B5 00 lda delsec,x ; deleted entry found8357 F94B47 D0 2D bne search ; deleted entry already found8358 F94B49 A5 09 lda sector ; store sector of empty entry8359 F94B4B 95 00 sta delsec,x8360 F94B4D A5 0A lda dirp ; get current index of entry8361 F94B4F B4 02 ldy delind,x ; bit1: want deleted entry8362 F94B51 95 02 sta delind,x ; store index of empty entry8363 F94B53 F0 21 beq search ; delind=0 => want valid entry8364 F94B55 60 rts ; (Z=0)8365 F94B56 A9 01 ?02: lda #18366 F94B58 D5 02 cmp delind,x ; ?looking for empty entry?8367 F94B5A F0 1A beq search ; yes => continue searching8368 ; no! found not empty entry8369 F94B5C A5 0A lda dirp ; found not empty entry8370 F94B5E 95 06 sta index,x ; save index8371 F94B60 A5 09 lda sector8372 F94B62 95 04 sta dirsec,x ; save sector8373 F94B64 60 rts ; (Z=0)83748375 ; re-entry from a search8376 F94B65 srre:8377 F94B65 A6 19 ldx drvnum ; get last used accessed search8378 F94B67 A9 28 lda #dirtrk8379 F94B69 85 08 sta track8380 F94B6B B5 04 lda dirsec,x ; found entry sector8381 F94B6D 85 09 sta sector8382 F94B6F 20 C3 4C jsr setdptr ; set dir buffer ptr8383 F94B72 B5 06 lda index,x ; found entry index8384 F94B74 85 0A sta dirp ; set dir buffer low ptr8385 F94B768386 ; continue a searching8387 F94B76 search:8388 F94B76 A6 19 ldx drvnum8389 F94B78 A9 FF lda #$FF8390 F94B7A 85 16 sta entfnd8391 F94B7C A9 20 lda #32 ; incr by 328392 F94B7E 18 clc8393 F94B7F 65 0A adc dirp8394 F94B81 85 0A sta dirp ; next entry...8395 F94B83 90 BC bcc srnext ; ...in same sector8396 F94B85 A5 0D lda nxtsec ; next dir sectorTue Jul 17 11:00:19 2018 Page 1058397 F94B87 D0 B3 bne srnews ; not last dir sec8398 F94B89 60 rts ; exit with Z = 183998400 ; toggle drive number in drvnum8401 F94B8A togdrv:8402 F94B8A A5 19 lda drvnum8403 F94B8C 49 01 eor #18404 F94B8E 29 01 and #18405 F94B90 85 19 sta drvnum8406 F94B92 A9 40 lda #$40 ; set bit 6 for signaling toggle8407 F94B94 04 18 tsb tgflg8408 F94B96 60 rts84098410 ; set tgflg for search option on both drives and init drive's8411 ; read system directory and check integrity of header8412 F94B97 optsch:8413 F94B97 A9 00 lda #08414 F94B99 85 18 sta tgflg8415 F94B9B A6 13 ldx f2cnt ; scan file stream8416 F94B9D A8 ?02: tay ; option search8417 F94B9E CA dex ; adjust pointer8418 F94B9F 30 0E bmi ?06 ; end scanning8419 F94BA1 B5 34 lda fildrv,x8420 F94BA3 4A lsr a ; CF = drive8421 F94BA4 98 tya8422 F94BA5 B0 04 bcs ?04 ; drive #18423 F94BA7 09 01 ora #1 ; drive #0 (bit 0)8424 F94BA9 80 F2 bra ?028425 F94BAB 09 02 ?04: ora #2 ; drive #1 (bit 1)8426 F94BAD 80 EE bra ?028427 F94BAF C9 03 ?06: cmp #38428 F94BB1 D0 04 bne ?08 ; just one drive tabulated in file stream8429 F94BB3 A9 80 lda #$80 ; search both drives flag8430 F94BB5 85 18 sta tgflg8431 F94BB7 A5 34 ?08: lda fildrv ; set drvnum for first file on stream8432 F94BB9 29 01 and #18433 F94BBB 85 19 sta drvnum8434 F94BBD 20 6A 56 jsr drvint ; init drive and system track cache8435 F94BC0 24 18 bit tgflg8436 F94BC2 10 0D bpl ?10 ; just one drive8437 F94BC4 A5 19 lda drvnum8438 F94BC6 48 pha ; save8439 F94BC7 49 01 eor #$01 ; toggle drive #8440 F94BC9 85 19 sta drvnum8441 F94BCB 20 6A 56 jsr drvint8442 F94BCE 68 pla ; restore drive #8443 F94BCF 85 19 sta drvnum8444 F94BD1 60 ?10: rts84458446 ;---------------------------------------------------------------------------8447 ; track & sector allocation helper's - bam helper's8448 ;---------------------------------------------------------------------------84498450 ; add a new file to directory in first available empty entry8451 ; add a new sector to directory chain if no empty entry available8452 F94BD2 addfil:8453 ; ;jsr curblk ; last used accessed searchTue Jul 17 11:00:19 2018 Page 1068454 F94BD2 64 41 stz cmdsiz ; not null if will be allocated new dir sec8455 F94BD4 A5 0E lda type8456 F94BD6 48 pha8457 F94BD7 A5 34 lda fildrv ; use this drive8458 F94BD9 29 01 and #18459 F94BDB AA tax ; required drive8460 F94BDC 45 19 eor drvnum ; compare with last accessed drive8461 F94BDE 4A lsr a8462 F94BDF 90 0D bcc ?08 ; same drive, use last accessed search8463 F94BE1 86 19 stx drvnum ; set current drive8464 F94BE3 A9 01 lda #18465 F94BE5 95 02 sta delind,x ; look for empty entry8466 F94BE7 20 2D 4B jsr srchst8467 F94BEA F0 1A beq ?15 ; all full, alloc new dir sector8468 F94BEC D0 27 bne ?18 ; found one8469 F94BEE B5 00 ?08: lda delsec,x ; already called srchst here!!8470 F94BF0 F0 0B beq ?10 ; deleted entry not located8471 F94BF2 C5 09 cmp sector ; resident sector?8472 F94BF4 F0 21 beq ?20 ; yes8473 F94BF6 85 09 sta sector ; sector of empty entry8474 F94BF8 20 C3 4C jsr setdptr8475 F94BFB 80 1A bra ?20 ; use it8476 F94BFD A9 01 ?10: lda #1 ; find empty entry8477 F94BFF 95 02 sta delind,x8478 F94C01 20 65 4B jsr srre ; restart search8479 F94C04 D0 0F bne ?18 ; found one8480 F94C06 20 8D 4C ?15: jsr nxdrbk ; all full, alloc new directory sector8481 F94C09 A6 19 ldx drvnum8482 F94C0B A5 09 lda sector8483 F94C0D 95 00 sta delsec,x8484 F94C0F A9 02 lda #28485 F94C11 95 02 sta delind,x8486 F94C13 80 06 bra ?218487 F94C15 A6 19 ?18: ldx drvnum8488 F94C17 B5 02 ?20: lda delind,x8489 F94C19 85 0A sta dirp ; low pointer8490 F94C1B 68 ?21: pla8491 F94C1C 85 0E sta type ; set type8492 F94C1E 85 39 sta pattyp8493 F94C20 87 0A sta [dirp]8494 F94C22 20 63 4D jsr intts ; allocate init t&s for new file8495 F94C25 A5 08 lda track8496 F94C27 85 20 sta filtrk ; ...table & entry8497 F94C29 A0 01 ldy #18498 F94C2B 97 0A sta [dirp],y8499 F94C2D A5 09 lda sector8500 F94C2F 85 25 sta filsec ; set sector link in...8501 F94C31 C8 iny8502 F94C32 97 0A sta [dirp],y ; ...table & entry8503 F94C34 C8 iny8504 F94C35 A6 1A ldx filtbl8505 F94C37 BD 00 E1 ?22: lda !cmdbuf,x ; copy file name8506 F94C3A F0 06 beq ?248507 F94C3C 97 0A sta [dirp],y8508 F94C3E E8 inx8509 F94C3F C8 iny8510 F94C40 80 F5 bra ?22Tue Jul 17 11:00:19 2018 Page 1078511 F94C42 97 0A ?24: sta [dirp],y ; clear # of blocks &...8512 F94C44 C8 iny ; ...& replace links8513 F94C45 C0 1E cpy #308514 F94C47 90 F9 bcc ?248515 F94C49 A6 19 ldx drvnum8516 F94C4B B5 00 lda delsec,x8517 F94C4D 85 2A sta entsec8518 F94C4F B5 02 lda delind,x8519 F94C51 85 2F sta entind8520 F94C53 74 02 stz delind,x8521 F94C55 74 00 stz delsec,x8522 F94C578523 ; now must save bam, old dir sector, and new dir sec8524 ; bam is in phis. sec 1 & 28525 ; dir sec 3 is in phis. sec. 28526 F94C57 20 10 4E jsr mapout ; save bam if dirty8527 F94C5A A5 41 lda cmdsiz ; prev. dir sec. if any8528 F94C5C A4 2A ldy entsec ; current dir sec8529 F94C5E AA tax8530 F94C5F F0 11 beq ?348531 F94C61 4A lsr a ; to phis. sec.8532 F94C62 1A inc a8533 F94C63 C9 03 cmp #38534 F94C65 90 0B bcc ?34 ; saved with bam8535 F94C67 48 pha ; save old dir psec8536 F94C68 5A phy ; save current dir sec8537 F94C69 86 09 stx sector ; write out old dir sec8538 F94C6B 20 57 36 jsr wrdsec8539 F94C6E 7A ply8540 F94C6F 84 09 sty sector ; restore current dir sec8541 F94C71 68 pla8542 F94C72 85 41 ?34: sta cmdsiz ; restore old dir psec8543 F94C74 98 tya ; current dir sec8544 F94C75 84 09 sty sector8545 F94C77 4A lsr a8546 F94C78 1A inc a ; current dir psec8547 F94C79 C9 03 cmp #38548 F94C7B 90 07 bcc ?368549 F94C7D C5 41 cmp cmdsiz ; compare with prev, if any8550 F94C7F F0 03 beq ?36 ; already saved8551 F94C81 20 57 36 jsr wrdsec ; write out current dir sec8552 F94C84 A5 20 ?36: lda filtrk8553 F94C86 85 08 sta track8554 F94C88 A5 25 lda filsec8555 F94C8A 85 09 sta sector8556 ;;sta dind,x8557 ;;sta dsec,x8558 F94C8C 60 rts8559 F94C8D8560 ; allocate next directory block on system track8561 ; and mark as used in bam8562 ; dirp, track & sector filled with current values8563 F94C8D nxdrbk:8564 F94C8D A5 09 lda sector8565 F94C8F 85 41 sta cmdsiz ; save current directory block8566 F94C91 64 0A stz dirp ; pointer to start of current sector8567 F94C93 20 00 4D jsr nxtds ; allocate a new dir blockTue Jul 17 11:00:19 2018 Page 1088568 F94C96 A4 09 ldy sector8569 F94C98 C0 03 cpy #dirst8570 F94C9A 90 57 bcc e_dskful0 ; must be > dirst8571 F94C9C A5 08 lda track ; put link in current block8572 F94C9E 87 0A sta [dirp]8573 F94CA0 98 tya ; sector8574 F94CA1 A0 01 ldy #18575 F94CA3 97 0A sta [dirp],y ; the new allocated sec8576 F94CA5 64 0D stz nxtsec ; this is last dir sec8577 F94CA7 20 3D 56 jsr sethdp ; preset dir pointer to header8578 F94CAA 18 clc8579 F94CAB 65 09 adc sector ; add sector offset8580 F94CAD 85 0B sta dirp+18581 F94CAF A0 01 ldy #18582 F94CB1 A9 FF lda #$FF ; put next link: $00, $FF8583 F94CB3 97 0A sta [dirp],y8584 F94CB5 1A inc a8585 F94CB6 87 0A sta [dirp]8586 F94CB8 C8 iny8587 F94CB9 97 0A ?02: sta [dirp],y ; clear block8588 F94CBB C8 iny8589 F94CBC D0 FB bne ?028590 F94CBE A9 02 lda #2 ; preset pointer to first entry8591 F94CC0 85 0A sta dirp8592 F94CC2 60 rts85938594 ; set directory pointer for drvnum and sector8595 ; also, set nxtsec for directory search8596 ; preset dir pointer to first entry on sector8597 ; return X = drive #8598 F94CC3 setdptr:8599 F94CC3 A6 19 ldx drvnum8600 F94CC5 B5 74 lda dirofs,x8601 F94CC7 B4 76 ldy dirbnk,x8602 F94CC9 18 clc8603 F94CCA 65 09 adc sector ; add sector offset8604 F94CCC 64 0A stz dirp ; set pointer to dir link8605 F94CCE 85 0B sta dirp+18606 F94CD0 84 0C sty dirp+28607 F94CD2 ACC168608 F94CD2 C2 20 rep #PMFLAG8609 .LONGA on8610 .MNLIST8611 F94CD4 A7 0A lda [dirp] ; A = nxt track, B = nxt sector8612 F94CD6 AA tax ; X = nxt track8613 F94CD7 EB xba ; B = nxt track, A = nxt sector8614 F94CD8 C9 FF 00 cmp #$00FF ; last dir. sector?8615 F94CDB ACC088616 F94CDB E2 20 sep #PMFLAG8617 .LONGA off8618 .MNLIST8619 F94CDD F0 05 beq ?04 ; yes, this is final sector8620 F94CDF E0 28 cpx #dirtrk ; check system track8621 F94CE1 D0 0B bne e_dirlnk ; dir error8622 F94CE3 3A dec a ; adjust sector8623 F94CE4 1A ?04: inc a ; = 0 if link is $FF8624 F94CE5 85 0D sta nxtsec ; next sector (0 if no more sec)Tue Jul 17 11:00:19 2018 Page 1098625 F94CE7 A6 19 ldx drvnum8626 F94CE9 A9 02 lda #2 ; index of first entry8627 F94CEB 85 0A sta dirp8628 F94CED 60 rts86298630 F94CEE e_dirlnk:8631 F94CEE A9 50 lda #dirlnk8632 F94CF0 4C FB 56 jmp doserr86338634 F94CF3 e_dskful0:8635 F94CF3 A6 19 ldx drvnum ; invalidate drive8636 F94CF5 74 68 stz drvfg,x86378638 F94CF7 e_dskful:8639 F94CF7 A9 48 lda #dskful8640 F94CF9 4C 07 41 jmp cmderr86418642 ; returns next available trk & sec8643 ; given current t & s8644 ; allocation is from trk 408645 ; towards 1 & 80, by full tracks8646 F94CFC nxtts:8647 ;;jsr gethdr ; ??? set current t&s for file8648 F94CFC A9 03 lda #38649 F94CFE 85 93 sta tmp0 ; set pass count86508651 ; allocate new directory sector8652 F94D00 nxtds:8653 F94D00 20 5D 4E jsr bamtrk8654 F94D03 A7 8D lda [bmpnt] ; free blocks count8655 F94D05 D0 32 bne ?06 ; available blocks8656 F94D07 A5 08 lda track8657 F94D09 C9 28 cmp #dirtrk ; directory full8658 F94D0B F0 EA beq e_dskful8659 F94D0D 90 14 bcc ?02 ; track < dirtrack8660 F94D0F E6 08 inc track ; track > dirtrack8661 F94D11 A5 08 lda track8662 F94D13 C9 51 cmp #maxtrk8663 F94D15 D0 E9 bne nxtds8664 F94D17 A2 27 ldx #dirtrk-1 ; track := dirtrack - 18665 F94D19 86 08 stx track8666 F94D1B 64 09 stz sector8667 F94D1D C6 93 dec tmp08668 F94D1F D0 DF bne nxtds8669 F94D21 F0 D4 beq e_dskful8670 F94D23 A5 08 ?02: lda track8671 F94D25 C9 01 cmp #startrk8672 F94D27 90 04 bcc ?038673 F94D29 C6 08 dec track8674 F94D2B D0 D3 bne nxtds8675 F94D2D A2 29 ?03: ldx #dirtrk+1 ; start again8676 F94D2F 86 08 stx track ; track := dirtrack + 18677 F94D31 64 09 stz sector8678 F94D33 C6 93 dec tmp08679 F94D35 D0 C9 bne nxtds8680 F94D37 F0 BE beq e_dskful8681 F94D39 E6 09 ?06: inc sector ; increment current secTue Jul 17 11:00:19 2018 Page 1108682 F94D3B A9 28 lda #numsec ; find next sec8683 F94D3D C5 09 cmp sector ; is it over?8684 F94D3F B0 0B bcs ?10 ; no..it's ok8685 F94D41 38 sec8686 F94D42 A5 09 lda sector8687 F94D44 E9 28 sbc #numsec8688 F94D46 85 09 sta sector8689 F94D48 F0 02 beq ?108690 F94D4A C6 09 dec sector ; -18691 F94D4C 20 F8 4D ?10: jsr getsec8692 F94D4F D0 51 bne wused ; ok, this block is free8693 F94D51 64 09 ?12: stz sector ; start again with sector = 08694 F94D53 20 F8 4D jsr getsec8695 F94D56 D0 4A bne wused ; ok86968697 F94D58 e_direrr:8698 F94D58 A9 47 lda #direrr8699 F94D5A 4C FB 56 jmp doserr87008701 F94D5D e_direrr0:8702 F94D5D A6 19 ldx drvnum8703 F94D5F 74 68 stz drvfg,x ; invalidate drive8704 F94D61 80 F5 bra e_direrr87058706 ; find first track & sector for a new file8707 F94D63 intts:8708 F94D63 A9 01 lda #1 ; set a counter8709 F94D65 85 93 sta tmp08710 F94D67 A9 28 ?s1: lda #dirtrk ; track:= dirtrk-tmp08711 F94D69 38 sec8712 F94D6A E5 93 sbc tmp08713 F94D6C 85 08 sta track8714 F94D6E 08 php8715 F94D6F C9 01 cmp #startrk ; ok?8716 F94D71 B0 03 bcs ?01 ; yes - startrk < track8717 F94D73 28 plp ; discard8718 F94D74 80 0C bra ?s2 ; track = 0 so start again toward max track8719 F94D76 28 ?01: plp ; check result of sbc8720 F94D77 90 09 bcc ?s2 ; if track <= 0...8721 F94D79 F0 07 beq ?s2 ; ...start again toward max track8722 F94D7B 20 5D 4E jsr bamtrk ; set the bam pntr8723 F94D7E A7 8D lda [bmpnt] ; any free block?8724 F94D80 D0 19 bne ?10 ; found free sector8725 F94D82 A9 28 ?s2: lda #dirtrk ; trk= dirtrk+tmp08726 F94D84 18 clc8727 F94D85 65 93 adc tmp08728 F94D87 85 08 sta track8729 F94D89 E6 93 inc tmp0 ; next trk8730 F94D8B C9 51 cmp #maxtrk8731 F94D8D 90 05 bcc ?s3 ; ok8732 F94D8F A9 43 lda #systs ; error, no free sector8733 F94D91 4C FB 56 jmp doserr8734 F94D94 20 5D 4E ?s3: jsr bamtrk ; set ptr8735 F94D97 A7 8D lda [bmpnt]8736 F94D99 F0 CC beq ?s1 ; not free... try next track8737 F94D9B 64 09 ?10: stz sector8738 F94D9D 20 F8 4D jsr getsec ; get sectorTue Jul 17 11:00:19 2018 Page 1118739 F94DA0 F0 BB beq e_direrr0 ; no free sector8740 ;;jmp wused87418742 ; sector allocation - mark bam for used sector8743 F94DA2 wused:8744 F94DA2 20 5D 4E jsr bamtrk ; get bam index8745 F94DA5 20 4A 4E jsr bambit8746 F94DA8 F0 22 beq ?10 ; used, no action8747 F94DAA B7 8D lda [bmpnt],y ; get bits8748 F94DAC 5F A8 5A F9 eor >bmask,x ; toggle: mark sec used8749 F94DB0 97 8D sta [bmpnt],y8750 F94DB2 A7 8D lda [bmpnt] ; count -18751 F94DB4 3A dec a8752 F94DB5 87 8D sta [bmpnt] ; save it8753 F94DB7 A6 19 ldx drvnum8754 F94DB9 A9 80 lda #$808755 F94DBB 95 84 sta wbam,x ; set it dirty8756 F94DBD A5 08 lda track8757 F94DBF C9 28 cmp #dirtrk8758 F94DC1 F0 09 beq ?108759 F94DC3 8A txa8760 F94DC4 0A asl a8761 F94DC5 AA tax8762 F94DC6 ACC168763 F94DC6 C2 20 rep #PMFLAG8764 .LONGA on8765 .MNLIST8766 F94DC8 D6 6A dec ndbf,x ; update total free block's8767 F94DCA ACC088768 F94DCA E2 20 sep #PMFLAG8769 .LONGA off8770 .MNLIST8771 F94DCC 60 ?10: rts87728773 ; free a sector - mark bam for free sector8774 F94DCD frets:8775 F94DCD 20 5D 4E jsr bamtrk ; mrk bam free8776 F94DD0 20 4A 4E jsr bambit8777 F94DD3 D0 22 bne ?10 ; free already8778 F94DD5 B7 8D lda [bmpnt],y ; not free, free it8779 F94DD7 1F A8 5A F9 ora bmask,x8780 F94DDB 97 8D sta [bmpnt],y8781 F94DDD A7 8D lda [bmpnt]8782 F94DDF 1A inc a ; add one to # blocks free8783 F94DE0 87 8D sta [bmpnt]8784 F94DE2 A6 19 ldx drvnum8785 F94DE4 A9 80 lda #$808786 F94DE6 95 84 sta wbam,x ; set it dirty8787 F94DE8 A5 08 lda track8788 F94DEA C9 28 cmp #dirtrk8789 F94DEC F0 09 beq ?108790 F94DEE 8A txa8791 F94DEF 0A asl a8792 F94DF0 AA tax8793 F94DF1 ACC168794 F94DF1 C2 20 rep #PMFLAG8795 .LONGA onTue Jul 17 11:00:19 2018 Page 1128796 .MNLIST8797 F94DF3 F6 6A inc ndbf,x ; update total free block's8798 F94DF5 ACC088799 F94DF5 E2 20 sep #PMFLAG8800 .LONGA off8801 .MNLIST8802 F94DF7 60 ?10: rts88038804 ; find a free block in current track8805 ; return Z = 0 if sector is a free block8806 ; use tmp08807 F94DF8 getsec:8808 F94DF8 20 5D 4E jsr bamtrk ; set bam and block bit ptr8809 F94DFB 20 7D 4E jsr avck ; chk bits & count8810 F94DFE A5 09 ?10: lda sector8811 F94E00 C9 28 cmp #numsec8812 F94E02 B0 09 bcs ?20 ; not free blocks in this track8813 F94E04 20 4A 4E jsr bambit ; get block offset8814 F94E07 D0 06 bne ?30 ; ok is free8815 F94E09 E6 09 inc sector ; try next block numb.8816 F94E0B 80 F1 bra ?10 ; loop8817 F94E0D A9 00 ?20: lda #0 ; nothing free8818 F94E0F 60 ?30: rts ; (z=0): free88198820 ; write out bam of current drive, if dirty8821 ; use wtmp, wtmp+1, tmp08822 F94E10 mapout:8823 F94E10 A6 19 ldx drvnum8824 F94E12 34 84 bit wbam,x ; dirty?8825 F94E14 10 33 bpl ?50 ; no, no write8826 F94E16 A9 51 lda #maxtrk ; verify bam first8827 F94E18 85 94 sta wtmp ; set trk counter8828 F94E1A B5 74 lda dirofs,x ; preset bam ptr8829 F94E1C 1A inc a ; bam 18830 F94E1D B4 76 ldy dirbnk,x8831 F94E1F 85 8E sta bmpnt+18832 F94E21 1A inc a8833 F94E22 85 95 sta wtmp+1 ; bam 28834 F94E24 84 8F sty bmpnt+28835 F94E26 A9 10 ?10: lda #bindx ; bam offset8836 F94E28 85 8D ?20: sta bmpnt ; lsb8837 F94E2A 20 7D 4E jsr avck ; check this trk8838 F94E2D C6 94 dec wtmp ; do next trk8839 F94E2F F0 11 beq ?30 ; verify done8840 F94E31 18 clc ; update bam pointer8841 F94E32 A5 8D lda bmpnt8842 F94E34 69 06 adc #6 ; 6 byte per trk8843 F94E36 90 F0 bcc ?20 ; same bam8844 F94E38 A5 8E lda bmpnt+18845 F94E3A C5 95 cmp wtmp+18846 F94E3C F0 04 beq ?30 ; end check8847 F94E3E E6 8E inc bmpnt+1 ; do next bam8848 F94E40 80 E4 bra ?108849 F94E42 20 02 58 ?30: jsr bamout ; wrt the bams8850 F94E45 A6 19 ?40: ldx drvnum8851 F94E47 74 84 stz wbam,x ; set it clean now!8852 F94E49 60 ?50: rtsTue Jul 17 11:00:19 2018 Page 11388538854 ; check if a block is free or not8855 ; in: bmpnt = bam pointer8856 ; sector = block number (0..39)8857 ; out: Z = 0 if blocks is free8858 ; Y,X = bam byte index and bit index8859 F94E4A bambit:8860 F94E4A A5 09 lda sector ; get block bit in bam8861 F94E4C 4A lsr a ; sectr/88862 F94E4D 4A lsr a8863 F94E4E 4A lsr a8864 F94E4F A8 tay8865 F94E50 C8 iny ; adjust it8866 F94E51 A5 09 lda sector ; get remainder8867 F94E53 29 07 and #$078868 F94E55 AA tax ; bit mask index8869 F94E56 B7 8D lda [bmpnt],y8870 F94E58 3F A8 5A F9 and >bmask,x ; = 0 if not free8871 F94E5C 60 rts88728873 ; set bam pointer for track and drvnum8874 F94E5D bamtrk:8875 F94E5D A6 19 ldx drvnum8876 F94E5F B5 76 lda dirbnk,x8877 F94E61 85 8F sta bmpnt+2 ; set bank pointer8878 F94E63 B4 74 ldy dirofs,x ; high pointer8879 F94E65 C8 iny ; set for bam 18880 F94E66 A5 08 lda track8881 F94E68 C9 29 cmp #41 ; which bam ?8882 F94E6A 90 03 bcc ?04 ; bam18883 F94E6C E9 28 sbc #40 ; range 40 trk per bam8884 F94E6E C8 iny ; it's bam28885 F94E6F 84 8E ?04: sty bmpnt+18886 F94E71 0A asl a ; trk x6 offset8887 F94E72 85 8D sta bmpnt ; save x28888 F94E74 0A asl a ; x48889 F94E75 18 clc ; total=x68890 F94E76 65 8D adc bmpnt ;8891 F94E78 69 0A adc #bindx-6 ; bam offset -1 trk blk8892 F94E7A 85 8D sta bmpnt8893 F94E7C 60 rts88948895 ; check count of free blocks in track8896 ; use tmp08897 F94E7D avck:8898 F94E7D 64 93 stz tmp0 ; blk counter8899 F94E7F A0 05 ldy #bamsiz-1 ; offset of last byte8900 F94E81 A2 08 ?10: ldx #8 ; bit counter8901 F94E83 B7 8D lda [bmpnt],y8902 F94E85 0A ?20: asl a ; used ?8903 F94E86 90 02 bcc ?30 ; no8904 F94E88 E6 93 inc tmp0 ; count it8905 F94E8A CA ?30: dex8906 F94E8B D0 F8 bne ?20 ; do next bit8907 F94E8D 88 dey ; do next byte8908 F94E8E D0 F1 bne ?108909 F94E90 A7 8D lda [bmpnt] ; stored count of free blocksTue Jul 17 11:00:19 2018 Page 1148910 F94E92 C5 93 cmp tmp08911 F94E94 D0 01 bne ?40 ; counts don't match8912 F94E96 60 rts8913 F94E97 A9 51 ?40: lda #bamcnt8914 F94E99 4C 07 41 jmp cmderr89158916 ; build bam for an empty new disk8917 F94E9C newmap:8918 F94E9C A6 19 ldx drvnum ; init buffer for bam1&bam28919 F94E9E B5 74 lda dirofs,x8920 F94EA0 B4 76 ldy dirbnk,x8921 F94EA2 18 clc8922 F94EA3 69 28 adc #numsec ; buffer allocated after dir. cache8923 F94EA5 1A inc a ; +18924 F94EA6 85 8E sta bmpnt+1 ; bmpnt -> bam 18925 F94EA8 84 8F sty bmpnt+28926 F94EAA 1A inc a8927 F94EAB 85 3F sta tlp+1 ; tlp -> bam 28928 F94EAD 84 40 sty tlp+28929 F94EAF 64 8D stz bmpnt8930 F94EB1 64 3E stz tlp8931 F94EB3 A0 00 ldy #08932 F94EB5 98 tya8933 F94EB6 97 8D ?02: sta [bmpnt],y ; clear bam1&bam28934 F94EB8 97 3E sta [tlp],y8935 F94EBA C8 iny8936 F94EBB D0 F9 bne ?028937 F94EBD A9 28 lda #dirtrk ; link to bam28938 F94EBF 87 8D sta [bmpnt] ; set trk links8939 F94EC1 98 tya ; Y=0 -- end trk link8940 F94EC2 87 3E sta [tlp] ;8941 F94EC4 A9 02 lda #2 ; link to bam28942 F94EC6 C8 iny ; 18943 F94EC7 97 8D sta [bmpnt],y8944 F94EC9 A9 FF lda #$ff ; sector end link8945 F94ECB 97 3E sta [tlp],y8946 F94ECD A9 44 lda #dskvern ; disk version number8947 F94ECF C8 iny ; 28948 F94ED0 97 8D sta [bmpnt],y8949 F94ED2 97 3E sta [tlp],y8950 F94ED4 49 FF eor #$FF ; complement8951 F94ED6 C8 iny ; 38952 F94ED7 97 8D sta [bmpnt],y8953 F94ED9 97 3E sta [tlp],y8954 F94EDB BD FC E1 lda !dskid1,x ; ID 18955 F94EDE C8 iny ; 48956 F94EDF 97 8D sta [bmpnt],y8957 F94EE1 97 3E sta [tlp],y8958 F94EE3 BD FE E1 lda !dskid2,x ; ID 28959 F94EE6 C8 iny ; 58960 F94EE7 97 8D sta [bmpnt],y8961 F94EE9 97 3E sta [tlp],y8962 F94EEB A9 C0 lda #iobyte ; default i/o byte8963 F94EED C8 iny ; 68964 F94EEE 97 8D sta [bmpnt],y8965 F94EF0 97 3E sta [tlp],y8966 F94EF2 A0 10 ?04: ldy #bindx ; bam offsetTue Jul 17 11:00:19 2018 Page 1158967 F94EF4 A9 28 ?06: lda #numsec8968 F94EF6 97 8D sta [bmpnt],y ; store free block's in this track8969 F94EF8 C8 iny8970 F94EF9 A2 05 ldx #5 ; bytes counter8971 F94EFB A9 FF lda #$FF ; all free8972 F94EFD 97 8D ?08: sta [bmpnt],y ; write out bit map8973 F94EFF C8 iny8974 F94F00 CA dex8975 F94F01 D0 FA bne ?088976 F94F03 98 tya ; done?8977 F94F04 D0 EE bne ?06 ; no8978 F94F06 A5 8E lda bmpnt+18979 F94F08 C5 3F cmp tlp+1 ; both bams done?8980 F94F0A F0 04 beq ?10 ; yep...8981 F94F0C E6 8E inc bmpnt+1 ; do the next bam8982 F94F0E 80 E2 bra ?04 ; next bam8983 F94F10 ?10: ACC168984 F94F10 C2 20 rep #PMFLAG8985 .LONGA on8986 .MNLIST8987 F94F12 A9 58 0C lda #maxblks ; max. available block's8988 F94F15 85 94 sta wtmp8989 F94F17 ACC088990 F94F17 E2 20 sep #PMFLAG8991 .LONGA off8992 .MNLIST8993 F94F19 C6 8E dec bmpnt+1 ; back to bam 18994 F94F1B A9 28 lda #dirtrk ; alloc sector for system track8995 F94F1D 0A asl a ; trk x6 offset8996 F94F1E 85 8D sta bmpnt ; save x28997 F94F20 0A asl a ; x48998 F94F21 18 clc ; total=x68999 F94F22 65 8D adc bmpnt ;9000 F94F24 69 0A adc #bindx-6 ; bam offset -1 trk blk9001 F94F26 85 8D sta bmpnt ; pointer to bitmap for system track9002 F94F28 64 09 stz sector ; allocate 3 sectors & directory sector9003 F94F2A 20 39 4F jsr ?20 ; sec. 09004 F94F2D E6 09 inc sector9005 F94F2F 20 39 4F jsr ?20 ; sec. 19006 F94F32 E6 09 inc sector9007 F94F34 20 39 4F jsr ?20 ; sec. 29008 F94F37 E6 09 inc sector ; sec. 3 usually for dir.9009 F94F39 20 4A 4E ?20: jsr bambit9010 F94F3C F0 0D beq ?30 ; used, no action9011 F94F3E B7 8D lda [bmpnt],y ; get bits9012 F94F40 5F A8 5A F9 eor >bmask,x ; toggle: mark sec used9013 F94F44 97 8D sta [bmpnt],y9014 F94F46 A7 8D lda [bmpnt] ; count -19015 F94F48 3A dec a9016 F94F49 87 8D sta [bmpnt] ; save it9017 F94F4B 60 ?30: rts90189019 ; build a new disk header in system cache9020 F94F4C newhdr:9021 F94F4C A0 01 ldy #19022 F94F4E A9 28 lda #dirtrk ; directory track9023 F94F50 87 0A sta [dirp]Tue Jul 17 11:00:19 2018 Page 1169024 F94F52 A9 03 lda #dirst ; link to first dir. block9025 F94F54 97 0A sta [dirp],y9026 F94F56 C8 iny ; 29027 F94F57 A9 44 lda #dskvern9028 F94F59 97 0A sta [dirp],y ; disk version number9029 F94F5B C8 iny9030 F94F5C C8 iny ; 49031 F94F5D A6 1A ldx filtbl ; ptr to disk name9032 F94F5F BD 00 E1 ?02: lda !cmdbuf,x ; store disk name9033 F94F62 F0 06 beq ?049034 F94F64 97 0A sta [dirp],y9035 F94F66 C8 iny9036 F94F67 E8 inx9037 F94F68 80 F5 bra ?029038 F94F6A A9 A0 ?04: lda #$A09039 F94F6C 97 0A sta [dirp],y ; 209040 F94F6E C8 iny9041 F94F6F 97 0A sta [dirp],y9042 F94F71 C8 iny ; 229043 F94F72 A6 19 ldx drvnum9044 F94F74 BD FC E1 lda !dskid1,x ; store ID 19045 F94F77 97 0A sta [dirp],y9046 F94F79 C8 iny ; 239047 F94F7A BD FE E1 lda !dskid2,x ; store ID 29048 F94F7D 97 0A sta [dirp],y9049 F94F7F C8 iny ; 249050 F94F80 A9 A0 lda #$A09051 F94F82 97 0A sta [dirp],y9052 F94F84 C8 iny ; 259053 F94F85 A9 33 lda #dosvern ; store dos version number9054 F94F87 97 0A sta [dirp],y9055 F94F89 C8 iny ; 269056 F94F8A A9 44 lda #dskvern9057 F94F8C 97 0A sta [dirp],y ; disk version number9058 F94F8E C8 iny ; 279059 F94F8F A9 A0 lda #$A09060 F94F91 97 0A sta [dirp],y9061 F94F93 C8 iny ; 289062 F94F94 A9 A0 lda #$A09063 F94F96 97 0A sta [dirp],y9064 F94F98 A0 1E ldy #309065 F94F9A A9 8D lda #subvern ; store sub-version9066 F94F9C 97 0A sta [dirp],y9067 F94F9E C8 iny ; 319068 F94F9F 49 FF eor #$FF9069 F94FA1 97 0A sta [dirp],y9070 F94FA3 CPU169071 F94FA3 C2 30 rep #(PMFLAG.OR.PXFLAG)9072 .LONGA on9073 .LONGI on9074 .MNLIST9075 F94FA5 20 A5 1B jsr gctime16 ; compact time&date (ret CPU16)9076 F94FA8 A0 20 00 ldy #329077 F94FAB 97 0A sta [dirp],y ; store 32 bit serial9078 F94FAD 8A txa9079 F94FAE C8 iny9080 F94FAF C8 inyTue Jul 17 11:00:19 2018 Page 1179081 F94FB0 97 0A sta [dirp],y9082 F94FB2 A9 58 0C lda #maxblks9083 F94FB5 85 94 sta wtmp9084 F94FB7 CPU089085 F94FB7 E2 30 sep #(PMFLAG.OR.PXFLAG)9086 .LONGA off9087 .LONGI off9088 .MNLIST9089 F94FB9 60 rts90909091 ;---------------------------------------------------------------------------9092 ; file system check routines9093 ;---------------------------------------------------------------------------90949095 ; mark aux bam for used sector9096 F94FBA mkbam:9097 F94FBA A6 19 ldx drvnum ; set pointer to aux bam9098 F94FBC B5 74 lda dirofs,x9099 F94FBE B4 76 ldy dirbnk,x9100 F94FC0 84 8F sty bmpnt+29101 F94FC2 18 clc9102 F94FC3 69 28 adc #numsec ; buffer allocated after dir. cache9103 F94FC5 1A inc a ; +19104 F94FC6 A8 tay9105 F94FC7 A5 09 lda sector9106 F94FC9 C9 28 cmp #numsec9107 F94FCB B0 3A bcs ?049108 F94FCD A5 08 lda track9109 F94FCF F0 36 beq ?049110 F94FD1 C9 51 cmp #maxtrk9111 F94FD3 B0 32 bcs ?049112 F94FD5 C9 29 cmp #41 ; which bam ?9113 F94FD7 90 03 bcc ?02 ; bam19114 F94FD9 E9 28 sbc #40 ; range 40 trk per bam9115 F94FDB C8 iny ; it's bam29116 F94FDC 84 8E ?02: sty bmpnt+19117 F94FDE 0A asl a ; trk x6 offset9118 F94FDF 85 8D sta bmpnt ; save x29119 F94FE1 0A asl a ; x49120 F94FE2 18 clc ; total=x69121 F94FE3 65 8D adc bmpnt ;9122 F94FE5 69 0A adc #bindx-6 ; bam offset -1 trk blk9123 F94FE7 85 8D sta bmpnt9124 F94FE9 20 4A 4E jsr bambit9125 F94FEC F0 19 beq ?04 ; used, no action9126 F94FEE B7 8D lda [bmpnt],y ; get bits9127 F94FF0 5F A8 5A F9 eor >bmask,x ; toggle: mark sec used9128 F94FF4 97 8D sta [bmpnt],y9129 F94FF6 A7 8D lda [bmpnt] ; count -19130 F94FF8 3A dec a9131 F94FF9 87 8D sta [bmpnt] ; save it9132 F94FFB A5 08 lda track9133 F94FFD C9 28 cmp #dirtrk9134 F94FFF F0 06 beq ?049135 F95001 ACC169136 F95001 C2 20 rep #PMFLAG9137 .LONGA onTue Jul 17 11:00:19 2018 Page 1189138 .MNLIST9139 F95003 C6 86 dec ntot ; update total free block's9140 F95005 ACC089141 F95005 E2 20 sep #PMFLAG9142 .LONGA off9143 .MNLIST9144 F95007 60 ?04: rts91459146 ; check file consistency and update aux bam9147 ; enter with start t&s of the file9148 F95008 chkfil:9149 F95008 A5 09 lda sector ; save dir. sector9150 F9500A 85 2A sta entsec9151 F9500C A7 0A lda [dirp]9152 F9500E 85 0E sta type9153 F95010 A0 01 ldy #19154 F95012 B7 0A lda [dirp],y9155 F95014 85 08 sta track ; set up first t&s9156 F95016 C8 iny9157 F95017 B7 0A lda [dirp],y9158 F95019 85 09 sta sector9159 F9501B A9 22 lda #'"'9160 F9501D 8D DD E1 sta !nambuf29161 F95020 A2 00 ldx #09162 F95022 C8 iny9163 F95023 B7 0A ?02: lda [dirp],y9164 F95025 30 09 bmi ?049165 F95027 9D DE E1 sta !nambuf2+1,x9166 F9502A C8 iny9167 F9502B E8 inx9168 F9502C E0 10 cpx #169169 F9502E 90 F3 bcc ?029170 F95030 A9 22 ?04: lda #'"'9171 F95032 9D DE E1 sta !nambuf2+1,x9172 F95035 9E DF E1 stz !nambuf2+2,x9173 F95038 A0 1C ldy #28 ; check block's count9174 F9503A ACC169175 F9503A C2 20 rep #PMFLAG9176 .LONGA on9177 .MNLIST9178 F9503C B7 0A lda [dirp],y9179 F9503E 85 94 sta wtmp ; stored file block's count9180 F95040 64 F0 stz wcnt ; clear block's counter9181 F95042 ACC089182 F95042 E2 20 sep #PMFLAG9183 .LONGA off9184 .MNLIST9185 F95044 A5 0E lda type9186 F95046 30 2B bmi ?129187 F95048 A9 00 lda #^nambuf29188 F9504A 48 pha9189 F9504B F4 DD E1 pea #!nambuf29190 F9504E 4B phk ; splat file msg9191 F9504F F4 85 51 pea #!?1009192 F95052 A9 07 lda #79193 F95054 48 pha9194 F95055 BPRINTFTue Jul 17 11:00:19 2018 Page 1199195 F95055 02 11 cop $119196 .MNLIST9197 F95057 24 E6 bit wrop9198 F95059 30 03 bmi ?08 ; ok, delete splat file9199 F9505B 4C 7B 51 jmp ?90 ; skip & exit9200 F9505E A9 00 ?08: lda #0 ; delete entry9201 F95060 87 0A sta [dirp]9202 F95062 A5 2A lda entsec9203 F95064 85 09 sta sector9204 F95066 20 57 36 jsr wrdsec ; update dir9205 F95069 A2 F9 ldx #^?1059206 F9506B A9 51 lda #>?1059207 F9506D EB xba9208 F9506E A9 9D lda #<?1059209 F95070 SCNSTROUT9210 F95070 02 03 cop $039211 .MNLIST9212 F95072 60 ?10: rts9213 F95073 29 07 ?12: and #typmsk9214 F95075 C9 04 cmp #reltyp9215 F95077 F0 F9 beq ?10 ; skip9216 F95079 C9 05 cmp #partyp9217 F9507B F0 F5 beq ?10 ; skip9218 F9507D A5 08 lda track9219 F9507F F0 0A beq ?13 ; invalid track9220 F95081 C9 51 cmp #maxtrk9221 F95083 B0 06 bcs ?13 ; invalid track9222 F95085 A5 09 lda sector9223 F95087 C9 28 cmp #numsec9224 F95089 90 03 bcc ?14 ; invalid sector?9225 F9508B 4C 2B 51 ?13: jmp ?309226 F9508E 20 AB 57 ?14: jsr tread ; read whole track in cache9227 F95091 20 4A 56 jsr setcp ; set cache ptr to right sector9228 F95094 ?16: ACC16CLC9229 F95094 C2 21 rep #(PMFLAG.OR.PCFLAG)9230 .LONGA on9231 .MNLIST9232 F95096 E6 F0 inc wcnt ; update file block's counter9233 F95098 C6 88 dec bcnt ; update total free block's9234 F9509A A5 94 lda wtmp ; stored block's #9235 F9509C 69 20 00 adc #32 ; add a guard9236 F9509F C5 F0 cmp wcnt ; compare with computed block's #9237 F950A1 ACC089238 F950A1 E2 20 sep #PMFLAG9239 .LONGA off9240 .MNLIST9241 F950A3 B0 03 bcs ?179242 F950A5 4C 65 51 jmp ?50 ; hmmm...never reach end of file?9243 F950A8 20 BA 4F ?17: jsr mkbam ; mark aux bam9244 F950AB A0 01 ldy #19245 F950AD B7 8A lda [bufp],y ; next sector9246 F950AF A8 tay9247 F950B0 A7 8A lda [bufp] ; next track9248 F950B2 F0 1D beq ?18 ; end of file?9249 F950B4 C9 51 cmp #maxtrk9250 F950B6 B0 04 bcs ?17a ; invalid track in link9251 F950B8 C0 28 cpy #numsec ; invalid sector in link?Tue Jul 17 11:00:19 2018 Page 1209252 F950BA 90 03 bcc ?17b9253 F950BC 4C 47 51 ?17a: jmp ?409254 F950BF 84 09 ?17b: sty sector ; next sector9255 F950C1 C5 08 cmp track ; same track?9256 F950C3 85 08 sta track9257 F950C5 D0 C7 bne ?14 ; will read a new track9258 F950C7 18 clc9259 F950C8 98 tya9260 F950C9 A6 19 ldx drvnum9261 F950CB 75 78 adc trkofs,x ; sector in the same track9262 F950CD 85 8B sta bufp+19263 ;jsr mkbam ; mark aux bam9264 F950CF 80 C3 bra ?16 ; follow link9265 F950D1 C0 02 ?18: cpy #2 ; in last block must be >= 29266 F950D3 90 3F bcc ?209267 F950D5 ACC169268 F950D5 C2 20 rep #PMFLAG9269 .LONGA on9270 .MNLIST9271 F950D7 A5 94 lda wtmp ; check block's count9272 F950D9 C5 F0 cmp wcnt9273 F950DB ACC089274 F950DB E2 20 sep #PMFLAG9275 .LONGA off9276 .MNLIST9277 F950DD F0 93 beq ?10 ; ok, match -- exit9278 F950DF D4 94 pei (wtmp)9279 F950E1 D4 F0 pei (wcnt)9280 F950E3 A9 00 lda #^nambuf29281 F950E5 48 pha9282 F950E6 F4 DD E1 pea #!nambuf29283 F950E9 4B phk ; unmatch msg9284 F950EA F4 AC 51 pea #!?1159285 F950ED A9 0B lda #119286 F950EF 48 pha9287 F950F0 BPRINTF9288 F950F0 02 11 cop $119289 .MNLIST9290 F950F2 24 E6 bit wrop9291 F950F4 30 03 bmi ?199292 F950F6 4C 7B 51 jmp ?90 ; skip & exit9293 F950F9 A0 1C ?19: ldy #28 ; correct9294 F950FB ACC169295 F950FB C2 20 rep #PMFLAG9296 .LONGA on9297 .MNLIST9298 F950FD A5 F0 lda wcnt9299 F950FF 97 0A sta [dirp],y9300 F95101 ACC089301 F95101 E2 20 sep #PMFLAG9302 .LONGA off9303 .MNLIST9304 F95103 A5 2A lda entsec9305 F95105 85 09 sta sector9306 F95107 20 57 36 jsr wrdsec ; update dir9307 F9510A A2 F9 ldx #^?1309308 F9510C A9 52 lda #>?130Tue Jul 17 11:00:19 2018 Page 1219309 F9510E EB xba9310 F9510F A9 4C lda #<?1309311 F95111 SCNSTROUT9312 F95111 02 03 cop $039313 .MNLIST9314 F95113 60 rts9315 F95114 A5 09 ?20: lda sector9316 F95116 48 pha9317 F95117 A5 08 lda track9318 F95119 48 pha9319 F9511A 5A phy ; last ptr9320 F9511B A9 00 lda #^nambuf29321 F9511D 48 pha9322 F9511E F4 DD E1 pea #!nambuf29323 F95121 4B phk ; corrupted last link9324 F95122 F4 E3 51 pea #!?1209325 F95125 A9 0A lda #109326 F95127 48 pha9327 F95128 BPRINTF9328 F95128 02 11 cop $119329 .MNLIST9330 F9512A 60 rts ; no correction possible here9331 F9512B A5 09 ?30: lda sector ; invalid start track and/or sector9332 F9512D 48 pha9333 F9512E A5 08 lda track9334 F95130 48 pha9335 F95131 A9 00 lda #^nambuf29336 F95133 48 pha9337 F95134 F4 DD E1 pea #!nambuf29338 F95137 4B phk9339 F95138 F4 1D 52 pea #!?1259340 F9513B A9 09 lda #99341 F9513D 48 pha9342 F9513E BPRINTF9343 F9513E 02 11 cop $119344 .MNLIST9345 F95140 24 E6 bit wrop9346 F95142 10 37 bpl ?90 ; skip9347 F95144 4C 5E 50 jmp ?08 ; delete entry93489349 F95147 A6 09 ?40: ldx sector ; invalid link9350 F95149 DA phx9351 F9514A A6 08 ldx track9352 F9514C DA phx9353 F9514D 5A phy ; possible invalid sec link9354 F9514E 48 pha ; possible invalid trk link9355 F9514F A9 00 lda #^nambuf29356 F95151 48 pha9357 F95152 F4 DD E1 pea #!nambuf29358 F95155 4B phk9359 F95156 F4 55 52 pea #!?1359360 F95159 A9 0B lda #119361 F9515B 48 pha9362 F9515C BPRINTF9363 F9515C 02 11 cop $119364 .MNLIST9365 F9515E 24 E6 bit wropTue Jul 17 11:00:19 2018 Page 1229366 F95160 10 19 bpl ?90 ; skip9367 F95162 4C 5E 50 jmp ?08 ; delete entry93689369 F95165 A9 00 ?50: lda #^nambuf2 ; eof not found...9370 F95167 48 pha9371 F95168 F4 DD E1 pea #!nambuf29372 F9516B 4B phk9373 F9516C F4 8C 52 pea #!?1409374 F9516F A9 07 lda #79375 F95171 48 pha9376 F95172 BPRINTF9377 F95172 02 11 cop $119378 .MNLIST9379 F95174 24 E6 bit wrop9380 F95176 10 03 bpl ?90 ; skip9381 F95178 4C 5E 50 jmp ?08 ; delete entry93829383 F9517B A2 F9 ?90: ldx #^?110 ; show 'skip' msg & exit9384 F9517D A9 51 lda #>?1109385 F9517F EB xba9386 F95180 A9 A6 lda #<?1109387 F95182 SCNSTROUT9388 F95182 02 03 cop $039389 .MNLIST9390 F95184 60 rts93919392 F95185 0D 66 69 6C 65 ?100: .DB $0D, 'file %s: not closed...', 020 25 73 3A 206E 6F 74 20 636C 6F 73 65 642E 2E 2E 009393 F9519D 64 65 6C 65 74 ?105: .DB 'deleted.', 065 64 2E 009394 F951A6 73 6B 69 70 2E ?110: .DB 'skip.', 0009395 F951AC 0D 66 69 6C 65 ?115: .DB $0D, 'file %s: unmatch blocks count (actual %hu vs. %hu)...', 020 25 73 3A 2075 6E 6D 61 7463 68 20 62 6C6F 63 6B 73 2063 6F 75 6E 7420 28 61 63 7475 61 6C 20 2568 75 20 76 732E 20 25 68 7529 2E 2E 2E 009396 F951E3 0D 66 69 6C 65 ?120: .DB $0D, 'file %s: last link (t:0,s:%bu) corrupted at t:%bu,s:%bu.', 020 25 73 3A 206C 61 73 74 206C 69 6E 6B 2028 74 3A 30 2C73 3A 25 62 7529 20 63 6F 7272 75 70 74 6564 20 61 74 2074 3A 25 62 752C 73 3A 25 62Tue Jul 17 11:00:19 2018 Page 12375 2E 009397 F9521D 0D 66 69 6C 65 ?125: .DB $0D, 'file %s: invalid start block (t:%bu,s:%bu)...', 020 25 73 3A 2069 6E 76 61 6C69 64 20 73 7461 72 74 20 626C 6F 63 6B 2028 74 3A 25 6275 2C 73 3A 2562 75 29 2E 2E2E 009398 F9524C 63 6F 72 72 65 ?130: .DB 'correct.', 063 74 2E 009399 F95255 0D 66 69 6C 65 ?135: .DB $0D, 'file %s: invalid link (t:%bu,s:%bu) at t:%bu,s:%bu...', 020 25 73 3A 2069 6E 76 61 6C69 64 20 6C 696E 6B 20 28 743A 25 62 75 2C73 3A 25 62 7529 20 61 74 2074 3A 25 62 752C 73 3A 25 6275 2E 2E 2E 009400 F9528C 0D 66 69 6C 65 ?140: .DB $0D, 'file %s: EOF not found...', 020 25 73 3A 2045 4F 46 20 6E6F 74 20 66 6F75 6E 64 2E 2E2E 0094019402 ; check directory consistence & update aux bam9403 F952A7 chkdir:9404 F952A7 A9 28 lda #dirtrk9405 F952A9 85 08 sta track9406 F952AB 64 09 stz sector9407 F952AD 20 AB 57 jsr tread ; read whole track in cache9408 F952B0 20 4A 56 jsr setcp ; set cache ptr to right sector9409 F952B3 20 BA 4F ?02: jsr mkbam ; mark aux bam9410 F952B6 A0 01 ldy #19411 F952B8 B7 8A lda [bufp],y ; next sector9412 F952BA A8 tay9413 F952BB A7 8A lda [bufp] ; next track9414 F952BD F0 12 beq ?04 ; end of dir?9415 F952BF 84 09 sty sector ; next sector9416 F952C1 C5 08 cmp track ; same track?9417 F952C3 85 08 sta track9418 F952C5 D0 0E bne ?10 ; error!9419 F952C7 18 clc9420 F952C8 98 tya9421 F952C9 A6 19 ldx drvnum9422 F952CB 75 78 adc trkofs,x ; sector in the same track9423 F952CD 85 8B sta bufp+19424 F952CF 80 E2 bra ?02 ; follow link9425 F952D1 C0 FF ?04: cpy #$FF ; must be $FF9426 F952D3 F0 10 beq ?159427 F952D5 A5 09 ?10: lda sectorTue Jul 17 11:00:19 2018 Page 1249428 F952D7 48 pha9429 F952D8 5A phy ; last ptr9430 F952D9 A5 08 lda track9431 F952DB 48 pha9432 F952DC 4B phk ; unmatch msg9433 F952DD F4 E6 52 pea #!?209434 F952E0 A9 07 lda #79435 F952E2 48 pha9436 F952E3 BPRINTF9437 F952E3 02 11 cop $119438 .MNLIST9439 F952E5 60 ?15: rts94409441 F952E6 0D 64 69 72 65 ?20: .DB $0D, 'directory: wrong link (t:%bu,s:%bu) at sector %bu', 063 74 6F 72 793A 20 77 72 6F6E 67 20 6C 696E 6B 20 28 743A 25 62 75 2C73 3A 25 62 7529 20 61 74 2073 65 63 74 6F72 20 25 62 750094429443 ; report file block's count & update bam if validation9444 F95319 updbam:9445 F95319 20 C4 53 jsr ?30 ; for safety check again aux bam free block's9446 F9531C ACC169447 F9531C C2 20 rep #PMFLAG9448 .LONGA on9449 .MNLIST9450 F9531E A5 86 lda ntot9451 F95320 C5 94 cmp wtmp9452 F95322 ACC089453 F95322 E2 20 sep #PMFLAG9454 .LONGA off9455 .MNLIST9456 F95324 F0 1B beq ?069457 F95326 D4 94 pei (wtmp)9458 F95328 D4 86 pei (ntot)9459 F9532A 4B phk9460 F9532B F4 8A 54 pea #!?659461 F9532E A9 08 lda #89462 F95330 48 pha9463 F95331 BPRINTF9464 F95331 02 11 cop $119465 .MNLIST9466 F95333 24 E6 ?02: bit wrop9467 F95335 10 09 bpl ?049468 F95337 A9 54 lda #>?709469 F95339 EB xba9470 F9533A A9 B6 lda #<?709471 F9533C A2 F9 ldx #^?709472 F9533E SCNSTROUT9473 F9533E 02 03 cop $039474 .MNLISTTue Jul 17 11:00:19 2018 Page 1259475 F95340 60 ?04: rts9476 F95341 D4 88 ?06: pei (bcnt)9477 F95343 4B phk9478 F95344 F4 0F 54 pea #!?509479 F95347 A9 06 lda #69480 F95349 48 pha9481 F9534A BPRINTF9482 F9534A 02 11 cop $119483 .MNLIST9484 F9534C D4 86 pei (ntot)9485 F9534E 4B phk9486 F9534F F4 38 54 pea #!?559487 F95352 A9 06 lda #69488 F95354 48 pha9489 F95355 BPRINTF9490 F95355 02 11 cop $119491 .MNLIST9492 F95357 A5 19 lda drvnum9493 F95359 0A asl a9494 F9535A AA tax9495 F9535B B5 6A lda ndbf,x9496 F9535D B4 6B ldy ndbf+1,x9497 F9535F 5A phy9498 F95360 48 pha9499 F95361 4B phk9500 F95362 F4 61 54 pea #!?609501 F95365 A9 06 lda #69502 F95367 48 pha9503 F95368 BPRINTF9504 F95368 02 11 cop $119505 .MNLIST9506 F9536A ACC169507 F9536A C2 20 rep #PMFLAG9508 .LONGA on9509 .MNLIST9510 F9536C A5 88 lda bcnt9511 F9536E C5 86 cmp ntot9512 F95370 ACC089513 F95370 E2 20 sep #PMFLAG9514 .LONGA off9515 .MNLIST9516 F95372 F0 0F beq ?089517 F95374 D4 86 pei (ntot)9518 F95376 D4 88 pei (bcnt)9519 F95378 4B phk9520 F95379 F4 D6 54 pea #!?759521 F9537C A9 08 lda #89522 F9537E 48 pha9523 F9537F BPRINTF9524 F9537F 02 11 cop $119525 .MNLIST9526 F95381 80 B0 bra ?029527 F953839528 ; ok, bam can be updated9529 F95383 24 E6 ?08: bit wrop9530 F95385 10 3C bpl ?10 ; no bam update9531 F95387 20 3D 56 jsr sethdp ; update bam on diskTue Jul 17 11:00:19 2018 Page 1269532 F9538A E6 0B inc dirp+1 ; set up bam9533 F9538C A6 19 ldx drvnum ; set pointer to aux bam9534 F9538E A9 80 lda #$809535 F95390 95 84 sta wbam,x ; set bam dirty9536 F95392 B5 74 lda dirofs,x9537 F95394 B4 76 ldy dirbnk,x9538 F95396 84 8F sty bmpnt+29539 F95398 18 clc9540 F95399 69 28 adc #numsec ; buffer allocated after dir. cache9541 F9539B 1A inc a ; +19542 F9539C 85 8E sta bmpnt+19543 F9539E 64 8D stz bmpnt ; ptr to new bam9544 F953A0 INDEX169545 F953A0 C2 10 rep #PXFLAG9546 .LONGI on9547 .MNLIST9548 F953A2 A0 FF 01 ldy #$01FF ; transfer the new bam9549 F953A5 B7 8D ?09: lda [bmpnt],y9550 F953A7 97 0A sta [dirp],y9551 F953A9 88 dey9552 F953AA 10 F9 bpl ?099553 F953AC INDEX089554 F953AC E2 10 sep #PXFLAG9555 .LONGI off9556 .MNLIST9557 F953AE A9 55 lda #>?859558 F953B0 EB xba9559 F953B1 A9 27 lda #<?859560 F953B3 A2 F9 ldx #^?859561 F953B5 SCNSTROUT9562 F953B5 02 03 cop $039563 .MNLIST9564 F953B7 20 10 4E jsr mapout ; write out map9565 F953BA A9 55 lda #>?809566 F953BC EB xba9567 F953BD A9 10 lda #<?809568 F953BF A2 F9 ldx #^?809569 F953C1 SCNSTROUT9570 F953C1 02 03 cop $039571 .MNLIST9572 F953C3 60 ?10: rts9573 ?30: ; calc # of blocks free9574 F953C4 64 94 stz wtmp9575 F953C6 64 95 stz wtmp+19576 F953C8 A0 01 ldy #startrk9577 F953CA 88 dey9578 F953CB C8 ?32: iny9579 F953CC 84 08 sty track9580 F953CE C0 28 cpy #dirtrk9581 F953D0 F0 F9 beq ?32 ; skip dir track9582 F953D2 C0 51 cpy #maxtrk ; done ?9583 F953D4 B0 14 bcs ?34 ; yes9584 F953D6 20 EB 53 jsr ?40 ; set up next bam trk9585 F953D9 A4 08 ldy track ; retrivie track9586 F953DB A9 00 lda #09587 F953DD EB xba ; B = 09588 F953DE A7 8D lda [bmpnt] ; A = get blks freeTue Jul 17 11:00:19 2018 Page 1279589 F953E0 ACC16CLC9590 F953E0 C2 21 rep #(PMFLAG.OR.PCFLAG)9591 .LONGA on9592 .MNLIST9593 F953E2 65 94 adc wtmp ; up data count9594 F953E4 85 94 sta wtmp9595 F953E6 ACC089596 F953E6 E2 20 sep #PMFLAG9597 .LONGA off9598 .MNLIST9599 F953E8 80 E1 bra ?329600 F953EA 60 ?34: rts96019602 F953EB A6 19 ?40: ldx drvnum ; set pointer to aux bam9603 F953ED B5 74 lda dirofs,x9604 F953EF B4 76 ldy dirbnk,x9605 F953F1 84 8F sty bmpnt+29606 F953F3 18 clc9607 F953F4 69 28 adc #numsec ; buffer allocated after dir. cache9608 F953F6 1A inc a ; +19609 F953F7 A8 tay9610 F953F8 A5 08 lda track9611 F953FA C9 29 cmp #41 ; which bam ?9612 F953FC 90 03 bcc ?42 ; bam19613 F953FE E9 28 sbc #40 ; range 40 trk per bam9614 F95400 C8 iny ; it's bam29615 F95401 84 8E ?42: sty bmpnt+19616 F95403 0A asl a ; trk x6 offset9617 F95404 85 8D sta bmpnt ; save x29618 F95406 0A asl a ; x49619 F95407 18 clc ; total=x69620 F95408 65 8D adc bmpnt ;9621 F9540A 69 0A adc #bindx-6 ; bam offset -1 trk blk9622 F9540C 85 8D sta bmpnt9623 F9540E 60 rts96249625 F9540F 0D 74 6F 74 61 ?50: .DB $0D, 'total computed free block''s: % 4hu.', 06C 20 63 6F 6D70 75 74 65 6420 66 72 65 6520 62 6C 6F 636B 27 73 3A 2020 20 20 20 2520 34 68 75 2E009626 F95438 0D 74 6F 74 61 ?55: .DB $0D, 'total free block''s from new BAM: % 4hu.', 06C 20 66 72 6565 20 62 6C 6F63 6B 27 73 2066 72 6F 6D 206E 65 77 20 4241 4D 3A 20 2520 34 68 75 2E009627 F95461 0D 74 6F 74 61 ?60: .DB $0D, 'total free block''s from old BAM: % 4hu.', 06C 20 66 72 6565 20 62 6C 6FTue Jul 17 11:00:19 2018 Page 12863 6B 27 73 2066 72 6F 6D 206F 6C 64 20 4241 4D 3A 20 2520 34 68 75 2E009628 F9548A 0D 6E 65 77 20 ?65: .DB $0D, 'new BAM free block''s unmatch: %hu vs. %hu.', 042 41 4D 20 6672 65 65 20 626C 6F 63 6B 2773 20 75 6E 6D61 74 63 68 3A20 25 68 75 2076 73 2E 20 2568 75 2E 009629 F954B6 0D 42 41 4D 20 ?70: .DB $0D, 'BAM on disk cannot be updated.', 06F 6E 20 64 6973 6B 20 63 616E 6E 6F 74 2062 65 20 75 7064 61 74 65 642E 009630 F954D6 0D 63 6F 6D 70 ?75: .DB $0D, 'computed free block''s (%hu) unmatch new BAM count (%hu).', 075 74 65 64 2066 72 65 65 2062 6C 6F 63 6B27 73 20 28 2568 75 29 20 756E 6D 61 74 6368 20 6E 65 7720 42 41 4D 2063 6F 75 6E 7420 28 25 68 7529 2E 009631 F95510 0D 66 69 6C 65 ?80: .DB $0D, 'file system is clean.', 020 73 79 73 7465 6D 20 69 7320 63 6C 65 616E 2E 009632 F95527 0D 75 70 64 61 ?85: .DB $0D, 'update BAM on disk...', 074 65 20 42 414D 20 6F 6E 2064 69 73 6B 2E2E 2E 0096339634 ;---------------------------------------------------------------------------9635 ; drive's initialitation9636 ;---------------------------------------------------------------------------96379638 ; check directory header9639 ; X = drive #9640 ; return CF = 0 if ok, otherwise CF = 19641 F9553E hdrtst:9642 F9553E 20 3D 56 jsr sethdp ; set dir pointer9643 F95541 A7 0A lda [dirp] ; track link9644 F95543 C9 28 cmp #dirtrk9645 F95545 D0 6D bne ?02 ; errorTue Jul 17 11:00:19 2018 Page 1299646 F95547 A0 01 ldy #19647 F95549 B7 0A lda [dirp],y ; sec link9648 F9554B C9 03 cmp #dirst9649 F9554D D0 65 bne ?02 ; error9650 F9554F C8 iny9651 F95550 B7 0A lda [dirp],y ; disk version number9652 F95552 C9 44 cmp #dskvern9653 F95554 D0 5E bne ?02 ; error9654 F95556 A0 1A ldy #269655 F95558 D7 0A cmp [dirp],y ; compare with vernum at offset 269656 F9555A D0 58 bne ?02 ; error9657 F9555C 88 dey ; offset 259658 F9555D B7 0A lda [dirp],y ; dos version number9659 F9555F C9 33 cmp #dosvern9660 F95561 D0 51 bne ?02 ; error9661 F95563 A0 16 ldy #229662 F95565 B7 0A lda [dirp],y ; disk ID 19663 F95567 9D FC E1 sta !dskid1,x9664 F9556A C8 iny9665 F9556B B7 0A lda [dirp],y ; disk ID 29666 F9556D 9D FE E1 sta !dskid2,x9667 F95570 A9 F7 lda #$F79668 F95572 35 68 and drvfg,x ; clear bit 3 (assume no new version)9669 F95574 95 68 sta drvfg,x9670 F95576 A0 1E ldy #309671 F95578 B7 0A lda [dirp],y ; disk sub-version9672 F9557A F0 28 beq ?01 ; standard version9673 F9557C C9 8D cmp #subvern9674 F9557E D0 24 bne ?019675 F95580 49 FF eor #$FF ; compliment9676 F95582 C8 iny ; offset 319677 F95583 D7 0A cmp [dirp],y ; compare with sub-ver at ofs. 309678 F95585 D0 1D bne ?01 ; standard version9679 F95587 A9 08 lda #$08 ; set bit 3: new version9680 F95589 15 68 ora drvfg,x9681 F9558B 95 68 sta drvfg,x9682 F9558D C8 iny ; offset 32: serial 32 bit9683 F9558E 8A txa9684 F9558F 0A asl a ; * 4 - index double word9685 F95590 0A asl a9686 F95591 AA tax9687 F95592 ACC169688 F95592 C2 20 rep #PMFLAG9689 .LONGA on9690 .MNLIST9691 F95594 B7 0A lda [dirp],y ; store serial9692 F95596 9D F0 E1 sta !dskser,x9693 F95599 C8 iny9694 F9559A C8 iny9695 F9559B B7 0A lda [dirp],y9696 F9559D 9D F2 E1 sta !dskser+2,x9697 F955A0 ACC089698 F955A0 E2 20 sep #PMFLAG9699 .LONGA off9700 .MNLIST9701 F955A2 A6 19 ldx drvnum9702 F955A4 E6 0B ?01: inc dirp+1 ; set ptr to bam1Tue Jul 17 11:00:19 2018 Page 1309703 F955A6 A7 0A lda [dirp] ; track link9704 F955A8 C9 28 cmp #dirtrk9705 F955AA D0 08 bne ?02 ; error9706 F955AC A0 01 ldy #19707 F955AE B7 0A lda [dirp],y ; sec link9708 F955B0 C9 02 cmp #dirst-1 ; will be 1 below of dir start9709 F955B2 F0 02 beq ?04 ; ok9710 F955B4 38 ?02: sec ; return disk id mismatch error9711 F955B5 60 ?03: rts9712 F955B6 20 1A 56 ?04: jsr chkbam ; check bam 1 header9713 F955B9 B0 FA bcs ?03 ; error9714 F955BB B7 0A lda [dirp],y ; bam 1 iobyte9715 F955BD 10 06 bpl ?069716 F955BF A9 20 lda #$20 ; set bit 5 drive flag9717 F955C1 15 68 ora drvfg,x9718 F955C3 95 68 sta drvfg,x9719 F955C5 E6 0B ?06: inc dirp+1 ; set ptr to bam29720 F955C7 A7 0A lda [dirp] ; track link9721 F955C9 D0 E9 bne ?02 ; error, will be 09722 F955CB A0 01 ldy #19723 F955CD B7 0A lda [dirp],y ; sec link9724 F955CF C9 FF cmp #$FF9725 F955D1 D0 E1 bne ?02 ; error, will be $FF9726 F955D3 20 1A 56 jsr chkbam ; check bam 2 header9727 F955D6 B0 DD bcs ?03 ; error9728 F955D8 B7 0A lda [dirp],y ; bam 1 iobyte9729 F955DA 10 06 bpl nfcalc9730 F955DC A9 20 lda #$20 ; set bit 5 drive flag9731 F955DE 34 68 bit drvfg,x9732 F955E0 F0 D2 beq ?02 ; mismatch with bam 197339734 ; calc # of disk blocks free9735 F955E2 nfcalc:9736 F955E2 A5 08 lda track9737 F955E4 48 pha9738 F955E5 A5 19 lda drvnum9739 F955E7 0A asl a9740 F955E8 AA tax ; index9741 F955E9 74 6A stz ndbf,x9742 F955EB 74 6B stz ndbf+1,x9743 F955ED 86 93 stx tmp0 ; save index9744 F955EF A0 01 ldy #startrk9745 F955F1 88 dey9746 F955F2 C8 ?02: iny9747 F955F3 84 08 sty track9748 F955F5 C0 28 cpy #dirtrk9749 F955F7 F0 F9 beq ?02 ; skip dir track9750 F955F9 C0 51 cpy #maxtrk ; done ?9751 F955FB B0 16 bcs ?04 ; yes9752 F955FD 20 5D 4E jsr bamtrk ; set up next bam trk9753 F95600 A4 08 ldy track ; retrivie track9754 F95602 A9 00 lda #09755 F95604 EB xba ; B = 09756 F95605 A7 8D lda [bmpnt] ; A = get blks free9757 F95607 A6 93 ldx tmp0 ; retrivie index9758 F95609 ACC16CLC9759 F95609 C2 21 rep #(PMFLAG.OR.PCFLAG)Tue Jul 17 11:00:19 2018 Page 1319760 .LONGA on9761 .MNLIST9762 F9560B 75 6A adc ndbf,x ; up data count9763 F9560D 95 6A sta ndbf,x9764 F9560F ACC089765 F9560F E2 20 sep #PMFLAG9766 .LONGA off9767 .MNLIST9768 F95611 80 DF bra ?029769 F95613 18 ?04: clc9770 F95614 68 pla9771 F95615 85 08 sta track9772 F95617 A6 19 ldx drvnum9773 F95619 60 rts ; return with carry = 097749775 ; check bam header9776 ; Y = 1 when called9777 F9561A chkbam:9778 F9561A C8 iny9779 F9561B B7 0A lda [dirp],y ; bam disk version number9780 F9561D C9 44 cmp #dskvern9781 F9561F D0 07 bne ?02 ; error9782 F95621 C8 iny ; offset 39783 F95622 49 FF eor #$FF ; complement9784 F95624 D7 0A cmp [dirp],y ; bam1 compl. disk version number9785 F95626 F0 02 beq ?049786 F95628 38 ?02: sec ; return disk id mismatch error9787 F95629 60 rts9788 F9562A C8 ?04: iny ; offset 49789 F9562B B7 0A lda [dirp],y ; bam disk id 19790 F9562D DD FC E1 cmp !dskid1,x9791 F95630 D0 F6 bne ?029792 F95632 C8 iny ; offset 59793 F95633 B7 0A lda [dirp],y ; bam disk id 29794 F95635 DD FE E1 cmp !dskid2,x9795 F95638 D0 EE bne ?029796 F9563A C8 iny9797 F9563B 18 clc ; ok9798 F9563C 60 rts9799 F9563D9800 ; set pointer to directory header9801 ; return with X = drive9802 F9563D sethdp:9803 F9563D A6 19 ldx drvnum9804 F9563F B5 74 lda dirofs,x9805 F95641 B4 76 ldy dirbnk,x9806 F95643 64 0A stz dirp ; set pointer to system track cache9807 F95645 85 0B sta dirp+19808 F95647 84 0C sty dirp+29809 F95649 60 rts98109811 ; set pointer to track cache & sector9812 ; return with X = drive9813 F9564A setcp:9814 F9564A A6 19 ldx drvnum9815 F9564C B5 78 lda trkofs,x9816 F9564E B4 7A ldy trkbnk,xTue Jul 17 11:00:19 2018 Page 1329817 F95650 64 8A stz bufp ; set pointer to track cache9818 F95652 18 clc9819 F95653 65 09 adc sector9820 F95655 85 8B sta bufp+19821 F95657 84 8C sty bufp+29822 F95659 60 rts98239824 ; set pointer to write cache & sector9825 ; return with X = drive9826 F9565A setwb:9827 F9565A A6 19 ldx drvnum9828 F9565C B5 7C lda wrtofs,x9829 F9565E B4 7E ldy wrtbnk,x9830 F95660 64 90 stz wbuf ; set pointer to write cache9831 F95662 18 clc9832 F95663 65 09 adc sector9833 F95665 85 91 sta wbuf+19834 F95667 84 92 sty wbuf+29835 F95669 60 rts98369837 ; drive initialitation9838 ; check if drive is ready or if disk was changed9839 ; get low level disk format9840 ; read system track (logical track 40) and put in cache9841 ; fill drvfg flag for the given drive9842 F9566A drvint:9843 F9566A 20 9C 56 jsr fmttst ; check low level disk format...9844 F9566D B5 68 lda drvfg,x ; ...if drive is ready9845 F9566F 30 2A bmi ?10 ; system track already in cache9846 F95671 4A lsr a ; if <0> = 0 => ibm disk9847 F95672 90 08 bcc ?029848 F95674 4A lsr a ; if <1> = 0 => DD cbm disk9849 F95675 90 0A bcc ?049850 F95677 A9 15 lda #badfmt ; unsupported HD cbm format9851 F95679 4C F5 56 jmp drverr9852 F9567C A9 4E ?02: lda #ibmfmt ; is ibm format9853 F9567E 4C F5 56 jmp drverr9854 F95681 20 8F 57 ?04: jsr sysrd ; read system track into cache9855 F95684 B0 09 bcs ?06 ; error reading system track9856 F95686 20 3E 55 jsr hdrtst ; check directory header9857 F95689 90 08 bcc ?08 ; ok9858 F9568B A9 1D lda #badid ; mismatch header9859 F9568D 80 66 bra drverr9860 F9568F A9 4F ?06: lda #syterr9861 F95691 80 62 bra drverr9862 F95693 A6 19 ?08: ldx drvnum ; set good flag for drive9863 F95695 A9 80 lda #$809864 F95697 15 68 ora drvfg,x9865 F95699 95 68 sta drvfg,x9866 F9569B 60 ?10: rts98679868 ; test if disk is low-level formatted9869 ; report format in drvfg9870 ; return with X = drive9871 F9569C fmttst:9872 F9569C 20 B4 56 jsr dsktst ; check if disk inside drive9873 F9569F 34 68 bit drvfg,x ; check if already testedTue Jul 17 11:00:19 2018 Page 1339874 F956A1 70 10 bvs ?04 ; yes, format already recognized9875 F956A3 FDCGETFMT ; query disk format9876 F956A3 02 30 cop $309877 F956A5 04 .DB $049878 .MNLIST9879 F956A6 90 04 bcc ?02 ; ok, recognized format9880 F956A8 A9 15 lda #badfmt9881 F956AA 80 49 bra drverr9882 F956AC 98 ?02: tya ; format in bit 1,09883 F956AD 09 40 ora #$409884 F956AF 15 68 ora drvfg,x9885 F956B1 95 68 sta drvfg,x9886 F956B3 60 ?04: rts98879888 ; check if disk is inserted on a drive9889 ; return with X = drive9890 F956B4 dsktst:9891 F956B4 A6 19 ldx drvnum ; drive 0 or 19892 F956B6 FDCTST ; check if disk inserted9893 F956B6 02 30 cop $309894 F956B8 03 .DB $039895 .MNLIST9896 F956B9 B0 06 bcs ?02 ; check if disk was changed9897 F956BB 34 68 bit drvfg,x ; check if disk was inside drive at boot time9898 F956BD 30 2D bmi ?08 ; no, already init so exit9899 F956BF 10 0E bpl ?07 ; invalidate all cached data9900 F956C1 C0 11 ?02: cpy #FDC_CHANGE ; check error code9901 F956C3 F0 05 beq ?06 ; disk changed9902 F956C5 A9 4A ?04: lda #nodriv ; abort: no disk9903 F956C7 4C 07 41 jmp cmderr9904 F956CA ?06: FDCTST ; check again9905 F956CA 02 30 cop $309906 F956CC 03 .DB $039907 .MNLIST9908 F956CD B0 F6 bcs ?04 ; fatal error9909 F956CF 74 68 ?07: stz drvfg,x ; invalidate drive flags bcs disk changed9910 F956D1 74 84 stz wbam,x9911 F956D3 74 04 stz dirsec,x9912 F956D5 74 06 stz index,x9913 F956D7 74 02 stz delind,x9914 F956D9 74 00 stz delsec,x9915 F956DB 74 80 stz tcache,x9916 F956DD 74 82 stz wcache,x9917 F956DF FDCGETST ; get status drive9918 F956DF 02 30 cop $309919 F956E1 02 .DB $029920 .MNLIST9921 F956E2 B0 E1 bcs ?049922 F956E4 98 tya9923 F956E5 0A asl a ; test bit 69924 F956E6 10 04 bpl ?089925 F956E8 A9 10 lda #$109926 F956EA 95 68 sta drvfg,x9927 F956EC 60 ?08: rts99289929 ;---------------------------------------------------------------------------9930 ; error procedure'sTue Jul 17 11:00:19 2018 Page 1349931 ;---------------------------------------------------------------------------99329933 ; main error procedure9934 ; in: A = error code9935 ; track & sector9936 ; t & s = 0 for command error9937 ; t = drvnum for drive error level9938 ; t = chnl for channel error level9939 ; abort any procedure and return to caller with error code99409941 F956ED chnerr:9942 F956ED A6 52 ldx chnl9943 F956EF 86 08 stx track9944 F956F1 64 09 stz sector9945 F956F3 80 06 bra doserr99469947 F956F5 drverr:9948 F956F5 A6 19 ldx drvnum ; track = drive #9949 F956F7 86 08 stx track9950 F956F9 64 09 stz sector99519952 F956FB doserr:9953 F956FB 85 56 sta lsterr ; last error9954 F956FD A6 08 ldx track ; save track & sector for later use9955 F956FF 8E FA E1 stx etrk9956 F95702 A6 09 ldx sector9957 F95704 8E FB E1 stx esec9958 F95707 24 F8 bit trap ; set flag while open functiom9959 F95709 10 05 bpl ?109960 F9570B 20 F0 47 jsr frefd ; free fd9961 F9570E 64 F8 stz trap9962 F95710 ?10: INDEX169963 F95710 C2 10 rep #PXFLAG9964 .LONGI on9965 .MNLIST9966 F95712 AE F8 E1 ldx tos9967 F95715 9A txs ; recover stack pointer9968 F95716 INDEX089969 F95716 E2 10 sep #PXFLAG9970 .LONGI off9971 .MNLIST9972 F95718 38 sec ; error code in accum.9973 F95719 60 rts99749975 ; format error message -- called reading channel 159976 F9571A fmterr:9977 F9571A 20 44 57 jsr fnderr ; find error string9978 F9571D AE FB E1 ldx esec ; push params for _bsprintf9979 F95720 DA phx ; sector (1b)9980 F95721 AE FA E1 ldx etrk9981 F95724 DA phx ; track (1b)9982 F95725 4B phk ; error string bank (1b)9983 F95726 D4 3E pei (tlp) ; error string ptr (2b)9984 F95728 A5 56 lda lsterr9985 F9572A 48 pha ; error code (1b)9986 F9572B F4 60 00 pea #cmdlen ; size of dest. string (2b)9987 F9572E A9 00 lda #^cmdbuf ; dest string bank (1b)Tue Jul 17 11:00:19 2018 Page 1359988 F95730 48 pha9989 F95731 F4 00 E1 pea #cmdbuf ; dest string pointer (2b)9990 F95734 4B phk ; fmt string bank (1b)9991 F95735 F4 FC 5A pea #erfmt ; fmt string pointer (2b)9992 F95738 A9 0F lda #159993 F9573A 48 pha ; # params bytes (1b)9994 F9573B BSPRINTF9995 F9573B 02 12 cop $129996 .MNLIST9997 F9573D ACC169998 F9573D C2 20 rep #PMFLAG9999 .LONGA on10000 .MNLIST10001 F9573F 85 88 sta btrf ; save count of bytes10002 F95741 ACC0810003 F95741 E2 20 sep #PMFLAG10004 .LONGA off10005 .MNLIST10006 F95743 60 rts1000710008 ; find basic error string10009 F95744 fnderr:10010 F95744 A5 56 lda lsterr10011 F95746 F0 04 beq ?0010012 F95748 C9 49 cmp #cbmv210013 F9574A D0 06 bne ?0110014 F9574C 9C FA E1 ?00: stz etrk10015 F9574F 9C FB E1 stz esec10016 F95752 A9 11 ?01: lda #<ertbl10017 F95754 85 3E sta tlp10018 F95756 A9 5B lda #>ertbl10019 F95758 85 3F sta tlp+110020 F9575A A9 F9 lda #^ertbl10021 F9575C 85 40 sta tlp+210022 F9575E A7 3E ?02: lda [tlp] ; check error code10023 F95760 C5 56 cmp lsterr10024 F95762 F0 24 beq ?10 ; match10025 F95764 A0 01 ldy #110026 F95766 B7 3E ?04: lda [tlp],y10027 F95768 F0 03 beq ?06 ; end of string10028 F9576A C8 iny10029 F9576B 80 F9 bra ?04 ; find end of string10030 F9576D C8 ?06: iny10031 F9576E B7 3E lda [tlp],y10032 F95770 F0 0C beq ?08 ; end of table -- string not found10033 F95772 18 clc10034 F95773 98 tya10035 F95774 65 3E adc tlp10036 F95776 85 3E sta tlp10037 F95778 90 E4 bcc ?02 ; next string10038 F9577A E6 3F inc tlp+110039 F9577C 80 E0 bra ?0210040 F9577E A9 B1 ?08: lda #<uerr ; unknow error10041 F95780 85 3E sta tlp10042 F95782 A9 5E lda #>uerr10043 F95784 85 3F sta tlp+110044 F95786 80 06 bra ?12Tue Jul 17 11:00:19 2018 Page 13610045 F95788 E6 3E ?10: inc tlp ; found string10046 F9578A D0 02 bne ?1210047 F9578C E6 3F inc tlp+110048 F9578E 60 ?12: rts1004910050 ;---------------------------------------------------------------------------10051 ; phisycal access to disk10052 ;---------------------------------------------------------------------------10053 F9578F10054 ; read system track10055 ; return CF=1 if error10056 ; X=drive #10057 F9578F sysrd:10058 F9578F 86 F2 stx pdrv10059 F95791 A9 05 lda #5 ; try to read system track10060 F95793 85 93 sta tmp0 ; set pass count10061 F95795 DA ?02: phx ; drive #10062 F95796 A9 27 lda #dirtrk-1 ; physical system track10063 F95798 48 pha10064 F95799 B5 6E lda sysbuf,x ; dma buffer #10065 F9579B 48 pha10066 F9579C A9 01 lda #1 ; cbm format10067 F9579E 48 pha10068 F9579F FDCTKRD ; read whole track10069 F9579F 02 35 cop $3510070 F957A1 00 .DB $0010071 .MNLIST10072 F957A2 A6 F2 ldx pdrv10073 F957A4 90 04 bcc ?0410074 F957A6 C6 93 dec tmp010075 F957A8 D0 EB bne ?02 ; try again10076 F957AA 60 ?04: rts1007710078 ; read whole track into drive read cache, if not already in cache10079 F957AB tread:10080 F957AB A6 19 ldx drvnum10081 F957AD B5 80 lda tcache,x ; invalid cache?10082 F957AF F0 06 beq ?02 ; yes so read track10083 F957B1 C5 08 cmp track ; already in cache?10084 F957B3 F0 0B beq ?04 ; yes10085 F957B5 74 80 stz tcache,x ; invalidate cache10086 F957B7 B5 70 ?02: lda trkbuf,x ; dma buffer #10087 F957B9 20 63 58 jsr readtk10088 ;ldx drvnum10089 F957BC A5 08 lda track10090 F957BE 95 80 sta tcache,x ; validate cache10091 F957C0 60 ?04: rts1009210093 ; read whole track into drive write cache, if not already in cache10094 F957C1 wread:10095 F957C1 A6 19 ldx drvnum10096 F957C3 B5 82 lda wcache,x ; invalid cache?10097 F957C5 F0 06 beq ?02 ; yes so read track10098 F957C7 C5 08 cmp track ; already in cache?10099 F957C9 F0 0B beq ?04 ; yes10100 F957CB 74 82 stz wcache,x ; invalidate cache10101 F957CD B5 72 ?02: lda wrtbuf,x ; dma buffer #Tue Jul 17 11:00:19 2018 Page 13710102 F957CF 20 63 58 jsr readtk10103 ;ldx drvnum10104 F957D2 A5 08 lda track10105 F957D4 95 82 sta wcache,x ; validate cache10106 F957D6 60 ?04: rts1010710108 ; write out the system track10109 F957D7 syswr:10110 F957D7 A0 28 ldy #dirtrk10111 F957D9 84 08 sty track10112 F957DB A6 19 ldx drvnum10113 F957DD B5 6E lda sysbuf,x ; dma buffer #1011410115 ; write out a whole track from dma buffer10116 ; in: A=dma buffer#10117 ; X=drive #10118 ; track=logical track10119 F957DF writetk:10120 F957DF 85 F6 sta pbuf ; dma buffer #10121 F957E1 86 F2 stx pdrv10122 F957E3 A9 05 lda #5 ; write out whole track10123 F957E5 85 93 sta tmp0 ; set pass count10124 F957E7 DA ?02: phx ; drive #10125 F957E8 A5 08 lda track10126 F957EA 3A dec a ; phisycal track10127 F957EB 48 pha10128 F957EC A5 F6 lda pbuf10129 F957EE 48 pha ; dma buffer #10130 F957EF A9 81 lda #$8110131 F957F1 48 pha ; cbm format10132 F957F2 FDCTKWR10133 F957F2 02 35 cop $3510134 F957F4 02 .DB $0210135 .MNLIST10136 F957F5 A6 F2 ldx pdrv10137 F957F7 90 69 bcc lsp ; ok no error10138 F957F9 C6 93 dec tmp010139 F957FB D0 EA bne ?02 ; try again10140 F957FD A9 16 lda #wrtrk10141 F957FF 4C FB 56 jmp doserr1014210143 ; update on disk bam of current drive10144 ; write out logical sector 1 & 2 (phisycal sec 1 & 2)10145 F95802 bamout:10146 F95802 A9 02 lda #210147 F95804 85 F5 sta pcnt ; number of sector's to write out10148 F95806 A6 19 ldx drvnum ; X = drive #10149 F95808 B5 6E lda sysbuf,x ; dma buffer #10150 F9580A EB xba ; B = dma buffer #10151 F9580B A9 01 lda #1 ; A = first phisycal sector to write10152 F9580D A0 00 ldy #0 ; Y = side 010153 F9580F 80 05 bra wrsys21015410155 ; write given directory sector on disk10156 ; A = number of sec. to write out10157 F95811 wrsys:10158 F95811 85 F5 sta pcnt ; number of sector's to write outTue Jul 17 11:00:19 2018 Page 13810159 F95813 20 4D 58 jsr lsec2p ; convert logical sec to phis. sec & side1016010161 ; X=drive #10162 ; Y=side10163 ; A=start phisycal sec10164 ; B=dma buffer #10165 ; tpcnt=count #10166 F95816 wrsys2:10167 F95816 85 F4 sta psec ; first phisycal sector10168 F95818 EB xba10169 F95819 85 F6 sta pbuf ; dma buffer #10170 F9581B 86 F2 stx pdrv10171 F9581D 84 F3 sty pside10172 F9581F A9 28 lda #dirtrk10173 F95821 85 08 sta track10174 F9582310175 ; prepare stack params for call system function:10176 ; FDCWRITE(bDrive, bTrk, bHead, bSect, bNum, bBuf, bFlag)10177 F95823 A9 05 lda #510178 F95825 85 93 sta tmp0 ; set pass count10179 F95827 DA ?02: phx ; drive #10180 F95828 A5 08 lda track10181 F9582A 3A dec a ; phisycal track10182 F9582B 48 pha10183 F9582C A5 F3 lda pside10184 F9582E 48 pha ; side (head)10185 F9582F A5 F4 lda psec10186 F95831 48 pha ; phisycal sector10187 F95832 A5 F5 lda pcnt10188 F95834 48 pha ; sector's count to write out10189 F95835 A5 F6 lda pbuf10190 F95837 48 pha ; dma buffer10191 F95838 A9 81 lda #$81 ; A = 110192 F9583A 48 pha ; flag (cbm format, verify)10193 F9583B FDCWRITE10194 F9583B 02 31 cop $3110195 F9583D 02 .DB $0210196 .MNLIST10197 F9583E A6 F2 ldx pdrv10198 F95840 90 20 bcc lsp10199 F95842 C6 93 dec tmp010200 F95844 D0 E1 bne ?02 ; try again10201 F95846 74 68 stz drvfg,x ; ...invalidate drive #10202 F95848 A9 19 lda #wrsec ; write error10203 F9584A 4C FB 56 jmp doserr10204 F9584D10205 ; translate logical sector into phisycal sector & side10206 ; in: sector = logical sector10207 ; out: X = drive #10208 ; A = sector #10209 ; Y = side #10210 ; B = dma buffer #10211 F9584D lsec2p:10212 F9584D A6 19 ldx drvnum10213 F9584F A5 09 lda sector ; 0..3910214 F95851 4A lsr a ; 0..1910215 F95852 A8 tay ; saveTue Jul 17 11:00:19 2018 Page 13910216 F95853 18 clc ; add base dma buffer10217 F95854 75 6E adc sysbuf,x10218 F95856 EB xba ; B = dma buffer # that contain phis. sec.10219 F95857 98 tya10220 F95858 A0 00 ldy #0 ; side 010221 F9585A C9 0A cmp #phisec ; 0..9 -> side 0, 10..19 -> side 110222 F9585C 90 03 bcc ?0210223 F9585E E9 0A sbc #phisec10224 F95860 C8 iny ; side 110225 F95861 1A ?02: inc a ; A = phisycal sec10226 F95862 60 lsp: rts1022710228 ; read a whole track into dma buffer10229 ; in: A=dma buffer#10230 ; X=drive #10231 ; track=logical track10232 F95863 readtk:10233 F95863 85 F6 sta pbuf ; dma buffer #10234 F95865 86 F2 stx pdrv10235 F95867 A9 05 lda #510236 F95869 85 93 sta tmp0 ; set pass count10237 F9586B DA ?02: phx ; drive #10238 F9586C A5 08 lda track ; physical track10239 F9586E 3A dec a10240 F9586F 48 pha10241 F95870 A5 F6 lda pbuf ; dma buffer #10242 F95872 48 pha10243 F95873 A9 01 lda #1 ; cbm format10244 F95875 48 pha10245 F95876 FDCTKRD ; read whole track10246 F95876 02 35 cop $3510247 F95878 00 .DB $0010248 .MNLIST10249 F95879 A6 F2 ldx pdrv10250 F9587B 90 E5 bcc lsp ; ok, no error10251 F9587D C6 93 dec tmp010252 F9587F D0 EA bne ?02 ; try again10253 F95881 A9 14 lda #rdtrk ; error reading whole track10254 F95883 4C FB 56 jmp doserr1025510256 ; write out sector(s) from dma buffer10257 ; in: X=drive10258 ; Y=start phisycal sector10259 ; A=sector's count #10260 ; B=dma buffer #10261 ; pside=side10262 ; use tmp010263 F95886 writesec:10264 F95886 85 F5 sta pcnt ; count #10265 F95888 EB xba10266 F95889 85 F6 sta pbuf ; dma buffer #10267 F9588B 84 F4 sty psec10268 F9588D 86 F2 stx pdrv10269 F9588F A9 05 lda #5 ; set pass count10270 F95891 85 93 sta tmp010271 F95893 DA ?02: phx ; drive #10272 F95894 A5 08 lda trackTue Jul 17 11:00:19 2018 Page 14010273 F95896 3A dec a10274 F95897 48 pha ; phisycal track10275 F95898 A5 F3 lda pside10276 F9589A 48 pha ; side10277 F9589B A5 F4 lda psec10278 F9589D 48 pha ; start phisycal sector10279 F9589E A5 F5 lda pcnt10280 F958A0 48 pha ; count #: how much sec's10281 F958A1 A5 F6 lda pbuf10282 F958A3 48 pha ; dma buffer #10283 F958A4 A9 81 lda #$8110284 F958A6 48 pha ; cbm format10285 F958A7 FDCWRITE10286 F958A7 02 31 cop $3110287 F958A9 02 .DB $0210288 .MNLIST10289 F958AA A6 F2 ldx pdrv10290 F958AC 90 B4 bcc lsp ; ok no error10291 F958AE C6 93 dec tmp010292 F958B0 D0 E1 bne ?02 ; try again10293 F958B2 A9 19 lda #wrsec10294 F958B4 4C FB 56 jmp doserr1029510296 ; read sector(s) into dma buffer10297 ; use tmp010298 F958B7 readsec:10299 F958B7 A9 05 lda #5 ; set pass count10300 F958B9 85 93 sta tmp010301 F958BB A5 F2 ?02: lda pdrv ; drive #10302 F958BD 48 pha10303 F958BE A5 08 lda track10304 F958C0 3A dec a10305 F958C1 48 pha ; phisycal track10306 F958C2 A5 F3 lda pside10307 F958C4 48 pha ; side10308 F958C5 A5 F4 lda psec10309 F958C7 48 pha ; start phisycal sector10310 F958C8 A5 F5 lda pcnt10311 F958CA 48 pha ; count #: how much sec's10312 F958CB A5 F6 lda pbuf10313 F958CD 48 pha ; dma buffer #10314 F958CE A9 01 lda #110315 F958D0 48 pha ; cbm format10316 F958D1 FDCREAD10317 F958D1 02 31 cop $3110318 F958D3 00 .DB $0010319 .MNLIST10320 F958D4 A6 F2 ldx pdrv10321 F958D6 90 8A bcc lsp ; ok no error10322 F958D8 C6 93 dec tmp010323 F958DA D0 DF bne ?02 ; try again10324 F958DC A9 18 lda #rdsec10325 F958DE 4C FB 56 jmp doserr1032610327 ;---------------------------------------------------------------------------10328 ; low level format10329 ;---------------------------------------------------------------------------Tue Jul 17 11:00:19 2018 Page 1411033010331 F958E1 llfmt:10332 F958E1 20 5F 59 jsr ?11010333 F958E4 A5 19 lda drvnum10334 F958E6 48 pha ; drive #10335 F958E7 A9 C1 lda #$C110336 F958E9 48 pha ; flag (notify, verify, cbm fmt)10337 F958EA A9 00 lda #010338 F958EC 48 pha ; fill byte10339 F958ED 4B phk ; adress of callback10340 F958EE F4 03 59 pea #!?0810341 F958F1 FDCFORMAT10342 F958F1 02 33 cop $3310343 .MNLIST10344 F958F3 90 0D bcc ?06 ; ok10345 F958F5 C0 0B cpy #FDC_WP10346 F958F7 D0 04 bne ?0210347 F958F9 A9 1A lda #wpon10348 F958FB 80 02 bra ?0410349 F958FD A9 4D ?02: lda #fmter10350 F958FF 4C F5 56 ?04: jmp drverr10351 F95902 60 ?06: rts1035210353 ; callback function while formatting10354 ; In - A = drive10355 ; X = head10356 ; Y = track10357 ; B = sector/track10358 ; CF = 0 when called first time10359 F95903 ?08:10360 F95903 0B phd ; save DP10361 F95904 F4 00 7E pea #CBMFSP0 ; set new DP10362 F95907 2B pld10363 F95908 DA phx10364 F95909 C8 iny ; show track 1..8010365 F9590A 5A phy10366 F9590B B0 07 bcs ?1010367 F9590D SCNGETPOS ; first time get position on screen10368 F9590D 02 18 cop $1810369 F9590F 02 .DB $0210370 .MNLIST10371 F95910 86 94 stx wtmp10372 F95912 84 95 sty wtmp+110373 ;;SCN_CR10374 ;;bra ?2010375 F95914 A6 94 ?10: ldx wtmp10376 F95916 A4 95 ldy wtmp+110377 F95918 SCNSETPOS10378 F95918 02 18 cop $1810379 F9591A 03 .DB $0310380 .MNLIST10381 F9591B ?20:10382 ; X = head - param format in stack10383 ; Y = track - param format in stack10384 F9591B 48 pha ; A = drive #10385 F9591C 4B phk ; bank of format str10386 F9591D F4 27 59 pea #!?100 ; address of format strTue Jul 17 11:00:19 2018 Page 14210387 F95920 A9 07 lda #7 ; # params10388 F95922 48 pha10389 F95923 BPRINTF10390 F95923 02 11 cop $1110391 .MNLIST10392 F95925 2B pld10393 F95926 6B rtl1039410395 F95927 66 6F 72 6D 61 ?100: .DB 'format diskette on drive #%bu (track #%02bu, side #%bu)', $0074 20 64 69 736B 65 74 74 6520 6F 6E 20 6472 69 76 65 2023 25 62 75 2028 74 72 61 636B 20 23 25 3032 62 75 2C 2073 69 64 65 2023 25 62 75 29001039610397 ?110: ; format msg10398 F9595F A5 19 lda drvnum10399 F95961 48 pha10400 F95962 4B phk10401 F95963 F4 75 59 pea #!?12010402 F95966 A9 05 lda #510403 F95968 48 pha10404 F95969 BPRINTF10405 F95969 02 11 cop $1110406 .MNLIST10407 F9596B A9 59 lda #>?13010408 F9596D EB xba10409 F9596E A9 AB lda #<?13010410 F95970 A2 F9 ldx #^?13010411 F95972 SCNSTROUT10412 F95972 02 03 cop $0310413 .MNLIST10414 F95974 60 rts1041510416 F95975 0D 46 6F 72 6D ?120: .DB $0D, 'Format diskette on drive #%bu - cbm 1581 format type', 061 74 20 64 6973 6B 65 74 7465 20 6F 6E 2064 72 69 76 6520 23 25 62 7520 2D 20 63 626D 20 31 35 3831 20 66 6F 726D 61 74 20 7479 70 65 0010417 F959AB 0D 53 69 64 65 ?130: .DB $0D, 'Sides: 2, tracks: 80/side, sectors: 10/track, total: 1600', $0D, 073 3A 20 32 2C20 74 72 61 636B 73 3A 20 3830 2F 73 69 6465 2C 20 73 65Tue Jul 17 11:00:19 2018 Page 14363 74 6F 72 733A 20 31 30 2F74 72 61 63 6B2C 20 74 6F 7461 6C 3A 20 3136 30 30 0D 001041810419 ;---------------------------------------------------------------------------10420 ; emulator initialitation10421 ;---------------------------------------------------------------------------1042210423 ; init emulator -- called at boot time10424 F959E7 fscbmint:10425 .GLOBAL fscbmint10426 F959E710427 F959E7 0B phd ; save DP10428 F959E8 F4 00 7E pea #CBMFSP0 ; set DP of cbm f.s.10429 F959EB 2B pld10430 F959EC A2 00 ldx #010431 F959EE 74 00 ?02: stz <zpstart,x10432 F959F0 9E 00 E1 stz CBMFSW_START,x10433 F959F3 E8 inx10434 F959F4 D0 F8 bne ?0210435 F959F6 A9 FF lda #$FF10436 F959F8 85 58 sta linuse ; all free10437 F959FA A2 0E ldx #mxchnls-110438 F959FC 95 59 ?04: sta lintab,x ; all free10439 F959FE CA dex10440 F959FF 10 FB bpl ?0410441 F95A01 A9 49 lda #cbmv2 ; emulator compatibility10442 F95A03 85 56 sta lsterr10443 F95A05 A9 00 lda #DR0SYS10444 F95A07 85 6E sta sysbuf ; drive 0 system track cache10445 F95A09 20 51 5A jsr ?10010446 F95A0C 85 74 sta dirofs10447 F95A0E 84 76 sty dirbnk10448 F95A10 A9 24 lda #DR1SYS10449 F95A12 85 6F sta sysbuf+1 ; drive 1 system track cache10450 F95A14 20 51 5A jsr ?10010451 F95A17 85 75 sta dirofs+110452 F95A19 84 77 sty dirbnk+110453 F95A1B A9 48 lda #DR0CACHE10454 F95A1D 85 70 sta trkbuf ; drive 0 track cache10455 F95A1F 20 51 5A jsr ?10010456 F95A22 85 78 sta trkofs10457 F95A24 84 7A sty trkbnk10458 F95A26 A9 DC lda #DR1CACHE10459 F95A28 85 71 sta trkbuf+1 ; drive 1 track cache10460 F95A2A 20 51 5A jsr ?10010461 F95A2D 85 79 sta trkofs+110462 F95A2F 84 7B sty trkbnk+110463 F95A31 64 80 stz tcache ; invalidate track cache10464 F95A33 64 81 stz tcache+110465 F95A35 A9 6C lda #DMAFREE0 ; drive 0 write cache10466 F95A37 85 72 sta wrtbuf10467 F95A39 20 51 5A jsr ?10010468 F95A3C 85 7C sta wrtofsTue Jul 17 11:00:19 2018 Page 14410469 F95A3E 84 7E sty wrtbnk10470 F95A40 A9 C0 lda #DMAFREE1 ; drive 1 write cache10471 F95A42 85 73 sta wrtbuf+110472 F95A44 20 51 5A jsr ?10010473 F95A47 85 7D sta wrtofs+110474 F95A49 84 7F sty wrtbnk+110475 F95A4B 64 82 stz wcache ; invalidate write cache10476 F95A4D 64 83 stz wcache+110477 F95A4F 2B pld10478 F95A50 60 rts1047910480 ; calc effective high pointer10481 ; in: A = dma buffer10482 ; out: Y = bank10483 ; A = high pointer10484 F95A51 A0 02 ?100: ldy #DMABNK ; bank for buffer #00..#7F10485 F95A53 0A asl a ; get high pointer10486 F95A54 90 01 bcc ?10210487 F95A56 C8 iny ; next bank10488 F95A57 60 ?102: rts1048910490 ;---------------------------------------------------------------------------10491 ; tables10492 ;---------------------------------------------------------------------------1049310494 ; command search table10495 ; Rename Scratch New Exist Lock unlocK Append Transfer Move Quick-format10496 F95A58 52 53 4E 45 4C cmdtbl .DB 'RSNELKATMQ' ; these call tagcmd routine4B 41 54 4D 5110497 00000A pcmd .EQU $ - cmdtbl ; limit of no parsed cmds10498 00000B ldcmd .EQU pcmd + 1 ; load dir cmd image10499 ; Copy Validate Filecheck Init Duplicate10500 F95A62 43 56 46 49 44 .DB 'CVFID'10501 00000F ndcmd .EQU $ - cmdtbl ; limit for check drive10502 ; Block-op User10503 F95A67 42 55 .DB 'BU'10504 000011 ncmds .EQU $ - cmdtbl1050510506 ; Block-op subcmds: Read, Write, Alloc, Free, Position10507 F95A69 52 57 41 46 50 cmdstb .DB 'RWAFP'10508 000005 ncmds2 .EQU $ - cmdstb1050910510 ; template mask for cmds10511 F95A6E struct:10512 F95A6E DD .DB %11011101 ; Rename10513 F95A6F 1C .DB %00011100 ; Scratch (=type is optional)10514 F95A70 9E .DB %10011110 ; New10515 F95A71 DE .DB %11011110 ; Exist10516 F95A72 DE .DB %11011110 ; Lock10517 F95A73 DE .DB %11011110 ; unlocK10518 F95A74 D9 .DB %11011001 ; Append10519 F95A75 DD .DB %11011101 ; Transfer10520 F95A76 DD .DB %11011101 ; Move10521 F95A77 9E .DB %10011110 ; QuickF (like New)10522 F95A7810523 F95A78 51 .DB %01010001 ; Copy (basic mask)10524 F95A79 1C .DB %00011100 ; load dir templateTue Jul 17 11:00:19 2018 Page 1451052510526 F95A7A 52 57 41 4D modlst .DB 'RWAM' ; mode table10527 000004 nmodes .EQU $ - modlst10528 F95A7E 44 53 50 55 4C tplst .DB 'DSPULC' ; file type table4310529 F95A84 44 53 50 55 52 typlst .DB 'DSPURC' ; del,seq,prog,user,rel,cbm4310530 000006 ntypes .EQU $ - typlst10531 F95A8A 45 45 52 53 45 tp1lst .DB 'EERSEB'4210532 F95A90 4C 51 47 52 4C tp2lst .DB 'LQGRLM'4D1053310534 ; cbm file name bad char's10535 F95A96 3A 2C 3D 24 22 badchr .DB ':,=$"@' ; char's not allowed in file name4010536 000006 nbadch .EQU $ - badchr1053710538 F95A9C 62 6C 6F 63 6B fremsg .DB 'blocks free.'73 20 66 72 6565 2E10539 00000C msglen .EQU $-fremsg1054010541 ; bit mask10542 F95AA8 01 02 04 08 10 bmask .DB $01, $02, $04, $08, $10, $20, $40, $8020 40 8010543 F95AB0 0100 0200 0400 wmask .DW $0001, $0002, $0004, $0008, $0010, $0020, $0040, $00800800 1000 20004000 800010544 F95AC0 0001 0002 .DW $0100, $02001054510546 ; command functions table10547 F95AC4 cjump:10548 F95AC4 C435 CA32 1D34 .DW rename, scratch, newdsk, exist, lock, unlock3036 4236 7A3610549 F95AD0 CB36 9136 AD36 .DW append, transf, move, quickf, copy, vdate, fcheck1334 3A37 523B4B3B10550 F95ADE 053C 183C D93C .DW initd, dupd, blkb, blkuC03C1055110552 ; subcommand functions table10553 F95AE6 scjmp:10554 F95AE6 ED3D 823E CA3E .DW blkrd, blkwr, blkalc, blkfree, blkpos053F 403F1055510556 ; read, write, append, load dir, open dir, open blk10557 F95AF0 opncmd:10558 F95AF0 FA30 5031 8B31 .DW opnrd, opnwr, opnap, loaddir, opndir, opnblk3532 AB32 BE321055910560 ; error msg10561 F95AFC 25 30 32 62 75 erfmt: .DB '%02bu,%s,%02bu,%02bu', 02C 25 73 2C 2530 32 62 75 2C25 30 32 62 7500Tue Jul 17 11:00:19 2018 Page 1461056210563 F95B11 ertbl:10564 F95B11 00 4F 6B 00 .DB $00, 'Ok', 0 ; 0010565 F95B15 01 46 69 6C 65 .DB $01, 'Files scratched', 0 ; 0173 20 73 63 7261 74 63 68 6564 0010566 F95B26 14 54 72 61 63 .DB rdtrk, 'Track read error', 0 ; 206B 20 72 65 6164 20 65 72 726F 72 0010567 F95B38 15 42 61 64 20 .DB badfmt, 'Bad disk format (or unformatted disk)', 0 ; 2164 69 73 6B 2066 6F 72 6D 6174 20 28 6F 7220 75 6E 66 6F72 6D 61 74 7465 64 20 64 6973 6B 29 0010568 F95B5F 16 54 72 61 63 .DB wrtrk, 'Track write error', 0 ; 226B 20 77 72 6974 65 20 65 7272 6F 72 0010569 F95B72 18 52 65 61 64 .DB rdsec, 'Read error', 0 ; 2420 65 72 72 6F72 0010570 F95B7E 19 57 72 69 74 .DB wrsec, 'Write error', 0 ; 2565 20 65 72 726F 72 0010571 F95B8B 1A 57 72 69 74 .DB wpon, 'Write protect on', 0 ; 2665 20 70 72 6F74 65 63 74 206F 6E 0010572 F95B9D 1D 44 69 73 6B .DB badid, 'Disk ID mismatch', 0 ; 2920 49 44 20 6D69 73 6D 61 7463 68 0010573 F95BAF 1E 47 65 6E 65 .DB badsyn, 'General syntax error', 0 ; 3072 61 6C 20 7379 6E 74 61 7820 65 72 72 6F72 0010574 F95BC5 1F 49 6E 76 61 .DB badcmd, 'Invalid command', 0 ; 316C 69 64 20 636F 6D 6D 61 6E64 0010575 F95BD6 20 43 6F 6D 6D .DB longln, 'Command line too long', 0 ; 3261 6E 64 20 6C69 6E 65 20 746F 6F 20 6C 6F6E 67 0010576 F95BED 21 49 6E 76 61 .DB badfn, 'Invalid file name', 0 ; 336C 69 64 20 6669 6C 65 20 6E61 6D 65 0010577 F95C00 22 4D 69 73 73 .DB nofile, 'Missing file name', 0 ; 3469 6E 67 20 66Tue Jul 17 11:00:19 2018 Page 14769 6C 65 20 6E61 6D 65 0010578 F95C13 23 49 6C 6C 65 .DB baddrv, 'Illegal drive number', 0 ; 3567 61 6C 20 6472 69 76 65 206E 75 6D 62 6572 0010579 F95C29 24 49 6C 6C 65 .DB badchn, 'Illegal channel number', 0 ; 3667 61 6C 20 6368 61 6E 6E 656C 20 6E 75 6D62 65 72 0010580 F95C41 25 45 6D 70 74 .DB nullln, 'Empty command string', 0 ; 3779 20 63 6F 6D6D 61 6E 64 2073 74 72 69 6E67 0010581 F95C57 27 43 61 6E 6E .DB notsam, 'Cannot rename across drives', 0 ; 396F 74 20 72 656E 61 6D 65 2061 63 72 6F 7373 20 64 72 6976 65 73 0010582 F95C74 28 4C 6F 63 6B .DB flock, 'Locked file', 0 ; 4065 64 20 66 696C 65 0010583 F95C81 29 57 72 69 74 .DB fsplt, 'Write file not closed', 0 ; 4165 20 66 69 6C65 20 6E 6F 7420 63 6C 6F 7365 64 0010584 F95C98 2A 55 6E 6D 61 .DB bnotm, 'Unmatch blocks count', 0 ; 4274 63 68 20 626C 6F 63 6B 7320 63 6F 75 6E74 0010585 F95CAE 2B 49 6E 76 61 .DB invlnk, 'Invalid file link', 0 ; 436C 69 64 20 6669 6C 65 20 6C69 6E 6B 0010586 F95CC1 2C 57 72 6F 6E .DB badlst, 'Wrong index in last block', 0 ; 4467 20 69 6E 6465 78 20 69 6E20 6C 61 73 7420 62 6C 6F 636B 0010587 F95CDC 3C 46 69 6C 65 .DB filopn, 'File open', 0 ; 6020 6F 70 65 6E0010588 F95CE7 3D 46 69 6C 65 .DB filnop, 'File not open', 0 ; 6120 6E 6F 74 206F 70 65 6E 0010589 F95CF6 3E 46 69 6C 65 .DB flntfd, 'File not found', 0 ; 6220 6E 6F 74 2066 6F 75 6E 640010590 F95D06 3F 46 69 6C 65 .DB flexst, 'File exists', 0 ; 63Tue Jul 17 11:00:19 2018 Page 14820 65 78 69 7374 73 0010591 F95D13 40 46 69 6C 65 .DB mistyp, 'File type mismatch', 0 ; 6420 74 79 70 6520 6D 69 73 6D61 74 63 68 0010592 F95D27 42 49 6C 6C 65 .DB badts, 'Illegal track or sector', 0 ; 5567 61 6C 20 7472 61 63 6B 206F 72 20 73 6563 74 6F 72 0010593 F95D40 43 49 6C 6C 65 .DB systs, 'Illegal system track or sector', 0 ; 6767 61 6C 20 7379 73 74 65 6D20 74 72 61 636B 20 6F 72 2073 65 63 74 6F72 0010594 F95D60 44 57 72 69 74 .DB wrfil, 'Write only file', 0 ; 6865 20 6F 6E 6C79 20 66 69 6C65 0010595 F95D71 45 52 65 61 64 .DB rdfil, 'Read only file', 0 ; 6920 6F 6E 6C 7920 66 69 6C 650010596 F95D81 46 4E 6F 20 63 .DB nochnl, 'No channel available',0 ; 7068 61 6E 6E 656C 20 61 76 6169 6C 61 62 6C65 0010597 F95D97 47 44 69 72 65 .DB direrr, 'Directory error', 0 ; 7163 74 6F 72 7920 65 72 72 6F72 0010598 F95DA8 48 44 69 73 6B .DB dskful, 'Disk full', 0 ; 7220 66 75 6C 6C0010599 F95DB3 49 43 42 4D 20 .DB cbmv2, 'CBM DOS V10 1581 Emulator', 0 ; 7344 4F 53 20 5631 30 20 31 3538 31 20 45 6D75 6C 61 74 6F72 0010600 F95DCE 4A 44 72 69 76 .DB nodriv, 'Drive not ready', 0 ; 7465 20 6E 6F 7420 72 65 61 6479 0010601 F95DDF 4B 43 68 61 6E .DB opnchn, 'Channel is open',0 ; 756E 65 6C 20 6973 20 6F 70 656E 0010602 F95DF0 4C 4E 6F 20 6C .DB nolinx, 'No logical index available',0 ; 766F 67 69 63 616C 20 69 6E 6465 78 20 61 7661 69 6C 61 62Tue Jul 17 11:00:19 2018 Page 1496C 65 0010603 F95E0C 4D 46 6F 72 6D .DB fmter, 'Format error', 0 ; 7761 74 20 65 7272 6F 72 0010604 F95E1A 4E 49 42 4D 20 .DB ibmfmt, 'IBM formatted disk', 0 ; 7866 6F 72 6D 6174 74 65 64 2064 69 73 6B 0010605 F95E2E 4F 53 79 73 74 .DB syterr, 'System track read error', 0 ; 7965 6D 20 74 7261 63 6B 20 7265 61 64 20 6572 72 6F 72 0010606 F95E47 50 43 6F 72 72 .DB dirlnk, 'Corrupted directory link', 0 ; 8075 70 74 65 6420 64 69 72 6563 74 6F 72 7920 6C 69 6E 6B0010607 F95E61 51 43 6F 72 72 .DB bamcnt, 'Corrupted bam', 0 ; 8175 70 74 65 6420 62 61 6D 0010608 F95E70 52 52 65 63 75 .DB badcat, 'Recursive concat', 0 ; 8272 73 69 76 6520 63 6F 6E 6361 74 0010609 F95E82 53 49 6E 76 61 .DB badtlk, 'Invalid talk command', 0 ; 836C 69 64 20 7461 6C 6B 20 636F 6D 6D 61 6E64 0010610 F95E98 54 49 6E 76 61 .DB badlsn, 'Invalid listen command', 0 ; 846C 69 64 20 6C69 73 74 65 6E20 63 6F 6D 6D61 6E 64 0010611 F95EB010612 F95EB0 00 .DB 0 ; end of table1061310614 F95EB1 uerr:10615 F95EB1 55 6E 6B 6E 6F .DB 'Unknow error', 077 20 65 72 726F 72 00Lines Assembled : 10081 Errors : 0