10 ' ; Slot PEEK
20 ' ; Format: USR1(Adresse),slot
30 ' illfc equ &h4740
40 ' cint equ &h2c0a
50 ' getbyt equ &h51f3
60 ' slotrd equ &h000c
70 ' pos1 equ &h4fa9
80 ' fac equ &hf6bc
90 ' ;
100 ' call cint ; convertiert nach INTEGER und laed Wert nach HL
110 ' ex de,hl
120 ' pop bc ; Ruecksprungadresse
130 ' pop hl ; BASIC Pointer
140 ' push hl ; Stack wiederherstellen
150 ' push bc
160 ' push de ; Wert der Adresse
170 ' rst &h08 ; Test auf
180 ' db &h2c ; ASCII(",")
190 ' call getbyt ; Holt Slot Nr.
200 ' cp 4 ; Slot Nr. >= 3 ?
210 ' jp nc,illfc ; ja, dann Illegal Function call
220 ' ex (sp),hl ; zu lesende Adresse mit BASIC Pointer tauschen
230 ' call slotrd ; Slot Read
240 ' call pos1 ; Akku in FAC laden
250 ' pop hl ; BASIC Pointer
260 ' pop bc ; Ruecksprung
270 ' pop de ; alter BASIC Pointer
280 ' push hl ; neuer BASIC Pointer
290 ' push bc ; Ruecksprung
300 ' ld hl,fac ; Startadresse FAC
310 ' ; A enth„lt bereits Typ 2 (siehe Routine ab &h4fa9)
320 ' ret
330 ' end
cksprun