OSS ASCII-ATASCII Text File Converter Copyrith (C) 1986 by OSS, Inc. and Christopher M. Kelley#
Taken from the OSS Newsletter-Fall 1986: Christopher M. Kelley wrote a program, which converts ASCII to ATASCII and vice versa.ATR-Image#
- OSS-CONVERT_with_DOS_XL_2.30p_Color.atr
; source code in MAC/65-format on an OSS DOS XL disk image
Source Code#
1000 ;LIST#D:CONVERT.M65 1010 ; 1020 ; 1030 ; 1040 ;ASM,,#D:CONVERT.COM 1050 ; 1060 ; =========================== 1070 ; ASCII - ATASCII Converter 1080 ; by: Christopher M. Kelley 1090 ; for: OSS, Inc. Newsletter 100 ; =========================== 110 ; 120 .OPT NO LIST 130 ; 140 ;Labels 150 ; 160 DOSVEC = $0A 170 LMARGN = $52 180 SAVLOC = $CB 190 INVFLG = $02B6 1200 SHFLOK = $02BE 1210 ICCOM = $0342 1220 ICBAL = $0344 1230 ICBAH = $0345 1240 ICBLL = $0348 1250 ICBLH = $0349 1260 ICAX1 = $034A 1270 CIOV = $E456 1280 ; 1290 ;Start 1300 ; 1310 *= $4000 1320 BEGIN 1330 JMP START 1340 ; 1350 ;Text 1360 ; 1370 TEXT 1380 .BYTE $7D,$9B," ASCII/ATASCII Text File Converter",$9B 1390 .BYTE " (c)1986 Christopher M. Kelley and OSS.",$9B,$9B,$9B,$9B 1400 .BYTE $7F,"Conversion Type:",$9B 1410 .BYTE $7F," [1]ASCII To ATASCII",$9B 1420 .BYTE $7F," [2]ATASCII To ASCII",$9B 1430 .BYTE $7F," [Q]Quit",$9B,$9B,$9B 1440 ; 1450 QUSTN 1460 .BYTE $1C,$9C,$7F,"Please Choose:",$00 1470 ; 1480 RETURN 1490 .BYTE $9B,$9B,$00 1500 ; 1510 INFILE 1520 .BYTE $1C,$9C," File To Convert:",$00 1530 ; 1540 OUTFILE 1550 .BYTE $1C,$9C," Output File:",$00 1560 ; 1570 DONE 1580 .BYTE $9B,$9B,$7F,"DONE! - [RETURN] To Continue",$00 $ 1590 ; 1600 ERR 1610 .BYTE $7F,"ERROR - [RETURN] To Retry",$00 1620 ; 1630 EDIT 1640 .BYTE "E:" 1650 ; 1660 INNAME 1670 .BYTE "D: " 1680 ; 1690 OUTNAME 1700 .BYTE "D: " 1710 ; 1720 ANSWER 1730 .BYTE $00,$00 1740 ; 1750 FLAG 1760 .BYTE $00,$00,$00 1770 ; 1780 TLEN 1790 .BYTE $00 1800 ; 1810 ATRET 1820 .BYTE $9B 1830 ; 1840 ASCRET 1850 .BYTE $0D,$0A 1860 ; 1870 SAVLM 1880 .BYTE $00 1890 ; 1900 ;Open Channel 1 To E: 1910 ; 1920 START 1930 LDA LMARGN ;SAVE ORIGINAL 1940 STA SAVLM ;LEFT MARGIN 1950 LDA #$00 1960 STA LMARGN 1970 ; 1980 LDX #$10 ;CHANNEL 1 1990 LDA #$0C ;CLOSE 2000 STA ICCOM,X ;JUST IN CASE 2010 JSR CIOV 2020 ; 2030 LDX #$10 ;CHANNEL 1 2040 LDA #$03 ;OPEN 2050 STA ICCOM,X ;EDITOR 2060 LDA # <EDIT 2070 STA ICBAL,X 2080 LDA # >EDIT 2090 STA ICBAH,X 2100 LDA #$0C ;READ,WRITE 2110 STA ICAX1,X 2120 JSR CIOV ;DO IT 2130 ; 2140 ;Print Text 2150 ; 2160 PRG 2170 LDA # <TEXT ;HOLD ADDR OF 2180 STA SAVLOC ;TEXT FOR USE 2190 LDA # >TEXT 2200 STA SAVLOC+1 2210 JSR PRNTIC1 2220 ; 2230 ;Get Answer 2240 ; 2250 GETNUM 2260 LDA # <ANSWER ;HOLD ADDR OF 2270 STA SAVLOC ;ANSWER FOR USE 2280 LDA # >ANSWER 2290 STA SAVLOC+1 2300 LDA #$02 ;ANSWER LENGTH 2310 STA TLEN 2320 JSR GETIC1 2330 ; 2340 LDA ANSWER ;FIND OUT WHAT 2350 CMP #$31 ;ANSWER WAS 2360 BNE TRY2 ;NOT 1 2370 LDA #$00 ;IT IS 1 2380 STA FLAG ;SET FLAG FOR 2390 JMP CONVRT ;ASCII - ATASCII 2400 LDA #$40 ;SET UP CAPS 2410 STA SHFLOK 2420 ; 2430 TRY2 2440 CMP #$32 2450 BNE TRYQ ;NOT 2 2460 LDA #$01 ;IT IS 2 2470 STA FLAG ;SET FLAG FOR 2480 JMP CONVRT ;ATASCII - ASCII 2490 ; 2500 TRYQ 2510 CMP #$51 2520 BNE TRYAGN ;NOT Q 2530 LDA SAVLM ;RESTORE LEFT 2540 STA LMARGN ;MARGIN 2550 JMP (DOSVEC) ;BACK TO DOS 2560 ; 2570 TRYAGN 2580 LDA # <QUSTN ;REPRINT JUST 2590 STA SAVLOC ;THE QUESTION 2600 LDA # >QUSTN 2610 STA SAVLOC+1 2620 JSR PRNTIC1 ;PRINT IT 2630 JMP GETNUM ;TRY AGAIN 2640 ; 2650 ;Print Routine 2660 ; 2670 PRNTIC1 2680 LDY #$00 2690 LDA (SAVLOC),Y ;$00=TEXT END 2700 CMP #$00 ;SAVLOC=ADDR OF 2710 BEQ ENDPRNT ;TEXT 2720 LDX #$10 ;CHANEL 1 2730 LDA #$0B ;PUT BINARY REC 2740 STA ICCOM,X 2750 LDA SAVLOC ;TEXT ADDR 2760 STA ICBAL,X 2770 LDA SAVLOC+1 2780 STA ICBAH,X 2790 LDA #$01 ;1 CHAR ONLY 2800 STA ICBLL,X 2810 LDA #$00 2820 STA ICBLH,X 2830 JSR CIOV ;DO IT 2840 INC SAVLOC ;NEXT CHAR 2850 BNE PRNTIC1 2860 INC SAVLOC+1 2870 JMP PRNTIC1 ;DO IT AGAIN 2880 ENDPRNT 2890 RTS 2900 ; 2910 ;Get Answer 2920 ; 2930 GETIC1 2940 LDA #$00 ;SET NO INVERSE 2950 STA INVFLG 2960 LDX #$10 ;CHANNEL 1 2970 LDA #$05 ;GET TEXT REC 2980 STA ICCOM,X 2990 LDA SAVLOC ;BUFFER ADDR 3000 STA ICBAL,X 3010 LDA SAVLOC+1 3020 STA ICBAH,X 3030 LDA TLEN ;GET LENGTH 3040 STA ICBLL,X 3050 LDA #$00 3060 STA ICBLH,X 3070 JSR CIOV ;DO IT 3080 RTS 3090 ; 3100 ;Get Filenames 3110 ; 3120 CONVRT 3130 LDA # <RETURN ;HOLD ADDR OF 3140 STA SAVLOC ;TEXT FOR USE 3150 LDA # >RETURN 3160 STA SAVLOC+1 3170 JSR PRNTIC1 3180 ; 3190 GETIN 3200 LDA # <INFILE ;PRINT SOME 3210 STA SAVLOC ;MORE TEXT 3220 LDA # >INFILE 3230 STA SAVLOC+1 3240 JSR PRNTIC1 3250 ; 3260 LDA #$00 3270 TAX 3280 ; 3290 CLRIN 3300 STA INNAME+2,X 3310 INX 3320 CPX #$0F 3330 BNE CLRIN 3340 ; 3350 LDA # <INNAME+2 ;GET 3360 STA SAVLOC ;FILE TO CONVERT 3370 LDA # >INNAME+2 3380 STA SAVLOC+1 3390 LDA #$0F ;TEXT LENGTH 3400 STA TLEN 3410 JSR GETIC1 3420 ; 3430 LDA INNAME+3 ;FIND COLON 3440 CMP #$3A 3450 BNE TRYNXT 3460 LDA #$00 ;FOUND IT, SET 3470 STA FLAG+1 ;FLAG 3480 JMP OPENIN 3490 ; 3500 TRYNXT 3510 LDA INNAME+4 ;TRY AGAIN FOR 3520 CMP #$3A ;COLON 3530 BNE NOTHERE 3540 LDA #$00 ;FOUNT IT, SET 3550 STA FLAG+1 ;FLAG 3560 JMP OPENIN 3570 ; 3580 NOTHERE 3590 LDA #$01 ;IT'S NOT HERE 3600 STA FLAG+1 ;SET FLAG 3610 ; 3620 OPENIN 3630 LDX #$20 ;CHANNEL 2 3640 LDA #$0C ;CLOSE - JUST 3650 STA ICCOM,X ;IN CASE 3660 JSR CIOV 3670 ; 3680 LDX #$20 ;CHANNEL 2 3690 LDA #$03 ;OPEN 3700 STA ICCOM,X 3710 LDA FLAG+1 ;CHECK FLAG 3720 CMP #$00 3730 BNE NOTSET 3740 LDA # <INNAME+2 ;FILENAME 3750 STA ICBAL,X ;ADDR 3760 LDA # >INNAME+2 3770 STA ICBAH,X 3780 JMP CONT 3790 ; 3800 NOTSET 3810 LDA # <INNAME ;FILENAME ADDR 3820 STA ICBAL,X 3830 LDA # >INNAME 3840 STA ICBAH,X 3850 ; 3860 CONT 3870 LDA #$04 ;READ FILE 3880 STA ICAX1,X 3890 JSR CIOV 3900 BPL GETOUT ;IT WORKED 3910 JMP GETIN ;FAILED - RETRY 3920 ; 3930 GETOUT 3940 LDA # <RETURN ;HOLD ADDR OF 3950 STA SAVLOC ;TEXT FOR USE 3960 LDA # >RETURN 3970 STA SAVLOC+1 3980 JSR PRNTIC1 3990 ; 4000 GETOUT1 4010 LDA # <OUTFILE ;PRINT SOME 4020 STA SAVLOC ;MORE TEXT 4030 LDA # >OUTFILE 4040 STA SAVLOC+1 4050 JSR PRNTIC1 4060 ; 4070 LDA #$00 4080 TAX 4090 ; 4100 CLROUT 4110 STA OUTNAME+2,X 4120 INX 4130 CPX #$10 4140 BNE CLROUT 4150 ; 4160 LDA # <OUTNAME+2 ;GET 4170 STA SAVLOC ;FILE TO CONVERT 4180 LDA # >OUTNAME+2 4190 STA SAVLOC+1 4200 LDA #$0F ;TEXT LENGTH 4210 STA TLEN 4220 JSR GETIC1 4230 ; 4240 LDA OUTNAME+3 ;FIND COLON 4250 CMP #$3A 4260 BNE TRYNXT1 4270 LDA #$00 ;FOUND IT, SET 4280 STA FLAG+2 ;FLAG 4290 JMP OPENOUT 4300 ; 4310 TRYNXT1 4320 LDA OUTNAME+4 ;TRY AGAIN FOR 4330 CMP #$3A ;COLON 4340 BNE NOTHERE1 4350 LDA #$00 ;FOUNT IT, SET 4360 STA FLAG+2 ;FLAG 4370 JMP OPENOUT 4380 ; 4390 NOTHERE1 4400 LDA #$01 ;IT'S NOT HERE 4410 STA FLAG+2 ;SET FLAG 4420 ; 4430 OPENOUT 4440 LDX #$30 ;CHANNEL 3 4450 LDA #$0C ;CLOSE - JUST 4460 STA ICCOM,X ;IN CASE 4470 JSR CIOV 4480 ; 4490 LDX #$30 ;CHANNEL 2 4500 LDA #$03 ;OPEN 4510 STA ICCOM,X 4520 LDA FLAG+2 ;CHECK FLAG 4530 CMP #$00 4540 BNE NOTSET1 4550 LDA # <OUTNAME+2 ;FILENAME 4560 STA ICBAL,X ;ADDR 4570 LDA # >OUTNAME+2 4580 STA ICBAH,X 4590 JMP CONT1 4600 ; 4610 NOTSET1 4620 LDA # <OUTNAME ;FILENAME 4630 STA ICBAL,X ;ADDR 4640 LDA # >OUTNAME 4650 STA ICBAH,X 4660 ; 4670 CONT1 4680 LDA #$08 ;WRITE FILE 4690 STA ICAX1,X 4700 JSR CIOV 4710 BPL DOIT 4720 JMP GETOUT1 4730 ; 4740 ;Do Conversion 4750 ; 4760 DOIT 4770 LDA FLAG ;FIND OUT WHICH 4780 CMP #$00 ;CONVERSION 4790 BEQ ASCAT 4800 JMP ATASC 4810 ; 4820 ASCAT 4830 LDA # <ANSWER ;STORE ADDR 4840 STA SAVLOC 4850 LDA # >ANSWER 4860 STA SAVLOC+1 4870 JSR GETIC2 4880 BPL GETCHAR 4890 JMP END 4900 ; 4910 GETCHAR 4920 LDA ANSWER ;IS IT CTRL-M? 4930 CMP #$0D 4940 BEQ GOTIT ;YES, REPLACE IT 4950 LDA # <ANSWER ;NO, PUT CHAR 4960 STA SAVLOC ;BACK 4970 LDA # >ANSWER 4980 STA SAVLOC+1 4990 LDA #$01 5000 STA TLEN 5010 JSR PUTIC3 5020 BPL ASCAT 5030 JMP ERROR 5040 ; 5050 GOTIT 5060 LDA # <ANSWER ;YES, GET 5070 STA SAVLOC ;SECOND PART 5080 LDA # >ANSWER 5090 STA SAVLOC+1 5100 JSR GETIC2 5110 ; 5120 LDA # <ATRET ;PUT ATASCII 5130 STA SAVLOC ;C/R TO OUTPUT 5140 LDA # >ATRET 5150 STA SAVLOC+1 5160 LDA #$01 5170 STA TLEN 5180 JSR PUTIC3 5190 BPL ASCAT 5200 JMP ERROR 5210 ; 5220 GETIC2 5230 LDX #$20 ;CHANNEL #2 5240 LDA #$07 ;GET BINARY REC 5250 STA ICCOM,X 5260 LDA SAVLOC ;BUFFER ADDR 5270 STA ICBAL,X 5280 LDA SAVLOC+1 5290 STA ICBAH,X 5300 LDA #$01 ;LENGTH = 1 5310 STA ICBLL,X 5320 LDA #$00 5330 STA ICBLH,X 5340 JSR CIOV 5350 RTS 5360 ; 5370 PUTIC3 5380 LDX #$30 ;CHANNEL #3 5390 LDA #$0B ;PUT BINARY REC 5400 STA ICCOM,X 5410 LDA SAVLOC ;TEXT ADDR 5420 STA ICBAL,X 5430 LDA SAVLOC+1 5440 STA ICBAH,X 5450 LDA TLEN ;TEXT LENGTH 5460 STA ICBLL,X 5470 LDA #$00 5480 STA ICBLH,X 5490 JSR CIOV 5500 RTS 5510 ; 5520 ATASC 5530 LDA # <ANSWER ;STORE ADDR 5540 STA SAVLOC 5550 LDA # >ANSWER 5560 STA SAVLOC+1 5570 JSR GETIC2 5580 BPL GETCHAR1 5590 JMP END 5600 ; 5610 GETCHAR1 5620 LDA ANSWER 5630 CMP #$9B ;IS IT C/R? 5640 BEQ GOTIT1 ;YES, REPLACE IT 5650 LDA # <ANSWER ;NO, PUT IT 5660 STA SAVLOC ;BACK 5670 LDA # >ANSWER 5680 STA SAVLOC+1 5690 LDA #$01 5700 STA TLEN 5710 JSR PUTIC3 5720 BPL ATASC 5730 JMP ERROR 5740 ; 5750 GOTIT1 5760 LDA # <ASCRET ;PUT ASCII 5770 STA SAVLOC ;C/R,LF PAIR IN 5780 LDA # >ASCRET 5790 STA SAVLOC+1 5800 LDA #$02 5810 STA TLEN 5820 JSR PUTIC3 5830 BPL ATASC 5840 JMP ERROR 5850 ; 5860 ;End Of Run 5870 ; 5880 END 5890 LDX #$20 ;CHANNEL 2 5900 LDA #$0C ;CLOSE 5910 STA ICCOM,X 5920 JSR CIOV 5930 ; 5940 LDX #$30 ;CHANNEL 3 5950 LDA #$0C ;CLOSE 5960 STA ICCOM,X 5970 JSR CIOV 5980 ; 5990 LDA # <DONE ;LET USER KNOW 6000 STA SAVLOC 6010 LDA # >DONE 6020 STA SAVLOC+1 6030 JSR PRNTIC1 6040 ; 6050 LDA # <ANSWER ;GET C/R 6060 STA SAVLOC 6070 LDA # >ANSWER 6080 STA SAVLOC+1 6090 LDA #$02 6100 STA TLEN 6110 JSR GETIC1 6120 ; 6130 JMP PRG 6140 ; 6150 ERROR 6160 LDX #$20 ;CHANNEL 2 6170 LDA #$0C ;CLOSE 6180 STA ICCOM,X 6190 JSR CIOV 6200 ; 6210 LDA #$30 ;CHANNEL 3 6220 LDA #$0C ;CLOSE 6230 STA ICCOM,X 6240 JSR CIOV 6250 ; 6260 LDA # <ERR ;THERE'S A PROB 6270 STA SAVLOC 6280 LDA # >ERR 6290 STA SAVLOC+1 6300 JSR PRNTIC1 6310 ; 6320 LDA # <ANSWER ;GET C/R 6330 STA SAVLOC 6340 LDA # >ANSWER 6350 STA SAVLOC+1 6360 LDA #$02 6370 STA TLEN 6380 JSR GETIC1 6390 ; 6400 JMP PRG 6410 ; 6420 ;End Of Program 6430 ; 6440 *= $02E0 6450 .WORD BEGIN 6460 ; 6470 .END
