A2osX/BASIC.FX/BASIC.S.GP..txt

164 lines
3.8 KiB
Plaintext
Raw Normal View History

NEW
AUTO 3,1
*--------------------------------------
2024-01-07 12:44:01 +00:00
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
*--------------------------------------
GP.OUTVECT0 .DA MON.COUT1
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 BS.NODEVERR
GP.INVECT0 .DA MON.KEYIN
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 BS.NODEVERR
GP.VECTOUT .DA MON.COUT1
GP.VECTIN .DA MON.KEYIN
GP.VDOSO .DA BS.JMP.GP.VSYSO
GP.VDOSI .DA BS.JMP.GP.VSYSI
GP.VSYSO .BS 2
GP.VSYSI .BS 2
GP.VDEFSLT .DA #6
GP.VDEFDRV .DA #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 1
GP.XTRNADDR .BS 2
GP.XLEN .BS 1
GP.XCNUM .BS 1
GP.AllowedBITS .BS 2
GP.FoundBITS .BS 2
GP.ParamA .BS 2
GP.ParamB .BS 3
GP.ParamE .BS 2
GP.ParamL .BS 2
GP.ParamS .BS 1
GP.ParamD .BS 1
GP.ParamF .BS 2
GP.ParamR .BS 2
GP.ParamV .BS 1
GP.ParamAT .BS 2
GP.ParamT .BS 1
GP.ParamINPR .BS 1
GP.VPATH1 .DA BS.CMDBUF.LEN
GP.VPATH2 .DA MLI.PATHBUF
*--------------------------------------
GP.GOSYSTEM sta GP.GOSYSTEM.C
stx BS.CALLX
and #$1F
tax
2022-03-13 12:52:24 +00:00
lda BS.ParamLByte,x
sta GP.GOSYSTEM.P
ldx BS.CALLX
jsr MLI
GP.GOSYSTEM.C .BS 1
GP.GOSYSTEM.P .DA GP.GOSYSTEM.P
bcs GP.BADCALL
rts
*--------------------------------------
GP.BADCALL ldx #$12
2024-01-07 12:44:01 +00:00
.1 cmp BS.MLIERTBL,x
beq .2
dex
2024-01-07 12:44:01 +00:00
bpl .1
ldx #$13
2024-01-07 12:44:01 +00:00
.2 lda BS.BIERRTBL,x
ldx BS.CALLX
sec
GP.RTS rts
*--------------------------------------
GP.CISPARE1 .BS 1
2022-03-15 19:33:19 +00:00
*--------------------------------------
GP.SCREATE .DA #7
GP.SCREATEPATH .DA BS.CMDBUF.LEN
GP.CRACCESS .DA #$C3
GP.CRTYPE .BS 1
GP.CRAUXTYPE .BS 2
GP.CRSTTYPE .BS 1
GP.DATETIME .BS 4
2022-03-15 19:33:19 +00:00
*--------------------------------------
GP.SDSTROY .DA #1
GP.SDSTROYPATH .DA BS.CMDBUF.LEN
2022-03-15 19:33:19 +00:00
*--------------------------------------
GP.SRECNAME .DA #2
GP.SRECNAMEOLD .DA BS.CMDBUF.LEN
GP.SRECNAMENEW .DA MLI.PATHBUF
2022-03-15 19:33:19 +00:00
*--------------------------------------
GP.SSGINFO .BS 1
GP.SSGINFOPATH .DA BS.CMDBUF.LEN
GP.FIACCESS .BS 1
GP.FITYPE .BS 1
GP.FIAUXTYPE .BS 2
GP.STTYPE .BS 1
GP.FIBLOKS .BS 2
GP.FIMDATE .BS 4
GP.FICDATE .BS 4
2022-03-15 19:33:19 +00:00
*--------------------------------------
GP.MLIMRKEOFBUF .DA #2
GP.MLIMRKEOFBUF.REFNUM
.BS 1
GP.SBUFADR .BS 3
2022-03-15 19:33:19 +00:00
*--------------------------------------
GP.SOPEN .DA #3
GP.TXTBUF .DA BS.CMDBUF.LEN
GP.OSYSBUF .BS 2
GP.OREFNUM .BS 1
2022-03-15 19:33:19 +00:00
*--------------------------------------
GP.SNEWLIN .DA #3
GP.NEWLREF .BS 1
GP.NLINEMASK .DA #$7F
GP.NLINECHAR .DA #13
2022-03-15 19:33:19 +00:00
*--------------------------------------
GP.MLIRW .DA #4
GP.MLIRW.REFNUM .BS 1
GP.MLIRW.DATAPTR .BS 2
GP.MLIRW.COUNT .BS 2
GP.MLIRW.TRANS .BS 2
2022-03-15 19:33:19 +00:00
*--------------------------------------
GP.MLICF .DA #1
GP.MLICF.REFNUM .BS 1
2022-03-15 19:33:19 +00:00
*--------------------------------------
GP.CCCSPARE .BS 1
2022-03-15 19:33:19 +00:00
*--------------------------------------
GP.COPYRIGHT .AS -"COPYRIGHT APPLE, 1983"
2024-01-07 12:44:01 +00:00
jmp BS.GETBUFR GP.GETBUFR
jmp BS.FREEBUFR GP.FREEBUFR
GP.RSHIMEM .BS 5
*--------------------------------------
MAN
SAVE usr/src/basic.fx/basic.s.gp
LOAD usr/src/basic.fx/basic.s
ASM