80-Bus News |
November–December 1983, Volume 2, Issue 6 |
|
|
|
Page 27 of 67 |
|
|
|
---|
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
This is an OCR’d version of the scanned page and likely contains recognition errors.
|
|
|
Page 27 of 67 |
|
|
|
---|