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

165 lines
5.7 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
*--------------------------------------
2024-01-09 21:52:03 +00:00
.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
2022-03-13 12:52:24 +00:00
lda BS.ParamLByte,x
sta GP.GOSYSTEM.P
ldx BS.CALLX
jsr MLI
2024-01-09 21:52:03 +00:00
.BS 1 GP.GOSYSTEM.C
.DA GP.GOSYSTEM.P GP.GOSYSTEM.P
bcs GP.BADCALL
rts
*--------------------------------------
2024-01-09 21:52:03 +00:00
ldx #$12 GP.BADCALL
2024-01-09 21:52:03 +00:00
GP.MLIERR1 cmp BS.MLIERTBL,x
beq GP.MLIERR2
dex
2024-01-09 21:52:03 +00:00
bpl GP.MLIERR1
ldx #$13
2024-01-09 21:52:03 +00:00
GP.MLIERR2 lda BS.BIERRTBL,x
ldx BS.CALLX
sec
2024-01-09 21:52:03 +00:00
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
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
.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