Kleincomputer KC 85 Handbuch Seite 81

Handbuch für den Programmierer
00B1' 37
00B2' C9
00B3' 5F
00B4' 16 00
00B6' 3C
00B7' 32 00F3'
00BA' 21 0080
00BD' 19
00BE' 7E
00BF' B7
00C0' C9
00C1' AF
00C2' 32 007C
00C5' 11 005C
00C8' 0E 0F
00CA' CD 0005
00CD' C9
00CE' E5
00CF' D5
00D0' C5
00D1' 11 005C
00D4' 0E 14
00D6' CD 0005
00D9' C1
00DA' D1
00DB' E1
00DC' C9
00DD' 6E 6F 20 69
00E1' 6E 70 75 74
00E5' 20 66 69 6C
00E9' 65 20 70 72
00ED' 65 73 65 6E
00F1' 74 24
00F3'
00F5'
00F7'
0137'
81
scf
ret
;
; Byte auf Adresse buff+<a> lesen
g0: ld
ld
inc
ld
; Zeiger ist erhöht und gerettet
ld
add
; HL enthält absolute Adresse des nächsten
; Zeichens
ld
; Byte ist im Akkumulator
or
ret
;
; Eingabedatei eröffnen
setup: xor
ld
;
ld
ld
call
; Akkumulator enthält 255 bei Fehler
ret
;
; Datensatz lesen
diskr: push
push
push
ld
ld
call
pop
pop
pop
ret
; Feld für konstante Zeichenketten
opnmsg: defm
;
; Variablenfeld
ibp: defs
oldsp: defs
;
; lokaler Stack
defs
stktop:
;
e,a ; puffer index
d,0 ; 16 Bit-Wert
a ; index erhöhen
(ibp),a ; und abspeichern
hl,buff
hl,de
a,(hl)
a ; carry rücksetzen
a ; Akku löschen
(fcbcr),a ; "cr" löschen
de,fcb
c,openf
bdos
hl
de
bc
de,fcb
c,readf
bdos
bc
de
hl
'no input file present$'
2 ; eingabe puffer zeiger
2 ; ccp stack pointer
64 ; 32 niveaus reserviert
Anlage 6