Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:17 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\F8\vdc.asmOutput Filename : obj\F8\vdc.objListing Has Been Relocated2592 .LIST on25932594 F8FFB1 .INCLUDE inc\dirp00.inc2595 ;----------------------------------------------------------2596 ; DIRP00.ASM2597 ; PROGETTO: B16012598 ;2599 ; Variabili in Direct Page $002600 ;----------------------------------------------------------26012602 ; sezione COMMON -- questo permette di includere il file in piu' file26032604 .LIST on26052606 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0026072608 000000 .ABSOLUTE ;; inizia sempre da $002609 000000 .ORG 0x002610 0000002611 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2612 000002 0000 .DW2613 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2614 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2615 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2616 ; <6>: flag warm reset2617 00000D 00 RTCFlag .DB26182619 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12620 ; <7>: device ready2621 ; <6>: compact flash device (C.F.)2622 ; <5>: device identification ok2623 ; <4>: MBR loaded2624 ; <3>: valid signature in MBR2625 ; <2>: first partition found&active2626 ; <1>:2627 ; <0>: valid partition flag26282629 ; <7>: device ready2630 ; <6>: USB device2631 ; <5>: compact flash device (C.F.)2632 ; <4>: device identification ok2633 ; <3>: MBR loaded2634 ; <2>: first partition found&active2635 ; <1>: always 12636 ; <0>: valid partition flag2637 000010Tue Jul 17 11:00:17 2018 Page 226382639 00000E atadev .EQU diskstat26402641 000010 usbdev .DS 2 ; flag flash disk on usb bus #02642 ; <7>: device plugged and ready2643 ; <6>: always 12644 ; <5>: device identification ok2645 ; <4>: MBR loaded2646 ; <3>: valid signature in MBR2647 ; <2>: first partition found&active2648 ; <1>:2649 ; <0>: valid partition flag26502651 000012 diskmax .DS 16 ; disk max. sector's2652 000012 atasec .EQU diskmax2653 00001A usbsec .EQU diskmax+8265426552656 000022 atambr .DS 8 ; data for first partition found in mbr2657 ; first 3 bytes for start sector of partition2658 ; last byte for partition type2659 00002A usbmbr .DS 826602661 000032 ataprt .DS 8 ; total sec's of first partition2662 00003A usbprt .DS 8 ; total sec's of first partition266326642665 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2666 ; <7>: module on2667 ; <6>: ch376 flag2668 ; <5:0>: chip version26692670 000043 00 usb0st .DB ; usb0 status2671 ; <7>: usb0 host mode ok2672 ; <6>: flash disk attached flag2673 ; <5>: usb device attached26742675 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2676 ; <7>: disk format established in bit 0&12677 ; <6>: double step seek done2678 ; <5>: trust format bit's (set after ok r/w)2679 ; <4>: write protect bit (if disk in drive)2680 ; <3>: don't care2681 ; <2>: don't care2682 ; <1>: HD disk if set else DD disk2683 ; <0>: CBM format if set else IBM format26842685 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2686 ; <7>: disk format established in bit 0&12687 ; <6>: change disk simulation (after format)2688 ; <5>: don't care2689 ; <4>: write protect bit (under sw control)2690 ; <3>: don't care2691 ; <2>: don't care2692 ; <1>: HD disk if set else DD disk2693 ; <0>: CBM format if set else IBM format2694Tue Jul 17 11:00:17 2018 Page 32695 000046 00 fdcctl .DB ; fdc controller status2696 ; <7>: drive is attached2697 ; <6>: drive need recalibration (restore)2698 ; <5>: FDC controller ok2699 ; <4>: motor on2700 ; <3>: dma is active2701 ; <2>: dma chip ok (post routine)2702 ; <1>: clock rate (1=HD,0=DD)2703 ; <0>: disk ready27042705 000047 00 fdctrk .DB ; fd: current seek track2706 000048 00 fdcerr .DB ; fd: last error code2707 000049 00 ataerr .DB ; ata: last error code2708 00004A 00 ataxer .DB ; ata: last extended error code27092710 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27112712 00004C 0000 MemTop .DW ; top memoria RAM2713 00004E 00 .DB ; banco top mem27142715 00004F 00 DflTxtIn .DB ; device di default text input2716 000050 00 DflTxtOut .DB ; device di default text output27172718 000051 COPPtr LP ; long pointer for COP decoding2719 000054 00 COPIdx .DB ; COP signature/index27202721 000055 00 BiosEnt .DB ; flag accesso a bios setup27222723 ; variabili utilizzate da ACIA2724 000056 spwrk .DS $3027252726 ; bios mem2727 000086 0000 nsize .DW ; dimensione blocco da allocare2728 ;bsize .DW ; dimensione vera blocco free2729 000088 0000 splitsz .DW ; dimensione blocco splittato2730 00008A 0000 bfree .DW ; puntatore blocco free2731 00008C 0000 hdrptr .DW ; puntatore header heap27322733 00008E 0000 pbrklv .DW ; current break level of current process2734 000090 0000 pbrkmin .DW ; minimum breal level of current process2735 000092 0000 pbrkmax .DW ; maximum breal level of current process2736 0000942737 ; bios temp. work area2738 000094 bwrktmp .DS $2827392740 0000BC 00 coptmp .DB ; temp. used while cop27412742 0000BD 00 tstser .DB ; check ser/usb test board post2743 ; <7>: VIA2 ok2744 ; <6>: PICRAM ok2745 ; <1>: UART 16C550 ok2746 ; <0>: R65C51 ok274727482749 ;crc16 .DW27502751 0000BD .RELATIVETue Jul 17 11:00:17 2018 Page 427522753 .ENDS27542755 [01] .IFDEF _ACIA_INC_2756 .INCLUDE INC\SP.INC2757 [00] .ENDIF27582772 .LIST on27732774 000060 KBDBUFLEN .EQU 96 ; dimensione buffer di tastiera27752776 DIRP01: .SECTION page0, ref_only, common ;Direct-Page 0127772778 000000 .ABSOLUTE ;; inizia sempre da $002779 000000 .ORG 0x0027802781 0000002782 000000 KbdBuf .DS KBDBUFLEN ; buffer della tastiera2783 000060 00 KbdITail .DB ; coda buffer tastiera2784 000061 00 KbdIHead .DB ; testa buffer tastiera2785 000062 00 KbdCnt .DB ; numero bytes nel buffer2786 000063 00 KbdShift .DB2787 000064 00 KbdFlag .DB2788 000065 00 KbdToggle .DB2789 000066 00 KbdSt .DB ; status tastiera dopo reset2790 000067 00 PS2Ctl .DB ; flag controller PS2 keyboard27912792 000068 00 LCDFlag .DB2793 000069 00 LCDTmp .DB2794 00006A 0000 LCDVal .DW27952796 00006C 00 VBBFlag .DB ; flag video board2797 00006D 00 VBBRam .DB ; flag video RAM27982799 00006E 00 ScnLinTmp .DB2800 00006F 00 ScnChBase .DB ; base video ram VDC2801 000070 00 ScnAttBase .DB ; base ram attributi VDC2802 000071 00 ScnCursMode .DB ; VDC cursore default2803 000072 00 ScnSaveAttr .DB2804 000073 00 ScnInsert .DB2805 000074 00 ScnAutoIns .DB ; bit 7 -> autoins - bit 6 -> modo input2806 000075 00 ScnScroll .DB2807 000076 00 ScnMaxRow .DB ; max. righe finestra (-1)2808 000077 00 ScnMaxCols .DB ; max. colonne finestra (-1)28092810 000078 ScnMapTabs1 .DS 102811 000082 ScnMapTabs2 .DS 42812 0000862813 000086 0000 ScnPtr .DW ; puntatore video ram linea corrente2814 000088 00 .DB28152816 000089 00 ScnFiltLen .DB ; lunghezza set caratteri filtro28172818 00008A 0000 ScnAtPtr .DW ; puntatore attributi ram linea corrente2819 00008C 00 .DB28202821 00008D 00 ScnTmpx .DB ; temporaneo: durante put charTue Jul 17 11:00:17 2018 Page 52822 00008E2823 00008E 00 ScnTop .DB ; riga superiore finestra2824 00008F 00 ScnLeft .DB ; colonna sinistra finestra2825 000090 00 ScnBottom .DB ; riga inferiore finestra2826 000091 00 ScnRight .DB ; colonna destra finestra2827 000092 00 ScnAttr .DB ; attributo default2828 000093 00 ScnAttr2 .DB ; attributo alternativo2829 000094 00 ScnRow .DB ; riga cursore2830 000095 00 ScnCol .DB ; colonna cursore2831 000096 00 ScnRowStart .DB ; riga di start input2832 000097 00 ScnInput .DB ; riga di fine input2833 000098 00 ScnColStart .DB ; colonna di start input2834 000099 00 ScnSaveX .DB2835 00009A 00 ScnSaveY .DB2836 00009B 00 ScnTmpL .DB2837 00009C 00 ScnTmpH .DB2838 00009D 00 ScnSaveRow .DB2839 00009E 00 ScnSaveCol .DB2840 00009F 00 ScnCurChr .DB2841 0000A0 00 ScnLstChr .DB2842 0000A1 00 ScnCR .DB2843 0000A2 0000 ScnPrm .DW ; puntatore long utilizzato da print imm2844 0000A4 00 .DB ; banco puntatore ScnPrm2845 0000A5 00 ScnMode .DB ; flag modo schermo28462847 0000A6 ScnPtr1 LP28482849 0000A9 00 ScnDefCol .DB ; default foreground color28502851 0000AA ScnPtr2 LP28522853 0000AD 00 ScnDefBkgCol .DB ; default background color2854 0000AE 00 ScnInpRow .DB ; modo input line: riga start input2855 0000AF 00 ScnInpCol .DB ; modo input line: colonna start input2856 0000B0 00 ScnLstRow .DB ; modo input line: riga stop input2857 0000B1 00 ScnLstCol .DB ; modo input line: colonna stop input2858 0000B2 00 ScnFlag .DB ; Bit 7: input line - Bit 6: input riga unica2859 0000B3 00 ScnMask .DB ; flag tasti funzione editor di linea2860 0000B4 00 ScnFilt .DB ; filtro tasti editor di linea2861 0000B5 00 ScnCntrl .DB ; flag ASCII/CONTROL2862 ;DflTxtIn .DB ; device di default text input2863 ;DflTxtOut .DB ; device di default text output2864 0000B62865 000047 SCNCLRLEN .EQU ($ - ScnLinTmp - 1)28662867 ;SCNCLRLEN .EQU (DflTxtOut - ScnLinTmp)28682869 ; variabili monitor2870 0000B6 00 SMAddrL .DB ; address low/high2871 0000B7 00 SMAddrH .DB2872 0000B8 00 SMAddrK .DB ; address bank2873 0000B9 00 SMFlag32 .DB ; flag parametro 32 bit2874 0000BA 00 SMTmpL .DB ; temp. low/high2875 0000BB 00 SMTmpH .DB2876 0000BC 00 SMTmpK .DB ; temp. bank2877 0000BD 00 SMTmpKK .DB ; high byte param. 32 bit2878 0000BE 00 SMSizeL .DB ; size low/highTue Jul 17 11:00:17 2018 Page 62879 0000BF 00 SMSizeH .DB2880 0000C0 00 SMSizeK .DB ; size bank2881 0000C1 00 SMXAddrL .DB ; address low/high XM2882 0000C2 00 SMXAddrH .DB2883 0000C3 00 SMXAddrK .DB ; address bank XM2884 0000C4 00 SMbndx .DB ; indice input buffer2885 0000C5 00 SMnprm .DB ; numero parametri riga di comando2886 0000C6 00 SMdumb .DB2887 0000C7 00 SMkr .DB2888 0000C8 0000 SMpc .DW2889 0000CA 00 SMsr .DB2890 0000CB 00 SMbr .DB2891 0000CC 0000 SMdp .DW2892 0000CE 0000 SMac .DW2893 0000D0 0000 SMxr .DW2894 0000D2 0000 SMyr .DW2895 0000D4 0000 SMsp .DW28962897 0000D6 00 SMAuxL .DB2898 0000D7 00 SMAuxH .DB28992900 0000D8 00 asmlong .DB ; flag for CPU in 16 mode2901 ; <7> -> A/M in 16 bit mode2902 ; <6> -> X/Y in 16 bit mode2903 0000D9 00 asmcpu .DB ; <7> -> 8 bit family2904 ; <6> -> 65C02 cmos version29052906 0000DA 00 SMctx .DB ; context (if = $00 no quit command)2907 0000DB SMrsm LP ; long pointer to resume caller context29082909 0000DE 00 rtcadr .DB ; rtc internal ram address2910 0000DF 00 rtcbnk .DB ; RTC internal bank ram2911 0000E0 00 cmdlin .DB ;2912 0000E1 00 SMesc .DB29132914 0000E2 SMXTmp: .DS 26 ; 26 bytes tmp29152916 0000E2 SMTmp2 .EQU SMXTmp2917 0000E4 SMTmp3 .EQU SMXTmp+22918 0000E6 SMdwTmp1 .EQU SMXTmp+42919 0000EA SMdwTmp2 .EQU SMXTmp+82920 0000EE SMFsrc .EQU SMXTmp+12 ; source bank for flash update2921 0000EF SMFflag .EQU SMXTmp+13 ; flag file for flash update2922 0000F0 SMXPos2 .EQU SMXTmp+142923 0000F1 SMYPos2 .EQU SMXTmp+152924 0000F2 SMXPos3 .EQU SMXTmp+162925 0000F3 SMYPos3 .EQU SMXTmp+172926 ;SMAuxL .EQU SMXTmp+182927 ;SMAuxH .EQU SMXTmp+192928 0000F6 SMXPos .EQU SMXTmp+202929 0000F7 SMYPos .EQU SMXTmp+212930 0000F8 SMdwTmp3 .EQU SMXTmp+2229312932 0000E2 atcmd .EQU SMXTmp ; save @ command2933 0000E3 atnum .EQU SMXTmp+1 ; @ command index2934 0000E4 atflag .EQU SMXTmp+2 ; @ L,S,V,R,W start address flag2935 0000E5 atbnk .EQU SMXTmp+3 ; @ L,S,V,R,W bankTue Jul 17 11:00:17 2018 Page 72936 0000E6 atstr .EQU SMXTmp+4 ; @ command string start (word)2937 0000E8 atstart .EQU SMXTmp+6 ; @ L,S,V,R,W start address (word)2938 0000EA atend .EQU SMXTmp+8 ; @ S,W end address (word)2939 0000EC atbuf .EQU SMXTmp+10 ; @ local buffer pointer (word)2940 0000EE atipb .EQU SMXTmp+12 ; @ bank of input buffer2941 0000EF atdir .EQU SMXTmp+13 ; @ load dir flag2942 0000F0 atptr .EQU SMXTmp+14 ; @ load dir pointer (word)2943 0000F2 atsiz .EQU SMXTmp+16 ; @ buffer size (word)2944 0000F5 atlp .EQU SMXTmp+19 ; @ long pointer2945 0000F8 atsa .EQU SMXTmp+22 ; @ sa29462947 0000E2 btmpx .EQU SMXTmp ; asc2bin conversion2948 0000E3 brtcsec .EQU SMXTmp+12949 0000E4 brtcmin .EQU SMXTmp+22950 0000E5 brtchour .EQU SMXTmp+32951 0000E6 brtcday .EQU SMXTmp+42952 0000E7 brtcmonth .EQU SMXTmp+52953 0000E8 brtcyear .EQU SMXTmp+62954 0000E9 brtcct .EQU SMXTmp+7295529562957 0000FC .RELATIVE29582959 .ENDS29602964 .LIST on29652966 000010 CHARWIDTH .EQU $10 ; ampiezza max. carattere2967 000008 CGAWIDTH .EQU $082968 00000E EGAWIDTH .EQU $0E2969 000010 VGAWIDTH .EQU $1029702971 000007 CURSLINE .EQU $072972 000060 DEFCURS .EQU $602973 000007 DEFATTR .EQU $072974 000000 DEFCURS2 .EQU $00 ; cursore fisso HD64452975 000000 DEFATTR2 .EQU $00 ; palette di default2976 F8FFB129772978 .CODEF82979 F8A2072980 .GLOBAL VDCSetup, VDCREG16, cinit2981 .GLOBAL _ScnCharOut, _ScnCharIn, _ScnInit, GetSetPos, GetBufKey2982 F8A2072983 .EXTERN VGA8x8L, VGA8x8H2984 F8A2072985 .LONGA off2986 .LONGI off2987 F8A2072988 ;--------------------------------------------------------------------29892990 ; Setup VDC2991 ; USA A,B,X,Y2992 F8A207 VDCSetup:2993 F8A207 08 php ; salva status2994 F8A208 0B phd ; salva DP2995 F8A209 8B phb ; salva registro DBRTue Jul 17 11:00:17 2018 Page 82996 F8A20A CPU08 ; imposta registri a 8 bit2997 F8A20A E2 30 sep #(PMFLAG.OR.PXFLAG)2998 .LONGA off2999 .LONGI off3000 .MNLIST3001 F8A20C A9 01 lda #>DP01ADDR ; imposta nuova DP3002 F8A20E EB xba ; DP Hi3003 F8A20F A9 00 lda #03004 F8A211 5B tcd3005 F8A212 48 pha ; imposta DBR = 03006 F8A213 AB plb3007 F8A214 20 2B AE jsr SetVDCFont3008 F8A217 AB plb ; ripristina DBR3009 F8A218 2B pld ; ripristina DP3010 F8A219 28 plp ; ripristina status3011 F8A21A 60 rts301230133014 F8A21B GetBufKey:3015 F8A21B 08 php3016 F8A21C 0B phd3017 F8A21D F4 00 01 pea #DP01ADDR3018 F8A220 2B pld3019 F8A221 CPU083020 F8A221 E2 30 sep #(PMFLAG.OR.PXFLAG)3021 .LONGA off3022 .LONGI off3023 .MNLIST3024 F8A223 20 17 A5 jsr _GetBufKey3025 F8A226 2B pld3026 F8A227 28 plp3027 F8A228 60 rts30283029 F8A229 COP_KeybGet:3030 .GLOBAL COP_KeybGet30313032 F8A229 0B phd3033 F8A22A F4 00 01 pea #DP01ADDR3034 F8A22D 2B pld3035 F8A22E 38 sec ; no char3036 F8A22F A5 62 lda KbdCnt ; char disponibili nel buffer tastiera ?3037 F8A231 F0 0A beq ?10 ; no3038 F8A233 20 17 A5 jsr _GetBufKey ; preserve CF3039 F8A236 AA tax ; code3040 F8A237 98 tya ; flag3041 F8A238 89 40 bit #$40 ; test bit <6>3042 F8A23A D0 01 bne ?10 ; rilascio - ignora3043 F8A23C 18 clc ; OK -- tasto disponibile3044 F8A23D 2B ?10: pld ; restore DP3045 F8A23E 90 02 bcc ?123046 F8A240 A2 00 ldx #$003047 F8A242 83 0E ?12: sta STKCR+1,s ; flag control key3048 F8A244 8A txa3049 F8A245 83 0D sta STKCR,s ; key code3050 F8A247 18 clc3051 F8A248 6B rtl3052Tue Jul 17 11:00:17 2018 Page 93053 F8A249 COP_ScnCtl:3054 .GLOBAL COP_ScnCtl30553056 F8A249 ACC16 ; retrieve function number3057 F8A249 C2 20 rep #PMFLAG3058 .LONGA on3059 .MNLIST3060 F8A24B A3 10 lda STKPCL,s ; pointer to byte after signature3061 F8A24D 85 51 sta COPPtr3062 F8A24F 1A inc a ; update return address3063 F8A250 83 10 sta STKPCL,s3064 F8A252 ACC08 ; A,M -> 8 bit3065 F8A252 E2 20 sep #PMFLAG3066 .LONGA off3067 .MNLIST3068 F8A254 A3 12 lda STKPBR,s ; bank where was executed cop instruction3069 F8A256 85 53 sta COPPtr+23070 F8A258 A7 51 lda [COPPtr] ; byte after signature3071 F8A25A F4 00 01 pea #DP01ADDR3072 F8A25D 2B pld3073 F8A25E AA tax3074 F8A25F F0 1F beq ?38 ; X = 0 -> init screen3075 F8A261 CA dex3076 F8A262 F0 17 beq ?36 ; X = 1 -> clear screen3077 F8A264 CA dex3078 F8A265 F0 1E beq ?42 ; X = 2 -> get cursor position3079 F8A267 CA dex3080 F8A268 F0 2D beq ?44 ; X = 3 -> set cursor position3081 F8A26A CA dex3082 F8A26B F0 36 beq ?46 ; X = 4 -> get screen org3083 F8A26D CA dex3084 F8A26E F0 3E beq ?48 ; X = 5 -> get keyboard flag3085 F8A270 CA dex3086 F8A271 F0 45 beq ?50 ; X = 6 -> clear keyboard buffer & ctrl break3087 F8A273 CA dex3088 F8A274 F0 4F beq ?52 ; X = 7 -> get ctrl break flag3089 F8A276 CA dex3090 F8A277 F0 66 beq ?60 ; X = 8 -> fill keyboard buffer3091 F8A279 18 clc3092 F8A27A 6B rtl3093 F8A27B 20 55 A3 ?36: jsr WndClr3094 F8A27E 80 03 bra ?403095 F8A280 20 08 A3 ?38: jsr cinit3096 F8A283 18 ?40: clc3097 F8A284 6B rtl3098 F8A285 38 ?42: sec ; get pos3099 F8A286 20 97 AC jsr GetSetPos3100 F8A289 A9 00 lda #03101 F8A28B 83 0C ?43: sta STKXR+1,s3102 F8A28D 83 0A sta STKYR+1,s3103 F8A28F 8A txa3104 F8A290 83 0B sta STKXR,s3105 F8A292 98 tya3106 F8A293 83 09 sta STKYR,s3107 F8A295 18 clc3108 F8A296 6B rtl3109 F8A297 A3 0B ?44: lda STKXR,sTue Jul 17 11:00:17 2018 Page 103110 F8A299 AA tax3111 F8A29A A3 09 lda STKYR,s3112 F8A29C A8 tay3113 F8A29D 18 clc ; set pos3114 F8A29E 20 97 AC jsr GetSetPos3115 F8A2A1 18 clc3116 F8A2A2 6B rtl3117 F8A2A3 20 88 AC ?46: jsr GetWndOrg3118 F8A2A6 83 0D sta STKCR,s3119 F8A2A8 A9 00 ?47: lda #03120 F8A2AA 83 0E sta STKCR+1,s3121 F8A2AC 80 DD bra ?433122 F8A2AE 78 ?48: sei3123 F8A2AF A5 64 lda KbdFlag3124 F8A2B1 A6 65 ldx KbdToggle3125 F8A2B3 A4 63 ldy KbdShift3126 F8A2B5 58 cli3127 F8A2B6 80 F0 bra ?473128 F8A2B8 78 ?50: sei3129 F8A2B9 64 62 stz KbdCnt ; clear keyboard buffer3130 F8A2BB 64 60 stz KbdITail3131 F8A2BD 64 61 stz KbdIHead3132 F8A2BF 9C 4B 00 stz !CtrlBrk ; clear ctrl break/alt sysreq flags3133 F8A2C2 58 cli3134 F8A2C3 18 clc3135 F8A2C4 6B rtl3136 F8A2C5 AD 4B 00 ?52: lda !CtrlBrk3137 F8A2C8 29 80 and #$80 ; check bit 73138 F8A2CA F0 0B beq ?543139 F8A2CC 1C 4B 00 trb !CtrlBrk ; clear flag3140 F8A2CF 78 sei3141 F8A2D0 64 62 stz KbdCnt ; clear keyboard buffer3142 F8A2D2 64 60 stz KbdITail3143 F8A2D4 64 61 stz KbdIHead3144 F8A2D6 58 cli3145 F8A2D7 83 0D ?54: sta STKCR,s ; A = $80 or $003146 F8A2D9 A9 00 lda #03147 F8A2DB 83 0E sta STKCR+1,s3148 F8A2DD 18 clc3149 F8A2DE 6B rtl3150 F8A2DF A3 0D ?60: lda STKCR,s ; CX -> pointer3151 F8A2E1 85 A2 sta ScnPrm3152 F8A2E3 A3 0E lda STKCR+1,s3153 F8A2E5 85 A3 sta ScnPrm+13154 F8A2E7 A3 0B lda STKXR,s3155 F8A2E9 85 A4 sta ScnPrm+23156 F8A2EB A0 00 ldy #03157 F8A2ED 9B txy3158 F8A2EE 78 sei3159 F8A2EF B7 A2 ?62: lda [ScnPrm],y3160 F8A2F1 F0 09 beq ?643161 F8A2F3 95 01 sta <KbdBuf+1,x ; key code3162 F8A2F5 74 00 stz <KbdBuf,x ; key pressed3163 F8A2F7 E8 inx3164 F8A2F8 E8 inx3165 F8A2F9 C8 iny3166 F8A2FA D0 F3 bne ?62Tue Jul 17 11:00:17 2018 Page 113167 F8A2FC 86 62 ?64: stx <KbdCnt3168 F8A2FE 86 60 stx <KbdITail3169 F8A300 64 61 stz <KbdIHead3170 F8A302 A9 80 lda #$80 ; disable auto insert when fill buffer3171 F8A304 14 74 trb ScnAutoIns3172 F8A306 18 clc3173 F8A307 6B rtl3174 F8A3083175 ;--------------------------------------------------------------------31763177 ; inizializza screen editor3178 F8A308 cinit:3179 F8A308 A2 47 ldx #SCNCLRLEN ; warm reset: azzera variabili3180 F8A30A 74 6E ?01: stz ScnLinTmp,x3181 F8A30C CA dex3182 F8A30D 10 FB bpl ?013183 F8A30F A9 18 ?02: lda #$183184 F8A311 85 76 sta ScnMaxRow3185 F8A313 A9 4F lda #$4F3186 F8A315 85 77 sta ScnMaxCols3187 F8A317 A9 07 lda #DEFATTR3188 F8A319 24 6D bit VBBRam3189 F8A31B 10 02 bpl ?02a3190 F8A31D A9 00 lda #DEFATTR23191 F8A31F 85 92 ?02a: sta ScnAttr3192 F8A321 85 93 sta ScnAttr23193 F8A323 A9 40 lda #$403194 F8A325 A2 48 ldx #$483195 F8A327 24 6D bit VBBRam3196 F8A329 10 04 bpl ?02b3197 F8A32B A9 00 lda #$003198 F8A32D A2 08 ldx #$083199 F8A32F 85 6F ?02b: sta ScnChBase3200 F8A331 86 70 stx ScnAttBase3201 F8A333 A9 60 lda #DEFCURS3202 F8A335 24 6D bit VBBRam3203 F8A337 10 02 bpl ?02c3204 F8A339 A9 00 lda #DEFCURS23205 F8A33B 85 71 ?02c: sta ScnCursMode3206 F8A33D A9 40 lda #$403207 F8A33F 85 75 sta ScnScroll3208 F8A341 A9 80 lda #$803209 F8A343 85 74 sta ScnAutoIns3210 F8A345 A9 01 lda #$01 ; long puntatore video RAM VB3211 F8A347 85 88 sta ScnPtr+23212 F8A349 85 8C sta ScnAtPtr+23213 F8A34B 85 A8 sta ScnPtr1+23214 F8A34D 85 AC sta ScnPtr2+23215 ;lda #TXTD_SCN3216 ;sta !DflTxtOut3217 ;stz !DflTxtIn3218 ;lda #HISTSTART3219 ;sta HistEnd+13220 ;sta HistCur+13221 ;stz HistEnd3222 ;stz HistCur3223 ;jsr _TestTue Jul 17 11:00:17 2018 Page 123224 F8A34F 20 59 AA jsr SetDefTabs3225 F8A352 20 7E AA jsr SetMaxWnd32263227 ; Cancella finestra corrente3228 F8A355 WndClr:3229 F8A355 20 63 A3 jsr WndHome3230 F8A358 20 71 A3 ?01: jsr WndGetAddrX3231 F8A35B 20 89 A7 jsr ClrRow3232 F8A35E E4 90 cpx ScnBottom3233 F8A360 E8 inx3234 F8A361 90 F5 bcc ?013235 F8A3633236 ; Posizione puntatore al margine sinistro superiore3237 F8A363 WndHome:3238 F8A363 A6 8E ldx ScnTop3239 F8A365 86 94 stx ScnRow3240 F8A367 86 96 stx ScnRowStart3241 F8A3693242 ; Posiziona puntatore al margine sinistro3243 F8A369 WndLeft:3244 F8A369 A4 8F ldy ScnLeft3245 F8A36B 84 95 sty ScnCol3246 F8A36D 84 98 sty ScnColStart3247 F8A36F3248 ; Ricava indirizzo fisico riga corrente3249 F8A36F WndGetAddr:3250 F8A36F A6 94 ldx ScnRow3251 F8A3713252 ; Ricava indirizzo fisico riga X3253 F8A371 WndGetAddrX:3254 F8A371 BF 9A AE F8 lda >SCRNADDRL,x ; forza ABS LONG3255 F8A375 85 86 sta ScnPtr3256 F8A377 BF B3 AE F8 lda >SCRNADDRH,x3257 F8A37B 05 6F ora ScnChBase3258 F8A37D 85 87 sta ScnPtr+13259 F8A37F3260 F8A37F WndGetAddr2:3261 F8A37F A5 86 lda ScnPtr3262 F8A381 85 8A sta ScnAtPtr3263 F8A383 A5 87 lda ScnPtr+13264 F8A385 29 07 and #$073265 F8A387 05 70 ora ScnAttBase3266 F8A389 85 8B sta ScnAtPtr+13267 F8A38B 60 rts32683269 F8A38C WndEnd:3270 F8A38C A6 90 ldx ScnBottom3271 F8A38E 86 94 stx ScnRow3272 F8A390 86 96 stx ScnRowStart3273 F8A392 80 D5 bra WndLeft3274 F8A3943275 F8A394 WndNewLine:3276 F8A394 24 B2 bit ScnFlag ; test input line3277 F8A396 10 18 bpl ?003278 F8A398 18 clc3279 F8A399 70 D4 bvs WndGetAddr ; mai scroll per input mono-linea3280 F8A39B A6 94 ldx ScnRowTue Jul 17 11:00:17 2018 Page 133281 F8A39D E4 90 cpx ScnBottom3282 F8A39F 90 23 bcc ?02 ; non occorre scroll3283 F8A3A1 A4 AE ldy ScnInpRow3284 F8A3A3 C4 8E cpy ScnTop3285 F8A3A5 D0 19 bne ?013286 F8A3A7 A4 B0 ldy ScnLstRow3287 F8A3A9 C4 90 cpy ScnBottom3288 F8A3AB 90 13 bcc ?01 ; scroll ok3289 F8A3AD 18 clc3290 F8A3AE 90 BF bcc WndGetAddr3291 F8A3B0 A6 94 ?00: ldx ScnRow3292 F8A3B2 E4 90 cpx ScnBottom3293 F8A3B4 90 0E bcc ?02 ; non occorre scroll3294 F8A3B6 24 75 bit ScnScroll3295 F8A3B8 10 06 bpl ?013296 F8A3BA A5 8E lda ScnTop3297 F8A3BC 85 94 sta ScnRow3298 F8A3BE B0 AF bcs WndGetAddr3299 F8A3C0 20 A5 A6 ?01: jsr WndScroll3300 F8A3C3 18 clc3301 F8A3C4 E6 94 ?02: inc ScnRow ; incrementa riga3302 F8A3C6 80 A7 bra WndGetAddr33033304 ; funzione CLR (SHIFT+PRTSCN)3305 F8A3C8 ScnClr:3306 F8A3C8 24 B2 bit ScnFlag ; se in modo normale3307 F8A3CA 10 89 bpl WndClr ; cancella schermo3308 F8A3CC 80 29 bra _InpClr33093310 ; funzione HOME3311 F8A3CE ScnHome:3312 F8A3CE 24 B2 bit ScnFlag ; se in modo normale3313 F8A3D0 10 0A bpl ?00 ; va a prima posizione schermo3314 F8A3D2 A6 AE ldx ScnInpRow ; altrimenti imposta cursore a3315 F8A3D4 86 94 stx ScnRow ; prima posizione riga di input3316 F8A3D6 A4 AF ldy ScnInpCol3317 F8A3D8 84 95 sty ScnCol3318 F8A3DA 80 95 bra WndGetAddrX3319 F8A3DC A5 A0 ?00: lda ScnLstChr3320 F8A3DE C9 05 cmp #SCN_HOME3321 F8A3E0 D0 81 bne WndHome3322 F8A3E2 20 7E AA jsr SetMaxWnd3323 F8A3E5 4C 63 A3 ?01: jmp WndHome33243325 F8A3E8 ScnEnd:3326 F8A3E8 24 B2 bit ScnFlag ; se in modo normale3327 F8A3EA 10 A0 bpl WndEnd ; va a altima posizione schermo3328 F8A3EC A6 B0 ldx ScnLstRow ; altrimenti sposta cursore ad ultima3329 F8A3EE 86 94 stx ScnRow ; posizione riga di input3330 F8A3F0 A4 B1 ldy ScnLstCol3331 F8A3F2 84 95 sty ScnCol3332 F8A3F4 4C 71 A3 jmp WndGetAddrX33333334 F8A3F7 _InpClr:3335 F8A3F7 20 CE A3 jsr ScnHome ; posiziona cursore a prima posizione riga di input3336 F8A3FA A6 94 ldx ScnRow3337 F8A3FC A4 95 ldy ScnColTue Jul 17 11:00:17 2018 Page 143338 F8A3FE 20 8E A7 jsr ClrRowY ; cancella linea input fino alla fine3339 F8A401 A6 94 ldx ScnRow ; cancella resto delle linee fino alla posizione3340 F8A403 E4 B0 cpx ScnLstRow3341 F8A405 B0 0E bcs ?023342 F8A407 E8 ?01: inx3343 F8A408 86 94 stx ScnRow3344 F8A40A A4 8F ldy ScnLeft ; ultima della riga di input3345 F8A40C 20 8E A7 jsr ClrRowY3346 F8A40F A6 94 ldx ScnRow3347 F8A411 E4 B0 cpx ScnLstRow3348 F8A413 90 F2 bcc ?013349 F8A415 A6 AE ?02: ldx ScnInpRow3350 F8A417 A4 AF ldy ScnInpCol3351 F8A419 86 B0 stx ScnLstRow3352 F8A41B 84 B1 sty ScnLstCol3353 F8A41D 80 AF bra ScnHome33543355 ;--------------------------------------------------------------------33563357 ; inizializza video3358 F8A41F _ScnInit:3359 F8A41F 48 pha3360 F8A420 DA phx3361 F8A421 5A phy3362 F8A422 08 php ; salva status3363 F8A423 0B phd ; salva DP3364 F8A424 8B phb ; salva registro DBR3365 F8A425 CPU08 ; imposta registri a 8 bit3366 F8A425 E2 30 sep #(PMFLAG.OR.PXFLAG)3367 .LONGA off3368 .LONGI off3369 .MNLIST3370 F8A427 F4 00 01 pea #DP01ADDR ; imposta nuova DP3371 F8A42A 2B pld3372 F8A42B A2 00 ldx #0 ;3373 F8A42D DA phx ; imposta DBR = 03374 F8A42E AB plb3375 F8A42F 20 08 A3 jsr cinit3376 F8A432 AB plb3377 F8A433 2B pld3378 F8A434 28 plp ; rispristina status3379 F8A435 7A ply3380 F8A436 FA plx3381 F8A437 68 pla3382 F8A438 18 clc ; no error3383 F8A439 60 rts3384 F8A43A3385 ; input mode - caratteri di controllo3386 F8A43A _ScnCtrl:3387 F8A43A A2 80 ldx #$80 ; control3388 F8A43C 86 B5 stx ScnCntrl3389 F8A43E A6 A0 ldx ScnLstChr3390 F8A440 E0 1E cpx #SCN_PRTSCN3391 F8A442 F0 48 beq _ScnPut2 ; passa a procedura PRINT3392 F8A444 C9 01 cmp #KB_SHIFTPRT ; SHIFT + PRINT SCRN3393 F8A446 D0 04 bne ?013394 F8A448 A9 0C lda #SCN_CLR ; cancella schermoTue Jul 17 11:00:17 2018 Page 153395 F8A44A 80 40 bra _ScnPut23396 F8A44C A2 00 ?01: ldx #0 ; NOTA3397 F8A44E C9 09 cmp #KB_SHIFTINS3398 F8A450 F0 06 beq ?023399 F8A452 A2 00 ldx #0 ; NOTA3400 F8A454 C9 18 cmp #KB_SHIFTDEL3401 F8A456 D0 07 bne ?043402 F8A458 A9 1E ?02: lda #SCN_PRTSCN ; simula3403 F8A45A 85 A0 sta ScnLstChr3404 F8A45C 8A txa3405 F8A45D 80 2D bra _ScnPut23406 F8A45F C9 83 ?04: cmp #KB_PRTSCN ; test tasti cursore e speciali3407 F8A461 90 2C bcc _ScnWait3408 F8A463 C9 91 cmp #(KB_BACKSPACE + 1)3409 F8A465 B0 28 bcs _ScnWait3410 F8A467 E9 82 sbc #(KB_PRTSCN - 1)3411 F8A469 AA tax3412 F8A46A BF 3A AF F8 lda >KBCONV,x ; converte tasti $83..90 in SCN_*3413 F8A46E 80 1C bra _ScnPut234143415 ; input mode - stampa carattere ASCII3416 F8A470 _ScnPut:3417 F8A470 64 B5 stz ScnCntrl ; flag carattere ASCII/CONTROL3418 F8A472 A6 A0 ldx ScnLstChr3419 F8A474 E0 1E cpx #SCN_PRTSCN3420 F8A476 F0 14 beq _ScnPut2 ; passa a procedura PRINT3421 F8A478 C9 20 cmp #' ' ; stampa diretta ASCII >= $323422 F8A47A B0 10 bcs _ScnPut23423 F8A47C C9 09 cmp #KB_TAB ; tasto TAB3424 F8A47E F0 0C beq _ScnPut23425 F8A480 C9 0A cmp #KB_LF ; tasto CTRL + J (line feed)3426 F8A482 F0 08 beq _ScnPut23427 F8A484 C9 07 cmp #KB_BELL ; tasto CTRL + G3428 F8A486 F0 04 beq _ScnPut23429 F8A488 C9 1B cmp #KB_ESC ; tasto ESC3430 F8A48A D0 03 bne _ScnWait3431 F8A48C _ScnPut2:3432 F8A48C 20 C1 AD jsr _ScnCharOut ; stampa carattere3433 F8A48F _ScnWait:3434 F8A48F 20 3B AD jsr VDCCursOn3435 F8A492 A5 62 ?01: lda KbdCnt ; char disponibili nel buffer tastiera ?3436 F8A494 F0 FC beq ?01 ; no - attendi tasto3437 F8A496 84 8D sty ScnTmpx3438 F8A498 20 17 A5 jsr _GetBufKey ; Y -> flag - A -> codice3439 F8A49B AA tax ; X = codice3440 F8A49C 98 tya ; A = flag3441 F8A49D A4 8D ldy ScnTmpx3442 F8A49F 0A asl a ; C = bit 7, N = bit 63443 F8A4A0 30 F0 bmi ?01 ; ignora rilascio tasti3444 F8A4A2 08 php ; salva C3445 F8A4A3 DA phx ; salva codice3446 F8A4A4 20 90 AD jsr VDCCursOff3447 F8A4A7 68 pla ; A = codice3448 F8A4A8 28 plp ; C = 1 se carattere di controllo3449 F8A4A9 B0 8F bcs _ScnCtrl3450 F8A4AB C9 0D cmp #KB_CR3451 F8A4AD D0 C1 bne _ScnPut ; stampa carattere se non CRTue Jul 17 11:00:17 2018 Page 163452 F8A4AF 85 A1 sta ScnCR3453 F8A4B1 20 D4 AB jsr FindEndRow3454 F8A4B4 86 6E stx ScnLinTmp3455 F8A4B6 20 44 AB jsr WndEscJ23456 F8A4B9 A4 8F ldy ScnLeft3457 F8A4BB A5 96 lda ScnRowStart3458 F8A4BD 30 12 bmi ?043459 F8A4BF C5 94 cmp ScnRow3460 F8A4C1 90 0C bcc ?033461 F8A4C3 A4 98 ldy ScnColStart3462 F8A4C5 C5 6E cmp ScnLinTmp3463 F8A4C7 D0 04 bne ?023464 F8A4C9 C4 97 cpy ScnInput3465 F8A4CB F0 02 beq ?033466 F8A4CD B0 12 ?02: bcs CheckCR3467 F8A4CF 85 94 ?03: sta ScnRow3468 F8A4D1 84 95 ?04: sty ScnCol3469 F8A4D3 80 23 bra _ScnLine3470 F8A4D53471 F8A4D5 _ScnCharIn:3472 F8A4D5 64 B2 stz ScnFlag3473 F8A4D7 A9 40 lda #$403474 F8A4D9 04 74 tsb ScnAutoIns ; bit 6: modo input3475 F8A4DB A5 A1 lda ScnCR3476 F8A4DD F0 B0 beq _ScnWait3477 F8A4DF 10 17 bpl _ScnLine3478 F8A4E1 CheckCR:3479 F8A4E1 64 A1 stz ScnCR3480 F8A4E3 A9 0D lda #KB_CR3481 F8A4E5 A2 03 ldx #TXTD_SCN3482 F8A4E7 EC 4F 00 cpx !DflTxtIn3483 F8A4EA F0 05 beq ?013484 F8A4EC EC 50 00 cpx !DflTxtOut3485 F8A4EF F0 03 beq ?023486 F8A4F1 20 C1 AD ?01: jsr _ScnCharOut3487 F8A4F4 A9 0D ?02: lda #KB_CR3488 F8A4F6 D0 1B bne _ScnLinX3489 F8A4F83490 F8A4F8 _ScnLine:3491 F8A4F8 20 6F A3 jsr WndGetAddr3492 F8A4FB 20 15 AD jsr GetVDCChar3493 F8A4FE 85 9F sta ScnCurChr3494 F8A500 A4 94 ldy ScnRow3495 F8A502 C4 6E cpy ScnLinTmp3496 F8A504 90 0A bcc ?013497 F8A506 A4 95 ldy ScnCol3498 F8A508 C4 97 cpy ScnInput3499 F8A50A 90 04 bcc ?013500 F8A50C 66 A1 ror ScnCR3501 F8A50E 30 03 bmi _ScnLinX3502 F8A510 20 20 AC ?01: jsr MoveRight35033504 F8A513 _ScnLinX:3505 F8A513 85 9F sta ScnCurChr3506 F8A515 18 clc3507 F8A516 60 rts3508Tue Jul 17 11:00:17 2018 Page 173509 ;--------------------------------------------------------------------35103511 ; NOTA: va chiamata con DP impostato su DIRP013512 F8A517 _GetBufKey:3513 F8A517 08 php3514 F8A518 78 sei ; disabilita interrupt3515 F8A519 A6 61 ldx KbdIHead ; puntatore testa buffer3516 F8A51B B4 00 ldy KbdBuf,x ; flag3517 F8A51D E8 inx3518 F8A51E B5 00 lda KbdBuf,x ; codice tasto3519 F8A520 E8 inx3520 F8A521 E0 60 cpx #KBDBUFLEN3521 F8A523 90 02 bcc ?013522 F8A525 A2 00 ldx #03523 F8A527 86 61 ?01: stx KbdIHead3524 F8A529 C6 62 dec KbdCnt3525 F8A52B C6 62 dec KbdCnt3526 F8A52D 28 plp3527 F8A52E 60 rts352835293530 F8A52F ScnProcPrnt:3531 F8A52F 60 rts3532 F8A5303533 ; processa sequenza SCN_COL <A = FOREGROUND COLOR>3534 F8A530 ScnProcCol:3535 F8A530 3A dec a ; color = color - 13536 F8A531 C9 10 cmp #$10 ; test default3537 F8A533 90 02 bcc ?02 ; set color3538 F8A535 A5 A9 lda ScnDefCol ; imposta foreground di default3539 F8A537 85 99 ?02: sta ScnSaveX ; nuovo colore3540 F8A539 A5 92 lda ScnAttr3541 F8A53B 29 F0 and #$F03542 F8A53D 05 99 ora ScnSaveX3543 F8A53F 85 92 sta ScnAttr3544 F8A541 60 rts35453546 ; processa sequenza SCN_BKGCOL <A = BACKGROUND COLOR>3547 F8A542 ScnProcBkgCol:3548 F8A542 3A dec a ; color = color - 13549 F8A543 C9 10 cmp #$10 ; test default3550 F8A545 90 02 bcc ?02 ; set color3551 F8A547 A5 AD lda ScnDefBkgCol ; imposta background di default3552 F8A549 85 99 ?02: sta ScnSaveX ; nuovo colore3553 F8A54B A2 1A ldx #$1A ; attuale bkg color3554 F8A54D 20 1F AE jsr GetVDCReg3555 F8A550 29 F0 and #$F0 ; maschera colore sfondo3556 F8A552 05 99 ora ScnSaveX ; imposta nuovo colore3557 F8A554 4C 11 AE jmp SetVDCReg35583559 ; processa sequenza SCN_ESC <A = ESC CODE>3560 F8A557 ScnProcEsc:3561 F8A557 64 9F stz ScnCurChr ; invalida byte corrente3562 F8A559 C9 1B cmp #SCN_ESC3563 F8A55B F0 2C beq WndEscO ; ESC + ESC annulla ESC3564 F8A55D AA ?01: tax3565 F8A55E 30 39 bmi _RTS0Tue Jul 17 11:00:17 2018 Page 183566 F8A560 C9 40 cmp #'@'3567 F8A562 F0 0B beq ?033568 F8A564 C9 61 cmp #'a'3569 F8A566 90 31 bcc _RTS03570 F8A568 C9 7B cmp #('z' + 1)3571 F8A56A B0 2D bcs _RTS03572 F8A56C 38 sec3573 F8A56D E9 20 sbc #$203574 F8A56F 38 ?03: sec3575 F8A570 E9 40 sbc #$403576 F8A572 C9 1B cmp #$1B3577 F8A574 B0 23 bcs _RTS03578 F8A576 0A asl a3579 F8A577 AA tax3580 F8A578 7C 04 AF jmp (ESCVCTRS,x)35813582 ; CR o SHIFT CR3583 F8A57B ScnOutCR:3584 F8A57B 20 D4 AB jsr FindEndRow3585 F8A57E E8 inx3586 F8A57F 20 16 AB jsr TabSetupX3587 F8A582 A4 8F ldy ScnLeft3588 F8A584 84 95 sty ScnCol3589 F8A586 20 94 A3 jsr WndNewLine3590 F8A5893591 ; ESC-O3592 F8A589 WndEscO:3593 F8A589 A5 92 lda ScnAttr ; azzera reverse, underline, blink3594 F8A58B 24 6D bit <VBBRam3595 F8A58D 10 04 bpl ?013596 F8A58F 29 1F and #$1F3597 F8A591 80 02 bra ?023598 F8A593 29 8F ?01: and #$8F3599 F8A595 85 92 ?02: sta ScnAttr3600 F8A597 64 73 stz ScnInsert3601 F8A599 60 _RTS0: rts3602 F8A59A3603 F8A59A ScnOutChr:3604 F8A59A 24 B2 bit ScnFlag ; ignora tasto PAUSE3605 F8A59C 30 0A bmi ?02 ; in modo line input3606 F8A59E 24 74 bit ScnAutoIns ; ignora tasto PAUSE3607 F8A5A0 70 06 bvs ?02 ; in modo full editor3608 F8A5A2 A9 10 ?01: lda #PAUSETGB ; attesa durante PAUSE3609 F8A5A4 24 65 bit KbdToggle3610 F8A5A6 D0 FA bne ?013611 F8A5A8 64 A1 ?02: stz ScnCR3612 F8A5AA A5 9F lda ScnCurChr ; byte da inviare a schermo3613 F8A5AC A4 95 ldy ScnCol ; colonna corrente3614 F8A5AE A6 A0 ldx ScnLstChr ; se ultimo byte = NULL3615 F8A5B0 F0 24 beq ?10 ; salta test sequenza escape3616 F8A5B2 E0 1B cpx #SCN_ESC ; se byte < SCN_ESC3617 F8A5B4 90 20 bcc ?10 ; salta test sequenza escape3618 F8A5B6 E0 1F cpx #SCN_PASS ; se byte < SCN_PASS3619 F8A5B8 F0 04 beq ?04 ; byte = SCN_PASS3620 F8A5BA 90 0E bcc ?06 ; byte < SCN_PASS esegue sequenza escape3621 F8A5BC B0 18 bcs ?10 ; byte > SCN_PASS salta test sequenza escape3622 F8A5BE 24 B2 ?04: bit ScnFlag ; ignora sequenze SCN_PASSTue Jul 17 11:00:17 2018 Page 193623 F8A5C0 30 14 bmi ?10 ; in modo input line3624 F8A5C2 24 74 bit ScnAutoIns ; ignora sequenze SCN_PASS3625 F8A5C4 70 10 bvs ?10 ; in modo full editor3626 F8A5C6 64 9F stz ScnCurChr ; invalida byte corrente3627 F8A5C8 80 3D bra ScnOut ; stampa codice 00..1F come ASCII3628 F8A5CA EB ?06: xba ; salva byte in B3629 F8A5CB 8A txa3630 F8A5CC E9 1A sbc #(SCN_ESC - 1) ; qui C = 0 !3631 F8A5CE 0A asl a3632 F8A5CF AA tax ; indice funzione sequenza escape3633 F8A5D0 EB xba ; ripristina A3634 F8A5D1 64 9F stz ScnCurChr ; invalida byte corrente3635 F8A5D3 7C D8 AE jmp (SCNESCSEQ,x) ; funzione di escape3636 F8A5D6 C9 20 ?10: cmp #' ' ; byte attuale ASCII ?3637 F8A5D8 B0 2D bcs ScnOut ; si - output a schermo3638 F8A5DA C9 1B cmp #SCN_ESC ; codice escape ?3639 F8A5DC B0 22 bcs ?16 ; si - esce3640 F8A5DE C9 13 cmp #SCN_ALTFNT3641 F8A5E0 90 1F bcc ?20 ; codice controllo3642 F8A5E2 E9 13 sbc #SCN_ALTFNT ; attributo3643 F8A5E4 C9 04 cmp #$04 ; attributo OFF -> C = 13644 F8A5E6 29 03 and #$033645 F8A5E8 AA tax3646 F8A5E9 24 6D bit <VBBRam3647 F8A5EB 10 08 bpl ?10a3648 F8A5ED3649 ; no alternate font attribute per video board3650 ; blink e underline invertiti3651 F8A5ED BF D4 AE F8 lda >MSKROW2,x3652 F8A5F1 F0 0D beq ?16 ; ignora se A = $003653 F8A5F3 D0 04 bne ?10b3654 F8A5F5 BF CC AE F8 ?10a: lda >MSKROW,x3655 F8A5F9 B0 03 ?10b: bcs ?12 ; si3656 F8A5FB 04 92 tsb ScnAttr ; attributo ON3657 F8A5FD 60 rts3658 F8A5FE 14 92 ?12: trb ScnAttr ; attributo OFF3659 F8A600 60 ?16: rts3660 F8A601 3A ?20: dec a ; codice controllo3661 F8A602 0A asl a3662 F8A603 AA tax ; indice funzione controllo3663 F8A604 7C E0 AE jmp (CTRLVCTRS,x)3664 F8A6073665 ; Output a schermo e posizionamento cursore3666 F8A607 ScnOut:3667 F8A607 A6 73 ?01: ldx ScnInsert3668 F8A609 F0 02 beq ?023669 F8A60B C6 73 dec ScnInsert3670 F8A60D 24 74 ?02: bit ScnAutoIns3671 F8A60F 50 25 bvc ?10 ; modo out - stampa carattere3672 F8A611 10 07 bpl ?03 ; no auto insert3673 F8A613 48 pha3674 F8A614 20 8C A9 jsr WndMakeSpace ; solo se in modo input3675 F8A617 64 73 stz ScnInsert3676 F8A619 68 pla3677 F8A61A 24 B2 ?03: bit ScnFlag3678 F8A61C 10 18 bpl ?10 ; modo input normale3679 F8A61E A6 94 ldx ScnRowTue Jul 17 11:00:17 2018 Page 203680 F8A620 A4 95 ldy ScnCol ; colonna in ultima posizione ?3681 F8A622 C4 91 cpy ScnRight3682 F8A624 90 10 bcc ?10 ; no, stampa car.3683 F8A626 24 B2 bit ScnFlag3684 F8A628 70 0A bvs ?06 ; input riga singola - non stampa3685 F8A62A E4 90 cpx ScnBottom ; ultima riga schermo ?3686 F8A62C 90 08 bcc ?10 ; no - stampa car.3687 F8A62E A6 AE ldx ScnInpRow3688 F8A630 E4 8E cpx ScnTop3689 F8A632 D0 02 bne ?103690 F8A634 18 ?06: clc3691 F8A635 60 rts3692 F8A636 20 E0 AC ?10: jsr PutChar ; stampa carattere3693 F8A639 24 B2 bit ScnFlag3694 F8A63B 10 1A bpl CheckCurs3695 F8A63D A6 94 ldx ScnRow3696 F8A63F A4 95 ldy ScnCol3697 F8A641 E4 B0 cpx ScnLstRow3698 F8A643 D0 02 bne ?113699 F8A645 C4 B1 cpy ScnLstCol3700 F8A647 08 ?11: php3701 F8A648 20 57 A6 jsr CheckCurs3702 F8A64B 28 plp3703 F8A64C D0 08 bne ?153704 F8A64E A6 94 ldx ScnRow ; aggiorna ultima posizione cursore3705 F8A650 A4 95 ldy ScnCol3706 F8A652 86 B0 stx ScnLstRow3707 F8A654 84 B1 sty ScnLstCol3708 F8A656 60 ?15: rts3709 F8A6573710 F8A657 CheckCurs:3711 F8A657 C4 91 cpy ScnRight3712 F8A659 90 0A bcc ?01 ; SncCol < ScnRight3713 F8A65B A6 94 ldx ScnRow3714 F8A65D E4 90 cpx ScnBottom3715 F8A65F 90 04 bcc ?01 ; ScnRow < ScnBottom3716 F8A661 24 75 bit ScnScroll3717 F8A663 30 16 bmi ?033718 F8A665 20 6F A3 ?01: jsr WndGetAddr3719 F8A668 20 20 AC jsr MoveRight3720 F8A66B 90 0E bcc ?033721 F8A66D 20 07 AB jsr TabCheck3722 F8A670 B0 08 bcs ?023723 F8A672 38 sec3724 F8A673 24 75 bit ScnScroll3725 F8A675 70 04 bvs ?033726 F8A677 20 7C A6 jsr InsertRow3727 F8A67A 18 ?02: clc3728 F8A67B 60 ?03: rts37293730 ; Inserisce nuova riga3731 F8A67C InsertRow:3732 F8A67C A6 96 ldx ScnRowStart3733 F8A67E 30 06 bmi ?013734 F8A680 E4 94 cpx ScnRow3735 F8A682 90 02 bcc ?013736 F8A684 E6 96 inc ScnRowStartTue Jul 17 11:00:17 2018 Page 213737 F8A686 A6 90 ?01: ldx ScnBottom3738 F8A688 20 71 A3 ?02: jsr WndGetAddrX3739 F8A68B A4 8F ldy ScnLeft3740 F8A68D E4 94 cpx ScnRow3741 F8A68F F0 0E beq ?033742 F8A691 CA dex3743 F8A692 20 09 AB jsr TabCheckX3744 F8A695 E8 inx3745 F8A696 20 14 AB jsr TabSetup23746 F8A699 CA dex3747 F8A69A 20 DD A6 jsr MoveRow3748 F8A69D 80 E9 bra ?023749 F8A69F 20 89 A7 ?03: jsr ClrRow3750 F8A6A2 4C 22 AB jmp _Tab2Check3751 F8A6A53752 ; Scrolla finestra3753 F8A6A5 WndScroll:3754 F8A6A5 A6 8E ldx ScnTop3755 F8A6A7 E8 PP01: inx3756 F8A6A8 20 09 AB jsr TabCheckX3757 F8A6AB 90 0A bcc PP023758 F8A6AD E4 90 cpx ScnBottom3759 F8A6AF 90 F6 bcc PP013760 F8A6B1 A6 8E ldx ScnTop3761 F8A6B3 E8 inx3762 F8A6B4 20 16 AB jsr TabSetupX3763 F8A6B7 C6 AE PP02: dec ScnInpRow ; update riga di start input line3764 F8A6B9 C6 94 dec ScnRow3765 F8A6BB 24 96 bit ScnRowStart3766 F8A6BD 30 02 bmi PP033767 F8A6BF C6 96 dec ScnRowStart3768 F8A6C1 A6 8E PP03: ldx ScnTop3769 F8A6C3 E4 9D cpx ScnSaveRow3770 F8A6C5 B0 02 bcs PP043771 F8A6C7 C6 9D dec ScnSaveRow3772 F8A6C9 20 72 A7 PP04: jsr DeleteRow3773 F8A6CC A6 8E ldx ScnTop3774 F8A6CE 20 09 AB jsr TabCheckX3775 F8A6D1 08 php3776 F8A6D2 20 16 AB jsr TabSetupX3777 F8A6D5 28 plp3778 F8A6D6 90 04 bcc PP053779 F8A6D8 24 75 bit ScnScroll3780 F8A6DA 30 C9 bmi WndScroll3781 F8A6DC 60 PP05: rts37823783 ; Copia riga corrente nella riga X3784 F8A6DD MoveRow:3785 F8A6DD 86 99 stx ScnSaveX3786 F8A6DF 24 6D bit <VBBRam3787 F8A6E1 10 2E bpl ?10 ; VDC3788 F8A6E3 BF 9A AE F8 lda >SCRNADDRL,x ; forza ABS LONG3789 F8A6E7 85 A6 sta ScnPtr13790 F8A6E9 85 AA sta ScnPtr23791 F8A6EB BF B3 AE F8 lda >SCRNADDRH,x3792 F8A6EF 85 A7 sta ScnPtr1+13793 F8A6F1 29 07 and #$07Tue Jul 17 11:00:17 2018 Page 223794 F8A6F3 05 70 ora ScnAttBase3795 F8A6F5 85 AB sta ScnPtr2+13796 F8A6F7 AE 0C FC ldx CREMEOFF ; salva bit corrente3797 F8A6FA DA phx3798 F8A6FB 8D 0D FC sta !CREMEON ; abilita memoria video3799 F8A6FE B7 A6 ?04: lda [ScnPtr1],y3800 F8A700 97 86 sta [ScnPtr],y3801 F8A702 B7 AA lda [ScnPtr2],y3802 F8A704 97 8A sta [ScnAtPtr],y3803 F8A706 C4 91 cpy ScnRight3804 F8A708 C8 iny3805 F8A709 90 F3 bcc ?043806 F8A70B FA plx3807 F8A70C 9D 0C FC sta !CREMEOFF,x ; ripristina bit corrente3808 F8A70F 80 5E bra ?203809 F8A711 84 9A ?10: sty ScnSaveY3810 F8A713 A2 18 ldx #$183811 F8A715 20 1F AE jsr GetVDCReg3812 F8A718 09 80 ora #$803813 F8A71A 20 11 AE jsr SetVDCReg3814 F8A71D 20 FD AD jsr SetVRam3815 F8A720 A6 99 ldx ScnSaveX3816 F8A722 BF 9A AE F8 lda >SCRNADDRL,x ; forza ABS LONG3817 F8A726 85 9B sta ScnTmpL3818 F8A728 BF B3 AE F8 lda >SCRNADDRH,x3819 F8A72C 05 6F ora ScnChBase3820 F8A72E 85 9C sta ScnTmpH3821 F8A730 A2 20 ldx #$203822 F8A732 18 clc3823 F8A733 98 tya3824 F8A734 65 9B adc ScnTmpL3825 F8A736 85 9B sta ScnTmpL3826 F8A738 A9 00 lda #$003827 F8A73A 65 9C adc ScnTmpH3828 F8A73C 85 9C sta ScnTmpH3829 F8A73E 20 11 AE jsr SetVDCReg3830 F8A741 E8 inx3831 F8A742 A5 9B lda ScnTmpL3832 F8A744 20 11 AE jsr SetVDCReg3833 F8A747 A5 91 lda ScnRight3834 F8A749 1A inc a3835 F8A74A 38 sec3836 F8A74B E5 9A sbc ScnSaveY3837 F8A74D 85 9A sta ScnSaveY3838 F8A74F A2 1E ldx #$1E3839 F8A751 20 11 AE jsr SetVDCReg3840 F8A754 20 F0 AD jsr SetARam3841 F8A757 A2 20 ldx #$203842 F8A759 A5 9C lda ScnTmpH3843 F8A75B 29 07 and #$073844 F8A75D 05 70 ora ScnAttBase3845 F8A75F 20 11 AE jsr SetVDCReg3846 F8A762 E8 inx3847 F8A763 A5 9B lda ScnTmpL3848 F8A765 20 11 AE jsr SetVDCReg3849 F8A768 A5 9A lda ScnSaveY3850 F8A76A A2 1E ldx #$1ETue Jul 17 11:00:17 2018 Page 233851 F8A76C 20 11 AE jsr SetVDCReg3852 F8A76F A6 99 ?20: ldx ScnSaveX3853 F8A771 60 rts38543855 ; Elimina riga X3856 F8A772 DeleteRow:3857 F8A772 20 71 A3 jsr WndGetAddrX3858 F8A775 A4 8F ldy ScnLeft3859 F8A777 E4 90 cpx ScnBottom3860 F8A779 B0 0E bcs ClrRow3861 F8A77B E8 inx3862 F8A77C 20 09 AB jsr TabCheckX3863 F8A77F CA dex3864 F8A780 20 14 AB jsr TabSetup23865 F8A783 E8 inx3866 F8A784 20 DD A6 jsr MoveRow3867 F8A787 80 E9 bra DeleteRow3868 F8A7893869 ; Cancella linea X3870 F8A789 ClrRow:3871 F8A789 A4 8F ldy ScnLeft3872 F8A78B 20 16 AB jsr TabSetupX3873 F8A78E3874 ; Cancella linea X a partire da colonna Y3875 F8A78E ClrRowY:3876 F8A78E 20 71 A3 jsr WndGetAddrX3877 F8A791 86 99 stx ScnSaveX3878 F8A793 24 6D bit <VBBRam3879 F8A795 10 1E bpl ?00 ; VDC3880 F8A797 AE 0C FC ldx CREMEOFF ; salva bit corrente3881 F8A79A DA phx3882 F8A79B 8D 0D FC sta !CREMEON ; abilita memoria video3883 F8A79E 88 dey3884 F8A79F C8 ?00a: iny3885 F8A7A0 A9 20 lda #' '3886 F8A7A2 97 86 sta [ScnPtr],y3887 F8A7A4 A5 92 lda ScnAttr3888 F8A7A6 29 1F and #$1F3889 F8A7A8 97 8A sta [ScnAtPtr],y3890 F8A7AA C4 91 cpy ScnRight3891 F8A7AC D0 F1 bne ?00a3892 F8A7AE FA plx3893 F8A7AF 9D 0C FC sta !CREMEOFF,x ; ripristina bit corrente3894 F8A7B2 A6 99 ldx ScnSaveX3895 F8A7B4 60 rts3896 F8A7B5 84 9A ?00: sty ScnSaveY3897 F8A7B7 A2 18 ldx #$183898 F8A7B9 20 1F AE jsr GetVDCReg3899 F8A7BC 29 7F and #$7F3900 F8A7BE 20 11 AE jsr SetVDCReg3901 F8A7C1 A2 12 ldx #$123902 F8A7C3 18 clc3903 F8A7C4 98 tya3904 F8A7C5 65 86 adc ScnPtr3905 F8A7C7 85 9B sta ScnTmpL3906 F8A7C9 A9 00 lda #03907 F8A7CB 65 87 adc ScnPtr+1Tue Jul 17 11:00:17 2018 Page 243908 F8A7CD 85 9C sta ScnTmpH3909 F8A7CF 20 11 AE jsr SetVDCReg3910 F8A7D2 E8 inx3911 F8A7D3 A5 9B lda ScnTmpL3912 F8A7D5 20 11 AE jsr SetVDCReg3913 F8A7D8 A9 20 lda #' '3914 F8A7DA 20 0F AE jsr SetVDCReg313915 F8A7DD 38 sec3916 F8A7DE A5 91 lda ScnRight3917 F8A7E0 E5 9A sbc ScnSaveY3918 F8A7E2 48 pha3919 F8A7E3 F0 10 beq ?013920 F8A7E5 AA tax3921 F8A7E6 38 sec3922 F8A7E7 65 9B adc ScnTmpL3923 F8A7E9 85 9B sta ScnTmpL3924 F8A7EB A9 00 lda #$003925 F8A7ED 65 9C adc ScnTmpH3926 F8A7EF 85 9C sta ScnTmpH3927 F8A7F1 8A txa3928 F8A7F2 20 24 A8 jsr CopyVDC3929 F8A7F5 A2 12 ?01: ldx #$123930 F8A7F7 18 clc3931 F8A7F8 98 tya3932 F8A7F9 65 8A adc ScnAtPtr3933 F8A7FB 48 pha3934 F8A7FC A9 00 lda #03935 F8A7FE 65 8B adc ScnAtPtr+13936 F8A800 20 11 AE jsr SetVDCReg3937 F8A803 E8 inx3938 F8A804 68 pla3939 F8A805 20 11 AE jsr SetVDCReg3940 F8A808 A5 9C lda ScnTmpH3941 F8A80A 29 07 and #$073942 F8A80C 05 70 ora ScnAttBase3943 F8A80E 85 9C sta ScnTmpH3944 F8A810 A5 92 lda ScnAttr3945 F8A812 29 8F and #$8F3946 F8A814 20 0F AE jsr SetVDCReg313947 F8A817 68 pla3948 F8A818 F0 03 beq ?023949 F8A81A 20 24 A8 jsr CopyVDC3950 F8A81D A6 99 ?02: ldx ScnSaveX3951 F8A81F A4 91 ldy ScnRight3952 F8A821 60 rts3953 F8A8223954 ; Copia in video ram 1 byte3955 F8A822 CopyVDC1:3956 F8A822 A9 01 lda #$013957 F8A8243958 ; Copia in video ram A bytes3959 F8A824 CopyVDC:3960 F8A824 A2 1E ldx #$1E3961 F8A826 20 11 AE jsr SetVDCReg3962 F8A829 2C 4E FD ?01: bit VDCStatus3963 F8A82C 10 FB bpl ?013964 F8A82E A2 12 ldx #$12Tue Jul 17 11:00:17 2018 Page 253965 F8A830 20 1F AE jsr GetVDCReg3966 F8A833 C5 9C cmp ScnTmpH3967 F8A835 90 EB bcc CopyVDC13968 F8A837 A2 13 ldx #$133969 F8A839 20 1F AE jsr GetVDCReg3970 F8A83C C5 9B cmp ScnTmpL3971 F8A83E 90 E2 bcc CopyVDC13972 F8A840 60 rts397339743975 ;--------------------------------------------------------------------39763977 ; tasto insert3978 F8A841 KeybInsert:3979 F8A841 24 74 bit ScnAutoIns3980 F8A843 30 18 bmi RTS113981 F8A845 4C 8C A9 jmp WndMakeSpace3982 F8A8483983 ; Muove cursore a destra3984 F8A848 CsrRight:3985 F8A848 24 B2 bit ScnFlag3986 F8A84A 10 0C bpl ?00 ; modo normale3987 F8A84C A4 95 ldy ScnCol ; test: cursore ad ultima posizione ?3988 F8A84E C4 B1 cpy ScnLstCol3989 F8A850 90 06 bcc ?00 ; no3990 F8A852 A4 94 ldy ScnRow3991 F8A854 C4 B0 cpy ScnLstRow3992 F8A856 B0 05 bcs RTS11 ; si3993 F8A858 20 20 AC ?00: jsr MoveRight3994 F8A85B B0 08 bcs _CsrCheck3995 F8A85D RTS11:3996 F8A85D 60 rts3997 F8A85E3998 ; Muove cursore in basso3999 F8A85E CsrDown:4000 F8A85E 24 B2 bit ScnFlag ; se in modo input4001 F8A860 30 2A bmi CsrDown24002 F8A862 20 94 A3 jsr WndNewLine4003 F8A8654004 F8A865 _CsrCheck:4005 F8A865 20 07 AB jsr TabCheck4006 F8A868 B0 03 bcs _CsrClc4007 F8A86A 38 sec4008 F8A86B 66 96 ror ScnRowStart4009 F8A86D _CsrClc:4010 F8A86D 18 clc4011 F8A86E _CsrRts:4012 F8A86E 60 rts4013 F8A86F4014 ; Muove cursore in alto4015 F8A86F CsrUp:4016 F8A86F 24 B2 bit ScnFlag ; se in modo input4017 F8A871 30 35 bmi CsrUp24018 F8A873 A6 8E ldx ScnTop4019 F8A875 E4 94 cpx ScnRow4020 F8A877 B0 F5 bcs _CsrRts4021 F8A879 _CsrSet:Tue Jul 17 11:00:17 2018 Page 264022 F8A879 20 65 A8 jsr _CsrCheck4023 F8A87C _CsrSet2:4024 F8A87C C6 94 dec ScnRow4025 F8A87E 4C 6F A3 jmp WndGetAddr4026 F8A8814027 ; Muove cursore a sinistra4028 F8A881 CsrLeft:4029 F8A881 20 51 AC jsr MoveLeft4030 F8A884 B0 E8 bcs _CsrRts4031 F8A886 D0 E5 bne _CsrClc4032 F8A888 E6 94 inc ScnRow4033 F8A88A D0 ED bne _CsrSet40344035 ; CURSORE DOWN modo input4036 F8A88C CsrDown2:4037 F8A88C A6 94 ldx ScnRow4038 F8A88E E4 B0 cpx ScnLstRow4039 F8A890 B0 DC bcs _CsrRts4040 F8A892 E6 94 inc ScnRow4041 F8A894 A4 95 ldy ScnCol4042 F8A896 A6 94 ldx ScnRow4043 F8A898 E4 B0 cpx ScnLstRow4044 F8A89A 90 06 bcc _Check44045 F8A89C C4 B1 cpy ScnLstCol4046 F8A89E 90 02 bcc _Check44047 F8A8A0 A4 B1 ldy ScnLstCol4048 F8A8A24049 F8A8A2 _Check4:4050 F8A8A2 84 95 sty ScnCol4051 F8A8A4 18 clc4052 F8A8A5 4C 6F A3 jmp WndGetAddr4053 F8A8A84054 ; CURSORE UP modo input4055 F8A8A8 CsrUp2:4056 F8A8A8 A6 AE ldx ScnInpRow4057 F8A8AA E4 94 cpx ScnRow4058 F8A8AC B0 C0 bcs _CsrRts4059 F8A8AE C6 94 dec ScnRow4060 F8A8B0 A4 95 ldy ScnCol4061 F8A8B2 A6 AE ldx ScnInpRow4062 F8A8B4 E4 94 cpx ScnRow4063 F8A8B6 90 EA bcc _Check44064 F8A8B8 C4 AF cpy ScnInpCol4065 F8A8BA B0 E6 bcs _Check44066 F8A8BC A4 AF ldy ScnInpCol4067 F8A8BE 80 E2 bra _Check44068 F8A8C04069 ; TAB4070 F8A8C0 CsrTab:4071 F8A8C0 24 B2 bit ScnFlag ; in modo input line4072 F8A8C2 30 12 bmi ?04 ; non esegue nulla4073 F8A8C4 A4 95 ldy ScnCol4074 F8A8C6 C8 ?01: iny4075 F8A8C7 C4 91 cpy ScnRight4076 F8A8C9 B0 07 bcs ?024077 F8A8CB 20 F4 A8 jsr FindTab4078 F8A8CE F0 F6 beq ?01Tue Jul 17 11:00:17 2018 Page 274079 F8A8D0 D0 02 bne ?034080 F8A8D2 A4 91 ?02: ldy ScnRight4081 F8A8D4 84 95 ?03: sty ScnCol4082 F8A8D6 60 ?04: rts40834084 F8A8D7 CsrShTab:4085 F8A8D7 24 B2 bit ScnFlag ; in modo input line4086 F8A8D9 30 0E bmi ?04 ; non esegue nulla4087 F8A8DB A4 95 ldy ScnCol4088 F8A8DD C4 8F ?01: cpy ScnLeft4089 F8A8DF F0 06 beq ?034090 F8A8E1 88 dey4091 F8A8E2 20 F4 A8 jsr FindTab4092 F8A8E5 F0 F6 beq ?014093 F8A8E7 84 95 ?03: sty ScnCol4094 F8A8E9 60 ?04: rts4095 F8A8EA4096 F8A8EA TabToggle:4097 F8A8EA A4 95 ldy ScnCol4098 F8A8EC 20 F4 A8 jsr FindTab4099 F8A8EF 45 9B eor ScnTmpL4100 F8A8F1 95 78 sta ScnMapTabs1,x4101 F8A8F3 60 rts4102 F8A8F44103 F8A8F4 FindTab:4104 F8A8F4 98 tya4105 F8A8F5 29 07 and #$074106 F8A8F7 AA tax4107 F8A8F8 BF CC AE F8 lda >MSKROW,x ; forza ABS LONG4108 F8A8FC 85 9B sta ScnTmpL4109 F8A8FE 98 tya4110 F8A8FF 4A lsr a4111 F8A900 4A lsr a4112 F8A901 4A lsr a4113 F8A902 AA tax4114 F8A903 B5 78 lda ScnMapTabs1,x4115 F8A905 24 9B bit ScnTmpL4116 F8A907 60 rts4117 F8A9084118 F8A908 LineFeed:4119 F8A908 24 B2 bit ScnFlag ; in modo input line4120 F8A90A 30 0C bmi ?01 ; non esegue nulla4121 F8A90C A5 95 lda ScnCol4122 F8A90E 48 pha4123 F8A90F 20 D4 AB jsr FindEndRow4124 F8A912 20 94 A3 jsr WndNewLine4125 F8A915 68 pla4126 F8A916 85 95 sta ScnCol4127 F8A918 60 ?01: rts41284129 F8A919 SolidCurs:4130 F8A919 A5 71 lda ScnCursMode4131 F8A91B 29 E0 and #$E04132 F8A91D 80 10 bra _SetVDCCurs41334134 F8A91F ULineCurs:4135 F8A91F A5 71 lda ScnCursModeTue Jul 17 11:00:17 2018 Page 284136 F8A921 29 E0 and #$E04137 F8A923 09 07 ora #CURSLINE4138 F8A925 80 08 bra _SetVDCCurs4139 F8A9274140 F8A927 FixedCurs:4141 F8A927 A9 80 lda #$804142 F8A929 14 74 trb ScnAutoIns4143 F8A92B A5 71 lda ScnCursMode4144 F8A92D 29 1F and #$1F4145 F8A92F4146 F8A92F _SetVDCCurs:4147 F8A92F 85 71 sta ScnCursMode4148 F8A931 4C 79 AD jmp VDCCursor41494150 F8A934 FlashCurs:4151 F8A934 A9 80 lda #$804152 F8A936 04 74 tsb ScnAutoIns4153 F8A938 A5 71 lda ScnCursMode4154 F8A93A 29 1F and #$1F4155 F8A93C 09 60 ora #DEFCURS4156 F8A93E D0 EF bne _SetVDCCurs4157 F8A9404158 F8A940 ScreenRev:4159 F8A940 A2 18 ldx #$184160 F8A942 20 1F AE jsr GetVDCReg4161 F8A945 09 40 ora #$404162 F8A947 D0 07 bne _ScnSet4163 F8A9494164 F8A949 ScreenNorm:4165 F8A949 A2 18 ldx #$184166 F8A94B 20 1F AE jsr GetVDCReg4167 F8A94E 29 BF and #$BF4168 F8A9504169 F8A950 _ScnSet:4170 F8A950 4C 11 AE jmp SetVDCReg41714172 F8A953 UpdLast:4173 F8A953 A4 B1 ldy ScnLstCol4174 F8A955 A5 94 lda ScnRow4175 F8A957 C5 AE cmp ScnInpRow4176 F8A959 D0 04 bne ?054177 F8A95B C4 AF cpy ScnInpCol4178 F8A95D F0 09 beq ?114179 F8A95F 88 ?05: dey4180 F8A960 10 04 bpl ?104181 F8A962 C6 B0 dec ScnLstRow4182 F8A964 A4 91 ldy ScnRight4183 F8A966 84 B1 ?10: sty ScnLstCol4184 F8A968 60 ?11: rts41854186 F8A969 MoveRCurs:4187 F8A969 20 57 A6 jsr CheckCurs4188 F8A96C A6 94 ldx ScnRow ; aggiorna ultima posizione cursore4189 F8A96E A4 95 ldy ScnCol4190 F8A970 86 B0 stx ScnLstRow4191 F8A972 84 B1 sty ScnLstCol4192 F8A974 60 rtsTue Jul 17 11:00:17 2018 Page 2941934194 ; tasto DELETE4195 F8A975 KeyDel:4196 F8A975 24 B2 bit ScnFlag4197 F8A977 10 12 bpl ?304198 F8A979 A5 94 lda ScnRow ; non esegue nulla se in ultima posizione4199 F8A97B C5 B0 cmp ScnLstRow4200 F8A97D D0 06 bne ?014201 F8A97F A5 95 lda ScnCol4202 F8A981 C5 B1 cmp ScnLstCol4203 F8A983 F0 06 beq ?304204 F8A985 20 7F AC ?01: jsr SaveCursPos4205 F8A988 20 13 AA jsr KeyDel14206 F8A98B 60 ?30: rts42074208 ; Crea spazio nella finestra4209 F8A98C WndMakeSpace:4210 F8A98C 24 B2 bit ScnFlag4211 F8A98E 10 34 bpl ?004212 F8A990 A6 94 ldx ScnRow ; non apre spazio se stampa avviene4213 F8A992 E4 B0 cpx ScnLstRow ; nella posizione corrente4214 F8A994 D0 06 bne ?054215 F8A996 A4 95 ldy ScnCol4216 F8A998 C4 B1 cpy ScnLstCol4217 F8A99A F0 0A beq ?104218 F8A99C 24 B2 ?05: bit ScnFlag4219 F8A99E 50 07 bvc ?20 ; input multi-linea4220 F8A9A0 A4 B1 ldy ScnLstCol ; non apre spazio se cursore4221 F8A9A2 C4 91 cpy ScnRight ; in ultima posizione utile4222 F8A9A4 90 13 bcc ?254223 F8A9A6 60 ?10: rts4224 F8A9A7 A4 B1 ?20: ldy ScnLstCol ; test ultima posizione utile multi-linea4225 F8A9A9 C4 91 cpy ScnRight4226 F8A9AB 90 0C bcc ?254227 F8A9AD A4 AE ldy ScnInpRow4228 F8A9AF C4 8E cpy ScnTop4229 F8A9B1 D0 06 bne ?254230 F8A9B3 A4 B0 ldy ScnLstRow4231 F8A9B5 C4 90 cpy ScnBottom4232 F8A9B7 B0 ED bcs ?104233 F8A9B9 20 7F AC ?25: jsr SaveCursPos4234 F8A9BC 20 8B AB jsr FindEndRow24235 F8A9BF 20 69 A9 jsr MoveRCurs4236 F8A9C2 80 13 bra ?0242374238 F8A9C4 20 7F AC ?00: jsr SaveCursPos4239 F8A9C7 20 D4 AB jsr FindEndRow4240 F8A9CA E4 9D cpx ScnSaveRow4241 F8A9CC D0 02 bne ?014242 F8A9CE C4 9E cpy ScnSaveCol4243 F8A9D0 90 21 ?01: bcc ?034244 F8A9D2 20 57 A6 jsr CheckCurs4245 F8A9D5 B0 62 bcs CsrRest4246 F8A9D7 20 51 AC ?02: jsr MoveLeft4247 F8A9DA 20 15 AD jsr GetVDCChar4248 F8A9DD 20 20 AC jsr MoveRight4249 F8A9E0 20 E4 AC jsr PutChar2Tue Jul 17 11:00:17 2018 Page 304250 F8A9E3 20 51 AC jsr MoveLeft4251 F8A9E6 A6 94 ldx ScnRow4252 F8A9E8 E4 9D cpx ScnSaveRow4253 F8A9EA D0 EB bne ?024254 F8A9EC C4 9E cpy ScnSaveCol4255 F8A9EE D0 E7 bne ?024256 F8A9F0 20 CF AC jsr PutBlank4257 F8A9F3 E6 73 ?03: inc ScnInsert4258 F8A9F5 D0 42 bne CsrRest4259 F8A9F7 C6 73 dec ScnInsert4260 F8A9F9 80 3E ?04: bra CsrRest42614262 ; BACKSPACE4263 F8A9FB KeyBack:4264 F8A9FB 24 B2 bit ScnFlag4265 F8A9FD 10 0C bpl ?104266 F8A9FF A5 94 lda ScnRow4267 F8AA01 C5 AE cmp ScnInpRow4268 F8AA03 D0 06 bne ?104269 F8AA05 A5 95 lda ScnCol4270 F8AA07 C5 AF cmp ScnInpCol4271 F8AA09 F0 57 beq _RTSZ4272 F8AA0B 20 81 A8 ?10: jsr CsrLeft4273 F8AA0E 20 7F AC jsr SaveCursPos4274 F8AA11 B0 26 bcs CsrRest4275 F8AA13 KeyDel1:4276 F8AA13 24 B2 bit ScnFlag4277 F8AA15 10 0C bpl ?114278 F8AA17 A6 94 ldx ScnRow4279 F8AA19 E4 B0 cpx ScnLstRow4280 F8AA1B 90 27 bcc KeyDel24281 F8AA1D C4 B1 cpy ScnLstCol4282 F8AA1F 90 23 bcc KeyDel24283 F8AA21 B0 0C bcs ?124284 F8AA23 C4 91 ?11: cpy ScnRight4285 F8AA25 90 1D bcc KeyDel24286 F8AA27 A6 94 ldx ScnRow4287 F8AA29 E8 inx4288 F8AA2A 20 09 AB jsr TabCheckX4289 F8AA2D B0 15 bcs KeyDel24290 F8AA2F 20 CF AC ?12: jsr PutBlank4291 F8AA32 24 B2 bit ScnFlag4292 F8AA34 10 03 bpl CsrRest4293 F8AA36 20 53 A9 jsr UpdLast4294 F8AA394295 F8AA39 CsrRest:4296 F8AA39 A5 9D lda ScnSaveRow4297 F8AA3B 85 94 sta ScnRow4298 F8AA3D A5 9E lda ScnSaveCol4299 F8AA3F 85 95 sta ScnCol4300 F8AA41 4C 6F A3 jmp WndGetAddr4301 F8AA444302 F8AA44 KeyDel2:4303 F8AA44 20 20 AC jsr MoveRight4304 F8AA47 20 15 AD jsr GetVDCChar4305 F8AA4A 20 51 AC jsr MoveLeft4306 F8AA4D 20 E4 AC jsr PutChar2Tue Jul 17 11:00:17 2018 Page 314307 F8AA50 20 20 AC jsr MoveRight4308 F8AA53 80 BE bra KeyDel14309 F8AA554310 ;------------------------------------------------------------43114312 ; ESC-Z - cancella tab4313 F8AA55 ClearTabs:4314 F8AA55 A9 00 lda #04315 F8AA57 80 04 bra _SetTabs4316 F8AA594317 ; ESC-Y - set default tab4318 F8AA59 SetDefTabs:4319 F8AA59 A9 80 lda #$804320 F8AA5B A2 09 ldx #$094321 F8AA5D _SetTabs:4322 F8AA5D 95 78 ?01: sta ScnMapTabs1,x4323 F8AA5F CA dex4324 F8AA60 10 FB bpl ?014325 F8AA62 _RTSZ:4326 F8AA62 60 rts4327 F8AA634328 ; ESC-T - finestra TOP,LEFT4329 F8AA63 WndEscT:4330 F8AA63 18 clc4331 F8AA644332 F8AA64 24 .DB $244333 F8AA654334 ; ESC-B - finestra BOTTOM, RIGHT4335 F8AA65 WndEscB:4336 F8AA65 38 sec4337 F8AA66 A6 95 ldx ScnCol4338 F8AA68 A5 94 lda ScnRow4339 F8AA6A4340 F8AA6A SetWndL:4341 F8AA6A 90 06 bcc SetWnd34342 F8AA6C SetWndR:4343 F8AA6C 85 90 sta ScnBottom4344 F8AA6E 86 91 stx ScnRight4345 F8AA70 80 04 bra _SetWnd24346 F8AA72 SetWnd3:4347 F8AA72 85 8E sta ScnTop4348 F8AA74 86 8F stx ScnLeft4349 F8AA76 _SetWnd2:4350 F8AA76 A2 03 ldx #34351 F8AA78 74 82 ?01: stz ScnMapTabs2,x4352 F8AA7A CA dex4353 F8AA7B 10 FB bpl ?014354 F8AA7D 60 rts4355 F8AA7E4356 F8AA7E SetMaxWnd:4357 F8AA7E A5 76 lda ScnMaxRow4358 F8AA80 A6 77 ldx ScnMaxCols4359 F8AA82 20 6C AA jsr SetWndR4360 F8AA85 64 8F stz ScnLeft4361 F8AA87 64 8E stz ScnTop4362 F8AA89 60 rts4363Tue Jul 17 11:00:17 2018 Page 324364 ; ESC-Q - cancella fino a fine linea4365 F8AA8A WndEscQ:4366 F8AA8A 20 7F AC jsr SaveCursPos4367 F8AA8D 20 8E A7 ?01: jsr ClrRowY4368 F8AA90 E6 94 inc ScnRow4369 F8AA92 20 6F A3 jsr WndGetAddr4370 F8AA95 A4 8F ldy ScnLeft4371 F8AA97 20 07 AB jsr TabCheck4372 F8AA9A B0 F1 bcs ?014373 F8AA9C 80 9B bra CsrRest43744375 ; ESC-P - erase begin4376 F8AA9E WndEscP:4377 F8AA9E 20 7F AC jsr SaveCursPos4378 F8AAA1 20 CF AC ?01: jsr PutBlank4379 F8AAA4 C4 8F cpy ScnLeft4380 F8AAA6 D0 05 bne ?024381 F8AAA8 20 07 AB jsr TabCheck4382 F8AAAB 90 8C bcc CsrRest4383 F8AAAD 20 51 AC ?02: jsr MoveLeft4384 F8AAB0 90 EF bcc ?0143854386 ; ESC-@ - cancella resto dello schermo4387 F8AAB2 WndEscAt:4388 F8AAB2 20 7F AC jsr SaveCursPos4389 F8AAB5 20 8E A7 ?01: jsr ClrRowY4390 F8AAB8 E6 94 inc ScnRow4391 F8AABA 20 6F A3 jsr WndGetAddr4392 F8AABD A4 8F ldy ScnLeft4393 F8AABF 20 07 AB jsr TabCheck4394 F8AAC2 B0 F1 bcs ?014395 F8AAC4 A5 94 lda ScnRow4396 F8AAC6 C5 90 cmp ScnBottom4397 F8AAC8 90 EB bcc ?014398 F8AACA F0 E9 beq ?014399 F8AACC 4C 39 AA jmp CsrRest4400 F8AACF4401 ; ESC-V - scroll up4402 F8AACF WndEscV:4403 F8AACF 20 7F AC jsr SaveCursPos4404 F8AAD2 DA phx4405 F8AAD3 20 A5 A6 jsr WndScroll4406 F8AAD6 68 pla4407 F8AAD7 85 9D sta ScnSaveRow4408 F8AAD9 4C 39 AA jmp CsrRest4409 F8AADC4410 ; ESC-W - scroll Down4411 F8AADC WndEscW:4412 F8AADC 20 7F AC jsr SaveCursPos4413 F8AADF 20 07 AB jsr TabCheck4414 F8AAE2 B0 03 bcs ?014415 F8AAE4 38 sec4416 F8AAE5 66 96 ror ScnRowStart4417 F8AAE7 A5 8E ?01: lda ScnTop4418 F8AAE9 85 94 sta ScnRow4419 F8AAEB 20 7C A6 jsr InsertRow4420 F8AAEE 20 16 AB jsr TabSetupXTue Jul 17 11:00:17 2018 Page 334421 F8AAF1 4C 39 AA jmp CsrRest4422 F8AAF44423 ; ESC-K - fine riga4424 F8AAF4 WndEscK:4425 F8AAF4 20 D4 AB jsr FindEndRow4426 F8AAF7 4C 57 A6 jmp CheckCurs44274428 F8AAFA WindowOrg:4429 F8AAFA A4 95 ldy ScnCol4430 F8AAFC A6 94 ldx ScnRow4431 F8AAFE 86 8E stx ScnTop4432 F8AB00 84 8F sty ScnLeft4433 F8AB02 85 90 sta ScnBottom4434 F8AB04 4C 76 AA jmp _SetWnd244354436 F8AB07 TabCheck:4437 F8AB07 A6 94 ldx ScnRow4438 F8AB09 TabCheckX:4439 F8AB09 20 2D AB jsr MaskRow4440 F8AB0C 35 82 and ScnMapTabs2,x4441 F8AB0E C9 01 cmp #$014442 F8AB10 80 0D bra _TabExit4443 F8AB12 TabSetup:4444 F8AB12 A6 94 ldx ScnRow4445 F8AB14 TabSetup2:4446 F8AB14 B0 0C bcs _Tab2Check4447 F8AB16 TabSetupX:4448 F8AB16 20 2D AB jsr MaskRow4449 F8AB19 49 FF eor #$FF4450 F8AB1B 35 82 and ScnMapTabs2,x4451 F8AB1D _Tab2Set:4452 F8AB1D 95 82 sta ScnMapTabs2,x4453 F8AB1F _TabExit:4454 F8AB1F A6 9B ldx ScnTmpL4455 F8AB21 60 rts4456 F8AB22 _Tab2Check:4457 F8AB22 24 75 bit ScnScroll4458 F8AB24 70 E3 bvs TabCheckX4459 F8AB26 20 2D AB jsr MaskRow4460 F8AB29 15 82 ora ScnMapTabs2,x4461 F8AB2B D0 F0 bne _Tab2Set4462 F8AB2D4463 F8AB2D MaskRow:4464 F8AB2D 86 9B stx ScnTmpL4465 F8AB2F 8A txa4466 F8AB30 29 07 and #$074467 F8AB32 AA tax4468 F8AB33 BF CC AE F8 lda >MSKROW,x ; forza ABS LONG4469 F8AB37 48 pha4470 F8AB38 A5 9B lda ScnTmpL4471 F8AB3A 4A lsr a4472 F8AB3B 4A lsr a4473 F8AB3C 4A lsr a4474 F8AB3D AA tax4475 F8AB3E 68 pla4476 F8AB3F 60 rts4477Tue Jul 17 11:00:17 2018 Page 344478 ; ESC-J4479 F8AB40 WndEscJ:4480 F8AB40 A4 8F ldy ScnLeft4481 F8AB42 84 95 sty ScnCol4482 F8AB444483 F8AB44 WndEscJ2:4484 F8AB44 20 07 AB jsr TabCheck4485 F8AB47 90 06 bcc ?024486 F8AB49 C6 94 dec ScnRow4487 F8AB4B 10 F7 bpl WndEscJ24488 F8AB4D E6 94 inc ScnRow4489 F8AB4F 4C 6F A3 ?02: jmp WndGetAddr44904491 ; ESC-I - insert line4492 F8AB52 WndEscI:4493 F8AB52 20 7C A6 jsr InsertRow4494 F8AB55 20 69 A3 jsr WndLeft4495 F8AB58 E8 inx4496 F8AB59 20 09 AB jsr TabCheckX4497 F8AB5C 08 php4498 F8AB5D 20 12 AB jsr TabSetup4499 F8AB60 28 plp4500 F8AB61 B0 03 bcs ?014501 F8AB63 38 sec4502 F8AB64 66 96 ror ScnRowStart4503 F8AB66 60 ?01: rts45044505 ; ESC-D - delete line4506 F8AB67 WndEscD:4507 F8AB67 20 44 AB jsr WndEscJ24508 F8AB6A A5 8E lda ScnTop4509 F8AB6C 48 pha4510 F8AB6D A5 94 lda ScnRow4511 F8AB6F 85 8E sta ScnTop4512 F8AB71 A5 75 lda ScnScroll4513 F8AB73 48 pha4514 F8AB74 A9 80 lda #$804515 F8AB76 85 75 sta ScnScroll4516 F8AB78 20 B7 A6 jsr PP024517 F8AB7B 68 pla4518 F8AB7C 85 75 sta ScnScroll4519 F8AB7E A5 8E lda ScnTop4520 F8AB80 85 94 sta ScnRow4521 F8AB82 68 pla4522 F8AB83 85 8E sta ScnTop4523 F8AB85 38 sec4524 F8AB86 66 96 ror ScnRowStart4525 F8AB88 4C 69 A3 jmp WndLeft45264527 F8AB8B FindEndRow2:4528 F8AB8B A6 B0 ldx ScnLstRow ; riga ultima posizione di input4529 F8AB8D 86 94 stx ScnRow ; imposta come riga corrente4530 F8AB8F A4 B1 ldy ScnLstCol4531 F8AB91 84 95 sty ScnCol4532 F8AB93 4C 6F A3 jmp WndGetAddr45334534 F8AB96 _Trim:Tue Jul 17 11:00:17 2018 Page 354535 F8AB96 20 15 AD ?01: jsr GetVDCChar4536 F8AB99 A6 94 ldx ScnRow4537 F8AB9B C9 20 cmp #' '4538 F8AB9D D0 11 bne ?044539 F8AB9F A5 94 lda ScnRow4540 F8ABA1 C5 AE cmp ScnInpRow4541 F8ABA3 D0 04 bne ?024542 F8ABA5 C4 AF cpy ScnInpCol4543 F8ABA7 F0 05 beq ?034544 F8ABA9 20 51 AC ?02: jsr MoveLeft4545 F8ABAC 80 E8 bra ?014546 F8ABAE 84 98 ?03: sty ScnColStart ; forza campo input vuoto4547 F8ABB0 60 ?04: rts45484549 F8ABB1 FindEndRow3:4550 F8ABB1 A6 B0 ldx ScnLstRow ; riga ultima posizione di input4551 F8ABB3 86 94 stx ScnRow ; imposta come riga corrente4552 F8ABB5 A4 B1 ldy ScnLstCol4553 F8ABB7 84 95 sty ScnCol4554 F8ABB9 84 98 sty ScnColStart ; copia di ScnLstCol4555 F8ABBB E4 AE cpx ScnInpRow4556 F8ABBD D0 04 bne ?204557 F8ABBF C4 AF cpy ScnInpCol4558 F8ABC1 F0 5A beq _FindEnd ; campo input vuoto4559 F8ABC3 20 51 AC ?20: jsr MoveLeft ; cursore ad ultima posizione utile4560 F8ABC6 20 6F A3 jsr WndGetAddr4561 F8ABC9 A9 04 lda #$04 ; test bit 24562 F8ABCB 24 B2 bit ScnFlag4563 F8ABCD D0 4E bne _FindEnd4564 F8ABCF 20 96 AB jsr _Trim4565 F8ABD2 80 49 bra _FindEnd4566 F8ABD44567 ; Cerca fine della riga4568 F8ABD4 FindEndRow:4569 F8ABD4 24 B2 bit ScnFlag4570 F8ABD6 10 1E bpl ?00 ; modo normale4571 F8ABD8 A6 B0 ldx ScnLstRow ; riga ultima posizione di input4572 F8ABDA 86 94 stx ScnRow ; imposta come riga corrente4573 F8ABDC A4 B1 ldy ScnLstCol4574 F8ABDE 84 95 sty ScnCol4575 F8ABE0 E4 AE cpx ScnInpRow4576 F8ABE2 D0 04 bne ?204577 F8ABE4 C4 AF cpy ScnInpCol4578 F8ABE6 F0 35 beq ?03 ; campo input vuoto4579 F8ABE8 24 B2 ?20: bit ScnFlag4580 F8ABEA 70 13 bvs ?00a4581 F8ABEC C4 8F cpy ScnLeft4582 F8ABEE D0 0F bne ?00a4583 F8ABF0 C6 94 dec ScnRow4584 F8ABF2 A4 91 ldy ScnRight4585 F8ABF4 80 09 bra ?00a4586 F8ABF6 E6 94 ?00: inc ScnRow4587 F8ABF8 20 07 AB jsr TabCheck4588 F8ABFB B0 F9 bcs ?004589 F8ABFD C6 94 dec ScnRow4590 F8ABFF 20 6F A3 ?00a: jsr WndGetAddr4591 F8AC02 A4 91 ldy ScnRightTue Jul 17 11:00:17 2018 Page 364592 F8AC04 84 95 sty ScnCol4593 F8AC06 20 15 AD ?01: jsr GetVDCChar4594 F8AC09 A6 94 ldx ScnRow4595 F8AC0B C9 20 cmp #' '4596 F8AC0D D0 0E bne ?034597 F8AC0F C4 8F cpy ScnLeft4598 F8AC11 D0 05 bne ?024599 F8AC13 20 07 AB jsr TabCheck4600 F8AC16 90 05 bcc ?034601 F8AC18 20 51 AC ?02: jsr MoveLeft4602 F8AC1B 90 E9 bcc ?014603 F8AC1D ?03:4604 F8AC1D _FindEnd:4605 F8AC1D 84 97 sty ScnInput4606 F8AC1F 60 rts4607 F8AC204608 ; Muove cursore a destra - update ScnCol4609 ; Out: C = 0 se ScnRow non cambiato4610 ; C = 1 se ScnRow cambiato4611 F8AC20 MoveRight:4612 F8AC20 24 B2 bit ScnFlag4613 F8AC22 10 1A bpl ?00 ; modo normale4614 F8AC24 A4 95 ldy ScnCol ; test: cursore ad ultima posizione ?4615 F8AC26 C4 91 cpy ScnRight4616 F8AC28 90 14 bcc ?00 ; no4617 F8AC2A 24 B2 bit ScnFlag4618 F8AC2C 70 0C bvs ?15 ; input mono-linea - esce4619 F8AC2E A4 AE ldy ScnInpRow ; ultima riga ?4620 F8AC30 C4 8E cpy ScnTop4621 F8AC32 D0 0A bne ?00 ; no4622 F8AC34 A4 94 ldy ScnRow4623 F8AC36 C4 90 cpy ScnBottom4624 F8AC38 90 04 bcc ?004625 F8AC3A A4 95 ?15: ldy ScnCol4626 F8AC3C 18 clc ; non aggiorna ScnCol4627 F8AC3D 60 rts4628 F8AC3E 48 ?00: pha4629 F8AC3F A4 95 ldy ScnCol4630 F8AC41 C4 91 cpy ScnRight4631 F8AC43 90 07 bcc ?014632 F8AC45 20 94 A3 jsr WndNewLine4633 F8AC48 A4 8F ldy ScnLeft4634 F8AC4A 88 dey4635 F8AC4B 38 sec4636 F8AC4C C8 ?01: iny4637 F8AC4D 84 95 sty ScnCol4638 F8AC4F 68 pla4639 F8AC50 60 rts4640 F8AC514641 ; Muove cursore a sinistra4642 F8AC51 MoveLeft:4643 F8AC51 24 B2 bit ScnFlag4644 F8AC53 10 0C bpl ?00 ; modo normale4645 F8AC55 A4 AE ldy ScnInpRow ; modo input line4646 F8AC57 C4 94 cpy ScnRow ; riga attuale > riga start input4647 F8AC59 90 06 bcc ?00 ; cursore possibile a sinistra4648 ; riga attuale = riga start input: cursore limitatoTue Jul 17 11:00:17 2018 Page 374649 ; a sinistra alla posizione ScnInpCol4650 F8AC5B A4 AF ldy ScnInpCol4651 F8AC5D C4 95 cpy ScnCol4652 F8AC5F B0 18 bcs ?02 ; cursore a posizione ScnInpCol4653 F8AC61 A4 95 ?00: ldy ScnCol4654 F8AC63 88 dey4655 F8AC64 30 04 bmi ?014656 F8AC66 C4 8F cpy ScnLeft4657 F8AC68 B0 0F bcs ?024658 F8AC6A A4 8E ?01: ldy ScnTop4659 F8AC6C C4 94 cpy ScnRow4660 F8AC6E B0 0E bcs ?034661 F8AC70 C6 94 dec ScnRow4662 F8AC72 48 pha4663 F8AC73 20 6F A3 jsr WndGetAddr4664 F8AC76 68 pla4665 F8AC77 A4 91 ldy ScnRight4666 F8AC79 84 95 ?02: sty ScnCol4667 F8AC7B C4 91 cpy ScnRight4668 F8AC7D 18 clc4669 F8AC7E 60 ?03: rts46704671 ; Salva posizione cursore4672 F8AC7F SaveCursPos:4673 F8AC7F A4 95 ldy ScnCol4674 F8AC81 84 9E sty ScnSaveCol4675 F8AC83 A6 94 ldx ScnRow4676 F8AC85 86 9D stx ScnSaveRow4677 F8AC87 60 rts4678 F8AC884679 ; Get limiti finestra4680 F8AC88 GetWndOrg:4681 F8AC88 38 sec4682 F8AC89 A5 90 lda ScnBottom4683 F8AC8B E5 8E sbc ScnTop4684 F8AC8D A8 tay4685 F8AC8E 38 sec4686 F8AC8F A5 91 lda ScnRight4687 F8AC91 E5 8F sbc ScnLeft4688 F8AC93 AA tax4689 F8AC94 A5 77 lda ScnMaxCols4690 F8AC96 60 rts4691 F8AC974692 ; Get/Set posizione cursore4693 F8AC97 GetSetPos:4694 F8AC97 B0 29 bcs ?05 ; get cursor pos4695 F8AC99 8A txa4696 F8AC9A 65 8E adc ScnTop4697 F8AC9C B0 14 bcs ?034698 F8AC9E C5 90 cmp ScnBottom4699 F8ACA0 F0 02 beq ?014700 F8ACA2 B0 0E bcs ?034701 F8ACA4 48 ?01: pha4702 F8ACA5 18 clc4703 F8ACA6 98 tya4704 F8ACA7 65 8F adc ScnLeft4705 F8ACA9 B0 06 bcs ?02Tue Jul 17 11:00:17 2018 Page 384706 F8ACAB C5 91 cmp ScnRight4707 F8ACAD F0 04 beq ?044708 F8ACAF 90 02 bcc ?044709 F8ACB1 68 ?02: pla4710 F8ACB2 60 ?03: rts4711 F8ACB3 85 95 ?04: sta ScnCol4712 F8ACB5 85 98 sta ScnColStart4713 F8ACB7 68 pla4714 F8ACB8 85 94 sta ScnRow4715 F8ACBA 85 96 sta ScnRowStart4716 F8ACBC 20 6F A3 jsr WndGetAddr4717 F8ACBF 20 CA AD jsr SetVDCCurs4718 F8ACC2 A5 94 ?05: lda ScnRow4719 F8ACC4 E5 8E sbc ScnTop4720 F8ACC6 AA tax4721 F8ACC7 38 sec4722 F8ACC8 A5 95 lda ScnCol4723 F8ACCA E5 8F sbc ScnLeft4724 F8ACCC A8 tay4725 F8ACCD 18 clc4726 F8ACCE 60 rts47274728 ; Stampa spazio4729 F8ACCF PutBlank:4730 F8ACCF A5 92 lda ScnAttr4731 F8ACD1 24 6D bit <VBBRam4732 F8ACD3 10 04 bpl ?104733 F8ACD5 29 1F and #$1F4734 F8ACD7 80 02 bra ?124735 F8ACD9 29 8F ?10: and #$8F4736 F8ACDB AA ?12: tax4737 F8ACDC A9 20 lda #' '4738 F8ACDE 80 06 bra PutCharAttr4739 F8ACE04740 ; Stampa carattere con attributo di default4741 F8ACE0 PutChar:4742 F8ACE0 A6 92 ldx ScnAttr4743 F8ACE2 80 02 bra PutCharAttr4744 F8ACE44745 ; Stampa carattere con attributo alternativo4746 F8ACE4 PutChar2:4747 F8ACE4 A6 93 ldx ScnAttr24748 F8ACE64749 F8ACE6 PutCharAttr:4750 F8ACE6 A8 tay4751 F8ACE7 20 7F A3 jsr WndGetAddr24752 F8ACEA 98 tya4753 F8ACEB A4 95 ldy ScnCol4754 F8ACED 24 6D bit <VBBRam4755 F8ACEF 10 14 bpl ?104756 F8ACF1 86 8D stx ScnTmpx4757 F8ACF3 AE 0C FC ldx CREMEOFF ; salva bit corrente4758 F8ACF6 DA phx4759 F8ACF7 8D 0D FC sta !CREMEON ; abilita memoria video4760 F8ACFA 97 86 sta [ScnPtr],y4761 F8ACFC A5 8D lda ScnTmpx4762 F8ACFE 97 8A sta [ScnAtPtr],yTue Jul 17 11:00:17 2018 Page 394763 F8AD00 FA plx4764 F8AD01 9D 0C FC sta !CREMEOFF,x ; ripristina bit corrente4765 F8AD04 60 rts4766 F8AD05 48 ?10: pha4767 F8AD06 DA phx4768 F8AD07 20 F0 AD jsr SetARam4769 F8AD0A 68 pla4770 F8AD0B 20 0F AE jsr SetVDCReg314771 F8AD0E 20 FD AD jsr SetVRam4772 F8AD11 68 pla4773 F8AD12 4C 0F AE jmp SetVDCReg314774 F8AD154775 ; Get carattare e attributo4776 F8AD15 GetVDCChar:4777 F8AD15 A4 95 ldy ScnCol4778 F8AD17 24 6D bit <VBBRam4779 F8AD19 10 12 bpl ?104780 F8AD1B AE 0C FC ldx CREMEOFF ; salva bit corrente4781 F8AD1E DA phx4782 F8AD1F 8D 0D FC sta !CREMEON ; abilita memoria video4783 F8AD22 B7 8A lda [ScnAtPtr],y4784 F8AD24 85 93 sta ScnAttr24785 F8AD26 B7 86 lda [ScnPtr],y4786 F8AD28 FA plx4787 F8AD29 9D 0C FC sta !CREMEOFF,x ; ripristina bit corrente4788 F8AD2C 60 rts4789 F8AD2D 20 F0 AD ?10: jsr SetARam4790 F8AD30 20 1D AE jsr GetVDCReg314791 F8AD33 85 93 sta ScnAttr24792 F8AD35 20 FD AD jsr SetVRam4793 F8AD38 4C 1D AE jmp GetVDCReg314794 F8AD3B4795 ; Cursore VDC ON4796 F8AD3B VDCCursOn:4797 F8AD3B 20 7F A3 jsr WndGetAddr24798 F8AD3E A4 95 ldy ScnCol4799 F8AD40 24 6D bit <VBBRam4800 F8AD42 10 1D bpl ?104801 F8AD44 AE 0C FC ldx CREMEOFF ; salva bit corrente4802 F8AD47 DA phx4803 F8AD48 8D 0D FC sta !CREMEON ; abilita memoria video4804 F8AD4B B7 8A lda [ScnAtPtr],y4805 F8AD4D 85 72 sta ScnSaveAttr4806 F8AD4F 29 E0 and #$E04807 F8AD51 85 9C sta ScnTmpH4808 F8AD53 A5 92 lda ScnAttr4809 F8AD55 29 1F and #$1F4810 F8AD57 05 9C ora ScnTmpH4811 F8AD59 97 8A sta [ScnAtPtr],y4812 F8AD5B FA plx4813 F8AD5C 9D 0C FC sta !CREMEOFF,x ; ripristina bit corrente4814 F8AD5F 80 18 bra VDCCursor4815 F8AD61 20 F0 AD ?10: jsr SetARam4816 F8AD64 20 1D AE jsr GetVDCReg314817 F8AD67 85 72 sta ScnSaveAttr4818 F8AD69 29 F0 and #$F04819 F8AD6B 85 9C sta ScnTmpHTue Jul 17 11:00:17 2018 Page 404820 F8AD6D 20 F0 AD jsr SetARam4821 F8AD70 A5 92 lda ScnAttr4822 F8AD72 29 0F and #$0F4823 F8AD74 05 9C ora ScnTmpH4824 F8AD76 20 0F AE jsr SetVDCReg314825 F8AD794826 F8AD79 VDCCursor:4827 F8AD79 A2 0A ldx #$0A4828 F8AD7B A5 71 lda ScnCursMode4829 F8AD7D 24 6D bit <VBBRam4830 F8AD7F 30 03 bmi ?104831 F8AD81 4C 11 AE jmp SetVDCReg4832 F8AD84 8E 70 FC ?10: stx CRTAddr4833 F8AD87 8D 71 FC sta CRTData4834 F8AD8A A9 04 lda #$044835 F8AD8C 0C 76 FC tsb !PIAVBB+PIAPRB4836 F8AD8F 60 rts48374838 ; Cursore VDC OFF4839 F8AD90 VDCCursOff:4840 F8AD90 24 6D bit <VBBRam4841 F8AD92 10 11 bpl ?104842 F8AD94 A5 72 lda ScnSaveAttr4843 F8AD96 AE 0C FC ldx CREMEOFF ; salva bit corrente4844 F8AD99 DA phx4845 F8AD9A 8D 0D FC sta !CREMEON ; abilita memoria video4846 F8AD9D 97 8A sta [ScnAtPtr],y4847 F8AD9F FA plx4848 F8ADA0 9D 0C FC sta !CREMEOFF,x ; ripristina bit corrente4849 F8ADA3 80 08 bra CursOff24850 F8ADA5 20 F0 AD ?10: jsr SetARam4851 F8ADA8 A5 72 lda ScnSaveAttr4852 F8ADAA 20 0F AE jsr SetVDCReg314853 F8ADAD CursOff2:4854 F8ADAD A2 0A ldx #$0A4855 F8ADAF A9 20 lda #$204856 F8ADB1 24 6D bit <VBBRam4857 F8ADB3 10 5C bpl SetVDCReg4858 F8ADB5 8E 70 FC stx CRTAddr4859 F8ADB8 8D 71 FC sta CRTData4860 F8ADBB A9 04 lda #$044861 F8ADBD 1C 76 FC trb !PIAVBB+PIAPRB4862 F8ADC0 60 rts48634864 ; stampa a schermo carattere in A4865 F8ADC1 _ScnCharOut:4866 F8ADC1 85 9F sta ScnCurChr4867 F8ADC3 20 9A A5 jsr ScnOutChr4868 F8ADC6 A5 9F lda ScnCurChr4869 F8ADC8 85 A0 sta ScnLstChr4870 F8ADCA4871 ; Imposta indirizzo cursore VDC4872 F8ADCA SetVDCCurs:4873 F8ADCA A2 0E ldx #$0E4874 F8ADCC 18 clc4875 F8ADCD A5 86 lda ScnPtr4876 F8ADCF 65 95 adc ScnColTue Jul 17 11:00:17 2018 Page 414877 F8ADD1 48 pha4878 F8ADD2 A5 87 lda ScnPtr+14879 F8ADD4 69 00 adc #04880 F8ADD6 24 6D bit <VBBRam4881 F8ADD8 10 0F bpl ?104882 F8ADDA 8E 70 FC stx CRTAddr4883 F8ADDD 8D 71 FC sta CRTData4884 F8ADE0 E8 inx4885 F8ADE1 68 pla4886 F8ADE2 8E 70 FC stx CRTAddr4887 F8ADE5 8D 71 FC sta CRTData4888 F8ADE8 60 rts4889 F8ADE9 20 11 AE ?10: jsr SetVDCReg4890 F8ADEC E8 inx4891 F8ADED 68 pla4892 F8ADEE 80 21 bra SetVDCReg48934894 F8ADF04895 ; Imposta RAM ATTRIBUTI alla riga corrente e colonna Y4896 F8ADF0 SetARam:4897 F8ADF0 A2 12 ldx #$124898 F8ADF2 18 clc4899 F8ADF3 98 tya4900 F8ADF4 65 8A adc ScnAtPtr4901 F8ADF6 48 pha4902 F8ADF7 A9 00 lda #04903 F8ADF9 65 8B adc ScnAtPtr+14904 F8ADFB 80 0B bra _SetVRam249054906 ; Imposta RAM VIDEO alla riga corrente e colonna Y4907 F8ADFD SetVRam:4908 F8ADFD A2 12 ldx #$124909 F8ADFF 18 clc4910 F8AE00 98 tya4911 F8AE01 65 86 adc ScnPtr4912 F8AE03 48 pha4913 F8AE04 A9 00 lda #04914 F8AE06 65 87 adc ScnPtr+14915 F8AE08 _SetVRam2:4916 F8AE08 20 11 AE jsr SetVDCReg4917 F8AE0B 68 pla4918 F8AE0C E8 inx4919 F8AE0D 80 02 bra SetVDCReg49204921 ; Chiamare con M,X=8 bit e DBR = 04922 F8AE0F SetVDCReg31:4923 F8AE0F A2 1F ldx #$1F4924 F8AE11 SetVDCReg:4925 F8AE11 8E 4E FD stx VDCAddr4926 F8AE14 2C 4E FD ?01: bit VDCStatus4927 F8AE17 10 FB bpl ?014928 F8AE19 8D 4F FD sta VDCData4929 F8AE1C 60 rts49304931 ; Chiamare con M,X=8 bit e DBR = 04932 F8AE1D GetVDCReg31:4933 F8AE1D A2 1F ldx #$1FTue Jul 17 11:00:17 2018 Page 424934 F8AE1F GetVDCReg:4935 F8AE1F 8E 4E FD stx VDCAddr4936 F8AE22 2C 4E FD ?01: bit VDCStatus4937 F8AE25 10 FB bpl ?014938 F8AE27 AD 4F FD lda VDCData4939 F8AE2A 60 rts49404941 ;------------------------------------------------------------4942 F8AE2B49434944 ; copia font nella memoria del VDC4945 ; Chiamare con M,X=8 bit e DBR = 04946 F8AE2B SetVDCFont:4947 .LONGA off4948 .LONGI off49494950 F8AE2B A2 12 ldx #$12 ; imposta Hi addr memoria VDC4951 F8AE2D A9 00 lda #$04952 F8AE2F 20 11 AE jsr SetVDCReg4953 F8AE32 E8 inx4954 F8AE33 A9 00 lda #0 ; Lo addr4955 F8AE35 20 11 AE jsr SetVDCReg4956 F8AE38 A9 FF lda #^VGA8x8L ; segmento font4957 F8AE3A 85 A4 sta ScnPrm+24958 F8AE3C A9 04 lda #$04 ; 1K4959 F8AE3E A2 F8 ldx #>VGA8x8L ; carica font VGA 8x8 L4960 F8AE40 A0 08 ldy #CGAWIDTH4961 F8AE42 20 5D AE jsr CopyFont4962 F8AE45 A9 04 lda #$04 ; 1K4963 F8AE47 A2 FC ldx #>VGA8x8H ; carica font VGA 8x8 H4964 F8AE49 A0 08 ldy #CGAWIDTH4965 F8AE4B 20 5D AE jsr CopyFont4966 F8AE4E A9 04 lda #$04 ; 1K4967 F8AE50 A2 F8 ldx #>VGA8x8L ; carica font VGA 8x8 L4968 F8AE52 A0 08 ldy #CGAWIDTH4969 F8AE54 20 5D AE jsr CopyFont4970 F8AE57 A9 04 lda #$04 ; 1K4971 F8AE59 A2 FC ldx #>VGA8x8H ; carica font VGA 8x8 H4972 F8AE5B A0 08 ldy #CGAWIDTH49734974 ; copia un set font nella memoria del VDC4975 ; In: - X = ptr. Hi blocco font4976 ; Y = numero linee scansione font4977 ; A = numero pagine da 256b4978 ; Chiamare con M,X=8 bit e DBR = 04979 F8AE5D CopyFont:4980 .LONGA off4981 .LONGI off4982 F8AE5D4983 F8AE5D 86 A3 stx ScnPrm+1 ; salva ptr Hi blocco font4984 F8AE5F 64 A2 stz ScnPrm ; ptr Lo = 04985 F8AE61 84 9A sty ScnSaveY ; linee scansione font4986 F8AE63 18 clc4987 F8AE64 65 A3 adc ScnPrm+1 ; fine font attuale (Hi)4988 F8AE66 85 99 sta ScnSaveX4989 F8AE68 A9 10 lda #CHARWIDTH4990 F8AE6A 38 secTue Jul 17 11:00:17 2018 Page 434991 F8AE6B E5 9A sbc ScnSaveY ; linee residue4992 F8AE6D 85 9B sta ScnTmpL4993 F8AE6F A0 00 ldy #04994 F8AE71 B7 A2 ?01: lda [ScnPrm],y ; load byte font4995 F8AE73 20 0F AE jsr SetVDCReg31 ; copia in video ram4996 F8AE76 C8 iny4997 F8AE77 C4 9A cpy ScnSaveY ; loop N linee scansione4998 F8AE79 90 F6 bcc ?014999 F8AE7B A4 9B ldy ScnTmpL ; linee residue5000 F8AE7D F0 08 beq ?03 ; no linee residue5001 F8AE7F A9 00 lda #05002 F8AE81 20 0F AE ?02: jsr SetVDCReg31 ; azzera linee residue5003 F8AE84 88 dey5004 F8AE85 D0 FA bne ?025005 F8AE87 A5 A2 ?03: lda ScnPrm ; aggiorna long ptr5006 F8AE89 18 clc5007 F8AE8A 65 9A adc ScnSaveY ; aggiunge numero linee5008 F8AE8C 85 A2 sta ScnPrm5009 F8AE8E 90 E1 bcc ?01 ; loop5010 F8AE90 E6 A3 inc ScnPrm+15011 F8AE92 A5 A3 lda ScnPrm+15012 F8AE94 C5 99 cmp ScnSaveX5013 F8AE96 90 D9 bcc ?01 ; loop5014 F8AE98 60 rts50155016 F8AE99 HistUp:5017 F8AE99 HistDown:5018 F8AE99 BellSnd:5019 F8AE99 60 rts5020 F8AE9A5021 ;--------------------------------------------------------------------5022 F8AE9A5023 ; tabella indirizzi base video ram5024 F8AE9A SCRNADDRL:5025 F8AE9A 00 50 A0 F0 40 .DB $00, $50, $A0, $F0, $40, $90, $E0, $3090 E0 305026 F8AEA2 80 D0 20 70 C0 .DB $80, $D0, $20, $70, $C0, $10, $60, $B010 60 B05027 F8AEAA 00 50 A0 F0 40 .DB $00, $50, $A0, $F0, $40, $90, $E0, $3090 E0 305028 F8AEB2 80 .DB $805029 F8AEB35030 F8AEB3 SCRNADDRH:5031 F8AEB3 00 00 00 00 01 .DB $00, $00, $00, $00, $01, $01, $01, $0201 01 025032 F8AEBB 02 02 03 03 03 .DB $02, $02, $03, $03, $03, $04, $04, $0404 04 045033 F8AEC3 05 05 05 05 06 .DB $05, $05, $05, $05, $06, $06, $06, $0706 06 075034 F8AECB 07 .DB $0750355036 ;--------------------------------------------------------------------50375038 F8AECC MSKROW:5039 F8AECC 80 40 20 10 08 .DB $80, $40, $20, $10, $08, $04, $02, $0104 02 015040Tue Jul 17 11:00:17 2018 Page 445041 ; maschera attributi video board5042 F8AED4 MSKROW2:5043 F8AED4 00 80 20 40 .DB $00, $80, $20, $4050445045 ;--------------------------------------------------------------------50465047 ; funzioni sequenze di escape: SCN_ESC, SCN_COL, SCN_BKGCOL, SCN_PRTSCN5048 F8AED8 SCNESCSEQ:5049 F8AED8 57A5 30A5 42A5 .DW ScnProcEsc, ScnProcCol, ScnProcBkgCol, ScnProcPrnt2FA55050 F8AEE05051 ; funzioni codici di controllo $01..$125052 F8AEE0 CTRLVCTRS:5053 F8AEE0 6FA8 48A8 5EA8 .DW CsrUp, CsrRight, CsrDown, CsrLeft81A85054 F8AEE8 CEA3 E8A3 99AE .DW ScnHome, ScnEnd, BellSnd, KeyBackFBA95055 F8AEF0 C0A8 08A9 D7A8 .DW CsrTab, LineFeed, CsrShTab, ScnClrC8A35056 F8AEF8 7BA5 41A8 75A9 .DW ScnOutCR, KeybInsert, KeyDel, ScnOutCR7BA55057 F8AF00 99AE 99AE .DW HistUp, HistDown5058 F8AF045059 ;.DW FixedCurs, FlashCurs, ,5060 ;.DW , BellSnd50615062 ; tabella comandi dopo tasto ESCAPE (@..Z)5063 F8AF04 ESCVCTRS:5064 F8AF04 B2AA 34A9 65AA DW WndEscAt, FlashCurs, WndEscB, FixedCurs27A95065 F8AF0C 67AB 99A5 99A5 DW WndEscD, _RTS0, _RTS0, TabToggleEAA85066 F8AF14 99A5 52AB 40AB DW _RTS0, WndEscI, WndEscJ, WndEscKF4AA5067 F8AF1C 99A5 99A5 99A5 DW _RTS0, _RTS0, _RTS0, WndEscO89A55068 F8AF24 9EAA 8AAA 99A5 DW WndEscP, WndEscQ, _RTS0, _RTS099A55069 F8AF2C 63AA 99A5 CFAA DW WndEscT, _RTS0, WndEscV, WndEscWDCAA5070 F8AF34 7EAA 59AA 55AA DW SetMaxWnd, SetDefTabs, ClearTabs50715072 ;--------------------------------------------------------------------5073 ; tabella conversione da codice tasto a codice schermo ($82..$90)50745075 F8AF3A KBCONV:5076 F8AF3A 1E .DB SCN_PRTSCN5077 F8AF3B 01 05 0E 02 .DB SCN_CSRUP, SCN_HOME, SCN_INSERT, SCN_CSRRIGHT5078 F8AF3F 11 0B 12 03 .DB SCN_PGUP, SCN_SHTAB, SCN_PGDOWN, SCN_CSRDOWN5079 F8AF43 06 10 0F 04 .DB SCN_END, SCN_SHCR, SCN_DELETE, SCN_CSRLEFT5080 F8AF47 08 .DB SCN_BS5081 F8AF4850825083 ;----------------------------------------------------------------------------5084 ; Costanti inizializzazione registri VDC5085 ;----------------------------------------------------------------------------5086Tue Jul 17 11:00:17 2018 Page 455087 ; DOT CLOCK 16MHZ - FH = 16KHz FV = 50HZ (FH +, FV +)5088 F8AF48 VDCREG16:5089 F8AF48 00 7F 01 50 02 .BYTE $00, $7f, $01, $50, $02, $66, $03, $44 ; invece di 4966 03 445090 F8AF50 04 26 05 00 06 .BYTE $04, $26, $05, $00, $06, $19, $07, $2019 07 205091 F8AF58 08 00 09 07 0A .BYTE $08, $00, $09, $07, $0A, $20, $0B, $0720 0B 075092 F8AF60 0C 40 0D 00 0E .BYTE $0C, $40, $0D, $00, $0E, $00, $0F, $0000 0F 005093 F8AF68 14 48 15 00 17 .BYTE $14, $48, $15, $00, $17, $08, $18, $2008 18 205094 F8AF70 19 47 1A F0 1B .BYTE $19, $47, $1A, $F0, $1B, $00, $1C, $1000 1C 105095 F8AF78 1D 07 22 7D 23 .BYTE $1D, $07, $22, $7D, $23, $64, $24, $05,64 24 055096 F8AF80 16 78 FF .BYTE $16, $78, $FFLines Assembled : 5067 Errors : 0