6502/6502-QR-code-generator
1
0
Fork 0
mirror of https://github.com/thrust26/6502-QR-code-generator.git synced 2024-12-27 19:29:35 +00:00
Code Issues Projects Releases Wiki Activity

fixed last commit

Browse Source
This commit is contained in:
thrust26 2021-04-11 17:38:58 +02:00
parent 7dcaaa5c80
commit 58e1551ad7
3 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
FuncDataV2S.inc
View File

@ -178,4 +178,8 @@ FirstIdxTbl ; for 25 pixel
ds 7, 0
.byte $01
ds 7, 0
.byte $bf
IF QR_VERSION = 1 || QR_VERSION = 2
.byte $bf ; 1st format bit is 1
ELSE
.byte $3f ; 1st format bit is 0
ENDIF

2
QRCodeGen.inc
View File

@ -424,7 +424,7 @@ QR_TOTAL = QR_MAX_DATA + QR_DEGREE ; 44
MAC _DRAW_FORMAT
;-----------------------------------------------------------
IF QR_SINGLE_MASK
IF QR_VERSION = 2 || QR_VERSION = 3
IF QR_VERSION = 3 || QR_VERSION = 4
; invert 1st pixel of 1st copy (bit 0 not set in formats Q and H)
ldy #0
ldx #QR_SIZE-9

15
QRCodeGenDemo.asm
View File

@ -10,9 +10,9 @@
; + apply pattern
; x evaluate pattern (very slow!)
; + optimize single pattern for space
; - support multiple QR code versions
; x support multiple QR code versions
; o support multiple QR code levels
; - try to optimize function pattern (SetPixel)
; x try to optimize function pattern (SetPixel)
; x add logo (does NOT work for such small sizes)
;---------------------------------------------------------------
@ -38,9 +38,9 @@ NTSC = 1
; QR Code Generator Switches
QR_VERSION = 2 ; 1, 2 or 3 (TODO 1 and 3)
QR_LEVEL = 1 ; 0 (L), 1 (M), 2 (Q) and 3 (H)
QR_LEVEL = 1 ; 0 (L) or 1 (M) (TODO: 2 (Q) and 3 (H))
QR_OVERLAP = 1 ; overlaps input and output data to save RAM (0 not tested!)
QR_SINGLE_MASK = 0 ; (-248) if 1 uses only 1 of the 8 mask pattern
QR_SINGLE_MASK = 1 ; (-255) if 1 uses only 1 of the 8 mask pattern
QR_PADDING = 1 ; (+22) add padding bytes
IF QR_VERSION = 1 || QR_VERSION = 3
@ -245,13 +245,14 @@ DrawScreen SUBROUTINE
; the QR code kernel
.loopKernel ; @55
lda FirstIdxTbl,x ; 4*
bne .newFirst ; 2/3
cmp #1
bcs .newFirst ; 2/3
lsr .tmpFirst ; 5
bpl .endFirst ; 3 = 14 unconditional
.newFirst ; @62
; $bf | $01 | $fe
bmi .enterLoop ; 2/3
; $bf/$3f | $01 | $fe
bne .enterLoop ; 2/3
lda firstMsl ; 3
.enterLoop
sta .tmpFirst ; 3 = 7