ER©ÿ”
‰.LIOFF-";AssemblerfuerEinsteiger#6(;2;vonTim-PhilippMueller<;#F;DL-Demo#2:TextinkopiertemP;AnzeigescreenZ-dZP=$CBƒ;Zero-Page-Pointern-xDL‡.HX707070707042‚‰.DAINFOTŒ‰.HX7042–‰.DALEER ‰.HX42ª‰.DASCREEN´‰.BL9,2¾‰.HX7042È‰.DAINFOBÒ‰.HX41Ü‰.DADLæ-7ðINFOT„.AT"  ÅÐÒÏÍ °± ­ Ìïáäåò ­ ÂÉÂÏ­ÄÏÓ éó õóåä "8úINFOB„.AT"  ¼óåìåãô¾ ãèïïóå òïíäéóë óïæô äòéöå ±  "TEXT….AT"A. Bibo Dup/"‰.AT"B. Diskcopy/"‰.AT"C. Hypradisk/""‰.AT"D. File Tracer/",‰.AT"E. Bibo Assembler/"%6‰.AT"F. Turbo-Basic XL Runtime/"&@‰.AT"G. Turbo-Basic XL Compiler/"J‰.AT"H. Sector Copy 1.5/" T‰.AT"I. Multi-File-Copy II"^‰.HXFFh-rSTART„LDA#SCREEN|‰STAZP†‰PHA‰LDA/SCREENš‰STAZP+1¤‰PHA®;¸‰LDX#2†Anzeige-Â.1‡LDY#0†ScreenÌ‰TYA‰LoeschenÖ.2‡STA(ZP),Y‚9*40=360=à‰INY‰$180Bytesê‰BNE.2ô‰INCZP+1„($200wer-þ‰DEX‰denge-‰BNE.1‡loescht);‰PLA‰Pointer&‰STAZP+1„aufZeige-0‰PLA‰Screen:‰STAZP†setzenD;N‰LDX#0X.3‡LDY#10…10Zeilenb.4‡LDATEXT,X‚kopiernl‰BMI.10…ganzende?v‰CMP#$F…;'/'Zeile€‰BEQ.5†zuende?Š‰STA(ZP),Y‚Nein,dann”‰INY‰naechstesž‰INX‰Zeichen¨‰BNE.4²‰BEQ.10
¼.5‡INXÆ‰BEQ.10Ð‰LDAZP†Zeigefeld-Ú‰CLC‰Pointerumä‰ADC#40…1Zeileî‰STAZP†(40Bytes)ø‰BCC.6†erhoehen,‰INCZP+1„und.6‡JMP.3†weiter...; .10†LDA#$90„Farben*‰STA$2C6„setzen.4‰LDA#$A0>‰STA$2C8H;RINIT…LDA#DL„DL-Vektor\‰STA$230ƒneusetzen!f‰LDA/DLp‰STA$231z‰LDX#0…Schrift„.1‡STX$2C5ƒlangsamŽ‰LDY#3…(Abstand˜.2‡LDA20…3/50sek)¢.3‡CMP20¬‰BEQ.3¶‰DEYÀ‰BNE.2Ê‰INXˆeinblenden.Ô‰CPX#$AÞ‰BNE.1è.99†JMP.99ò- üSCREENƒ;Platzfuer9Zeilen+‰;1Leerzeiledanach‰.ORSCREEN+$180LEER$-