Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:23 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\FE\kcbm.asmOutput Filename : obj\FE\kcbm.objListing Has Been Relocated2584 .LIST on25852586 F8FFB1 .INCLUDE inc\dirp00.inc2587 ;----------------------------------------------------------2588 ; DIRP00.ASM2589 ; PROGETTO: B16012590 ;2591 ; Variabili in Direct Page $002592 ;----------------------------------------------------------25932594 ; sezione COMMON -- questo permette di includere il file in piu' file25952596 .LIST on25972598 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0025992600 000000 .ABSOLUTE ;; inizia sempre da $002601 000000 .ORG 0x002602 0000002603 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2604 000002 0000 .DW2605 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2606 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2607 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2608 ; <6>: flag warm reset2609 00000D 00 RTCFlag .DB26102611 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12612 ; <7>: device ready2613 ; <6>: compact flash device (C.F.)2614 ; <5>: device identification ok2615 ; <4>: MBR loaded2616 ; <3>: valid signature in MBR2617 ; <2>: first partition found&active2618 ; <1>:2619 ; <0>: valid partition flag26202621 ; <7>: device ready2622 ; <6>: USB device2623 ; <5>: compact flash device (C.F.)2624 ; <4>: device identification ok2625 ; <3>: MBR loaded2626 ; <2>: first partition found&active2627 ; <1>: always 12628 ; <0>: valid partition flag2629 000010Tue Jul 17 11:00:23 2018 Page 226302631 00000E atadev .EQU diskstat26322633 000010 usbdev .DS 2 ; flag flash disk on usb bus #02634 ; <7>: device plugged and ready2635 ; <6>: always 12636 ; <5>: device identification ok2637 ; <4>: MBR loaded2638 ; <3>: valid signature in MBR2639 ; <2>: first partition found&active2640 ; <1>:2641 ; <0>: valid partition flag26422643 000012 diskmax .DS 16 ; disk max. sector's2644 000012 atasec .EQU diskmax2645 00001A usbsec .EQU diskmax+8264626472648 000022 atambr .DS 8 ; data for first partition found in mbr2649 ; first 3 bytes for start sector of partition2650 ; last byte for partition type2651 00002A usbmbr .DS 826522653 000032 ataprt .DS 8 ; total sec's of first partition2654 00003A usbprt .DS 8 ; total sec's of first partition265526562657 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2658 ; <7>: module on2659 ; <6>: ch376 flag2660 ; <5:0>: chip version26612662 000043 00 usb0st .DB ; usb0 status2663 ; <7>: usb0 host mode ok2664 ; <6>: flash disk attached flag2665 ; <5>: usb device attached26662667 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2668 ; <7>: disk format established in bit 0&12669 ; <6>: double step seek done2670 ; <5>: trust format bit's (set after ok r/w)2671 ; <4>: write protect bit (if disk in drive)2672 ; <3>: don't care2673 ; <2>: don't care2674 ; <1>: HD disk if set else DD disk2675 ; <0>: CBM format if set else IBM format26762677 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2678 ; <7>: disk format established in bit 0&12679 ; <6>: change disk simulation (after format)2680 ; <5>: don't care2681 ; <4>: write protect bit (under sw control)2682 ; <3>: don't care2683 ; <2>: don't care2684 ; <1>: HD disk if set else DD disk2685 ; <0>: CBM format if set else IBM format2686Tue Jul 17 11:00:23 2018 Page 32687 000046 00 fdcctl .DB ; fdc controller status2688 ; <7>: drive is attached2689 ; <6>: drive need recalibration (restore)2690 ; <5>: FDC controller ok2691 ; <4>: motor on2692 ; <3>: dma is active2693 ; <2>: dma chip ok (post routine)2694 ; <1>: clock rate (1=HD,0=DD)2695 ; <0>: disk ready26962697 000047 00 fdctrk .DB ; fd: current seek track2698 000048 00 fdcerr .DB ; fd: last error code2699 000049 00 ataerr .DB ; ata: last error code2700 00004A 00 ataxer .DB ; ata: last extended error code27012702 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27032704 00004C 0000 MemTop .DW ; top memoria RAM2705 00004E 00 .DB ; banco top mem27062707 00004F 00 DflTxtIn .DB ; device di default text input2708 000050 00 DflTxtOut .DB ; device di default text output27092710 000051 COPPtr LP ; long pointer for COP decoding2711 000054 00 COPIdx .DB ; COP signature/index27122713 000055 00 BiosEnt .DB ; flag accesso a bios setup27142715 ; variabili utilizzate da ACIA2716 000056 spwrk .DS $3027172718 ; bios mem2719 000086 0000 nsize .DW ; dimensione blocco da allocare2720 ;bsize .DW ; dimensione vera blocco free2721 000088 0000 splitsz .DW ; dimensione blocco splittato2722 00008A 0000 bfree .DW ; puntatore blocco free2723 00008C 0000 hdrptr .DW ; puntatore header heap27242725 00008E 0000 pbrklv .DW ; current break level of current process2726 000090 0000 pbrkmin .DW ; minimum breal level of current process2727 000092 0000 pbrkmax .DW ; maximum breal level of current process2728 0000942729 ; bios temp. work area2730 000094 bwrktmp .DS $2827312732 0000BC 00 coptmp .DB ; temp. used while cop27332734 0000BD 00 tstser .DB ; check ser/usb test board post2735 ; <7>: VIA2 ok2736 ; <6>: PICRAM ok2737 ; <1>: UART 16C550 ok2738 ; <0>: R65C51 ok273927402741 ;crc16 .DW27422743 0000BD .RELATIVETue Jul 17 11:00:23 2018 Page 427442745 .ENDS27462747 [01] .IFDEF _ACIA_INC_2748 .INCLUDE INC\SP.INC2749 [00] .ENDIF27502753 .LIST on2754 F8FFB1 .INCLUDE inc\dpcbm.inc2755 ;; cbm emulation27562757 ;;CBMP0 .EQU $7F0027582759 ; sezione COMMON -- questo permette di includere il file in piu' file27602761 DPCBM: .SECTION page0, ref_only, common27622763 000000 .ABSOLUTE ;; inizia sempre da $002764 000000 .ORG 0x0027652766 ;;MAXLF .EQU $10 ; max. logical files2767 00000B MAXLF .EQU 11 ; max. logical files2768 000008 MAXVIEC .EQU 8 ; max. virtual iec device #2769 000000 .DS 162770 0000102771 000010 00 subflg .DB ; ($10)2772 000011 00 .DB ; ($11)2773 000012 00 .DB ; ($12)2774 000013 00 .DB ; ($13)2775 000014 0000 lineno .DW ; ($14-$15) line number used by editor2776 000016 00 tmppt .DB ; ($16)2777 000017 00 tcnt .DB ; ($17) temp. counter/index2778 000018 0000 .DW ; ($18-$19)2779 00001A 0000 .DW ; ($1A-$1B)2780 00001C 0000 .DW ; ($1C-$1D)2781 00001E 0000 .DW ; ($1E-$1F)2782 000020 00 .DB ; ($20)27832784 ; basic/p-code virtual machine work area2785 000021 0000 .DW ; ($21-$22)2786 000023 0000 .DW ; ($23-$24)2787 000025 0000 .DW ; ($25-$26)2788 000027 0000 .DW ; ($27-$28)2789 000029 0000 .DW ; ($29-$2A)2790 00002B 0000 .DW ; ($2B-$2C)2791 00002D 0000 .DW ; ($2D-$2E)2792 00002F 0000 arytab .DW ; ($2F-$30)2793 000031 0000 strend .DW ; ($31-$32)2794 000033 0000 freetop .DW ; ($33-$34)2795 000035 0000 freespc .DW ; ($35-$36)2796 000037 0000 memsiz .DW ; ($37-$38)2797 000039 0000 curline .DW ; ($39-$3A) current line number in execution2798 00003B 0000 oldline .DW ; ($3B-$3C) previous line number in execution2799 00003D 0000 oldtxt .DW ; ($3D-$3E) saved pointer to text in basic execution2800 00003F 0000 datlin .DW ; ($3F-$40)2801 000041 0000 datptr .DW ; ($41-$42)2802 000043 0000 inpptr .DW ; ($43-$44)Tue Jul 17 11:00:23 2018 Page 52803 000045 0000 varnam .DW ; ($45-$46)2804 000047 0000 varpnt .DW ; ($47-$48)2805 000049 0000 forpnt .DW ; ($49-$4A) basic2806 00004B 0000 opptr .DW ; ($4B-$4C) basic2807 00004D 00 opmask .DB ; ($4D)2808 00004E 0000 defpnt .DW ; ($4E-$4F)2809 000050 0000 dscpnt .DW ; ($50-$51)2810 000052 00 dsclen .DB ; ($52)2811 000053 00 prompt .DB ; ($53) prompt flag/CMD channel - editor/basic ($13)28122813 ; equates for p-code virtual machine2814 00003B prtrap .EQU oldline ; ($3B) p-code trap errors flag2815 00003C pcstack .EQU oldline+1 ; ($3C-$3D) p-code save stack2816 00003E prterr .EQU oldtxt+1 ; ($3E) p-code run time error number2817 00003F psrline .EQU datlin ; ($3F-$40) pascal source line number2818 000041 prseed .EQU datptr ; ($41-$42) p-code random generator2819 000043 pbrkcnt .EQU inpptr ; ($43) p-code counter for break check2820 000044 tmpy .EQU inpptr+1 ; ($44) p-code temp. for save Y2821 000045 inqidx .EQU varnam ; ($45) p-code index to input buffer2822 000046 inqcnt .EQU varnam+1 ; ($46) p-code input buffer counter2823 000047 tmpv1 .EQU varpnt ; ($47) p-code temp.2824 000048 tmpv2 .EQU varpnt+1 ; ($48) p-code temp.2825 000049 tmpa .EQU forpnt ; ($49) p-code temp. save A2826 00004A tmpwa .EQU forpnt+1 ; ($4A) p-code tmp. save byte to write2827 00004B tmpx .EQU opptr ; ($4B) p-code tmp. save X when print2828 00004C pcterr .EQU opptr+1 ; ($4C) p-code compiler error flag2829 00004D tmpdsk .EQU opmask ; ($4D) p-code default temp. disk unit2830 00004E defprn .EQU defpnt ; ($4E) p-code default printer #device2831 00004F pcdbg .EQU defpnt+1 ; ($4F) p-code debug run after error2832 000050 pcptr .EQU dscpnt ; ($50-$51) pointer to p-code (debug)2833 000052 autolf .EQU dsclen ; ($52) p-code auto line feed flag28342835 000054 tmpwrk .DS 4 ; ($54-$57) temp. area editor/virtual iec2836 000058 00 tmpb0 .DB ; ($58)2837 000059 00 argbits .DB ; ($59) FAC #1 guard bits2838 00005A 00 tmpb2 .DB ; ($5A) tmp. byte - used by fpu2839 00005B 00 txtlen .DB ; ($5B) tmp. word length of text to insert in buffer2840 00005C 00 tmpb1 .DB ; ($5C) tmp. byte used by editor and float point unit2841 00005D 0000 tmpval .DW ; ($5D-$5E) temp. word used by editor/fpu2842 00005F 0000 tlnptr .DW ; ($5F-$60) temp. line text pointer used by editor/fpu2843 000061 00 facexp .DB ; ($61) FAC #1 exponent2844 000062 facm .DS 4 ; ($62-$65) FAC #1 mantissa2845 000066 00 facsgn .DB ; ($66) FAC #1 sign2846 000067 00 sercnt .DB ; ($67) FAC #1 series evaluation2847 000068 00 facov .DB ; ($68) FAC #1 overflow2848 000069 00 argexp .DB ; ($69) FAC #2 exponent2849 00006A argm .DS 4 ; ($6A-$6D) FAC #2 mantissa2850 00006E 00 argsgn .DB ; ($6E) FAC #2 sign2851 00006F 00 arisgn .DB ; ($6F) FAC #1 & #2 sign comparison2852 000070 00 facbits .DB ; ($70) FAC #1 guard bits2853 000071 0000 fbufpt .DW ; ($71-$72) FAC series evaluation pointer2854 000073 00 fbufpt2 .DB ; ($73) FAC series evaluation bank (progr. bank)28552856 ; tmp. variables (equates) used by float point unit2857 000054 factmp .EQU tmpwrk ; ($54-$57) used by fpu mult/div2858 00005A cprmsk .EQU tmpb2 ; ($5A) used by trigs. funcs.2859 00005B faclsb .EQU txtlen ; ($5B) used by float point unitTue Jul 17 11:00:23 2018 Page 62860 00005D dccnt .EQU tmpval ; ($5D) digit count after decimal dot2861 00005E expval .EQU tmpval+1 ; ($5E) exponent value when convert2862 00005F dotfg .EQU tlnptr ; ($5F) flag decimal dot when convert2863 000060 expsgn .EQU tlnptr+1 ; ($60) flag exponent sign when conver2864 000067 sgnfg .EQU sercnt ; ($67) flag: minus sign when convert2865 000071 decidx .EQU fbufpt ; ($71) string index when convert2866 000072 s2fer .EQU fbufpt+1 ; ($72) string to float flag error2867 000073 decidx2 .EQU fbufpt+2 ; ($73) used when convert float to str28682869 000074 0000 s2fstk .DW ; ($74-$75) save stack when string to float conversion2870 000076 longp LP ; ($76-$77-$78) temp. long pointer2871 000079 00 s2fptr .DB ; ($79) flag trap overflow err. string to float conv.28722873 00007A 0000 txtp .DW ; ($7A-$7B) current pointer to text2874 00007C 00 pcdsk .DB ; ($7C) flag for pascal compiler2875 ; <7> : compile in memory28762877 00007D iecrp LP ; ($7D) iec: pointer to read buffer for include file2878 000080 00 iecalt .DB ; ($80) iec: flag read from include file2879 000081 iectp LP ; ($81) iec: pointer to read main text buffer2880 000084 00 iecndx .DB ; ($84) iec: index main text buffer2881 000085 00 ieceof .DB ; ($85) iec: end of file flag main text buffer2882 000086 iecwp LP ; ($86) iec: pointer to write buffer2883 000089 00 iecfg .DB ; ($89) iec: flag main text buffer2884 00008A 0000 iecndx2 .DW ; ($8A) iec: index buffer include file2885 00008C 00 iecbuf .DB ; ($8C) iec: byte buffer2886 00008D 00 svbnk .DB ; ($8D) save vbnk when run pascal compiler2887 00008E 00 ieceof2 .DB ; ($8E) iec: flag eof include file2888 00008F 00 vxflag .DB ; ($8F) flag valid text in x-bank2889 000090 00 kstat .DB ; ($90) CBM emulated IEC status2890 000091 00 errno .DB ; ($91) saved error number2891 000092 00 keyfg .DB ; ($92) keyboard flag: KbdFlag2892 000093 00 keyctl .DB ; ($93) flag control key from get key2893 000094 00 keysh .DB ; ($94) flag keyboard: KbdShift2894 000095 00 keytg .DB ; ($95) flag keyboard: KbdToggle2895 000096 00 basic .DB ; ($96) flag current 'basic' mode2896 ; <7>: flag basic mode2897 ; <6>: flag pascal compiler running2898 000097 00 runf .DB ; ($97) flag current run mode2899 000098 00 ldtnd .DB ; ($98) number of open files2900 000099 00 dfltn .DB ; ($99) default input device2901 00009A 00 dflto .DB ; ($9A) default output device2902 00009B 00 skpbk .DB ; ($9B) skip blank flag2903 00009C 00 w2sf .DB ; ($9C) integer to string flag conversion2904 00009D 00 msgflg .DB ; ($9D) flag message2905 00009E 00 autof .DB ; ($9E) flag auto-increment line numbering2906 00009F 0000 wauto .DW ; ($9F-$A0) auto-increment for line numbering2907 0000A1 00 tbnk .DB ; ($A1) bank that hold basic/pascal text2908 0000A2 00 vbnk .DB ; ($A2) bank that hold basic var/pascal pcode-stack2909 0000A3 00 cbnk .DB ; ($A3) compiler bank/temp. bank for exchange2910 0000A4 00 jbnk .DB ; ($A4) bank for obj, when compiling (3 bank max.)2911 0000A5 00 xbnk .DB ; ($A5) exchange bank for text buffer2912 0000A6 00 dbnk .DB ; ($A6) bank for ram disk (jbnk + 3)2913 0000A7 0000 botmem .DW ; ($A7-$A8) start of memory on the text bank2914 0000A9 0000 topmem .DW ; ($A9-$AA) top of memory on the text bank2915 0000AB 0000 txtbeg .DW ; ($AB-$AC) begin of text buffer2916 0000AD 0000 txtend .DW ; ($AD-$AE) end of text buffer + 1Tue Jul 17 11:00:23 2018 Page 72917 0000AF 0000 txttop .DW ; ($AF-$B0) top of memory + 1 reserved to text buffer2918 0000B1 0000 varbeg .DW ; ($B1-$B2) start of basic var/pcode2919 0000B3 0000 vartop .DW ; ($B3-$B4) top of basic var/pcode + 12920 0000B5 0000 xtop .DW ; ($B5-$B6) top of text + 1 in x-bank2921 0000B7 00 fnlen .DB ; ($B7) length of current filename2922 0000B8 00 lacur .DB ; ($B8) current logical file number2923 0000B9 00 sacur .DB ; ($B9) current secondary address2924 0000BA 00 facur .DB ; ($BA) current device number2925 0000BB 0000 fnadr .DW ; ($BB-$BC) pointer to current filename2926 0000BD 00 fnadr2 .DB ; ($BD) - bank that hold file name2927 0000BE 00 objdsk .DB ; ($BE) compiler: option '1' specified2928 0000BF 00 truedsk .DB ; ($BF) true disk for load pascal soource file2929 0000C0 0000 curstk .DW ; ($C0-$C1) current stack when in edit mode2930 0000C2 00 pcodef .DB ; ($C2) flag p-code present for execution29312932 0000C3 latb .DS MAXLF ; logical files table2933 0000CE fatb .DS MAXLF ; devices numbers table2934 0000D9 satb .DS MAXLF ; secondary addresses table29352936 ;=============================================================29372938 0000E4 0000 cmdlin .DW ; command line ptr for pscal program2939 0000E6 00 fpcflag .DB ; fpc flags (new style)2940 ; <7>: new style compiler2941 ; <6>: no save exec. file2942 ; <5>: save obj. file29432944 0000E6 .RELATIVE2945 .ENDS29462947 ; basic work area starting at $FF00 of bank that hold text buffer2948 CBMHIM: .SECTION ref_only, common2949 000000 .ABSOLUTE2950 00FF00 .ORG $FF002951 ; .ORG 029522953 0000A2 TBUFMAX .EQU $A2 ; size of input buffer2954 00AA55 VALIDSGN .EQU $AA55 ; valid signature29552956 00FF00 cbmwork .DS 4 ; first 4 bytes free for insert text line2957 00FF04 TXTBUF .DS TBUFMAX ; input buffer for text insertion2958 00FFA6 NUMSTR .DS 32 ; room for numeric string29592960 00FFC6 0000 TMPPTR .DW ; temp. pointer2961 00FFC8 0000 .DW2962 00FFCA 0000 .DW2963 00FFCC 0000 .DW2964 00FFCE 0000 .DW2965 00FFD0 GFNAME .DS 32 ; global file name2966 00FFF0 .DS 82967 00FFF82968 ;;.ORG $FFF82969 00FFF8 0000 TXTEND2 .DW ; saved text end + 12970 00FFFA 0000 TXTVSGN .DW ; valid text buffer signature2971 00FFFC 0000 XTOP2 .DW ; saved text end + 1 in exchange bank2972 00FFFE 0000 XBVSGN .DW ; valid x-bank buffer signature2973Tue Jul 17 11:00:23 2018 Page 82974 00FFFE .RELATIVE2975 .ENDS29762977 .COMMENT @2978 cbmwork .EQU $FF00 ; first 4 bytes free for insert text line2979 TXTBUF .EQU $FF04 ; input buffer for text insertion2980 NUMSTR .EQU $FFA6 ; room for numeric string29812982 TMPPTR .EQU $FFC6 ; temp. pointer29832984 TXTEND2 .EQU $FFF8 ; saved text end + 12985 TXTVSGN .EQU $FFFA ; valid text buffer signature2986 XTOP2 .EQU $FFFC ; saved text end + 1 in exchange bank2987 XBVSGN .EQU $FFFE ; valid x-bank buffer signature2988 @29892990 ; basic/pascal work area starting at $FF00 of bank that hold variables/p-code2991 CBMHIV: .SECTION common, ref_only2992 000000 .ABSOLUTE2993 00FF00 .ORG $FF002994 ; .ORG 029952996 00005A QINSIZ .EQU $5A ; input buffer max. 90 chars.2997 000020 NUMSIZ .EQU $20 ; size of numeric buffer for conversion2998 000018 MAX2LF .EQU ((MAXLF + 1) * 2) ; size of p-code logical files table2999 000013 MAXFNLEN .EQU 19 ; max. length of file name '@x:yyyyyyyyyyyyyyyy'30003001 00FF00 MINBUF .DS QINSIZ3002 00FF5A MNUMSTR .DS NUMSIZ3003 00FF7A 0000 MTMPW0 .DW3004 00FF7C 0000 MTMPW1 .DW3005 00FF7E 00 MTMPB0 .DB3006 00FF7F MFNAME .DS 16 ; file name buffer3007 00FF8F MTMPNAM .DS 15 ; tmp. file name3008 00FF9E MPOW10 .DS 10 ; power of 10 table3009 00FFA8 MTRUE .DS 63010 00FFAE MFALSE .DS 63011 00FFB4 MSTDF0 .DS 4 ; descriptor for file #0 (consolle)3012 00FFB8 MSTDF1 .DS 4 ; descriptor for file #1 (disk command chann.)3013 00FFBC MSTDF2 .DS 4 ; descriptor for file #2 (used by compiler)3014 00FFC0 MMSET .DS 16 ; set variables3015 00FFD0 MFILET .DS MAX2LF ; table of logical files: #0 consolle, #1 disk3016 00FFE8 FAC1TMP .DS 5 ; these 3 used by float routines3017 00FFED FAC2TMP .DS 53018 00FFF2 FAC3TMP .DS 53019 00FFF7 FAC4TMP .DS 5 ; free to use3020 00FFFC 0000 MTPTR .DW ; used by new/dispose3021 00FFFE 0000 MTMPW2 .DW30223023 00FFFE .RELATIVE3024 .ENDS30253026 .COMMENT @3027 MINBUF .EQU $FF003028 MNUMSTR .EQU $FF5A3029 MTMPW0 .EQU $FF7A3030 MTMPW1 .EQU $FF7CTue Jul 17 11:00:23 2018 Page 93031 MTMPB0 .EQU $FF7E3032 MFNAME .EQU $FF7F ; file name buffer3033 MTMPNAM .EQU $FF8F ; tmp. file name3034 MPOW10 .EQU $FF9E ; power of 10 table3035 MTRUE .EQU $FFA83036 MFALSE .EQU $FFAE3037 MSTDF0 .EQU $FFB4 ; descriptor for file #0 (consolle)3038 MSTDF1 .EQU $FFB8 ; descriptor for file #1 (disk command chann.)3039 MSTDF2 .EQU $FFBC ; descriptor for file #2 (used by compiler)3040 MMSET .EQU $FFC0 ; set variables3041 MFILET .EQU $FFD0 ; table of logical files: #0 consolle, #1 disk3042 FAC1TMP .EQU $FFE8 ; these 3 used by float routines3043 FAC2TMP .EQU $FFED3044 FAC3TMP .EQU $FFF23045 FAC4TMP .EQU $FFF7 ; free to use3046 MTPTR .EQU $FFFC ; used by new/dispose3047 MTMPW2 .EQU $FFFE3048 @30493050 ; temp. file names in x-bank3051 00FF00 PASSRC .EQU $FF003052 00FF20 OBJDST .EQU $FF203053 00FF40 EXEDST .EQU $FF403054 00FF60 OBJDEL .EQU $FF60305530563057 .CODEFE3058 .LONGA off3059 .LONGI off30603061 .EXTERN cbm_new2, cbm_res, cbm_rdy3062 .EXTERN vlsnopn, vsndcmd, vunlsnopn, viec8lsn, viec8tlk3063 .EXTERN viec8put, viec8get, v8unlsn, v8untlk, v8close3064 .EXTERN vopnlst30653066 ;---------------------------------------------------------------------------3067 ; serial comm device3068 ;---------------------------------------------------------------------------30693070 ; A = device #3071 FE9DAB seropen:3072 FE9DAB A9 05 lda #$053073 FE9DAD 38 sec3074 FE9DAE 60 rts30753076 FE9DAF serclose:3077 FE9DAF 60 rts30783079 ;---------------------------------------------------------------------------30803081 FE9DB0 iecopen:3082 FE9DB0 C9 08 cmp #$083083 FE9DB2 90 13 bcc ?er53084 FE9DB4 24 7C bit pcdsk3085 FE9DB6 30 13 bmi ?pcc ; compiler in memory mode3086 FE9DB8 24 E6 bit fpcflag3087 FE9DBA 10 08 bpl ?real ; old style: always on diskTue Jul 17 11:00:23 2018 Page 103088 FE9DBC A5 B9 lda sacur3089 FE9DBE 29 0F and #$0F3090 FE9DC0 C9 04 cmp #43091 FE9DC2 F0 13 beq ?obj ; new style: obj. file in memory3092 FE9DC4 4C 4E 9E ?real: jmp ?dsk ; open real disk3093 FE9DC7 A9 05 ?er5: lda #$053094 FE9DC9 38 sec3095 FE9DCA 60 rts3096 FE9DCB A5 B9 ?pcc: lda sacur ; pascal compiler3097 FE9DCD 29 0F and #$0F3098 FE9DCF C9 0F cmp #$0F3099 FE9DD1 F0 0C beq ?end03100 FE9DD3 C9 04 cmp #$04 ; obj. file?3101 FE9DD5 D0 0A bne ?tst ; no3102 FE9DD7 64 86 ?obj: stz iecwp ; setup buffer pointer for write obj. file3103 FE9DD9 64 87 stz iecwp+13104 FE9DDB A5 A4 lda jbnk ; obj. code in j-bank3105 FE9DDD 85 88 sta iecwp+23106 FE9DDF 18 ?end0: clc3107 FE9DE0 60 ?end: rts3108 FE9DE1 C9 03 ?tst: cmp #$03 ; read main source file?3109 FE9DE3 D0 18 bne ?inc ; no3110 FE9DE5 ACC163111 FE9DE5 C2 20 rep #PMFLAG3112 .LONGA on3113 .MNLIST3114 FE9DE7 A5 AB lda txtbeg ; pointer to main text buffer3115 FE9DE9 85 81 sta iectp3116 FE9DEB A4 A1 ldy tbnk ; bank3117 FE9DED 84 83 sty iectp+23118 FE9DEF A7 81 lda [iectp] ; check end of text3119 FE9DF1 ACC083120 FE9DF1 E2 20 sep #PMFLAG3121 .LONGA off3122 .MNLIST3123 FE9DF3 F0 10 beq ?er4 ; empty buffer3124 FE9DF5 64 85 stz ieceof ; clear eof flag3125 FE9DF7 64 89 stz iecfg ; clear internal eof flag3126 FE9DF9 64 84 stz iecndx ; clear index3127 FE9DFB 18 clc3128 FE9DFC 60 rts3129 FE9DFD C9 05 ?inc cmp #$05 ; an include file?3130 FE9DFF F0 08 beq ?inc2 ; yes3131 FE9E01 A9 06 lda #$06 ; 'not input file' error3132 FE9E03 38 sec3133 FE9E04 60 rts3134 FE9E05 A9 04 ?er4: lda #$04 ; 'file not found' error ($04)3135 FE9E07 38 sec3136 FE9E08 60 rts3137 FE9E09 64 7D ?inc2: stz iecrp ; clear buffer pointer3138 FE9E0B 64 7E stz iecrp+13139 FE9E0D A5 A6 lda dbnk3140 FE9E0F 85 7F sta iecrp+23141 ;stz iecalt ; include file flag3142 FE9E11 64 8E stz ieceof2 ; include fuile eof flag3143 FE9E13 64 8A stz iecndx2 ; buffer index3144 FE9E15 64 86 stz iecndx+2Tue Jul 17 11:00:23 2018 Page 113145 FE9E173146 ; open include file3147 FE9E17 DA phx3148 FE9E18 A5 BD lda fnadr2 ; set fname pointer3149 FE9E1A 48 pha3150 FE9E1B D4 BB pei (fnadr) ; address of cmnd string3151 FE9E1D A9 0E lda #$0E3152 FE9E1F 48 pha ; chnl3153 FE9E20 CBMFSCMD ; send command3154 FE9E20 02 80 cop FN_CBMFSCMD3155 .MNLIST3156 FE9E22 FA plx3157 FE9E23 B0 E0 bcs ?er4 ; if error3158 FE9E25 DA phx3159 FE9E26 A5 7F lda iecrp+2 ; bank of buffer3160 FE9E28 48 pha3161 FE9E29 D4 7D pei (iecrp) ; address of buffer3162 FE9E2B F4 FE FF pea #$FFFE ; buffer size3163 FE9E2E A9 0E lda #$0E ; chnl3164 FE9E30 48 pha3165 FE9E31 CBMFSRD ; read buffer3166 FE9E31 02 81 cop FN_CBMFSRW3167 FE9E33 00 .DB $003168 .MNLIST3169 FE9E34 08 php3170 FE9E35 85 76 sta longp ; size3171 FE9E37 EB xba3172 FE9E38 85 77 sta longp+13173 FE9E3A A9 0E lda #$0E3174 FE9E3C CBMFSCLS ; close chnl3175 FE9E3C 02 82 cop FN_CBMFSCLS3176 .MNLIST3177 FE9E3E 28 plp3178 FE9E3F FA plx3179 FE9E40 B0 C3 bcs ?er4 ; error3180 FE9E42 INDEX163181 FE9E42 C2 10 rep #PXFLAG3182 .LONGI on3183 .MNLIST3184 FE9E44 A4 76 ldy longp3185 FE9E46 A9 00 lda #03186 FE9E48 97 7D sta [iecrp],y3187 FE9E4A INDEX083188 FE9E4A E2 10 sep #PXFLAG3189 .LONGI off3190 .MNLIST3191 FE9E4C 18 clc3192 FE9E4D 60 rts31933194 ; real disk open3195 FE9E4E ?dsk:3196 FE9E4E DA phx3197 FE9E4F A5 B9 lda sacur3198 FE9E51 29 0F and #$0F3199 FE9E53 AA tax ; x = sa3200 FE9E54 A4 B7 ldy fnlen3201 FE9E56 D0 10 bne ?sz ; string not emptyTue Jul 17 11:00:23 2018 Page 123202 FE9E58 E0 0F cpx #$0F3203 FE9E5A F0 18 beq ?ret ; command without string3204 FE9E5C A9 D0 lda #<GFNAME ; set dummy string pointer3205 FE9E5E 85 BB sta fnadr3206 FE9E60 A9 FF lda #>GFNAME3207 FE9E62 85 BC sta fnadr+13208 FE9E64 A5 A1 lda tbnk3209 FE9E66 85 BD sta fnadr+23210 FE9E68 A9 00 ?sz: lda #03211 FE9E6A 97 BB sta [fnadr],y ; terminate string3212 FE9E6C A5 BD lda fnadr+2 ; param 1: command string3213 FE9E6E 48 pha3214 FE9E6F D4 BB pei (fnadr)3215 FE9E71 DA phx ; channel3216 FE9E72 CBMFSCMD ; send command (ignore error)3217 FE9E72 02 80 cop FN_CBMFSCMD3218 .MNLIST3219 FE9E74 FA ?ret: plx3220 FE9E75 B0 08 bcs ?ext3221 FE9E77 E0 0F cpx #$0F3222 FE9E79 F0 04 beq ?ext3223 FE9E7B 22 EC 2A F9 jsl vopnlst3224 FE9E7F 18 ?ext: clc3225 FE9E80 60 rts3226 FE9E813227 FE9E81 iecclose:3228 FE9E81 A5 BA lda facur3229 FE9E83 C9 08 cmp #$083230 FE9E85 90 17 bcc ?end ; no disk device3231 FE9E87 A5 B9 lda sacur3232 FE9E89 29 0F and #$0F3233 FE9E8B C9 0F cmp #$0F3234 FE9E8D F0 0E beq ?clc ; ignore close command channel3235 FE9E8F 24 7C bit pcdsk3236 FE9E91 10 0C bpl ?dsk ; real disk3237 FE9E93 C9 05 cmp #$05 ; ignore close file #2,#3,#43238 FE9E95 90 07 bcc ?end3239 FE9E97 64 8A stz iecndx2 ; clear include file index3240 FE9E99 64 8B stz iecndx2+13241 FE9E9B 64 8E stz ieceof2 ; clear include file eof flag3242 FE9E9D 18 ?clc: clc3243 FE9E9E 60 ?end: rts3244 FE9E9F 24 E6 ?dsk: bit fpcflag3245 FE9EA1 10 04 bpl ?dsk2 ; old style: always on disk3246 FE9EA3 C9 04 cmp #43247 FE9EA5 F0 F6 beq ?clc ; obj file new style: in memory3248 FE9EA7 22 8C 2E F9 ?dsk2: jsl v8close ; close file on real disk3249 FE9EAB 60 rts3250 FE9EAC3251 ; A=dev#, sacur=SA#3252 FE9EAC ieclsn:3253 FE9EAC 64 90 stz kstat3254 FE9EAE C9 08 cmp #$083255 FE9EB0 90 1D bcc ?end3256 FE9EB2 18 clc3257 FE9EB3 24 7C bit pcdsk3258 FE9EB5 30 18 bmi ?endTue Jul 17 11:00:23 2018 Page 133259 FE9EB7 A5 B9 lda sacur3260 FE9EB9 29 0F and #$0F3261 FE9EBB 24 E6 bit fpcflag3262 FE9EBD 10 06 bpl ?dsk3263 FE9EBF C9 04 cmp #43264 FE9EC1 D0 02 bne ?dsk3265 FE9EC3 18 clc3266 FE9EC4 60 rts3267 FE9EC5 22 50 2B F9 ?dsk: jsl viec8lsn3268 FE9EC9 90 04 bcc ?end3269 FE9ECB A9 80 lda #$803270 FE9ECD 85 90 sta kstat3271 FE9ECF 60 ?end: rts32723273 FE9ED0 iecunlsn:3274 FE9ED0 A5 9A lda dflto3275 FE9ED2 C9 08 cmp #$083276 FE9ED4 90 13 bcc ?end23277 FE9ED6 24 7C bit pcdsk3278 FE9ED8 30 0E bmi ?end3279 FE9EDA 24 E6 bit fpcflag3280 FE9EDC 10 06 bpl ?dsk3281 FE9EDE A5 B9 lda sacur3282 FE9EE0 C9 04 cmp #43283 FE9EE2 F0 04 beq ?end3284 FE9EE4 22 80 2D F9 ?dsk: jsl v8unlsn3285 FE9EE8 18 ?end: clc3286 FE9EE9 60 ?end2: rts32873288 ; A=dev#, sacur=SA#3289 FE9EEA iectlk:3290 FE9EEA 64 90 stz kstat3291 FE9EEC C9 08 cmp #$083292 FE9EEE 90 19 bcc ?end3293 FE9EF0 18 clc3294 FE9EF1 A5 B9 lda sacur3295 FE9EF3 24 7C bit pcdsk3296 FE9EF5 30 13 bmi ?tlk3297 FE9EF7 A5 B9 lda sacur3298 FE9EF9 22 B0 2B F9 jsl viec8tlk3299 FE9EFD B0 06 bcs ?er3300 FE9EFF 50 08 bvc ?end3301 FE9F01 A9 40 lda #$403302 FE9F03 80 02 bra ?er23303 FE9F05 A9 80 ?er: lda #$803304 FE9F07 85 90 ?er2: sta kstat3305 FE9F09 60 ?end: rts3306 FE9F0A 29 0F ?tlk: and #$0F3307 FE9F0C C9 0F cmp #$0F3308 FE9F0E 64 80 stz iecalt ; if = 0 get from cmd. chnl3309 FE9F10 F0 09 beq ?end23310 FE9F12 38 sec3311 FE9F13 66 80 ror iecalt ; <7>: get from main text buffer3312 FE9F15 C9 05 cmp #$05 ; include file?3313 FE9F17 D0 02 bne ?end2 ; no3314 FE9F19 46 80 lsr iecalt ; <6>: get from include file3315 FE9F1B 18 ?end2: clcTue Jul 17 11:00:23 2018 Page 143316 FE9F1C 60 rts33173318 FE9F1D iecuntlk:3319 FE9F1D A5 99 lda dfltn3320 FE9F1F C9 08 cmp #$083321 FE9F21 90 09 bcc ?end23322 FE9F23 24 7C bit pcdsk3323 FE9F25 30 04 bmi ?end3324 FE9F27 22 A4 2D F9 jsl v8untlk3325 FE9F2B 18 ?end: clc3326 FE9F2C 60 ?end2: rts33273328 ; A=data3329 FE9F2D iecout:3330 FE9F2D 85 8C sta iecbuf3331 FE9F2F A5 9A lda dflto3332 FE9F31 C9 08 cmp #$083333 FE9F33 90 17 bcc ?no3334 FE9F35 A5 8C lda iecbuf3335 FE9F37 24 7C bit pcdsk3336 FE9F39 30 14 bmi ?wr3337 FE9F3B 24 E6 bit fpcflag3338 FE9F3D 30 10 bmi ?wr3339 FE9F3F 22 81 2C F9 jsl viec8put3340 FE9F43 90 17 bcc ?end23341 FE9F45 A9 80 lda #$803342 FE9F47 85 90 sta kstat3343 FE9F49 A5 8C lda iecbuf3344 FE9F4B 60 rts3345 FE9F4C A5 8C ?no: lda iecbuf3346 FE9F4E 60 rts3347 FE9F4F 87 86 ?wr: sta [iecwp] ; put to buffer obj. file3348 FE9F51 E6 86 inc iecwp ; update buffer pointer3349 FE9F53 D0 06 bne ?end3350 FE9F55 E6 87 inc iecwp+13351 FE9F57 D0 02 bne ?end3352 FE9F59 E6 88 inc iecwp+23353 FE9F5B 18 ?end: clc3354 FE9F5C 60 ?end2: rts3355 FE9F5D3356 FE9F5D iecin:3357 FE9F5D A5 99 lda dfltn3358 FE9F5F C9 08 cmp #$083359 FE9F61 90 19 bcc ?no3360 FE9F63 24 7C bit pcdsk3361 FE9F65 30 18 bmi ?rdt3362 FE9F67 22 F7 2C F9 jsl viec8get3363 FE9F6B B0 0B bcs ?er3364 FE9F6D 50 08 bvc ?xt ; no eof3365 FE9F6F 85 8C sta iecbuf3366 FE9F71 A9 40 lda #$403367 FE9F73 85 90 sta kstat3368 FE9F75 A5 8C lda iecbuf3369 FE9F77 60 ?xt: rts3370 FE9F78 A9 80 ?er: lda #$803371 FE9F7A 85 90 sta kstat3372 FE9F7C A9 0D ?no: lda #$0DTue Jul 17 11:00:23 2018 Page 153373 FE9F7E 60 rts33743375 ; get byte from main text buffer3376 FE9F7F ?rdt:3377 FE9F7F A5 80 lda iecalt3378 FE9F81 F0 37 beq ?ext ; cmd chnl3379 FE9F83 C9 40 cmp #$403380 FE9F85 F0 35 beq ?rda ; read include file3381 FE9F87 DA phx3382 FE9F88 5A phy3383 FE9F89 8B phb3384 FE9F8A 24 85 bit ieceof ; <6>: eof flag3385 FE9F8C 50 08 bvc ?go ; no eof3386 FE9F8E A9 0D lda #$0D ; return CR if eof3387 FE9F90 A0 40 ldy #$403388 FE9F92 84 90 sty kstat ; I/O status = eof3389 FE9F94 80 21 bra ?end ; exit3390 FE9F96 A5 8D ?go: lda svbnk ; local read buffer in real v-bank3391 FE9F98 48 pha3392 FE9F99 AB plb ; set data bank3393 FE9F9A 24 89 bit iecfg ; <7>: flag buffer not empty3394 FE9F9C 30 03 bmi ?get ; buffer ready3395 FE9F9E 20 E3 9F jsr ?ldt ; fill local read buffer3396 FE9FA1 A4 84 ?get: ldy iecndx ; current buffer index3397 FE9FA3 B9 00 FF lda $FF00,y ; get byte from local buffer3398 FE9FA6 C8 iny3399 FE9FA7 84 84 sty iecndx ; save new index3400 FE9FA9 C9 0A cmp #$0A ; last byte of buffer?3401 FE9FAB D0 0A bne ?end ; no -- return byte3402 FE9FAD 24 89 bit iecfg ; <6>: eof flag (VF)3403 FE9FAF 64 89 stz iecfg ; clear flag: next time must fill buffer3404 FE9FB1 50 04 bvc ?end ; no eof3405 FE9FB3 A0 40 ldy #$403406 FE9FB5 84 85 sty ieceof ; internal flag: end of file3407 ;sty kstat ; I/O status = eof3408 FE9FB7 AB ?end: plb3409 FE9FB8 7A ply3410 FE9FB9 FA plx3411 FE9FBA 18 ?ext: clc3412 FE9FBB 60 rts34133414 FE9FBC 5A ?rda: phy3415 FE9FBD 24 8E bit ieceof2 ; <6>: eof flag3416 FE9FBF 50 08 bvc ?go2 ; no eof3417 FE9FC1 A9 40 lda #$403418 FE9FC3 85 90 sta kstat3419 FE9FC5 A9 0D lda #$0D ; return CR if eof3420 FE9FC7 80 17 bra ?end2 ; exit3421 FE9FC9 ?go2: INDEX163422 FE9FC9 C2 10 rep #PXFLAG3423 .LONGI on3424 .MNLIST3425 FE9FCB A4 8A ldy iecndx2 ; index3426 FE9FCD B7 7D lda [iecrp],y3427 FE9FCF 85 8C sta iecbuf3428 FE9FD1 C8 iny3429 FE9FD2 84 8A sty iecndx2Tue Jul 17 11:00:23 2018 Page 163430 FE9FD4 B7 7D lda [iecrp],y3431 FE9FD6 INDEX083432 FE9FD6 E2 10 sep #PXFLAG3433 .LONGI off3434 .MNLIST3435 FE9FD8 D0 04 bne ?ret3436 FE9FDA A9 40 lda #$403437 FE9FDC 85 8E sta ieceof23438 FE9FDE A5 8C ?ret: lda iecbuf3439 FE9FE0 7A ?end2: ply3440 FE9FE1 18 clc3441 FE9FE2 60 rts34423443 ; fill local buffer from main text buffer3444 FE9FE3 ?ldt: ACC163445 FE9FE3 C2 20 rep #PMFLAG3446 .LONGA on3447 .MNLIST3448 FE9FE5 A0 02 ldy #$023449 FE9FE7 B7 81 lda [iectp],y3450 FE9FE9 85 3F sta psrline ; store current line number3451 FE9FEB ACC083452 FE9FEB E2 20 sep #PMFLAG3453 .LONGA off3454 .MNLIST3455 FE9FED A2 FF ldx #$FF3456 FE9FEF C8 iny3457 FE9FF0 C8 ?llp: iny3458 FE9FF1 E8 inx3459 FE9FF2 B7 81 lda [iectp],y ; copy text line in local buffer3460 FE9FF4 9D 00 FF sta !$FF00,x3461 FE9FF7 D0 F7 bne ?llp3462 FE9FF9 A9 0D lda #$0D3463 FE9FFB 9D 00 FF sta !$FF00,x3464 FE9FFE A9 0A lda #$0A3465 FEA000 9D 01 FF sta !$FF01,x3466 FEA003 A0 80 ldy #$80 ; flag buffer is filled3467 FEA005 ACC163468 FEA005 C2 20 rep #PMFLAG3469 .LONGA on3470 .MNLIST3471 FEA007 A7 81 lda [iectp] ; update pointer to next text line3472 FEA009 85 81 sta iectp3473 FEA00B A7 81 lda [iectp]3474 FEA00D ACC083475 FEA00D E2 20 sep #PMFLAG3476 .LONGA off3477 .MNLIST3478 FEA00F D0 02 bne ?ok ; no eof3479 FEA011 A0 C0 ldy #$C0 ; flag filled buffer + end of file marker3480 FEA013 64 84 ?ok: stz iecndx ; clear current index3481 FEA015 84 89 sty iecfg3482 FEA017 60 rts34833484 ;---------------------------------------------------------------------------3485 ; virtual serial bus device3486 ; device #4,#5: printer port'sTue Jul 17 11:00:23 2018 Page 173487 ; device #6,#7: not present3488 ; device #8: all drive's3489 ;3490 ; disk unit:3491 ; #0..#7: physical drive's3492 ; #8,#10: ram buffer (compiler only)3493 ; #9,#11: text buffer (read only, compiler only)3494 ;---------------------------------------------------------------------------34953496 ;---------------------------------------------------------------------------3497 ; open virtual iec device3498 ;---------------------------------------------------------------------------34993500 ; open virtual iec device3501 ; A = device #, X = index to logical file table3502 ; output: CF = 1 if error, A = error code3503 ; implementation note---3504 ; for disk device (device #8) secondary address sacur have special meaning:3505 ; sacur<7>: 1 if write only file, 0 if read only file3506 ; sacur<6>: 1 if read/write file3507 ; after openning, secondary address have in bit <3:0> the disk unit number3508 ; pascal compiler open at least 3 files: file #1 for chann. command,3509 ; file #3 (read only) for pascal source, file #4 (write only) for obj. code3510 ; file #2 reserved for printer/terminal listing when compiling3511 ; if source file contain an include directive (#filename) then open file #53512 ; for read include file.35133514 ;---------------------------------------------------------------------------3515 ; close channel with iec device3516 ;---------------------------------------------------------------------------3517 FEA0183518 ;---------------------------------------------------------------------------3519 ; logical file operations and input/output wrapper's3520 ;---------------------------------------------------------------------------35213522 ; wrapper for output routine3523 ; before call this, user must call _chkout routine3524 ; A = byte to send to device3525 FEA018 _chrout:3526 FEA018 EB xba ; B = byte to send3527 FEA019 A5 9A lda dflto3528 FEA01B F0 0E beq ?04 ; 0 -> keyboard, not out device3529 FEA01D C9 03 cmp #$033530 FEA01F 90 0D bcc ?06 ; 1, 2 -> serial port3531 FEA021 D0 04 bne ?02 ; 4..MAXVIEC3532 FEA023 EB xba3533 FEA024 SCNCHAROUT ; 3 -> screen output3534 FEA024 02 05 cop $053535 .MNLIST3536 FEA026 60 rts3537 FEA027 C9 09 ?02: cmp #MAXVIEC+13538 FEA029 90 07 bcc ?08 ; 4..MAXVIEV -> virtual serial bus3539 FEA02B 4C 98 A1 ?04: jmp SetErr09 ; illegal device number3540 FEA02E EB ?06: xba ; output serial/parallel port3541 FEA02F DEVCHAROUT3542 FEA02F 02 15 cop $153543 .MNLISTTue Jul 17 11:00:23 2018 Page 183544 FEA031 60 rts3545 FEA032 EB ?08: xba3546 FEA033 4C 2D 9F jmp iecout ; virtual iec output35473548 ; wrapper for get routine3549 ; before call this user must call _chkin routine3550 FEA036 _getin:3551 FEA036 A5 99 lda dfltn3552 FEA038 D0 0F bne _chrin13553 FEA03A KBGETIN ; get from keyboard3554 FEA03A 02 17 cop $173555 .MNLIST3556 FEA03C EB xba3557 FEA03D 85 93 sta keyctl ; store control3558 FEA03F EB xba ; key code3559 FEA040 18 clc3560 FEA041 60 rts3561 FEA0423562 ; wrapper for input routine3563 ; before call this user must call _chkin routine3564 FEA042 _chrin:3565 FEA042 A5 99 lda dfltn3566 FEA044 D0 03 bne _chrin13567 FEA046 KBCHARIN ; input from keyboard (editor)3568 FEA046 02 0F cop $0F3569 .MNLIST3570 FEA048 60 rts3571 FEA049 _chrin1:3572 FEA049 C9 03 cmp #$033573 FEA04B 90 02 bcc ?01 ; 1,2 -> serial ports3574 FEA04D D0 03 bne ?023575 FEA04F ?01: DEVCHARIN ; input from screen (editor) or serial port3576 FEA04F 02 16 cop $163577 .MNLIST3578 FEA051 60 rts3579 FEA052 C9 09 ?02: cmp #MAXVIEC+13580 FEA054 90 03 bcc ?06 ; 8..15 -> virtual serial bus3581 FEA056 4C 98 A1 ?04: jmp SetErr09 ; illegal device number3582 FEA059 A5 90 ?06: lda kstat ; virtual iec device3583 FEA05B D0 03 bne ?08 ; end of file or error3584 FEA05D 4C 5D 9F jmp iecin ; virtual serial bus input3585 FEA060 A9 0D ?08: lda #$0D ; return a CR3586 FEA062 18 clc3587 FEA063 60 rts35883589 ; wrapper for open routine3590 ; before call this user must set: lacur, facur, sacur, fnlen, fnadr, fnadr23591 FEA064 _open:3592 FEA064 A6 B8 ldx lacur3593 FEA066 20 66 A1 jsr lfsrch3594 FEA069 F0 33 beq ?12 ; file open3595 FEA06B A6 98 ldx ldtnd3596 FEA06D E0 0B cpx #MAXLF3597 FEA06F B0 2A bcs ?11 ; too many files3598 FEA071 E6 98 inc ldtnd3599 ;stx lxcur3600 FEA073 A5 B8 lda lacurTue Jul 17 11:00:23 2018 Page 193601 FEA075 95 C3 sta latb,x3602 FEA077 A5 B9 lda sacur3603 FEA079 95 D9 sta satb,x3604 FEA07B A5 BA lda facur3605 FEA07D 95 CE sta fatb,x3606 FEA07F F0 18 beq ?10 ; 0 -> keyboard: OK3607 FEA081 C9 03 cmp #$033608 FEA083 F0 14 beq ?10 ; 3 -> screen: OK3609 FEA085 90 1A bcc ?15 ; 1,2 -> serial ports3610 FEA087 C9 09 cmp #MAXVIEC+13611 FEA089 90 09 bcc ?07 ; 4..MAXVIEC -> virtual serial bus3612 FEA08B B5 CE ?05: lda fatb,x ; invalidate device #3613 FEA08D 09 80 ora #$803614 FEA08F 95 CE sta fatb,x3615 FEA091 4C 98 A1 jmp SetErr09 ; illegal device number3616 FEA094 20 B0 9D ?07: jsr iecopen ; A = error code if any error3617 FEA097 B0 0D bcs ?17 ; ok3618 FEA099 18 ?10: clc ; no error3619 FEA09A 60 ?10a: rts3620 FEA09B 4C 80 A1 ?11: jmp SetErr01 ; too many files3621 FEA09E 4C 83 A1 ?12: jmp SetErr02 ; file open3622 FEA0A1 20 AB 9D ?15: jsr seropen ; open serial port3623 FEA0A4 90 F4 bcc ?10a ; A = error code if any error3624 FEA0A6 48 ?17: pha ; save error code3625 ;ldx lxcur3626 FEA0A7 B5 CE lda fatb,x ; invalidate device #3627 FEA0A9 09 80 ora #$803628 FEA0AB 95 CE sta fatb,x3629 FEA0AD 68 pla3630 FEA0AE 4C 9D A1 ?20: jmp SetErr ; set error code36313632 ; wrapper for set file for input routine3633 ; before call this user must set X = logical file3634 FEA0B1 _chkin:3635 FEA0B1 20 66 A1 jsr lfsrch3636 FEA0B4 D0 1D bne ?11 ; file not open3637 FEA0B6 20 73 A1 jsr lfget3638 FEA0B9 F0 14 beq ?10a ; 0 -> keyboard - ok3639 FEA0BB 30 08 bmi ?05 ; device not present3640 FEA0BD C9 04 cmp #$043641 FEA0BF 90 0E bcc ?10a ; 1,2,3 - ok3642 FEA0C1 C9 09 cmp #MAXVIEC+13643 FEA0C3 90 03 bcc ?10 ; 6..MAXVIEC -> virtual serial bus ok3644 FEA0C5 4C 8C A1 ?05: jmp SetErr05 ; error: device not present3645 FEA0C8 AA ?10: tax3646 FEA0C9 20 EA 9E jsr iectlk3647 FEA0CC B0 F7 bcs ?053648 FEA0CE 8A txa3649 FEA0CF 85 99 ?10a: sta dfltn ; ok - setup input device3650 FEA0D1 18 clc3651 FEA0D2 60 rts3652 FEA0D3 4C 86 A1 ?11: jmp SetErr03 ; error: file not open3653 FEA0D6 4C 8F A1 ?12: jmp SetErr06 ; error: not input file36543655 ; wrapper for set file for output routine3656 ; before call this user must set X = logical file3657 FEA0D9 _chkout:Tue Jul 17 11:00:23 2018 Page 203658 FEA0D9 20 66 A1 jsr lfsrch3659 FEA0DC D0 1D bne ?11 ; file not open3660 FEA0DE 20 73 A1 jsr lfget3661 FEA0E1 F0 1B beq ?12 ; 0 -> keyboard - not output device3662 FEA0E3 30 08 bmi ?05 ; device not present3663 FEA0E5 C9 04 cmp #$043664 FEA0E7 90 0E bcc ?10a ; 1,2,3 - ok3665 FEA0E9 C9 09 cmp #MAXVIEC+13666 FEA0EB 90 03 bcc ?10 ; 4..MAXVIEC -> virtual serial bus ok3667 FEA0ED 4C 8C A1 ?05: jmp SetErr05 ; error: device not present3668 FEA0F0 AA ?10: tax3669 FEA0F1 20 AC 9E jsr ieclsn3670 FEA0F4 B0 F7 bcs ?053671 FEA0F6 8A txa3672 FEA0F7 85 9A ?10a: sta dflto ; ok - set output device3673 FEA0F9 18 clc3674 FEA0FA 60 rts3675 FEA0FB 4C 86 A1 ?11: jmp SetErr03 ; file not open3676 FEA0FE 4C 92 A1 ?12: jmp SetErr07 ; error: not output file36773678 ; wrapper for close all opened files3679 FEA101 _clall:3680 FEA101 20 10 A1 jsr _clrch3681 FEA104 A6 98 ?02: ldx ldtnd3682 FEA106 F0 07 beq ?04 ; no more files to close3683 FEA108 B5 C3 lda latb,x ; logical file number3684 FEA10A 20 26 A1 jsr _close ; close file3685 FEA10D 80 F5 bra ?02 ; loop next file3686 FEA10F 60 ?04: rts36873688 ; wrapper for restore default i/o devices3689 FEA110 _clrch:3690 FEA110 A2 03 ldx #$03 ; default output device3691 FEA112 E4 9A cpx dflto3692 FEA114 B0 03 bcs ?103693 FEA116 20 D0 9E jsr iecunlsn3694 FEA119 E4 99 ?10: cpx dfltn3695 FEA11B B0 03 bcs ?203696 FEA11D 20 1D 9F jsr iecuntlk3697 FEA120 86 9A ?20: stx dflto ; default output device3698 FEA122 64 99 stz dfltn ; default input device3699 FEA124 18 clc3700 FEA125 60 rts37013702 ; wrapper for close a logical file3703 ; before call this user must set A = logical file to be closed3704 FEA126 _close:3705 FEA126 20 69 A1 jsr lfsrchx3706 FEA129 D0 39 bne ?12 ; exit without error (no file found)3707 FEA12B 20 73 A1 jsr lfget ; get parameters for logical file3708 FEA12E DA phx ; save index to logical file table3709 FEA12F A5 BA lda facur ; device #3710 FEA131 30 14 bmi ?10 ; illegal device - delete file3711 FEA133 F0 12 beq ?10 ; no action - delete file3712 FEA135 C9 03 cmp #33713 FEA137 F0 0E beq ?10 ; no action - delete file3714 FEA139 B0 05 bcs ?02Tue Jul 17 11:00:23 2018 Page 213715 FEA13B 20 AF 9D jsr serclose ; close on device 1 & 23716 FEA13E 80 07 bra ?10 ; delete file3717 FEA140 C9 09 ?02: cmp #MAXVIEC+13718 FEA142 B0 03 bcs ?10 ; no action - delete file3719 FEA144 20 81 9E jsr iecclose ; close on devices 4..MAXVIEC3720 FEA147 FA ?10: plx ; index of file to be deleted3721 FEA148 C6 98 dec ldtnd ; update number of logical files3722 FEA14A E4 98 cpx ldtnd ; if index is for the last entry, done3723 FEA14C F0 16 beq ?12 ; otherwise move files on table3724 FEA14E 9B txy ; Y = index to entry be removed3725 FEA14F A6 98 ldx ldtnd3726 FEA151 B5 C3 lda latb,x3727 FEA153 BB tyx3728 FEA154 95 C3 sta latb,x3729 FEA156 A6 98 ldx ldtnd3730 FEA158 B5 CE lda fatb,x3731 FEA15A BB tyx3732 FEA15B 95 CE sta fatb,x3733 FEA15D A6 98 ldx ldtnd3734 FEA15F B5 D9 lda satb,x3735 FEA161 BB tyx3736 FEA162 95 D9 sta satb,x3737 FEA164 18 ?12: clc3738 FEA165 60 rts3739 FEA1663740 ; search logical file X in table 'latb'3741 FEA166 lfsrch:3742 FEA166 64 90 stz kstat3743 FEA168 8A txa ; file number3744 FEA169 lfsrchx:3745 FEA169 A6 98 ldx ldtnd3746 FEA16B CA ?01: dex3747 FEA16C 30 04 bmi ?023748 FEA16E D5 C3 cmp latb,x3749 FEA170 D0 F9 bne ?013750 FEA172 60 ?02: rts37513752 ; get parameters of logical file3753 FEA173 lfget:3754 ;stx lxcur3755 FEA173 B5 C3 lda latb,x3756 FEA175 85 B8 sta lacur3757 FEA177 B5 D9 lda satb,x3758 FEA179 85 B9 sta sacur3759 FEA17B B5 CE lda fatb,x3760 FEA17D 85 BA sta facur3761 FEA17F 60 rts37623763 ;---------------------------------------------------------------------------3764 ; kernal error's3765 ;---------------------------------------------------------------------------37663767 SetErr01: ; too many files3768 FEA180 A9 01 lda #13769 FEA182 2C .DB $2C3770 SetErr02: ; file open3771 FEA183 A9 02 lda #2Tue Jul 17 11:00:23 2018 Page 223772 FEA185 2C .DB $2C3773 SetErr03: ; file not open3774 FEA186 A9 03 lda #33775 FEA188 2C .DB $2C3776 SetErr04: ; file not found3777 FEA189 A9 04 lda #43778 FEA18B 2C .DB $2C3779 SetErr05: ; device not presnt3780 FEA18C A9 05 lda #53781 FEA18E 2C .DB $2C3782 SetErr06: ; not input file3783 FEA18F A9 06 lda #63784 FEA191 2C .DB $2C3785 SetErr07: ; not output file3786 FEA192 A9 07 lda #73787 FEA194 2C .DB $2C3788 SetErr08: ; missing file name3789 FEA195 A9 08 lda #83790 FEA197 2C .DB $2C3791 SetErr09: ; illegal device number3792 FEA198 A9 09 lda #93793 FEA19A 2C .DB $2C3794 SetErr10: ; out of memory3795 FEA19B A9 10 lda #$103796 FEA19D SetErr:3797 .EXTERN L0FAA37983799 FEA19D 48 pha3800 FEA19E 20 CC FF jsr FCLRCH ; restore default I/O3801 FEA1A1 24 97 bit runf ; check if running pascal virtual machine3802 FEA1A3 30 2B bmi ?203803 FEA1A5 70 29 bvs ?203804 FEA1A7 A0 00 ldy #$003805 FEA1A9 24 9D bit msgflg ; <6> -> print kernal msg3806 FEA1AB 50 20 bvc ?10 ; no print3807 FEA1AD 20 38 A2 jsr kprint ; print msg3808 FEA1B0 A3 01 lda $01,s ; error code3809 FEA1B2 C9 0A cmp #$0A3810 FEA1B4 90 12 bcc ?083811 FEA1B6 A0 FF ldy #$FF ; partial remainder3812 FEA1B8 38 sec3813 FEA1B9 C8 ?02: iny3814 FEA1BA E9 0A sbc #$0A3815 FEA1BC B0 FB bcs ?023816 FEA1BE 69 0A adc #$0A3817 FEA1C0 EB xba3818 FEA1C1 98 tya3819 FEA1C2 09 30 ora #$30 ; print 0..93820 FEA1C4 20 D2 FF jsr FCHROUT3821 FEA1C7 EB xba3822 FEA1C8 09 30 ?08: ora #$30 ; print 0..93823 FEA1CA 20 D2 FF jsr FCHROUT3824 FEA1CD 68 ?10: pla3825 FEA1CE 38 sec ; error3826 FEA1CF 60 rts3827 FEA1D03828 FEA1D0 68 ?20: plaTue Jul 17 11:00:23 2018 Page 233829 FEA1D1 C9 2B cmp #$2B3830 FEA1D3 D0 04 bne ?223831 FEA1D5 A9 00 lda #03832 FEA1D7 80 06 bra ?243833 FEA1D9 C9 10 ?22: cmp #$103834 FEA1DB D0 02 bne ?243835 FEA1DD A9 0A lda #$0A3836 FEA1DF AA ?24: tax3837 FEA1E0 BF EA A1 FE lda >CVTTBL,x3838 ;sta iecerr3839 FEA1E4 AA tax3840 FEA1E5 38 sec3841 FEA1E6 4C C0 31 jmp L0FAA3842 FEA1E9 60 rts38433844 FEA1EA CVTTBL:3845 FEA1EA 14 10 16 15 17 .DB $14, $10, $16, $15, $17, $18, $0D, $0E, $19, $1A, $0118 0D 0E 19 1A013846 FEA1F538473848 FEA1F5 sysmsg:3849 FEA1F5 SYSMSGTBL:3850 FEA1F5 0D 49 2F 4F 20 .DC $0D, 'I/O error '65 72 72 6F 72A038513852 00000B SYSMSG1 .EQU ($ - SYSMSGTBL)38533854 FEA200 0D 73 65 61 72 .DC $0D, 'searching '63 68 69 6E 67A038553856 000016 SYSMSG2 .EQU ($ - SYSMSGTBL)38573858 FEA20B 0D 6C 6F 61 64 .DC $0D, 'loading'69 6E E738593860 00001E SYSMSG3 .EQU ($ - SYSMSGTBL)38613862 FEA213 0D 73 61 76 69 .DC $0D, 'saving '6E 67 A038633864 000026 SYSMSG4 .EQU ($ - SYSMSGTBL)38653866 FEA21B 0D 76 65 72 69 .DC $0D, 'verifying'66 79 69 6E E73867 FEA2253868 000030 SYSMSG5 .EQU ($ - SYSMSGTBL)38693870 FEA225 0D 66 6F 75 6E .DC $0D, 'found '64 A038713872 000037 SYSMSG6 .EQU ($ - SYSMSGTBL)38733874 FEA22C 0D 6F 6B 8D .DB $0D, 'ok', $8D3875Tue Jul 17 11:00:23 2018 Page 243876 00003B SYSMSG7 .EQU ($ - SYSMSGTBL)38773878 FEA230 66 6F 72 A0 .DC 'for '38793880 FEA2343881 FEA234 sysprint:3882 FEA234 24 9D bit msgflg ; <7> -> print msg3883 FEA236 10 11 bpl nopr3884 FEA2383885 FEA238 kprint:3886 FEA238 8B phb3887 FEA239 4B phk3888 FEA23A AB plb ; set data bank = program bank3889 FEA23B B9 F5 A1 ?02: lda sysmsg,y3890 FEA23E 08 php3891 FEA23F 29 7F and #$7F3892 FEA241 20 D2 FF jsr FCHROUT3893 FEA244 C8 iny3894 FEA245 28 plp3895 FEA246 10 F3 bpl ?023896 FEA248 AB plb3897 FEA249 18 nopr: clc3898 FEA24A 60 rts3899 FEA24B3900 ;---------------------------------------------------------------------------3901 ; kernal miscellaneous3902 ;---------------------------------------------------------------------------3903 FEA24B3904 FEA24B _setmsg:3905 FEA24B 85 9D sta msgflg3906 FEA24D 60 rts39073908 FEA24E _memtop:3909 FEA24E 90 05 bcc ?023910 FEA250 A6 A9 ldx topmem3911 FEA252 A4 AA ldy topmem+13912 FEA254 60 rts3913 FEA255 86 A9 ?02: stx topmem3914 FEA257 84 AA sty topmem+13915 FEA259 60 rts39163917 FEA25A _membot:3918 FEA25A 90 05 bcc ?023919 FEA25C A6 A7 ldx botmem3920 FEA25E A4 A8 ldy botmem+13921 FEA260 60 rts3922 FEA261 86 A7 ?02: stx botmem3923 FEA263 84 A8 sty botmem+13924 FEA265 60 rts39253926 FEA266 _scnkey:3927 FEA266 SCNKEYFLG3928 FEA266 02 18 cop $183929 FEA268 05 .DB $053930 .MNLIST3931 FEA269 85 92 sta keyfg3932 FEA26B 86 95 stx keytgTue Jul 17 11:00:23 2018 Page 253933 FEA26D 84 94 sty keysh3934 FEA26F 60 rts3935 FEA2703936 FEA270 _readst:3937 FEA270 A5 90 lda kstat3938 FEA272 60 rts39393940 FEA273 _setlfs:3941 FEA273 85 B8 sta lacur3942 FEA275 86 BA stx facur3943 FEA277 84 B9 sty sacur3944 FEA279 60 rts3945 FEA27A3946 FEA27A _setnam:3947 FEA27A 85 B7 sta fnlen3948 FEA27C 86 BB stx fnadr3949 FEA27E 84 BC sty fnadr+13950 FEA280 60 rts39513952 FEA281 _load:3953 FEA281 60 rts3954 FEA2823955 FEA282 _save:3956 FEA282 60 rts39573958 ; set jiffy clock3959 ; C = 16 bit low, XY = 16 bit high3960 FEA283 _settim:3961 FEA283 78 sei3962 FEA284 0B phd3963 FEA285 F4 00 00 pea #03964 FEA288 2B pld3965 FEA289 85 00 sta <JiffyClk3966 FEA28B EB xba3967 FEA28C 85 01 sta <JiffyClk+13968 FEA28E 86 02 stx <JiffyClk+23969 FEA290 84 03 sty <JiffyClk+33970 FEA292 2B pld3971 FEA293 58 cli3972 FEA294 60 rts39733974 ; get jiffy clock3975 ; C = 16 bit low, XY = 16 bit high3976 FEA295 _rdtim:3977 FEA295 78 sei3978 FEA296 0B phd3979 FEA297 F4 00 00 pea #03980 FEA29A 2B pld3981 FEA29B A5 01 lda <JiffyClk+13982 FEA29D EB xba3983 FEA29E A5 00 lda <JiffyClk3984 FEA2A0 A6 02 ldx <JiffyClk+23985 FEA2A2 A4 03 ldy <JiffyClk+33986 FEA2A4 2B pld3987 FEA2A5 58 cli3988 FEA2A6 60 rts3989 FEA2A7Tue Jul 17 11:00:23 2018 Page 263990 FEA2A7 _chkstop:3991 FEA2A7 SCNKEYBRK3992 FEA2A7 02 18 cop $183993 FEA2A9 07 .DB $073994 .MNLIST3995 FEA2AA C9 80 cmp #$80 ; set ZF if = $80 (ctrl break detected)3996 FEA2AC D0 05 bne ?023997 FEA2AE 08 php3998 FEA2AF 20 10 A1 jsr _clrch ; restore default devices3999 FEA2B2 28 plp4000 FEA2B3 60 ?02: rts40014002 FEA2B4 _scrorg:4003 FEA2B4 SCNGETORG4004 FEA2B4 02 18 cop $184005 FEA2B6 04 .DB $044006 .MNLIST4007 FEA2B7 60 rts40084009 FEA2B8 _scrplot:4010 FEA2B8 90 04 bcc ?02 ; set pos4011 FEA2BA SCNGETPOS4012 FEA2BA 02 18 cop $184013 FEA2BC 02 .DB $024014 .MNLIST4015 FEA2BD 60 rts4016 FEA2BE ?02: SCNSETPOS4017 FEA2BE 02 18 cop $184018 FEA2C0 03 .DB $034019 .MNLIST4020 FEA2C1 60 rts4021 FEA2C24022 FEA2C2 _iobase:4023 FEA2C2 A2 00 ldx #$004024 FEA2C4 A0 FD ldy #$FD4025 FEA2C6 60 rts4026 FEA2C74027 FEA2C7 _cinit:4028 FEA2C7 SCNINIT4029 FEA2C7 02 18 cop $184030 FEA2C9 00 .DB $004031 .MNLIST4032 FEA2CA 60 rts40334034 ; cold start ram init (Y = $80 if basic, $00 if pascal)4035 FEA2CB _ramtas:4036 FEA2CB AF 80 FF FE lda >TXTBNK ; current data bank4037 FEA2CF 48 pha4038 FEA2D0 AB plb ; set current data bank4039 FEA2D1 ACC164040 FEA2D1 C2 20 rep #PMFLAG4041 .LONGA on4042 .MNLIST4043 FEA2D3 AF 7E FF FE lda >CBMDP ; set current direct page4044 FEA2D7 5B tcd4045 FEA2D8 A2 00 ldx #0 ; clear page 04046 FEA2DA 74 00 ?02: stz <$00,xTue Jul 17 11:00:23 2018 Page 274047 ;stz !cbmwork,x4048 FEA2DC E8 inx4049 FEA2DD E8 inx4050 FEA2DE D0 FA bne ?024051 FEA2E0 8B phb4052 FEA2E1 FA plx4053 FEA2E2 86 A1 stx tbnk ; +0: text bank4054 FEA2E4 E8 inx4055 FEA2E5 86 A2 stx vbnk ; +1: var/pcode bank4056 FEA2E7 E8 inx4057 FEA2E8 86 A5 stx xbnk ; +2: exchange bank4058 FEA2EA E8 inx4059 FEA2EB 86 A3 stx cbnk ; +3: compiler/tmp bank4060 FEA2ED E8 inx4061 FEA2EE 86 A4 stx jbnk ; +4: object code bank for compiler (3 bank)4062 FEA2F0 E8 inx4063 FEA2F1 E8 inx4064 FEA2F2 E8 inx4065 FEA2F3 86 A6 stx dbnk ; +7: ram disk4066 FEA2F5 84 96 sty basic ; setup basic flag4067 FEA2F7 A6 A2 ldx vbnk ; clear working area in var/p-code bank4068 FEA2F9 20 93 A3 jsr ?304069 FEA2FC A6 A5 ldx xbnk ; clear working area in exchange bank4070 FEA2FE 20 93 A3 jsr ?304071 FEA301 A6 A3 ldx cbnk ; clear working area in compiler/tmp bank4072 FEA303 20 93 A3 jsr ?304073 FEA306 A0 00 ldy #0 ; set up bank 04074 FEA308 5A phy4075 FEA309 AB plb4076 FEA30A AC 0C 00 ldy !Bnk0Flag ; bit 6 mean warm reset4077 FEA30D 84 5E sty tmpval+1 ; high in 16 bits!4078 FEA30F AF 7A FF FE lda >TOPVAR4079 FEA313 85 B3 sta vartop ; setup top mem. basic var/pcode/ex bank4080 FEA315 A6 A1 ldx tbnk ; set up current working bank4081 FEA317 DA phx4082 FEA318 AB plb4083 FEA319 A0 00 ldy #$004084 FEA31B 24 5D bit tmpval ; flag warm reset in tmpval + 14085 FEA31D 70 05 bvs ?04 ; was warm reset4086 FEA31F 20 95 A3 jsr ?32 ; clear working area of text-bank4087 FEA322 80 33 bra ?144088 FEA324 AD FE FF ?04: lda !XBVSGN ; check valid signature for text in x-bank4089 FEA327 C9 55 AA cmp #VALIDSGN4090 FEA32A D0 07 bne ?06 ; not valid4091 FEA32C A2 80 ldx #$80 ; bit 7 -> flag valid source text in x-bank4092 FEA32E AD FC FF lda !XTOP2 ; set the end of text pointer4093 FEA331 80 08 bra ?084094 FEA333 9C FE FF ?06: stz !XBVSGN ; clear signature4095 FEA336 9C FC FF stz !XTOP24096 FEA339 98 tya ; A = 04097 FEA33A BB tyx ; X = 04098 FEA33B 86 8F ?08: stx vxflag ; set flag4099 FEA33D 85 B5 sta xtop ; top of text end on x-bank4100 FEA33F BB tyx ; clear working area4101 FEA340 9E 00 FF ?12: stz !$FF00,x4102 FEA343 E8 inx4103 FEA344 E8 inxTue Jul 17 11:00:23 2018 Page 284104 FEA345 E0 F8 cpx #$F84105 FEA347 90 F7 bcc ?124106 FEA349 AD FA FF lda !TXTVSGN4107 FEA34C C9 55 AA cmp #VALIDSGN4108 FEA34F F0 06 beq ?14 ; possible valid source text in buffer4109 FEA351 9C FA FF stz !TXTVSGN4110 FEA354 9C F8 FF stz !TXTEND24111 FEA357 A9 01 01 ?14: lda #$01014112 FEA35A 8D 00 FF sta !cbmwork ; used by editor4113 FEA35D A9 00 FF lda #cbmwork ; set top mem4114 FEA360 85 A9 sta topmem4115 FEA362 64 76 stz longp4116 FEA364 A6 A5 ldx xbnk4117 FEA366 86 78 stx longp+24118 FEA368 98 tya4119 FEA369 ACC084120 FEA369 E2 20 sep #PMFLAG4121 .LONGA off4122 .MNLIST4123 FEA36B 87 76 sta [longp] ; first byte always null4124 FEA36D ACC164125 FEA36D C2 20 rep #PMFLAG4126 .LONGA on4127 .MNLIST4128 FEA36F AD F8 FF lda !TXTEND24129 FEA372 85 5D sta tmpval ; save end of text to recover4130 FEA374 AD FA FF lda !TXTVSGN4131 FEA377 C9 55 AA cmp #VALIDSGN4132 FEA37A CPU084133 FEA37A E2 30 sep #(PMFLAG.OR.PXFLAG)4134 .LONGA off4135 .LONGI off4136 .MNLIST4137 FEA37C D0 04 bne ?164138 FEA37E A9 40 lda #$40 ; bit 6 -> possible valid source text4139 FEA380 04 8F tsb vxflag4140 FEA382 A2 03 ?16: ldx #34141 FEA384 86 9A stx dflto ; default output device4142 FEA386 A9 0A lda #$0A4143 FEA388 85 9F sta wauto4144 FEA38A A9 80 lda #$804145 FEA38C 85 9E sta autof4146 FEA38E A9 40 lda #$404147 FEA390 04 96 tsb basic ; editor/emulator mode flag4148 FEA392 60 rts41494150 FEA393 DA ?30: phx ; clear working area bank = X4151 FEA394 AB plb4152 FEA395 A2 00 ?32: ldx #0 ; clear working area in bank4153 FEA397 9E 00 FF ?34: stz !$FF00,x4154 FEA39A E8 inx4155 FEA39B E8 inx4156 FEA39C D0 F9 bne ?344157 FEA39E 60 rts4158 FEA39F4159 FEA39F _ikeybuf:4160 FEA39F 8B phb ; insert string in keyboard input bufferTue Jul 17 11:00:23 2018 Page 294161 FEA3A0 FA plx ; X = data bank, C = address4162 FEA3A1 SCNKEYBUF4163 FEA3A1 02 18 cop $184164 FEA3A3 08 .DB $084165 .MNLIST4166 FEA3A4 60 rts41674168 ; cold start CBM emulator4169 ; In - Y = $00 -> pascal mode4170 ; Y = $80 -> basic mode4171 FEA3A5 _cold:4172 FEA3A5 08 php ; save caller context4173 FEA3A6 8B phb4174 FEA3A7 0B phd ; status, data bank and direct page4175 FEA3A8 CPU084176 FEA3A8 E2 30 sep #(PMFLAG.OR.PXFLAG)4177 .LONGA off4178 .LONGI off4179 .MNLIST4180 FEA3AA 20 87 FF jsr RAMTAS ; init memory4181 FEA3AD ACC164182 FEA3AD C2 20 rep #PMFLAG4183 .LONGA on4184 .MNLIST4185 FEA3AF 3B tsc4186 FEA3B0 85 C0 sta curstk ; current operative stack4187 FEA3B2 ACC084188 FEA3B2 E2 20 sep #PMFLAG4189 .LONGA off4190 .MNLIST4191 FEA3B4 20 2C A4 jsr _basinit4192 FEA3B7 20 81 FF jsr CINIT4193 FEA3BA A5 8F lda vxflag ; save recovery flag4194 FEA3BC 85 5A sta tmpb24195 FEA3BE 20 91 06 jsr cbm_new2 ; this clear recovery flag4196 FEA3C1 24 5A bit tmpb24197 FEA3C3 50 4B bvc ?204198 FEA3C5 ACC16CLC ; attempt to recover a source text4199 FEA3C5 C2 21 rep #(PMFLAG.OR.PCFLAG)4200 .LONGA on4201 .MNLIST4202 FEA3C7 A5 AB lda txtbeg ; attempt to relink4203 FEA3C9 85 76 sta longp4204 FEA3CB ACC084205 FEA3CB E2 20 sep #PMFLAG4206 .LONGA off4207 .MNLIST4208 FEA3CD A0 03 ldy #$03 ; search end of line4209 FEA3CF C8 ?04: iny4210 FEA3D0 B1 76 lda (longp),y4211 FEA3D2 D0 FB bne ?044212 FEA3D4 C8 iny4213 FEA3D5 ACC16CLC4214 FEA3D5 C2 21 rep #(PMFLAG.OR.PCFLAG)4215 .LONGA on4216 .MNLIST4217 FEA3D7 98 tyaTue Jul 17 11:00:23 2018 Page 304218 FEA3D8 65 76 adc longp4219 FEA3DA 85 5F sta tlnptr ; possible first link4220 FEA3DC 85 76 ?06: sta longp ; check all link4221 FEA3DE B2 76 lda (longp)4222 FEA3E0 F0 15 beq ?10 ; end of text4223 FEA3E2 ACC084224 FEA3E2 E2 20 sep #PMFLAG4225 .LONGA off4226 .MNLIST4227 FEA3E4 A0 03 ldy #$03 ; search end of line4228 FEA3E6 C8 ?08: iny4229 FEA3E7 B1 76 lda (longp),y4230 FEA3E9 D0 FB bne ?084231 FEA3EB C8 iny4232 FEA3EC ACC16CLC4233 FEA3EC C2 21 rep #(PMFLAG.OR.PCFLAG)4234 .LONGA on4235 .MNLIST4236 FEA3EE 98 tya4237 FEA3EF 65 76 adc longp ; compare with stored link4238 FEA3F1 D2 76 cmp (longp)4239 FEA3F3 F0 E7 beq ?06 ; check next link4240 FEA3F5 D0 17 bne ?15 ; mismatch: invalid source text4241 FEA3F7 A5 76 ?10: lda longp4242 FEA3F9 1A inc a4243 FEA3FA 1A inc a4244 FEA3FB C5 5D cmp tmpval ; compare with saved end of text4245 FEA3FD D0 0F bne ?15 ; failed recovery4246 FEA3FF 85 AD sta txtend4247 FEA401 8D F8 FF sta !TXTEND2 ; valid signature4248 FEA404 A5 5F lda tlnptr ; setup first link4249 FEA406 92 AB sta (txtbeg)4250 FEA408 A9 55 AA lda #VALIDSGN4251 FEA40B 8D FA FF sta !TXTVSGN4252 FEA40E ?15: ACC084253 FEA40E E2 20 sep #PMFLAG4254 .LONGA off4255 .MNLIST4256 FEA410 4C A4 01 ?20: jmp cbm_rdy4257 FEA4134258 FEA413 _mon:4259 FEA413 A9 FF lda #$FF4260 FEA415 22 00 00 FF jsl MONITOR4261 FEA419 ACC164262 FEA419 C2 20 rep #PMFLAG4263 .LONGA on4264 .MNLIST4265 FEA41B AF 7E FF FE lda >CBMDP ; set current direct page4266 FEA41F 5B tcd4267 FEA420 ACC084268 FEA420 E2 20 sep #PMFLAG4269 .LONGA off4270 .MNLIST4271 FEA422 A5 A1 lda tbnk4272 FEA424 48 pha4273 FEA425 AB plb4274 FEA426 _warm:Tue Jul 17 11:00:23 2018 Page 314275 FEA426 20 CB 06 jsr cbm_res4276 FEA429 4C A4 01 jmp cbm_rdy4277 FEA42C4278 ; init basic memory4279 FEA42C _basinit:4280 FEA42C 38 sec4281 FEA42D 20 9C FF jsr MEMBOT ; get bottom of memory4282 FEA430 86 AB stx txtbeg4283 FEA432 84 AC sty txtbeg+14284 FEA434 38 sec4285 FEA435 20 99 FF jsr MEMTOP ; get top of memory4286 FEA438 86 AF stx txttop4287 FEA43A 84 B0 sty txttop+14288 FEA43C 86 33 stx freetop4289 FEA43E 84 34 sty freetop+14290 FEA440 24 96 bit basic4291 FEA442 30 06 bmi ?024292 FEA444 A9 80 lda #$804293 FEA446 85 9B sta skpbk4294 FEA448 85 9C sta w2sf4295 FEA44A A2 1B ?02: ldx #$1B4296 FEA44C 86 16 stx tmppt4297 FEA44E A9 00 lda #04298 FEA450 85 68 sta facov4299 FEA452 85 53 sta prompt4300 FEA454 92 AB sta (txtbeg)4301 FEA456 E6 AB inc txtbeg4302 FEA458 D0 02 bne ?204303 FEA45A E6 AC inc txtbeg+14304 FEA45C 60 ?20: rts43054306 .CBMJMP43074308 .LONGA off4309 .LONGI off43104311 FEFF00 .ORG $0043124313 ; $FF00 - cold start4314 FEFF00 4C A5 A3 jmp _cold4315 ; $FF03 - warm start4316 FEFF03 4C 26 A4 jmp _warm43174318 FEFF30 .ORG $304319 ; jump table for pascal compiler4320 FEFF304321 .EXTERN L0836, L083C, L083F, L0842, L0845, L084B, L084E, L08514322 .EXTERN L0854, L08574323 FEFF304324 ; $FF30 ($0836)4325 FEFF30 4C E5 35 jmp L08364326 ; $FF33 ($083C)4327 FEFF33 4C 98 35 jmp L083C4328 ; $FF36 ($083F)4329 FEFF36 4C 30 36 jmp L083F4330 ; $FF39 ($0842)4331 FEFF39 4C EE 36 jmp L0842Tue Jul 17 11:00:23 2018 Page 324332 ; $FF3C ($0845)4333 FEFF3C 4C 16 37 jmp L08454334 ; $FF3F ($084B)4335 FEFF3F 4C EE 35 jmp L084B4336 ; $FF42 ($084E)4337 FEFF42 4C F4 34 jmp L084E4338 ; $FF45 ($0851)4339 FEFF45 4C 52 35 jmp L08514340 ; $FF48 ($0854)4341 FEFF48 4C 3B 37 jmp L08544342 ; $FF4B ($0857)4343 FEFF4B 4C 35 37 jmp L085743444345 FEFF4E4346 FEFF7A .ORG $7A43474348 FEFF7A 00FF TOPVAR: .DW $FF00 ; top of memory reserved to var/pcode4349 FEFF7C E0FF TOPMRD: .DW $FFE0 ; top of memory reserved to ram disk4350 FEFF7E 007F CBMDP: .DW $7F00 ; direct page used by CBM emulator4351 FEFF80 10 TXTBNK: .DB $10 ; bank that hold text buffer4352 FEFF814353 ; $FF81 - CINIT4354 FEFF81 4C C7 A2 jmp _cinit4355 ; $FF84 - IOINIT (no op)4356 FEFF84 EA nop4357 FEFF85 18 clc4358 FEFF86 60 rts4359 ; $FF87 - RAMTAS4360 FEFF87 4C CB A2 jmp _ramtas4361 ; $FF8A - RESTOR (no op)4362 FEFF8A EA nop4363 FEFF8B 18 clc4364 FEFF8C 60 rts4365 ; $FF8D - VECTOR (no op)4366 FEFF8D EA nop4367 FEFF8E 18 clc4368 FEFF8F 60 rts4369 ; $FF90 - SETMSG4370 FEFF90 4C 4B A2 jmp _setmsg4371 ; $FF93 - SECOND (no op)4372 FEFF93 EA nop4373 FEFF94 18 clc4374 FEFF95 60 rts4375 ; $FF96 - TKSA (no op)4376 FEFF96 EA nop4377 FEFF97 18 clc4378 FEFF98 60 rts4379 ; $FF99 - MEMTOP4380 FEFF99 4C 4E A2 jmp _memtop4381 ; $FF9C - MEMBOT4382 FEFF9C 4C 5A A2 jmp _membot4383 ; $FF9F - SCNKEY4384 FEFF9F 4C 66 A2 jmp _scnkey4385 ; $FFA2 - SETTMO (no op)4386 FEFFA2 EA nop4387 FEFFA3 18 clc4388 FEFFA4 60 rtsTue Jul 17 11:00:23 2018 Page 334389 ; $FFA5 - ACPTR4390 FEFFA5 4C 5D 9F jmp iecin4391 ; $FFA8 - CIOUT4392 FEFFA8 4C 2D 9F jmp iecout4393 ; $FFAB - UNTLK (no op)4394 FEFFAB EA nop4395 FEFFAC 18 clc4396 FEFFAD 60 rts4397 ; $FFAE - UNLSN (no op)4398 FEFFAE EA nop4399 FEFFAF 18 clc4400 FEFFB0 60 rts4401 ; $FFB1 - LISTEN (no op)4402 FEFFB1 EA nop4403 FEFFB2 18 clc4404 FEFFB3 60 rts4405 ; $FFB4 - TALK (no op)4406 FEFFB4 EA nop4407 FEFFB5 18 clc4408 FEFFB6 60 rts4409 ; $FFB7 - READST4410 FEFFB7 4C 70 A2 jmp _readst4411 ; $FFBA - SETLFS4412 FEFFBA 4C 73 A2 jmp _setlfs4413 ; $FFBD - SETNAM4414 FEFFBD 4C 7A A2 jmp _setnam4415 ; $FFC0 - FOPEN4416 FEFFC0 4C 64 A0 jmp _open4417 ; $FFC3 - FCLOSE4418 FEFFC3 4C 26 A1 jmp _close4419 ; $FFC6 - FSETIN4420 FEFFC6 4C B1 A0 jmp _chkin4421 ; $FFC9 - FSETOUT4422 FEFFC9 4C D9 A0 jmp _chkout4423 ; $FFCC - FCLRCH4424 FEFFCC 4C 10 A1 jmp _clrch4425 ; $FFCF - FCHRIN4426 FEFFCF 4C 42 A0 jmp _chrin4427 ; $FFD2 - FCHROUT4428 FEFFD2 4C 18 A0 jmp _chrout4429 ; $FFD5 - FLOAD4430 FEFFD5 4C 81 A2 jmp _load4431 ; $FFD8 - FSAVE4432 FEFFD8 4C 82 A2 jmp _save4433 ; $FFDB - SETTIM4434 FEFFDB 4C 83 A2 jmp _settim4435 ; $FFDE - RDTIM4436 FEFFDE 4C 95 A2 jmp _rdtim4437 ; $FFE1 - CHKSTOP4438 FEFFE1 4C A7 A2 jmp _chkstop4439 ; $FFE4 - FGETIN4440 FEFFE4 4C 36 A0 jmp _getin4441 ; $FFE7 - FCLALL4442 FEFFE7 4C 01 A1 jmp _clall4443 ; $FFEA - UDTIM (no op)4444 FEFFEA EA nop4445 FEFFEB 18 clcTue Jul 17 11:00:23 2018 Page 344446 FEFFEC 60 rts4447 ; $FFED - SCRORG4448 FEFFED 4C B4 A2 jmp _scrorg4449 ; $FFF0 - SCRPLOT4450 FEFFF0 4C B8 A2 jmp _scrplot4451 ; $FFF3 - GETIOBASE4452 FEFFF3 4C C2 A2 jmp _iobase4453 ; $FFF6 - IKEYBUF4454 FEFFF6 4C 9F A3 jmp _ikeybuf4455 ; $FFF9 - GOMON4456 FEFFF9 4C 13 A4 jmp _monLines Assembled : 4328 Errors : 0