80-Bus News

  

March-April 1984, Volume 3, Issue 2











Page 20 of 51











;*kek* NASPEN extension file "NASPEX.GO’##ss 3

REFS SYSEQU

REF ;This Program is an add-on for NASPEN to allow stext files to be loaded and dumped to disk via sPOLYDOS using the NASPEN commands W & R -The jtape commands are retained by replacing the 3+ & =- commands by r & w. This program and the jmain Naspen code are loaded by the overlay ;/NPEh.OV’ which also performs a cold start. yThe printer routine intercepts the codes and jconverts a "CTRL D" inte an "escape" code sywhich should allow printer control strings to sbe embedded in the text.

i WARMST EQU 0B 806H

noe

ORG opooon TDONT $,$ ae WARMST R DREAD JR DWRITE e PRINT mR QUIT

Quit. -Lb HL,O SCAL Tyger SCAL ZMRET

SET UP FOR

ee

kekkkkE Text entered from disk *#*kkakkeks

wwe

DB * Load which file? ‘,0 SCAL ZINLIN LD HL, 20 ADD AL, DE EX DE, HL DBL LD HL,SIFCB LD B, 110B SCAL ZCFS SCAL ZCKER SCAL ZRDIR SCAL ZCKER SET 4,B SET 5,B SCAL ZLOOK SCAL ZCKER LD AL, (SIFCB+FLDA) LD DE, (SLFCB+FSEC) LD A, (S1FCB+ENSC) LD B,A SCAL ZDORD SCAL ZCKER RET

Warm start NASPEN from BOOQOH Read file routine is at BOO3H Write file entered from BOO6H Exit routine (resets printer) NASSYS KO (UPPER CASE DEFAULT) BACK TO POLYDOS

READ RST PRS 3; Comments as POLYDOS manual

pekeeeak Text saved to disk *tkkkikne DWRITE RST PRS ; Comments as POLYDOS manual DB * Wile name? *,0 SCAL ZINLIN LD HL, 14 ADD HL, DE Ex DE, HL LD HL,S1FCB LD B, 1008 SCAL ZCFS SCAL ZCKER SCAL ZRDIR SCAL ZCKER LD AL, 0 LD (S1PCB+FSFL) HL Lb HL, (NXTSEC) LD (SLFCB+PSEC) , HL EX DE,HL LD A, (LOLBH) SUB 108 LD B,A LD A, (1O1AH) OR A JR Z,P1 INC B Pl PUSH BC LD HL,O LD L,B LD (SLFCB+FNSC) , HL LD HL, LOO0H LD (SLFCB+FLDA) , HL LD (S 1FCB+FEXA) ,HL PoP BC SCAL ZDWR SCAL ZCKER LD RL, S1FCB CALL ENTR RET ENTR SCAL ZENTER RET Z ce 318 RET NZ PUSH HL LD HL, FSFL ADD HL, DE BIT 0, (HL) LD A, 33H IR NZ, SKIP SET 1, (HL) POP aL JR ENTR SKIP POP HL RET ; THIS IS A ROUTINE FOR THE EPSON RX80 PRINTER swith CENTRONICS INTERFACE

GET MSB OF END SUBTRACT START ADDR STORE IN B

GET LSB OF END

SET FLAGS

oR om eR on Oe

STORE FOR LATER

-

GET NO OF SECT BACK

-

20


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 20 of 51