8BIT BASp$$0ld a,5 : rla : out (c),a : pop af************ 110 '***3d********************************************3n*** (C)opyright 1986 by Andreas Ki~linger **3x*** Programm zur Ansteuerung einer 8 Bit ***3*** Druckerschnittstelle. Der Patch wird ***3*** unter der Adresse startadr abgelegt ***3*** und patcht die Indirection ***3*** MC WAIT PRINTER. Gute Adressen fuer ***3*** den Patch sind z.B. &BE00 oder ***3*** SYMBOL AFTER 256:MEMORY HIMEM-13 ***3*** startadr=HIMEM+1:SYMBOL AFTER 240 ***3******************************************** startad/ ()(( startad) ) 0 () ( ( startad) ) |E mit den beiden IF's wird mehrfaches Initialisieren vermieden!>"Der Treiber fuer das achte Druckerbit wird installiert"' startad startad byt , byt"1, Jetzt noch die alte Indirection eintragen6 startad ,()@ startad ,()J startad ,()6T und die Indirection zur neuen Routine umbiegen^ ,h ,( startad) #r , ( startad) %|*** Fertig ist der Patch!! ***. &F5,&06,&F7,&07,&3E,&05,&17,&ED,&79,&F1D push af : ld b,f7 : rlca : ld a,5 : rla : out (c),a : pop af************ 110 '*** (C)opyright 1986 by Andreas Ki~linger ** 120 '*** Programm zur Anst