Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:22 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\FD\qedt.asmOutput Filename : obj\FD\qedt.objListing Has Been Relocated2586 .LIST on25872599 .LIST on26002601 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0026022603 000000 .ABSOLUTE ;; inizia sempre da $002604 000000 .ORG 0x002605 0000002606 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2607 000002 0000 .DW2608 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2609 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2610 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2611 ; <6>: flag warm reset2612 00000D 00 RTCFlag .DB26132614 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12615 ; <7>: device ready2616 ; <6>: compact flash device (C.F.)2617 ; <5>: device identification ok2618 ; <4>: MBR loaded2619 ; <3>: valid signature in MBR2620 ; <2>: first partition found&active2621 ; <1>:2622 ; <0>: valid partition flag26232624 ; <7>: device ready2625 ; <6>: USB device2626 ; <5>: compact flash device (C.F.)2627 ; <4>: device identification ok2628 ; <3>: MBR loaded2629 ; <2>: first partition found&active2630 ; <1>: always 12631 ; <0>: valid partition flag2632 00001026332634 00000E atadev .EQU diskstat26352636 000010 usbdev .DS 2 ; flag flash disk on usb bus #02637 ; <7>: device plugged and ready2638 ; <6>: always 12639 ; <5>: device identification ok2640 ; <4>: MBR loaded2641 ; <3>: valid signature in MBR2642 ; <2>: first partition found&activeTue Jul 17 11:00:22 2018 Page 22643 ; <1>:2644 ; <0>: valid partition flag26452646 000012 diskmax .DS 16 ; disk max. sector's2647 000012 atasec .EQU diskmax2648 00001A usbsec .EQU diskmax+8264926502651 000022 atambr .DS 8 ; data for first partition found in mbr2652 ; first 3 bytes for start sector of partition2653 ; last byte for partition type2654 00002A usbmbr .DS 826552656 000032 ataprt .DS 8 ; total sec's of first partition2657 00003A usbprt .DS 8 ; total sec's of first partition265826592660 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2661 ; <7>: module on2662 ; <6>: ch376 flag2663 ; <5:0>: chip version26642665 000043 00 usb0st .DB ; usb0 status2666 ; <7>: usb0 host mode ok2667 ; <6>: flash disk attached flag2668 ; <5>: usb device attached26692670 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2671 ; <7>: disk format established in bit 0&12672 ; <6>: double step seek done2673 ; <5>: trust format bit's (set after ok r/w)2674 ; <4>: write protect bit (if disk in drive)2675 ; <3>: don't care2676 ; <2>: don't care2677 ; <1>: HD disk if set else DD disk2678 ; <0>: CBM format if set else IBM format26792680 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2681 ; <7>: disk format established in bit 0&12682 ; <6>: change disk simulation (after format)2683 ; <5>: don't care2684 ; <4>: write protect bit (under sw control)2685 ; <3>: don't care2686 ; <2>: don't care2687 ; <1>: HD disk if set else DD disk2688 ; <0>: CBM format if set else IBM format26892690 000046 00 fdcctl .DB ; fdc controller status2691 ; <7>: drive is attached2692 ; <6>: drive need recalibration (restore)2693 ; <5>: FDC controller ok2694 ; <4>: motor on2695 ; <3>: dma is active2696 ; <2>: dma chip ok (post routine)2697 ; <1>: clock rate (1=HD,0=DD)2698 ; <0>: disk ready2699Tue Jul 17 11:00:22 2018 Page 32700 000047 00 fdctrk .DB ; fd: current seek track2701 000048 00 fdcerr .DB ; fd: last error code2702 000049 00 ataerr .DB ; ata: last error code2703 00004A 00 ataxer .DB ; ata: last extended error code27042705 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27062707 00004C 0000 MemTop .DW ; top memoria RAM2708 00004E 00 .DB ; banco top mem27092710 00004F 00 DflTxtIn .DB ; device di default text input2711 000050 00 DflTxtOut .DB ; device di default text output27122713 000051 COPPtr LP ; long pointer for COP decoding2714 000054 00 COPIdx .DB ; COP signature/index27152716 000055 00 BiosEnt .DB ; flag accesso a bios setup27172718 ; variabili utilizzate da ACIA2719 000056 spwrk .DS $3027202721 ; bios mem2722 000086 0000 nsize .DW ; dimensione blocco da allocare2723 ;bsize .DW ; dimensione vera blocco free2724 000088 0000 splitsz .DW ; dimensione blocco splittato2725 00008A 0000 bfree .DW ; puntatore blocco free2726 00008C 0000 hdrptr .DW ; puntatore header heap27272728 00008E 0000 pbrklv .DW ; current break level of current process2729 000090 0000 pbrkmin .DW ; minimum breal level of current process2730 000092 0000 pbrkmax .DW ; maximum breal level of current process2731 0000942732 ; bios temp. work area2733 000094 bwrktmp .DS $2827342735 0000BC 00 coptmp .DB ; temp. used while cop27362737 0000BD 00 tstser .DB ; check ser/usb test board post2738 ; <7>: VIA2 ok2739 ; <6>: PICRAM ok2740 ; <1>: UART 16C550 ok2741 ; <0>: R65C51 ok274227432744 ;crc16 .DW27452746 0000BD .RELATIVE27472748 .ENDS27492750 [01] .IFDEF _ACIA_INC_2751 .INCLUDE INC\SP.INC2752 [00] .ENDIF27532767 .LIST on27682769 000060 KBDBUFLEN .EQU 96 ; dimensione buffer di tastieraTue Jul 17 11:00:22 2018 Page 427702771 DIRP01: .SECTION page0, ref_only, common ;Direct-Page 0127722773 000000 .ABSOLUTE ;; inizia sempre da $002774 000000 .ORG 0x0027752776 0000002777 000000 KbdBuf .DS KBDBUFLEN ; buffer della tastiera2778 000060 00 KbdITail .DB ; coda buffer tastiera2779 000061 00 KbdIHead .DB ; testa buffer tastiera2780 000062 00 KbdCnt .DB ; numero bytes nel buffer2781 000063 00 KbdShift .DB2782 000064 00 KbdFlag .DB2783 000065 00 KbdToggle .DB2784 000066 00 KbdSt .DB ; status tastiera dopo reset2785 000067 00 PS2Ctl .DB ; flag controller PS2 keyboard27862787 000068 00 LCDFlag .DB2788 000069 00 LCDTmp .DB2789 00006A 0000 LCDVal .DW27902791 00006C 00 VBBFlag .DB ; flag video board2792 00006D 00 VBBRam .DB ; flag video RAM27932794 00006E 00 ScnLinTmp .DB2795 00006F 00 ScnChBase .DB ; base video ram VDC2796 000070 00 ScnAttBase .DB ; base ram attributi VDC2797 000071 00 ScnCursMode .DB ; VDC cursore default2798 000072 00 ScnSaveAttr .DB2799 000073 00 ScnInsert .DB2800 000074 00 ScnAutoIns .DB ; bit 7 -> autoins - bit 6 -> modo input2801 000075 00 ScnScroll .DB2802 000076 00 ScnMaxRow .DB ; max. righe finestra (-1)2803 000077 00 ScnMaxCols .DB ; max. colonne finestra (-1)28042805 000078 ScnMapTabs1 .DS 102806 000082 ScnMapTabs2 .DS 42807 0000862808 000086 0000 ScnPtr .DW ; puntatore video ram linea corrente2809 000088 00 .DB28102811 000089 00 ScnFiltLen .DB ; lunghezza set caratteri filtro28122813 00008A 0000 ScnAtPtr .DW ; puntatore attributi ram linea corrente2814 00008C 00 .DB28152816 00008D 00 ScnTmpx .DB ; temporaneo: durante put char2817 00008E2818 00008E 00 ScnTop .DB ; riga superiore finestra2819 00008F 00 ScnLeft .DB ; colonna sinistra finestra2820 000090 00 ScnBottom .DB ; riga inferiore finestra2821 000091 00 ScnRight .DB ; colonna destra finestra2822 000092 00 ScnAttr .DB ; attributo default2823 000093 00 ScnAttr2 .DB ; attributo alternativo2824 000094 00 ScnRow .DB ; riga cursore2825 000095 00 ScnCol .DB ; colonna cursore2826 000096 00 ScnRowStart .DB ; riga di start inputTue Jul 17 11:00:22 2018 Page 52827 000097 00 ScnInput .DB ; riga di fine input2828 000098 00 ScnColStart .DB ; colonna di start input2829 000099 00 ScnSaveX .DB2830 00009A 00 ScnSaveY .DB2831 00009B 00 ScnTmpL .DB2832 00009C 00 ScnTmpH .DB2833 00009D 00 ScnSaveRow .DB2834 00009E 00 ScnSaveCol .DB2835 00009F 00 ScnCurChr .DB2836 0000A0 00 ScnLstChr .DB2837 0000A1 00 ScnCR .DB2838 0000A2 0000 ScnPrm .DW ; puntatore long utilizzato da print imm2839 0000A4 00 .DB ; banco puntatore ScnPrm2840 0000A5 00 ScnMode .DB ; flag modo schermo28412842 0000A6 ScnPtr1 LP28432844 0000A9 00 ScnDefCol .DB ; default foreground color28452846 0000AA ScnPtr2 LP28472848 0000AD 00 ScnDefBkgCol .DB ; default background color2849 0000AE 00 ScnInpRow .DB ; modo input line: riga start input2850 0000AF 00 ScnInpCol .DB ; modo input line: colonna start input2851 0000B0 00 ScnLstRow .DB ; modo input line: riga stop input2852 0000B1 00 ScnLstCol .DB ; modo input line: colonna stop input2853 0000B2 00 ScnFlag .DB ; Bit 7: input line - Bit 6: input riga unica2854 0000B3 00 ScnMask .DB ; flag tasti funzione editor di linea2855 0000B4 00 ScnFilt .DB ; filtro tasti editor di linea2856 0000B5 00 ScnCntrl .DB ; flag ASCII/CONTROL2857 ;DflTxtIn .DB ; device di default text input2858 ;DflTxtOut .DB ; device di default text output2859 0000B62860 000047 SCNCLRLEN .EQU ($ - ScnLinTmp - 1)28612862 ;SCNCLRLEN .EQU (DflTxtOut - ScnLinTmp)28632864 ; variabili monitor2865 0000B6 00 SMAddrL .DB ; address low/high2866 0000B7 00 SMAddrH .DB2867 0000B8 00 SMAddrK .DB ; address bank2868 0000B9 00 SMFlag32 .DB ; flag parametro 32 bit2869 0000BA 00 SMTmpL .DB ; temp. low/high2870 0000BB 00 SMTmpH .DB2871 0000BC 00 SMTmpK .DB ; temp. bank2872 0000BD 00 SMTmpKK .DB ; high byte param. 32 bit2873 0000BE 00 SMSizeL .DB ; size low/high2874 0000BF 00 SMSizeH .DB2875 0000C0 00 SMSizeK .DB ; size bank2876 0000C1 00 SMXAddrL .DB ; address low/high XM2877 0000C2 00 SMXAddrH .DB2878 0000C3 00 SMXAddrK .DB ; address bank XM2879 0000C4 00 SMbndx .DB ; indice input buffer2880 0000C5 00 SMnprm .DB ; numero parametri riga di comando2881 0000C6 00 SMdumb .DB2882 0000C7 00 SMkr .DB2883 0000C8 0000 SMpc .DWTue Jul 17 11:00:22 2018 Page 62884 0000CA 00 SMsr .DB2885 0000CB 00 SMbr .DB2886 0000CC 0000 SMdp .DW2887 0000CE 0000 SMac .DW2888 0000D0 0000 SMxr .DW2889 0000D2 0000 SMyr .DW2890 0000D4 0000 SMsp .DW28912892 0000D6 00 SMAuxL .DB2893 0000D7 00 SMAuxH .DB28942895 0000D8 00 asmlong .DB ; flag for CPU in 16 mode2896 ; <7> -> A/M in 16 bit mode2897 ; <6> -> X/Y in 16 bit mode2898 0000D9 00 asmcpu .DB ; <7> -> 8 bit family2899 ; <6> -> 65C02 cmos version29002901 0000DA 00 SMctx .DB ; context (if = $00 no quit command)2902 0000DB SMrsm LP ; long pointer to resume caller context29032904 0000DE 00 rtcadr .DB ; rtc internal ram address2905 0000DF 00 rtcbnk .DB ; RTC internal bank ram2906 0000E0 00 cmdlin .DB ;2907 0000E1 00 SMesc .DB29082909 0000E2 SMXTmp: .DS 26 ; 26 bytes tmp29102911 0000E2 SMTmp2 .EQU SMXTmp2912 0000E4 SMTmp3 .EQU SMXTmp+22913 0000E6 SMdwTmp1 .EQU SMXTmp+42914 0000EA SMdwTmp2 .EQU SMXTmp+82915 0000EE SMFsrc .EQU SMXTmp+12 ; source bank for flash update2916 0000EF SMFflag .EQU SMXTmp+13 ; flag file for flash update2917 0000F0 SMXPos2 .EQU SMXTmp+142918 0000F1 SMYPos2 .EQU SMXTmp+152919 0000F2 SMXPos3 .EQU SMXTmp+162920 0000F3 SMYPos3 .EQU SMXTmp+172921 ;SMAuxL .EQU SMXTmp+182922 ;SMAuxH .EQU SMXTmp+192923 0000F6 SMXPos .EQU SMXTmp+202924 0000F7 SMYPos .EQU SMXTmp+212925 0000F8 SMdwTmp3 .EQU SMXTmp+2229262927 0000E2 atcmd .EQU SMXTmp ; save @ command2928 0000E3 atnum .EQU SMXTmp+1 ; @ command index2929 0000E4 atflag .EQU SMXTmp+2 ; @ L,S,V,R,W start address flag2930 0000E5 atbnk .EQU SMXTmp+3 ; @ L,S,V,R,W bank2931 0000E6 atstr .EQU SMXTmp+4 ; @ command string start (word)2932 0000E8 atstart .EQU SMXTmp+6 ; @ L,S,V,R,W start address (word)2933 0000EA atend .EQU SMXTmp+8 ; @ S,W end address (word)2934 0000EC atbuf .EQU SMXTmp+10 ; @ local buffer pointer (word)2935 0000EE atipb .EQU SMXTmp+12 ; @ bank of input buffer2936 0000EF atdir .EQU SMXTmp+13 ; @ load dir flag2937 0000F0 atptr .EQU SMXTmp+14 ; @ load dir pointer (word)2938 0000F2 atsiz .EQU SMXTmp+16 ; @ buffer size (word)2939 0000F5 atlp .EQU SMXTmp+19 ; @ long pointer2940 0000F8 atsa .EQU SMXTmp+22 ; @ saTue Jul 17 11:00:22 2018 Page 729412942 0000E2 btmpx .EQU SMXTmp ; asc2bin conversion2943 0000E3 brtcsec .EQU SMXTmp+12944 0000E4 brtcmin .EQU SMXTmp+22945 0000E5 brtchour .EQU SMXTmp+32946 0000E6 brtcday .EQU SMXTmp+42947 0000E7 brtcmonth .EQU SMXTmp+52948 0000E8 brtcyear .EQU SMXTmp+62949 0000E9 brtcct .EQU SMXTmp+7295029512952 0000FC .RELATIVE29532954 .ENDS29552958 .LIST on2959 F8FFB1 .INCLUDE inc\dpqedt.inc2960 ;; QEDIT29612962 010000 TXTADDR .EQU $010000 ; text char's address2963 010730 LSTLINE .EQU $010730 ; last text line address2964 010780 STLINE .EQU $010780 ; status line char's address2965 010800 TXTATTR .EQU $010800 ; text attributes address2966 010F80 STLATTR .EQU $010F80 ; status line attributes address2967 000780 TXTCNT .EQU (STLATTR - TXTATTR)2968 000050 MAXCOLS .EQU 80 ; max. columuns2969 00004B COLX .EQU $4B ; V15742970 0000F0 MAXTEXTLEN .EQU $F02971 00FFFD MAXLINES .EQU $FFFD ; max text lines count in one buffer29722973 000004 DEFLTAB .EQU 4 ; default tab value2974 000002 MINTABVAL .EQU 22975 000028 MAXTABVAL .EQU 4029762977 ;;DEFCURS .EQU $60 ; default cursor mode2978 0000C0 EDEFCURS .EQU $C0 ; default cursor mode edit window2979 ; (blinking underline)2980 ; <7>: blink2981 ; <6>: underline cursor2982 000080 CDEFCURS .EQU $80 ; default cursor mode command line2983 ; blinking block cursor2984 ; <7>: blink2985 ; <6>: underline cursor29862987 000000 DEFATTR .EQU 0 ; default editor window attribute2988 000001 DEFSATTR .EQU 1 ; default status line attribute2989 000002 DEFEATTR .EQU 2 ; default error message attribute2990 000003 DEFCATTR .EQU 3 ; default command line attribute2991 000004 DFGATTR .EQU 4 ; disabled flag attribute in s.l.29922993 000000 BNEXT .EQU 02994 000002 BPREV .EQU 22995 000004 BNDX .EQU 42996 000005 BSTART .EQU 529972998 00000A MAXBUF .EQU 10 ; buffer count (0..9)2999 00000A CLIPBRD .EQU 10 ; clipboard buffer numberTue Jul 17 11:00:22 2018 Page 83000 000016 BUFSIZ .EQU (MAXBUF + 1) * 2 ; buffer table size30013002 000050 MAXFNAME .EQU 80 ; filename size30033004 000010 MINPAGE .EQU 16 ; min. # pages to alloc3005 000040 MINFREE .EQU 64 ; min. # pages to init free list (16k)30063007 ; translated keys3008 000029 KTAB .EQU $293009 00002A KCR .EQU $2A3010 00002B KESC .EQU $2B3011 00002C KCTLC .EQU $2C3012 00002D KCTLV .EQU $2D3013 00002E KCTLX .EQU $2E30143015 ; sezione COMMON -- questo permette di includere il file in piu' file30163017 DPQEDT: .SECTION page0, ref_only, common3018 000000 .ABSOLUTE ;; inizia sempre da $003019 000000 .ORG 0x0030203021 000000 0000 pp0 .DW ; M1F493022 000002 0000 pp2 .DW ; P0523023 000004 0000 pp4 .DW ; M364A3024 000006 0000 pp6 .DW ; M36473025 000008 0000 pp8 .DW ; P05830263027 00000A 00 ix0 .DB ; M1F4A3028 00000B 00 ix2 .DB ; P0533029 00000C 00 ix4 .DB ; M364B3030 00000D 00 ix6 .DB ; M36483031 00000E 00 ix8 .DB ; P05930323033 00000F 00 xbuf .DB ; P0B0 index of current buffer30343035 000010 0000 pfree .DW ; P00E page pointer to blocks free list3036 000012 0000 pbuf .DW ; P00D page pointer to start of current buffer3037 000014 00 pblk .DB ; P04E long pointer to current block3038 000015 0000 ppage .DW ; P04F30393040 ; these 2 bytes MUST be consecutive !3041 000017 00 ixb .DB ; P050 index of current block3042 000018 00 bflag .DB ; buffer flag3043 ; <7>: modified3044 ; <6>: ovr mode (default: ins)3045 ; <5>: indent mode3046 ; <4>: valid drive number & buffer name30473048 000019 00 deftab .DB ; M313C default tab value30493050 00001A 0000 ncount .DW ; # total lines count of current buffer3051 00001C 0000 cline .DW ; P038/39 current text line with cursor focus3052 00001E 00 ccol .DB ; P035 current text column with cursor focus3053 00001F 00 ecol .DB ; P036 text edit column3054 000020 00 srow .DB ; P05A current screen row3055 000021 00 scol .DB ; P05B current screen column3056 000022 00 ccnt .DB ; P092 # count of chars in current text lineTue Jul 17 11:00:22 2018 Page 93057 000023 00 fslct .DB ; M1F48 select text flag mode3058 000024 00 nslctl .DB ; M1F4B selected text count3059 000025 00 nslcth .DB ; M1F4C3060 000026 00 rcnt .DB ; M3649 row counter in edit window3061 000027 00 xcol .DB ; P019 text column for check30623063 000028 0000 rclip .DW ; M1F4D/4E selection range in clipboard3064 00002A 00 rslctl .DB ; M26D7 screen reverse attribute range3065 00002B 00 rslcth .DB ; M26D830663067 00002C 0000 curs .DW ; P0D1 cursor address in edit window30683069 00002E 00 cursmode .DB ; current cursor mode3070 ; <7>: blink3071 ; <6>: underline cursor30723073 00002F 00 ctmp .DB ; P0FE temp counter (updatew)3074 000030 00 ctmp2 .DB ; temp used for manage tab key3075 000031 00 keyfg .DB ; a copy of KbdFlag3076 000032 00 embit .DB ; save current bit of video ram3077 000033 00 edtfg .DB ; editor global flag3078 ; <7>: quit from editor3079 ; <6>: clipboard flag3080 ; <5>: CBM emulation mode3081 ; <1>: cut selection flag3082 ; <0>: flag while indent blanks insertion30833084 000034 stxtp LP ; screen text long pointer3085 000037 00 frev .DB ; M2829 flag reverse attribute3086 000038 sattp LP ; screen attributes long pointer3087 00003B 00 eattr .DB ; M1583 default editor attribute3088 00003C 00 slattr .DB ; M111F default status line attribute3089 00003D 00 seatt .DB ; error message attribute3090 00003E 00 scatt .DB ; command line attribute3091 00003F 00 slfg .DB ; status line flag3092 ; <7>: command line mode3093 ; <6>: update whole status line3094 ; <1>: update caps & num only3095 ; <0>: copy of select mode flag for s.l.30963097 000040 00 sbank .DB ; save bank while setptr/updptr3098 000041 00 saveps .DB ; save palette address30993100 000042 0000 cline1 .DW ; update current line in status line3101 000044 0000 ncount1 .DW ; update total lines in status line3102 000046 00 ccol1 .DB ; update column in status line3103 000047 00 xbuf1 .DB ; update buffer # in status line3104 000048 00 bflag1 .DB ; update buffer flag in status line3105 000049 00 fgatt .DB ; disabled indicator attribute in status line31063107 00004A 0000 wtmp .DW31083109 ; temporary used by editor and for 2 long pointer (6 bytes)3110 00004C 0000 ewtmp .DW ; editor: temp word3111 00004E 0000 ewtmp2 .DW ; editor: temp word3112 000050 00 ebtmp .DB ; editor: temp byte3113 000051 00 ebtmp2 .DB ; editor: temp byteTue Jul 17 11:00:22 2018 Page 103114 00004C lptmp1 .EQU ewtmp3115 00004F lptmp2 .EQU ewtmp2+131163117 000052 pb LP ; long pointer used byt cut/paste3118 000055 pd LP ; long pointer used by cut/paste3119 000058 0000 bka .DW ; bka & bkb used by cut/past routines3120 00005A 0000 bkb .DW31213122 000052 tstr2 .EQU pb ; temp. string (26 bytes)31233124 ; 16 bytes area for temporary usage (used by garbc routine & scroll)3125 00005C lptc LP ; temp. long pointer3126 00005F lpte LP ; temp. long pointer3127 000062 00 tmp6 .DB ; 10 temp. bytes3128 000063 00 tmp7 .DB3129 000064 00 tmp8 .DB3130 000065 00 tmp9 .DB3131 000066 00 tmpa .DB3132 000067 00 tmpb .DB3133 000068 00 tmpc .DB3134 000069 00 tmpd .DB3135 00006A 00 tmpe .DB3136 00006B 00 tmpf .DB31373138 000062 lptc1 .EQU tmp6 ; long pointer used by scroll up/down3139 000065 lpte1 .EQU tmp9 ; long pointer used by scroll up/down31403141 00006C bstart .DS BUFSIZ ; page pointer of start block3142 000082 bcur .DS BUFSIZ ; page pointer of current block3143 000098 bndx .DS BUFSIZ ; current block index (low) & buffer flag (high)3144 0000AE bline .DS BUFSIZ ; current edit line3145 0000C4 btot .DS BUFSIZ ; total count of edit lines31463147 0000DA longp LP ; generic long pointer3148 0000DD 00 fsmode DB ; <7>: cbm fs mode3149 ; <6>: pascal compiler31503151 0000DE 0000 dbufsiz .DW ; disk buffer size3152 0000E0 0000 brksav .DW ; save break level31533154 0000E0 .RELATIVE3155 .ENDS315631573158 .CODEFD3159 .LONGA off3160 .LONGI off31613162 ;---------------------------------------------------31633164 ; editor main loop3165 FD0000 editor:3166 FD0000 20 FF 16 jsr setcurs ; set cursor mode3167 FD0003 A4 21 ?10: ldy scol ; current screen column3168 FD0005 20 E0 16 jsr edcurs ; set cursor position on edit window3169 FD0008 20 C6 16 jsr showcurs ; show cursor3170 FD000B ?12: KBGETIN ; system call - get keyTue Jul 17 11:00:22 2018 Page 113171 FD000B 02 17 cop $173172 .MNLIST3173 FD000D AA tax3174 FD000E D0 0C bne ?14 ; a key was pressed3175 FD0010 20 C0 10 jsr garbc ; call garbage collection3176 FD0013 A9 02 lda #$02 ; update caps & num only3177 FD0015 04 3F tsb slfg3178 FD0017 20 4F 05 jsr updsl3179 FD001A 80 EF bra ?123180 FD001C 85 2F ?14: sta ctmp ; store key code3181 FD001E EB xba3182 FD001F 85 30 sta ctmp2 ; store control key flag3183 FD0021 20 BB 16 jsr hidecurs3184 FD0024 AF 64 01 00 lda >DP01ADDR+KbdFlag3185 FD0028 85 31 sta keyfg ; flag ALT, CTL, SHIFT3186 FD002A A5 2F lda ctmp ; A = key code3187 FD002C 24 30 bit ctmp2 ; check control key flag3188 FD002E 10 28 bpl ?22 ; no-control key3189 FD0030 C9 C4 cmp #KB_ALTF1 ; ALT-F1..ALT-F11 switch buffer3190 FD0032 90 0F bcc ?163191 FD0034 C9 CF cmp #KB_ALTF123192 FD0036 B0 0B bcs ?163193 FD0038 E9 C3 sbc #KB_ALTF1-13194 FD003A C5 0F cmp xbuf ; is the current buffer?3195 FD003C F0 C5 beq ?10 ; yes, skip3196 FD003E 20 63 00 jsr ?50 ; switch to buffer3197 FD0041 80 C0 bra ?10 ; loop3198 FD0043 A2 15 ?16: ldx #KEYTBLLEN ; check control key3199 FD0045 DF 44 22 FD ?18: cmp >KEYTBL,x3200 FD0049 F0 05 beq ?203201 FD004B CA dex3202 FD004C 10 F7 bpl ?183203 FD004E 30 B3 bmi ?10 ; discard3204 FD0050 8A ?20: txa3205 FD0051 0A asl a3206 FD0052 AA tax3207 FD0053 FC 5A 22 jsr (KEYPROC,x) ; execute key control function3208 FD0056 80 06 bra ?23 ; loop3209 FD0058 AA ?22: tax ; no-control key3210 FD0059 30 A8 bmi ?10 ; discard if key code >= 1283211 FD005B 20 9C 00 jsr ?80 ; no-control key process3212 FD005E 24 33 ?23: bit edtfg ; test bit 7 for quit command3213 FD0060 10 A1 bpl ?10 ; loop3214 FD0062 60 ?24: rts32153216 ; switch current edit buffer3217 FD0063 20 F6 0B ?50: jsr switchb3218 FD0066 B0 FA bcs ?24 ; memory error3219 FD0068 64 23 stz fslct ; clear select mode flag3220 FD006A A9 01 lda #$013221 FD006C 14 3F trb slfg3222 FD006E A9 0C lda #$0C3223 FD0070 85 20 sta srow3224 FD0072 A9 27 lda #$273225 FD0074 85 21 sta scol3226 FD0076 A6 0F ldx xbuf3227 FD0078 A9 40 lda #$40Tue Jul 17 11:00:22 2018 Page 123228 FD007A 14 33 trb edtfg ; clear clipboard flag3229 FD007C E0 0A cpx #CLIPBRD3230 FD007E D0 02 bne ?523231 FD0080 04 33 tsb edtfg ; set clipboard flag3232 FD0082 04 3F ?52: tsb slfg ; force update status line3233 FD0084 A5 2E lda cursmode3234 FD0086 29 BF and #$BF ; mask off bit 63235 FD0088 24 18 bit bflag3236 FD008A 70 02 bvs ?54 ; overwrite mode => block cursor3237 FD008C 09 40 ora #$40 ; insert mode => underline cursor3238 FD008E 85 2E ?54: sta cursmode3239 FD0090 20 FF 16 jsr setcurs3240 FD0093 4C 32 04 jmp updwin32413242 ; process key code < 1283243 FD0096 8A ?76: txa3244 FD0097 0A asl a3245 FD0098 AA tax3246 FD0099 7C 8E 22 jmp (KEYPROC2,x)3247 FD009C C9 20 ?80: cmp #' '3248 FD009E B0 0C bcs edkey ; printable key code, insert in buffer3249 FD00A0 A2 07 ldx #KEYTBLLEN2 ; find function for key code < 323250 FD00A2 DF 86 22 FD ?84: cmp >KEYTBL2,x3251 FD00A6 F0 EE beq ?763252 FD00A8 CA dex3253 FD00A9 10 F7 bpl ?843254 FD00AB 60 kpx: rts ; discard32553256 ; P12AF:3257 FD00AC edkey:3258 FD00AC A6 23 LDX fslct3259 FD00AE D0 FB bne kpx3260 FD00B0 A6 22 LDX ccnt3261 FD00B2 E0 EF CPX #MAXTEXTLEN-13262 FD00B4 F0 F5 beq kpx3263 FD00B6 A6 1E LDX ccol3264 FD00B8 E4 1F CPX ecol3265 FD00BA 90 EF bcc kpx3266 FD00BC AA tax3267 FD00BD ACC163268 FD00BD C2 20 rep #PMFLAG3269 .LONGA on3270 .MNLIST3271 FD00BF A5 1C lda cline3272 FD00C1 C9 FD FF cmp #MAXLINES3273 FD00C4 ACC083274 FD00C4 E2 20 sep #PMFLAG3275 .LONGA off3276 .MNLIST3277 FD00C6 B0 E3 bcs kpx3278 FD00C8 8A txa3279 FD00C9 20 EC 0C JSR insert3280 FD00CC B0 DD bcs kpx3281 FD00CE 20 DF 0F JSR incptr23282 FD00D1 A6 1E LDX ccol3283 FD00D3 E8 INX3284 FD00D4 86 1E STX ccolTue Jul 17 11:00:22 2018 Page 133285 FD00D6 86 27 STX xcol3286 FD00D8 E6 22 INC ccnt3287 FD00DA 20 B4 0F JSR getbyte23288 FD00DD 90 37 BCC ?023289 FD00DF A9 0D LDA #$0D ; new line3290 FD00E1 20 EC 0C JSR insert3291 FD00E4 90 06 BCC ?013292 FD00E6 20 1E 10 ?00: JSR decptr2 ; error3293 FD00E9 4C 0B 0F JMP delbyte3294 FD00EC ?01: ACC163295 FD00EC C2 20 rep #PMFLAG3296 .LONGA on3297 .MNLIST3298 FD00EE A5 1A lda ncount3299 FD00F0 1A inc a3300 FD00F1 C9 FD FF cmp #MAXLINES3301 FD00F4 ACC083302 FD00F4 E2 20 sep #PMFLAG3303 .LONGA off3304 .MNLIST3305 FD00F6 B0 EE bcs ?00 ; no insert a new line3306 FD00F8 E6 21 INC scol3307 FD00FA 20 93 0E JSR mvpp23308 FD00FD 20 70 0F JSR nextln3309 FD0100 ACC163310 FD0100 C2 20 rep #PMFLAG3311 .LONGA on3312 .MNLIST3313 FD0102 A5 15 LDA ppage3314 FD0104 85 06 STA pp63315 FD0106 E6 1A inc ncount3316 FD0108 ACC083317 FD0108 E2 20 sep #PMFLAG3318 .LONGA off3319 .MNLIST3320 FD010A A5 17 LDA ixb3321 FD010C 85 0D STA ix63322 FD010E 20 4A 0E JSR pp2mv3323 FD0111 E6 26 INC rcnt3324 FD0113 4C 2E 04 JMP updwin03325 FD0116 A5 21 ?02: LDA scol3326 FD0118 C9 4B CMP #COLX3327 FD011A 90 07 BCC ?033328 FD011C E6 1F INC ecol3329 FD011E 20 E9 12 JSR scrlright3330 FD0121 80 02 bra updrow83331 FD0123 E6 21 ?03: INC scol33323333 ; P145F:3334 FD0125 updrow8:3335 FD0125 ACC163336 FD0125 C2 20 rep #PMFLAG3337 .LONGA on3338 .MNLIST3339 FD0127 A5 2C lda curs3340 FD0129 85 34 sta stxtp3341 FD012B 09 00 08 ora #!TXTATTRTue Jul 17 11:00:22 2018 Page 143342 FD012E 85 38 sta sattp3343 FD0130 ACC083344 FD0130 E2 20 sep #PMFLAG3345 .LONGA off3346 .MNLIST3347 FD0132 A6 08 LDX pp83348 FD0134 A5 09 lda pp8+13349 FD0136 A4 0E LDY ix83350 FD0138 20 60 14 JSR setptr3351 FD013B A9 01 lda #$01 ; no update window while indent...3352 FD013D 24 33 bit edtfg ; ... blank's insertion3353 FD013F D0 29 bne tbx3354 FD0141 20 69 12 JSR updrow3355 FD0144 4C 4F 05 JMP updsl33563357 ; tasto TAB3358 ; P313E:3359 FD0147 tabkey:3360 FD0147 A9 00 lda #03361 FD0149 18 ?0: clc3362 FD014A 65 19 ?1: adc deftab3363 FD014C C5 1E cmp ccol3364 FD014E F0 F9 beq ?03365 FD0150 90 F8 bcc ?13366 FD0152 E5 1E SBC ccol3367 FD0154 85 30 STA ctmp23368 FD0156 A5 1E ?02: LDA ccol3369 FD0158 C5 22 CMP ccnt3370 FD015A D0 07 BNE ?033371 FD015C A9 20 LDA #$203372 FD015E 20 AC 00 JSR edkey3373 FD0161 80 03 bra ?043374 FD0163 20 5C 02 ?03: jsr csrrght3375 FD0166 C6 30 ?04: DEC ctmp23376 FD0168 D0 EC BNE ?023377 FD016A 60 tbx: RTS33783379 ; 'del' key3380 ; execute 'csrright' and after a 'backkey'3381 FD016B delkey:3382 FD016B A6 1E LDX ccol3383 FD016D E4 22 CPX ccnt3384 FD016F F0 F9 BEQ tbx3385 FD0171 E8 INX3386 FD0172 86 1E STX ccol3387 FD0174 86 27 STX xcol3388 FD0176 20 DF 0F JSR incptr23389 FD0179 A5 21 LDA scol3390 FD017B C9 4B CMP #COLX3391 FD017D 90 04 BCC ?013392 FD017F E6 1F INC ecol3393 FD0181 80 02 bra backkey3394 FD0183 E6 21 ?01: INC scol33953396 ; tasto BACKSPACE3397 ; P1316:3398 FD0185 backkey:Tue Jul 17 11:00:22 2018 Page 153399 FD0185 A5 23 LDA fslct3400 FD0187 D0 32 bne ?023401 FD0189 A5 1E LDA ccol3402 FD018B C5 1F CMP ecol3403 FD018D 90 2C bcc ?023404 FD018F 20 1E 10 JSR decptr23405 FD0192 B0 27 bcs ?023406 FD0194 20 B4 0F JSR getbyte23407 FD0197 C9 0D CMP #$0D3408 FD0199 F0 21 BEQ ?033409 FD019B 20 0B 0F JSR delbyte3410 FD019E C6 1E DEC ccol3411 FD01A0 A5 1E LDA ccol3412 FD01A2 85 27 STA xcol3413 FD01A4 C6 22 DEC ccnt3414 FD01A6 20 7B 0E JSR nextln83415 FD01A9 20 25 01 JSR updrow83416 FD01AC 20 40 0E JSR xcount3417 FD01AF E8 INX3418 FD01B0 E4 21 CPX scol3419 FD01B2 F0 05 BEQ ?013420 FD01B4 C6 1F DEC ecol3421 FD01B6 4C 96 13 JMP scrlleft3422 FD01B9 C6 21 ?01: DEC scol3423 FD01BB 60 ?02: RTS3424 FD01BC 20 93 0E ?03: JSR mvpp23425 FD01BF 20 DF 0F JSR incptr23426 FD01C2 20 8C 0F JSR startln3427 FD01C5 20 70 0F JSR nextln3428 FD01C8 86 2F STX ctmp3429 FD01CA 20 70 0F JSR nextln3430 FD01CD 20 4A 0E JSR pp2mv3431 FD01D0 8A TXA3432 FD01D1 18 CLC3433 FD01D2 65 2F ADC ctmp3434 FD01D4 90 03 BCC ?043435 FD01D6 4C DF 0F JMP incptr23436 FD01D9 C9 F0 ?04: CMP #MAXTEXTLEN3437 FD01DB 90 03 BCC ?053438 FD01DD 4C DF 0F JMP incptr23439 FD01E0 20 DF 0F ?05: JSR incptr23440 FD01E3 20 B4 0F JSR getbyte23441 FD01E6 90 1A BCC ?083442 FD01E8 20 1E 10 JSR decptr23443 FD01EB 20 1E 10 JSR decptr23444 FD01EE B0 15 BCS ?093445 FD01F0 20 B4 0F JSR getbyte23446 FD01F3 C9 0D CMP #$0D3447 FD01F5 F0 06 BEQ ?063448 FD01F7 20 DF 0F JSR incptr23449 FD01FA 4C DF 0F JMP incptr23450 FD01FD 20 DF 0F ?06: JSR incptr23451 FD0200 80 03 bra ?093452 FD0202 20 1E 10 ?08: JSR decptr23453 FD0205 ?09: ACC163454 FD0205 C2 20 rep #PMFLAG3455 .LONGA onTue Jul 17 11:00:22 2018 Page 163456 .MNLIST3457 FD0207 C6 1C dec cline3458 FD0209 C6 1A dec ncount ; check this !!3459 FD020B ACC083460 FD020B E2 20 sep #PMFLAG3461 .LONGA off3462 .MNLIST3463 FD020D 20 0B 0F JSR delbyte3464 FD0210 A9 4B LDA #COLX3465 FD0212 85 21 STA scol3466 FD0214 A5 20 LDA srow3467 FD0216 C9 0D CMP #$0D3468 FD0218 B0 05 bcs ?103469 FD021A 20 20 0E JSR startln43470 FD021D 90 06 BCC ?113471 FD021F 20 57 0E ?10: JSR nextln63472 FD0222 20 5B 15 JSR decrow3473 FD0225 4C 2E 04 ?11: JMP updwin034743475 ; tasto CURSORE SX3476 ; P1D31:3477 FD0228 csrleft:3478 FD0228 A6 1E LDX ccol3479 FD022A E4 1F CPX ecol3480 FD022C B0 07 BCS ?013481 FD022E 86 27 STX xcol3482 FD0230 C6 1F DEC ecol3483 FD0232 4C 96 13 JMP scrlleft3484 FD0235 E0 00 ?01: CPX #$003485 FD0237 F0 67 BEQ slt3486 FD0239 CA DEX3487 FD023A 86 1E STX ccol3488 FD023C 86 27 STX xcol3489 FD023E 20 1E 10 JSR decptr23490 FD0241 A5 21 LDA scol3491 FD0243 C9 05 CMP #$053492 FD0245 B0 10 BCS ?023493 FD0247 20 40 0E JSR xcount3494 FD024A E8 INX3495 FD024B E4 21 CPX scol3496 FD024D F0 08 BEQ ?023497 FD024F C6 1F DEC ecol3498 FD0251 20 96 13 JSR scrlleft3499 FD0254 4C 4F 05 JMP updsl3500 FD0257 C6 21 ?02: DEC scol3501 FD0259 4C 4F 05 JMP updsl35023503 ; tasto CURSORE DX3504 ; P1D0C:3505 FD025C csrrght:3506 FD025C A6 1E LDX ccol3507 FD025E E4 22 CPX ccnt3508 FD0260 F0 3E BEQ slt3509 FD0262 E8 INX3510 FD0263 86 1E STX ccol3511 FD0265 86 27 STX xcol3512 FD0267 20 DF 0F JSR incptr2Tue Jul 17 11:00:22 2018 Page 173513 FD026A A5 21 LDA scol3514 FD026C C9 4B CMP #COLX3515 FD026E 90 08 BCC ?013516 FD0270 E6 1F INC ecol3517 FD0272 20 E9 12 JSR scrlright ; scroll right3518 FD0275 4C 4F 05 JMP updsl3519 FD0278 E6 21 ?01: INC scol3520 FD027A 4C 4F 05 JMP updsl35213522 ; toggle select mode flag3523 ; P1F22:3524 FD027D seltxt:3525 FD027D A5 23 LDA fslct3526 FD027F F0 05 BEQ ?013527 FD0281 64 23 STZ fslct ; clear if enabled3528 FD0283 4C 2E 04 JMP updwin03529 FD0286 20 A9 0F ?01: JSR getbyte3530 FD0289 B0 15 BCS slt3531 FD028B E6 23 INC fslct3532 FD028D A5 08 LDA pp83533 FD028F 85 00 STA pp03534 FD0291 A5 09 LDA pp8+13535 FD0293 85 01 STA pp0+13536 FD0295 A5 0E LDA ix83537 FD0297 85 0A STA ix03538 FD0299 64 24 STZ nslctl3539 FD029B 64 25 stz nslcth3540 FD029D 20 4F 05 jsr updsl3541 FD02A0 60 slt: RTS35423543 ; tasto CURSORE UP3544 ; P1D66:3545 FD02A1 csrup:3546 FD02A1 A5 20 LDA srow3547 FD02A3 C9 07 CMP #$073548 FD02A5 90 05 BCC ?013549 FD02A7 20 5B 15 JSR decrow3550 FD02AA 80 17 bra ?033551 FD02AC 20 20 0E ?01: JSR startln43552 FD02AF 90 09 BCC ?023553 FD02B1 A5 20 LDA srow3554 FD02B3 F0 EB beq slt ; exit3555 FD02B5 20 5B 15 JSR decrow3556 FD02B8 80 09 bra ?033557 FD02BA 20 D7 0D ?02: JSR startln63558 FD02BD 20 C9 15 JSR scrlup3559 FD02C0 20 3B 12 JSR updfst3560 FD02C3 20 AD 0E ?03: JSR pp8mv3561 FD02C6 20 8C 0F JSR startln3562 FD02C9 20 A0 0E JSR mvpp83563 FD02CC A6 27 LDX xcol3564 FD02CE 20 87 0D JSR xcnt23565 FD02D1 A5 23 LDA fslct3566 FD02D3 F0 12 BEQ ?073567 FD02D5 ACC16CLC3568 FD02D5 C2 21 rep #(PMFLAG.OR.PCFLAG)3569 .LONGA onTue Jul 17 11:00:22 2018 Page 183570 .MNLIST3571 FD02D7 A5 2C lda curs3572 FD02D9 C6 24 dec nslctl3573 FD02DB 10 03 bpl ?053574 FD02DD 69 50 00 ADC #MAXCOLS3575 FD02E0 85 34 ?05: STA stxtp3576 FD02E2 ACC083577 FD02E2 E2 20 sep #PMFLAG3578 .LONGA off3579 .MNLIST3580 FD02E4 20 69 15 JSR revrow3581 FD02E7 ?07: ACC163582 FD02E7 C2 20 rep #PMFLAG3583 .LONGA on3584 .MNLIST3585 FD02E9 C6 1C dec cline3586 FD02EB ACC083587 FD02EB E2 20 sep #PMFLAG3588 .LONGA off3589 .MNLIST3590 FD02ED 4C 4F 05 JMP updsl35913592 ; tasto CURSORE DOWN3593 ; P1E62:3594 FD02F0 csrdwn:3595 FD02F0 20 B4 0F JSR getbyte23596 FD02F3 B0 AB bcs slt ; exit if end of buffer3597 FD02F5 A5 20 LDA srow3598 FD02F7 C9 11 CMP #$113599 FD02F9 B0 05 BCS ?013600 FD02FB 20 4D 15 JSR incrow3601 FD02FE 80 13 bra ?033602 FD0300 20 80 15 ?01: JSR scrldown3603 FD0303 20 00 0E JSR nextln43604 FD0306 20 57 0E JSR nextln63605 FD0309 B0 05 BCS ?023606 FD030B 20 08 12 JSR updlst3607 FD030E 80 03 bra ?033608 FD0310 20 F8 14 ?02: JSR clrlst3609 FD0313 20 70 0F ?03: JSR nextln3610 FD0316 20 A0 0E JSR mvpp83611 FD0319 A6 27 LDX xcol3612 FD031B 20 87 0D JSR xcnt23613 FD031E A5 23 LDA fslct3614 FD0320 ACC16CLC3615 FD0320 C2 21 rep #(PMFLAG.OR.PCFLAG)3616 .LONGA on3617 .MNLIST3618 FD0322 F0 14 BEQ ?073619 FD0324 A5 2C lda curs3620 FD0326 24 24 bit nslctl3621 FD0328 30 03 bmi ?053622 FD032A E9 4F 00 SBC #MAXCOLS-1 ; take in account CF = 0 !3623 FD032D 85 34 ?05: sta stxtp3624 FD032F ACC083625 FD032F E2 20 sep #PMFLAG3626 .LONGA offTue Jul 17 11:00:22 2018 Page 193627 .MNLIST3628 FD0331 20 69 15 JSR revrow3629 FD0334 ACC163630 FD0334 C2 20 rep #PMFLAG3631 .LONGA on3632 .MNLIST3633 FD0336 E6 24 inc nslctl3634 FD0338 E6 1C ?07: inc cline3635 FD033A ACC083636 FD033A E2 20 sep #PMFLAG3637 .LONGA off3638 .MNLIST3639 FD033C 4C 4F 05 JMP updsl36403641 ; SHIFT+END -> fine linea3642 ; P310D:3643 FD033F goendln:3644 FD033F 20 70 0F JSR nextln3645 FD0342 B0 03 BCS ?013646 FD0344 20 1E 10 JSR decptr23647 FD0347 A9 4B ?01: LDA #COLX3648 FD0349 85 21 STA scol3649 FD034B 4C 2E 04 JMP updwin036503651 ; ; SHIFT+HOME -> inizio linea3652 ; P311D:3653 FD034E gostartln:3654 FD034E 20 70 0F JSR nextln3655 FD0351 B0 03 BCS ?013656 FD0353 20 8C 0F JSR startln3657 FD0356 4C 2E 04 ?01: JMP updwin036583659 ; P1EC8:3660 FD0359 pagedwn:3661 FD0359 A9 14 LDA #$143662 FD035B 85 2F STA ctmp3663 FD035D 20 70 0F ?01: JSR nextln3664 FD0360 B0 0C BCS ?033665 FD0362 A5 23 LDA fslct3666 FD0364 ACC163667 FD0364 C2 20 rep #PMFLAG3668 .LONGA on3669 .MNLIST3670 FD0366 F0 02 BEQ ?023671 FD0368 E6 24 INC nslctl3672 FD036A E6 1C ?02: INC cline3673 FD036C ACC083674 FD036C E2 20 sep #PMFLAG3675 .LONGA off3676 .MNLIST3677 FD036E C6 2F ?03: DEC ctmp3678 FD0370 D0 EB BNE ?013679 FD0372 A9 11 LDA #$113680 FD0374 80 1E bra epage36813682 ; P1EF1:3683 FD0376 pageup:Tue Jul 17 11:00:22 2018 Page 203684 FD0376 A9 14 LDA #$143685 FD0378 85 2F STA ctmp3686 FD037A 20 AD 0E JSR pp8mv3687 FD037D 20 8C 0F ?01: JSR startln3688 FD0380 B0 0C BCS ?053689 FD0382 A5 23 LDA fslct3690 FD0384 ACC163691 FD0384 C2 20 rep #PMFLAG3692 .LONGA on3693 .MNLIST3694 FD0386 F0 02 BEQ ?033695 FD0388 C6 24 DEC nslctl3696 FD038A C6 1C ?03: DEC cline3697 FD038C ACC083698 FD038C E2 20 sep #PMFLAG3699 .LONGA off3700 .MNLIST3701 FD038E C6 2F ?05: DEC ctmp3702 FD0390 D0 EB BNE ?013703 FD0392 A9 06 LDA #$0637043705 ; P1F1D:3706 FD0394 epage:3707 FD0394 85 20 STA srow3708 FD0396 4C 32 04 jmp updwin37093710 ; HOME - inizio buffer3711 ; P30C5:3712 FD0399 gohome:3713 FD0399 ACC163714 FD0399 C2 20 rep #PMFLAG3715 .LONGA on3716 .MNLIST3717 FD039B A5 12 LDA pbuf ; set current block to first block3718 FD039D 85 15 STA ppage3719 FD039F A2 05 LDX #BSTART3720 FD03A1 86 17 STX ixb3721 FD03A3 A6 23 LDX fslct3722 FD03A5 F0 07 BEQ ?01 ; no selection3723 FD03A7 38 SEC3724 FD03A8 A5 24 LDA nslctl ; update selection range3725 FD03AA E5 1C SBC cline3726 FD03AC 85 24 STA nslctl3727 FD03AE 64 1C ?01: STZ cline ; current line = 03728 FD03B0 ACC083729 FD03B0 E2 20 sep #PMFLAG3730 .LONGA off3731 .MNLIST3732 FD03B2 80 7E bra updwin37333734 ; END - fine buffer3735 ; P30EC:3736 FD03B4 goend:3737 FD03B4 ACC163738 FD03B4 C2 20 rep #PMFLAG3739 .LONGA on3740 .MNLISTTue Jul 17 11:00:22 2018 Page 213741 FD03B6 A7 14 ?00a: lda [pblk]3742 FD03B8 F0 04 beq ?00b3743 FD03BA 85 15 sta ppage3744 FD03BC 80 F8 bra ?00a3745 FD03BE ?00b: ACC083746 FD03BE E2 20 sep #PMFLAG3747 .LONGA off3748 .MNLIST3749 FD03C0 A0 05 ldy #BSTART3750 FD03C2 84 17 sty ixb3751 FD03C4 20 70 0F jsr nextln3752 FD03C7 B0 23 bcs ?043753 FD03C9 20 1E 10 jsr decptr23754 FD03CC 20 1E 10 jsr decptr23755 FD03CF 20 70 0F ?00c: jsr nextln3756 FD03D2 90 FB bcc ?00c3757 FD03D4 ACC163758 FD03D4 C2 20 rep #PMFLAG3759 .LONGA on3760 .MNLIST3761 FD03D6 A5 1A lda ncount3762 FD03D8 A4 23 ldy fslct3763 FD03DA F0 0C beq ?023764 FD03DC 85 4A sta wtmp3765 FD03DE 38 sec3766 FD03DF E5 1C sbc cline3767 FD03E1 18 clc3768 FD03E2 65 24 adc nslctl3769 FD03E4 85 24 sta nslctl3770 FD03E6 A5 4A lda wtmp3771 FD03E8 85 1C ?02: sta cline3772 FD03EA ACC083773 FD03EA E2 20 sep #PMFLAG3774 .LONGA off3775 .MNLIST3776 FD03EC A9 11 ?04: LDA #$11 ; set screen row3777 FD03EE 85 20 STA srow3778 FD03F0 80 40 bra updwin37793780 ; tasto SHIFT RETURN3781 ; P3129:3782 FD03F2 kshenter:3783 FD03F2 A5 23 LDA fslct3784 FD03F4 F0 01 beq kshe3785 FD03F6 60 kshr: rts3786 FD03F7 20 70 0F kshe: JSR nextln ; find next line3787 FD03FA B0 09 BCS ke23788 FD03FC 20 1E 10 JSR decptr2 ; decrement pointer3789 FD03FF 80 04 bra ke237903791 ; tasto RETURN3792 ; P288F:3793 FD0401 kenter:3794 FD0401 A6 23 LDX fslct3795 FD0403 D0 F1 bne kshr3796 FD0405 20 BA 0E ke2: jsr xblank ; count of starting blanks3797 FD0408 20 D5 0C jsr inscr ; insert byte $0D (enter key code)Tue Jul 17 11:00:22 2018 Page 223798 FD040B B0 E9 bcs kshr ; error3799 FD040D 20 DF 0F JSR incptr23800 FD0410 A5 20 LDA srow3801 FD0412 C9 11 CMP #$113802 FD0414 B0 08 BCS ?023803 FD0416 20 4D 15 JSR incrow ; increment cursor row3804 FD0419 20 D7 0D JSR startln63805 FD041C 80 03 bra ?033806 FD041E 20 00 0E ?02: JSR nextln43807 FD0421 64 21 ?03: STZ scol ; screen column = 03808 FD0423 ACC163809 FD0423 C2 20 rep #PMFLAG3810 .LONGA on3811 .MNLIST3812 FD0425 E6 1C INC cline ; increment current line3813 FD0427 E6 1A inc ncount3814 FD0429 ?05: ACC083815 FD0429 E2 20 sep #PMFLAG3816 .LONGA off3817 .MNLIST3818 FD042B 20 AE 06 jsr indent38193820 ; P19DB:3821 FD042E updwin0:3822 FD042E A9 00 LDA #$00 ; no cursor address update3823 FD0430 F0 02 BEQ updatew38243825 ; P19E0:3826 FD0432 updwin:3827 FD0432 A9 01 LDA #$01 ; update cursor address38283829 ; P19E3:3830 FD0434 updatew:3831 FD0434 48 PHA3832 FD0435 20 93 0E JSR mvpp23833 FD0438 20 A9 0F JSR getbyte3834 FD043B B0 09 BCS ?023835 FD043D 20 BE 0F JSR incptr3836 FD0440 20 8C 0F JSR startln3837 FD0443 CA DEX3838 FD0444 80 02 bra ?033839 FD0446 A2 00 ?02: LDX #$003840 FD0448 86 1E ?03: STX ccol ; update current editor column3841 FD044A 86 27 STX xcol3842 FD044C 8A TXA3843 FD044D 38 SEC3844 FD044E E5 21 SBC scol3845 FD0450 B0 06 BCS ?043846 FD0452 A5 1E LDA ccol3847 FD0454 85 21 STA scol3848 FD0456 A9 00 LDA #$003849 FD0458 85 1F ?04: STA ecol3850 FD045A 20 A0 0E JSR mvpp83851 FD045D 20 70 0F JSR nextln3852 FD0460 86 22 STX ccnt3853 FD0462 A3 01 lda $01,s3854 FD0464 F0 06 BEQ ?05Tue Jul 17 11:00:22 2018 Page 233855 FD0466 20 AD 0E JSR pp8mv3856 FD0469 20 6A 0D JSR findrow3857 FD046C 20 B1 14 ?05: JSR chksel3858 FD046F ACC163859 FD046F C2 20 rep #PMFLAG3860 .LONGA on3861 .MNLIST3862 FD0471 38 sec3863 FD0472 A9 00 00 LDA #!TXTADDR3864 FD0475 E9 50 00 SBC #MAXCOLS3865 FD0478 85 34 STA stxtp3866 FD047A 38 sec3867 FD047B A9 00 08 LDA #!TXTATTR3868 FD047E E9 50 00 SBC #MAXCOLS3869 FD0481 85 38 sta sattp3870 FD0483 ACC083871 FD0483 E2 20 sep #PMFLAG3872 .LONGA off3873 .MNLIST3874 FD0485 A9 FF LDA #$FF3875 FD0487 85 2F STA ctmp3876 FD0489 A6 04 LDX pp43877 FD048B A5 05 lda pp4+13878 FD048D A4 0C LDY ix43879 FD048F 20 60 14 JSR setptr3880 FD0492 ?06: ACC16CLC3881 FD0492 C2 21 rep #(PMFLAG.OR.PCFLAG)3882 .LONGA on3883 .MNLIST3884 FD0494 A5 34 LDA stxtp3885 FD0496 69 50 00 ADC #MAXCOLS3886 FD0499 85 34 sta stxtp3887 FD049B 18 clc3888 FD049C A5 38 LDA sattp3889 FD049E 69 50 00 ADC #MAXCOLS3890 FD04A1 85 38 sta sattp3891 FD04A3 ACC083892 FD04A3 E2 20 sep #PMFLAG3893 .LONGA off3894 .MNLIST3895 FD04A5 E6 2F INC ctmp3896 FD04A7 A5 23 LDA fslct3897 FD04A9 F0 0E BEQ ?073898 FD04AB A5 2F LDA ctmp3899 FD04AD C5 2A CMP rslctl3900 FD04AF 90 08 BCC ?073901 FD04B1 C5 2B CMP rslcth3902 FD04B3 B0 04 BCS ?073903 FD04B5 A9 80 LDA #$803904 FD04B7 85 37 STA frev3905 FD04B9 20 69 12 ?07: JSR updrow3906 FD04BC B0 07 BCS ?083907 FD04BE A5 2F LDA ctmp3908 FD04C0 C9 17 CMP #$173909 FD04C2 D0 CE BNE ?063910 FD04C4 18 CLC3911 FD04C5 A3 01 ?08: lda $01,sTue Jul 17 11:00:22 2018 Page 243912 FD04C7 F0 2B BEQ ?113913 FD04C9 AF 86 12 FD LDA >updr1+2 ; page3914 FD04CD B0 19 BCS ?093915 FD04CF 85 15 STA ppage3916 FD04D1 A5 40 lda sbank ; bank3917 FD04D3 85 16 STA ppage+13918 FD04D5 86 17 STX ixb3919 FD04D7 20 8C 0F JSR startln3920 FD04DA A5 15 LDA ppage3921 FD04DC 85 06 STA pp63922 FD04DE A5 16 LDA ppage+13923 FD04E0 85 07 STA pp6+13924 FD04E2 A5 17 LDA ixb3925 FD04E4 85 0D STA ix63926 FD04E6 80 08 bra ?103927 FD04E8 85 06 ?09: STA pp63928 FD04EA A5 40 lda sbank3929 FD04EC 85 07 sta pp6+13930 FD04EE 86 0D STX ix63931 FD04F0 A5 2F ?10: LDA ctmp3932 FD04F2 85 26 STA rcnt3933 FD04F4 A5 2F ?11: LDA ctmp3934 FD04F6 C9 17 CMP #$173935 FD04F8 F0 27 BEQ ?133936 FD04FA ACC16CLC3937 FD04FA C2 21 rep #(PMFLAG.OR.PCFLAG)3938 .LONGA on3939 .MNLIST3940 FD04FC A5 34 LDA stxtp3941 FD04FE 69 50 00 ADC #MAXCOLS3942 FD0501 85 34 STA stxtp3943 FD0503 18 clc3944 FD0504 A5 38 LDA sattp3945 FD0506 69 50 00 ADC #MAXCOLS3946 FD0509 85 38 STA sattp3947 FD050B ACC083948 FD050B E2 20 sep #PMFLAG3949 .LONGA off3950 .MNLIST3951 FD050D A9 20 LDA #' '3952 FD050F EB xba3953 FD0510 A5 3B lda eattr ; A = attribute, B = blank3954 FD0512 A0 4F LDY #MAXCOLS-13955 FD0514 97 38 ?12: sta [sattp],y ; store attribute3956 FD0516 EB xba3957 FD0517 97 34 sta [stxtp],y ; store blank3958 FD0519 EB xba3959 FD051A 88 DEY3960 FD051B 10 F7 BPL ?123961 FD051D E6 2F INC ctmp3962 FD051F 80 D3 bra ?113963 FD0521 20 4A 0E ?13: JSR pp2mv3964 FD0524 68 PLA3965 FD0525 F0 28 beq updsl3966 FD0527 64 2D STZ curs+13967 FD0529 A5 20 LDA srow3968 FD052B 0A ASL aTue Jul 17 11:00:22 2018 Page 253969 FD052C 0A ASL a ; srow * 43970 FD052D 65 20 ADC srow ; srow * 53971 FD052F 0A ASL a3972 FD0530 0A ASL a ; srow * 203973 FD0531 26 2D ROL curs+13974 FD0533 0A ASL a ; * 403975 FD0534 26 2D ROL curs+13976 FD0536 0A ASL a ; * 803977 FD0537 26 2D ROL curs+13978 FD0539 85 2C STA curs3979 FD053B A5 2D LDA curs+13980 FD053D 69 00 ADC #>TXTADDR3981 FD053F 85 2D STA curs+13982 FD0541 80 0C bra updsl39833984 ; print error message in status line and wait for <enter> key pressed3985 ; in: X - error number3986 ; P1C3D:3987 FD0543 error:3988 FD0543 A5 3D lda seatt ; error attribute3989 FD0545 20 34 16 jsr msgstr3990 FD0548 20 12 16 jsr waitent3991 FD054B A9 40 lda #$40 ; force update status line3992 ;tsb slfg3993 FD054D 85 3F sta slfg39943995 ; update status line (edit mode only)3996 ; P2989:3997 FD054F updsl:3998 FD054F 24 3F bit slfg3999 FD0551 10 01 bpl ?00 ; skip if in command line mode4000 FD0553 60 rts4001 FD0554 50 20 ?00: bvc ?04 ; partial update only4002 FD0556 A5 3C lda slattr ; status line attribute4003 FD0558 EB xba4004 FD0559 24 33 bit edtfg4005 FD055B 50 06 bvc ?02 ; standard edit buffer4006 FD055D A2 F4 ldx #<stlstr2 ; clipboard status line string4007 FD055F A0 21 ldy #>stlstr24008 FD0561 80 0C bra ?034009 FD0563 A2 54 ?02: ldx #<stlstr ; std cbm fs buffer status line string4010 FD0565 A0 21 ldy #>stlstr4011 FD0567 24 DD bit fsmode ; <7>: cbm fs4012 FD0569 30 04 bmi ?034013 FD056B A2 A4 ldx #<stlstr1 ; std fat buffer status line string4014 FD056D A0 21 ldy #>stlstr14015 FD056F A9 FD ?03: lda #^stlstr4016 FD0571 20 54 16 jsr outstr4017 FD0574 80 0E bra ?054018 FD0576 ?04: ACC164019 FD0576 C2 20 rep #PMFLAG4020 .LONGA on4021 .MNLIST4022 FD0578 A9 80 07 lda #!STLINE ; set address of last screen row4023 FD057B 85 34 sta stxtp4024 FD057D A9 80 0F lda #!STLATTR4025 FD0580 85 38 sta sattpTue Jul 17 11:00:22 2018 Page 264026 FD0582 ACC084027 FD0582 E2 20 sep #PMFLAG4028 .LONGA off4029 .MNLIST4030 FD0584 A9 02 ?05: lda #$024031 FD0586 24 3F bit slfg ; test bit 14032 FD0588 F0 03 beq ?05a4033 FD058A 4C 48 06 jmp ?70 ; update caps & num only4034 FD058D A5 0F ?05a: lda xbuf ; update buffer # indicator4035 FD058F C5 47 cmp xbuf14036 FD0591 D0 04 bne ?06 ; changed: update4037 FD0593 24 3F bit slfg ; not changed, check if forced update4038 FD0595 50 0F bvc ?12 ; no forced update4039 FD0597 85 47 ?06: sta xbuf1 ; store buffer #4040 FD0599 24 33 bit edtfg ; skip buffer # for clipboard4041 FD059B 70 09 bvs ?124042 FD059D 09 30 ?08: ora #'0' ; buffer # = 0..94043 FD059F A0 08 ?10: ldy #8 ; index of buffer #4044 FD05A1 97 34 sta [stxtp],y ; update4045 FD05A3 20 80 06 jsr ?cfn ; update filename4046 FD05A6 ?12: ACC164047 FD05A6 C2 20 rep #PMFLAG4048 .LONGA on4049 .MNLIST4050 FD05A8 A5 1A lda ncount ; update total lines count4051 FD05AA C5 44 cmp ncount14052 FD05AC 85 44 sta ncount1 ; save in advance for update4053 FD05AE 85 4A sta wtmp ; save in advance for conversion4054 FD05B0 ACC084055 FD05B0 E2 20 sep #PMFLAG4056 .LONGA off4057 .MNLIST4058 FD05B2 D0 04 bne ?14 ; changed: update4059 FD05B4 24 3F bit slfg ; not changed, check if forced update4060 FD05B6 50 0A bvc ?16 ; no forced update4061 FD05B8 20 A0 18 ?14: jsr int2str ; convert in string4062 FD05BB A2 05 ldx #5 ; 5 digits4063 FD05BD A0 3B ldy #$3B ; column of N#4064 FD05BF 20 71 06 jsr ?1004065 FD05C2 ?16: ACC164066 FD05C2 C2 20 rep #PMFLAG4067 .LONGA on4068 .MNLIST4069 FD05C4 A5 1C lda cline ; update current line #4070 FD05C6 C5 42 cmp cline14071 FD05C8 85 42 sta cline1 ; save in advance for update4072 FD05CA 08 php4073 FD05CB 1A inc a4074 FD05CC 85 4A sta wtmp ; save in advance for conversion4075 FD05CE 28 plp4076 FD05CF ACC084077 FD05CF E2 20 sep #PMFLAG4078 .LONGA off4079 .MNLIST4080 FD05D1 D0 04 bne ?18 ; changed: update4081 FD05D3 24 3F bit slfg ; not changed, check if forced update4082 FD05D5 50 0A bvc ?20 ; no forced updateTue Jul 17 11:00:22 2018 Page 274083 FD05D7 20 A0 18 ?18: jsr int2str ; convert in string4084 FD05DA A2 05 ldx #5 ; 5 digits4085 FD05DC A0 44 ldy #$44 ; column of L#4086 FD05DE 20 71 06 jsr ?1004087 FD05E1 A5 1E ?20: lda ccol ; update current column #4088 FD05E3 C5 46 cmp ccol14089 FD05E5 D0 04 bne ?22 ; changed: update4090 FD05E7 24 3F bit slfg ; not changed, check if forced update4091 FD05E9 50 0D bvc ?24 ; no forced update4092 FD05EB 85 46 ?22: sta ccol14093 FD05ED 1A inc a4094 FD05EE 20 96 18 jsr byte2str ; convert in string4095 FD05F1 A2 03 ldx #3 ; 3 digits4096 FD05F3 A0 4C ldy #$4C ; column of C#4097 FD05F5 20 71 06 jsr ?1004098 FD05F8 A5 18 ?24: lda bflag ; update flag's indicator's4099 FD05FA C5 48 cmp bflag14100 FD05FC D0 04 bne ?26 ; changed: update4101 FD05FE 24 3F bit slfg ; not changed, check if forced update4102 FD0600 50 27 bvc ?34 ; no forced update4103 FD0602 85 48 ?26: sta bflag14104 FD0604 A6 49 ldx fgatt ; X = disabled flag attribute4105 FD0606 18 clc4106 FD0607 24 48 bit bflag1 ; check modified flag4107 FD0609 10 01 bpl ?284108 FD060B 38 sec ; enabled4109 FD060C A0 2E ?28: ldy #$2E ; column of M indicator4110 FD060E 20 69 06 jsr ?804111 FD0611 18 clc4112 FD0612 24 48 bit bflag1 ; check overwrite flag4113 FD0614 50 01 bvc ?304114 FD0616 38 sec ; enabled4115 FD0617 A0 32 ?30: ldy #$32 ; column of O indicator4116 FD0619 20 69 06 jsr ?804117 FD061C 18 clc4118 FD061D A9 20 lda #$204119 FD061F 24 48 bit bflag1 ; check indent mode flag4120 FD0621 F0 01 beq ?324121 FD0623 38 sec ; enabled4122 FD0624 A0 30 ?32: ldy #$30 ; column of I indicator4123 FD0626 20 69 06 jsr ?804124 FD0629 A5 23 ?34: lda fslct ; select mode flag4125 FD062B AA tax4126 FD062C 45 3F eor slfg4127 FD062E 4A lsr a ; bit 0 only4128 FD062F B0 04 bcs ?36 ; changed: update4129 FD0631 24 3F bit slfg ; not changed, check if forced update4130 FD0633 50 13 bvc ?40 ; no forced update4131 FD0635 A9 FE ?36: lda #$FE ; set/reset bit 0 of slfg4132 FD0637 25 3F and slfg4133 FD0639 9B txy4134 FD063A F0 02 beq ?38 ; reset4135 FD063C 09 01 ora #$01 ; set4136 FD063E 85 3F ?38: sta slfg4137 FD0640 4A lsr a ; CF = indicator status4138 FD0641 A6 49 ldx fgatt ; X = disabled flag attribute4139 FD0643 A0 34 ldy #$34 ; column of S indicatorTue Jul 17 11:00:22 2018 Page 284140 FD0645 20 69 06 jsr ?804141 FD06484142 FD0648 ?40:4143 FD0648 A6 49 ?70: ldx fgatt ; X = disabled flag attribute4144 FD064A AF 65 01 00 lda >DP01ADDR+KbdToggle4145 FD064E 85 6B sta tmpf4146 FD0650 18 clc4147 FD0651 10 01 bpl ?72 ; caps lock disabled4148 FD0653 38 sec ; caps lock indicator enabled4149 FD0654 A0 35 ?72: ldy #$35 ; column of C indicator4150 FD0656 20 69 06 jsr ?804151 FD0659 18 clc4152 FD065A 24 6B bit tmpf ; check num lock4153 FD065C 50 01 bvc ?744154 FD065E 38 sec ; num lock indicator enabled4155 FD065F A0 36 ?74: ldy #$36 ; column of N indicator4156 FD0661 20 69 06 jsr ?804157 FD0664 A9 42 lda #$42 ; clear forced update4158 FD0666 14 3F trb slfg4159 FD0668 60 rts41604161 ; set/unset indicator flag on status line4162 FD0669 A5 3C ?80: lda slattr ; set status4163 FD066B B0 01 bcs ?824164 FD066D 8A txa ; unset status4165 FD066E 97 38 ?82: sta [sattp],y4166 FD0670 60 rts41674168 ; output stringa tstr2 at column Y, X bytes4169 FD0671 86 62 ?100: stx tmp64170 FD0673 A2 00 ldx #04171 FD0675 B5 52 ?102: lda <tstr2,x4172 FD0677 97 34 sta [stxtp],y4173 FD0679 E8 inx4174 FD067A C8 iny4175 FD067B C6 62 dec tmp64176 FD067D D0 F6 bne ?1024177 FD067F 60 rts41784179 ; update cbm filename field4180 FD0680 ?cfn:4181 FD0680 A2 00 ldx #04182 FD0682 A0 0B ldy #$0B ; index of cbm filename4183 FD0684 BF 00 CD 01 ?cfnl: lda >EDCURFILE,x4184 FD0688 F0 08 beq ?cfne4185 FD068A 97 34 sta [stxtp],y4186 FD068C E8 inx4187 FD068D C8 iny4188 FD068E E0 12 cpx #184189 FD0690 90 F2 bcc ?cfnl4190 FD0692 60 ?cfne: rts41914192 ; toggle insert flag4193 ; control key: insert key4194 FD0693 tins:4195 FD0693 A9 40 lda #$40 ; insert flag4196 FD0695 AA taxTue Jul 17 11:00:22 2018 Page 294197 FD0696 45 18 eor bflag ; toggle4198 FD0698 85 18 sta bflag4199 FD069A 8A txa4200 FD069B 45 2E eor cursmode ; toggle under/block cursor4201 FD069D 85 2E sta cursmode4202 FD069F 20 FF 16 jsr setcurs4203 FD06A2 4C 4F 05 jmp updsl42044205 ; toggle indent flag4206 ; Ctrl+TAB or Ctrl+I (control key)4207 FD06A5 tind:4208 FD06A5 A9 20 lda #$20 ; indent flag4209 FD06A7 45 18 eor bflag4210 FD06A9 85 18 sta bflag4211 FD06AB 4C 4F 05 jmp updsl42124213 ; indent new line4214 FD06AE indent:4215 FD06AE A9 20 lda #$20 ; test indent flag4216 FD06B0 24 18 bit bflag4217 FD06B2 F0 15 beq ?04 ; no indent4218 FD06B4 A5 2F lda ctmp4219 FD06B6 F0 11 beq ?04 ; no blanks4220 FD06B8 A9 01 lda #$01 ; no update edit window while indent...4221 FD06BA 04 33 tsb edtfg ; ... blank's insertion4222 FD06BC A9 20 ?02: lda #' ' ; insert starting blanks4223 FD06BE 20 AC 00 jsr edkey4224 FD06C1 C6 2F dec ctmp4225 FD06C3 D0 F7 bne ?024226 FD06C5 A9 01 lda #$01 ; restore flag4227 FD06C7 14 33 trb edtfg4228 FD06C9 60 ?04: rts42294230 ;---------------------------------------------------42314232 ; CTRL Y4233 FD06CA delline:4234 FD06CA 20 93 0E jsr mvpp24235 FD06CD 20 70 0F JSR nextln4236 FD06D0 90 03 bcc ?044237 FD06D2 4C 4A 0E ?02: jmp pp2mv4238 FD06D5 A5 15 ?04: lda ppage4239 FD06D7 85 53 sta pb+14240 FD06D9 A5 16 lda ppage+14241 FD06DB 85 54 sta pb+24242 FD06DD A5 17 lda ixb4243 FD06DF 85 6B sta tmpf4244 FD06E1 20 8C 0F JSR startln ; first byte of this line4245 FD06E4 B0 EC bcs ?024246 FD06E6 ACC164247 FD06E6 C2 20 rep #PMFLAG4248 .LONGA on4249 .MNLIST4250 FD06E8 C6 1A dec ncount4251 FD06EA A5 15 lda ppage4252 FD06EC C5 53 cmp pb+14253 FD06EE ACC08Tue Jul 17 11:00:22 2018 Page 304254 FD06EE E2 20 sep #PMFLAG4255 .LONGA off4256 .MNLIST4257 FD06F0 F0 21 beq ?10 ; whole line just in one block4258 FD06F2 A5 17 LDA ixb4259 FD06F4 C9 05 CMP #BSTART4260 FD06F6 D0 0A BNE ?064261 FD06F8 A5 16 LDA ppage+1 ; block can be free'd4262 FD06FA EB xba4263 FD06FB A5 15 lda ppage4264 FD06FD 20 74 10 JSR delblk4265 FD0700 80 05 bra ?084266 FD0702 3A ?06: dec a ; just one byte less4267 FD0703 A0 04 LDY #BNDX4268 FD0705 97 14 STA [pblk],Y4269 FD0707 A5 53 ?08: LDA pb+1 ; go in the next block4270 FD0709 85 15 sta ppage4271 FD070B A5 54 lda pb+24272 FD070D 85 16 sta ppage+14273 FD070F A9 05 lda #BSTART ; line continue at beginning...4274 FD0711 85 17 sta ixb ; ...of next block4275 FD0713 A0 04 ?10: LDY #BNDX ; now move back bytes4276 FD0715 B7 14 lda [pblk],y4277 FD0717 85 62 sta tmp64278 FD0719 A4 6B LDY tmpf4279 FD071B 88 DEY4280 FD071C 84 63 STY tmp74281 FD071E A6 17 LDX ixb4282 FD0720 CA DEX4283 FD0721 E6 63 ?12: INC tmp74284 FD0723 E8 inx4285 FD0724 A4 63 LDY tmp74286 FD0726 B7 14 lda [pblk],y4287 FD0728 9B txy4288 FD0729 97 14 STA [pblk],Y4289 FD072B A5 62 lda tmp64290 FD072D C5 63 CMP tmp74291 FD072F D0 F0 BNE ?124292 FD0731 8A txa4293 FD0732 A0 04 LDY #BNDX4294 FD0734 97 14 STA [pblk],Y4295 FD0736 4C 32 04 JMP updwin42964297 FD07394298 FD0739 copysel:4299 FD0739 A9 02 lda #$02 ; copy operation: reset flag4300 FD073B 14 33 trb edtfg4301 FD073D 64 30 stz ctmp2 ; copy op (zero)4302 FD073F 80 0B bra ct143034304 FD0741 cberr:4305 FD0741 A2 05 ldx #$054306 FD0743 4C 43 05 jmp error ; Clipboard: illegal command43074308 ; CUT4309 ; P1F4F:4310 FD0746 cutsel:Tue Jul 17 11:00:22 2018 Page 314311 FD0746 A9 02 lda #$02 ; cut operation: set flag4312 FD0748 04 33 tsb edtfg4313 FD074A 85 30 sta ctmp2 ; cut op (not zero)4314 FD074C 24 33 ct1: bit edtfg4315 FD074E 70 F1 bvs cberr ; clipboard error4316 FD0750 A5 23 LDA fslct4317 FD0752 F0 2B beq ?00a4318 FD0754 64 23 stz fslct4319 FD0756 A9 0A LDA #CLIPBRD4320 FD0758 20 78 0B JSR freebuf4321 FD075B 64 52 STZ pb4322 FD075D 64 55 STZ pd4323 FD075F 20 93 0E JSR mvpp24324 FD0762 20 DF 0A JSR newblk ; need at least of 2 free blocks4325 FD0765 B0 15 BCS ?00 ; no free blocks4326 FD0767 ACC164327 FD0767 C2 20 rep #PMFLAG4328 .LONGA on4329 .MNLIST4330 FD0769 85 58 STA bka4331 FD076B 85 53 STA pb+14332 FD076D A7 52 lda [pb]4333 FD076F 85 10 STA pfree4334 FD0771 20 DF 0A JSR newblk4335 FD0774 90 0A BCC ?01 ; ok4336 FD0776 A5 58 LDA bka ; restore free list4337 FD0778 85 10 STA pfree4338 FD077A ACC084339 FD077A E2 20 sep #PMFLAG4340 .LONGA off4341 .MNLIST4342 FD077C 20 32 04 ?00: jsr updwin ; for clear selection on edit window4343 FD077F 60 ?00a: rts4344 FD0780 85 5A ?01: STA bkb4345 .LONGA on ; remember here A/M 16 bit4346 FD0782 A5 00 LDA pp04347 FD0784 85 15 STA ppage4348 FD0786 A4 0A LDY ix04349 FD0788 84 17 STY ixb4350 FD078A A5 24 LDA nslctl4351 FD078C 30 0C BMI ?024352 FD078E 85 28 STA rclip4353 FD0790 A5 08 LDA pp84354 FD0792 85 06 STA pp64355 FD0794 A4 0E LDY ix84356 FD0796 84 0D STY ix64357 FD0798 80 1F bra ?044358 FD079A 49 FF FF ?02: EOR #$FFFF4359 FD079D 1A inc a4360 FD079E 85 28 STA rclip4361 FD07A0 ACC084362 FD07A0 E2 20 sep #PMFLAG4363 .LONGA off4364 .MNLIST4365 FD07A2 20 70 0F JSR nextln4366 FD07A5 A5 15 LDA ppage4367 FD07A7 85 06 STA pp6Tue Jul 17 11:00:22 2018 Page 324368 FD07A9 A5 16 LDA ppage+14369 FD07AB 85 07 STA pp6+14370 FD07AD A5 17 LDA ixb4371 FD07AF 85 0D STA ix64372 FD07B1 20 4A 0E JSR pp2mv4373 FD07B4 20 70 0F JSR nextln4374 FD07B7 ACC164375 FD07B7 C2 20 rep #PMFLAG4376 .LONGA on4377 .MNLIST4378 FD07B9 A6 30 ?04: ldx ctmp24379 FD07BB F0 16 beq ?06 ; copy op: skip update cline/ncount4380 FD07BD 38 sec4381 FD07BE A5 1A lda ncount4382 FD07C0 E5 28 sbc rclip4383 FD07C2 85 1A sta ncount4384 FD07C4 A5 24 LDA nslctl4385 FD07C6 30 09 BMI ?054386 FD07C8 38 SEC4387 FD07C9 A5 1C LDA cline4388 FD07CB E5 28 SBC rclip4389 FD07CD 85 1C STA cline4390 FD07CF 80 02 bra ?064391 FD07D1 E6 1C ?05: INC cline4392 FD07D3 A5 58 ?06: LDA bka4393 FD07D5 85 53 STA pb+14394 FD07D7 A2 14 LDX #CLIPBRD*24395 FD07D9 95 6C STA bstart,X4396 FD07DB 95 82 STA bcur,X4397 FD07DD A9 05 00 LDA #BSTART4398 FD07E0 95 98 STA bndx,X4399 FD07E2 A5 28 lda rclip4400 FD07E4 95 C4 sta btot,x4401 FD07E6 74 AE stz bline,x4402 FD07E8 A5 15 LDA ppage4403 FD07EA C5 06 CMP pp64404 FD07EC ACC084405 FD07EC E2 20 sep #PMFLAG4406 .LONGA off4407 .MNLIST4408 FD07EE D0 03 BNE ?074409 FD07F0 4C BB 08 JMP ?13 ; all in the same block4410 FD07F3 A6 30 ?07: ldx ctmp24411 FD07F5 D0 03 bne ?07a ; cut op4412 FD07F7 4C 19 09 jmp ?20 ; copy op4413 FD07FA A0 00 ?07a: LDY #$004414 FD07FC CPU164415 FD07FC C2 30 rep #(PMFLAG.OR.PXFLAG)4416 .LONGA on4417 .LONGI on4418 .MNLIST4419 FD07FE A5 5A LDA bkb ; take off bkb from free list4420 FD0800 85 56 STA pd+14421 FD0802 A7 55 lda [pd]4422 FD0804 85 10 STA pfree4423 FD0806 A7 14 lda [pblk]4424 FD0808 87 52 STA [pb] ; pb->next = cur->nextTue Jul 17 11:00:22 2018 Page 334425 FD080A 85 56 STA pd+1 ; pd = cur->next4426 FD080C 98 TYA4427 FD080D C8 INY4428 FD080E C8 INY4429 FD080F 97 52 STA [pb],Y ; pb->prev = NULL4430 FD0811 A5 53 LDA pb+14431 FD0813 97 55 STA [pd],Y ; cur->next->prev = pb4432 FD0815 CPU084433 FD0815 E2 30 sep #(PMFLAG.OR.PXFLAG)4434 .LONGA off4435 .LONGI off4436 .MNLIST4437 FD0817 C8 INY4438 FD0818 C8 INY ; index field4439 FD0819 B7 14 lda [pblk],y4440 FD081B 85 62 sta tmp64441 FD081D 38 SEC4442 FD081E E5 17 SBC ixb4443 FD0820 18 CLC4444 FD0821 69 05 ADC #BSTART4445 FD0823 97 52 STA [pb],Y4446 FD0825 BB tyx ; BNDX4447 FD0826 A4 17 LDY ixb4448 FD0828 88 DEY4449 FD0829 84 63 STY tmp74450 FD082B E6 63 ?08: INC tmp74451 FD082D E8 inx4452 FD082E A4 63 LDY tmp74453 FD0830 B7 14 lda [pblk],y4454 FD0832 9B txy4455 FD0833 97 52 STA [pb],Y4456 FD0835 A5 62 lda tmp64457 FD0837 C5 63 CMP tmp74458 FD0839 D0 F0 BNE ?084459 FD083B ACC164460 FD083B C2 20 rep #PMFLAG4461 .LONGA on4462 .MNLIST4463 FD083D A5 5A LDA bkb4464 FD083F 85 56 STA pd+14465 FD0841 A5 06 LDA pp64466 FD0843 85 53 STA pb+14467 FD0845 A7 52 lda [pb]4468 FD0847 87 55 STA [pd]4469 FD0849 ACC084470 FD0849 E2 20 sep #PMFLAG4471 .LONGA off4472 .MNLIST4473 FD084B A0 04 LDY #BNDX4474 FD084D B7 52 lda [pb],y4475 FD084F 85 62 sta tmp64476 FD0851 38 SEC4477 FD0852 E5 0D SBC ix64478 FD0854 18 CLC4479 FD0855 69 05 ADC #BSTART4480 FD0857 97 55 STA [pd],Y4481 FD0859 BB tyxTue Jul 17 11:00:22 2018 Page 344482 FD085A A4 0D LDY ix64483 FD085C 88 DEY4484 FD085D 84 63 STY tmp74485 FD085F E6 63 ?09: INC tmp74486 FD0861 E8 inx4487 FD0862 A4 63 LDY tmp74488 FD0864 B7 52 lda [pb],y4489 FD0866 9B txy4490 FD0867 97 55 STA [pd],Y4491 FD0869 A5 62 lda tmp64492 FD086B C5 63 CMP tmp74493 FD086D D0 F0 BNE ?094494 FD086F A0 04 LDY #BNDX4495 FD0871 A5 0D LDA ix64496 FD0873 97 52 STA [pb],Y4497 FD0875 A8 TAY4498 FD0876 A9 00 LDA #$004499 FD0878 97 52 STA [pb],Y4500 FD087A EB xba4501 FD087B A9 00 lda #04502 FD087D ACC164503 FD087D C2 20 rep #PMFLAG4504 .LONGA on4505 .MNLIST4506 FD087F 87 52 STA [pb] ; next = NULL4507 FD0881 A0 02 LDY #BPREV4508 FD0883 A5 15 LDA ppage4509 FD0885 97 55 STA [pd],Y4510 FD0887 A5 56 LDA pd+14511 FD0889 87 14 STA [pblk]4512 FD088B A7 55 lda [pd]4513 FD088D F0 06 BEQ ?104514 FD088F 85 53 STA pb+14515 FD0891 A5 56 LDA pd+14516 FD0893 97 52 STA [pb],Y4517 FD0895 ?10: ACC084518 FD0895 E2 20 sep #PMFLAG4519 .LONGA off4520 .MNLIST4521 FD0897 A5 17 LDA ixb4522 FD0899 C9 05 CMP #BSTART4523 FD089B D0 0A BNE ?114524 FD089D A5 16 LDA ppage+14525 FD089F EB xba4526 FD08A0 A5 15 lda ppage4527 FD08A2 20 74 10 JSR delblk4528 FD08A5 80 05 bra ?124529 FD08A7 3A ?11: dec a4530 FD08A8 A0 04 LDY #BNDX4531 FD08AA 97 14 STA [pblk],Y4532 FD08AC A5 56 ?12: LDA pd+14533 FD08AE 85 15 STA ppage4534 FD08B0 A5 57 lda pd+24535 FD08B2 85 16 sta ppage+14536 FD08B4 A9 05 LDA #BSTART4537 FD08B6 85 17 STA ixb4538 FD08B8 4C 32 04 JMP updwinTue Jul 17 11:00:22 2018 Page 3545394540 FD08BB A4 17 ?13: LDY ixb4541 FD08BD 84 63 STY tmp74542 FD08BF A2 05 LDX #BSTART4543 FD08C1 A4 63 ?14: LDY tmp74544 FD08C3 B7 14 lda [pblk],y4545 FD08C5 9B txy4546 FD08C6 97 52 STA [pb],Y4547 FD08C8 E6 63 INC tmp74548 FD08CA E8 inx4549 FD08CB A5 63 LDA tmp74550 FD08CD C5 0D CMP ix64551 FD08CF D0 F0 BNE ?144552 FD08D1 A0 00 LDY #$004553 FD08D3 CPU164554 FD08D3 C2 30 rep #(PMFLAG.OR.PXFLAG)4555 .LONGA on4556 .LONGI on4557 .MNLIST4558 FD08D5 98 tya4559 FD08D6 87 52 STA [pb] ; next = NULL4560 FD08D8 C8 INY4561 FD08D9 C8 iny4562 FD08DA 97 52 STA [pb],Y ; prev = NULL4563 FD08DC CPU084564 FD08DC E2 30 sep #(PMFLAG.OR.PXFLAG)4565 .LONGA off4566 .LONGI off4567 .MNLIST4568 FD08DE 8A txa4569 FD08DF C8 INY4570 FD08E0 C8 iny4571 FD08E1 97 52 STA [pb],Y ; index4572 FD08E3 A8 TAY4573 FD08E4 A9 00 LDA #$004574 FD08E6 97 52 STA [pb],Y ; buffer terminator4575 FD08E8 A9 02 lda #$02 ; cut operation ?4576 FD08EA 24 33 bit edtfg4577 FD08EC D0 05 bne ?14a ; yes4578 FD08EE 20 4A 0E jsr pp2mv ; restore current buffer pointer4579 FD08F1 80 23 bra ?164580 FD08F3 A0 04 ?14a: LDY #BNDX ; move back4581 FD08F5 B7 14 lda [pblk],y4582 FD08F7 85 62 sta tmp64583 FD08F9 A4 0D LDY ix64584 FD08FB 88 DEY4585 FD08FC 84 63 STY tmp74586 FD08FE A6 17 LDX ixb4587 FD0900 CA DEX4588 FD0901 E6 63 ?15: INC tmp74589 FD0903 E8 inx4590 FD0904 A4 63 LDY tmp74591 FD0906 B7 14 lda [pblk],y4592 FD0908 9B txy4593 FD0909 97 14 STA [pblk],Y4594 FD090B A5 62 lda tmp64595 FD090D C5 63 CMP tmp7Tue Jul 17 11:00:22 2018 Page 364596 FD090F D0 F0 BNE ?154597 FD0911 8A txa4598 FD0912 A0 04 LDY #BNDX4599 FD0914 97 14 STA [pblk],Y4600 FD0916 4C 32 04 ?16: JMP updwin46014602 FD0919 A2 00 ?20: ldx #04603 FD091B CPU16 ; count needs block's4604 FD091B C2 30 rep #(PMFLAG.OR.PXFLAG)4605 .LONGA on4606 .LONGI on4607 .MNLIST4608 FD091D A5 5A LDA bkb ; take off bkb from free list4609 FD091F 85 56 STA pd+14610 FD0921 A7 55 lda [pd]4611 FD0923 85 10 STA pfree4612 FD0925 A5 15 lda ppage4613 FD0927 85 56 ?22: sta pd+14614 FD0929 A7 55 lda [pd] ; next4615 FD092B C5 06 cmp pp6 ; loop until last block4616 FD092D F0 03 beq ?24 ; end loop4617 FD092F E8 inx4618 FD0930 80 F5 bra ?224619 FD0932 8A ?24: txa4620 FD0933 F0 13 beq ?28 ; no more blocks need4621 FD0935 20 37 0B jsr chkfree ; check needs blocks4622 FD0938 A9 00 00 lda #04623 FD093B 90 0B bcc ?28 ; ok4624 FD093D A5 58 LDA bka ; restore free list4625 FD093F 85 10 STA pfree4626 FD0941 CPU084627 FD0941 E2 30 sep #(PMFLAG.OR.PXFLAG)4628 .LONGA off4629 .LONGI off4630 .MNLIST4631 FD0943 A2 04 LDX #$04 ; Not enough memory error4632 FD0945 4C 43 05 JMP error4633 FD0948 ?28: LONG_ON ; remember here A/M and X/Y 16 bit4634 .LONGA on4635 .LONGI on4636 .MNLIST4637 FD0948 A0 02 00 ldy #BPREV4638 FD094B 97 52 STA [pb],Y ; prev = NULL4639 FD094D CPU084640 FD094D E2 30 sep #(PMFLAG.OR.PXFLAG)4641 .LONGA off4642 .LONGI off4643 .MNLIST4644 FD094F C8 INY4645 FD0950 C8 INY ; index field4646 FD0951 B7 14 lda [pblk],y4647 FD0953 85 62 sta tmp6 ; copy tmp6 - ixb + 1 bytes...4648 FD0955 38 SEC ; ...from pblk to pb...4649 FD0956 E5 17 SBC ixb ; ...starting from ixb4650 FD0958 18 CLC4651 FD0959 69 05 ADC #BSTART4652 FD095B 97 52 STA [pb],YTue Jul 17 11:00:22 2018 Page 374653 FD095D BB tyx ; BNDX4654 FD095E A4 17 LDY ixb4655 FD0960 88 DEY4656 FD0961 84 63 STY tmp74657 FD0963 E6 63 ?30: INC tmp74658 FD0965 E8 inx4659 FD0966 A4 63 LDY tmp74660 FD0968 B7 14 lda [pblk],y4661 FD096A 9B txy4662 FD096B 97 52 STA [pb],Y4663 FD096D A5 62 lda tmp64664 FD096F C5 63 CMP tmp74665 FD0971 D0 F0 BNE ?304666 FD0973 ACC164667 FD0973 C2 20 rep #PMFLAG4668 .LONGA on4669 .MNLIST4670 FD0975 A7 14 LDA [pblk] ; next4671 FD0977 85 56 ?32: STA pd+14672 FD0979 C5 06 cmp pp64673 FD097B F0 24 beq ?364674 FD097D A5 53 LDA pb+14675 FD097F 48 PHA4676 FD0980 20 DF 0A JSR newblk ; no give error now!4677 FD0983 87 52 STA [pb] ; next4678 FD0985 85 53 STA pb+14679 FD0987 A7 52 lda [pb]4680 FD0989 85 10 STA pfree4681 FD098B 68 PLA4682 FD098C A0 02 ldy #BPREV4683 FD098E 97 52 STA [pb],Y4684 FD0990 C8 INY4685 FD0991 C8 iny4686 FD0992 ACC084687 FD0992 E2 20 sep #PMFLAG4688 .LONGA off4689 .MNLIST4690 FD0994 B7 55 ?34: lda [pd],y4691 FD0996 97 52 STA [pb],Y4692 FD0998 C8 INY4693 FD0999 D0 F9 BNE ?344694 FD099B ACC164695 FD099B C2 20 rep #PMFLAG4696 .LONGA on4697 .MNLIST4698 FD099D A7 55 lda [pd]4699 FD099F 80 D6 bra ?324700 FD09A1 A5 53 ?36: lda pb+14701 FD09A3 85 58 sta bka4702 FD09A5 A5 5A LDA bkb4703 FD09A7 87 52 sta [pb]4704 FD09A9 85 53 STA pb+14705 FD09AB A9 00 00 lda #04706 FD09AE 87 52 sta [pb]4707 FD09B0 A0 02 ldy #BPREV4708 FD09B2 A5 58 lda bka4709 FD09B4 97 52 sta [pb],yTue Jul 17 11:00:22 2018 Page 384710 FD09B6 ACC084711 FD09B6 E2 20 sep #PMFLAG4712 .LONGA off4713 .MNLIST4714 FD09B8 A0 04 LDY #BNDX4715 FD09BA C8 ?38: iny4716 FD09BB B7 55 lda [pd],y4717 FD09BD 97 52 STA [pb],Y4718 FD09BF C4 0D cpy ix64719 FD09C1 D0 F7 BNE ?384720 FD09C3 A0 04 LDY #BNDX4721 FD09C5 A5 0D LDA ix64722 FD09C7 97 52 STA [pb],Y4723 FD09C9 A8 TAY4724 FD09CA A9 00 LDA #$004725 FD09CC 97 52 STA [pb],Y4726 FD09CE 20 4A 0E jsr pp2mv4727 FD09D1 4C 32 04 jmp updwin47284729 ; PASTE4730 ; P215E:4731 FD09D4 pastesel:4732 FD09D4 24 33 bit edtfg4733 FD09D6 50 03 bvc ?004734 FD09D8 4C 41 07 jmp cberr ; clipboard error4735 FD09DB A5 23 ?00: LDA fslct4736 FD09DD D0 1C bne ?01 ; no selection4737 FD09DF A2 14 LDX #CLIPBRD*24738 FD09E1 ACC16CLC4739 FD09E1 C2 21 rep #(PMFLAG.OR.PCFLAG)4740 .LONGA on4741 .MNLIST4742 FD09E3 B5 6C LDA bstart,X4743 FD09E5 F0 12 beq ?00b ; no selected text4744 FD09E7 B5 C4 lda btot,x ; # lines on clipboard4745 FD09E9 65 1A adc ncount ; check overflow4746 FD09EB B0 05 bcs ?00a ; overflow4747 FD09ED C9 FD FF cmp #MAXLINES4748 FD09F0 90 0A bcc ?024749 FD09F2 ?00a: ACC084750 FD09F2 E2 20 sep #PMFLAG4751 .LONGA off4752 .MNLIST4753 FD09F4 A2 06 ldx #6 ; can't paste text: lines count overflow4754 FD09F6 4C 43 05 jmp error4755 FD09F9 ?00b: ACC084756 FD09F9 E2 20 sep #PMFLAG4757 .LONGA off4758 .MNLIST4759 FD09FB 60 ?01: rts4760 ?02: .LONGA on ; remember here A/M 16 bit4761 FD09FC B5 6C LDA bstart,X ; block's count4762 FD09FE 20 F1 0E JSR blkcnt4763 FD0A01 1A inc a ; one more4764 FD0A02 20 37 0B jsr chkfree ; check free blocks4765 FD0A05 ACC084766 FD0A05 E2 20 sep #PMFLAGTue Jul 17 11:00:22 2018 Page 394767 .LONGA off4768 .MNLIST4769 FD0A07 90 05 bcc ?034770 FD0A09 A2 04 LDX #$04 ; Not enough memory error4771 FD0A0B 4C 43 05 JMP error4772 FD0A0E 20 AD 0E ?03: JSR pp8mv4773 FD0A11 64 52 stz pb4774 FD0A13 64 55 stz pd4775 FD0A15 ACC16CLC4776 FD0A15 C2 21 rep #(PMFLAG.OR.PCFLAG)4777 .LONGA on4778 .MNLIST4779 FD0A17 A2 14 LDX #CLIPBRD*24780 FD0A19 B5 C4 lda btot,x4781 FD0A1B 85 28 sta rclip4782 FD0A1D A5 1C LDA cline4783 FD0A1F 65 28 ADC rclip4784 FD0A21 85 1C STA cline4785 FD0A23 18 clc4786 FD0A24 A5 1A lda ncount4787 FD0A26 65 28 adc rclip4788 FD0A28 85 1A sta ncount4789 FD0A2A A7 14 lda [pblk] ; next4790 FD0A2C 48 PHA4791 FD0A2D A5 15 LDA ppage4792 FD0A2F 85 53 STA pb+14793 FD0A31 A2 14 LDX #CLIPBRD*24794 FD0A33 B5 6C LDA bstart,X4795 FD0A35 85 56 ?03a: STA pd+14796 FD0A37 A5 53 LDA pb+14797 FD0A39 48 PHA4798 FD0A3A 20 DF 0A JSR newblk ; no give error now!4799 FD0A3D 87 52 STA [pb] ; next4800 FD0A3F 85 53 STA pb+14801 FD0A41 A7 52 lda [pb]4802 FD0A43 85 10 STA pfree4803 FD0A45 68 PLA4804 FD0A46 A0 02 ldy #BPREV4805 FD0A48 97 52 STA [pb],Y4806 FD0A4A C8 INY4807 FD0A4B C8 iny4808 FD0A4C ACC084809 FD0A4C E2 20 sep #PMFLAG4810 .LONGA off4811 .MNLIST4812 FD0A4E B7 55 ?04: lda [pd],y4813 FD0A50 97 52 STA [pb],Y4814 FD0A52 C8 INY4815 FD0A53 D0 F9 BNE ?044816 FD0A55 ACC164817 FD0A55 C2 20 rep #PMFLAG4818 .LONGA on4819 .MNLIST4820 FD0A57 A7 55 lda [pd]4821 FD0A59 D0 DA BNE ?03a4822 FD0A5B A5 53 LDA pb+14823 FD0A5D 85 58 STA bkaTue Jul 17 11:00:22 2018 Page 404824 FD0A5F 20 DF 0A JSR newblk4825 FD0A62 87 52 STA [pb]4826 FD0A64 85 53 STA pb+14827 FD0A66 A7 52 lda [pb]4828 FD0A68 85 10 STA pfree4829 FD0A6A A5 58 LDA bka4830 FD0A6C A0 02 ldy #BPREV4831 FD0A6E 97 52 STA [pb],Y4832 FD0A70 68 PLA4833 FD0A71 87 52 STA [pb]4834 FD0A73 F0 06 BEQ ?054835 FD0A75 85 56 STA pd+14836 FD0A77 A5 53 LDA pb+14837 FD0A79 97 55 STA [pd],Y4838 FD0A7B ?05: ACC084839 FD0A7B E2 20 sep #PMFLAG4840 .LONGA off4841 .MNLIST4842 FD0A7D A4 17 LDY ixb4843 FD0A7F 88 DEY4844 FD0A80 84 63 STY tmp74845 FD0A82 A2 04 LDX #BNDX4846 FD0A84 E6 63 ?06: INC tmp74847 FD0A86 E8 inx4848 FD0A87 A4 63 LDY tmp74849 FD0A89 B7 14 lda [pblk],y4850 FD0A8B 9B txy4851 FD0A8C 97 52 STA [pb],Y4852 FD0A8E A0 04 LDY #BNDX4853 FD0A90 B7 14 lda [pblk],y4854 FD0A92 C5 63 CMP tmp74855 FD0A94 D0 EE BNE ?064856 FD0A96 8A txa4857 FD0A97 97 52 STA [pb],Y4858 FD0A99 A5 17 LDA ixb4859 FD0A9B C9 05 CMP #BSTART4860 FD0A9D D0 0A BNE ?074861 FD0A9F A5 16 LDA ppage+14862 FD0AA1 EB xba4863 FD0AA2 A5 15 lda ppage4864 FD0AA4 20 74 10 JSR delblk4865 FD0AA7 80 05 bra ?084866 FD0AA9 3A ?07: dec a4867 FD0AAA A0 04 LDY #BNDX4868 FD0AAC 97 14 STA [pblk],Y4869 FD0AAE ?08: ACC164870 FD0AAE C2 20 rep #PMFLAG4871 .LONGA on4872 .MNLIST4873 FD0AB0 A5 53 LDA pb+14874 FD0AB2 85 15 STA ppage4875 FD0AB4 A0 05 LDY #BSTART4876 FD0AB6 84 17 STY ixb4877 FD0AB8 A5 58 LDA bka4878 FD0ABA 85 56 STA pd+14879 FD0ABC ACC084880 FD0ABC E2 20 sep #PMFLAGTue Jul 17 11:00:22 2018 Page 414881 .LONGA off4882 .MNLIST4883 FD0ABE 88 dey4884 FD0ABF B7 55 lda [pd],y4885 FD0AC1 C9 05 CMP #BSTART4886 FD0AC3 D0 0A BNE ?094887 FD0AC5 A5 57 LDA pd+24888 FD0AC7 EB xba4889 FD0AC8 A5 56 lda pd+14890 FD0ACA 20 74 10 JSR delblk4891 FD0ACD 80 03 bra ?104892 FD0ACF 3A ?09: dec a4893 FD0AD0 97 55 STA [pd],Y4894 FD0AD2 A5 20 ?10: LDA srow4895 FD0AD4 C9 06 CMP #$064896 FD0AD6 B0 04 BCS ?114897 FD0AD8 A9 06 LDA #$064898 FD0ADA 85 20 STA srow4899 FD0ADC 4C 32 04 ?11: JMP updwin49004901 ;---------------------------------------------------49024903 ; get new block of memory4904 ; out: C = page pointer to new block or NULL4905 ; CF = 1 if no left memory4906 ; can be called in both 8/16 bit4907 ; P230E:4908 FD0ADF newblk:4909 FD0ADF 08 php ; save 8/16 bit state4910 FD0AE0 CPU164911 FD0AE0 C2 30 rep #(PMFLAG.OR.PXFLAG)4912 .LONGA on4913 .LONGI on4914 .MNLIST4915 FD0AE2 A5 10 LDA pfree ; get next free block4916 FD0AE4 D0 4E BNE ?10 ; OK4917 FD0AE6 20 C0 10 ?02: JSR garbc ; try to free memory4918 FD0AE9 B0 FB BCS ?024919 FD0AEB A5 10 LDA pfree4920 FD0AED D0 45 BNE ?10 ; OK4921 FD0AEF A9 10 00 lda #MINPAGE ; try to allocate pages4922 FD0AF2 AA tax ; X = # pages4923 FD0AF3 18 clc4924 FD0AF4 SETBRK ; increase break level4925 FD0AF4 02 7F cop FN_SETBRK4926 .MNLIST4927 FD0AF6 90 08 bcc ?04 ; ok4928 FD0AF8 AA tax ; max. # allocable pages4929 FD0AF9 F0 2A beq ?08 ; no room !4930 FD0AFB 18 clc ; allocate max. available4931 FD0AFC SETBRK4932 FD0AFC 02 7F cop FN_SETBRK4933 .MNLIST4934 FD0AFE B0 25 bcs ?08 ; now will no give error in fact!4935 FD0B00 85 10 ?04: sta pfree ; new free list4936 FD0B02 CA dex4937 FD0B03 86 5F stx lpte ; # pages - 1Tue Jul 17 11:00:22 2018 Page 424938 FD0B05 65 5F adc lpte ; last page! (here CF = 0)4939 FD0B07 85 5F sta lpte ; save last page ptr4940 FD0B09 INDEX084941 FD0B09 E2 10 sep #PXFLAG4942 .LONGI off4943 .MNLIST4944 FD0B0B A2 00 ldx #04945 FD0B0D 86 5C stx lptc ; clear low pointer4946 FD0B0F INDEX16 ; X = 04947 FD0B0F C2 10 rep #PXFLAG4948 .LONGI on4949 .MNLIST4950 FD0B11 A5 10 lda pfree4951 FD0B13 85 5D ?06: sta lptc+1 ; init new free list4952 FD0B15 1A inc a ; next page4953 FD0B16 87 5C sta [lptc] ; next field in free list4954 FD0B18 C5 5F cmp lpte ; till last page4955 FD0B1A D0 F7 bne ?064956 FD0B1C 85 5D sta lptc+14957 FD0B1E 8A txa ; end of list4958 FD0B1F 87 5C sta [lptc]4959 FD0B21 A5 10 lda pfree ; return block pointer4960 FD0B23 80 0F bra ?104961 FD0B25 ?08: CPU084962 FD0B25 E2 30 sep #(PMFLAG.OR.PXFLAG)4963 .LONGA off4964 .LONGI off4965 .MNLIST4966 FD0B27 A2 01 LDX #$01 ; 'out of memory' error4967 FD0B29 20 43 05 JSR error4968 FD0B2C A9 00 lda #0 ; return NULL pointer4969 FD0B2E EB xba4970 FD0B2F A9 00 lda #04971 FD0B31 28 plp4972 FD0B32 38 sec ; error flag4973 FD0B33 60 rts4974 FD0B34 28 ?10: plp ; return pointer4975 FD0B35 18 clc4976 FD0B36 LONG_OFF4977 .LONGA off4978 .LONGI off4979 .MNLIST4980 FD0B36 60 RTS49814982 ; check if free list contain requested number of free blocks4983 ; and add blocks allocating more memory if need4984 ; in: C = number of requested free block4985 ; out: CF = 0 if free list is large enough or if more blocks4986 ; was succesfully added4987 ; CF = 1 if free list is not large enough and more blocks4988 ; can't be added4989 ; C = number of blocks that can be added if CF = 14990 ; can be called in both 8/16 bit4991 FD0B37 chkfree:4992 FD0B37 08 php ; save 8/16 bit status4993 FD0B38 64 5C stz lptc ; clear low pointer4994 FD0B3A CPU16Tue Jul 17 11:00:22 2018 Page 434995 FD0B3A C2 30 rep #(PMFLAG.OR.PXFLAG)4996 .LONGA on4997 .LONGI on4998 .MNLIST4999 FD0B3C 85 60 sta lpte+1 ; # blocks to add5000 FD0B3E A5 10 lda pfree5001 FD0B40 F0 07 beq ?02 ; free list is empty5002 FD0B42 20 F1 0E jsr blkcnt ; how much free blocks?5003 FD0B45 C5 60 cmp lpte+15004 FD0B47 B0 2C bcs ?08 ; ok, requested blocks are free5005 FD0B49 85 5D ?02: sta lptc+15006 FD0B4B 38 sec5007 FD0B4C A5 60 lda lpte+1 ; how much blocks to add?5008 FD0B4E E5 5D sbc lptc+15009 FD0B50 AA tax5010 FD0B51 18 clc ; set a new break level5011 FD0B52 SETBRK5012 FD0B52 02 7F cop FN_SETBRK5013 .MNLIST5014 FD0B54 90 03 bcc ?04 ; ok, no error5015 FD0B56 28 plp5016 FD0B57 38 sec ; return an error5017 FD0B58 60 rts5018 FD0B59 A8 ?04: tay ; new pointer5019 FD0B5A CA dex5020 FD0B5B 86 60 stx lpte+1 ; # pages - 15021 FD0B5D 65 60 adc lpte+1 ; last page! (here CF = 0)5022 FD0B5F 85 60 sta lpte+1 ; save last page ptr5023 FD0B61 98 tya5024 FD0B62 48 pha ; save new free list pointer5025 FD0B63 85 5D ?06: sta lptc+1 ; init new free list5026 FD0B65 1A inc a ; next page5027 FD0B66 87 5C sta [lptc] ; next field in free list5028 FD0B68 C5 60 cmp lpte+1 ; till last page5029 FD0B6A D0 F7 bne ?065030 FD0B6C 85 5D sta lptc+15031 FD0B6E A5 10 lda pfree ; link old free list5032 FD0B70 87 5C sta [lptc]5033 FD0B72 68 pla5034 FD0B73 85 10 sta pfree ; set new free list5035 FD0B75 28 ?08: plp5036 FD0B76 18 clc5037 FD0B77 LONG_OFF5038 .LONGA off5039 .LONGI off5040 .MNLIST5041 FD0B77 60 rts50425043 ; free one buffer5044 ; in: A = buffer number5045 ; out: CF = 1 if fail to allocate a new block5046 ; P2D34:5047 FD0B78 freebuf:5048 FD0B78 85 50 sta ebtmp ; save buffer number to free5049 FD0B7A 0A asl a5050 FD0B7B 85 51 sta ebtmp2 ; save index5051 FD0B7D AA TAX ; table indexTue Jul 17 11:00:22 2018 Page 445052 FD0B7E 64 5C stz lptc ; prepare pointer5053 FD0B80 ACC165054 FD0B80 C2 20 rep #PMFLAG5055 .LONGA on5056 .MNLIST5057 FD0B82 B5 6C LDA bstart,X5058 FD0B84 F0 6D beq ?02 ; nothing to do5059 FD0B86 85 5D STA lptc+15060 FD0B88 74 6C stz bstart,x ; clear start block5061 FD0B8A 74 82 stz bcur,x ; and all buffer data5062 FD0B8C 74 98 stz bndx,x5063 FD0B8E 74 AE stz bline,x5064 FD0B90 74 C4 stz btot,x5065 FD0B92 A6 50 ldx ebtmp5066 FD0B94 86 58 stx bka5067 FD0B96 A2 00 ldx #05068 FD0B98 86 59 stx bka+15069 FD0B9A A5 58 lda bka5070 FD0B9C 0A asl a5071 FD0B9D 0A asl a5072 FD0B9E 65 58 adc bka5073 FD0BA0 0A asl a ; x 105074 FD0BA1 0A asl a5075 FD0BA2 0A asl a5076 FD0BA3 0A asl a ; x 805077 FD0BA4 69 00 C8 adc #EDBUFNAM5078 FD0BA7 85 52 sta pb5079 FD0BA9 ACC085080 FD0BA9 E2 20 sep #PMFLAG5081 .LONGA off5082 .MNLIST5083 FD0BAB A9 01 lda #^EDBUFNAM5084 FD0BAD 85 54 sta pb+25085 FD0BAF A9 00 lda #05086 FD0BB1 87 52 sta [pb]5087 FD0BB3 8F 00 CD 01 sta >EDCURFILE5088 FD0BB7 ACC165089 FD0BB7 C2 20 rep #PMFLAG5090 .LONGA on5091 .MNLIST5092 FD0BB9 A7 5C ?01: lda [lptc] ; put all buffer blocks in free list5093 FD0BBB 48 PHA ; next5094 FD0BBC A5 10 LDA pfree5095 FD0BBE 87 5C STA [lptc] ; next free5096 FD0BC0 A5 5D LDA lptc+15097 FD0BC2 85 10 STA pfree ; update free list5098 FD0BC4 68 PLA5099 FD0BC5 85 5D STA lptc+1 ; next block5100 FD0BC7 D0 F0 BNE ?01 ; loop until next = NULL5101 FD0BC9 A6 50 ldx ebtmp ; if this is not the current buffer...5102 FD0BCB E4 0F CPX xbuf5103 FD0BCD D0 24 BNE ?02 ; ...done5104 ; ...otherwise alloc one block...5105 FD0BCF 20 DF 0A JSR newblk ; ...for a new empty buffer5106 FD0BD2 B0 1F bcs ?02 ; error: no left memory5107 FD0BD4 85 4A sta wtmp ; save new block5108 FD0BD6 A6 51 ldx ebtmp2Tue Jul 17 11:00:22 2018 Page 455109 FD0BD8 20 AA 0C JSR bufinit ; init new buffer5110 FD0BDB B5 6C LDA bstart,X ; set up new buffer5111 FD0BDD 85 12 STA pbuf5112 FD0BDF B5 82 LDA bcur,X5113 FD0BE1 85 15 STA ppage5114 FD0BE3 B5 98 LDA bndx,X5115 FD0BE5 85 17 STA ixb5116 FD0BE7 B5 AE LDA bline,X5117 FD0BE9 85 1C STA cline5118 FD0BEB B5 C4 LDA btot,X5119 FD0BED 85 1A STA ncount5120 FD0BEF A0 00 ldy #$005121 FD0BF1 84 20 sty srow5122 FD0BF3 ?02: ACC085123 FD0BF3 E2 20 sep #PMFLAG5124 .LONGA off5125 .MNLIST5126 FD0BF5 60 ?03: RTS51275128 ; switch to another buffer5129 ; in: A = buffer number5130 ; out: CF = 1 if fail to allocate a new block5131 ; P2D86:5132 FD0BF6 switchb:5133 FD0BF6 48 pha ; save new buffer number5134 FD0BF7 0A asl a5135 FD0BF8 AA tax ; X = buffer table index5136 FD0BF9 ACC165137 FD0BF9 C2 20 rep #PMFLAG5138 .LONGA on5139 .MNLIST5140 FD0BFB B5 6C lda bstart,x5141 FD0BFD D0 0B bne ?02 ; ok, buffer already initialized5142 FD0BFF 20 DF 0A jsr newblk ; get a new block5143 FD0C02 90 04 bcc ?01 ; OK5144 FD0C04 ACC085145 FD0C04 E2 20 sep #PMFLAG5146 .LONGA off5147 .MNLIST5148 FD0C06 68 pla ; error -- no memory left5149 FD0C07 60 rts ; exit with CF = 15150 FD0C08 85 4A ?01: sta wtmp ; save new page pointer5151 FD0C0A ?02: ACC085152 FD0C0A E2 20 sep #PMFLAG5153 .LONGA off5154 .MNLIST5155 FD0C0C A6 0F ldx xbuf ; current buffer index5156 FD0C0E 30 47 bmi ?03 ; no current editor buffer5157 FD0C10 8A txa5158 FD0C11 0A asl a5159 FD0C12 AA tax5160 FD0C13 ACC16CLC5161 FD0C13 C2 21 rep #(PMFLAG.OR.PCFLAG)5162 .LONGA on5163 .MNLIST5164 FD0C15 A5 12 lda pbuf ; save in table current buffer data5165 FD0C17 95 6C sta bstart,xTue Jul 17 11:00:22 2018 Page 465166 FD0C19 A5 15 lda ppage5167 FD0C1B 95 82 sta bcur,x5168 FD0C1D A5 17 lda ixb ; index + flag5169 FD0C1F 95 98 sta bndx,x5170 FD0C21 A5 1C lda cline5171 FD0C23 95 AE sta bline,x5172 FD0C25 A5 1A lda ncount5173 FD0C27 95 C4 sta btot,x5174 FD0C29 A6 0F ldx xbuf5175 FD0C2B 86 58 stx bka5176 FD0C2D A2 00 ldx #05177 FD0C2F 86 59 stx bka+15178 FD0C31 A5 58 lda bka5179 FD0C33 0A asl a5180 FD0C34 0A asl a5181 FD0C35 65 58 adc bka5182 FD0C37 0A asl a ; x 105183 FD0C38 0A asl a5184 FD0C39 0A asl a5185 FD0C3A 0A asl a ; x 805186 FD0C3B 69 00 C8 adc #EDBUFNAM5187 FD0C3E 85 52 sta pb5188 FD0C40 ACC085189 FD0C40 E2 20 sep #PMFLAG5190 .LONGA off5191 .MNLIST5192 FD0C42 A9 01 lda #^EDBUFNAM5193 FD0C44 85 54 sta pb+25194 FD0C46 A2 00 ldx #05195 FD0C48 9B txy5196 FD0C49 BF 00 CD 01 ?lp1: lda >EDCURFILE,x5197 FD0C4D 97 52 sta [pb],y5198 FD0C4F F0 06 beq ?035199 FD0C51 E8 inx5200 FD0C52 C8 iny5201 FD0C53 C0 50 cpy #MAXFNAME5202 FD0C55 90 F2 bcc ?lp15203 FD0C57 68 ?03: pla5204 FD0C58 85 0F sta xbuf ; set new current buffer5205 FD0C5A 0A asl a5206 FD0C5B AA tax ; table index access5207 FD0C5C ACC16CLC5208 FD0C5C C2 21 rep #(PMFLAG.OR.PCFLAG)5209 .LONGA on5210 .MNLIST5211 FD0C5E B5 6C lda bstart,x5212 FD0C60 D0 06 bne ?045213 FD0C62 20 AA 0C jsr bufinit5214 FD0C65 18 clc5215 FD0C66 B5 6C lda bstart,x5216 FD0C68 85 12 ?04: sta pbuf ; start buffer5217 FD0C6A B5 82 lda bcur,x5218 FD0C6C 85 15 sta ppage ; current block5219 FD0C6E B5 98 lda bndx,x5220 FD0C70 85 17 sta ixb ; block pointer + flag5221 FD0C72 B5 AE lda bline,x5222 FD0C74 85 1C sta cline ; current lineTue Jul 17 11:00:22 2018 Page 475223 FD0C76 B5 C4 lda btot,x5224 FD0C78 85 1A sta ncount ; total lines5225 FD0C7A A6 0F ldx xbuf5226 FD0C7C 86 58 stx bka5227 FD0C7E A2 00 ldx #05228 FD0C80 86 59 stx bka+15229 FD0C82 A5 58 lda bka5230 FD0C84 0A asl a5231 FD0C85 0A asl a5232 FD0C86 65 58 adc bka5233 FD0C88 0A asl a ; x 105234 FD0C89 0A asl a5235 FD0C8A 0A asl a5236 FD0C8B 0A asl a ; x 805237 FD0C8C 69 00 C8 adc #EDBUFNAM5238 FD0C8F 85 52 sta pb5239 FD0C91 ACC085240 FD0C91 E2 20 sep #PMFLAG5241 .LONGA off5242 .MNLIST5243 FD0C93 A9 01 lda #^EDBUFNAM5244 FD0C95 85 54 sta pb+25245 FD0C97 A2 00 ldx #05246 FD0C99 9B txy5247 FD0C9A B7 52 ?lp2: lda [pb],y5248 FD0C9C 9F 00 CD 01 sta >EDCURFILE,x5249 FD0CA0 F0 06 beq ?end5250 FD0CA2 E8 inx5251 FD0CA3 C8 iny5252 FD0CA4 C0 50 cpy #MAXFNAME5253 FD0CA6 90 F2 bcc ?lp25254 FD0CA8 18 ?end: clc ; no error5255 FD0CA9 60 rts52565257 ; init a new editor buffer -- init buffer table5258 ; in: X = buffer table index5259 ; wtmp = new page pointer5260 ; can be called in both 8/16 bit5261 ; P2D05:5262 FD0CAA bufinit:5263 FD0CAA 08 php5264 FD0CAB CPU085265 FD0CAB E2 30 sep #(PMFLAG.OR.PXFLAG)5266 .LONGA off5267 .LONGI off5268 .MNLIST5269 FD0CAD A0 00 ldy #05270 FD0CAF 84 5C sty lptc5271 FD0CB1 CPU165272 FD0CB1 C2 30 rep #(PMFLAG.OR.PXFLAG)5273 .LONGA on5274 .LONGI on5275 .MNLIST5276 FD0CB3 A5 4A lda wtmp ; new page pointer5277 FD0CB5 95 6C sta bstart,x ; start buffer block5278 FD0CB7 95 82 sta bcur,x ; current buffer block5279 FD0CB9 85 5D sta lptc+1 ; temp pointerTue Jul 17 11:00:22 2018 Page 485280 FD0CBB 94 AE sty bline,x ; clear current line5281 FD0CBD 94 C4 sty btot,x ; clear tot. # lines5282 FD0CBF A7 5C lda [lptc] ; next block will be in free list5283 FD0CC1 85 10 sta pfree5284 FD0CC3 98 tya5285 FD0CC4 87 5C sta [lptc] ; next = NULL5286 FD0CC6 C8 iny5287 FD0CC7 C8 iny ; Y = 25288 FD0CC8 97 5C sta [lptc],y ; prev = NULL5289 FD0CCA C8 iny5290 FD0CCB C8 iny ; Y = 4;5291 FD0CCC A9 05 00 lda #BSTART ; set pointer in block5292 FD0CCF 97 5C sta [lptc],y ; and mark end of buffer5293 FD0CD1 95 98 sta bndx,x ; flag buffer = 05294 FD0CD3 28 plp5295 FD0CD4 LONG_OFF5296 .LONGA off5297 .LONGI off5298 .MNLIST5299 FD0CD4 60 rts530053015302 ; insert <enter> code - check if lines overflow5303 FD0CD5 inscr:5304 FD0CD5 ACC165305 FD0CD5 C2 20 rep #PMFLAG5306 .LONGA on5307 .MNLIST5308 FD0CD7 A5 1A lda ncount5309 FD0CD9 1A inc a5310 FD0CDA C9 FE FF cmp #MAXLINES+15311 FD0CDD ACC085312 FD0CDD E2 20 sep #PMFLAG5313 .LONGA off5314 .MNLIST5315 FD0CDF B0 04 bcs ?025316 FD0CE1 A9 0D LDA #$0D5317 FD0CE3 80 07 bra insert ; insert byte $0D (enter key code)5318 FD0CE5 A2 07 ?02: ldx #7 ; Can't insert a new line: lines count overflow5319 FD0CE7 20 43 05 jsr error5320 FD0CEA 38 sec5321 FD0CEB 60 rts53225323 ; insert byte into buffer at position specified by ixb5324 ; in: A = byte to insert5325 ; A,X,Y preserved5326 ; P227B:5327 FD0CEC insert:5328 FD0CEC 85 4C sta ewtmp ; byte to insert5329 FD0CEE DA phx5330 FD0CEF 5A phy5331 FD0CF0 24 18 bit bflag ; chek if overwrite mode5332 FD0CF2 50 14 bvc ?00 ; default insert mode5333 FD0CF4 C9 0D cmp #$0D ; insert anyway code $0D5334 FD0CF6 F0 10 beq ?005335 FD0CF8 AA tax5336 FD0CF9 A4 17 ldy ixbTue Jul 17 11:00:22 2018 Page 495337 FD0CFB B7 14 lda [pblk],y ; A = byte at position where overwrite5338 FD0CFD F0 09 beq ?00 ; no overwrite null terminator5339 FD0CFF C9 0D cmp #$0D5340 FD0D01 F0 05 beq ?00 ; no overwrite line terminator5341 FD0D03 8A txa5342 FD0D04 97 14 sta [pblk],y ; overwrite5343 FD0D06 80 58 bra ?08 ; exit5344 FD0D08 A0 04 ?00: LDY #BNDX5345 FD0D0A B7 14 lda [pblk],y5346 FD0D0C 85 4D sta ewtmp+1 ; save current pointer5347 FD0D0E C9 FF CMP #$FF5348 FD0D10 D0 0E BNE ?02 ; ok, room for move one byte ahead5349 FD0D12 20 DF 0A JSR newblk ; alloc new block...5350 FD0D15 90 05 BCC ?01 ; ...for move bytes one room ahead5351 FD0D17 7A PLY5352 FD0D18 FA plx5353 FD0D19 A5 4C lda ewtmp5354 FD0D1B 60 RTS5355 FD0D1C ?01: ACC165356 FD0D1C C2 20 rep #PMFLAG5357 .LONGA on5358 .MNLIST5359 FD0D1E 85 4A STA wtmp ; save new block5360 FD0D20 ?02: ACC165361 FD0D20 C2 20 rep #PMFLAG5362 .LONGA on5363 .MNLIST5364 FD0D22 A5 06 LDA pp65365 FD0D24 C5 15 CMP ppage5366 FD0D26 ACC085367 FD0D26 E2 20 sep #PMFLAG5368 .LONGA off5369 .MNLIST5370 FD0D28 D0 02 BNE ?035371 FD0D2A E6 0D INC ix65372 FD0D2C A4 4D ?03 ldy ewtmp+15373 FD0D2E C8 INY5374 FD0D2F 88 ?04: DEY ; loop for move ahead5375 FD0D30 B7 14 lda [pblk],y ; A = byte to move ahead5376 FD0D32 C8 INY5377 FD0D33 D0 17 BNE ?065378 FD0D35 20 40 10 JSR addblk ; insert new block and move byte5379 FD0D38 A4 0D LDY ix65380 FD0D3A D0 0C BNE ?055381 FD0D3C A5 50 LDA lptmp2+1 ; save new block in pp65382 FD0D3E 85 06 STA pp65383 FD0D40 A5 51 LDA lptmp2+25384 FD0D42 85 07 STA pp6+15385 FD0D44 A9 05 LDA #BSTART5386 FD0D46 85 0D STA ix65387 FD0D48 A0 00 ?05: LDY #$005388 FD0D4A 80 02 bra ?075389 FD0D4C 97 14 ?06: sta [pblk],y5390 FD0D4E 88 ?07: DEY5391 FD0D4F C4 17 CPY ixb ; move bytes until is free...5392 FD0D51 D0 DC BNE ?04 ; ...the position specified by ixb5393 FD0D53 A5 4C LDA ewtmpTue Jul 17 11:00:22 2018 Page 505394 FD0D55 97 14 STA [pblk],Y ; store byte5395 FD0D57 A5 4D lda ewtmp+1 ; update pointer5396 FD0D59 1A inc a5397 FD0D5A F0 04 BEQ ?085398 FD0D5C A0 04 LDY #BNDX5399 FD0D5E 97 14 STA [pblk],Y5400 FD0D60 7A ?08: ply5401 FD0D61 FA plx5402 FD0D62 A9 80 lda #$805403 FD0D64 04 18 tsb bflag ; set modified flag5404 FD0D66 A5 4C lda ewtmp5405 FD0D68 18 CLC ; no error5406 FD0D69 60 RTS54075408 ; align buffer with minimum screen row and save block on pp45409 ; P1E14:5410 FD0D6A findrow:5411 FD0D6A A0 00 LDY #$00 ; start at row = 05412 FD0D6C C4 20 ?01: CPY srow ; current screen row5413 FD0D6E F0 08 BEQ ?02 ; already at first row5414 FD0D70 20 8C 0F JSR startln ; find start of line5415 FD0D73 B0 03 BCS ?02 ; beginning of buffer5416 FD0D75 C8 INY5417 FD0D76 80 F4 bra ?01 ; loop5418 FD0D78 84 20 ?02: STY srow ; store row5419 FD0D7A A5 15 LDA ppage ; save block pointer5420 FD0D7C 85 04 STA pp45421 FD0D7E A5 16 LDA ppage+15422 FD0D80 85 05 STA pp4+15423 FD0D82 A5 17 LDA ixb5424 FD0D84 85 0C STA ix45425 FD0D86 60 RTS54265427 ; get number of bytes from current column to end of line5428 ; in: X = text column5429 ; out: ccnt updated5430 ; P1474:5431 FD0D87 xcnt2:5432 FD0D87 A0 00 LDY #$005433 FD0D89 84 21 STY scol5434 FD0D8B 84 1E STY ccol5435 FD0D8D 20 AD 0E JSR pp8mv5436 FD0D90 E8 INX5437 FD0D91 C4 1F ?01: CPY ecol5438 FD0D93 F0 14 BEQ ?025439 FD0D95 CA DEX5440 FD0D96 F0 3C BEQ ?065441 FD0D98 20 A9 0F JSR getbyte5442 FD0D9B B0 37 BCS ?065443 FD0D9D C9 0D CMP #$0D5444 FD0D9F F0 33 BEQ ?065445 FD0DA1 C8 INY5446 FD0DA2 20 BE 0F JSR incptr5447 FD0DA5 E6 1E INC ccol5448 FD0DA7 80 E8 bra ?015449 FD0DA9 CA ?02: DEX5450 FD0DAA F0 13 BEQ ?03Tue Jul 17 11:00:22 2018 Page 515451 FD0DAC 20 A9 0F JSR getbyte5452 FD0DAF B0 23 BCS ?065453 FD0DB1 C9 0D CMP #$0D5454 FD0DB3 F0 1F BEQ ?065455 FD0DB5 C8 INY5456 FD0DB6 20 BE 0F JSR incptr5457 FD0DB9 E6 21 INC scol5458 FD0DBB E6 1E INC ccol5459 FD0DBD 80 EA bra ?025460 FD0DBF 20 93 0E ?03: JSR mvpp25461 FD0DC2 20 A9 0F ?04: JSR getbyte5462 FD0DC5 B0 0A BCS ?055463 FD0DC7 C9 0D CMP #$0D5464 FD0DC9 F0 06 BEQ ?055465 FD0DCB C8 INY5466 FD0DCC 20 BE 0F JSR incptr5467 FD0DCF 80 F1 bra ?045468 FD0DD1 20 4A 0E ?05: JSR pp2mv5469 FD0DD4 84 22 ?06: STY ccnt5470 FD0DD6 60 RTS54715472 ; find beginning of line on block pointed by pp65473 ; P2477:5474 FD0DD7 startln6:5475 FD0DD7 A5 26 LDA rcnt5476 FD0DD9 C9 17 CMP #$175477 FD0DDB F0 03 beq ?015478 FD0DDD E6 26 INC rcnt5479 FD0DDF 60 RTS5480 FD0DE0 20 93 0E ?01: JSR mvpp25481 FD0DE3 A5 06 LDA pp65482 FD0DE5 85 15 STA ppage5483 FD0DE7 A5 07 LDA pp6+15484 FD0DE9 85 16 STA ppage+15485 FD0DEB A5 0D LDA ix65486 FD0DED 85 17 STA ixb5487 FD0DEF 20 8C 0F JSR startln5488 FD0DF2 A5 15 LDA ppage5489 FD0DF4 85 06 STA pp65490 FD0DF6 A5 16 LDA ppage+15491 FD0DF8 85 07 STA pp6+15492 FD0DFA A5 17 LDA ixb5493 FD0DFC 85 0D STA ix65494 FD0DFE 80 4A bra pp2mv54955496 ; find next line on block pointed by pp45497 ; P249F:5498 FD0E00 nextln4:5499 FD0E00 20 93 0E JSR mvpp25500 FD0E03 A5 04 LDA pp45501 FD0E05 85 15 STA ppage5502 FD0E07 A5 05 LDA pp4+15503 FD0E09 85 16 STA ppage+15504 FD0E0B A5 0C LDA ix45505 FD0E0D 85 17 STA ixb5506 FD0E0F 20 70 0F JSR nextln5507 FD0E12 A5 15 LDA ppageTue Jul 17 11:00:22 2018 Page 525508 FD0E14 85 04 STA pp45509 FD0E16 A5 16 LDA ppage+15510 FD0E18 85 05 STA pp4+15511 FD0E1A A5 17 LDA ixb5512 FD0E1C 85 0C STA ix45513 FD0E1E 80 2A bra pp2mv55145515 ; find beginning of line on block pointed by pp45516 ; P24BC:5517 FD0E20 startln4:5518 FD0E20 20 93 0E JSR mvpp25519 FD0E23 A5 04 LDA pp45520 FD0E25 85 15 STA ppage5521 FD0E27 A5 05 LDA pp4+15522 FD0E29 85 16 STA ppage+15523 FD0E2B A5 0C LDA ix45524 FD0E2D 85 17 STA ixb5525 FD0E2F 20 8C 0F JSR startln5526 FD0E32 A5 15 LDA ppage5527 FD0E34 85 04 STA pp45528 FD0E36 A5 16 LDA ppage+15529 FD0E38 85 05 STA pp4+15530 FD0E3A A5 17 LDA ixb5531 FD0E3C 85 0C STA ix45532 FD0E3E 80 0A bra pp2mv55335534 ; calc the bytes count in current line5535 ; P141A:5536 FD0E40 xcount:5537 FD0E40 20 93 0E jsr mvpp25538 FD0E43 20 DF 0F jsr incptr25539 FD0E46 20 8C 0F jsr startln5540 FD0E49 CA dex55415542 ; move pp2 to page pointer5543 ; P236D:5544 FD0E4A pp2mv:5545 FD0E4A A5 02 lda pp25546 FD0E4C 85 15 sta ppage5547 FD0E4E A5 03 lda pp2+15548 FD0E50 85 16 sta ppage+15549 FD0E52 A5 0B lda ix25550 FD0E54 85 17 sta ixb5551 FD0E56 60 rts55525553 ; find next line on block pointed by pp65554 ; P2455:5555 FD0E57 nextln6:5556 FD0E57 20 93 0E JSR mvpp25557 FD0E5A A5 06 LDA pp65558 FD0E5C 85 15 STA ppage5559 FD0E5E A5 07 LDA pp6+15560 FD0E60 85 16 STA ppage+15561 FD0E62 A5 0D LDA ix65562 FD0E64 85 17 STA ixb5563 FD0E66 20 70 0F JSR nextln5564 FD0E69 90 02 BCC ?01Tue Jul 17 11:00:22 2018 Page 535565 FD0E6B C6 26 DEC rcnt5566 FD0E6D A5 15 ?01: LDA ppage5567 FD0E6F 85 06 STA pp65568 FD0E71 A5 16 LDA ppage+15569 FD0E73 85 07 STA pp6+15570 FD0E75 A5 17 LDA ixb5571 FD0E77 85 0D STA ix65572 FD0E79 80 CF bra pp2mv55735574 ; find next line and save in pp85575 ; X,Y preserved5576 ; P1447:5577 FD0E7B nextln8:5578 FD0E7B 20 93 0E JSR mvpp25579 FD0E7E 5A phy5580 FD0E7F 20 1E 10 ?01: JSR decptr25581 FD0E82 B0 09 BCS ?025582 FD0E84 B7 14 lda [pblk],y5583 FD0E86 C9 0D CMP #$0D5584 FD0E88 D0 F5 BNE ?015585 FD0E8A 20 DF 0F JSR incptr25586 FD0E8D 7A ?02: ply5587 FD0E8E 20 A0 0E JSR mvpp85588 FD0E91 80 B7 bra pp2mv55895590 ; move page pointer to pp25591 ; P2362:5592 FD0E93 mvpp2:5593 FD0E93 A5 15 lda ppage5594 FD0E95 85 02 sta pp25595 FD0E97 A5 16 lda ppage+15596 FD0E99 85 03 sta pp2+15597 FD0E9B A5 17 lda ixb5598 FD0E9D 85 0B sta ix25599 FD0E9F 60 rts56005601 ; move page pointer to pp85602 ; P2378:5603 FD0EA0 mvpp8:5604 FD0EA0 A5 15 lda ppage5605 FD0EA2 85 08 sta pp85606 FD0EA4 A5 16 lda ppage+15607 FD0EA6 85 09 sta pp8+15608 FD0EA8 A5 17 lda ixb5609 FD0EAA 85 0E sta ix85610 FD0EAC 60 rts56115612 ; move pp8 to page pointer5613 ; P2383:5614 FD0EAD pp8mv:5615 FD0EAD A5 08 lda pp85616 FD0EAF 85 15 sta ppage5617 FD0EB1 A5 09 lda pp8+15618 FD0EB3 85 16 sta ppage+15619 FD0EB5 A5 0E lda ix85620 FD0EB7 85 17 sta ixb5621 FD0EB9 60 rtsTue Jul 17 11:00:22 2018 Page 5456225623 ; count blank from start of line till first non blank5624 ; out: ctmp = starting blanks counter5625 FD0EBA xblank:5626 FD0EBA 64 2F stz ctmp5627 FD0EBC A9 20 lda #$20 ; test indent flag5628 FD0EBE 24 18 bit bflag5629 FD0EC0 F0 2E beq ?065630 FD0EC2 A5 15 lda ppage ; save current buffer pointer5631 FD0EC4 85 5C sta lptc5632 FD0EC6 A5 16 lda ppage+15633 FD0EC8 85 5D sta lptc+15634 FD0ECA A5 17 lda ixb5635 FD0ECC 85 5E sta lptc+25636 FD0ECE 20 8C 0F jsr startln ; find start of line5637 FD0ED1 A2 FF ldx #$FF ; beginning blank counter5638 FD0ED3 E8 ?02: inx5639 FD0ED4 20 B4 0F jsr getbyte25640 FD0ED7 B0 09 bcs ?04 ; end buffer5641 FD0ED9 C9 20 cmp #' '5642 FD0EDB D0 05 bne ?045643 FD0EDD 20 DF 0F jsr incptr25644 FD0EE0 80 F1 bra ?025645 FD0EE2 86 2F ?04: stx ctmp5646 FD0EE4 A5 5C lda lptc ; restore buffer pointer5647 FD0EE6 85 15 sta ppage5648 FD0EE8 A5 5D lda lptc+15649 FD0EEA 85 16 sta ppage+15650 FD0EEC A5 5E lda lptc+25651 FD0EEE 85 17 sta ixb5652 FD0EF0 60 ?06: rts56535654 ; get blocks count of buffer5655 ; in: C = buffer start page5656 ; out: C = blocks count5657 ; using lptmp1 long pointer5658 ; can be called in 8/16 bit mode5659 ; P2262:5660 FD0EF1 blkcnt:5661 FD0EF1 08 php ; save 8/16 bit state5662 FD0EF2 INDEX085663 FD0EF2 E2 10 sep #PXFLAG5664 .LONGI off5665 .MNLIST5666 FD0EF4 A2 00 LDX #$005667 FD0EF6 86 4C STX <lptmp15668 FD0EF8 CPU165669 FD0EF8 C2 30 rep #(PMFLAG.OR.PXFLAG)5670 .LONGA on5671 .LONGI on5672 .MNLIST5673 FD0EFA A8 tay5674 FD0EFB F0 0C beq ?03 ; return C = 05675 FD0EFD 85 4D STA <lptmp1+1 ; page pointer5676 FD0EFF E8 ?01: INX5677 FD0F00 A7 4C LDA [lptmp1]5678 FD0F02 F0 04 BEQ ?02 ; end of bufferTue Jul 17 11:00:22 2018 Page 555679 FD0F04 85 4D STA <lptmp1+15680 FD0F06 80 F7 bra ?015681 FD0F08 8A ?02: TXA5682 FD0F09 28 ?03: plp ; restore 8/16 bit mode5683 FD0F0A LONG_OFF5684 .LONGA off5685 .LONGI off5686 .MNLIST5687 FD0F0A 60 RTS56885689 ; delete byte at current position from block5690 ; A,X,Y preserved5691 ; using lptc, lptmp1 & lptmp2 long pointer5692 ; using wtmp5693 ; P238E:5694 FD0F0B delbyte:5695 FD0F0B 48 pha5696 FD0F0C DA phx5697 FD0F0D 5A phy5698 FD0F0E ACC165699 FD0F0E C2 20 rep #PMFLAG5700 .LONGA on5701 .MNLIST5702 FD0F10 A5 15 LDA ppage5703 FD0F12 85 4A sta wtmp ; save current page pointer5704 FD0F14 C5 06 CMP pp65705 FD0F16 ACC085706 FD0F16 E2 20 sep #PMFLAG5707 .LONGA off5708 .MNLIST5709 FD0F18 D0 02 BNE ?015710 FD0F1A C6 0D DEC ix6 ; update5711 FD0F1C A0 04 ?01: LDY #BNDX5712 FD0F1E B7 14 LDA [pblk],Y5713 FD0F20 AA TAX ; X = pointer in block5714 FD0F21 C5 17 CMP ixb5715 FD0F23 D0 34 BNE ?04 ; not last byte in block5716 FD0F25 3A dec a ; update pointer in block5717 FD0F26 97 14 STA [pblk],Y ; this is last byte in block5718 FD0F28 20 DF 0F JSR incptr25719 FD0F2B E0 05 CPX #BSTART ; empty buffer ?5720 FD0F2D D0 0A BNE ?02 ; no5721 FD0F2F A5 4B lda wtmp+1 ; remove block5722 FD0F31 EB xba5723 FD0F32 A5 4A lda wtmp ; C = page pointer5724 FD0F34 20 74 10 JSR delblk5725 FD0F37 80 2F bra ?06 ; exit5726 FD0F39 A5 08 ?02: lda pp85727 FD0F3B 85 5D sta lptc+15728 FD0F3D A5 09 lda pp8+15729 FD0F3F 85 5E sta lptc+25730 FD0F41 64 5C stz lptc5731 FD0F43 A0 04 LDY #BNDX5732 FD0F45 B7 5C LDA [lptc],Y5733 FD0F47 C5 0E CMP ix85734 FD0F49 B0 1D BCS ?065735 FD0F4B ACC16Tue Jul 17 11:00:22 2018 Page 565736 FD0F4B C2 20 rep #PMFLAG5737 .LONGA on5738 .MNLIST5739 FD0F4D A7 5C LDA [lptc]5740 FD0F4F 85 08 STA pp85741 FD0F51 ACC085742 FD0F51 E2 20 sep #PMFLAG5743 .LONGA off5744 .MNLIST5745 FD0F53 A9 05 LDA #BSTART5746 FD0F55 85 0E STA ix85747 FD0F57 80 0F bra ?065748 FD0F59 3A ?04: dec a ; update pointer5749 FD0F5A 97 14 STA [pblk],Y5750 FD0F5C A4 17 LDY ixb ; move back bytes from end of block5751 FD0F5E C8 INY ; to current position5752 FD0F5F B7 14 ?05: LDA [pblk],Y5753 FD0F61 88 DEY5754 FD0F62 97 14 STA [pblk],Y5755 FD0F64 C8 INY5756 FD0F65 C8 INY5757 FD0F66 D0 F7 BNE ?055758 FD0F68 A9 80 ?06: lda #$805759 FD0F6A 04 18 tsb bflag ; set modified flag5760 FD0F6C 7A ply5761 FD0F6D FA plx5762 FD0F6E 68 pla5763 FD0F6F 60 rts57645765 ; find beginning of next line5766 ; in: none5767 ; out: CF = 0 if ok, CF = 1 if end of buffer5768 ; X = count of bytes till next line5769 ; Y preserved5770 ; P13CA:5771 FD0F70 nextln:5772 FD0F70 5A phy5773 FD0F71 A2 00 ldx #0 ; bytes counter5774 FD0F73 A4 17 ldy ixb5775 FD0F75 38 sec5776 FD0F76 B7 14 lda [pblk],y ; get next byte5777 FD0F78 F0 10 beq ?03 ; if end of buffer exit with CF = 15778 FD0F7A C9 0D ?01: cmp #$0D ; end of line ?5779 FD0F7C F0 08 beq ?02 ; yes5780 FD0F7E E8 inx5781 FD0F7F 20 DF 0F jsr incptr2 ; Y = next index5782 FD0F82 B7 14 lda [pblk],y ; get next byte5783 FD0F84 80 F4 bra ?015784 FD0F86 20 DF 0F ?02: jsr incptr2 ; beginning of next line5785 FD0F89 18 clc5786 FD0F8A 7A ?03: ply5787 FD0F8B 60 rts57885789 ; find beginning of current line5790 ; in: none5791 ; out: CF = 0 if ok, CF = 1 if beginning of buffer5792 ; X = count of bytes till start of lineTue Jul 17 11:00:22 2018 Page 575793 ; Y preserved5794 ; P1427:5795 FD0F8C startln:5796 FD0F8C 5A phy5797 FD0F8D A2 00 ldx #0 ; bytes counter5798 FD0F8F 20 1E 10 jsr decptr2 ; decrement buffer pointer5799 FD0F92 B0 13 bcs ?04 ; exit with CF = 1 if beginning5800 FD0F94 E8 inx5801 FD0F95 20 1E 10 ?01: jsr decptr25802 FD0F98 B0 0C bcs ?03 ; we are at the beginning5803 FD0F9A B7 14 lda [pblk],y ; previous byte5804 FD0F9C C9 0D cmp #$0D5805 FD0F9E F0 03 beq ?02 ; end of prev. line5806 FD0FA0 E8 inx5807 FD0FA1 80 F2 bra ?015808 FD0FA3 20 DF 0F ?02: jsr incptr2 ; beginning of line5809 FD0FA6 18 ?03: clc5810 FD0FA7 7A ?04: ply5811 FD0FA8 60 rts58125813 ; get byte from buffer at current index5814 ; in: none5815 ; out: A = current byte (CF = 0 if not null, CF = 1 if null)5816 ; X,Y preserved5817 ; P2353:5818 FD0FA9 getbyte:5819 FD0FA9 5A phy5820 FD0FAA A4 17 ldy ixb5821 FD0FAC B7 14 lda [pblk],y5822 FD0FAE 18 clc5823 FD0FAF D0 01 bne ?015824 FD0FB1 38 sec5825 FD0FB2 7A ?01: ply5826 FD0FB3 60 rts58275828 ; get byte from buffer at current index5829 ; in: none5830 ; out: A = current byte (CF = 0 if not null, CF = 1 if null)5831 ; X preserved5832 ; P2353:5833 FD0FB4 getbyte2:5834 FD0FB4 A4 17 ldy ixb5835 FD0FB6 B7 14 lda [pblk],y5836 FD0FB8 F0 02 beq ?025837 FD0FBA 18 clc5838 FD0FBB 60 rts5839 FD0FBC 38 ?02: sec5840 FD0FBD 60 rts58415842 ; increment buffer pointer5843 ; in: none5844 ; out: CF = 1 if change block or if end of buffer5845 ; A,X,Y preserved5846 ; P2333:5847 FD0FBE incptr:5848 FD0FBE 48 pha5849 FD0FBF 5A phyTue Jul 17 11:00:22 2018 Page 585850 FD0FC0 A5 17 lda ixb5851 FD0FC2 A0 04 ldy #BNDX5852 FD0FC4 D7 14 cmp [pblk],y5853 FD0FC6 90 0C bcc ?04 ; ok, increment5854 FD0FC8 ACC165855 FD0FC8 C2 20 rep #PMFLAG5856 .LONGA on5857 .MNLIST5858 FD0FCA A7 14 lda [pblk] ; next block5859 FD0FCC F0 0C beq ?08 ; end of buffer, exit with CF = 15860 FD0FCE 85 15 sta ppage ; update page pointer5861 FD0FD0 ACC085862 FD0FD0 E2 20 sep #PMFLAG5863 .LONGA off5864 .MNLIST5865 FD0FD2 A9 04 lda #BSTART-1 ; beginning of buffer5866 FD0FD4 1A ?04: inc a5867 FD0FD5 85 17 sta ixb5868 FD0FD7 7A ply5869 FD0FD8 68 pla5870 FD0FD9 60 rts5871 FD0FDA ?08: ACC085872 FD0FDA E2 20 sep #PMFLAG5873 .LONGA off5874 .MNLIST5875 FD0FDC 7A ply5876 FD0FDD 68 pla5877 FD0FDE 60 rts58785879 ; increment buffer pointer5880 ; in: none5881 ; out: CF = 1 if change block or if end of buffer5882 ; Y = index5883 ; X preserved5884 FD0FDF incptr2:5885 FD0FDF A5 17 lda ixb5886 FD0FE1 A0 04 ldy #BNDX5887 FD0FE3 D7 14 cmp [pblk],y5888 FD0FE5 A8 tay5889 FD0FE6 90 0A bcc ?04 ; ok, increment5890 FD0FE8 ACC165891 FD0FE8 C2 20 rep #PMFLAG5892 .LONGA on5893 .MNLIST5894 FD0FEA A7 14 lda [pblk] ; next block5895 FD0FEC F0 07 beq ?08 ; end of buffer, exit with CF = 15896 FD0FEE 85 15 sta ppage ; update page pointer5897 FD0FF0 A0 04 ldy #BSTART-1 ; beginning of buffer5898 FD0FF2 C8 ?04: iny5899 FD0FF3 84 17 sty ixb5900 FD0FF5 ?08: ACC085901 FD0FF5 E2 20 sep #PMFLAG5902 .LONGA off5903 .MNLIST5904 FD0FF7 60 rts59055906 ; decrement buffer pointerTue Jul 17 11:00:22 2018 Page 595907 ; in: none5908 ; out: CF = 1 if at buffer beginning5909 ; A,X,Y preserved5910 ; P2430:5911 FD0FF8 decptr:5912 FD0FF8 48 pha5913 FD0FF9 A5 17 lda ixb5914 FD0FFB C9 05 cmp #BSTART5915 FD0FFD D0 14 bne ?02 ; ok, decrement5916 FD0FFF 5A phy5917 FD1000 A0 02 ldy #BPREV ; previous page pointer5918 FD1002 ACC165919 FD1002 C2 20 rep #PMFLAG5920 .LONGA on5921 .MNLIST5922 FD1004 B7 14 LDA [pblk],Y5923 FD1006 F0 11 beq ?08 ; exit with CF = 15924 FD1008 85 15 sta ppage ; update page pointer5925 FD100A ACC085926 FD100A E2 20 sep #PMFLAG5927 .LONGA off5928 .MNLIST5929 FD100C A0 04 LDY #BNDX5930 FD100E B7 14 LDA [pblk],Y5931 FD1010 7A ply5932 FD1011 80 01 bra ?045933 FD1013 3A ?02: dec a5934 FD1014 85 17 ?04: sta ixb5935 FD1016 18 clc ; ok, exit with CF = 05936 FD1017 68 pla5937 FD1018 60 rts5938 FD1019 ?08: ACC08SEC5939 FD1019 E2 21 sep #(PMFLAG.OR.PCFLAG)5940 .LONGA off5941 .MNLIST5942 FD101B 7A ply5943 FD101C 68 pla5944 FD101D 60 rts59455946 ; decrement buffer pointer5947 ; in: none5948 ; out: CF = 1 if at buffer beginning5949 ; Y = index5950 ; X preserved5951 FD101E decptr2:5952 FD101E A4 17 ldy ixb5953 FD1020 C0 05 cpy #BSTART5954 FD1022 D0 12 bne ?02 ; ok, decrement5955 FD1024 A0 02 ldy #BPREV ; previous page pointer5956 FD1026 ACC165957 FD1026 C2 20 rep #PMFLAG5958 .LONGA on5959 .MNLIST5960 FD1028 B7 14 LDA [pblk],Y5961 FD102A F0 0F beq ?08 ; exit with CF = 15962 FD102C 85 15 sta ppage ; update page pointer5963 FD102E ACC08Tue Jul 17 11:00:22 2018 Page 605964 FD102E E2 20 sep #PMFLAG5965 .LONGA off5966 .MNLIST5967 FD1030 A0 04 LDY #BNDX5968 FD1032 B7 14 LDA [pblk],Y5969 FD1034 A8 tay5970 FD1035 C8 iny5971 FD1036 88 ?02: dey5972 FD1037 84 17 ?04: sty ixb5973 FD1039 18 clc ; ok, exit with CF = 05974 FD103A 60 rts5975 FD103B ?08: ACC08SEC5976 FD103B E2 21 sep #(PMFLAG.OR.PCFLAG)5977 .LONGA off5978 .MNLIST5979 FD103D A4 17 ldy ixb5980 FD103F 60 rts59815982 ; insert new block in buffer and store byte in new block5983 ; in: wtmp = page pointer of new block5984 ; A = byte to store5985 ; out: buffer linked list modified5986 ; using lptmp2 long pointer5987 ; A,X preserved5988 ; P22DF:5989 FD1040 addblk:5990 FD1040 64 4F stz lptmp2 ; using lptmp2 long pointer5991 FD1042 48 PHA ; save byte to store5992 FD1043 ACC165993 FD1043 C2 20 rep #PMFLAG5994 .LONGA on5995 .MNLIST5996 FD1045 A7 14 LDA [pblk] ; next page pointer5997 FD1047 48 PHA ; save5998 FD1048 F0 0A BEQ ?01 ; next = 05999 FD104A 85 50 STA lptmp2+1 ; lptmp2 = next6000 FD104C A5 4A LDA wtmp ; new page pointer6001 FD104E A0 02 LDY #BPREV6002 FD1050 97 4F STA [lptmp2],Y ; next->prev = new page pointer6003 FD1052 80 02 bra ?026004 FD1054 A5 4A ?01: LDA wtmp ; next = new page pointer6005 FD1056 87 14 ?02: STA [pblk]6006 FD1058 85 50 STA lptmp2+16007 FD105A A7 4F LDA [lptmp2] ; next free page pointer6008 FD105C 85 10 STA pfree6009 FD105E 68 PLA6010 FD105F 87 4F STA [lptmp2] ; new page next = cur->next6011 FD1061 A5 15 LDA ppage6012 FD1063 A0 02 LDY #BPREV6013 FD1065 97 4F STA [lptmp2],Y ; new page prev = cur6014 FD1067 ACC086015 FD1067 E2 20 sep #PMFLAG6016 .LONGA off6017 .MNLIST6018 FD1069 A9 05 LDA #BSTART6019 FD106B A0 04 LDY #BNDX6020 FD106D 97 4F STA [lptmp2],Y ; buffer indexTue Jul 17 11:00:22 2018 Page 616021 FD106F 68 PLA6022 FD1070 C8 INY6023 FD1071 97 4F STA [lptmp2],Y ; store byte6024 FD1073 60 RTS60256026 ; remove a block from buffer and put in free blocks list6027 ; in: C = page pointer of block to remove6028 ; using lptmp1 & lptmp2 long pointers6029 ; X preserved6030 ; P23EC:6031 FD1074 delblk:6032 FD1074 64 4C stz lptmp1 ; using lptmp1 & lptmp2 long pointer6033 FD1076 64 4F stz lptmp26034 FD1078 ACC166035 FD1078 C2 20 rep #PMFLAG6036 .LONGA on6037 .MNLIST6038 FD107A 85 4D STA lptmp1+1 ; page pointer to removing block6039 FD107C C5 04 CMP pp46040 FD107E D0 08 BNE ?016041 FD1080 A7 4C lda [lptmp1]6042 FD1082 85 04 STA pp4 ; next block6043 FD1084 A0 05 LDY #BSTART6044 FD1086 84 0C STY ix46045 FD1088 A7 4C ?01: lda [lptmp1]6046 FD108A D0 06 BNE ?026047 FD108C A0 02 LDY #BPREV ; this is the first block6048 FD108E B7 4C lda [lptmp1],y6049 FD1090 80 08 bra ?036050 FD1092 85 50 ?02: STA lptmp2+1 ; next block6051 FD1094 A0 02 LDY #BPREV6052 FD1096 B7 4C lda [lptmp1],y ; next->prev = this->prev6053 FD1098 97 4F STA [lptmp2],Y6054 FD109A D0 13 ?03: BNE ?04 ; prev != NULL6055 FD109C A5 50 LDA lptmp2+1 ; prev = NULL => next block6056 FD109E 85 12 STA pbuf ; become first block of this buffer6057 FD10A0 A6 0F LDX xbuf6058 FD10A2 48 pha6059 FD10A3 ACC086060 FD10A3 E2 20 sep #PMFLAG6061 .LONGA off6062 .MNLIST6063 FD10A5 8A txa6064 FD10A6 0A asl a6065 FD10A7 AA tax6066 FD10A8 ACC166067 FD10A8 C2 20 rep #PMFLAG6068 .LONGA on6069 .MNLIST6070 FD10AA 68 pla6071 FD10AB 95 6C STA bstart,X ; store first block of this buffer6072 FD10AD 80 06 bra ?056073 FD10AF 85 50 ?04: STA lptmp2+1 ; prev block6074 FD10B1 A7 4C lda [lptmp1] ; prev->next = this->next6075 FD10B3 87 4F STA [lptmp2]6076 FD10B5 A5 10 ?05: LDA pfree ; insert this block on free list6077 FD10B7 87 4C STA [lptmp1]Tue Jul 17 11:00:22 2018 Page 626078 FD10B9 A5 4D LDA lptmp1+16079 FD10BB 85 10 STA pfree6080 FD10BD ACC086081 FD10BD E2 20 sep #PMFLAG6082 .LONGA off6083 .MNLIST6084 FD10BF 60 RTS60856086 ; garbage collection -- free unused memory assigned to a buffer6087 ; out: CF = 0 if completed, otherwise CF = 16088 ; can be called in both 8/16 bit6089 ; P1855:6090 FD10C0 garbc:6091 FD10C0 08 php ; save 8/16 bit mode6092 FD10C1 CPU086093 FD10C1 E2 30 sep #(PMFLAG.OR.PXFLAG)6094 .LONGA off6095 .LONGI off6096 .MNLIST6097 FD10C3 64 5C stz lptc ; clear used memory6098 FD10C5 64 5F stz lpte ; using long pointer lptc & lpte6099 FD10C7 64 67 stz tmpb6100 FD10C9 64 68 stz tmpc6101 FD10CB 64 69 stz tmpd6102 FD10CD 64 6A stz tmpe6103 FD10CF 64 6B stz tmpf6104 FD10D1 ACC16CLC6105 FD10D1 C2 21 rep #(PMFLAG.OR.PCFLAG)6106 .LONGA on6107 .MNLIST6108 FD10D3 A5 12 LDA pbuf ; first block of the buffer6109 FD10D5 48 PHA6110 FD10D6 68 ?00: PLA6111 FD10D7 85 5D STA lptc+16112 FD10D9 A7 5C LDA [lptc]6113 FD10DB D0 03 bne ?016114 FD10DD 28 plp ; only this block -- done6115 FD10DE 18 clc6116 FD10DF 60 rts6117 FD10E0 48 ?01: pha ; save next block6118 FD10E1 ACC086119 FD10E1 E2 20 sep #PMFLAG6120 .LONGA off6121 .MNLIST6122 FD10E3 A0 04 ldy #BNDX6123 FD10E5 B7 5C LDA [lptc],Y6124 FD10E7 AA TAX ; X = pointer in block6125 FD10E8 ACC16CLC6126 FD10E8 C2 21 rep #(PMFLAG.OR.PCFLAG)6127 .LONGA on6128 .MNLIST6129 FD10EA E8 INX ; full block?6130 FD10EB F0 E9 beq ?00 ; yes -- check next block6131 FD10ED 86 63 STX tmp7 ; tmp7 = next free6132 FD10EF 68 pla ; next block6133 FD10F0 85 60 STA lpte+16134 FD10F2 A2 01 LDX #1Tue Jul 17 11:00:22 2018 Page 636135 FD10F4 C5 15 CMP ppage6136 FD10F6 D0 02 BNE ?026137 FD10F8 86 67 STX tmpb ; tmpb = 1 if this block = current block6138 FD10FA C5 08 ?02: CMP pp86139 FD10FC D0 02 bne ?036140 FD10FE 86 68 STX tmpc ; tmpc = 1 if this block = pp86141 FD1100 C5 04 ?03: CMP pp46142 FD1102 D0 02 bne ?046143 FD1104 86 69 STX tmpd ; tmpd = 1 if this block = pp46144 FD1106 C5 06 ?04: CMP pp66145 FD1108 D0 02 bne ?056146 FD110A 86 6A STX tmpe ; tmpe = 1 if this block = pp66147 FD110C C5 00 ?05: CMP pp06148 FD110E D0 02 bne ?066149 FD1110 86 6B STX tmpf ; tmpf = 1 if this block = pp06150 FD1112 ?06: ACC086151 FD1112 E2 20 sep #PMFLAG6152 .LONGA off6153 .MNLIST6154 FD1114 A0 04 LDY #BNDX6155 FD1116 B7 5F LDA [lpte],Y6156 FD1118 85 65 STA tmp9 ; tmp9 = pointer in next block6157 FD111A C8 iny6158 FD111B 84 64 STY tmp8 ; tmp8 = dynamic pointer in next block6159 FD111D A4 64 ?07: LDY tmp8 ; loop6160 FD111F B7 5F LDA [lpte],Y ; move first byte of next block6161 FD1121 A4 63 LDY tmp7 ; to next free room in this block6162 FD1123 97 5C STA [lptc],Y6163 FD1125 ACC166164 FD1125 C2 20 rep #PMFLAG6165 .LONGA on6166 .MNLIST6167 FD1127 A5 5D LDA lptc+1 ; C = this block6168 FD1129 A6 67 LDX tmpb6169 FD112B F0 0E beq ?086170 FD112D A6 17 LDX ixb6171 FD112F E4 64 CPX tmp86172 FD1131 D0 08 BNE ?086173 FD1133 85 15 STA ppage ; set to this block6174 FD1135 84 17 STY ixb6175 FD1137 A2 00 LDX #06176 FD1139 86 67 STX tmpb6177 FD113B A6 68 ?08: LDX tmpc6178 FD113D F0 0E BEQ ?096179 FD113F A6 0E LDX ix86180 FD1141 E4 64 CPX tmp86181 FD1143 D0 08 BNE ?096182 FD1145 85 08 STA pp8 ; set to this block6183 FD1147 84 0E STY ix86184 FD1149 A2 00 LDX #06185 FD114B 86 68 STX tmpc6186 FD114D A6 69 ?09: LDX tmpd6187 FD114F F0 0E BEQ ?106188 FD1151 A6 0C LDX ix46189 FD1153 E4 64 CPX tmp86190 FD1155 D0 08 BNE ?106191 FD1157 85 04 STA pp4 ; set to this blockTue Jul 17 11:00:22 2018 Page 646192 FD1159 84 0C STY ix46193 FD115B A2 00 LDX #06194 FD115D 86 69 STX tmpd6195 FD115F A6 6A ?10: LDX tmpe6196 FD1161 F0 0E BEQ ?116197 FD1163 A6 0D LDX ix66198 FD1165 E4 64 CPX tmp86199 FD1167 D0 08 BNE ?116200 FD1169 85 06 STA pp6 ; set to this block6201 FD116B 84 0D STY ix66202 FD116D A2 00 LDX #06203 FD116F 86 6A STX tmpe6204 FD1171 A6 6B ?11: LDX tmpf6205 FD1173 F0 0E BEQ ?126206 FD1175 A6 0A LDX ix06207 FD1177 E4 64 CPX tmp86208 FD1179 D0 08 BNE ?126209 FD117B 85 00 STA pp0 ; set to this block6210 FD117D 84 0A STY ix06211 FD117F A2 00 LDX #06212 FD1181 86 6B STX tmpf6213 FD1183 A6 64 ?12: LDX tmp8 ; X = pointer in next block6214 FD1185 A5 60 LDA lpte+1 ; C = next block6215 FD1187 ACC086216 FD1187 E2 20 sep #PMFLAG6217 .LONGA off6218 .MNLIST6219 FD1189 E4 65 CPX tmp9 ; if same pointer then next block now6220 FD118B F0 08 BEQ ?13 ; is empty and can be freed6221 FD118D E6 64 INC tmp86222 FD118F E6 63 INC tmp76223 FD1191 D0 8A bne ?07 ; loop move byte6224 FD1193 F0 0C BEQ ?15 ; continue6225 FD1195 20 74 10 ?13: JSR delblk ; remove next block (C)6226 FD1198 A0 04 LDY #BNDX6227 FD119A A5 63 LDA tmp7 ; set pointer in block6228 FD119C 97 5C STA [lptc],Y6229 FD119E 28 plp6230 FD119F 18 CLC ; done6231 FD11A0 60 RTS6232 FD11A1 A9 FF ?15: LDA #$FF ; full block6233 FD11A3 A0 04 LDY #BNDX6234 FD11A5 97 5C STA [lptc],Y6235 FD11A7 C8 INY6236 FD11A8 84 63 STY tmp76237 FD11AA A5 64 LDA tmp86238 FD11AC 38 SEC6239 FD11AD E9 05 SBC #BSTART6240 FD11AF 85 66 STA tmpa ; residue6241 FD11B1 E6 65 INC tmp9 ; limit pointer in next block6242 FD11B3 A4 64 LDY tmp86243 FD11B5 A6 63 LDX tmp76244 FD11B7 B7 5F ?16: LDA [lpte],Y ; move byte6245 FD11B9 9B TXY6246 FD11BA 97 5F STA [lpte],Y6247 FD11BC E8 INX6248 FD11BD E6 64 INC tmp8Tue Jul 17 11:00:22 2018 Page 656249 FD11BF A4 64 LDY tmp86250 FD11C1 C4 65 CPY tmp96251 FD11C3 D0 F2 BNE ?16 ; move all bytes6252 FD11C5 A5 67 LDA tmpb6253 FD11C7 F0 07 BEQ ?176254 FD11C9 A5 17 LDA ixb6255 FD11CB 38 SEC6256 FD11CC E5 66 SBC tmpa6257 FD11CE 85 17 STA ixb6258 FD11D0 A5 68 ?17: LDA tmpc6259 FD11D2 F0 07 BEQ ?186260 FD11D4 A5 0E LDA ix86261 FD11D6 38 SEC6262 FD11D7 E5 66 SBC tmpa6263 FD11D9 85 0E STA ix86264 FD11DB A5 69 ?18: LDA tmpd6265 FD11DD F0 07 BEQ ?196266 FD11DF A5 0C LDA ix46267 FD11E1 38 SEC6268 FD11E2 E5 66 SBC tmpa6269 FD11E4 85 0C STA ix46270 FD11E6 A5 6A ?19: LDA tmpe6271 FD11E8 F0 07 BEQ ?206272 FD11EA A5 0D LDA ix66273 FD11EC 38 SEC6274 FD11ED E5 66 SBC tmpa6275 FD11EF 85 0D STA ix66276 FD11F1 A5 6B ?20: LDA tmpf6277 FD11F3 F0 07 BEQ ?216278 FD11F5 A5 0A LDA ix06279 FD11F7 38 SEC6280 FD11F8 E5 66 SBC tmpa6281 FD11FA 85 0A STA ix06282 FD11FC A5 65 ?21: LDA tmp96283 FD11FE 18 CLC6284 FD11FF E5 66 SBC tmpa6285 FD1201 A0 04 LDY #BNDX ; update pointer in next buffer6286 FD1203 97 5F STA [lpte],Y6287 FD1205 28 plp6288 FD1206 38 SEC ; not done6289 FD1207 60 RTS62906291 ;-----------------------------------------------------------------6292 ; high level screen62936294 ; update last edit text row on screen6295 ; P13E5:6296 FD1208 updlst:6297 FD1208 ACC166298 FD1208 C2 20 rep #PMFLAG6299 .LONGA on6300 .MNLIST6301 FD120A A9 30 07 LDA #!LSTLINE6302 FD120D 85 34 sta stxtp6303 FD120F 09 00 08 ora #!TXTATTR6304 FD1212 85 38 sta sattp6305 FD1214 ACC08Tue Jul 17 11:00:22 2018 Page 666306 FD1214 E2 20 sep #PMFLAG6307 .LONGA off6308 .MNLIST6309 FD1216 A5 23 LDA fslct6310 FD1218 F0 16 BEQ ?016311 FD121A A5 25 LDA nslcth6312 FD121C 10 12 BPL ?016313 FD121E A9 17 LDA #$176314 FD1220 38 SEC6315 FD1221 E5 20 SBC srow6316 FD1223 18 CLC6317 FD1224 65 24 ADC nslctl6318 FD1226 A9 00 LDA #$006319 FD1228 65 25 ADC nslcth6320 FD122A 10 04 BPL ?016321 FD122C A9 80 LDA #$806322 FD122E 85 37 STA frev6323 FD1230 A6 06 ?01: LDX pp66324 FD1232 A5 07 lda pp6+16325 FD1234 A4 0D LDY ix66326 FD1236 20 60 14 JSR setptr6327 FD1239 80 2E bra updrow63286329 ; update first edit text row on screen6330 ; P1E30:6331 FD123B updfst:6332 FD123B ACC166333 FD123B C2 20 rep #PMFLAG6334 .LONGA on6335 .MNLIST6336 FD123D A9 00 00 LDA #!TXTADDR6337 FD1240 85 34 sta stxtp6338 FD1242 09 00 08 ora #!TXTATTR6339 FD1245 85 38 sta sattp6340 FD1247 ACC086341 FD1247 E2 20 sep #PMFLAG6342 .LONGA off6343 .MNLIST6344 FD1249 A5 23 LDA fslct6345 FD124B F0 13 BEQ ?016346 FD124D A5 25 LDA nslcth6347 FD124F 30 0F BMI ?016348 FD1251 A5 20 LDA srow6349 FD1253 38 SEC6350 FD1254 E5 24 SBC nslctl6351 FD1256 A9 00 LDA #$006352 FD1258 E5 25 SBC nslcth6353 FD125A 10 04 BPL ?016354 FD125C A9 80 LDA #$806355 FD125E 85 37 STA frev6356 FD1260 A6 04 ?01: LDX pp46357 FD1262 A5 05 lda pp4+16358 FD1264 A4 0C LDY ix46359 FD1266 20 60 14 JSR setptr63606361 ; update current row on screen6362 ; P2779:Tue Jul 17 11:00:22 2018 Page 676363 FD1269 updrow:6364 FD1269 BD FF FF lda !$FFFF,x6365 FD126C D0 12 BNE ?046366 FD126E A9 20 lda #' ' ; blank row6367 FD1270 EB xba6368 FD1271 A5 3B lda eattr ; A = attribute, B = blank6369 FD1273 A0 4F ldy #MAXCOLS-16370 FD1275 97 38 ?02: sta [sattp],y ; store attribute6371 FD1277 EB xba6372 FD1278 97 34 sta [stxtp],y ; store blank6373 FD127A EB xba6374 FD127B 88 dey6375 FD127C 10 F7 bpl ?026376 FD127E 38 SEC6377 FD127F 60 RTS6378 FD1280 A4 1F ?04: LDY ecol6379 FD1282 F0 16 BEQ updr26380 ; P279F:6381 FD1284 updr1:6382 FD1284 BD FF FF lda !$FFFF,x6383 FD1287 C9 0D CMP #$0D6384 FD1289 D0 04 BNE ?026385 FD128B A0 00 LDY #$006386 FD128D 80 3A bra updr96387 FD128F E4 51 ?02: CPX ebtmp26388 FD1291 D0 03 BNE ?036389 FD1293 20 8C 14 JSR updptr6390 FD1296 E8 ?03: INX6391 FD1297 88 DEY6392 FD1298 D0 EA BNE updr16393 ; P27B7:6394 FD129A updr2:6395 FD129A BD FF FF lda !$FFFF,x6396 FD129D C9 0D CMP #$0D6397 FD129F F0 28 BEQ updr96398 FD12A1 C0 50 CPY #MAXCOLS6399 FD12A3 D0 11 BNE updr76400 FD12A5 E4 51 updr5: CPX ebtmp26401 FD12A7 90 03 BCC ?066402 FD12A9 20 8C 14 JSR updptr6403 FD12AC E8 ?06: INX6404 ; P27CC:6405 FD12AD updr3:6406 FD12AD BD FF FF lda !$FFFF,x6407 FD12B0 C9 0D CMP #$0D6408 FD12B2 D0 F1 BNE updr56409 FD12B4 F0 13 beq updr96410 FD12B6 97 34 updr7: sta [stxtp],y ; store char in video ram6411 FD12B8 A5 3B lda eattr ; editor attribute6412 FD12BA 45 37 EOR frev ; set reverse bit6413 FD12BC 97 38 sta [sattp],y ; store attribute6414 FD12BE C8 INY6415 FD12BF E4 51 CPX ebtmp26416 FD12C1 90 03 BCC ?086417 FD12C3 20 8C 14 JSR updptr6418 FD12C6 E8 ?08: INX6419 FD12C7 80 D1 bra updr2Tue Jul 17 11:00:22 2018 Page 686420 FD12C9 E4 51 updr9: CPX ebtmp26421 FD12CB 90 03 BCC ?106422 FD12CD 20 8C 14 JSR updptr6423 FD12D0 E8 ?10: INX6424 FD12D1 A9 20 LDA #' ' ; pad row with blank6425 FD12D3 EB xba ; B = char, A = attribute6426 FD12D4 A5 3B lda eattr ; editor attribute6427 FD12D6 45 37 EOR frev ; set reverse bit6428 FD12D8 C0 50 ?11: CPY #MAXCOLS6429 FD12DA F0 09 BEQ ?126430 FD12DC 97 38 sta [sattp],y ; store attribute6431 FD12DE EB xba6432 FD12DF 97 34 sta [stxtp],y ; store blank6433 FD12E1 EB xba6434 FD12E2 C8 INY6435 FD12E3 D0 F3 BNE ?116436 FD12E5 64 37 ?12: STZ frev ; clear reverse flag bit6437 FD12E7 18 CLC6438 FD12E8 60 RTS64396440 ; scroll right editor window (move window left one column)6441 ; P24D9:6442 FD12E9 scrlright:6443 FD12E9 8B phb ; save DBR6444 FD12EA ACC16CLC6445 FD12EA C2 21 rep #(PMFLAG.OR.PCFLAG)6446 .LONGA on6447 .MNLIST6448 FD12EC A9 00 00 lda #!TXTADDR ; set screen text pointer6449 FD12EF 85 34 sta stxtp6450 FD12F1 A9 00 08 lda #!TXTATTR ; set screen attributes pointer6451 FD12F4 85 38 sta sattp6452 FD12F6 A5 04 LDA pp4 ; buffer page pointer6453 FD12F8 85 5D STA lptc+1 ; B = bank, A = page6454 FD12FA ACC086455 FD12FA E2 20 sep #PMFLAG6456 .LONGA off6457 .MNLIST6458 FD12FC 4B phk6459 FD12FD AB plb ; DBR = PBR6460 FD12FE 9C 23 13 STZ !sclr1+16461 FD1301 9C 2C 13 STZ !sclr2+16462 FD1304 8D 24 13 STA !sclr1+26463 FD1307 8D 2D 13 STA !sclr2+26464 FD130A 64 5C STZ lptc6465 FD130C A5 1F LDA ecol6466 FD130E 69 4F ADC #MAXCOLS-16467 FD1310 85 4F STA ewtmp2+16468 FD1312 EB xba ; A = bank6469 FD1313 48 pha6470 FD1314 AB plb ; set DBR to current buffer6471 FD1315 A0 04 LDY #BNDX6472 FD1317 B1 5C lda (lptc),y6473 FD1319 85 50 STA ebtmp6474 FD131B 20 B1 14 JSR chksel6475 FD131E 64 4D stz ewtmp+1 ; counter 24 rows6476 FD1320 A6 0C LDX ix4Tue Jul 17 11:00:22 2018 Page 696477 ;P2512:6478 FD1322 BD FF FF sclr1: lda !$FFFF,x6479 FD1325 F0 6D beq sclr36480 FD1327 A0 00 LDY #$006481 FD1329 84 4E STY ewtmp26482 ;P251D:6483 FD132B BD FF FF sclr2: lda !$FFFF,x6484 FD132E C9 0D CMP #$0D6485 FD1330 D0 0A BNE ?036486 FD1332 A5 4E lda ewtmp26487 FD1334 D0 19 BNE ?066488 FD1336 A9 20 LDA #' ' ; blank padding6489 FD1338 85 4C sta ewtmp6490 FD133A 80 13 bra ?066491 FD133C C4 4F ?03: cpy ewtmp2+16492 FD133E D0 04 BNE ?046493 FD1340 85 4C sta ewtmp6494 FD1342 E6 4E INC ewtmp26495 FD1344 E4 50 ?04: CPX ebtmp6496 FD1346 D0 03 BNE ?056497 FD1348 20 3D 14 JSR setscrp6498 FD134B E8 ?05: INX6499 FD134C C8 INY6500 FD134D 80 DC bra sclr26501 FD134F E4 50 ?06: CPX ebtmp6502 FD1351 D0 03 BNE ?076503 FD1353 20 3D 14 JSR setscrp6504 FD1356 E8 ?07: INX6505 FD1357 A9 01 lda #^TXTADDR6506 FD1359 8B phb6507 FD135A 48 pha6508 FD135B AB plb6509 FD135C A0 01 ldy #$01 ; move left text and attributes6510 FD135E B1 34 ?08: lda (stxtp),y6511 FD1360 EB xba6512 FD1361 B1 38 lda (sattp),y ; A = attribute, B = text6513 FD1363 88 dey6514 FD1364 91 38 sta (sattp),y6515 FD1366 EB xba6516 FD1367 91 34 sta (stxtp),y6517 FD1369 C8 iny6518 FD136A C8 iny6519 FD136B C0 50 cpy #MAXCOLS6520 FD136D 90 EF bcc ?086521 FD136F 88 DEY6522 FD1370 A5 4C lda ewtmp6523 FD1372 91 34 sta (stxtp),y6524 FD1374 A5 3B lda eattr ; editor attribute6525 FD1376 20 E3 14 JSR tglrev ; check reverse bit6526 FD1379 91 38 sta (sattp),y6527 FD137B AB plb6528 FD137C ACC16CLC6529 FD137C C2 21 rep #(PMFLAG.OR.PCFLAG)6530 .LONGA on6531 .MNLIST6532 FD137E A5 34 LDA stxtp6533 FD1380 69 50 00 ADC #MAXCOLSTue Jul 17 11:00:22 2018 Page 706534 FD1383 85 34 STA stxtp6535 FD1385 09 00 08 ora #!TXTATTR6536 FD1388 85 38 sta sattp6537 FD138A ACC086538 FD138A E2 20 sep #PMFLAG6539 .LONGA off6540 .MNLIST6541 FD138C E6 4D INC ewtmp+16542 FD138E A5 4D LDA ewtmp+16543 FD1390 C9 18 CMP #$186544 FD1392 D0 8E bne sclr16545 FD1394 AB sclr3: plb6546 FD1395 60 RTS65476548 ; scroll left editor window (move window right one column)6549 ; P25CF:6550 FD1396 scrlleft:6551 FD1396 8B phb ; save DBR6552 FD1397 ACC16CLC6553 FD1397 C2 21 rep #(PMFLAG.OR.PCFLAG)6554 .LONGA on6555 .MNLIST6556 FD1399 A9 00 00 lda #!TXTADDR ; set screen text pointer6557 FD139C 85 34 sta stxtp6558 FD139E A9 00 08 lda #!TXTATTR ; set screen attributes pointer6559 FD13A1 85 38 sta sattp6560 FD13A3 A5 04 LDA pp4 ; buffer page pointer6561 FD13A5 85 5D STA lptc+1 ; B = bank, A = page6562 FD13A7 ACC086563 FD13A7 E2 20 sep #PMFLAG6564 .LONGA off6565 .MNLIST6566 FD13A9 4B phk6567 FD13AA AB plb ; DBR = PBR6568 FD13AB 9C CA 13 STZ !scll1+16569 FD13AE 9C D3 13 STZ !scll2+16570 FD13B1 8D CB 13 STA !scll1+26571 FD13B4 8D D4 13 STA !scll2+26572 FD13B7 64 5C STZ lptc6573 FD13B9 EB xba ; A = bank6574 FD13BA 48 pha6575 FD13BB AB plb ; set DBR to current buffer6576 FD13BC A0 04 LDY #BNDX6577 FD13BE B1 5C lda (lptc),y6578 FD13C0 85 50 STA ebtmp6579 FD13C2 20 B1 14 JSR chksel6580 FD13C5 64 4D STZ ewtmp+1 ; counter 24 rows6581 FD13C7 A6 0C LDX ix46582 ;P25FF:6583 FD13C9 scll1:6584 FD13C9 BD FF FF lda !$FFFF,x6585 FD13CC F0 C6 beq sclr36586 FD13CE A0 00 LDY #$006587 FD13D0 84 4E STY ewtmp26588 ;P260A:6589 FD13D2 scll2:6590 FD13D2 BD FF FF lda !$FFFF,xTue Jul 17 11:00:22 2018 Page 716591 FD13D5 C9 0D CMP #$0D6592 FD13D7 D0 0A BNE ?056593 FD13D9 A5 4E lda ewtmp26594 FD13DB D0 19 BNE ?07a6595 FD13DD A9 20 LDA #' '6596 FD13DF 85 4C sta ewtmp6597 FD13E1 80 13 ?04: bra ?07a6598 FD13E3 C4 1F ?05: CPY ecol6599 FD13E5 D0 04 BNE ?066600 FD13E7 85 4C sta ewtmp6601 FD13E9 E6 4E INC ewtmp26602 FD13EB E4 50 ?06: CPX ebtmp6603 FD13ED D0 03 BNE ?076604 FD13EF 20 3D 14 JSR setscrp6605 FD13F2 E8 ?07: INX6606 FD13F3 C8 INY6607 FD13F4 80 DC bra scll26608 FD13F6 E4 50 ?07a: CPX ebtmp6609 FD13F8 D0 03 BNE ?086610 FD13FA 20 3D 14 JSR setscrp6611 FD13FD E8 ?08: INX6612 FD13FE A9 01 lda #^TXTADDR ; move right text and attributes6613 FD1400 8B phb6614 FD1401 48 pha6615 FD1402 AB plb6616 FD1403 A0 50 ldy #MAXCOLS6617 FD1405 88 ?09: dey6618 FD1406 88 dey6619 FD1407 30 0D bmi ?106620 FD1409 B1 34 lda (stxtp),y6621 FD140B EB xba6622 FD140C B1 38 lda (sattp),y ; A = attribute, B = text6623 FD140E C8 iny6624 FD140F 91 38 sta (sattp),y6625 FD1411 EB xba6626 FD1412 91 34 sta (stxtp),y6627 FD1414 80 EF bra ?096628 FD1416 C8 ?10: iny6629 FD1417 A5 4C lda ewtmp6630 FD1419 91 34 sta (stxtp),y6631 FD141B A5 3B lda eattr ; editor attribute6632 FD141D 20 E3 14 JSR tglrev ; check reverse bit6633 FD1420 91 38 sta (sattp),y6634 FD1422 AB plb6635 FD1423 ACC16CLC6636 FD1423 C2 21 rep #(PMFLAG.OR.PCFLAG)6637 .LONGA on6638 .MNLIST6639 FD1425 A5 34 LDA stxtp6640 FD1427 69 50 00 ADC #MAXCOLS6641 FD142A 85 34 STA stxtp6642 FD142C 09 00 08 ora #!TXTATTR6643 FD142F 85 38 sta sattp6644 FD1431 ACC086645 FD1431 E2 20 sep #PMFLAG6646 .LONGA off6647 .MNLISTTue Jul 17 11:00:22 2018 Page 726648 FD1433 E6 4D INC ewtmp+16649 FD1435 A5 4D LDA ewtmp+16650 FD1437 C9 18 CMP #$186651 FD1439 D0 8E bne scll16652 FD143B AB plb6653 FD143C 60 RTS66546655 ; set scroll routine pointers6656 ; this routine change DBR6657 ; P25AF:6658 FD143D setscrp:6659 FD143D 5A phy6660 FD143E ACC166661 FD143E C2 20 rep #PMFLAG6662 .LONGA on6663 .MNLIST6664 FD1440 A7 5C lda [lptc]6665 FD1442 85 5D STA lptc+1 ; B = bank, A = page6666 FD1444 ACC086667 FD1444 E2 20 sep #PMFLAG6668 .LONGA off6669 .MNLIST6670 FD1446 4B phk6671 FD1447 AB plb ; DBR = PBR6672 FD1448 8D 24 13 STA !sclr1+26673 FD144B 8D 2D 13 STA !sclr2+26674 FD144E 8D CB 13 STA !scll1+26675 FD1451 8D D4 13 STA !scll2+26676 FD1454 EB xba ; A = buffer bank6677 FD1455 48 pha6678 FD1456 AB plb ; DBR = buffer bank6679 FD1457 A0 04 LDY #BNDX6680 FD1459 B1 5C lda (lptc),y6681 FD145B 85 50 STA ebtmp6682 FD145D BB tyx6683 FD145E 7A ply6684 FD145F 60 rts66856686 ; set update routine pointers6687 ; this routine change DBR6688 ; in: A = bank, X = page, Y = index6689 ; out: X = index6690 ; P2751:6691 FD1460 setptr:6692 FD1460 4B phk6693 FD1461 AB plb ; DBR = PBR6694 FD1462 64 5C STZ lptc6695 FD1464 85 5E STA lptc+26696 FD1466 9C 6A 12 STZ !updrow+16697 FD1469 9C 85 12 STZ !updr1+16698 FD146C 9C 9B 12 STZ !updr2+16699 FD146F 9C AE 12 STZ !updr3+16700 FD1472 86 5D STX lptc+16701 FD1474 8E 6B 12 STX updrow+26702 FD1477 8E 86 12 STX updr1+26703 FD147A 8E 9C 12 STX updr2+26704 FD147D 8E AF 12 STX updr3+2Tue Jul 17 11:00:22 2018 Page 736705 FD1480 BB TYX6706 FD1481 48 pha6707 FD1482 AB plb ; DBR = buffer bank6708 FD1483 85 40 sta sbank ; save bank6709 FD1485 A0 04 LDY #BNDX6710 FD1487 B1 5C lda (lptc),y6711 FD1489 85 51 STA ebtmp26712 FD148B 60 RTS67136714 ; update routine pointers to start of a block6715 ; this routine change DBR6716 ; out: X = index6717 ; P282A:6718 FD148C updptr:6719 FD148C 5A phy6720 FD148D ACC166721 FD148D C2 20 rep #PMFLAG6722 .LONGA on6723 .MNLIST6724 FD148F A7 5C lda [lptc]6725 FD1491 85 5D STA lptc+1 ; B = bank, A = page6726 FD1493 ACC086727 FD1493 E2 20 sep #PMFLAG6728 .LONGA off6729 .MNLIST6730 FD1495 4B phk6731 FD1496 AB plb ; DBR = PBR6732 FD1497 8D 6B 12 STA !updrow+26733 FD149A 8D 86 12 STA !updr1+26734 FD149D 8D 9C 12 STA !updr2+26735 FD14A0 8D AF 12 STA !updr3+26736 FD14A3 EB xba ; A = buffer bank6737 FD14A4 48 pha6738 FD14A5 AB plb ; DBR = buffer bank6739 FD14A6 85 40 sta sbank ; save bank6740 FD14A8 A0 04 LDY #BNDX6741 FD14AA B1 5C lda (lptc),y6742 FD14AC 85 51 STA ebtmp26743 FD14AE BB tyx6744 FD14AF 7A ply6745 FD14B0 60 rts67466747 ; check selected text range in screen row's6748 ; rsctl is starting selection screen row6749 ; rscth is ending selection screen row6750 ; P2693:6751 FD14B1 chksel:6752 FD14B1 A5 23 LDA fslct6753 FD14B3 F0 2D BEQ ?036754 FD14B5 A5 25 LDA nslcth ; if negative range6755 FD14B7 30 14 BMI ?026756 FD14B9 A5 20 LDA srow6757 FD14BB 85 2B STA rslcth6758 FD14BD 38 SEC6759 FD14BE E5 24 SBC nslctl6760 FD14C0 85 2A STA rslctl6761 FD14C2 A9 00 LDA #$00Tue Jul 17 11:00:22 2018 Page 746762 FD14C4 E5 25 SBC nslcth6763 FD14C6 10 04 BPL ?016764 FD14C8 A9 00 LDA #$006765 FD14CA 85 2A STA rslctl6766 FD14CC 60 ?01: rts6767 FD14CD A5 20 ?02: LDA srow6768 FD14CF 1A inc a6769 FD14D0 85 2A sta rslctl6770 FD14D2 38 SEC6771 FD14D3 E5 24 SBC nslctl6772 FD14D5 1A inc a6773 FD14D6 85 2B sta rslcth6774 FD14D8 A9 FF LDA #$FF6775 FD14DA E5 25 SBC nslcth6776 FD14DC 30 04 BMI ?036777 FD14DE A9 19 LDA #$196778 FD14E0 85 2B STA rslcth6779 FD14E2 60 ?03: RTS67806781 ; invert reverse bit attribute6782 ; in: A = attribute6783 ; P26D9:6784 FD14E3 tglrev:6785 FD14E3 48 PHA6786 FD14E4 A5 23 LDA fslct6787 FD14E6 F0 0E BEQ ?016788 FD14E8 A5 4D LDA ewtmp+1 ; current showed screen row6789 FD14EA C5 2A CMP rslctl6790 FD14EC 90 08 BCC ?016791 FD14EE C5 2B CMP rslcth6792 FD14F0 B0 04 BCS ?016793 FD14F2 68 PLA6794 FD14F3 49 80 EOR #$806795 FD14F5 60 rts6796 FD14F6 68 ?01: PLA6797 FD14F7 60 RTS67986799 ;-----------------------------------------------------------------6800 ; low level screen68016802 ; clear last text line6803 ; P154B:6804 FD14F8 clrlst:6805 FD14F8 A2 30 ldx #<LSTLINE6806 FD14FA A9 07 lda #>LSTLINE6807 FD14FC A0 01 ldy #^LSTLINE6808 FD14FE 86 5C stx lptc6809 FD1500 86 62 stx lptc16810 FD1502 85 5D sta lptc+16811 FD1504 09 08 ora #>TXTATTR6812 FD1506 85 63 sta lptc1+16813 FD1508 84 5E sty lptc+26814 FD150A 84 64 sty lptc1+26815 FD150C A9 20 lda #' '6816 FD150E EB xba6817 FD150F A5 3B lda eattr ; A = attribute, B = blank6818 FD1511 A0 4F ldy #MAXCOLS-1Tue Jul 17 11:00:22 2018 Page 756819 FD1513 97 62 ?02: sta [lptc1],y ; store attribute6820 FD1515 EB xba6821 FD1516 97 5C sta [lptc],y ; store blank6822 FD1518 EB xba6823 FD1519 88 dey6824 FD151A 10 F7 bpl ?026825 FD151C 60 rts68266827 ; set default status line attributes6828 ; P14C9:6829 FD151D setstla:6830 FD151D A2 80 ldx #<STLATTR6831 FD151F A0 0F ldy #>STLATTR6832 FD1521 A9 01 lda #^STLATTR6833 FD1523 86 5C stx lptc6834 FD1525 84 5D sty lptc+16835 FD1527 85 5E sta lptc+26836 FD1529 A5 3C lda slattr ; status line attribute6837 FD152B A0 4F ldy #MAXCOLS-16838 FD152D 97 5C ?02: sta [lptc],y6839 FD152F 88 dey6840 FD1530 10 FB bpl ?026841 FD1532 60 rts68426843 ; set default editor attributes6844 ; P14D5:6845 FD1533 setattr:6846 FD1533 8B phb6847 FD1534 INDEX166848 FD1534 C2 10 rep #PXFLAG6849 .LONGI on6850 .MNLIST6851 FD1536 A2 00 08 ldx #!TXTATTR6852 FD1539 A9 01 lda #^TXTATTR6853 FD153B 86 5C stx lptc6854 FD153D 48 pha6855 FD153E AB plb6856 FD153F A5 3B lda eattr ; editor attribute6857 FD1541 A0 7F 07 ldy #TXTCNT-16858 FD1544 91 5C ?02: sta (lptc),y6859 FD1546 88 dey6860 FD1547 10 FB bpl ?026861 FD1549 INDEX086862 FD1549 E2 10 sep #PXFLAG6863 .LONGI off6864 .MNLIST6865 FD154B AB plb6866 FD154C 60 rts68676868 ; increment screen row6869 ; P1529:6870 FD154D incrow:6871 FD154D ACC16CLC6872 FD154D C2 21 rep #(PMFLAG.OR.PCFLAG)6873 .LONGA on6874 .MNLIST6875 FD154F A5 2C lda cursTue Jul 17 11:00:22 2018 Page 766876 FD1551 69 50 00 adc #MAXCOLS6877 FD1554 85 2C sta curs6878 FD1556 ACC086879 FD1556 E2 20 sep #PMFLAG6880 .LONGA off6881 .MNLIST6882 FD1558 E6 20 inc srow6883 FD155A 60 rts68846885 ; decrement screen row6886 ; P153A:6887 FD155B decrow:6888 FD155B ACC16CLC6889 FD155B C2 21 rep #(PMFLAG.OR.PCFLAG)6890 .LONGA on6891 .MNLIST6892 FD155D A5 2C lda curs6893 FD155F E9 4F 00 sbc #MAXCOLS-1 ; take account carry !6894 FD1562 85 2C sta curs6895 FD1564 ACC086896 FD1564 E2 20 sep #PMFLAG6897 .LONGA off6898 .MNLIST6899 FD1566 C6 20 dec srow6900 FD1568 60 rts69016902 ; reverse screen row (invert "reverse" bit)6903 ; P1DD3:6904 FD1569 revrow:6905 FD1569 ACC166906 FD1569 C2 20 rep #PMFLAG6907 .LONGA on6908 .MNLIST6909 FD156B A5 34 lda stxtp6910 FD156D 09 00 08 ora #!TXTATTR6911 FD1570 85 38 sta sattp6912 FD1572 ACC086913 FD1572 E2 20 sep #PMFLAG6914 .LONGA off6915 .MNLIST6916 FD1574 A0 4F ldy #MAXCOLS-16917 FD1576 B7 38 ?02: lda [sattp],y6918 FD1578 49 80 eor #$806919 FD157A 97 38 sta [sattp],y6920 FD157C 88 dey6921 FD157D 10 F7 bpl ?026922 FD157F 60 rts69236924 ; scroll down editor window (move window up one row)6925 ; P28BD:6926 FD1580 scrldown:6927 FD1580 8B phb6928 FD1581 CPU16CLC6929 FD1581 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)6930 .LONGA on6931 .LONGI on6932 .MNLISTTue Jul 17 11:00:22 2018 Page 776933 FD1583 A9 00 00 lda #!TXTADDR6934 FD1586 AA tax6935 FD1587 85 5C sta lptc6936 FD1589 69 50 00 adc #MAXCOLS6937 FD158C 85 5F sta lpte6938 FD158E 8A txa6939 FD158F 09 00 08 ora #!TXTATTR6940 FD1592 85 62 sta lptc16941 FD1594 69 50 00 adc #MAXCOLS6942 FD1597 85 65 sta lpte16943 FD1599 CPU086944 FD1599 E2 30 sep #(PMFLAG.OR.PXFLAG)6945 .LONGA off6946 .LONGI off6947 .MNLIST6948 FD159B A9 01 lda #^TXTADDR6949 FD159D 48 pha6950 FD159E AB plb6951 FD159F A2 17 ldx #$17 ; move 23 rows6952 FD15A1 A0 4F ?02: ldy #MAXCOLS-16953 FD15A3 B1 5F ?04: lda (lpte),y6954 FD15A5 91 5C sta (lptc),y6955 FD15A7 B1 65 lda (lpte1),y6956 FD15A9 91 62 sta (lptc1),y6957 FD15AB 88 dey6958 FD15AC 10 F5 bpl ?046959 FD15AE ACC16CLC6960 FD15AE C2 21 rep #(PMFLAG.OR.PCFLAG)6961 .LONGA on6962 .MNLIST6963 FD15B0 A5 5F lda lpte6964 FD15B2 85 5C sta lptc6965 FD15B4 69 50 00 adc #MAXCOLS6966 FD15B7 85 5F sta lpte6967 FD15B9 A5 65 lda lpte16968 FD15BB 85 62 sta lptc16969 FD15BD 69 50 00 adc #MAXCOLS6970 FD15C0 85 65 sta lpte16971 FD15C2 ACC086972 FD15C2 E2 20 sep #PMFLAG6973 .LONGA off6974 .MNLIST6975 FD15C4 CA dex6976 FD15C5 D0 DA bne ?026977 FD15C7 AB plb6978 FD15C8 60 rts69796980 ; scroll up editor window (move window down one row)6981 ; P28F9:6982 FD15C9 scrlup:6983 FD15C9 8B phb6984 FD15CA CPU16CLC6985 FD15CA C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)6986 .LONGA on6987 .LONGI on6988 .MNLIST6989 FD15CC A9 30 07 lda #!LSTLINETue Jul 17 11:00:22 2018 Page 786990 FD15CF 85 5C sta lptc6991 FD15D1 AA tax6992 FD15D2 E9 4F 00 sbc #MAXCOLS-1 ; take account of CF = 0 !6993 FD15D5 85 5F sta lpte6994 FD15D7 8A txa6995 FD15D8 09 00 08 ora #!TXTATTR6996 FD15DB 85 62 sta lptc16997 FD15DD E9 50 00 sbc #MAXCOLS ; now CF = 1 !6998 FD15E0 85 65 sta lpte16999 FD15E2 CPU087000 FD15E2 E2 30 sep #(PMFLAG.OR.PXFLAG)7001 .LONGA off7002 .LONGI off7003 .MNLIST7004 FD15E4 A9 01 lda #^LSTLINE7005 FD15E6 48 pha7006 FD15E7 AB plb7007 FD15E8 A2 17 ldx #$17 ; move 23 rows7008 FD15EA A0 4F ?02: ldy #MAXCOLS-17009 FD15EC B1 5F ?04: lda (lpte),y7010 FD15EE 91 5C sta (lptc),y7011 FD15F0 B1 65 lda (lpte1),y7012 FD15F2 91 62 sta (lptc1),y7013 FD15F4 88 dey7014 FD15F5 10 F5 bpl ?047015 FD15F7 ACC16CLC7016 FD15F7 C2 21 rep #(PMFLAG.OR.PCFLAG)7017 .LONGA on7018 .MNLIST7019 FD15F9 A5 5F lda lpte7020 FD15FB 85 5C sta lptc7021 FD15FD E9 4F 00 sbc #MAXCOLS-1 ; take account carry !7022 FD1600 85 5F sta lpte7023 FD1602 A5 65 lda lpte17024 FD1604 85 62 sta lptc17025 FD1606 E9 50 00 sbc #MAXCOLS ; now CF = 1 !7026 FD1609 85 65 sta lpte17027 FD160B ACC087028 FD160B E2 20 sep #PMFLAG7029 .LONGA off7030 .MNLIST7031 FD160D CA dex7032 FD160E D0 DA bne ?027033 FD1610 AB plb7034 FD1611 60 rts70357036 ; wait for <enter> key pressed7037 ; in: Y - column in last screen row7038 ; X preserved7039 FD1612 waitent:7040 FD1612 DA phx7041 FD1613 A2 00 ldx #07042 FD1615 BF 5D 20 FD ?02: lda >strent,x7043 FD1619 F0 0A beq ?047044 FD161B C0 50 cpy #MAXCOLS ; not above limit7045 FD161D B0 06 bcs ?047046 FD161F 97 34 sta [stxtp],yTue Jul 17 11:00:22 2018 Page 797047 FD1621 E8 inx7048 FD1622 C8 iny7049 FD1623 D0 F0 bne ?027050 FD1625 FA ?04: plx70517052 FD1626 waitent2:7053 FD1626 20 90 16 jsr slgkey ; wait key pressed7054 FD1629 B0 FB bcs waitent2 ; control key7055 FD162B EB xba ; ALT,CTL,SHIFT7056 FD162C D0 F8 bne waitent2 ; will be no pressed7057 FD162E EB xba7058 FD162F C9 0D cmp #$0D7059 FD1631 D0 F3 bne waitent27060 FD1633 60 rts70617062 ; put string in status line row (last screen row)7063 ; in: A - attribute7064 ; X - string number # (if $FF is cbm disk error)7065 ; out: Y - next available column in last row7066 FD1634 msgstr:7067 FD1634 EB xba ; B = attribute7068 FD1635 E0 FF cpx #$FF7069 FD1637 D0 08 bne ?017070 FD1639 A2 50 ldx #<EDDSKERR7071 FD163B A0 CC ldy #>EDDSKERR7072 FD163D A9 01 lda #^EDDSKERR7073 FD163F 80 13 bra outstr7074 FD1641 E0 09 ?01: cpx #MAXSTR7075 FD1643 90 02 bcc ?027076 FD1645 A2 00 ldx #0 ; blank string7077 FD1647 BF 4B 20 FD ?02: lda STRTBLL,x ; take string address7078 FD164B 48 pha7079 FD164C BF 54 20 FD lda STRTBLH,x7080 FD1650 A8 tay ; Y = high address7081 FD1651 FA plx ; X = low address7082 FD1652 A9 FD lda #^str01 ; A = bank address7083 FD16547084 ; out string in status line (last screen row)7085 ; in: X,Y,A - address of string7086 ; B - attribute7087 ; out: Y - next available column in last row7088 ; P284A:7089 FD1654 outstr:7090 FD1654 86 5C stx lptc ; store string address7091 FD1656 84 5D sty lptc+17092 FD1658 85 5E sta lptc+27093 FD165A EB xba ; attribute7094 FD165B AA tax ; X = attribute7095 FD165C ACC167096 FD165C C2 20 rep #PMFLAG7097 .LONGA on7098 .MNLIST7099 FD165E A9 80 07 lda #!STLINE ; store address of last screen row7100 FD1661 85 34 sta stxtp7101 FD1663 A9 80 0F lda #!STLATTR7102 FD1666 85 38 sta sattp7103 FD1668 ACC08Tue Jul 17 11:00:22 2018 Page 807104 FD1668 E2 20 sep #PMFLAG7105 .LONGA off7106 .MNLIST7107 FD166A A0 00 ldy #0 ; out string7108 FD166C B7 5C ?02: lda [lptc],y7109 FD166E F0 0C beq ?047110 FD1670 C0 50 cpy #MAXCOLS ; not above limit7111 FD1672 B0 1B bcs ?107112 FD1674 97 34 sta [stxtp],y7113 FD1676 8A txa7114 FD1677 97 38 sta [sattp],y7115 FD1679 C8 iny7116 FD167A D0 F0 bne ?027117 FD167C 5A ?04: phy7118 FD167D A9 20 lda #' ' ; pad row with blanks7119 FD167F EB xba7120 FD1680 8A txa ; A = attribute, B = blank7121 FD1681 C0 50 ?06: cpy #MAXCOLS7122 FD1683 B0 09 bcs ?087123 FD1685 97 38 sta [sattp],y7124 FD1687 EB xba7125 FD1688 97 34 sta [stxtp],y7126 FD168A EB xba7127 FD168B C8 iny7128 FD168C D0 F3 bne ?067129 FD168E 7A ?08: ply7130 FD168F 60 ?10: rts71317132 ; get key for command line/status line7133 ; in: X - number of keys stored7134 ; Y - column7135 ; out: A = key code7136 ; B = flag ALT, CTL, SHIFT7137 ; CF = 1 if control key7138 ; X,Y preserved7139 ; P1BBE:7140 FD1690 slgkey:7141 FD1690 20 D1 16 jsr slcurs ; set cursor position7142 FD1693 20 C6 16 jsr showcurs ; show cursor7143 FD1696 ?02: KBGETIN ; system call - get key7144 FD1696 02 17 cop $177145 .MNLIST7146 FD1698 C9 00 cmp #07147 FD169A F0 FA beq ?02 ; loop -- wait pressed key7148 FD169C C9 20 cmp #' '7149 FD169E D0 05 bne ?04 ; no blank key7150 FD16A0 8A txa7151 FD16A1 F0 F3 beq ?02 ; skip beginning blanks7152 FD16A3 A9 20 lda #' '7153 FD16A5 85 6A ?04: sta tmpe ; store key code7154 FD16A7 EB xba7155 FD16A8 85 6B sta tmpf ; store control key flag7156 FD16AA 20 BB 16 jsr hidecurs7157 FD16AD AF 64 01 00 lda >DP01ADDR+KbdFlag7158 FD16B1 EB xba ; B = flag ALT, CTL, SHIFT7159 FD16B2 18 clc7160 FD16B3 A5 6A lda tmpe ; key codeTue Jul 17 11:00:22 2018 Page 817161 FD16B5 24 6B bit tmpf7162 FD16B7 10 01 bpl ?067163 FD16B9 38 sec ; control key7164 FD16BA 60 ?06: rts71657166 ; hide cursor7167 FD16BB hidecurs:7168 FD16BB A9 10 lda #$10 ; bit PB4 = 17169 FD16BD 0F 76 FC 00 ora >PIAVBB+PIAPRB7170 FD16C1 8F 76 FC 00 sta >PIAVBB+PIAPRB7171 FD16C5 60 rts71727173 ; show cursor7174 FD16C6 showcurs:7175 FD16C6 AF 76 FC 00 lda >PIAVBB+PIAPRB7176 FD16CA 29 EF and #$EF ; bit PB4 = 07177 FD16CC 8F 76 FC 00 sta >PIAVBB+PIAPRB7178 FD16D0 60 rts71797180 ; set position of cursor in status line row7181 ; in: Y = column7182 ; X,Y preserved7183 FD16D1 slcurs:7184 FD16D1 18 clc7185 FD16D2 A9 0E lda #$0E7186 FD16D4 8F 70 FC 00 sta >CRTAddr7187 FD16D8 98 tya7188 FD16D9 65 34 adc stxtp7189 FD16DB EB xba7190 FD16DC A5 35 lda stxtp+17191 FD16DE 80 0D bra pcurs71927193 ; set position of cursor in edit window7194 ; in: Y = column7195 ; X,Y preserved7196 FD16E0 edcurs:7197 FD16E0 18 clc7198 FD16E1 A9 0E lda #$0E7199 FD16E3 8F 70 FC 00 sta >CRTAddr7200 FD16E7 98 tya7201 FD16E8 65 2C adc curs7202 FD16EA EB xba7203 FD16EB A5 2D lda curs+17204 FD16ED7205 FD16ED pcurs:7206 FD16ED 69 00 adc #07207 FD16EF 8F 71 FC 00 sta >CRTData7208 FD16F3 A9 0F lda #$0F7209 FD16F5 8F 70 FC 00 sta >CRTAddr7210 FD16F9 EB xba7211 FD16FA 8F 71 FC 00 sta >CRTData7212 FD16FE 60 rts72137214 ; set default cursor mode basis cursmode value7215 FD16FF setcurs:7216 FD16FF A9 0B lda #$0B ; set 'end scan line' register7217 FD1701 8F 70 FC 00 sta >CRTAddrTue Jul 17 11:00:22 2018 Page 827218 FD1705 A9 0F lda #$0F ; end at last line7219 FD1707 8F 71 FC 00 sta >CRTData7220 FD170B A9 0A lda #$0A ; set 'start scan line' register7221 FD170D 8F 70 FC 00 sta >CRTAddr7222 FD1711 A9 00 lda #$00 ; block cursor: start scan line = 07223 FD1713 24 2E bit cursmode ; check bit <6>7224 FD1715 50 02 bvc ?02 ; block cursor7225 FD1717 A9 0F lda #$0F ; under line cursor: start = end7226 FD1719 8F 71 FC 00 ?02: sta >CRTData7227 FD171D AF 76 FC 00 lda >PIAVBB+PIAPRB7228 FD1721 29 FB and #$FB ; mask PB27229 FD1723 24 2E bit cursmode ; check bit <7>7230 FD1725 10 02 bpl ?04 ; fixed cursor => PB2 = 07231 FD1727 09 04 ora #$04 ; blink cursor => PB2 = 17232 FD1729 8F 76 FC 00 ?04: sta >PIAVBB+PIAPRB7233 FD172D 60 rts72347235 ;---------------------------------------------------------------------7236 ; COMMAND LINE7237 FD172E7238 ; input comand string in EDBUFLIN7239 ; in: X,Y,A - address of prompt string7240 ; P1AF9:7241 FD172E inputstr:7242 FD172E 86 DA stx longp7243 FD1730 84 DB sty longp+17244 FD1732 85 DC sta longp+27245 FD1734 A9 C0 lda #$C07246 FD1736 85 3F sta slfg ; status line input mode7247 FD1738 A9 00 ?lp: lda #0 ; input loop7248 FD173A 8F 50 CC 01 sta >EDBUFLIN7249 FD173E A5 3E lda scatt7250 FD1740 EB xba ; attribute7251 FD1741 A6 DA ldx longp7252 FD1743 A4 DB ldy longp+17253 FD1745 A5 DC lda longp+27254 FD1747 20 54 16 jsr outstr ; print prompt7255 FD174A A2 00 ldx #0 ; buffer index7256 FD174C 20 90 16 ?get: jsr slgkey ; get key7257 FD174F 90 13 bcc ?key ; no control key7258 FD1751 C9 8E cmp #KB_DELETE ; <DELETE> clear all input field7259 FD1753 F0 E3 beq ?lp ; restart input7260 FD1755 C9 90 cmp #KB_BACKSPACE7261 FD1757 D0 F3 bne ?get ; discard others control keys7262 FD1759 8A txa7263 FD175A F0 F0 beq ?get ; at first column do nothing7264 FD175C CA dex ; decrement index and column7265 FD175D 88 dey7266 FD175E A9 20 lda #' ' ; put blank at column7267 FD1760 97 34 sta [stxtp],y7268 FD1762 80 E8 bra ?get ; continue input7269 FD1764 EB ?key: xba ; check flag7270 FD1765 89 C0 bit #(AALTB.OR.ACTRLB)7271 FD1767 D0 E3 bne ?get ; discard alt/ctl keys but shift7272 FD1769 EB xba7273 FD176A C9 1B cmp #KB_ESC ; <ESC> exit from command line7274 FD176C F0 30 beq ?ret ; exit with CF=1Tue Jul 17 11:00:22 2018 Page 837275 FD176E C9 0D cmp #KB_CR ; <ENTER> terminate input line7276 FD1770 F0 16 beq ?end7277 FD1772 C9 20 cmp #' '7278 FD1774 90 D6 bcc ?get ; discard no-printables7279 FD1776 C9 7F cmp #$7F7280 FD1778 B0 D2 bcs ?get7281 FD177A C0 4F cpy #MAXCOLS-1 ; no store above max. column7282 FD177C B0 CE bcs ?get7283 FD177E 97 34 sta [stxtp],y ; print char at column7284 FD1780 9F 50 CC 01 sta >EDBUFLIN,x ; store char at index7285 FD1784 C8 iny7286 FD1785 E8 inx7287 FD1786 80 C4 bra ?get ; continue input7288 FD1788 8A ?end: txa ; current index7289 FD1789 F0 AD beq ?lp ; empty string: restart7290 FD178B CA ?trm: dex ; trim blanks7291 FD178C 30 AA bmi ?lp ; restart7292 FD178E BF 50 CC 01 lda >EDBUFLIN,x7293 FD1792 C9 20 cmp #' '7294 FD1794 F0 F5 beq ?trm7295 FD1796 E8 inx7296 FD1797 A9 00 lda #07297 FD1799 9F 50 CC 01 sta >EDBUFLIN,x ; terminate input7298 FD179D 18 clc ; exit with CF=07299 FD179E 60 ?ret: rts73007301 FD179F cmdline:7302 FD179F A2 AD ldx #<CMDSTR7303 FD17A1 A0 17 ldy #>CMDSTR7304 FD17A3 A9 FD lda #^CMDSTR7305 FD17A5 20 2E 17 jsr inputstr7306 FD17A8 A9 80 lda #$807307 FD17AA 14 3F trb slfg7308 FD17AC 60 rts73097310 FD17AD CMDSTR:7311 FD17AD 43 4D 44 3A 20 .DB 'CMD: ',00073127313 ;---------------------------------------------------------------------73147315 ; entry point (DBR and DP set by caller)7316 ;7317 ; stack frame7318 ;7319 ; ---------7320 ; | ... | 0F7321 ; ---------7322 ; | DPH | 067323 ; ---------7324 ; | DPL | 057325 ; ---------7326 ; | DBR | 047327 ; ---------7328 ; | PBR | 037329 ; ---------7330 ; | PCH | 02Tue Jul 17 11:00:22 2018 Page 847331 ; ---------7332 ; | PCL | 017333 ; ---------73347335 000001 STKPCL .SET $017336 000002 STKPCH .SET $027337 000003 STKPBR .SET $03 ; caller return address7338 000004 STKDBR .SET $04 ; DBR for called procedure7339 000005 STKDP .SET $05 ; DP for called procedure73407341 .PUBLIC qedtent734273437344 FD17B3 qedtent:7345 FD17B3 08 php ; save M/X status7346 FD17B4 CPU087347 FD17B4 E2 30 sep #(PMFLAG.OR.PXFLAG)7348 .LONGA off7349 .LONGI off7350 .MNLIST7351 FD17B6 8B phb7352 FD17B7 0B phd ; frame stack +47353 FD17B8 F4 00 40 pea #$40007354 FD17BB 2B pld7355 FD17BC 48 pha7356 FD17BD DA phx7357 FD17BE A2 00 ldx #$007358 FD17C0 74 00 ?zp: stz <$0,x ; clear DP memory7359 FD17C2 E8 inx7360 FD17C3 D0 FB bne ?zp7361 FD17C5 INDEX167362 FD17C5 C2 10 rep #PXFLAG7363 .LONGI on7364 .MNLIST7365 FD17C7 A2 FF 37 ldx #(EDWRKEND-EDBUFNAM-1)7366 FD17CA A9 00 lda #07367 FD17CC 9F 00 C8 01 ?zz: sta >EDBUFNAM,x7368 FD17D0 CA dex7369 FD17D1 10 F9 bpl ?zz7370 FD17D3 INDEX087371 FD17D3 E2 10 sep #PXFLAG7372 .LONGI off7373 .MNLIST7374 FD17D5 86 0F stx xbuf ; force buffer allocation at start7375 FD17D7 FA plx7376 FD17D8 68 pla7377 FD17D9 85 DA sta longp ; A,X,Y : address of command line7378 FD17DB 86 DB stx longp+17379 FD17DD 84 DC sty longp+27380 FD17DF EB xba7381 FD17E0 85 DD sta fsmode ; mode7382 FD17E2 ACC167383 FD17E2 C2 20 rep #PMFLAG7384 .LONGA on7385 .MNLIST7386 FD17E4 AF 8E 00 00 lda >pbrklv7387 FD17E8 85 E0 sta brksavTue Jul 17 11:00:22 2018 Page 857388 FD17EA ACC087389 FD17EA E2 20 sep #PMFLAG7390 .LONGA off7391 .MNLIST7392 FD17EC 20 63 1D jsr crtsav7393 FD17EF 20 15 18 jsr init7394 FD17F2 20 60 1E jsr chkcmd ; check command line7395 FD17F5 20 00 00 jsr editor ; launch editor7396 FD17F8 A5 41 lda saveps7397 FD17FA 8F 74 FC 00 sta >PIAVBB+PIAPRA ; restore palette address7398 FD17FE 20 90 1D jsr crtrest7399 FD1801 A6 32 ldx embit7400 FD1803 9F 0C FC 00 sta >CREMEOFF,x ; restore video ram bit74017402 FD1807 ACC167403 FD1807 C2 20 rep #PMFLAG7404 .LONGA on7405 .MNLIST7406 FD1809 A5 E0 lda brksav7407 FD180B 8F 8E 00 00 sta >pbrklv7408 FD180F ACC087409 FD180F E2 20 sep #PMFLAG7410 .LONGA off7411 .MNLIST74127413 FD1811 2B pld7414 FD1812 AB plb7415 FD1813 28 plp7416 FD1814 6B rtl74177418 ; init editor7419 ; P1631:7420 FD1815 init:7421 FD1815 A9 40 lda #MINFREE7422 FD1817 20 37 0B jsr chkfree7423 FD181A A9 04 lda #DEFLTAB ; default tab value7424 FD181C 85 19 sta deftab7425 FD181E A9 C0 lda #EDEFCURS ; default cursor mode edit window7426 FD1820 85 2E sta cursmode7427 FD1822 A9 01 lda #^TXTADDR ; bank of video ram7428 FD1824 85 36 sta stxtp+27429 FD1826 85 3A sta sattp+27430 FD1828 A9 00 lda #DEFATTR ; default editor window attribute7431 FD182A 85 3B sta eattr7432 FD182C A9 01 lda #DEFSATTR ; default status line attribute7433 FD182E 85 3C sta slattr7434 FD1830 A9 02 lda #DEFEATTR ; default error message attribute7435 FD1832 85 3D sta seatt7436 FD1834 A9 03 lda #DEFCATTR ; default command line attribute7437 FD1836 85 3E sta scatt7438 FD1838 A9 04 lda #DFGATTR ; disabled flag indicator attribute7439 FD183A 85 49 sta fgatt7440 FD183C A9 40 lda #$407441 FD183E 85 3F sta slfg ; update whole status line7442 FD1840 A9 00 lda #07443 FD1842 48 pha7444 FD1843 AB plb ; DBR = 0Tue Jul 17 11:00:22 2018 Page 867445 FD1844 AE 0C FC ldx CREMEOFF ; save current video ram bit7446 FD1847 86 32 stx embit7447 FD1849 8D 0D FC sta !CREMEON ; enable video ram7448 FD184C AD 74 FC lda !PIAVBB+PIAPRA ; save current palette address7449 FD184F 85 41 sta saveps7450 FD1851 09 0F ora #$0F ; set palette address = 11 11XXX XXXX7451 FD1853 8D 74 FC sta !PIAVBB+PIAPRA7452 FD1856 A9 00 lda #07453 FD1858 A8 tay ; Y = 07454 FD1859 EB xba ; B = 07455 FD185A A9 F0 lda #$F0 ; set base address palette7456 FD185C CPU167457 FD185C C2 30 rep #(PMFLAG.OR.PXFLAG)7458 .LONGA on7459 .LONGI on7460 .MNLIST7461 FD185E 0A asl a7462 FD185F 0A asl a ; this make base address = $03C07463 FD1860 AA tax7464 FD1861 ACC087465 FD1861 E2 20 sep #PMFLAG7466 .LONGA off7467 .MNLIST7468 FD1863 A9 D0 lda #$D0 ; LIGHT YELLOW/BLACK -- editor7469 FD1865 9F 00 10 01 sta >VBBPALRAM,x ; palette=07470 FD1869 E8 inx7471 FD186A A9 F2 lda #$F2 ; WHITE/DARK BLUE -- status line7472 FD186C 9F 00 10 01 sta >VBBPALRAM,x ; palette=17473 FD1870 E8 inx7474 FD1871 A9 92 lda #$92 ; LIGHT RED/DARK BLUE -- error line7475 FD1873 9F 00 10 01 sta >VBBPALRAM,x ; palette=27476 FD1877 E8 inx7477 ;lda #$0E ; BLACK/LIGHT GRAY -- command line7478 FD1878 A9 2F lda #$2F ; DARK BLUE/WHITE -- command line7479 FD187A 9F 00 10 01 sta >VBBPALRAM,x ; palette=37480 FD187E E8 inx7481 FD187F A9 E2 lda #$E2 ; GRAY/DARK BLUE -- status line7482 FD1881 9F 00 10 01 sta >VBBPALRAM,x ; palette=47483 FD1885 CPU087484 FD1885 E2 30 sep #(PMFLAG.OR.PXFLAG)7485 .LONGA off7486 .LONGI off7487 .MNLIST7488 FD1887 A9 00 lda #0 ; start with buffer #07489 FD1889 20 F6 0B jsr switchb7490 FD188C A9 20 lda #$20 ; enable indent7491 FD188E 04 18 tsb bflag7492 FD1890 20 33 15 jsr setattr7493 FD1893 4C 32 04 jmp updwin74947495 ;---------------------------------------------------------------------74967497 ; convert byte A in decimal (3 digits stored in tstr2)7498 FD1896 byte2str:7499 FD1896 85 4A sta wtmp7500 FD1898 64 4B stz wtmp+17501 FD189A A9 80 lda #$80 ; flag byteTue Jul 17 11:00:22 2018 Page 877502 FD189C 85 50 sta ebtmp7503 FD189E 80 02 bra int2s75047505 ; convert integer in wtmp in decimal (5 digits stored in tstr2)7506 FD18A0 int2str:7507 FD18A0 64 50 stz ebtmp ; flag integer7508 FD18A2 int2s:7509 FD18A2 64 51 stz ebtmp2 ; string index7510 FD18A4 8B phb7511 FD18A5 4B phk ; set DBR = PBR7512 FD18A6 AB plb7513 FD18A7 A0 08 ldy #8 ; power 10 table access index7514 FD18A9 A2 00 ?02: ldx #0 ; partial quotient7515 FD18AB 38 sec7516 FD18AC ACC16 ; repeated subctract7517 FD18AC C2 20 rep #PMFLAG7518 .LONGA on7519 .MNLIST7520 FD18AE A5 4A lda wtmp7521 FD18B0 F9 41 20 ?04: sbc P10TBL,y7522 FD18B3 90 03 bcc ?06 ; stop subctract7523 FD18B5 E8 inx ; increment quotient7524 FD18B6 80 F8 bra ?047525 FD18B8 79 41 20 ?06: adc P10TBL,y ; store result7526 FD18BB 85 4A sta wtmp7527 FD18BD ACC08SEC7528 FD18BD E2 21 sep #(PMFLAG.OR.PCFLAG)7529 .LONGA off7530 .MNLIST7531 FD18BF 8A txa ; 0..97532 FD18C0 69 2F adc #'0'-1 ; decimal digit7533 FD18C2 A6 51 ldx ebtmp2 ; string index7534 FD18C4 95 52 sta tstr2,x ; store digit7535 FD18C6 E8 inx7536 FD18C7 86 51 stx ebtmp2 ; update string index7537 FD18C9 88 dey7538 FD18CA 88 dey7539 FD18CB 10 DC bpl ?027540 FD18CD AB plb7541 FD18CE 24 50 bit ebtmp7542 FD18D0 10 13 bpl ?107543 FD18D2 A2 02 ldx #2 ; adjust for byte7544 FD18D4 A0 00 ldy #07545 FD18D6 B5 52 ?08: lda <tstr2,x7546 FD18D8 86 62 stx tmp67547 FD18DA BB tyx7548 FD18DB 95 52 sta <tstr2,x7549 FD18DD A6 62 ldx tmp67550 FD18DF E8 inx7551 FD18E0 C8 iny7552 FD18E1 C0 03 cpy #37553 FD18E3 90 F1 bcc ?087554 FD18E5 60 ?10: rts755575567557 ;------------------------7558 FD18E6 exit:Tue Jul 17 11:00:22 2018 Page 887559 FD18E6 A9 80 lda #$807560 FD18E8 04 33 tsb edtfg7561 FD18EA 60 rts75627563 ; ALT-O7564 FD18EB open:7565 FD18EB A2 00 ldx #<?opn7566 FD18ED A0 19 ldy #>?opn7567 FD18EF A9 FD lda #^?opn7568 FD18F1 20 2E 17 jsr inputstr7569 FD18F4 B0 09 bcs ?end7570 FD18F6 20 BB 16 jsr hidecurs7571 FD18F9 20 7D 1E jsr cbmopn7572 ;lda #$80 ; clear input mode flag7573 ;trb slfg7574 ;lda #$807575 ;trb bflag ; not modified7576 FD18FC 20 4F 05 jsr updsl7577 FD18FF 60 ?end: rts7578 FD1900 4F 70 65 6E 3A ?opn: .DB 'Open: ', 020 0075797580 ; ALT-S7581 FD1907 save:7582 FD1907 20 26 1B jsr chkbuf7583 FD190A F0 10 beq ?end ; clipboard or empty buffer7584 FD190C A9 10 lda #$10 ; named buffer?7585 FD190E 24 18 bit bflag7586 FD1910 F0 0B beq saveas ; no, call saveas7587 FD1912 24 DD bit fsmode7588 FD1914 10 03 bpl ?fat ; save fat file7589 FD1916 4C 17 1A jmp csave ; save cbm file7590 FD1919 4C 24 1B ?fat: jmp fsave7591 FD191C 60 ?end: rts75927593 FD191D saveas:7594 FD191D A2 2F ldx #<?sav7595 FD191F A0 19 ldy #>?sav7596 FD1921 A9 FD lda #^?sav7597 FD1923 20 2E 17 jsr inputstr7598 FD1926 B0 06 bcs ?end7599 FD1928 24 DD bit fsmode7600 FD192A 10 0A bpl fsaveas7601 FD192C 30 0A bmi csaveas7602 FD192E 60 ?end: rts76037604 FD192F 53 61 76 65 3A ?sav: .DB 'Save: ', 020 0076057606 FD1936 fsaveas:7607 FD1936 18 clc7608 FD1937 60 rts76097610 FD1938 csaveas:7611 FD1938 A9 01 lda #^EDBUFFILE ; set pointer to filename7612 FD193A 85 DC sta longp+27613 FD193C A9 00 lda #<EDBUFFILETue Jul 17 11:00:22 2018 Page 897614 FD193E 85 DA sta longp7615 FD1940 A9 CC lda #>EDBUFFILE7616 FD1942 85 DB sta longp+17617 FD1944 A2 00 ldx #07618 FD1946 A9 40 lda #'@'7619 FD1948 87 DA sta [longp] ; replace flag7620 FD194A A0 01 ldy #17621 FD194C AF 51 CC 01 lda >EDDSKERR+1 ; check drive7622 FD1950 C9 3A cmp #':'7623 FD1952 D0 0C bne ?dr ; store deafult drive '0'7624 FD1954 AF 50 CC 01 lda >EDDSKERR7625 FD1958 C9 30 cmp #'0' ; continue if drive 0 or 17626 FD195A F0 0E beq ?mv7627 FD195C C9 31 cmp #'1'7628 FD195E F0 0A beq ?mv7629 FD1960 A9 30 ?dr: lda #'0' ; put default drive '0'7630 FD1962 97 DA sta [longp],y7631 FD1964 C8 iny7632 FD1965 A9 3A lda #':'7633 FD1967 97 DA sta [longp],y7634 FD1969 C8 iny7635 FD196A BF 50 CC 01 ?mv: lda >EDDSKERR,x ; set filename7636 FD196E F0 12 beq ?nxt7637 FD1970 C9 61 cmp #'a' ; upper case7638 FD1972 90 06 bcc ?st7639 FD1974 C9 7B cmp #'z'+17640 FD1976 B0 02 bcs ?st7641 FD1978 29 DF and #$DF7642 FD197A 97 DA ?st: sta [longp],y7643 FD197C E8 inx7644 FD197D C8 iny7645 FD197E C0 48 cpy #MAXFNAME-87646 FD1980 90 E8 bcc ?mv7647 FD1982 A2 03 ?nxt: ldx #37648 FD1984 5A phy ; save index7649 FD1985 BF 13 1A FD ?lp: lda >?rdw,x7650 FD1989 97 DA sta [longp],y7651 FD198B C8 iny7652 FD198C CA dex7653 FD198D 10 F6 bpl ?lp7654 FD198F A9 00 lda #07655 FD1991 97 DA sta [longp],y7656 FD1993 ACC167657 FD1993 C2 20 rep #PMFLAG7658 .LONGA on7659 .MNLIST7660 FD1995 E6 DA inc longp ; no overwrite for now7661 FD1997 ACC087662 FD1997 E2 20 sep #PMFLAG7663 .LONGA off7664 .MNLIST7665 FD1999 20 99 1F ?opn: jsr cdskopn ; open file7666 FD199C 7A ply7667 FD199D 90 2A bcc ?ok ; no error7668 FD199F 84 58 sty bka7669 FD19A1 AF 50 CC 01 lda >EDDSKERR ; check error 63 (file exist)7670 FD19A5 C9 36 cmp #'6'Tue Jul 17 11:00:22 2018 Page 907671 FD19A7 D0 46 bne ?derr ; error of another kind7672 FD19A9 AF 51 CC 01 lda >EDDSKERR+17673 FD19AD C9 33 cmp #'3'7674 FD19AF D0 3E bne ?derr7675 FD19B1 A2 F6 ldx #<?msg ; ask overwrite confirmation7676 FD19B3 A0 19 ldy #>?msg7677 FD19B5 A9 FD lda #^?msg7678 FD19B7 20 91 1B jsr confirm ; ask confirmation7679 FD19BA B0 29 bcs ?end ; no, <ESC>7680 FD19BC D0 27 bne ?end ; no, <N>7681 FD19BE ACC167682 FD19BE C2 20 rep #PMFLAG7683 .LONGA on7684 .MNLIST7685 FD19C0 C6 DA dec longp7686 FD19C2 ACC087687 FD19C2 E2 20 sep #PMFLAG7688 .LONGA off7689 .MNLIST7690 FD19C4 A4 58 ldy bka7691 FD19C6 5A phy7692 FD19C7 80 D0 bra ?opn ; try again with replace flag7693 FD19C9 20 50 1A ?ok: jsr csave27694 FD19CC B0 17 bcs ?end ; some error7695 FD19CE A2 00 ldx #07696 FD19D0 BF 01 CC 01 ?cp: lda >EDBUFFILE+1,x ; skip '@'7697 FD19D4 9F 00 CD 01 sta >EDCURFILE,x7698 FD19D8 F0 03 beq ?upd7699 FD19DA E8 inx7700 FD19DB 80 F3 bra ?cp7701 FD19DD A5 18 ?upd: lda bflag7702 FD19DF 29 7F and #$7F7703 FD19E1 09 10 ora #$107704 FD19E3 85 18 sta bflag7705 FD19E5 A9 40 ?end: lda #$407706 FD19E7 85 3F sta slfg7707 FD19E9 20 4F 05 jsr updsl7708 FD19EC 4C 32 04 jmp updwin77097710 FD19EF ?derr:7711 FD19EF A2 FF ldx #$FF ; disk error7712 FD19F1 20 43 05 jsr error7713 FD19F4 80 EF bra ?end77147715 FD19F6 46 69 6C 65 20 ?msg: .DB 'File exist; overwrite <Y/N>?', 065 78 69 73 743B 20 6F 76 6572 77 72 69 7465 20 3C 59 2F4E 3E 3F 007716 FD1A13 57 2C 53 2C ?rdw: .DB 'W,S,'771777187719 ; save CBM file7720 FD1A17 csave:7721 FD1A17 A9 00 lda #<EDBUFFILE ; prepare filename7722 FD1A19 85 DA sta longpTue Jul 17 11:00:22 2018 Page 917723 FD1A1B A9 CC lda #>EDBUFFILE7724 FD1A1D 85 DB sta longp+17725 FD1A1F A9 01 lda #^EDBUFFILE7726 FD1A21 85 DC sta longp+27727 FD1A23 A9 40 lda #'@' ; replace flag7728 FD1A25 87 DA sta [longp]7729 FD1A27 A0 01 ldy #17730 FD1A29 A2 00 ldx #07731 FD1A2B BF 00 CD 01 ?nam: lda >EDCURFILE,x7732 FD1A2F F0 08 beq ?nxt7733 FD1A31 97 DA sta [longp],y7734 FD1A33 C8 iny7735 FD1A34 E8 inx7736 FD1A35 C0 12 cpy #187737 FD1A37 90 F2 bcc ?nam7738 FD1A39 A2 03 ?nxt: ldx #37739 FD1A3B 5A phy7740 FD1A3C BF 88 1A FD ?lp: lda >_?rdw,x7741 FD1A40 97 DA sta [longp],y7742 FD1A42 C8 iny7743 FD1A43 CA dex7744 FD1A44 10 F6 bpl ?lp7745 FD1A46 A9 00 lda #07746 FD1A48 97 DA sta [longp],y7747 FD1A4A 20 99 1F jsr cdskopn ; open file7748 FD1A4D 7A ply7749 FD1A4E B0 30 bcs _?derr ; error7750 FD1A50 csave2:7751 FD1A50 A9 00 lda #07752 FD1A52 97 DA sta [longp],y7753 FD1A54 A5 DC lda longp+27754 FD1A56 48 pha7755 FD1A57 D4 DA pei (longp)7756 FD1A59 4B phk7757 FD1A5A F4 8C 1A pea #_?sav7758 FD1A5D A9 07 lda #77759 FD1A5F 48 pha7760 FD1A60 BSPRINTF2 ; format in local string7761 FD1A60 02 14 cop $147762 .MNLIST7763 FD1A62 DA phx ; bank that hold string7764 FD1A63 AA tax ; low address7765 FD1A64 EB xba7766 FD1A65 A8 tay ; hi address7767 FD1A66 A5 3C lda slattr ; attribute7768 FD1A68 EB xba7769 FD1A69 68 pla ; bank7770 FD1A6A 20 54 16 jsr outstr7771 FD1A6D A9 40 lda #$40 ; force update status line7772 FD1A6F 85 3F sta slfg7773 FD1A71 20 9B 1A jsr savbuf7774 FD1A74 B0 0A bcs _?derr7775 FD1A76 20 4F 05 jsr updsl7776 FD1A79 18 clc7777 FD1A7A 08 _?end: php7778 FD1A7B 20 32 04 jsr updwin7779 FD1A7E 28 plpTue Jul 17 11:00:22 2018 Page 927780 FD1A7F 60 rts77817782 FD1A80 _?derr:7783 FD1A80 A2 FF ldx #$FF ; disk error7784 FD1A82 20 43 05 jsr error7785 FD1A85 38 sec7786 FD1A86 80 F2 bra _?end77877788 FD1A88 57 2C 53 2C _?rdw: .DB 'W,S,'7789 FD1A8C 53 61 76 69 6E _?sav: .DB 'Saving "%s"...', 067 20 22 25 7322 2E 2E 2E 0077907791 ; save current buffer7792 FD1A9B savbuf:7793 FD1A9B 20 93 0E jsr mvpp2 ; save buffer pointer7794 FD1A9E ACC167795 FD1A9E C2 20 rep #PMFLAG7796 .LONGA on7797 .MNLIST7798 FD1AA0 A5 12 lda pbuf ; set pointer to start7799 FD1AA2 85 15 sta ppage7800 FD1AA4 64 58 stz bka7801 FD1AA6 A9 00 E0 lda #EDDSKBUF ; set disk buffer pointer7802 FD1AA9 85 52 sta pb7803 FD1AAB A2 01 ldx #^EDDSKBUF7804 FD1AAD 86 54 stx pb+27805 FD1AAF ACC087806 FD1AAF E2 20 sep #PMFLAG7807 .LONGA off7808 .MNLIST7809 FD1AB1 A9 05 lda #BSTART7810 FD1AB3 85 17 sta ixb7811 FD1AB5 80 03 bra ?get7812 FD1AB7 20 BE 0F ?nxt: jsr incptr ; inc buffer pointer7813 FD1ABA 20 A9 0F ?get: jsr getbyte ; get next byte7814 FD1ABD B0 12 bcs ?end ; end of text7815 FD1ABF 20 F2 1A jsr ?put ; put into disk buffer7816 FD1AC2 B0 24 bcs ?rst ; error7817 FD1AC4 C9 0D cmp #$0D7818 FD1AC6 D0 EF bne ?nxt7819 FD1AC8 A9 0A lda #$0A ; dos style text file7820 FD1ACA 20 F2 1A jsr ?put7821 FD1ACD B0 19 bcs ?rst ; error7822 FD1ACF 80 E6 bra ?nxt ; next byte7823 FD1AD1 18 ?end: clc ; no error7824 FD1AD2 A5 58 lda bka ; check if must flush disk buffer7825 FD1AD4 05 59 ora bka+17826 FD1AD6 F0 03 beq ?cls ; no flush: close file7827 FD1AD8 20 02 1B jsr ?wr ; flush buffer7828 FD1ADB 08 ?cls: php7829 FD1ADC 24 DD bit fsmode ; close file7830 FD1ADE 10 06 bpl ?fcls7831 FD1AE0 A9 0E lda #$0E ; close file7832 FD1AE2 CBMFSCLS7833 FD1AE2 02 82 cop FN_CBMFSCLS7834 .MNLISTTue Jul 17 11:00:22 2018 Page 937835 FD1AE4 80 01 bra ?go7836 FD1AE6 EA ?fcls: nop7837 FD1AE7 28 ?go: plp7838 FD1AE8 20 4A 0E ?rst: jsr pp2mv ; restore pointer7839 FD1AEB B0 04 bcs ?end27840 FD1AED A9 80 lda #$807841 FD1AEF 14 18 trb bflag ; clear modified flag7842 FD1AF1 60 ?end2: rts78437844 FD1AF2 ?put: INDEX16 ; insert into disk buffer7845 FD1AF2 C2 10 rep #PXFLAG7846 .LONGI on7847 .MNLIST7848 FD1AF4 A4 58 ldy bka ; current index7849 FD1AF6 97 52 sta [pb],y ; store byte7850 FD1AF8 C8 iny ; update index7851 FD1AF9 84 58 sty bka7852 FD1AFB C0 00 20 cpy #EDDSKBUFSIZ ; check if full7853 FD1AFE INDEX087854 FD1AFE E2 10 sep #PXFLAG7855 .LONGI off7856 .MNLIST7857 FD1B00 90 21 bcc ?rts7858 FD1B02 24 DD ?wr: bit fsmode ; write buffer to disk7859 FD1B04 10 18 bpl ?wfat ; fat file7860 FD1B06 A5 54 lda pb+2 ; set buffer pointer7861 FD1B08 48 pha7862 FD1B09 D4 52 pei (pb)7863 FD1B0B D4 58 pei (bka) ; buffer size7864 FD1B0D A9 0E lda #$0E7865 FD1B0F 48 pha ; chnl 147866 FD1B10 CBMFSWR ; write buffer7867 FD1B10 02 81 cop FN_CBMFSRW7868 FD1B12 01 .DB $017869 .MNLIST7870 FD1B13 90 0A bcc ?ok7871 FD1B15 20 A6 1F jsr cdskerr ; get error string7872 FD1B18 A9 0E lda #$0E ; close file7873 FD1B1A CBMFSCLS7874 FD1B1A 02 82 cop FN_CBMFSCLS7875 .MNLIST7876 FD1B1C 38 sec ; error7877 FD1B1D 60 rts7878 FD1B1E 18 ?wfat: clc7879 FD1B1F 64 58 ?ok: stz bka ; clear index7880 FD1B21 64 59 stz bka+17881 FD1B23 60 ?rts: rts78827883 FD1B24 fsave:7884 FD1B24 18 clc7885 FD1B25 60 rts78867887 ; check current buffer7888 ; ZF=1 if clipboard or empty buffer7889 FD1B26 chkbuf:7890 FD1B26 A5 0F lda xbuf7891 FD1B28 C9 0A cmp #CLIPBRDTue Jul 17 11:00:22 2018 Page 947892 FD1B2A F0 0E beq ?end ; is clipboard7893 FD1B2C A5 12 lda pbuf7894 FD1B2E 85 53 sta pb+17895 FD1B30 A5 13 lda pbuf+17896 FD1B32 85 54 sta pb+27897 FD1B34 64 52 stz pb7898 FD1B36 A0 05 ldy #BSTART7899 FD1B38 B7 52 lda [pb],y ; ZF=1 if empty7900 FD1B3A 60 ?end: rts79017902 ; ALT-N7903 FD1B3B clrbuf:7904 FD1B3B 20 26 1B jsr chkbuf7905 FD1B3E F0 24 beq ?end ; clipboard or empty buffer7906 FD1B40 A2 65 ldx #<?sclr7907 FD1B42 A0 1B ldy #>?sclr7908 FD1B44 A9 FD lda #^?sclr7909 FD1B46 20 91 1B jsr confirm ; ask confirmation7910 FD1B49 B0 19 bcs ?end ; no, <ESC>7911 FD1B4B D0 17 bne ?end ; no, <N>7912 FD1B4D 24 18 bit bflag ; buffer modified?7913 FD1B4F 10 03 bpl ?go ; no7914 FD1B51 20 07 19 jsr save7915 FD1B54 64 1C ?go: stz cline7916 FD1B56 64 1D stz cline+17917 FD1B58 A5 0F lda xbuf7918 FD1B5A 20 78 0B jsr freebuf7919 FD1B5D A9 40 lda #$407920 FD1B5F 85 3F sta slfg7921 FD1B61 20 32 04 jsr updwin7922 FD1B64 60 ?end: rts79237924 FD1B65 41 72 65 20 79 ?sclr: .DB 'Are you sure to clear current buffer <Y/N>?', 06F 75 20 73 7572 65 20 74 6F20 63 6C 65 6172 20 63 75 7272 65 6E 74 2062 75 66 66 6572 20 3C 59 2F4E 3E 3F 0079257926 ; X,Y,A = string ptr7927 ; CF = 1 if <ESC>7928 ; CF=0, ZF=0 if <N>7929 ; CF=0, ZF=1 if <Y>7930 FD1B91 confirm:7931 FD1B91 EB xba7932 FD1B92 A5 3D lda seatt7933 FD1B94 EB xba7934 FD1B95 20 54 16 jsr outstr7935 FD1B98 20 90 16 ?get: jsr slgkey ; wait key pressed7936 FD1B9B B0 FB bcs ?get ; control key7937 FD1B9D EB xba ; ALT,CTL,SHIFT7938 FD1B9E D0 F8 bne ?get ; will be no pressed7939 FD1BA0 EB xba7940 FD1BA1 C9 1B cmp #KB_ESCTue Jul 17 11:00:22 2018 Page 957941 FD1BA3 F0 14 beq ?end ; exit with CF=17942 FD1BA5 C9 61 cmp #'a'7943 FD1BA7 90 06 bcc ?nxt7944 FD1BA9 C9 7B cmp #'z'+17945 FD1BAB B0 02 bcs ?nxt7946 FD1BAD 29 DF and #$DF ; capitalize7947 FD1BAF C9 59 ?nxt: cmp #'Y'7948 FD1BB1 F0 05 beq ?ok ; exit with CF=0, ZF=17949 FD1BB3 C9 4E cmp #'N'7950 FD1BB5 D0 E1 bne ?get7951 FD1BB7 1A inc a ; exit with CF=0, ZF=07952 FD1BB8 18 ?ok: clc7953 FD1BB9 08 ?end: php7954 FD1BBA A9 40 lda #$40 ; force updare status line7955 FD1BBC 85 3F sta slfg7956 FD1BBE 20 4F 05 jsr updsl7957 FD1BC1 28 plp7958 FD1BC2 60 rts79597960 ;ALT-T7961 FD1BC3 settab:7962 FD1BC3 A5 19 lda deftab ; prepare prompt string7963 FD1BC5 48 pha7964 FD1BC6 A9 28 lda #MAXTABVAL7965 FD1BC8 48 pha7966 FD1BC9 A9 02 lda #MINTABVAL7967 FD1BCB 48 pha7968 FD1BCC 4B phk ; bank of format string7969 FD1BCD F4 1C 1C pea #?tstr7970 FD1BD0 A9 07 lda #77971 FD1BD2 48 pha7972 FD1BD3 BSPRINTF2 ; format in local string7973 FD1BD3 02 14 cop $147974 .MNLIST7975 FD1BD5 86 58 stx bka ; bank7976 FD1BD7 AA tax ; low address7977 FD1BD8 EB xba7978 FD1BD9 A8 tay ; hi address7979 FD1BDA A5 58 lda bka7980 FD1BDC 20 2E 17 jsr inputstr7981 FD1BDF B0 36 bcs ?end7982 FD1BE1 20 1C 1D jsr getnum ; get number in bka7983 FD1BE4 B0 31 bcs ?end ; error7984 FD1BE6 A6 58 ldx bka7985 FD1BE8 A5 59 lda bka+17986 FD1BEA F0 21 beq ?ok7987 FD1BEC A0 28 ?err: ldy #MAXTABVAL7988 FD1BEE 5A phy7989 FD1BEF A0 02 ldy #MINTABVAL7990 FD1BF1 5A phy7991 FD1BF2 48 pha ; illegal value7992 FD1BF3 DA phx7993 FD1BF4 F4 B0 00 pea #EDERRSIZ ; size of dest. string7994 FD1BF7 A9 01 lda #^EDDSKERR ; eror dest. string7995 FD1BF9 48 pha7996 FD1BFA F4 50 CC pea #EDDSKERR7997 FD1BFD 4B phk ; format stringTue Jul 17 11:00:22 2018 Page 967998 FD1BFE F4 53 1C pea #?serr7999 FD1C01 A9 0D lda #138000 FD1C03 48 pha8001 FD1C04 BSPRINTF8002 FD1C04 02 12 cop $128003 .MNLIST8004 FD1C06 A2 FF ldx #$FF ; error string in EDDSKERR8005 FD1C08 20 43 05 jsr error8006 FD1C0B 80 0A bra ?end8007 FD1C0D E0 02 ?ok: cpx #MINTABVAL8008 FD1C0F 90 DB bcc ?err8009 FD1C11 E0 29 cpx #MAXTABVAL+18010 FD1C13 B0 D7 bcs ?err8011 FD1C15 86 19 stx deftab8012 FD1C17 A9 80 ?end: lda #$80 ; clear input mode flag8013 FD1C19 14 3F trb slfg8014 FD1C1B 60 rts80158016 FD1C1C 53 65 74 20 74 ?tstr: .DB 'Set tab value in range %bu..%bu (current value: %bu): ', 061 62 20 76 616C 75 65 20 696E 20 72 61 6E67 65 20 25 6275 2E 2E 25 6275 20 28 63 7572 72 65 6E 7420 76 61 6C 7565 3A 20 25 6275 29 3A 20 008017 FD1C53 49 6C 6C 65 67 ?serr: .DB 'Illegal tab value: %hu (must be in range %bu..%bu)', 061 6C 20 74 6162 20 76 61 6C75 65 3A 20 2568 75 20 28 6D75 73 74 20 6265 20 69 6E 2072 61 6E 67 6520 25 62 75 2E2E 25 62 75 290080188019 ; ALT-G8020 FD1C86 gotoln:8021 FD1C86 A2 0E ldx #<?gto8022 FD1C88 A0 1D ldy #>?gto8023 FD1C8A A9 FD lda #^?gto8024 FD1C8C 20 2E 17 jsr inputstr8025 FD1C8F B0 78 bcs ?end8026 FD1C91 20 1C 1D jsr getnum ; get number in bka8027 FD1C94 B0 73 bcs ?end ; error8028 FD1C96 A5 58 lda bka8029 FD1C98 05 59 ora bka+18030 FD1C9A F0 04 beq ?hom8031 FD1C9C C9 01 cmp #18032 FD1C9E D0 05 bne ?nxt8033 FD1CA0 20 99 03 ?hom: jsr gohome8034 FD1CA3 80 64 bra ?endTue Jul 17 11:00:22 2018 Page 978035 FD1CA5 ?nxt: ACC168036 FD1CA5 C2 20 rep #PMFLAG8037 .LONGA on8038 .MNLIST8039 FD1CA7 A5 58 lda bka8040 FD1CA9 C5 1A cmp ncount8041 FD1CAB ACC088042 FD1CAB E2 20 sep #PMFLAG8043 .LONGA off8044 .MNLIST8045 FD1CAD 90 05 bcc ?gol8046 FD1CAF 20 B4 03 jsr goend8047 FD1CB2 80 55 bra ?end8048 FD1CB4 ?gol: ACC168049 FD1CB4 C2 20 rep #PMFLAG8050 .LONGA on8051 .MNLIST8052 FD1CB6 C5 1C cmp cline8053 FD1CB8 ACC088054 FD1CB8 E2 20 sep #PMFLAG8055 .LONGA off8056 .MNLIST8057 FD1CBA F0 4D beq ?end8058 FD1CBC ACC168059 FD1CBC C2 20 rep #PMFLAG8060 .LONGA on8061 .MNLIST8062 FD1CBE A2 00 ldx #08063 FD1CC0 B0 08 bcs ?gol1 ; > cline8064 FD1CC2 CA dex ; < cline8065 FD1CC3 38 sec8066 FD1CC4 A5 1C lda cline8067 FD1CC6 E5 58 sbc bka8068 FD1CC8 80 02 bra ?gol28069 FD1CCA E5 1C ?gol1: sbc cline8070 FD1CCC 85 5A ?gol2: sta bkb8071 FD1CCE ACC088072 FD1CCE E2 20 sep #PMFLAG8073 .LONGA off8074 .MNLIST8075 FD1CD0 9B txy8076 FD1CD1 10 1C bpl ?down ; go down8077 FD1CD3 20 AD 0E JSR pp8mv8078 FD1CD6 20 8C 0F ?01: JSR startln8079 FD1CD9 ACC168080 FD1CD9 C2 20 rep #PMFLAG8081 .LONGA on8082 .MNLIST8083 FD1CDB B0 08 BCS ?058084 FD1CDD A6 23 ldx fslct8085 FD1CDF F0 02 BEQ ?038086 FD1CE1 C6 24 DEC nslctl8087 FD1CE3 C6 1C ?03: DEC cline8088 FD1CE5 C6 5A ?05: DEC bkb8089 FD1CE7 ACC088090 FD1CE7 E2 20 sep #PMFLAG8091 .LONGA offTue Jul 17 11:00:22 2018 Page 988092 .MNLIST8093 FD1CE9 D0 EB BNE ?018094 FD1CEB A9 06 LDA #$068095 FD1CED 80 17 bra ?108096 FD1CEF ?down:8097 FD1CEF 20 70 0F ?01a: JSR nextln8098 FD1CF2 ACC168099 FD1CF2 C2 20 rep #PMFLAG8100 .LONGA on8101 .MNLIST8102 FD1CF4 B0 08 BCS ?03a8103 FD1CF6 A6 23 ldx fslct8104 FD1CF8 F0 02 BEQ ?02a8105 FD1CFA E6 24 INC nslctl8106 FD1CFC E6 1C ?02a: INC cline8107 FD1CFE C6 5A ?03a: DEC bkb8108 FD1D00 ACC088109 FD1D00 E2 20 sep #PMFLAG8110 .LONGA off8111 .MNLIST8112 FD1D02 D0 EB BNE ?01a8113 FD1D04 A9 11 LDA #$1181148115 FD1D06 20 94 03 ?10: jsr epage8116 FD1D09 A9 80 ?end: lda #$80 ; clear input mode flag8117 FD1D0B 14 3F trb slfg8118 FD1D0D 60 rts81198120 FD1D0E 47 6F 74 6F 20 ?gto: .DB 'Goto line #: ', 06C 69 6E 65 2023 3A 20 0081218122 FD1D1C getnum:8123 FD1D1C A2 00 ldx #08124 FD1D1E 86 58 stx bka8125 FD1D20 86 59 stx bka+18126 FD1D22 86 5B stx bkb+18127 FD1D24 20 53 1D ?nxt: jsr ?get8128 FD1D27 A8 tay8129 FD1D28 F0 27 beq ?ret ; end of string8130 FD1D2A B0 1A bcs ?err8131 FD1D2C E9 2F sbc #'0'-18132 FD1D2E 85 5A sta bkb8133 FD1D30 ACC168134 FD1D30 C2 20 rep #PMFLAG8135 .LONGA on8136 .MNLIST8137 FD1D32 A5 58 lda bka8138 FD1D34 C9 9A 19 cmp #65548139 FD1D37 B0 09 bcs ?end ; overflow8140 FD1D39 0A asl a8141 FD1D3A 0A asl a8142 FD1D3B 65 58 adc bka8143 FD1D3D 0A asl a8144 FD1D3E 65 5A adc bkb8145 FD1D40 85 58 sta bka8146 FD1D42 ?end: ACC08Tue Jul 17 11:00:22 2018 Page 998147 FD1D42 E2 20 sep #PMFLAG8148 .LONGA off8149 .MNLIST8150 FD1D44 90 DE bcc ?nxt8151 FD1D46 A2 08 ?err: ldx #88152 FD1D48 20 43 05 jsr error8153 FD1D4B A9 80 lda #$808154 FD1D4D 14 3F trb slfg8155 FD1D4F 38 sec8156 FD1D50 60 rts8157 FD1D51 18 ?ret: clc8158 FD1D52 60 rts81598160 FD1D53 BF 50 CC 01 ?get: lda >EDBUFLIN,x8161 FD1D57 E8 inx8162 FD1D58 C9 3A cmp #'9'+18163 FD1D5A B0 06 bcs ?ex8164 FD1D5C 38 sec8165 FD1D5D E9 30 sbc #$308166 FD1D5F 38 sec8167 FD1D60 E9 D0 sbc #$D08168 FD1D62 60 ?ex: rts81698170 ;---------------------8171 ; save crt buffer & page 018172 FD1D63 crtsav:8173 FD1D63 AF 0C FC 00 lda >CREMEOFF ; save current video ram bit8174 FD1D67 A8 tay8175 FD1D68 8F 0D FC 00 sta >CREMEON ; enable video ram8176 FD1D6C CPU168177 FD1D6C C2 30 rep #(PMFLAG.OR.PXFLAG)8178 .LONGA on8179 .LONGI on8180 .MNLIST8181 FD1D6E A2 FF 0F ldx #$0FFF ; move 4k8182 FD1D71 BF 00 00 01 ?lp: lda >VBBCHARRAM,x8183 FD1D75 9F 00 D0 01 sta >EDCRTSAV,x8184 FD1D79 CA dex8185 FD1D7A 10 F5 bpl ?lp8186 FD1D7C CPU088187 FD1D7C E2 30 sep #(PMFLAG.OR.PXFLAG)8188 .LONGA off8189 .LONGI off8190 .MNLIST8191 FD1D7E BB tyx8192 FD1D7F 9F 0C FC 00 sta >CREMEOFF,x ; restore video ram bit8193 FD1D83 A2 6E ldx #ScnLinTmp ; save page 018194 FD1D85 BD 00 01 ?lp2: lda !DP01ADDR,x8195 FD1D88 9F 00 CB 01 sta >EDSAVE01,x8196 FD1D8C E8 inx8197 FD1D8D D0 F6 bne ?lp28198 FD1D8F 60 rts81998200 FD1D90 crtrest:8201 FD1D90 AF 0C FC 00 lda >CREMEOFF ; save current video ram bit8202 FD1D94 A8 tay8203 FD1D95 8F 0D FC 00 sta >CREMEON ; enable video ramTue Jul 17 11:00:22 2018 Page 1008204 FD1D99 CPU168205 FD1D99 C2 30 rep #(PMFLAG.OR.PXFLAG)8206 .LONGA on8207 .LONGI on8208 .MNLIST8209 FD1D9B A2 FF 0F ldx #$0FFF ; move 4k8210 FD1D9E BF 00 D0 01 ?lp: lda >EDCRTSAV,x8211 FD1DA2 9F 00 00 01 sta >VBBCHARRAM,x8212 FD1DA6 CA dex8213 FD1DA7 10 F5 bpl ?lp8214 FD1DA9 CPU088215 FD1DA9 E2 30 sep #(PMFLAG.OR.PXFLAG)8216 .LONGA off8217 .LONGI off8218 .MNLIST8219 FD1DAB A9 F0 lda #$F0 ; who change this byte????8220 FD1DAD 8F 00 10 01 sta >VBBPALRAM8221 FD1DB1 BB tyx8222 FD1DB2 9F 0C FC 00 sta >CREMEOFF,x ; restore video ram bit8223 FD1DB6 A2 6E ldx #ScnLinTmp ; restore page 018224 FD1DB8 BF 00 CB 01 ?lp2: lda >EDSAVE01,x8225 FD1DBC 9D 00 01 sta !DP01ADDR,x8226 FD1DBF E8 inx8227 FD1DC0 D0 F6 bne ?lp28228 FD1DC2 60 rts82298230 ; --- load editor buffer8231 ; longp: buffer pointer8232 ; dbufsiz: buffer size8233 FD1DC3 bufld:8234 FD1DC3 DA phx8235 FD1DC4 A5 DE lda dbufsiz8236 FD1DC6 05 DF ora dbufsiz+18237 FD1DC8 F0 73 beq ?end ; empty8238 FD1DCA A7 DA ?nxt: lda [longp] ; get byte8239 FD1DCC C9 0A cmp #$0A ; skip line feed8240 FD1DCE F0 63 beq ?inc8241 FD1DD0 C9 0D cmp #$0D8242 FD1DD2 F0 22 beq ?ins8243 FD1DD4 C9 09 cmp #KB_TAB ; discard non printable but TAB & CR8244 FD1DD6 F0 27 beq ?tab8245 FD1DD8 C9 20 cmp #' '8246 FD1DDA 90 57 bcc ?inc8247 FD1DDC A6 58 ldx bka8248 FD1DDE E0 F0 cpx #MAXTEXTLEN8249 FD1DE0 90 14 bcc ?ins8250 FD1DE2 85 59 sta bka+18251 FD1DE4 A9 0D lda #$0D8252 FD1DE6 20 EC 0C jsr insert8253 FD1DE9 ACC168254 FD1DE9 C2 20 rep #PMFLAG8255 .LONGA on8256 .MNLIST8257 FD1DEB E6 1A inc ncount8258 FD1DED ACC088259 FD1DED E2 20 sep #PMFLAG8260 .LONGA offTue Jul 17 11:00:22 2018 Page 1018261 .MNLIST8262 FD1DEF 20 DF 0F jsr incptr28263 FD1DF2 64 58 stz bka8264 FD1DF4 A5 59 lda bka+18265 FD1DF6 20 EC 0C ?ins: jsr insert ; insert byte in editor buffer8266 FD1DF9 E6 58 inc bka ; update text lenght8267 FD1DFB 90 1A bcc ?cr ; ok, room available8268 FD1DFD B0 05 bcs ?em ; memory error8269 FD1DFF 20 40 1E ?tab: jsr ?tkey8270 FD1E02 80 2F bra ?inc8271 FD1E04 A0 FE ?em: ldy #$FE8272 FD1E06 A9 0D lda #$0D8273 FD1E08 97 14 sta [pblk],y8274 FD1E0A C8 iny8275 FD1E0B A9 00 lda #08276 FD1E0D 97 14 sta [pblk],y8277 FD1E0F ACC168278 FD1E0F C2 20 rep #PMFLAG8279 .LONGA on8280 .MNLIST8281 FD1E11 E6 1A inc ncount8282 FD1E13 ACC088283 FD1E13 E2 20 sep #PMFLAG8284 .LONGA off8285 .MNLIST8286 FD1E15 80 16 bra ?ret8287 FD1E17 C9 0D ?cr: cmp #$0D ; last byte was a CR?8288 FD1E19 D0 15 bne ?upd ; no8289 FD1E1B 64 58 stz bka8290 FD1E1D ACC16CLC8291 FD1E1D C2 21 rep #(PMFLAG.OR.PCFLAG)8292 .LONGA on8293 .MNLIST8294 FD1E1F E6 1A inc ncount ; update lines count8295 FD1E21 D0 03 bne ?nov8296 FD1E23 38 sec ; lines count overflow8297 FD1E24 C6 1A dec ncount8298 FD1E26 ?nov: ACC088299 FD1E26 E2 20 sep #PMFLAG8300 .LONGA off8301 .MNLIST8302 FD1E28 90 06 bcc ?upd8303 FD1E2A 20 DF 0F jsr incptr28304 FD1E2D FA ?ret: plx8305 FD1E2E 38 sec ; error8306 FD1E2F 60 rts8307 FD1E30 20 DF 0F ?upd: jsr incptr2 ; update editor buffer pointer8308 FD1E33 ?inc: ACC168309 FD1E33 C2 20 rep #PMFLAG8310 .LONGA on8311 .MNLIST8312 FD1E35 E6 DA inc longp ; update buffer pointer8313 FD1E37 C6 DE dec dbufsiz ; update size8314 FD1E39 ACC088315 FD1E39 E2 20 sep #PMFLAG8316 .LONGA off8317 .MNLISTTue Jul 17 11:00:22 2018 Page 1028318 FD1E3B D0 8D bne ?nxt8319 FD1E3D FA ?end: plx8320 FD1E3E 18 clc8321 FD1E3F 60 rts83228323 FD1E40 A9 00 ?tkey: lda #0 ; put blank's instead tab's8324 FD1E42 18 ?tb0: clc8325 FD1E43 69 08 ?tb1: adc #8 ; assume default tab = 88326 FD1E45 C5 58 cmp bka8327 FD1E47 F0 F9 beq ?tb08328 FD1E49 90 F8 bcc ?tb18329 FD1E4B E5 58 sbc bka8330 FD1E4D F0 10 beq ?tbx8331 FD1E4F 85 30 sta ctmp28332 FD1E51 A9 20 ?tbl: lda #' '8333 FD1E53 20 EC 0C jsr insert8334 FD1E56 20 DF 0F jsr incptr28335 FD1E59 E6 58 inc bka8336 FD1E5B C6 30 dec ctmp28337 FD1E5D D0 F2 bne ?tbl8338 FD1E5F 60 ?tbx: rts83398340 ; check command line for open file8341 FD1E60 chkcmd:8342 FD1E60 A5 DA lda longp8343 FD1E62 05 DB ora longp+18344 FD1E64 05 DC ora longp+28345 FD1E66 F0 14 beq ?end ; null pointer8346 FD1E68 A7 DA lda [longp]8347 FD1E6A F0 10 beq ?end ; empty command line8348 FD1E6C A0 00 ldy #08349 FD1E6E BB tyx8350 FD1E6F B7 DA ?mv: lda [longp],y8351 FD1E71 9F 50 CC 01 sta >EDDSKERR,x8352 FD1E75 C8 iny8353 FD1E76 E8 inx8354 FD1E77 D0 F6 bne ?mv8355 FD1E79 20 7D 1E jsr cbmopn8356 FD1E7C 60 ?end: rts83578358 ;------ CBM FS83598360 ; open CBM file8361 ; filename in EDDSKERR buffer8362 FD1E7D cbmopn:8363 FD1E7D A9 01 lda #^EDBUFFILE ; set pointer to filename8364 FD1E7F 85 DC sta longp+28365 FD1E81 A9 00 lda #<EDBUFFILE8366 FD1E83 85 DA sta longp8367 FD1E85 A9 CC lda #>EDBUFFILE8368 FD1E87 85 DB sta longp+18369 FD1E89 A2 00 ldx #08370 FD1E8B 9B txy8371 FD1E8C AF 51 CC 01 lda >EDDSKERR+1 ; check drive8372 FD1E90 C9 3A cmp #':'8373 FD1E92 D0 0C bne ?dr ; store deafult drive '0'8374 FD1E94 AF 50 CC 01 lda >EDDSKERRTue Jul 17 11:00:22 2018 Page 1038375 FD1E98 C9 30 cmp #'0' ; continue if drive 0 or 18376 FD1E9A F0 0E beq ?mv8377 FD1E9C C9 31 cmp #'1'8378 FD1E9E F0 0A beq ?mv8379 FD1EA0 A9 30 ?dr: lda #'0' ; put default drive '0'8380 FD1EA2 87 DA sta [longp]8381 FD1EA4 C8 iny8382 FD1EA5 A9 3A lda #':'8383 FD1EA7 97 DA sta [longp],y8384 FD1EA9 C8 iny8385 FD1EAA BF 50 CC 01 ?mv: lda >EDDSKERR,x ; set filename8386 FD1EAE F0 10 beq ?nxt8387 FD1EB0 C9 61 cmp #'a' ; upper case8388 FD1EB2 90 06 bcc ?st8389 FD1EB4 C9 7B cmp #'z'+18390 FD1EB6 B0 02 bcs ?st8391 FD1EB8 29 DF and #$DF8392 FD1EBA 97 DA ?st: sta [longp],y8393 FD1EBC E8 inx8394 FD1EBD C8 iny8395 FD1EBE D0 EA bne ?mv8396 FD1EC0 A2 03 ?nxt: ldx #38397 FD1EC2 5A phy ; save index8398 FD1EC3 BF 5A 1F FD ?lp: lda >?rds,x8399 FD1EC7 97 DA sta [longp],y8400 FD1EC9 C8 iny8401 FD1ECA CA dex8402 FD1ECB 10 F6 bpl ?lp8403 FD1ECD A9 00 lda #08404 FD1ECF 97 DA sta [longp],y8405 FD1ED1 20 99 1F jsr cdskopn ; open file8406 FD1ED4 7A ply8407 FD1ED5 B0 6E bcs ?derr ; error8408 FD1ED7 A9 00 lda #08409 FD1ED9 97 DA sta [longp],y8410 FD1EDB A5 DC lda longp+28411 FD1EDD 48 pha8412 FD1EDE D4 DA pei (longp)8413 FD1EE0 A9 FD lda #^LOADMSG8414 FD1EE2 48 pha8415 FD1EE3 F4 44 21 pea #LOADMSG8416 FD1EE6 A9 07 lda #78417 FD1EE8 48 pha8418 FD1EE9 BSPRINTF2 ; format in local string8419 FD1EE9 02 14 cop $148420 .MNLIST8421 FD1EEB DA phx ; bank that hold string8422 FD1EEC AA tax ; low address8423 FD1EED EB xba8424 FD1EEE A8 tay ; hi address8425 FD1EEF A5 3C lda slattr ; attribute8426 FD1EF1 EB xba8427 FD1EF2 68 pla ; bank8428 FD1EF3 20 54 16 jsr outstr8429 FD1EF6 A9 40 lda #$40 ; force update status line8430 FD1EF8 85 3F sta slfg8431 FD1EFA 20 93 0E jsr mvpp2Tue Jul 17 11:00:22 2018 Page 1048432 FD1EFD 64 58 stz bka ; used for count text lenght8433 FD1EFF 20 5E 1F ?ld: jsr cdskld ; load buffer8434 FD1F02 B0 41 bcs ?derr8435 FD1F04 F0 08 beq ?end ; end8436 FD1F06 20 C3 1D jsr bufld8437 FD1F09 B0 03 bcs ?end8438 FD1F0B 8A txa ; eof status8439 FD1F0C 10 F1 bpl ?ld8440 FD1F0E 08 ?end: php8441 FD1F0F A9 0E lda #$0E ; close file8442 FD1F11 CBMFSCLS8443 FD1F11 02 82 cop FN_CBMFSCLS8444 .MNLIST8445 FD1F13 28 plp8446 FD1F14 B0 3D bcs ?err048447 FD1F16 A2 FF ldx #$FF ; update buffer filename8448 FD1F18 E8 ?fn: inx8449 FD1F19 BF 00 CC 01 lda >EDBUFFILE,x8450 FD1F1D 9F 00 CD 01 sta >EDCURFILE,x8451 FD1F21 D0 F5 bne ?fn8452 FD1F23 A5 18 lda bflag8453 FD1F25 29 7F and #$7F ; clear modified flag8454 FD1F27 09 10 ora #$10 ; set valid fname flag8455 FD1F29 85 18 sta bflag8456 FD1F2B 20 1E 10 jsr decptr28457 FD1F2E B0 0F bcs ?err8458 FD1F30 20 A9 0F jsr getbyte8459 FD1F33 C9 0D cmp #$0D8460 FD1F35 F0 08 beq ?err8461 FD1F37 20 DF 0F jsr incptr28462 FD1F3A A9 0D lda #$0D8463 FD1F3C 20 EC 0C jsr insert8464 FD1F3F 20 4A 0E ?err: jsr pp2mv8465 FD1F42 4C 32 04 jmp updwin84668467 FD1F45 A2 FF ?derr: ldx #$FF ; disk error8468 FD1F47 20 43 05 jsr error8469 FD1F4A 80 F3 bra ?err8470 FD1F4C A2 02 ?err02: ldx #28471 FD1F4E 20 43 05 jsr error8472 FD1F51 80 EC bra ?err8473 FD1F53 A2 04 ?err04: ldx #48474 FD1F55 20 43 05 jsr error8475 FD1F58 80 E5 bra ?err84768477 FD1F5A 52 2C 53 2C ?rds: .DB 'R,S,'84788479 ; load a block from CBM disk on chnl 148480 ; CF = 1 if error8481 ; ZF = 1 if buffer is empty8482 ; X = $80 if eof8483 FD1F5E cdskld:8484 FD1F5E A9 01 lda #^EDDSKBUF ; set buffer pointer8485 FD1F60 48 pha8486 FD1F61 F4 00 E0 pea #EDDSKBUF8487 FD1F64 F4 00 20 pea #EDDSKBUFSIZ ; buffer size8488 FD1F67 A9 0E lda #$0ETue Jul 17 11:00:22 2018 Page 1058489 FD1F69 48 pha ; chnl 148490 FD1F6A CBMFSRD ; read buffer8491 FD1F6A 02 81 cop FN_CBMFSRW8492 FD1F6C 00 .DB $008493 .MNLIST8494 FD1F6D 90 09 bcc ?ok8495 FD1F6F 20 A6 1F jsr cdskerr ; get error string8496 FD1F72 A9 0E lda #$0E ; close file8497 FD1F74 CBMFSCLS8498 FD1F74 02 82 cop FN_CBMFSCLS8499 .MNLIST8500 FD1F76 38 sec ; error8501 FD1F77 60 rts8502 FD1F78 ?ok: ACC168503 FD1F78 C2 20 rep #PMFLAG8504 .LONGA on8505 .MNLIST8506 FD1F7A 85 DE sta dbufsiz ; store size8507 FD1F7C 48 pha8508 FD1F7D A9 00 E0 lda #EDDSKBUF8509 FD1F80 85 DA sta longp ; reset buffer pointer8510 FD1F82 A2 01 ldx #^EDDSKBUF8511 FD1F84 86 DC stx longp+28512 FD1F86 A2 80 ldx #$80 ; eof flag8513 FD1F88 68 pla ; eof8514 FD1F89 F0 06 beq ?end ; ZF = 1 if buffer is empty8515 FD1F8B C9 00 20 cmp #EDDSKBUFSIZ8516 FD1F8E 90 01 bcc ?end ; eof8517 FD1F90 CA dex ; not eof8518 FD1F91 ?end: ACC088519 FD1F91 E2 20 sep #PMFLAG8520 .LONGA off8521 .MNLIST8522 FD1F93 18 clc8523 FD1F94 60 rts85248525 ; send command to cbm fs emulator8526 ; command string in longp8527 FD1F95 cdskcmd:8528 FD1F95 A9 0F lda #158529 FD1F97 80 02 bra cdsksnd8530 FD1F998531 ; open file8532 FD1F99 cdskopn:8533 FD1F99 A9 0E lda #$0E85348535 FD1F9B cdsksnd:8536 FD1F9B A6 DC ldx longp+2 ; bank of cmnd string8537 FD1F9D DA phx8538 FD1F9E D4 DA pei (longp) ; address of cmnd string8539 FD1FA0 48 pha ; chnl8540 FD1FA1 CBMFSCMD ; send command8541 FD1FA1 02 80 cop FN_CBMFSCMD8542 .MNLIST8543 FD1FA3 B0 01 bcs cdskerr ; if error8544 FD1FA5 60 rts8545Tue Jul 17 11:00:22 2018 Page 1068546 ; get CBM disk error (in: CF = 1 if error pending else CF = 0)8547 FD1FA6 cdskerr:8548 FD1FA6 08 php ; save carry8549 FD1FA7 A9 01 lda #^EDDSKERR8550 FD1FA9 48 pha ; address of buffer8551 FD1FAA F4 50 CC pea #EDDSKERR8552 FD1FAD F4 B0 00 pea #EDERRSIZ ; size of buffer8553 FD1FB0 A9 0F lda #15 ; channel 158554 FD1FB2 48 pha8555 FD1FB3 CBMFSRD ; read8556 FD1FB3 02 81 cop FN_CBMFSRW8557 FD1FB5 00 .DB $008558 .MNLIST8559 FD1FB6 28 plp8560 FD1FB7 B0 0E bcs ?end ; error pending8561 FD1FB9 AF 50 CC 01 lda >EDDSKERR8562 FD1FBD 0F 51 CC 01 ora >EDDSKERR+18563 FD1FC1 C9 30 cmp #'0'8564 FD1FC3 18 clc8565 FD1FC4 F0 01 beq ?end8566 FD1FC6 38 sec8567 FD1FC7 60 ?end: rts85688569 FD1FC88570 ; test load8571 FD1FC8 testl:8572 .EXTERN PCERRS85738574 ;bra ?1108575 FD1FC8 A2 00 ldx #08576 FD1FCA BF DA 1F FD ?lp: lda >?100,x8577 FD1FCE 9F 50 CC 01 sta >EDDSKERR,x8578 FD1FD2 F0 03 beq ?lp18579 FD1FD4 E8 inx8580 FD1FD5 D0 F3 bne ?lp8581 FD1FD7 4C 7D 1E ?lp1: jmp cbmopn85828583 FD1FDA 31 3A 74 65 73 ?100 .DB '1:test10.pas',074 31 30 2E 7061 73 0085848585 FD1FE7 ?110:8586 FD1FE7 A9 E5 lda #<PCERRS8587 FD1FE9 85 52 sta pb8588 FD1FEB A9 82 lda #>PCERRS8589 FD1FED 85 53 sta pb+18590 FD1FEF A9 FE lda #^PCERRS8591 FD1FF1 85 54 sta pb+28592 FD1FF3 20 93 0E jsr mvpp28593 FD1FF6 A7 52 ?02: lda [pb]8594 FD1FF8 F0 2D beq ?068595 FD1FFA 20 EC 0C jsr insert8596 FD1FFD 90 13 bcc ?038597 FD1FFF A0 FE ldy #$FE8598 FD2001 A9 0D lda #$0D8599 FD2003 97 14 sta [pblk],y8600 FD2005 C8 inyTue Jul 17 11:00:22 2018 Page 1078601 FD2006 A9 00 lda #08602 FD2008 97 14 sta [pblk],y8603 FD200A ACC168604 FD200A C2 20 rep #PMFLAG8605 .LONGA on8606 .MNLIST8607 FD200C E6 1A inc ncount8608 FD200E ACC088609 FD200E E2 20 sep #PMFLAG8610 .LONGA off8611 .MNLIST8612 FD2010 80 29 bra ?088613 FD2012 C9 0D ?03: cmp #$0D8614 FD2014 D0 06 bne ?048615 FD2016 ACC168616 FD2016 C2 20 rep #PMFLAG8617 .LONGA on8618 .MNLIST8619 FD2018 E6 1A inc ncount ; check overflow !!!8620 FD201A ACC088621 FD201A E2 20 sep #PMFLAG8622 .LONGA off8623 .MNLIST8624 FD201C 20 DF 0F ?04: jsr incptr28625 FD201F ACC168626 FD201F C2 20 rep #PMFLAG8627 .LONGA on8628 .MNLIST8629 FD2021 E6 52 inc pb8630 FD2023 ACC088631 FD2023 E2 20 sep #PMFLAG8632 .LONGA off8633 .MNLIST8634 FD2025 80 CF bra ?028635 FD2027 20 1E 10 ?06: jsr decptr28636 FD202A B0 0F bcs ?088637 FD202C 20 A9 0F ?07: jsr getbyte8638 FD202F C9 0D cmp #$0D8639 FD2031 F0 08 beq ?088640 FD2033 20 DF 0F jsr incptr28641 FD2036 A9 0D lda #$0D8642 FD2038 20 EC 0C jsr insert8643 FD203B 20 4A 0E ?08: jsr pp2mv8644 FD203E 4C 32 04 jmp updwin86458646 FD2041 P10TBL:8647 FD2041 0100 .DW 18648 FD2043 0A00 .DW 108649 FD2045 6400 .DW 1008650 FD2047 E803 .DW 10008651 FD2049 1027 .DW 1000086528653 FD204B STRTBLL:8654 FD204B 6F 7C 8A 9A AC .DB <str00, <str01, <str02, <str03, <str04, <str05, <str06, <str07BE D9 008655 FD2053 2E .DB <str088656Tue Jul 17 11:00:22 2018 Page 1088657 000009 MAXSTR .EQU ($ - STRTBLL)86588659 FD2054 STRTBLH:8660 FD2054 20 20 20 20 20 .DB >str00, >str01, >str02, >str03, >str04, >str05, >str06, >str0720 20 218661 FD205C 21 .DB >str0886628663 FD205D strent:8664 FD205D 20 2D 20 68 69 .DB ' - hit <enter>...', 074 20 3C 65 6E74 65 72 3E 2E2E 2E 0086658666 FD206F str00:8667 FD206F 4F 4B 2C 20 6E .DB 'OK, no error', 06F 20 65 72 726F 72 0086688669 FD207C str01:8670 FD207C 4F 75 74 20 6F .DB 'Out of memory', 066 20 6D 65 6D6F 72 79 0086718672 FD208A str02:8673 FD208A 49 6E 76 61 6C .DB 'Invalid command', 069 64 20 63 6F6D 6D 61 6E 640086748675 FD209A str03:8676 FD209A 49 6C 6C 65 67 .DB 'Illegal tab value', 061 6C 20 74 6162 20 76 61 6C75 65 0086778678 FD20AC str04:8679 FD20AC 4E 6F 74 20 65 .DB 'Not enough memory', 06E 6F 75 67 6820 6D 65 6D 6F72 79 008680 FD20BE8681 FD20BE str05:8682 FD20BE 43 6C 69 70 62 .DB 'Clipboard: illegal command', 06F 61 72 64 3A20 69 6C 6C 6567 61 6C 20 636F 6D 6D 61 6E64 0086838684 FD20D9 str06:8685 FD20D9 43 61 6E 27 74 .DB 'Can''t paste text: lines count overflow', 020 70 61 73 7465 20 74 65 7874 3A 20 6C 696E 65 73 20 636F 75 6E 74 206F 76 65 72 66Tue Jul 17 11:00:22 2018 Page 1096C 6F 77 0086868687 FD2100 str07:8688 FD2100 43 61 6E 27 74 .DB 'Can''t insert a new line: lines count overflow', 020 69 6E 73 6572 74 20 61 206E 65 77 20 6C69 6E 65 3A 206C 69 6E 65 7320 63 6F 75 6E74 20 6F 76 6572 66 6C 6F 770086898690 FD212E str08:8691 FD212E 49 6C 6C 65 67 .DB 'Illegal numeric value', 061 6C 20 6E 756D 65 72 69 6320 76 61 6C 7565 0086928693 FD2144 LOADMSG:8694 FD2144 4C 6F 61 64 69 .DB 'Loading "%s"...', 06E 67 20 22 2573 22 2E 2E 2E0086958696 FD2154 stlstr:8697 FD2154 62 75 66 66 65 .DB 'buffer:#0 " " M I O SCN N:00000 L:00000 C:000 '72 3A 23 30 2022 20 20 20 2020 20 20 20 2020 20 20 20 2020 20 20 20 2220 20 20 20 2020 20 20 20 2020 20 20 20 2020 4D 20 49 204F 20 53 43 4E20 20 4E 3A 3030 30 30 30 2020 4C 3A 30 3030 30 30 20 433A 30 30 30 208698 FD21A4 stlstr1:8699 FD21A4 62 75 66 66 65 .DB 'buffer:#0 " " M I O SCN N:00000 L:00000 C:000 '72 3A 23 30 2022 20 20 20 2020 20 20 20 2020 20 20 20 2020 20 20 20 2020 20 20 20 2020 20 20 20 2020 20 20 20 2220 4D 20 49 204F 20 53 43 4E20 20 4E 3A 30Tue Jul 17 11:00:22 2018 Page 11030 30 30 30 2020 4C 3A 30 3030 30 30 20 433A 30 30 30 208700 ; 0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef8701 FD21F4 stlstr2:8702 FD21F4 43 4C 49 50 42 .DB 'CLIPBOARD M I O SCN N:00000 L:00000 C:000 '4F 41 52 44 2020 20 20 20 2020 20 20 20 2020 20 20 20 2020 20 20 20 2020 20 20 20 2020 20 20 20 2020 20 20 20 2020 4D 20 49 204F 20 53 43 4E20 20 4E 3A 3030 30 30 30 2020 4C 3A 30 3030 30 30 20 433A 30 30 30 2087038704 ; control key's table8705 FD2244 KEYTBL:8706 FD2244 8F 8B 84 87 .DB KB_CSRLEFT, KB_CSRDOWN, KB_CSRUP, KB_CSRRIGHT8707 FD2248 85 8C 88 8A .DB KB_HOME, KB_END, KB_PGUP, KB_PGDOWN8708 FD224C 90 05 15 21 .DB KB_BACKSPACE, KB_SHIFTHOME, KB_SHIFTEND, KB_CTLTAB8709 FD2250 8D 8E 86 1F .DB KB_SHCR, KB_DELETE, KB_INSERT, KB_CTLESC87108711 ; ALT-X : quit | ALT-O: open | ALT-N: new | ALT-T: set tab8712 FD2254 78 6F 6E 74 .DB 'x', 'o', 'n', 't'8713 ; ALT-G: goto | ALT-S: save8714 FD2258 67 73 .DB 'g', 's'87158716 000015 KEYTBLLEN .EQU ($ - KEYTBL - 1)87178718 ; control key's function table8719 FD225A KEYPROC:8720 FD225A 2802 F002 A102 .DW csrleft, csrdwn, csrup, csrrght5C028721 FD2262 9903 B403 7603 .DW gohome, goend, pageup, pagedwn59038722 FD226A 8501 4E03 3F03 .DW backkey, gostartln, goendln, tindA5068723 FD2272 F203 6B01 9306 .DW kshenter, delkey, tins, testlC81F87248725 FD227A E618 EB18 3B1B .DW exit, open, clrbuf, settabC31B8726 FD2282 861C 0719 .DW gotoln, save87278728 ; key's table8729 FD2286 KEYTBL2:8730 FD2286 03 09 0D 16 .DB KB_CTLC, KB_TAB, KB_CR, KB_CTLV8731 FD228A 18 1B 13 19 .DB KB_CTLX, KB_ESC, KB_CTLS, KB_CTLY8732Tue Jul 17 11:00:22 2018 Page 1118733 000007 KEYTBLLEN2 .EQU ($ - KEYTBL2 - 1)87348735 ; no-control key function table8736 FD228E KEYPROC2:8737 FD228E 3907 4701 0104 .DW copysel, tabkey, kenter, pasteselD4098738 FD2296 4607 9F17 7D02 .DW cutsel, cmdline, seltxt, dellineCA06Lines Assembled : 8010 Errors : 0