2𽼎096d;n;x;6;VIZAWRITE GRAFIKJ; VERSI 3.0P;l;(C) 1986 MARKT&TECHNIKr;; WRITTEN BY; RALF 肸; AM L疓RABEN 12; 4290 BOCHOLT獴ARLO;.OPT OO;  $0365;STARTADRESSE DES PROGRAMMS ;6  $F1CA;AUSGABE EINES ZEICHENS[ GRAPHCODE $A8;CODE FUER GRAFIKt "CR $0D;CARRIAGE z ,; 6INIT LDA #尝OUT;OUTPUTVEK AUF @STA $0326;EIGENE ROUTINE VERSTEL JLDA #雹OUT TSTA $0327 ^RTS h;" rUT PHA;ZU DRUCKES BYTE AUF STAPELN |LDA $9A;PRUEFEN, OB AUSGABE AUF DRUCKERY CMP #4 BNE NO橢R;AUSGABE NICHT AUF DRUCKER PLA;DRUCKBYTE ZURUECKHO CMP #GRAPHCODE;PRUEFEN, OB GRAFIKZEILE BNE NOGRAPHIK;N癕ALER TEXTAUSDRUCK STY YZW;Y玆EGISTER ZWISCHENSPEICHERN$ LDY #0B STY FLAG;FLAG FUER NIBBLEx BIN320 LDA TABELLE1,Y;DRUCKER AUF 320 BINAER JSR ;DATEN EINSTEL INY CPY #5 BNE BIN320 LDY YZW;Y玆EGISTER ZURUECKHO LDA #矴RAPHOUT;OUTPUTVEK ERNEUT" STA $0326;VERSTEL FUER AUSGABE V< &LDA #盙RAPHOUT;GRAFIKf 0STA $0327;OUTPUTVEK ERNEUT VERSTELy :EXIT CLC DRTS NNO橢R PLA;DRUCKBYTE ZURUECKHO XNOGRAPHIC JMP ;N癕ALE OUTPUT玆OUTINE b; lGRAPHOUT CMP #GRAPHCODE;PRUEFEN, OB ZEI脌E vBNE G17 CLC;E DER GRAFIKZEILE ERREICHT.^ JMP INIT;OUTPUT玍EK ZURUECKSTEL G1 CMP #63;PRUEFEN, OB ILLEGALER CODE (063) BCC EXIT  #%00001111;NUR UNTERES NIBBLE VERWEN PHA; UND AUF STAPELLDA FLAG;OBERES ODER UNTERES NIBBLE BNE NIBBLE2&;ENIBBLE1 INC FLAG;FLAG1_PLA;NIBBLE ZURUECKHOSTA SE;UND ZWISCHENSPEICHERNCLCRTS ;NIBBLE2 DEC FLAG;FLAG0 PLA;NIBBLE ZURUECKHO*ASL;UND UM 4 BIT NACH LINKS SCHIEBEN 4ASL:ASL:ASL3>癆 SE;VERKNUEPFEN MIT UNTE NIBBLEJHJSR ;UND AUSGEBENRRRTSX\;fYZW .BYTE 00;ZWISCHENSPEICHER FUER Y玆EGISTERpTABELLE1 .BYTE $1B;ESCAPE SENq.BYTE $2A;'' FUER 8玁ADEL獴ITMUSTER玀ODUSr.BYTE $06;MODUS 06 ANWAEH,HIER 6 V癊INGESTELLT>s.BYTE $40,$01;320玃UNKTE獶ICHTEnzSE .BYTE 00;SPEICHER FUER GRAFIKBYTEFLAG .BYTE 00;FLAG FUER OBERES璘NTERES NIBBLE;;;