80-Bus News

27

SAVEPRES

0000’

0100 0103 O107 010B O10F 0113 O17

0117 0119

Ol1B O11F 0123 O127 0128 04 2 0130 0134 0138 013c 0140 0144 0148 0148 O14F 0153

0005 005C 0080

0500

0157 O15A O15D 015E O15F 0160 O161 Ot 62 0163 0165

M-80

C3 0157

53 41 50 52 20 56 31 38 31 2F

0502

OD OA 6C 65 61 76

OD OA 20 64 6B 20 61 63 OD OA 66 66 20 63 72’75 65 64 00 24 20 20 20 50

56 45 31 2F 38

46 20 65

4E 69

65 42 65 6F

24 24 20 52

31 O17 21 0500

5E 23 56 EB E5

ED 52 A

69 64

73 7 24 75 T2 72 74

24 20

53

5 Dec 1983 23:33 PAGE 1

Title SAVEPRES subttl V4 1511 18/11/83

3; Makes file from PRESTEL buffer. +%80 aseg ORG 100H jp start defb “SAVEPRES Vi 18/11/83” stack: 3; overwrites title 3; Workspace from: defw buffert2 ebuf: defs 2 meafs: defb Odh,Oah,"File saved$” mesna: defb Odh,Osh,"No disk space$” magbe: defb Odh,Oah,"Buffer corrupted$” deflt: defb 0,"8$$ PRS” ; CP/M equates Gbdos = equ 5 feb equ 5Sch tbuff equ 80h ; PRES equates buffer equ 500H start: 1d sp,atack ld hi, buffer 1a e, (hl) ine hl 1d d,(hi) ex de,hi push hi 3 SHLD buffer end or a svc hl,de

pop hi

PRINPRES M-80

V1 1357 23/11/83 o1ac cA 9000 01 8F 21 0500 0192 55’ 0193-23 0194 «= 56 0195 EB 0196 BS O197 BT 0198 13 0199 13 O19A ED 52 o19c 44 019D 4D 0198 Ei O19F 30 09 O1Al 11 0167 O1A4 OE 09 O1A6 = CD: 0005 O1A9 CT O1AA D9 O1AB OE 06 OAD 1B OFF O1AF CD 0005 O1B2 FE 03 O1B4 CA 0000 O1B7) «9 O1B8 1A O1B9 Dg OBA OB 05 O1BC 5F O1BD ed 0005 O1co D9 Oct 13 o1c2 OB O1c3 78 0104 Bi O1c5 20 B3 O1CT C7

prn:

5 Dee 1983

dp 2,0

ld hl, buffer la e,(h1) ine hl

1d 4, (hl) ex de,hi push hl

or a

ine de

ine de

sbe hi,de 1d b,h

ld c,1l

pop hl

jr ne,prn ld de,mesbe ld c,9

eall jodos rat 0

exx 1d o,6

ld e,Offh call jbdos ep O3h

dp 2,0

exx

ld a, (de) exx

1d 6,5

ld e,a call jbdos exx

ine de

dec be

1d a,b orc

jr nz,prn rat 0

end

23:18 PAGE 1-1

3 SHLD = buffer end

3; <DED> = buffer start

3 <BC> = length

warm boot

we

Check for *C

3 warm boot