ER¬‰ÿ”
‰.LIOFF-;Assembler-KursNummer#7(;2;CIO-Demo<;F;mit'A.'assemblierenundP;mit'RUNSTART'startenZ-dICCOM=$342ƒKommandonICBADR=$344‚Adresse-ZeigerxICBLEN=$348ƒLaenge‚ICAUX=$34AƒHilfsregisterŒCIOV=$E456ƒEinsprungsvektor –COLOR2=$2C6‚Hintergrundfarbe BACK=$2C8„Rahmenfarbeª;$´TEXT….DA"Suchfile eingeben   >"¾TENDÈSN‡.DA"E:",#$9BÒFN‡.BL20,$9BÜ-!æ;Kanal0(Editor)schliessenð;undwiederoeffnen.ú-START„LDX#$00…Kanal0‰LDA#12†CLOSE‰STAICCOM,X"‰JSRCIOV,;6‰LDX#$0†Kanal0@‰LDA#3‡OPENJ‰STAICCOM,XT‰LDA#SN^‰STAICBADR,Xh‰LDA/SNr‰STAICBADR+1,X|‰LDA#12†‰STAICAUX,X‰LDA#0š‰STAICAUX+1,X¤‰JSRCIOV®-¸;kurzenTextausgebenundÂ;FarbeangenehmsetzenÌ-Ö;à‰LDX#$0†Bytesê‰LDA#11†ausgebenô‰STAICCOM,Xþ‰LDA#TEXT‰STAICBADR,X‰LDA/TEXT‰STAICBADR+1,X&‰LDA#TEND-TEXT‚Text-0‰STAICBLEN,X„laenge:‰LDA/TEND-TEXTD‰STAICBLEN+1,XN‰JSRCIOVX;b‰LDA#$90„dunkelblaul‰STACOLOR2v‰LDA#$A0ƒdunkelgruen€‰STABACKŠ- ”;Filenameeinlesen,Kanal1 ž;schliessen,undFilenamen-¨;Synthaxueberpruefen²-¼;Æ‰LDX#$0‡Kanal0Ð‰LDA#5ˆINPUTÚ‰STAICCOM,Xä‰LDA#FN+2î‰STAICBADR,Xø‰LDA/FN+2‰STAICBADR+1,X‰LDA#20‰STAICBLEN,X ‰LDA#0*‰STAICBLEN+1,X4‰JSRCIOV>;H‰LDX#$10†Kanal1R‰LDA#12‡CLOSE\‰STAICCOM,Xf‰JSRCIOVp;z‰LDY#FN„‰LDX/FN…Pruefen,obŽ‰LDA#':…'D:'ein-˜‰CMPFN+3„getippt¢‰BEQ.1†wurdeund¬‰CMPFN+4„ergaenzen,¶‰BEQ.1†fallsÀ‰STAFN+1„nichtÊ‰LDA#'D…(D:davorÔ‰STAFN†setzenundÞ‰BPL.3†Adresse2è.1‡INY‰vorFNò‰BNE.2†lassen),ü‰INX‰sonstauf.2‡INY‰FN+2hoch-‰BNE.3†setzen‰INX‰(Eingabe)$;.-8;Kanal1fuerDirectoryB;oeffnenL-
V.3‡TXA`‰LDX#$10‡Kanal1j‰STAICBADR+1,Xt‰TYA~‰STAICBADR,Xˆ‰LDA#3‰oeffnen’‰STAICCOM,X†fuerœ‰LDA#6‡Directory¦‰STAICAUX,X°‰JSRCIOVº‰BMIERRÄ;#Î;(dieDirkoennteauchSchritt- Ø;weisemitInputseingelesen#â;werden,dochdagenugPlatzda"ì;ist,wirdsieaufeinmalein-ö;gelesen).;
‰LDX#$10†Kanal1‰LDA#7ˆBGET‰STAICCOM,X(‰LDA#BUF†nachBUF2‰STAICBADR,X<‰LDA/BUFF‰STAICBADR+1,XP‰LDA#$5FˆLaengeZ‰STAICBLEN,X„bisd‰STAICBLEN+1,X‚Errorn‰JSRCIOVˆ136x‰BPL.99‚‰CPY#136ƒEOForERR?Œ‰BNEERR–; .99†LDX#$0…Kanal0ª‰LDA#11…ausgeben´‰STAICCOM,Xƒundzwar¾‰LDA#BUF†dienachÈ‰STAICBADR,X‚BUFge-Ò‰LDA/BUFˆleseneÜ‰STAICBADR+1,X„Dir.æ;ð;Anzahldertatsaechlich ú;gelesenenDateninKanal1 ;(nachRueckkehrinICBLEN);zumAusgebennutzen;"‰LDAICBLEN+$10,‰STAICBLEN,X6‰LDAICBLEN+$11@‰STAICBLEN+1,XJ‰JSRCIOVT‰BMIERR^‰RTSh-rERR†BRK|-†BUF