This page (revision-2) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann 

This page was created on 02-Jan-2011 12:25 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
2 03-Feb-2023 15:21 5 KB Carsten Strotmann to previous
1 02-Jan-2011 12:25 3 KB Carsten Strotmann to last

Page References

Incoming links Outgoing links

Version management

Difference between version and

At line 163 added 62 lines
!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
}}}