|
|
|
@ -461,21 +461,13 @@ VDU_BLKCPY: |
|
|
|
LD A,31 ; PREP VDU FOR DATA R/W |
|
|
|
OUT (VDU_REG),A ; DO IT |
|
|
|
LD HL,VDU_BUF ; HL POINTS TO WORK BUFFER |
|
|
|
; LD C,VDU_RAMWR ; LOAD C WITH VDU WRITE REGISTER |
|
|
|
LD C,VDU_RAMRD ; LOAD C WITH VDU READ REGISTER |
|
|
|
|
|
|
|
VDU_BLKCPY1: ; VIDEO RAM -> BUFFER COPY LOOP |
|
|
|
CALL VDU_WAITRDY ; WAIT FOR VDU |
|
|
|
;;;;;;;;;;;;;;;;; |
|
|
|
; INI IS NOT WORKING FOR ME, GARBAGE DATA READS, NO IDEA WHY |
|
|
|
; INI ; READ BYTE, DEC B, INC HL |
|
|
|
; IN A,(VDU_DATA) ; BOGUS READ TO INCREMENT VDU RAM ADDRESS!!! |
|
|
|
; JR NZ,VDU_BLKCPY1 ; LOOP TILL DONE |
|
|
|
;;;;;;;;;;;;;;;;; |
|
|
|
IN A,(VDU_RAMRD) ; READ DATA BYTE |
|
|
|
LD (HL),A ; SAVE IN BUFFER |
|
|
|
INC HL ; BUMP SOURCE ADDRESS |
|
|
|
INI ; READ BYTE, DEC B, INC HL |
|
|
|
IN A,(VDU_DATA) ; BOGUS READ TO INCREMENT VDU RAM ADDRESS!!! |
|
|
|
DJNZ VDU_BLKCPY1 ; LOOP TILL DONE |
|
|
|
JR NZ,VDU_BLKCPY1 ; LOOP TILL DONE |
|
|
|
|
|
|
|
; SETUP TO COPY FROM WORK BUFFER TO VDU DEST |
|
|
|
POP BC ; RECOVER THE COPY LENGTH |
|
|
|
|