mirror of https://github.com/A2osX/A2osX.git
46 lines
960 B
Plaintext
46 lines
960 B
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST OFF
|
||
.OP 65c02
|
||
.OR $2000
|
||
.TF BIN/test
|
||
*--------------------------------------
|
||
.INB inc/monitor.i
|
||
.INB inc/bs.i
|
||
*--------------------------------------
|
||
HEADER cld Allows BRUN at ORG=$2000
|
||
jmp CODE.START for debugging without relocation
|
||
.DA #0 CMDBITS0
|
||
.DA #0 CMDBITS1
|
||
.DA 0 spare
|
||
.DA CODE.END
|
||
.DA DATA.END
|
||
.DA 0
|
||
.DA 0 spare....16 bytes header
|
||
*--------------------------------------
|
||
R.MSG .DA MSG
|
||
.DA 0
|
||
*--------------------------------------
|
||
CODE.START ldx #0
|
||
|
||
.1 lda MSG,x ABS relocation required
|
||
beq .8
|
||
|
||
jsr COUT
|
||
inx
|
||
jmp .1 ABS relocation required
|
||
|
||
|
||
.8 clc
|
||
rts
|
||
|
||
CODE.END .EQ *
|
||
*--------------------------------------
|
||
MSG .CZ -"\r\rHello from test EXT command.\r\r"
|
||
|
||
DATA.END .EQ *
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/basic.fx/test.s
|
||
ASM
|