Code:
asm$=mkl$(&Hnnn)+mkl$(&Hnnn)+mkl$(&Hnnn)+mkl$(&Hnnn)....asm$=asm$+mkl$(&Hnnn)+mkl$(&Hnnn)+mkl$(&Hnnn)+mkl$(&Hnnn)....asm$=asm$+mkl$(&Hnnn)+mkl$(&Hnnn)+mkl$(&Hnnn)+mkl$(&Hnnn)........
Statistics: Posted by mikefromca — Fri Feb 26, 2021 2:08 pm
Statistics: Posted by mikefromca — Tue Jan 19, 2021 8:23 pm
Code:
' Interrupt 33 (mouse)DATA 58DATA 5589E58B5E0C8B07508B5E0A8B07508BDATA 5E088B0F8B5E068B175B581E07CD3353DATA 8B5E0C8907588B5E0A89078B5E08890FDATA 8B5E0689175DCA080000READ numBytes%Target$ = STRING$(numBytes%, 0)Offset% = 1DOREAD Source$Half% = LEN(Source$) \ 2' convert hexadecimal (text-form) to binaryFOR i% = 0 TO Half% - 1MID$(Source$, 1 + i%, 1) = CHR$(VAL("&h" + MID$(Source$, 1 + i% * 2, 2)))NEXT i%' shove into target bufferMID$(Target$, Offset%, Half%) = MID$(Source$, 1, Half%)Offset% = Offset% + Half%LOOP WHILE (Offset% < numBytes%)
Statistics: Posted by MikeHawk — Sat Jan 16, 2021 9:22 am
Code:
asmcode$ = "xxyyxxyyxxyy"......asmcode$ = asmcode$+ "xxyyxxyyxxyy"......asmcode$ = asmcode$+ "xxyyxxyyxxyy"......d$=""for c% = 1 to len(asmcode$) step 2d$=d$+chr$(val("&H"+mid$(asmcode$,c%,1)))next c%
Statistics: Posted by mikefromca — Fri Jan 15, 2021 3:55 pm