A2osX.95:LATEST & LAST bugfixes

This commit is contained in:
burniouf 2024-07-29 17:01:59 +02:00
parent adc09c0812
commit 335cd12297
10 changed files with 86 additions and 15 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

48
BASIC.FX/FORMAT.S.txt Normal file
View File

@ -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

View File

@ -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

View File

@ -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
bpl .1
sec
clc
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

28
ROOT/vttest.txt Normal file
View File

@ -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

View File

@ -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