80-Bus News

  

March–April 1984, Volume 3, Issue 2











Page 21 of 51











+

BASE CENPAD CENPBD CENPACG CENPBC

; sINITIALISE THE

5 PRINT

START

EQU EQU EQU £QU EQU

PUSH PUSH PUSH PUSH CALL

4a BASE BASE+1 BASE+2 BASE+3

PORTS, PORT B TO

BC DE HL AF INIT

sEXAMINE BUSY LINE TIL FREE

Loop

In RRA JR

A, (CENPAD)

C, LOOP

;PRINTER FREE SO SEND A CHAR

NOTESC

DONE

NOTLF

INIT

Poe PUSH cp JR LD Our NOP LD our NOP LD our POP ce JR LD IR cP JR LD POP POP POP RET LD OUT OUT our LD OUT LD out XOR ouT RET END

ar AF

4 NZ,NOTESC A, 1BH (CENPBD) ,A

A, OFOH (CENPAD) ,A

A, OF FH (CENPAD) ,A AF

ODH

NZ, DONE A, OAH START OAR

NZ, NOTLF A, ODE

HL

DE

BC

A, OFFH (CENPAD) ,A (CENPBD),A (CENPAC) ,A A, OFDH (CENPAC) ,A A, OFFH (CENPBC) ,A A

(CENPBC) ,A

O/P,PORT A B.D

-

on ON on

on om om ae 8n on A en

oy

SAVE CHARACTER

Is it “CTRL D” no yes, output an “escape” code

da it end of line no yes, then output a lf char.

did we op a 1£u

no

yes, put back cr for RET to main routines

get back registers

set up PIO for centronics H/S

yee POLYDOS Overlay “NPEH.OV” ateaneee REFS E¶ SYSEQU

REF PRINT EQU 080078 ;This Program is a POLYDOS file handler for ;NASPEN.This overlay allows text files to be ;loaded and dumped to disk via an extension ;program NASPEX. The extension program ;adds the disk facilities using the NASPEN ;commands “W” & “R” .The cassette commands ;are retained by replacing the “+” & “=” ;commands by “r” & “w”. The extension file is ;leaded at B000H, and contains a printer driver ;for the Epson printer allowing some of the ;control codes to be output to the printer. This ;overlay initialises the printer on a cold start

ORG 0c8008

IDNT $,0 \

DB *NP£h’

LD DE, FNAME L

CALL D1

sPoint to filename string 3 load it into memory LD DE, FNAME2 $ next string CALL DL 3 load it CALL PRINIT 3; Initialise EPSON RX80 printer JP 0B 8008 3; Cold start NASPEN gaeeeeRA DISK FILE LOADING ROUTINE *#e48ee Di LD BL, S1FCB 3; Comments as POLYDOS manual LD B, 1108 SCAL ZCFS SCAL ZCKER SCAL ZRDIR SCAL ZCKER SET 4,8 SET 5,8 SCAL ZLOOK SCAL ZCKER LD HL, (SLFCB4+FLDA) LD DE, (SLFCB4+FSEC) LD A, (SLFCB+FNSC) LD B,A SCAL ZDRD SCAL ZCKER RET geekee PRINTER INITIALISATION **htdee PRINIT LD HL, INITSG $ point to init. string LD B, (HL) load length of init. string Ine HL bump on pointer P2 Lb A, (HL) CALL PRINT 3; This routine is in the extention INC aL 3 file just loaded DINZ P2 3 loop til done RET ;FILES TO BE LOADED BY OVERLAY ROUTINE FNAMEL DB “NASPEN.NP’ jMAIN NASPEN CODE FNAME2 DB *NASPEX. GO’ sFILE WITH EXTENTIONS INITSG DB OBH, IBH, 40H, BH, 43H, 42H, 1BH, 4EH, 6, 1BH DB 6CH,8 END

Aan ee

21


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











Page 21 of 51