mirror of
https://github.com/A2osX/A2osX.git
synced 2024-05-31 16:41:30 +00:00
231 lines
5.0 KiB
Plaintext
231 lines
5.0 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST OFF
|
||
.OP 65c02
|
||
.OR $2000
|
||
.TF BASIC.SYSTEM,TSYS
|
||
*--------------------------------------
|
||
.MA DEBUG
|
||
:1 bit $C000
|
||
bpl :1
|
||
sta $C010
|
||
.EM
|
||
*--------------------------------------
|
||
.INB inc/monitor.i
|
||
.INB inc/io.i
|
||
.INB inc/io.d2.i
|
||
.INB inc/mli.i
|
||
.INB inc/bs.i
|
||
*--------------------------------------
|
||
HIMEM .EQ $A000
|
||
LOWERCASE .EQ 1
|
||
*--------------------------------------
|
||
ZPPtr1 .EQ 0
|
||
ZPPtr2 .EQ 2
|
||
ZPInBufPtr .EQ 4
|
||
ZPOutBufPtr .EQ 6
|
||
|
||
ZPnCnt .EQ 8
|
||
|
||
ZPInMask .EQ 10
|
||
ZPBLOfsLBits .EQ 11
|
||
ZPBLOfsHBits .EQ 12
|
||
ZPBLLenBits .EQ 13
|
||
bRAMFlag .EQ 14
|
||
|
||
ZPCode .EQ 15
|
||
|
||
ZP.WNDLFT .EQ $20
|
||
ZP.WNDWDT .EQ $21
|
||
ZP.WNDTOP .EQ $22
|
||
ZP.WNDBOT .EQ $23
|
||
ZP.CH .EQ $24
|
||
ZP.CV .EQ $25
|
||
ZP.BASL .EQ $28
|
||
ZP.BASH .EQ $29
|
||
|
||
ZP.PROMPT .EQ $33
|
||
|
||
ZP.CSW .EQ $36
|
||
ZP.KSW .EQ $38
|
||
|
||
ZP.PCL .EQ $3A
|
||
ZP.PCH .EQ $3B
|
||
ZP.A1L .EQ $3C
|
||
ZP.A1H .EQ $3D
|
||
ZP.A2L .EQ $3E
|
||
ZP.A2H .EQ $3F
|
||
ZP.A4L .EQ $40
|
||
ZP.A4H .EQ $41
|
||
|
||
ZP.CMD .EQ $42
|
||
ZP.UNITNUM .EQ $43
|
||
ZP.BUFPTR .EQ $44
|
||
ZP.BLKNUM .EQ $46
|
||
|
||
AS.LINNUM .EQ $50
|
||
|
||
AS.PGRMSTART .EQ $67
|
||
AS.VARSTART .EQ $69
|
||
AS.ARRAYSTART .EQ $6B
|
||
AS.ARRAYEND .EQ $6D
|
||
AS.STRINGSTART .EQ $6F
|
||
AS.STRINGPTR .EQ $71
|
||
AS.HIMEM .EQ $73
|
||
|
||
AS.CURLINE .EQ $75
|
||
AS.LOWTR .EQ $9B
|
||
AS.PGRMEND .EQ $AF
|
||
AS.TXTPTR .EQ $B8
|
||
AS.ERRFLG .EQ $D8
|
||
AS.ERRNUM .EQ $DE
|
||
AS.TRCFLG .EQ $F2
|
||
AS.REMSTK .EQ $F8
|
||
*--------------------------------------
|
||
ZPXPtr1 .EQ 0
|
||
ZPXPtr2 .EQ 2
|
||
*--------------------------------------
|
||
IO.LINEBUF .EQ $200
|
||
*--------------------------------------
|
||
DIRENTBUF .EQ $259
|
||
DIRENTBUF.STNL .EQ $25D
|
||
DIRENTBUF.TYPE .EQ $269
|
||
|
||
DIRENTBUF.UBLK .EQ $26C
|
||
DIRENTBUF.EOF .EQ $26E
|
||
|
||
DIRENTBUF.ACCESS .EQ $277
|
||
DIRENTBUF.AUXT .EQ $278
|
||
|
||
MLI.PATHBUF .EQ $280
|
||
*--------------------------------------
|
||
AUX.RAMSIG .EQ $3D0 FFFEF3+"RAM"
|
||
*--------------------------------------
|
||
DOS.WARMSTART .EQ $03D0
|
||
DOS.COLDSTART .EQ $03D3
|
||
DOS.FILEMGR .EQ $03D6
|
||
DOS.RWTS .EQ $03D9
|
||
DOS.FILEMGRPARM .EQ $03DC
|
||
DOS.RWTSPARM .EQ $03E3
|
||
DOS.RECONNECT .EQ $03DA
|
||
DOS.JMPBRKVECT .EQ $03EF
|
||
|
||
MON.AMPERSANDJMP .EQ $03F5
|
||
MON.USRJMP .EQ $03F8
|
||
MON.NMIJMP .EQ $03FB
|
||
MON.IRQVECT .EQ $03FE
|
||
MON.BRKVECT .EQ $03F0
|
||
MON.POWERUP .EQ $03F2
|
||
MON.POWERUPBYTE .EQ $03F4
|
||
*--------------------------------------
|
||
MLI.DEVPTRS .EQ $BF10
|
||
MLI.DEVPTRS3D2 .EQ $BF26
|
||
MLI.DEVNUM .EQ $BF30
|
||
MLI.DEVCNT .EQ $BF31
|
||
MLI.DEVLST .EQ $BF32
|
||
MLI.MEMTABL .EQ $BF58
|
||
MLI.DATETIME .EQ $BF90
|
||
MLI.LEVEL .EQ $BF94
|
||
MLI.MACHID .EQ $BF98
|
||
MLI.SLTBYT .EQ $BF99
|
||
MLI.PFIXPTR .EQ $BF9A
|
||
MLI.MLIACTV .EQ $BF9B
|
||
MLI.IVERSION .EQ $BFFD
|
||
*--------------------------------------
|
||
AS.RESTART .EQ $D43C
|
||
AS.RESTART1 .EQ $D43F
|
||
AS.FINDLINE .EQ $D61A
|
||
AS.CLEAR1 .EQ $D665
|
||
AS.NEXTSTMT .EQ $D7D2
|
||
AS.EXECSTMT .EQ $D820
|
||
AS.BITERRFLG .EQ $D865
|
||
AS.NORMAL .EQ $F273
|
||
AS.COLDBOOT .EQ $E000
|
||
AS.INTPRINTAX .EQ $ED24
|
||
*--------------------------------------
|
||
MON.BREAKV .EQ $FA59
|
||
MON.INIT .EQ $FB2F
|
||
MON.HOME .EQ $FC58
|
||
MON.CLREOL .EQ $FC9C
|
||
MON.RDKEY .EQ $FD0C
|
||
MON.KEYIN0 .EQ $FD10
|
||
MON.KEYIN .EQ $FD1B
|
||
MON.GETLN .EQ $FD6A
|
||
MON.CROUT .EQ $FD8E
|
||
MON.COUT .EQ $FDED
|
||
MON.COUT1 .EQ $FDF0
|
||
MON.IIGSID .EQ $FE1F
|
||
MON.SETINV .EQ $FE80
|
||
MON.SETNORM .EQ $FE84
|
||
MON.SETKBD .EQ $FE89
|
||
MON.SETVID .EQ $FE93
|
||
MON.ENTERMON .EQ $FF69
|
||
*--------------------------------------
|
||
.INB usr/src/basic.fx/basic.s.ldr
|
||
*--------------------------------------
|
||
X.Unpak.XatYA sty ZPOutBufPtr
|
||
sta ZPOutBufPtr+1
|
||
lda PAKME.Table,x
|
||
sta ZPInBufPtr
|
||
lda PAKME.Table+1,x
|
||
sta ZPInBufPtr+1
|
||
.INB usr/src/shared/x.unpak.s
|
||
*--------------------------------------
|
||
PAKME.Table
|
||
PAKME.MAIN .DA MAIN.PAK
|
||
PAKME.GP .DA GP.PAK
|
||
PAKME.AUX .DA AUX.PAK
|
||
|
||
MAIN.PAK .DA #0
|
||
.DA MAIN.LEN
|
||
|
||
LDR.MAIN.SRC .PH HIMEM
|
||
LDR.MAIN.DST .EQ *
|
||
.INB usr/src/basic.fx/basic.s.a
|
||
.INB usr/src/basic.fx/basic.s.b
|
||
.INB usr/src/basic.fx/basic.s.c
|
||
.INB usr/src/basic.fx/basic.s.d
|
||
MAIN.LEN .EQ *-LDR.MAIN.DST
|
||
.EP
|
||
|
||
GP.PAK .DA #0
|
||
.DA GP.LEN
|
||
|
||
LDR.GP.SRC .PH $BE00
|
||
LDR.GP.DST .EQ *
|
||
.INB usr/src/basic.fx/basic.s.gp
|
||
GP.LEN .EQ *-LDR.GP.DST
|
||
.EP
|
||
|
||
AUX.PAK .DA #0
|
||
.DA AUX.LEN
|
||
|
||
LDR.AUX.SRC .EQ *
|
||
LDR.AUX.DST .EQ $E000
|
||
BB.PRODOS .EQ $E000
|
||
.INB usr/src/shared/x.bb.prodos.s
|
||
BB.SOS .EQ $E200
|
||
.INB usr/src/shared/x.bb.sos.s
|
||
BB.FX2 .EQ $E400
|
||
.INB usr/src/shared/x.bb.fx2.s
|
||
X.TRkFMT.Z .EQ $10
|
||
.PH $E800
|
||
.INB usr/src/shared/x.trkfmt.s
|
||
.BS $E900-*
|
||
.LIST OFF
|
||
.INB usr/src/basic.fx/basic.s.xf
|
||
.INB usr/src/basic.fx/basic.s.xm
|
||
.INB usr/src/basic.fx/basic.s.xr
|
||
.INB usr/src/basic.fx/basic.s.x
|
||
.EP
|
||
AUX.LEN .EQ *-LDR.AUX.SRC
|
||
*--------------------------------------
|
||
.AS "PAKME" TAG
|
||
.DA $2000 BIN ORG
|
||
.DA #3 Chunk Count
|
||
.DA PAKME.Table Chunks
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/basic.fx/basic.s
|
||
ASM
|