A2osX/BASIC.15/BASIC.S.GP..txt

156 lines
3.3 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
*--------------------------------------
GP.ENTRY jmp BS.ENTRY
GP.DOSCMD jmp BS.DOSCMD
GP.EXTRNCMD jmp GP.RTS
GP.ERROUT jmp BS.ERROUT
GP.PRINTERR jmp BS.PRINTERR
GP.ERRCODE .BS 1
*--------------------------------------
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
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
LBE8D cmp BS.MLIERTBL,x
beq LBE97
dex
bpl LBE8D
ldx #$13
LBE97 lda BS.BIERRTBL,x
ldx BS.CALLX
sec
GP.RTS rts
*--------------------------------------
GP.CISPARE1 .BS 1
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
GP.SDSTROY .DA #1
GP.SDSTROYPATH .DA BS.CMDBUF.LEN
GP.SRECNAME .DA #2
GP.SRECNAMEOLD .DA BS.CMDBUF.LEN
GP.SRECNAMENEW .DA MLI.PATHBUF
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 2
GP.FICDATE .BS 2
.BS 4
GP.MLIMRKEOFBUF .DA #2
GP.MLIMRKEOFBUF.REFNUM
.BS 1
GP.SBUFADR .BS 3
GP.SOPEN .DA #3
GP.TXTBUF .DA BS.CMDBUF.LEN
GP.OSYSBUF .BS 2
GP.OREFNUM .BS 1
GP.SNEWLIN .DA #3
GP.NEWLREF .BS 1
GP.NLINEMASK .DA #$7F
GP.NLINECHAR .DA #13
GP.MLIRW .DA #4
GP.MLIRW.REFNUM .BS 1
GP.MLIRW.DATAPTR .BS 2
GP.MLIRW.COUNT .BS 2
GP.MLIRW.TRANS .BS 2
GP.MLICF .DA #1
GP.MLICF.REFNUM .BS 1
GP.CCCSPARE .BS 1
GP.COPYRIGHT .AS -"COPYRIGHT APPLE, 1983"
GP.GETBUFR jmp BS.GETBUFR
GP.FREEBUFR jmp BS.FREEBUFR
GP.RSHIMEM .BS 5
*--------------------------------------
MAN
SAVE usr/src/basic.15/basic.s.gp
LOAD usr/src/basic.15/basic.s
ASM