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
|