80-Bus News

  

November-December 1983, Volume 2, Issue 6











Page 24 of 67











PRESTEL for Nascom 2 & Gemini IVC M-80 PREST V8, PRESTEL terminal program. RL. 22/11/83

0331 CD 0005 call jbdos 0334 FE 03 ep cone 0336 CA O11E jp 2,jcone 0339 PE 54 ep “T"

0338 CA 0383 jp z,conlin O33 1B 1A 1d e,tah 0340 OF 02 ld c,2

0342 eD 0605 call jbdos

if autodl

diali: ld de,msgwdt ld c,pstrng call jbdos 1d a,30H out (dialpd),a 1a b,20 call dly255 djnz $-% ld de,msgdlg 1d c,pstrng call jbdos ld hl, pnum

dial2: ld a,(h1) or a jr z,dial4 sub 30h jr nzg,dial3 1d a,10 dial3: ld b,a call pulse djnz $-3 push be 1d b,4 eall dly255 djng $-3 pop be ine hl jr dial2

dial4: 1d de,msgdc 1d c,pstrng call jbdos endif

5 Dec 1983 22:22 PAGE 1-4

,

?

connect line & on to term Clear screen Console output

close both relays wait 5 secs, increase if.. your exchange needa longer

finished if null

dial "oO"

1 sec post digit pause

; Wait for LF then send Customer identity number

0345 06 BO cick: 0347 cs eickt: push be

0348 48 ld c,d

0349 DB O2 cick2: in a,(uarts) 0343 17 rla

O%4C 30 06 jr ne,cick3 O34E DB O1 in a, (uartd) 0350 FE OA cp Oah

0352 28 OD dr z,cisnd

1d b,OBOH

i

try for 45 secs (80H= 20")

PRESTEL for Nascom 2 & Gemini IVC M-80

5 Dec 1983 22:22 PAGE 1-5

PREST V8, PRESTEL terminal program. RL. 22/11/83

0354 0355 0357 0359 O35A O35C O35F

0361 0362 0365 0367 036A

036C 036D 03’70 03571 0373

0374 0375 0378 O37A O37D O37F 0381 0384 0385 0387 038A 038C O38F 0391 0394 0396 0399 O39A 0398 039C O359F O3A0 O3A2 O3A4 O3AT7

O3AA O3AC O3AE O3B0 O3B2 O3B4 O3B5

oD 20 10 Ct 10 14 18

ct ai 06 cD 18

78 cD 23 10 cg

b9 ai 06 cD 1E OR

3E 18 35 18 38

AT

F2 Fo

EB

O26F 3E

O10B OA 036C TB

0448 Fg

0285 04

0005 O11E

cick3: dec c jr nz,cick2 djnz cick2 pop be djnz eickt ld de,megef jr clear

cisnd: pop be ld hl,cinum 1d b,10 ; Send 10 digits eall atgend jr DTERM 3 on to terminal routines

3; Send <HL> string to serial port, <B> chars. stgsnd: 14 a,(hl)

call serout

ine hl

djnz stgand

ret

3; Exit routines exit: exx ld hl,sigoff ; send sign off (*90£) twice ld b,9 call stgand 1d e,bell ld c,condir ; sound bell to acknowledge “C call jbdos exx ld a,ibh 3; Restore screen if inverted eall putvid 1a a, "J" call putvid ld b,20 3 5 sec delay, in case.. call dly255 3 «mailbox message djnz $-3 ld hil, buffer ; Store <DE> for print.. ld (h1),e } +.0r save prog ine hl 1d (hi),4 ld de,msgcir clear: xor a out (dialpd),a ld c,pstrng call jbdos dp jeone

open both relays print message

3 Dialling utillities dly255: ld a,255 jr delay aly66: ld a,74 ; Nominal 66 millisecs... dv delay se+e AOTA to allow for relay dly33: ld a,33 delay: push be as "delay:" in SYS 1d b,a ; delay = <A> msecs

24


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











Page 24 of 67