WRITE.SRC

FILE INFORMATION

FILENAME(S): WRITE.SRC

FILE TYPE(S): SEQ

FILE SIZE: 670b

FIRST SEEN: 2025-10-20 00:37:13

APPEARS ON: 6 disk(s)

FILE HASH

70514e8abaa926ab0d333f2088028c9bff231b7d8c483a502cc2770fe0f5b5e4

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SONDERHEFT 4	WRITE.SRC	SEQ	C64er, Treasure Chest - Holger	7	19	DOWNLOAD FILE
SONDERHEFT 4	WRITE.SRC	SEQ	Treasure Chest - Klaus Der Suhler	7	19	DOWNLOAD FILE
SONDERHEFT 4	WRITE.SRC	SEQ	Treasure Chest - ralf	7	19	DOWNLOAD FILE
SONDERH 4 85 II	WRITE.SRC	SEQ	DuncanTwain	30	8	DOWNLOAD FILE
SONDERH 4 85 II	WRITE.SRC	SEQ	DuncanTwain	30	8	DOWNLOAD FILE
ARNOLD	WRITE.SRC	SEQ	DuncanTwain	11	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 3B 20 20 20 22 57 52 49  54 45 22 20 20 20 52 49  |;   "WRITE"   RI|
00000010: 43 48 41 52 44 20 4C 2E  20 52 59 4C 41 4E 44 45  |CHARD L. RYLANDE|
00000020: 52 0D 3B 20 20 20 20 20  20 20 20 20 20 20 20 20  |R.;             |
00000030: 31 32 2F 33 30 2F 38 34  0D 3B 20 52 45 56 49 53  |12/30/84.; REVIS|
00000040: 45 44 20 20 31 2F 31 39  2F 38 35 20 20 2D 20 4F  |ED  1/19/85  - O|
00000050: 52 49 47 49 4E 20 4D 4F  56 45 44 20 54 4F 20 24  |RIGIN MOVED TO $|
00000060: 43 46 45 35 20 28 35 33  32 32 31 2E 29 0D 3B 0D  |CFE5 (53221.).;.|
00000070: 3B 20 20 50 55 54 20 54  45 58 54 20 43 48 41 52  |;  PUT TEXT CHAR|
00000080: 41 43 54 45 52 53 20 4F  4E 20 47 52 41 50 48 49  |ACTERS ON GRAPHI|
00000090: 43 20 53 43 52 45 45 4E  0D 3B 20 20 28 55 4E 44  |C SCREEN.;  (UND|
000000A0: 45 52 20 42 41 53 49 43  20 52 4F 4D 29 20 49 4E  |ER BASIC ROM) IN|
000000B0: 20 56 41 52 49 4F 55 53  20 53 54 59 4C 45 53 0D  | VARIOUS STYLES.|
000000C0: 3B 0D 2A 3D 24 43 46 45  35 20 20 3B 20 50 55 54  |;.*=$CFE5  ; PUT|
000000D0: 20 43 4F 44 45 20 41 46  54 45 52 20 44 4F 53 20  | CODE AFTER DOS |
000000E0: 35 2E 31 0D 57 52 49 54  45 20 20 4C 44 41 20 24  |5.1.WRITE  LDA $|
000000F0: 30 31 20 20 20 20 20 3B  20 53 57 49 54 43 48 20  |01     ; SWITCH |
00000100: 4F 55 54 20 42 41 53 49  43 20 52 4F 4D 0D 20 20  |OUT BASIC ROM.  |
00000110: 20 20 20 20 20 41 4E 44  20 23 24 46 45 0D 20 20  |     AND #$FE.  |
00000120: 20 20 20 20 20 53 54 41  20 24 30 31 0D 20 20 20  |     STA $01.   |
00000130: 20 20 20 20 4C 44 59 20  23 37 0D 4C 4F 4F 50 20  |    LDY #7.LOOP |
00000140: 20 20 4C 44 41 20 28 24  46 44 29 2C 59 20 3B 20  |  LDA ($FD),Y ; |
00000150: 52 45 41 44 20 43 48 41  52 41 43 54 45 52 20 42  |READ CHARACTER B|
00000160: 59 54 45 0D 20 20 20 20  20 20 20 41 4E 44 20 28  |YTE.       AND (|
00000170: 24 46 42 29 2C 59 20 3B  20 4D 4F 44 49 46 59 20  |$FB),Y ; MODIFY |
00000180: 57 2F 53 43 52 45 45 4E  20 42 59 54 45 0D 20 20  |W/SCREEN BYTE.  |
00000190: 20 20 20 20 20 53 54 41  20 28 24 46 42 29 2C 59  |     STA ($FB),Y|
000001A0: 20 3B 20 53 54 4F 52 45  20 49 4E 20 53 43 52 45  | ; STORE IN SCRE|
000001B0: 45 4E 0D 3B 0D 3B 20 50  4F 4B 45 20 4E 45 57 20  |EN.;.; POKE NEW |
000001C0: 4C 4F 47 49 43 41 4C 20  4F 50 45 52 41 54 4F 52  |LOGICAL OPERATOR|
000001D0: 20 54 4F 20 52 45 50 4C  41 43 45 0D 3B 20 27 41  | TO REPLACE.; 'A|
000001E0: 4E 44 27 20 28 35 33 32  33 31 2E 29 20 46 4F 52  |ND' (53231.) FOR|
000001F0: 20 44 49 46 46 45 52 45  4E 54 20 53 54 59 4C 45  | DIFFERENT STYLE|
00000200: 53 0D 3B 20 4F 52 41 3D  31 37 2E 20 20 42 49 54  |S.; ORA=17.  BIT|
00000210: 20 28 4E 4F 50 29 3D 33  36 2E 20 20 41 4E 44 3D  | (NOP)=36.  AND=|
00000220: 34 39 2E 20 20 45 4F 52  3D 38 31 2E 0D 3B 0D 20  |49.  EOR=81..;. |
00000230: 20 20 20 20 20 20 44 45  59 0D 20 20 20 20 20 20  |      DEY.      |
00000240: 20 42 50 4C 20 4C 4F 4F  50 0D 20 20 20 20 20 20  | BPL LOOP.      |
00000250: 20 4C 44 41 20 24 30 31  20 20 20 20 20 3B 20 52  | LDA $01     ; R|
00000260: 45 53 54 4F 52 45 20 42  41 53 49 43 20 52 4F 4D  |ESTORE BASIC ROM|
00000270: 0D 20 20 20 20 20 20 20  4F 52 41 20 23 31 0D 20  |.       ORA #1. |
00000280: 20 20 20 20 20 20 53 54  41 20 24 30 31 0D 20 20  |      STA $01.  |
00000290: 20 20 20 20 20 52 54 53  0D 2E 45 4E 44 0D        |     RTS..END.  |

;   "WRITE"   RICHARD L. RYLANDER.;     
        12/30/84.; REVISED  1/19/85  - O
RIGIN MOVED TO $CFE5 (53221.).;.;  PUT T
EXT CHARACTERS ON GRAPHIC SCREEN.;  (UND
ER BASIC ROM) IN VARIOUS STYLES.;.*=$CFE
5  ; PUT CODE AFTER DOS 5.1.WRITE  LDA $
01     ; SWITCH OUT BASIC ROM.       AND
 #$FE.       STA $01.       LDY #7.LOOP 
  LDA ($FD),Y ; READ CHARACTER BYTE.    
   AND ($FB),Y ; MODIFY W/SCREEN BYTE.  
     STA ($FB),Y ; STORE IN SCREEN.;.; P
OKE NEW LOGICAL OPERATOR TO REPLACE.; 'A
ND' (53231.) FOR DIFFERENT STYLES.; ORA=
17.  BIT (NOP)=36.  AND=49.  EOR=81..;. 
      DEY.       BPL LOOP.       LDA $01
     ; RESTORE BASIC ROM.       ORA #1. 
      STA $01.       RTS..END.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL