mirror of https://github.com/rigreco/UniDisk.git
37 lines
477 B
ArmAsm
37 lines
477 B
ArmAsm
* @com.wudsn.ide.asm.hardware=APPLE2
|
|
COut equ $FDED
|
|
PTR equ $EB
|
|
STARTCHK lda #<STARTCHK
|
|
sta PTR
|
|
lda #>STARTCHK
|
|
sta PTR+1
|
|
ldy #$00
|
|
lda #$00
|
|
pha
|
|
|
|
LOOP pla
|
|
eor (PTR),y
|
|
pha
|
|
inc PTR
|
|
bne CHK
|
|
inc PTR+1
|
|
CHK lda PTR+1
|
|
cmp #>PROGEND
|
|
bcc LOOP
|
|
lda PTR
|
|
cmp #<PROGEND
|
|
bcc LOOP
|
|
beq LOOP
|
|
CHKCS pla
|
|
cmp CHKSUM
|
|
bne ERROR
|
|
REALSTART lda #0
|
|
inc A
|
|
sta $FA
|
|
PROGEND rts
|
|
CHKSUM chk
|
|
ERROR sta CHKCALC
|
|
lda #"E"
|
|
jsr COut
|
|
rts
|
|
CHKCALC dfb $00
|