ùúùú; ;Change Fonts... ;its change system topaz 80 to pearl pl ;Coded by R.The.K./RDST incdir "dh1:sources/include/" include 'Dos/dos_lib.i' include 'Exec/exec_lib.i' _LVOOpenFonts: equ -72 CALL: MACRO jsr _LVO\1(a6) ENDM EXEC: MACRO move.l 4.w,a6 ENDM Start ;InitFonts: lea Gfxname(pc),a1 moveq #0,d0 EXEC CALL OpenLibrary ; Otworz Gfx move.l d0,GfxBase move.l d0,a6 lea TxtAttr(pc),a0 ; Adres struktury fontow CALL OpenFonts ; Otworz fonty move.l d0,TopazBase beq.w NoFonts lea DiskFontName(pc),a1 EXEC CALL OldOpenLibrary move.l d0,DiskFontBase beq.s NoFont move.l d0,a6 lea PearlATTR(pc),a0 _LVOOpenDiskFont: equ -30 CALL OpenDiskFont move.l d0,a1 beq.s NoFont move.l TopazBase(pc),a2 ; a1 a0 bazy fontów lea $22(a1),a1 lea $22(a2),a2 move.l (a1)+,(a2)+ ;34Char data move.w (a1)+,(a2)+ ;38Modulo move.l (a1)+,(a2)+ ;40CharLoc move.l (a1)+,(a2)+ ;CharSpace move.l (a1)+,(a2)+ ;CharKern ; move.l $22(a1),$22(a2) ;34Char data ; move.w $26(a1),$26(a2) ;38modulo ; move.l $28(a1),$28(a2) ;40CharLoc ; move.l $2C(a1),$2C(a2) ;44CharSpace ; move.l $30(a1),$30(a2) ;48CharKern NoFont: move.l 4.w,a6 move.l GfxBase(pc),a1 CALL CloseLibrary ; Zamknij Gfx move.l DiskFontBase(pc),a1 CALL CloseLibrary ; Zamknij Gfx bsr.s DosLibrary moveq #0,d0 ; move.l OutputHandle(pc),d1 move.l #Installed,d2 moveq #EIns-Installed,d3 ;dîugoôê textu jsr _LVOWrite(a5) ;write move.l a5,a1 CALL CloseLibrary Error moveq #0,d0 rts ;END DosLibrary: ;write text lea DosName(pc),a1 moveq #0,d0 CALL OpenLibrary move.l d0,a5 beq.s Error jsr _LVOOutput(a5) move.l d0,d1 rts NoFonts: move.l 4.w,a6 move.l GfxBase(pc),a1 CALL CloseLibrary ; Zamknij Gfx bsr.s DosLibrary moveq #0,d0 ; move.l OutputHandle(pc),d1 move.l #ErrorTXT,d2 moveq #ErrorTXT-EIns,d3 ;dîugoôê textu jsr _LVOWrite(a5) ;write move.l a5,a1 CALL CloseLibrary moveq #0,d0 rts GfxBase: dc.l 0 TopazBase: dc.l 0 DiskFontBase: dc.l 0 TxtAttr: DC.L FntName DC.W 8 DC.W 1 FntName: DC.B 'topaz.font',0 even PearlATTR: DC.L .Name DC.W 8 DC.W 1 .Name: DC.B 'pearl.font',0 dc.b '$VER: ' ErrorTXT: dc.b 'Error Instaling ' Installed: dc.b 'Pearl Pl Fonts v1.1',$a dc.b ' RTheK/RDST 1995',$a EIns: DosName: dc.b 'dos.library',0 Gfxname: dc.b 'graphics.library',0 DiskFontName: dc.b 'diskfont.library',0