80-Bus News

  

November-December 1983, Volume 2, Issue 6











Page 26 of 67











PRINPRES

0000"

0005

0500

0100 0103 O107 O10B O10F O13 O117 117 o118 O1tc 0120 0124 0128 0120 0130 0134 0138 013c 0140 144 o148 o14c O14F O153 O157 O15B O15 0163 0167 O16B O16F O173 O1TT

O17A O17D 0180 0182 0185 0187 O1BA

M-80

5 Dec 1983 23:18 PAGE 4

Title PRINPRES subttl Vi 1357 23/11/83

; Prints PRESTEL buffer to CP/M List device

3 CP/M jbdos

; PRES buffer

stack: mesbr:

mesbe:

start:

«280 aseg ORG 100H

equates equ 5

equates equ 500H

jp start defb “PRINPRES V1 23/11/83"

defb tah 3 Clear screen defb "** Check that baud-rate switches”

defb “ are set for printer **"

defb Odh,Oah," – any key to proceed$"

defp Odh,Oah, "Buffer corrupted$"

ld sp,stack

1d de,mesbr + Reminder to check.. id c,9 ;-.baud rate switches call jodos

ld o,1 : Wait for keypress call jbdos

ep O3h ; Cheek for ‘C

PRESTEL for Nascom 2 & Gemini IVC

PREST V8,

0455 0456 0457 O45A 045c 045E

O45F 0460 0463 0465 0466 0468 0469 046B

046C O46F 0470 0472 0474 O4TT 0478 0479 O4TA O47C OA4TF

M80 5 Dec 1983 22:22 PAGE 1-8

PRESTEL terminal program. RL. 22/11/83

wi

PS cD

or 38 i DS cg

cD Bg 18 OE oD D9

cs FE CA cg

0456 oi

040d Ba

BI

040D

FF 06 0005

03 0374

SERO1:

PUTVID: PVO:

POP AY

OR A

JP PE, SERO1 OR 80H

our (UARTD),A RET

PUTVID – sends a character in <A> to the IVC

Polls the serial port whilst waiting.

PUSH AF

CALL POLLU

IN A, (Ives) RRCA

oR c,PVO POP AF

out (Ivep},A RET

Returns NZ if a character is read.

3; Get a character from the keyboard 3

CALL POLLU exx

ld e,Offh 1d c,condir call jbdos exx

OR A

RET 2

cP CONC

JP Z,exit ret

END

26


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











Page 26 of 67