This page (revision-2) was last changed on 02-Jan-2011 13:47 by Carsten Strotmann  

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

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Difference between version 2 1 and 2 1

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

}}}