Merge branch 'master' into Test

Conflicts:
	AppleII/FP operations/UniFP.asm
	AppleII/FP operations/UniFP_Output.txt
This commit is contained in:
rigreco 2015-03-01 13:19:55 +01:00
commit a87b4e1ca4
4 changed files with 147 additions and 141 deletions

View File

@ -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

View File

@ -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