Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-07 17:29:34 +00:00
Code Issues Projects Releases Wiki Activity
d20a7c8277
A2osX/BASIC.FX/BASIC.S.D.txt

659 lines
11 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.KW.LEN.OLD .DA #$47
* .DA #$5F
* .DA #$18
* .DA #$30
* .DA #$15
* .DA #$BD
* .DA #$3D
* .DA #$28
* .DA #$0D
* .DA #$41
* .DA #$20
* .DA #$50
* .DA #$84
* .DA #$0D
* .DA #$04
* .DA #$46
* .DA #$6A
* .DA #$4C
* .DA #$5C
* .DA #$35
* .DA #$A5
* .DA #$70
* .DA #$2D
* .DA #$12
* .DA #$65
* .DA #$39
* .DA #$41
* .DA #$88
* .DA #$1C
* .DA #$B5
* .DA #$D8
*--------------------------------------
*BS.KW.TABLE.OLD .AS "BSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND"
*--------------------------------------
*BS.KW.JMP.OLD .DA BS.JMP.XTRNADDR $00
* .DA BS.KW.IN
* .DA BS.KW.PR
* .DA BS.KW.CAT
* .DA BS.KW.FRE
* .DA BS.KW.BYE
* .DA BS.KW.RUN
* .DA BS.KW.BRUN
* .DA BS.KW.EXEC $10
* .DA BS.KW.LOAD
* .DA BS.KW.LOCK
* .DA BS.KW.OPEN
* .DA BS.KW.READ
* .DA BS.KW.SAVE
* .DA BS.KW.BLOAD
* .DA BS.KW.BSAVE
* .DA BS.KW.CHAIN $20
* .DA BS.KW.CLOSE
* .DA BS.KW.FLUSH
* .DA BS.KW.NOMON
* .DA BS.KW.STORE
* .DA BS.KW.WRITE
* .DA BS.KW.APPEND
* .DA BS.KW.CREATE
* .DA BS.KW.DELETE $30
* .DA BS.KW.PREFIX
* .DA BS.KW.RENAME
* .DA BS.KW.UNLOCK
* .DA BS.KW.VERIFY
* .DA BS.KW.CATALOG
* .DA BS.KW.RESTORE
* .DA BS.KW.POSITION
* .DA BS.KW.DASH $40
*--------------------------------------
*BS.KW.PBITS.OLD .DA $8040 IN
* .DA $8040 PR
* .DA $0495 CAT
* .DA $0000 FRE
* .DA $0000 BYE
* .DA $0C11 RUN
* .DA $F401 BRUN
* .DA $0701 EXEC
* .DA $0401 LOAD
* .DA $0401 LOCK
* .DA $142D OPEN
* .DA $5321 READ
* .DA $0409 SAVE
* .DA $F405 BLOAD
* .DA $F40D BSAVE
* .DA $0C01 CHAIN
* .DA $0001 CLOSE
* .DA $0001 FLUSH
* .DA $0000 NOMON
* .DA $0409 STORE
* .DA $4321 WRITE
* .DA $142D APPEND
* .DA $040D CREATE
* .DA $0401 DELETE
* .DA $0491 PREFIX
* .DA $0403 RENAME
* .DA $0401 UNLOCK
* .DA $0411 VERIFY
* .DA $0495 CATALOG
* .DA $0401 RESTORE
* .DA $0321 POSITION
* .DA $0401 DASH
*--------------------------------------
BS.KW.OPT .AS "ABELS@FRVD"
*--------------------------------------
BS.WHICHBITS
* .HS 8040201008040201
BS.KW.OPT.PBITSLO
.DA #$80
.DA #$40
.DA #$20
.DA #$10
.DA #$08
.DA #$04
.DA #$02
.DA #$01
.DA #$00
.DA #$04
BS.KW.OPT.PBITSHI
.DA #$05
.DA #$12
.DA #$19
.DA #$21
.DA #$24
.DA #$28
.DA #$31
.DA #$39
.DA #$40
.DA #$45
BS.PRODOSTYPES.H
.DA #$FF
.DA #$FE
.DA #$FD
.DA #$FC
.DA #$FB
.DA #$FA
.DA #$F0
.DA #$0F
.DA #$06
.DA #$04
.DA #$EF
.DA #$1A
.DA #$1B
.DA #$19
.DA #$B3
BS.PRODOSTYPES.ASC
.AS -"S16ADBASPAWPPASTXTBINDIRCMDINTIVRBASVARRELSYS"
BS.MONTHS .AS -"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
BS.NODATE .AS -"<NO DATE>"
*--------------------------------------
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
*--------------------------------------
*BS.ERRCODES.OLD .DA #$54
* .DA #$5B
* .DA #$66
* .DA #$6F
* .DA #$75
* .DA #$75
* .DA #$7E
* .DA #$84
* .DA #$8A
* .DA #$91
* .DA #$9B
* .DA #$A8
* .DA #$B4
* .DA #$BF
* .DA #$C9
* .DA #$D1
* .DA #$D9
* .DA #$E1
* .DA #$EC
* .DA #$F3
*--------------------------------------
*BS.TBL6.OLD .AS -"ACDEFILMNORTU "
* .DA #$00
*--------------------------------------
* .DA #$00
* .AS -"BGHKPSVWXY/().:"
*--------------------------------------
*BS.TBL7.OLD .DA #$2A
* .DA #$05
* .DA #$0A
* .DA #$B6
* .DA #$02
* .DA #$03
* .DA #$CE
* .DA #$10
* .DA #$50
* .DA #$57
* .DA #$4E
* .DA #$2A
* .DA #$80
* .DA #$5D
* .DA #$C4
* .DA #$BF
* .DA #$E9
* .DA #$18
* .DA #$4E
* .DA #$00
* .DA #$10
* .DA #$C0
* .DA #$A0
* .DA #$54
* .DA #$EE
* .DA #$01
* .DA #$7A
* .DA #$20
* .DA #$40
* .DA #$6E
* .DA #$00
* .DA #$1E
* .DA #$8A
* .DA #$36
* .DA #$56
* .DA #$43
* .DA #$00
* .DA #$2F
* .DA #$2B
* .DA #$41
* .DA #$C4
* .DA #$3E
* .DA #$00
* .DA #$40
* .DA #$49
* .DA #$35
* .DA #$67
* .DA #$4E
* .DA #$06
* .DA #$D0
* .DA #$1C
* .DA #$0A
* .DA #$05
* .DA #$4F
* .DA #$01
* .DA #$7A
* .DA #$20
* .DA #$40
* .DA #$6E
* .DA #$5B
* .DA #$44
* .DA #$0F
* .DA #$00
* .DA #$16
* .DA #$01
* .DA #$7A
* .DA #$20
* .DA #$40
* .DA #$6E
* .DA #$D0
* .DA #$64
* .DA #$30
* .DA #$FE
* .DA #$00
* .DA #$2C
* .DA #$CA
* .DA #$C1
* .DA #$7E
* .DA #$01
* .DA #$7A
* .DA #$20
* .DA #$40
* .DA #$60
* .DA #$FF
* .DA #$B1
* .DA #$90
* .DA #$24
* .DA #$E4
* .DA #$BB
* .DA #$AB
* .DA #$F0
* .DA #$9A
* .DA #$E3
* .DA #$40
* .DA #$76
* .DA #$24
* .DA #$E2
* .DA #$A9
* .DA #$94
* .DA #$2C
* .DA #$43
* .DA #$F0
* .DA #$08
* .DA #$B6
* .DA #$C4
* .DA #$E0
* .DA #$5B
* .DA #$AC
* .DA #$42
* .DA #$C4
* .DA #$3F
* .DA #$49
* .DA #$3E
* .DA #$A5
* .DA #$E3
* .DA #$1C
* .DA #$1F
* .DA #$05
* .DA #$1C
* .DA #$03
* .DA #$E9
* .DA #$AC
* .DA #$E5
* .DA #$AD
* .DA #$93
* .DA #$F0
* .DA #$60
* .DA #$BA
* .DA #$E4
* .DA #$BB
* .DA #$AB
* .DA #$F0
* .DA #$36
* .DA #$06
* .DA #$04
* .DA #$E5
* .DA #$D7
* .DA #$7F
* .DA #$56
* .DA #$74
* .DA #$E7
* .DA #$A2
* .DA #$04
* .DA #$43
* .DA #$F0
* .DA #$69
* .DA #$07
* .DA #$17
* .DA #$63
* .DA #$E0
* .DA #$51
* .DA #$B1
* .DA #$84
* .DA #$C4
* .DA #$BF
* .DA #$9A
* .DA #$E0
* .DA #$1D
* .DA #$55
* .DA #$4B
* .DA #$06
* .DA #$E1
* .DA #$07
* .DA #$16
* .DA #$71
* .DA #$01
* .DA #$74
* .DA #$F0
* .DA #$56
* .DA #$74
* .DA #$EC
* .DA #$0A
* .DA #$05
* .DA #$4E
* .DA #$86
* .DA #$06
* .DA #$81
* .DA #$C2
* .DA #$03
* .DA #$F0
* .DA #$05
* .DA #$BA
* .DA #$02
* .DA #$B1
* .DA #$8E
* .DA #$CA
* .DA #$AE
* .DA #$71
* .DA #$B0
* .DA #$24
* .DA #$F0
* .DA #$9A
* .DA #$CE
* .DA #$36
* .DA #$B4
* .DA #$2C
* .DA #$E2
* .DA #$A8
* .DA #$81
* .DA #$93
* .DA #$F0
* .DA #$06
* .DA #$0A
* .DA #$9C
* .DA #$10
* .DA #$9E
* .DA #$4B
* .DA #$BA
* .DA #$BF
* .DA #$36
* .DA #$B4
* .DA #$2C
* .DA #$AB
* .DA #$0A
* .DA #$E5
* .DA #$D7
* .DA #$7F
* .DA #$56
* .DA #$74
* .DA #$E9
* .DA #$AC
* .DA #$EA
* .DA #$05
* .DA #$49
* .DA #$F0
* .DA #$3D
* .DA #$05
* .DA #$76
* .DA #$21
* .DA #$C4
* .DA #$E5
* .DA #$67
* .DA #$4E
* .DA #$91
* .DA #$84
* .DA #$F0
* .DA #$56
* .DA #$74
* .DA #$E0
* .DA #$1D
* .DA #$06
* .DA #$0A
* .DA #$F0
* .DA #$56
* .DA #$74
* .DA #$0C
* .DA #$06
* .DA #$0D
* .DA #$E0
* .DA #$6C
* .DA #$67
* .DA #$7E
* .DA #$A0
* .DA #$54
* .DA #$9F
*--------------------------------------
XBBB5 .BS 2
XBBB7 .BS 1
XBBB8 .BS 1
*--------------------------------------
*BS.IsIntCmdMTR.OLD ldy #$02
*
*LBBBB lda BS.CMDBUF,y
* cmp BS.MTR,y
* bne LBBCF
*
* dey
* bpl LBBBB
*
* jsr BS.SetState0
* jsr MON.CLREOL
* jmp MON.ENTERMON
*
*LBBCF jmp BS.IsIntCmd
*
*BS.MTR .AS "MTR"
*--------------------------------------
*BS.IVERSION .DA #5
*--------------------------------------
BS.AS.HIMEMSave .BS 1
XBBD7 .BS 1
XBBD8 .BS 1
XBBD9 .DA #4
XBBDA .BS 1
XBBDB .BS 1
XBBDC .BS 1
XBBDD .BS 1
BS.TXTTAB .DA $0800
BS.MEMSIZE .DA $9600
XBBE2 .BS 1
XBBE3 .BS 1
BS.BAS.HDR .BS 5
XBBE9 .BS 1
XBBEA .BS 1
XBBEB .BS 1
XBBEC .BS 1
XBBED .BS 1
XBBEE .BS 1
XBBEF .BS 7
BS.REFNUMs .BS 8
XBBFE .BS 1
XBBFF .BS 1
XBC00 .BS 3
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
XBC12 .BS 1
XBC13 .BS 1
XBC14 .BS 1
XBC15 .BS 1
XBC16 .BS 1
*--------------------------------------
.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
XBC59 .BS 1
XBC5A .BS 1
XBC5B .BS 165
*--------------------------------------
MAN
SAVE usr/src/basic.fx/basic.s.d
LOAD usr/src/basic.fx/basic.s
ASM
Reference in New Issue View Git Blame Copy Permalink