80-Bus News

  

November–December 1983, Volume 2, Issue 6











Page 28 of 67











SAVEPRES

M-80

V1 4511 18/11/83

0166 0168 O16B o1e6d O170

oO17t

O172 O74 OTT OV7A O17c 017D O1TF 0182 0185 0188 O18A 018c 018D 0185 018F o19i

0194 0196 0199 0198 o19D OtAd O1A2 OTA5 O1A8 OTAA O1AD O1AF O1Bi

O1B4 O1B6 0139 O1BB

O1BD O1CO Oct 0105 O1Cc6 O1CT 01c9 O1CA o10c O1CcF o1D2 O1D4 ODT O1DA Orne

30 1 OE cD

Og 0138 og 0005

chfn: 1A 0119 0o5D

12

O14B 005C Qoo0c

15

FC

005Cc open: OF

0005

FF

08

005c

13

0005

005c make: 16

0005

FF

34

0O5C open2: oF

0005

FF

25

O17 chend:

5B 0119

52

1E 0080 0080 BO O117 O05c 15 0005

5 Dec 1983

jr ne,chfn 1d de,msgbe ld c,9

call jbdos ret 0

inc hl

1d (hl), tah ld (ebuf), hl ld hl,febtt ld a,20h ep (hi)

jr ngz,open id hi,deflt ld de,fcb ld be,12 ldir

ld b,21

xor 4

1d (de),a inc de djnz $-2 ld de,feb ld c,15 eall jbdos ep -1

jr z,make ld de,fcb 1d c,19 call jbdos ld de,fcb ld c,22 call jbdos cp -1

jr z,nods ld de,feb ld c,15 call jbdos ep -1

jr z,nods

1d hl, (from) push hl

ld de,(ebuf) xor a

ex de,hl

sbe hi,de pop hl

jr c,exit

ld de,tbuff ld be, 80h idir

1d (from) ,hl Id de,fed

ld c,21

eall jbdos

23:33 PAGE 1-

warm boot

add ROF

; Filename present‘

i yes

Fill up feb with nulls

open file

delete file

make file

3 check end

3; write next rec

SAVEPRES

M-80

Vii 1511 18/11/83

O1DF O1EO O1E2 OTS O187 O1BA O1ED OER O1F2 O1F5 O1FT OFA

BT 28 14

OE cD 14

Of cD 4

OE cD C7

DB 0128 09 0005 Q05C 10 0005 O11B 09 0005

nods:

exit:

5 Dec 1983

or a jr a,chend ld de,mesns ld c,9

call jbdos ld de,feb ld c,16 eall jbdos ld de,mesfs ld c,9

call jbdos rset 0

end

23:33 PAGE 1-2

“No disk space”

close file

“File saved”

warm boot

28


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











Page 28 of 67