A2osX/BASIC.FX/BASIC.S.D.txt
2022-05-25 20:46:02 +02:00

215 lines
3.9 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
*--------------------------------------
BS.SYSIOVECTS .DA BS.IO.OUT
.DA BS.IO.IN
.DA BS.IO.OUT.TRACE
.DA BS.IO.IN0
.DA BS.IO.OUT.CAT
.DA BS.IO.IN0
* .DA BS.VSYSO
*--------------------------------------
BS.ParamLByte .DA #GP.SCREATE
.DA #GP.SDSTROY
.DA #GP.SRECNAME
.DA #GP.SSGINFO
.DA #GP.SSGINFO
.DA #GP.MLIMRKEOFBUF
.DA #GP.SDSTROY
.DA #GP.SDSTROY
.DA #GP.SOPEN
.DA #GP.SNEWLIN
.DA #GP.MLIRW
.DA #GP.MLIRW
.DA #GP.MLICF
.DA #GP.MLICF
.DA #GP.MLIMRKEOFBUF
.DA #GP.MLIMRKEOFBUF
.DA #GP.MLIMRKEOFBUF
.DA #GP.MLIMRKEOFBUF
.DA #GP.MLIMRKEOFBUF
.DA #GP.MLIMRKEOFBUF
*--------------------------------------
BS.AS.KW .DA #$80
.DA #$81
.DA #$82
.DA #$83
.DA #$84
.DA #$85
.DA #$86
.DA #$87
.DA #$88
.DA #$89
.DA #$8A
.DA #$8B
.DA #BS.AS.KW.CALL-BS.AS.KW0
.DA #$8D
.DA #$8E
.DA #$8F
.DA #$90
.DA #$91
.DA #$92
.DA #$93
.DA #$94
.DA #$95
.DA #$96
.DA #$97
.DA #$98
.DA #$99
.DA #$9A
.DA #BS.AS.KW.TRACE-BS.AS.KW0
.DA #BS.AS.KW.NOTRACE-BS.AS.KW0
.DA #BS.AS.KW.NORMAL-BS.AS.KW0
.DA #BS.AS.KW.INVERSE-BS.AS.KW0
.DA #BS.AS.KW.FLASH-BS.AS.KW0
.DA #$A0
.DA #$A1
.DA #$A2
.DA #$A3
.DA #$A4
.DA #$A5
.DA #BS.AS.KW.RESUME-BS.AS.KW0
.DA #$A7
.DA #$A8
.DA #$A9
.DA #BS.AS.KW.LET-BS.AS.KW0
.DA #$AB
.DA #$AC
.DA #BS.AS.KW.IF-BS.AS.KW0
.DA #$AE
.DA #$AF
.DA #$B0
.DA #$B1
.DA #$B2
.DA #$B3
.DA #$B4
.DA #$B5
.DA #$B6
.DA #$B7
.DA #$B8
.DA #$B9
.DA #BS.AS.KW.PRINT-BS.AS.KW0
.DA #$BB
.DA #BS.AS.KW.LIST-BS.AS.KW0
.DA #$BD
.DA #$BE
.DA #$BF
*--------------------------------------
BS.MLIERTBL .DA #$28
.DA #$2B
.DA #$40
.DA #$41
.DA #$42
.DA #$43
.DA #$44
.DA #$45
.DA #$46
.DA #$47
.DA #$48
.DA #$49
.DA #$4B
.DA #$4C
.DA #$4D
.DA #$4E
.DA #$50
.DA #$53
.DA #$56
*--------------------------------------
BS.BIERRTBL .DA #$03
.DA #$04
.DA #$10
.DA #$0C
.DA #$0C
.DA #$12
.DA #$06
.DA #$06
.DA #$07
.DA #$13
.DA #$09
.DA #$11
.DA #$0D
.DA #$05
.DA #$02
.DA #$0A
.DA #$14
.DA #$0B
.DA #$0C
.DA #$08
*--------------------------------------
XBBB7 .BS 1
XBBB8 .BS 1
*--------------------------------------
*BS.IVERSION .DA #5
*--------------------------------------
* XBBD6 .BS 1
XBBDC .BS 1
*--------------------------------------
BS.TXTTAB .DA $0800
BS.MEMSIZE .DA HIMEM-$400
XBBE2 .BS 1
BS.BUFPAGE .BS 1
BS.BAS.HDR .BS 5
XBBE9 .BS 1
XBBEA .BS 1
XBBEB .BS 1
XBBEC .BS 1
BS.ReqMem .BS 2
BS.BUFPAGEs .BS 7
BS.REFNUMs .BS 8
BS.REFNUM .BS 1
BS.RecordSize .BS 2
.BS 2
BS.CALLX .BS 1
BS.GetCharSep .BS 1
BS.GetCharMax .BS 1
BS.KW.JMPADDR .BS 2
XBC08 .BS 1
XBC09 .BS 1
BS.TMPBUF4 .BS 4
XBC0E .BS 1
XBC0F .BS 1
XBC10 .BS 1
BS.CATWIDTH .BS 1
BS.CAT.EL .BS 1
BS.CAT.EPB .BS 1
*BS.CAT.FileCnt .BS 2
BS.CAT.EICB .BS 1
*--------------------------------------
ASX.PGRMSTART .BS 2
ASX.VARSTART .BS 2
ASX.ARRAYSTART .BS 2
ASX.ARRAYEND .BS 2
ASX.STRINGSTART .BS 2
ASX.STRINGPTR .BS 2
ASX.HIMEM .BS 2
*--------------------------------------
.LIST ON
BS.FREESPACE .EQ $BC17-*
.LIST OFF
.BS BS.FREESPACE
*--------------------------------------
BS.CMDBUF.LEN .BS 1 keep this in $BC page, flagged in MLI.MEMTABL
BS.CMDBUF .BS 65
*--------------------------------------
BS.OpenFiles .BS 167
*--------------------------------------
MAN
SAVE usr/src/basic.fx/basic.s.d
LOAD usr/src/basic.fx/basic.s
ASM