Modified how assembly array is addressed to avoid memory corruption. Address could change at any moment, especially when vars are created, so care is taken to never generate a variable when we need to call or modify instructions.

1 files changed, 159 insertions, 154 deletions

diff --git a/gwfetch.bas b/gwfetch.bas
index ac3caab..4d3e461 100644
--- a/gwfetch.bas
+++ b/gwfetch.bas
@@ -6,14 +6,17 @@
 29 REM battery or the time has been set

 30 SHOWUPTIME = 1

 

+199 PRINT "GWFetch 0.1 (c) 2024 J.Armstrong - See LICENSE.txt"

 200 PRINT "Working..."

 210 TMPFILE$ = "TEST.TMP"

+211 REM The array for our asm routines

+212 DIM Q%(400)

 219 REM Determine the OS and interpretter

 220 CMD$ = "ver":GOSUB 5000:GOSUB 10000

 230 REM PRINT "INTERPRETER: ";INTERP$

 240 REM IF LEN(VERSION$) > 0 THEN PRINT "VERSION: ";VERSION$

 250 REM Determine memory 

-260 CMD$ = "chkdsk":GOSUB 5000:GOSUB 11000

+260 REMCMD$ = "chkdsk":GOSUB 5000:GOSUB 11000

 270 REM CPU Detection

 280 GOSUB 12000:GOSUB 12300

 

@@ -60,7 +63,7 @@
 

 1997 LOCATE ROWS, 41:PRINT "Press any key...";

 1998 WHILE LEN(INKEY$) = 0:WEND

-1999 SYSTEM

+1999 REM SYSTEM

 2000 END

 

 3000 REM Logo output

@@ -130,26 +133,24 @@
 11140 RETURN

 

 12000 REM CPU Identity

-12001 DIM Q%(400)

-12005 DEF SEG=VARSEG(Q%(0))

-12006 OS%=VARPTR(Q%(0))

-12007 BWOFFSET = -1 : LASTBYTE = 0

-12010 FOR I = 1 TO 100

-12020 READ JC:POKE I+OS%, JC

-12021 REM Detect where we need to insert an offset for bus width detection

-12022 IF LASTBYTE=99 AND JC=0 THEN BWOFFSET = I+OS% - 1

+12001 CPUQ = 0:CPUID% = 0

+12005 REM DEF SEG=VARSEG(Q%(1))

+12007 BWOFFSET = -1 : LASTBYTE = 0 : JC = 0

+12010 FOR I = 1 TO 102

+12020 READ JC:POKE I+VARPTR(Q%(1)), JC

+12022 REM Detect where we need to insert an offset for bus width detection

+12025 IF LASTBYTE=99 AND JC=0 THEN BWOFFSET = I - 1

 12029 LASTBYTE = JC

 12030 NEXT I

 

 12039 REM Need to set the offset for bus width

-12040 TGTOFFSET = BWOFFSET + 16

-12050 POKE BWOFFSET, (TGTOFFSET MOD 256)

-12060 POKE BWOFFSET+1, INT(TGTOFFSET / 256)

+12040 TGTOFFSET = 0

+12045 TGTOFFSET = BWOFFSET + VARPTR(Q%(1)) + 16

+12050 POKE BWOFFSET + VARPTR(Q%(1)), (TGTOFFSET MOD 256)

+12060 POKE BWOFFSET + VARPTR(Q%(1)) + 1, INT(TGTOFFSET / 256)

 

-12080 CPUQ = 1 + OS%

+12080 CPUQ = VARPTR(Q%(1)) + 1

 12090 CALL CPUQ(CPUID%)

-12097 DEF SEG

-

 12100 REM         ; Results:

 12101 REM         ; 0 - 8088

 12102 REM         ; 1 - 8086

@@ -160,85 +161,88 @@
 12107 REM         ; 6 - 80286

 12108 REM         ; 7 - 80386+

 12109 DATA &H55 : REM         push bp

-12110 DATA &H89, &HE5 : REM         mov bp, sp

-12111 REM         ; push zero onto the stack and pop it into flags.

-12112 REM         ; some bits won't change

-12113 DATA &H31, &HC0 : REM         xor ax,ax

-12114 DATA &H50 : REM         push ax

-12115 DATA &H9D : REM         popf

-12116 DATA &H9C : REM         pushf

-12117 DATA &H58 : REM         pop ax

-12118 DATA &H25, &H00, &HF0 : REM         and ax, 0xf000 ;0f000h

-12119 DATA &H3D, &H00, &HF0 : REM         cmp ax, 0xf000 ;0f000h

-12120 DATA &H74, &H13 : REM         je lessthantwoeightsix

-12121 REM         ; marked as 286 (6)

-12122 DATA &HB2, &H06 : REM         mov dl, 6

-12123 DATA &HB8, &H00, &H70 : REM         mov ax, 0x7000 ;7000h

-12124 DATA &H50 : REM         push ax

-12125 DATA &H9D : REM         popf

-12126 DATA &H9C : REM         pushf

-12127 DATA &H58 : REM         pop ax

-12128 DATA &H25, &H00, &H70 : REM         and ax, 0x7000 ;7000h

-12129 DATA &H74, &H3A : REM         jz alldone

-12130 REM         ; mark as 386 (7)

-12131 DATA &HFE, &HC2 : REM         inc dl

-12132 DATA &HE9, &H35, &H00 : REM         jmp alldone

-12133 REM lessthantwoeightsix:

-12134 REM         ; Mark as 80188 (4)

-12135 DATA &HB2, &H04 : REM         mov dl, 4

-12136 DATA &HB0, &HFF : REM         mov al, 0xff ;0ffh

-12137 DATA &HB1, &H21 : REM         mov cl, 0x21 ;21h

-12138 DATA &HD2, &HE8 : REM         shr al, cl

-12139 REM         ; if the shift leaves zero, it's a 8088 class cpu, else 8018

-12140 DATA &H75, &H14 : REM         jnz buswidth

-12141 REM         ; Lets see if we have a V2

-12142 DATA &HB2, &H02 : REM         mov dl, 2

-12143 DATA &HFB : REM         sti

-12144 DATA &H56 : REM         push si

-12145 DATA &HBE, &H00, &H00 : REM         mov si, 0

-12146 DATA &HB9, &HFF, &HFF : REM         mov cx, 0xffff ;0ffffh

-12147 REM         ;rep lods [BYTE PTR es:si]

-12148 REM         ; INLINE assembler doesn't understand above - must be replaced after...

-12149 REM         ; because we need a lods with ES as a parameter

-12150 REM         ; so drop a 3-byte nonsense call to be replaced

-12151 DATA &HF3, &H26, &HAC : REM         mov cx, 0x0f99 ; replace with 0xF3, 0x26, 0xAC

-12152 DATA &H5E : REM         pop si

-12153 DATA &H09, &HC9 : REM         or cx, cx

-12154 DATA &H74, &H02 : REM         jz buswidth

-12155 REM         ; mark as a 808

-12156 DATA &HB2, &H00 : REM         mov dl, 0

-12157 REM buswidth:

-12158 REM         ; we are destroying es now, must be restored later

-12159 DATA &H0E : REM         push cs

-12160 DATA &H07 : REM         pop es

-12161 DATA &HFD : REM         std

-12162 REM         ; The 99 _must_ be replaced with the true offset of qqend

-12163 DATA &HBF, &H63, &H00 : REM         mov di, 99 ; OFFSET qqend ;99

-12164 REM         ;set up al and cx: 0xfb is the 'sti' instruction

-12165 DATA &HB0, &HFB : REM         mov al, 0xfb

-12166 DATA &HB9, &H03, &H00 : REM         mov cx, 3

-12167 REM         ; disable interrupts

-12168 DATA &HFA : REM         cli

-12169 DATA &HF2, &HAA : REM         rep stosb

-12170 DATA &HFC : REM         cld

-12171 DATA &H90 : REM         nop

+12110 DATA &H8B, &HEC : REM         mov bp, sp ; needs to be &H8B, &HEC

+12111 DATA &H9C : REM         pushf

+12112 REM         ; push zero onto the stack and pop it into flags.

+12113 REM         ; some bits won't change

+12114 DATA &H31, &HC0 : REM         xor ax,ax

+12115 DATA &H50 : REM         push ax

+12116 DATA &H9D : REM         popf

+12117 DATA &H9C : REM         pushf

+12118 DATA &H58 : REM         pop ax

+12119 DATA &H25, &H00, &HF0 : REM         and ax, 0xf000 ;0f000h

+12120 DATA &H3D, &H00, &HF0 : REM         cmp ax, 0xf000 ;0f000h

+12121 DATA &H74, &H13 : REM         je lessthantwoeightsix

+12122 REM         ; marked as 286 (6)

+12123 DATA &HB2, &H06 : REM         mov dl, 6

+12124 DATA &HB8, &H00, &H70 : REM         mov ax, 0x7000 ;7000h

+12125 DATA &H50 : REM         push ax

+12126 DATA &H9D : REM         popf

+12127 DATA &H9C : REM         pushf

+12128 DATA &H58 : REM         pop ax

+12129 DATA &H25, &H00, &H70 : REM         and ax, 0x7000 ;7000h

+12130 DATA &H74, &H3A : REM         jz alldone

+12131 REM         ; mark as 386 (7)

+12132 DATA &HFE, &HC2 : REM         inc dl

+12133 DATA &HE9, &H35, &H00 : REM         jmp alldone

+12134 REM lessthantwoeightsix:

+12135 REM         ; Mark as 80188 (4)

+12136 DATA &HB2, &H04 : REM         mov dl, 4

+12137 DATA &HB0, &HFF : REM         mov al, 0xff ;0ffh

+12138 DATA &HB1, &H21 : REM         mov cl, 0x21 ;21h

+12139 DATA &HD2, &HE8 : REM         shr al, cl

+12140 REM         ; if the shift leaves zero, it's a 8088 class cpu, else 8018

+12141 DATA &H75, &H14 : REM         jnz buswidth

+12142 REM         ; Lets see if we have a V2

+12143 DATA &HB2, &H02 : REM         mov dl, 2

+12144 DATA &HFB : REM         sti

+12145 DATA &H56 : REM         push si

+12146 DATA &HBE, &H00, &H00 : REM         mov si, 0

+12147 DATA &HB9, &HFF, &HFF : REM         mov cx, 0xffff ;0ffffh

+12148 REM         ;rep lods [BYTE PTR es:si]

+12149 REM         ; INLINE assembler doesn't understand above - must be replaced after...

+12150 REM         ; because we need a lods with ES as a parameter

+12151 REM         ; so drop a 3-byte nonsense call to be replaced

+12152 DATA &HF3, &H26, &HAC : REM         mov cx, 0x0f99 ; replace with &HF3, &H26, &HAC

+12153 DATA &H5E : REM         pop si

+12154 DATA &H09, &HC9 : REM         or cx, cx

+12155 DATA &H74, &H02 : REM         jz buswidth

+12156 REM         ; mark as a 808

+12157 DATA &HB2, &H00 : REM         mov dl, 0

+12158 REM buswidth:

+12159 REM         ; we are destroying es now, must be restored later

+12160 DATA &H0E : REM         push cs

+12161 DATA &H07 : REM         pop es

+12162 DATA &HFD : REM         std

+12163 REM         ; The 99 _must_ be replaced with the true offset of qqend

+12164 DATA &HBF, &H63, &H00 : REM         mov di, 99 ; OFFSET qqend ;99

+12165 REM         ;set up al and cx: 0xfb is the 'sti' instruction

+12166 DATA &HB0, &HFB : REM         mov al, 0xfb

+12167 DATA &HB9, &H03, &H00 : REM         mov cx, 3

+12168 REM         ; disable interrupts

+12169 DATA &HFA : REM         cli

+12170 DATA &HF2, &HAA : REM         rep stosb

+12171 DATA &HFC : REM         cld

 12172 DATA &H90 : REM         nop

 12173 DATA &H90 : REM         nop

-12174 DATA &H42 : REM         inc dx

-12175 DATA &H90 : REM         nop

-12176 REM qqend:

-12177 DATA &HFB : REM         sti

-12178 REM         ; ES must be restored

-12179 DATA &H1E : REM         push ds

-12180 DATA &H07 : REM         pop es

-12181 REM alldone:

-12182 REM         ; store in ax

-12183 DATA &H30, &HF6 : REM         xor dh, dh

-12184 DATA &H8B, &H7E, &H06 : REM         mov di, [bp]+6

-12185 DATA &H89, &H15 : REM         mov [di], dx

-12186 DATA &H5D : REM         pop bp

-12187 DATA &HCA, &H02, &H00 : REM );          {        retf 2}

-12188 REM Total Bytes in Data: 100

+12174 DATA &H90 : REM         nop

+12175 DATA &H42 : REM         inc dx

+12176 DATA &H90 : REM         nop

+12177 REM qqend:

+12178 DATA &HFB : REM         sti

+12179 REM         ; ES must be restored

+12180 DATA &H1E : REM         push ds

+12181 DATA &H07 : REM         pop es

+12182 REM alldone:

+12183 REM         ; store in ax

+12184 DATA &H30, &HF6 : REM         xor dh, dh

+12185 DATA &H8B, &H7E, &H06 : REM         mov di, [bp]+6

+12186 DATA &H89, &H15 : REM         mov [di], dx

+12187 DATA &H9D : REM         popf

+12188 DATA &H5D : REM         pop bp

+12189 DATA &HCA, &H02, &H00

+12190 REM Total Bytes in Data: 102

+

 12200 RETURN

 

 12300 REM Interprets CPUID% and returns a CPU name

@@ -253,72 +257,73 @@
 12390 RETURN

 

 12500 REM DOS Version

-12501 DIM Q2%(200)

-12505 DEF SEG=VARSEG(Q2%(0))

-12506 OS%=VARPTR(Q2%(0))

-12510 FOR I = 1 TO 75

-12520 READ JC:POKE I+OS%, JC

+12502 DVER%=0:OEM%=&HFF:DOSVER=0

+12510 FOR I = 1 TO 77

+12520 READ JC:POKE I+VARPTR(Q%(1)), JC

 12530 NEXT I

-12540 DOSVER = 1 + OS%

+12540 DOSVER = 1 + VARPTR(Q%(1))

 12550 CALL DOSVER(DVER%, OEM%)

-12560 DEF SEG

+12565 print "okay: ";oem%

 12570 TOTRIM$ = STR$(DVER% MOD 256):GOSUB 30000:DVERMAJOR$ = TOTRIM$

 12580 TOTRIM$ = STR$(INT(DVER% / 256)):GOSUB 30000:DVERMINOR$ = TOTRIM$

 12600 DATA &H55 : REM         push bp

-12601 DATA &H89, &HE5 : REM         mov bp, sp

-12602 DATA &HB0, &H00 : REM         mov al, 0

-12603 DATA &HB4, &H30 : REM         mov ah, 0x30

-12604 DATA &HCD, &H21 : REM         int 0x21

-12605 REM         ; Push actual version info onto stack

-12606 DATA &H50 : REM         push ax

-12607 DATA &H80, &HFF, &H00 : REM         cmp bh, 0x00

-12608 DATA &H75, &H0D : REM         jne notdrdos

-12609 REM         ; Check if it is DR_DOS lying about being PC_DOS

-12610 DATA &HB8, &H52, &H44 : REM         mov ax, 0x4452

-12611 DATA &HCD, &H21 : REM         int 0x21

-12612 DATA &H72, &H06 : REM         jc notdrdos

-12613 REM         ; Mark drdos as 0xee

-12614 DATA &HB7, &HEE : REM         mov bh, 0xee

-12615 REM         ; clear the stack in a meaningless way

-12616 DATA &H59 : REM         pop cx

-12617 REM         ; DrDos version, or something like it, is already in the ax reggy

-12618 DATA &HE9, &H1B, &H00 : REM         jmp alldone

-12619 REM notdrdos:

-12620 REM         ; pop the actual version into ax now that we're done

-12621 REM         ; with drdos checks

-12622 DATA &H58 : REM         pop ax

-12623 DATA &H3C, &H05 : REM         cmp al, 5

-12624 DATA &H74, &H0D : REM         je five

-12625 REM         ; if al is still zero, it's dos 1

-12626 DATA &H3C, &H00 : REM         cmp al, 0

-12627 DATA &H75, &H12 : REM         jne alldone

-12628 REM         ; Mark it as MS-DOS 1.0

-12629 DATA &HB0, &H01 : REM         mov al, 1

-12630 DATA &HB4, &H00 : REM         mov ah, 0

-12631 DATA &HB7, &HFF : REM         mov bh, 0xFF

-12632 DATA &HE9, &H09, &H00 : REM         jmp alldone

-12633 REM five:

-12634 REM         ; Store the OEM version

-12635 DATA &H53 : REM         push bx

-12636 DATA &HB8, &H06, &H33 : REM         mov ax, 0x3306

-12637 DATA &HCD, &H21 : REM         int 0x21

-12638 REM         ; True version should have been in bx

-12639 DATA &H53 : REM         push bx

-12640 DATA &H58 : REM         pop ax

-12641 DATA &H5B : REM         pop bx

-12642 REM alldone:

-12643 DATA &HB1, &H08 : REM         mov cl, 8

-12644 DATA &HD3, &HEB : REM         shr bx, cl

-12645 DATA &H30, &HFF : REM         xor bh, bh

-12646 REM         ; second argument - OEM code in high byte

-12647 DATA &H8B, &H7E, &H06 : REM         mov di, [bp]+6

-12648 DATA &H89, &H1D : REM         mov [di], bx

-12649 REM         ; first argument - major (al) minor(ah) versions

-12650 DATA &H8B, &H7E, &H08 : REM         mov di, [bp]+8

-12651 DATA &H89, &H05 : REM         mov [di], ax

-12652 DATA &H5D : REM         pop bp

-12653 DATA &HCA, &H04, &H00 : REM );          {        retf 4}

-12654 REM Total Bytes in Data: 75

+12601 DATA &H8B, &HEC : REM         mov bp, sp  ; needs to be &H8B, &HEC

+12602 DATA &H9C : REM         pushf

+12603 DATA &HB0, &H00 : REM         mov al, 0

+12604 DATA &HB4, &H30 : REM         mov ah, 0x30

+12605 DATA &HCD, &H21 : REM         int 0x21

+12606 REM         ; Push actual version info onto stack

+12607 DATA &H50 : REM         push ax

+12608 DATA &H80, &HFF, &H00 : REM         cmp bh, 0x00

+12609 DATA &H75, &H0D : REM         jne notdrdos

+12610 REM         ; Check if it is DR_DOS lying about being PC_DOS

+12611 DATA &HB8, &H52, &H44 : REM         mov ax, 0x4452

+12612 DATA &HCD, &H21 : REM         int 0x21

+12613 DATA &H72, &H06 : REM         jc notdrdos

+12614 REM         ; Mark drdos as 0xee

+12615 DATA &HB7, &HEE : REM         mov bh, 0xee

+12616 REM         ; clear the stack in a meaningless way

+12617 DATA &H59 : REM         pop cx

+12618 REM         ; DrDos version, or something like it, is already in the ax reggy

+12619 DATA &HE9, &H1B, &H00 : REM         jmp alldone

+12620 REM notdrdos:

+12621 REM         ; pop the actual version into ax now that we're done

+12622 REM         ; with drdos checks

+12623 DATA &H58 : REM         pop ax

+12624 DATA &H3C, &H05 : REM         cmp al, 5

+12625 DATA &H74, &H0D : REM         je five

+12626 REM         ; if al is still zero, it's dos 1

+12627 DATA &H3C, &H00 : REM         cmp al, 0

+12628 DATA &H75, &H12 : REM         jne alldone

+12629 REM         ; Mark it as MS-DOS 1.0

+12630 DATA &HB0, &H01 : REM         mov al, 1

+12631 DATA &HB4, &H00 : REM         mov ah, 0

+12632 DATA &HB7, &HFF : REM         mov bh, 0xFF

+12633 DATA &HE9, &H09, &H00 : REM         jmp alldone

+12634 REM five:

+12635 REM         ; Store the OEM version

+12636 DATA &H53 : REM         push bx

+12637 DATA &HB8, &H06, &H33 : REM         mov ax, 0x3306

+12638 DATA &HCD, &H21 : REM         int 0x21

+12639 REM         ; True version should have been in bx

+12640 DATA &H53 : REM         push bx

+12641 DATA &H58 : REM         pop ax

+12642 DATA &H5B : REM         pop bx

+12643 REM alldone:

+12644 DATA &HB1, &H08 : REM         mov cl, 8

+12645 DATA &HD3, &HEB : REM         shr bx, cl

+12646 DATA &H30, &HFF : REM         xor bh, bh

+12647 REM         ; second argument - OEM code in high byte

+12648 DATA &H8B, &H7E, &H06 : REM         mov di, [bp]+6

+12649 DATA &H89, &H1D : REM         mov [di], bx

+12650 REM         ; first argument - major (al) minor(ah) versions

+12651 DATA &H8B, &H7E, &H08 : REM         mov di, [bp]+8

+12652 DATA &H89, &H05 : REM         mov [di], ax

+12653 DATA &H9D : REM         popf

+12654 DATA &H5D : REM         pop bp

+12655 DATA &HCA, &H04, &H00

+12656 REM Total Bytes in Data: 77

+

 12699 RETURN

 

 12700 REM Returns the DOS type from the OEM% value