mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-25 05:32:20 +00:00
165 lines
5.7 KiB
Plaintext
165 lines
5.7 KiB
Plaintext
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
|