OSS ASCII-ATASCII Text File Converter Copyrigth (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#
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
; source code in MAC/65-format on an OSS DOS XL disk image