; Dit programma leest de BAR CODE READER onder interrupt uit
; en stopt het dan in de toetsenbordbuffer
; Het is dus gewoon een leuk probeerseltje
; Dit programma is dus zeer geschikt om uitgebreid te worden
; Dus ik hoop dat jullie er wat mee doen als je er zin en TIJD voor hebt
; Gemaakt door FCS  Jeffrey Timmer
; Succes!!

        ORG   0D000H

BH1:    DI
        LD    HL,0FD9FH
        LD    DE,HOOK
        LD    BC,5
        LDIR
        LD    HL,BARCOD
        LD    (0FDA0H),HL
        LD    A,0C3H
        LD    (0FD9FH),A
        EI
        LD    C,18H           ; Initialiseer de BAR CODE READER
        LD    A,00000000B
        HALT
        OUT   (C),A
        LD    A,01111111B
        HALT
        OUT   (C),A
        LD    A,10110011B
        HALT
        OUT   (C),A
        LD    A,11001000B
        HALT
        OUT   (C),A
        RET
BH2:    LD    HL,HOOK
        LD    DE,0FD9FH
        LD    BC,5
        LDIR
        RET

BARCOD: LD    A,(0FBEBH)
        CP    11011101B
        JR    Z,BH2
        LD    A,(IDBYTE)
        CP    0
        JR    NZ,READ
        IN    A,(18H)
        BIT   7,A
        JR    NZ,HOOK

        EX    AF,AF
        LD    A,1
        LD    (IDBYTE),A
        IN    A,(0AAH)
        XOR   01000000B
        OUT   (0AAH),A
        EX    AF,AF
        RES   5,A
        LD    HL,0FBF0H
        LD    (0F3FAH),HL
        JR    READSI
READ:   LD    HL,0FBF0H
        LD    (0F3FAH),HL
        IN    A,(18H)
        BIT   7,A
        JR    NZ,STOPR
READSI: LD    (HL),A
        INC   HL
        LD    (0F3F8H),HL
        JR    HOOK

STOPR:  RES   7,A
        LD    (HL),A
        INC   HL
        LD    (0F3F8H),HL
        XOR   A
        LD    (IDBYTE),A
        IN    A,(0AAH)
        XOR   01000000B
        OUT   (0AAH),A
HOOK:   DEFS  5

IDBYTE: DEFB  0




DBYTE),A
        I