80-Bus News

  

November-December 1982, Volume 1, Issue 4











Page 16 of 51











B11ic Gi1e 8i20 8122

8124 B1246 8128 81246 8120 Bil2D B12E

BiS0 BLS2 8154 8135

8137 81358 815A isc BLS 8140 8142 8144 Bi4s

8148 8144 814C BL4E BL4F

8164 81466 8148 816A G16B

8183 8185

8186

8188 8189

8197 8199

SEO7 DI06 SEOS D306

SEL D777 SE43 D773 C1

79

D76F

SE1B D76B 78

D768

75

FE4E 280C SE1B D7SF SE4E D758 SEO6 D757

DBOS CBS7 2819

EF

S07 2696E T4AbS7 226 6F 757420 GF 662070 61704872 aE

Odod CBOF 201E

EF

S07 2696E T4GS7220 S96E 2065 7272B6F 72 20737441 TATSTIZE ODO

CF

1912

EF

507 2696E 74GS7220 72656164 T92E ODad

co

1640 14650 1640 1670 1680 14690 17900 1719 1720 1730 174 L730 1769 17709 1780 1790 1800 isio 1820 1830 1840 180 18460 1870 1880 1890 1900 1910 1920 1930 1940 1950 196 1970

1980 1990 2000 2010 2020

2030 2040 2050 2060 2070 2080 2090 2100 21io

2120 2130 2140

em

i NOSKIF

Pp

a

APOK

LD OUT LD OUT

LD RCAL LD RCAL POP LD RCAL

DEFER BIT JR RST DEFM

DEFB RET

RST DEFM

DEFB RET

A,7 (PACONT) A a, (PACONT) ,@

S\Interrupt control word jwith disabled interrupts i\Disable PORT B int’s

A,ESc OUTCHA Ay "C OQUTCHA BC

A.C QUTCHA

s\S8et form length using ivalue stored in C

A, ESC OUTCHA A,B

OQUTCHA

s\Set paper end detector jon/off accearding to the Svalue stored in B

AE WAY Z,NOSKIP A, ESC OUTCHA A,"N QUTCHA A,S OUTCHA

i\Set skip/na skip faccarding to the value istored in E

i\Skip 6 lines

A, (PBDATA) 4A Z5PAPOK PRS “Printer out of paper. /

s\Get printer status

$\Paper OK if B4 low

CR,O 5,8 NZ, NOERR PRS /Printer in error status. /

i\No error if BS low

CR,O

DEL 4a s\Dummy call point

ifor delay routine

PRS “Printer ready. /

CR,9

8194 819C BI9E

819F B1A0 B1A2 81A4 B1AG B1A7 81a BLAA 81ac 81AD BiAF B81 BO 81B2 81 B4

SiBo 8S1B5 81B5 BL BS 8155 81BS

81BS 81BS 8185 81BS

8185 81S 81BS S1BS

81BS 81B5

OG11

1LOFE CF

FS DBOS CBSF 2O0FA Fi D304

DBOS 3D DIOS

DaoS DBO4 Cg

0028 O08 0078 0063 0064 OOSE

Oct 9078 OF OS LO1E

G04 9004 0007 0005

OO0D OoO1B

2150 2146 2170 2160 2190 2200 22io 2220 e2a0 2240 2250 2260 2270 2280 2290 2300 2310 2320 2330 2340 2380 2360 2370 2380 2390 2400 2410 2420 2430 2440 2480 2460 2470 2480 2490 2500 2810 2520 2530 2540 2850 2560 2570 2580 2590 2600 2610 2620 2636 24540 2650 2660 26760 2480 2690

60 mic. gec, DELAY

ae ae ae

DEL6O LD LOOP

B,17 DINZ LOOP RET

PRINTER DRIVER ROUTINE

ee

QUTCHA PUSH AF

BUBY IN A, (FBDATA) BIT 3,8 JR POP out NOP IN A, (PRDATA) DEC A OUT (PBDATA),A INC A OUT (PBDATA),c IN A, (PADATA) RET

i\Save character g\Wait "til printer BUSY line is low

i\Restore character p\Apply ta data lines i\Pauge to stabilise i\Keep port B status i\Raset STROBE (BO)

(PADATA) , A

$\Set STROBE

s\Return with character

LABELS ETC. +

wo eae, aa

PRS ROUT BLINK INLIN NUM MRET

,

NUMYV USROUT ZEAPAD PENADD i

j

5 PIO PORT 5

PACONT EQu PADATA EQU FPBCONT EQU FBDATA EQU 3

i

S ASCII CODES: 5 CR Esc

EQU EQu EQu EQU EQu EQu

£28 £30 £78 £63 £64 £58

SNAS-GYS print

n

string, RST ; O/P A te screen, " 5 u blink for I/F, SCAL i " input a line, " 3 get line value, " i monitor return, "

EQu Eau EQu EQu

£C21 cStore for val from NUM £C78 $Vectored jump to USROUT £FOS :ZEAP vectar toa printer

£1Q1E SNAS-PEN vector to prin’r

ADDRESSES:

& {Port A cantrol 4 3" A data 73% B control Sy" B data

EOU £D EQuU £15

Carriage return iEscape

16.


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











Page 16 of 51