Kleincomputer KC 85 Handbuch Seite 80

Handbuch für den Programmierer
0063' E1
0064' C9
0065' E5
0066' D5
0067' C5
0068' 0E 02
006A' 5F
006B' CD 0005
006E' C1
006F' D1
0070' E1
0071' C9
0072' 3E 0D
0074' CD 0065'
0077' 3E 0A
0079' CD 0065'
007C' C9
007D' E6 0F
007F' FE 0A
0081' D2 0089'
0084' C6 30
0086' C3 008B'
0089' C6 57
008B' CD 0065'
008E' C9
008F' F5
0090' 0F
0091' 0F
0092' 0F
0093' 0F
0094' CD 007D'
0097' F1
0098' CD 007D'
009B' C9
009C' 0E 09
009E' CD 0005
00A1' C9
00A2' 3A 00F3'
00A5' FE 80
00A7' C2 00B3'
00AA' CD 00CE'
00AD' B7
00AE' CA 00B3'
80
pop hl
ret
;
; Zeichen ausgeben
pchar: push hl
push de
push bc ; Register retten
ld c,typef
ld e,a
call bdos
pop bc
pop de
pop hl
ret
;
; neue Zeile
crlf: ld a,cr
call pchar
ld a,lf
call pchar
ret
;
; Hex-Zeichen in A ausgeben
pnib: and 0fh
cp 10
jp nc,p10
; kleiner gleich 9
add a,'0'
jp prn
; größer oder gleich 10
p10: add a,'a'-10
prn: call pchar
ret
;
; Register A in Hex-Format ausgeben
phex: push af
rrca
rrca
rrca
rrca
call pnib
pop af
call pnib
ret
;
; Fehlermeldung ausgeben, DE adressiert die
; Meldung, welche mit "$" endet
err: ld c,printf
call bdos
ret
;
; nächstes Byte holen
gnb: ld a,(ibp)
cp 80h
jp nz,g0
;
; neuen datensatz lesen
call diskr
or a
jp z,g0
; Ende der Daten, Carry setzen für EOF
;Register zurück
; untere 4 Bits
; Puffer ausgeben
; 0 wenn lesen ok
; nächstes Byte
Anlage 6