org $101




;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
  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, $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, $4c, $62, $69, $74, $30, $5f, $30, $30 ; Lbit0_00
  rts         ; "failsafe"...




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)
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, $30 ; Lbit0