mirror of
https://github.com/rigreco/UniDisk.git
synced 2025-03-12 21:31:45 +00:00
37 lines
477 B
NASM
37 lines
477 B
NASM
|
* @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
|