Jeffrey Timmer, 00-00-00
; 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
|
