80-Bus News |
November–December 1982, Volume 1, Issue 4 |
|
|
|
Page 14 of 51 |
|
|
|
---|
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 fZeapu /
‘
YESNO C,NEXG
HL,
DE
D,£F
DE
HL
(ZEAPAD) , HL. PRS /Nas--penu /
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 SETUPu and use it fto calculate the factual address of
E¶ “QUTCHA’
E¶\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 perforationu /
14,
This is an OCR’d version of the scanned page and likely contains recognition errors.
|
|
|
Page 14 of 51 |
|
|
|
---|