¢00010 .LI OFF¢00020 ; .OF "D:KURS1.COM"¢00030 ------------------------------¢00040 ; Wichtige CIO-Variablen:¢00050 ;¢00060 IOCOM = $342¢00070 IOBUFF = $344¢00080 IOLEN = $348¢00090 IOAUX1 = $34A¢00100 IOAUX2 = $34B¢00110 ;¢00120 ; CIO-Einsprungsadresse:¢00130 ;¢00140 CIO = $E456¢00150 ;¢00160 ; CIO-Kommandos:¢00170 ;¢00180 CLOSEF = 12¢00190 OPENF = 3¢00200 GETB = 7¢00210 PUTB = 11¢00220 ------------------------------¢00230 .OR $4000 in diesem Beispiel eigentlich ueberfluessig¢00240 ------------------------------¢00250 START ; das Hauptprogramm¢00260 JSR INIT Kanal 6 initialisieren¢00270 LDA #TEXT die notwendigen Parameter in die Register laden¢00280 LDX /TEXT¢00290 LDY #TEXTLAENGE¢00300 JSR PRINT ab zum drucken¢00310 RTS Ende, Aus, Schluss, Basta!¢00320 ------------------------------¢00330 INIT¢00340 LDX #$60 Kanal 6¢00350 LDA #CLOSEF Kommando Kanal schliessen¢00360 STA IOCOM,X in die entsprechende Speicherstelle¢00370 JSR CIO und ab in die CIO¢00380 ;(der Wert in X bleibt erhalten)¢00390 LDA #OPENF Kommando Kanal oeffnen¢00400 STA IOCOM,X¢00410 LDA #E_HANDLER Adresse fuer die "Handlerkennung"¢00420 STA IOBUFF,X in den Vektor fuer den I/O-Buffer¢00430 LDA /E_HANDLER¢00440 STA IOBUFF+1,X¢00450 LDA #8 Kanal zum schreiben oeffnen¢00460 STA IOAUX1,X¢00470 LDA #0¢00480 STA IOAUX2,X¢00490 JSR CIO und wieder in die CIO¢00500 RTS¢00510 ------------------------------¢00520 E_HANDLER .AS "E:"¢00530 ------------------------------¢00540 PRINT¢00550 PHA Lo-Byte sichern¢00560 TXA Platz im X-Register schaffen¢00570 LDX #$60 Kanal 6¢00580 STA IOBUFF+1,X Text als I/O-Buffer eintragen¢00590 PLA¢00600 STA IOBUFF,X¢00610 TYA Laenge des Texts aus Y holen¢00620 STA IOLEN,X und als Laenge des I/O-Buffers angeben¢00630 LDA #0 (Hi-Byte 0)¢00640 STA IOLEN+1,X¢00650 LDA #PUTB Kommando Daten 'senden'¢00660 STA IOCOM,X¢00670 JSR CIO und tschuess...¢00680 RTS¢00690 ------------------------------¢00700 ; Der auszugenbende Text:¢00710 TEXT .AS "Hallo Welt!"¢00720 .HX 9B9B¢00730 .AS "Hier ist der Assemblerkurs aus"¢00740 .HX 9B¢00750 .AS "צ⌠≥β∈τσáח∈÷β≤Θ∩∈á¡áקΦσá∈σ°⌠áτσ∈σ≥β⌠Θ∩∈"¢00760 .HX 9B¢00770 TEXTLAENGE = *-TEXT¢00780 ------------------------------¢00790 ; .OR $2E0 Die Startadresse fuer das ladbare .COM-File¢00800 ; .DA START¢00810 ------------------------------¢
