A2osX/BASIC.FX/BASIC.S.GP..txt
burniouf 34f9969c0c LIBTUI: Bugfix in TLINE
BASIC.FX: bugfix in PATH, relocation code, Added Toolbox function "printf"
2024-01-17 22:04:13 +01:00

165 lines
5.7 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
AUTO 3,1
*--------------------------------------
jmp BS.ENTRY GP.ENTRY
jmp BS.DOSCMD GP.DOSCMD
jmp GP.RTS GP.EXTRNCMD
jmp BS.ERROUT GP.ERROUT
jmp BS.PRINTERR GP.PRINTERR
.BS 1 GP.ERRCODE
*--------------------------------------
.DA MON.COUT1 GP.OUTVECT0
.DA BS.NODEVERR GP.OUTVECT1
.DA BS.NODEVERR GP.OUTVECT2
.DA BS.NODEVERR GP.OUTVECT3
.DA BS.NODEVERR GP.OUTVECT4
.DA BS.NODEVERR GP.OUTVECT5
.DA BS.NODEVERR GP.OUTVECT6
.DA BS.NODEVERR GP.OUTVECT7
.DA MON.KEYIN GP.INVECT0
.DA BS.NODEVERR GP.INVECT1
.DA BS.NODEVERR GP.INVECT2
.DA BS.NODEVERR GP.INVECT3
.DA BS.NODEVERR GP.INVECT4
.DA BS.NODEVERR GP.INVECT5
.DA BS.NODEVERR GP.INVECT6
.DA BS.NODEVERR GP.INVECT7
.DA MON.COUT1 GP.VECTOUT
.DA MON.KEYIN GP.VECTIN
.DA BS.JMP.GP.VSYSO GP.VDOSO
.DA BS.JMP.GP.VSYSI GP.VDOSI
.BS 2 GP.VSYSO
.BS 2 GP.VSYSI
.DA #6 GP.VDEFSLT
.DA #1 GP.VDEFDRV
.BS 1 GP.PREGA
.BS 1 GP.PREGX
.BS 1 GP.PREGY
.BS 1 GP.DTRACE
.BS 1 GP.STATE
.BS 1 GP.EXECACTV
.BS 1 GP.IFILACTV
.BS 1 GP.OFILACTV
.BS 1 GP.PFXACTV
.BS 1 GP.DIRFLG
.BS 1 GP.EDIRFLG
.BS 1 GP.STRINGS
.BS 1 GP.TBUFPTR
.BS 1 GP.INPTR
.BS 1 GP.CHRLAST
.BS 1 GP.OPENCNT
.BS 1 GP.EXECFILE
.BS 1 GP.CATFLAG
.BS 2 GP.XTRNADDR
.BS 1 GP.XLEN
.BS 1 GP.XCNUM
.BS 2 GP.AllowedBITS
.BS 2 GP.FoundBITS
.BS 2 GP.ParamA
.BS 3 GP.ParamB
.BS 2 GP.ParamE
.BS 2 GP.ParamL
.BS 1 GP.ParamS
.BS 1 GP.ParamD
.BS 2 GP.ParamF
.BS 2 GP.ParamR
.BS 1 GP.ParamV
.BS 2 GP.ParamAT
.BS 1 GP.ParamT
.BS 1 GP.ParamINPR
.DA BS.CMDBUF.LEN GP.VPATH1
.DA MLI.PATHBUF GP.VPATH2
*--------------------------------------
sta GP.GOSYSTEM.C GP.GOSYSTEM
stx BS.CALLX
and #$1F
tax
lda BS.ParamLByte,x
sta GP.GOSYSTEM.P
ldx BS.CALLX
jsr MLI
.BS 1 GP.GOSYSTEM.C
.DA GP.GOSYSTEM.P GP.GOSYSTEM.P
bcs GP.BADCALL
rts
*--------------------------------------
ldx #$12 GP.BADCALL
GP.MLIERR1 cmp BS.MLIERTBL,x
beq GP.MLIERR2
dex
bpl GP.MLIERR1
ldx #$13
GP.MLIERR2 lda BS.BIERRTBL,x
ldx BS.CALLX
sec
rts GP.RTS
*--------------------------------------
.BS 1 GP.CISPARE1
*--------------------------------------
.DA #7 GP.SCREATE
.DA BS.CMDBUF.LEN GP.SCREATEPATH
.DA #$C3 GP.CRACCESS
.BS 1 GP.CRTYPE
.BS 2 GP.CRAUXTYPE
.BS 1 GP.CRSTTYPE
.BS 4 GP.DATETIME
*--------------------------------------
.DA #1 GP.SDSTROY
.DA BS.CMDBUF.LEN GP.SDSTROYPATH
*--------------------------------------
.DA #2 GP.SRECNAME
.DA BS.CMDBUF.LEN GP.SRECNAMEOLD
.DA MLI.PATHBUF GP.SRECNAMENEW
*--------------------------------------
.BS 1 GP.SSGINFO
.DA BS.CMDBUF.LEN GP.SSGINFOPATH
.BS 1 GP.FIACCESS
.BS 1 GP.FITYPE
.BS 2 GP.FIAUXTYPE
.BS 1 GP.STTYPE
.BS 2 GP.FIBLOKS
.BS 4 GP.FIMDATE
.BS 4 GP.FICDATE
*--------------------------------------
.DA #2 GP.MLIMRKEOFBUF
.BS 1 GP.MLIMRKEOFBUF.REFNUM
.BS 3 GP.SBUFADR
*--------------------------------------
.DA #3 GP.SOPEN
.DA BS.CMDBUF.LEN GP.TXTBUF
.BS 2 GP.OSYSBUF
.BS 1 GP.OREFNUM
*--------------------------------------
.DA #3 GP.SNEWLIN
.BS 1 GP.NEWLREF
.DA #$7F GP.NLINEMASK
.DA #13 GP.NLINECHAR
*--------------------------------------
.DA #4 GP.MLIRW
.BS 1 GP.MLIRW.REFNUM
.BS 2 GP.MLIRW.DATAPTR
.BS 2 GP.MLIRW.COUNT
.BS 2 GP.MLIRW.TRANS
*--------------------------------------
.DA #1 GP.MLICF
.BS 1 GP.MLICF.REFNUM
*--------------------------------------
.BS 1 GP.CCCSPARE
*--------------------------------------
GP.COPYRIGHT .AS -"COPYRIGHT APPLE, 1983"
jmp BS.GETBUFR GP.GETBUFR
jmp BS.FREEBUFR GP.FREEBUFR
.BS 1 GP.RSHIMEM
.BS 1
jmp (BS.TBOX,x) GP.TBOX
*--------------------------------------
MAN
SAVE usr/src/basic.fx/basic.s.gp
LOAD usr/src/basic.fx/basic.s
ASM