0100 ;ASCII ART CONVERTER (v 2.0)�0105 ;BY PAUL TUPACZEWSKI�0110 ;(c)1987, ANTIC PUBLISHING INC.�0115     .OPT NO LIST�0120     .OPT OBJ�0125 ;�0130 LOHI1 = $CF     ;Page 0�0135 LOHI =  $CB     ;variables.�0140 POINTER = $CD�0145 ICCOM = $0342   ;CIO command�0150 ICBAL = $0344   ;CIO lo and�0155 ICBAH = $0345   ;Hi buffer adrs�0160 ICBLL = $0348   ;CIO lo and�0165 ICBLH = $0349   ;hi buffer lens�0170 CIOV =  $E456   ;OS CIO routine�0175 ICAX1 = $034A   ;CIO aux1�0180 ICAX2 = $034B   ;CIO aux2�0185 SDLSTL = $0230  ;Dlist pointer�0190 SDMCTL = $022F  ;DMA�0195 VDSLST = $0200  ;DLI pointer�0200 NMIEN = $D40E   ;DLI switch�0205 WSYNC = $D40A   ;Wait for sync�0210 ;�0215     *=  $2000�0220 ;�0225 START�0230     LDX #$30    ;First,�0235     LDA #3      ;open our�0240     STA ICCOM,X ;keyboard�0245     LDA # <KH   ;channel.�0250     STA ICBAL,X�0255     LDA # >KH�0260     STA ICBAH,X�0265     LDA #4�0270     STA ICAX1,X�0275     LDA #0�0280     STA ICAX2,X�0285     JSR CIOV    ;Do it!�0290 ;�0295 ;Main loop.�0300 ST1�0305     JSR CLEARFN ;Clear the�0310 ;               filename area.�0315     JSR CLRBIGBUF ;Clear our�0320 ;                 screen memory�0325     JSR CLEARALLELSE�0330     JSR CLOSE   ;Close channels�0335 ;�0340     LDX #$20    ;Close disk�0345     LDA #$0C    ;channel.�0350     STA ICCOM,X�0355     JSR CIOV�0360     LDA # <DLIST1 ;Show the�0365     STA SDLSTL  ;  main display�0370     LDA # >DLIST1 ;list.�0375     STA SDLSTL+1�0380     LDA #33     ;Smaller�0385     STA SDMCTL  ;screen�0390     LDA #$C4    ;green�0395     STA 710     ;GR.0 lines�0400     LDA # <DLI  ;start our�0405     STA VDSLST  ;DLI's�0410     LDA # >DLI�0415     STA VDSLST+1�0420     LDA #$C0�0425     STA NMIEN�0430     LDA # <ST1  ; Where we go�0435     STA MNUJMP+1 ;after an�0440     LDA # >ST1  ; error.�0445     STA MNUJMP+2�0450 ;�0455 GETKEYS�0460     JSR GETKEY  ;Get a key.�0465     LDA KEY     ;Is it a�0470     CMP #32     ;space?�0475     BEQ CONVERT ;Yes, convert.�0480 ;�0485     CMP #'G     ;Is it G?�0490     BNE NO1     ;No.�0495 ;�0500     LDA #'+-32  ;Toggle from�0505     SEC         ;GR.7 to�0510     SBC L5+19   ;GR.7+ or�0515     STA L5+19   ;vice versa.�0520     JMP GETKEYS ;back.�0525 ;�0530 NO1�0535     CMP #'P     ;Is it P?�0540     BNE NO2     ;No.�0545 ;�0550     INC POS     ;Yes, change�0555     LDA POS     ;picture�0560     CMP #4      ;positioning.�0565     BNE NOTOVER�0570 ;�0575     LDA #0�0580     STA POS�0585 ;�0590 NOTOVER�0595     LDX POS     ;Show arrow.�0600     LDA ARWS,X�0605     STA L4+23�0610     JMP GETKEYS�0615 ;�0620 NO2�0625     CMP #'C     ;Is it C?�0630     BNE NO3     ;No.�0635 ;�0640     LDA #1      ;Toggle column�0645     SEC         ;from 80-132 and�0650     SBC COL     ;vice versa.�0655     STA COL�0660     ASL A�0665     ASL A�0670     LDY #0�0675     TAX �0680 LOOPQ�0685     LDA COLS,X  ; Show our�0690     STA L1+23,Y ;columns.�0695     INX �0700     INY �0705     CPY #4�0710     BNE LOOPQ�0715 ;�0720     JMP GETKEYS�0725 ;�0730 NO3�0735     CMP #'D     ;Is it D?�0740     BNE NO4     ;No.�0745 ;�0750     INC FILENAME+1 ;Increment�0755     LDA FILENAME+1 ;default�0760     CMP #'9     ;   drive.�0765     BNE OKDRIVE�0770 ;�0775     LDA #'1�0780     STA FILENAME+1�0785 OKDRIVE�0790     LDA FILENAME+1�0795     SEC �0800     SBC #$20�0805     STA L2+14�0810     JMP GETKEYS�0815 ;�0820 NO4�0825     CMP #'L     ;Is it L?�0830     BNE GETKEYS ;No. Start over.�0835 ;�0840     JSR INPUT   ;Get filename.�0845     JMP GETKEYS ;Back.�0850 ;�0855 ;  Start conversion.�0860 ;�0865 CONVERT�0870     LDA FILENAME+3 ;Is there�0875     CMP #32     ;  a filename?�0880     BNE GOTAF1  ;  Yes.�0885 ;�0890     JMP GETKEYS ; Do over.�0895 GOTAF1�0900     JSR SETMD   ; Set borders.�0905     LDA # <SELECT ;Prompt for�0910     STA SDLSTL  ; "Default or�0915     LDA # >SELECT ;Edit?"�0920     STA SDLSTL+1�0925 DEFRNT�0930     JSR GETKEY  ;Get a key.�0935     LDA KEY�0940     CMP #'U     ;Is it U?�0945     BEQ USEDEFS ;Yes!�0950 ;�0955     CMP #'E     ;Is it E?�0960     BNE DEFRNT  ;No, try again.�0965 ;�0970     JMP GOTAFILENM ;edit them.�0975 ;�0980 USEDEFS�0985     LDX #0      ;Copy default to�0990 USE1�0995     LDA DEFAULTS,X ;gray shade�1000     STA CHARCOLR+32,X ;chart.�1005     INX �1010     CPX #64�1015     BNE USE1�1020 ;�1025     JMP DONEFIGR ;Good, convert.�1030 ;�1035 GOTAFILENM�1040     LDA # <DLIST3 ; Show�1045     STA SDLSTL  ;   our�1050     LDA # >DLIST3 ;"Edit"�1055     STA SDLSTL+1 ;  screen.�1060     LDA #0      ;Black-out�1065     STA 711     ;extra text.�1070     LDA #$40    ;DLI's�1075     STA NMIEN   ;off.�1080     JSR OPEN    ;Open disk�1085     JSR CLRBUFF ;Clear buffer�1090     JSR CLRCOLS ;Clear gray�1095 ;                shade chart.�1100     LDA #0      ;Temp var.�1105     STA TEMP�1110 GETLOOP�1115     LDX #$10    ;   OK, get�1120     LDA #7      ;256 bytes off�1125     STA ICCOM,X ;the file.�1130     LDA # <BUFFER�1135     STA ICBAL,X�1140     LDA # >BUFFER�1145     STA ICBAH,X�1150     LDA #0�1155     STA ICBLL,X�1160     LDA #1�1165     STA ICBLH,X�1170     JSR CIOV�1175     LDY #0�1180 SRCHLOOP�1185     LDA BUFFER,Y ;  Check for�1190     JMP CHECK4RTN ; a RETURN.�1195 ;�1200 BACKHR�1205     TAX         ;Find individual�1210     LDA CHARCOLR,X ;occurences.�1215     BNE SRCHCONT�1220 ;�1225     INC CHARCOLR,X�1230     LDA BUFFER,Y�1235     SEC �1240     SBC #32�1245     LDX TEMP�1250     STA DISPLINE,X�1255     JMP LOP�1260 ;�1265 SRCHCONT�1270     INY         ; Continue it.�1275     BNE SRCHLOOP�1280 ;�1285     LDX #$10�1290     LDA ICCOM+1,X�1295     CMP #136    ; End Of File?�1300     BNE GETLOOP ; No.�1305 ;�1310 EOF�1315     JSR CLOSE   ; Close disk.�1320     LDA #$46    ; Turn the text�1325 ;                 on again.�1330     STA 711�1335     LDA #0      ; Clear temp var�1340     STA TEMP�1345 INPUT1�1350     LDX TEMP    ; Show arrow.�1355     LDA #$40+'^ ; ^ is actually�1360 ;                 CTRL-UPARROW.�1365     STA ARL,X�1370     LDA CRL,X   ; Show cursor.�1375     CLC �1380     ADC #$80�1385     STA CRL,X�1390 KEYGET�1395     JSR GETKEY  ; Get a key.�1400     LDA KEY�1405     CMP #155    ; Is it RETURN?�1410     BEQ DONEFIGR ;Yes.�1415 ;�1420     CMP #126    ;Is it BKSPACE?�1425     BNE NOBK    ;No.�1430 ;�1435     LDA TEMP    ;At start?�1440     BEQ KEYGET  ;Yes.�1445 ;�1450     JSR ERASECR ;Erase cursor.�1455     DEC TEMP    ;Back up!�1460     JMP INPUT1  ;get key...�1465 ;�1470 NOBK�1475     CMP #32     ;Is it a SPACE?�1480     BNE NOSPC   ;No.�1485 ;�1490     LDA TEMP    ;At end?�1495     CMP #31�1500     BEQ KEYGET  ;Yes.�1505 ;�1510     JSR ERASECR ;Erase cursor.�1515     INC TEMP    ;Onward!�1520     JMP INPUT1  ;Get key...�1525 ;�1530 NOSPC�1535     CMP #48     ;Have�1540     BCC KEYGET  ;a�1545 ;                number�1550     CMP #'4     ;from 0�1555     BCS KEYGET  ;to 3?�1560 ;�1565     SEC �1570     SBC #48     ;Good, change�1575     STA TEMP+1  ;ATASCII to #.�1580     LDX TEMP    ;Show it.�1585     LDA ARL-32,X�1590     CLC �1595     ADC #$20�1600     TAX �1605     LDA TEMP+1  ;   Store value�1610     STA CHARCOLR,X ;in gray�1615 ;                   shade chart.�1620     LDX TEMP�1625     LDA TEMP+1�1630     CLC �1635     ADC #$10�1640     STA CRL,X   ;Next cursor pos�1645     LDA #0�1650     STA ARL,X�1655     INC TEMP�1660     JMP INPUT1�1665 ;�1670 DONEFIGR�1675     JSR OPEN    ;OK, open again.�1680 GR7SCRN�1685     JSR OPENS   ;Let the OS�1690 ;               take care of the�1695 ;               screen mem.�1700 REST�1705     LDA #34     ;Normal screen.�1710     STA SDMCTL�1715     LDA #0      ;Start at�1720     STA XX      ;0,0�1725     STA YY�1730     LDA #12     ;Our colors...�1735     STA 712     ;(wonderful�1740     LDA #10     ;grays.)�1745     STA 708�1750     LDA #7�1755     STA 709�1760     LDA #2�1765     STA 710�1770     LDA #$40    ;No DLI's.�1775     STA NMIEN�1780 GETLOOP2�1785     LDX #$10    ;Get 256�1790     LDA #7      ;bytes off�1795     STA ICCOM,X ;the disk...�1800     LDA # <BUFFER�1805     STA ICBAL,X�1810     LDA # >BUFFER�1815     STA ICBAH,X�1820     LDA #0�1825     STA ICBLL,X�1830     LDA #1�1835     STA ICBLH,X�1840     JSR CIOV�1845 ;�1850     LDX #$10    ;End Of File?�1855     LDA ICCOM+1,X�1860     CMP #136�1865     BNE ZZZZOOM ;No.�1870 ;�1875     JSR CLREST  ;Clear the rest.�1880 ZZZZOOM�1885     LDA #0      ;Temp. pointer�1890     STA P256�1895 PLOTLOOP�1900     LDX P256�1905     LDA BUFFER,X ;Get chr by chr�1910     CMP #155    ;Is it ATASCII�1915 ;                      RETURN ?�1920     BEQ LF      ;Yes.�1925 ;�1930     CMP #13     ;Is it ASCII�1935 ;                      RETURN ?�1940     BEQ LF      ;Yes.�1945 ;�1950     CMP #10     ;Is it ASCII�1955 ;                     linefeed?�1960     BEQ IT      ;Yes.�1965 ;�1970     TAX �1975     LDY COL     ;  OK. Offset�1980     LDA COLAMT,Y ; the X�1985     CLC         ;  values.�1990     ADC XX�1995     STA TEMP+1�2000     LDA CHARCOLR,X ; Get gray�2005     LDX TEMP+1  ; shade color.�2010     LDY YY�2015     JSR PLOTROUT ;Plot it.�2020     INC XX      ; Next X.�2025 IT�2030     INC P256    ;Inc. buffer.�2035     LDA P256    ;Done?�2040     BNE PLOTLOOP ;No.�2045 ;�2050     JMP GETLOOP3 ;Get more.�2055 ;�2060 LF�2065     LDA #0      ;RETURN handler.�2070     STA XX      ;X=0,�2075     INC YY      ;Y=Y+1.�2080     JMP ITZNEET ;Next!�2085 ;�2090 GETLOOP3�2095     LDA $0353   ;EOF?�2100     CMP #136�2105     BNE GETLOOP2 ;No.�2110 ;�2115     JSR CLOSE   ;Close disk.�2120 ENDIT�2125     JMP TOGLS   ;Done, wait�2130 ;                for toggles.�2135 ;�2140 ; Plotting handler.�2145 ;�2150 PLOTROUT�2155     STA TEMP+2  ;  Store�2160     LDA POS     ;  all our�2165     BNE PLOTROUT1 ;X and Y�2170 ;                  and offset�2175     LDA TEMP+2  ;  for�2180     JMP PLOT    ;  positioning.�2185 ;�2190 PLOTROUT1�2195     CMP #1�2200     BNE PLOTROUT2�2205 ;�2210     TXA �2215     STA TEMP+1�2220     TYA �2225     STA TEMP�2230 MD�2235     LDA #128�2240     SEC �2245     SBC TEMP+1�2250     TAY �2255     LDA TEMP�2260     TAX �2265     LDA TEMP+2�2270     JMP PLOT�2275 ;�2280 PLOTROUT2�2285     CMP #2�2290     BNE PLOTROUT3�2295 ;�2300     STX TEMP+1�2305     STY TEMP�2310     LDA #159�2315     SEC �2320     SBC TEMP+1�2325     TAX �2330     LDA #95�2335     SEC �2340     SBC TEMP�2345     TAY �2350     LDA TEMP+2�2355     JMP PLOT�2360 ;�2365 PLOTROUT3�2370     TXA �2375     STA TEMP+1�2380     TYA �2385     STA TEMP�2390 MD2�2395     LDA #-$20�2400     CLC �2405     ADC TEMP+1�2410     TAY �2415     LDA #159�2420     SEC �2425     SBC TEMP�2430     TAX �2435     LDA TEMP+2�2440     JMP PLOT�2445 ;�2450 ; Final finish.�2455 ;�2460 TOGLS�2465     LDA 53279   ; OPTION?�2470     CMP #3�2475     BEQ MENYOU  ;Yes.�2480 ;�2485     LDA #7�2490     STA 709�2495     LDA 764     ;Keypress?�2500     CMP #255�2505     BEQ NOSLCT  ;no.�2510 ;�2515     LDA L5+19   ;Toggle screens.�2520     BEQ HIR�2525 ;�2530     LDA #192�2535     STA BTM+1�2540     BNE YUMP�2545 ;�2550 HIR�2555     LDA #96�2560     STA BTM+1�2565 YUMP�2570     JSR TRANSFER7�2575     LDA #255�2580     STA 764�2585 ;�2590 NOSLCT�2595     LDA # <MENYOU ; Where we go�2600     STA MNUJMP+1 ;  if we get�2605     LDA # >MENYOU ; an error.�2610     STA MNUJMP+2�2615     JMP TOGLS   ;Back!�2620 ;�2625 MENYOU�2630     LDA SDLSTL  ;Another�2635     STA LOHI1   ;menu.�2640     LDA SDLSTL+1 ;Show it.�2645     STA LOHI1+1�2650     LDA # <DLIST0�2655     STA SDLSTL�2660     LDA # >DLIST0�2665     STA SDLSTL+1�2670     LDA #12�2675     STA 709�2680     LDA L2+14�2685     STA LSAVE+20�2690 ;�2695 CONSKYS�2700     LDA 53279   ;START key?�2705     CMP #6�2710     BNE MORECONS ;No.�2715 ;�2720     LDA LOHI1   ;Otherwise,�2725     STA SDLSTL�2730     LDA LOHI1+1�2735     STA SDLSTL+1�2740     JMP TOGLS   ;Back!�2745 ;�2750 MORECONS�2755     LDA 764     ;Key?�2760     CMP #$FF�2765     BEQ CONSKYS ;No.�2770 ;�2775     JSR GETKEY  ;Get a key.�2780     LDA KEY     ;Is it 1-4?�2785     CMP #'1�2790     BCC CONSKYS�2795 ;�2800     CMP #'5�2805     BCS CONSKYS�2810 ;�2815     CMP #'3     ;YES! Is it 3?�2820     BNE NOPEY2  ;No.�2825 ;�2830     JSR INPUTQ  ;Get filename.�2835     JMP CONSKYS ;try again.�2840 ;�2845 NOPEY2�2850     CMP #'4     ;Is it 4?�2855     BNE NOPEY   ;No.�2860 ;�2865     JMP ST1     ;Restart.�2870 ;�2875 NOPEY�2880     LDA LSAVE+22 ;First, is�2885     BEQ CONSKYS ; there a�2890 ;                a filename? No!�2895 ;�2900     LDA KEY     ;Yes, but which�2905     CMP #'1     ;mode? 1?�2910     BNE NOPEY1  ;No...�2915 ;�2920     JSR OPENSVE ;Open save file�2925     LDA #0      ;temp...�2930     STA TEMP�2935     LDA 88      ;Start screen�2940     STA LOHI    ;address.�2945     LDA 89�2950     STA LOHI+1�2955 LB�2960     LDY #0�2965 LOADBUFF�2970     LDA (LOHI),Y ;Our EXPAND�2975     STA BUFFER,Y ;routine...�2980 ;                 Changes GR.7�2985     STA BUFFER+40,Y ;into GR.7+�2990     INY �2995     CPY #40�3000     BNE LOADBUFF�3005 ;�3010     LDX #$10    ;Save to disk.�3015     LDA #11�3020     STA ICCOM,X�3025     LDA # <BUFFER�3030     STA ICBAL,X�3035     LDA # >BUFFER�3040     STA ICBAH,X�3045     LDA #80�3050     STA ICBLL,X�3055     LDA #0�3060     STA ICBLH,X�3065     JSR CIOV�3070     LDA $0353�3075     CMP #1      ;Any errors?�3080     BNE OHOH1   ;Yes.�3085 ;�3090     LDA LOHI    ;Next screen�3095 ;                bytes.�3100     CLC �3105     ADC #40�3110     STA LOHI�3115     LDA LOHI+1�3120     ADC #0�3125     STA LOHI+1�3130     INC TEMP�3135     LDA TEMP�3140     CMP #96     ;End of screen?�3145     BNE LB      ;No.�3150 ;�3155     JMP CLOSESAVE ;Yes, close.�3160 ;�3165 NOPEY1�3170     CMP #'2     ; Not this one!�3175     BNE CONSKYSQ ;ARRRGH!�3180 ;�3185     JSR OPENSVE ;Open for save.�3190     LDX #$10    ;Plain 62 sector�3195     LDA #11     ;save.�3200     STA ICCOM,X�3205     LDA 88�3210     STA ICBAL,X�3215     LDA 89�3220     STA ICBAH,X�3225     LDA # <7680�3230     STA ICBLL,X�3235     LDA # >7680�3240     STA ICBLH,X�3245     JSR CIOV�3250     JMP CHECKERR ;Done.�3255 ;�3260 CONSKYSQ�3265     JMP CONSKYS ;Loop back.�3270 ;�3275 OHOH1�3280     JMP OHOH    ;Ditto.�3285 ;�3290 CHECKERR�3295     LDA $0353   ;Error?�3300     CMP #1�3305     BNE OHOH1   ;Yes.�3310 ;�3315     JMP CLOSESAVE ;Close disk.�3320 ;�3325 MORECONS1�3330     JMP MORECONS ;Back.�3335 ;�3340 CLEARALLELSE�3345     LDX #0      ;Clear all else!�3350 CAE1�3355     LDA #0�3360     STA DISPLINE,X ;Show lines.�3365     INX �3370     CPX #96�3375     BNE CAE1�3380 ;�3385     LDA #0      ;colors!�3390     STA 712�3395     LDA #10�3400     STA 709�3405     LDX #0�3410     TXA �3415 CLEARCHCLS�3420     STA CHARCOLR,X ;Gray shades!�3425     INX �3430     CPX #120�3435     BNE CLEARCHCLS�3440 ;�3445     RTS �3450 ;�3455 ITZNEET�3460     LDX POS     ;Other stuff!�3465     LDA L5+19�3470     BNE UDDER1�3475 ;�3480     LDA ENDZ,X�3485     CMP YY�3490     BNE LEEVE�3495 ;�3500     JMP NXTSCRN�3505 ;�3510 UDDER1�3515     LDA ENDZZ,X�3520     CMP YY�3525     BNE LEEVE�3530 ;�3535     JMP NXTSCRN2�3540 ;�3545 LEEVE�3550     JMP IT�3555 ;�3560 NXTSCRN�3565     LDA #96�3570     STA BTM+1�3575     JSR TRANSFER7�3580 NX�3585     LDA #0      ;Clear screens!�3590     STA XX�3595     STA YY�3600     JMP IT�3605 ;�3610 NXTSCRN2�3615     LDA #192�3620     STA BTM+1�3625     JSR TRANSFER7�3630     JMP NX�3635 ;�3640 CLOSESAVE�3645     LDX #$10    ;Close the save�3650     LDA #11     ;by appending�3655 ;                color info.�3660     STA ICCOM,X�3665     LDA # <COLORSD�3670     STA ICBAL,X�3675     LDA # >COLORSD�3680     STA ICBAH,X�3685     LDA #4�3690     STA ICBLL,X�3695     LDA #0�3700     STA ICBLH,X�3705     JSR CIOV�3710     LDX #$10�3715     LDA #$0C�3720     STA ICCOM,X�3725     JSR CIOV�3730     JMP CONSKYS ;Back.�3735 ;�3740 COLORSD�3745     .BYTE 12,10,6,2 ;Our screen�3750 ;                   gray shades.�3755 ;�3760 OPENSVE�3765     LDX #$10    ;Open for�3770     LDA #3      ;disk write.�3775     STA ICCOM,X�3780     LDA # <FILENAME�3785     STA ICBAL,X�3790     LDA # >FILENAME�3795     STA ICBAH,X�3800     LDA #8�3805     STA ICAX1,X�3810     LDA #0�3815     STA ICAX2,X�3820     JSR CIOV�3825     LDA $0353   ;Error?�3830     CMP #1�3835     BNE OHOH    ;YES!!!�3840 ;�3845     RTS �3850 ;�3855 OHOH�3860     PLA �3865     JMP ERROR�3870 ;�3875 ; Input filename�3880 ;�3885 INPUTQ�3890     JSR CLEARFN ;Clear filename�3895     LDX #0�3900 INPLOOPQ�3905     STX TEMP�3910     LDA #$80�3915     LDX TEMP�3920     STA LSAVE+22,X�3925     JSR GETKEY  ;Get loop.�3930     LDX TEMP�3935     LDA KEY�3940     CMP #126    ;Backspace??�3945     BNE NOTBKSPQ ;No.�3950 ;�3955     CPX #0      ; First spot?�3960     BEQ INPLOOPQ ;Yes.�3965 ;�3970     LDA #0      ; Back up.�3975     STA LSAVE+22,X�3980     LDA #32�3985     STA FILENAME+3,X�3990     DEX �3995     JMP INPLOOPQ�4000 ;�4005 NOTBKSPQ�4010     CMP #155    ;RETURN?�4015     BEQ FINIQ   ;Yes.�4020 ;�4025     CPX #12     ;At end?�4030     BEQ INPLOOPQ ;Yes.�4035 ;�4040     STA FILENAME+3,X ;Save chr.�4045     SEC �4050     SBC #32�4055     STA LSAVE+22,X�4060     INX �4065     JMP INPLOOPQ�4070 ;�4075 FINIQ�4080     LDA #0      ;End it.�4085     STA LSAVE+22,X�4090     RTS �4095 ;�4100 ; Open S: device�4105 ;�4110 OPENS�4115     LDX #$20    ;Open it.�4120     LDA #3�4125     STA ICCOM,X�4130     LDA # <SH�4135     STA ICBAL,X�4140     LDA # >SH�4145     STA ICBAH,X�4150     LDA #8�4155     STA ICAX1,X�4160     LDA L5+19   ;Pick a mode,�4165     BNE EIGHT   ;any mode.�4170 ;�4175     LDA #7�4180     STA ICAX2,X�4185     JMP OPENIT�4190 ;�4195 EIGHT�4200     LDA #8�4205     STA ICAX2,X�4210 OPENIT�4215     JSR CIOV�4220     LDA L5+19�4225     BEQ LATERONDUDES�4230 ;�4235     LDA SDLSTL  ;Store DL addr.�4240     CLC �4245     ADC #3�4250     STA LOHI�4255     LDA SDLSTL+1�4260     ADC #0�4265     STA LOHI+1�4270     LDY #0�4275 SRCHDL�4280     LDA (LOHI),Y ;Change GR.8�4285 ;                 to GR.7+�4290     CMP #$4F�4295     BNE NOMLD�4300 ;�4305     LDA #$4E�4310     STA (LOHI),Y�4315     LDA LOHI�4320     CLC �4325     ADC #2�4330     STA LOHI�4335     LDA LOHI+1�4340     ADC #0�4345     STA LOHI+1�4350     JMP NXTDLB�4355 ;�4360 NOMLD�4365     CMP #$0F�4370     BNE NOREGL�4375 ;�4380     LDA #$0E�4385     STA (LOHI),Y�4390     BNE NXTDLB�4395 ;�4400 NOREGL�4405     CMP #$41�4410     BNE NXTDLB�4415 ;�4420     RTS �4425 ;�4430 NXTDLB�4435     LDA LOHI�4440     CLC �4445     ADC #1�4450     STA LOHI�4455     LDA LOHI+1�4460     STA POINTER+1�4465     STA LOHI+1�4470     JMP SRCHDL�4475 ;�4480 LATERONDUDES�4485     RTS �4490 ;�4495 SH�4500     .BYTE "S:"  ;Screen handler.�4505 ;�4510 TRANSFER7�4515     LDA #0      ;Move screens.�4520     STA TEMP�4525     LDA 88�4530     STA LOHI�4535     LDA 89�4540     STA LOHI+1�4545     LDA # <SCRN2�4550     STA POINTER�4555     LDA # >SCRN2�4560     STA POINTER+1�4565 TR1�4570     LDY #0�4575 TR2�4580     LDA (LOHI),Y�4585     PHA �4590     LDA (POINTER),Y�4595     STA (LOHI),Y�4600     PLA �4605     STA (POINTER),Y�4610     INY �4615     CPY #40�4620     BNE TR2�4625 ;�4630     INC TEMP�4635     LDA TEMP�4640 BTM�4645     CMP #96�4650     BEQ DONETRNS�4655     LDA LOHI�4660     CLC �4665     ADC #40�4670     STA LOHI�4675     LDA LOHI+1�4680     ADC #0�4685     STA LOHI+1�4690     LDA POINTER�4695     CLC �4700     ADC #40�4705     STA POINTER�4710     LDA POINTER+1�4715     ADC #0�4720     STA POINTER+1�4725     JMP TR1�4730 ;�4735 DONETRNS�4740     RTS �4745 ;�4750 CLRBIGBUF�4755     LDA #0      ;Clear screens.�4760     STA TEMP�4765     LDA # <SCRN2�4770     STA LOHI�4775     LDA # >SCRN2�4780     STA LOHI+1�4785 CLRB1�4790     LDY #0�4795     TYA �4800 CLRB2�4805     STA (LOHI),Y�4810     INY �4815     CPY #40�4820     BNE CLRB2�4825 ;�4830     INC TEMP�4835     LDA TEMP�4840     CMP #192�4845     BEQ DONECLRING�4850 ;�4855     LDA LOHI�4860     CLC �4865     ADC #40�4870     STA LOHI�4875     LDA LOHI+1�4880     ADC #0�4885     STA LOHI+1�4890     JMP CLRB1�4895 ;�4900 DONECLRING�4905     RTS �4910 ;�4915 SETMD�4920     LDA L5+19   ;Offset borders.�4925     BNE PLUSG�4930 ;�4935     LDA #128�4940     STA MD+1�4945     LDA #-32�4950     STA MD2+1�4955     RTS �4960 ;�4965 PLUSG�4970     LDA #176�4975     STA MD+1�4980     LDA #16�4985     STA MD2+1�4990     RTS �4995 ;�5000 CLREST�5005     LDX $0358   ;Buffer pointer.�5010     LDA #32�5015 RESTLP�5020     STA BUFFER,X�5025     INX �5030     BNE RESTLP�5035 ;�5040     RTS �5045 ;�5050 CHECK4RTN�5055     CMP #155    ;ATASCII RETURN?�5060     BNE NEXT1�5065 ;�5070     JMP SRCHCONT�5075 ;�5080 NEXT1�5085     CMP #13     ;ASCII RETURN?�5090     BNE NEXT2�5095 ;�5100     JMP SRCHCONT�5105 ;�5110 NEXT2�5115     CMP #10     ;ASCII LF?�5120     BNE XIT1�5125 ;�5130     JMP SRCHCONT�5135 ;�5140 XIT1�5145     JMP BACKHR�5150 ;�5155 ERASECR�5160     LDA #0      ;Erase cursor.�5165     LDX TEMP�5170     STA ARL,X�5175     LDA CRL,X�5180     SEC �5185     SBC #$80�5190     STA CRL,X�5195     RTS �5200 ;�5205 CLRBUFF�5210     LDX #0�5215     TXA �5220 CLROOP�5225     STA BUFFER,X�5230     INX �5235     BNE CLROOP�5240 ;�5245     RTS �5250 ;�5255 CLRCOLS�5260     LDX #0�5265     TXA �5270 CLRCLOOP�5275     STA CHARCOLR,X�5280     INX �5285     CPX #120�5290     BNE CLRCLOOP�5295 ;�5300     RTS �5305 ;�5310 OPEN�5315     LDX #$10    ;Open disk file.�5320     LDA #3�5325     STA ICCOM,X�5330     LDA # <FILENAME�5335     STA ICBAL,X�5340     LDA # >FILENAME�5345     STA ICBAH,X�5350     LDA #4�5355     STA ICAX1,X�5360     LDA #0�5365     STA ICAX2,X�5370     JSR CIOV�5375     LDA $0353   ;Error?�5380     CMP #1�5385     BNE ERROR   ;Yes.�5390 ;�5395     RTS �5400 ;�5405 CLOSE�5410     LDX #$10    ;Close it!�5415     LDA #$0C�5420     STA ICCOM,X�5425     JMP CIOV�5430 ;�5435 ERROR�5440     LDA # <ERR  ;ERROR!!!�5445     STA SDLSTL�5450     LDA # >ERR�5455     STA SDLSTL+1�5460     LDA $0353�5465     STA $D4�5470     LDA #0�5475     STA $D5�5480     JSR $D9AA   ;Convert ERR #�5485     JSR $D8E6   ;to screen mem.�5490     CLD �5495     LDY #$FF�5500 PNUM�5505     INY �5510     LDA ($F3),Y�5515     AND #$1F�5520     STA ERRLIN+10,Y�5525     LDA ($F3),Y�5530     BPL PNUM�5535 ;�5540     JSR RAZZ    ;Buzz.�5545     JSR CLOSE   ;Close.�5550     JSR GETKEY  ;Get a key.�5555 MNUJMP�5560     JMP ST1�5565 ;�5570 INPUT�5575     JSR CLEARFN ;Clear filename.�5580     LDX #0�5585 INPLOOP�5590     STX TEMP�5595     LDA #$80�5600     LDX TEMP�5605     STA L2+16,X�5610     JSR GETKEY  ;This�5615     LDX TEMP    ;input�5620     LDA KEY     ;loop�5625     CMP #126    ;is�5630     BNE NOTBKSP ;identical�5635 ;                to�5640     CPX #0      ;the�5645     BEQ INPLOOP ;other�5650 ;                input�5655     LDA #0      ;loop.�5660     STA L2+16,X�5665     LDA #32�5670     STA FILENAME+3,X�5675     DEX �5680     JMP INPLOOP�5685 ;�5690 NOTBKSP�5695     CMP #155�5700     BEQ FINI�5705 ;�5710     CPX #12�5715     BEQ INPLOOP�5720 ;�5725     STA FILENAME+3,X�5730     SEC �5735     SBC #32�5740     STA L2+16,X�5745     INX �5750     JMP INPLOOP�5755 ;�5760 FINI�5765     LDA #0�5770     STA L2+16,X�5775     RTS �5780 ;�5785 CLEARFN�5790     LDX #0      ;Clear�5795 LOOPCLR�5800     LDA #32     ;filename.�5805     STA FILENAME+3,X�5810     LDA #0�5815     STA L2+16,X�5820     STA LSAVE+22,X�5825     INX �5830     CPX #13�5835     BNE LOOPCLR�5840 ;�5845     RTS �5850 ;�5855 RAZZ�5860     LDY #$20    ;Razz routine.�5865 RAZZ1�5870     LDX #$7F    ;Same as CTRL-2�5875 RAZZ2�5880     STX 53279�5885     STX WSYNC�5890     DEX �5895     BPL RAZZ2�5900 ;�5905     DEY �5910     BPL RAZZ1�5915 ;�5920     RTS �5925 ;�5930 TEMP�5935     .BYTE 0,0,0 ;Temp. Vars.�5940 ;�5945 PLOT�5950     STA COLOR   ;Plot routines.�5955     STX XSTOR�5960     STY YSTOR�5965     LDA YSTOR�5970     ASL A�5975     STA POINTER�5980     LDA #0�5985     ROL A�5990     STA POINTER+1�5995     JMP CONT�6000 ;�6005 COLOR�6010     .BYTE 0     ;Color hold�6015 XSTOR�6020     .BYTE 0     ;storage...�6025 ;�6030 GETKEY�6035     LDX #$30    ;Get a key�6040     LDA #7      ;routine.�6045     STA ICCOM,X�6050     LDA # <KEY�6055     STA ICBAL,X�6060     LDA # >KEY�6065     STA ICBAH,X�6070     LDA #1�6075     STA ICBLL,X�6080     LDA #0�6085     STA ICBLH,X�6090     JMP CIOV�6095 ;�6100 KEY�6105     .BYTE 0     ;Key value.�6110 ;�6115 CONT�6120     ASL POINTER ; The plot�6125     ROL POINTER+1 ;routine.�6130     ASL POINTER ;(Kinda complex)�6135     LDA POINTER�6140     STA STOR1�6145     ROL POINTER+1�6150     LDA POINTER+1�6155     STA STOR2�6160     ASL POINTER�6165     ROL POINTER+1�6170     ASL POINTER�6175     ROL POINTER+1�6180     LDA POINTER�6185     CLC �6190     ADC STOR1�6195     STA POINTER�6200     LDA POINTER+1�6205     ADC STOR2�6210     STA POINTER+1�6215     LDA 88�6220     CLC �6225     ADC POINTER�6230     STA POINTER�6235     LDA 89�6240     ADC POINTER+1�6245     STA POINTER+1�6250     LDA XSTOR�6255     AND #3�6260     TAX �6265     LDA XSTOR�6270     LSR A�6275     LSR A�6280     CLC �6285     ADC POINTER�6290     STA POINTER�6295     LDA POINTER+1�6300     ADC #0�6305     STA POINTER+1�6310     LDY COLOR�6315     LDA BMASK2,X�6320     AND COLORS,Y�6325     STA STOR1�6330     LDA BMASK1,X�6335     LDY #0�6340     AND (POINTER),Y�6345     ORA STOR1�6350     STA (POINTER),Y�6355     RTS �6360 ;�6365 ; Various stuff.�6370 ;�6375 COLORS�6380     .BYTE $00,$55,$AA,$FF ;plot�6385 ;                         colors�6390 BMASK1�6395     .BYTE $3F,$CF,$F3,$FC ;Masks�6400 ;                          for�6405 BMASK2�6410     .BYTE $C0,$30,$0C,$03 ;plot�6415 ;                      routines.�6420 YSTOR�6425     .BYTE 0     ;Storage�6430 STOR1�6435     .BYTE 0     ;for�6440 STOR2�6445     .BYTE 1     ;plot routine�6450 KH�6455     .BYTE "K:"  ;Keybd handler.�6460 COLS�6465     .SBYTE "80  132 " ;Columns.�6470 COL�6475     .BYTE 0     ;Col. toggle.�6480 ARWS�6485     .SBYTE "" ;Our arrows�6490 POS�6495     .BYTE 0     ;Position code.�6500 FILENAME�6505     .BYTE "D1:               "�6510 ;    Filename buffer�6515 CHARCOLR�6520     *=  *+120   ;Where we place�6525 ;       our edited gray shades.�6530 BUFFER�6535     *=  *+256   ;Load-in buffer�6540 COLAMT�6545     .BYTE 40,14 ;Col. amounts.�6550 ;DEFAULTS are our default�6555 ;gray shades.�6560 DEFAULTS�6565     .BYTE 0,2,1,3,2,2,3,1,2,2�6570     .BYTE 3,2,1,1,1,1,3,3,3,3�6575     .BYTE 3,3,3,3,3,2,2,2,2,2,2�6580     .BYTE 3,3,3,3,3,3,3,3,3,3�6585     .BYTE 3,3,3,3,3,3,3,3,3,3�6590     .BYTE 3,3,3,3,3,3,3,2,2,2�6595     .BYTE 1,1�6600 ;�6605 LOP�6610     INC TEMP�6615     LDA TEMP�6620     CMP #32�6625     BEQ DONELDING�6630 ;�6635     JMP SRCHCONT�6640 ;�6645 DONELDING�6650     JMP EOF�6655 ;�6660 ; Our display lists/data.�6665 ;�6670 DLIST1�6675     .BYTE $70,$70,$70,$70,$70�6680     .BYTE $70,$F0,$47�6685     .BYTE  <LINES, >LINES�6690     .BYTE $90,$02,$70,$02,$00�6695     .BYTE $02,$00,$02,$00,$02�6700     .BYTE $00,$02,$00,$02�6705     .BYTE $41, <DLIST1, >DLIST1�6710 SELECT�6715     .BYTE $70,$70,$70,$70,$47�6720     .BYTE  <SLCTLINE, >SLCTLINE�6725     .BYTE $07,$41�6730     .BYTE  <SELECT, >SELECT�6735 SLCTLINE�6740     .SBYTE "�SE DEFAULTS OR "�6745     .SBYTE "�DIT YOUR OWN?  "�6750 LINES�6755     .SBYTE +$C0," ART CONVERTER! "�6760     .SBYTE " (c)1987, Antic Publishing Inc. "�6765 L1�6770     .SBYTE "   �olumn of printout: 80       "�6775 L2�6780     .SBYTE "   �oad file D1:                "�6785     .SBYTE "   �efault drive number         "�6790 L4�6795     .SBYTE "   �icture postioning:         "�6800 L5�6805     .SBYTE "   �raphics mode: 7             "�6810     .SBYTE "   ����� starts the conversion  "�6815 ;�6820 ;* Our DLI's.�6825 ;�6830 DLI�6835     PHA �6840     TXA �6845     PHA �6850     LDX #$90�6855 LLL�6860     STX WSYNC�6865     STX $D019�6870     INX �6875     CPX #$A0�6880     BNE LLL�6885 ;�6890     LDA # <DLI1�6895     STA VDSLST�6900     LDA # >DLI1�6905     STA VDSLST+1�6910     PLA �6915     TAX �6920     PLA �6925     RTI �6930 ;�6935 DLI1�6940     PHA �6945     TXA �6950     PHA �6955     LDX #0�6960     LDY #$0E�6965 LLL1�6970     STX WSYNC�6975     LDA #$4A�6980     STA $D018�6985     LDA #0�6990     STA $D017�6995     INX �7000     CPX #9�7005     BNE LLL1�7010 ;�7015     LDA #$C4�7020     STA $D018�7025     LDA #10�7030     STA $D017�7035     LDA # <DLI�7040     STA VDSLST�7045     LDA # >DLI�7050     STA VDSLST+1�7055     PLA �7060     TAX �7065     PLA �7070     RTI �7075 ;�7080 ; More display lists.�7085 ;�7090 DLIST3�7095     .BYTE $70,$70,$70,$70,$47�7100     .BYTE  <LINES2, >LINES2�7105     .BYTE $07,$70,$70,$70,$70�7110     .BYTE $70,$02,$00,$02,$00�7115     .BYTE $02,$70,$70,$70,$70�7120     .BYTE $70,$06,$00,$06�7125     .BYTE $41, <DLIST3, >DLIST3�7130 LINES2�7135     .SBYTE +$80," NOW SEARCHING  "�7140     .SBYTE +$80,"FILE FOR BYTES.."�7145 DISPLINE�7150     .SBYTE "                                "�7155 ARL�7160     .SBYTE "                                "�7165 CRL�7170     .SBYTE "                                "�7175     .SBYTE +$C0,"  ENTER DATA:   "�7180     .SBYTE +$C0,"0=WHITE, 3=BLACK"�7185 XX�7190     .BYTE 1     ;Our screen X�7195 YY�7200     .BYTE 1     ;and Y values.�7205 P256�7210     .BYTE 1     ;Pointer...�7215 ;�7220 ; Yet another display list.�7225 ;�7230 DLIST0�7235     .BYTE $70,$70,$70,$70,$70�7240     .BYTE $70,$70,$47�7245     .BYTE  <LINESF, >LINESF,$30�7250     .BYTE $70,$02,$00,$02,$00�7255     .BYTE $02,$00,$02,$00,$02�7260     .BYTE $20,$02�7265     .BYTE $41, <DLIST0, >DLIST0�7270 LINESF�7275     .SBYTE +$80,"  CHOOSE AN OPTION: " 12345678901234567890�7280     .SBYTE "         � Save screen - mode 7         "�7285     .SBYTE "         � Save screen - mode 7+        "�7290     .SBYTE "         � Enter save filename          "�7295     .SBYTE "         � Restart program              "�7300     .SBYTE " ������� toggles screens, ����� for scrn"�7305 LSAVE�7310     .SBYTE "     Save filename D1:                  "�7315 ;�7320 ; Our screen boundaries for all�7325 ; positioning modes.�7330 ;�7335 ENDZ�7340     .BYTE 96,160,96,160�7345 ENDZZ�7350     .BYTE 192,160,192,160�7355 SCRN2 = $4000   ;Buffer screen.�7360 ;�7365 ; Guess what. A display list�7370 ; to handle errors.�7375 ;�7380 ERR�7385     .BYTE $70,$70,$70,$70,$70�7390     .BYTE $70,$70,$70,$70,$70�7395     .BYTE $47, <ERRLIN, >ERRLIN�7400     .BYTE $41, <ERR, >ERR�7405 ERRLIN�7410     .SBYTE "  ERROR -                     "�7415 ;�7420 ;* Where we start from.�7425     *=  $02E0   ;Init addr.�7430 ;�7435     .WORD START�7440     .END �