LWRITE
FILE INFORMATION
FILENAME(S): LWRITE
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:12:22
APPEARS ON: 1 disk(s)
FILE HASH
96164334b8d84c275a6e89fa4cb3331e0786a7564e78d2b00aa9e55e59d7e04a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK2 | LWRITE | PRG | DuncanTwain | 4 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 4C 57 52 49 54 45 20 28 |..).... LWRITE (| 00000010: 53 2E 20 48 41 4D 4D 45 52 20 31 32 2F 38 35 29 |S. HAMMER 12/85)| 00000020: 20 20 20 20 20 20 20 20 3A 00 2F 08 01 00 3A 00 | :./...:.| 00000030: 4F 08 02 00 8F 20 34 20 53 54 41 54 45 4D 45 4E |O.... 4 STATEMEN| 00000040: 54 53 2C 20 30 20 46 55 4E 43 54 49 4F 4E 53 00 |TS, 0 FUNCTIONS.| 00000050: 55 08 03 00 3A 00 72 08 04 00 8F 20 4B 45 59 57 |U...:.r.... KEYW| 00000060: 4F 52 44 20 43 48 41 52 41 43 54 45 52 53 3A 20 |ORD CHARACTERS: | 00000070: 31 39 00 78 08 05 00 3A 00 9F 08 06 00 8F 20 4B |19.x...:...... K| 00000080: 45 59 57 4F 52 44 20 20 20 52 4F 55 54 49 4E 45 |EYWORD ROUTINE| 00000090: 20 20 20 4C 49 4E 45 20 20 20 53 45 52 20 23 00 | LINE SER #.| 000000A0: C5 08 07 00 8F 20 53 2F 4C 44 56 4E 20 20 20 20 |..... S/LDVN | 000000B0: 4C 44 56 20 20 20 20 20 20 31 32 31 39 30 20 20 |LDV 12190 | 000000C0: 20 20 31 36 31 00 EB 08 08 00 8F 20 53 2F 4C 53 | 161...... S/LS| 000000D0: 45 43 20 20 20 20 4C 53 45 20 20 20 20 20 20 31 |EC LSE 1| 000000E0: 32 32 31 32 20 20 20 20 31 36 32 00 11 09 09 00 |2212 162.....| 000000F0: 8F 20 53 2F 4C 57 52 49 54 45 20 20 4C 50 52 4E |. S/LWRITE LPRN| 00000100: 20 20 20 20 20 31 32 32 33 36 20 20 20 20 31 36 | 12236 16| 00000110: 33 00 37 09 0A 00 8F 20 53 2F 4C 4C 49 53 54 20 |3.7.... S/LLIST | 00000120: 20 20 4C 53 54 20 20 20 20 20 20 31 32 32 35 32 | LST 12252| 00000130: 20 20 20 20 31 36 34 00 3D 09 0B 00 3A 00 64 09 | 164.=...:.d.| 00000140: 0C 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============| 00000150: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000160: 3D 3D 3D 3D 00 6A 09 0D 00 3A 00 87 09 95 00 2E |====.j...:......| 00000170: C6 20 22 4C 57 52 49 54 C5 4C 44 56 CE 4C 53 45 |. "LWRIT.LDV.LSE| 00000180: C3 4C 4C 49 53 D4 22 00 A9 09 7D 04 2E 57 B0 44 |.LLIS."...}..W.D| 00000190: 20 4C 50 52 4E AB 31 2C 4C 44 56 AB 31 2C 4C 53 | LPRN.1,LDV.1,LS| 000001A0: 45 AB 31 2C 4C 53 54 AB 31 00 BB 09 9E 2F 4C 44 |E.1,LST.1..../LD| 000001B0: 56 20 4A 53 52 20 24 42 37 39 45 00 C6 09 A0 2F |V JSR $B79E..../| 000001C0: 43 50 58 20 23 33 00 D4 09 A2 2F 42 43 43 20 42 |CPX #3..../BCC B| 000001D0: 41 44 45 56 00 DF 09 A4 2F 43 50 58 20 23 38 00 |ADEV..../CPX #8.| 000001E0: ED 09 A6 2F 42 43 53 20 42 41 44 45 56 00 F8 09 |.../BCS BADEV...| 000001F0: A8 2F 53 54 58 20 44 56 00 00 0A AA 2F 52 54 53 |./STX DV..../RTS| 00000200: 00 06 0A AC 2F 3B 00 17 0A AE 2F 42 41 44 45 56 |..../;..../BADEV| 00000210: 20 4C 44 58 20 23 39 00 25 0A B0 2F 4A 4D 50 20 | LDX #9.%../JMP | 00000220: 24 41 34 33 37 00 2B 0A B2 2F 3B 00 3D 0A B4 2F |$A437.+../;.=../| 00000230: 4C 53 45 20 4A 53 52 20 24 42 37 39 45 00 48 0A |LSE JSR $B79E.H.| 00000240: B6 2F 53 54 58 20 53 45 00 50 0A B8 2F 52 54 53 |./STX SE.P../RTS| 00000250: 00 56 0A BA 2F 3B 00 67 0A BC 2F 4F 50 46 20 4A |.V../;.g../OPF J| 00000260: 53 52 20 4C 50 52 31 00 72 0A BE 2F 4C 44 41 20 |SR LPR1.r../LDA | 00000270: 23 30 00 80 0A C0 2F 4A 53 52 20 24 46 46 42 44 |#0..../JSR $FFBD| 00000280: 00 8D 0A C2 2F 4C 44 41 20 23 24 37 38 00 98 0A |..../LDA #$78...| 00000290: C4 2F 4C 44 58 20 44 56 00 A3 0A C6 2F 4C 44 59 |./LDX DV..../LDY| 000002A0: 20 53 45 00 B1 0A C8 2F 4A 53 52 20 24 46 46 42 | SE..../JSR $FFB| 000002B0: 41 00 BF 0A CA 2F 4A 4D 50 20 24 46 46 43 30 00 |A..../JMP $FFC0.| 000002C0: C5 0A CC 2F 3B 00 D6 0A CE 2F 4C 50 52 4E 20 4A |.../;..../LPRN J| 000002D0: 53 52 20 4F 50 46 00 E3 0A D0 2F 4C 44 58 20 23 |SR OPF..../LDX #| 000002E0: 24 37 38 00 EF 0A D2 2F 4A 53 52 20 24 37 39 00 |$78..../JSR $79.| 000002F0: FD 0A D4 2F 4A 53 52 20 24 41 41 39 30 00 1B 0B |.../JSR $AA90...| 00000300: D6 2F 4C 50 52 31 20 4A 53 52 20 24 41 42 42 35 |./LPR1 JSR $ABB5| 00000310: 3B 42 41 53 49 43 20 9C 43 48 4E 00 28 0B D8 2F |;BASIC .CHN.(../| 00000320: 4C 44 41 20 23 24 37 38 00 36 0B DA 2F 4A 4D 50 |LDA #$78.6../JMP| 00000330: 20 24 46 46 43 33 00 3C 0B DC 2F 3B 00 4C 0B DE | $FFC3.<../;.L..| 00000340: 2F 4C 53 54 20 4A 53 52 20 4F 50 46 00 59 0B E0 |/LST JSR OPF.Y..| 00000350: 2F 4A 53 52 20 4C 46 49 58 00 66 0B E2 2F 4C 44 |/JSR LFIX.f../LD| 00000360: 58 20 23 24 37 38 00 72 0B E4 2F 53 54 58 20 24 |X #$78.r../STX $| 00000370: 31 33 00 80 0B E6 2F 4A 53 52 20 24 45 31 31 38 |13..../JSR $E118| 00000380: 00 8E 0B E8 2F 4A 53 52 20 24 41 41 44 37 00 9A |..../JSR $AAD7..| 00000390: 0B EA 2F 4A 53 52 20 24 37 39 00 A8 0B EC 2F 4A |../JSR $79..../J| 000003A0: 4D 50 20 24 41 36 41 34 00 AE 0B EE 2F 3B 00 D2 |MP $A6A4..../;..| 000003B0: 0B F0 2F 4C 46 49 58 20 4C 44 41 20 24 30 33 30 |../LFIX LDA $030| 000003C0: 30 3B 44 49 52 45 43 54 20 57 41 52 4D 53 54 41 |0;DIRECT WARMSTA| 000003D0: 52 54 00 E0 0B F2 2F 4C 44 59 20 24 30 33 30 31 |RT..../LDY $0301| 000003E0: 00 EE 0B F4 2F 53 54 41 20 57 53 56 45 43 00 FE |..../STA WSVEC..| 000003F0: 0B F6 2F 53 54 59 20 57 53 56 45 43 AA 31 00 0D |../STY WSVEC.1..| 00000400: 0C F8 2F 4C 44 41 20 23 B3 4C 52 45 54 00 1C 0C |../LDA #.LRET...| 00000410: FA 2F 4C 44 59 20 23 B1 4C 52 45 54 00 2A 0C FC |./LDY #.LRET.*..| 00000420: 2F 53 54 41 20 24 30 33 30 30 00 38 0C FE 2F 53 |/STA $0300.8../S| 00000430: 54 59 20 24 30 33 30 31 00 40 0C 00 30 52 54 53 |TY $0301.@..0RTS| 00000440: 00 46 0C 02 30 3B 00 59 0C 04 30 4C 52 45 54 20 |.F..0;.Y..0LRET | 00000450: 4C 44 41 20 57 53 56 45 43 00 69 0C 06 30 4C 44 |LDA WSVEC.i..0LD| 00000460: 59 20 57 53 56 45 43 AA 31 00 77 0C 08 30 53 54 |Y WSVEC.1.w..0ST| 00000470: 41 20 24 30 33 30 30 00 85 0C 0A 30 53 54 59 20 |A $0300....0STY | 00000480: 24 30 33 30 31 00 93 0C 0C 30 4A 53 52 20 24 41 |$0301....0JSR $A| 00000490: 41 44 37 00 A0 0C 0E 30 4A 53 52 20 4C 50 52 31 |AD7....0JSR LPR1| 000004A0: 00 AE 0C 10 30 4A 4D 50 20 24 45 33 38 36 00 B4 |....0JMP $E386..| 000004B0: 0C 12 30 3B 00 C3 0C 14 30 44 56 20 2E 42 59 54 |..0;....0DV .BYT| 000004C0: 45 20 34 00 D4 0C 16 30 53 45 20 2E 42 59 54 45 |E 4....0SE .BYTE| 000004D0: 20 24 46 46 00 F7 0C 18 30 57 53 56 45 43 20 2E | $FF....0WSVEC .| 000004E0: 57 B0 44 20 24 45 33 38 42 3B 57 41 52 4D 53 54 |W.D $E38B;WARMST| 000004F0: 41 52 54 20 52 54 4E 00 FD 0C 1A 30 3B 00 00 00 |ART RTN....0;...|
..).... LWRITE (S. HAMMER 12/85) :./...:.O.... 4 STATEMENTS, 0 FUNCTIONS. U...:.R.... KEYWORD CHARACTERS: 19.X...: ...... KEYWORD ROUTINE LINE SER #. E.... S/LDVN LDV 12190 161... ... S/LSEC LSE 12212 162..... . S/LWRITE LPRN 12236 163.7.... S/LLIST LST 12252 164.=...:.D. ... ================================.J.. .:......F "LWRITELDVNLSECLLIST"...}..W.D LPRN.1,LDV.1,LSE.1,LST.1..../LDV JSR $B 79E.F. /CPX #3.T../BCC BADEV..../CPX #8. .../BCS BADEV..../STX DV..../RTS..../;.. ../BADEV LDX #9.%../JMP $A437.+../;.=../ LSE JSR $B79E.H../STX SE.P../RTS.V../;.G ../OPF JSR LPR1.R../LDA #0..../JSR $FFBD ...B/LDA #$78...D/LDX DV...F/LDY SE...H/ JSR $FFBA...J/JMP $FFC0.E.L/;.V.N/LPRN J SR OPF...P/LDX #$78...R/JSR $79...T/JSR $AA90...V/LPR1 JSR $ABB5;BASIC .CHN.(.X/ LDA #$78.6.Z/JMP $FFC3.<../;.L../LST JSR OPF.Y../JSR LFIX.F../LDX #$78.R../STX $ 13..../JSR $E118..../JSR $AAD7..../JSR $ 79..../JMP $A6A4..../;.R../LFIX LDA $030 0;DIRECT WARMSTART..../LDY $0301..../STA WSVEC..../STY WSVEC.1..../LDA #.LRET... ./LDY #.LRET.*../STA $0300.8../STY $0301 .@..0RTS.F..0;.Y..0LRET LDA WSVEC.I..0LD Y WSVEC.1.W..0STA $0300....0STY $0301... .0JSR $AAD7. ..0JSR LPR1....0JMP $E386.. ..0;.C..0DV .BYTE 4.T..0SE .BYTE $FF.... 0WSVEC .W.D $E38B;WARMSTART RTN....0;...
> CLICK IMAGE PREVIEW FOR FULL MODAL