2022-03-06 22:28:52 +00:00
|
|
|
|
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
|
2022-03-06 22:28:52 +00:00
|
|
|
|
*--------------------------------------
|
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
|
2022-03-06 22:28:52 +00:00
|
|
|
|
stx BS.CALLX
|
|
|
|
|
|
and #$1F
|
|
|
|
|
|
tax
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda BS.ParamLByte,x
|
2022-03-06 22:28:52 +00:00
|
|
|
|
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
|
2022-03-06 22:28:52 +00:00
|
|
|
|
bcs GP.BADCALL
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2024-01-09 21:52:03 +00:00
|
|
|
|
ldx #$12 GP.BADCALL
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
2024-01-09 21:52:03 +00:00
|
|
|
|
GP.MLIERR1 cmp BS.MLIERTBL,x
|
|
|
|
|
|
beq GP.MLIERR2
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
|
|
|
|
|
dex
|
2024-01-09 21:52:03 +00:00
|
|
|
|
bpl GP.MLIERR1
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
|
|
|
|
|
ldx #$13
|
|
|
|
|
|
|
2024-01-09 21:52:03 +00:00
|
|
|
|
GP.MLIERR2 lda BS.BIERRTBL,x
|
2022-03-06 22:28:52 +00:00
|
|
|
|
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
|
|
|
|
*--------------------------------------
|
2022-03-06 22:28:52 +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
|
2024-01-17 21:04:13 +00:00
|
|
|
|
.BS 1 GP.RSHIMEM
|
|
|
|
|
|
.BS 1
|
|
|
|
|
|
jmp (BS.TBOX,x) GP.TBOX
|
2022-03-06 22:28:52 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
|
|
|
|
|
SAVE usr/src/basic.fx/basic.s.gp
|
|
|
|
|
|
LOAD usr/src/basic.fx/basic.s
|
|
|
|
|
|
ASM
|
