org $101
  db $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81
  db $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81
  db $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81
  db $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81
  db $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81
  db $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81
  db $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81
  db $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81
  db $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81
  db $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81
  db $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81
  db $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81, $81
  db $81, $81, $81, $81, $81, $81, $81
  db $4c, $62, $69, $74, $31, $6e, $31, $35 ; Lbit1n15
 ;lda $00
 ;sta $50
 ;sta $51
 ;sta $52
 ;sta $53
 rts         ;"failsafe"...



;LCmd_entry_point:
;     bra RTS_Platzhalter
;LPut_entry_point:
;     bra RTS_Platzhalter
;LPS_entry_point:
;     bra RTS_Platzhalter
;LPN_entry_point:
;     bra RTS_Platzhalter
;I2C_START:
;     bra RTS_Platzhalter
;I2C_STOP:
;     bra RTS_Platzhalter
;I2C_WRITE:
;     bra RTS_Platzhalter
;I2C_READ:
;     bra RTS_Platzhalter
;I2C_GETACK:
;     bra RTS_Platzhalter
;I2C_SENDACK:
;     bra RTS_Platzhalter
;I2C_SENDNACK:
;     bra RTS_Platzhalter



***** Fastbas_end:
*****  jsr $0917       ; EEPROM abmelden, LEDs loeschen,
*****  jmp $0969       ; auf zur IDLE-Loop

Turbo_entry:   ; (umgestellt auf fixe Einsprungadresse, das |_ Team)
  brclr 3,$13,Turbo_ende         ;Prüfen, welcher Interrupt ausgelöst wurde, wenn TIMECMP 1 beenden
  brset 5,$7b,Turbo_slowmode_on  ;Prüfen, ob Slowmode aktiviert ist, wenn ja, gehe zu slowmode on
Turbo_slowmode_off:              ;slowmode ist aus
  lda $1f                        ;Lade Wert der Speicherzelle $1f in den Akku
  add #$6c                       ;Addiere den Wert zum Wert in den Akku
  sta $84                        ;Speichere Ergebnis in die Speicherzelle $84
  lda $1e                        ;Lade Wert der Speicherzelle $1e in den Akku
  adc #$6b                       ;Addiere den Wert und den Übertrag zum Wert in den Akku
Turbo_sichern:
  sta $83                        ;Speichere Ergebnis in die Speicherzelle $83
  sta $1e                        ;Speichere Ergebnis in die Speicherzelle $1e
  lda $84                        ;Lade Wert der Speicherzelle $84 in den Akku
  sta $1f                        ;Speichere Ergebnis in die Speicherzelle $1f
Turbo_ende:
  lda #01                        ;im Akku muß ein Wert ungleich 0 stehen, sonst bleibt das Basicprogramm stehen
  rts                            ;zurück zur Interruptroutine



Turbo_slowmode_on:          ;slowmode ist an
  lda $1f                   ;Lade Wert der Speicherzelle $1f in den Akku
  add #$b6; 8f              ;Addiere den Wert zum Wert in den Akku
  sta $84                   ;Speichere Ergebnis in die Speicherzelle $84
  lda $1e                   ;Lade Wert der Speicherzelle $1e in den Akku
  adc #$06                  ;Addiere den Wert und den Übertrag zum Wert in den Akku
  bra Turbo_sichern         ;Gehe zu "sichern"




*****Fastbas_loop:
*****  jsr $0e04       ; Token vom EEPROM holen
*****  cmp #84         ; ist es groesser als 84? falls ja, dann
*****  bls noend       ; die BASIC-Befehlsausfuehrung beenden
*****;  bra Fastbas_end
*****Fastbas_end:
*****  jsr $0917       ; EEPROM abmelden, LEDs loeschen,
*****  jmp $0969       ; auf zur IDLE-Loop

Fastbas_entry:     ; FASTBAS von Dietmar Harlos (umgestellt auf feste obere Einsprungadresse, das |_ Team)
  rsp              ; (1 byte) Stackpointer resetten
*****  nop              ; (1 byte) fuer --> jsr $0e04   (3 Bytes) in "Lbit0n00.asm" (siehe dort) den gleichen Einsprungpunkt erhaelt...
*****  bra Fastbas_loop ; (2 bytes)
Fastbas_loop:
  jsr $0e04       ; Token vom EEPROM holen
noend:
  lsla            ; BASIC-Token mit zwei multiplizieren,
  tax             ; damit es als Offset in der Sprungtabelle
  lda $1df6,x     ; verwendet werden kann. Dann die Adresse
  sta $be         ; der zum Token gehoerenden BASIC-Routine
  lda $1df7,x     ; aus der Tabelle lesen und per jmp-Befehl
  sta $bf         ; (auf Adresse $bd) aufrufen. Auf diese
  jsr $bd         ; Weise funktioniert auch der SYS-Befehl.
  bra Fastbas_loop
;
;
;
; db $4c, $62, $69, $74, $31 ; Lbit1