home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
ENTERPRS
/
CPM
/
UTILS
/
A
/
ARC20.ARC
/
ARCMACS.ARC
/
FPUTC.MAC
< prev
next >
Wrap
Text File
|
1989-10-25
|
425b
|
25 lines
; FPUTC f}r Turbo-ARC, TR 251089
.z80
extrn f,c
ld de,(f) ; Zeiger auf F
ld hl,104h
add hl,de ; ^ACTPOS
push hl
ld l,(hl)
ld h,0 ; HL = ACTPOS.B0
add hl,de ; Zeiger auf aktuelle Pufferadresse
ld a,(c)
ld (hl),a ; Zeichen speichern
pop hl ; ^ACTPOS
inc (hl)
ret nz ; INC, <>0 : ok, Ende
inc hl
inc (hl)
jr nz,incok
inc hl
inc (hl)
incok equ $ ; anschlie~en BLOCKWRITE
end