home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504b.d64 / write.src < prev    next >
Text File  |  1995-03-30  |  670b  |  28 lines
  1. ;   "WRITE"   RICHARD L. RYLANDER
  2. ;             12/30/84
  3. ; REVISED  1/19/85  - ORIGIN MOVED TO $CFE5 (53221.)
  4. ;
  5. ;  PUT TEXT CHARACTERS ON GRAPHIC SCREEN
  6. ;  (UNDER BASIC ROM) IN VARIOUS STYLES
  7. ;
  8. *=$CFE5  ; PUT CODE AFTER DOS 5.1
  9. WRITE  LDA $01     ; SWITCH OUT BASIC ROM
  10.        AND #$FE
  11.        STA $01
  12.        LDY #7
  13. LOOP   LDA ($FD),Y ; READ CHARACTER BYTE
  14.        AND ($FB),Y ; MODIFY W/SCREEN BYTE
  15.        STA ($FB),Y ; STORE IN SCREEN
  16. ;
  17. ; POKE NEW LOGICAL OPERATOR TO REPLACE
  18. ; 'AND' (53231.) FOR DIFFERENT STYLES
  19. ; ORA=17.  BIT (NOP)=36.  AND=49.  EOR=81.
  20. ;
  21.        DEY
  22.        BPL LOOP
  23.        LDA $01     ; RESTORE BASIC ROM
  24.        ORA #1
  25.        STA $01
  26.        RTS
  27. .END
  28.