!!!Atari CIO Routines
{{{
00010 .LI OFF
00020 *
00030 *
00040 IOCOM = $342
00050 IOBUFF = $344
00060 IOLEN = $348
00070 IOAUX1 = $34A
00080 IOAUX2 = $34B
00090 *
00100 CIO = $E456
00110 *
00120 *
00130 CLOSEF = 12
00140 OPENF = 3
00150 GETB = 7
00160 PUTB = 11
00170 FORMATF = 254
00180 *
00190 *
00200 *
00210 ------------------------------
00220 * Routinen zum Schliessen,
00230 * Oeffnen, Lesen von Bytes,
00240 * Schreiben von Bytes und
00250 * Formattieren von Datenfiles
00260 * bzw Disketten
00270 ------------------------------
00280 *
00290 *
00300 *
00310 ------------------------------
00320 * CLOSE:
00330 * Datenkanalnummer *16 im
00340 * <X> Register.
00350 *
00360 ------------------------------
00370 *
00380 CLOSE LDA #CLOSEF
00390 STA $342,X
00400 JSR CIO
00410 BPL .1
00420 JMP ERROR
00430 .1 RTS
00440 *
00450 ------------------------------
00460 *
00470 * OPEN:
00480 * <X> Register: Datenkanal*16+
00490 * OPENspezifikation
00500 * 4: Lesen
00510 * 6: Directory
00520 * 8: Schreiben
00530 * 9: Append
00540 * 12: Update
00550 *
00560 * <A> Register: LO-Byte des
00570 * Filenamepointers
00580 *
00590 * <Y> Register: HI-Byte des
00600 * Filenamepointers
00610 *
00620 ------------------------------
00630 *
00640 OPEN PHA
00650 TXA
00660 PHA
00670 AND #$70
00680 TAX
00690 PLA
00700 AND #$F
00710 STA IOAUX1,X
00720 LDA #0
00730 STA IOAUX2,X
00740 PLA
00750 STA IOBUFF,X
00760 TYA
00770 STA IOBUFF+1,X
00780 LDA #OPENF
00790 STA IOCOM,X
00800 JSR CIO
00810 BPL .1
00820 JMP ERROR
00830 .1 RTS
00840 *
00850 ------------------------------
00860 *
00870 * GETBYTES:
00880 * <A> Register: Page des Buffers
00890 * <X> Register: Datenkanal*16
00900 * <Y> Register: Laenge der Bytes
00910 ------------------------------
00920 *
00930 GETBYTES STA IOBUFF+1,X
00940 LDA #GETB
00950 STA IOCOM,X
00960 TYA
00970 STA IOLEN,X
00980 LDA #0
00990 STA IOBUFF,X
01000 STA IOLEN+1,X
01010 JMP CIO
01020 BPL .1
01030 JMP ERROR
01040 .1 RTS
01050 *
01060 ------------------------------
01070 *
01080 * PUTBYTES:
01090 * <A> Register: Page des Buffers
01100 * <X> Register: Datenkanal*16
01110 * <Y> Register: Laenge der Bytes
01120 ------------------------------
01130 *
01140 PUTBYTES STA IOBUFF+1,X
01150 LDA #PUTB
01160 STA IOCOM,X
01170 TYA
01180 STA IOLEN,X
01190 LDA #0
01200 STA IOBUFF,X
01210 STA IOLEN+1,X
01220 JMP CIO
01230 BPL .1
01240 JMP ERROR
01250 .1 RTS
01260 *
01270 ------------------------------
01280 *
01290 * FORMAT:
01300 * <A> Register: LO-Byte der De-
01310 * viceaddresse
01320 * <Y> Register: HI-Byte der De-
01330 * viceaddresse
01340 * <X> Register: Datenkanal*16
01350 *
01360 ------------------------------
01370 *
01380 FORMAT STA IOBUFF,X
01390 TYA
01400 STA IOBUFF+1,X
01410 LDA #FORMATF
01420 STA IOCOM,X
01430 JSR CIO
01440 BPL .1
01450 JMP ERROR
01460 .1 RTS
01470 *
01480 ------------------------------
01490 *
01500 ERROR TYA
01510 RTS
01520 *
01530 * Hier sollte eine eigene Feh-
01540 * lerroutine stehen.
01550 * <Y> Register haelt Fehler-
01560 * nummer.
}}}
!Call CIO from Atari Basic
{{{
00010 .LI OFF
00020 *
00030 ****************
00040 * *
00050 * CIO-Routinen *
00060 * *
00070 ****************
00080 *
00090 *
00100 *
00110 CIOV .EQ $E456
00120 *
00130 ICCOM .EQ $0342
00140 ICSTAT .EQ $0343
00150 ICBALO .EQ $0344
00160 ICBLEN .EQ $0348
00170 *
00180 COUNT .EQ $CD
00190 *
00200 *
00210 *
00220 *
00230 *
00240 *
00250 START PLA Parameterzahl holen
00260 *
00270 PLA Daten-
00280 PLA kanalnr.
00290 ASL holen
00300 ASL *16
00310 ASL als
00320 ASL Index nach
00330 TAX nach <X>
00340 *
00350 PLA Kommando
00360 PLA holen
00370 STA ICCOM,X
00380 *
00390 PLA Daten
00400 STA ICBALO+1,X
00410 PLA addresse
00420 STA ICBALO,X holen
00430 *
00440 PLA Daten-
00450 STA ICBLEN+1,X
00460 PLA laenge
00470 STA ICBLEN,X holen
00480 *
00490 EXEC JSR CIOV CIO aufrufen
00500 *
00510 LDA ICSTAT Status
00520 STA $D4 ins
00530 LDA #0 Ueberga-
00540 STA $D5 beregis-
00550 RTS ter
}}}