home *** CD-ROM | disk | FTP | other *** search
/ Serious Magazine 4 / Serious_Magazine_04_1999_Dial_pl_Side_B.atr / sstuff04.arc / FONTY.ARC / FONTY.ASM < prev    next >
Assembly Source File  |  1988-09-01  |  1KB  |  1 lines
  1. ¢         icl 'D7:EQU.ASM'¢         opt list_err+code_dsk¢¢font     equ $8000¢¢         org font+$400¢run      equ *¢         lda #czarny¢         sta tlo¢         lda <dl¢         sta dlptrs¢         lda >dl¢         sta dlptrs+1¢         lda >font¢         sta chbas¢¢l1       ldx px¢         lda text,x¢         dex¢         stx px¢         bmi rts¢         sec¢         sbc #$20¢         asl @¢         asl @¢         tay¢         inx¢         txa¢         asl @¢         tax¢         tya¢         sta mems,x¢         iny¢         tya¢         sta mems+1,x¢         iny¢         tya¢         sta mems+40,x¢         iny¢         tya¢         sta mems+41,x¢         jmp l1¢¢¢rts      ldx kbcode¢         inx¢         beq rts¢         jmp warmst¢¢text     dta d'@SERIOUS@@@MAGAZINE@'¢dl       dta b($70),b($70),b($70)¢         dta b(2+lms),a(mems)¢         dta b(2)¢         dta b($41),a(dl)¢mems     dta d'                                        '¢         dta d'                                        '¢px       dta b(19)¢¢         org runadr¢         dta a(run)¢¢¢