Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:23 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\FE\pcode.asmOutput Filename : obj\FE\pcode.objListing Has Been Relocated2598 .LIST on25992600 ;.INCLUDE inc\dirp01.inc2601 F8FFB1 .INCLUDE inc\dpcbm.inc2602 ;; cbm emulation26032604 ;;CBMP0 .EQU $7F0026052606 ; sezione COMMON -- questo permette di includere il file in piu' file26072608 DPCBM: .SECTION page0, ref_only, common26092610 000000 .ABSOLUTE ;; inizia sempre da $002611 000000 .ORG 0x0026122613 ;;MAXLF .EQU $10 ; max. logical files2614 00000B MAXLF .EQU 11 ; max. logical files2615 000008 MAXVIEC .EQU 8 ; max. virtual iec device #2616 000000 .DS 162617 0000102618 000010 00 subflg .DB ; ($10)2619 000011 00 .DB ; ($11)2620 000012 00 .DB ; ($12)2621 000013 00 .DB ; ($13)2622 000014 0000 lineno .DW ; ($14-$15) line number used by editor2623 000016 00 tmppt .DB ; ($16)2624 000017 00 tcnt .DB ; ($17) temp. counter/index2625 000018 0000 .DW ; ($18-$19)2626 00001A 0000 .DW ; ($1A-$1B)2627 00001C 0000 .DW ; ($1C-$1D)2628 00001E 0000 .DW ; ($1E-$1F)2629 000020 00 .DB ; ($20)26302631 ; basic/p-code virtual machine work area2632 000021 0000 .DW ; ($21-$22)2633 000023 0000 .DW ; ($23-$24)2634 000025 0000 .DW ; ($25-$26)2635 000027 0000 .DW ; ($27-$28)2636 000029 0000 .DW ; ($29-$2A)2637 00002B 0000 .DW ; ($2B-$2C)2638 00002D 0000 .DW ; ($2D-$2E)2639 00002F 0000 arytab .DW ; ($2F-$30)2640 000031 0000 strend .DW ; ($31-$32)2641 000033 0000 freetop .DW ; ($33-$34)2642 000035 0000 freespc .DW ; ($35-$36)2643 000037 0000 memsiz .DW ; ($37-$38)Tue Jul 17 11:00:23 2018 Page 22644 000039 0000 curline .DW ; ($39-$3A) current line number in execution2645 00003B 0000 oldline .DW ; ($3B-$3C) previous line number in execution2646 00003D 0000 oldtxt .DW ; ($3D-$3E) saved pointer to text in basic execution2647 00003F 0000 datlin .DW ; ($3F-$40)2648 000041 0000 datptr .DW ; ($41-$42)2649 000043 0000 inpptr .DW ; ($43-$44)2650 000045 0000 varnam .DW ; ($45-$46)2651 000047 0000 varpnt .DW ; ($47-$48)2652 000049 0000 forpnt .DW ; ($49-$4A) basic2653 00004B 0000 opptr .DW ; ($4B-$4C) basic2654 00004D 00 opmask .DB ; ($4D)2655 00004E 0000 defpnt .DW ; ($4E-$4F)2656 000050 0000 dscpnt .DW ; ($50-$51)2657 000052 00 dsclen .DB ; ($52)2658 000053 00 prompt .DB ; ($53) prompt flag/CMD channel - editor/basic ($13)26592660 ; equates for p-code virtual machine2661 00003B prtrap .EQU oldline ; ($3B) p-code trap errors flag2662 00003C pcstack .EQU oldline+1 ; ($3C-$3D) p-code save stack2663 00003E prterr .EQU oldtxt+1 ; ($3E) p-code run time error number2664 00003F psrline .EQU datlin ; ($3F-$40) pascal source line number2665 000041 prseed .EQU datptr ; ($41-$42) p-code random generator2666 000043 pbrkcnt .EQU inpptr ; ($43) p-code counter for break check2667 000044 tmpy .EQU inpptr+1 ; ($44) p-code temp. for save Y2668 000045 inqidx .EQU varnam ; ($45) p-code index to input buffer2669 000046 inqcnt .EQU varnam+1 ; ($46) p-code input buffer counter2670 000047 tmpv1 .EQU varpnt ; ($47) p-code temp.2671 000048 tmpv2 .EQU varpnt+1 ; ($48) p-code temp.2672 000049 tmpa .EQU forpnt ; ($49) p-code temp. save A2673 00004A tmpwa .EQU forpnt+1 ; ($4A) p-code tmp. save byte to write2674 00004B tmpx .EQU opptr ; ($4B) p-code tmp. save X when print2675 00004C pcterr .EQU opptr+1 ; ($4C) p-code compiler error flag2676 00004D tmpdsk .EQU opmask ; ($4D) p-code default temp. disk unit2677 00004E defprn .EQU defpnt ; ($4E) p-code default printer #device2678 00004F pcdbg .EQU defpnt+1 ; ($4F) p-code debug run after error2679 000050 pcptr .EQU dscpnt ; ($50-$51) pointer to p-code (debug)2680 000052 autolf .EQU dsclen ; ($52) p-code auto line feed flag26812682 000054 tmpwrk .DS 4 ; ($54-$57) temp. area editor/virtual iec2683 000058 00 tmpb0 .DB ; ($58)2684 000059 00 argbits .DB ; ($59) FAC #1 guard bits2685 00005A 00 tmpb2 .DB ; ($5A) tmp. byte - used by fpu2686 00005B 00 txtlen .DB ; ($5B) tmp. word length of text to insert in buffer2687 00005C 00 tmpb1 .DB ; ($5C) tmp. byte used by editor and float point unit2688 00005D 0000 tmpval .DW ; ($5D-$5E) temp. word used by editor/fpu2689 00005F 0000 tlnptr .DW ; ($5F-$60) temp. line text pointer used by editor/fpu2690 000061 00 facexp .DB ; ($61) FAC #1 exponent2691 000062 facm .DS 4 ; ($62-$65) FAC #1 mantissa2692 000066 00 facsgn .DB ; ($66) FAC #1 sign2693 000067 00 sercnt .DB ; ($67) FAC #1 series evaluation2694 000068 00 facov .DB ; ($68) FAC #1 overflow2695 000069 00 argexp .DB ; ($69) FAC #2 exponent2696 00006A argm .DS 4 ; ($6A-$6D) FAC #2 mantissa2697 00006E 00 argsgn .DB ; ($6E) FAC #2 sign2698 00006F 00 arisgn .DB ; ($6F) FAC #1 & #2 sign comparison2699 000070 00 facbits .DB ; ($70) FAC #1 guard bits2700 000071 0000 fbufpt .DW ; ($71-$72) FAC series evaluation pointerTue Jul 17 11:00:23 2018 Page 32701 000073 00 fbufpt2 .DB ; ($73) FAC series evaluation bank (progr. bank)27022703 ; tmp. variables (equates) used by float point unit2704 000054 factmp .EQU tmpwrk ; ($54-$57) used by fpu mult/div2705 00005A cprmsk .EQU tmpb2 ; ($5A) used by trigs. funcs.2706 00005B faclsb .EQU txtlen ; ($5B) used by float point unit2707 00005D dccnt .EQU tmpval ; ($5D) digit count after decimal dot2708 00005E expval .EQU tmpval+1 ; ($5E) exponent value when convert2709 00005F dotfg .EQU tlnptr ; ($5F) flag decimal dot when convert2710 000060 expsgn .EQU tlnptr+1 ; ($60) flag exponent sign when conver2711 000067 sgnfg .EQU sercnt ; ($67) flag: minus sign when convert2712 000071 decidx .EQU fbufpt ; ($71) string index when convert2713 000072 s2fer .EQU fbufpt+1 ; ($72) string to float flag error2714 000073 decidx2 .EQU fbufpt+2 ; ($73) used when convert float to str27152716 000074 0000 s2fstk .DW ; ($74-$75) save stack when string to float conversion2717 000076 longp LP ; ($76-$77-$78) temp. long pointer2718 000079 00 s2fptr .DB ; ($79) flag trap overflow err. string to float conv.27192720 00007A 0000 txtp .DW ; ($7A-$7B) current pointer to text2721 00007C 00 pcdsk .DB ; ($7C) flag for pascal compiler2722 ; <7> : compile in memory27232724 00007D iecrp LP ; ($7D) iec: pointer to read buffer for include file2725 000080 00 iecalt .DB ; ($80) iec: flag read from include file2726 000081 iectp LP ; ($81) iec: pointer to read main text buffer2727 000084 00 iecndx .DB ; ($84) iec: index main text buffer2728 000085 00 ieceof .DB ; ($85) iec: end of file flag main text buffer2729 000086 iecwp LP ; ($86) iec: pointer to write buffer2730 000089 00 iecfg .DB ; ($89) iec: flag main text buffer2731 00008A 0000 iecndx2 .DW ; ($8A) iec: index buffer include file2732 00008C 00 iecbuf .DB ; ($8C) iec: byte buffer2733 00008D 00 svbnk .DB ; ($8D) save vbnk when run pascal compiler2734 00008E 00 ieceof2 .DB ; ($8E) iec: flag eof include file2735 00008F 00 vxflag .DB ; ($8F) flag valid text in x-bank2736 000090 00 kstat .DB ; ($90) CBM emulated IEC status2737 000091 00 errno .DB ; ($91) saved error number2738 000092 00 keyfg .DB ; ($92) keyboard flag: KbdFlag2739 000093 00 keyctl .DB ; ($93) flag control key from get key2740 000094 00 keysh .DB ; ($94) flag keyboard: KbdShift2741 000095 00 keytg .DB ; ($95) flag keyboard: KbdToggle2742 000096 00 basic .DB ; ($96) flag current 'basic' mode2743 ; <7>: flag basic mode2744 ; <6>: flag pascal compiler running2745 000097 00 runf .DB ; ($97) flag current run mode2746 000098 00 ldtnd .DB ; ($98) number of open files2747 000099 00 dfltn .DB ; ($99) default input device2748 00009A 00 dflto .DB ; ($9A) default output device2749 00009B 00 skpbk .DB ; ($9B) skip blank flag2750 00009C 00 w2sf .DB ; ($9C) integer to string flag conversion2751 00009D 00 msgflg .DB ; ($9D) flag message2752 00009E 00 autof .DB ; ($9E) flag auto-increment line numbering2753 00009F 0000 wauto .DW ; ($9F-$A0) auto-increment for line numbering2754 0000A1 00 tbnk .DB ; ($A1) bank that hold basic/pascal text2755 0000A2 00 vbnk .DB ; ($A2) bank that hold basic var/pascal pcode-stack2756 0000A3 00 cbnk .DB ; ($A3) compiler bank/temp. bank for exchange2757 0000A4 00 jbnk .DB ; ($A4) bank for obj, when compiling (3 bank max.)Tue Jul 17 11:00:23 2018 Page 42758 0000A5 00 xbnk .DB ; ($A5) exchange bank for text buffer2759 0000A6 00 dbnk .DB ; ($A6) bank for ram disk (jbnk + 3)2760 0000A7 0000 botmem .DW ; ($A7-$A8) start of memory on the text bank2761 0000A9 0000 topmem .DW ; ($A9-$AA) top of memory on the text bank2762 0000AB 0000 txtbeg .DW ; ($AB-$AC) begin of text buffer2763 0000AD 0000 txtend .DW ; ($AD-$AE) end of text buffer + 12764 0000AF 0000 txttop .DW ; ($AF-$B0) top of memory + 1 reserved to text buffer2765 0000B1 0000 varbeg .DW ; ($B1-$B2) start of basic var/pcode2766 0000B3 0000 vartop .DW ; ($B3-$B4) top of basic var/pcode + 12767 0000B5 0000 xtop .DW ; ($B5-$B6) top of text + 1 in x-bank2768 0000B7 00 fnlen .DB ; ($B7) length of current filename2769 0000B8 00 lacur .DB ; ($B8) current logical file number2770 0000B9 00 sacur .DB ; ($B9) current secondary address2771 0000BA 00 facur .DB ; ($BA) current device number2772 0000BB 0000 fnadr .DW ; ($BB-$BC) pointer to current filename2773 0000BD 00 fnadr2 .DB ; ($BD) - bank that hold file name2774 0000BE 00 objdsk .DB ; ($BE) compiler: option '1' specified2775 0000BF 00 truedsk .DB ; ($BF) true disk for load pascal soource file2776 0000C0 0000 curstk .DW ; ($C0-$C1) current stack when in edit mode2777 0000C2 00 pcodef .DB ; ($C2) flag p-code present for execution27782779 0000C3 latb .DS MAXLF ; logical files table2780 0000CE fatb .DS MAXLF ; devices numbers table2781 0000D9 satb .DS MAXLF ; secondary addresses table27822783 ;=============================================================27842785 0000E4 0000 cmdlin .DW ; command line ptr for pscal program2786 0000E6 00 fpcflag .DB ; fpc flags (new style)2787 ; <7>: new style compiler2788 ; <6>: no save exec. file2789 ; <5>: save obj. file27902791 0000E6 .RELATIVE2792 .ENDS27932794 ; basic work area starting at $FF00 of bank that hold text buffer2795 CBMHIM: .SECTION ref_only, common2796 000000 .ABSOLUTE2797 00FF00 .ORG $FF002798 ; .ORG 027992800 0000A2 TBUFMAX .EQU $A2 ; size of input buffer2801 00AA55 VALIDSGN .EQU $AA55 ; valid signature28022803 00FF00 cbmwork .DS 4 ; first 4 bytes free for insert text line2804 00FF04 TXTBUF .DS TBUFMAX ; input buffer for text insertion2805 00FFA6 NUMSTR .DS 32 ; room for numeric string28062807 00FFC6 0000 TMPPTR .DW ; temp. pointer2808 00FFC8 0000 .DW2809 00FFCA 0000 .DW2810 00FFCC 0000 .DW2811 00FFCE 0000 .DW2812 00FFD0 GFNAME .DS 32 ; global file name2813 00FFF0 .DS 82814 00FFF8Tue Jul 17 11:00:23 2018 Page 52815 ;;.ORG $FFF82816 00FFF8 0000 TXTEND2 .DW ; saved text end + 12817 00FFFA 0000 TXTVSGN .DW ; valid text buffer signature2818 00FFFC 0000 XTOP2 .DW ; saved text end + 1 in exchange bank2819 00FFFE 0000 XBVSGN .DW ; valid x-bank buffer signature28202821 00FFFE .RELATIVE2822 .ENDS28232824 .COMMENT @2825 cbmwork .EQU $FF00 ; first 4 bytes free for insert text line2826 TXTBUF .EQU $FF04 ; input buffer for text insertion2827 NUMSTR .EQU $FFA6 ; room for numeric string28282829 TMPPTR .EQU $FFC6 ; temp. pointer28302831 TXTEND2 .EQU $FFF8 ; saved text end + 12832 TXTVSGN .EQU $FFFA ; valid text buffer signature2833 XTOP2 .EQU $FFFC ; saved text end + 1 in exchange bank2834 XBVSGN .EQU $FFFE ; valid x-bank buffer signature2835 @28362837 ; basic/pascal work area starting at $FF00 of bank that hold variables/p-code2838 CBMHIV: .SECTION common, ref_only2839 000000 .ABSOLUTE2840 00FF00 .ORG $FF002841 ; .ORG 028422843 00005A QINSIZ .EQU $5A ; input buffer max. 90 chars.2844 000020 NUMSIZ .EQU $20 ; size of numeric buffer for conversion2845 000018 MAX2LF .EQU ((MAXLF + 1) * 2) ; size of p-code logical files table2846 000013 MAXFNLEN .EQU 19 ; max. length of file name '@x:yyyyyyyyyyyyyyyy'28472848 00FF00 MINBUF .DS QINSIZ2849 00FF5A MNUMSTR .DS NUMSIZ2850 00FF7A 0000 MTMPW0 .DW2851 00FF7C 0000 MTMPW1 .DW2852 00FF7E 00 MTMPB0 .DB2853 00FF7F MFNAME .DS 16 ; file name buffer2854 00FF8F MTMPNAM .DS 15 ; tmp. file name2855 00FF9E MPOW10 .DS 10 ; power of 10 table2856 00FFA8 MTRUE .DS 62857 00FFAE MFALSE .DS 62858 00FFB4 MSTDF0 .DS 4 ; descriptor for file #0 (consolle)2859 00FFB8 MSTDF1 .DS 4 ; descriptor for file #1 (disk command chann.)2860 00FFBC MSTDF2 .DS 4 ; descriptor for file #2 (used by compiler)2861 00FFC0 MMSET .DS 16 ; set variables2862 00FFD0 MFILET .DS MAX2LF ; table of logical files: #0 consolle, #1 disk2863 00FFE8 FAC1TMP .DS 5 ; these 3 used by float routines2864 00FFED FAC2TMP .DS 52865 00FFF2 FAC3TMP .DS 52866 00FFF7 FAC4TMP .DS 5 ; free to use2867 00FFFC 0000 MTPTR .DW ; used by new/dispose2868 00FFFE 0000 MTMPW2 .DW28692870 00FFFE .RELATIVE2871 .ENDSTue Jul 17 11:00:23 2018 Page 628722873 .COMMENT @2874 MINBUF .EQU $FF002875 MNUMSTR .EQU $FF5A2876 MTMPW0 .EQU $FF7A2877 MTMPW1 .EQU $FF7C2878 MTMPB0 .EQU $FF7E2879 MFNAME .EQU $FF7F ; file name buffer2880 MTMPNAM .EQU $FF8F ; tmp. file name2881 MPOW10 .EQU $FF9E ; power of 10 table2882 MTRUE .EQU $FFA82883 MFALSE .EQU $FFAE2884 MSTDF0 .EQU $FFB4 ; descriptor for file #0 (consolle)2885 MSTDF1 .EQU $FFB8 ; descriptor for file #1 (disk command chann.)2886 MSTDF2 .EQU $FFBC ; descriptor for file #2 (used by compiler)2887 MMSET .EQU $FFC0 ; set variables2888 MFILET .EQU $FFD0 ; table of logical files: #0 consolle, #1 disk2889 FAC1TMP .EQU $FFE8 ; these 3 used by float routines2890 FAC2TMP .EQU $FFED2891 FAC3TMP .EQU $FFF22892 FAC4TMP .EQU $FFF7 ; free to use2893 MTPTR .EQU $FFFC ; used by new/dispose2894 MTMPW2 .EQU $FFFE2895 @28962897 ; temp. file names in x-bank2898 00FF00 PASSRC .EQU $FF002899 00FF20 OBJDST .EQU $FF202900 00FF40 EXEDST .EQU $FF402901 00FF60 OBJDEL .EQU $FF60290229032904 .CODEFE2905 .LONGA off2906 .LONGI off29072908 .GLOBAL vpmerr, pccstart, pcexec, L0FAA2909 .EXTERN XBBD4, XBBA2, XBC5B, XBA8C, XBB12, XBA2B, XB853, XB86A2910 .EXTERN XBAFE, XBAE2, XBCF3P, XE26B, XE264, XE2B4, XE30E2911 .EXTERN XBFED, XBF7B, XBF71, XB9EA, XBC49, XBB0F, XB9BC, XBBC72912 .EXTERN XBBA2T, XB9E0, FCON05, XB867, XBBA2L, FCON10, XBA8CK2913 .EXTERN XBBA2K, XLN10, XBC0C, XBA2829142915 FE19432916 ;---------------------------------------------------------------------------2917 ; p-cpode main system2918 ;---------------------------------------------------------------------------2919 FE19432920 ; start compiler2921 FE1943 pccstart:2922 .EXTERN PCTORSIZ, PCROFS, PCCOMP, PCCDST2923 ;.EXTERN PCTORAM, , PCCOMPSIZ29242925 FE1943 8B phb ; save current data bank2926 FE1944 A5 A3 lda cbnk ; the dest. bank2927 FE1946 8F 58 19 FE sta >?10+1 ; store dest bank for mvn istruction2928 ;sta >?12+1 ; store dest bank for mvn istructionTue Jul 17 11:00:23 2018 Page 72929 FE194A CPU162930 FE194A C2 30 rep #(PMFLAG.OR.PXFLAG)2931 .LONGA on2932 .LONGI on2933 .MNLIST2934 FE194C A9 FD 40 lda #PCTORSIZ-1 ; transfer type/std functio's record's2935 FE194F A2 10 41 ldx #PCCOMP ; source address2936 ;ldx #PCTORAM ; source address2937 ;ldy #PCROFS2938 FE1952 A0 00 00 ldy #0 ; dest address2939 FE1955 84 76 sty longp2940 FE1957 54 00 FE ?10: mvn #^pccstart, #029412942 ;lda #PCCOMPSIZ-1 ; transfer compiler p-code2943 ;ldx #PCCOMP ; source address2944 ;ldy #PCCDST ; dest. address2945 ;sty longp2946 ;?12: mvn #^pccstart, #02947 FE195A 98 tya2948 FE195B 92 76 sta (longp) ; here bank = cbnk2949 FE195D CPU082950 FE195D E2 30 sep #(PMFLAG.OR.PXFLAG)2951 .LONGA off2952 .LONGI off2953 .MNLIST2954 ;ldy #$012955 ;lda (longp),y ; p-code2956 FE195F EB xba ; hi addess2957 FE1960 AA tax2958 FE1961 E8 inx2959 ;inx2960 ;ldy #>PCCDST2961 FE1962 A0 00 ldy #029622963 FE1964 A9 01 lda #12964 FE1966 85 52 sta autolf2965 ;inc a2966 FE1968 85 4D sta tmpdsk2967 FE196A A9 04 lda #$042968 FE196C 85 4E sta defprn2969 ;lda #$802970 ;sta pcdsk2971 FE196E A9 40 lda #$40 ; compiler flag for runf2972 FE19702973 FE1970 pccrun:2974 FE1970 20 CC 19 jsr setmem2975 ;jsr L0E89 ; print CR2976 FE1973 20 C3 1A jsr pcex2977 FE1976 A5 8D lda svbnk ; restore v-bank2978 FE1978 85 A2 sta vbnk2979 FE197A 24 97 bit runf ; skip if run mode2980 FE197C 30 13 bmi ?042981 FE197E 24 4C bit pcterr ; no link if any compilation error2982 FE1980 30 0F bmi ?042983 FE1982 A5 7C lda pcdsk2984 FE1984 30 04 bmi ?01 ; compile in memory: link2985 FE1986 24 E6 bit fpcflagTue Jul 17 11:00:23 2018 Page 82986 FE1988 10 07 bpl ?04 ; old style compilation: no link2987 FE198A 20 5C 1C ?01: jsr pclink2988 FE198D A9 80 lda #$802989 FE198F 85 C2 sta pcodef2990 FE1991 64 97 ?04: stz runf2991 FE1993 64 7C stz pcdsk2992 FE1995 AB plb2993 FE1996 60 rts29942995 FE1997 pcexec:2996 FE1997 8B phb2997 FE1998 A5 A2 lda vbnk2998 FE199A 48 pha2999 FE199B AB plb3000 FE199C 85 78 sta longp+23001 FE199E 64 76 stz longp3002 FE19A0 64 77 stz longp+13003 FE19A23004 FE19A2 ACC16CLC3005 FE19A2 C2 21 rep #(PMFLAG.OR.PCFLAG)3006 .LONGA on3007 .MNLIST3008 FE19A4 A7 76 lda [longp]3009 FE19A6 1A inc a3010 FE19A7 1A inc a3011 FE19A8 89 01 00 bit #$00013012 FE19AB F0 01 beq ?013013 FE19AD 1A inc a3014 FE19AE 85 E4 ?01: sta cmdlin3015 FE19B0 69 80 00 adc #128 ; size of command line3016 FE19B3 ACC083017 FE19B3 E2 20 sep #PMFLAG3018 .LONGA off3019 .MNLIST3020 FE19B5 EB xba3021 ;ldy #13022 ;lda [longp],y3023 FE19B6 AA tax3024 FE19B7 E8 inx3025 ;inx3026 FE19B8 A0 00 ldy #03027 FE19BA A9 01 lda #13028 FE19BC 85 52 sta autolf3029 ;inc a3030 FE19BE 85 4D sta tmpdsk3031 FE19C0 A9 04 lda #$043032 FE19C2 85 4E sta defprn3033 FE19C4 A9 80 lda #$803034 FE19C6 85 4F sta pcdbg ; for RUN ???3035 ;sta pcdsk3036 ;stz pcdsk3037 FE19C8 A9 80 lda #$803038 FE19CA 80 A4 bra pccrun30393040 ; memory setup3041 ; X = start of heap, Y = start of p-code, A = run flag3042 FE19CC setmem:Tue Jul 17 11:00:23 2018 Page 93043 FE19CC 85 97 sta runf ; run flag3044 FE19CE 64 33 STZ $33 ; $33-$34 : start of heap3045 FE19D0 86 34 STX $343046 FE19D2 64 35 STZ $35 ; $35-$36 : heap free list3047 FE19D4 64 36 STZ $363048 FE19D6 64 39 STZ $39 ; $39-$3A3049 FE19D8 64 3A STZ $3A3050 FE19DA A9 02 LDA #$023051 FE19DC 85 2B STA $2B ; $2B-$2C : start p-code pointer3052 FE19DE 84 2C STY $2C3053 FE19E0 20 E7 FF jsr FCLALL ; close all files3054 FE19E3 A5 A2 lda vbnk3055 FE19E5 85 8D sta svbnk ; save v-bank3056 FE19E7 24 97 bit runf3057 FE19E9 30 04 bmi ?01 ; run: data bank = vbank3058 FE19EB A5 A3 lda cbnk ; compilation: data bank = cbnk3059 FE19ED 85 A2 sta vbnk3060 FE19EF 48 ?01: pha3061 FE19F0 AB plb ; setup current data bank3062 FE19F1 A2 00 ldx #$003063 FE19F3 9E 00 FF ?02: stz !MINBUF,x ; clear working area3064 FE19F6 E8 inx3065 FE19F7 D0 FA bne ?023066 FE19F9 ACC163067 FE19F9 C2 20 rep #PMFLAG3068 .LONGA on3069 .MNLIST3070 FE19FB A5 AF lda txttop3071 FE19FD 85 37 sta $373072 FE19FF 38 SEC3073 FE1A00 E9 0A 00 SBC #$000A3074 FE1A03 85 2D STA $2D ; $2D-$2E : stack pointer3075 FE1A05 A5 37 LDA $373076 FE1A07 85 2F STA $2F ; $2F-$303077 FE1A09 85 31 STA $31 ; $31-$323078 FE1A0B 38 SEC3079 FE1A0C E9 04 00 SBC #$00043080 FE1A0F 85 27 STA $273081 FE1A11 A9 BA FF lda #MSTDF1+2 ; default file #1 (disk command channel)3082 FE1A14 92 27 sta ($27)3083 FE1A16 A0 02 ldy #23084 FE1A18 A9 B6 FF lda #MSTDF0+2 ; default file #0 (consolle)3085 FE1A1B 91 27 sta ($27),y3086 FE1A1D 64 3F stz psrline3087 FE1A1F A9 B6 FF lda #MSTDF0+23088 FE1A22 8D D0 FF sta !MFILET3089 FE1A25 A9 BA FF lda #MSTDF1+23090 FE1A28 8D D2 FF sta !MFILET+23091 FE1A2B A6 97 ldx runf3092 FE1A2D 10 05 bpl ?033093 FE1A2F 9C D4 FF stz !MFILET+4 ; file #2 free in running mode3094 FE1A32 80 06 bra ?043095 FE1A34 A9 BE FF ?03: lda #MSTDF2+2 ; set file #2 for compiler3096 FE1A37 8D D4 FF sta !MFILET+43097 FE1A3A ?04: ACC083098 FE1A3A E2 20 sep #PMFLAG3099 .LONGA offTue Jul 17 11:00:23 2018 Page 103100 .MNLIST3101 FE1A3C A2 30 LDX #TTMPSIZ-13102 FE1A3E BF 1A 3E FE ?05: LDA >TTMPNAM,X3103 FE1A42 9D 8F FF STA !MTMPNAM,X3104 FE1A45 CA DEX3105 FE1A46 10 F6 BPL ?053106 FE1A48 A5 4D lda tmpdsk ; setup disk for tmp. file3107 FE1A4A 09 30 ora #'0'3108 FE1A4C 8D 8F FF sta !MTMPNAM3109 FE1A4F A9 C0 lda #$C03110 FE1A51 85 3B sta prtrap3111 FE1A53 64 3E stz prterr3112 FE1A55 64 43 stz pbrkcnt3113 FE1A57 64 4C stz pcterr3114 FE1A59 64 B7 STZ $B73115 FE1A5B A9 01 LDA #$013116 FE1A5D 85 B8 STA $B83117 FE1A5F A9 08 LDA #$083118 FE1A61 85 BA STA $BA3119 FE1A63 A9 0F LDA #$0F3120 FE1A65 85 B9 STA $B93121 FE1A67 20 C0 FF JSR FOPEN3122 FE1A6A 20 DE FF jsr RDTIM3123 FE1A6D 85 41 STA $413124 FE1A6F 64 42 stz $423125 FE1A71 64 45 stz inqidx3126 FE1A73 64 46 stz inqcnt3127 FE1A75 64 44 stz tmpy3128 FE1A77 64 49 stz tmpa3129 FE1A79 64 47 stz tmpv13130 FE1A7B 64 48 stz tmpv23131 FE1A7D 64 4A stz tmpwa3132 FE1A7F 64 4B stz tmpx3133 ;stz iecerr3134 FE1A81 64 90 stz kstat31353136 FE1A83 24 97 bit runf3137 FE1A85 30 1A bmi ?12 ; run mode3138 FE1A873139 ; source name for compiler in [longp]3140 FE1A87 ACC163141 FE1A87 C2 20 rep #PMFLAG3142 .LONGA on3143 .MNLIST3144 FE1A89 A9 00 FF lda #PASSRC3145 FE1A8C 85 76 sta longp3146 FE1A8E ACC083147 FE1A8E E2 20 sep #PMFLAG3148 .LONGA off3149 .MNLIST3150 FE1A90 A5 A5 lda xbnk3151 FE1A92 85 78 sta longp+23152 FE1A943153 FE1A94 A0 00 ldy #0 ; copy file name to internal buffer3154 FE1A96 B7 76 ?10: lda [longp],y3155 FE1A98 99 00 FF sta MINBUF,y3156 FE1A9B F0 03 beq ?11Tue Jul 17 11:00:23 2018 Page 113157 FE1A9D C8 iny3158 FE1A9E D0 F6 bne ?103159 FE1AA0 60 ?11: rts31603161 FE1AA1 ?12: ACC163162 FE1AA1 C2 20 rep #PMFLAG3163 .LONGA on3164 .MNLIST3165 FE1AA3 A5 7A lda txtp3166 FE1AA5 85 76 sta longp3167 FE1AA7 ACC083168 FE1AA7 E2 20 sep #PMFLAG3169 .LONGA off3170 .MNLIST3171 FE1AA9 A5 A1 lda tbnk3172 FE1AAB 85 78 sta longp+23173 FE1AAD A0 7F ldy #1273174 FE1AAF A9 20 lda #' '3175 FE1AB1 91 E4 ?12l: sta (cmdlin),y3176 FE1AB3 88 dey3177 FE1AB4 10 FB bpl ?12l3178 FE1AB6 C8 iny3179 FE1AB7 B7 76 ?13l: lda [longp],y3180 FE1AB9 F0 07 beq ?133181 FE1ABB 91 E4 sta (cmdlin),y3182 FE1ABD C8 iny3183 FE1ABE C0 80 cpy #1283184 FE1AC0 90 F5 bcc ?13l3185 FE1AC2 60 ?13: rts31863187 ; execute p-code3188 FE1AC3 pcex:3189 FE1AC3 INDEX163190 FE1AC3 C2 10 rep #PXFLAG3191 .LONGI on3192 .MNLIST3193 FE1AC5 BA tsx3194 FE1AC6 86 3C stx pcstack3195 FE1AC8 INDEX083196 FE1AC8 E2 10 sep #PXFLAG3197 .LONGI off3198 .MNLIST3199 FE1ACA C6 43 ?04: dec pbrkcnt3200 FE1ACC D0 03 bne ?063201 FE1ACE 20 B8 30 jsr L0E91 ; check CTRL BREAK3202 FE1AD1 ?06: ACC163203 FE1AD1 C2 20 rep #PMFLAG3204 .LONGA on3205 .MNLIST3206 FE1AD3 F4 C9 1A pea #?04-1 ; return address3207 FE1AD6 B2 2B lda ($2B)3208 FE1AD8 AA tax3209 FE1AD9 A5 2B lda $2B3210 FE1ADB 85 50 sta pcptr ; save p-code pointer3211 FE1ADD 1A inc a3212 FE1ADE 85 2B sta $2B3213 FE1AE0 ACC08Tue Jul 17 11:00:23 2018 Page 123214 FE1AE0 E2 20 sep #PMFLAG3215 .LONGA off3216 .MNLIST3217 FE1AE2 A0 00 LDY #$003218 FE1AE4 8A txa3219 FE1AE5 30 2B BMI ?14 ; >= 803220 FE1AE7 0A ?08: ASL a3221 FE1AE8 AA TAX3222 FE1AE9 10 24 BPL ?12 ; 00..3F -> 0 byte3223 FE1AEB C9 A0 CMP #$A03224 FE1AED 90 12 BCC ?10 ; 40..4F -> 2 bytes3225 FE1AEF 29 02 AND #$02 ; 50..7F3226 FE1AF1 F0 0E BEQ ?10 ; EVEN -> 50,52,54,56... -> 2 bytes3227 FE1AF3 B2 2B LDA ($2B) ; ODD -> 51,53,55,57... -> 1 byte (byte high = 00)3228 FE1AF5 85 23 STA $233229 FE1AF7 E6 2B INC $2B3230 FE1AF9 D0 02 BNE ?093231 FE1AFB E6 2C INC $2C3232 FE1AFD 84 24 ?09: STY $243233 FE1AFF 80 0E bra ?123234 FE1B01 ?10: ACC163235 FE1B01 C2 20 rep #PMFLAG3236 .LONGA on3237 .MNLIST3238 FE1B03 B2 2B LDA ($2B)3239 FE1B05 85 23 STA $233240 FE1B07 A5 2B lda $2B3241 FE1B09 1A inc a3242 FE1B0A 1A inc a3243 FE1B0B 85 2B sta $2B3244 FE1B0D ACC083245 FE1B0D E2 20 sep #PMFLAG3246 .LONGA off3247 .MNLIST3248 FE1B0F 7C 86 3C ?12: jmp (PCODET1,x)32493250 ?14: ; code negative3251 ; P80-8D -> 0 byte, 8E -> 1 byte, 8F -> 2 bytes3252 FE1B12 29 0F AND #$0F3253 FE1B14 C9 0E CMP #$0E3254 FE1B16 85 23 STA $233255 FE1B18 84 24 STY $243256 FE1B1A 30 18 BMI ?163257 FE1B1C 08 PHP3258 FE1B1D B2 2B LDA ($2B)3259 FE1B1F 85 23 STA $233260 FE1B21 E6 2B INC $2B3261 FE1B23 D0 02 BNE ?153262 FE1B25 E6 2C INC $2C3263 FE1B27 28 ?15: PLP3264 FE1B28 F0 0A BEQ ?163265 FE1B2A B2 2B LDA ($2B)3266 FE1B2C 85 24 STA $243267 FE1B2E E6 2B INC $2B3268 FE1B30 D0 02 BNE ?163269 FE1B32 E6 2C INC $2C3270 FE1B34 8A ?16: TXATue Jul 17 11:00:23 2018 Page 133271 FE1B35 4A LSR a3272 FE1B36 4A LSR a3273 FE1B37 4A LSR a3274 FE1B38 29 0E AND #$0E3275 FE1B3A AA TAX3276 FE1B3B BF 86 3D FE LDA >PCODET2,X3277 FE1B3F 85 27 STA $273278 FE1B41 BF 87 3D FE LDA >PCODET2+1,X3279 FE1B45 85 28 STA $283280 FE1B47 A5 23 LDA $233281 FE1B49 A6 24 LDX $243282 FE1B4B 6C 27 7F JMP (CBMP0+$27)3283 FE1B4E3284 ; error: bad p-code3285 FE1B4E vpme07:3286 FE1B4E A2 07 LDX #$0732873288 ; runtime error handler3289 vpmerr: ; $0C78 - $0F0D3290 FE1B50 48 pha ; dummy stack3291 FE1B51 48 pha3292 FE1B52 86 3E stx $3E ; error code3293 FE1B54 20 CC FF JSR FCLRCH3294 FE1B57 64 3B STZ $3B3295 FE1B59 A5 29 lda $29 ; save current file desc3296 FE1B5B 85 71 sta fbufpt3297 FE1B5D A5 2A lda $2A3298 FE1B5F 85 72 sta fbufpt+13299 FE1B61 20 5C 31 JSR L0F9B ; reset file #1 and print CR3300 FE1B64 A6 3E ldx $3E3301 FE1B66 20 39 1C jsr vpmsrch ; search error string3302 ; now format and print error message3303 FE1B69 A5 78 lda longp+2 ; param 3: error string pointer3304 FE1B6B 48 pha3305 FE1B6C D4 76 pei (longp)3306 FE1B6E A5 3E lda $3E ; param 2: error code3307 FE1B70 48 pha3308 FE1B71 A9 FE lda #^STRFMT2 ; param 1: format string3309 FE1B73 48 pha3310 FE1B74 F4 82 3E pea #STRFMT23311 FE1B77 A9 08 lda #$08 ; param 0: number of total bytes3312 FE1B79 48 pha3313 FE1B7A BPRINTF3314 FE1B7A 02 11 cop $113315 .MNLIST3316 FE1B7C vpmerr2:3317 ?08: ;;JSR lprint ; long print error string3318 FE1B7C 24 97 bit runf3319 FE1B7E 10 0D bpl ?12 ; running: print always line number3320 ; now format line number3321 FE1B80 D4 3F pei ($3F) ; param 2: line number3322 FE1B82 A9 FE lda #^STRFMT33323 FE1B84 48 pha ; param 1: format string3324 FE1B85 F4 9A 3E pea #STRFMT33325 FE1B88 A9 06 lda #$06 ; param 0: number of total bytes3326 FE1B8A 48 pha3327 FE1B8B BPRINTFTue Jul 17 11:00:23 2018 Page 143328 FE1B8B 02 11 cop $113329 .MNLIST33303331 ?10: ;;LDA #<TLINS ; ',line '3332 ;;STA longp3333 ;;LDA #>TLINS3334 ;;STA longp+13335 ;;JSR lprint3336 ?12: ;;LDA #<MDFIL+6 ; M2D92 - m35D83337 ;;STA $293338 ;;LDA #>MDFIL+63339 ;;STA $2A3340 ;;bit runf3341 ;;bpl ?14 ; running: print always line number3342 ?13: ;;LDA $3F ; line number3343 ;;STA $213344 ;;LDA $403345 ;;STA $223346 ;;LDA #$003347 ;;STA $233348 ;;JSR L0D1C3349 FE1B8D 20 69 31 ?14: JSR L0E89 ; print CR3350 ; report debug info after error - always for compiler3351 FE1B90 24 97 bit runf3352 FE1B92 10 04 bpl ?153353 FE1B94 24 4F bit pcdbg ; when run: only if debug enabled3354 FE1B96 10 1E bpl ?163355 FE1B98 D4 71 ?15: pei (fbufpt) ; param 8: saved file ptr3356 FE1B9A D4 33 pei ($33) ; param 7: heap ptr3357 FE1B9C D4 2D pei ($2D) ; param 6: stack ptr3358 FE1B9E B2 50 lda (pcptr)3359 FE1BA0 48 pha ; param 5: op-code3360 FE1BA1 D4 2B pei ($2B) ; param 4: current p-code ptr3361 FE1BA3 D4 50 pei (pcptr) ; param 3: p-code ptr at error3362 FE1BA5 A5 A2 lda vbnk3363 FE1BA7 48 pha ; param 2: data bank3364 FE1BA8 A9 FE lda #^STRFMT43365 FE1BAA 48 pha ; param 1: format string3366 FE1BAB F4 A5 3E pea #STRFMT43367 FE1BAE A9 10 lda #$10 ; param 0: number of total bytes3368 FE1BB0 48 pha3369 FE1BB1 BPRINTF3370 FE1BB1 02 11 cop $113371 .MNLIST3372 FE1BB3 20 69 31 JSR L0E89 ; print CR3373 FE1BB6 A9 80 ?16: lda #$80 ; report error for compiler3374 FE1BB8 85 4C sta pcterr33753376 ; terminate pascal virtual machine3377 vpmhlt: ; $0914 - $0AC43378 ; if pcterr = $80 this mean compiler error(s)3379 FE1BBA 24 97 bit runf3380 FE1BBC 30 35 bmi ?02 ; execution3381 FE1BBE 20 CF 30 jsr L0942 ; close all files3382 FE1BC1 24 4C bit pcterr ; check compiler error3383 FE1BC3 10 2A bpl ?01 ; no error3384 ; delete file .OBJTue Jul 17 11:00:23 2018 Page 153385 FE1BC5 A9 01 lda #$013386 FE1BC7 20 C3 FF jsr FCLOSE ; close command channel3387 FE1BCA ACC163388 FE1BCA C2 20 rep #PMFLAG3389 .LONGA on3390 .MNLIST3391 FE1BCC A9 A7 FF lda #NUMSTR+13392 FE1BCF 85 BB sta $BB ; file name to delete3393 FE1BD1 ACC083394 FE1BD1 E2 20 sep #PMFLAG3395 .LONGA off3396 .MNLIST3397 FE1BD3 A5 A1 lda tbnk ; text bank hold file name3398 FE1BD5 85 BD sta $BD3399 FE1BD7 8B phb3400 FE1BD8 48 pha3401 FE1BD9 AB plb3402 FE1BDA AD A6 FF lda !NUMSTR ; lenght3403 FE1BDD 85 B7 sta $B73404 FE1BDF AB plb3405 FE1BE0 A9 01 lda #$013406 FE1BE2 85 B8 sta $B83407 FE1BE4 A9 0F lda #$0F3408 FE1BE6 85 B9 sta $B93409 FE1BE8 A9 08 lda #$083410 FE1BEA 85 BA sta $BA3411 FE1BEC 20 C0 FF jsr FOPEN ; delete obj file3412 FE1BEF A9 01 ?01: lda #1 ; close file #13413 FE1BF1 80 3B bra ?043414 FE1BF3 20 0E 31 ?02: jsr R0B28 ; close all files3415 FE1BF6 A9 08 LDA #$08 ; delete any tmp file3416 FE1BF8 85 BA STA $BA ; default disk3417 FE1BFA 85 B8 STA $B83418 FE1BFC A9 0F LDA #$0F3419 FE1BFE 85 B9 STA $B93420 FE1C00 INDEX163421 FE1C00 C2 10 rep #PXFLAG3422 .LONGI on3423 .MNLIST3424 FE1C02 A2 0A 3E ldx #DTMPNAM ; copy temp. name3425 FE1C05 86 76 stx longp3426 FE1C07 A2 D0 FF ldx #GFNAME ; buffer temp. name3427 FE1C0A 86 BB stx $BB3428 FE1C0C INDEX083429 FE1C0C E2 10 sep #PXFLAG3430 .LONGI off3431 .MNLIST3432 FE1C0E A9 FE lda #^vpmhlt3433 FE1C10 85 78 sta longp+23434 FE1C12 A5 A1 lda tbnk3435 FE1C14 85 BD sta $BD3436 FE1C16 A0 FF ldy #$FF3437 FE1C18 C8 ?03: iny3438 FE1C19 B7 76 lda [longp],y3439 FE1C1B 97 BB sta [$BB],y3440 FE1C1D D0 F9 bne ?033441 FE1C1F 84 B7 sty $B7Tue Jul 17 11:00:23 2018 Page 163442 FE1C21 A0 01 ldy #$013443 FE1C23 A5 4D lda tmpdsk3444 FE1C25 09 30 ora #'0'3445 FE1C27 97 BB sta [$BB],y ; 'SX:...'3446 FE1C29 20 C0 FF JSR FOPEN3447 FE1C2C A5 B8 LDA $B83448 FE1C2E 20 C3 FF ?04: JSR FCLOSE3449 FE1C31 INDEX163450 FE1C31 C2 10 rep #PXFLAG3451 .LONGI on3452 .MNLIST3453 FE1C33 A6 3C LDX pcstack3454 FE1C35 9A TXS3455 FE1C36 INDEX083456 FE1C36 E2 10 sep #PXFLAG3457 .LONGI off3458 .MNLIST3459 FE1C38 60 RTS34603461 ; search error string - X = error code3462 ; return pointer in longp3463 FE1C39 vpmsrch:3464 FE1C39 A9 14 LDA #<TERRS ; error's string table3465 FE1C3B 85 76 STA longp3466 FE1C3D A9 3F LDA #>TERRS3467 FE1C3F 85 77 STA longp+13468 FE1C41 A9 FE lda #^vpmerr3469 FE1C43 85 78 sta longp+23470 FE1C45 E0 1B cpx #MAXVPME ; max error number3471 FE1C47 90 02 bcc ?023472 FE1C49 A2 1B ldx #MAXVPME3473 FE1C4B CA ?02: DEX3474 FE1C4C F0 0D BEQ ?083475 FE1C4E A7 76 ?04: LDA [longp]3476 FE1C50 E6 76 INC longp3477 FE1C52 D0 02 BNE ?063478 FE1C54 E6 77 INC longp+13479 FE1C56 A8 ?06: tay3480 FE1C57 D0 F5 BNE ?043481 FE1C59 F0 F0 BEQ ?023482 FE1C5B 60 ?08: RTS34833484 ;---------------------------------------------------------------------------3485 ; p-code linker3486 ;---------------------------------------------------------------------------34873488 FE1C5C pclink:3489 .GLOBAL pclink34903491 FE1C5C A5 A2 lda vbnk3492 FE1C5E 48 pha3493 FE1C5F AB plb3494 FE1C60 64 5F stz $5F3495 FE1C62 64 60 stz $603496 FE1C64 64 3E stz prterr3497 FE1C66 64 76 stz longp3498 FE1C68 64 77 stz longp+1Tue Jul 17 11:00:23 2018 Page 173499 FE1C6A A5 A4 lda jbnk3500 FE1C6C 85 78 sta longp+2 ; pointer to obj. code3501 FE1C6E 64 35 stz $353502 FE1C70 64 36 stz $363503 FE1C72 64 23 stz $233504 FE1C74 64 24 stz $243505 FE1C76 A9 02 lda #$02 ; put 'halt'3506 FE1C78 8D 02 00 sta !$00023507 FE1C7B A6 24 ?02: ldx $24 ; loop scan obj. code3508 FE1C7D E8 inx3509 FE1C7E E4 38 cpx $383510 FE1C80 F0 4A beq ?083511 FE1C82 A0 00 ldy #03512 FE1C84 ?03: ACC16CLC3513 FE1C84 C2 21 rep #(PMFLAG.OR.PCFLAG)3514 .LONGA on3515 .MNLIST3516 FE1C86 98 tya3517 FE1C87 65 76 adc longp3518 FE1C89 C5 86 cmp iecwp3519 FE1C8B ACC083520 FE1C8B E2 20 sep #PMFLAG3521 .LONGA off3522 .MNLIST3523 FE1C8D A5 78 lda longp+23524 FE1C8F E5 88 sbc iecwp+23525 FE1C91 B0 1E bcs ?05 ; end of obj. code3526 FE1C93 B7 76 lda [longp],y3527 FE1C95 91 23 sta ($23),y3528 FE1C97 C8 iny3529 FE1C98 D0 EA bne ?033530 FE1C9A E6 77 inc longp+1 ; next block3531 FE1C9C D0 02 bne ?043532 FE1C9E E6 78 inc longp+23533 FE1CA0 A0 FC ?04: ldy #$FC3534 FE1CA2 B1 23 lda ($23),y3535 FE1CA4 F0 2B beq ?10 ; if = 03536 FE1CA6 C9 01 cmp #$013537 FE1CA8 F0 36 beq ?12 ; if = 13538 FE1CAA C9 02 cmp #$023539 FE1CAC D0 CD bne ?023540 FE1CAE 4C 1D 1D jmp ?20 ; if = 235413542 FE1CB1 ?05: ACC163543 FE1CB1 C2 20 rep #PMFLAG3544 .LONGA on3545 .MNLIST3546 FE1CB3 A5 35 lda $353547 FE1CB5 F0 12 beq ?073548 FE1CB7 B2 35 lda ($35)3549 FE1CB9 85 27 sta $273550 FE1CBB A9 FF FF lda #$FFFF3551 FE1CBE 92 35 sta ($35)3552 FE1CC0 A5 27 lda $273553 FE1CC2 85 35 sta $353554 FE1CC4 ACC083555 FE1CC4 E2 20 sep #PMFLAGTue Jul 17 11:00:23 2018 Page 183556 .LONGA off3557 .MNLIST3558 FE1CC6 EB xba3559 FE1CC7 D0 E8 bne ?053560 FE1CC9 ?07: ACC083561 FE1CC9 E2 20 sep #PMFLAG3562 .LONGA off3563 .MNLIST3564 FE1CCB 60 rts35653566 FE1CCC A9 80 ?08: lda #$803567 FE1CCE 85 4C sta pcterr3568 FE1CD0 60 rts35693570 FE1CD1 A0 FE ?10: ldy #$FE3571 FE1CD3 B1 23 lda ($23),y3572 FE1CD5 18 clc3573 FE1CD6 65 23 adc $233574 FE1CD8 85 23 sta $233575 FE1CDA 90 9F bcc ?023576 FE1CDC E6 24 inc $243577 FE1CDE D0 9B bne ?0235783579 FE1CE0 A0 FE ?12: ldy #$FE3580 FE1CE2 B1 23 lda ($23),y3581 FE1CE4 AA tax3582 FE1CE5 A0 00 ldy #$003583 FE1CE7 ?14: ACC16CLC3584 FE1CE7 C2 21 rep #(PMFLAG.OR.PCFLAG)3585 .LONGA on3586 .MNLIST3587 FE1CE9 B1 23 lda ($23),y3588 FE1CEB 65 5F adc $5F3589 FE1CED 85 21 sta $213590 FE1CEF C8 iny3591 FE1CF0 C8 iny3592 FE1CF1 84 27 sty $273593 FE1CF3 ACC083594 FE1CF3 E2 20 sep #PMFLAG3595 .LONGA off3596 .MNLIST3597 FE1CF5 A0 01 ldy #$013598 FE1CF7 B1 21 lda ($21),y3599 FE1CF9 C9 FF cmp #$FF3600 FE1CFB F0 12 beq ?163601 FE1CFD ACC16CLC3602 FE1CFD C2 21 rep #(PMFLAG.OR.PCFLAG)3603 .LONGA on3604 .MNLIST3605 FE1CFF B2 21 lda ($21)3606 FE1D01 65 5F adc $5F3607 FE1D03 92 21 sta ($21)3608 FE1D05 ACC083609 FE1D05 E2 20 sep #PMFLAG3610 .LONGA off3611 .MNLIST3612 FE1D07 A4 27 ?15: ldy $27Tue Jul 17 11:00:23 2018 Page 193613 FE1D09 CA dex3614 FE1D0A D0 DB bne ?143615 FE1D0C 4C 7B 1C jmp ?023616 FE1D0F ?16: ACC163617 FE1D0F C2 20 rep #PMFLAG3618 .LONGA on3619 .MNLIST3620 FE1D11 A5 35 lda $353621 FE1D13 92 21 sta ($21)3622 FE1D15 A5 21 lda $213623 FE1D17 85 35 sta $353624 FE1D19 ACC083625 FE1D19 E2 20 sep #PMFLAG3626 .LONGA off3627 .MNLIST3628 FE1D1B 80 EA bra ?153629 FE1D1D3630 FE1D1D A0 FE ?20: ldy #$FE3631 FE1D1F B1 23 lda ($23),y3632 FE1D21 4A lsr a3633 FE1D22 AA tax3634 FE1D23 A0 00 ldy #03635 FE1D25 ?22: ACC16CLC3636 FE1D25 C2 21 rep #(PMFLAG.OR.PCFLAG)3637 .LONGA on3638 .MNLIST3639 FE1D27 B1 23 lda ($23),y3640 FE1D29 65 5F adc $5F3641 FE1D2B 85 21 sta $213642 FE1D2D ACC083643 FE1D2D E2 20 sep #PMFLAG3644 .LONGA off3645 .MNLIST3646 FE1D2F C8 iny3647 FE1D30 C8 iny3648 FE1D31 20 52 1D jsr ?303649 FE1D34 B1 23 lda ($23),y3650 FE1D36 48 pha3651 FE1D37 C8 iny3652 FE1D38 B1 23 lda ($23),y3653 FE1D3A C8 iny3654 FE1D3B 84 27 sty $273655 FE1D3D A0 01 ldy #$013656 FE1D3F 90 03 bcc ?243657 FE1D41 18 clc3658 FE1D42 65 60 adc $603659 FE1D44 91 21 ?24: sta ($21),y3660 FE1D46 88 dey3661 FE1D47 68 pla3662 FE1D48 91 21 sta ($21),y3663 FE1D4A A4 27 ldy $273664 FE1D4C CA dex3665 FE1D4D D0 D6 bne ?223666 FE1D4F 4C 7B 1C jmp ?0236673668 FE1D52 ?30: ACC163669 FE1D52 C2 20 rep #PMFLAGTue Jul 17 11:00:23 2018 Page 203670 .LONGA on3671 .MNLIST3672 FE1D54 A5 35 lda $353673 FE1D56 8D FE FF sta !$FFFE3674 FE1D59 A9 FE FF lda #$FFFE3675 FE1D5C 85 25 sta $253676 FE1D5E A5 25 ?32: lda $253677 FE1D60 85 27 sta $273678 FE1D62 B2 27 lda ($27)3679 FE1D64 85 25 sta $253680 FE1D66 18 clc3681 FE1D67 F0 0B beq ?343682 FE1D69 A5 25 lda $253683 FE1D6B C5 21 cmp $213684 FE1D6D D0 EF bne ?323685 FE1D6F B2 25 lda ($25)3686 FE1D71 92 27 sta ($27)3687 FE1D73 38 sec3688 FE1D74 AD FE FF ?34: lda !$FFFE3689 FE1D77 85 35 sta $353690 FE1D79 ACC083691 FE1D79 E2 20 sep #PMFLAG3692 .LONGA off3693 .MNLIST3694 FE1D7B 60 rts3695 FE1D7C3696 ;---------------------------------------------------------------------------3697 ; p-code execution3698 ;---------------------------------------------------------------------------36993700 PC00: ; $1119 - $13A43701 FE1D7C B1 2D LDA ($2D),Y3702 FE1D7E 85 27 STA $273703 FE1D80 C8 INY3704 FE1D81 B1 2D LDA ($2D),Y3705 FE1D83 85 28 STA $283706 FE1D85 A9 00 LDA #$003707 FE1D87 91 2D STA ($2D),Y3708 FE1D89 88 DEY3709 FE1D8A B1 27 LDA ($27),Y3710 FE1D8C 91 2D STA ($2D),Y3711 FE1D8E 60 rts37123713 PC3B: ; $0970 - $0B813714 ; 'rewrite' on disk3715 FE1D8F 20 EB 33 JSR L09C2 ; prepare for open3716 FE1D92 A5 3E LDA $3E3717 FE1D94 D0 4F BNE SK04 ; if error3718 FE1D96 24 97 bit runf3719 FE1D98 30 2D bmi ?10 ; run mode3720 FE1D9A 24 BE bit objdsk3721 FE1D9C 30 08 bmi ?01 ; use disk '1': '1' option3722 FE1D9E A5 BF lda truedsk ; need this because compiler put drive 03723 FE1DA0 09 30 ora #'0'3724 FE1DA2 A0 01 ldy #13725 FE1DA4 97 BB sta [$BB],y3726Tue Jul 17 11:00:23 2018 Page 213727 ; copy obj. name file to NUMSTR in tbank3728 FE1DA6 8B ?01: phb3729 FE1DA7 A5 BD lda $BD3730 FE1DA9 48 pha3731 FE1DAA AB plb3732 FE1DAB A0 FF ldy #$FF3733 FE1DAD C8 ?02: iny3734 FE1DAE B7 BB lda [$BB],y3735 FE1DB0 99 A7 FF sta NUMSTR+1,y3736 FE1DB3 D0 F8 bne ?023737 FE1DB5 A9 53 lda #'S' ; scratch3738 FE1DB7 8D A7 FF sta !NUMSTR+13739 FE1DBA A5 B7 lda $B73740 FE1DBC 38 sec3741 FE1DBD E9 04 sbc #4 ; skip ',S,W'3742 FE1DBF 8D A6 FF sta !NUMSTR ; length3743 FE1DC2 AA tax3744 FE1DC3 9E A7 FF stz !NUMSTR+1,x3745 FE1DC6 AB plb3746 FE1DC73747 FE1DC7 20 C0 FF ?10: JSR FOPEN ; open3748 FE1DCA 24 97 bit runf3749 FE1DCC 20 45 33 JSR L0A73 ; handle disk error3750 FE1DCF A9 A8 LDA #$A83751 FE1DD1 92 29 STA ($29)3752 FE1DD3 80 10 bra SK0437533754 PC01: ; $112E - $13B93755 FE1DD5 B2 2D LDA ($2D)3756 FE1DD7 AA TAX3757 FE1DD8 A0 02 ldy #23758 FE1DDA ACC163759 FE1DDA C2 20 rep #PMFLAG3760 .LONGA on3761 .MNLIST3762 FE1DDC B1 2D LDA ($2D),Y3763 FE1DDE 85 27 STA $273764 FE1DE0 ACC083765 FE1DE0 E2 20 sep #PMFLAG3766 .LONGA off3767 .MNLIST3768 FE1DE2 8A TXA3769 FE1DE3 92 27 STA ($27)3770 FE1DE53771 SK04: ; $1141 - $13CC3772 FE1DE5 ACC16CLC3773 FE1DE5 C2 21 rep #(PMFLAG.OR.PCFLAG)3774 .LONGA on3775 .MNLIST3776 FE1DE7 A5 2D LDA $2D3777 FE1DE9 69 04 00 ADC #$00043778 FE1DEC 85 2D STA $2D3779 FE1DEE ACC083780 FE1DEE E2 20 sep #PMFLAG3781 .LONGA off3782 .MNLIST3783 FE1DF0 60 rtsTue Jul 17 11:00:23 2018 Page 2237843785 PC02: ; $114F - $13DA3786 ; terminate procedure or program3787 FE1DF1 24 97 bit runf3788 FE1DF3 10 03 bpl ?023789 FE1DF5 20 CF 30 JSR R0AE9 ; close all local files3790 FE1DF8 18 ?02: CLC3791 FE1DF9 A5 2F LDA $2F3792 FE1DFB 69 06 ADC #$063793 FE1DFD 85 2D STA $2D3794 FE1DFF A5 30 LDA $303795 FE1E01 69 00 ADC #$003796 FE1E03 85 2E STA $2E3797 FE1E05 C5 32 CMP $323798 FE1E07 90 09 BCC ?043799 FE1E09 A5 2F LDA $2F3800 FE1E0B E5 31 SBC $313801 FE1E0D 90 03 BCC ?043802 FE1E0F 4C BA 1B JMP vpmhlt ; terminate3803 FE1E12 A0 04 ?04: LDY #$04 ; exit from procedure/function3804 FE1E14 ACC163805 FE1E14 C2 20 rep #PMFLAG3806 .LONGA on3807 .MNLIST3808 FE1E16 B1 2F LDA ($2F),Y3809 FE1E18 85 2B STA $2B3810 FE1E1A A0 02 ldy #$023811 FE1E1C B1 2F LDA ($2F),Y3812 FE1E1E 85 2F STA $2F3813 FE1E20 ACC083814 FE1E20 E2 20 sep #PMFLAG3815 .LONGA off3816 .MNLIST3817 FE1E22 60 rts3818 FE1E233819 PC03: ; $1185 - $14103820 ; return from integer function3821 FE1E23 24 97 bit runf3822 FE1E25 10 03 bpl ?023823 FE1E27 20 CF 30 JSR R0AE93824 FE1E2A ?02: CPU163825 FE1E2A C2 30 rep #(PMFLAG.OR.PXFLAG)3826 .LONGA on3827 .LONGI on3828 .MNLIST3829 FE1E2C B2 2D LDA ($2D)3830 FE1E2E AA TAX3831 FE1E2F A5 2F LDA $2F3832 FE1E31 85 2D STA $2D3833 FE1E33 C8 iny3834 FE1E34 C8 iny3835 FE1E35 B1 2D LDA ($2D),Y3836 FE1E37 85 2F STA $2F3837 FE1E39 C8 iny3838 FE1E3A C8 iny3839 FE1E3B B1 2D LDA ($2D),Y3840 FE1E3D 85 2B STA $2BTue Jul 17 11:00:23 2018 Page 233841 FE1E3F 8A txa3842 FE1E40 91 2D STA ($2D),Y3843 FE1E42 CPU083844 FE1E42 E2 30 sep #(PMFLAG.OR.PXFLAG)3845 .LONGA off3846 .LONGI off3847 .MNLIST3848 FE1E44 80 9F bra SK0438493850 PC04: ; $11B4 - $143F3851 ; prepare for call procedure/function3852 FE1E46 38 SEC3853 FE1E47 ACC163854 FE1E47 C2 20 rep #PMFLAG3855 .LONGA on3856 .MNLIST3857 FE1E49 A5 2D LDA $2D3858 FE1E4B E9 06 00 SBC #$00063859 FE1E4E 85 2D STA $2D3860 FE1E50 A5 39 LDA $393861 FE1E52 92 2D STA ($2D)3862 FE1E54 A5 2D LDA $2D3863 FE1E56 85 39 STA $393864 FE1E58 ACC083865 FE1E58 E2 20 sep #PMFLAG3866 .LONGA off3867 .MNLIST3868 FE1E5A 60 rts38693870 PC09: ; $126F - 14FA3871 ; divide 2 integer and leave result in stack3872 FE1E5B BB tyx ; Y = X = 03873 FE1E5C ACC163874 FE1E5C C2 20 rep #PMFLAG3875 .LONGA on3876 .MNLIST3877 FE1E5E B2 2D LDA ($2D)3878 FE1E60 85 25 STA $253879 FE1E62 C8 iny3880 FE1E63 C8 iny3881 FE1E64 B1 2D LDA ($2D),y3882 FE1E66 85 23 STA $233883 FE1E68 ACC083884 FE1E68 E2 20 sep #PMFLAG3885 .LONGA off3886 .MNLIST3887 FE1E6A 20 1A 1F JSR idiv3888 FE1E6D ACC163889 FE1E6D C2 20 rep #PMFLAG3890 .LONGA on3891 .MNLIST3892 FE1E6F A5 21 LDA $213893 FE1E71 91 2D STA ($2D),Y3894 FE1E73 ACC083895 FE1E73 E2 20 sep #PMFLAG3896 .LONGA off3897 .MNLISTTue Jul 17 11:00:23 2018 Page 243898 FE1E75 80 1E bra SK0238993900 PC0B: ; $12F6 - $15813901 ; logic 'and' 2 bytes and leave result in stack3902 FE1E77 B2 2D LDA ($2D)3903 FE1E79 A0 02 LDY #$023904 FE1E7B 31 2D AND ($2D),Y3905 FE1E7D 91 2D STA ($2D),Y3906 FE1E7F 80 14 bra SK0239073908 PC0C: ; $1301 - $158C3909 ; logic 'or' 2 integer and leave result in stack3910 FE1E81 B2 2D LDA ($2D)3911 FE1E83 A0 02 LDY #$023912 FE1E85 11 2D ORA ($2D),Y3913 FE1E87 91 2D STA ($2D),Y3914 FE1E89 80 0A bra SK0239153916 PC05: ; $11D5 - $14603917 ; add 2 integer and leave result in stack3918 FE1E8B ACC16CLC3919 FE1E8B C2 21 rep #(PMFLAG.OR.PCFLAG)3920 .LONGA on3921 .MNLIST3922 FE1E8D B2 2D LDA ($2D)3923 FE1E8F A0 02 LDY #$023924 FE1E91 71 2D ADC ($2D),Y3925 FE1E93 91 2D STA ($2D),Y3926 SK02: ; $11E7 - $14723927 FE1E95 ACC16CLC3928 FE1E95 C2 21 rep #(PMFLAG.OR.PCFLAG)3929 .LONGA on3930 .MNLIST3931 FE1E97 A5 2D LDA $2D3932 FE1E99 1A inc a3933 FE1E9A 1A inc a3934 FE1E9B 85 2D STA $2D3935 FE1E9D ACC083936 FE1E9D E2 20 sep #PMFLAG3937 .LONGA off3938 .MNLIST3939 FE1E9F 60 rts39403941 PC06: ; $11F5 - $14803942 ; subctract 2 integer and leave result in stack3943 FE1EA0 ACC163944 FE1EA0 C2 20 rep #PMFLAG3945 .LONGA on3946 .MNLIST3947 FE1EA2 A0 02 ldy #23948 FE1EA4 38 sec3949 FE1EA5 B1 2D LDA ($2D),y3950 FE1EA7 F2 2D sbc ($2D)3951 FE1EA9 91 2D STA ($2D),Y3952 FE1EAB ACC083953 FE1EAB E2 20 sep #PMFLAG3954 .LONGA offTue Jul 17 11:00:23 2018 Page 253955 .MNLIST3956 FE1EAD 80 E6 bra SK023957 FE1EAF3958 PC07: ; $1210 - $149B3959 ; mult 2 integer and leave result in stack3960 FE1EAF BB tyx ; Y = X = 03961 FE1EB0 CPU163962 FE1EB0 C2 30 rep #(PMFLAG.OR.PXFLAG)3963 .LONGA on3964 .LONGI on3965 .MNLIST3966 FE1EB2 B2 2D LDA ($2D)3967 FE1EB4 85 23 STA $233968 FE1EB6 48 pha3969 FE1EB7 10 06 bpl ?023970 FE1EB9 38 sec3971 FE1EBA 8A txa ; X = 03972 FE1EBB E5 23 sbc $233973 FE1EBD 85 23 sta $233974 FE1EBF C8 ?02: iny3975 FE1EC0 C8 iny3976 FE1EC1 B1 2D LDA ($2D),Y3977 FE1EC3 85 25 STA $253978 FE1EC5 10 06 bpl ?043979 FE1EC7 38 sec3980 FE1EC8 8A txa ; X = 03981 FE1EC9 E5 25 sbc $253982 FE1ECB 85 25 sta $253983 FE1ECD 68 ?04: PLA3984 FE1ECE 51 2D EOR ($2D),Y ; sign comparison3985 FE1ED0 CPU083986 FE1ED0 E2 30 sep #(PMFLAG.OR.PXFLAG)3987 .LONGA off3988 .LONGI off3989 .MNLIST3990 FE1ED2 08 PHP3991 FE1ED3 20 8B 29 JSR imult ; return Z = 0 if CF = 03992 FE1ED6 B0 3D BCS er033993 FE1ED8 A5 22 LDA $223994 FE1EDA 30 39 BMI er033995 FE1EDC 28 PLP3996 FE1EDD CPU163997 FE1EDD C2 30 rep #(PMFLAG.OR.PXFLAG)3998 .LONGA on3999 .LONGI on4000 .MNLIST4001 FE1EDF 10 06 BPL ?064002 FE1EE1 38 sec4003 FE1EE2 8A txa ; X = 04004 FE1EE3 E5 21 sbc $214005 FE1EE5 85 21 sta $214006 FE1EE7 A5 21 ?06: lda $214007 FE1EE9 91 2D STA ($2D),Y4008 FE1EEB CPU084009 FE1EEB E2 30 sep #(PMFLAG.OR.PXFLAG)4010 .LONGA off4011 .LONGI offTue Jul 17 11:00:23 2018 Page 264012 .MNLIST4013 FE1EED 80 A6 bra SK0240144015 PC08: ; $124D - $14D84016 ; compute modulo 2 integer and leave result in stack4017 FE1EEF ACC164018 FE1EEF C2 20 rep #PMFLAG4019 .LONGA on4020 .MNLIST4021 FE1EF1 B2 2D LDA ($2D)4022 FE1EF3 85 25 STA $254023 FE1EF5 C8 iny4024 FE1EF6 C8 iny4025 FE1EF7 B1 2D LDA ($2D),Y4026 FE1EF9 85 23 STA $234027 FE1EFB ACC084028 FE1EFB E2 20 sep #PMFLAG4029 .LONGA off4030 .MNLIST4031 FE1EFD 20 1A 1F JSR idiv4032 FE1F00 ACC164033 FE1F00 C2 20 rep #PMFLAG4034 .LONGA on4035 .MNLIST4036 FE1F02 A5 23 LDA $234037 FE1F04 91 2D STA ($2D),Y4038 FE1F06 ACC084039 FE1F06 E2 20 sep #PMFLAG4040 .LONGA off4041 .MNLIST4042 FE1F08 80 8B bra SK0240434044 PC0A: ; $1291 - $151C4045 ; 2's complement integer and leave result in stack4046 FE1F0A CPU164047 FE1F0A C2 30 rep #(PMFLAG.OR.PXFLAG)4048 .LONGA on4049 .LONGI on4050 .MNLIST4051 FE1F0C 38 SEC4052 FE1F0D 98 TYA4053 FE1F0E F2 2D SBC ($2D)4054 FE1F10 92 2D STA ($2D)4055 FE1F12 CPU084056 FE1F12 E2 30 sep #(PMFLAG.OR.PXFLAG)4057 .LONGA off4058 .LONGI off4059 .MNLIST4060 FE1F14 60 rts40614062 ; integer overflow4063 er03: ; $12A0 - $152B4064 FE1F15 A2 03 LDX #$034065 FE1F17 4C 50 1B JMP vpmerr40664067 ; divide integer $23-$24 and $25-$26 - quot. in $21-$22 and rem. in $23-$244068 ; in input X must be 0Tue Jul 17 11:00:23 2018 Page 274069 FE1F1A idiv:4070 FE1F1A A5 25 LDA $254071 FE1F1C 05 26 ora $264072 FE1F1E F0 F5 BEQ er034073 FE1F20 64 21 STZ $214074 FE1F22 64 22 STZ $224075 FE1F24 A5 24 lda $244076 FE1F26 45 26 eor $264077 FE1F28 08 PHP4078 FE1F29 CPU164079 FE1F29 C2 30 rep #(PMFLAG.OR.PXFLAG)4080 .LONGA on4081 .LONGI on4082 .MNLIST4083 FE1F2B A5 23 LDA $234084 FE1F2D 10 06 BPL ?024085 FE1F2F 38 sec4086 FE1F30 8A txa ; X = 04087 FE1F31 E5 23 sbc $234088 FE1F33 85 23 sta $234089 FE1F35 A5 25 ?02: LDA $254090 FE1F37 10 06 BPL ?044091 FE1F39 38 sec4092 FE1F3A 8A txa ; X = 04093 FE1F3B E5 25 sbc $254094 FE1F3D 85 25 sta $254095 FE1F3F ?04: CPU084096 FE1F3F E2 30 sep #(PMFLAG.OR.PXFLAG)4097 .LONGA off4098 .LONGI off4099 .MNLIST4100 FE1F41 A2 10 LDX #$104101 FE1F43 06 23 ?06: ASL $234102 FE1F45 26 24 ROL $244103 FE1F47 26 21 ROL $214104 FE1F49 26 22 ROL $224105 FE1F4B 30 C8 BMI er034106 FE1F4D A5 21 LDA $214107 FE1F4F C5 25 CMP $254108 FE1F51 A5 22 LDA $224109 FE1F53 E5 26 SBC $264110 FE1F55 30 0F BMI ?084111 FE1F57 85 22 STA $224112 FE1F59 A5 21 LDA $214113 FE1F5B 38 SEC4114 FE1F5C E5 25 SBC $254115 FE1F5E 85 21 STA $214116 FE1F60 A5 23 LDA $234117 FE1F62 09 01 ORA #$014118 FE1F64 85 23 STA $234119 FE1F66 CA ?08: DEX4120 FE1F67 D0 DA BNE ?064121 FE1F69 28 PLP4122 FE1F6A 10 10 BPL ?104123 FE1F6C CPU164124 FE1F6C C2 30 rep #(PMFLAG.OR.PXFLAG)4125 .LONGA onTue Jul 17 11:00:23 2018 Page 284126 .LONGI on4127 .MNLIST4128 FE1F6E 38 sec4129 FE1F6F 8A txa ; X = 04130 FE1F70 E5 21 sbc $214131 FE1F72 85 21 sta $214132 FE1F74 38 sec4133 FE1F75 8A txa ; X = 04134 FE1F76 E5 23 sbc $234135 FE1F78 85 23 sta $234136 FE1F7A CPU084137 FE1F7A E2 30 sep #(PMFLAG.OR.PXFLAG)4138 .LONGA off4139 .LONGI off4140 .MNLIST4141 FE1F7C 60 ?10: RTS41424143 PC0D: ; $xxxx - $29594144 ; page() procedure4145 FE1F7D 24 97 bit runf4146 FE1F7F 10 27 bpl PC0Dx4147 FE1F81 20 62 30 JSR L17A34148 FE1F84 20 4B 32 JSR R0F8D4149 FE1F87 C6 B8 DEC $B84150 FE1F89 F0 0D BEQ ?02 ; output (clear screen)4151 FE1F8B 20 25 32 JSR L0EA84152 FE1F8E A9 0C LDA #$0C ; new page at printer4153 FE1F90 20 E3 32 JSR L0EC44154 FE1F93 20 CC FF jsr FCLRCH4155 FE1F96 80 04 bra ?044156 FE1F98 EA ?02: nop ; clear screen4157 FE1F99 SCNCLR ; call system function4158 FE1F99 02 18 cop $184159 FE1F9B 01 .DB $014160 .MNLIST4161 FE1F9C A9 02 ?04: LDA #$024162 FE1F9E 18 CLC4163 FE1F9F 65 2D ADC $2D4164 FE1FA1 85 2D STA $2D4165 FE1FA3 90 02 BCC ?064166 FE1FA5 E6 2E INC $2E4167 FE1FA7 60 ?06: rts41684169 FE1FA8 PC0Dx:4170 FE1FA8 4C 4E 1B JMP vpme07 ; error: bad p-code41714172 PC14: ; $xxxx - $2BDF ; close file4173 FE1FAB 24 97 bit runf4174 FE1FAD 10 F9 bpl PC0Dx4175 FE1FAF B1 2D LDA ($2D),Y4176 FE1FB1 85 29 STA $294177 FE1FB3 C8 INY4178 FE1FB4 B1 2D LDA ($2D),Y4179 FE1FB6 85 2A STA $2A4180 FE1FB8 20 4B 32 JSR R0F8D4181 FE1FBB A5 B8 LDA $B84182 FE1FBD C9 FF CMP #$FFTue Jul 17 11:00:23 2018 Page 294183 FE1FBF F0 0F BEQ ?024184 FE1FC1 0A ASL a4185 FE1FC2 AA TAX4186 FE1FC3 A9 00 LDA #$004187 FE1FC5 9D D0 FF STA !MFILET,X4188 FE1FC8 9D D1 FF STA !MFILET+1,X4189 FE1FCB A5 B8 LDA $B84190 FE1FCD 20 C3 FF JSR FCLOSE4191 FE1FD0 4C 95 1E ?02: JMP SK0241924193 PC0E: ; $130C - $15974194 FE1FD3 B2 2D LDA ($2D)4195 FE1FD5 49 01 EOR #$014196 FE1FD7 92 2D STA ($2D)4197 FE1FD9 60 rts4198 FE1FDA4199 PC0F: ; $1315 - $15A04200 FE1FDA B1 2D LDA ($2D),Y4201 FE1FDC A0 02 LDY #$024202 FE1FDE D1 2D CMP ($2D),Y4203 FE1FE0 C8 INY4204 FE1FE1 B1 2D LDA ($2D),Y4205 FE1FE3 49 80 EOR #$804206 FE1FE5 85 27 STA $274207 FE1FE7 A0 01 LDY #$014208 FE1FE9 B1 2D LDA ($2D),Y4209 FE1FEB 49 80 EOR #$804210 FE1FED E5 27 SBC $274211 FE1FEF A0 03 LDY #$034212 FE1FF1 90 3B BCC PC11c4213 FE1FF3 B0 2C BCS PC11a42144215 PC10: ; $1330 - $15BB4216 FE1FF5 A0 02 LDY #$024217 FE1FF7 B1 2D LDA ($2D),Y4218 FE1FF9 A0 00 LDY #$004219 FE1FFB D1 2D CMP ($2D),Y4220 FE1FFD C8 INY4221 FE1FFE B1 2D LDA ($2D),Y4222 FE2000 49 80 EOR #$804223 FE2002 85 27 STA $274224 FE2004 A0 03 LDY #$034225 FE2006 B1 2D LDA ($2D),Y4226 FE2008 49 80 EOR #$804227 FE200A E5 27 SBC $274228 FE200C 90 20 BCC PC11c4229 FE200E B0 11 BCS PC11a42304231 PC11: ; $134B - $15D64232 FE2010 B1 2D LDA ($2D),Y4233 FE2012 A0 02 LDY #$024234 FE2014 D1 2D CMP ($2D),Y4235 FE2016 D0 15 BNE PC11b4236 FE2018 88 DEY4237 FE2019 B1 2D LDA ($2D),Y4238 FE201B A0 03 LDY #$034239 FE201D D1 2D CMP ($2D),YTue Jul 17 11:00:23 2018 Page 304240 FE201F D0 0D BNE PC11c4241 PC11a: ; $135C - $15E74242 FE2021 A9 00 LDA #$004243 FE2023 91 2D STA ($2D),Y4244 FE2025 88 DEY4245 FE2026 A9 01 LDA #$014246 FE2028 91 2D STA ($2D),Y4247 FE202A 4C 95 1E JMP SK024248 PC11b: ; $1368 - $15F34249 FE202D C8 INY4250 PC11c: ; $1369 - $15F44251 FE202E A9 00 LDA #$004252 FE2030 91 2D STA ($2D),Y4253 FE2032 88 DEY4254 FE2033 91 2D STA ($2D),Y4255 FE2035 4C 95 1E JMP SK0242564257 PC12: ; $1373 - $15FE4258 FE2038 20 49 20 JSR decstk4259 FE203B A0 03 LDY #$034260 FE203D B1 2D LDA ($2D),Y4261 FE203F A0 01 LDY #$014262 FE2041 91 2D STA ($2D),Y4263 FE2043 C8 INY4264 FE2044 B1 2D LDA ($2D),Y4265 FE2046 92 2D STA ($2D)4266 FE2048 60 rts42674268 decstk: ; $1836 - $1ABF4269 FE2049 A5 2D LDA $2D4270 FE204B 38 SEC4271 FE204C E9 02 SBC #$024272 FE204E 85 2D STA $2D4273 FE2050 B0 02 BCS ?024274 FE2052 C6 2E DEC $2E4275 FE2054 60 ?02: RTS42764277 PC13: ; $1388 - $16134278 FE2055 A0 11 LDY #$114279 FE2057 B1 2D LDA ($2D),Y4280 FE2059 D0 1E BNE ?044281 FE205B 88 DEY4282 FE205C B1 2D LDA ($2D),Y4283 FE205E 30 19 BMI ?044284 FE2060 AA TAX4285 FE2061 4A LSR a4286 FE2062 4A LSR a4287 FE2063 4A LSR a4288 FE2064 A8 TAY4289 FE2065 8A TXA4290 FE2066 29 07 AND #$074291 FE2068 AA TAX4292 FE2069 B1 2D LDA ($2D),Y4293 FE206B 6A ?02: ROR a4294 FE206C CA DEX4295 FE206D 10 FC BPL ?024296 FE206F 90 08 BCC ?04Tue Jul 17 11:00:23 2018 Page 314297 FE2071 A0 10 LDY #$104298 FE2073 A9 01 LDA #$014299 FE2075 91 2D STA ($2D),Y4300 FE2077 D0 09 BNE ?064301 FE2079 A0 10 ?04: LDY #$104302 FE207B A9 00 LDA #$004303 FE207D 91 2D STA ($2D),Y4304 FE207F C8 INY4305 FE2080 91 2D STA ($2D),Y4306 FE2082 ?06:4307 L13B5: ; $13B5 - $16404308 FE2082 A5 2D LDA $2D4309 FE2084 18 CLC4310 FE2085 69 10 ADC #$104311 FE2087 85 2D STA $2D4312 FE2089 90 02 BCC ?084313 FE208B E6 2E INC $2E4314 FE208D ?08:4315 FE208D 60 PCxx: rts43164317 PC15: ; $13C3 - $164E4318 FE208E 20 03 32 JSR L17624319 FE2091 20 76 32 JSR L0D1C4320 FE2094 4C CC FF JMP FCLRCH43214322 PC16: ; $13CF - $165A4323 FE2097 20 03 32 JSR L17624324 FE209A A5 23 LDA $234325 FE209C F0 EF BEQ PCxx4326 FE209E A2 01 LDX #$014327 FE20A0 20 34 33 JSR L0E694328 FE20A3 A5 21 LDA $214329 FE20A5 20 E3 32 JSR L0EC44330 FE20A8 4C CC FF JMP FCLRCH43314332 PC19: ; $1421 - $16AC4333 ; write CR to text file4334 FE20AB 84 3E STY $3E4335 FE20AD 20 85 30 JSR L17AD4336 FE20B0 20 25 32 JSR L0EA84337 FE20B3 A9 0D LDA #$0D4338 FE20B5 20 E3 32 JSR L0EC443394340 FE20B8 A5 9A lda dflto4341 FE20BA C9 03 cmp #$034342 FE20BC F0 05 beq ?024343 FE20BE A9 0A LDA #$0A4344 FE20C0 20 E3 32 JSR L0EC44345 FE20C3 ?02:4346 FE20C3 20 CC FF JSR FCLRCH4347 FE20C6 4C 95 1E JMP SK0243484349 PC1A: ; $1434 - $16BF4350 ; read integer from input text file4351 FE20C9 20 14 30 JSR L178B4352 FE20CC 20 1B 21 JSR L0DA54353 FE20CF 90 05 BCC ?02Tue Jul 17 11:00:23 2018 Page 324354 FE20D1 A2 02 LDX #$024355 FE20D3 20 C0 31 JSR L0FAA4356 FE20D6 ?02:4357 L1441: ; $1441 - $16CC4358 FE20D6 20 8F 30 JSR L17B74359 L1444: ; $1444 - $16CF4360 FE20D9 A5 21 LDA $214361 FE20DB A0 00 LDY #$004362 FE20DD 91 2D STA ($2D),Y4363 FE20DF C8 INY4364 FE20E0 A5 22 LDA $224365 FE20E2 91 2D STA ($2D),Y4366 FE20E4 4C CC FF JMP FCLRCH43674368 PC1B: ; $1455 - $16E04369 FE20E7 84 22 STY $224370 FE20E9 20 14 30 JSR L178B4371 FE20EC 85 21 STA $214372 FE20EE A0 00 LDY #$004373 FE20F0 B1 29 LDA ($29),Y4374 FE20F2 29 40 AND #$404375 FE20F4 D0 1B BNE L147F4376 FE20F6 20 71 31 ?02: JSR L0F2B4377 FE20F9 C9 0A CMP #$0A4378 FE20FB F0 F9 BEQ ?024379 FE20FD D0 D7 BNE L144143804381 ; redln4382 PC1C: ; $146D - $16F84383 FE20FF 20 14 30 JSR L178B4384 FE2102 A0 00 LDY #$004385 FE2104 B1 29 LDA ($29),Y4386 FE2106 29 40 AND #$404387 FE2108 D0 07 BNE L147F4388 FE210A 20 71 31 ?02: JSR L0F2B4389 FE210D C9 0D CMP #$0D4390 FE210F D0 F9 BNE ?024391 FE21114392 L147F: ; $147F - $170A4393 FE2111 A0 00 LDY #$004394 FE2113 B1 29 LDA ($29),Y4395 FE2115 09 02 ORA #$024396 FE2117 91 29 STA ($29),Y4397 FE2119 80 BE bra L144443984399 L0DA5: ; $0DA5 - $10304400 FE211B 80 03 bra ?044401 FE211D 20 71 31 ?02: JSR L0F2B4402 FE2120 C9 0D ?04: CMP #$0D4403 FE2122 F0 F9 BEQ ?024404 FE2124 C9 20 CMP #$204405 FE2126 F0 F5 BEQ ?024406 FE2128 C9 0A CMP #$0A4407 FE212A F0 F1 BEQ ?024408 FE212C A2 00 LDX #$004409 FE212E 86 21 STX $214410 FE2130 86 22 STX $22Tue Jul 17 11:00:23 2018 Page 334411 FE2132 C9 2D CMP #$2D ; minus sign4412 FE2134 08 PHP4413 FE2135 F0 04 BEQ ?064414 FE2137 C9 2B CMP #$2B4415 FE2139 D0 03 BNE ?08 ; plus sign4416 FE213B 20 71 31 ?06: JSR L0F2B4417 FE213E C9 3A ?08: CMP #$3A4418 FE2140 10 4A BPL ?184419 FE2142 38 SEC4420 FE2143 E9 30 SBC #$304421 FE2145 30 45 BMI ?184422 FE2147 48 ?10: PHA4423 FE2148 06 21 ASL $214424 FE214A 26 22 ROL $224425 FE214C A5 21 LDA $214426 FE214E A4 22 LDY $224427 FE2150 06 21 ASL $214428 FE2152 26 22 ROL $224429 FE2154 06 21 ASL $214430 FE2156 26 22 ROL $224431 FE2158 18 CLC4432 FE2159 65 21 ADC $214433 FE215B 85 21 STA $214434 FE215D 98 TYA4435 FE215E 65 22 ADC $224436 FE2160 85 22 STA $224437 FE2162 68 PLA4438 FE2163 18 CLC4439 FE2164 65 21 ADC $214440 FE2166 85 21 STA $214441 FE2168 90 02 BCC ?124442 FE216A E6 22 INC $224443 FE216C 20 71 31 ?12: JSR L0F2B4444 FE216F AA TAX4445 FE2170 C9 3A CMP #$3A4446 FE2172 10 05 BPL ?144447 FE2174 38 SEC4448 FE2175 E9 30 SBC #$304449 FE2177 10 CE BPL ?104450 FE2179 28 ?14: PLP4451 FE217A D0 0D BNE ?164452 FE217C 38 SEC4453 FE217D A9 00 LDA #$004454 FE217F E5 21 SBC $214455 FE2181 85 21 STA $214456 FE2183 A9 00 LDA #$004457 FE2185 E5 22 SBC $224458 FE2187 85 22 STA $224459 FE2189 8A ?16: TXA4460 FE218A 18 CLC4461 FE218B 60 RTS4462 FE218C 68 ?18: PLA4463 FE218D 8A TXA4464 FE218E 38 SEC4465 FE218F 60 RTS44664467 PC1D: ; $29C1 - $2FA3Tue Jul 17 11:00:23 2018 Page 344468 ; read a floating point number from text file4469 FE2190 20 14 30 JSR L178B4470 FE2193 A2 00 LDX #$004471 FE2195 86 3E STX $3E4472 FE2197 C9 20 ?02: CMP #$204473 FE2199 F0 08 BEQ ?044474 FE219B C9 0D CMP #$0D4475 FE219D F0 04 BEQ ?044476 FE219F C9 0A CMP #$0A4477 FE21A1 D0 08 BNE ?084478 FE21A3 20 71 31 ?04: JSR L0F2B4479 FE21A6 80 EF bra ?024480 FE21A8 20 71 31 ?06: JSR L0F2B4481 FE21AB ?08:4482 FE21AB 9D 5A FF ?10: STA !MNUMSTR,X ; buffer4483 FE21AE 85 27 STA $27 ; last char was read4484 FE21B0 E8 INX4485 FE21B1 E0 1F CPX #NUMSIZ-14486 FE21B3 F0 3D BEQ ?264487 FE21B5 C9 2E CMP #$2E4488 FE21B7 F0 EF BEQ ?064489 FE21B9 C9 45 CMP #'E'4490 FE21BB F0 EB BEQ ?064491 FE21BD C9 65 CMP #'e'4492 FE21BF F0 E7 BEQ ?064493 FE21C1 C9 2B CMP #$2B4494 FE21C3 F0 E3 BEQ ?064495 FE21C5 C9 2D CMP #$2D4496 FE21C7 F0 DF BEQ ?064497 FE21C9 C9 30 CMP #$304498 FE21CB 90 04 BCC ?124499 FE21CD C9 3A CMP #$3A4500 FE21CF 90 D7 BCC ?064501 FE21D1 CA ?12: DEX4502 FE21D2 F0 1E ?14: BEQ ?264503 FE21D4 A9 00 LDA #$004504 FE21D6 9D 5A FF STA !MNUMSTR,X4505 FE21D9 ACC164506 FE21D9 C2 20 rep #PMFLAG4507 .LONGA on4508 .MNLIST4509 FE21DB D4 7A pei ($7A)4510 FE21DD A9 5A FF LDA #MNUMSTR4511 FE21E0 85 7A STA $7A4512 FE21E2 ACC084513 FE21E2 E2 20 sep #PMFLAG4514 .LONGA off4515 .MNLIST4516 FE21E4 20 C6 98 JSR XBCF3P4517 FE21E7 AA TAX ; X = return code from conversion4518 FE21E8 ACC164519 FE21E8 C2 20 rep #PMFLAG4520 .LONGA on4521 .MNLIST4522 FE21EA 68 pla4523 FE21EB 85 7A STA $7A4524 FE21ED ACC08Tue Jul 17 11:00:23 2018 Page 354525 FE21ED E2 20 sep #PMFLAG4526 .LONGA off4527 .MNLIST4528 FE21EF 8A TXA4529 FE21F0 F0 05 BEQ ?284530 FE21F2 A2 0A ?26: LDX #$0A ; floating point read error4531 FE21F4 20 C0 31 JSR L0FAA4532 FE21F7 A5 2D ?28: LDA $2D4533 FE21F9 38 SEC4534 FE21FA E9 04 SBC #$044535 FE21FC 85 2D STA $2D4536 FE21FE B0 02 BCS ?304537 FE2200 C6 2E DEC $2E4538 FE2202 A4 2E ?30: LDY $2E4539 FE2204 AA TAX4540 FE2205 20 92 97 JSR XBBD44541 FE2208 A5 27 LDA $274542 FE220A 20 8F 30 JSR L17B74543 FE220D 4C CC FF JMP FCLRCH45444545 PC1E: ; $2825 - $2E074546 ; write float number to text file - float point format4547 FE2210 B1 2D LDA ($2D),Y4548 FE2212 30 02 BMI ?024549 FE2214 D0 02 BNE ?044550 FE2216 A9 01 ?02: LDA #$014551 FE2218 48 ?04: PHA4552 FE2219 A0 0A LDY #$0A4553 FE221B 20 85 30 JSR L17AD4554 FE221E 20 25 32 JSR L0EA84555 FE2221 A5 2D LDA $2D4556 FE2223 18 CLC4557 FE2224 69 04 ADC #$044558 FE2226 A4 2E LDY $2E4559 FE2228 90 01 BCC ?064560 FE222A C8 INY4561 FE222B 20 33 97 ?06: JSR XBBA24562 FE222E A5 66 LDA $664563 FE2230 48 PHA4564 FE2231 20 EC 22 JSR L28914565 FE2234 68 PLA4566 FE2235 85 66 STA $664567 FE2237 68 PLA4568 FE2238 85 25 STA $254569 FE223A 18 CLC4570 FE223B 65 48 ADC tmpv24571 FE223D 30 02 BMI ?084572 FE223F D0 02 BNE ?104573 FE2241 A9 01 ?08: LDA #$014574 FE2243 85 23 ?10: STA $234575 FE2245 20 55 23 JSR L290B4576 FE2248 90 02 BCC ?124577 FE224A E6 48 INC tmpv24578 FE224C A5 48 ?12: LDA tmpv24579 FE224E 85 23 STA $234580 FE2250 C9 01 CMP #$014581 FE2252 10 02 BPL ?14Tue Jul 17 11:00:23 2018 Page 364582 FE2254 A9 01 LDA #$014583 FE2256 18 ?14: CLC4584 FE2257 65 25 ADC $254585 FE2259 69 02 ADC #$024586 FE225B A0 02 LDY #$024587 FE225D 38 SEC4588 FE225E F1 2D SBC ($2D),Y4589 FE2260 AA TAX4590 FE2261 10 08 BPL ?184591 FE2263 A9 20 LDA #$204592 FE2265 20 E3 32 ?16: JSR L0EC44593 FE2268 E8 INX4594 FE2269 D0 FA BNE ?164595 FE226B 20 2A 33 ?18: JSR L29B64596 FE226E 20 92 23 JSR L29484597 FE2271 20 CC FF JSR FCLRCH4598 FE2274 A9 0C LDA #$0C4599 FE2276 4C 7B 27 JMP L155E46004601 PC1F: ; $27AC - $2D8E4602 ; write float number to text file - exponential format4603 FE2279 B1 2D LDA ($2D),Y4604 FE227B 48 PHA4605 FE227C A5 2D LDA $2D4606 FE227E 18 CLC4607 FE227F 69 02 ADC #$024608 FE2281 A4 2E LDY $2E4609 FE2283 90 01 BCC ?024610 FE2285 C8 INY4611 FE2286 20 33 97 ?02: JSR XBBA24612 FE2289 A0 08 LDY #$084613 FE228B 20 85 30 JSR L17AD4614 FE228E 20 25 32 JSR L0EA84615 FE2291 20 2A 33 JSR L29B64616 FE2294 20 EC 22 JSR L28914617 FE2297 68 PLA4618 FE2298 38 SEC4619 FE2299 E9 06 SBC #$064620 FE229B C9 02 CMP #$024621 FE229D 10 02 BPL ?044622 FE229F A9 02 LDA #$024623 FE22A1 85 23 ?04: STA $234624 FE22A3 85 25 STA $254625 FE22A5 20 55 23 JSR L290B4626 FE22A8 90 02 BCC ?064627 FE22AA E6 48 INC tmpv24628 FE22AC C6 25 ?06: DEC $254629 FE22AE A9 01 LDA #$014630 FE22B0 85 23 STA $234631 FE22B2 20 92 23 JSR L29484632 FE22B5 A9 45 LDA #$454633 FE22B7 20 E3 32 JSR L0EC44634 FE22BA C6 48 DEC tmpv24635 FE22BC A9 2B LDA #$2B4636 FE22BE 24 48 BIT tmpv24637 FE22C0 10 09 BPL ?084638 FE22C2 A9 00 LDA #$00Tue Jul 17 11:00:23 2018 Page 374639 FE22C4 38 SEC4640 FE22C5 E5 48 SBC tmpv24641 FE22C7 85 48 STA tmpv24642 FE22C9 A9 2D LDA #$2D4643 FE22CB 20 E3 32 ?08: JSR L0EC44644 FE22CE A2 2F LDX #$2F4645 FE22D0 A5 48 LDA tmpv24646 FE22D2 E8 ?10: INX4647 FE22D3 38 SEC4648 FE22D4 E9 0A SBC #$0A4649 FE22D6 10 FA BPL ?104650 FE22D8 48 PHA4651 FE22D9 8A TXA4652 FE22DA 20 E3 32 JSR L0EC44653 FE22DD 68 PLA4654 FE22DE 18 CLC4655 FE22DF 69 3A ADC #$3A4656 FE22E1 20 E3 32 JSR L0EC44657 FE22E4 20 CC FF JSR FCLRCH4658 FE22E7 A9 0A LDA #$0A4659 FE22E9 4C 7B 27 JMP L155E46604661 L2891: ; $2891 - $2E734662 FE22EC A9 00 LDA #$004663 FE22EE 85 48 STA tmpv24664 FE22F0 A5 61 ?02: LDA $614665 FE22F2 F0 16 BEQ ?064666 FE22F4 30 07 BMI ?044667 FE22F6 20 6A 96 JSR XBAE2 ; mult * 104668 FE22F9 C6 48 DEC tmpv24669 FE22FB 80 F3 bra ?024670 FE22FD A5 61 ?04: LDA $614671 FE22FF C9 81 CMP #$814672 FE2301 90 07 BCC ?064673 FE2303 20 81 96 JSR XBAFE ; div / 104674 FE2306 E6 48 INC tmpv24675 FE2308 80 F3 bra ?044676 FE230A ?06:4677 FE230A A5 61 ?07: LDA $614678 FE230C 30 0C BMI ?084679 FE230E 46 62 LSR $624680 FE2310 66 63 ROR $634681 FE2312 66 64 ROR $644682 FE2314 66 65 ROR $654683 FE2316 E6 61 INC $614684 FE2318 10 F0 BPL ?074685 FE231A A2 09 ?08: LDX #$094686 FE231C A9 00 LDA #$004687 FE231E 9D 5A FF ?10: STA !MNUMSTR,X4688 FE2321 CA DEX4689 FE2322 10 FA BPL ?104690 FE2324 A0 20 LDY #$204691 FE2326 A2 00 ?12: LDX #$004692 FE2328 5E 5A FF ?14: LSR !MNUMSTR,X4693 FE232B E8 INX4694 FE232C 08 PHP4695 FE232D E0 0A CPX #$0ATue Jul 17 11:00:23 2018 Page 384696 FE232F F0 0D BEQ ?164697 FE2331 28 PLP4698 FE2332 90 F4 BCC ?144699 FE2334 BD 5A FF LDA !MNUMSTR,X4700 FE2337 69 09 ADC #$094701 FE2339 9D 5A FF STA !MNUMSTR,X4702 FE233C D0 EA BNE ?144703 FE233E 28 ?16: PLP4704 FE233F 46 62 LSR $624705 FE2341 66 63 ROR $634706 FE2343 66 64 ROR $644707 FE2345 66 65 ROR $654708 FE2347 90 08 BCC ?184709 FE2349 AD 5A FF LDA !MNUMSTR4710 FE234C 69 04 ADC #$044711 FE234E 8D 5A FF STA !MNUMSTR4712 FE2351 88 ?18: DEY4713 FE2352 D0 D2 BNE ?124714 FE2354 60 RTS4715 FE23554716 L290B: ; $290B - $2EED4717 FE2355 A5 23 LDA $234718 FE2357 30 25 BMI ?064719 FE2359 F0 23 BEQ ?064720 FE235B C9 0A CMP #$0A4721 FE235D B0 1F BCS ?064722 FE235F AA TAX4723 FE2360 BD 5A FF LDA !MNUMSTR,X4724 FE2363 18 CLC4725 FE2364 69 05 ADC #$054726 FE2366 9D 5A FF STA !MNUMSTR,X4727 FE2369 BD 5A FF ?02: LDA !MNUMSTR,X4728 FE236C 38 SEC4729 FE236D E9 0A SBC #$0A4730 FE236F 30 0A BMI ?044731 FE2371 9D 5A FF STA !MNUMSTR,X4732 FE2374 CA DEX4733 FE2375 30 09 BMI ?104734 FE2377 FE 5A FF INC !MNUMSTR,X4735 FE237A E8 INX4736 FE237B CA ?04: DEX4737 FE237C 10 EB BPL ?024738 FE237E 18 ?06: CLC4739 FE237F 60 ?08: RTS4740 FE2380 A6 23 ?10: LDX $234741 FE2382 38 ?12: SEC4742 FE2383 A9 01 LDA #$014743 FE2385 CA DEX4744 FE2386 30 F7 BMI ?084745 FE2388 F0 03 BEQ ?144746 FE238A BD 59 FF LDA !MNUMSTR-1,X4747 FE238D 9D 5A FF ?14: STA !MNUMSTR,X4748 FE2390 B0 F0 BCS ?12 ; here always CF = 147494750 L2948: ; $2948 - $2F2A4751 FE2392 A2 00 LDX #$004752 FE2394 A5 23 LDA $23Tue Jul 17 11:00:23 2018 Page 394753 FE2396 F0 1D BEQ ?064754 FE2398 30 1B BMI ?064755 FE239A A9 00 ?02: LDA #$004756 FE239C E0 0A CPX #$0A4757 FE239E F0 04 BEQ ?044758 FE23A0 BD 5A FF LDA !MNUMSTR,X ; buffer4759 FE23A3 E8 INX4760 FE23A4 18 ?04: CLC4761 FE23A5 69 30 ADC #$304762 FE23A7 20 E3 32 JSR L0EC44763 FE23AA C6 23 DEC $234764 FE23AC D0 EC BNE ?024765 FE23AE A9 2E LDA #$2E4766 FE23B0 20 E3 32 JSR L0EC44767 FE23B3 80 31 bra ?124768 FE23B5 A9 30 ?06: LDA #$304769 FE23B7 20 E3 32 JSR L0EC44770 FE23BA A9 2E LDA #$2E4771 FE23BC 20 E3 32 JSR L0EC44772 FE23BF A9 00 LDA #$004773 FE23C1 38 SEC4774 FE23C2 E5 23 SBC $234775 FE23C4 85 23 STA $234776 FE23C6 F0 1E BEQ ?124777 FE23C8 A5 25 LDA $254778 FE23CA 38 SEC4779 FE23CB E5 23 SBC $234780 FE23CD C9 01 CMP #$014781 FE23CF 10 06 BPL ?084782 FE23D1 A5 25 LDA $254783 FE23D3 85 23 STA $234784 FE23D5 A9 00 LDA #$004785 FE23D7 85 25 ?08: STA $254786 FE23D9 A5 23 LDA $234787 FE23DB F0 09 BEQ ?124788 FE23DD A9 30 LDA #$304789 FE23DF 20 E3 32 ?10: JSR L0EC44790 FE23E2 C6 23 DEC $234791 FE23E4 D0 F9 BNE ?104792 FE23E6 A5 25 ?12: LDA $254793 FE23E8 F0 14 BEQ ?184794 FE23EA A9 00 ?14: LDA #$004795 FE23EC E0 0A CPX #$0A4796 FE23EE F0 04 BEQ ?164797 FE23F0 BD 5A FF LDA !MNUMSTR,X ; buffer4798 FE23F3 E8 INX4799 FE23F4 18 ?16: CLC4800 FE23F5 69 30 ADC #$304801 FE23F7 20 E3 32 JSR L0EC44802 FE23FA C6 25 DEC $254803 FE23FC D0 EC BNE ?144804 FE23FE 60 ?18: RTS48054806 PC20: ; $2AC1 - $30A34807 FE23FF 20 62 24 JSR L2B264808 FE2402 A0 04 LDY #$044809 L2AC6: ; $2AC6 - $30A8Tue Jul 17 11:00:23 2018 Page 404810 FE2404 B1 2D LDA ($2D),Y4811 FE2406 85 27 STA $274812 FE2408 C8 INY4813 FE2409 B1 2D LDA ($2D),Y4814 FE240B 85 28 STA $284815 FE240D 85 23 STA $234816 FE240F 10 0D BPL ?024817 FE2411 A9 00 LDA #$004818 FE2413 38 SEC4819 FE2414 E5 27 SBC $274820 FE2416 85 27 STA $274821 FE2418 A9 00 LDA #$004822 FE241A E5 28 SBC $284823 FE241C 85 28 STA $284824 FE241E A9 00 ?02: LDA #$004825 FE2420 88 DEY4826 FE2421 91 2D STA ($2D),Y4827 FE2423 88 DEY4828 FE2424 91 2D STA ($2D),Y4829 FE2426 A2 90 LDX #$904830 FE2428 24 28 ?04: BIT $284831 FE242A 30 09 BMI ?064832 FE242C 06 27 ASL $274833 FE242E 26 28 ROL $284834 FE2430 CA DEX4835 FE2431 30 F5 BMI ?044836 FE2433 A2 00 LDX #$004837 FE2435 88 ?06: DEY4838 FE2436 A5 27 LDA $274839 FE2438 91 2D STA ($2D),Y4840 FE243A A5 28 LDA $284841 FE243C 24 23 BIT $234842 FE243E 30 02 BMI ?084843 FE2440 29 7F AND #$7F4844 FE2442 88 ?08: DEY4845 FE2443 91 2D STA ($2D),Y4846 FE2445 8A TXA4847 FE2446 88 DEY4848 FE2447 91 2D STA ($2D),Y4849 FE2449 60 rts48504851 PC21: ; $2B0E - $30F04852 FE244A 20 62 24 JSR L2B264853 FE244D C8 ?01: INY4854 FE244E C8 INY4855 FE244F C8 INY4856 FE2450 C8 INY4857 FE2451 B1 2D LDA ($2D),Y4858 FE2453 88 DEY4859 FE2454 88 DEY4860 FE2455 88 DEY4861 FE2456 88 DEY4862 FE2457 91 2D STA ($2D),Y4863 FE2459 C8 INY4864 FE245A C0 06 CPY #$064865 FE245C D0 EF BNE ?014866 FE245E A0 0A LDY #$0ATue Jul 17 11:00:23 2018 Page 414867 FE2460 D0 A2 BNE L2AC648684869 L2B26: ; $2B26 - $31084870 FE2462 A5 2D LDA $2D4871 FE2464 38 SEC4872 FE2465 E9 04 SBC #$044873 FE2467 85 2D STA $2D4874 FE2469 B0 02 BCS ?014875 FE246B C6 2E DEC $2E4876 FE246D 60 ?01: RTS48774878 PC22: ; $2B90 - $31724879 FE246E 20 FE 24 JSR L2BA84880 FE2471 20 0D 25 JSR L2C0C4881 FE2474 20 0C 94 JSR XB86A4882 FE2477 80 20 bra L2BF348834884 PC23: ; $2B9C - $317E4885 FE2479 20 FE 24 JSR L2BA84886 FE247C 20 0D 25 JSR L2C0C4887 FE247F 20 F6 93 JSR XB8534888 FE2482 80 15 bra L2BF348894890 PC24: ; $2BDE - $31C04891 FE2484 A0 00 LDY #$004892 FE2486 B1 2D LDA ($2D),Y4893 FE2488 49 80 EOR #$804894 FE248A 30 07 BMI ?024895 FE248C 38 SEC4896 FE248D A0 06 LDY #$064897 FE248F 71 2D ADC ($2D),Y4898 FE2491 B0 32 BCS er094899 FE2493 20 0D 25 ?02: JSR L2C0C4900 FE2496 20 E2 95 JSR XBA2B4901 L2BF3: ; $2BF3 - $31D54902 FE2499 A5 2D LDA $2D4903 FE249B 18 CLC4904 FE249C 69 06 ADC #$064905 FE249E 85 2D STA $2D4906 FE24A0 90 02 BCC ?024907 FE24A2 E6 2E INC $2E4908 FE24A4 A4 2E ?02: LDY $2E4909 FE24A6 AA TAX4910 FE24A7 4C 92 97 JMP XBBD449114912 PC25: ; $2BB7 - $31994913 FE24AA B1 2D LDA ($2D),Y4914 FE24AC F0 17 BEQ er094915 FE24AE A0 06 LDY #$064916 FE24B0 B1 2D LDA ($2D),Y4917 FE24B2 A0 00 LDY #$004918 FE24B4 38 SEC4919 FE24B5 F1 2D SBC ($2D),Y4920 FE24B7 90 04 BCC ?024921 FE24B9 69 81 ADC #$814922 FE24BB B0 08 BCS er094923 FE24BD 20 0D 25 ?02: JSR L2C0CTue Jul 17 11:00:23 2018 Page 424924 FE24C0 20 94 96 JSR XBB124925 FE24C3 80 D4 bra L2BF349264927 FE24C5 er09:4928 FE24C5 A2 09 LDX #$09 ; floating point overflow4929 FE24C7 4C 50 1B JMP vpmerr49304931 PC26: ; $2C41 - $32234932 FE24CA 20 21 25 JSR L2C4A4933 FE24CD C9 FF CMP #$FF4934 FE24CF F0 10 BEQ L2C254935 FE24D1 D0 12 BNE L2C2849364937 PC27: ; $2C38 - $321A4938 FE24D3 20 21 25 JSR L2C4A4939 FE24D6 C9 01 CMP #$014940 FE24D8 F0 07 BEQ L2C254941 FE24DA D0 09 BNE L2C2849424943 PC28: ; $2C20 - $32024944 FE24DC 20 21 25 JSR L2C4A4945 FE24DF F0 04 BEQ L2C284946 L2C25: ; $2C25 - $32074947 FE24E1 A9 00 LDA #$004948 FE24E3 80 02 bra L2C2A4949 L2C28: ; $2C28 - $320A4950 FE24E5 A9 01 lda #$014951 FE24E7 L2C2A:4952 FE24E7 A0 0A LDY #$0A4953 FE24E9 91 2D STA ($2D),Y4954 FE24EB C8 INY4955 FE24EC A9 00 LDA #$004956 FE24EE 91 2D STA ($2D),Y4957 FE24F0 A9 0A LDA #$0A4958 FE24F2 4C 7B 27 JMP L155E49594960 PC29: ; $2BD3 - $31B54961 FE24F5 A0 01 LDY #$014962 FE24F7 B1 2D LDA ($2D),Y4963 FE24F9 49 80 EOR #$804964 FE24FB 91 2D STA ($2D),Y4965 FE24FD 60 rts49664967 L2BA8: ; $2BA8 - $318A4968 FE24FE B1 2D LDA ($2D),Y4969 FE2500 C9 FF CMP #$FF4970 FE2502 F0 C1 BEQ er094971 FE2504 A0 06 LDY #$064972 FE2506 B1 2D LDA ($2D),Y4973 FE2508 C9 FF CMP #$FF4974 FE250A F0 B9 BEQ er094975 FE250C 60 RTS49764977 L2C0C: ; $2C0C - $31EE4978 FE250D A5 2D LDA $2D4979 FE250F A4 2E LDY $2E4980 FE2511 20 33 97 JSR XBBA2Tue Jul 17 11:00:23 2018 Page 434981 FE2514 A5 2D LDA $2D4982 FE2516 A4 2E LDY $2E4983 FE2518 18 CLC4984 FE2519 69 06 ADC #$064985 FE251B 90 01 BCC ?024986 FE251D C8 INY4987 FE251E 4C 8D 93 ?02: JMP XBA8C49884989 L2C4A: ; $2C4A - $322C4990 FE2521 A5 2D LDA $2D4991 FE2523 18 CLC4992 FE2524 69 06 ADC #$064993 FE2526 A4 2E LDY $2E4994 FE2528 90 01 BCC ?014995 FE252A C8 INY4996 FE252B 20 33 97 ?01: JSR XBBA24997 FE252E A5 2D LDA $2D4998 FE2530 A4 2E LDY $2E4999 FE2532 4C 1B 98 JMP XBC5B50005001 PC3A: ; $175B - $19E65002 FE2535 20 62 30 JSR L17A35003 FE2538 A9 80 LDA #$805004 FE253A D0 05 BNE L174950055006 PC2A: ; $1744 - $19CF5007 FE253C 20 62 30 JSR L17A35008 FE253F A9 40 LDA #$405009 L1749: ; $1749 - $19D45010 FE2541 A0 00 LDY #$005011 FE2543 32 29 AND ($29)5012 FE2545 F0 02 BEQ ?025013 FE2547 A9 01 LDA #$015014 FE2549 92 2D ?02: STA ($2D)5015 FE254B A9 00 LDA #$005016 FE254D C8 INY5017 FE254E 91 2D STA ($2D),Y5018 FE2550 60 rts50195020 PC2B: ; $2B32 - $31145021 FE2551 A5 2D LDA $2D5022 FE2553 A4 2E LDY $2E5023 FE2555 20 33 97 JSR XBBA25024 FE2558 A5 2D LDA $2D5025 FE255A 38 SEC5026 FE255B E9 06 SBC #$065027 FE255D 85 2D STA $2D5028 FE255F B0 02 BCS ?025029 FE2561 C6 2E DEC $2E5030 FE2563 A4 2E ?02: LDY $2E5031 FE2565 AA TAX5032 FE2566 4C 92 97 JMP XBBD450335034 PC2C: ; $2B4D - $312F5035 FE2569 B1 2D LDA ($2D),Y5036 FE256B 38 SEC5037 FE256C E9 06 SBC #$06Tue Jul 17 11:00:23 2018 Page 445038 FE256E AA TAX5039 FE256F C8 INY5040 FE2570 B1 2D LDA ($2D),Y5041 FE2572 E9 00 SBC #$005042 FE2574 A8 TAY5043 FE2575 8A TXA5044 FE2576 20 33 97 JSR XBBA25045 FE2579 20 62 24 JSR L2B265046 FE257C A6 2D LDX $2D5047 FE257E A4 2E LDY $2E5048 FE2580 4C 92 97 JMP XBBD450495050 PC2D: ; $2B6A - $314C5051 FE2583 A5 2D LDA $2D5052 FE2585 A4 2E LDY $2E5053 FE2587 20 33 97 JSR XBBA25054 FE258A A0 06 LDY #$065055 FE258C B1 2D LDA ($2D),Y5056 FE258E 38 SEC5057 FE258F E9 06 SBC #$065058 FE2591 AA TAX5059 FE2592 C8 INY5060 FE2593 B1 2D LDA ($2D),Y5061 FE2595 E9 00 SBC #$005062 FE2597 A8 TAY5063 FE2598 20 92 97 JSR XBBD45064 FE259B A9 08 LDA #$085065 FE259D 18 CLC5066 FE259E 65 2D ADC $2D5067 FE25A0 85 2D STA $2D5068 FE25A2 90 02 BCC ?025069 FE25A4 E6 2E INC $2E5070 FE25A6 60 ?02: rts50715072 PC2E: ; $14B1 - $173C5073 ; clear set variable (16 bytes)5074 FE25A7 38 SEC5075 FE25A8 A5 2D LDA $2D5076 FE25AA E9 10 SBC #$105077 FE25AC 85 2D STA $2D5078 FE25AE B0 02 BCS ?015079 FE25B0 C6 2E DEC $2E5080 FE25B2 A0 0F ?01: LDY #$0F5081 FE25B4 A9 00 LDA #$005082 FE25B6 91 2D ?02: STA ($2D),Y5083 FE25B8 88 DEY5084 FE25B9 10 FB BPL ?025085 FE25BB 60 rts50865087 PC2F: ; $14C8 - $17535088 FE25BC B1 2D LDA ($2D),Y5089 FE25BE 85 21 STA $215090 FE25C0 C8 INY5091 FE25C1 B1 2D LDA ($2D),Y5092 FE25C3 85 22 STA $225093 FE25C5 20 CB 25 JSR L15065094 FE25C8 4C 95 1E JMP SK02Tue Jul 17 11:00:23 2018 Page 455095 FE25CB5096 L1506: ; $1506 - $17915097 FE25CB A5 22 LDA $225098 FE25CD D0 1B BNE ?04 ; error5099 FE25CF A5 21 LDA $215100 FE25D1 30 17 BMI ?04 ; error5101 FE25D3 4A LSR a5102 FE25D4 4A LSR a5103 FE25D5 4A LSR a5104 FE25D6 A8 TAY5105 FE25D7 C8 INY5106 FE25D8 C8 INY5107 FE25D9 A5 21 LDA $215108 FE25DB 29 07 AND #$075109 FE25DD AA TAX5110 FE25DE A9 00 LDA #$005111 FE25E0 38 SEC5112 FE25E1 2A ?02: ROL a5113 FE25E2 CA DEX5114 FE25E3 10 FC BPL ?025115 FE25E5 11 2D ORA ($2D),Y5116 FE25E7 91 2D STA ($2D),Y5117 FE25E9 60 RTS5118 FE25EA A2 08 ?04: LDX #$08 ; error: set value error5119 FE25EC 4C 50 1B JMP vpmerr51205121 PC30: ; $14D7 - $17625122 ; set variable5123 FE25EF B2 2D LDA ($2D)5124 FE25F1 85 23 STA $235125 FE25F3 ACC165126 FE25F3 C2 20 rep #PMFLAG5127 .LONGA on5128 .MNLIST5129 FE25F5 A0 02 LDY #$025130 FE25F7 B1 2D LDA ($2D),Y5131 FE25F9 85 21 STA $215132 FE25FB C8 INY5133 FE25FC A5 2D LDA $2D5134 FE25FE 1A inc a5135 FE25FF 1A inc a5136 FE2600 85 2D STA $2D5137 FE2602 ACC085138 FE2602 E2 20 sep #PMFLAG5139 .LONGA off5140 .MNLIST5141 FE2604 A5 23 ?02: LDA $235142 FE2606 C5 21 CMP $215143 FE2608 90 0B BCC ?045144 FE260A 20 CB 25 JSR L15065145 FE260D E6 21 INC $215146 FE260F D0 F3 BNE ?025147 FE2611 E6 22 INC $225148 FE2613 80 EF bra ?025149 FE2615 4C 95 1E ?04: jmp SK0251505151 PC31: ; $152A - $17B5Tue Jul 17 11:00:23 2018 Page 465152 ; operator 'or' for set variable5153 FE2618 B1 2D LDA ($2D),Y5154 FE261A 99 C0 FF STA MMSET,Y ; (16 bytes)5155 FE261D C8 INY5156 FE261E C0 10 CPY #$105157 FE2620 D0 F6 BNE PC315158 FE2622 B1 2D ?02: LDA ($2D),Y5159 FE2624 19 B0 FF ORA MMSET-16,Y5160 FE2627 91 2D STA ($2D),Y5161 FE2629 C8 INY5162 FE262A C0 20 CPY #$205163 FE262C D0 F4 BNE ?025164 FE262E 4C 82 20 JMP L13B551655166 PC32: ; $xxxx - $29E25167 FE2631 24 97 bit runf5168 FE2633 10 69 bpl PC32x5169 FE2635 20 57 27 JSR R29D75170 FE2638 B9 B0 FF ?02: LDA MMSET-16,Y5171 FE263B 49 FF EOR #$FF5172 FE263D 31 2D AND ($2D),Y5173 FE263F 91 2D STA ($2D),Y5174 FE2641 C8 INY5175 FE2642 C0 20 CPY #$205176 FE2644 D0 F2 BNE ?025177 FE2646 F0 13 BEQ R2A0451785179 PC33: ; $xxxx - $29F55180 FE2648 24 97 bit runf5181 FE264A 10 52 bpl PC32x5182 FE264C 20 57 27 JSR R29D75183 FE264F B9 B0 FF ?02: LDA MMSET-16,Y5184 FE2652 31 2D AND ($2D),Y5185 FE2654 91 2D STA ($2D),Y5186 FE2656 C8 INY5187 FE2657 C0 20 CPY #$205188 FE2659 D0 F4 BNE ?025189 FE265B R2A04:5190 FE265B A9 10 LDA #$105191 FE265D 4C 7B 27 JMP R17E95192 FE26605193 PC34: ; $xxxx - $298F5194 FE2660 24 97 bit runf5195 FE2662 10 3A bpl PC32x5196 FE2664 20 57 27 JSR R29D75197 FE2667 B1 2D ?02: LDA ($2D),Y5198 FE2669 D9 B0 FF CMP MMSET-16,Y5199 FE266C D0 09 BNE R29A15200 FE266E C8 INY5201 FE266F C0 20 CPY #$205202 FE2671 D0 F4 BNE ?025203 FE2673 A9 01 R299E: LDA #$015204 FE2675 80 02 bra R29A35205 FE2677 A9 00 R29A1: lda #$005206 FE2679 A0 1E R29A3: LDY #$1E5207 FE267B 91 2D STA ($2D),Y5208 FE267D A9 00 LDA #$00Tue Jul 17 11:00:23 2018 Page 475209 FE267F C8 INY5210 FE2680 91 2D STA ($2D),Y5211 FE2682 A9 1E LDA #$1E5212 FE2684 4C 7B 27 JMP R17E952135214 PC35: ; $xxxx - $29C45215 FE2687 24 97 bit runf5216 FE2689 10 13 bpl PC32x5217 FE268B 20 57 27 JSR R29D75218 FE268E B9 B0 FF ?02: LDA MMSET-16,Y5219 FE2691 49 FF EOR #$FF5220 FE2693 31 2D AND ($2D),Y5221 FE2695 D0 E0 BNE R29A15222 FE2697 C8 INY5223 FE2698 C0 20 CPY #$205224 FE269A D0 F2 BNE ?025225 FE269C F0 D5 BEQ R299E52265227 FE269E PC32x:5228 FE269E 4C 4E 1B JMP vpme07 ; error: bad p-code52295230 PC36: ; $xxxx - $29B15231 FE26A1 24 97 bit runf5232 FE26A3 10 F9 bpl PC32x5233 FE26A5 20 57 27 JSR R29D75234 FE26A8 B1 2D ?02: LDA ($2D),Y5235 FE26AA 49 FF EOR #$FF5236 FE26AC 39 B0 FF AND MMSET-16,Y5237 FE26AF D0 C6 BNE R29A15238 FE26B1 C8 INY5239 FE26B2 C0 20 CPY #$205240 FE26B4 D0 F2 BNE ?025241 FE26B6 F0 BB BEQ R299E52425243 PC3C: ; $xxxx - $2B475244 ; 'reset' for generic device5245 FE26B8 24 97 bit runf5246 FE26BA 10 E2 bpl PC32x ; error if compiler5247 FE26BC 20 FA 26 JSR R2B84 ; open device5248 FE26BF A0 03 LDY #$035249 FE26C1 B1 2D LDA ($2D),Y ; high byte of secondary address5250 FE26C3 D0 04 BNE ?025251 FE26C5 A9 A0 LDA #$A05252 FE26C7 80 02 bra ?045253 FE26C9 A9 A4 ?02: lda #$A45254 FE26CB 92 29 ?04: STA ($29)5255 FE26CD R2B59:5256 FE26CD A5 2D LDA $2D5257 FE26CF 18 CLC5258 FE26D0 69 08 ADC #$085259 FE26D2 85 2D STA $2D5260 FE26D4 90 02 BCC ?025261 FE26D6 E6 2E INC $2E5262 FE26D8 60 ?02: rts52635264 PC3D: ; $xxxx - $2B675265 ; 'rewrite' for generic deviceTue Jul 17 11:00:23 2018 Page 485266 FE26D9 24 97 bit runf5267 FE26DB 10 C1 bpl PC32x ; error if compiler5268 FE26DD 20 FA 26 JSR R2B84 ; open device5269 FE26E0 38 SEC5270 FE26E1 A5 29 LDA $295271 FE26E3 E9 02 SBC #$025272 FE26E5 85 29 STA $295273 FE26E7 B0 02 BCS ?025274 FE26E9 C6 2A DEC $2A5275 FE26EB A0 00 ?02: LDY #$005276 FE26ED A9 20 LDA #$205277 FE26EF 91 29 STA ($29),Y5278 FE26F1 98 TYA5279 FE26F2 C8 INY5280 FE26F3 91 29 STA ($29),Y5281 FE26F5 C8 INY5282 FE26F6 91 29 STA ($29),Y5283 FE26F8 80 D3 bra R2B59 ; branch always52845285 R2B84: ; $xxxx - $2BB45286 ; setup params for generic device (rewrite or reset)5287 FE26FA 64 3E STZ $3E5288 FE26FC B1 2D LDA ($2D),Y ; offset 0: file name address5289 FE26FE 85 BB STA $BB5290 FE2700 C8 INY5291 FE2701 B1 2D LDA ($2D),Y5292 FE2703 85 BC STA $BC5293 FE2705 A5 A1 lda tbnk5294 FE2707 85 BD sta $BD5295 FE2709 C8 INY5296 FE270A B1 2D LDA ($2D),Y ; offset 2: secondary address5297 FE270C 85 B9 STA $B95298 FE270E A0 04 LDY #$045299 FE2710 B1 2D LDA ($2D),Y ; offset 4: # device5300 FE2712 85 BA STA $BA5301 FE2714 A0 06 LDY #$065302 FE2716 B1 2D LDA ($2D),Y ; offset 6: file desc. ptr5303 FE2718 38 SEC5304 FE2719 E9 03 SBC #$035305 FE271B 91 2D STA ($2D),Y5306 FE271D 85 29 STA $295307 FE271F C8 INY5308 FE2720 B1 2D LDA ($2D),Y5309 FE2722 E9 00 SBC #$005310 FE2724 91 2D STA ($2D),Y5311 FE2726 85 2A STA $2A5312 FE2728 A0 02 LDY #$025313 FE272A 91 29 STA ($29),Y5314 FE272C 88 DEY5315 FE272D A5 29 LDA $295316 FE272F 91 29 STA ($29),Y5317 FE2731 20 4B 32 JSR R0F8D ; search file5318 FE2734 A5 B8 LDA $B85319 FE2736 30 05 BMI ?02 ; not found5320 FE2738 20 C3 FF JSR FCLOSE5321 FE273B 80 03 bra ?045322 FE273D 20 CE 31 ?02: JSR R0F69 ; open internal logic fileTue Jul 17 11:00:23 2018 Page 495323 FE2740 A5 3E ?04: LDA $3E5324 FE2742 D0 1D BNE R29D7x ; if any error5325 FE2744 A5 BB LDA $BB5326 FE2746 05 BC ORA $BC5327 FE2748 F0 08 BEQ ?08 ; if no filename5328 FE274A A0 00 LDY #$005329 FE274C C8 ?06: INY5330 FE274D B7 BB LDA [$BB],Y5331 FE274F D0 FB BNE ?065332 FE2751 98 TYA5333 FE2752 85 B7 ?08: STA $B75334 FE2754 4C C0 FF JMP FOPEN53355336 R29D7: ; $xxxx - $29D75337 FE2757 B1 2D LDA ($2D),Y5338 FE2759 99 C0 FF STA MMSET,Y5339 FE275C C8 INY5340 FE275D C0 10 CPY #$105341 FE275F D0 F6 BNE R29D75342 FE2761 60 R29D7x: RTS53435344 PC38: ; $1543 - $17CE5345 FE2762 A0 10 LDY #$105346 FE2764 ACC165347 FE2764 C2 20 rep #PMFLAG5348 .LONGA on5349 .MNLIST5350 FE2766 B1 2D LDA ($2D),Y5351 FE2768 38 SEC5352 FE2769 E9 10 00 SBC #$00105353 FE276C 85 27 STA $275354 FE276E ACC085355 FE276E E2 20 sep #PMFLAG5356 .LONGA off5357 .MNLIST5358 FE2770 A0 0F LDY #$0F5359 FE2772 B1 2D ?02: LDA ($2D),Y5360 FE2774 91 27 STA ($27),Y5361 FE2776 88 DEY5362 FE2777 10 F9 BPL ?025363 FE2779 A9 12 LDA #$125364 FE277B R17E9:5365 L155E: ; $155E - $17E95366 FE277B 18 CLC5367 FE277C 65 2D ADC $2D5368 FE277E 85 2D STA $2D5369 FE2780 90 02 BCC ?045370 FE2782 E6 2E INC $2E5371 FE2784 60 ?04: rts53725373 PC39: ; $2A93 - $30755374 ; return from real function5375 FE2785 A5 2D LDA $2D5376 FE2787 A4 2E LDY $2E5377 FE2789 20 33 97 JSR XBBA25378 FE278C ACC165379 FE278C C2 20 rep #PMFLAGTue Jul 17 11:00:23 2018 Page 505380 .LONGA on5381 .MNLIST5382 FE278E A5 2F LDA $2F5383 FE2790 85 2D STA $2D5384 FE2792 A0 02 LDY #$025385 FE2794 B1 2D LDA ($2D),Y5386 FE2796 85 2F STA $2F5387 FE2798 C8 INY5388 FE2799 C8 INY5389 FE279A B1 2D LDA ($2D),Y5390 FE279C 85 2B STA $2B5391 FE279E ACC085392 FE279E E2 20 sep #PMFLAG5393 .LONGA off5394 .MNLIST5395 FE27A0 A6 2D LDX $2D5396 FE27A2 A4 2E LDY $2E5397 FE27A4 4C 92 97 JMP XBBD453985399 PC52: ; $1B32 - $1DBD5400 FE27A7 PC53:5401 FE27A7 20 17 2A JSR L1B8B5402 FE27AA 80 0E bra L19C154035404 PC58: ; $1B38 - $1DC35405 FE27AC PC59:5406 FE27AC A2 31 LDX #$315407 FE27AE A5 24 LDA $245408 FE27B0 85 28 STA $285409 FE27B2 A5 23 LDA $235410 FE27B4 80 04 bra L19C154115412 FE27B6 L19BD:5413 PC80: ; $19BD - $1C485414 FE27B6 86 28 STX $285415 FE27B8 A2 2F LDX #$2F5416 L19C1: ; $19C1 - $1C4C5417 FE27BA 0A ASL a5418 FE27BB 26 28 ROL $285419 FE27BD 85 27 STA $275420 FE27BF ACC165421 FE27BF C2 20 rep #PMFLAG5422 .LONGA on5423 .MNLIST5424 FE27C1 A5 2D LDA $2D5425 FE27C3 3A dec a5426 FE27C4 3A dec a5427 FE27C5 85 2D STA $2D5428 FE27C7 B5 00 LDA <$00,X5429 FE27C9 38 SEC5430 FE27CA E5 27 SBC $275431 FE27CC 92 2D STA ($2D)5432 FE27CE ACC085433 FE27CE E2 20 sep #PMFLAG5434 .LONGA off5435 .MNLIST5436 FE27D0 60 rtsTue Jul 17 11:00:23 2018 Page 5154375438 PC56: ; $1B26 - $1DB15439 FE27D1 PC57:5440 FE27D1 20 17 2A JSR L1B8B5441 FE27D4 80 04 bra PC90a54425443 PC90: ; $195B - $1BE65444 FE27D6 86 28 STX $285445 FE27D8 A2 2F LDX #$2F54465447 PC90a: ; $195F - $1BEA5448 FE27DA 85 27 STA $275449 FE27DC ACC165450 FE27DC C2 20 rep #PMFLAG5451 .LONGA on5452 .MNLIST5453 FE27DE E6 27 INC $275454 FE27E0 06 27 ASL $275455 FE27E2 38 SEC5456 FE27E3 B5 00 LDA <$00,X5457 FE27E5 E5 27 SBC $275458 FE27E7 85 27 STA $275459 FE27E9 A5 2D LDA $2D5460 FE27EB 3A dec a5461 FE27EC 3A dec a5462 FE27ED 85 2D STA $2D5463 FE27EF B2 27 LDA ($27)5464 FE27F1 92 2D STA ($2D)5465 FE27F3 ACC085466 FE27F3 E2 20 sep #PMFLAG5467 .LONGA off5468 .MNLIST5469 FE27F5 60 rts54705471 PC54: ; 1B2C - $1DB75472 FE27F6 PC55:5473 FE27F6 20 17 2A JSR L1B8B5474 FE27F9 80 0A bra L19E654755476 PCE0: ; $198F - $1C1A5477 FE27FB 86 28 STX $285478 FE27FD A2 31 LDX #$315479 FE27FF 80 D9 BRA PC90a54805481 PCA0: ; $19E2 - $1C6D5482 FE2801 86 28 STX $285483 FE2803 A2 2F LDX #$2F54845485 FE2805 L19E6:5486 PCA0a: ; $19E6 - $1C715487 FE2805 85 27 STA $275488 FE2807 ACC165489 FE2807 C2 20 rep #PMFLAG5490 .LONGA on5491 .MNLIST5492 FE2809 E6 27 INC $275493 FE280B 06 27 ASL $27Tue Jul 17 11:00:23 2018 Page 525494 FE280D 38 SEC5495 FE280E B5 00 LDA <$00,X5496 FE2810 E5 27 SBC $275497 FE2812 85 27 STA $275498 FE2814 B2 2D LDA ($2D)5499 FE2816 92 27 STA ($27)5500 FE2818 A5 2D LDA $2D5501 FE281A 1A inc a5502 FE281B 1A inc a5503 FE281C 85 2D STA $2D5504 FE281E ACC085505 FE281E E2 20 sep #PMFLAG5506 .LONGA off5507 .MNLIST5508 FE2820 60 rts55095510 PCF0: ; $1A17 - $1CA25511 FE2821 86 28 STX $285512 FE2823 A2 31 LDX #$315513 FE2825 80 DE BRA PCA0a55145515 PC4D: ; $1BB9 - $1E445516 ; place a p-code pointer in stack5517 FE28275518 FE2827 24 97 bit runf5519 FE2829 30 0A bmi ?025520 FE282B A5 24 lda $245521 FE282D 38 sec5522 FE282E E9 30 sbc #>PCCDST5523 FE2830 AA tax5524 FE2831 A5 23 lda $235525 FE2833 80 04 bra PCB055265527 FE2835 A5 23 ?02: LDA $235528 FE2837 A6 24 LDX $2455295530 FE2839 L1945:5531 PCB0: ; $1945 - $1BD05532 ; push integer AX into stack5533 FE2839 EB xba5534 FE283A 8A txa ; byte high5535 FE283B EB xba5536 FE283C CPU165537 FE283C C2 30 rep #(PMFLAG.OR.PXFLAG)5538 .LONGA on5539 .LONGI on5540 .MNLIST5541 FE283E A8 tay5542 FE283F A5 2D LDA $2D5543 FE2841 3A dec a5544 FE2842 3A dec a5545 FE2843 85 2D STA $2D5546 FE2845 98 tya5547 FE2846 92 2D STA ($2D)5548 FE2848 CPU085549 FE2848 E2 30 sep #(PMFLAG.OR.PXFLAG)5550 .LONGA offTue Jul 17 11:00:23 2018 Page 535551 .LONGI off5552 .MNLIST5553 FE284A 60 rts55545555 PCC0: ; $1995 - $1C205556 FE284B 85 27 STA $275557 FE284D 86 28 STX $285558 FE284F ACC165559 FE284F C2 20 rep #PMFLAG5560 .LONGA on5561 .MNLIST5562 FE2851 E6 27 INC $275563 FE2853 06 27 ASL $275564 FE2855 38 SEC5565 FE2856 B2 2D LDA ($2D)5566 FE2858 E5 27 SBC $275567 FE285A 85 27 STA $275568 FE285C B2 27 LDA ($27)5569 FE285E 92 2D STA ($2D)5570 FE2860 ACC085571 FE2860 E2 20 sep #PMFLAG5572 .LONGA off5573 .MNLIST5574 FE2862 60 rts5575 FE28635576 PCD0: ; $1A1D - $1CA85577 FE2863 86 28 STX $285578 FE2865 85 27 STA $275579 FE2867 ACC165580 FE2867 C2 20 rep #PMFLAG5581 .LONGA on5582 .MNLIST5583 FE2869 E6 27 INC $275584 FE286B 06 27 ASL $275585 FE286D 38 SEC5586 FE286E A0 02 LDY #$025587 FE2870 B1 2D LDA ($2D),Y5588 FE2872 E5 27 SBC $275589 FE2874 85 27 STA $275590 FE2876 B2 2D LDA ($2D)5591 FE2878 92 27 STA ($27)5592 FE287A 18 CLC5593 FE287B A5 2D LDA $2D5594 FE287D 69 04 00 ADC #$00045595 FE2880 85 2D STA $2D5596 FE2882 ACC085597 FE2882 E2 20 sep #PMFLAG5598 .LONGA off5599 .MNLIST5600 FE2884 60 rts56015602 PC40: ; $156A - $17F55603 ; absolute jmp to p-code - update p-code pointer5604 FE2885 ACC165605 FE2885 C2 20 rep #PMFLAG5606 .LONGA on5607 .MNLISTTue Jul 17 11:00:23 2018 Page 545608 FE2887 A5 23 LDA $235609 FE2889 1A inc a5610 FE288A F0 0E beq ?025611 FE288C 3A dec a5612 FE288D A6 97 ldx runf5613 FE288F 30 04 bmi ?015614 FE2891 38 sec5615 FE2892 E9 00 30 sbc #PCCDST5616 FE2895 85 2B ?01: STA $2B5617 FE2897 CPU085618 FE2897 E2 30 sep #(PMFLAG.OR.PXFLAG)5619 .LONGA off5620 .LONGI off5621 .MNLIST5622 FE2899 60 rts5623 FE289A A2 0B ?02: LDX #$0B ; undefined goto5624 FE289C _jer: CPU085625 FE289C E2 30 sep #(PMFLAG.OR.PXFLAG)5626 .LONGA off5627 .LONGI off5628 .MNLIST5629 FE289E 4C 50 1B JMP vpmerr56305631 PC41: ; $1580 - $180B5632 ; absolute conditioned jmp to p-code - update p-code pointer5633 FE28A1 B2 2D LDA ($2D)5634 FE28A3 6A ROR a5635 FE28A4 B0 0F BCS ?025636 FE28A6 ACC165637 FE28A6 C2 20 rep #PMFLAG5638 .LONGA on5639 .MNLIST5640 FE28A8 A5 23 LDA $235641 FE28AA A6 97 ldx runf5642 FE28AC 30 03 bmi ?015643 FE28AE E9 FF 2F sbc #PCCDST-1 ; here CF=05644 FE28B1 85 2B ?01: STA $2B5645 FE28B3 ACC085646 FE28B3 E2 20 sep #PMFLAG5647 .LONGA off5648 .MNLIST5649 FE28B5 4C 95 1E ?02: JMP SK0256505651 PC42: ; $1590 - $181B5652 ; 'case' jmp table - update p-code pointer5653 FE28B8 A2 06 LDX #$06 ; case error5654 FE28BA 38 SEC5655 FE28BB 24 97 bit runf5656 FE28BD ACC165657 FE28BD C2 20 rep #PMFLAG5658 .LONGA on5659 .MNLIST5660 FE28BF 30 09 bmi ?015661 FE28C1 A5 23 lda $235662 FE28C3 E9 00 30 sbc #PCCDST5663 FE28C6 85 23 sta $235664 FE28C8 90 D2 bcc _jerTue Jul 17 11:00:23 2018 Page 555665 FE28CA B2 2D ?01: LDA ($2D)5666 FE28CC F2 23 SBC ($23)5667 FE28CE 85 27 STA $275668 FE28D0 30 CA BMI _jer ; error5669 FE28D2 A5 23 LDA $235670 FE28D4 1A inc a5671 FE28D5 1A inc a5672 FE28D6 85 23 STA $235673 FE28D8 B2 23 LDA ($23)5674 FE28DA 38 sec5675 FE28DB F2 2D SBC ($2D)5676 FE28DD 30 BD BMI _jer5677 FE28DF 06 27 ASL $275678 FE28E1 A5 23 LDA $235679 FE28E3 65 27 ADC $275680 FE28E5 85 27 STA $275681 FE28E7 A0 02 LDY #$025682 FE28E9 B1 27 LDA ($27),Y5683 FE28EB C9 00 FF cmp #$FF005684 FE28EE B0 AC bcs _jer ; error5685 FE28F0 A6 97 ldx runf5686 FE28F2 30 03 bmi ?025687 FE28F4 E9 FF 2F sbc #PCCDST-1 ; here CF=05688 FE28F7 85 2B ?02: STA $2B5689 FE28F9 ACC085690 FE28F9 E2 20 sep #PMFLAG5691 .LONGA off5692 .MNLIST5693 FE28FB 4C 95 1E JMP SK0256945695 PC43: ; $15F8 - $18835696 FE28FE 24 97 bit runf5697 FE2900 30 07 bmi ?025698 FE2902 38 sec5699 FE2903 A5 24 lda $245700 FE2905 E9 30 sbc #>PCCDST5701 FE2907 85 24 sta $245702 FE2909 20 49 29 ?02: JSR L15DB5703 FE290C 4C 95 1E JMP SK0257045705 PC44: ; $15FE - $18895706 FE290F 24 97 bit runf5707 FE2911 30 07 bmi ?015708 FE2913 38 sec5709 FE2914 A5 24 lda $245710 FE2916 E9 30 sbc #>PCCDST5711 FE2918 85 24 sta $245712 FE291A A2 04 ?01: LDX #$04 ; error: array index5713 FE291C 20 B2 29 JSR L16565714 FE291F 20 66 29 JSR L16265715 FE2922 A0 00 LDY #$005716 FE2924 B1 23 LDA ($23),Y5717 FE2926 A0 02 LDY #$025718 FE2928 51 23 EOR ($23),Y5719 FE292A 4A LSR a5720 FE292B B0 06 BCS ?025721 FE292D E6 21 INC $21Tue Jul 17 11:00:23 2018 Page 565722 FE292F D0 02 BNE ?025723 FE2931 E6 22 INC $225724 FE2933 18 ?02: CLC5725 FE2934 20 56 29 JSR L15E85726 FE2937 4C 95 1E JMP SK0257275728 PC45: ; $161E - $18A95729 FE293A A2 05 LDX #$05 ; variable out of range5730 FE293C 24 97 bit runf5731 FE293E 30 72 bmi L16565732 FE2940 38 sec5733 FE2941 A5 24 lda $245734 FE2943 E9 30 sbc #>PCCDST5735 FE2945 85 24 sta $245736 FE2947 80 69 bra L165657375738 L15DB: ; $15DB - $18665739 FE2949 R1866:5740 FE2949 A2 04 LDX #$04 ; error: array index5741 FE294B 20 B2 29 JSR L16565742 FE294E 20 66 29 JSR L16265743 FE2951 06 21 ASL $215744 FE2953 26 22 ROL $225745 FE2955 38 SEC5746 L15E8: ; $15E8 - $18735747 FE2956 A0 02 LDY #$025748 FE2958 B1 2D LDA ($2D),Y5749 FE295A E5 21 SBC $215750 FE295C 91 2D STA ($2D),Y5751 FE295E C8 INY5752 FE295F B1 2D LDA ($2D),Y5753 FE2961 E5 22 SBC $225754 FE2963 91 2D STA ($2D),Y5755 FE2965 60 RTS57565757 L1626: ; $1626 - $18B15758 FE2966 A0 02 LDY #$025759 FE2968 38 SEC5760 FE2969 ACC165761 FE2969 C2 20 rep #PMFLAG5762 .LONGA on5763 .MNLIST5764 FE296B B1 23 LDA ($23),Y5765 FE296D F2 2D SBC ($2D)5766 FE296F 85 21 STA $215767 FE2971 ACC085768 FE2971 E2 20 sep #PMFLAG5769 .LONGA off5770 .MNLIST5771 FE2973 A0 04 LDY #$045772 FE2975 B1 23 LDA ($23),Y5773 FE2977 85 25 STA $255774 FE2979 4A LSR a5775 FE297A C8 INY5776 FE297B 11 23 ORA ($23),Y5777 FE297D F0 5E BEQ L16815778 FE297F B1 23 LDA ($23),YTue Jul 17 11:00:23 2018 Page 575779 FE2981 85 26 STA $265780 FE2983 A5 21 LDA $215781 FE2985 85 23 STA $235782 FE2987 A5 22 LDA $225783 FE2989 85 24 STA $245784 ;;JMP imult57855786 ; mult integer $23-24 and $25-$26 and leave result in $21-$225787 ; $17E3 - $1A6E5788 FE298B imult:5789 FE298B A9 00 LDA #$005790 FE298D 85 21 STA $215791 FE298F 85 22 STA $225792 FE2991 A2 10 LDX #$105793 FE2993 66 24 ?02: ROR $245794 FE2995 66 23 ROR $235795 FE2997 90 10 BCC ?045796 FE2999 18 CLC5797 FE299A A5 21 LDA $215798 FE299C 65 25 ADC $255799 FE299E 85 21 STA $215800 FE29A0 A5 22 LDA $225801 FE29A2 65 26 ADC $265802 FE29A4 85 22 STA $225803 FE29A6 90 01 BCC ?045804 FE29A8 60 RTS5805 FE29A9 06 25 ?04: ASL $255806 FE29AB 26 26 ROL $265807 FE29AD CA DEX5808 FE29AE D0 E3 BNE ?025809 FE29B0 18 CLC5810 FE29B1 60 RTS58115812 L1656: ; $1656 - $18E15813 ; enter with Y = 05814 FE29B2 B1 2D LDA ($2D),Y5815 FE29B4 D1 23 CMP ($23),Y5816 FE29B6 C8 INY5817 FE29B7 B1 23 LDA ($23),Y5818 FE29B9 49 80 EOR #$805819 FE29BB 85 27 STA $275820 FE29BD B1 2D LDA ($2D),Y5821 FE29BF 49 80 EOR #$805822 FE29C1 E5 27 SBC $275823 FE29C3 90 19 BCC L16825824 FE29C5 C8 INY5825 FE29C6 B1 23 LDA ($23),Y5826 FE29C8 A0 00 LDY #$005827 FE29CA D1 2D CMP ($2D),Y5828 FE29CC C8 INY5829 FE29CD B1 2D LDA ($2D),Y5830 FE29CF 49 80 EOR #$805831 FE29D1 85 27 STA $275832 FE29D3 A0 03 LDY #$035833 FE29D5 B1 23 LDA ($23),Y5834 FE29D7 49 80 EOR #$805835 FE29D9 E5 27 SBC $27Tue Jul 17 11:00:23 2018 Page 585836 FE29DB 90 01 BCC L16825837 FE29DD L1681:5838 FE29DD 60 RTS5839 FE29DE L1682:5840 FE29DE 4C 50 1B JMP vpmerr58415842 PC46: ; $1B85 - $1E105843 ; call function/procedure from procedure/function at superior level5844 FE29E1 20 17 2A JSR L1B8B5845 FE29E4 80 06 BRA L1B4558465847 PC47: ; $1B81 - $1E0C5848 ; call function/procedure from main program5849 FE29E6 A2 31 LDX #$315850 FE29E8 80 02 BRA L1B4558515852 PC48: ; $1B43 - $1DCE5853 ; call nested function/procedure from procedure/function5854 FE29EA A2 2F LDX #$2F5855 L1B45: ; $1B45 - $1DD05856 FE29EC ACC165857 FE29EC C2 20 rep #PMFLAG5858 .LONGA on5859 .MNLIST5860 FE29EE B2 39 LDA ($39)5861 FE29F0 48 PHA5862 FE29F1 B5 00 LDA <$00,X5863 FE29F3 92 39 STA ($39)5864 FE29F5 C8 INY5865 FE29F6 C8 INY5866 FE29F7 A5 2F LDA $2F5867 FE29F9 91 39 STA ($39),Y5868 FE29FB C8 INY5869 FE29FC C8 INY5870 FE29FD A5 2B LDA $2B5871 FE29FF 91 39 STA ($39),Y5872 FE2A01 A5 39 LDA $395873 FE2A03 85 2F STA $2F5874 FE2A05 68 PLA5875 FE2A06 85 39 STA $395876 FE2A08 A5 23 LDA $235877 FE2A0A A6 97 ldx runf5878 FE2A0C 30 04 bmi ?025879 FE2A0E 38 sec5880 FE2A0F E9 00 30 sbc #PCCDST5881 FE2A12 85 2B ?02: STA $2B5882 FE2A14 ACC085883 FE2A14 E2 20 sep #PMFLAG5884 .LONGA off5885 .MNLIST5886 FE2A16 60 rts58875888 L1B8B: ; $1B8B - $1E165889 FE2A17 B1 2B LDA ($2B),Y5890 FE2A19 E6 2B INC $2B5891 FE2A1B D0 02 BNE ?025892 FE2A1D E6 2C INC $2CTue Jul 17 11:00:23 2018 Page 595893 FE2A1F ?02:5894 L1B93: ; $1B93 - $1E1E5895 FE2A1F AA TAX5896 FE2A20 A5 2F LDA $2F5897 FE2A22 85 21 STA $215898 FE2A24 A5 30 LDA $305899 FE2A26 85 22 STA $225900 FE2A28 CA ?04: DEX5901 FE2A29 30 10 BMI ?065902 FE2A2B B1 21 LDA ($21),Y5903 FE2A2D 85 27 STA $275904 FE2A2F C8 INY5905 FE2A30 B1 21 LDA ($21),Y5906 FE2A32 88 DEY5907 FE2A33 85 22 STA $225908 FE2A35 A5 27 LDA $275909 FE2A37 85 21 STA $215910 FE2A39 80 ED BRA ?045911 FE2A3B A2 21 ?06: LDX #$215912 FE2A3D A5 24 LDA $245913 FE2A3F 85 28 STA $285914 FE2A41 A5 23 LDA $235915 FE2A43 60 RTS59165917 PC49: ; $2D14 - $2AD55918 ; compiler cause 'bad p-code' error (only in run mode)5919 FE2A44 24 97 bit runf5920 FE2A46 10 6F bpl er075921 FE2A48 A5 23 LDA $235922 FE2A4A F0 6A BEQ ?145923 FE2A4C A5 2F LDA $2F5924 FE2A4E 85 21 STA $215925 FE2A50 A5 30 LDA $305926 FE2A52 85 22 STA $225927 FE2A54 B1 2F ?02: LDA ($2F),Y5928 FE2A56 AA TAX5929 FE2A57 C8 INY5930 FE2A58 B1 2F LDA ($2F),Y5931 FE2A5A 85 30 STA $305932 FE2A5C 86 2F STX $2F5933 FE2A5E 88 DEY5934 FE2A5F C6 23 DEC $235935 FE2A61 D0 F1 BNE ?025936 FE2A63 A0 02 ?04: LDY #$025937 FE2A65 B1 21 LDA ($21),Y5938 FE2A67 AA TAX5939 FE2A68 C8 INY5940 FE2A69 B1 21 LDA ($21),Y5941 FE2A6B E4 2F CPX $2F5942 FE2A6D D0 04 BNE ?065943 FE2A6F C5 30 CMP $305944 FE2A71 F0 06 BEQ ?085945 FE2A73 86 21 ?06: STX $215946 FE2A75 85 22 STA $225947 FE2A77 D0 EA BNE ?045948 FE2A79 A5 39 ?08: LDA $395949 FE2A7B 05 3A ORA $3ATue Jul 17 11:00:23 2018 Page 605950 FE2A7D F0 2A BEQ ?125951 FE2A7F A5 39 LDA $395952 FE2A81 C5 2F CMP $2F5953 FE2A83 A5 3A LDA $3A5954 FE2A85 E5 30 SBC $305955 FE2A87 B0 20 BCS ?125956 FE2A89 A5 39 LDA $395957 FE2A8B C5 21 CMP $215958 FE2A8D A5 3A LDA $3A5959 FE2A8F E5 22 SBC $225960 FE2A91 90 08 BCC ?105961 FE2A93 A5 39 LDA $395962 FE2A95 85 21 STA $215963 FE2A97 A5 3A LDA $3A5964 FE2A99 85 22 STA $225965 FE2A9B A9 00 ?10: LDA #$005966 ;ldy #0 ; ?????5967 FE2A9D B1 39 LDA ($39),Y5968 FE2A9F AA TAX5969 FE2AA0 C8 INY5970 FE2AA1 B1 39 LDA ($39),Y5971 FE2AA3 86 39 STX $395972 FE2AA5 85 3A STA $3A5973 FE2AA7 80 D0 BRA ?085974 FE2AA9 A5 21 ?12: LDA $215975 FE2AAB 18 CLC5976 FE2AAC 69 06 ADC #$065977 FE2AAE 85 2D STA $2D5978 FE2AB0 A5 22 LDA $225979 FE2AB2 69 00 ADC #$005980 FE2AB4 85 2E STA $2E5981 FE2AB6 60 ?14: RTS59825983 FE2AB7 PC4F:5984 FE2AB7 er07:5985 FE2AB7 4C 4E 1B JMP vpme07 ; error: bad p-code59865987 PC4A: ; $1685 - $19105988 ; execute an external routine - address in $23-$245989 ; in the same program bank5990 FE2ABA 6C 23 7F jmp (CBMP0+$23)59915992 PC4B: ; $xxxx - $32EA (run only)5993 FE2ABD 24 97 bit runf5994 FE2ABF 10 F6 bpl er075995 FE2AC1 A9 04 LDA #$045996 FE2AC3 A2 06 LDX #$065997 FE2AC5 20 2D 2B JSR R33355998 FE2AC8 A0 00 ?02: LDY #$005999 FE2ACA B1 21 LDA ($21),Y6000 FE2ACC 91 25 STA ($25),Y6001 FE2ACE A0 02 LDY #$026002 FE2AD0 B1 27 LDA ($27),Y6003 FE2AD2 F0 06 BEQ ?046004 FE2AD4 E6 21 INC $216005 FE2AD6 D0 02 BNE ?046006 FE2AD8 E6 22 INC $22Tue Jul 17 11:00:23 2018 Page 616007 FE2ADA 20 8D 2B ?04: JSR R33996008 FE2ADD D0 E9 BNE ?026009 FE2ADF A9 04 LDA #$046010 FE2AE1 4C 7B 27 JMP R17E960116012 PC4C: ; $xxxx - $330D (run only)6013 FE2AE4 24 97 bit runf6014 FE2AE6 10 CF bpl er076015 FE2AE8 A9 08 LDA #$086016 FE2AEA A2 04 LDX #$046017 FE2AEC 20 2D 2B JSR R33356018 FE2AEF A0 00 ?02: LDY #$006019 FE2AF1 B1 25 LDA ($25),Y6020 FE2AF3 91 21 STA ($21),Y6021 FE2AF5 A0 02 LDY #$026022 FE2AF7 B1 27 LDA ($27),Y6023 FE2AF9 F0 0B BEQ ?046024 FE2AFB 88 DEY6025 FE2AFC A9 00 LDA #$006026 FE2AFE 91 21 STA ($21),Y6027 FE2B00 E6 21 INC $216028 FE2B02 D0 02 BNE ?046029 FE2B04 E6 22 INC $226030 FE2B06 20 8D 2B ?04: JSR R33996031 FE2B09 D0 E4 BNE ?026032 FE2B0B A9 06 LDA #$066033 FE2B0D 4C 7B 27 JMP R17E960346035 PC4E: ; $200F - $2A926036 FE2B10 20 1D 2B JSR L20276037 FE2B13 ACC166038 FE2B13 C2 20 rep #PMFLAG6039 .LONGA on6040 .MNLIST6041 FE2B15 B2 23 LDA ($23)6042 FE2B17 3A dec a6043 FE2B18 92 23 STA ($23)6044 FE2B1A ACC086045 FE2B1A E2 20 sep #PMFLAG6046 .LONGA off6047 .MNLIST6048 FE2B1C 60 rts6049 FE2B1D6050 L2027: ; $2027 - $2AA66051 FE2B1D ACC166052 FE2B1D C2 20 rep #PMFLAG6053 .LONGA on6054 .MNLIST6055 FE2B1F E6 23 INC $236056 FE2B21 06 23 ASL $236057 FE2B23 A5 2F LDA $2F6058 FE2B25 38 SEC6059 FE2B26 E5 23 SBC $236060 FE2B28 85 23 STA $236061 FE2B2A ACC086062 FE2B2A E2 20 sep #PMFLAG6063 .LONGA offTue Jul 17 11:00:23 2018 Page 626064 .MNLIST6065 FE2B2C 60 RTS60666067 R3335: ; $xxxx - $3335 (run only)6068 FE2B2D 48 PHA6069 FE2B2E A5 2D LDA $2D6070 FE2B30 48 PHA6071 FE2B31 8A TXA6072 FE2B32 18 CLC6073 FE2B33 65 2D ADC $2D6074 FE2B35 85 2D STA $2D6075 FE2B37 A5 2E LDA $2E6076 FE2B39 48 PHA6077 FE2B3A 69 00 ADC #$006078 FE2B3C 85 2E STA $2E6079 FE2B3E A0 04 LDY #$046080 FE2B40 B1 23 LDA ($23),Y6081 FE2B42 0A ASL a6082 FE2B43 85 47 STA tmpv16083 FE2B45 C8 INY6084 FE2B46 B1 23 LDA ($23),Y6085 FE2B48 2A ROL a6086 FE2B49 85 48 STA tmpv26087 FE2B4B A0 00 LDY #$006088 FE2B4D 20 49 29 JSR R18666089 FE2B50 A0 02 LDY #$026090 FE2B52 B1 2D LDA ($2D),Y6091 FE2B54 38 SEC6092 FE2B55 E5 47 SBC tmpv16093 FE2B57 85 21 STA $216094 FE2B59 C8 INY6095 FE2B5A B1 2D LDA ($2D),Y6096 FE2B5C E5 48 SBC tmpv26097 FE2B5E 85 22 STA $226098 FE2B60 68 PLA6099 FE2B61 85 28 STA $286100 FE2B63 68 PLA6101 FE2B64 85 27 STA $276102 FE2B66 A0 00 LDY #$006103 FE2B68 B1 27 LDA ($27),Y6104 FE2B6A 85 23 STA $236105 FE2B6C 18 CLC6106 FE2B6D 69 01 ADC #$016107 FE2B6F 29 FE AND #$FE6108 FE2B71 85 25 STA $256109 FE2B73 C8 INY6110 FE2B74 B1 27 LDA ($27),Y6111 FE2B76 85 24 STA $246112 FE2B78 69 00 ADC #$006113 FE2B7A 85 26 STA $266114 FE2B7C 68 PLA6115 FE2B7D A8 TAY6116 FE2B7E 38 SEC6117 FE2B7F B1 27 LDA ($27),Y6118 FE2B81 E5 25 SBC $256119 FE2B83 85 25 STA $256120 FE2B85 C8 INYTue Jul 17 11:00:23 2018 Page 636121 FE2B86 B1 27 LDA ($27),Y6122 FE2B88 E5 26 SBC $266123 FE2B8A 85 26 STA $266124 FE2B8C 60 RTS61256126 R3399: ; $xxxx - $3399 (compiler only)6127 FE2B8D ACC166128 FE2B8D C2 20 rep #PMFLAG6129 .LONGA on6130 .MNLIST6131 FE2B8F E6 21 INC $216132 FE2B91 E6 25 INC $256133 FE2B93 C6 23 dec $236134 FE2B95 ACC086135 FE2B95 E2 20 sep #PMFLAG6136 .LONGA off6137 .MNLIST6138 FE2B97 A5 24 lda $246139 FE2B99 05 23 ORA $236140 FE2B9B 60 RTS61416142 ; line number (run only)6143 PC50: ; not in compiler - $29846144 ; store line number in $3F-$406145 FE2B9C PC51:6146 FE2B9C 24 97 bit runf6147 FE2B9E 30 03 bmi ?026148 FE2BA0 4C 4E 1B jmp vpme076149 FE2BA3 A5 23 ?02: LDA $236150 FE2BA5 85 3F STA $3F6151 FE2BA7 A5 24 LDA $246152 FE2BA9 85 40 STA $406153 FE2BAB 60 rts61546155 PC5A: ; $2CF0 - $33B56156 PC5B: ; simple 'new' for compiler6157 FE2BAC ACC166158 FE2BAC C2 20 rep #PMFLAG6159 .LONGA on6160 .MNLIST6161 FE2BAE A5 2D LDA $2D6162 FE2BB0 3A dec a6163 FE2BB1 3A dec a6164 FE2BB2 85 2D STA $2D6165 FE2BB4 ACC086166 FE2BB4 E2 20 sep #PMFLAG6167 .LONGA off6168 .MNLIST6169 FE2BB6 24 97 bit runf6170 FE2BB8 30 12 bmi ?016171 FE2BBA ACC166172 FE2BBA C2 20 rep #PMFLAG6173 .LONGA on6174 .MNLIST6175 FE2BBC 06 23 ASL $236176 FE2BBE 18 CLC6177 FE2BBF A5 33 LDA $33Tue Jul 17 11:00:23 2018 Page 646178 FE2BC1 65 23 ADC $236179 FE2BC3 85 33 STA $336180 FE2BC5 92 2D STA ($2D)6181 FE2BC7 ACC086182 FE2BC7 E2 20 sep #PMFLAG6183 .LONGA off6184 .MNLIST6185 FE2BC9 4C 3E 2C JMP L1A976186 ; p-code execution - new6187 FE2BCC 20 23 2D ?01: JSR R35116188 FE2BCF 20 3F 2D ?02: JSR R35276189 FE2BD2 F0 42 BEQ ?086190 FE2BD4 A0 02 LDY #$026191 FE2BD6 B1 21 LDA ($21),Y6192 FE2BD8 38 SEC6193 FE2BD9 E5 23 SBC $236194 FE2BDB 85 25 STA $256195 FE2BDD C8 INY6196 FE2BDE B1 21 LDA ($21),Y6197 FE2BE0 E5 24 SBC $246198 FE2BE2 85 26 STA $266199 FE2BE4 90 E9 BCC ?026200 FE2BE6 D0 08 BNE ?046201 FE2BE8 A5 25 LDA $256202 FE2BEA F0 17 BEQ ?066203 FE2BEC 4A LSR a6204 FE2BED 4A LSR a6205 FE2BEE F0 DF BEQ ?026206 FE2BF0 20 50 2C ?04: JSR R34316207 FE2BF3 ACC166208 FE2BF3 C2 20 rep #PMFLAG6209 .LONGA on6210 .MNLIST6211 FE2BF5 A0 02 LDY #$026212 FE2BF7 A5 25 LDA $256213 FE2BF9 91 21 STA ($21),Y6214 FE2BFB AD FC FF lda !MTPTR6215 FE2BFE 85 35 sta $356216 FE2C00 ACC086217 FE2C00 E2 20 sep #PMFLAG6218 .LONGA off6219 .MNLIST6220 FE2C02 60 rts6221 FE2C03 20 50 2C ?06: JSR R34316222 FE2C06 A0 00 LDY #$006223 FE2C08 ACC086224 FE2C08 E2 20 sep #PMFLAG6225 .LONGA off6226 .MNLIST6227 FE2C0A B1 21 LDA ($21),Y6228 FE2C0C 91 27 STA ($27),Y6229 FE2C0E AD FC FF lda !MTPTR6230 FE2C11 85 35 sta $356231 FE2C13 ACC086232 FE2C13 E2 20 sep #PMFLAG6233 .LONGA off6234 .MNLISTTue Jul 17 11:00:23 2018 Page 656235 FE2C15 60 rts6236 FE2C16 ?08: ACC16CLC6237 FE2C16 C2 21 rep #(PMFLAG.OR.PCFLAG)6238 .LONGA on6239 .MNLIST6240 FE2C18 AD FC FF lda !MTPTR6241 FE2C1B 85 35 sta $356242 FE2C1D A5 23 LDA $236243 FE2C1F 65 33 ADC $336244 FE2C21 85 33 STA $336245 FE2C23 92 2D STA ($2D)6246 FE2C25 69 28 00 ADC #$00286247 FE2C28 C5 2D CMP $2D6248 FE2C2A ACC086249 FE2C2A E2 20 sep #PMFLAG6250 .LONGA off6251 .MNLIST6252 FE2C2C 90 21 BCC PC61x6253 FE2C2E er01:6254 FE2C2E A2 01 LDX #$01 ; stack overflow error6255 FE2C30 4C 50 1B JMP vpmerr62566257 PC60: ; $1A86 - $1D116258 PC61: ; reserve room in stack6259 FE2C33 ACC166260 FE2C33 C2 20 rep #PMFLAG6261 .LONGA on6262 .MNLIST6263 FE2C35 06 23 ASL $236264 FE2C37 38 SEC6265 FE2C38 A5 2D LDA $2D6266 FE2C3A E5 23 SBC $236267 FE2C3C 85 2D STA $2D6268 L1A97: ; $1A97 - $1D226269 FE2C3E ACC16CLC6270 FE2C3E C2 21 rep #(PMFLAG.OR.PCFLAG)6271 .LONGA on6272 .MNLIST6273 FE2C40 A5 33 LDA $336274 FE2C42 69 28 00 ADC #$00286275 FE2C45 85 27 STA $276276 FE2C47 A5 2D LDA $2D6277 FE2C49 C5 27 CMP $276278 FE2C4B ACC086279 FE2C4B E2 20 sep #PMFLAG6280 .LONGA off6281 .MNLIST6282 FE2C4D 90 DF BCC er016283 FE2C4F PC61x:6284 FE2C4F 60 rts62856286 R3431: ; $xxxx - $34316287 FE2C50 20 15 2D JSR R35036288 FE2C53 A0 01 LDY #$016289 FE2C55 91 2D STA ($2D),Y6290 FE2C57 88 DEY6291 FE2C58 8A TXATue Jul 17 11:00:23 2018 Page 666292 FE2C59 91 2D STA ($2D),Y6293 FE2C5B 60 RTS62946295 PC5C: ; $xxxx - $343D6296 PC5D: ; dispose6297 FE2C5C 24 97 bit runf6298 FE2C5E 30 03 bmi ?026299 FE2C60 4C 4E 1B jmp vpme076300 FE2C63 20 23 2D ?02: JSR R35116301 FE2C66 20 3F 2D ?04: JSR R35276302 FE2C69 F0 65 BEQ ?126303 FE2C6B A0 00 LDY #$006304 FE2C6D B1 2D LDA ($2D),Y6305 FE2C6F C5 21 CMP $216306 FE2C71 D0 27 BNE ?086307 FE2C73 C8 INY6308 FE2C74 B1 2D LDA ($2D),Y6309 FE2C76 C5 22 CMP $226310 FE2C78 D0 20 BNE ?086311 FE2C7A A5 21 LDA $216312 FE2C7C 38 SEC6313 FE2C7D E5 23 SBC $236314 FE2C7F 85 25 STA $256315 FE2C81 A5 22 LDA $226316 FE2C83 E5 24 SBC $246317 FE2C85 85 26 STA $266318 FE2C87 A0 03 LDY #$036319 FE2C89 B1 21 ?06: LDA ($21),Y6320 FE2C8B 91 25 STA ($25),Y6321 FE2C8D 88 DEY6322 FE2C8E 10 F9 BPL ?066323 FE2C90 A5 25 LDA $256324 FE2C92 85 21 STA $216325 FE2C94 A5 26 LDA $266326 FE2C96 85 22 STA $226327 FE2C98 80 19 bra ?106328 FE2C9A A0 00 ?08: LDY #$006329 FE2C9C ACC166330 FE2C9C C2 20 rep #PMFLAG6331 .LONGA on6332 .MNLIST6333 FE2C9E B1 2D LDA ($2D),Y6334 FE2CA0 38 SEC6335 FE2CA1 E5 23 SBC $236336 FE2CA3 85 25 STA $256337 FE2CA5 C8 INY6338 FE2CA6 ACC086339 FE2CA6 E2 20 sep #PMFLAG6340 .LONGA off6341 .MNLIST6342 FE2CA8 20 15 2D JSR R35036343 FE2CAB C5 26 CMP $266344 FE2CAD D0 B7 BNE ?046345 FE2CAF E4 25 CPX $256346 FE2CB1 D0 B3 BNE ?046347 FE2CB3 A0 02 ?10: LDY #$026348 FE2CB5 ACC16CLCTue Jul 17 11:00:23 2018 Page 676349 FE2CB5 C2 21 rep #(PMFLAG.OR.PCFLAG)6350 .LONGA on6351 .MNLIST6352 FE2CB7 B1 21 LDA ($21),Y6353 FE2CB9 65 23 ADC $236354 FE2CBB 85 23 STA $236355 FE2CBD 91 21 STA ($21),Y6356 FE2CBF A0 01 LDY #$016357 FE2CC1 B2 21 LDA ($21)6358 FE2CC3 92 27 STA ($27)6359 FE2CC5 ACC086360 FE2CC5 E2 20 sep #PMFLAG6361 .LONGA off6362 .MNLIST6363 FE2CC7 20 50 2C JSR R34316364 FE2CCA 88 DEY6365 FE2CCB 20 30 2D JSR R351E6366 FE2CCE 80 96 bra ?046367 FE2CD0 20 15 2D ?12: JSR R35036368 FE2CD3 A0 00 LDY #$006369 FE2CD5 B1 2D LDA ($2D),Y6370 FE2CD7 C5 33 CMP $336371 FE2CD9 D0 1A BNE ?146372 FE2CDB C8 INY6373 FE2CDC B1 2D LDA ($2D),Y6374 FE2CDE C5 34 CMP $346375 FE2CE0 D0 13 BNE ?146376 FE2CE2 ACC166377 FE2CE2 C2 20 rep #PMFLAG6378 .LONGA on6379 .MNLIST6380 FE2CE4 A5 33 LDA $336381 FE2CE6 38 SEC6382 FE2CE7 E5 23 SBC $236383 FE2CE9 85 33 STA $336384 FE2CEB AD FC FF lda !MTPTR6385 FE2CEE 85 35 sta $356386 FE2CF0 ACC086387 FE2CF0 E2 20 sep #PMFLAG6388 .LONGA off6389 .MNLIST6390 FE2CF2 4C 95 1E JMP SK026391 FE2CF5 A0 00 ?14: LDY #$006392 FE2CF7 CPU166393 FE2CF7 C2 30 rep #(PMFLAG.OR.PXFLAG)6394 .LONGA on6395 .LONGI on6396 .MNLIST6397 FE2CF9 B2 2D LDA ($2D)6398 FE2CFB 38 SEC6399 FE2CFC E5 23 SBC $236400 FE2CFE 92 27 STA ($27)6401 FE2D00 85 21 STA $216402 FE2D02 98 TYA6403 FE2D03 91 21 STA ($21),Y6404 FE2D05 C8 INY6405 FE2D06 C8 INYTue Jul 17 11:00:23 2018 Page 686406 FE2D07 A5 23 LDA $236407 FE2D09 91 21 STA ($21),Y6408 FE2D0B AD FC FF lda !MTPTR6409 FE2D0E 85 35 sta $356410 FE2D10 CPU086411 FE2D10 E2 30 sep #(PMFLAG.OR.PXFLAG)6412 .LONGA off6413 .LONGI off6414 .MNLIST6415 FE2D12 4C 95 1E JMP SK0264166417 R3503: ; $xxxx - $35036418 FE2D15 A0 02 LDY #$026419 FE2D17 18 CLC6420 FE2D18 A5 21 LDA $216421 FE2D1A 71 21 ADC ($21),Y6422 FE2D1C AA TAX6423 FE2D1D C8 INY6424 FE2D1E A5 22 LDA $226425 FE2D20 71 21 ADC ($21),Y6426 FE2D22 60 RTS64276428 R3511: ; $xxxx - $35116429 FE2D23 A5 23 LDA $236430 FE2D25 4A LSR a6431 FE2D26 05 24 ORA $246432 FE2D28 D0 02 BNE ?026433 FE2D2A E6 23 INC $236434 FE2D2C 06 23 ?02: ASL $236435 FE2D2E 26 24 ROL $246436 R351E: ; $xxxx - $351E6437 FE2D30 ACC166438 FE2D30 C2 20 rep #PMFLAG6439 .LONGA on6440 .MNLIST6441 FE2D32 A5 35 lda $356442 FE2D34 8D FC FF sta !MTPTR6443 FE2D37 A9 FC FF lda #MTPTR6444 FE2D3A 85 21 sta $216445 FE2D3C ACC086446 FE2D3C E2 20 sep #PMFLAG6447 .LONGA off6448 .MNLIST6449 ;LDA #$356450 ;STA $216451 ;LDA #$006452 ;STA $226453 FE2D3E 60 RTS64546455 R3527: ; $xxxx - $35276456 FE2D3F A5 21 LDA $216457 FE2D41 85 27 STA $276458 FE2D43 A5 22 LDA $226459 FE2D45 85 28 STA $286460 FE2D47 A0 00 LDY #$006461 FE2D49 B1 21 LDA ($21),Y6462 FE2D4B AA TAXTue Jul 17 11:00:23 2018 Page 696463 FE2D4C C8 INY6464 FE2D4D B1 21 LDA ($21),Y6465 FE2D4F 85 22 STA $226466 FE2D51 86 21 STX $216467 FE2D53 05 21 ORA $216468 FE2D55 60 RTS64696470 PC5E: ; $1A54 - $1CDF6471 FE2D56 PC5F:6472 FE2D56 ACC166473 FE2D56 C2 20 rep #PMFLAG6474 .LONGA on6475 .MNLIST6476 FE2D58 06 23 ASL $236477 FE2D5A 38 SEC6478 FE2D5B B2 2D LDA ($2D)6479 FE2D5D E5 23 SBC $236480 FE2D5F 85 25 STA $256481 FE2D61 C8 INY6482 FE2D62 C8 INY6483 FE2D63 38 SEC6484 FE2D64 B1 2D LDA ($2D),Y6485 FE2D66 E5 23 SBC $236486 FE2D68 85 21 STA $216487 FE2D6A ACC086488 FE2D6A E2 20 sep #PMFLAG6489 .LONGA off6490 .MNLIST6491 FE2D6C 20 99 2D JSR L1AFF6492 FE2D6F A5 2D LDA $2D6493 FE2D71 18 CLC6494 FE2D72 69 04 ADC #$046495 FE2D74 85 2D STA $2D6496 FE2D76 90 02 BCC ?026497 FE2D78 E6 2E INC $2E6498 FE2D7A 60 ?02: RTS64996500 PC37: ; $1B1E - $1DA96501 FE2D7B A9 08 LDA #$086502 FE2D7D 85 23 STA $236503 FE2D7F 84 24 STY $2465046505 PC6A: ; $1ACB - $1D566506 FE2D81 PC6B:6507 FE2D81 ACC166508 FE2D81 C2 20 rep #PMFLAG6509 .LONGA on6510 .MNLIST6511 FE2D83 06 23 ASL $236512 FE2D85 B2 2D LDA ($2D)6513 FE2D87 38 SEC6514 FE2D88 E5 23 SBC $236515 FE2D8A 85 25 STA $256516 FE2D8C A5 2D LDA $2D6517 FE2D8E 1A inc a6518 FE2D8F 1A inc a6519 FE2D90 38 SECTue Jul 17 11:00:23 2018 Page 706520 FE2D91 E5 23 SBC $236521 FE2D93 85 2D STA $2D6522 FE2D95 85 21 STA $216523 FE2D97 ACC086524 FE2D97 E2 20 sep #PMFLAG6525 .LONGA off6526 .MNLIST6527 FE2D996528 L1AFF: ; $1AFF - $1D8A6529 FE2D99 A0 00 LDY #$006530 FE2D9B C6 24 DEC $246531 FE2D9D 30 0D BMI ?046532 FE2D9F B1 25 ?02: LDA ($25),Y6533 FE2DA1 91 21 STA ($21),Y6534 FE2DA3 C8 INY6535 FE2DA4 D0 F9 BNE ?026536 FE2DA6 E6 26 INC $266537 FE2DA8 E6 22 INC $226538 FE2DAA D0 ED BNE L1AFF6539 FE2DAC C4 23 ?04: CPY $236540 FE2DAE F0 07 BEQ ?066541 FE2DB0 B1 25 LDA ($25),Y6542 FE2DB2 91 21 STA ($21),Y6543 FE2DB4 C8 INY6544 FE2DB5 D0 F5 BNE ?046545 FE2DB7 60 ?06: RTS65466547 PC62: ; $1AB6 - $1D416548 FE2DB8 PC63:6549 FE2DB8 ACC166550 FE2DB8 C2 20 rep #PMFLAG6551 .LONGA on6552 .MNLIST6553 FE2DBA 06 23 ASL $236554 FE2DBC 38 SEC6555 FE2DBD B2 2D LDA ($2D)6556 FE2DBF E5 23 SBC $236557 FE2DC1 92 2D STA ($2D)6558 FE2DC3 ACC086559 FE2DC3 E2 20 sep #PMFLAG6560 .LONGA off6561 .MNLIST6562 FE2DC5 60 rts65636564 PC64: ; $2068 - $2A096565 FE2DC6 PC65:6566 FE2DC6 20 23 2E JSR L20956567 FE2DC9 B1 25 ?00: LDA ($25),Y6568 FE2DCB D1 21 CMP ($21),Y6569 FE2DCD D0 0C BNE PC65b6570 FE2DCF 0A ASL a6571 FE2DD0 F0 05 BEQ ?016572 FE2DD2 C8 INY6573 FE2DD3 C4 23 CPY $236574 FE2DD5 D0 F2 BNE ?006575 FE2DD7 ?01:6576 FE2DD7 A9 01 PC65a: LDA #$01 ; R2A1ATue Jul 17 11:00:23 2018 Page 716577 FE2DD9 80 02 bra PC65c6578 FE2DDB A9 00 PC65b: lda #0 ; R2A1D6579 FE2DDD A0 02 PC65c: LDY #$026580 FE2DDF 91 2D STA ($2D),Y6581 FE2DE1 A9 00 LDA #$006582 FE2DE3 C8 INY6583 FE2DE4 91 2D STA ($2D),Y6584 FE2DE6 A9 02 LDA #$026585 FE2DE8 4C 7B 27 jmp L155E6586 FE2DEB6587 PC66: ; $xxxx - $2A426588 FE2DEB PC67:6589 FE2DEB 24 97 bit runf6590 FE2DED 30 03 bmi ?026591 FE2DEF 4C 4E 1B jmp vpme076592 FE2DF2 20 23 2E ?02: JSR R2A576593 FE2DF5 B1 25 ?04: LDA ($25),Y6594 FE2DF7 D1 21 CMP ($21),Y6595 FE2DF9 30 E0 BMI PC65b6596 FE2DFB D0 DA BNE PC65a6597 FE2DFD 0A ASL a6598 FE2DFE F0 D7 BEQ PC65a6599 FE2E00 C8 INY6600 FE2E01 C4 23 CPY $236601 FE2E03 D0 F0 BNE ?046602 FE2E05 F0 D0 BEQ PC65a66036604 PC68: ; $xxxx - $2A2D6605 FE2E07 PC69:6606 FE2E07 24 97 bit runf6607 FE2E09 30 03 bmi ?026608 FE2E0B 4C 4E 1B jmp vpme076609 FE2E0E 20 23 2E ?02: JSR R2A576610 FE2E11 B1 21 ?04: LDA ($21),Y6611 FE2E13 D1 25 CMP ($25),Y6612 FE2E15 30 C4 BMI PC65b6613 FE2E17 D0 BE BNE PC65a6614 FE2E19 0A ASL a6615 FE2E1A F0 BB BEQ PC65a6616 FE2E1C C8 INY6617 FE2E1D C4 23 CPY $236618 FE2E1F D0 F0 BNE ?046619 FE2E21 F0 B4 BEQ PC65a66206621 FE2E23 R2A57:6622 L2095: ; $2095 - $2A576623 FE2E23 ACC166624 FE2E23 C2 20 rep #PMFLAG6625 .LONGA on6626 .MNLIST6627 FE2E25 B2 2D LDA ($2D)6628 FE2E27 85 25 STA $256629 FE2E29 C8 INY6630 FE2E2A C8 iny6631 FE2E2B B1 2D LDA ($2D),Y6632 FE2E2D 85 21 STA $216633 FE2E2F ACC08Tue Jul 17 11:00:23 2018 Page 726634 FE2E2F E2 20 sep #PMFLAG6635 .LONGA off6636 .MNLIST6637 FE2E31 A0 00 LDY #$006638 FE2E33 60 RTS66396640 PC6E: ; $0B48 - $0D4E6641 FE2E34 PC6F:6642 FE2E34 20 DB 2E JSR L0B7F6643 FE2E37 A0 00 LDY #$006644 FE2E39 B1 29 LDA ($29),Y6645 FE2E3B 29 10 AND #$106646 FE2E3D D0 1B BNE ?066647 FE2E3F 20 25 32 JSR L0EA86648 FE2E42 A0 00 ?02: LDY #$006649 FE2E44 B1 21 LDA ($21),Y6650 FE2E46 20 E3 32 JSR L0EC46651 FE2E49 E6 21 INC $216652 FE2E4B D0 02 BNE ?046653 FE2E4D E6 22 INC $226654 FE2E4F 20 CD 2E ?04: JSR L0B716655 FE2E52 D0 EE BNE ?026656 FE2E54 20 CC FF jsr FCLRCH6657 FE2E57 4C 95 1E JMP SK026658 FE2E5A ?06:6659 FE2E5A PC76:6660 FE2E5A PC77:6661 FE2E5A PC78:6662 FE2E5A PC79:6663 FE2E5A 4C 4E 1B JMP vpme0766646665 PC6Cx: ; $0983 - $0B946666 FE2E5D 4C E5 1D jmp SK046667 FE2E606668 PC6C: ; $0991 - $0B976669 PC6D: ; 'reset' on disk6670 FE2E60 20 EB 33 JSR L09C26671 FE2E63 A5 3E LDA $3E6672 FE2E65 D0 F6 BNE PC6Cx6673 FE2E67 E6 BB INC $BB ; skip '@'6674 FE2E69 D0 02 BNE ?026675 FE2E6B E6 BC INC $BC6676 FE2E6D A4 B7 ?02: ldy $B7 ; flength6677 FE2E6F 88 dey6678 FE2E70 84 B7 sty $B76679 FE2E72 88 dey6680 FE2E73 A9 52 lda #'R' ; read6681 FE2E75 97 BB sta [$BB],y6682 ;SEC6683 ;SBC #$056684 ;dec a ; skip '@' ???6685 ;STA $B76686 ;lda #$C06687 ;trb $B96688 FE2E77 20 C0 FF JSR FOPEN6689 FE2E7A 20 45 33 JSR L0A736690 FE2E7D A5 3E LDA $3ETue Jul 17 11:00:23 2018 Page 736691 FE2E7F D0 DC BNE PC6Cx6692 FE2E81 A9 00 LDA #$006693 FE2E83 A8 TAY6694 FE2E84 91 29 STA ($29),Y6695 FE2E86 A5 2D LDA $2D6696 FE2E88 18 CLC6697 FE2E89 69 02 ADC #$026698 FE2E8B 85 2D STA $2D6699 FE2E8D 90 02 BCC ?046700 FE2E8F E6 2E INC $2E6701 FE2E91 ?04:6702 PC70: ; $0B0C - $0D126703 FE2E91 PC71:6704 FE2E91 20 DB 2E JSR L0B7F6705 FE2E94 A0 00 LDY #$006706 FE2E96 B1 29 LDA ($29),Y6707 FE2E98 29 10 AND #$106708 FE2E9A D0 2E BNE ?106709 FE2E9C 20 EF 31 JSR L0F116710 FE2E9F 20 71 31 ?02: JSR L0F2B6711 FE2EA2 A0 00 LDY #$006712 FE2EA4 91 21 STA ($21),Y6713 FE2EA6 E6 21 INC $216714 FE2EA8 D0 02 BNE ?046715 FE2EAA E6 22 INC $226716 FE2EAC AA ?04: TAX6717 FE2EAD A0 00 LDY #$006718 FE2EAF B1 29 LDA ($29),Y6719 FE2EB1 29 80 AND #$806720 FE2EB3 D0 0F BNE ?066721 FE2EB5 20 CD 2E JSR L0B716722 FE2EB8 D0 E5 BNE ?026723 FE2EBA E0 0D CPX #$0D6724 FE2EBC D0 06 BNE ?066725 FE2EBE B1 29 LDA ($29),Y6726 FE2EC0 09 40 ORA #$406727 FE2EC2 91 29 STA ($29),Y6728 FE2EC4 20 CC FF ?06: JSR FCLRCH6729 FE2EC7 4C 95 1E ?08: JMP SK026730 FE2ECA 4C 4E 1B ?10: JMP vpme0767316732 L0B71: ; $0B71 - $0D776733 FE2ECD A5 23 LDA $236734 FE2ECF 38 SEC6735 FE2ED0 E9 01 SBC #$016736 FE2ED2 85 23 STA $236737 FE2ED4 B0 02 BCS ?026738 FE2ED6 C6 24 DEC $246739 FE2ED8 05 24 ?02: ORA $246740 FE2EDA 60 RTS67416742 L0B7F: ; $0B7F - $0D856743 FE2EDB ACC166744 FE2EDB C2 20 rep #PMFLAG6745 .LONGA on6746 .MNLIST6747 FE2EDD B1 2D LDA ($2D),YTue Jul 17 11:00:23 2018 Page 746748 FE2EDF C8 iny6749 FE2EE0 85 29 STA $296750 FE2EE2 06 23 ASL $236751 FE2EE4 38 SEC6752 FE2EE5 A5 29 LDA $296753 FE2EE7 E5 23 SBC $236754 FE2EE9 85 21 STA $216755 FE2EEB A5 23 LDA $236756 FE2EED ACC086757 FE2EED E2 20 sep #PMFLAG6758 .LONGA off6759 .MNLIST6760 FE2EEF D0 13 BNE ?046761 FE2EF1 E6 23 INC $236762 FE2EF3 A5 21 LDA $216763 FE2EF5 38 SEC6764 FE2EF6 E9 02 SBC #$026765 FE2EF8 85 21 STA $216766 FE2EFA B0 02 BCS ?026767 FE2EFC C6 22 DEC $226768 FE2EFE A9 00 ?02: LDA #$006769 FE2F00 A0 01 LDY #$016770 FE2F02 91 21 STA ($21),Y6771 FE2F04 60 ?04: RTS67726773 PC18: ; $13FF - $168A6774 ; load string 'true ' or 'false'6775 FE2F05 20 03 32 JSR L17626776 FE2F08 66 21 ROR $21 ; CF = 1 if TRUE6777 FE2F0A INDEX166778 FE2F0A C2 10 rep #PXFLAG6779 .LONGI on6780 .MNLIST6781 FE2F0C A2 AE FF ldx #MFALSE ; false6782 FE2F0F 90 03 BCC ?026783 FE2F11 A2 A8 FF ldx #MTRUE ; true6784 FE2F14 86 21 ?02: stx $216785 FE2F16 INDEX086786 FE2F16 E2 10 sep #PXFLAG6787 .LONGI off6788 .MNLIST6789 FE2F18 80 03 bra L13E967906791 PC17: ; $13E6 - $16716792 FE2F1A 20 03 32 JSR L17626793 L13E9: ; $13E9 - $16746794 FE2F1D A0 00 LDY #$006795 FE2F1F C8 ?02: INY6796 FE2F20 B1 21 LDA ($21),Y6797 FE2F22 D0 FB BNE ?026798 FE2F24 A5 23 LDA $236799 FE2F26 25 24 AND $246800 FE2F28 49 FF EOR #$FF6801 FE2F2A D0 02 BNE ?046802 FE2F2C 84 23 STY $236803 FE2F2E 84 25 ?04: STY $256804 FE2F30 80 1C bra L16AATue Jul 17 11:00:23 2018 Page 7568056806 PC72: ; $168E - $19196807 FE2F32 PC73:6808 FE2F32 A5 24 LDA $246809 FE2F34 85 26 STA $266810 FE2F36 A5 23 LDA $236811 FE2F38 85 25 STA $256812 FE2F3A 20 03 32 JSR L17626813 FE2F3D A5 25 LDA $256814 FE2F3F 49 01 EOR #$016815 FE2F41 6A ROR a6816 FE2F42 A5 21 LDA $216817 FE2F44 E5 25 SBC $256818 FE2F46 85 21 STA $216819 FE2F48 A5 22 LDA $226820 FE2F4A E5 26 SBC $266821 FE2F4C 85 22 STA $226822 L16AA: ; $16AA - $19356823 FE2F4E A6 25 LDX $256824 FE2F50 20 34 33 JSR L0E696825 FE2F53 A6 25 LDX $256826 FE2F55 A5 23 LDA $236827 FE2F57 C5 25 CMP $256828 FE2F59 B0 01 BCS ?026829 FE2F5B AA TAX6830 FE2F5C A0 00 ?02: LDY #$006831 FE2F5E CA DEX6832 FE2F5F 30 0D BMI ?046833 FE2F61 B1 21 LDA ($21),Y6834 FE2F63 20 E3 32 JSR L0EC46835 FE2F66 E6 21 INC $216836 FE2F68 D0 F2 BNE ?026837 FE2F6A E6 22 INC $226838 FE2F6C D0 EE BNE ?026839 FE2F6E 4C CC FF ?04: JMP FCLRCH68406841 PC74: ; $1BC0 - $1E4B6842 FE2F71 PC75:6843 FE2F71 20 17 2A JSR L1B8B6844 FE2F74 A5 21 LDA $216845 FE2F76 38 SEC6846 FE2F77 E9 04 SBC #$046847 FE2F79 B0 02 BCS ?026848 FE2F7B C6 22 DEC $226849 FE2F7D 06 23 ?02: ASL $236850 FE2F7F 26 24 ROL $246851 FE2F81 38 SEC6852 FE2F82 E5 23 SBC $236853 FE2F84 85 21 STA $216854 FE2F86 A5 22 LDA $226855 FE2F88 E5 24 SBC $246856 FE2F8A 85 22 STA $226857 FE2F8C A0 00 LDY #$006858 FE2F8E B1 21 LDA ($21),Y6859 FE2F90 85 23 STA $236860 FE2F92 C8 INY6861 FE2F93 B1 21 LDA ($21),YTue Jul 17 11:00:23 2018 Page 766862 FE2F95 85 24 STA $246863 FE2F97 C8 INY6864 FE2F98 B1 21 LDA ($21),Y6865 FE2F9A A0 00 LDY #$006866 FE2F9C 20 1F 2A JSR L1B936867 FE2F9F 4C EC 29 JMP L1B4568686869 ; read string6870 PC7A: ; $16D0 - $195B6871 FE2FA2 PC7B:6872 FE2FA2 20 14 30 JSR L178B6873 FE2FA5 48 PHA6874 FE2FA6 A5 23 LDA $236875 FE2FA8 49 01 EOR #$016876 FE2FAA 6A ROR a6877 FE2FAB A0 02 LDY #$026878 FE2FAD B1 2D LDA ($2D),Y6879 FE2FAF E5 23 SBC $236880 FE2FB1 85 21 STA $216881 FE2FB3 C8 INY6882 FE2FB4 B1 2D LDA ($2D),Y6883 FE2FB6 E5 24 SBC $246884 FE2FB8 85 22 STA $226885 FE2FBA 68 PLA6886 FE2FBB C9 20 ?02: CMP #$206887 FE2FBD F0 08 BEQ ?046888 FE2FBF C9 0D CMP #$0D6889 FE2FC1 F0 04 BEQ ?046890 FE2FC3 C9 0A CMP #$0A6891 FE2FC5 D0 05 BNE ?066892 FE2FC7 20 71 31 ?04: JSR L0F2B6893 FE2FCA 80 EF bra ?026894 FE2FCC A0 00 ?06: LDY #$006895 FE2FCE C9 0D CMP #$0D6896 FE2FD0 F0 25 BEQ ?126897 FE2FD2 91 21 STA ($21),Y6898 FE2FD4 E6 21 INC $216899 FE2FD6 D0 02 BNE ?086900 FE2FD8 E6 22 INC $226901 FE2FDA A5 23 ?08: LDA $236902 FE2FDC 38 SEC6903 FE2FDD E9 01 SBC #$016904 FE2FDF 85 23 STA $236905 FE2FE1 B0 02 BCS ?096906 FE2FE3 C6 24 DEC $246907 FE2FE5 05 24 ?09: ORA $246908 FE2FE7 F0 05 BEQ ?106909 FE2FE9 20 71 31 JSR L0F2B6910 FE2FEC 80 DE bra ?066911 FE2FEE 20 71 31 ?10: JSR L0F2B6912 FE2FF1 C9 0D CMP #$0D6913 FE2FF3 D0 F9 BNE ?106914 FE2FF5 F0 17 BEQ ?146915 FE2FF7 A0 FF ?12: LDY #$FF6916 FE2FF9 A9 20 LDA #$206917 FE2FFB C8 ?13a: INY6918 FE2FFC C4 23 CPY $23Tue Jul 17 11:00:23 2018 Page 776919 FE2FFE F0 04 BEQ ?136920 FE3000 91 21 STA ($21),Y6921 FE3002 D0 F7 BNE ?13a6922 FE3004 A9 FF ?13: LDA #$FF6923 FE3006 85 23 STA $236924 FE3008 C6 24 DEC $246925 FE300A 10 EB BPL ?126926 FE300C A9 0D LDA #$0D6927 FE300E 20 8F 30 ?14: JSR L17B76928 FE3011 4C E5 1D JMP SK0469296930 L178B: ; $178B - $1A166931 FE3014 20 62 30 JSR L17A36932 FE3017 20 EF 31 JSR L0F116933 FE301A 38 SEC6934 FE301B A5 29 LDA $296935 FE301D E9 02 SBC #$026936 FE301F 85 27 STA $276937 FE3021 A5 2A LDA $2A6938 FE3023 E9 00 SBC #$006939 FE3025 85 28 STA $286940 FE3027 A0 00 LDY #$006941 FE3029 B1 27 LDA ($27),Y6942 FE302B 60 RTS69436944 PC7C: ; $203F - $2ABE6945 PC7D: ; execute function/procedure6946 FE302C A5 23 LDA $236947 FE302E 0A ASL a6948 FE302F AA TAX6949 FE3030 24 97 bit runf6950 FE3032 30 03 bmi ?026951 FE3034 7C 96 3D jmp (CFUNCT,X) ; compiling6952 FE3037 7C A8 3D ?02: jmp (RFUNCT,X) ; running69536954 PC7E: ; $1FEA - $2A6D6955 PC7F: ; change p-code pointer6956 FE303A 20 1D 2B JSR L20276957 FE303D ACC166958 FE303D C2 20 rep #PMFLAG6959 .LONGA on6960 .MNLIST6961 FE303F B2 23 LDA ($23)6962 FE3041 1A inc a6963 FE3042 92 23 STA ($23)6964 FE3044 ACC086965 FE3044 E2 20 sep #PMFLAG6966 .LONGA off6967 .MNLIST6968 FE3046 EB xba6969 FE3047 49 80 EOR #$806970 FE3049 12 23 ORA ($23)6971 FE304B D0 0B BNE ?046972 FE304D 18 CLC6973 FE304E A5 2B LDA $2B6974 FE3050 69 03 ADC #$036975 FE3052 85 2B STA $2BTue Jul 17 11:00:23 2018 Page 786976 FE3054 90 02 BCC ?046977 FE3056 E6 2C INC $2C6978 FE3058 60 ?04: rts69796980 PC3E: ; $xxxx - $3240 (CHAIN)6981 FE3059 4C 4E 1B jmp vpme0769826983 PC3F: ; $14A7 - $17326984 FE305C 20 85 30 JSR L17AD6985 FE305F 88 DEY6986 FE3060 80 07 bra L148A69876988 L17A3: ; $17A3 - $1A2E6989 FE3062 64 3E STZ $3E ; clear error6990 FE3064 A0 00 ldy #06991 FE3066 20 85 30 JSR L17AD69926993 L148A: ; $148A - $17156994 FE3069 A0 00 LDY #$006995 FE306B B2 29 LDA ($29)6996 FE306D 29 02 AND #$026997 FE306F F0 1D BEQ L17B06998 FE3071 52 29 EOR ($29)6999 FE3073 92 29 STA ($29)7000 FE3075 20 EF 31 JSR L0F117001 FE3078 20 71 31 ?02: JSR L0F2B7002 FE307B C9 0A CMP #$0A7003 FE307D F0 F9 BEQ ?027004 FE307F 20 8F 30 jsr L17B77005 FE3082 4C CC FF JMP FCLRCH70067007 L17AD: ; $17AD - $1A387008 FE3085 B1 2D LDA ($2D),Y7009 FE3087 85 29 STA $297010 FE3089 C8 INY7011 FE308A B1 2D LDA ($2D),Y7012 FE308C 85 2A STA $2A7013 FE308E L17B0:7014 FE308E 60 RTS70157016 L17B7: ; $17B7 - $1A427017 ; store char7018 FE308F A2 00 LDX #$007019 FE3091 C9 0D CMP #$0D7020 FE3093 D0 04 BNE ?027021 FE3095 A9 20 LDA #$207022 FE3097 A2 40 LDX #$407023 FE3099 48 ?02: PHA7024 FE309A 86 27 STX $277025 FE309C A0 00 LDY #$007026 FE309E B2 29 LDA ($29)7027 FE30A0 29 BF AND #$BF7028 FE30A2 05 27 ORA $277029 FE30A4 92 29 STA ($29)7030 FE30A6 ACC167031 FE30A6 C2 20 rep #PMFLAG7032 .LONGA onTue Jul 17 11:00:23 2018 Page 797033 .MNLIST7034 FE30A8 A5 29 LDA $297035 FE30AA 3A dec a7036 FE30AB 3A dec a7037 FE30AC 85 27 STA $277038 FE30AE ACC087039 FE30AE E2 20 sep #PMFLAG7040 .LONGA off7041 .MNLIST7042 FE30B0 68 PLA7043 FE30B1 92 27 STA ($27) ; store char7044 FE30B3 98 TYA7045 FE30B4 C8 INY7046 FE30B5 91 27 STA ($27),Y7047 FE30B7 60 RTS7048 FE30B87049 ;---------------------------------------------------------------------------7050 ; I/O subsystem7051 ;---------------------------------------------------------------------------70527053 L0E91: ; $0E91 - $111C7054 ; check break from keyboard7055 FE30B8 A5 3B LDA $3B7056 FE30BA 29 40 AND #$407057 FE30BC F0 0A BEQ ?02 ; no detect break7058 FE30BE 20 E1 FF JSR CHKSTOP7059 FE30C1 D0 05 bne ?02 ; no break detected7060 FE30C3 A2 13 ldx #$13 ; break error7061 FE30C5 4C 50 1B jmp vpmerr7062 FE30C8 A5 42 ?02: lda $427063 FE30CA 69 05 adc #$057064 FE30CC 85 42 sta $427065 FE30CE 60 rts70667067 FE30CF R0AE9:7068 L0942: ; $0942 - $0AE97069 ; close all open files (10 files from #2 to #11)7070 FE30CF A2 12 LDX #MAX2LF-6 ; skip first 2 entry (#0 and #1)7071 FE30D1 BD D5 FF ?01: LDA !MFILET+5,X ; file table7072 FE30D4 D0 05 BNE ?047073 FE30D6 CA ?02: DEX7074 FE30D7 CA DEX7075 FE30D8 10 F7 BPL ?017076 FE30DA 60 RTS7077 FE30DB BD D5 FF ?04: LDA !MFILET+5,X7078 FE30DE 85 2A STA $2A7079 FE30E0 BD D4 FF LDA !MFILET+4,X7080 FE30E3 85 29 sta $297081 FE30E5 24 97 bit runf7082 FE30E7 10 12 bpl ?067083 FE30E9 C5 2F cmp $2F7084 FE30EB A5 2A lda $2A7085 FE30ED E5 30 sbc $307086 FE30EF B0 E5 bcs ?027087 FE30F1 A5 29 lda $297088 FE30F3 C5 33 cmp $337089 FE30F5 A5 2A lda $2ATue Jul 17 11:00:23 2018 Page 807090 FE30F7 E5 34 sbc $347091 FE30F9 90 DB bcc ?027092 FE30FB 9E D4 FF ?06: STZ MFILET+4,X7093 FE30FE 9E D5 FF STZ MFILET+5,X7094 FE3101 8A TXA7095 FE3102 DA phx7096 FE3103 4A LSR a7097 FE3104 69 02 ADC #$02 ; skip file#0 and file #17098 FE3106 85 B8 STA $B87099 FE3108 20 21 31 JSR L0A5B ; R0C617100 FE310B FA PLX7101 FE310C 80 C8 bra ?0271027103 R0B28: ; $xxxx - $0B287104 ; close all files in running mode7105 FE310E A2 00 LDX #$007106 FE3110 86 33 STX $337107 FE3112 86 34 STX $347108 FE3114 CA DEX7109 FE3115 86 2F STX $2F7110 FE3117 86 30 STX $307111 FE3119 20 CF 30 JSR R0AE97112 FE311C A9 01 LDA #$01 ; close #1 reserved to command channel7113 FE311E 4C C3 FF JMP FCLOSE71147115 ; CLOSE ???7116 L0A5B: ; $0A5B - $0C617117 ; close7118 FE3121 A0 00 LDY #$007119 FE3123 B1 29 LDA ($29),Y7120 FE3125 29 08 AND #$087121 FE3127 F0 0A BEQ ?027122 FE3129 48 pha7123 FE312A A6 B8 LDX $B87124 FE312C 20 C9 FF jsr FSETOUT ; set file for output7125 FE312F 68 pla7126 FE31307127 ;;jsr FCHROUT7128 FE31307129 FE3130 20 CC FF jsr FCLRCH7130 FE3133 A5 B8 ?02: LDA $B8 ; close7131 FE3135 4C C3 FF JMP FCLOSE71327133 FE3138 63 6C 6F 73 65 ?20: .DB 'close %bu', $0D20 25 62 75 0D71347135 L0E7C: ; $0E7C - $11077136 ; print string zero-terminated7137 FE3142 A0 00 LDY #$007138 FE3144 B1 21 ?01: LDA ($21),Y7139 FE3146 F0 06 BEQ ?027140 FE3148 20 D2 FF JSR FCHROUT7141 FE314B C8 INY7142 FE314C D0 F6 BNE ?017143 FE314E 60 ?02: RTS71447145 lprint: ; long print string zero-terminatedTue Jul 17 11:00:23 2018 Page 817146 FE314F A0 00 LDY #$007147 FE3151 B7 76 ?01: LDA [longp],Y7148 FE3153 F0 06 BEQ ?027149 FE3155 20 D2 FF JSR FCHROUT7150 FE3158 C8 INY7151 FE3159 D0 F6 BNE ?017152 FE315B 60 ?02: RTS71537154 L0F9B: ; $0F9B - $12267155 FE315C A9 01 LDA #$017156 FE315E 85 B8 STA $B87157 FE3160 ACC167158 FE3160 C2 20 rep #PMFLAG7159 .LONGA on7160 .MNLIST7161 FE3162 A9 BA FF lda #MSTDF1+2 ; default file #1 (disk command channel)7162 FE3165 85 29 STA $297163 FE3167 ACC087164 FE3167 E2 20 sep #PMFLAG7165 .LONGA off7166 .MNLIST71677168 L0E89: ; $0E89 - $11147169 ; print CR7170 FE3169 48 PHA7171 FE316A A9 0D LDA #$0D7172 FE316C 20 D2 FF JSR FCHROUT7173 FE316F 68 PLA7174 FE3170 60 RTS71757176 L0F2B: ; $0F2B - $11B67177 FE3171 84 27 STY $277178 FE3173 A5 B8 LDA $B87179 FE3175 D0 11 BNE ?017180 FE3177 20 B8 30 JSR L0E91 ; R111C7181 FE317A DA phx7182 FE317B 5A phy7183 FE317C 20 DE FF jsr RDTIM7184 FE317F 85 41 STA $417185 FE3181 7A ply7186 FE3182 FA plx7187 FE3183 20 C9 34 JSR L0F73 ; R11FE7188 ;JSR L2C5E ; R0DEF7189 FE3186 80 19 bra ?037190 ?01: ; $0F41 - $11CC7191 FE3188 A0 00 LDY #$007192 FE318A 84 90 STY $907193 FE318C B1 29 LDA ($29),Y7194 FE318E 29 80 AND #$807195 FE3190 D0 1E BNE ?067196 FE3192 A5 3E LDA $3E ; current run-time error7197 FE3194 D0 09 BNE ?027198 FE3196 20 CF FF JSR FCHRIN ; input byte7199 FE3199 85 28 STA $287200 FE319B A5 90 LDA $907201 FE319D D0 05 BNE ?047202 FE319F A5 28 ?02: LDA $28Tue Jul 17 11:00:23 2018 Page 827203 FE31A1 A4 27 ?03: LDY $277204 FE31A3 60 RTS7205 FE31A4 C9 40 ?04: CMP #$40 ; end of file ?7206 FE31A6 D0 0C BNE ?087207 FE31A8 B1 29 LDA ($29),Y7208 FE31AA 09 80 ORA #$807209 FE31AC 91 29 STA ($29),Y7210 FE31AE D0 EF BNE ?027211 FE31B0 A2 0F ?06: LDX #$0F ; error: end of file7212 FE31B2 80 02 bra ?107213 FE31B4 A2 11 ?08: ldx #$11 ; error: device read error7214 FE31B6 A4 27 ?10: LDY $277215 FE31B8 80 06 bra L0FAA7216 FE31BA7217 L0F25: ; $0F25 - $11B07218 FE31BA A2 0D ldx #$0D ; error: file not open for reading7219 FE31BC 80 02 bra L0FAA7220 L0EBE: ; $0EBE - $11497221 FE31BE A2 0E ldx #$0E ; error: file not open for writing7222 L0FAA: ; $0FAA - $12357223 FE31C0 24 3B bit $3B ; bit 7 = 1: no errors trap7224 FE31C2 30 07 bmi ?04 ; print error7225 FE31C4 A5 3E LDA $3E7226 FE31C6 D0 02 BNE ?027227 FE31C8 86 3E STX $3E ; runtime error7228 FE31CA 60 ?02: RTS7229 FE31CB 4C 50 1B ?04: JMP vpmerr72307231 FE31CE R0F69:7232 L0CDE: ; $0CDE - $0F697233 ; open file in internal table (24 bytes, 12 files)7234 FE31CE A2 00 LDX #$007235 FE31D0 ACC167236 FE31D0 C2 20 rep #PMFLAG7237 .LONGA on7238 .MNLIST7239 FE31D2 BD D0 FF ?02: LDA !MFILET,X ; logical file table (#0 and #1 permanent)7240 FE31D5 F0 0C BEQ ?04 ; free entry7241 FE31D7 E8 INX7242 FE31D8 E8 INX7243 FE31D9 E0 18 CPX #MAX2LF ; max files * 2 (22)7244 FE31DB D0 F5 BNE ?027245 FE31DD ACC087246 FE31DD E2 20 sep #PMFLAG7247 .LONGA off7248 .MNLIST7249 FE31DF A2 10 LDX #$10 ; error: no free i/o channels7250 FE31E1 80 DD bra L0FAA7251 FE31E3 A5 29 ?04: LDA $29 ; word7252 FE31E5 9D D0 FF STA !MFILET,X ; fill entry on table M2CDA7253 L0CFD: ; $0CFD - $0F887254 FE31E8 ACC087255 FE31E8 E2 20 sep #PMFLAG7256 .LONGA off7257 .MNLIST7258 FE31EA 8A TXA7259 FE31EB 4A LSR a ; file numberTue Jul 17 11:00:23 2018 Page 837260 FE31EC 85 B8 STA $B87261 FE31EE 60 L0F10: RTS72627263 L0F11: ; $0F11 - $119C7264 FE31EF A0 00 LDY #$007265 FE31F1 B1 29 LDA ($29),Y7266 FE31F3 29 20 AND #$207267 FE31F5 D0 C3 BNE L0F257268 FE31F7 20 4B 32 JSR L0D027269 FE31FA A6 B8 LDX $B87270 FE31FC 30 BC BMI L0F257271 FE31FE F0 EE BEQ L0F107272 FE3200 4C C6 FF JMP FSETIN ; set file for input72737274 L1762: ; $1762 - $19ED7275 FE3203 A0 00 LDY #$007276 FE3205 84 3E STY $3E7277 FE3207 ACC167278 FE3207 C2 20 rep #PMFLAG7279 .LONGA on7280 .MNLIST7281 FE3209 B1 2D LDA ($2D),Y7282 FE320B 85 23 STA $237283 FE320D C8 INY7284 FE320E C8 INY7285 FE320F B1 2D LDA ($2D),Y7286 FE3211 85 21 STA $217287 FE3213 C8 INY7288 FE3214 C8 INY7289 FE3215 ACC087290 FE3215 E2 20 sep #PMFLAG7291 .LONGA off7292 .MNLIST7293 FE3217 20 85 30 JSR L17AD7294 FE321A A5 2D LDA $2D7295 FE321C 18 CLC7296 FE321D 69 06 ADC #$067297 FE321F 85 2D STA $2D7298 FE3221 90 02 BCC ?027299 FE3223 E6 2E INC $2E7300 ?02: ;;;JMP L0EA873017302 L0EA8: ; $0EA8 - $11337303 FE3225 A0 00 LDY #$007304 FE3227 B1 29 LDA ($29),Y7305 FE3229 29 30 AND #$307306 FE322B F0 91 BEQ L0EBE7307 FE322D 20 4B 32 JSR L0D027308 FE3230 A6 B8 LDX $B87309 FE3232 30 8A BMI L0EBE7310 FE3234 C9 01 CMP #$017311 FE3236 F0 B6 BEQ L0F107312 FE3238 4C C9 FF JMP FSETOUT ; set file for output73137314 L1FC5: ; $1FC57315 FE323B ACC167316 FE323B C2 20 rep #PMFLAGTue Jul 17 11:00:23 2018 Page 847317 .LONGA on7318 .MNLIST7319 FE323D B2 2D LDA ($2D)7320 FE323F 85 21 STA $217321 FE3241 C8 INY7322 FE3242 C8 INY7323 FE3243 B1 2D LDA ($2D),Y7324 FE3245 85 29 STA $297325 FE3247 ACC087326 FE3247 E2 20 sep #PMFLAG7327 .LONGA off7328 .MNLIST7329 FE3249 80 DA bra L0EA873307331 FE324B R0F8D:7332 L0D02: ; $0D02 - $0F8D7333 ; search file in internal table7334 FE324B A2 FF LDX #$FF7335 FE324D 86 B8 STX $B8 ; invalid file7336 FE324F E8 INX7337 FE3250 ACC167338 FE3250 C2 20 rep #PMFLAG7339 .LONGA on7340 .MNLIST7341 FE3252 BD D0 FF ?02: LDA !MFILET,X ; scan logical file table7342 FE3255 C5 29 CMP $297343 FE3257 F0 8F BEQ L0CFD ; found7344 FE3259 E8 INX7345 FE325A E8 INX7346 FE325B E0 18 CPX #MAX2LF ; max files * 27347 FE325D D0 F3 BNE ?027348 FE325F ACC087349 FE325F E2 20 sep #PMFLAG7350 .LONGA off7351 .MNLIST7352 FE3261 60 _?rs: rts73537354 L2CAA: ; $2CAA - $0E3B7355 ; send char to printer7356 FE3262 85 49 STA tmpa7357 FE3264 20 A8 FF JSR CIOUT7358 FE3267 A5 49 LDA tmpa7359 FE3269 C9 0D CMP #$0D7360 FE326B D0 F4 BNE _?rs7361 FE326D A5 52 LDA autolf ; send LF if not zero7362 FE326F F0 F0 BEQ _?rs ; auto line feed flag7363 FE3271 A9 0A LDA #$0A7364 FE3273 4C A8 FF JMP CIOUT73657366 L0D1C: ; $0D1C - $0FA77367 ; print integer - $21-$22 = integer, $23 = size of the print field7368 FE3276 A2 00 LDX #$007369 FE3278 A5 22 LDA $22 ; $21-$22 = integer7370 FE327A 08 PHP7371 FE327B 24 97 bit runf ; when compile print unsigned7372 FE327D ACC167373 FE327D C2 20 rep #PMFLAGTue Jul 17 11:00:23 2018 Page 857374 .LONGA on7375 .MNLIST7376 FE327F 10 0B bpl ?02 ; compiler: no 2's complement7377 FE3281 A5 21 LDA $21 ; $21-$22 = integer7378 FE3283 10 07 bpl ?027379 FE3285 49 FF FF eor #$FFFF7380 FE3288 1A inc a7381 FE3289 85 21 STA $217382 FE328B E8 INX7383 FE328C A0 00 ?02: LDY #$007384 FE328E 38 sec7385 FE328F E8 ?04: INX7386 ;SEC7387 FE3290 A5 21 LDA $217388 FE3292 F9 9E FF SBC !MPOW10,y7389 FE3295 C8 INY7390 FE3296 C8 INY7391 FE3297 B0 F6 BCS ?047392 FE3299 ACC087393 FE3299 E2 20 sep #PMFLAG7394 .LONGA off7395 .MNLIST7396 FE329B 20 34 33 JSR L0E69 ; print blanks7397 FE329E 28 PLP7398 FE329F 10 09 BPL ?067399 FE32A1 24 97 bit runf ; when compile print unsigned7400 FE32A3 10 05 bpl ?067401 FE32A5 A9 2D LDA #$2D7402 FE32A7 20 E3 32 JSR L0EC4 ; print sign7403 FE32AA 38 ?06: SEC7404 FE32AB 08 PHP7405 FE32AC A0 08 LDY #$087406 FE32AE ACC167407 FE32AE C2 20 rep #PMFLAG7408 .LONGA on7409 .MNLIST7410 FE32B0 A2 2F ?08: LDX #$2F7411 FE32B2 38 sec7412 FE32B3 E8 ?10: INX7413 ;SEC7414 FE32B4 A5 21 LDA $217415 FE32B6 F9 9C FF SBC !MPOW10-2,y7416 FE32B9 85 21 STA $217417 FE32BB B0 F6 BCS ?107418 FE32BD ACC087419 FE32BD E2 20 sep #PMFLAG7420 .LONGA off7421 .MNLIST7422 FE32BF 8A txa7423 FE32C0 C9 30 CMP #$307424 FE32C2 D0 04 BNE ?127425 FE32C4 28 PLP7426 FE32C5 B0 06 BCS ?147427 FE32C7 08 PHP7428 FE32C8 20 E3 32 ?12: JSR L0EC4 ; print digit7429 FE32CB 28 PLP7430 FE32CC 18 clcTue Jul 17 11:00:23 2018 Page 867431 FE32CD 08 ?14: php7432 FE32CE ACC16CLC7433 FE32CE C2 21 rep #(PMFLAG.OR.PCFLAG)7434 .LONGA on7435 .MNLIST7436 FE32D0 A5 21 LDA $217437 FE32D2 79 9C FF ADC !MPOW10-2,y7438 FE32D5 85 21 STA $217439 FE32D7 88 DEY7440 FE32D8 88 DEY7441 FE32D9 D0 D5 BNE ?087442 FE32DB ACC087443 FE32DB E2 20 sep #PMFLAG7444 .LONGA off7445 .MNLIST7446 FE32DD 28 plp7447 FE32DE A5 21 LDA $217448 FE32E0 18 CLC7449 FE32E1 69 30 ADC #$3074507451 L0EC4: ; $0EC4 - $114F7452 ; write char to text device7453 FE32E3 08 PHP7454 FE32E4 85 4A sta tmpwa7455 FE32E6 84 44 STY tmpy7456 FE32E8 86 4B stx tmpx7457 FE32EA A4 B8 LDY $B87458 FE32EC C0 01 CPY #$017459 FE32EE F0 2C BEQ ?03 ; to command channel7460 FE32F0 A4 BA LDY $BA7461 FE32F2 C0 03 CPY #$037462 FE32F4 F0 26 BEQ ?03 ; to screen7463 FE32F6 90 24 BCC ?037464 FE32F8 A8 tay7465 FE32F9 B2 29 LDA ($29)7466 FE32FB 89 04 bit #$047467 FE32FD F0 06 BEQ ?01 ; no printer7468 FE32FF 98 tya7469 FE3300 20 62 32 JSR L2CAA ; send to printer7470 FE3303 80 1A bra ?047471 FE3305 29 08 ?01: AND #$087472 FE3307 A8 TAY7473 FE3308 A5 4A lda tmpwa7474 FE330A C0 00 CPY #$007475 FE330C D0 0E BNE ?037476 FE330E C9 0D CMP #$0D7477 FE3310 F0 05 BEQ ?027478 FE3312 20 A8 FF JSR CIOUT7479 FE3315 80 08 bra ?047480 FE3317 20 A8 FF ?02: JSR CIOUT7481 FE331A 80 03 bra ?047482 FE331C 20 D2 FF ?03: JSR FCHROUT7483 FE331F 20 B8 30 ?04: JSR L0E917484 FE3322 A6 4B ldx tmpx7485 FE3324 A4 44 LDY tmpy7486 FE3326 A5 4A lda tmpwa7487 FE3328 28 PLPTue Jul 17 11:00:23 2018 Page 877488 FE3329 60 _?rs1: RTS74897490 L29B6: ; $29B6 - $2F987491 ; print a blank or minus sign7492 FE332A A9 20 LDA #$207493 FE332C 24 66 BIT $667494 FE332E 10 B3 BPL L0EC47495 FE3330 A9 2D LDA #$2D7496 FE3332 80 AF bra L0EC474977498 L0E69: ; $0E69 - $10F47499 FE3334 8A TXA7500 FE3335 49 FF EOR #$FF7501 FE3337 38 SEC7502 FE3338 65 23 ADC $237503 FE333A AA TAX7504 FE333B CA ?01: DEX7505 FE333C 30 EB BMI _?rs17506 FE333E A9 20 LDA #$207507 FE3340 20 E3 32 JSR L0EC47508 FE3343 80 F6 bra ?0175097510 L0A73: ; $0A73 - $0C797511 ; handle disk error7512 ;LDX #$01 ; file #17513 ;JSR FSETIN ; channel command in input7514 FE3345 20 CC FF jsr FCLRCH7515 FE3348 24 7C bit pcdsk7516 FE334A 10 06 bpl ?rd ; compile/exec on real disk7517 FE334C 64 21 stz $21 ; no real disk error7518 FE334E7519 FE334E A9 00 lda #0 ; no error7520 FE3350 80 36 bra ?rd27521 FE33527522 FE3352 A5 A1 ?rd: lda tbnk ; destination buffer7523 FE3354 48 pha7524 FE3355 F4 04 FF pea #TXTBUF7525 FE3358 F4 A1 00 pea #TBUFMAX-1 ; size7526 FE335B A9 0F lda #$0F ; command chnl7527 FE335D 48 pha7528 FE335E CBMFSRD ; get error string7529 FE335E 02 81 cop FN_CBMFSRW7530 FE3360 00 .DB $007531 .MNLIST7532 FE3361 8B phb7533 FE3362 A5 A1 lda tbnk7534 FE3364 48 pha7535 FE3365 AB plb7536 FE3366 AD 04 FF lda !TXTBUF7537 FE3369 29 0F and #$0F7538 FE336B 0A asl a7539 FE336C 85 21 sta $217540 FE336E 0A asl a7541 FE336F 0A asl a7542 FE3370 65 21 adc $217543 FE3372 85 21 sta $217544 FE3374 AD 05 FF lda !TXTBUF+1Tue Jul 17 11:00:23 2018 Page 887545 FE3377 AB plb7546 FE3378 29 0F and #$0F7547 FE337A 65 21 adc $217548 FE337C 85 21 sta $217549 FE337E F0 08 beq ?rd2 ; no error7550 FE3380 C9 14 cmp #20 ; below 20 no disk error7551 FE3382 A9 00 lda #07552 FE3384 90 02 bcc ?rd27553 FE3386 A9 1B lda #MAXVPME ; disk error7554 FE3388 85 3E ?rd2: sta $3E7555 FE338A7556 ;jsr FCHRIN ; get error code7557 ;sta $217558 ;jsr FCLRCH7559 ;LDA $21 ; error code7560 ;STA $3E ; error code from disk7561 FE338A7562 FE338A F0 9D BEQ _?rs1 ; no disk error7563 FE338C A5 3B LDA $3B7564 FE338E 29 80 AND #$807565 FE3390 F0 97 BEQ _?rs1 ; trap i/o error7566 FE3392 A5 29 lda $29 ; save current file desc7567 FE3394 85 71 sta fbufpt7568 FE3396 A5 2A lda $2A7569 FE3398 85 72 sta fbufpt+17570 FE339A 20 5C 31 JSR L0F9B ; reset file #1 and print CR7571 FE339D 64 3B stz $3B7572 FE339F A6 3E ldx $3E ; error code7573 FE33A1 E0 1B cpx #MAXVPME7574 FE33A3 90 12 bcc ?er0 ; no disk error7575 FE33A5 A5 A1 lda tbnk7576 FE33A7 85 78 sta longp+2 ; error string from disk7577 FE33A9 A9 04 lda #<TXTBUF7578 FE33AB 85 76 sta longp7579 FE33AD A9 FF lda #>TXTBUF7580 FE33AF 85 77 sta longp+17581 FE33B1 A5 21 lda $217582 FE33B3 85 3E sta $3E ; disk error code7583 FE33B5 80 03 bra ?er17584 FE33B7 20 39 1C ?er0: jsr vpmsrch ; search error string - store ptr in longp75857586 ; now format and print error message7587 FE33BA7588 FE33BA A4 B7 ?er1: ldy $B77589 FE33BC D0 12 bne ?02a ; file name75907591 FE33BE A5 78 lda longp+2 ; param 3: error string pointer7592 FE33C0 48 pha7593 FE33C1 D4 76 pei (longp)7594 FE33C3 A5 3E lda $3E ; param 2: error code7595 FE33C5 48 pha7596 FE33C6 A9 FE lda #^STRFMT1A ; param 1: format string7597 FE33C8 48 pha7598 FE33C9 F4 6D 3E pea #STRFMT1A7599 FE33CC A9 08 lda #$08 ; param 0: number of total bytes7600 FE33CE 80 15 bra ?pr7601Tue Jul 17 11:00:23 2018 Page 897602 ;stz !MTMPB07603 ;ACC167604 ;lda $BB ; set an empty string if no file name7605 ;bne ?02a7606 ;lda #MTMPB07607 ;sta $BB7608 ?02a: ;ACC0876097610 FE33D0 A5 BD lda $BD ; param 4: file name pointer7611 FE33D2 48 pha7612 FE33D3 D4 BB pei ($BB)7613 FE33D5 A5 78 lda longp+2 ; param 3: error string pointer7614 FE33D7 48 pha7615 FE33D8 D4 76 pei (longp)7616 FE33DA A5 3E lda $3E ; param 2: error code7617 FE33DC 48 pha7618 FE33DD A9 FE lda #^STRFMT1 ; param 1: format string7619 FE33DF 48 pha7620 FE33E0 F4 4B 3E pea #STRFMT17621 FE33E3 A9 0B lda #$0B ; param 0: number of total bytes7622 FE33E5 48 ?pr: pha7623 FE33E6 BPRINTF7624 FE33E6 02 11 cop $117625 .MNLIST7626 ;;JSR L0E897627 FE33E8 4C 7C 1B JMP vpmerr276287629 L09C2: ; $09C2 - $0BC87630 ; prepare for open a disk file7631 FE33EB 64 3E STZ $3E ; clear runtime error7632 FE33ED ACC167633 FE33ED C2 20 rep #PMFLAG7634 .LONGA on7635 .MNLIST7636 FE33EF B2 2D LDA ($2D)7637 FE33F1 85 21 STA $217638 FE33F3 C8 INY7639 FE33F4 C8 INY7640 FE33F5 B1 2D LDA ($2D),Y7641 FE33F7 38 SEC7642 FE33F8 E9 03 00 SBC #$00037643 FE33FB 91 2D STA ($2D),Y7644 FE33FD 85 29 STA $297645 FE33FF 88 dey7646 FE3400 91 29 STA ($29),Y7647 FE3402 ACC087648 FE3402 E2 20 sep #PMFLAG7649 .LONGA off7650 .MNLIST7651 FE3404 20 4B 32 JSR L0D02 ; search file7652 FE3407 A5 B8 LDA $B87653 FE3409 30 05 BMI ?02 ; no file in internal table7654 FE340B 20 21 31 JSR L0A5B ; close file7655 FE340E 80 03 bra ?047656 FE3410 20 CE 31 ?02: JSR L0CDE ; open file in internal table7657 FE3413 A5 3E ?04: LDA $3E7658 FE3415 F0 01 beq ?044Tue Jul 17 11:00:23 2018 Page 907659 FE3417 60 rts7660 ;BNE ?14 ; exit if any error7661 FE3418 A5 21 ?044: LDA $217662 FE341A 05 22 ORA $227663 ;;BNE ?06 ; file name was specified7664 FE341C F0 3E beq ?05 ; file name was not specified76657666 FE341E B2 21 lda ($21)7667 FE3420 C9 40 cmp #'@'7668 FE3422 D0 06 bne ?04a7669 FE3424 E6 21 inc $217670 FE3426 D0 02 bne ?04a7671 FE3428 E6 22 inc $227672 FE342A A0 01 ?04a: ldy #17673 FE342C B1 21 lda ($21),y7674 FE342E C9 3A cmp #':'7675 FE3430 F0 3A beq ?06 ; drive present 'x:'7676 FE3432 88 dey7677 FE3433 B1 21 ?04b: lda ($21),y7678 FE3435 99 7E FF sta MTMPB0,y7679 FE3438 F0 0E beq ?04c7680 FE343A C9 20 cmp #' '7681 FE343C F0 0A beq ?04c7682 FE343E C8 iny7683 FE343F C0 11 cpy #177684 FE3441 90 F0 bcc ?04b7685 FE3443 A9 00 lda #07686 FE3445 99 7D FF sta MTMPB0-1,y7687 FE3448 A9 30 ?04c: lda #'0'7688 FE344A 8D 7C FF sta !MTMPB0-27689 FE344D A9 3A lda #':'7690 FE344F 8D 7D FF sta !MTMPB0-17691 FE3452 A9 7C LDA #<MTMPW1 ; local buffer file name7692 FE3454 85 21 STA $217693 FE3456 A9 FF LDA #>MTMPW17694 FE3458 85 22 STA $227695 FE345A 80 10 bra ?067696 FE345C7697 FE345C A9 8F ?05: lda #<MTMPNAM ; setup temp. file7698 FE345E 85 21 sta $217699 FE3460 A9 FF lda #>MTMPNAM ; temp. file name '0:PCODEV01.XTN'7700 FE3462 85 22 sta $227701 FE3464 A5 B8 lda $B8 ; #file number 2..117702 FE3466 18 clc7703 FE3467 69 2E adc #$2E ; '0'..'9'7704 FE3469 8D 9C FF sta !MTMPNAM+$0D ; N = '0'..'9'7705 ?06: ; compiler bug -- store one more '@' in front7706 ; avoid this - skip '@' if one at beginning7707 FE346C B2 21 lda ($21)7708 FE346E C9 40 cmp #'@'7709 FE3470 D0 06 bne ?077710 FE3472 E6 21 inc $217711 FE3474 D0 02 bne ?077712 FE3476 E6 22 inc $227713 FE3478 A9 D0 ?07: LDA #<GFNAME ; global buffer file name7714 FE347A 85 BB STA $BB7715 FE347C A9 FF LDA #>GFNAMETue Jul 17 11:00:23 2018 Page 917716 FE347E 85 BC STA $BC7717 FE3480 A5 A1 lda tbnk ; text bank7718 FE3482 85 BD sta $BD ; bank7719 FE3484 A0 00 LDY #$007720 FE3486 A9 40 LDA #$40 ; put '@' - replace file on disk if write7721 FE3488 97 BB STA [$BB],Y7722 FE348A B1 21 ?08: LDA ($21),Y7723 FE348C C8 INY7724 FE348D C9 61 CMP #'a'7725 FE348F 90 06 BCC ?107726 FE3491 C9 7B CMP #'z'+17727 FE3493 B0 02 BCS ?107728 FE3495 29 DF and #$DF7729 FE3497 C9 00 ?10: CMP #$00 ; #0 is string terminator7730 FE3499 F0 0B BEQ ?127731 FE349B C9 20 CMP #$207732 FE349D F0 07 BEQ ?12 ; blank is a string terminator7733 FE349F 97 BB STA [$BB],Y7734 FE34A1 C0 12 CPY #MAXFNLEN-1 ; one more room for '@'7735 FE34A3 90 E5 bcc ?087736 FE34A5 C8 INY ; trunc file name if exceed7737 FE34A6 A9 2C ?12: lda #',' ; put final ',s,w'7738 FE34A8 97 BB sta [$BB],y7739 FE34AA C8 iny7740 FE34AB A9 53 lda #'S'7741 FE34AD 97 BB sta [$BB],y7742 FE34AF C8 iny7743 FE34B0 A9 2C lda #','7744 FE34B2 97 BB sta [$BB],y7745 FE34B4 C8 iny7746 FE34B5 A9 57 lda #'W'7747 FE34B7 97 BB sta [$BB],y7748 FE34B9 C8 iny7749 FE34BA A9 00 lda #07750 FE34BC 97 BB STA [$BB],Y ; store terminator7751 FE34BE 84 B7 STY $B7 ; filename lenght7752 FE34C0 A5 B8 LDA $B87753 ;and #$3F7754 ;ora #$807755 FE34C2 85 B9 STA $B9 ; secondary address = file number7756 FE34C4 A9 08 LDA #$08 ; virtual iec disk #number7757 FE34C6 85 BA STA $BA7758 FE34C8 60 ?14: RTS77597760 L0F73: ; $0F73 - $11FE7761 ; get byte from input buffer -- with boundary check7762 FE34C9 A4 45 LDY inqidx7763 FE34CB C4 46 CPY inqcnt7764 FE34CD D0 1F BNE ?047765 FE34CF A0 00 LDY #$007766 FE34D1 84 45 STY inqidx7767 FE34D3 20 CF FF ?02: JSR FCHRIN7768 FE34D6 99 00 FF STA !MINBUF,Y7769 FE34D9 C8 INY7770 FE34DA C0 5A cpy #QINSIZ ; check boundary7771 FE34DC 90 05 bcc ?03 ; room available7772 FE34DE A9 0D lda #$0D ; terminate inputTue Jul 17 11:00:23 2018 Page 927773 FE34E0 99 FF FE STA !MINBUF-1,Y7774 ;sta $ff00-1,y7775 FE34E3 C9 0D ?03: CMP #$0D7776 FE34E5 D0 EC BNE ?027777 FE34E7 84 46 STY inqcnt7778 FE34E9 20 D2 FF JSR FCHROUT7779 FE34EC A4 45 LDY inqidx7780 FE34EE E6 45 ?04: INC inqidx7781 FE34F0 B9 00 FF LDA !MINBUF,Y7782 FE34F3 60 RTS77837784 ;---------------------------------------------------------------------------7785 ; external function's used by compiler7786 ;---------------------------------------------------------------------------77877788 L084E: ; $1C33 - ($084E)7789 ; evaluate floating point constant7790 .GLOBAL L084E7791 FE34F4 ACC167792 FE34F4 C2 20 rep #PMFLAG7793 .LONGA on7794 .MNLIST7795 FE34F6 38 SEC7796 FE34F7 B1 2D LDA ($2D),Y7797 FE34F9 E9 50 00 SBC #$00507798 FE34FC 85 7A STA $7A7799 FE34FE ACC087800 FE34FE E2 20 sep #PMFLAG7801 .LONGA off7802 .MNLIST7803 FE3500 20 C6 98 JSR XBCF3P7804 FE3503 AA TAX ; X = 0 if all ok7805 FE3504 ACC167806 FE3504 C2 20 rep #PMFLAG7807 .LONGA on7808 .MNLIST7809 FE3506 A0 02 LDY #$027810 FE3508 B1 2D LDA ($2D),Y7811 FE350A 3A dec a7812 FE350B 3A dec a7813 FE350C 85 27 STA $277814 FE350E C8 INY7815 FE350F C8 iny7816 FE3510 B1 2D LDA ($2D),Y7817 FE3512 3A dec a7818 FE3513 3A dec a7819 FE3514 85 23 STA $237820 FE3516 C8 INY7821 FE3517 C8 iny7822 FE3518 B1 2D LDA ($2D),Y7823 FE351A 3A dec a7824 FE351B 3A dec a7825 FE351C 85 25 STA $257826 FE351E C8 iny7827 FE351F ACC087828 FE351F E2 20 sep #PMFLAG7829 .LONGA offTue Jul 17 11:00:23 2018 Page 937830 .MNLIST7831 FE3521 A9 00 LDA #$007832 FE3523 91 2D STA ($2D),Y7833 FE3525 E0 00 CPX #$007834 FE3527 D0 04 BNE ?167835 FE3529 A9 01 LDA #$017836 FE352B 91 2D STA ($2D),Y7837 FE352D 88 ?16: DEY7838 FE352E 91 2D STA ($2D),Y7839 FE3530 ACC167840 FE3530 C2 20 rep #PMFLAG7841 .LONGA on7842 .MNLIST7843 FE3532 AD E8 FF lda !FAC1TMP7844 FE3535 92 25 STA ($25)7845 FE3537 AD EA FF lda !FAC1TMP+27846 FE353A 92 27 STA ($27)7847 FE353C ACC087848 FE353C E2 20 sep #PMFLAG7849 .LONGA off7850 .MNLIST7851 FE353E A9 00 lda #$007852 FE3540 EB xba7853 FE3541 AD EC FF lda !FAC1TMP+47854 FE3544 ACC16CLC7855 FE3544 C2 21 rep #(PMFLAG.OR.PCFLAG)7856 .LONGA on7857 .MNLIST7858 FE3546 92 23 STA ($23)7859 FE3548 A5 2D LDA $2D7860 FE354A 69 06 00 ADC #$00067861 FE354D 85 2D STA $2D7862 FE354F ACC087863 FE354F E2 20 sep #PMFLAG7864 .LONGA off7865 .MNLIST7866 FE3551 60 RTS78677868 L0851: ; $1D1C ($0851)7869 ; search reserved words7870 .EXTERN PCRSWD7871 .GLOBAL L08517872 FE3552 38 SEC7873 FE3553 ACC167874 FE3553 C2 20 rep #PMFLAG7875 .LONGA on7876 .MNLIST7877 FE3555 B2 2D LDA ($2D)7878 FE3557 E9 08 00 SBC #$00087879 FE355A 85 23 STA $237880 FE355C ACC087881 FE355C E2 20 sep #PMFLAG7882 .LONGA off7883 .MNLIST7884 FE355E A9 FF LDA #$FF7885 FE3560 85 21 STA $217886 FE3562 A2 00 LDX #$00Tue Jul 17 11:00:23 2018 Page 947887 FE3564 A0 00 ?02: LDY #$007888 FE3566 E6 21 INC $217889 FE3568 B1 23 ?04: LDA ($23),Y7890 FE356A DF 0E 82 FE CMP >PCRSWD,X7891 FE356E D0 15 BNE ?107892 FE3570 C8 INY7893 FE3571 C9 20 CMP #$207894 FE3573 F0 01 BEQ ?067895 FE3575 E8 INX7896 FE3576 C0 08 ?06: CPY #$087897 FE3578 D0 EE BNE ?047898 FE357A A5 21 LDA $217899 FE357C A0 00 ?08: LDY #$007900 FE357E 92 2D STA ($2D)7901 FE3580 98 TYA7902 FE3581 C8 INY7903 FE3582 91 2D STA ($2D),Y7904 FE3584 60 RTS7905 FE3585 BF 0E 82 FE ?10: LDA >PCRSWD,X7906 FE3589 E8 INX7907 FE358A C9 20 CMP #$207908 FE358C D0 F7 BNE ?107909 FE358E BF 0E 82 FE LDA >PCRSWD,X7910 FE3592 D0 D0 BNE ?027911 FE3594 A9 27 LDA #$277912 FE3596 D0 E4 BNE ?0879137914 L083C: ; $1E16 ($083C)7915 ; load an error message in compile mode7916 .EXTERN PCERRS7917 .GLOBAL L083C7918 FE3598 ACC167919 FE3598 C2 20 rep #PMFLAG7920 .LONGA on7921 .MNLIST7922 FE359A B2 2D lda ($2D)7923 FE359C 38 sec7924 FE359D E9 80 00 sbc #$00807925 FE35A0 85 21 sta $217926 FE35A2 ACC087927 FE35A2 E2 20 sep #PMFLAG7928 .LONGA off7929 .MNLIST7930 FE35A4 A0 02 ldy #$027931 FE35A6 B1 2D lda ($2D),y ; error code7932 FE35A8 A8 tay ; Y = error code7933 FE35A9 A9 80 lda #$807934 FE35AB 85 4C sta pcterr ; set error flag7935 FE35AD A2 00 ldx #0 ; index7936 FE35AF INDEX167937 FE35AF C2 10 rep #PXFLAG7938 .LONGI on7939 .MNLIST7940 FE35B1 98 tya7941 FE35B2 F0 14 beq ?04 ; error code = 0 should not occur7942 FE35B4 D0 04 bne ?027943 FE35B6 AA ?01: taxTue Jul 17 11:00:23 2018 Page 957944 FE35B7 A8 tay7945 FE35B8 F0 0E beq ?047946 FE35BA BF E5 82 FE ?02: lda >PCERRS,x ; offset of error string's7947 FE35BE F0 F6 beq ?01 ; end of strings table7948 FE35C0 E8 inx7949 FE35C1 C9 0D cmp #$0D7950 FE35C3 D0 F5 bne ?027951 FE35C5 88 dey7952 FE35C6 D0 F2 bne ?027953 FE35C8 BF E5 82 FE ?04: lda >PCERRS,x ; here Y = 0 at first time7954 FE35CC E8 inx7955 FE35CD 91 21 sta ($21),y7956 FE35CF C8 iny7957 FE35D0 C9 0D cmp #$0D7958 FE35D2 D0 F4 bne ?04 ; until carriage return7959 FE35D4 88 dey7960 FE35D5 A9 24 lda #$24 ; change CR7961 FE35D7 91 21 sta ($21),y7962 FE35D9 CPU167963 FE35D9 C2 30 rep #(PMFLAG.OR.PXFLAG)7964 .LONGA on7965 .LONGI on7966 .MNLIST7967 FE35DB A5 2D lda $2D7968 FE35DD 69 04 00 adc #$00047969 FE35E0 85 2D sta $2D7970 FE35E2 CPU087971 FE35E2 E2 30 sep #(PMFLAG.OR.PXFLAG)7972 .LONGA off7973 .LONGI off7974 .MNLIST7975 FE35E4 60 rts79767977 L0836: ; $1DC9 ($0836)7978 ; search standard procedure/function/identifier7979 .EXTERN PCSFADDR7980 .GLOBAL L08367981 FE35E5 ACC167982 FE35E5 C2 20 rep #PMFLAG7983 .LONGA on7984 .MNLIST7985 FE35E7 A9 5E 3A LDA #PCSFADDR7986 FE35EA 85 23 sta $237987 FE35EC 80 0C bra L1D7979887989 L084B: ; $1D63 ($084B)7990 ; search user procedure/function/identifier7991 .GLOBAL L084B7992 FE35EE ACC167993 FE35EE C2 20 rep #PMFLAG7994 .LONGA on7995 .MNLIST7996 FE35F0 B2 2D LDA ($2D)7997 FE35F2 85 23 STA $237998 FE35F4 A5 2D LDA $2D7999 FE35F6 1A inc a8000 FE35F7 1A inc aTue Jul 17 11:00:23 2018 Page 968001 FE35F8 85 2D STA $2D8002 FE35FA L1D79:8003 FE35FA B2 2D LDA ($2D)8004 FE35FC 38 SEC8005 FE35FD E9 08 00 SBC #$00088006 FE3600 85 21 STA $218007 FE3602 A5 23 ?02: LDA $238008 FE3604 F0 25 BEQ ?088009 FE3606 38 SEC8010 FE3607 E9 10 00 SBC #$00108011 FE360A 85 27 sta $278012 FE360C ACC088013 FE360C E2 20 sep #PMFLAG8014 .LONGA off8015 .MNLIST8016 FE360E A0 00 LDY #$008017 FE3610 B1 21 ?04: LDA ($21),Y8018 FE3612 D1 27 CMP ($27),Y8019 FE3614 D0 0B BNE ?068020 FE3616 C8 INY8021 FE3617 C0 08 CPY #$088022 FE3619 D0 F5 BNE ?048023 FE361B ACC168024 FE361B C2 20 rep #PMFLAG8025 .LONGA on8026 .MNLIST8027 FE361D A5 23 LDA $238028 FE361F 80 0A bra ?088029 FE3621 A0 0E ?06: LDY #$0E8030 FE3623 ACC168031 FE3623 C2 20 rep #PMFLAG8032 .LONGA on8033 .MNLIST8034 FE3625 B1 27 LDA ($27),Y8035 FE3627 85 23 STA $238036 FE3629 D0 D7 BNE ?028037 FE362B 92 2D ?08: STA ($2D)8038 FE362D ACC088039 FE362D E2 20 sep #PMFLAG8040 .LONGA off8041 .MNLIST8042 FE362F L1E79x:8043 FE362F 60 RTS80448045 L083F: ; $1E79 ($083F)8046 .GLOBAL L083F8047 FE3630 A0 00 LDY #$008048 FE3632 B2 0F LDA ($0F)8049 FE3634 F0 F9 BEQ L1E79x8050 FE3636 ACC168051 FE3636 C2 20 rep #PMFLAG8052 .LONGA on8053 .MNLIST8054 FE3638 B2 1B LDA ($1B)8055 FE363A 85 29 STA $298056 FE363C ACC088057 FE363C E2 20 sep #PMFLAGTue Jul 17 11:00:23 2018 Page 978058 .LONGA off8059 .MNLIST8060 FE363E B2 0D LDA ($0D)8061 FE3640 F0 08 BEQ ?028062 FE3642 ACC168063 FE3642 C2 20 rep #PMFLAG8064 .LONGA on8065 .MNLIST8066 FE3644 B2 19 LDA ($19)8067 FE3646 85 29 STA $298068 FE3648 ACC088069 FE3648 E2 20 sep #PMFLAG8070 .LONGA off8071 .MNLIST8072 FE364A B2 29 ?02: LDA ($29)8073 FE364C 29 80 AND #$808074 FE364E F0 03 BEQ ?048075 FE3650 4C DC 36 jmp ?108076 FE3653 ?04: ACC168077 FE3653 C2 20 rep #PMFLAG8078 .LONGA on8079 .MNLIST8080 FE3655 A5 29 LDA $298081 FE3657 3A dec a8082 FE3658 3A dec a8083 FE3659 85 21 STA $218084 FE365B ACC088085 FE365B E2 20 sep #PMFLAG8086 .LONGA off8087 .MNLIST8088 FE365D B2 21 LDA ($21)8089 FE365F 92 0F STA ($0F)8090 FE3661 20 EF 31 JSR L0F118091 FE3664 20 71 31 ?05: JSR L0F2B8092 FE3667 C9 0A CMP #$0A8093 FE3669 F0 F9 BEQ ?058094 FE366B 92 21 STA ($21)8095 FE366D 20 CC FF JSR FCLRCH8096 FE3670 B2 0F LDA ($0F)8097 FE3672 C9 0D CMP #$0D8098 FE3674 D0 3C BNE ?068099 FE3676 A9 20 ?05a: LDA #$208100 FE3678 92 0F STA ($0F)8101 FE367A CPU168102 FE367A C2 30 rep #(PMFLAG.OR.PXFLAG)8103 .LONGA on8104 .LONGI on8105 .MNLIST8106 FE367C B2 13 LDA ($13) ; line number?8107 FE367E 1A inc a8108 FE367F 92 13 STA ($13)81098110 ;ldx srcdsk8111 ;cpx #$088112 ;beq ?05b8113 ;lda psrline8114 ;STA ($13)Tue Jul 17 11:00:23 2018 Page 9881158116 FE3681 98 ?05b: tya8117 FE3682 92 11 STA ($11)8118 FE3684 CPU088119 FE3684 E2 30 sep #(PMFLAG.OR.PXFLAG)8120 .LONGA off8121 .LONGI off8122 .MNLIST8123 FE3686 A9 01 LDA #$018124 FE3688 92 0B STA ($0B)8125 FE368A B2 07 LDA ($07)8126 FE368C F0 24 BEQ ?068127 FE368E ACC168128 FE368E C2 20 rep #PMFLAG8129 .LONGA on8130 .MNLIST8131 FE3690 B2 17 LDA ($17)8132 FE3692 85 29 STA $298133 FE3694 ACC088134 FE3694 E2 20 sep #PMFLAG8135 .LONGA off8136 .MNLIST8137 FE3696 20 25 32 JSR L0EA88138 FE3699 A9 0D LDA #$0D8139 FE369B 20 E3 32 JSR L0EC48140 FE369E A0 00 LDY #$008141 FE36A0 ACC168142 FE36A0 C2 20 rep #PMFLAG8143 .LONGA on8144 .MNLIST8145 FE36A2 B2 13 LDA ($13)8146 FE36A4 85 21 STA $218147 FE36A6 ACC088148 FE36A6 E2 20 sep #PMFLAG8149 .LONGA off8150 .MNLIST8151 FE36A8 A9 05 LDA #$05 ; line number 4 chars8152 FE36AA 85 23 STA $238153 FE36AC 20 76 32 JSR L0D1C ; print line number8154 FE36AF 20 CC FF JSR FCLRCH8155 FE36B2 A0 00 ?06: LDY #$008156 FE36B4 B2 07 LDA ($07)8157 FE36B6 F0 23 BEQ ?088158 FE36B8 ACC168159 FE36B8 C2 20 rep #PMFLAG8160 .LONGA on8161 .MNLIST8162 FE36BA B2 17 LDA ($17)8163 FE36BC 85 29 STA $298164 FE36BE ACC088165 FE36BE E2 20 sep #PMFLAG8166 .LONGA off8167 .MNLIST8168 FE36C0 20 25 32 JSR L0EA88169 FE36C3 A0 00 LDY #$008170 FE36C5 B2 0F LDA ($0F)8171 FE36C7 20 E3 32 JSR L0EC4Tue Jul 17 11:00:23 2018 Page 998172 FE36CA AA TAX8173 FE36CB B2 11 LDA ($11)8174 FE36CD C9 64 CMP #$648175 FE36CF B0 0A BCS ?088176 FE36D1 1A inc a8177 FE36D2 92 11 STA ($11)8178 FE36D4 A8 TAY8179 FE36D5 8A TXA8180 FE36D6 91 15 STA ($15),Y8181 FE36D8 20 CC FF JSR FCLRCH8182 FE36DB 60 ?08: RTS8183 FE36DC A0 00 ?10: LDY #$008184 FE36DE B2 0D LDA ($0D)8185 FE36E0 F0 05 BEQ ?128186 FE36E2 98 TYA8187 FE36E3 92 0D STA ($0D)8188 FE36E5 80 8F bra ?05a8189 FE36E7 92 0F ?12: STA ($0F)8190 FE36E9 A9 01 LDA #$018191 FE36EB 92 09 STA ($09)8192 FE36ED 60 RTS81938194 L0842: ; $1F4C ($0842)8195 ; setup group of 11 pointer from $07-$08 to $1B-$1C8196 .GLOBAL L08428197 FE36EE DA phx8198 FE36EF A0 00 LDY #$008199 FE36F1 BB tyx8200 FE36F2 ACC168201 FE36F2 C2 20 rep #PMFLAG8202 .LONGA on8203 .MNLIST8204 FE36F4 B1 2D ?02: LDA ($2D),Y8205 FE36F6 3A dec a8206 FE36F7 3A dec a8207 FE36F8 95 07 STA <$07,x8208 FE36FA E8 inx8209 FE36FB E8 inx8210 FE36FC C8 iny8211 FE36FD C8 iny8212 FE36FE C0 16 cpy #$168213 FE3700 D0 F2 bne ?028214 FE3702 18 clc8215 FE3703 A5 2D lda $2D8216 FE3705 69 16 00 adc #$00168217 FE3708 85 2D sta $2D8218 FE370A 38 sec8219 FE370B A5 15 lda $158220 FE370D E9 63 00 sbc #$00638221 FE3710 85 15 sta $158222 FE3712 ACC088223 FE3712 E2 20 sep #PMFLAG8224 .LONGA off8225 .MNLIST8226 FE3714 FA plx8227 FE3715 60 rts8228Tue Jul 17 11:00:23 2018 Page 1008229 L0845: ; $1DD3 ($0845)8230 ; setup pointer to standard basic type records8231 .EXTERN PCTYPEREC8232 .GLOBAL L08458233 FE3716 A2 00 LDX #$008234 FE3718 ACC168235 FE3718 C2 20 rep #PMFLAG8236 .LONGA on8237 .MNLIST8238 FE371A B2 2D ?02: LDA ($2D)8239 FE371C 3A dec a8240 FE371D 3A dec a8241 FE371E 85 27 STA $278242 FE3720 BF D1 82 FE LDA >PCTYPEREC,X8243 FE3724 92 27 sta ($27)8244 FE3726 A5 2D lda $2D8245 FE3728 1A inc a8246 FE3729 1A inc a8247 FE372A 85 2D sta $2D8248 FE372C E8 inx8249 FE372D E8 inx8250 FE372E E0 14 cpx #$148251 FE3730 D0 E8 bne ?028252 FE3732 ACC088253 FE3732 E2 20 sep #PMFLAG8254 .LONGA off8255 .MNLIST8256 FE3734 60 rts82578258 L0857: ; $1C2D ($0857)8259 .GLOBAL L0857, L08548260 FE3735 A9 50 LDA #<MINBUF+$50 ; buffer 0250?8261 FE3737 A2 FF LDX #>MINBUF+$508262 ;lda #$008263 ;ldx #$028264 FE3739 80 22 bra L1C1482658266 L0854: ; $1BF1 ($0854)8267 FE373B A5 4E LDA defprn ; open file for printer8268 FE373D 85 BA STA $BA8269 FE373F A9 02 LDA #$028270 FE3741 85 B8 STA $B88271 FE3743 A9 00 LDA #$008272 FE3745 85 B9 STA $B98273 FE3747 85 B7 STA $B78274 FE3749 20 C0 FF JSR FOPEN8275 FE374C A5 2D LDA $2D8276 FE374E 18 CLC8277 FE374F 69 02 ADC #$028278 FE3751 85 2D STA $2D8279 FE3753 90 02 BCC ?028280 FE3755 E6 2E INC $2E8281 FE3757 AD D4 FF ?02: LDA !MFILET+4 ; default printer file descriptor8282 FE375A AE D5 FF LDX !MFILET+58283 L1C14: ; $1C148284 FE375D EB xba8285 FE375E 8A txa ; high byteTue Jul 17 11:00:23 2018 Page 1018286 FE375F EB xba8287 FE3760 CPU168288 FE3760 C2 30 rep #(PMFLAG.OR.PXFLAG)8289 .LONGA on8290 .LONGI on8291 .MNLIST8292 FE3762 AA tax8293 FE3763 B2 2D LDA ($2D)8294 FE3765 3A dec a8295 FE3766 3A dec a8296 FE3767 85 27 STA $278297 FE3769 8A TXA8298 FE376A 92 27 STA ($27)8299 FE376C CPU088300 FE376C E2 30 sep #(PMFLAG.OR.PXFLAG)8301 .LONGA off8302 .LONGI off8303 .MNLIST8304 FE376E 80 5C bra L1FDB83058306 ;---------------------------------------------------------------------------8307 ; function's in 'compile' mode8308 ;---------------------------------------------------------------------------83098310 CF00: ; $1FAE8311 FE3770 B2 2D LDA ($2D)8312 FE3772 29 7F AND #$7F8313 FE3774 92 2D STA ($2D)8314 FE3776 98 TYA8315 FE3777 C8 INY8316 FE3778 91 2D STA ($2D),Y8317 CF08: ; $1FB88318 FE377A 60 RTS83198320 ; procedure wrhexb(n: integer)8321 FE377B RF22:8322 FE377B A9 01 lda #18323 FE377D A2 00 ldx #08324 FE377F 20 FB 27 jsr PCE0 ; set text to std. 'output'8325 FE3782 A0 02 ldy #2 ; swap text var with integer8326 FE3784 CPU168327 FE3784 C2 30 rep #(PMFLAG.OR.PXFLAG)8328 .LONGA on8329 .LONGI on8330 .MNLIST8331 FE3786 B2 2D lda ($2D)8332 FE3788 AA tax8333 FE3789 B1 2D lda ($2D),y8334 FE378B 92 2D sta ($2D)8335 FE378D 8A txa8336 FE378E 91 2D sta ($2D),y8337 FE3790 CPU088338 FE3790 E2 30 sep #(PMFLAG.OR.PXFLAG)8339 .LONGA off8340 .LONGI off8341 .MNLIST8342 FE3792 A0 00 ldy #0Tue Jul 17 11:00:23 2018 Page 10283438344 ; procedure fwrhexb(f: text, n: integer)8345 FE3794 RF07:8346 FE3794 20 3B 32 JSR L1FC58347 FE3797 A5 21 LDA $218348 FE3799 20 0C 38 jsr R353E8349 FE379C 80 1F bra CF01x83508351 ; procedure wrhexw(n: integer)8352 FE379E RF21:8353 FE379E A9 01 lda #18354 FE37A0 A2 00 ldx #08355 FE37A2 20 FB 27 jsr PCE0 ; set text to std. 'output'8356 FE37A5 A0 02 ldy #2 ; swap text var with integer8357 FE37A7 CPU168358 FE37A7 C2 30 rep #(PMFLAG.OR.PXFLAG)8359 .LONGA on8360 .LONGI on8361 .MNLIST8362 FE37A9 B2 2D lda ($2D)8363 FE37AB AA tax8364 FE37AC B1 2D lda ($2D),y8365 FE37AE 92 2D sta ($2D)8366 FE37B0 8A txa8367 FE37B1 91 2D sta ($2D),y8368 FE37B3 CPU088369 FE37B3 E2 30 sep #(PMFLAG.OR.PXFLAG)8370 .LONGA off8371 .LONGI off8372 .MNLIST8373 FE37B5 A0 00 ldy #08374 FE37B78375 ; procedure fwrhexw(f: text, n: integer)8376 FE37B7 RF06:8377 CF01: ; $1FB98378 ; print hex8379 FE37B7 20 3B 32 JSR L1FC58380 FE37BA 20 05 38 JSR L0D9B8381 FE37BD CF01x:8382 FE37BD 20 CC FF JSR FCLRCH8383 FE37C0 A9 04 lda #$0483848385 L1FE0: ; $1FE08386 FE37C2 18 CLC8387 FE37C3 65 2D ADC $2D8388 FE37C5 85 2D STA $2D8389 FE37C7 90 02 BCC ?028390 FE37C9 E6 2E INC $2E8391 FE37CB 60 ?02: RTS83928393 L1FDB: ; $1FDB8394 FE37CC A9 02 LDA #$028395 FE37CE 80 F2 bra L1FE083968397 CF03: ; $1F7A8398 FE37D0 C8 INY8399 FE37D1 B1 2D LDA ($2D),YTue Jul 17 11:00:23 2018 Page 1038400 FE37D3 D0 22 BNE ?048401 FE37D5 88 DEY8402 FE37D6 B1 2D LDA ($2D),Y8403 FE37D8 F0 F2 BEQ L1FDB8404 FE37DA C9 10 CMP #$108405 FE37DC B0 19 BCS ?048406 FE37DE AA TAX8407 FE37DF A0 02 LDY #$028408 FE37E1 B1 2D LDA ($2D),Y8409 FE37E3 85 27 STA $278410 FE37E5 C8 INY8411 FE37E6 B1 2D LDA ($2D),Y8412 FE37E8 06 27 ?02: ASL $278413 FE37EA 2A ROL a8414 FE37EB CA DEX8415 FE37EC D0 FA BNE ?028416 FE37EE 91 2D STA ($2D),Y8417 FE37F0 88 DEY8418 FE37F1 A5 27 LDA $278419 FE37F3 91 2D STA ($2D),Y8420 FE37F5 80 D5 bra L1FDB8421 FE37F7 A0 02 ?04: LDY #$028422 FE37F9 A9 00 LDA #$008423 FE37FB 91 2D STA ($2D),Y8424 FE37FD C8 INY8425 FE37FE 91 2D STA ($2D),Y8426 FE3800 80 CA bra L1FDB84278428 FE3802 CF02:8429 FE3802 CF04:8430 FE3802 CF05:8431 FE3802 CF06:8432 FE3802 CF07:8433 FE3802 4C 4E 1B jmp vpme0784348435 L0D9B: ; $0D9B8436 ; print hex $21-$228437 FE3805 A5 22 LDA $228438 FE3807 20 0C 38 JSR R353E8439 FE380A A5 21 LDA $218440 FE380C8441 FE380C R353E:8442 FE380C 48 ?10: PHA8443 FE380D 4A LSR a8444 FE380E 4A LSR a8445 FE380F 4A LSR a8446 FE3810 4A LSR a8447 FE3811 20 24 38 JSR ?208448 FE3814 AA TAX8449 FE3815 68 PLA8450 FE3816 29 0F AND #$0F8451 FE3818 20 24 38 JSR ?208452 FE381B 48 PHA8453 FE381C 8A TXA8454 FE381D 20 D2 FF JSR FCHROUT8455 FE3820 68 PLA8456 FE3821 4C D2 FF JMP FCHROUTTue Jul 17 11:00:23 2018 Page 1048457 FE3824 18 ?20: CLC8458 FE3825 69 F6 ADC #$F68459 FE3827 90 02 BCC ?308460 FE3829 69 06 ADC #$068461 FE382B 69 3A ?30: ADC #$3A8462 FE382D 60 RTS84638464 ;---------------------------------------------------------------------------8465 ; function's in 'run' mode8466 ;---------------------------------------------------------------------------84678468 ; function peekb(address: integer): $00..$FF8469 FE382E RF00:8470 FE382E ACC168471 FE382E C2 20 rep #PMFLAG8472 .LONGA on8473 .MNLIST8474 FE3830 B2 2D lda ($2D)8475 FE3832 85 27 sta $278476 FE3834 ACC088477 FE3834 E2 20 sep #PMFLAG8478 .LONGA off8479 .MNLIST8480 FE3836 98 tya8481 FE3837 C8 iny8482 FE3838 91 2D sta ($2D),y8483 FE383A B2 27 lda ($27)8484 FE383C 92 2D sta ($2D)8485 FE383E 60 rts84868487 ; function peekw(address: integer): integer8488 FE383F RF01:8489 FE383F ACC168490 FE383F C2 20 rep #PMFLAG8491 .LONGA on8492 .MNLIST8493 FE3841 B2 2D lda ($2D)8494 FE3843 85 27 sta $278495 FE3845 B2 27 lda ($27)8496 FE3847 92 2D sta ($2D)8497 FE3849 ACC088498 FE3849 E2 20 sep #PMFLAG8499 .LONGA off8500 .MNLIST8501 FE384B 60 rts85028503 ; function peekbz(address: $00..$FF): $00..$FF8504 FE384C RF02:8505 FE384C B2 2D lda ($2D)8506 FE384E AA tax8507 FE384F B5 00 lda <$00,x8508 FE3851 92 2D sta ($2D)8509 FE3853 98 tya8510 FE3854 C8 iny8511 FE3855 91 2D sta ($2D),y8512 FE3857 60 rts8513Tue Jul 17 11:00:23 2018 Page 1058514 ; function peekwz(address: $00..$FF): integer8515 FE3858 RF03:8516 FE3858 B2 2D lda ($2D)8517 FE385A AA tax8518 FE385B ACC168519 FE385B C2 20 rep #PMFLAG8520 .LONGA on8521 .MNLIST8522 FE385D B5 00 lda <$00,x8523 FE385F 92 2D sta ($2D)8524 FE3861 ACC088525 FE3861 E2 20 sep #PMFLAG8526 .LONGA off8527 .MNLIST8528 FE3863 60 rts85298530 ; function odd(n: integer): boolean8531 FE3864 RF04:8532 FE3864 A9 01 lda #$018533 FE3866 32 2D and ($2D)8534 FE3868 92 2D sta ($2D)8535 FE386A8536 ; function chr(n:integer): char8537 ; function asc(c:char): integer8538 FE386A RF05:8539 FE386A 98 tya8540 FE386B C8 iny8541 FE386C 91 2D sta ($2D),y8542 FE386E 60 rts85438544 ; function sin(x: real): real8545 FE386F RF08:8546 FE386F A9 36 lda #<XE26B8547 FE3871 A0 9C ldy #>XE26B8548 FE3873 80 00 bra _math8549 FE38758550 FE3875 _math:8551 FE3875 85 27 sta $278552 FE3877 84 28 sty $288553 FE3879 A5 2D lda $2D8554 FE387B A4 2E ldy $2E8555 FE387D 20 33 97 jsr XBBA28556 FE3880 20 8A 38 jsr _mathj8557 FE3883 A6 2D ldx $2D8558 FE3885 A4 2E ldy $2E8559 FE3887 4C 92 97 jmp XBBD48560 FE388A _mathj:8561 FE388A 6C 27 7F jmp (CBMP0+$0027)85628563 ; function cos(x: real): real8564 FE388D RF09:8565 FE388D A9 2F lda #<XE2648566 FE388F A0 9C ldy #>XE2648567 FE3891 80 E2 bra _math85688569 ; function cos(x: real): real8570 FE3893 RF0A:Tue Jul 17 11:00:23 2018 Page 1068571 FE3893 A9 7D lda #<XE2B48572 FE3895 A0 9C ldy #>XE2B48573 FE3897 80 DC bra _math85748575 ; function arctan(x: real): real8576 FE3899 RF0B:8577 FE3899 A9 FE lda #<XE30E8578 FE389B A0 9B ldy #>XE30E8579 FE389D 80 D6 bra _math85808581 ; function exp(x: real): real8582 FE389F RF0C:8583 FE389F A9 55 lda #<XBFED8584 FE38A1 A0 9B ldy #>XBFED8585 FE38A3 80 D0 bra _math85868587 ; function ln(x: real): real8588 FE38A5 RF0D:8589 FE38A5 A9 8E lda #<XB9EA8590 FE38A7 A0 95 ldy #>XB9EA8591 FE38A9 80 CA bra _math85928593 ; function sqrt(x: real): real8594 FE38AB RF0E:8595 FE38AB A9 0A lda #<XBF718596 FE38AD A0 9B ldy #>XBF718597 FE38AF 80 C4 bra _math85988599 ; function raisexy(x,y: real): real8600 FE38B1 RF0F:8601 FE38B1 A5 2D lda $2D8602 FE38B3 A4 2E ldy $2E8603 FE38B5 18 clc8604 FE38B6 69 06 adc #$068605 FE38B8 90 01 bcc ?028606 FE38BA C8 iny8607 FE38BB 20 8D 93 ?02: jsr XBA8C ; move x to FAC #28608 FE38BE A5 2D lda $2D8609 FE38C0 A4 2E ldy $2E8610 FE38C2 20 33 97 jsr XBBA2 ; move y to FAC #18611 FE38C5 20 14 9B jsr XBF7B ; compute x^y8612 FE38C8 A5 2D lda $2D8613 FE38CA A4 2E ldy $2E8614 FE38CC 18 clc8615 FE38CD 69 06 adc #$068616 FE38CF 90 01 bcc ?048617 FE38D1 C8 iny8618 FE38D2 85 2D ?04: sta $2D8619 FE38D4 84 2E sty $2E8620 FE38D6 AA tax8621 FE38D7 4C 92 97 jmp XBBD486228623 ; function nroot(x: real; n: integer): real8624 FE38DA RF10:8625 FE38DA B2 2D lda ($2D)8626 FE38DC AA tax8627 FE38DD C8 inyTue Jul 17 11:00:23 2018 Page 1078628 FE38DE B1 2D lda ($2D),y8629 FE38E0 85 62 sta $628630 FE38E2 85 21 sta $218631 FE38E4 86 63 stx $638632 FE38E6 10 0D bpl ?028633 FE38E8 A9 00 lda #$008634 FE38EA 38 sec8635 FE38EB E5 63 sbc $638636 FE38ED 85 63 sta $638637 FE38EF A9 00 lda #$008638 FE38F1 E5 62 sbc $628639 FE38F3 85 62 sta $628640 FE38F5 A2 90 ?02: ldx #$908641 FE38F7 38 sec8642 FE38F8 20 09 98 jsr XBC49 ; convert integer to float8643 FE38FB A5 21 lda $218644 FE38FD 85 66 sta $668645 FE38FF A9 A2 lda #<XB9BC ; move costant 1.0 to FAC #28646 FE3901 A0 9C ldy #>XB9BC8647 FE3903 A2 FE ldx #^RF108648 FE3905 20 91 96 jsr XBB0F ; and compute 1/n8649 FE3908 20 72 97 jsr XBBC7 ; round and move to FAC1TMP8650 FE390B A5 2D lda $2D8651 FE390D A4 2E ldy $2E8652 FE390F 18 clc8653 FE3910 69 02 adc #$028654 FE3912 90 01 bcc ?048655 FE3914 C8 iny8656 FE3915 85 2D ?04: sta $2D8657 FE3917 84 2E sty $2E8658 FE3919 20 8D 93 jsr XBA8C ; move x to FAC #28659 FE391C A9 E8 lda #<FAC1TMP8660 FE391E A0 FF ldy #>FAC1TMP8661 FE3920 20 41 97 jsr XBBA2T ; move 1/n to FAC #18662 FE3923 20 14 9B jsr XBF7B ; compute x^(1/n)8663 FE3926 A6 2D ldx $2D8664 FE3928 A4 2E ldy $2E8665 FE392A 4C 92 97 jmp XBBD486668667 ; procedure swapw(var n,m: integer)8668 FE392D RF11:8669 FE392D A0 02 ldy #$028670 FE392F CPU168671 FE392F C2 30 rep #(PMFLAG.OR.PXFLAG)8672 .LONGA on8673 .LONGI on8674 .MNLIST8675 FE3931 B2 2D lda ($2D)8676 FE3933 3A dec a8677 FE3934 3A dec a8678 FE3935 85 25 sta $25 ; pointer to m8679 FE3937 B1 2D lda ($2D),y8680 FE3939 3A dec a8681 FE393A 3A dec a8682 FE393B 85 27 sta $27 ; pointer to n8683 FE393D B2 25 lda ($25)8684 FE393F AA taxTue Jul 17 11:00:23 2018 Page 1088685 FE3940 B2 27 lda ($27)8686 FE3942 92 25 sta ($25)8687 FE3944 8A txa8688 FE3945 92 27 sta ($27)8689 FE3947 CPU088690 FE3947 E2 30 sep #(PMFLAG.OR.PXFLAG)8691 .LONGA off8692 .LONGI off8693 .MNLIST8694 FE3949 4C E5 1D jmp SK0486958696 ; procedure passign(var p: pointer; adr:integer)8697 FE394C RF12:8698 FE394C A0 02 ldy #$028699 FE394E ACC168700 FE394E C2 20 rep #PMFLAG8701 .LONGA on8702 .MNLIST8703 FE3950 B1 2D lda ($2D),y ; pointer to p8704 FE3952 3A dec a8705 FE3953 3A dec a8706 FE3954 85 27 sta $278707 FE3956 B2 2D lda ($2D) ; load adr8708 FE3958 92 27 sta ($27) ; assign to p8709 FE395A ACC088710 FE395A E2 20 sep #PMFLAG8711 .LONGA off8712 .MNLIST8713 FE395C 4C E5 1D jmp SK0487148715 ; function trunc(x: real): integer8716 FE395F RF13:8717 FE395F A5 2D lda $2D8718 FE3961 A4 2E ldy $2E8719 FE3963 20 33 97 jsr XBBA28720 FE3966 RF13x:8721 FE3966 A5 61 lda $618722 FE3968 F0 2E beq ?08 ; zero8723 FE396A 10 2C bpl ?08 ; less than 18724 FE396C 38 sec8725 FE396D E9 90 sbc #$908726 FE396F 10 2D bpl ?10 ; integer overflow8727 FE3971 AA tax8728 FE3972 46 62 ?02: lsr $628729 FE3974 66 63 ror $638730 FE3976 E8 inx8731 FE3977 D0 F9 bne ?028732 FE3979 A5 66 ?04: lda $668733 FE397B 10 0D bpl ?068734 FE397D A9 00 lda #$008735 FE397F 38 sec8736 FE3980 E5 63 sbc $638737 FE3982 85 63 sta $638738 FE3984 A9 00 lda #$008739 FE3986 E5 62 sbc $628740 FE3988 85 62 sta $628741 FE398A A0 04 ?06: ldy #$04Tue Jul 17 11:00:23 2018 Page 1098742 FE398C ACC168743 FE398C C2 20 rep #PMFLAG8744 .LONGA on8745 .MNLIST8746 FE398E A5 62 lda $628747 FE3990 EB xba8748 FE3991 91 2D sta ($2D),y8749 FE3993 ACC088750 FE3993 E2 20 sep #PMFLAG8751 .LONGA off8752 .MNLIST8753 FE3995 4C E5 1D jmp SK048754 FE3998 64 62 ?08: stz $628755 FE399A 64 63 stz $638756 FE399C 80 EC bra ?068757 FE399E A2 03 ?10: ldx #$03 ; integer overflow8758 FE39A0 4C 50 1B jmp vpmerr87598760 ; function round(x: real): integer8761 FE39A3 RF14:8762 FE39A3 A5 2D lda $2D8763 FE39A5 A4 2E ldy $2E8764 FE39A7 20 33 97 jsr XBBA28765 FE39AA A9 AC lda #<FCON05 ; float 0.58766 FE39AC A0 9C ldy #>FCON058767 FE39AE A6 66 ldx $668768 FE39B0 10 04 bpl ?02 ; add 0.58769 FE39B2 A9 D0 lda #<XB9E0 ; float -0.58770 FE39B4 A0 9C ldy #>XB9E08771 FE39B6 20 09 94 ?02: jsr XB867 ; add =/- 0.58772 FE39B9 80 AB bra RF13x ; and trunc87738774 ; function random: integer8775 FE39BB RF15:8776 FE39BB 20 49 20 jsr decstk ; decrement stack8777 FE39BE A5 41 lda $418778 FE39C0 0A asl a8779 FE39C1 69 00 adc #$008780 FE39C3 45 41 eor $418781 FE39C5 4A lsr a8782 FE39C6 90 02 bcc ?028783 FE39C8 09 80 ora #$808784 FE39CA E6 42 ?02: inc $428785 FE39CC 65 42 adc $428786 FE39CE 85 41 sta $418787 FE39D0 50 02 bvc ?048788 FE39D2 E6 42 inc $428789 FE39D4 92 2D ?04: sta ($2D)8790 FE39D6 98 tya8791 FE39D7 C8 iny8792 FE39D8 91 2D sta ($2D),y8793 FE39DA 60 rts87948795 ; procedure iotrap(boolean)8796 FE39DB RF16:8797 FE39DB B2 2D lda ($2D)8798 FE39DD 08 phpTue Jul 17 11:00:23 2018 Page 1108799 FE39DE A5 3B lda prtrap8800 FE39E0 09 80 ora #$808801 FE39E2 28 plp8802 FE39E3 D0 02 bne ?028803 FE39E5 49 80 eor #$808804 FE39E7 85 3B ?02: sta prtrap8805 FE39E9 4C 95 1E jmp SK0288068807 ; procedure breaks(boolean)8808 FE39EC RF17:8809 FE39EC B2 2D lda ($2D)8810 FE39EE 08 php8811 FE39EF A5 3B lda prtrap8812 FE39F1 09 40 ora #$408813 FE39F3 28 plp8814 FE39F4 D0 02 bne ?028815 FE39F6 49 40 eor #$408816 FE39F8 85 3B ?02: sta prtrap8817 FE39FA 4C 95 1E jmp SK0288188819 ; function ioerror: integer8820 FE39FD RF18:8821 FE39FD 20 49 20 jsr decstk ; decrement stack8822 FE3A00 A5 3E lda prterr8823 FE3A02 RF18x:8824 FE3A02 92 2D sta ($2D)8825 FE3A04 98 tya8826 FE3A05 C8 iny8827 FE3A06 91 2D sta ($2D),y8828 FE3A08 60 rts8829 FE3A098830 ; function getkey: char8831 FE3A09 RF19:8832 FE3A09 20 49 20 jsr decstk ; decrement stack8833 FE3A0C 20 E4 FF jsr FGETIN8834 FE3A0F 80 F1 bra RF18x88358836 ; function rdhex: integer;8837 FE3A11 RF20:8838 FE3A11 A9 00 lda #08839 FE3A13 AA tax8840 FE3A14 20 FB 27 jsr PCE0 ; set text to std. 'input'8841 FE3A178842 ; function frdhex(file: text): integer;8843 FE3A17 RF1A:8844 FE3A17 20 14 30 jsr L178B8845 FE3A1A 20 34 3A jsr R10A68846 FE3A1D 90 05 bcc ?028847 FE3A1F A2 02 ldx #$028848 FE3A21 20 C0 31 jsr L0FAA8849 FE3A24 20 8F 30 ?02: jsr L17B78850 FE3A27 A0 01 ldy #18851 FE3A29 A5 21 lda $218852 FE3A2B 92 2D sta ($2D)8853 FE3A2D A5 22 lda $228854 FE3A2F 91 2D sta ($2D),y8855 FE3A31 4C CC FF jmp FCLRCHTue Jul 17 11:00:23 2018 Page 1118856 FE3A348857 FE3A34 R10A6:8858 FE3A34 A2 00 ldx #08859 FE3A36 86 21 stx $218860 FE3A38 86 22 stx $228861 FE3A3A C9 20 cmp #$208862 FE3A3C F0 08 beq ?028863 FE3A3E C9 0D cmp #$0D8864 FE3A40 F0 04 beq ?028865 FE3A42 C9 0A cmp #$0A8866 FE3A44 D0 03 bne ?048867 FE3A46 20 71 31 ?02: jsr L0F2B8868 FE3A49 AA ?04: tax8869 FE3A4A 20 68 3A jsr R10DA8870 FE3A4D B0 17 bcs ?108871 FE3A4F A0 04 ?06: ldy #$048872 FE3A51 06 21 ?08: asl $218873 FE3A53 26 22 rol $228874 FE3A55 88 dey8875 FE3A56 D0 F9 bne ?088876 FE3A58 05 21 ora $218877 FE3A5A 85 21 sta $218878 FE3A5C 20 71 31 jsr L0F2B8879 FE3A5F AA tax8880 FE3A60 20 68 3A jsr R10DA8881 FE3A63 90 EA bcc ?068882 FE3A65 18 clc8883 FE3A66 8A ?10: txa8884 FE3A67 60 rts8885 FE3A688886 FE3A68 R10DA:8887 FE3A68 38 sec8888 FE3A69 E9 30 sbc #$308889 FE3A6B 90 13 bcc ?028890 FE3A6D C9 0A cmp #$0A8891 FE3A6F 90 10 bcc ?048892 FE3A71 38 sec8893 FE3A72 E9 07 sbc #$078894 FE3A74 90 0A bcc ?028895 FE3A76 C9 10 cmp #$108896 FE3A78 90 07 bcc ?048897 FE3A7A 38 sec8898 FE3A7B E9 20 sbc #$208899 FE3A7D C9 10 cmp #$108900 FE3A7F 60 rts8901 FE3A80 38 ?02: sec8902 FE3A81 60 ?04: rts89038904 ; function andw(a,b: integer): integer8905 FE3A82 RF1B:8906 FE3A82 A0 02 ldy #$028907 FE3A84 ACC168908 FE3A84 C2 20 rep #PMFLAG8909 .LONGA on8910 .MNLIST8911 FE3A86 B2 2D lda ($2D) ; a8912 FE3A88 31 2D and ($2D),y ; and bTue Jul 17 11:00:23 2018 Page 1128913 FE3A8A 91 2D sta ($2D),y ; store in b8914 FE3A8C ACC088915 FE3A8C E2 20 sep #PMFLAG8916 .LONGA off8917 .MNLIST8918 FE3A8E 4C 95 1E jmp SK0289198920 ; function orw(a,b: integer): integer8921 FE3A91 RF1C:8922 FE3A91 A0 02 ldy #$028923 FE3A93 ACC168924 FE3A93 C2 20 rep #PMFLAG8925 .LONGA on8926 .MNLIST8927 FE3A95 B2 2D lda ($2D) ; a8928 FE3A97 11 2D ora ($2D),y ; or b8929 FE3A99 91 2D sta ($2D),y ; store in b8930 FE3A9B ACC088931 FE3A9B E2 20 sep #PMFLAG8932 .LONGA off8933 .MNLIST8934 FE3A9D 4C 95 1E jmp SK0289358936 ; function xorw(a,b: integer): integer8937 FE3AA0 RF1D:8938 FE3AA0 A0 02 ldy #$028939 FE3AA2 ACC168940 FE3AA2 C2 20 rep #PMFLAG8941 .LONGA on8942 .MNLIST8943 FE3AA4 B2 2D lda ($2D) ; a8944 FE3AA6 51 2D eor ($2D),y ; xor b8945 FE3AA8 91 2D sta ($2D),y ; store in b8946 FE3AAA ACC088947 FE3AAA E2 20 sep #PMFLAG8948 .LONGA off8949 .MNLIST8950 FE3AAC 4C 95 1E jmp SK028951 FE3AAF8952 ; function notw(a: integer): integer8953 FE3AAF RF1E:8954 FE3AAF ACC168955 FE3AAF C2 20 rep #PMFLAG8956 .LONGA on8957 .MNLIST8958 FE3AB1 B2 2D lda ($2D) ; a8959 FE3AB3 49 FF FF eor #$FFFF8960 FE3AB6 92 2D sta ($2D)8961 FE3AB8 ACC088962 FE3AB8 E2 20 sep #PMFLAG8963 .LONGA off8964 .MNLIST8965 FE3ABA 60 rts8966 FE3ABB8967 ; function negw(a: integer): integer8968 FE3ABB RF1F:8969 FE3ABB ACC16Tue Jul 17 11:00:23 2018 Page 1138970 FE3ABB C2 20 rep #PMFLAG8971 .LONGA on8972 .MNLIST8973 FE3ABD B2 2D lda ($2D) ; a8974 FE3ABF 49 FF FF eor #$FFFF8975 FE3AC2 1A inc a8976 FE3AC3 92 2D sta ($2D)8977 FE3AC5 ACC088978 FE3AC5 E2 20 sep #PMFLAG8979 .LONGA off8980 .MNLIST8981 FE3AC7 60 rts89828983 ; function lpeekb(bank: $00..$FF; address: integer): $00..$FF8984 FE3AC8 RF23:8985 FE3AC8 ACC168986 FE3AC8 C2 20 rep #PMFLAG8987 .LONGA on8988 .MNLIST8989 FE3ACA B2 2D lda ($2D)8990 FE3ACC 85 76 sta longp8991 FE3ACE ACC088992 FE3ACE E2 20 sep #PMFLAG8993 .LONGA off8994 .MNLIST8995 FE3AD0 98 tya8996 FE3AD1 A0 03 ldy #38997 FE3AD3 91 2D sta ($2D),y8998 FE3AD5 88 dey8999 FE3AD6 B1 2D lda ($2D),y9000 FE3AD8 85 78 sta longp+29001 FE3ADA A7 76 lda [longp]9002 FE3ADC 91 2D sta ($2D),y9003 FE3ADE 4C 95 1E jmp SK0290049005 ; function lpeekw(bank: $00..$FF; address: integer): integer9006 FE3AE1 RF24:9007 FE3AE1 ACC169008 FE3AE1 C2 20 rep #PMFLAG9009 .LONGA on9010 .MNLIST9011 FE3AE3 B2 2D lda ($2D)9012 FE3AE5 85 76 sta longp9013 FE3AE7 ACC089014 FE3AE7 E2 20 sep #PMFLAG9015 .LONGA off9016 .MNLIST9017 FE3AE9 A0 02 ldy #29018 FE3AEB B1 2D lda ($2D),y9019 FE3AED 85 78 sta longp+29020 FE3AEF ACC169021 FE3AEF C2 20 rep #PMFLAG9022 .LONGA on9023 .MNLIST9024 FE3AF1 A7 76 lda [longp]9025 FE3AF3 91 2D sta ($2D),y9026 FE3AF5 ACC08Tue Jul 17 11:00:23 2018 Page 1149027 FE3AF5 E2 20 sep #PMFLAG9028 .LONGA off9029 .MNLIST9030 FE3AF7 4C 95 1E jmp SK0290319032 ; procedure pokeb(address, val: integer)9033 FE3AFA RF25:9034 FE3AFA A0 02 ldy #29035 FE3AFC ACC169036 FE3AFC C2 20 rep #PMFLAG9037 .LONGA on9038 .MNLIST9039 FE3AFE B1 2D lda ($2D),y9040 FE3B00 85 27 sta $279041 FE3B02 ACC089042 FE3B02 E2 20 sep #PMFLAG9043 .LONGA off9044 .MNLIST9045 FE3B04 B2 2D lda ($2D)9046 FE3B06 92 27 sta ($27)9047 FE3B08 4C E5 1D jmp SK049048 FE3B0B9049 ; procedure pokew(address, val: integer)9050 FE3B0B RF26:9051 FE3B0B A0 02 ldy #29052 FE3B0D ACC169053 FE3B0D C2 20 rep #PMFLAG9054 .LONGA on9055 .MNLIST9056 FE3B0F B1 2D lda ($2D),y9057 FE3B11 85 27 sta $279058 FE3B13 B2 2D lda ($2D)9059 FE3B15 92 27 sta ($27)9060 FE3B17 ACC089061 FE3B17 E2 20 sep #PMFLAG9062 .LONGA off9063 .MNLIST9064 FE3B19 4C E5 1D jmp SK0490659066 ; procedure pokebz(zp, val: integer)9067 FE3B1C RF27:9068 FE3B1C A0 02 ldy #29069 FE3B1E B1 2D lda ($2D),y9070 FE3B20 AA tax9071 FE3B21 B2 2D lda ($2D)9072 FE3B23 95 00 sta <$00,x9073 FE3B25 4C E5 1D jmp SK0490749075 ; procedure pokewz(zp, val: integer)9076 FE3B28 RF28:9077 FE3B28 A0 02 ldy #29078 FE3B2A B1 2D lda ($2D),y9079 FE3B2C AA tax9080 FE3B2D ACC169081 FE3B2D C2 20 rep #PMFLAG9082 .LONGA on9083 .MNLISTTue Jul 17 11:00:23 2018 Page 1159084 FE3B2F B2 2D lda ($2D)9085 FE3B31 95 00 sta <$00,x9086 FE3B33 ACC089087 FE3B33 E2 20 sep #PMFLAG9088 .LONGA off9089 .MNLIST9090 FE3B35 4C E5 1D jmp SK0490919092 ; procedure lpokeb(bank, address, val: integer)9093 FE3B38 RF29:9094 FE3B38 A0 02 ldy #29095 FE3B3A ACC169096 FE3B3A C2 20 rep #PMFLAG9097 .LONGA on9098 .MNLIST9099 FE3B3C B1 2D lda ($2D),y9100 FE3B3E 85 76 sta longp9101 FE3B40 ACC089102 FE3B40 E2 20 sep #PMFLAG9103 .LONGA off9104 .MNLIST9105 FE3B42 A0 04 ldy #49106 FE3B44 B1 2D lda ($2D),y9107 FE3B46 85 78 sta longp+29108 FE3B48 B2 2D lda ($2D)9109 FE3B4A 87 76 sta [longp]9110 FE3B4C 80 16 bra RF2Ax9111 FE3B4E9112 ; procedure lpokew(bank, address, val: integer)9113 FE3B4E RF2A:9114 FE3B4E A0 02 ldy #29115 FE3B50 ACC169116 FE3B50 C2 20 rep #PMFLAG9117 .LONGA on9118 .MNLIST9119 FE3B52 B1 2D lda ($2D),y9120 FE3B54 85 76 sta longp9121 FE3B56 ACC089122 FE3B56 E2 20 sep #PMFLAG9123 .LONGA off9124 .MNLIST9125 FE3B58 A0 04 ldy #49126 FE3B5A B1 2D lda ($2D),y9127 FE3B5C 85 78 sta longp+29128 FE3B5E ACC169129 FE3B5E C2 20 rep #PMFLAG9130 .LONGA on9131 .MNLIST9132 FE3B60 B2 2D lda ($2D)9133 FE3B62 87 76 sta [longp]9134 FE3B64 RF2Ax: ACC16CLC9135 FE3B64 C2 21 rep #(PMFLAG.OR.PCFLAG)9136 .LONGA on9137 .MNLIST9138 FE3B66 A5 2D lda $2D9139 FE3B68 69 06 00 adc #$00069140 FE3B6B 85 2D sta $2DTue Jul 17 11:00:23 2018 Page 1169141 FE3B6D ACC089142 FE3B6D E2 20 sep #PMFLAG9143 .LONGA off9144 .MNLIST9145 FE3B6F 60 rts91469147 ; function shl(val, shift: integer): integer9148 FE3B70 RF2B:9149 FE3B70 C8 iny9150 FE3B71 B1 2D lda ($2D),y9151 FE3B73 30 29 bmi RF2Bz9152 FE3B75 D0 1B bne RF2Bx9153 FE3B77 88 dey9154 FE3B78 B1 2D lda ($2D),y9155 FE3B7A F0 1F beq RF2By9156 FE3B7C C9 10 R1EE6: cmp #$109157 FE3B7E B0 12 bcs RF2Bx9158 FE3B80 AA tax9159 FE3B81 A0 02 ldy #29160 FE3B83 ACC169161 FE3B83 C2 20 rep #PMFLAG9162 .LONGA on9163 .MNLIST9164 FE3B85 B1 2D lda ($2D),y9165 FE3B87 0A ?02: asl a9166 FE3B88 CA dex9167 FE3B89 D0 FC bne ?029168 FE3B8B 91 2D sta ($2D),y9169 FE3B8D ACC089170 FE3B8D E2 20 sep #PMFLAG9171 .LONGA off9172 .MNLIST9173 FE3B8F 4C 95 1E jmp SK0291749175 FE3B92 A0 02 RF2Bx: ldy #29176 FE3B94 A9 00 lda #09177 FE3B96 91 2D sta ($2D),y9178 FE3B98 C8 iny9179 FE3B99 91 2D sta ($2D),y9180 FE3B9B 4C 95 1E RF2By: jmp SK0291819182 FE3B9E 49 FF RF2Bz: eor #$FF9183 FE3BA0 D0 F0 bne RF2Bx9184 FE3BA2 88 dey9185 FE3BA3 38 sec9186 FE3BA4 F1 2D sbc ($2D),y9187 FE3BA6 90 16 bcc R1F1C9188 FE3BA8 49 FF R1F3C: eor #$FF9189 FE3BAA D0 E6 bne RF2Bx9190 FE3BAC 88 dey9191 FE3BAD 38 sec9192 FE3BAE F1 2D sbc ($2D),y9193 FE3BB0 80 CA bra R1EE691949195 ; function shr(val, shift: integer): integer9196 FE3BB2 RF2C:9197 FE3BB2 C8 inyTue Jul 17 11:00:23 2018 Page 1179198 FE3BB3 B1 2D lda ($2D),y9199 FE3BB5 30 F1 bmi R1F3C9200 FE3BB7 D0 D9 bne RF2Bx9201 FE3BB9 88 dey9202 FE3BBA B1 2D lda ($2D),y9203 FE3BBC F0 DD beq RF2By9204 FE3BBE C9 10 R1F1C: cmp #$109205 FE3BC0 B0 D0 bcs RF2Bx9206 FE3BC2 AA tax9207 FE3BC3 A0 02 ldy #29208 FE3BC5 ACC169209 FE3BC5 C2 20 rep #PMFLAG9210 .LONGA on9211 .MNLIST9212 FE3BC7 B1 2D lda ($2D),y9213 FE3BC9 4A ?02: lsr a9214 FE3BCA CA dex9215 FE3BCB D0 FC bne ?029216 FE3BCD 91 2D sta ($2D),y9217 FE3BCF ACC089218 FE3BCF E2 20 sep #PMFLAG9219 .LONGA off9220 .MNLIST9221 FE3BD1 4C 95 1E jmp SK0292229223 ; function exp10(x: real): real9224 FE3BD4 RF2D:9225 FE3BD4 A9 A7 lda #<FCON109226 FE3BD6 A0 9C ldy #>FCON109227 FE3BD8 20 B8 93 jsr XBA8CK ; move float 10 to FAC #29228 FE3BDB A5 2D lda $2D9229 FE3BDD A4 2E ldy $2E9230 FE3BDF 20 33 97 jsr XBBA2 ; move x to FAC #19231 FE3BE2 20 14 9B jsr XBF7B ; compute 10^x9232 FE3BE5 A6 2D ldx $2D9233 FE3BE7 A4 2E ldy $2E9234 FE3BE9 4C 92 97 jmp XBBD492359236 ; function log(x:real):real9237 FE3BEC RF2E:9238 FE3BEC A5 2D lda $2D9239 FE3BEE A4 2E ldy $2E9240 FE3BF0 20 33 97 jsr XBBA2 ; move x to FAC #19241 FE3BF3 20 8E 95 jsr XB9EA ; compute ln(x)9242 FE3BF6 20 CE 97 jsr XBC0C ; round FAC #1 and move to FAC #29243 FE3BF9 A9 DF lda #<XLN109244 FE3BFB A0 9C ldy #>XLN109245 FE3BFD 20 49 97 jsr XBBA2K ; move ln(10) to FAC #19246 FE3C00 20 94 96 jsr XBB12 ; compute ln(x)/ln(10)9247 FE3C03 A6 2D ldx $2D9248 FE3C05 A4 2E ldy $2E9249 FE3C07 4C 92 97 jmp XBBD492509251 ;function nraise(x: real; n: integer): real9252 FE3C0A RF2F:9253 FE3C0A 64 23 stz $239254 FE3C0C A2 FF ldx #$FFTue Jul 17 11:00:23 2018 Page 1189255 FE3C0E ACC169256 FE3C0E C2 20 rep #PMFLAG9257 .LONGA on9258 .MNLIST9259 FE3C10 B2 2D lda ($2D)9260 FE3C12 85 21 sta $219261 FE3C14 A5 2D lda $2D9262 FE3C16 1A inc a9263 FE3C17 1A inc a9264 FE3C18 85 2D sta $2D9265 FE3C1A A5 21 lda $219266 FE3C1C 10 08 bpl ?029267 FE3C1E 98 tya9268 FE3C1F 38 sec9269 FE3C20 E5 21 sbc $219270 FE3C22 85 21 sta $219271 FE3C24 86 23 stx $239272 FE3C26 F0 33 ?02: beq ?20 ; if n = 0 return 19273 FE3C28 3A dec a9274 FE3C29 85 21 sta $21 ; counter9275 FE3C2B ACC089276 FE3C2B E2 20 sep #PMFLAG9277 .LONGA off9278 .MNLIST9279 FE3C2D 08 php9280 FE3C2E A5 2D lda $2D9281 FE3C30 A4 2E ldy $2E9282 FE3C32 20 33 97 jsr XBBA2 ; move x to FAC #19283 FE3C35 28 plp9284 FE3C36 F0 14 beq ?14 ; if n = 1 return x, if n = -1 return 1/x9285 FE3C38 20 CE 97 ?06: jsr XBC0C ; round FAC #1 and move to FAC #29286 FE3C3B A5 2D lda $2D9287 FE3C3D A4 2E ldy $2E9288 FE3C3F A6 A2 ldx vbnk9289 FE3C41 20 DF 95 jsr XBA28 ; x*x9290 FE3C44 ACC169291 FE3C44 C2 20 rep #PMFLAG9292 .LONGA on9293 .MNLIST9294 FE3C46 C6 21 dec $219295 FE3C48 ACC089296 FE3C48 E2 20 sep #PMFLAG9297 .LONGA off9298 .MNLIST9299 FE3C4A D0 EC bne ?069300 FE3C4C 24 23 ?14: bit $239301 FE3C4E 10 1B bpl ?22 ; return value9302 FE3C50 A9 A2 lda #<XB9BC ; compute 1/x9303 FE3C52 A0 9C ldy #>XB9BC9304 FE3C54 A2 FE ldx #^RF2F9305 FE3C56 20 91 96 jsr XBB0F9306 FE3C59 80 10 bra ?229307 FE3C5B ?20: ACC08 ; return 1.09308 FE3C5B E2 20 sep #PMFLAG9309 .LONGA off9310 .MNLIST9311 FE3C5D A9 81 lda #$81Tue Jul 17 11:00:23 2018 Page 1199312 FE3C5F 85 61 sta $619313 FE3C61 64 62 stz $629314 FE3C63 64 63 stz $639315 FE3C65 64 64 stz $649316 FE3C67 64 65 stz $659317 FE3C69 64 66 stz $669318 FE3C6B A6 2D ?22: ldx $2D9319 FE3C6D A4 2E ldy $2E9320 FE3C6F 4C 92 97 jmp XBBD493219322 ; pcmdlin(var p)9323 FE3C72 RF30:9324 FE3C72 ACC16CLC9325 FE3C72 C2 21 rep #(PMFLAG.OR.PCFLAG)9326 .LONGA on9327 .MNLIST9328 FE3C74 B2 2D lda ($2D) ; pointer to p9329 FE3C76 3A dec a9330 FE3C77 3A dec a9331 FE3C78 85 27 sta $279332 FE3C7A A5 E4 lda cmdlin ; load adr9333 FE3C7C 69 80 00 adc #1289334 FE3C7F 92 27 sta ($27) ; assign to p9335 FE3C81 ACC089336 FE3C81 E2 20 sep #PMFLAG9337 .LONGA off9338 .MNLIST9339 FE3C83 4C 95 1E jmp SK029340 FE3C869341 ;---------------------------------------------------------------------------9342 ; address table's9343 ;---------------------------------------------------------------------------93449345 ; function's table for p-code tokens $00..$7F9346 FE3C86 PCODET1:9347 FE3C86 7C1D D51D F11D .DW PC00, PC01, PC02, PC03, PC04, PC05, PC06, PC07231E 461E 8B1EA01E AF1E9348 FE3C96 EF1E 5B1E 0A1F .DW PC08, PC09, PC0A, PC0B, PC0C, PC0D, PC0E, PC0F771E 811E 7D1FD31F DA1F9349 FE3CA6 F51F 1020 3820 .DW PC10, PC11, PC12, PC13, PC14, PC15, PC16, PC175520 AB1F 8E209720 1A2F9350 FE3CB6 052F AB20 C920 .DW PC18, PC19, PC1A, PC1B, PC1C, PC1D, PC1E, PC1FE720 FF20 90211022 79229351 FE3CC6 FF23 4A24 6E24 .DW PC20, PC21, PC22, PC23, PC24, PC25, PC26, PC277924 8424 AA24CA24 D3249352 FE3CD6 DC24 F524 3C25 .DW PC28, PC29, PC2A, PC2B, PC2C, PC2D, PC2E, PC2F5125 6925 8325A725 BC259353 FE3CE6 EF25 1826 3126 .DW PC30, PC31, PC32, PC33, PC34, PC35, PC36, PC374826 6026 8726A126 7B2D9354 FE3CF6 6227 8527 3525 .DW PC38, PC39, PC3A, PC3B, PC3C, PC3D, PC3E, PC3FTue Jul 17 11:00:23 2018 Page 1208F1D B826 D9265930 5C309355 FE3D06 8528 A128 B828 .DW PC40, PC41, PC42, PC43, PC44, PC45, PC46, PC47FE28 0F29 3A29E129 E6299356 FE3D16 EA29 442A BA2A .DW PC48, PC49, PC4A, PC4B, PC4C, PC4D, PC4E, PC4FBD2A E42A 2728102B B72A9357 FE3D26 9C2B 9C2B A727 .DW PC50, PC51, PC52, PC53, PC54, PC55, PC56, PC57A727 F627 F627D127 D1279358 FE3D36 AC27 AC27 AC2B .DW PC58, PC59, PC5A, PC5B, PC5C, PC5D, PC5E, PC5FAC2B 5C2C 5C2C562D 562D9359 FE3D46 332C 332C B82D .DW PC60, PC61, PC62, PC63, PC64, PC65, PC66, PC67B82D C62D C62DEB2D EB2D9360 FE3D56 072E 072E 812D .DW PC68, PC69, PC6A, PC6B, PC6C, PC6D, PC6E, PC6F812D 602E 602E342E 342E9361 FE3D66 912E 912E 322F .DW PC70, PC71, PC72, PC73, PC74, PC75, PC76, PC77322F 712F 712F5A2E 5A2E9362 FE3D76 5A2E 5A2E A22F .DW PC78, PC79, PC7A, PC7B, PC7C, PC7D, PC7E, PC7FA22F 2C30 2C303A30 3A3093639364 ; function's table for p-code tokens $80..$FF9365 FE3D86 PCODET2:9366 FE3D86 B627 D627 0128 .DW PC80, PC90, PCA0, PCB0, PCC0, PCD0, PCE0, PCF03928 4B28 6328FB27 212893679368 ; function's in 'compile' mode9369 FE3D96 CFUNCT:9370 FE3D96 7037 B737 0238 .DW CF00, CF01, CF02, CF03, CF04, CF05, CF06, CF07, CF08D037 0238 02380238 0238 7A379371 FE3DA89372 FE3DA8 RFUNCT:9373 FE3DA8 2E38 3F38 4C38 .DW RF00, RF01, RF02, RF03, RF04, RF05, RF06, RF075838 6438 6A38B737 94379374 FE3DB8 6F38 8D38 9338 .DW RF08, RF09, RF0A, RF0B, RF0C, RF0D, RF0E, RF0F9938 9F38 A538AB38 B1389375 FE3DC8 DA38 2D39 4C39 .DW RF10, RF11, RF12, RF13, RF14, RF15, RF16, RF175F39 A339 BB39DB39 EC399376 FE3DD8 FD39 093A 173A .DW RF18, RF19, RF1A, RF1B, RF1C, RF1D, RF1E, RF1F823A 913A A03AAF3A BB3A9377 FE3DE8 113A 9E37 7B37 .DW RF20, RF21, RF22, RF23, RF24, RF25, RF26, RF27C83A E13A FA3A0B3B 1C3B9378 FE3DF8 283B 383B 4E3B .DW RF28, RF29, RF2A, RF2B, RF2C, RF2D, RF2E, RF2F703B B23B D43BTue Jul 17 11:00:23 2018 Page 121EC3B 0A3C9379 FE3E08 723C .DW RF3093809381 ; tmp. file name: delete9382 FE3E0A DTMPNAM:9383 FE3E0A 53 30 3A 50 43 .DB 'S0:PCODEV01.XT?', $004F 44 45 56 3031 2E 58 54 3F0093849385 ; temp. file name (copy in ram)9386 FE3E1A TTMPNAM:9387 FE3E1A 30 3A 50 43 4F .DB '0:PCODEV01.XTN', $0044 45 56 30 312E 58 54 4E 009388 FE3E29 0A00 6400 E803 .DW 10, 100, 1000, 10000, 400001027 409C9389 FE3E33 74 72 75 65 20 .DB 'true ', $00009390 FE3E39 66 61 6C 73 65 .DB 'false', $00009391 FE3E3F 20 00 42 00 20 .DB $20, $00, $42, $00, $20, $00, $A0, $00, $20, $00, $A4, $0000 A0 00 20 00A4 009392 000031 TTMPSIZ .EQU ($ - TTMPNAM)93939394 FE3E4B STRFMT1:9395 FE3E4B 64 69 73 6B 20 .DB 'disk error(#%bu): %s - file: "%s"', $0065 72 72 6F 7228 23 25 62 7529 3A 20 25 7320 2D 20 66 696C 65 3A 20 2225 73 22 009396 FE3E6D STRFMT1A:9397 FE3E6D 64 69 73 6B 20 .DB 'disk error(#%bu): %s', $0065 72 72 6F 7228 23 25 62 7529 3A 20 25 73009398 FE3E82 STRFMT2:9399 FE3E82 72 75 6E 74 69 .DB 'runtime error(#%bu): %s', $006D 65 20 65 7272 6F 72 28 2325 62 75 29 3A20 25 73 009400 FE3E9A STRFMT3:9401 FE3E9A 2C 20 6C 69 6E .DB ', line %hu', $0065 20 25 68 75009402 FE3EA5 STRFMT4:9403 FE3EA5 62 61 6E 6B 3A .DB 'bank: $%02bX, pcptr: $%04hX (current: $%04hX), opcode: $%02bX', $0D20 24 25 30 3262 58 2C 20 7063 70 74 72 3A20 24 25 30 3468 58 20 28 63Tue Jul 17 11:00:23 2018 Page 12275 72 72 65 6E74 3A 20 24 2530 34 68 58 292C 20 6F 70 636F 64 65 3A 2024 25 30 32 6258 0D9404 FE3EE3 73 74 61 63 6B .DB 'stackptr:$%04hX, heapptr:$%04hX, fileptr: $%04hX', $0070 74 72 3A 2425 30 34 68 582C 20 68 65 6170 70 74 72 3A24 25 30 34 6858 2C 20 66 696C 65 70 74 723A 20 24 25 3034 68 58 009405 FE3F149406 ; run-time error string's9407 FE3F14 TERRS:9408 FE3F14 73 74 61 63 6B .DB 'stack overflow', 0 ; 0120 6F 76 65 7266 6C 6F 77 009409 FE3F23 69 6E 74 65 67 .DB 'integer read error', 0 ; 0265 72 20 72 6561 64 20 65 7272 6F 72 009410 FE3F36 69 6E 74 65 67 .DB 'integer overflow', 0 ; 0365 72 20 6F 7665 72 66 6C 6F77 009411 FE3F47 61 72 72 61 79 .DB 'array index error', 0 ; 0420 69 6E 64 6578 20 65 72 726F 72 009412 FE3F59 76 61 72 69 61 .DB 'variable out of range', 0 ; 0562 6C 65 20 6F75 74 20 6F 6620 72 61 6E 6765 009413 FE3F6F 63 61 73 65 20 .DB 'case error', 0 ; 0665 72 72 6F 72009414 FE3F7A 62 61 64 20 70 .DB 'bad p-code', 0 ; 072D 63 6F 64 65009415 FE3F85 73 65 74 20 76 .DB 'set value error', 0 ; 0861 6C 75 65 2065 72 72 6F 72009416 FE3F95 66 6C 6F 61 74 .DB 'floating point overflow', 0 ; 0969 6E 67 20 706F 69 6E 74 206F 76 65 72 666C 6F 77 009417 FE3FAD 66 6C 6F 61 74 .DB 'floating point read error', 0 ; 0A69 6E 67 20 70Tue Jul 17 11:00:23 2018 Page 1236F 69 6E 74 2072 65 61 64 2065 72 72 6F 72009418 FE3FC7 75 6E 64 65 66 .DB 'undefined goto', 0 ; 0B69 6E 65 64 2067 6F 74 6F 009419 FE3FD6 63 6F 6D 70 6C .DB 'complex log or square root', 0 ; 0C65 78 20 6C 6F67 20 6F 72 2073 71 75 61 7265 20 72 6F 6F74 009420 FE3FF1 66 69 6C 65 20 .DB 'file not open for reading', 0 ; 0D6E 6F 74 20 6F70 65 6E 20 666F 72 20 72 6561 64 69 6E 67009421 FE400B 66 69 6C 65 20 .DB 'file not open for writing', 0 ; 0E6E 6F 74 20 6F70 65 6E 20 666F 72 20 77 7269 74 69 6E 67009422 FE4025 65 6E 64 20 6F .DB 'end of file', 0 ; 0F66 20 66 69 6C65 009423 FE4031 6E 6F 20 66 72 .DB 'no free i/o channels', 0 ; 1065 65 20 69 2F6F 20 63 68 616E 6E 65 6C 73009424 FE4046 64 65 76 69 63 .DB 'device read error', 0 ; 1165 20 72 65 6164 20 65 72 726F 72 009425 FE4058 64 69 76 69 73 .DB 'division by zero', 0 ; 1269 6F 6E 20 6279 20 7A 65 726F 009426 FE4069 62 72 65 61 6B .DB 'break', 0 ; 13009427 FE406F 6D 69 73 73 69 .DB 'missing drive number', 0 ; 146E 67 20 64 7269 76 65 20 6E75 6D 62 65 72009428 FE4084 6C 6F 67 69 63 .DB 'logical file not open', 0 ; 1561 6C 20 66 696C 65 20 6E 6F74 20 6F 70 656E 009429 FE409A 6C 6F 67 69 63 .DB 'logical file already open', 0 ; 1661 6C 20 66 696C 65 20 61 6C72 65 61 64 79Tue Jul 17 11:00:23 2018 Page 12420 6F 70 65 6E009430 FE40B4 66 69 6C 65 20 .DB 'file not found', 0 ; 176E 6F 74 20 666F 75 6E 64 009431 FE40C3 64 65 76 69 63 .DB 'device not present', 0 ; 1865 20 6E 6F 7420 70 72 65 7365 6E 74 009432 FE40D6 6D 69 73 73 69 .DB 'missing file name', 0 ; 196E 67 20 66 696C 65 20 6E 616D 65 009433 FE40E8 69 6C 6C 65 67 .DB 'illegal device number', 0 ; 1A61 6C 20 64 6576 69 63 65 206E 75 6D 62 6572 009434 FE40FE 73 68 6F 75 6C .DB 'should not occur', 064 20 6E 6F 7420 6F 63 63 7572 009435 FE410F 00 .DB $00Lines Assembled : 8587 Errors : 0