Patch101

10 REM >Patch101

20 REM Patch 80x86 Tube Client v1.00

30 REM J.G.Harston

40 REM Fixes:

50 REM OSFILE losing control block

60 REM Truncated OSWORD 5,14,15

70 REM Corrected error numbers

80 REM Upper Memory at &F000

100 A%=0:X%=1:os%=((USR&FFF4)AND&FF00)DIV256:s$="/":IFos%AND40:s$="."

110 in$ ="v100"+s$+"rom"

120 out$=LEFT$("Client86"+s$+"rom",16+(6*(os%<32)))

130 :

140 DIM mem% &3FFF:OSCLI"Load "+in$+" "+STR$~mem%

150 IF mem%!&1B6A<>&30302E31:PRINT"Not Client ROM v1.00":END

160 :

170 mem%?&1FB2=&53 :REM PUSH BX

180 mem%?&1FB3=&8B:mem%?&1FB4=&18 :REM MOV BX,[BX+SI]

190 mem%?&1FB5=&E8:mem%?&1FB6=&E8:mem%?&1FB7=&F9 :REM CALL &19A0

200 mem%?&1FB8=&8A:mem%?&1FB9=&C4 :REM MOV AL,AH

210 mem%?&1FBA=&E8:mem%?&1FBB=&2C:mem%?&1FBC=&F9 :REM CALL &18E9

220 mem%?&1FBD=&E8:mem%?&1FBE=&34:mem%?&1FBF=&F9 :REM CALL &18F4

230 mem%?&1FC0=&8A:mem%?&1FC1=&E0 :REM MOV AH,AL

240 mem%?&1FC2=&5B :REM POP BX

250 :

260 mem%?&1ED9=&80:REM OSWORD block lengths

270 mem%?&221B=&04

280 mem%?&2224=&10

290 :

300 mem%?&1137=220:REM Correct error numbers

310 mem%?&117F=220

320 mem%?&12A4=253

330 mem%?&1320=220

340 mem%?&1587=220

350 mem%?&1D86=249

360 mem%?&1D98=249

370 :

380 mem%?&0D55=&10:REM Count 64K banks

390 mem%?&0D70=&10

400 mem%?&0D76=&40

410 mem%?&0D7A=&10

420 :

430 mem%?&3E94=&F0:REM UCS=&F000

440 mem%?&3EC2=&F0:REM UCS=&F000

450 :

460 mem%?&1B6A=ASC"1"

470 mem%?&1B6B=ASC"."

480 mem%?&1B6C=ASC"0"

490 mem%?&1B6D=ASC"1"

500 :

510 OSCLI"Save "+out$+" "+STR$~mem%+"+4000 0 FFFBBC00"

520 OSCLI"Stamp "+out$

530 IF os%>5:*Quit