A2osX.95:LATEST & LAST bugfixes

BASIC.FX/FORMAT.S.txt

@@ -0,0 +1,48 @@
+NEW
+  AUTO 3,1
+				.LIST OFF
+				.OP	65c02
+				.OR $2000
+				.TF BIN/fmt
+*--------------------------------------
+				.MA	DEBUG
+:1				bit $C000
+				bpl :1
+				sta	$C010
+				.EM
+*--------------------------------------
+				.INB inc/bs.i
+				.INB inc/mon.i
+*--------------------------------------
+HEADER			cld						Allows BRUN at ORG=$2000
+				jmp CODE.START			for debugging without relocation
+				.DA #CMDBITS0.FNOPT+CMDBITS0.CRFLG
+				.DA #CMDBITS1.A+CMDBITS1.B+CMDBITS1.E+CMDBITS1.F+CMDBITS1.SD+CMDBITS1.F
+				.DA 0					spare
+				.DA CODE.END
+				.DA DATA.END
+				.DA 0
+				.DA 0					spare....16 bytes header
+*--------------------------------------
+R.MSG.USAGE		.DA MSG.USAGE
+				.DA 0
+*--------------------------------------
+CODE.START		
+				
+				ldy R.MSG.USAGE
+				lda R.MSG.USAGE+1
+				ldx #GP.TBOX.PrintF
+				jsr GP.TBOX
+
+.8				clc
+				rts
+
+CODE.END		.EQ *
+*--------------------------------------
+MSG.USAGE		.CZ -"\r\rHello from fmt EXT command.\r\r"
+				
+DATA.END		.EQ *
+*--------------------------------------
+MAN
+SAVE usr/src/basic.fx/fmt.s
+ASM

BIN/ARC.S.txt

@@ -16,7 +16,7 @@ X.COPY.TO.DEST	.EQ 0
 X.DELETE.SOURCE	.EQ 0
 X.RESET.SRC.DIR	.EQ 0					single pass
 *--------------------------------------
-DBG				.EQ 1
+DBG				.EQ 0
 *--------------------------------------
 				.DUMMY
 				.OR ZPBIN

ProDOS.FX/ProDOS.S.LDR.txt

@@ -1062,25 +1062,24 @@ LDR.CheckDiskID	ldy #5
 				bra .8
 *--------------------------------------
 LDR.FindFreeDevPtr
-				ldx #LDR.DEVPTRS.CNT-1
+				ldx #LDR.DEVPTRS.CNT
 LDR.FindFreeDevPtrNext
+				dex
+				bmi .9
 
-.1  			ldy LDR.DEVPTRS.IDX,x
+				ldy LDR.DEVPTRS.IDX,x
 				lda GP.DEVPTRS,y	 		device driver table 1
 				cmp #XDOS.NoDevice
-				bne .2
+				bne LDR.FindFreeDevPtrNext
 
 				lda GP.DEVPTRS+1,y
 				cmp /XDOS.NoDevice
-				beq .8
+				bne LDR.FindFreeDevPtrNext
 
-.2  			dex
+				clc
-				bpl .1
-
-				sec
 				rts
 
-.8				clc
+.9				sec
 				rts
 *--------------------------------------
 LDR.SetDevID	ldy #$FE				check attributes byte.
@@ -1437,5 +1436,5 @@ LDR.SlotDevCnt	.BS 7
 *--------------------------------------
 MAN
 SAVE usr/src/prodos.fx/prodos.s.ldr
-LOAD usr/src/prodos.fx/pdos8m.s
+LOAD usr/src/prodos.fx/prodos.s
 ASM

ROOT/vttest.txt

@@ -0,0 +1,28 @@
+NEW
+  AUTO 3,1
+#!/bin/sh
+
+# echo -e \e(B
+echo -e \e)0
+
+echo -e \x0E
+echo "lqqqqqqqqqqk"
+echo -e "x\x0F Text Box \x0Ex"
+echo "mqqqqqqqqqqj"
+echo -e \x0F
+
+echo -e "`abcdefghijklmnopqrstuvqxyz{\x7C}~"
+echo -e "\x0E`abcdefghijklmnopqrstuvqxyz{\x7C}~\x0F"
+
+echo -e "`abcdefghijklmnopqrstuvqxyz{\x7C}~"
+echo -e "\x0E`abcdefghijklmnopqrstuvqxyz{\x7C}~\x0F"
+
+ECHO -e \e[7m INVERSE inverse \e[0m
+pause
+echo -e Hide Cursor...\e[?25l
+pause
+echo -e Show Cursor...\e[?25h
+pause
+
+MAN
+TEXT root/vttest

SHARED/X.UDETH.DRV.S.txt

@@ -417,8 +417,6 @@ READ			php
 				jsr IO.ExecA
 				bcs READWRITE.99
 
-				lda UD.IO.DoDMA,x
-
 .1				lda UD.IO.Status,x
 				bmi .1
 
@@ -524,8 +522,6 @@ WRITE			php
 				jsr IO.ExecA
 				bcs READWRITE.99
 
-				lda UD.IO.DoDMA,x
-
 .1				lda UD.IO.Status,x
 				bmi .1