Kleincomputer KC 85 Handbuch Seite 79

Handbuch für den Programmierer
0012' 11 00DD'
0015' CD 009C'
0018' C3 0051'
001B' 3E 80
001D' 32 00F3'
0020' 21 0000
0023' E5
0024' CD 00A2'
0027' E1
0028' DA 0051'
002B' 47
002C' 7D
002D' E6 0F
002F' C2 0044'
0032' CD 0072'
0035' CD 0059'
0038' 0F
0039' DA 0051'
003C' 7C
003D' CD 008F'
0040' 7D
0041' CD 008F'
0044' 23
0045' 3E 20
0047' CD 0065'
004A' 78
004B' CD 008F'
004E' C3 0023'
0051' CD 0072'
0054' 2A 00F5'
0057' F9
0058' C9
0059' E5
005A' D5
005B' C5
005C' 0E 0B
005E' CD 0005
0061' C1
0062' D1
79
;
; Datei nicht vorhanden, Fehlermeldung
ld de,opnmsg
call err
jp finis
;
; eröffnung ok,pufferzeiger auf ende setzen
openok: ld a,80h
ld (ibp),a
; HL auf nächste Adresse setzen
ld hl,0
;
gloop: push hl
call gnb
pop hl
jp c,finis
;
ld b,a
; Hexzeichen ausgeben, Zeile testen
ld a,l
and 0fh
jp nz,nonum
; Zeilennummer ausgeben
call crlf
; Konsole auf Abbruch testen
call break
; Akkumulator-LSB=1, falls Zeichen bereit
rrca
jp c,finis
;
ld a,h
call phex
ld a,l
call phex
;
nonum: inc hl
ld a,' '
call pchar
ld a,b
call phex
jp gloop
;
; Ende der ausgabe, zurück zum CCP
;
finis: call crlf
ld hl,oldsp)
ld sp,hl
; Stackpointer enthält CCP-Stackadresse
ret
;
; Unterprogramme
;
; Konsole auf Abbruch testen (Zeichen beliebig)
break: push hl
push de
push bc ; Register retten
ld c,brkf
call bdos
pop bc
pop de
; Rückkehr
; zeiger = 80h
; bei Null beginnen
; Zeile retten
; Zeile wiederholen
; Carry wird von gnb
bei Dateiende gesetzt
; 4 Bit testen
; Carry-Bit setzen
; Abbruch
; zurück zum CCP
Anlage 6