mirror of
https://github.com/rigreco/UniDisk.git
synced 2024-05-28 20:41:39 +00:00
Merge branch 'master' into Test
Conflicts: AppleII/FP operations/UniFP.asm AppleII/FP operations/UniFP_Output.txt
This commit is contained in:
commit
a87b4e1ca4
|
@ -48,29 +48,29 @@ DWLoad equ 7
|
|||
*****************************************************
|
||||
************** CHKSUM MAIN Routine ******************
|
||||
*
|
||||
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 ERRCHK
|
||||
;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 ERRCHK
|
||||
***********************************************
|
||||
* Find a Protocol Converter in one of the slots.
|
||||
START jsr FindPC
|
||||
|
@ -84,11 +84,11 @@ START jsr FindPC
|
|||
rts
|
||||
**************** CHKSUM ERROR Routine ***************
|
||||
*
|
||||
ERRCHK sta CHKCALC
|
||||
lda #"E"
|
||||
jsr COut
|
||||
rts
|
||||
CHKCALC dfb $00
|
||||
;ERRCHK sta CHKCALC
|
||||
; lda #"E"
|
||||
; jsr COut
|
||||
; rts
|
||||
;CHKCALC dfb $00
|
||||
**************** PROTOCOL CONVERTER ERROR Routine ***
|
||||
Error equ *
|
||||
*
|
||||
|
@ -131,7 +131,6 @@ EXEC lda N1 ;X1
|
|||
lda N2+3 ;M2 (3)
|
||||
sta FP2+3
|
||||
|
||||
|
||||
*** Download ***
|
||||
jsr Dispatch
|
||||
dfb ControlCmd
|
||||
|
|
|
@ -1,7 +1,14 @@
|
|||
2 PRINT CHR$ (4);"BLOAD UNIDRIVE4P"
|
||||
5 PRINT CHR$ (4);"BLOAD CONV3P"
|
||||
15 INPUT "N1 ? ";X
|
||||
20 CALL 768,X
|
||||
20 CALL 32768,X
|
||||
27 CALL 24576
|
||||
30 CALL 831,Y
|
||||
30 CALL 32831,Y
|
||||
40 PRINT Y
|
||||
50 PRINT CHR$ (4);"BLOAD UNIDRIVE4P2"
|
||||
55 INPUT "N1 ? ";X
|
||||
60 CALL 32768,X
|
||||
65 CALL 24576
|
||||
70 CALL 32831,Y
|
||||
80 PRINT Y
|
||||
90 GOTO 55
|
Loading…
Reference in New Issue
Block a user