Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1 | - | 1 | Tue Jul 17 11:00:24 2018 Page 1 |
2 | |||
3 | |||
4 | |||
5 | |||
6 | |||
7 | |||
8 | |||
9 | 2500 A.D. 65816 Macro Assembler #26960 - Version 5.02g |
||
10 | ----------------------------------------------------- |
||
11 | |||
12 | Input Filename : src\FF\mond.asm |
||
13 | Output Filename : obj\FF\mond.obj |
||
14 | Listing Has Been Relocated |
||
15 | |||
16 | |||
17 | 2593 .LIST on |
||
18 | 2594 |
||
19 | 2595 F8FFB1 .INCLUDE inc\dirp00.inc |
||
20 | 2596 ;---------------------------------------------------------- |
||
21 | 2597 ; DIRP00.ASM |
||
22 | 2598 ; PROGETTO: B1601 |
||
23 | 2599 ; |
||
24 | 2600 ; Variabili in Direct Page $00 |
||
25 | 2601 ;---------------------------------------------------------- |
||
26 | 2602 |
||
27 | 2603 ; sezione COMMON -- questo permette di includere il file in piu' file |
||
28 | 2604 |
||
29 | 2605 .LIST on |
||
30 | 2606 |
||
31 | 2607 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 00 |
||
32 | 2608 |
||
33 | 2609 000000 .ABSOLUTE ;; inizia sempre da $00 |
||
34 | 2610 000000 .ORG 0x00 |
||
35 | 2611 000000 |
||
36 | 2612 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit |
||
37 | 2613 000002 0000 .DW |
||
38 | 2614 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms) |
||
39 | 2615 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start) |
||
40 | 2616 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok |
||
41 | 2617 ; <6>: flag warm reset |
||
42 | 2618 00000D 00 RTCFlag .DB |
||
43 | 2619 |
||
44 | 2620 00000E diskstat .DS 2 ; flag device on ata bus #0 & #1 |
||
45 | 2621 ; <7>: device ready |
||
46 | 2622 ; <6>: compact flash device (C.F.) |
||
47 | 2623 ; <5>: device identification ok |
||
48 | 2624 ; <4>: MBR loaded |
||
49 | 2625 ; <3>: valid signature in MBR |
||
50 | 2626 ; <2>: first partition found&active |
||
51 | 2627 ; <1>: |
||
52 | 2628 ; <0>: valid partition flag |
||
53 | 2629 |
||
54 | 2630 ; <7>: device ready |
||
55 | 2631 ; <6>: USB device |
||
56 | 2632 ; <5>: compact flash device (C.F.) |
||
57 | 2633 ; <4>: device identification ok |
||
58 | 2634 ; <3>: MBR loaded |
||
59 | 2635 ; <2>: first partition found&active |
||
60 | 2636 ; <1>: always 1 |
||
61 | 2637 ; <0>: valid partition flag |
||
62 | 2638 000010 |
||
63 | Tue Jul 17 11:00:24 2018 Page 2 |
||
64 | |||
65 | |||
66 | |||
67 | |||
68 | 2639 |
||
69 | 2640 00000E atadev .EQU diskstat |
||
70 | 2641 |
||
71 | 2642 000010 usbdev .DS 2 ; flag flash disk on usb bus #0 |
||
72 | 2643 ; <7>: device plugged and ready |
||
73 | 2644 ; <6>: always 1 |
||
74 | 2645 ; <5>: device identification ok |
||
75 | 2646 ; <4>: MBR loaded |
||
76 | 2647 ; <3>: valid signature in MBR |
||
77 | 2648 ; <2>: first partition found&active |
||
78 | 2649 ; <1>: |
||
79 | 2650 ; <0>: valid partition flag |
||
80 | 2651 |
||
81 | 2652 000012 diskmax .DS 16 ; disk max. sector's |
||
82 | 2653 000012 atasec .EQU diskmax |
||
83 | 2654 00001A usbsec .EQU diskmax+8 |
||
84 | 2655 |
||
85 | 2656 |
||
86 | 2657 000022 atambr .DS 8 ; data for first partition found in mbr |
||
87 | 2658 ; first 3 bytes for start sector of partition |
||
88 | 2659 ; last byte for partition type |
||
89 | 2660 00002A usbmbr .DS 8 |
||
90 | 2661 |
||
91 | 2662 000032 ataprt .DS 8 ; total sec's of first partition |
||
92 | 2663 00003A usbprt .DS 8 ; total sec's of first partition |
||
93 | 2664 |
||
94 | 2665 |
||
95 | 2666 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag |
||
96 | 2667 ; <7>: module on |
||
97 | 2668 ; <6>: ch376 flag |
||
98 | 2669 ; <5:0>: chip version |
||
99 | 2670 |
||
100 | 2671 000043 00 usb0st .DB ; usb0 status |
||
101 | 2672 ; <7>: usb0 host mode ok |
||
102 | 2673 ; <6>: flash disk attached flag |
||
103 | 2674 ; <5>: usb device attached |
||
104 | 2675 |
||
105 | 2676 000044 00 fdcdrv .DB ; phisycal drive status (drive #0) |
||
106 | 2677 ; <7>: disk format established in bit 0&1 |
||
107 | 2678 ; <6>: double step seek done |
||
108 | 2679 ; <5>: trust format bit's (set after ok r/w) |
||
109 | 2680 ; <4>: write protect bit (if disk in drive) |
||
110 | 2681 ; <3>: don't care |
||
111 | 2682 ; <2>: don't care |
||
112 | 2683 ; <1>: HD disk if set else DD disk |
||
113 | 2684 ; <0>: CBM format if set else IBM format |
||
114 | 2685 |
||
115 | 2686 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1) |
||
116 | 2687 ; <7>: disk format established in bit 0&1 |
||
117 | 2688 ; <6>: change disk simulation (after format) |
||
118 | 2689 ; <5>: don't care |
||
119 | 2690 ; <4>: write protect bit (under sw control) |
||
120 | 2691 ; <3>: don't care |
||
121 | 2692 ; <2>: don't care |
||
122 | 2693 ; <1>: HD disk if set else DD disk |
||
123 | 2694 ; <0>: CBM format if set else IBM format |
||
124 | 2695 |
||
125 | Tue Jul 17 11:00:24 2018 Page 3 |
||
126 | |||
127 | |||
128 | |||
129 | |||
130 | 2696 000046 00 fdcctl .DB ; fdc controller status |
||
131 | 2697 ; <7>: drive is attached |
||
132 | 2698 ; <6>: drive need recalibration (restore) |
||
133 | 2699 ; <5>: FDC controller ok |
||
134 | 2700 ; <4>: motor on |
||
135 | 2701 ; <3>: dma is active |
||
136 | 2702 ; <2>: dma chip ok (post routine) |
||
137 | 2703 ; <1>: clock rate (1=HD,0=DD) |
||
138 | 2704 ; <0>: disk ready |
||
139 | 2705 |
||
140 | 2706 000047 00 fdctrk .DB ; fd: current seek track |
||
141 | 2707 000048 00 fdcerr .DB ; fd: last error code |
||
142 | 2708 000049 00 ataerr .DB ; ata: last error code |
||
143 | 2709 00004A 00 ataxer .DB ; ata: last extended error code |
||
144 | 2710 |
||
145 | 2711 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI) |
||
146 | 2712 |
||
147 | 2713 00004C 0000 MemTop .DW ; top memoria RAM |
||
148 | 2714 00004E 00 .DB ; banco top mem |
||
149 | 2715 |
||
150 | 2716 00004F 00 DflTxtIn .DB ; device di default text input |
||
151 | 2717 000050 00 DflTxtOut .DB ; device di default text output |
||
152 | 2718 |
||
153 | 2719 000051 COPPtr LP ; long pointer for COP decoding |
||
154 | 2720 000054 00 COPIdx .DB ; COP signature/index |
||
155 | 2721 |
||
156 | 2722 000055 00 BiosEnt .DB ; flag accesso a bios setup |
||
157 | 2723 |
||
158 | 2724 ; variabili utilizzate da ACIA |
||
159 | 2725 000056 spwrk .DS $30 |
||
160 | 2726 |
||
161 | 2727 ; bios mem |
||
162 | 2728 000086 0000 nsize .DW ; dimensione blocco da allocare |
||
163 | 2729 ;bsize .DW ; dimensione vera blocco free |
||
164 | 2730 000088 0000 splitsz .DW ; dimensione blocco splittato |
||
165 | 2731 00008A 0000 bfree .DW ; puntatore blocco free |
||
166 | 2732 00008C 0000 hdrptr .DW ; puntatore header heap |
||
167 | 2733 |
||
168 | 2734 00008E 0000 pbrklv .DW ; current break level of current process |
||
169 | 2735 000090 0000 pbrkmin .DW ; minimum breal level of current process |
||
170 | 2736 000092 0000 pbrkmax .DW ; maximum breal level of current process |
||
171 | 2737 000094 |
||
172 | 2738 ; bios temp. work area |
||
173 | 2739 000094 bwrktmp .DS $28 |
||
174 | 2740 |
||
175 | 2741 0000BC 00 coptmp .DB ; temp. used while cop |
||
176 | 2742 |
||
177 | 2743 0000BD 00 tstser .DB ; check ser/usb test board post |
||
178 | 2744 ; <7>: VIA2 ok |
||
179 | 2745 ; <6>: PICRAM ok |
||
180 | 2746 ; <1>: UART 16C550 ok |
||
181 | 2747 ; <0>: R65C51 ok |
||
182 | 2748 |
||
183 | 2749 |
||
184 | 2750 ;crc16 .DW |
||
185 | 2751 |
||
186 | 2752 0000BD .RELATIVE |
||
187 | Tue Jul 17 11:00:24 2018 Page 4 |
||
188 | |||
189 | |||
190 | |||
191 | |||
192 | 2753 |
||
193 | 2754 .ENDS |
||
194 | 2755 |
||
195 | 2756 [01] .IFDEF _ACIA_INC_ |
||
196 | 2757 F8FFB1 .INCLUDE INC\SP.INC |
||
197 | 2758 ;; |
||
198 | 2759 ;; Copyright (c) 2016 Marco Granati <mg@unet.bz> |
||
199 | 2760 ;; |
||
200 | 2761 ;; Permission to use, copy, modify, and distribute this software for any |
||
201 | 2762 ;; purpose with or without fee is hereby granted, provided that the above |
||
202 | 2763 ;; copyright notice and this permission notice appear in all copies. |
||
203 | 2764 ;; |
||
204 | 2765 ;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES |
||
205 | 2766 ;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF |
||
206 | 2767 ;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR |
||
207 | 2768 ;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES |
||
208 | 2769 ;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN |
||
209 | 2770 ;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF |
||
210 | 2771 ;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
||
211 | 2772 ;; |
||
212 | 2773 |
||
213 | 2774 ;; name: sp.inc |
||
214 | 2775 ;; rev.: 2016/07/28 |
||
215 | 2776 ;; bios C816 version v1.0 |
||
216 | 2777 |
||
217 | 2778 .LIST on |
||
218 | 2779 |
||
219 | 2780 000001 SOH .EQU $01 |
||
220 | 2781 000002 STX .EQU $02 |
||
221 | 2782 000003 ETX .EQU $03 |
||
222 | 2783 000004 EOT .EQU $04 |
||
223 | 2784 000005 ENQ .EQU $05 |
||
224 | 2785 000006 ACK .EQU $06 |
||
225 | 2786 000010 DLE .EQU $10 |
||
226 | 2787 000016 SYN .EQU $16 |
||
227 | 2788 |
||
228 | 2789 002000 SOBUFSIZ .EQU $2000 ; dimensione coda TX1/TX2 ACIA (8K) |
||
229 | 2790 ;SOBUFSIZ .EQU $0100 ; dimensione coda TX1/TX2 ACIA (8K) |
||
230 | 2791 004000 SIBUFSIZ .EQU $4000 ; dimensione coda RX1/RX2 ACIA (16K) |
||
231 | 2792 ;SIBUFSIZ .EQU $0100 ; dimensione coda RX1/RX2 ACIA (16K) |
||
232 | 2793 |
||
233 | 2794 000080 NGUARD1 .EQU $80 ; numero bytes di guardia buffer RX XON/XOFF |
||
234 | 2795 000040 NGUARD2 .EQU $40 ; numero bytes di guardia buffer RX handshake |
||
235 | 2796 ;NGUARD1 .EQU $40 ; numero bytes di guardia buffer RX XON/XOFF |
||
236 | 2797 ;NGUARD2 .EQU $20 ; numero bytes di guardia buffer RX handshake |
||
237 | 2798 001000 NFREE1 .EQU $1000 ; minimo posto in coda RX per cancellare pausa remota |
||
238 | 2799 000800 NFREE2 .EQU $0800 |
||
239 | 2800 ;NGUARD3 .EQU $F0 |
||
240 | 2801 ;NGUARD4 .EQU $F8 |
||
241 | 2802 |
||
242 | 2803 ;--------------------------------------------------------------------------- |
||
243 | 2804 ; direct page var's for serial ports handling |
||
244 | 2805 ;--------------------------------------------------------------------------- |
||
245 | 2806 |
||
246 | 2807 DPSP: .SECTION page0, common, ref_only, offset spwrk ;ACIA D.P. |
||
247 | 2808 |
||
248 | 2809 000056 _DPSP_START .DS 0 |
||
249 | Tue Jul 17 11:00:24 2018 Page 5 |
||
250 | |||
251 | |||
252 | |||
253 | |||
254 | 2810 |
||
255 | 2811 ; WARNING: not change order and type of the following variables |
||
256 | 2812 |
||
257 | 2813 ; acia 1 var's |
||
258 | 2814 000056 00 splin .DB ; interrupt status register |
||
259 | 2815 000057 00 spcsr .DB ; control status register |
||
260 | 2816 000058 00 spfr .DB ; format register |
||
261 | 2817 000059 00 spout .DB ; XON/XOFF send flag |
||
262 | 2818 |
||
263 | 2819 ; acia 2 var's |
||
264 | 2820 00005A 00 splin2 .DB ; interrupt status register |
||
265 | 2821 00005B 00 spcsr2 .DB ; control status register |
||
266 | 2822 00005C 00 spfr2 .DB ; format register |
||
267 | 2823 00005D 00 spout2 .DB ; XON/XOFF send flag |
||
268 | 2824 |
||
269 | 2825 ; serial port's mode & status |
||
270 | 2826 00005E 00 spmode .DB ; <7>: 0=no handshake, 1=handshake |
||
271 | 2827 ; <6>: 0=software/1=hardware handshake |
||
272 | 2828 ; <5>: not used |
||
273 | 2829 ; <4>: baud rate: 0=19200, 1=38400 |
||
274 | 2830 ; <3>: 0=odd parity, 1=even parity |
||
275 | 2831 ; <2>: 0=no parity, 1=parity as specified |
||
276 | 2832 ; by bit <3> |
||
277 | 2833 ; <1>: interface type: 0=RS232, 1=RS485 |
||
278 | 2834 ; <0>: RS232: uplink flow control (RTS/DCD) |
||
279 | 2835 ; RS485: 120 ohm termination on |
||
280 | 2836 ; if bit 7=1 and bit 1=1, bit 6 is forced to 0 |
||
281 | 2837 00005F |
||
282 | 2838 00005F 00 spstat .DB ; serial port status |
||
283 | 2839 ; <7>: rx error (data discarded) |
||
284 | 2840 ; <6>: rx buffer overflow |
||
285 | 2841 ; <5>: remote disconnession (DSR line = 1) |
||
286 | 2842 ; <4>: output buffer overflow |
||
287 | 2843 ; <3>: not used |
||
288 | 2844 ; <2>: framing error |
||
289 | 2845 ; <1>: parity error |
||
290 | 2846 ; <0>: overrun error |
||
291 | 2847 |
||
292 | 2848 000060 00 sppause .DB ; local/remote pause flag's |
||
293 | 2849 ; <7>: remote pause (sent an XON or set RTS=1) |
||
294 | 2850 ; <6>: local pause (received an XON or CTS=1) |
||
295 | 2851 |
||
296 | 2852 000061 00 sptmp .DB ; temp. byte used while get data |
||
297 | 2853 |
||
298 | 2854 ; serial port's mode & status |
||
299 | 2855 000062 00 spmode2 .DB ; <7>: 0=no handshake, 1=handshake |
||
300 | 2856 ; <6>: 0=software/1=hardware handshake |
||
301 | 2857 ; <5>: not used |
||
302 | 2858 ; <4>: baud rate: 0=19200, 1=38400 |
||
303 | 2859 ; <3>: 0=odd parity, 1=even parity |
||
304 | 2860 ; <2>: 0=no parity, 1=parity as specified |
||
305 | 2861 ; by bit <3> |
||
306 | 2862 ; <1>: interface type: 0=RS232, 1=RS485 |
||
307 | 2863 ; <0>: RS232: uplink flow control (RTS/DCD) |
||
308 | 2864 ; RS485: 120 ohm termination on |
||
309 | 2865 ; if bit 7=1 and bit 1=1, bit 6 is forced to 0 |
||
310 | 2866 000063 |
||
311 | Tue Jul 17 11:00:24 2018 Page 6 |
||
312 | |||
313 | |||
314 | |||
315 | |||
316 | 2867 000063 00 spstat2 .DB ; serial port status |
||
317 | 2868 ; <7>: rx error (data discarded) |
||
318 | 2869 ; <6>: rx buffer overflow |
||
319 | 2870 ; <5>: remote disconnession (DSR line = 1) |
||
320 | 2871 ; <4>: output buffer overflow |
||
321 | 2872 ; <3>: not used |
||
322 | 2873 ; <2>: framing error |
||
323 | 2874 ; <1>: parity error |
||
324 | 2875 ; <0>: overrun error |
||
325 | 2876 |
||
326 | 2877 000064 00 sppause2 .DB ; local/remote pause flag's |
||
327 | 2878 ; <7>: remote pause (sent XOFF/XON or RTS=1/0) |
||
328 | 2879 ; <6>: local pause (rx XOFF/XON or CTS=0/1) |
||
329 | 2880 |
||
330 | 2881 000065 00 sppost .DB ; after POST must hold $C0 |
||
331 | 2882 |
||
332 | 2883 000066 0000 ibuftail .DW ; pointer to tail of input buffer |
||
333 | 2884 000068 0000 ibufhead .DW ; pointer to head of input buffer |
||
334 | 2885 00006A 0000 ibuftail2 .DW |
||
335 | 2886 00006C 0000 ibufhead2 .DW |
||
336 | 2887 |
||
337 | 2888 00006E 0000 obuftail .DW ; pointer to tail of output buffer |
||
338 | 2889 000070 0000 obufhead .DW ; pointer to head of output buffer |
||
339 | 2890 000072 0000 obuftail2 .DW |
||
340 | 2891 000074 0000 obufhead2 .DW |
||
341 | 2892 |
||
342 | 2893 000076 0000 ibufcnt .DW ; count of bytes in input buffer |
||
343 | 2894 000078 0000 obufcnt .DW ; count of bytes in output buffer |
||
344 | 2895 00007A 0000 ibufcnt2 .DW |
||
345 | 2896 00007C 0000 obufcnt2 .DW |
||
346 | 2897 |
||
347 | 2898 00007E 0000 icntmin .DW ; min. count for clear remote pause |
||
348 | 2899 000080 0000 icntmax .DW ; max. count for set remote pause |
||
349 | 2900 000082 0000 icntmin2 .DW |
||
350 | 2901 000084 0000 icntmax2 .DW |
||
351 | 2902 |
||
352 | 2903 000086 _DPSP_END .DS 0 |
||
353 | 2904 000030 DPSPSIZ .EQU (_DPSP_END - _DPSP_START) |
||
354 | 2905 |
||
355 | 2906 |
||
356 | 2907 .ENDS |
||
357 | 2908 |
||
358 | 2909 00005F ACIArxe_1 .EQU spstat |
||
359 | 2910 000063 ACIArxe_2 .EQU spstat2 |
||
360 | 2911 00005E ACIAhsk_1 .EQU spmode |
||
361 | 2912 000062 ACIAhsk_2 .EQU spmode2 |
||
362 | 2913 000060 ACIAPause_1 .EQU sppause |
||
363 | 2914 000064 ACIAPause_2 .EQU sppause2 |
||
364 | 2915 000057 ACIAcsr_1 .EQU spcsr |
||
365 | 2916 00005B ACIAcsr_2 .EQU spcsr2 |
||
366 | 2917 000058 ACIAfr_1 .EQU spfr |
||
367 | 2918 00005C ACIAfr_2 .EQU spfr2 |
||
368 | 2919 000060 ACIAOut_1 .EQU sppause |
||
369 | 2920 000064 ACIAOut_2 .EQU sppause2 |
||
370 | 2921 000076 ACIAICnt_1 .EQU ibufcnt |
||
371 | 2922 00007A ACIAICnt_2 .EQU ibufcnt2 |
||
372 | 2923 000068 ACIAIHead_1 .EQU ibufhead |
||
373 | Tue Jul 17 11:00:24 2018 Page 7 |
||
374 | |||
375 | |||
376 | |||
377 | |||
378 | 2924 00006C ACIAIHead_2 .EQU ibufhead2 |
||
379 | 2925 000066 ACIAITail_1 .EQU ibuftail |
||
380 | 2926 00006A ACIAITail_2 .EQU ibuftail2 |
||
381 | 2927 000078 ACIAOCnt_1 .EQU obufcnt |
||
382 | 2928 00007C ACIAOCnt_2 .EQU obufcnt2 |
||
383 | 2929 000070 ACIAOHead_1 .EQU obufhead |
||
384 | 2930 000074 ACIAOHead_2 .EQU obufhead2 |
||
385 | 2931 00006E ACIAOTail_1 .EQU obuftail |
||
386 | 2932 000072 ACIAOTail_2 .EQU obuftail2 |
||
387 | 2933 |
||
388 | 2934 002000 ACIAOBUFLEN .EQU SOBUFSIZ |
||
389 | 2935 004000 ACIAIBUFLEN .EQU SIBUFSIZ |
||
390 | 2936 050000 ACIAOUTBUF1 .EQU SPOUTBUFF |
||
391 | 2937 052000 ACIAOUTBUF2 .EQU SPOUTBUFF2 |
||
392 | 2938 054000 ACIAINBUF1 .EQU SPINBUFF |
||
393 | 2939 058000 ACIAINBUF2 .EQU SPINBUFF2 |
||
394 | 2940 |
||
395 | 2941 000061 ACIATmp .EQU sptmp |
||
396 | 2942 |
||
397 | 2960 .LIST on |
||
398 | 2961 |
||
399 | 2962 000060 KBDBUFLEN .EQU 96 ; dimensione buffer di tastiera |
||
400 | 2963 |
||
401 | 2964 DIRP01: .SECTION page0, ref_only, common ;Direct-Page 01 |
||
402 | 2965 |
||
403 | 2966 000000 .ABSOLUTE ;; inizia sempre da $00 |
||
404 | 2967 000000 .ORG 0x00 |
||
405 | 2968 |
||
406 | 2969 000000 |
||
407 | 2970 000000 KbdBuf .DS KBDBUFLEN ; buffer della tastiera |
||
408 | 2971 000060 00 KbdITail .DB ; coda buffer tastiera |
||
409 | 2972 000061 00 KbdIHead .DB ; testa buffer tastiera |
||
410 | 2973 000062 00 KbdCnt .DB ; numero bytes nel buffer |
||
411 | 2974 000063 00 KbdShift .DB |
||
412 | 2975 000064 00 KbdFlag .DB |
||
413 | 2976 000065 00 KbdToggle .DB |
||
414 | 2977 000066 00 KbdSt .DB ; status tastiera dopo reset |
||
415 | 2978 000067 00 PS2Ctl .DB ; flag controller PS2 keyboard |
||
416 | 2979 |
||
417 | 2980 000068 00 LCDFlag .DB |
||
418 | 2981 000069 00 LCDTmp .DB |
||
419 | 2982 00006A 0000 LCDVal .DW |
||
420 | 2983 |
||
421 | 2984 00006C 00 VBBFlag .DB ; flag video board |
||
422 | 2985 00006D 00 VBBRam .DB ; flag video RAM |
||
423 | 2986 |
||
424 | 2987 00006E 00 ScnLinTmp .DB |
||
425 | 2988 00006F 00 ScnChBase .DB ; base video ram VDC |
||
426 | 2989 000070 00 ScnAttBase .DB ; base ram attributi VDC |
||
427 | 2990 000071 00 ScnCursMode .DB ; VDC cursore default |
||
428 | 2991 000072 00 ScnSaveAttr .DB |
||
429 | 2992 000073 00 ScnInsert .DB |
||
430 | 2993 000074 00 ScnAutoIns .DB ; bit 7 -> autoins - bit 6 -> modo input |
||
431 | 2994 000075 00 ScnScroll .DB |
||
432 | 2995 000076 00 ScnMaxRow .DB ; max. righe finestra (-1) |
||
433 | 2996 000077 00 ScnMaxCols .DB ; max. colonne finestra (-1) |
||
434 | 2997 |
||
435 | Tue Jul 17 11:00:24 2018 Page 8 |
||
436 | |||
437 | |||
438 | |||
439 | |||
440 | 2998 000078 ScnMapTabs1 .DS 10 |
||
441 | 2999 000082 ScnMapTabs2 .DS 4 |
||
442 | 3000 000086 |
||
443 | 3001 000086 0000 ScnPtr .DW ; puntatore video ram linea corrente |
||
444 | 3002 000088 00 .DB |
||
445 | 3003 |
||
446 | 3004 000089 00 ScnFiltLen .DB ; lunghezza set caratteri filtro |
||
447 | 3005 |
||
448 | 3006 00008A 0000 ScnAtPtr .DW ; puntatore attributi ram linea corrente |
||
449 | 3007 00008C 00 .DB |
||
450 | 3008 |
||
451 | 3009 00008D 00 ScnTmpx .DB ; temporaneo: durante put char |
||
452 | 3010 00008E |
||
453 | 3011 00008E 00 ScnTop .DB ; riga superiore finestra |
||
454 | 3012 00008F 00 ScnLeft .DB ; colonna sinistra finestra |
||
455 | 3013 000090 00 ScnBottom .DB ; riga inferiore finestra |
||
456 | 3014 000091 00 ScnRight .DB ; colonna destra finestra |
||
457 | 3015 000092 00 ScnAttr .DB ; attributo default |
||
458 | 3016 000093 00 ScnAttr2 .DB ; attributo alternativo |
||
459 | 3017 000094 00 ScnRow .DB ; riga cursore |
||
460 | 3018 000095 00 ScnCol .DB ; colonna cursore |
||
461 | 3019 000096 00 ScnRowStart .DB ; riga di start input |
||
462 | 3020 000097 00 ScnInput .DB ; riga di fine input |
||
463 | 3021 000098 00 ScnColStart .DB ; colonna di start input |
||
464 | 3022 000099 00 ScnSaveX .DB |
||
465 | 3023 00009A 00 ScnSaveY .DB |
||
466 | 3024 00009B 00 ScnTmpL .DB |
||
467 | 3025 00009C 00 ScnTmpH .DB |
||
468 | 3026 00009D 00 ScnSaveRow .DB |
||
469 | 3027 00009E 00 ScnSaveCol .DB |
||
470 | 3028 00009F 00 ScnCurChr .DB |
||
471 | 3029 0000A0 00 ScnLstChr .DB |
||
472 | 3030 0000A1 00 ScnCR .DB |
||
473 | 3031 0000A2 0000 ScnPrm .DW ; puntatore long utilizzato da print imm |
||
474 | 3032 0000A4 00 .DB ; banco puntatore ScnPrm |
||
475 | 3033 0000A5 00 ScnMode .DB ; flag modo schermo |
||
476 | 3034 |
||
477 | 3035 0000A6 ScnPtr1 LP |
||
478 | 3036 |
||
479 | 3037 0000A9 00 ScnDefCol .DB ; default foreground color |
||
480 | 3038 |
||
481 | 3039 0000AA ScnPtr2 LP |
||
482 | 3040 |
||
483 | 3041 0000AD 00 ScnDefBkgCol .DB ; default background color |
||
484 | 3042 0000AE 00 ScnInpRow .DB ; modo input line: riga start input |
||
485 | 3043 0000AF 00 ScnInpCol .DB ; modo input line: colonna start input |
||
486 | 3044 0000B0 00 ScnLstRow .DB ; modo input line: riga stop input |
||
487 | 3045 0000B1 00 ScnLstCol .DB ; modo input line: colonna stop input |
||
488 | 3046 0000B2 00 ScnFlag .DB ; Bit 7: input line - Bit 6: input riga unica |
||
489 | 3047 0000B3 00 ScnMask .DB ; flag tasti funzione editor di linea |
||
490 | 3048 0000B4 00 ScnFilt .DB ; filtro tasti editor di linea |
||
491 | 3049 0000B5 00 ScnCntrl .DB ; flag ASCII/CONTROL |
||
492 | 3050 ;DflTxtIn .DB ; device di default text input |
||
493 | 3051 ;DflTxtOut .DB ; device di default text output |
||
494 | 3052 0000B6 |
||
495 | 3053 000047 SCNCLRLEN .EQU ($ - ScnLinTmp - 1) |
||
496 | 3054 |
||
497 | Tue Jul 17 11:00:24 2018 Page 9 |
||
498 | |||
499 | |||
500 | |||
501 | |||
502 | 3055 ;SCNCLRLEN .EQU (DflTxtOut - ScnLinTmp) |
||
503 | 3056 |
||
504 | 3057 ; variabili monitor |
||
505 | 3058 0000B6 00 SMAddrL .DB ; address low/high |
||
506 | 3059 0000B7 00 SMAddrH .DB |
||
507 | 3060 0000B8 00 SMAddrK .DB ; address bank |
||
508 | 3061 0000B9 00 SMFlag32 .DB ; flag parametro 32 bit |
||
509 | 3062 0000BA 00 SMTmpL .DB ; temp. low/high |
||
510 | 3063 0000BB 00 SMTmpH .DB |
||
511 | 3064 0000BC 00 SMTmpK .DB ; temp. bank |
||
512 | 3065 0000BD 00 SMTmpKK .DB ; high byte param. 32 bit |
||
513 | 3066 0000BE 00 SMSizeL .DB ; size low/high |
||
514 | 3067 0000BF 00 SMSizeH .DB |
||
515 | 3068 0000C0 00 SMSizeK .DB ; size bank |
||
516 | 3069 0000C1 00 SMXAddrL .DB ; address low/high XM |
||
517 | 3070 0000C2 00 SMXAddrH .DB |
||
518 | 3071 0000C3 00 SMXAddrK .DB ; address bank XM |
||
519 | 3072 0000C4 00 SMbndx .DB ; indice input buffer |
||
520 | 3073 0000C5 00 SMnprm .DB ; numero parametri riga di comando |
||
521 | 3074 0000C6 00 SMdumb .DB |
||
522 | 3075 0000C7 00 SMkr .DB |
||
523 | 3076 0000C8 0000 SMpc .DW |
||
524 | 3077 0000CA 00 SMsr .DB |
||
525 | 3078 0000CB 00 SMbr .DB |
||
526 | 3079 0000CC 0000 SMdp .DW |
||
527 | 3080 0000CE 0000 SMac .DW |
||
528 | 3081 0000D0 0000 SMxr .DW |
||
529 | 3082 0000D2 0000 SMyr .DW |
||
530 | 3083 0000D4 0000 SMsp .DW |
||
531 | 3084 |
||
532 | 3085 0000D6 00 SMAuxL .DB |
||
533 | 3086 0000D7 00 SMAuxH .DB |
||
534 | 3087 |
||
535 | 3088 0000D8 00 asmlong .DB ; flag for CPU in 16 mode |
||
536 | 3089 ; <7> -> A/M in 16 bit mode |
||
537 | 3090 ; <6> -> X/Y in 16 bit mode |
||
538 | 3091 0000D9 00 asmcpu .DB ; <7> -> 8 bit family |
||
539 | 3092 ; <6> -> 65C02 cmos version |
||
540 | 3093 |
||
541 | 3094 0000DA 00 SMctx .DB ; context (if = $00 no quit command) |
||
542 | 3095 0000DB SMrsm LP ; long pointer to resume caller context |
||
543 | 3096 |
||
544 | 3097 0000DE 00 rtcadr .DB ; rtc internal ram address |
||
545 | 3098 0000DF 00 rtcbnk .DB ; RTC internal bank ram |
||
546 | 3099 0000E0 00 cmdlin .DB ; |
||
547 | 3100 0000E1 00 SMesc .DB |
||
548 | 3101 |
||
549 | 3102 0000E2 SMXTmp: .DS 26 ; 26 bytes tmp |
||
550 | 3103 |
||
551 | 3104 0000E2 SMTmp2 .EQU SMXTmp |
||
552 | 3105 0000E4 SMTmp3 .EQU SMXTmp+2 |
||
553 | 3106 0000E6 SMdwTmp1 .EQU SMXTmp+4 |
||
554 | 3107 0000EA SMdwTmp2 .EQU SMXTmp+8 |
||
555 | 3108 0000EE SMFsrc .EQU SMXTmp+12 ; source bank for flash update |
||
556 | 3109 0000EF SMFflag .EQU SMXTmp+13 ; flag file for flash update |
||
557 | 3110 0000F0 SMXPos2 .EQU SMXTmp+14 |
||
558 | 3111 0000F1 SMYPos2 .EQU SMXTmp+15 |
||
559 | Tue Jul 17 11:00:24 2018 Page 10 |
||
560 | |||
561 | |||
562 | |||
563 | |||
564 | 3112 0000F2 SMXPos3 .EQU SMXTmp+16 |
||
565 | 3113 0000F3 SMYPos3 .EQU SMXTmp+17 |
||
566 | 3114 ;SMAuxL .EQU SMXTmp+18 |
||
567 | 3115 ;SMAuxH .EQU SMXTmp+19 |
||
568 | 3116 0000F6 SMXPos .EQU SMXTmp+20 |
||
569 | 3117 0000F7 SMYPos .EQU SMXTmp+21 |
||
570 | 3118 0000F8 SMdwTmp3 .EQU SMXTmp+22 |
||
571 | 3119 |
||
572 | 3120 0000E2 atcmd .EQU SMXTmp ; save @ command |
||
573 | 3121 0000E3 atnum .EQU SMXTmp+1 ; @ command index |
||
574 | 3122 0000E4 atflag .EQU SMXTmp+2 ; @ L,S,V,R,W start address flag |
||
575 | 3123 0000E5 atbnk .EQU SMXTmp+3 ; @ L,S,V,R,W bank |
||
576 | 3124 0000E6 atstr .EQU SMXTmp+4 ; @ command string start (word) |
||
577 | 3125 0000E8 atstart .EQU SMXTmp+6 ; @ L,S,V,R,W start address (word) |
||
578 | 3126 0000EA atend .EQU SMXTmp+8 ; @ S,W end address (word) |
||
579 | 3127 0000EC atbuf .EQU SMXTmp+10 ; @ local buffer pointer (word) |
||
580 | 3128 0000EE atipb .EQU SMXTmp+12 ; @ bank of input buffer |
||
581 | 3129 0000EF atdir .EQU SMXTmp+13 ; @ load dir flag |
||
582 | 3130 0000F0 atptr .EQU SMXTmp+14 ; @ load dir pointer (word) |
||
583 | 3131 0000F2 atsiz .EQU SMXTmp+16 ; @ buffer size (word) |
||
584 | 3132 0000F5 atlp .EQU SMXTmp+19 ; @ long pointer |
||
585 | 3133 0000F8 atsa .EQU SMXTmp+22 ; @ sa |
||
586 | 3134 |
||
587 | 3135 0000E2 btmpx .EQU SMXTmp ; asc2bin conversion |
||
588 | 3136 0000E3 brtcsec .EQU SMXTmp+1 |
||
589 | 3137 0000E4 brtcmin .EQU SMXTmp+2 |
||
590 | 3138 0000E5 brtchour .EQU SMXTmp+3 |
||
591 | 3139 0000E6 brtcday .EQU SMXTmp+4 |
||
592 | 3140 0000E7 brtcmonth .EQU SMXTmp+5 |
||
593 | 3141 0000E8 brtcyear .EQU SMXTmp+6 |
||
594 | 3142 0000E9 brtcct .EQU SMXTmp+7 |
||
595 | 3143 |
||
596 | 3144 |
||
597 | 3145 0000FC .RELATIVE |
||
598 | 3146 |
||
599 | 3147 .ENDS |
||
600 | 3148 |
||
601 | 3172 .LIST on |
||
602 | 3173 |
||
603 | 3174 05C000 SOBUFADDR3 .EQU SPOUTBUFF3 |
||
604 | 3175 05D000 SIBUFADDR3 .EQU SPINBUFF3 |
||
605 | 3176 001000 SOBUFSIZ3 .EQU $1000 |
||
606 | 3177 001000 SIBUFSIZ3 .EQU $1000 |
||
607 | 3178 |
||
608 | 3179 060000 SOBUFADDR4 .EQU SPOUTBUFF4 |
||
609 | 3180 068000 SIBUFADDR4 .EQU SPINBUFF4 |
||
610 | 3181 ;SOBUFSIZ4 .EQU $1000 |
||
611 | 3182 ;SIBUFSIZ4 .EQU $1000 |
||
612 | 3183 008000 SOBUFSIZ4 .EQU $8000 |
||
613 | 3184 008000 SIBUFSIZ4 .EQU $8000 |
||
614 | 3185 |
||
615 | 3186 000200 NGUARD31 .EQU $0200 ; numero bytes di guardia buffer RX XON/XOFF |
||
616 | 3187 000100 NGUARD32 .EQU $0100 ; numero bytes di guardia buffer RX handshake |
||
617 | 3188 000800 NFREE31 .EQU $0800 ; minimo posto in coda RX per cancellare pausa remota |
||
618 | 3189 000400 NFREE32 .EQU $0400 |
||
619 | 3190 |
||
620 | 3191 ;--------------------------------------------------------------------------- |
||
621 | Tue Jul 17 11:00:24 2018 Page 11 |
||
622 | |||
623 | |||
624 | |||
625 | |||
626 | 3192 ; direct page var's for test serial ports/usb handling |
||
627 | 3193 ;--------------------------------------------------------------------------- |
||
628 | 3194 |
||
629 | 3195 DPSP2: .SECTION page0, common, ref_only ;UART D.P. |
||
630 | 3196 |
||
631 | 3197 000000 00 usbslv .DB ; <7>: plugged-in, <6>: plug-in pending |
||
632 | 3198 000001 00 usbum .DB ; <7>: pending message, <6>: connected |
||
633 | 3199 000002 00 usbcnt1 .DB ; timeout UM245 plug-in detection |
||
634 | 3200 000003 usbbuf .DS 8 |
||
635 | 3201 00000B 00 usbtim .DB |
||
636 | 3202 00000C 00 usbcnt .DB |
||
637 | 3203 00000D 00 usbmst .DB |
||
638 | 3204 00000E 0000 usbsiz .DW |
||
639 | 3205 000010 usbptr LP |
||
640 | 3206 000013 00 usbtmp .DB |
||
641 | 3207 000014 00 usbcmp .DB |
||
642 | 3208 |
||
643 | 3209 ; serial port 65C51 |
||
644 | 3210 000015 00 spmode3 .DB ; <7>: 0=no handshake, 1=handshake |
||
645 | 3211 ; <6>: 0=software/1=hardware handshake |
||
646 | 3212 ; <5>: not used |
||
647 | 3213 ; <4>: not used |
||
648 | 3214 ; <3>: 0=odd parity, 1=even parity |
||
649 | 3215 ; <2>: 0=no parity, 1=parity as specified |
||
650 | 3216 ; by bit <3> |
||
651 | 3217 ; <1:0> : baud rate |
||
652 | 3218 ; 00 = 19200 |
||
653 | 3219 ; 01 = 38400 |
||
654 | 3220 ; 10 = 57600 |
||
655 | 3221 ; 11 = 115200 |
||
656 | 3222 000016 |
||
657 | 3223 000016 00 splin3 .DB ; <7>: /CTS line level |
||
658 | 3224 ; <6>: /DSR line status |
||
659 | 3225 000017 |
||
660 | 3226 000017 00 sppause3 .DB |
||
661 | 3227 000018 00 spout3 .DB |
||
662 | 3228 000019 00 spstat3 .DB ; staus |
||
663 | 3229 ; <7>: rx error (data discarded) |
||
664 | 3230 ; <6>: rx buffer overflow |
||
665 | 3231 ; <5>: remote disconnession (/DSR line = 1) |
||
666 | 3232 ; <4>: output buffer overflow |
||
667 | 3233 ; <3>: not used |
||
668 | 3234 ; <2>: framing error |
||
669 | 3235 ; <1>: parity error |
||
670 | 3236 ; <0>: overrun error |
||
671 | 3237 |
||
672 | 3238 00001A 00 sptmp3 .DB |
||
673 | 3239 |
||
674 | 3240 00001B 0000 ibuftail3 .DW |
||
675 | 3241 00001D 0000 ibufhead3 .DW |
||
676 | 3242 00001F 0000 obuftail3 .DW |
||
677 | 3243 000021 0000 obufhead3 .DW |
||
678 | 3244 000023 0000 ibufcnt3 .DW |
||
679 | 3245 000025 0000 obufcnt3 .DW |
||
680 | 3246 000027 0000 icntmin3 .DW |
||
681 | 3247 000029 0000 icntmax3 .DW |
||
682 | 3248 |
||
683 | Tue Jul 17 11:00:24 2018 Page 12 |
||
684 | |||
685 | |||
686 | |||
687 | |||
688 | 3249 ; serial port 16C550 |
||
689 | 3250 00002B 00 spmode4 .DB ; <7>: 0=no handshake, 1=handshake |
||
690 | 3251 ; <6>: 0=software/1=hardware handshake |
||
691 | 3252 ; <5>: not used |
||
692 | 3253 ; <4>: not used |
||
693 | 3254 ; <3>: 0=odd parity, 1=even parity |
||
694 | 3255 ; <2>: 0=no parity, 1=parity as specified |
||
695 | 3256 ; by bit <3> |
||
696 | 3257 ; <1:0> : baud rate |
||
697 | 3258 ; 00 = 19200 |
||
698 | 3259 ; 01 = 38400 |
||
699 | 3260 ; 10 = 57600 |
||
700 | 3261 ; 11 = 115200 |
||
701 | 3262 00002C |
||
702 | 3263 00002C 00 splin4 .DB ; <7>: /DSR line level |
||
703 | 3264 ; <6>: /CTS line status |
||
704 | 3265 00002D |
||
705 | 3266 00002D 00 sppause4 .DB |
||
706 | 3267 00002E 00 spout4 .DB |
||
707 | 3268 00002F 00 spstat4 .DB ; staus |
||
708 | 3269 ; <7>: rx error (data discarded) |
||
709 | 3270 ; <6>: rx buffer overflow |
||
710 | 3271 ; <5>: remote disconnession (/DSR line = 1) |
||
711 | 3272 ; <4>: output buffer overflow |
||
712 | 3273 ; <3>: break |
||
713 | 3274 ; <2>: framing error |
||
714 | 3275 ; <1>: parity error |
||
715 | 3276 ; <0>: overrun error |
||
716 | 3277 |
||
717 | 3278 000030 00 sptmp4 .DB |
||
718 | 3279 |
||
719 | 3280 000031 0000 ibuftail4 .DW |
||
720 | 3281 000033 0000 ibufhead4 .DW |
||
721 | 3282 000035 0000 obuftail4 .DW |
||
722 | 3283 000037 0000 obufhead4 .DW |
||
723 | 3284 000039 0000 ibufcnt4 .DW |
||
724 | 3285 00003B 0000 obufcnt4 .DW |
||
725 | 3286 00003D 0000 icntmin4 .DW |
||
726 | 3287 00003F 0000 icntmax4 .DW |
||
727 | 3288 |
||
728 | 3289 000041 00 spcnt4 .DB |
||
729 | 3290 000042 00 uartlsr .DB |
||
730 | 3291 000043 00 uartiir .DB |
||
731 | 3292 |
||
732 | 3293 000044 usb0name .DS 36 |
||
733 | 3294 |
||
734 | 3295 .ENDS |
||
735 | 3296 |
||
736 | 3300 .LIST on |
||
737 | 3301 |
||
738 | 3302 019900 INPUTBUF .EQU MONBUF |
||
739 | 3303 F8FFB1 |
||
740 | 3304 .CODEFF |
||
741 | 3305 .EXTERN ErrCls2, GetParm, PrintByte, PrintHex, GetParm32 |
||
742 | 3306 .EXTERN PrintWord, CkStop, FF_Byte2Hex |
||
743 | 3307 .EXTERN _getopt ; FA/getopt.asm |
||
744 | 3308 FF25D1 |
||
745 | Tue Jul 17 11:00:24 2018 Page 13 |
||
746 | |||
747 | |||
748 | |||
749 | |||
750 | 3309 .GLOBAL Cmd_fddisk, Cmd_fdgetfmt, Cmd_fdres, Cmd_fdinit, Cmd_fdformat |
||
751 | 3310 .GLOBAL Cmd_fdverfmt, Cmd_fdread, Cmd_fdwrite, Cmd_fdverf, Cmd_fdlsys |
||
752 | 3311 .GLOBAL Cmd_fdtread, Cmd_fdtwrite, Cmd_fdtverf, Cmd_fdnew, Cmd_fdfs |
||
753 | 3312 |
||
754 | 3313 .GLOBAL matcmd, atacmd, Cmd_mkhash |
||
755 | 3314 |
||
756 | 3315 .LONGA off |
||
757 | 3316 .LONGI off |
||
758 | 3317 |
||
759 | 3318 ;--------------------------------------------------------------------------- |
||
760 | 3319 ; at '@' commands |
||
761 | 3320 ;--------------------------------------------------------------------------- |
||
762 | 3321 |
||
763 | 3322 ; @ commands |
||
764 | 3323 FF25D1 matcmd: |
||
765 | 3324 FF25D1 A5 E3 lda <atnum |
||
766 | 3325 FF25D3 0A asl a |
||
767 | 3326 FF25D4 AA tax |
||
768 | 3327 FF25D5 FC 02 28 jsr (MATVECS,x) |
||
769 | 3328 ;SCN_CR |
||
770 | 3329 FF25D8 60 rts |
||
771 | 3330 |
||
772 | 3331 ; '@c "command"' send command to cbm fs emulator |
||
773 | 3332 FF25D9 matsnd: |
||
774 | 3333 FF25D9 A9 0F lda #15 |
||
775 | 3334 FF25DB 85 F8 sta <atsa |
||
776 | 3335 FF25DD |
||
777 | 3336 ; '@o "file" chnl' - open file |
||
778 | 3337 FF25DD matopn: |
||
779 | 3338 FF25DD A5 EE lda <atipb ; bank of cmnd string |
||
780 | 3339 FF25DF 48 pha |
||
781 | 3340 FF25E0 D4 E6 pei (atstr) ; address of cmnd string |
||
782 | 3341 FF25E2 A5 F8 lda <atsa ; chnl |
||
783 | 3342 FF25E4 48 pha |
||
784 | 3343 FF25E5 CBMFSCMD ; send command |
||
785 | 3344 FF25E5 02 80 cop FN_CBMFSCMD |
||
786 | 3345 .MNLIST |
||
787 | 3346 FF25E7 B0 01 bcs materr ; if error |
||
788 | 3347 FF25E9 60 rts |
||
789 | 3348 |
||
790 | 3349 ; '@' or '@e': print error message |
||
791 | 3350 FF25EA materr: |
||
792 | 3351 000080 VARSIZ .SET 128 |
||
793 | 3352 FF25EA SCN_CR |
||
794 | 3353 FF25EA SCNPRCHAR |
||
795 | 3354 .MLIST |
||
796 | 3355 FF25EA 02 07 cop $07 |
||
797 | 3356 .MNLIST |
||
798 | 3357 FF25EC 0D .DB $0D |
||
799 | 3358 .MNLIST |
||
800 | 3359 FF25ED ACC16 ; make room in stack |
||
801 | 3360 FF25ED C2 20 rep #PMFLAG |
||
802 | 3361 .LONGA on |
||
803 | 3362 .MNLIST |
||
804 | 3363 FF25EF 3B tsc |
||
805 | 3364 FF25F0 38 sec |
||
806 | 3365 FF25F1 E9 80 00 sbc #VARSIZ |
||
807 | Tue Jul 17 11:00:24 2018 Page 14 |
||
808 | |||
809 | |||
810 | |||
811 | |||
812 | 3366 FF25F4 1B tcs |
||
813 | 3367 FF25F5 1A inc a ; buffer pointer |
||
814 | 3368 FF25F6 A2 00 ldx #0 |
||
815 | 3369 FF25F8 DA phx ; bank of buffer |
||
816 | 3370 FF25F9 48 pha ; address of buffer |
||
817 | 3371 FF25FA F4 80 00 pea #VARSIZ ; size of buffer |
||
818 | 3372 FF25FD ACC08 |
||
819 | 3373 FF25FD E2 20 sep #PMFLAG |
||
820 | 3374 .LONGA off |
||
821 | 3375 .MNLIST |
||
822 | 3376 FF25FF A9 0F lda #15 ; channel 15 |
||
823 | 3377 FF2601 48 pha |
||
824 | 3378 FF2602 CBMFSRD ; read |
||
825 | 3379 FF2602 02 81 cop FN_CBMFSRW |
||
826 | 3380 FF2604 00 .DB $00 |
||
827 | 3381 .MNLIST |
||
828 | 3382 FF2605 ACC16 |
||
829 | 3383 FF2605 C2 20 rep #PMFLAG |
||
830 | 3384 .LONGA on |
||
831 | 3385 .MNLIST |
||
832 | 3386 FF2607 3B tsc |
||
833 | 3387 FF2608 1A inc a ; address of buffer |
||
834 | 3388 FF2609 ACC08 |
||
835 | 3389 FF2609 E2 20 sep #PMFLAG |
||
836 | 3390 .LONGA off |
||
837 | 3391 .MNLIST |
||
838 | 3392 FF260B A2 00 ldx #0 ; bank of buffer |
||
839 | 3393 FF260D SCNSTROUT ; print string |
||
840 | 3394 FF260D 02 03 cop $03 |
||
841 | 3395 .MNLIST |
||
842 | 3396 FF260F ACC16CLC |
||
843 | 3397 FF260F C2 21 rep #(PMFLAG.OR.PCFLAG) |
||
844 | 3398 .LONGA on |
||
845 | 3399 .MNLIST |
||
846 | 3400 FF2611 3B tsc ; clean stack |
||
847 | 3401 FF2612 69 80 00 adc #VARSIZ |
||
848 | 3402 FF2615 1B tcs |
||
849 | 3403 FF2616 ACC08 |
||
850 | 3404 FF2616 E2 20 sep #PMFLAG |
||
851 | 3405 .LONGA off |
||
852 | 3406 .MNLIST |
||
853 | 3407 FF2618 60 rts |
||
854 | 3408 |
||
855 | 3409 ; '@d "$[drive[:pattern[=type]]]"' |
||
856 | 3410 ; load and print directory |
||
857 | 3411 FF2619 matdir: |
||
858 | 3412 000080 VARSIZ .SET 128 ; mult. of 32 !!! |
||
859 | 3413 FF2619 A5 EE lda <atipb ; bank of cmnd string |
||
860 | 3414 FF261B 48 pha |
||
861 | 3415 FF261C D4 E6 pei (atstr) ; address of cmnd string |
||
862 | 3416 FF261E A9 00 lda #$00 ; chnl = 0 |
||
863 | 3417 FF2620 48 pha |
||
864 | 3418 FF2621 CBMFSCMD ; send command |
||
865 | 3419 FF2621 02 80 cop FN_CBMFSCMD |
||
866 | 3420 .MNLIST |
||
867 | 3421 FF2623 B0 C5 bcs materr ; if error |
||
868 | 3422 FF2625 ACC16 ; make room in stack |
||
869 | Tue Jul 17 11:00:24 2018 Page 15 |
||
870 | |||
871 | |||
872 | |||
873 | |||
874 | 3423 FF2625 C2 20 rep #PMFLAG |
||
875 | 3424 .LONGA on |
||
876 | 3425 .MNLIST |
||
877 | 3426 FF2627 3B tsc |
||
878 | 3427 FF2628 38 sec |
||
879 | 3428 FF2629 E9 80 00 sbc #VARSIZ |
||
880 | 3429 FF262C 1B tcs |
||
881 | 3430 FF262D 1A inc a ; buffer pointer |
||
882 | 3431 FF262E 85 EC sta <atbuf |
||
883 | 3432 FF2630 64 EA stz <atend ; buffer count # |
||
884 | 3433 FF2632 ACC08 |
||
885 | 3434 FF2632 E2 20 sep #PMFLAG |
||
886 | 3435 .LONGA off |
||
887 | 3436 .MNLIST |
||
888 | 3437 FF2634 64 EF stz <atdir |
||
889 | 3438 FF2636 A9 06 lda #6 ; offset # blocks header |
||
890 | 3439 FF2638 85 E8 sta <atstart |
||
891 | 3440 FF263A 64 E9 stz <atstart+1 |
||
892 | 3441 FF263C SCN_CR |
||
893 | 3442 FF263C SCNPRCHAR |
||
894 | 3443 .MLIST |
||
895 | 3444 FF263C 02 07 cop $07 |
||
896 | 3445 .MNLIST |
||
897 | 3446 FF263E 0D .DB $0D |
||
898 | 3447 .MNLIST |
||
899 | 3448 FF263F 20 92 26 ?10: jsr ?100 ; load buffer |
||
900 | 3449 FF2642 F0 40 beq ?90 ; no data: end of load |
||
901 | 3450 FF2644 A4 E8 ?14: ldy <atstart |
||
902 | 3451 FF2646 5A phy |
||
903 | 3452 FF2647 B1 F0 ?14a: lda (atptr),y |
||
904 | 3453 FF2649 C9 20 cmp #' ' |
||
905 | 3454 FF264B D0 03 bne ?14b |
||
906 | 3455 FF264D C8 iny |
||
907 | 3456 FF264E 80 F7 bra ?14a |
||
908 | 3457 FF2650 84 E8 ?14b: sty <atstart |
||
909 | 3458 FF2652 7A ply |
||
910 | 3459 FF2653 |
||
911 | 3460 FF2653 ACC16CLC |
||
912 | 3461 FF2653 C2 21 rep #(PMFLAG.OR.PCFLAG) |
||
913 | 3462 .LONGA on |
||
914 | 3463 .MNLIST |
||
915 | 3464 FF2655 A5 F0 lda <atptr |
||
916 | 3465 FF2657 65 E8 adc <atstart |
||
917 | 3466 FF2659 A2 00 ldx #0 |
||
918 | 3467 FF265B DA phx ; bank of string (stack) |
||
919 | 3468 FF265C 48 pha ; address of string |
||
920 | 3469 ;;ldy <atstart |
||
921 | 3470 FF265D 88 dey |
||
922 | 3471 FF265E 88 dey |
||
923 | 3472 FF265F B1 F0 lda (atptr),y ; blocks # |
||
924 | 3473 FF2661 48 pha |
||
925 | 3474 FF2662 ACC08 |
||
926 | 3475 FF2662 E2 20 sep #PMFLAG |
||
927 | 3476 .LONGA off |
||
928 | 3477 .MNLIST |
||
929 | 3478 FF2664 4B phk ; bank of format |
||
930 | 3479 FF2665 F4 CF 26 pea #!?200 ; address of format |
||
931 | Tue Jul 17 11:00:24 2018 Page 16 |
||
932 | |||
933 | |||
934 | |||
935 | |||
936 | 3480 FF2668 A2 09 ldx #9 ; # params |
||
937 | 3481 FF266A DA phx |
||
938 | 3482 FF266B BPRINTF |
||
939 | 3483 FF266B 02 11 cop $11 |
||
940 | 3484 .MNLIST |
||
941 | 3485 FF266D A9 04 lda #4 ; just header need offset = 6 |
||
942 | 3486 FF266F 85 E8 sta <atstart |
||
943 | 3487 FF2671 ACC16CLC |
||
944 | 3488 FF2671 C2 21 rep #(PMFLAG.OR.PCFLAG) |
||
945 | 3489 .LONGA on |
||
946 | 3490 .MNLIST |
||
947 | 3491 FF2673 A5 F0 lda <atptr |
||
948 | 3492 FF2675 69 20 00 adc #32 |
||
949 | 3493 FF2678 85 F0 sta <atptr |
||
950 | 3494 FF267A C5 EA cmp <atend |
||
951 | 3495 FF267C ACC08 |
||
952 | 3496 FF267C E2 20 sep #PMFLAG |
||
953 | 3497 .LONGA off |
||
954 | 3498 .MNLIST |
||
955 | 3499 FF267E 90 C4 bcc ?14 ; next line in buffer |
||
956 | 3500 FF2680 24 EF bit <atdir ; bit 7 set if end |
||
957 | 3501 FF2682 10 BB bpl ?10 ; loop |
||
958 | 3502 FF2684 ?90: ACC16CLC |
||
959 | 3503 FF2684 C2 21 rep #(PMFLAG.OR.PCFLAG) |
||
960 | 3504 .LONGA on |
||
961 | 3505 .MNLIST |
||
962 | 3506 FF2686 3B tsc ; clean stack |
||
963 | 3507 FF2687 69 80 00 adc #VARSIZ |
||
964 | 3508 FF268A 1B tcs |
||
965 | 3509 FF268B ACC08 |
||
966 | 3510 FF268B E2 20 sep #PMFLAG |
||
967 | 3511 .LONGA off |
||
968 | 3512 .MNLIST |
||
969 | 3513 FF268D A9 00 lda #0 |
||
970 | 3514 FF268F CBMFSCLS |
||
971 | 3515 FF268F 02 82 cop FN_CBMFSCLS |
||
972 | 3516 .MNLIST |
||
973 | 3517 FF2691 60 rts |
||
974 | 3518 |
||
975 | 3519 FF2692 A9 00 ?100: lda #0 ; load buffer |
||
976 | 3520 FF2694 48 pha ; bank of buffer |
||
977 | 3521 FF2695 D4 EC pei (atbuf) ; address of buffer |
||
978 | 3522 FF2697 F4 80 00 pea #VARSIZ ; size of buffer |
||
979 | 3523 FF269A A9 00 lda #$00 |
||
980 | 3524 FF269C 48 pha ; chnl 0 |
||
981 | 3525 FF269D CBMFSRD ; read |
||
982 | 3526 FF269D 02 81 cop FN_CBMFSRW |
||
983 | 3527 FF269F 00 .DB $00 |
||
984 | 3528 .MNLIST |
||
985 | 3529 FF26A0 90 12 bcc ?104 |
||
986 | 3530 FF26A2 68 pla |
||
987 | 3531 FF26A3 68 pla |
||
988 | 3532 FF26A4 ACC16CLC |
||
989 | 3533 FF26A4 C2 21 rep #(PMFLAG.OR.PCFLAG) |
||
990 | 3534 .LONGA on |
||
991 | 3535 .MNLIST |
||
992 | 3536 FF26A6 3B tsc ; clean stack |
||
993 | Tue Jul 17 11:00:24 2018 Page 17 |
||
994 | |||
995 | |||
996 | |||
997 | |||
998 | 3537 FF26A7 69 80 00 adc #VARSIZ |
||
999 | 3538 FF26AA 1B tcs |
||
1000 | 3539 FF26AB ACC08 |
||
1001 | 3540 FF26AB E2 20 sep #PMFLAG |
||
1002 | 3541 .LONGA off |
||
1003 | 3542 .MNLIST |
||
1004 | 3543 FF26AD A9 00 lda #0 |
||
1005 | 3544 FF26AF CBMFSCLS |
||
1006 | 3545 FF26AF 02 82 cop FN_CBMFSCLS |
||
1007 | 3546 .MNLIST |
||
1008 | 3547 FF26B1 4C EA 25 jmp materr |
||
1009 | 3548 FF26B4 ?104: ACC16 |
||
1010 | 3549 FF26B4 C2 20 rep #PMFLAG |
||
1011 | 3550 .LONGA on |
||
1012 | 3551 .MNLIST |
||
1013 | 3552 FF26B6 48 pha |
||
1014 | 3553 FF26B7 68 pla |
||
1015 | 3554 FF26B8 F0 12 beq ?110 ; end of data |
||
1016 | 3555 FF26BA C9 80 00 cmp #VARSIZ |
||
1017 | 3556 FF26BD B0 04 bcs ?106 |
||
1018 | 3557 FF26BF A2 80 ldx #$80 |
||
1019 | 3558 FF26C1 86 EF stx <atdir ; EOF flag |
||
1020 | 3559 FF26C3 18 ?106: clc |
||
1021 | 3560 FF26C4 65 EC adc <atbuf |
||
1022 | 3561 FF26C6 85 EA sta <atend ; end buffer |
||
1023 | 3562 FF26C8 A5 EC lda <atbuf |
||
1024 | 3563 FF26CA 85 F0 sta <atptr |
||
1025 | 3564 FF26CC ?110: ACC08 |
||
1026 | 3565 FF26CC E2 20 sep #PMFLAG |
||
1027 | 3566 .LONGA off |
||
1028 | 3567 .MNLIST |
||
1029 | 3568 FF26CE 60 rts |
||
1030 | 3569 FF26CF |
||
1031 | 3570 FF26CF ?200: |
||
1032 | 3571 FF26CF 25 20 34 68 75 .DB '% 4hu %s', $0D, 0 |
||
1033 | 20 25 73 0D 00 |
||
1034 | 3572 |
||
1035 | 3573 ; '@l "file" bnk [start]' load file (chnl 0) |
||
1036 | 3574 FF26D9 matload: |
||
1037 | 3575 FF26D9 64 F8 stz <atsa |
||
1038 | 3576 FF26DB 80 05 bra matrd1 |
||
1039 | 3577 FF26DD |
||
1040 | 3578 FF26DD matver: |
||
1041 | 3579 FF26DD 60 rts |
||
1042 | 3580 |
||
1043 | 3581 ; '@r "file" bnk [start]' open file for read (chnl 5) |
||
1044 | 3582 FF26DE matrd: |
||
1045 | 3583 FF26DE A9 05 lda #5 |
||
1046 | 3584 FF26E0 85 F8 sta <atsa |
||
1047 | 3585 FF26E2 matrd1: |
||
1048 | 3586 FF26E2 SCN_CR |
||
1049 | 3587 FF26E2 SCNPRCHAR |
||
1050 | 3588 .MLIST |
||
1051 | 3589 FF26E2 02 07 cop $07 |
||
1052 | 3590 .MNLIST |
||
1053 | 3591 FF26E4 0D .DB $0D |
||
1054 | 3592 .MNLIST |
||
1055 | Tue Jul 17 11:00:24 2018 Page 18 |
||
1056 | |||
1057 | |||
1058 | |||
1059 | |||
1060 | 3593 FF26E5 A5 EE lda <atipb ; bank of cmnd string |
||
1061 | 3594 FF26E7 48 pha |
||
1062 | 3595 FF26E8 D4 E6 pei (atstr) ; address of cmnd string |
||
1063 | 3596 FF26EA A5 F8 lda <atsa ; chnl = 15 |
||
1064 | 3597 FF26EC 48 pha |
||
1065 | 3598 FF26ED CBMFSCMD ; send command |
||
1066 | 3599 FF26ED 02 80 cop FN_CBMFSCMD |
||
1067 | 3600 .MNLIST |
||
1068 | 3601 FF26EF 90 03 bcc ?02 |
||
1069 | 3602 FF26F1 4C EA 25 ?01: jmp materr ; if error |
||
1070 | 3603 FF26F4 64 F5 ?02: stz atlp |
||
1071 | 3604 FF26F6 64 F6 stz atlp+1 |
||
1072 | 3605 FF26F8 A5 E5 lda <atbnk |
||
1073 | 3606 FF26FA 85 F7 sta <atlp+2 |
||
1074 | 3607 FF26FC INDEX16 |
||
1075 | 3608 FF26FC C2 10 rep #PXFLAG |
||
1076 | 3609 .LONGI on |
||
1077 | 3610 .MNLIST |
||
1078 | 3611 FF26FE A0 00 00 ldy #0 |
||
1079 | 3612 FF2701 A9 EA lda #$EA |
||
1080 | 3613 FF2703 97 F5 ?03: sta [atlp],y |
||
1081 | 3614 FF2705 C8 iny |
||
1082 | 3615 FF2706 D0 FB bne ?03 |
||
1083 | 3616 FF2708 INDEX08 |
||
1084 | 3617 FF2708 E2 10 sep #PXFLAG |
||
1085 | 3618 .LONGI off |
||
1086 | 3619 .MNLIST |
||
1087 | 3620 FF270A 24 E4 bit <atflag |
||
1088 | 3621 FF270C ACC16 |
||
1089 | 3622 FF270C C2 20 rep #PMFLAG |
||
1090 | 3623 .LONGA on |
||
1091 | 3624 .MNLIST |
||
1092 | 3625 FF270E 10 0E bpl ?04 ; no start address |
||
1093 | 3626 FF2710 A5 E8 lda <atstart |
||
1094 | 3627 FF2712 85 F5 sta <atlp |
||
1095 | 3628 FF2714 38 sec |
||
1096 | 3629 FF2715 A9 F0 FF lda #$FFF0 |
||
1097 | 3630 FF2718 E5 E8 sbc <atstart |
||
1098 | 3631 FF271A 85 F2 sta <atsiz |
||
1099 | 3632 FF271C 80 05 bra ?06 |
||
1100 | 3633 FF271E A9 F0 FF ?04: lda #$FFF0 |
||
1101 | 3634 FF2721 85 F2 sta <atsiz |
||
1102 | 3635 FF2723 ?06: ACC08 |
||
1103 | 3636 FF2723 E2 20 sep #PMFLAG |
||
1104 | 3637 .LONGA off |
||
1105 | 3638 .MNLIST |
||
1106 | 3639 FF2725 A5 F7 lda <atlp+2 |
||
1107 | 3640 FF2727 48 pha |
||
1108 | 3641 FF2728 D4 F5 pei (atlp) |
||
1109 | 3642 FF272A D4 F2 pei (atsiz) |
||
1110 | 3643 FF272C A5 F8 lda <atsa |
||
1111 | 3644 FF272E 48 pha |
||
1112 | 3645 FF272F CBMFSRD ; read |
||
1113 | 3646 FF272F 02 81 cop FN_CBMFSRW |
||
1114 | 3647 FF2731 00 .DB $00 |
||
1115 | 3648 .MNLIST |
||
1116 | 3649 FF2732 08 php |
||
1117 | Tue Jul 17 11:00:24 2018 Page 19 |
||
1118 | |||
1119 | |||
1120 | |||
1121 | |||
1122 | 3650 FF2733 ACC16 |
||
1123 | 3651 FF2733 C2 20 rep #PMFLAG |
||
1124 | 3652 .LONGA on |
||
1125 | 3653 .MNLIST |
||
1126 | 3654 FF2735 48 pha |
||
1127 | 3655 FF2736 ACC08 |
||
1128 | 3656 FF2736 E2 20 sep #PMFLAG |
||
1129 | 3657 .LONGA off |
||
1130 | 3658 .MNLIST |
||
1131 | 3659 FF2738 A5 F8 lda <atsa |
||
1132 | 3660 FF273A CBMFSCLS |
||
1133 | 3661 FF273A 02 82 cop FN_CBMFSCLS |
||
1134 | 3662 .MNLIST |
||
1135 | 3663 ;SCN_CR |
||
1136 | 3664 FF273C ACC16 |
||
1137 | 3665 FF273C C2 20 rep #PMFLAG |
||
1138 | 3666 .LONGA on |
||
1139 | 3667 .MNLIST |
||
1140 | 3668 FF273E 68 pla |
||
1141 | 3669 FF273F ACC08 |
||
1142 | 3670 FF273F E2 20 sep #PMFLAG |
||
1143 | 3671 .LONGA off |
||
1144 | 3672 .MNLIST |
||
1145 | 3673 FF2741 EB xba |
||
1146 | 3674 FF2742 AA tax ; HI |
||
1147 | 3675 FF2743 EB xba ; LOW |
||
1148 | 3676 FF2744 20 48 19 jsr PrintWord |
||
1149 | 3677 ;SCN_CR |
||
1150 | 3678 FF2747 28 plp |
||
1151 | 3679 FF2748 B0 A7 bcs ?01 |
||
1152 | 3680 FF274A 60 rts |
||
1153 | 3681 |
||
1154 | 3682 ; '@g chnl bnk [start]' - read in max. 256 bytes |
||
1155 | 3683 FF274B matget: |
||
1156 | 3684 FF274B ACC16 |
||
1157 | 3685 FF274B C2 20 rep #PMFLAG |
||
1158 | 3686 .LONGA on |
||
1159 | 3687 .MNLIST |
||
1160 | 3688 FF274D A9 00 01 lda #256 |
||
1161 | 3689 FF2750 85 F2 sta <atsiz |
||
1162 | 3690 FF2752 64 F5 stz atlp |
||
1163 | 3691 FF2754 ACC08 |
||
1164 | 3692 FF2754 E2 20 sep #PMFLAG |
||
1165 | 3693 .LONGA off |
||
1166 | 3694 .MNLIST |
||
1167 | 3695 FF2756 A5 E5 lda <atbnk |
||
1168 | 3696 FF2758 85 F7 sta <atlp+2 |
||
1169 | 3697 FF275A A5 F7 lda <atlp+2 |
||
1170 | 3698 FF275C 48 pha |
||
1171 | 3699 FF275D D4 F5 pei (atlp) |
||
1172 | 3700 FF275F D4 F2 pei (atsiz) |
||
1173 | 3701 FF2761 A5 F8 lda <atsa |
||
1174 | 3702 FF2763 48 pha |
||
1175 | 3703 FF2764 CBMFSRD ; read |
||
1176 | 3704 FF2764 02 81 cop FN_CBMFSRW |
||
1177 | 3705 FF2766 00 .DB $00 |
||
1178 | 3706 .MNLIST |
||
1179 | Tue Jul 17 11:00:24 2018 Page 20 |
||
1180 | |||
1181 | |||
1182 | |||
1183 | |||
1184 | 3707 FF2767 08 php |
||
1185 | 3708 FF2768 EB xba |
||
1186 | 3709 FF2769 AA tax ; HI |
||
1187 | 3710 FF276A EB xba ; LOW |
||
1188 | 3711 FF276B 20 48 19 jsr PrintWord |
||
1189 | 3712 ;SCN_CR |
||
1190 | 3713 FF276E 28 plp |
||
1191 | 3714 FF276F 90 01 bcc ?02 |
||
1192 | 3715 FF2771 60 rts |
||
1193 | 3716 FF2772 4C EA 25 ?02: jmp materr ; if error |
||
1194 | 3717 |
||
1195 | 3718 ; '@p chnl bnk [start]' - write out max. 256 bytes |
||
1196 | 3719 FF2775 matput: |
||
1197 | 3720 FF2775 ACC16 |
||
1198 | 3721 FF2775 C2 20 rep #PMFLAG |
||
1199 | 3722 .LONGA on |
||
1200 | 3723 .MNLIST |
||
1201 | 3724 FF2777 A9 00 01 lda #256 |
||
1202 | 3725 FF277A 85 F2 sta <atsiz |
||
1203 | 3726 FF277C 64 F5 stz atlp |
||
1204 | 3727 FF277E ACC08 |
||
1205 | 3728 FF277E E2 20 sep #PMFLAG |
||
1206 | 3729 .LONGA off |
||
1207 | 3730 .MNLIST |
||
1208 | 3731 FF2780 A5 E5 lda <atbnk |
||
1209 | 3732 FF2782 85 F7 sta <atlp+2 |
||
1210 | 3733 FF2784 A5 F7 lda <atlp+2 |
||
1211 | 3734 FF2786 48 pha |
||
1212 | 3735 FF2787 D4 F5 pei (atlp) |
||
1213 | 3736 FF2789 D4 F2 pei (atsiz) |
||
1214 | 3737 FF278B A5 F8 lda <atsa |
||
1215 | 3738 FF278D 48 pha |
||
1216 | 3739 FF278E CBMFSWR ; write |
||
1217 | 3740 FF278E 02 81 cop FN_CBMFSRW |
||
1218 | 3741 FF2790 01 .DB $01 |
||
1219 | 3742 .MNLIST |
||
1220 | 3743 FF2791 08 php |
||
1221 | 3744 FF2792 EB xba |
||
1222 | 3745 FF2793 AA tax ; HI |
||
1223 | 3746 FF2794 EB xba ; LOW |
||
1224 | 3747 FF2795 20 48 19 jsr PrintWord |
||
1225 | 3748 ;SCN_CR |
||
1226 | 3749 FF2798 28 plp |
||
1227 | 3750 FF2799 90 01 bcc ?02 |
||
1228 | 3751 FF279B 60 rts |
||
1229 | 3752 FF279C 4C EA 25 ?02: jmp materr ; if error |
||
1230 | 3753 |
||
1231 | 3754 ; '@s "file" bnk start end' save file chnl=1 |
||
1232 | 3755 FF279F matsave: |
||
1233 | 3756 FF279F A9 01 lda #1 |
||
1234 | 3757 FF27A1 85 F8 sta <atsa |
||
1235 | 3758 FF27A3 80 04 bra matwr1 |
||
1236 | 3759 |
||
1237 | 3760 ; '@w "file" bnk start end' |
||
1238 | 3761 FF27A5 matwr: |
||
1239 | 3762 FF27A5 A9 05 lda #5 |
||
1240 | 3763 FF27A7 85 F8 sta <atsa |
||
1241 | Tue Jul 17 11:00:24 2018 Page 21 |
||
1242 | |||
1243 | |||
1244 | |||
1245 | |||
1246 | 3764 |
||
1247 | 3765 FF27A9 matwr1: |
||
1248 | 3766 FF27A9 SCN_CR |
||
1249 | 3767 FF27A9 SCNPRCHAR |
||
1250 | 3768 .MLIST |
||
1251 | 3769 FF27A9 02 07 cop $07 |
||
1252 | 3770 .MNLIST |
||
1253 | 3771 FF27AB 0D .DB $0D |
||
1254 | 3772 .MNLIST |
||
1255 | 3773 FF27AC A5 EE lda <atipb ; bank of cmnd string |
||
1256 | 3774 FF27AE 48 pha |
||
1257 | 3775 FF27AF D4 E6 pei (atstr) ; address of cmnd string |
||
1258 | 3776 FF27B1 A5 F8 lda <atsa ; chnl = 15 |
||
1259 | 3777 FF27B3 48 pha |
||
1260 | 3778 FF27B4 CBMFSCMD ; send command |
||
1261 | 3779 FF27B4 02 80 cop FN_CBMFSCMD |
||
1262 | 3780 .MNLIST |
||
1263 | 3781 FF27B6 90 03 bcc ?02 |
||
1264 | 3782 FF27B8 4C EA 25 ?01: jmp materr ; if error |
||
1265 | 3783 FF27BB 64 F5 ?02: stz atlp |
||
1266 | 3784 FF27BD 64 F6 stz atlp+1 |
||
1267 | 3785 FF27BF A5 E5 lda <atbnk |
||
1268 | 3786 FF27C1 85 F7 sta <atlp+2 |
||
1269 | 3787 FF27C3 ACC16 |
||
1270 | 3788 FF27C3 C2 20 rep #PMFLAG |
||
1271 | 3789 .LONGA on |
||
1272 | 3790 .MNLIST |
||
1273 | 3791 FF27C5 A5 E8 lda <atstart |
||
1274 | 3792 FF27C7 85 F5 sta <atlp |
||
1275 | 3793 FF27C9 38 sec |
||
1276 | 3794 FF27CA A5 EA lda <atend |
||
1277 | 3795 FF27CC E5 E8 sbc <atstart |
||
1278 | 3796 FF27CE 85 F2 sta <atsiz |
||
1279 | 3797 FF27D0 ACC08 |
||
1280 | 3798 FF27D0 E2 20 sep #PMFLAG |
||
1281 | 3799 .LONGA off |
||
1282 | 3800 .MNLIST |
||
1283 | 3801 FF27D2 A5 F7 lda <atlp+2 |
||
1284 | 3802 FF27D4 48 pha |
||
1285 | 3803 FF27D5 D4 F5 pei (atlp) |
||
1286 | 3804 FF27D7 D4 F2 pei (atsiz) |
||
1287 | 3805 FF27D9 A5 F8 lda <atsa |
||
1288 | 3806 FF27DB 48 pha |
||
1289 | 3807 FF27DC CBMFSWR ; write |
||
1290 | 3808 FF27DC 02 81 cop FN_CBMFSRW |
||
1291 | 3809 FF27DE 01 .DB $01 |
||
1292 | 3810 .MNLIST |
||
1293 | 3811 FF27DF 08 php |
||
1294 | 3812 FF27E0 ACC16 |
||
1295 | 3813 FF27E0 C2 20 rep #PMFLAG |
||
1296 | 3814 .LONGA on |
||
1297 | 3815 .MNLIST |
||
1298 | 3816 FF27E2 48 pha |
||
1299 | 3817 FF27E3 ACC08 |
||
1300 | 3818 FF27E3 E2 20 sep #PMFLAG |
||
1301 | 3819 .LONGA off |
||
1302 | 3820 .MNLIST |
||
1303 | Tue Jul 17 11:00:24 2018 Page 22 |
||
1304 | |||
1305 | |||
1306 | |||
1307 | |||
1308 | 3821 FF27E5 A5 F8 lda <atsa |
||
1309 | 3822 FF27E7 CBMFSCLS |
||
1310 | 3823 FF27E7 02 82 cop FN_CBMFSCLS |
||
1311 | 3824 .MNLIST |
||
1312 | 3825 ;SCN_CR |
||
1313 | 3826 FF27E9 ACC16 |
||
1314 | 3827 FF27E9 C2 20 rep #PMFLAG |
||
1315 | 3828 .LONGA on |
||
1316 | 3829 .MNLIST |
||
1317 | 3830 FF27EB 68 pla |
||
1318 | 3831 FF27EC ACC08 |
||
1319 | 3832 FF27EC E2 20 sep #PMFLAG |
||
1320 | 3833 .LONGA off |
||
1321 | 3834 .MNLIST |
||
1322 | 3835 FF27EE EB xba |
||
1323 | 3836 FF27EF AA tax ; HI |
||
1324 | 3837 FF27F0 EB xba ; LOW |
||
1325 | 3838 FF27F1 20 48 19 jsr PrintWord |
||
1326 | 3839 ;SCN_CR |
||
1327 | 3840 FF27F4 28 plp |
||
1328 | 3841 FF27F5 B0 C1 bcs ?01 |
||
1329 | 3842 FF27F7 60 rts |
||
1330 | 3843 |
||
1331 | 3844 ; '@z' - close all |
||
1332 | 3845 FF27F8 matclsall: |
||
1333 | 3846 FF27F8 A9 0F lda #15 |
||
1334 | 3847 FF27FA CBMFSCLS |
||
1335 | 3848 FF27FA 02 82 cop FN_CBMFSCLS |
||
1336 | 3849 .MNLIST |
||
1337 | 3850 FF27FC 60 rts |
||
1338 | 3851 |
||
1339 | 3852 ; '@x chnl' - close chnl |
||
1340 | 3853 FF27FD matclose: |
||
1341 | 3854 FF27FD A5 F8 lda <atsa |
||
1342 | 3855 FF27FF CBMFSCLS |
||
1343 | 3856 FF27FF 02 82 cop FN_CBMFSCLS |
||
1344 | 3857 .MNLIST |
||
1345 | 3858 FF2801 60 rts |
||
1346 | 3859 |
||
1347 | 3860 FF2802 MATVECS: |
||
1348 | 3861 FF2802 EA25 F827 FD27 .DW materr, matclsall, matclose, matget, matput |
||
1349 | 4B27 7527 |
||
1350 | 3862 FF280C 1926 D925 D926 .DW matdir, matsnd, matload, matsave, matver |
||
1351 | 9F27 DD26 |
||
1352 | 3863 FF2816 DE26 A527 DD25 .DW matrd, matwr, matopn |
||
1353 | 3864 |
||
1354 | 3865 ;--------------------------------------------------------------------------- |
||
1355 | 3866 FF281C |
||
1356 | 3867 ; test hash |
||
1357 | 3868 0000E2 HASH .EQU SMXTmp |
||
1358 | 3869 0000E4 FCBS .EQU SMXTmp+2 |
||
1359 | 3870 |
||
1360 | 3871 FF281C Cmd_mkhash: |
||
1361 | 3872 FF281C SCNPRCHAR |
||
1362 | 3873 FF281C 02 07 cop $07 |
||
1363 | 3874 .MNLIST |
||
1364 | 3875 FF281E 0D .DB KB_CR |
||
1365 | Tue Jul 17 11:00:24 2018 Page 23 |
||
1366 | |||
1367 | |||
1368 | |||
1369 | |||
1370 | 3876 |
||
1371 | 3877 FF281F A2 0A ldx #$0A |
||
1372 | 3878 FF2821 BF 70 28 FF ?02: lda >TESTSTR,x |
||
1373 | 3879 FF2825 95 E4 sta FCBS,x |
||
1374 | 3880 FF2827 CA dex |
||
1375 | 3881 FF2828 10 F7 bpl ?02 |
||
1376 | 3882 FF282A A2 E4 ldx #FCBS |
||
1377 | 3883 FF282C 20 3A 28 jsr _mkhash |
||
1378 | 3884 FF282F A5 E2 lda HASH |
||
1379 | 3885 FF2831 A6 E3 ldx HASH+1 |
||
1380 | 3886 FF2833 20 48 19 jsr PrintWord |
||
1381 | 3887 FF2836 SCNPRCHAR |
||
1382 | 3888 FF2836 02 07 cop $07 |
||
1383 | 3889 .MNLIST |
||
1384 | 3890 FF2838 0D .DB KB_CR |
||
1385 | 3891 FF2839 60 rts |
||
1386 | 3892 FF283A |
||
1387 | 3893 FF283A _mkhash: |
||
1388 | 3894 FF283A 64 E2 stz HASH |
||
1389 | 3895 FF283C 64 E3 stz HASH+1 |
||
1390 | 3896 FF283E B5 00 lda <0,x |
||
1391 | 3897 FF2840 F0 2D beq ?20 |
||
1392 | 3898 FF2842 C9 E5 cmp #$E5 |
||
1393 | 3899 FF2844 F0 29 beq ?20 |
||
1394 | 3900 FF2846 29 7F and #$7F |
||
1395 | 3901 FF2848 85 E3 sta HASH+1 |
||
1396 | 3902 FF284A A0 0A ldy #$0A |
||
1397 | 3903 FF284C ?04: ACC16 |
||
1398 | 3904 FF284C C2 20 rep #PMFLAG |
||
1399 | 3905 .LONGA on |
||
1400 | 3906 .MNLIST |
||
1401 | 3907 FF284E A5 E2 lda HASH |
||
1402 | 3908 FF2850 0A asl a |
||
1403 | 3909 FF2851 69 00 00 adc #$0000 |
||
1404 | 3910 FF2854 85 E2 sta HASH |
||
1405 | 3911 FF2856 ACC08 |
||
1406 | 3912 FF2856 E2 20 sep #PMFLAG |
||
1407 | 3913 .LONGA off |
||
1408 | 3914 .MNLIST |
||
1409 | 3915 FF2858 E8 inx |
||
1410 | 3916 FF2859 B5 00 lda <0,x |
||
1411 | 3917 FF285B 29 7F and #$7F |
||
1412 | 3918 FF285D 45 E2 eor HASH |
||
1413 | 3919 FF285F 85 E2 sta HASH |
||
1414 | 3920 FF2861 88 dey |
||
1415 | 3921 FF2862 D0 E8 bne ?04 |
||
1416 | 3922 FF2864 ACC16 |
||
1417 | 3923 FF2864 C2 20 rep #PMFLAG |
||
1418 | 3924 .LONGA on |
||
1419 | 3925 .MNLIST |
||
1420 | 3926 FF2866 A5 E2 lda HASH |
||
1421 | 3927 FF2868 D0 03 bne ?08 |
||
1422 | 3928 FF286A 1A inc a |
||
1423 | 3929 FF286B 85 E2 sta HASH |
||
1424 | 3930 FF286D ?08: ACC08 |
||
1425 | 3931 FF286D E2 20 sep #PMFLAG |
||
1426 | 3932 .LONGA off |
||
1427 | Tue Jul 17 11:00:24 2018 Page 24 |
||
1428 | |||
1429 | |||
1430 | |||
1431 | |||
1432 | 3933 .MNLIST |
||
1433 | 3934 FF286F 60 ?20: rts |
||
1434 | 3935 |
||
1435 | 3936 FF2870 TESTSTR: |
||
1436 | 3937 FF2870 2E 2E 20 20 20 .DB '.. ' |
||
1437 | 20 20 20 20 20 |
||
1438 | 20 |
||
1439 | 3938 FF287B |
||
1440 | 3939 ; # fdlsys [drive = 0] |
||
1441 | 3940 ; load rom.bin from floppy and store in bank $E0..$E7 |
||
1442 | 3941 FF287B Cmd_fdlsys: |
||
1443 | 3942 FF287B 64 EF stz SMFflag |
||
1444 | 3943 FF287D A9 00 lda #$00 |
||
1445 | 3944 FF287F B0 12 bcs ?04 ; use default drive #0 |
||
1446 | 3945 FF2881 A5 BC lda SMTmpK |
||
1447 | 3946 FF2883 05 BB ora SMTmpH |
||
1448 | 3947 FF2885 F0 03 beq ?02 |
||
1449 | 3948 FF2887 4C E5 2B jmp CmdErr |
||
1450 | 3949 FF288A A5 BA ?02: lda SMTmpL |
||
1451 | 3950 FF288C C9 04 cmp #$04 |
||
1452 | 3951 FF288E 90 03 bcc ?04 |
||
1453 | 3952 FF2890 4C E5 2B jmp CmdErr |
||
1454 | 3953 FF2893 85 E4 ?04: sta SMTmp3 ; drive |
||
1455 | 3954 FF2895 AA tax ; X = drive |
||
1456 | 3955 FF2896 FDCGETFMT ; get disk format |
||
1457 | 3956 FF2896 02 30 cop $30 |
||
1458 | 3957 FF2898 04 .DB $04 |
||
1459 | 3958 .MNLIST |
||
1460 | 3959 FF2899 90 03 bcc ?06 |
||
1461 | 3960 FF289B 4C 78 2B jmp drs0 ; error |
||
1462 | 3961 FF289E C0 02 ?06: cpy #$02 ; required format = $02 |
||
1463 | 3962 FF28A0 F0 32 beq ?08 |
||
1464 | 3963 FF28A2 SCNPRINT ; error |
||
1465 | 3964 FF28A2 02 01 cop $01 |
||
1466 | 3965 .MNLIST |
||
1467 | 3966 FF28A4 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $00 |
||
1468 | 3967 FF28A8 SCNPRINT |
||
1469 | 3968 FF28A8 02 01 cop $01 |
||
1470 | 3969 .MNLIST |
||
1471 | 3970 FF28AA 3A 3A 45 52 52 .DB '::ERROR - disk format is not 02, but ', $00 |
||
1472 | 4F 52 20 2D 20 |
||
1473 | 64 69 73 6B 20 |
||
1474 | 66 6F 72 6D 61 |
||
1475 | 74 20 69 73 20 |
||
1476 | 6E 6F 74 20 30 |
||
1477 | 32 2C 20 62 75 |
||
1478 | 74 20 00 |
||
1479 | 3971 FF28D0 98 tya |
||
1480 | 3972 FF28D1 4C 71 19 jmp PrintHex |
||
1481 | 3973 FF28D4 A5 E4 ?08: lda SMTmp3 ; drive |
||
1482 | 3974 FF28D6 48 pha |
||
1483 | 3975 FF28D7 A9 00 lda #$00 |
||
1484 | 3976 FF28D9 48 pha ; track = 0 |
||
1485 | 3977 FF28DA 48 pha ; buffer = 0 |
||
1486 | 3978 FF28DB 48 pha ; flag = dos format |
||
1487 | 3979 FF28DC FDCTKRD ; read whole track 0 |
||
1488 | 3980 FF28DC 02 35 cop $35 |
||
1489 | Tue Jul 17 11:00:24 2018 Page 25 |
||
1490 | |||
1491 | |||
1492 | |||
1493 | |||
1494 | 3981 FF28DE 00 .DB $00 |
||
1495 | 3982 .MNLIST |
||
1496 | 3983 FF28DF 90 03 bcc ?10 |
||
1497 | 3984 FF28E1 4C F5 2D jmp fdcr ; error |
||
1498 | 3985 FF28E4 ?10: INDEX16 |
||
1499 | 3986 FF28E4 C2 10 rep #PXFLAG |
||
1500 | 3987 .LONGI on |
||
1501 | 3988 .MNLIST |
||
1502 | 3989 FF28E6 A0 00 26 ldy #$2600 ; start of root directory |
||
1503 | 3990 FF28E9 84 BA sty SMTmpL |
||
1504 | 3991 FF28EB INDEX08 |
||
1505 | 3992 FF28EB E2 10 sep #PXFLAG |
||
1506 | 3993 .LONGI off |
||
1507 | 3994 .MNLIST |
||
1508 | 3995 FF28ED A9 02 lda #$02 |
||
1509 | 3996 FF28EF 85 BC sta SMTmpK |
||
1510 | 3997 FF28F1 A7 BA ?12: lda [SMTmpL] ; scan root directory |
||
1511 | 3998 FF28F3 D0 2A bne ?16 |
||
1512 | 3999 FF28F5 ?14: SCNPRINT ; error -- end of root directory |
||
1513 | 4000 FF28F5 02 01 cop $01 |
||
1514 | 4001 .MNLIST |
||
1515 | 4002 FF28F7 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $00 |
||
1516 | 4003 FF28FB SCNPRINT |
||
1517 | 4004 FF28FB 02 01 cop $01 |
||
1518 | 4005 .MNLIST |
||
1519 | 4006 FF28FD 3A 3A 45 52 52 .DB '::ERROR - file ROM.BIN not found', $00 |
||
1520 | 4F 52 20 2D 20 |
||
1521 | 66 69 6C 65 20 |
||
1522 | 52 4F 4D 2E 42 |
||
1523 | 49 4E 20 6E 6F |
||
1524 | 74 20 66 6F 75 |
||
1525 | 6E 64 00 |
||
1526 | 4007 FF291E 60 rts |
||
1527 | 4008 FF291F A2 00 ?16: ldx #0 ; search 'rom.bin' |
||
1528 | 4009 FF2921 9B txy |
||
1529 | 4010 FF2922 B7 BA ?16l: lda [SMTmpL],y |
||
1530 | 4011 FF2924 DF 3A 2B FF cmp >SYNAM,x |
||
1531 | 4012 FF2928 F0 12 beq ?17 |
||
1532 | 4013 FF292A ACC16CLC |
||
1533 | 4014 FF292A C2 21 rep #(PMFLAG.OR.PCFLAG) |
||
1534 | 4015 .LONGA on |
||
1535 | 4016 .MNLIST |
||
1536 | 4017 FF292C A5 BA lda SMTmpL |
||
1537 | 4018 FF292E 69 20 00 adc #$0020 |
||
1538 | 4019 FF2931 85 BA sta SMTmpL |
||
1539 | 4020 FF2933 C9 00 42 cmp #$4200 ; end of root directory? |
||
1540 | 4021 FF2936 ACC08 |
||
1541 | 4022 FF2936 E2 20 sep #PMFLAG |
||
1542 | 4023 .LONGA off |
||
1543 | 4024 .MNLIST |
||
1544 | 4025 FF2938 90 B7 bcc ?12 ; loop scan |
||
1545 | 4026 FF293A B0 B9 bcs ?14 ; end of root directory |
||
1546 | 4027 FF293C C8 ?17: iny |
||
1547 | 4028 FF293D E8 inx |
||
1548 | 4029 FF293E E0 0B cpx #$0B |
||
1549 | 4030 FF2940 90 E0 bcc ?16l |
||
1550 | 4031 FF2942 B7 BA lda [SMTmpL],y ; name ok -- check record |
||
1551 | Tue Jul 17 11:00:24 2018 Page 26 |
||
1552 | |||
1553 | |||
1554 | |||
1555 | |||
1556 | 4032 FF2944 C9 20 cmp #$20 ; attribute |
||
1557 | 4033 FF2946 F0 29 beq ?20 |
||
1558 | 4034 FF2948 ?18: SCNPRINT ; error -- entry not valid |
||
1559 | 4035 FF2948 02 01 cop $01 |
||
1560 | 4036 .MNLIST |
||
1561 | 4037 FF294A 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $00 |
||
1562 | 4038 FF294E SCNPRINT |
||
1563 | 4039 FF294E 02 01 cop $01 |
||
1564 | 4040 .MNLIST |
||
1565 | 4041 FF2950 3A 3A 45 52 52 .DB '::ERROR - invalid ROM.BIN entry', $00 |
||
1566 | 4F 52 20 2D 20 |
||
1567 | 69 6E 76 61 6C |
||
1568 | 69 64 20 52 4F |
||
1569 | 4D 2E 42 49 4E |
||
1570 | 20 65 6E 74 72 |
||
1571 | 79 00 |
||
1572 | 4042 FF2970 60 rts |
||
1573 | 4043 FF2971 A0 1A ?20: ldy #$1A ; check cluster |
||
1574 | 4044 FF2973 B7 BA lda [SMTmpL],y |
||
1575 | 4045 FF2975 C9 02 cmp #$02 |
||
1576 | 4046 FF2977 D0 CF bne ?18 ; will be cluster #2 |
||
1577 | 4047 FF2979 C8 iny |
||
1578 | 4048 FF297A B7 BA lda [SMTmpL],y |
||
1579 | 4049 FF297C D0 CA bne ?18 |
||
1580 | 4050 FF297E C8 iny |
||
1581 | 4051 FF297F C8 iny |
||
1582 | 4052 FF2980 C8 iny |
||
1583 | 4053 FF2981 ACC16 ; test size |
||
1584 | 4054 FF2981 C2 20 rep #PMFLAG |
||
1585 | 4055 .LONGA on |
||
1586 | 4056 .MNLIST |
||
1587 | 4057 FF2983 B7 BA lda [SMTmpL],y ; size H |
||
1588 | 4058 FF2985 85 E8 sta SMdwTmp1+2 |
||
1589 | 4059 FF2987 88 dey |
||
1590 | 4060 FF2988 88 dey |
||
1591 | 4061 FF2989 B7 BA lda [SMTmpL],y ; size L |
||
1592 | 4062 FF298B 85 E6 sta SMdwTmp1 |
||
1593 | 4063 FF298D ACC08 |
||
1594 | 4064 FF298D E2 20 sep #PMFLAG |
||
1595 | 4065 .LONGA off |
||
1596 | 4066 .MNLIST |
||
1597 | 4067 FF298F D0 B7 bne ?18 ; size L must be 0 |
||
1598 | 4068 FF2991 A5 E9 lda SMdwTmp1+3 |
||
1599 | 4069 FF2993 D0 B3 bne ?18 ; must be 0 |
||
1600 | 4070 FF2995 A5 E8 lda SMdwTmp1+2 |
||
1601 | 4071 FF2997 C9 08 cmp #$08 |
||
1602 | 4072 FF2999 D0 AD bne ?18 ; must be 0 |
||
1603 | 4073 ; now check FAT 1 -- ROM.BIN must be in sqeuential clusters |
||
1604 | 4074 ; starting from cluster #2 - last cluster $0402 |
||
1605 | 4075 FF299B A0 01 ldy #1 |
||
1606 | 4076 FF299D CPU16 |
||
1607 | 4077 FF299D C2 30 rep #(PMFLAG.OR.PXFLAG) |
||
1608 | 4078 .LONGA on |
||
1609 | 4079 .LONGI on |
||
1610 | 4080 .MNLIST |
||
1611 | 4081 FF299F A9 00 02 lda #$0200 ; start of FAT #1 |
||
1612 | 4082 FF29A2 85 BA sta SMTmpL |
||
1613 | Tue Jul 17 11:00:24 2018 Page 27 |
||
1614 | |||
1615 | |||
1616 | |||
1617 | |||
1618 | 4083 FF29A4 A7 BA lda [SMTmpL] |
||
1619 | 4084 FF29A6 C9 F0 FF cmp #$FFF0 |
||
1620 | 4085 FF29A9 D0 34 bne ?28 |
||
1621 | 4086 FF29AB B7 BA lda [SMTmpL],y ; must be $FFFF |
||
1622 | 4087 FF29AD 1A inc a |
||
1623 | 4088 FF29AE D0 2F bne ?28 |
||
1624 | 4089 FF29B0 C8 iny |
||
1625 | 4090 FF29B1 C8 iny |
||
1626 | 4091 FF29B2 84 EA sty SMdwTmp2 ; next expected cluster |
||
1627 | 4092 FF29B4 B7 BA ?22: lda [SMTmpL],y |
||
1628 | 4093 FF29B6 29 FF 0F and #$0FFF ; mask 12 bit low |
||
1629 | 4094 FF29B9 C5 EA cmp SMdwTmp2 ; even cluster |
||
1630 | 4095 FF29BB D0 22 bne ?28 ; unmatch |
||
1631 | 4096 FF29BD C8 iny ; 12 bit high |
||
1632 | 4097 FF29BE C9 01 04 cmp #$0401 |
||
1633 | 4098 FF29C1 D0 07 bne ?24 |
||
1634 | 4099 FF29C3 A9 FF 0F lda #$0FFF |
||
1635 | 4100 FF29C6 85 EA sta SMdwTmp2 ; mark last cluster |
||
1636 | 4101 FF29C8 80 02 bra ?26 |
||
1637 | 4102 FF29CA E6 EA ?24: inc SMdwTmp2 |
||
1638 | 4103 FF29CC B7 BA ?26: lda [SMTmpL],y |
||
1639 | 4104 FF29CE 4A lsr a |
||
1640 | 4105 FF29CF 4A lsr a |
||
1641 | 4106 FF29D0 4A lsr a |
||
1642 | 4107 FF29D1 4A lsr a ; odd cluster |
||
1643 | 4108 FF29D2 C8 iny |
||
1644 | 4109 FF29D3 C8 iny ; next FAT entry |
||
1645 | 4110 FF29D4 C5 EA cmp SMdwTmp2 ; even cluster |
||
1646 | 4111 FF29D6 D0 07 bne ?28 |
||
1647 | 4112 FF29D8 E6 EA inc SMdwTmp2 |
||
1648 | 4113 FF29DA C9 FF 0F cmp #$0FFF |
||
1649 | 4114 FF29DD D0 D5 bne ?22 ; loop |
||
1650 | 4115 FF29DF ?28: CPU08 |
||
1651 | 4116 FF29DF E2 30 sep #(PMFLAG.OR.PXFLAG) |
||
1652 | 4117 .LONGA off |
||
1653 | 4118 .LONGI off |
||
1654 | 4119 .MNLIST |
||
1655 | 4120 FF29E1 F0 1F beq ?30 ; ok -- check FAT done |
||
1656 | 4121 FF29E3 SCNPRINT ; error -- invalid FAT |
||
1657 | 4122 FF29E3 02 01 cop $01 |
||
1658 | 4123 .MNLIST |
||
1659 | 4124 FF29E5 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $00 |
||
1660 | 4125 FF29E9 SCNPRINT |
||
1661 | 4126 FF29E9 02 01 cop $01 |
||
1662 | 4127 .MNLIST |
||
1663 | 4128 FF29EB 3A 3A 45 52 52 .DB '::ERROR - invalid FAT', $00 |
||
1664 | 4F 52 20 2D 20 |
||
1665 | 69 6E 76 61 6C |
||
1666 | 69 64 20 46 41 |
||
1667 | 54 00 |
||
1668 | 4129 FF2A01 60 rts |
||
1669 | 4130 FF2A02 ?30: SCNPRINT |
||
1670 | 4131 FF2A02 02 01 cop $01 |
||
1671 | 4132 .MNLIST |
||
1672 | 4133 FF2A04 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $00 |
||
1673 | 4134 FF2A08 SCNPRINT |
||
1674 | 4135 FF2A08 02 01 cop $01 |
||
1675 | Tue Jul 17 11:00:24 2018 Page 28 |
||
1676 | |||
1677 | |||
1678 | |||
1679 | |||
1680 | 4136 .MNLIST |
||
1681 | 4137 FF2A0A 3A 3A 6C 6F 61 .DB '::load "ROM.BIN" from bank $E0 to bank $E7', $00 |
||
1682 | 64 20 22 52 4F |
||
1683 | 4D 2E 42 49 4E |
||
1684 | 22 20 66 72 6F |
||
1685 | 6D 20 62 61 6E |
||
1686 | 6B 20 24 45 30 |
||
1687 | 20 74 6F 20 62 |
||
1688 | 61 6E 6B 20 24 |
||
1689 | 45 37 00 |
||
1690 | 4138 FF2A35 A9 E0 lda #$E0 |
||
1691 | 4139 FF2A37 85 FA sta SMdwTmp3+2 |
||
1692 | 4140 FF2A39 A9 01 lda #1 |
||
1693 | 4141 FF2A3B 85 E5 sta SMTmp3+1 ; track = 1 |
||
1694 | 4142 FF2A3D A0 00 ldy #0 |
||
1695 | 4143 FF2A3F CPU16 |
||
1696 | 4144 FF2A3F C2 30 rep #(PMFLAG.OR.PXFLAG) |
||
1697 | 4145 .LONGA on |
||
1698 | 4146 .LONGI on |
||
1699 | 4147 .MNLIST |
||
1700 | 4148 FF2A41 A9 00 42 lda #$4200 ; start of cluster #2 |
||
1701 | 4149 FF2A44 85 BA sta SMTmpL |
||
1702 | 4150 FF2A46 64 F8 stz SMdwTmp3 |
||
1703 | 4151 FF2A48 B7 BA ?34: lda [SMTmpL],y ; copy the last 3 sectors of track 0, head 1 |
||
1704 | 4152 FF2A4A 97 F8 sta [SMdwTmp3],y |
||
1705 | 4153 FF2A4C C8 iny |
||
1706 | 4154 FF2A4D C8 iny |
||
1707 | 4155 FF2A4E C0 00 06 cpy #$0600 |
||
1708 | 4156 FF2A51 90 F5 bcc ?34 |
||
1709 | 4157 FF2A53 84 F8 sty SMdwTmp3 ; update dest pointer |
||
1710 | 4158 FF2A55 84 E6 sty SMdwTmp1 ; count moved bytes |
||
1711 | 4159 FF2A57 64 E8 stz SMdwTmp1+2 |
||
1712 | 4160 FF2A59 64 BA stz SMTmpL ; buffer pointer |
||
1713 | 4161 FF2A5B CPU08 |
||
1714 | 4162 FF2A5B E2 30 sep #(PMFLAG.OR.PXFLAG) |
||
1715 | 4163 .LONGA off |
||
1716 | 4164 .LONGI off |
||
1717 | 4165 .MNLIST |
||
1718 | 4166 FF2A5D A5 E4 ?36: lda SMTmp3 ; loop track 1..28 |
||
1719 | 4167 FF2A5F 48 pha ; drive |
||
1720 | 4168 FF2A60 A5 E5 lda SMTmp3+1 |
||
1721 | 4169 FF2A62 48 pha ; track |
||
1722 | 4170 FF2A63 F4 00 00 pea #0 ; buffer = 0, flag = 0 |
||
1723 | 4171 FF2A66 FDCTKRD ; read whole track |
||
1724 | 4172 FF2A66 02 35 cop $35 |
||
1725 | 4173 FF2A68 00 .DB $00 |
||
1726 | 4174 .MNLIST |
||
1727 | 4175 FF2A69 90 03 bcc ?38 |
||
1728 | 4176 FF2A6B 4C F5 2D jmp fdcr ; error |
||
1729 | 4177 FF2A6E 20 10 2B ?38: jsr ?100 ; move bytes |
||
1730 | 4178 FF2A71 A6 E5 ?42: ldx SMTmp3+1 |
||
1731 | 4179 FF2A73 E8 inx |
||
1732 | 4180 FF2A74 86 E5 stx SMTmp3+1 |
||
1733 | 4181 FF2A76 E0 1D cpx #29 |
||
1734 | 4182 FF2A78 90 E3 bcc ?36 ; loop track 1..28 |
||
1735 | 4183 FF2A7A A5 E4 lda SMTmp3 |
||
1736 | 4184 FF2A7C 48 pha ; drive |
||
1737 | Tue Jul 17 11:00:24 2018 Page 29 |
||
1738 | |||
1739 | |||
1740 | |||
1741 | |||
1742 | 4185 FF2A7D DA phx ; track 29 |
||
1743 | 4186 FF2A7E A9 00 lda #0 |
||
1744 | 4187 FF2A80 48 pha ; head = 0 |
||
1745 | 4188 FF2A81 1A inc a |
||
1746 | 4189 FF2A82 48 pha ; secror = 1 |
||
1747 | 4190 FF2A83 A9 0D lda #13 |
||
1748 | 4191 FF2A85 48 pha ; read 13 sectors |
||
1749 | 4192 FF2A86 F4 00 00 pea #0 ; buffer = 0, flag = 0 |
||
1750 | 4193 FF2A89 FDCREAD |
||
1751 | 4194 FF2A89 02 31 cop $31 |
||
1752 | 4195 FF2A8B 00 .DB $00 |
||
1753 | 4196 .MNLIST |
||
1754 | 4197 FF2A8C 90 03 bcc ?44 |
||
1755 | 4198 FF2A8E 4C F5 2D jmp fdcr |
||
1756 | 4199 FF2A91 20 10 2B ?44: jsr ?100 ; move bytes |
||
1757 | 4200 FF2A94 SCNPRCHAR |
||
1758 | 4201 FF2A94 02 07 cop $07 |
||
1759 | 4202 .MNLIST |
||
1760 | 4203 FF2A96 0D .DB KB_CR |
||
1761 | 4204 FF2A97 A5 E8 lda SMdwTmp1+2 |
||
1762 | 4205 FF2A99 20 71 19 jsr PrintHex ; number of bytes |
||
1763 | 4206 FF2A9C A5 E6 lda SMdwTmp1 |
||
1764 | 4207 FF2A9E A6 E7 ldx SMdwTmp1+1 |
||
1765 | 4208 FF2AA0 20 48 19 jsr PrintWord ; number of bytes |
||
1766 | 4209 FF2AA3 A5 FA lda SMdwTmp3+2 |
||
1767 | 4210 FF2AA5 20 71 19 jsr PrintHex ; final address +1 |
||
1768 | 4211 FF2AA8 A5 F8 lda SMdwTmp3 |
||
1769 | 4212 FF2AAA A6 F9 ldx SMdwTmp3+1 |
||
1770 | 4213 FF2AAC 20 48 19 jsr PrintWord |
||
1771 | 4214 FF2AAF A5 E6 lda SMdwTmp1 |
||
1772 | 4215 FF2AB1 05 E7 ora SMdwTmp1+1 ; must be null |
||
1773 | 4216 FF2AB3 D0 12 bne ?46 |
||
1774 | 4217 FF2AB5 A5 F8 lda SMdwTmp3 |
||
1775 | 4218 FF2AB7 05 F9 ora SMdwTmp3+1 ; must be null |
||
1776 | 4219 FF2AB9 D0 0C bne ?46 |
||
1777 | 4220 FF2ABB A5 E8 lda SMdwTmp1+2 |
||
1778 | 4221 FF2ABD C9 08 cmp #$08 ; must be = 8 |
||
1779 | 4222 FF2ABF D0 06 bne ?46 |
||
1780 | 4223 FF2AC1 A5 FA lda SMdwTmp3+2 |
||
1781 | 4224 FF2AC3 C9 E8 cmp #$E8 ; must be = E8 |
||
1782 | 4225 FF2AC5 F0 28 beq ?48 |
||
1783 | 4226 FF2AC7 ?46: SCNPRINT |
||
1784 | 4227 FF2AC7 02 01 cop $01 |
||
1785 | 4228 .MNLIST |
||
1786 | 4229 FF2AC9 20 2D 2D 20 45 .DB ' -- ERROR -- flash cannot be updated', $00 |
||
1787 | 52 52 4F 52 20 |
||
1788 | 2D 2D 20 66 6C |
||
1789 | 61 73 68 20 63 |
||
1790 | 61 6E 6E 6F 74 |
||
1791 | 20 62 65 20 75 |
||
1792 | 70 64 61 74 65 |
||
1793 | 64 00 |
||
1794 | 4230 FF2AEE 60 rts |
||
1795 | 4231 FF2AEF A9 80 ?48: lda #$80 |
||
1796 | 4232 FF2AF1 85 EF sta SMFflag |
||
1797 | 4233 FF2AF3 SCNPRINT |
||
1798 | 4234 FF2AF3 02 01 cop $01 |
||
1799 | Tue Jul 17 11:00:24 2018 Page 30 |
||
1800 | |||
1801 | |||
1802 | |||
1803 | |||
1804 | 4235 .MNLIST |
||
1805 | 4236 FF2AF5 20 4F 4B 3A 20 .DB ' OK: flash can be updated', $00 |
||
1806 | 66 6C 61 73 68 |
||
1807 | 20 63 61 6E 20 |
||
1808 | 62 65 20 75 70 |
||
1809 | 64 61 74 65 64 |
||
1810 | 00 |
||
1811 | 4237 FF2B0F 60 rts |
||
1812 | 4238 FF2B10 A0 00 ?100: ldy #0 |
||
1813 | 4239 FF2B12 CPU16 |
||
1814 | 4240 FF2B12 C2 30 rep #(PMFLAG.OR.PXFLAG) |
||
1815 | 4241 .LONGA on |
||
1816 | 4242 .LONGI on |
||
1817 | 4243 .MNLIST |
||
1818 | 4244 FF2B14 85 EA sta SMdwTmp2 ; number of bytes |
||
1819 | 4245 FF2B16 B7 BA ?200: lda [SMTmpL],y ; copy 36 sectors |
||
1820 | 4246 FF2B18 97 F8 sta [SMdwTmp3],y |
||
1821 | 4247 FF2B1A C8 iny |
||
1822 | 4248 FF2B1B C8 iny |
||
1823 | 4249 FF2B1C C4 EA cpy SMdwTmp2 |
||
1824 | 4250 FF2B1E 90 F6 bcc ?200 |
||
1825 | 4251 FF2B20 A5 E6 lda SMdwTmp1 |
||
1826 | 4252 FF2B22 18 clc |
||
1827 | 4253 FF2B23 65 EA adc SMdwTmp2 ; update count of moved bytes |
||
1828 | 4254 FF2B25 85 E6 sta SMdwTmp1 |
||
1829 | 4255 FF2B27 A5 E8 lda SMdwTmp1+2 |
||
1830 | 4256 FF2B29 69 00 00 adc #$0000 |
||
1831 | 4257 FF2B2C 85 E8 sta SMdwTmp1+2 |
||
1832 | 4258 FF2B2E 98 tya |
||
1833 | 4259 FF2B2F 65 F8 adc SMdwTmp3 ; update dest pointer |
||
1834 | 4260 FF2B31 85 F8 sta SMdwTmp3 |
||
1835 | 4261 FF2B33 CPU08 |
||
1836 | 4262 FF2B33 E2 30 sep #(PMFLAG.OR.PXFLAG) |
||
1837 | 4263 .LONGA off |
||
1838 | 4264 .LONGI off |
||
1839 | 4265 .MNLIST |
||
1840 | 4266 FF2B35 90 02 bcc ?202 |
||
1841 | 4267 FF2B37 E6 FA inc SMdwTmp3+2 |
||
1842 | 4268 FF2B39 60 ?202: rts |
||
1843 | 4269 |
||
1844 | 4270 FF2B3A SYNAM: |
||
1845 | 4271 FF2B3A 52 4F 4D 20 20 .DB 'ROM BIN' |
||
1846 | 20 20 20 42 49 |
||
1847 | 4E |
||
1848 | 4272 FF2B45 |
||
1849 | 4273 |
||
1850 | 4274 ; # fdnew fmt0 [fmt1 = $80] |
||
1851 | 4275 FF2B45 Cmd_fdnew: |
||
1852 | 4276 FF2B45 90 03 bcc ?00 |
||
1853 | 4277 FF2B47 4C E5 2B jmp CmdErr ; no parametri |
||
1854 | 4278 FF2B4A A5 BC ?00: lda SMTmpK |
||
1855 | 4279 FF2B4C 05 BB ora SMTmpH |
||
1856 | 4280 FF2B4E F0 03 beq ?01 |
||
1857 | 4281 FF2B50 4C E5 2B jmp CmdErr |
||
1858 | 4282 FF2B53 A5 BA ?01: lda SMTmpL |
||
1859 | 4283 FF2B55 48 pha ; format #0 |
||
1860 | 4284 FF2B56 20 5A 01 jsr GetParm ; format #1 |
||
1861 | Tue Jul 17 11:00:24 2018 Page 31 |
||
1862 | |||
1863 | |||
1864 | |||
1865 | |||
1866 | 4285 FF2B59 90 04 bcc ?02 |
||
1867 | 4286 FF2B5B A9 80 lda #$80 |
||
1868 | 4287 FF2B5D 85 BA sta SMTmpL |
||
1869 | 4288 FF2B5F FA ?02: plx ; X = format #0 |
||
1870 | 4289 FF2B60 A4 BA ldy SMTmpL ; Y = format #1 |
||
1871 | 4290 FF2B62 FDNEWRD |
||
1872 | 4291 FF2B62 02 30 cop $30 |
||
1873 | 4292 FF2B64 02 .DB $02 |
||
1874 | 4293 .MNLIST |
||
1875 | 4294 FF2B65 80 55 bra drs |
||
1876 | 4295 |
||
1877 | 4296 ; # fdgetfmt [0=default|1] - get current disk format |
||
1878 | 4297 FF2B67 Cmd_fdgetfmt: |
||
1879 | 4298 FF2B67 F0 06 beq ?01 |
||
1880 | 4299 FF2B69 A5 BC lda SMTmpK |
||
1881 | 4300 FF2B6B 05 BB ora SMTmpH |
||
1882 | 4301 FF2B6D D0 76 bne CmdErr |
||
1883 | 4302 FF2B6F A6 BA ?01: ldx SMTmpL |
||
1884 | 4303 FF2B71 C9 04 cmp #$04 |
||
1885 | 4304 FF2B73 B0 70 bcs CmdErr |
||
1886 | 4305 FF2B75 FDCGETFMT |
||
1887 | 4306 FF2B75 02 30 cop $30 |
||
1888 | 4307 FF2B77 04 .DB $04 |
||
1889 | 4308 .MNLIST |
||
1890 | 4309 ;FDCGETST |
||
1891 | 4310 FF2B78 08 drs0: php |
||
1892 | 4311 FF2B79 SCNPRINT ; clear result line |
||
1893 | 4312 FF2B79 02 01 cop $01 |
||
1894 | 4313 .MNLIST |
||
1895 | 4314 FF2B7B 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $00 |
||
1896 | 4315 FF2B7F 28 plp |
||
1897 | 4316 FF2B80 90 15 bcc ?02 |
||
1898 | 4317 FF2B82 SCNPRINT |
||
1899 | 4318 FF2B82 02 01 cop $01 |
||
1900 | 4319 .MNLIST |
||
1901 | 4320 FF2B84 3A 3A 65 72 72 .DB '::error code -> ', $00 |
||
1902 | 6F 72 20 63 6F |
||
1903 | 64 65 20 2D 3E |
||
1904 | 20 00 |
||
1905 | 4321 FF2B95 80 09 bra ?04 |
||
1906 | 4322 FF2B97 ?02: SCNPRINT |
||
1907 | 4323 FF2B97 02 01 cop $01 |
||
1908 | 4324 .MNLIST |
||
1909 | 4325 FF2B99 3A 3A 4F 4B 2C .DB '::OK, ', $00 |
||
1910 | 20 00 |
||
1911 | 4326 FF2BA0 98 ?04: tya |
||
1912 | 4327 FF2BA1 4C 71 19 jmp PrintHex |
||
1913 | 4328 FF2BA4 |
||
1914 | 4329 ; # fdres - reset FDC controller |
||
1915 | 4330 FF2BA4 Cmd_fdres: |
||
1916 | 4331 FF2BA4 D0 3F bne CmdErr |
||
1917 | 4332 FF2BA6 FDCRESET |
||
1918 | 4333 FF2BA6 02 30 cop $30 |
||
1919 | 4334 FF2BA8 00 .DB $00 |
||
1920 | 4335 .MNLIST |
||
1921 | 4336 FF2BA9 80 11 bra drs |
||
1922 | 4337 |
||
1923 | Tue Jul 17 11:00:24 2018 Page 32 |
||
1924 | |||
1925 | |||
1926 | |||
1927 | |||
1928 | 4338 ; # fddisk [0=default|1] - check drive for disk inserted |
||
1929 | 4339 FF2BAB Cmd_fddisk: |
||
1930 | 4340 FF2BAB F0 06 beq ?01 |
||
1931 | 4341 FF2BAD A5 BC lda SMTmpK |
||
1932 | 4342 FF2BAF 05 BB ora SMTmpH |
||
1933 | 4343 FF2BB1 D0 32 bne CmdErr |
||
1934 | 4344 FF2BB3 A6 BA ?01: ldx SMTmpL |
||
1935 | 4345 FF2BB5 E0 04 cpx #$04 |
||
1936 | 4346 FF2BB7 B0 2C bcs CmdErr |
||
1937 | 4347 FF2BB9 FDCTST |
||
1938 | 4348 FF2BB9 02 30 cop $30 |
||
1939 | 4349 FF2BBB 03 .DB $03 |
||
1940 | 4350 .MNLIST |
||
1941 | 4351 FF2BBC 08 drs: php |
||
1942 | 4352 FF2BBD SCNPRINT ; clear result line |
||
1943 | 4353 FF2BBD 02 01 cop $01 |
||
1944 | 4354 .MNLIST |
||
1945 | 4355 FF2BBF 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $00 |
||
1946 | 4356 FF2BC3 28 plp |
||
1947 | 4357 FF2BC4 90 17 bcc ?02 |
||
1948 | 4358 FF2BC6 SCNPRINT |
||
1949 | 4359 FF2BC6 02 01 cop $01 |
||
1950 | 4360 .MNLIST |
||
1951 | 4361 FF2BC8 3A 3A 65 72 72 .DB '::error code -> ', $00 |
||
1952 | 6F 72 20 63 6F |
||
1953 | 64 65 20 2D 3E |
||
1954 | 20 00 |
||
1955 | 4362 FF2BD9 98 tya |
||
1956 | 4363 FF2BDA 4C 71 19 jmp PrintHex |
||
1957 | 4364 FF2BDD ?02: SCNPRINT |
||
1958 | 4365 FF2BDD 02 01 cop $01 |
||
1959 | 4366 .MNLIST |
||
1960 | 4367 FF2BDF 3A 3A 4F 4B 00 .DB '::OK', $00 |
||
1961 | 4368 FF2BE4 60 rts |
||
1962 | 4369 |
||
1963 | 4370 FF2BE5 CmdErr: |
||
1964 | 4371 FF2BE5 4C 34 01 jmp ErrCls2 |
||
1965 | 4372 |
||
1966 | 4373 ; # fdinit - reset FDC controller and check drives |
||
1967 | 4374 FF2BE8 Cmd_fdinit: |
||
1968 | 4375 FF2BE8 D0 FB bne CmdErr |
||
1969 | 4376 FF2BEA A9 40 lda #$40 |
||
1970 | 4377 FF2BEC 1C 55 00 trb !BiosEnt |
||
1971 | 4378 FF2BEF A9 04 lda #$04 |
||
1972 | 4379 FF2BF1 2C 46 00 bit !fdcctl |
||
1973 | 4380 FF2BF4 F0 09 beq ?10 ; skip test FDC |
||
1974 | 4381 FF2BF6 SCNPRINT ; clear result line |
||
1975 | 4382 FF2BF6 02 01 cop $01 |
||
1976 | 4383 .MNLIST |
||
1977 | 4384 FF2BF8 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $00 |
||
1978 | 4385 FF2BFC FDCINIT |
||
1979 | 4386 FF2BFC 02 30 cop $30 |
||
1980 | 4387 FF2BFE 01 .DB $01 |
||
1981 | 4388 .MNLIST |
||
1982 | 4389 FF2BFF 60 ?10: rts |
||
1983 | 4390 |
||
1984 | 4391 ; # fdformat drive flag/disk_fmt [fill = $00] |
||
1985 | Tue Jul 17 11:00:24 2018 Page 33 |
||
1986 | |||
1987 | |||
1988 | |||
1989 | |||
1990 | 4392 FF2C00 Cmd_fdformat: |
||
1991 | 4393 FF2C00 B0 E3 bcs CmdErr ; no parametri |
||
1992 | 4394 FF2C02 A5 BA lda SMTmpL |
||
1993 | 4395 FF2C04 85 E2 sta SMTmp2 ; drive |
||
1994 | 4396 FF2C06 20 5A 01 jsr GetParm ; parametro 2 - flag |
||
1995 | 4397 FF2C09 B0 DA bcs CmdErr |
||
1996 | 4398 FF2C0B A5 BA lda SMTmpL |
||
1997 | 4399 FF2C0D 85 E3 sta SMTmp2+1 ; flag |
||
1998 | 4400 FF2C0F 20 5A 01 jsr GetParm ; parametro 3 - fill byte |
||
1999 | 4401 FF2C12 90 02 bcc ?04 |
||
2000 | 4402 FF2C14 64 BA stz SMTmpL ; default fill byte = $00 |
||
2001 | 4403 FF2C16 A5 E2 ?04: lda SMTmp2 |
||
2002 | 4404 FF2C18 48 pha |
||
2003 | 4405 FF2C19 48 pha ; drive |
||
2004 | 4406 FF2C1A A5 E3 lda SMTmp2+1 |
||
2005 | 4407 FF2C1C 48 pha ; flag |
||
2006 | 4408 FF2C1D A5 BA lda SMTmpL |
||
2007 | 4409 FF2C1F 48 pha ; fill byte |
||
2008 | 4410 FF2C20 4B phk ; bank of callback |
||
2009 | 4411 FF2C21 F4 63 2C pea #_FmtNotify ; address of callback |
||
2010 | 4412 FF2C24 FDCFORMAT |
||
2011 | 4413 FF2C24 02 33 cop $33 |
||
2012 | 4414 .MNLIST |
||
2013 | 4415 FF2C26 68 pla |
||
2014 | 4416 FF2C27 B0 93 bcs drs |
||
2015 | 4417 FF2C29 SCNPRINT |
||
2016 | 4418 FF2C29 02 01 cop $01 |
||
2017 | 4419 .MNLIST |
||
2018 | 4420 FF2C2B 0D 3A 3A 6D 61 .DB $0D, '::make file system', $00 |
||
2019 | 6B 65 20 66 69 |
||
2020 | 6C 65 20 73 79 |
||
2021 | 73 74 65 6D 00 |
||
2022 | 4421 ;lda SMTmp2 |
||
2023 | 4422 FF2C3F 48 pha ; drive |
||
2024 | 4423 FF2C40 A9 00 lda #0 |
||
2025 | 4424 FF2C42 48 pha ; buffer |
||
2026 | 4425 FF2C43 F4 00 00 pea #0 ; ID |
||
2027 | 4426 FF2C46 48 pha ; name = null |
||
2028 | 4427 FF2C47 F4 00 00 pea #0 |
||
2029 | 4428 FF2C4A FDCMKFS |
||
2030 | 4429 FF2C4A 02 36 cop $36 |
||
2031 | 4430 .MNLIST |
||
2032 | 4431 FF2C4C 4C BC 2B jmp drs |
||
2033 | 4432 FF2C4F |
||
2034 | 4433 |
||
2035 | 4434 ; # fdverfmt drive [default = 0] |
||
2036 | 4435 FF2C4F Cmd_fdverfmt: |
||
2037 | 4436 FF2C4F F0 06 beq ?01 |
||
2038 | 4437 FF2C51 A5 BC lda SMTmpK |
||
2039 | 4438 FF2C53 05 BB ora SMTmpH |
||
2040 | 4439 FF2C55 D0 8E bne CmdErr |
||
2041 | 4440 FF2C57 A5 BA ?01: lda SMTmpL |
||
2042 | 4441 FF2C59 48 pha ; drive |
||
2043 | 4442 FF2C5A 4B phk ; bank of callback |
||
2044 | 4443 FF2C5B F4 EC 2C pea #_VFmtNotify ; address of callback |
||
2045 | 4444 FF2C5E FDCVERFMT |
||
2046 | 4445 FF2C5E 02 34 cop $34 |
||
2047 | Tue Jul 17 11:00:24 2018 Page 34 |
||
2048 | |||
2049 | |||
2050 | |||
2051 | |||
2052 | 4446 .MNLIST |
||
2053 | 4447 FF2C60 4C 78 2B jmp drs0 |
||
2054 | 4448 FF2C63 |
||
2055 | 4449 ; funzione notify callback durante fdformat (LONG) |
||
2056 | 4450 ; In - A = drive |
||
2057 | 4451 ; X = head |
||
2058 | 4452 ; Y = track |
||
2059 | 4453 ; B = sector/track |
||
2060 | 4454 ; CF = 0 prima chiamata |
||
2061 | 4455 FF2C63 _FmtNotify: |
||
2062 | 4456 FF2C63 0B phd |
||
2063 | 4457 FF2C64 F4 00 01 pea #DP01ADDR |
||
2064 | 4458 FF2C67 2B pld |
||
2065 | 4459 FF2C68 B0 68 bcs ?10 ; chiamate successive |
||
2066 | 4460 FF2C6A SCNPRINT |
||
2067 | 4461 FF2C6A 02 01 cop $01 |
||
2068 | 4462 .MNLIST |
||
2069 | 4463 FF2C6C 0D 3A 3A 66 6F .DB $0D, '::format diskette on drive #', $00 |
||
2070 | 72 6D 61 74 20 |
||
2071 | 64 69 73 6B 65 |
||
2072 | 74 74 65 20 6F |
||
2073 | 6E 20 64 72 69 |
||
2074 | 76 65 20 23 00 |
||
2075 | 4464 FF2C8A 09 30 ora #'0' |
||
2076 | 4465 FF2C8C SCNCHAROUT |
||
2077 | 4466 FF2C8C 02 05 cop $05 |
||
2078 | 4467 .MNLIST |
||
2079 | 4468 FF2C8E SCNPRINT |
||
2080 | 4469 FF2C8E 02 01 cop $01 |
||
2081 | 4470 .MNLIST |
||
2082 | 4471 FF2C90 20 28 23 35 30 .DB ' (#50T, #', $00 |
||
2083 | 54 2C 20 23 00 |
||
2084 | 4472 FF2C9A EB xba ; A = sector/track |
||
2085 | 4473 FF2C9B DA phx |
||
2086 | 4474 FF2C9C 5A phy |
||
2087 | 4475 FF2C9D 20 71 19 jsr PrintHex |
||
2088 | 4476 FF2CA0 SCNPRINT |
||
2089 | 4477 FF2CA0 02 01 cop $01 |
||
2090 | 4478 .MNLIST |
||
2091 | 4479 FF2CA2 53 2F 54 29 20 .DB 'S/T) - Track: #', $00 |
||
2092 | 2D 20 54 72 61 |
||
2093 | 63 6B 3A 20 23 |
||
2094 | 00 |
||
2095 | 4480 FF2CB2 SCNGETPOS |
||
2096 | 4481 FF2CB2 02 18 cop $18 |
||
2097 | 4482 FF2CB4 02 .DB $02 |
||
2098 | 4483 .MNLIST |
||
2099 | 4484 FF2CB5 86 D6 stx SMAuxL |
||
2100 | 4485 FF2CB7 84 D7 sty SMAuxH |
||
2101 | 4486 FF2CB9 68 pla ; track |
||
2102 | 4487 FF2CBA 20 71 19 jsr PrintHex |
||
2103 | 4488 FF2CBD SCNPRINT |
||
2104 | 4489 FF2CBD 02 01 cop $01 |
||
2105 | 4490 .MNLIST |
||
2106 | 4491 FF2CBF 2C 20 53 69 64 .DB ', Side: #', $00 |
||
2107 | 65 3A 20 23 00 |
||
2108 | 4492 FF2CC9 SCNGETPOS |
||
2109 | Tue Jul 17 11:00:24 2018 Page 35 |
||
2110 | |||
2111 | |||
2112 | |||
2113 | |||
2114 | 4493 FF2CC9 02 18 cop $18 |
||
2115 | 4494 FF2CCB 02 .DB $02 |
||
2116 | 4495 .MNLIST |
||
2117 | 4496 FF2CCC 86 E2 stx SMTmp2 |
||
2118 | 4497 FF2CCE 84 E3 sty SMTmp2+1 |
||
2119 | 4498 FF2CD0 80 14 bra ?20 |
||
2120 | 4499 FF2CD2 DA ?10: phx |
||
2121 | 4500 FF2CD3 5A phy |
||
2122 | 4501 FF2CD4 A6 D6 ldx SMAuxL |
||
2123 | 4502 FF2CD6 A4 D7 ldy SMAuxH |
||
2124 | 4503 FF2CD8 SCNSETPOS |
||
2125 | 4504 FF2CD8 02 18 cop $18 |
||
2126 | 4505 FF2CDA 03 .DB $03 |
||
2127 | 4506 .MNLIST |
||
2128 | 4507 FF2CDB 68 pla |
||
2129 | 4508 FF2CDC 20 71 19 jsr PrintHex |
||
2130 | 4509 FF2CDF A6 E2 ldx SMTmp2 |
||
2131 | 4510 FF2CE1 A4 E3 ldy SMTmp2+1 |
||
2132 | 4511 FF2CE3 SCNSETPOS |
||
2133 | 4512 FF2CE3 02 18 cop $18 |
||
2134 | 4513 FF2CE5 03 .DB $03 |
||
2135 | 4514 .MNLIST |
||
2136 | 4515 FF2CE6 68 ?20: pla |
||
2137 | 4516 FF2CE7 20 71 19 jsr PrintHex |
||
2138 | 4517 FF2CEA 2B pld |
||
2139 | 4518 FF2CEB 6B rtl |
||
2140 | 4519 |
||
2141 | 4520 ; funzione notify callback durante fdverfmt (LONG) |
||
2142 | 4521 ; In - A = drive |
||
2143 | 4522 ; X = head |
||
2144 | 4523 ; Y = track |
||
2145 | 4524 ; B = format |
||
2146 | 4525 ; CF = 0 prima chiamata |
||
2147 | 4526 FF2CEC _VFmtNotify: |
||
2148 | 4527 FF2CEC 0B phd |
||
2149 | 4528 FF2CED F4 00 01 pea #DP01ADDR |
||
2150 | 4529 FF2CF0 2B pld |
||
2151 | 4530 FF2CF1 B0 71 bcs ?10 ; chiamate successive |
||
2152 | 4531 FF2CF3 SCNPRINT |
||
2153 | 4532 FF2CF3 02 01 cop $01 |
||
2154 | 4533 .MNLIST |
||
2155 | 4534 FF2CF5 0D 3A 3A 76 65 .DB $0D, '::verify format diskette on drive #', $00 |
||
2156 | 72 69 66 79 20 |
||
2157 | 66 6F 72 6D 61 |
||
2158 | 74 20 64 69 73 |
||
2159 | 6B 65 74 74 65 |
||
2160 | 20 6F 6E 20 64 |
||
2161 | 72 69 76 65 20 |
||
2162 | 23 00 |
||
2163 | 4535 FF2D1A 09 30 ora #'0' |
||
2164 | 4536 FF2D1C SCNCHAROUT |
||
2165 | 4537 FF2D1C 02 05 cop $05 |
||
2166 | 4538 .MNLIST |
||
2167 | 4539 FF2D1E SCNPRINT |
||
2168 | 4540 FF2D1E 02 01 cop $01 |
||
2169 | 4541 .MNLIST |
||
2170 | 4542 FF2D20 20 28 66 6F 72 .DB ' (format #', $00 |
||
2171 | Tue Jul 17 11:00:24 2018 Page 36 |
||
2172 | |||
2173 | |||
2174 | |||
2175 | |||
2176 | 6D 61 74 20 23 |
||
2177 | 00 |
||
2178 | 4543 FF2D2B EB xba ; A = format |
||
2179 | 4544 FF2D2C DA phx |
||
2180 | 4545 FF2D2D 5A phy |
||
2181 | 4546 FF2D2E 20 71 19 jsr PrintHex |
||
2182 | 4547 FF2D31 SCNPRINT |
||
2183 | 4548 FF2D31 02 01 cop $01 |
||
2184 | 4549 .MNLIST |
||
2185 | 4550 FF2D33 29 20 2D 20 54 .DB ') - Track: #', $00 |
||
2186 | 72 61 63 6B 3A |
||
2187 | 20 23 00 |
||
2188 | 4551 FF2D40 SCNGETPOS |
||
2189 | 4552 FF2D40 02 18 cop $18 |
||
2190 | 4553 FF2D42 02 .DB $02 |
||
2191 | 4554 .MNLIST |
||
2192 | 4555 FF2D43 86 D6 stx SMAuxL |
||
2193 | 4556 FF2D45 84 D7 sty SMAuxH |
||
2194 | 4557 FF2D47 68 pla ; track |
||
2195 | 4558 FF2D48 20 71 19 jsr PrintHex |
||
2196 | 4559 FF2D4B SCNPRINT |
||
2197 | 4560 FF2D4B 02 01 cop $01 |
||
2198 | 4561 .MNLIST |
||
2199 | 4562 FF2D4D 2C 20 48 65 61 .DB ', Head: #', $00 |
||
2200 | 64 3A 20 23 00 |
||
2201 | 4563 FF2D57 SCNGETPOS |
||
2202 | 4564 FF2D57 02 18 cop $18 |
||
2203 | 4565 FF2D59 02 .DB $02 |
||
2204 | 4566 .MNLIST |
||
2205 | 4567 FF2D5A 86 E2 stx SMTmp2 |
||
2206 | 4568 FF2D5C 84 E3 sty SMTmp2+1 |
||
2207 | 4569 FF2D5E 68 pla |
||
2208 | 4570 FF2D5F 20 71 19 jsr PrintHex |
||
2209 | 4571 FF2D62 2B pld |
||
2210 | 4572 FF2D63 6B rtl |
||
2211 | 4573 FF2D64 DA ?10: phx |
||
2212 | 4574 FF2D65 5A phy |
||
2213 | 4575 FF2D66 A6 D6 ldx SMAuxL |
||
2214 | 4576 FF2D68 A4 D7 ldy SMAuxH |
||
2215 | 4577 FF2D6A SCNSETPOS |
||
2216 | 4578 FF2D6A 02 18 cop $18 |
||
2217 | 4579 FF2D6C 03 .DB $03 |
||
2218 | 4580 .MNLIST |
||
2219 | 4581 FF2D6D 68 pla |
||
2220 | 4582 FF2D6E 20 71 19 jsr PrintHex |
||
2221 | 4583 FF2D71 A6 E2 ldx SMTmp2 |
||
2222 | 4584 FF2D73 A4 E3 ldy SMTmp2+1 |
||
2223 | 4585 FF2D75 SCNSETPOS |
||
2224 | 4586 FF2D75 02 18 cop $18 |
||
2225 | 4587 FF2D77 03 .DB $03 |
||
2226 | 4588 .MNLIST |
||
2227 | 4589 FF2D78 68 pla |
||
2228 | 4590 FF2D79 20 71 19 jsr PrintHex |
||
2229 | 4591 FF2D7C 2B pld |
||
2230 | 4592 FF2D7D 6B rtl |
||
2231 | 4593 |
||
2232 | 4594 ; # fdtwrite drive [track=0 [buffer=0 [flag=0]]] |
||
2233 | Tue Jul 17 11:00:24 2018 Page 37 |
||
2234 | |||
2235 | |||
2236 | |||
2237 | |||
2238 | 4595 FF2D7E Cmd_fdtwrite: |
||
2239 | 4596 FF2D7E 90 03 bcc ?02 |
||
2240 | 4597 FF2D80 4C 49 2F jmp CmdErr3 ; no parametri |
||
2241 | 4598 FF2D83 A2 02 ?02: ldx #2 |
||
2242 | 4599 FF2D85 80 10 bra fdtrk |
||
2243 | 4600 FF2D87 |
||
2244 | 4601 ; # fdtread drive [track=0 [buffer=0 [flag=0]]] |
||
2245 | 4602 FF2D87 Cmd_fdtread: |
||
2246 | 4603 FF2D87 90 03 bcc ?02 |
||
2247 | 4604 FF2D89 4C 49 2F jmp CmdErr3 ; no parametri |
||
2248 | 4605 FF2D8C A2 00 ?02: ldx #0 |
||
2249 | 4606 FF2D8E 80 07 bra fdtrk |
||
2250 | 4607 |
||
2251 | 4608 ; # fdtverf drive [track=0 [buffer=0 [flag=0]]] |
||
2252 | 4609 FF2D90 Cmd_fdtverf: |
||
2253 | 4610 FF2D90 90 03 bcc ?02 |
||
2254 | 4611 FF2D92 4C 49 2F jmp CmdErr3 ; no parametri |
||
2255 | 4612 FF2D95 A2 01 ?02: ldx #1 |
||
2256 | 4613 |
||
2257 | 4614 FF2D97 fdtrk: |
||
2258 | 4615 FF2D97 A5 BA lda SMTmpL |
||
2259 | 4616 FF2D99 48 pha ; drive |
||
2260 | 4617 FF2D9A A9 00 lda #0 |
||
2261 | 4618 FF2D9C 48 pha ; track |
||
2262 | 4619 FF2D9D 48 pha ; buffer |
||
2263 | 4620 FF2D9E 48 pha ; flag |
||
2264 | 4621 FF2D9F DA phx ; op |
||
2265 | 4622 FF2DA0 20 5A 01 jsr GetParm ; parametro 2 - track |
||
2266 | 4623 FF2DA3 B0 16 bcs ?10 |
||
2267 | 4624 FF2DA5 A5 BA lda SMTmpL |
||
2268 | 4625 FF2DA7 83 04 sta $04,s ; track |
||
2269 | 4626 FF2DA9 20 5A 01 jsr GetParm ; parametro 3 - buffer |
||
2270 | 4627 FF2DAC B0 0D bcs ?10 |
||
2271 | 4628 FF2DAE A5 BA lda SMTmpL |
||
2272 | 4629 FF2DB0 83 03 sta $03,s ; buffer |
||
2273 | 4630 FF2DB2 20 5A 01 jsr GetParm ; parametro 4 - flag |
||
2274 | 4631 FF2DB5 B0 04 bcs ?10 |
||
2275 | 4632 FF2DB7 A5 BA lda SMTmpL |
||
2276 | 4633 FF2DB9 83 02 sta $02,s ; flag |
||
2277 | 4634 FF2DBB FA ?10: plx ; op |
||
2278 | 4635 FF2DBC F0 0D beq ?30 ; read |
||
2279 | 4636 FF2DBE CA dex |
||
2280 | 4637 FF2DBF F0 05 beq ?20 ; verf |
||
2281 | 4638 FF2DC1 FDCTKWR |
||
2282 | 4639 FF2DC1 02 35 cop $35 |
||
2283 | 4640 FF2DC3 02 .DB $02 |
||
2284 | 4641 .MNLIST |
||
2285 | 4642 FF2DC4 80 2F bra fdcr |
||
2286 | 4643 FF2DC6 ?20: FDCTKVERF |
||
2287 | 4644 FF2DC6 02 35 cop $35 |
||
2288 | 4645 FF2DC8 01 .DB $01 |
||
2289 | 4646 .MNLIST |
||
2290 | 4647 FF2DC9 80 2A bra fdcr |
||
2291 | 4648 FF2DCB ?30: FDCTKRD |
||
2292 | 4649 FF2DCB 02 35 cop $35 |
||
2293 | 4650 FF2DCD 00 .DB $00 |
||
2294 | 4651 .MNLIST |
||
2295 | Tue Jul 17 11:00:24 2018 Page 38 |
||
2296 | |||
2297 | |||
2298 | |||
2299 | |||
2300 | 4652 FF2DCE 80 25 bra fdcr |
||
2301 | 4653 FF2DD0 |
||
2302 | 4654 ; # fdwrite drive [track=0 [head=0 [sect=1 [sectnum=1 [buffer=0 [flag=0]]]]]] |
||
2303 | 4655 FF2DD0 Cmd_fdwrite: |
||
2304 | 4656 FF2DD0 90 03 bcc ?02 |
||
2305 | 4657 FF2DD2 4C 49 2F jmp CmdErr3 ; no parametri |
||
2306 | 4658 FF2DD5 20 47 2E ?02: jsr GetFDCParm |
||
2307 | 4659 FF2DD8 FDCWRITE |
||
2308 | 4660 FF2DD8 02 31 cop $31 |
||
2309 | 4661 FF2DDA 02 .DB $02 |
||
2310 | 4662 .MNLIST |
||
2311 | 4663 FF2DDB 80 18 bra fdcr |
||
2312 | 4664 FF2DDD |
||
2313 | 4665 ; # fdverf drive [track=0 [head=0 [sect=1 [sectnum=1 [buffer=0 [flag=0]]]]]] |
||
2314 | 4666 FF2DDD Cmd_fdverf: |
||
2315 | 4667 FF2DDD 90 03 bcc ?02 |
||
2316 | 4668 FF2DDF 4C 49 2F jmp CmdErr3 ; no parametri |
||
2317 | 4669 FF2DE2 20 47 2E ?02: jsr GetFDCParm |
||
2318 | 4670 FF2DE5 FDCVERF |
||
2319 | 4671 FF2DE5 02 31 cop $31 |
||
2320 | 4672 FF2DE7 01 .DB $01 |
||
2321 | 4673 .MNLIST |
||
2322 | 4674 FF2DE8 80 0B bra fdcr |
||
2323 | 4675 |
||
2324 | 4676 ; # fdread drive [track=0 [head=0 [sect=1 [sectnum=1 [buffer=0 [flag=0]]]]]] |
||
2325 | 4677 FF2DEA Cmd_fdread: |
||
2326 | 4678 FF2DEA 90 03 bcc ?02 |
||
2327 | 4679 FF2DEC 4C 49 2F jmp CmdErr3 ; no parametri |
||
2328 | 4680 FF2DEF 20 47 2E ?02: jsr GetFDCParm |
||
2329 | 4681 FF2DF2 FDCREAD |
||
2330 | 4682 FF2DF2 02 31 cop $31 |
||
2331 | 4683 FF2DF4 00 .DB $00 |
||
2332 | 4684 .MNLIST |
||
2333 | 4685 FF2DF5 |
||
2334 | 4686 FF2DF5 fdcr: |
||
2335 | 4687 FF2DF5 08 php |
||
2336 | 4688 FF2DF6 SCNPRINT ; clear result line |
||
2337 | 4689 FF2DF6 02 01 cop $01 |
||
2338 | 4690 .MNLIST |
||
2339 | 4691 FF2DF8 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $00 |
||
2340 | 4692 FF2DFC 28 plp |
||
2341 | 4693 FF2DFD 90 1B bcc ?02 |
||
2342 | 4694 FF2DFF SCNPRINT |
||
2343 | 4695 FF2DFF 02 01 cop $01 |
||
2344 | 4696 .MNLIST |
||
2345 | 4697 FF2E01 3A 3A 65 72 72 .DB '::error code -> ', $00 |
||
2346 | 6F 72 20 63 6F |
||
2347 | 64 65 20 2D 3E |
||
2348 | 20 00 |
||
2349 | 4698 FF2E12 48 pha |
||
2350 | 4699 FF2E13 98 tya |
||
2351 | 4700 FF2E14 20 4E 19 jsr PrintByte |
||
2352 | 4701 FF2E17 68 pla |
||
2353 | 4702 FF2E18 80 09 bra ?04 |
||
2354 | 4703 FF2E1A ?02: SCNPRINT |
||
2355 | 4704 FF2E1A 02 01 cop $01 |
||
2356 | 4705 .MNLIST |
||
2357 | Tue Jul 17 11:00:24 2018 Page 39 |
||
2358 | |||
2359 | |||
2360 | |||
2361 | |||
2362 | 4706 FF2E1C 3A 3A 4F 4B 2C .DB '::OK, ', $00 |
||
2363 | 20 00 |
||
2364 | 4707 FF2E23 9B ?04: txy |
||
2365 | 4708 FF2E24 EB xba |
||
2366 | 4709 FF2E25 AA tax |
||
2367 | 4710 FF2E26 EB xba |
||
2368 | 4711 FF2E27 20 48 19 jsr PrintWord |
||
2369 | 4712 FF2E2A 98 tya |
||
2370 | 4713 FF2E2B SCNPRCHAR |
||
2371 | 4714 FF2E2B 02 07 cop $07 |
||
2372 | 4715 .MNLIST |
||
2373 | 4716 FF2E2D 20 .DB ' ' |
||
2374 | 4717 FF2E2E 4C 71 19 jmp PrintHex |
||
2375 | 4718 |
||
2376 | 4719 ; # fdfs [drive = 0] {buffer = 0, ID = 0, name = NULL} |
||
2377 | 4720 FF2E31 Cmd_fdfs: |
||
2378 | 4721 FF2E31 D0 02 bne ?02 |
||
2379 | 4722 FF2E33 64 BA stz SMTmpL |
||
2380 | 4723 FF2E35 A5 BA ?02: lda SMTmpL |
||
2381 | 4724 FF2E37 48 pha ; drive |
||
2382 | 4725 FF2E38 A9 00 lda #$00 |
||
2383 | 4726 FF2E3A 48 pha ; buffer |
||
2384 | 4727 FF2E3B F4 00 00 pea #0 ; ID |
||
2385 | 4728 FF2E3E 48 pha ; name = null |
||
2386 | 4729 FF2E3F F4 00 00 pea #0 |
||
2387 | 4730 FF2E42 FDCMKFS |
||
2388 | 4731 FF2E42 02 36 cop $36 |
||
2389 | 4732 .MNLIST |
||
2390 | 4733 FF2E44 4C BC 2B jmp drs |
||
2391 | 4734 |
||
2392 | 4735 ; ricava parametri per funzioni fdread/fdwrite |
||
2393 | 4736 FF2E47 GetFDCParm: |
||
2394 | 4737 FF2E47 FA plx ; return L |
||
2395 | 4738 FF2E48 68 pla ; return H |
||
2396 | 4739 FF2E49 E8 inx ; scarta stack - necessario per |
||
2397 | 4740 FF2E4A D0 01 bne ?01 ; chiamare GetParm al giusto livello di stack |
||
2398 | 4741 FF2E4C 1A inc a ; X,A -> indirizzo di ritorno |
||
2399 | 4742 FF2E4D 86 E2 ?01: stx SMTmp2 |
||
2400 | 4743 FF2E4F 85 E3 sta SMTmp2+1 |
||
2401 | 4744 FF2E51 A5 BA lda SMTmpL ; drive |
||
2402 | 4745 FF2E53 48 pha |
||
2403 | 4746 FF2E54 A9 00 lda #0 ; default params |
||
2404 | 4747 FF2E56 48 pha ; track = 0 |
||
2405 | 4748 FF2E57 48 pha ; head = 0 |
||
2406 | 4749 FF2E58 A2 01 ldx #1 |
||
2407 | 4750 FF2E5A DA phx ; start sector = 1 |
||
2408 | 4751 FF2E5B DA phx ; sect. number = 1 |
||
2409 | 4752 FF2E5C 48 pha ; # buffer = 0 |
||
2410 | 4753 FF2E5D 48 pha ; flag = 0 |
||
2411 | 4754 FF2E5E 20 5A 01 jsr GetParm ; parametro 2 - track |
||
2412 | 4755 FF2E61 B0 35 bcs ?20 |
||
2413 | 4756 FF2E63 A5 BA lda SMTmpL |
||
2414 | 4757 FF2E65 83 06 sta $06,s ; track |
||
2415 | 4758 FF2E67 20 5A 01 jsr GetParm ; parametro 3 - head |
||
2416 | 4759 FF2E6A B0 2C bcs ?20 |
||
2417 | 4760 FF2E6C A5 BA lda SMTmpL |
||
2418 | 4761 FF2E6E 83 05 sta $05,s ; head |
||
2419 | Tue Jul 17 11:00:24 2018 Page 40 |
||
2420 | |||
2421 | |||
2422 | |||
2423 | |||
2424 | 4762 FF2E70 20 5A 01 jsr GetParm ; parametro 4 - sector |
||
2425 | 4763 FF2E73 B0 23 bcs ?20 |
||
2426 | 4764 FF2E75 A5 BA lda SMTmpL |
||
2427 | 4765 FF2E77 F0 02 beq ?02 |
||
2428 | 4766 FF2E79 83 04 sta $04,s ; sector |
||
2429 | 4767 FF2E7B 20 5A 01 ?02: jsr GetParm ; sector number |
||
2430 | 4768 FF2E7E B0 18 bcs ?20 |
||
2431 | 4769 FF2E80 A5 BA lda SMTmpL |
||
2432 | 4770 FF2E82 F0 02 beq ?03 |
||
2433 | 4771 FF2E84 83 03 sta $03,s ; sector number |
||
2434 | 4772 FF2E86 20 5A 01 ?03: jsr GetParm |
||
2435 | 4773 FF2E89 B0 0D bcs ?20 |
||
2436 | 4774 FF2E8B A5 BA lda SMTmpL |
||
2437 | 4775 FF2E8D 83 02 sta $02,s ; buffer |
||
2438 | 4776 FF2E8F 20 5A 01 jsr GetParm |
||
2439 | 4777 FF2E92 B0 04 bcs ?20 |
||
2440 | 4778 FF2E94 A5 BA lda SMTmpL |
||
2441 | 4779 FF2E96 83 01 sta $01,s ; flag |
||
2442 | 4780 FF2E98 6C E2 01 ?20: jmp (DP01ADDR+SMTmp2) ; return |
||
2443 | 4781 |
||
2444 | 4782 FF2E9B |
||
2445 | 4783 ;--------------------------------- |
||
2446 | 4784 FF2E9B atacmd: |
||
2447 | 4785 FF2E9B A5 E3 lda <atnum |
||
2448 | 4786 FF2E9D 0A asl a |
||
2449 | 4787 FF2E9E AA tax |
||
2450 | 4788 FF2E9F 7C A2 2E jmp (ATACT,x) |
||
2451 | 4789 FF2EA2 |
||
2452 | 4790 FF2EA2 ATACT: |
||
2453 | 4791 FF2EA2 092F 012F 412F .DW Cmd_atard, Cmd_ataverf, Cmd_atawr, Cmd_atares |
||
2454 | F92E |
||
2455 | 4792 FF2EAA E72E ED2E F32E .DW Cmd_ataid, Cmd_atambr, Cmd_atapbr, Cmd_atadbuf |
||
2456 | B82E |
||
2457 | 4793 FF2EB2 C62E D72E DF2E .DW Cmd_atadbnk, Cmd_atadrd, Cmd_atadwr |
||
2458 | 4794 |
||
2459 | 4795 FF2EB8 Cmd_atadbuf: |
||
2460 | 4796 FF2EB8 A9 08 lda #$08 ; PB3 VIA3 |
||
2461 | 4797 FF2EBA A6 BA ldx SMTmpL |
||
2462 | 4798 FF2EBC F0 04 beq ?dis ; disable 1Mb buffer |
||
2463 | 4799 FF2EBE 1C C0 FD trb VIA3+VIAPRB ; enable 1Mb buffer |
||
2464 | 4800 FF2EC1 60 rts |
||
2465 | 4801 FF2EC2 0C C0 FD ?dis: tsb VIA3+VIAPRB |
||
2466 | 4802 FF2EC5 60 rts |
||
2467 | 4803 |
||
2468 | 4804 FF2EC6 Cmd_atadbnk: |
||
2469 | 4805 FF2EC6 A5 BA lda SMTmpL |
||
2470 | 4806 FF2EC8 29 07 and #$07 ; mask bank |
||
2471 | 4807 FF2ECA 85 BA sta SMTmpL |
||
2472 | 4808 FF2ECC AD CF FD lda !VIA3+VIAPRANH |
||
2473 | 4809 FF2ECF 29 F8 and #$F8 |
||
2474 | 4810 FF2ED1 05 BA ora SMTmpL |
||
2475 | 4811 FF2ED3 8D CF FD sta !VIA3+VIAPRANH ; set bank |
||
2476 | 4812 FF2ED6 60 rts |
||
2477 | 4813 |
||
2478 | 4814 FF2ED7 Cmd_atadrd: |
||
2479 | 4815 FF2ED7 20 B8 2F jsr GetATAParm2 |
||
2480 | 4816 FF2EDA ATADMARD |
||
2481 | Tue Jul 17 11:00:24 2018 Page 41 |
||
2482 | |||
2483 | |||
2484 | |||
2485 | |||
2486 | 4817 FF2EDA 02 42 cop $42 |
||
2487 | 4818 FF2EDC 00 .DB $00 |
||
2488 | 4819 .MNLIST |
||
2489 | 4820 FF2EDD 80 30 bra ATAClean |
||
2490 | 4821 |
||
2491 | 4822 FF2EDF Cmd_atadwr: |
||
2492 | 4823 FF2EDF 20 B8 2F jsr GetATAParm2 |
||
2493 | 4824 FF2EE2 ATADMAWR |
||
2494 | 4825 FF2EE2 02 42 cop $42 |
||
2495 | 4826 FF2EE4 01 .DB $01 |
||
2496 | 4827 .MNLIST |
||
2497 | 4828 FF2EE5 80 28 bra ATAClean |
||
2498 | 4829 |
||
2499 | 4830 FF2EE7 Cmd_ataid: |
||
2500 | 4831 FF2EE7 A6 BA ldx SMTmpL |
||
2501 | 4832 FF2EE9 A9 01 lda #1 |
||
2502 | 4833 FF2EEB 80 10 bra atactl |
||
2503 | 4834 |
||
2504 | 4835 FF2EED Cmd_atambr: |
||
2505 | 4836 FF2EED A6 BA ldx SMTmpL |
||
2506 | 4837 FF2EEF A9 02 lda #2 |
||
2507 | 4838 FF2EF1 80 0A bra atactl |
||
2508 | 4839 |
||
2509 | 4840 FF2EF3 Cmd_atapbr: |
||
2510 | 4841 FF2EF3 A6 BA ldx SMTmpL |
||
2511 | 4842 FF2EF5 A9 03 lda #3 |
||
2512 | 4843 FF2EF7 80 04 bra atactl |
||
2513 | 4844 |
||
2514 | 4845 FF2EF9 Cmd_atares: |
||
2515 | 4846 FF2EF9 A6 BA ldx SMTmpL |
||
2516 | 4847 FF2EFB A9 00 lda #0 |
||
2517 | 4848 FF2EFD atactl: |
||
2518 | 4849 FF2EFD ATACTL |
||
2519 | 4850 FF2EFD 02 41 cop $41 |
||
2520 | 4851 .MNLIST |
||
2521 | 4852 FF2EFF 80 0E bra ATAClean |
||
2522 | 4853 FF2F01 |
||
2523 | 4854 ; test lettura device ATA |
||
2524 | 4855 ; atard <80 (flag verifica)> + device <LBA=0> <NUMSECT=64> <BUFFER=030000> |
||
2525 | 4856 FF2F01 Cmd_ataverf: |
||
2526 | 4857 FF2F01 20 4C 2F jsr GetATAParm |
||
2527 | 4858 FF2F04 ATAVERF |
||
2528 | 4859 FF2F04 02 40 cop $40 |
||
2529 | 4860 FF2F06 01 .DB $01 |
||
2530 | 4861 .MNLIST |
||
2531 | 4862 FF2F07 80 06 bra ATAClean |
||
2532 | 4863 FF2F09 |
||
2533 | 4864 FF2F09 Cmd_atard: |
||
2534 | 4865 FF2F09 20 4C 2F jsr GetATAParm |
||
2535 | 4866 FF2F0C ATAREAD |
||
2536 | 4867 FF2F0C 02 40 cop $40 |
||
2537 | 4868 FF2F0E 00 .DB $00 |
||
2538 | 4869 .MNLIST |
||
2539 | 4870 |
||
2540 | 4871 FF2F0F ATAClean: |
||
2541 | 4872 FF2F0F B0 14 bcs ?02 |
||
2542 | 4873 FF2F11 SCNPRINT |
||
2543 | Tue Jul 17 11:00:24 2018 Page 42 |
||
2544 | |||
2545 | |||
2546 | |||
2547 | |||
2548 | 4874 FF2F11 02 01 cop $01 |
||
2549 | 4875 .MNLIST |
||
2550 | 4876 FF2F13 0D 3A 3A 4F 4B .DB $0D, '::OK - no error', $00 |
||
2551 | 20 2D 20 6E 6F |
||
2552 | 20 65 72 72 6F |
||
2553 | 72 00 |
||
2554 | 4877 FF2F24 60 rts |
||
2555 | 4878 FF2F25 ?02: SCNPRINT |
||
2556 | 4879 FF2F25 02 01 cop $01 |
||
2557 | 4880 .MNLIST |
||
2558 | 4881 FF2F27 0D 3A 3A 65 72 .DB $0D, '::error code -> ', $00 |
||
2559 | 72 6F 72 20 63 |
||
2560 | 6F 64 65 20 2D |
||
2561 | 3E 20 00 |
||
2562 | 4882 FF2F39 98 tya |
||
2563 | 4883 FF2F3A 20 4E 19 jsr PrintByte |
||
2564 | 4884 FF2F3D 8A txa |
||
2565 | 4885 FF2F3E 4C 71 19 jmp PrintHex |
||
2566 | 4886 |
||
2567 | 4887 ; test scrittura su device ATA |
||
2568 | 4888 ; atawrite <80 (flag verifica)> + device <LBA=0> <NUMSECT=64> <BUFFER=0> |
||
2569 | 4889 FF2F41 Cmd_atawr: |
||
2570 | 4890 FF2F41 20 4C 2F jsr GetATAParm |
||
2571 | 4891 FF2F44 ATAWRITE |
||
2572 | 4892 FF2F44 02 40 cop $40 |
||
2573 | 4893 FF2F46 02 .DB $02 |
||
2574 | 4894 .MNLIST |
||
2575 | 4895 FF2F47 80 C6 bra ATAClean |
||
2576 | 4896 |
||
2577 | 4897 FF2F49 CmdErr3: |
||
2578 | 4898 FF2F49 4C 34 01 jmp ErrCls2 |
||
2579 | 4899 |
||
2580 | 4900 ; ricava parametri per funzioni ATA read/write |
||
2581 | 4901 FF2F4C GetATAParm: |
||
2582 | 4902 FF2F4C FA plx ; return L |
||
2583 | 4903 FF2F4D 68 pla ; return H |
||
2584 | 4904 FF2F4E E8 inx ; scarta stack - necessario per |
||
2585 | 4905 FF2F4F D0 01 bne ?01 ; chiamare GetParm al giusto livello di stack |
||
2586 | 4906 FF2F51 1A inc a ; X,A -> indirizzo di ritorno |
||
2587 | 4907 FF2F52 86 E2 ?01: stx SMTmp2 |
||
2588 | 4908 FF2F54 85 E3 sta SMTmp2+1 |
||
2589 | 4909 FF2F56 ACC16 |
||
2590 | 4910 FF2F56 C2 20 rep #PMFLAG |
||
2591 | 4911 .LONGA on |
||
2592 | 4912 .MNLIST |
||
2593 | 4913 FF2F58 3B tsc ; stack frame |
||
2594 | 4914 FF2F59 38 sec |
||
2595 | 4915 FF2F5A E9 09 00 sbc #9 ; crea parametri stack |
||
2596 | 4916 FF2F5D 1B tcs |
||
2597 | 4917 FF2F5E 1A inc a |
||
2598 | 4918 FF2F5F 85 BE sta SMSizeL ; salva stack frame |
||
2599 | 4919 FF2F61 ACC08 |
||
2600 | 4920 FF2F61 E2 20 sep #PMFLAG |
||
2601 | 4921 .LONGA off |
||
2602 | 4922 .MNLIST |
||
2603 | 4923 FF2F63 A5 BA lda SMTmpL ; parametro 1 - device + flag verifica |
||
2604 | 4924 FF2F65 AA tax |
||
2605 | Tue Jul 17 11:00:24 2018 Page 43 |
||
2606 | |||
2607 | |||
2608 | |||
2609 | |||
2610 | 4925 FF2F66 29 01 and #$01 ; maschera device |
||
2611 | 4926 FF2F68 83 09 sta $09,s ; device |
||
2612 | 4927 FF2F6A 8A txa |
||
2613 | 4928 FF2F6B 29 80 and #$80 ; maschera flag |
||
2614 | 4929 FF2F6D 83 01 sta $01,s ; flag |
||
2615 | 4930 FF2F6F A9 00 lda #0 |
||
2616 | 4931 FF2F71 83 02 sta $02,s ; lpBuf default=$030000 |
||
2617 | 4932 FF2F73 83 03 sta $03,s |
||
2618 | 4933 FF2F75 A9 03 lda #3 |
||
2619 | 4934 FF2F77 83 04 sta $04,s |
||
2620 | 4935 FF2F79 A9 40 lda #64 ; numero settori di default (64) |
||
2621 | 4936 FF2F7B 83 05 sta $05,s |
||
2622 | 4937 FF2F7D A9 00 lda #0 |
||
2623 | 4938 FF2F7F 83 06 sta $06,s ; LBA di default (0) |
||
2624 | 4939 FF2F81 83 07 sta $07,s |
||
2625 | 4940 FF2F83 83 08 sta $08,s |
||
2626 | 4941 FF2F85 20 52 01 jsr GetParm32 ; parametro 2 - LBA |
||
2627 | 4942 FF2F88 B0 26 bcs ?18 ; fine - OK |
||
2628 | 4943 FF2F8A A5 BA lda SMTmpL |
||
2629 | 4944 FF2F8C 83 06 sta $06,s |
||
2630 | 4945 FF2F8E A5 BB lda SMTmpH |
||
2631 | 4946 FF2F90 83 07 sta $07,s |
||
2632 | 4947 FF2F92 A5 BC lda SMTmpK |
||
2633 | 4948 FF2F94 83 08 sta $08,s |
||
2634 | 4949 FF2F96 20 5A 01 jsr GetParm ; parametro 3 - numero settori |
||
2635 | 4950 FF2F99 B0 15 bcs ?18 ; fine - OK |
||
2636 | 4951 FF2F9B A5 BA lda SMTmpL |
||
2637 | 4952 FF2F9D 83 05 sta $05,s |
||
2638 | 4953 FF2F9F 20 5A 01 jsr GetParm ; parametro 4 - buffer |
||
2639 | 4954 FF2FA2 B0 0C bcs ?18 ; fine - OK |
||
2640 | 4955 FF2FA4 A5 BA lda SMTmpL |
||
2641 | 4956 FF2FA6 83 02 sta $02,s |
||
2642 | 4957 FF2FA8 A5 BB lda SMTmpH |
||
2643 | 4958 FF2FAA 83 03 sta $03,s |
||
2644 | 4959 FF2FAC A5 BC lda SMTmpK |
||
2645 | 4960 ;lda #0 |
||
2646 | 4961 FF2FAE 83 04 sta $04,s |
||
2647 | 4962 FF2FB0 A5 BF ?18: lda SMSizeH ; C = stack frame |
||
2648 | 4963 FF2FB2 EB xba |
||
2649 | 4964 FF2FB3 A5 BE lda SMSizeL |
||
2650 | 4965 FF2FB5 6C E2 01 jmp (DP01ADDR+SMTmp2) ; return |
||
2651 | 4966 |
||
2652 | 4967 ; ricava parametri per funzioni ATA DMA read/write |
||
2653 | 4968 FF2FB8 GetATAParm2: |
||
2654 | 4969 FF2FB8 FA plx ; return L |
||
2655 | 4970 FF2FB9 68 pla ; return H |
||
2656 | 4971 FF2FBA E8 inx ; scarta stack - necessario per |
||
2657 | 4972 FF2FBB D0 01 bne ?01 ; chiamare GetParm al giusto livello di stack |
||
2658 | 4973 FF2FBD 1A inc a ; X,A -> indirizzo di ritorno |
||
2659 | 4974 FF2FBE 86 E2 ?01: stx SMTmp2 |
||
2660 | 4975 FF2FC0 85 E3 sta SMTmp2+1 |
||
2661 | 4976 FF2FC2 ACC16 |
||
2662 | 4977 FF2FC2 C2 20 rep #PMFLAG |
||
2663 | 4978 .LONGA on |
||
2664 | 4979 .MNLIST |
||
2665 | 4980 FF2FC4 3B tsc ; stack frame |
||
2666 | 4981 FF2FC5 38 sec |
||
2667 | Tue Jul 17 11:00:24 2018 Page 44 |
||
2668 | |||
2669 | |||
2670 | |||
2671 | |||
2672 | 4982 FF2FC6 E9 07 00 sbc #7 ; crea parametri stack |
||
2673 | 4983 FF2FC9 1B tcs |
||
2674 | 4984 FF2FCA 1A inc a |
||
2675 | 4985 FF2FCB 85 BE sta SMSizeL ; salva stack frame |
||
2676 | 4986 FF2FCD ACC08 |
||
2677 | 4987 FF2FCD E2 20 sep #PMFLAG |
||
2678 | 4988 .LONGA off |
||
2679 | 4989 .MNLIST |
||
2680 | 4990 FF2FCF A5 BA lda SMTmpL ; parametro 1 - device |
||
2681 | 4991 FF2FD1 29 01 and #$01 ; maschera device |
||
2682 | 4992 FF2FD3 83 07 sta $07,s ; device |
||
2683 | 4993 FF2FD5 A9 00 lda #0 |
||
2684 | 4994 FF2FD7 83 01 sta $01,s ; nBuf default=$0000 |
||
2685 | 4995 FF2FD9 83 02 sta $02,s |
||
2686 | 4996 FF2FDB A9 40 lda #64 ; numero settori di default (64) |
||
2687 | 4997 FF2FDD 83 03 sta $03,s |
||
2688 | 4998 FF2FDF A9 00 lda #0 |
||
2689 | 4999 FF2FE1 83 04 sta $04,s ; LBA di default (0) |
||
2690 | 5000 FF2FE3 83 05 sta $05,s |
||
2691 | 5001 FF2FE5 83 06 sta $06,s |
||
2692 | 5002 FF2FE7 20 52 01 jsr GetParm32 ; parametro 2 - LBA |
||
2693 | 5003 FF2FEA B0 22 bcs ?18 ; fine - OK |
||
2694 | 5004 FF2FEC A5 BA lda SMTmpL |
||
2695 | 5005 FF2FEE 83 04 sta $04,s |
||
2696 | 5006 FF2FF0 A5 BB lda SMTmpH |
||
2697 | 5007 FF2FF2 83 05 sta $05,s |
||
2698 | 5008 FF2FF4 A5 BC lda SMTmpK |
||
2699 | 5009 FF2FF6 83 06 sta $06,s |
||
2700 | 5010 FF2FF8 20 5A 01 jsr GetParm ; parametro 3 - numero settori |
||
2701 | 5011 FF2FFB B0 11 bcs ?18 ; fine - OK |
||
2702 | 5012 FF2FFD A5 BA lda SMTmpL |
||
2703 | 5013 FF2FFF 83 03 sta $03,s |
||
2704 | 5014 FF3001 20 5A 01 jsr GetParm ; parametro 4 - buffer |
||
2705 | 5015 FF3004 B0 08 bcs ?18 ; fine - OK |
||
2706 | 5016 FF3006 A5 BA lda SMTmpL |
||
2707 | 5017 FF3008 83 01 sta $01,s |
||
2708 | 5018 FF300A A5 BB lda SMTmpH |
||
2709 | 5019 FF300C 83 02 sta $02,s |
||
2710 | 5020 FF300E A5 BF ?18: lda SMSizeH ; C = stack frame |
||
2711 | 5021 FF3010 EB xba |
||
2712 | 5022 FF3011 A5 BE lda SMSizeL |
||
2713 | 5023 FF3013 6C E2 01 jmp (DP01ADDR+SMTmp2) ; return |
||
2714 | 5024 |
||
2715 | 5025 ; #sptest -p<port> -b -h<handshake> -r -e -t -u |
||
2716 | 5026 ; -p: port 0 or 1 (default: 0) |
||
2717 | 5027 ; -b: baud rate = 19,200 (default: 38,400) |
||
2718 | 5028 ; -h: handshke level = 0,1,2 (defalt: 2) |
||
2719 | 5029 ; 0=none, 1=software, 2=hardware |
||
2720 | 5030 ; -r: RS485 (default: RS232) |
||
2721 | 5031 ; -e: enable echo in rx mode (default mode: rx) |
||
2722 | 5032 ; -t: enable tx mode (-e ignored) |
||
2723 | 5033 ; -u: RS232 uplink (RS485 term.) |
||
2724 | 5034 FF3016 Cmd_sptst: |
||
2725 | 5035 .EXTERN lspset, lspget, lspput, lspres |
||
2726 | 5036 .PUBLIC Cmd_sptst |
||
2727 | 5037 |
||
2728 | 5038 FF3016 SCN_CR |
||
2729 | Tue Jul 17 11:00:24 2018 Page 45 |
||
2730 | |||
2731 | |||
2732 | |||
2733 | |||
2734 | 5039 FF3016 SCNPRCHAR |
||
2735 | 5040 .MLIST |
||
2736 | 5041 FF3016 02 07 cop $07 |
||
2737 | 5042 .MNLIST |
||
2738 | 5043 FF3018 0D .DB $0D |
||
2739 | 5044 .MNLIST |
||
2740 | 5045 FF3019 64 E2 stz SMTmp2 ; port 0 |
||
2741 | 5046 FF301B 64 E5 stz SMTmp2+3 ; no echo, rx mode |
||
2742 | 5047 FF301D A9 02 lda #2 |
||
2743 | 5048 FF301F 85 E3 sta SMTmp2+1 ; hardware handshake |
||
2744 | 5049 FF3021 A9 D4 lda #11010100B |
||
2745 | 5050 FF3023 85 E4 sta SMTmp2+2 |
||
2746 | 5051 FF3025 A9 80 lda #$80 ; flag |
||
2747 | 5052 FF3027 48 pha |
||
2748 | 5053 FF3028 A6 E0 ldx cmdlin |
||
2749 | 5054 FF302A ACC16CLC |
||
2750 | 5055 FF302A C2 21 rep #(PMFLAG.OR.PCFLAG) |
||
2751 | 5056 .LONGA on |
||
2752 | 5057 .MNLIST |
||
2753 | 5058 FF302C 8A txa |
||
2754 | 5059 FF302D 69 00 99 adc #INPUTBUF |
||
2755 | 5060 FF3030 A2 01 ldx #^INPUTBUF |
||
2756 | 5061 FF3032 DA phx ; command line |
||
2757 | 5062 FF3033 48 pha |
||
2758 | 5063 FF3034 ACC08 |
||
2759 | 5064 FF3034 E2 20 sep #PMFLAG |
||
2760 | 5065 .LONGA off |
||
2761 | 5066 .MNLIST |
||
2762 | 5067 FF3036 4B phk ; option string |
||
2763 | 5068 FF3037 F4 76 31 pea #!?100 |
||
2764 | 5069 FF303A F4 00 00 pea #0 ; result |
||
2765 | 5070 FF303D F4 00 00 pea #0 |
||
2766 | 5071 FF3040 22 09 00 FA ?10: jsl _getopt ; get opttion's loop |
||
2767 | 5072 FF3044 B0 56 bcs ?26 ; error |
||
2768 | 5073 FF3046 AA tax ; option char |
||
2769 | 5074 FF3047 F0 53 beq ?26 ; end of command line |
||
2770 | 5075 FF3049 30 50 bmi ?24 ; no option argument |
||
2771 | 5076 FF304B C9 70 cmp #'p' |
||
2772 | 5077 FF304D D0 08 bne ?12 |
||
2773 | 5078 FF304F A3 01 lda $01,s |
||
2774 | 5079 FF3051 29 01 and #1 |
||
2775 | 5080 FF3053 85 E2 sta SMTmp2 ; port |
||
2776 | 5081 FF3055 80 E9 bra ?10 |
||
2777 | 5082 FF3057 C9 68 ?12: cmp #'h' |
||
2778 | 5083 FF3059 D0 0E bne ?14 |
||
2779 | 5084 FF305B A3 01 lda $01,s |
||
2780 | 5085 FF305D 29 03 and #3 |
||
2781 | 5086 FF305F C9 03 cmp #3 |
||
2782 | 5087 FF3061 90 02 bcc ?13 |
||
2783 | 5088 FF3063 A9 02 lda #2 |
||
2784 | 5089 FF3065 85 E3 ?13: sta SMTmp2+1 ; handshake |
||
2785 | 5090 FF3067 80 D7 bra ?10 |
||
2786 | 5091 FF3069 C9 62 ?14: cmp #'b' |
||
2787 | 5092 FF306B D0 06 bne ?16 |
||
2788 | 5093 FF306D A9 10 lda #$10 |
||
2789 | 5094 FF306F 14 E4 trb SMTmp2+2 ; 19200 |
||
2790 | 5095 FF3071 80 CD bra ?10 |
||
2791 | Tue Jul 17 11:00:24 2018 Page 46 |
||
2792 | |||
2793 | |||
2794 | |||
2795 | |||
2796 | 5096 FF3073 C9 72 ?16: cmp #'r' |
||
2797 | 5097 FF3075 D0 06 bne ?18 |
||
2798 | 5098 FF3077 A9 02 lda #$02 |
||
2799 | 5099 FF3079 04 E4 tsb SMTmp2+2 ; RS485 |
||
2800 | 5100 FF307B 80 C3 bra ?10 |
||
2801 | 5101 FF307D C9 75 ?18: cmp #'u' |
||
2802 | 5102 FF307F D0 06 bne ?20 |
||
2803 | 5103 FF3081 A9 01 lda #$01 |
||
2804 | 5104 FF3083 04 E4 tsb SMTmp2+2 ; RS485 term/RS232 uplink cable |
||
2805 | 5105 FF3085 80 B9 bra ?10 |
||
2806 | 5106 FF3087 C9 65 ?20: cmp #'e' |
||
2807 | 5107 FF3089 D0 06 bne ?22 |
||
2808 | 5108 FF308B A9 80 lda #$80 |
||
2809 | 5109 FF308D 04 E5 tsb SMTmp2+3 ; rx+echo mode |
||
2810 | 5110 FF308F 80 AF bra ?10 |
||
2811 | 5111 FF3091 C9 74 ?22: cmp #'t' |
||
2812 | 5112 FF3093 D0 06 bne ?24 |
||
2813 | 5113 FF3095 A9 40 lda #$40 |
||
2814 | 5114 FF3097 04 E5 tsb SMTmp2+3 ; tx mode |
||
2815 | 5115 FF3099 80 A5 bra ?10 |
||
2816 | 5116 FF309B 38 ?24: sec |
||
2817 | 5117 FF309C 08 ?26: php ; clean stack |
||
2818 | 5118 FF309D FA plx ; save carry |
||
2819 | 5119 FF309E ACC16CLC |
||
2820 | 5120 FF309E C2 21 rep #(PMFLAG.OR.PCFLAG) |
||
2821 | 5121 .LONGA on |
||
2822 | 5122 .MNLIST |
||
2823 | 5123 FF30A0 3B tsc |
||
2824 | 5124 FF30A1 69 0B 00 adc #11 |
||
2825 | 5125 FF30A4 1B tcs |
||
2826 | 5126 FF30A5 ACC08 |
||
2827 | 5127 FF30A5 E2 20 sep #PMFLAG |
||
2828 | 5128 .LONGA off |
||
2829 | 5129 .MNLIST |
||
2830 | 5130 FF30A7 8A txa |
||
2831 | 5131 FF30A8 4A lsr a ; test carry |
||
2832 | 5132 FF30A9 90 03 bcc ?28 ; ok |
||
2833 | 5133 FF30AB 4C 34 01 jmp ErrCls2 |
||
2834 | 5134 FF30AE A5 E3 ?28: lda SMTmp2+1 |
||
2835 | 5135 FF30B0 D0 06 bne ?30 |
||
2836 | 5136 FF30B2 A9 C0 lda #$C0 |
||
2837 | 5137 FF30B4 14 E4 trb SMTmp2+2 |
||
2838 | 5138 FF30B6 80 12 bra ?34 |
||
2839 | 5139 FF30B8 C9 01 ?30: cmp #1 |
||
2840 | 5140 FF30BA D0 0A bne ?32 |
||
2841 | 5141 FF30BC A9 C0 lda #$C0 |
||
2842 | 5142 FF30BE 14 E4 trb SMTmp2+2 |
||
2843 | 5143 FF30C0 A9 80 lda #$80 |
||
2844 | 5144 FF30C2 04 E4 tsb SMTmp2+2 |
||
2845 | 5145 FF30C4 80 04 bra ?34 |
||
2846 | 5146 FF30C6 A9 C0 ?32: lda #$C0 |
||
2847 | 5147 FF30C8 04 E4 tsb SMTmp2+2 |
||
2848 | 5148 FF30CA A6 E2 ?34: ldx SMTmp2 ; X=port |
||
2849 | 5149 FF30CC A5 E4 lda SMTmp2+2 ; A=mode |
||
2850 | 5150 FF30CE 22 06 08 F8 jsl lspset |
||
2851 | 5151 FF30D2 A5 E2 lda SMTmp2 |
||
2852 | 5152 FF30D4 0A asl a |
||
2853 | Tue Jul 17 11:00:24 2018 Page 47 |
||
2854 | |||
2855 | |||
2856 | |||
2857 | |||
2858 | 5153 FF30D5 0A asl a |
||
2859 | 5154 FF30D6 85 E3 sta SMTmp2+1 |
||
2860 | 5155 FF30D8 3B tsc |
||
2861 | 5156 FF30D9 85 E6 sta SMTmp2+4 |
||
2862 | 5157 FF30DB EB xba |
||
2863 | 5158 FF30DC 85 E7 sta SMTmp2+5 |
||
2864 | 5159 FF30DE 24 E5 bit SMTmp2+3 ; check tx/rx mode |
||
2865 | 5160 FF30E0 70 03 bvs ?40 ; tx mode |
||
2866 | 5161 FF30E2 4C 85 31 jmp ?300 |
||
2867 | 5162 FF30E5 |
||
2868 | 5163 FF30E5 64 BA ?40: stz SMTmpL |
||
2869 | 5164 FF30E7 64 BB stz SMTmpH |
||
2870 | 5165 FF30E9 A6 E3 ?41: ldx SMTmp2+1 |
||
2871 | 5166 FF30EB 3C 56 00 bit !splin,x |
||
2872 | 5167 FF30EE 10 07 bpl ?42 ; on line |
||
2873 | 5168 FF30F0 20 80 1A jsr CkStop |
||
2874 | 5169 FF30F3 D0 F4 bne ?41 |
||
2875 | 5170 FF30F5 F0 47 beq ?90 ; stop |
||
2876 | 5171 FF30F7 A9 0D ?42: lda #$0D |
||
2877 | 5172 FF30F9 20 56 31 jsr ?200 |
||
2878 | 5173 FF30FC 20 80 1A ?45: jsr CkStop ; loop TX |
||
2879 | 5174 FF30FF F0 3D beq ?90 ; stop |
||
2880 | 5175 FF3101 A5 BB lda SMTmpH |
||
2881 | 5176 FF3103 20 7C 19 jsr FF_Byte2Hex |
||
2882 | 5177 FF3106 DA phx |
||
2883 | 5178 FF3107 20 56 31 jsr ?200 ; send |
||
2884 | 5179 FF310A 68 pla |
||
2885 | 5180 FF310B 20 56 31 jsr ?200 ; send |
||
2886 | 5181 FF310E A5 BA lda SMTmpL |
||
2887 | 5182 FF3110 20 7C 19 jsr FF_Byte2Hex |
||
2888 | 5183 FF3113 DA phx |
||
2889 | 5184 FF3114 20 56 31 jsr ?200 |
||
2890 | 5185 FF3117 68 pla |
||
2891 | 5186 FF3118 20 56 31 jsr ?200 |
||
2892 | 5187 FF311B A9 20 lda #' ' |
||
2893 | 5188 FF311D 20 56 31 jsr ?200 |
||
2894 | 5189 FF3120 A9 40 lda #$40 |
||
2895 | 5190 FF3122 85 BC sta SMTmpK |
||
2896 | 5191 FF3124 A5 BC ?47: lda SMTmpK |
||
2897 | 5192 FF3126 20 56 31 jsr ?200 |
||
2898 | 5193 FF3129 E6 BC inc SMTmpK |
||
2899 | 5194 FF312B A5 BC lda SMTmpK |
||
2900 | 5195 FF312D C9 7E cmp #$7E |
||
2901 | 5196 FF312F 90 F3 bcc ?47 |
||
2902 | 5197 FF3131 A9 0D lda #$0D |
||
2903 | 5198 FF3133 20 56 31 jsr ?200 |
||
2904 | 5199 FF3136 ACC16 |
||
2905 | 5200 FF3136 C2 20 rep #PMFLAG |
||
2906 | 5201 .LONGA on |
||
2907 | 5202 .MNLIST |
||
2908 | 5203 FF3138 E6 BA inc SMTmpL |
||
2909 | 5204 FF313A ACC08 |
||
2910 | 5205 FF313A E2 20 sep #PMFLAG |
||
2911 | 5206 .LONGA off |
||
2912 | 5207 .MNLIST |
||
2913 | 5208 FF313C 80 BE bra ?45 |
||
2914 | 5209 FF313E |
||
2915 | Tue Jul 17 11:00:24 2018 Page 48 |
||
2916 | |||
2917 | |||
2918 | |||
2919 | |||
2920 | 5210 FF313E A9 FF ?90: lda #$FF ; stop: CTRL BREAK |
||
2921 | 5211 FF3140 ?91: SCN_CR |
||
2922 | 5212 FF3140 SCNPRCHAR |
||
2923 | 5213 .MLIST |
||
2924 | 5214 FF3140 02 07 cop $07 |
||
2925 | 5215 .MNLIST |
||
2926 | 5216 FF3142 0D .DB $0D |
||
2927 | 5217 .MNLIST |
||
2928 | 5218 FF3143 20 4E 19 jsr PrintByte |
||
2929 | 5219 FF3146 SCN_CR |
||
2930 | 5220 FF3146 SCNPRCHAR |
||
2931 | 5221 .MLIST |
||
2932 | 5222 FF3146 02 07 cop $07 |
||
2933 | 5223 .MNLIST |
||
2934 | 5224 FF3148 0D .DB $0D |
||
2935 | 5225 .MNLIST |
||
2936 | 5226 FF3149 A6 E2 ?99: ldx SMTmp2 |
||
2937 | 5227 FF314B 22 16 08 F8 jsl lspres |
||
2938 | 5228 FF314F A5 E7 lda SMTmp2+5 |
||
2939 | 5229 FF3151 EB xba |
||
2940 | 5230 FF3152 A5 E6 lda SMTmp2+4 |
||
2941 | 5231 FF3154 1B tcs |
||
2942 | 5232 FF3155 60 rts |
||
2943 | 5233 FF3156 |
||
2944 | 5234 FF3156 A6 E2 ?200: ldx SMTmp2 |
||
2945 | 5235 FF3158 22 F6 07 F8 ?210: jsl lspput |
||
2946 | 5236 FF315C 90 07 bcc ?215 |
||
2947 | 5237 FF315E C8 iny |
||
2948 | 5238 FF315F D0 F7 bne ?210 |
||
2949 | 5239 FF3161 A9 80 lda #$80 ; remote off-line |
||
2950 | 5240 FF3163 80 DB bra ?91 |
||
2951 | 5241 FF3165 |
||
2952 | 5242 FF3165 24 E5 ?215: bit SMTmp2+3 |
||
2953 | 5243 FF3167 10 0C bpl ?250 |
||
2954 | 5244 FF3169 22 E6 07 F8 jsl lspget |
||
2955 | 5245 FF316D B0 03 bcs ?220 |
||
2956 | 5246 FF316F TXTCHAROUT |
||
2957 | 5247 FF316F 02 06 cop $06 |
||
2958 | 5248 .MNLIST |
||
2959 | 5249 FF3171 60 rts |
||
2960 | 5250 FF3172 A8 ?220: tay |
||
2961 | 5251 FF3173 D0 CB bne ?91 |
||
2962 | 5252 FF3175 60 ?250: rts |
||
2963 | 5253 |
||
2964 | 5254 FF3176 |
||
2965 | 5255 FF3176 70 25 62 20 68 ?100: .DB 'p%b h%r e t u ', 0 |
||
2966 | 25 72 20 65 20 |
||
2967 | 74 20 75 20 00 |
||
2968 | 5256 |
||
2969 | 5257 FF3185 A9 30 ?300: lda #'0' |
||
2970 | 5258 FF3187 8D 00 20 sta !$2000 |
||
2971 | 5259 FF318A 8D 01 20 sta !$2001 |
||
2972 | 5260 FF318D 8D 02 20 sta !$2002 |
||
2973 | 5261 FF3190 8D 03 20 sta !$2003 |
||
2974 | 5262 FF3193 A9 20 lda #' ' |
||
2975 | 5263 FF3195 8D 04 20 sta !$2004 |
||
2976 | 5264 FF3198 A9 40 lda #$40 |
||
2977 | Tue Jul 17 11:00:24 2018 Page 49 |
||
2978 | |||
2979 | |||
2980 | |||
2981 | |||
2982 | 5265 FF319A A2 00 ldx #0 |
||
2983 | 5266 FF319C 9D 05 20 ?300l: sta !$2005,x |
||
2984 | 5267 FF319F E8 inx |
||
2985 | 5268 FF31A0 1A inc a |
||
2986 | 5269 FF31A1 C9 7E cmp #$7E |
||
2987 | 5270 FF31A3 90 F7 bcc ?300l |
||
2988 | 5271 FF31A5 9E 05 20 stz !$2005,x |
||
2989 | 5272 FF31A8 64 BA ?300w: stz SMTmpL |
||
2990 | 5273 FF31AA 64 BB stz SMTmpH |
||
2991 | 5274 FF31AC 64 BC stz SMTmpK |
||
2992 | 5275 FF31AE A6 E3 ldx SMTmp2+1 |
||
2993 | 5276 FF31B0 3C 56 00 bit !splin,x |
||
2994 | 5277 FF31B3 10 07 bpl ?320 ; on line |
||
2995 | 5278 FF31B5 20 80 1A jsr CkStop |
||
2996 | 5279 FF31B8 D0 EE bne ?300w |
||
2997 | 5280 FF31BA F0 76 beq ?340 |
||
2998 | 5281 FF31BC A5 BC ?320: lda SMTmpK |
||
2999 | 5282 FF31BE D0 16 bne ?320z |
||
3000 | 5283 |
||
3001 | 5284 FF31C0 A5 BB lda SMTmpH |
||
3002 | 5285 FF31C2 20 7C 19 jsr FF_Byte2Hex |
||
3003 | 5286 FF31C5 8D 00 20 sta !$2000 |
||
3004 | 5287 FF31C8 8E 01 20 stx .ABS.$2001 |
||
3005 | 5288 FF31CB A5 BA lda SMTmpL |
||
3006 | 5289 FF31CD 20 7C 19 jsr FF_Byte2Hex |
||
3007 | 5290 FF31D0 8D 02 20 sta !$2002 |
||
3008 | 5291 FF31D3 8E 03 20 stx .ABS.$2003 |
||
3009 | 5292 FF31D6 |
||
3010 | 5293 FF31D6 20 80 1A ?320z: jsr CkStop |
||
3011 | 5294 FF31D9 F0 57 beq ?340 |
||
3012 | 5295 FF31DB A6 E2 ldx SMTmp2 |
||
3013 | 5296 FF31DD 22 E6 07 F8 jsl lspget |
||
3014 | 5297 FF31E1 B0 4A bcs ?330 |
||
3015 | 5298 FF31E3 C9 0A cmp #$0A |
||
3016 | 5299 FF31E5 F0 31 beq ?324 |
||
3017 | 5300 FF31E7 C9 0D cmp #$0D |
||
3018 | 5301 FF31E9 D0 12 bne ?320a |
||
3019 | 5302 FF31EB A6 BC ldx SMTmpK |
||
3020 | 5303 FF31ED F0 29 beq ?324 |
||
3021 | 5304 FF31EF E0 43 cpx #$43 |
||
3022 | 5305 FF31F1 D0 1B bne ?320e |
||
3023 | 5306 FF31F3 ACC16 |
||
3024 | 5307 FF31F3 C2 20 rep #PMFLAG |
||
3025 | 5308 .LONGA on |
||
3026 | 5309 .MNLIST |
||
3027 | 5310 FF31F5 E6 BA inc SMTmpL |
||
3028 | 5311 FF31F7 ACC08 |
||
3029 | 5312 FF31F7 E2 20 sep #PMFLAG |
||
3030 | 5313 .LONGA off |
||
3031 | 5314 .MNLIST |
||
3032 | 5315 FF31F9 64 BC stz SMTmpK |
||
3033 | 5316 FF31FB 80 1B bra ?324 |
||
3034 | 5317 FF31FD C9 09 ?320a: cmp #$09 |
||
3035 | 5318 FF31FF F0 17 beq ?324 |
||
3036 | 5319 FF3201 C9 20 cmp #$20 |
||
3037 | 5320 FF3203 90 B7 bcc ?320 |
||
3038 | 5321 FF3205 A6 BC ldx SMTmpK |
||
3039 | Tue Jul 17 11:00:24 2018 Page 50 |
||
3040 | |||
3041 | |||
3042 | |||
3043 | |||
3044 | 5322 FF3207 E6 BC inc SMTmpK |
||
3045 | 5323 FF3209 DD 00 20 cmp !$2000,x |
||
3046 | 5324 FF320C F0 0A beq ?324 |
||
3047 | 5325 FF320E 8E 50 20 ?320e: stx $2050 |
||
3048 | 5326 FF3211 8D 51 20 sta $2051 |
||
3049 | 5327 FF3214 A9 E5 lda #$E5 |
||
3050 | 5328 FF3216 80 15 bra ?330 |
||
3051 | 5329 FF3218 ?324: TXTCHAROUT |
||
3052 | 5330 FF3218 02 06 cop $06 |
||
3053 | 5331 .MNLIST |
||
3054 | 5332 FF321A 24 E5 bit SMTmp2+3 |
||
3055 | 5333 FF321C 10 9E bpl ?320 |
||
3056 | 5334 FF321E ?325a: |
||
3057 | 5335 FF321E A6 E2 ldx SMTmp2 |
||
3058 | 5336 FF3220 22 F6 07 F8 ?325: jsl lspput |
||
3059 | 5337 FF3224 90 96 bcc ?320 |
||
3060 | 5338 FF3226 C8 iny |
||
3061 | 5339 FF3227 D0 F7 bne ?325 |
||
3062 | 5340 FF3229 A9 80 lda #$80 |
||
3063 | 5341 FF322B 80 07 bra ?350 |
||
3064 | 5342 FF322D A8 ?330: tay |
||
3065 | 5343 FF322E F0 8C beq ?320 |
||
3066 | 5344 FF3230 80 02 bra ?350 |
||
3067 | 5345 FF3232 A9 FF ?340: lda #$FF |
||
3068 | 5346 FF3234 ?350: SCN_CR |
||
3069 | 5347 FF3234 SCNPRCHAR |
||
3070 | 5348 .MLIST |
||
3071 | 5349 FF3234 02 07 cop $07 |
||
3072 | 5350 .MNLIST |
||
3073 | 5351 FF3236 0D .DB $0D |
||
3074 | 5352 .MNLIST |
||
3075 | 5353 FF3237 20 4E 19 jsr PrintByte |
||
3076 | 5354 FF323A A6 E2 ldx SMTmp2 |
||
3077 | 5355 FF323C 22 16 08 F8 jsl lspres |
||
3078 | 5356 FF3240 A5 E7 lda SMTmp2+5 |
||
3079 | 5357 FF3242 EB xba |
||
3080 | 5358 FF3243 A5 E6 lda SMTmp2+4 |
||
3081 | 5359 FF3245 1B tcs |
||
3082 | 5360 FF3246 60 rts |
||
3083 | 5361 |
||
3084 | 5362 ; #asptest -p<port> -b<baud_rate> -h<handshake> -e -t -n |
||
3085 | 5363 ; -p: port 0 or 1 (default: 0) |
||
3086 | 5364 ; -b: baud rate = 0,1,2,3 (default: 1 = 38,400) |
||
3087 | 5365 ; -h: handshke level = 0,1,2 (defalt: 2) |
||
3088 | 5366 ; 0=none, 1=software, 2=hardware |
||
3089 | 5367 ; -e: enable echo in rx mode (default mode: rx) |
||
3090 | 5368 ; -t: enable tx mode (-e ignored) |
||
3091 | 5369 ; -n: no FIFO |
||
3092 | 5370 FF3247 Cmd_asptst: |
||
3093 | 5371 .EXTERN lspset2, lspget2, lspput2, lspres2 |
||
3094 | 5372 .PUBLIC Cmd_asptst |
||
3095 | 5373 |
||
3096 | 5374 FF3247 SCN_CR |
||
3097 | 5375 FF3247 SCNPRCHAR |
||
3098 | 5376 .MLIST |
||
3099 | 5377 FF3247 02 07 cop $07 |
||
3100 | 5378 .MNLIST |
||
3101 | Tue Jul 17 11:00:24 2018 Page 51 |
||
3102 | |||
3103 | |||
3104 | |||
3105 | |||
3106 | 5379 FF3249 0D .DB $0D |
||
3107 | 5380 .MNLIST |
||
3108 | 5381 FF324A 64 E2 stz SMTmp2 ; port 0 |
||
3109 | 5382 FF324C 64 E5 stz SMTmp2+3 ; no echo, rx mode |
||
3110 | 5383 FF324E A9 02 lda #2 |
||
3111 | 5384 FF3250 85 E3 sta SMTmp2+1 ; hardware handshake |
||
3112 | 5385 FF3252 A9 C5 lda #11000101B |
||
3113 | 5386 FF3254 85 E4 sta SMTmp2+2 |
||
3114 | 5387 FF3256 A9 80 lda #$80 ; flag |
||
3115 | 5388 FF3258 48 pha |
||
3116 | 5389 FF3259 A6 E0 ldx cmdlin |
||
3117 | 5390 FF325B ACC16CLC |
||
3118 | 5391 FF325B C2 21 rep #(PMFLAG.OR.PCFLAG) |
||
3119 | 5392 .LONGA on |
||
3120 | 5393 .MNLIST |
||
3121 | 5394 FF325D 8A txa |
||
3122 | 5395 FF325E 69 00 99 adc #INPUTBUF |
||
3123 | 5396 FF3261 A2 01 ldx #^INPUTBUF |
||
3124 | 5397 FF3263 DA phx ; command line |
||
3125 | 5398 FF3264 48 pha |
||
3126 | 5399 FF3265 ACC08 |
||
3127 | 5400 FF3265 E2 20 sep #PMFLAG |
||
3128 | 5401 .LONGA off |
||
3129 | 5402 .MNLIST |
||
3130 | 5403 FF3267 4B phk ; option string |
||
3131 | 5404 FF3268 F4 AC 33 pea #!?100 |
||
3132 | 5405 FF326B F4 00 00 pea #0 ; result |
||
3133 | 5406 FF326E F4 00 00 pea #0 |
||
3134 | 5407 FF3271 22 09 00 FA ?10: jsl _getopt ; get opttion's loop |
||
3135 | 5408 FF3275 B0 54 bcs ?26 ; error |
||
3136 | 5409 FF3277 AA tax ; option char |
||
3137 | 5410 FF3278 F0 51 beq ?26 ; end of command line |
||
3138 | 5411 FF327A 30 4E bmi ?24 ; no option argument |
||
3139 | 5412 FF327C C9 70 cmp #'p' |
||
3140 | 5413 FF327E D0 08 bne ?12 |
||
3141 | 5414 FF3280 A3 01 lda $01,s |
||
3142 | 5415 FF3282 29 01 and #1 |
||
3143 | 5416 FF3284 85 E2 sta SMTmp2 ; port |
||
3144 | 5417 FF3286 80 E9 bra ?10 |
||
3145 | 5418 FF3288 C9 68 ?12: cmp #'h' |
||
3146 | 5419 FF328A D0 0E bne ?14 |
||
3147 | 5420 FF328C A3 01 lda $01,s |
||
3148 | 5421 FF328E 29 03 and #3 |
||
3149 | 5422 FF3290 C9 03 cmp #3 |
||
3150 | 5423 FF3292 90 02 bcc ?13 |
||
3151 | 5424 FF3294 A9 02 lda #2 |
||
3152 | 5425 FF3296 85 E3 ?13: sta SMTmp2+1 ; handshake |
||
3153 | 5426 FF3298 80 D7 bra ?10 |
||
3154 | 5427 FF329A C9 62 ?14: cmp #'b' |
||
3155 | 5428 FF329C D0 0E bne ?16 |
||
3156 | 5429 FF329E A3 01 lda $01,s |
||
3157 | 5430 FF32A0 29 03 and #3 |
||
3158 | 5431 FF32A2 AA tax |
||
3159 | 5432 FF32A3 A9 03 lda #3 |
||
3160 | 5433 FF32A5 14 E4 trb SMTmp2+2 |
||
3161 | 5434 FF32A7 8A txa |
||
3162 | 5435 FF32A8 04 E4 tsb SMTmp2+2 |
||
3163 | Tue Jul 17 11:00:24 2018 Page 52 |
||
3164 | |||
3165 | |||
3166 | |||
3167 | |||
3168 | 5436 FF32AA 80 C5 bra ?10 |
||
3169 | 5437 FF32AC C9 6E ?16: cmp #'n' |
||
3170 | 5438 FF32AE D0 06 bne ?20 |
||
3171 | 5439 FF32B0 A9 20 lda #$20 |
||
3172 | 5440 FF32B2 04 E4 tsb SMTmp2+2 |
||
3173 | 5441 FF32B4 80 BB bra ?10 |
||
3174 | 5442 FF32B6 C9 65 ?20: cmp #'e' |
||
3175 | 5443 FF32B8 D0 06 bne ?22 |
||
3176 | 5444 FF32BA A9 80 lda #$80 |
||
3177 | 5445 FF32BC 04 E5 tsb SMTmp2+3 ; rx+echo mode |
||
3178 | 5446 FF32BE 80 B1 bra ?10 |
||
3179 | 5447 FF32C0 C9 74 ?22: cmp #'t' |
||
3180 | 5448 FF32C2 D0 06 bne ?24 |
||
3181 | 5449 FF32C4 A9 40 lda #$40 |
||
3182 | 5450 FF32C6 04 E5 tsb SMTmp2+3 ; tx mode |
||
3183 | 5451 FF32C8 80 A7 bra ?10 |
||
3184 | 5452 FF32CA 38 ?24: sec |
||
3185 | 5453 FF32CB 08 ?26: php ; clean stack |
||
3186 | 5454 FF32CC FA plx ; save carry |
||
3187 | 5455 FF32CD ACC16CLC |
||
3188 | 5456 FF32CD C2 21 rep #(PMFLAG.OR.PCFLAG) |
||
3189 | 5457 .LONGA on |
||
3190 | 5458 .MNLIST |
||
3191 | 5459 FF32CF 3B tsc |
||
3192 | 5460 FF32D0 69 0B 00 adc #11 |
||
3193 | 5461 FF32D3 1B tcs |
||
3194 | 5462 FF32D4 ACC08 |
||
3195 | 5463 FF32D4 E2 20 sep #PMFLAG |
||
3196 | 5464 .LONGA off |
||
3197 | 5465 .MNLIST |
||
3198 | 5466 FF32D6 8A txa |
||
3199 | 5467 FF32D7 4A lsr a ; test carry |
||
3200 | 5468 FF32D8 90 03 bcc ?28 ; ok |
||
3201 | 5469 FF32DA 4C 34 01 jmp ErrCls2 |
||
3202 | 5470 FF32DD A5 E3 ?28: lda SMTmp2+1 |
||
3203 | 5471 FF32DF D0 06 bne ?30 |
||
3204 | 5472 FF32E1 A9 C0 lda #$C0 |
||
3205 | 5473 FF32E3 14 E4 trb SMTmp2+2 |
||
3206 | 5474 FF32E5 80 12 bra ?34 |
||
3207 | 5475 FF32E7 C9 01 ?30: cmp #1 |
||
3208 | 5476 FF32E9 D0 0A bne ?32 |
||
3209 | 5477 FF32EB A9 C0 lda #$C0 |
||
3210 | 5478 FF32ED 14 E4 trb SMTmp2+2 |
||
3211 | 5479 FF32EF A9 80 lda #$80 |
||
3212 | 5480 FF32F1 04 E4 tsb SMTmp2+2 |
||
3213 | 5481 FF32F3 80 04 bra ?34 |
||
3214 | 5482 FF32F5 A9 C0 ?32: lda #$C0 |
||
3215 | 5483 FF32F7 04 E4 tsb SMTmp2+2 |
||
3216 | 5484 FF32F9 A6 E2 ?34: ldx SMTmp2 ; X=port |
||
3217 | 5485 FF32FB A5 E4 lda SMTmp2+2 ; A=mode |
||
3218 | 5486 FF32FD 22 78 0D F8 jsl lspset2 |
||
3219 | 5487 FF3301 A5 E2 lda SMTmp2 |
||
3220 | 5488 FF3303 0A asl a |
||
3221 | 5489 FF3304 0A asl a |
||
3222 | 5490 FF3305 85 E3 sta SMTmp2+1 |
||
3223 | 5491 FF3307 3B tsc |
||
3224 | 5492 FF3308 85 E6 sta SMTmp2+4 |
||
3225 | Tue Jul 17 11:00:24 2018 Page 53 |
||
3226 | |||
3227 | |||
3228 | |||
3229 | |||
3230 | 5493 FF330A EB xba |
||
3231 | 5494 FF330B 85 E7 sta SMTmp2+5 |
||
3232 | 5495 FF330D 24 E5 bit SMTmp2+3 ; check tx/rx mode |
||
3233 | 5496 FF330F 70 03 bvs ?40 ; tx mode |
||
3234 | 5497 FF3311 4C B9 33 jmp ?300 |
||
3235 | 5498 FF3314 |
||
3236 | 5499 FF3314 64 BA ?40: stz SMTmpL |
||
3237 | 5500 FF3316 64 BB stz SMTmpH |
||
3238 | 5501 FF3318 A6 E2 ?41: ldx SMTmp2 |
||
3239 | 5502 FF331A F0 05 beq ?41a |
||
3240 | 5503 FF331C 2C 16 05 bit !DP05ADDR+splin3 |
||
3241 | 5504 FF331F 80 03 bra ?41b |
||
3242 | 5505 FF3321 2C 2C 05 ?41a: bit !DP05ADDR+splin4 |
||
3243 | 5506 FF3324 50 07 ?41b: bvc ?42 ; on line |
||
3244 | 5507 FF3326 20 80 1A jsr CkStop |
||
3245 | 5508 FF3329 D0 ED bne ?41 |
||
3246 | 5509 FF332B F0 47 beq ?90 ; stop |
||
3247 | 5510 FF332D A9 0D ?42: lda #$0D |
||
3248 | 5511 FF332F 20 8C 33 jsr ?200 |
||
3249 | 5512 FF3332 20 80 1A ?45: jsr CkStop ; loop TX |
||
3250 | 5513 FF3335 F0 3D beq ?90 ; stop |
||
3251 | 5514 FF3337 A5 BB lda SMTmpH |
||
3252 | 5515 FF3339 20 7C 19 jsr FF_Byte2Hex |
||
3253 | 5516 FF333C DA phx |
||
3254 | 5517 FF333D 20 8C 33 jsr ?200 ; send |
||
3255 | 5518 FF3340 68 pla |
||
3256 | 5519 FF3341 20 8C 33 jsr ?200 ; send |
||
3257 | 5520 FF3344 A5 BA lda SMTmpL |
||
3258 | 5521 FF3346 20 7C 19 jsr FF_Byte2Hex |
||
3259 | 5522 FF3349 DA phx |
||
3260 | 5523 FF334A 20 8C 33 jsr ?200 |
||
3261 | 5524 FF334D 68 pla |
||
3262 | 5525 FF334E 20 8C 33 jsr ?200 |
||
3263 | 5526 FF3351 A9 20 lda #' ' |
||
3264 | 5527 FF3353 20 8C 33 jsr ?200 |
||
3265 | 5528 FF3356 A9 40 lda #$40 |
||
3266 | 5529 FF3358 85 BC sta SMTmpK |
||
3267 | 5530 FF335A A5 BC ?47: lda SMTmpK |
||
3268 | 5531 FF335C 20 8C 33 jsr ?200 |
||
3269 | 5532 FF335F E6 BC inc SMTmpK |
||
3270 | 5533 FF3361 A5 BC lda SMTmpK |
||
3271 | 5534 FF3363 C9 7E cmp #$7E |
||
3272 | 5535 FF3365 90 F3 bcc ?47 |
||
3273 | 5536 FF3367 A9 0D lda #$0D |
||
3274 | 5537 FF3369 20 8C 33 jsr ?200 |
||
3275 | 5538 FF336C ACC16 |
||
3276 | 5539 FF336C C2 20 rep #PMFLAG |
||
3277 | 5540 .LONGA on |
||
3278 | 5541 .MNLIST |
||
3279 | 5542 FF336E E6 BA inc SMTmpL |
||
3280 | 5543 ;lda SMTmpL |
||
3281 | 5544 ;cmp #8 |
||
3282 | 5545 FF3370 ACC08 |
||
3283 | 5546 FF3370 E2 20 sep #PMFLAG |
||
3284 | 5547 .LONGA off |
||
3285 | 5548 .MNLIST |
||
3286 | 5549 FF3372 80 BE bra ?45 |
||
3287 | Tue Jul 17 11:00:24 2018 Page 54 |
||
3288 | |||
3289 | |||
3290 | |||
3291 | |||
3292 | 5550 ;bcc ?45 |
||
3293 | 5551 FF3374 |
||
3294 | 5552 FF3374 A9 FF ?90: lda #$FF ; stop: CTRL BREAK |
||
3295 | 5553 FF3376 ?91: SCN_CR |
||
3296 | 5554 FF3376 SCNPRCHAR |
||
3297 | 5555 .MLIST |
||
3298 | 5556 FF3376 02 07 cop $07 |
||
3299 | 5557 .MNLIST |
||
3300 | 5558 FF3378 0D .DB $0D |
||
3301 | 5559 .MNLIST |
||
3302 | 5560 FF3379 20 4E 19 jsr PrintByte |
||
3303 | 5561 FF337C SCN_CR |
||
3304 | 5562 FF337C SCNPRCHAR |
||
3305 | 5563 .MLIST |
||
3306 | 5564 FF337C 02 07 cop $07 |
||
3307 | 5565 .MNLIST |
||
3308 | 5566 FF337E 0D .DB $0D |
||
3309 | 5567 .MNLIST |
||
3310 | 5568 FF337F A6 E2 ?99: ldx SMTmp2 |
||
3311 | 5569 FF3381 22 8A 0D F8 jsl lspres2 |
||
3312 | 5570 FF3385 A5 E7 lda SMTmp2+5 |
||
3313 | 5571 FF3387 EB xba |
||
3314 | 5572 FF3388 A5 E6 lda SMTmp2+4 |
||
3315 | 5573 FF338A 1B tcs |
||
3316 | 5574 FF338B 60 rts |
||
3317 | 5575 FF338C |
||
3318 | 5576 FF338C A6 E2 ?200: ldx SMTmp2 |
||
3319 | 5577 FF338E 22 66 0D F8 ?210: jsl lspput2 |
||
3320 | 5578 FF3392 90 07 bcc ?215 |
||
3321 | 5579 FF3394 C8 iny |
||
3322 | 5580 FF3395 D0 F7 bne ?210 |
||
3323 | 5581 FF3397 A9 80 lda #$80 ; remote off-line |
||
3324 | 5582 FF3399 80 DB bra ?91 |
||
3325 | 5583 FF339B |
||
3326 | 5584 FF339B 24 E5 ?215: bit SMTmp2+3 |
||
3327 | 5585 FF339D 10 0C bpl ?250 |
||
3328 | 5586 FF339F 22 54 0D F8 jsl lspget2 |
||
3329 | 5587 FF33A3 B0 03 bcs ?220 |
||
3330 | 5588 FF33A5 TXTCHAROUT |
||
3331 | 5589 FF33A5 02 06 cop $06 |
||
3332 | 5590 .MNLIST |
||
3333 | 5591 FF33A7 60 rts |
||
3334 | 5592 FF33A8 A8 ?220: tay |
||
3335 | 5593 FF33A9 D0 CB bne ?91 |
||
3336 | 5594 FF33AB 60 ?250: rts |
||
3337 | 5595 |
||
3338 | 5596 FF33AC |
||
3339 | 5597 FF33AC 70 25 62 25 68 ?100: .DB 'p%b%h%e t n ', 0 |
||
3340 | 25 65 20 74 20 |
||
3341 | 6E 20 00 |
||
3342 | 5598 |
||
3343 | 5599 ; RX mode |
||
3344 | 5600 FF33B9 A9 30 ?300: lda #'0' |
||
3345 | 5601 FF33BB 8D 00 20 sta !$2000 |
||
3346 | 5602 FF33BE 8D 01 20 sta !$2001 |
||
3347 | 5603 FF33C1 8D 02 20 sta !$2002 |
||
3348 | 5604 FF33C4 8D 03 20 sta !$2003 |
||
3349 | Tue Jul 17 11:00:24 2018 Page 55 |
||
3350 | |||
3351 | |||
3352 | |||
3353 | |||
3354 | 5605 FF33C7 A9 20 lda #' ' |
||
3355 | 5606 FF33C9 8D 04 20 sta !$2004 |
||
3356 | 5607 FF33CC A9 40 lda #$40 |
||
3357 | 5608 FF33CE A2 00 ldx #0 |
||
3358 | 5609 FF33D0 9D 05 20 ?300l: sta !$2005,x |
||
3359 | 5610 FF33D3 E8 inx |
||
3360 | 5611 FF33D4 1A inc a |
||
3361 | 5612 FF33D5 C9 7E cmp #$7E |
||
3362 | 5613 FF33D7 90 F7 bcc ?300l |
||
3363 | 5614 FF33D9 9E 05 20 stz !$2005,x |
||
3364 | 5615 FF33DC 64 BA ?300w: stz SMTmpL |
||
3365 | 5616 FF33DE 64 BB stz SMTmpH |
||
3366 | 5617 FF33E0 64 BC stz SMTmpK |
||
3367 | 5618 FF33E2 A6 E2 ldx SMTmp2 |
||
3368 | 5619 FF33E4 F0 05 beq ?320aa |
||
3369 | 5620 FF33E6 2C 16 05 bit !DP05ADDR+splin3 |
||
3370 | 5621 FF33E9 80 03 bra ?320b |
||
3371 | 5622 FF33EB 2C 2C 05 ?320aa: bit !DP05ADDR+splin4 |
||
3372 | 5623 FF33EE 10 08 ?320b: bpl ?320 ; on line |
||
3373 | 5624 FF33F0 20 80 1A jsr CkStop |
||
3374 | 5625 FF33F3 D0 E7 bne ?300w |
||
3375 | 5626 ;beq ?340 |
||
3376 | 5627 FF33F5 4C 78 34 jmp ?340 |
||
3377 | 5628 |
||
3378 | 5629 FF33F8 A5 BC ?320: lda SMTmpK |
||
3379 | 5630 FF33FA D0 16 bne ?320z |
||
3380 | 5631 |
||
3381 | 5632 FF33FC A5 BB lda SMTmpH |
||
3382 | 5633 FF33FE 20 7C 19 jsr FF_Byte2Hex |
||
3383 | 5634 FF3401 8D 00 20 sta !$2000 |
||
3384 | 5635 FF3404 8E 01 20 stx .ABS.$2001 |
||
3385 | 5636 FF3407 A5 BA lda SMTmpL |
||
3386 | 5637 FF3409 20 7C 19 jsr FF_Byte2Hex |
||
3387 | 5638 FF340C 8D 02 20 sta !$2002 |
||
3388 | 5639 FF340F 8E 03 20 stx .ABS.$2003 |
||
3389 | 5640 FF3412 |
||
3390 | 5641 FF3412 20 80 1A ?320z: jsr CkStop |
||
3391 | 5642 FF3415 F0 61 beq ?340 |
||
3392 | 5643 FF3417 A6 E2 ldx SMTmp2 |
||
3393 | 5644 FF3419 22 54 0D F8 jsl lspget2 |
||
3394 | 5645 FF341D B0 54 bcs ?330 |
||
3395 | 5646 FF341F C9 0A cmp #$0A |
||
3396 | 5647 FF3421 F0 3B beq ?324 |
||
3397 | 5648 FF3423 C9 0D cmp #$0D |
||
3398 | 5649 FF3425 D0 1C bne ?320a |
||
3399 | 5650 FF3427 A6 BC ldx SMTmpK |
||
3400 | 5651 FF3429 F0 33 beq ?324 |
||
3401 | 5652 FF342B E0 43 cpx #$43 |
||
3402 | 5653 ;bne ?320e |
||
3403 | 5654 FF342D F0 0A beq ?320xxx |
||
3404 | 5655 FF342F 8E 50 20 stx $2050 |
||
3405 | 5656 FF3432 8D 51 20 sta $2051 |
||
3406 | 5657 FF3435 A9 E6 lda #$E6 |
||
3407 | 5658 FF3437 80 3A bra ?330 |
||
3408 | 5659 FF3439 |
||
3409 | 5660 FF3439 ?320xxx: |
||
3410 | 5661 FF3439 ACC16 |
||
3411 | Tue Jul 17 11:00:24 2018 Page 56 |
||
3412 | |||
3413 | |||
3414 | |||
3415 | |||
3416 | 5662 FF3439 C2 20 rep #PMFLAG |
||
3417 | 5663 .LONGA on |
||
3418 | 5664 .MNLIST |
||
3419 | 5665 FF343B E6 BA inc SMTmpL |
||
3420 | 5666 FF343D ACC08 |
||
3421 | 5667 FF343D E2 20 sep #PMFLAG |
||
3422 | 5668 .LONGA off |
||
3423 | 5669 .MNLIST |
||
3424 | 5670 FF343F 64 BC stz SMTmpK |
||
3425 | 5671 FF3441 80 1B bra ?324 |
||
3426 | 5672 FF3443 C9 09 ?320a: cmp #$09 |
||
3427 | 5673 FF3445 F0 17 beq ?324 |
||
3428 | 5674 FF3447 C9 20 cmp #$20 |
||
3429 | 5675 FF3449 90 AD bcc ?320 |
||
3430 | 5676 FF344B A6 BC ldx SMTmpK |
||
3431 | 5677 FF344D E6 BC inc SMTmpK |
||
3432 | 5678 FF344F DD 00 20 cmp !$2000,x |
||
3433 | 5679 FF3452 F0 0A beq ?324 |
||
3434 | 5680 ;bne ?324 |
||
3435 | 5681 FF3454 8E 50 20 ?320e: stx $2050 |
||
3436 | 5682 FF3457 8D 51 20 sta $2051 |
||
3437 | 5683 FF345A A9 E5 lda #$E5 |
||
3438 | 5684 FF345C 80 15 bra ?330 |
||
3439 | 5685 FF345E ?324: TXTCHAROUT |
||
3440 | 5686 FF345E 02 06 cop $06 |
||
3441 | 5687 .MNLIST |
||
3442 | 5688 FF3460 24 E5 bit SMTmp2+3 |
||
3443 | 5689 FF3462 10 94 bpl ?320 |
||
3444 | 5690 FF3464 ?325a: |
||
3445 | 5691 FF3464 A6 E2 ldx SMTmp2 |
||
3446 | 5692 FF3466 22 66 0D F8 ?325: jsl lspput2 |
||
3447 | 5693 FF346A 90 8C bcc ?320 |
||
3448 | 5694 FF346C C8 iny |
||
3449 | 5695 FF346D D0 F7 bne ?325 |
||
3450 | 5696 FF346F A9 80 lda #$80 |
||
3451 | 5697 FF3471 80 07 bra ?350 |
||
3452 | 5698 FF3473 A8 ?330: tay |
||
3453 | 5699 FF3474 F0 82 beq ?320 |
||
3454 | 5700 FF3476 80 02 bra ?350 |
||
3455 | 5701 FF3478 A9 FF ?340: lda #$FF |
||
3456 | 5702 FF347A ?350: SCN_CR |
||
3457 | 5703 FF347A SCNPRCHAR |
||
3458 | 5704 .MLIST |
||
3459 | 5705 FF347A 02 07 cop $07 |
||
3460 | 5706 .MNLIST |
||
3461 | 5707 FF347C 0D .DB $0D |
||
3462 | 5708 .MNLIST |
||
3463 | 5709 FF347D 20 4E 19 jsr PrintByte |
||
3464 | 5710 FF3480 A6 E2 ldx SMTmp2 |
||
3465 | 5711 FF3482 22 8A 0D F8 jsl lspres2 |
||
3466 | 5712 FF3486 A5 E7 lda SMTmp2+5 |
||
3467 | 5713 FF3488 EB xba |
||
3468 | 5714 FF3489 A5 E6 lda SMTmp2+4 |
||
3469 | 5715 FF348B 1B tcs |
||
3470 | 5716 FF348C 60 rts |
||
3471 | 5717 |
||
3472 | 5718 FF348D ATACPYSTR1: |
||
3473 | Tue Jul 17 11:00:24 2018 Page 57 |
||
3474 | |||
3475 | |||
3476 | |||
3477 | |||
3478 | 5719 FF348D 72 65 61 64 20 .DB 'read %02bX sect. from %08X to %08X (Total %08X, dev. #%01bX)', $00 |
||
3479 | 20 25 30 32 62 |
||
3480 | 58 20 73 65 63 |
||
3481 | 74 2E 20 66 72 |
||
3482 | 6F 6D 20 25 30 |
||
3483 | 38 58 20 74 6F |
||
3484 | 20 25 30 38 58 |
||
3485 | 20 28 54 6F 74 |
||
3486 | 61 6C 20 25 30 |
||
3487 | 38 58 2C 20 64 |
||
3488 | 65 76 2E 20 23 |
||
3489 | 25 30 31 62 58 |
||
3490 | 29 00 |
||
3491 | 5720 |
||
3492 | 5721 FF34CB ATACPYSTR2: |
||
3493 | 5722 FF34CB 77 72 69 74 65 .DB 'write %02bX sect. from %08X to %08X (Total %08X, dev. #%01bX)', $00 |
||
3494 | 20 25 30 32 62 |
||
3495 | 58 20 73 65 63 |
||
3496 | 74 2E 20 66 72 |
||
3497 | 6F 6D 20 25 30 |
||
3498 | 38 58 20 74 6F |
||
3499 | 20 25 30 38 58 |
||
3500 | 20 28 54 6F 74 |
||
3501 | 61 6C 20 25 30 |
||
3502 | 38 58 2C 20 64 |
||
3503 | 65 76 2E 20 23 |
||
3504 | 25 30 31 62 58 |
||
3505 | 29 00 |
||
3506 | |||
3507 | |||
3508 | Lines Assembled : 5193 Errors : 0 |
||
3509 | |||
3510 | |||
3511 |