80-Bus News

  

July–August 1983, Volume 2, Issue 4











Page 16 of 55











MV256 Relocating Graphics Drivers Disk read/write routines for MV256

OBBS OBB6

OBB9 OBBB

OBBE OBCO OBC

OBC2 OBC3 OBCS OBCT ORCS OBCA OBCE OBCC OBCD OBCE OBCF OBDO OBD2 OBD4 OBD6 OBD7 OBDE OBDA OBDC OBDD OBDF OBEO

OBE OBE3 OBE4 OBES OBET OBES OBES OBEA OBER OBEC OBED OBEF OBF1 OBF3 OBF4 OBFS OBF7

2 0C68

DD 79 Bi

28

BE

SEYHSESeee

12 13 10

BOrma Baas

28

12

1

BinCcOenmond NPSBSa eo

0ce9

ES

OA

F4 06 20

M--80 20 Jun 1983

; If no colon, put default in FCB

FCB2: XOR ub R

A (FOB) ,A

; Copy up fllename to FCB up to .

FCB: LD LD R PUSH POP FCB4: LD OR JR LD oP JR LD LD INC INC DEC DEC JR JR PCBS: LD FCB6: LD INC DINZ FCB7: LD cP JR INC DEC

B,8 DE, PCB+

Ix

HL

AC

c

2, PCBS Aen (HL) 2, FORS A, (HL) (DE) ,A HL

DE

c

B

NZ, FCB4 %,POBT Aieon (DE) ,A DE

FCB An (HL) NZ, FCBTA HL

c

; Copy up the filetype

FOB7A: LD PCRS: LD OR JR LD LD INC INC DEC DEC oR JR FCB9: LD FCBIO:;: LD Inc DING FCBi1: RET

B,3 A,

c

2, FCRG A, (HL) (DE) ,A HL

DE

c

B

NZ, FOBS FCBI1 An (DE), DE FCB1O

23:54 PAGE {m5

(if present). Point to destination Point to source

Get the string length Ta zero? Yes so pad with spaces Look for

Yes so pad with spaces No so put it in FCB

Point to next

Dec string count

Dec character count More? If so round again Otherwise filename done Pad with spaces

Test if HL now at .

if a0, then skip it.

Set count to three Test string length

All done

Get the character Put it in the FCB Point to next

Dee atring count

Dee character count More? So round again Otherwise all done Pad with spaces

All done

MV256 Relocating Graphics Drivers Disk read/write routines for MV256

OBFS OBFC ocoo 0c04 ocos ococ ocio oc14 0018 ocic oc1D oct

0c25 0c29 oceD 0034

0035 0039 OC3D ocd

0045 0049 oc4D ocsi

0c5s 0059 oc5D Oce! OC65

0ce68

61 6F 70 66

72 6F 66 28

M-80 20 Jun 1983 23:54 PAGE 1-6

; Error messages

6B 20 GMESS1:

69 74 GMESS2:

65 72 T2 20

6C 20 73 6B OA 24

69 60 GMESS3:

20 74 63 6C 65 20 6C 65 OA 24

69 6C GMESS4:

20 14 6F 70 20 66 65 2b 24

FCB:

DEFM

DEFM

DSFM

DSFM

DEFS

“Gan not open file, directory full.",CR,LF,"$”

“Write error or full disk.",CR,LF,"$”

“Failed to close file.",CR,LF,"$”

“Failed to open file.",CR,LF,"$”

36 3; Pile control block

16


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











Page 16 of 55