Recent Posts

Pages: [1] 2 3 ... 10
2

Oh.. Sorry, that's actually leftover junk.  I originally had this as a TINY code-segment-only model.  I was trying different approaches and wasn't really trying to setup DS as anything other than a copy of CS.
3

Haven't actually tried your program, but a quick look at your code

Code: [Select]
    mov      ax, DGROUP         ; make data segment addressable
    mov      ds, ax
push CS
pop DS

shows that you carefully set up the DS register ( mov ds,ax), but then destroy its content just 2 instructions later (pop ds). That probably won't work as expected.
4
The Soap Box / Re: Sputnik Vaccine anyone ?
« Last post by hutch-- on Today at 02:31:53 AM »
This is all old stuff, over the same period, all of the alternative vaccines have been subject to shortcomings. Does Astra Zenica for the Alpha Variant still do the job ? The Italian/Russian version is later than what your references are talking about. RE : Cncellations, most countries have cancelled the Astra Zenica vaccine, what's new.
5
The Soap Box / Re: Sputnik Vaccine anyone ?
« Last post by José Roca on Today at 02:25:55 AM »
Sputnik V common side effects

An interim analysis of phase 3 clinical trial data, published in The Lancet in February 2021, reports on the efficacy and safety of the vaccine. Based on the data, the most common side effects were:

flu-like illness
headache
fatigue
injection-site reactions

These side effects are similar to those of the Pfizer, Moderna, and Johnson & Johnson COVID-19 vaccines, as noted by the Centers for Disease Control and Prevention (CDC).
6

So, the code below produces an .exe file that produces this image:

https://drive.google.com/file/d/1Owctyj0LxRtwGguA9WeZkVaMNZ-rX-nU/view

on my Windows 7 computer by double-clicking the executable.  I wanted to see if in fact, DEBUG.exe was "hogging" most of the available memory.  Turns out, the real hog (I suppose) is Windows.  I get the same results in the working registers with or without working inside of DEBUG.  Segment registers will obviously differ.  I then opened FCOPY.exe inside of DEBUG and saw the same thing.  That program creates MYFILE.BAK literally at 70h bytes per data transfer.  I guess these are the limits. 

The challenge for me is that I want to open a file of max size 65535 bytes.  I want to then scan that data for an opening byte sequence that might be about 10 bytes long (actually, it's user defined) and then identify a closing byte sequence as well.  How to code that seems obvious if I could have the entire file available to me all at once.  At 112 bytes of file at once, I know there will surely be times when my available memory will cut off right in the middle of that signature byte sequence, so I'm gonna have to get clever about how to identify it when I have only 112 bytes of playground (or sometimes, maybe less).  Anyway, thought I'd share my findings.

Jj


Code: [Select]

    .386

xfrsize equ 0fff0h              ; # bytes per I/O access
                                ; (always multiple of 16)

bufsize equ 80                  ; length local buffer on stack

DGROUP group _DATA, STAK        ; automatic data group

_TEXT  segment word public use16 'CODE'
       assume  cs:_TEXT, ds:DGROUP, ss:STAK

Start:

    mov      ax, DGROUP         ; make data segment addressable
    mov      ds, ax


push CS
pop DS
push SS
pop ES
mov AX, 4800h
mov BX, 0FFFFh ; Not possible mem segment reserve
int 21h
push DX
push CX
push AX
lea AX, CS:[Reg_AX_Val]
pop DX
call Convert_DX_To_Ascii
lea AX, CS:[Reg_BX_Val]
mov DX, BX
call Convert_DX_To_Ascii
lea AX, CS:[Reg_CX_Val]
pop DX
call Convert_DX_To_Ascii
lea AX, CS:[Reg_DX_Val]
pop DX
call Convert_DX_To_Ascii

mov DX, CS
lea AX, CS:[Reg_CS_Val]
call Convert_DX_To_Ascii
mov DX, DS
lea AX, CS:[Reg_DS_Val]
call Convert_DX_To_Ascii
mov DX, ES
lea AX, CS:[Reg_ES_Val]
call Convert_DX_To_Ascii
mov DX, SS
lea AX, CS:[Reg_SS_Val]
call Convert_DX_To_Ascii

call Write_Reg_Status
mov AH, 0
call Wait_Esc
mov AX, 4C00h
int 21h


Wait_Esc:
int 16h
cmp AH, 1
jne Wait_Esc
ret


Convert_DX_To_Ascii:
push AX ; AX = address to store ASCII representation of DX
pop BP
push BX
mov SI, 3
mov AX, DX ; DX = 16-bit value to convert to ASCII
and AX, 0Fh
or AX, 30h
mov BX, AX
sub AX, 3Ah ; ASCII "9"+1
mov AX, BX
jc Zero_To_Nine_3
add AX, 7 ; Add 7 if > 9 (A to F)
Zero_To_Nine_3:
mov AH, 0
mov BX, AX
mov BYTE PTR CS:[BP+SI], BL
mov AX, DX
mov CL, 4
shr AX, CL
dec SI
and AX, 0Fh
or AX, 30h
mov BX, AX
sub AX, 3Ah ; ASCII "9"+1
mov AX, BX
jc Zero_To_Nine_2
add AX, 7 ; Add 7 if > 9 (A to F)
Zero_To_Nine_2:
mov AH, 0
mov BX, AX
mov BYTE PTR CS:[BP+SI], BL
mov AX, DX
mov CL, 8
shr AX, CL
dec SI
and AX, 0Fh
or AX, 30h
mov BX, AX
sub AX, 3Ah ; ASCII "9"+1
mov AX, BX
jc Zero_To_Nine_1
add AX, 7 ; Add 7 if > 9 (A to F)
Zero_To_Nine_1:
mov AH, 0
mov BX, AX
mov BYTE PTR CS:[BP+SI], BL
mov AX, DX
mov CL, 12
shr AX, CL
dec SI
and AX, 0Fh
or AX, 30h
mov BX, AX
sub AX, 3Ah ; ASCII "9"+1
mov AX, BX
jc Zero_To_Nine_0
add AX, 7 ; Add 7 if > 9 (A to F)
Zero_To_Nine_0:
mov AH, 0
mov BX, AX
mov BYTE PTR CS:[BP+SI], BL
pop BX
ret


Write_Reg_Status:
lea DX, CS:[Intro]
mov AH, 9
mov AL, 0
int 21h
ret




Intro db      0Dh,0Ah, "Int 21h call",0Dh
db 0Ah,0Ah,"Input AH = 48h"
db 0Dh,0Ah,"      BX = FFFFh (Impossible Paragraph Memory Request)"
db 0Dh,0Ah,0Ah
db "After call:  ",0Dh,0Ah,0Ah

Reg_AX_Def db "    AX = "
Reg_AX_Val db 4 DUP ("?")
db 0Dh,0Ah
Reg_BX_Def db "    BX = "
Reg_BX_Val db 4 DUP ("?")
db 0Dh,0Ah
Reg_CX_Def db "    CX = "
Reg_CX_Val db 4 DUP ("?")
db 0Dh,0Ah
Reg_DX_Def db "    DX = "
Reg_DX_Val db 4 DUP ("?")
db 0Dh,0Ah
Reg_CS_Def db "    CS = "
Reg_CS_Val db 4 DUP ("?")
db 0Dh,0Ah
Reg_DS_Def db "    DS = "
Reg_DS_Val db 4 DUP ("?")
db 0Dh,0Ah
Reg_ES_Def db "    ES = "
Reg_ES_Val db 4 DUP ("?")
db 0Dh,0Ah
Reg_SS_Def db "    SS = "
Reg_SS_Val db 4 DUP ("?")
db 0Dh,0Ah
db 0Dh,0Ah
db "Press 'Esc' to Exit!"
db 0Dh,0Ah,"$"

_TEXT  ends

_DATA segment word public use16 'DATA'


_DATA ends

STAK segment para stack use16 'STAK'

    db 2048 dup (?)             ; 2 KB stack

STAK ends

     end Start



7
The Soap Box / Re: Sputnik Vaccine anyone ?
« Last post by José Roca on Today at 02:19:10 AM »
There are news that don't critizice the vaccine, but talk about delays and lack of verifiable data:

July 2021: "Brazil would be the second Latin American country to cancel its Sputnik V order after Guatemala did so this week. Two others, Argentina and Mexico, have complained of second-dose shortages amid Russia’s own campaign to kickstart its lagging vaccination drive. "

"BUENOS AIRES/MOSCOW, Aug 5 (Reuters) - Argentina, racing to fight stop the spread of the Delta variant of COVID-19, said on Thursday it will offer second doses of Moderna and AstraZeneca vaccines to citizens who received a first dose of Russia's Sputnik V but could not receive a second jab due to delays in deliveries."
8
The Soap Box / Re: Sputnik Vaccine anyone ?
« Last post by hutch-- on Today at 01:17:02 AM »
José,

The objectivity for carnegieendowment.org would have to be in question, as an American organisation, if it ain't J+J, Moderna or Pfizer then its going to be criticised. Much the same for Sinovac, Spinpharm and the new Indian one, Novavax.
9
The Soap Box / Re: Sputnik Vaccine anyone ?
« Last post by TimoVJL on Today at 12:26:13 AM »
Hard to trust to russian rulers in these situations.
Hopefully a that vaccine production can also happen outside of russia.
10
The Soap Box / Re: Sputnik Vaccine anyone ?
« Last post by José Roca on January 25, 2022, 11:49:48 PM »
Pages: [1] 2 3 ... 10