Mercurial > hg > Members > kono > nitros9-code
diff level1/modules/dw3.asm @ 2640:8d24c482646e
o increased timeout in atari dwread.asm module
o fixed bug in rbdw3.asm where OP_INIT wasn't being sent
o replaced constant offset jumps into dw3.sb with labels
| author | Boisy Pitre <boisy.pitre@nuance.com> |
|---|---|
| date | Tue, 28 Feb 2012 23:09:32 -0600 |
| parents | 4655eabf00c0 |
| children | 9e9ed6d6b4c2 |
line wrap: on
line diff
--- a/level1/modules/dw3.asm Tue Feb 28 09:26:09 2012 -0600 +++ b/level1/modules/dw3.asm Tue Feb 28 23:09:32 2012 -0600 @@ -122,14 +122,16 @@ else ldu >D.DWSubAddr endc - jsr 6,u ; call DWrite + jsr DW$Write,u ; call DWrite leas 1,s ; leave one byte on stack for response ; read protocol version response, 1 byte leax ,s ; point X to stack head ldy #1 ; 1 byte to retrieve - jsr 3,u ; call DWRead + jsr DW$Read,u ; call DWRead + IFNE atari-1 beq InstIRQ ; branch if no error + ENDC leas 3,s ; error, cleanup stack (u and 1 byte from read) lbra InitEx ; don't install IRQ handler @@ -228,7 +230,7 @@ else ldu >D.DWSubAddr endc - jsr 6,u ; call DWrite + jsr DW$Write,u ; call DWrite leas 3,s ; clean 3 DWsub args from stack @@ -239,7 +241,7 @@ ldx RxBufPut,x ; point X to insert position in this port's buffer ; receive response - jsr 3,u ; call DWRead + jsr DW$Read,u ; call DWRead ; handle errors? @@ -304,13 +306,13 @@ else ldu >D.DWSubAddr endc - jsr 6,u ; call DWrite + jsr DW$Write,u ; call DWrite ; receive response leas -1,s ; one more byte to fit response leax ,s ; point X to stack head ldy #2 ; 2 bytes to retrieve - jsr 3,u ; call DWRead + jsr DW$Read,u ; call DWRead beq IRQSvc2 ; branch if no error leas 2,s ; error, cleanup stack 2 lbra IRQExit2 ; don't reset error count on the way out