memcopy

Author: RetroNick2020

gwbasic/GWBASIC MEMCOPY/MEMCOPY.ASM

@@ -0,0 +1,52 @@
+;Fast Memory Copy - Code for GW-BASIC By RetroNick (with Claude)
+;Format: Call MEMCOPY(SRC%,DST%,CNT%) from GW-BASIC
+;SRC% = Source address (from VARPTR)
+;DST% = Destination address (from VARPTR)
+;CNT% = Number of bytes to copy
+;
+;Compile with TASM: tasm memcopy.asm
+;Link with TLINK:   tlink memcopy.obj
+;Convert:           exe2bin memcopy.exe memcopy.com
+;Convert:           bin2bsv memcopy.com memcopy.bsv
+;
+;from GW-BASIC:
+;
+;10 DIM MC%(19)
+;20 DEF SEG
+;30 BLOAD "MEMCOPY.BSV",VARPTR(MC%(0))
+;40 SRC%=VARPTR(A%(0)): DST%=VARPTR(B%(0)): CNT%=100
+;50 MEMCOPY=VARPTR(MC%(0)):CALL MEMCOPY(SRC%,DST%,CNT%)
+;
+code segment
+assume cs:code,ds:code,es:code,ss:code
+MEMCOPY PROC FAR
+        PUBLIC MEMCOPY
+          PUSH   BP
+          MOV    BP,SP
+          PUSH   SI
+          PUSH   DI
+
+          MOV    BX,[BP + 10]   ;SRC address pointer
+          MOV    SI,[BX]        ;SI = source address
+
+          MOV    BX,[BP + 8]    ;DST address pointer
+          MOV    DI,[BX]        ;DI = dest address
+
+          MOV    BX,[BP + 6]    ;CNT byte count pointer
+          MOV    CX,[BX]        ;CX = byte count
+
+          PUSH   DS
+          POP    ES             ;ES = DS (same segment)
+          CLD                   ;forward direction
+          SHR    CX,1           ;word count
+          REP    MOVSW          ;copy words
+          ADC    CX,CX          ;pick up odd byte
+          REP    MOVSB          ;copy odd byte if any
+
+          POP    DI
+          POP    SI
+          POP    BP
+          RET    6              ;far return, clean 3 params
+MEMCOPY ENDP
+code ends
+END

gwbasic/GWBASIC MEMCOPY/MEMCOPY.BSV

@@ -0,0 +1,14 @@
+10 ' --- MEMCOPY TEST ---
+20 DIM A%(0): DIM B%(0): DIM MC%(19)
+30 ' Force all variables to exist first
+40 MEMCOPY = 0: SRC% = 0: DST% = 0: CNT% = 0
+50 A%(0) = 12345
+60 DEF SEG
+70 BLOAD "MEMCOPY.BSV",VARPTR(MC%(0))
+80 MEMCOPY = VARPTR(MC%(0))
+90 SRC% = VARPTR(A%(0))
+100 DST% = VARPTR(B%(0))
+110 CNT% = 2
+120 CALL MEMCOPY(SRC%, DST%, CNT%)
+130 PRINT "A=";A%(0);"B=";B%(0)
+140 IF B%(0) = 12345 THEN PRINT "SUCCESS!" ELSE PRINT "FAILED"

gwbasic/GWBASIC MEMCOPY/TESTMEM.BAS

@@ -0,0 +1,39 @@
+10 ' MEMCOPY TEST - SEQUENTIAL NUMBERS
+20 ' Pre-allocate all variables
+30 MEMCOPY=0: SRC%=0: DST%=0: CNT%=0
+40 N%=0: I%=0: OK%=0
+50 '
+60 DIM BIG%(49)
+70 DIM SML%(9)
+80 DIM MC%(19)
+90 '
+100 ' Install ASM memcopy from DATA
+110 DEF SEG
+120 RESTORE 1000
+130 FOR I% = 0 TO 36
+140   READ B%: POKE VARPTR(MC%(0)) + I%, B%
+150 NEXT
+160 MEMCOPY = VARPTR(MC%(0))
+170 '
+180 ' Fill BIG% with 0 to 49
+190 FOR I% = 0 TO 49: BIG%(I%) = I%: NEXT
+200 '
+210 ' Copy 5 chunks of 10 integers each
+220 CNT% = 20
+230 FOR N% = 0 TO 4
+240   SRC% = VARPTR(BIG%(0)) + N% * 20
+250   DST% = VARPTR(SML%(0))
+260   CALL MEMCOPY(SRC%, DST%, CNT%)
+270   PRINT "Chunk";N%;": ";
+280   OK% = -1
+290   FOR I% = 0 TO 9
+300     PRINT SML%(I%);
+310     IF SML%(I%) <> N% * 10 + I% THEN OK% = 0
+320   NEXT
+330   IF OK% THEN PRINT " OK" ELSE PRINT " FAIL"
+340 NEXT
+350 END
+1000 DATA &H55,&H8B,&HEC,&H56,&H57,&H8B,&H5E,&H0A,&H8B,&H37
+1010 DATA &H8B,&H5E,&H08,&H8B,&H3F,&H8B,&H5E,&H06,&H8B,&H0F
+1020 DATA &H1E,&H07,&HFC,&HD1,&HE9,&HF3,&HA5,&H13,&HC9,&HF3
+1030 DATA &HA4,&H5F,&H5E,&H5D,&HCA,&H06,&H00