80-Bus News

AMM TWh Oe Oo el

“ aod

12 13 14 15 16 17 18 19 20 21

22

23 24 25

26

PIO

BS B4

BS

Ov AS

A4 AS

A7 AG

“ANP TON Oo

CABLE

32 12

li

14

EPSON

ERROR PE

Dex

CHASSIS-GND NC \ ! (Twisted /_@arth returns)

INTT ERROR

ov

NC

+5v Pull up SLeT IN

ZEAP Z8O0 Assembler

BO00

8000 8002

8004 8006 8907 BOO BOOB 8O0OD BOOE

B00F 8O10

BOLLS 8017 8019 BO1B BO1C B801D B01LF 8020 8021 8024 8025

BO2E 802F BOS1 BO33 BOs4 8037 8039 803C 803D 803E

D702 DFSB

D700 Et 119901 19 1603 DS

ES

EF SA656170 SF20

00

D748 3809

Ei

Di

160F

DS

ES 22050F EF AEGL732D 7O06S4E3F 20

oO

D730 3804

El 221E10 SECS S21D10 ES

EF 53686970

Oa1d 9020 OO30 0040 O050 0060 Oo070 0080 Q0F0 O100 Olle O120 O130 o140 O1s0 O160 O170 0180 O190 o200 O210 O220

O2Z30

O240 o250 0260 O270 O2BO 0290 O30 O310 O320 O330 O340 O3SO 0360 0370

O380 O390 0400 0410 0420 0430 0440 0450 0460 9470 0480

0490 o500 O510 O820 OS30 o540 oS50 0560 0570 O580

– Source Listing

EPRINT Vi.Q 19/7/82

Epson (Centronics I/F) initialisation and driver routines for Nascom 2, These are fully relocatable use NAS-SYS and may be run in ROM,

Copyright (c) COMPWARE 1982 (MRH)

ne eR Ee a Rm a ue om

ORG i

£8000

Beet tt bette ttt iSimple driver routine

DRIVER RCAL SCAL

5 5 ‘ $ 3 5

5

SETUP RCAL

CALADD FOr LD ADD LD PUSH PUSH

on

RST DEFM

DEFB RCAL JR POP POP LD PUSH PUSH LD NEXQ RST DEFM

DEFB RCOAL JR POP LD LD Lb PUSH APENUQ RST DEFM

SETUP MRET

shes ected etbbeb ab betetee

INITIALIGATION SUBROUTINE:

CALADD HL.

DE, OUTCHA-CALADD HL, DE

D,3

DE

HL

PRS fZeap? /

’

YESNO C,NEXG

HL,

DE

D,£F

DE

HL

(ZEAPAD) , HL. PRS /Nas--pen? /

9

YESNO C,APENUQ

HL,

(PENADD) , HL A, £03 (PENADD-1),8 HL.

PRS

5\Nominal assembly ad.

PN\Execute here s\Return to monitor

$\Find address of

S SETUP? and use it fto calculate the factual address of

§ “QUTCHA’

§\Set D for AUTO FEED i\Save

fregisaters

s\Ask if using ZEAP

i\Get answer (C = na)

i\If answer yes set 3D for non AUTO FEED

jand set ZEAP O/F addr $to "OQUTCHA’ p\Ask if using NAS-PEN

i\If yes, then change Sthe seriel O/P call fto “JF OUTCHA’

/Skip over perforation? /

14,