mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-25 05:32:20 +00:00
49 lines
1.1 KiB
Plaintext
49 lines
1.1 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST OFF
|
||
.OP 65c02
|
||
.OR $2000
|
||
.TF BIN/fmt
|
||
*--------------------------------------
|
||
.MA DEBUG
|
||
:1 bit $C000
|
||
bpl :1
|
||
sta $C010
|
||
.EM
|
||
*--------------------------------------
|
||
.INB inc/bs.i
|
||
.INB inc/mon.i
|
||
*--------------------------------------
|
||
HEADER cld Allows BRUN at ORG=$2000
|
||
jmp CODE.START for debugging without relocation
|
||
.DA #CMDBITS0.FNOPT+CMDBITS0.CRFLG
|
||
.DA #CMDBITS1.A+CMDBITS1.B+CMDBITS1.E+CMDBITS1.F+CMDBITS1.SD+CMDBITS1.F
|
||
.DA 0 spare
|
||
.DA CODE.END
|
||
.DA DATA.END
|
||
.DA 0
|
||
.DA 0 spare....16 bytes header
|
||
*--------------------------------------
|
||
R.MSG.USAGE .DA MSG.USAGE
|
||
.DA 0
|
||
*--------------------------------------
|
||
CODE.START
|
||
|
||
ldy R.MSG.USAGE
|
||
lda R.MSG.USAGE+1
|
||
ldx #GP.TBOX.PrintF
|
||
jsr GP.TBOX
|
||
|
||
.8 clc
|
||
rts
|
||
|
||
CODE.END .EQ *
|
||
*--------------------------------------
|
||
MSG.USAGE .CZ -"\r\rHello from fmt EXT command.\r\r"
|
||
|
||
DATA.END .EQ *
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/basic.fx/fmt.s
|
||
ASM
|