0 REM LWRITE (S. HAMMER 12/85) : 1 : 2 REM 4 STATEMENTS, 0 FUNCTIONS 3 : 4 REM KEYWORD CHARACTERS: 19 5 : 6 REM KEYWORD ROUTINE LINE SER # 7 REM S/LDVN LDV 12190 161 8 REM S/LSEC LSE 12212 162 9 REM S/LWRITE LPRN 12236 163 10 REM S/LLIST LST 12252 164 11 : 12 REM ================================ 13 : 149 .ASC "LWRIT[197]LDV[206]LSE[195]LLIS[212]" 1149 .WORD LPRN-1,LDV-1,LSE-1,LST-1 12190 LDV JSR $B79E 12192 CPX #3 12194 BCC BADEV 12196 CPX #8 12198 BCS BADEV 12200 STX DV 12202 RTS 12204 ; 12206 BADEV LDX #9 12208 JMP $A437 12210 ; 12212 LSE JSR $B79E 12214 STX SE 12216 RTS 12218 ; 12220 OPF JSR LPR1 12222 LDA #0 12224 JSR $FFBD 12226 LDA #$78 12228 LDX DV 12230 LDY SE 12232 JSR $FFBA 12234 JMP $FFC0 12236 ; 12238 LPRN JSR OPF 12240 LDX #$78 12242 JSR $79 12244 JSR $AA90 12246 LPR1 JSR $ABB5;BASIC CLRCHN 12248 LDA #$78 12250 JMP $FFC3 12252 ; 12254 LST JSR OPF 12256 JSR LFIX 12258 LDX #$78 12260 STX $13 12262 JSR $E118 12264 JSR $AAD7 12266 JSR $79 12268 JMP $A6A4 12270 ; 12272 LFIX LDA $0300;DIRECT WARMSTART 12274 LDY $0301 12276 STA WSVEC 12278 STY WSVEC+1 12280 LDA #LRET 12284 STA $0300 12286 STY $0301 12288 RTS 12290 ; 12292 LRET LDA WSVEC 12294 LDY WSVEC+1 12296 STA $0300 12298 STY $0301 12300 JSR $AAD7 12302 JSR LPR1 12304 JMP $E386 12306 ; 12308 DV .BYTE 4 12310 SE .BYTE $FF 12312 WSVEC .WORD $E38B;WARMSTART RTN 12314 ;