stars.a

	!to "stars.bin", plain
	* = $1000
!zone sending {
sending:
	!word $0007		
	!word $C00D		;; Method
	!word $EFF0		;; name = nil
	!word .code
	!word .literals
	!word $0010		;; stack size
	!word $0004		;; 4 temps
	!word $EFF0		;; class = nil
	!word $EFF0		;; text = nil
.code	!word $8013
	!word $C00B
	!hex 4270		;; t0 := $8000
	!hex 5D4540305185	;; mark args for SEND
	;; #(nil putstr src dest destbank) MARK
	!hex 72			;; save in t2
	!hex 5D4541305185
	!hex 73			;; save in t3
	!hex 3292		;; putstr: string_a
	!hex 3392		;; putstr: string_b
	!hex F61000		;; loop
	!align 1,0
.literals
	!word $0006
	!word $C00A
	!word string_a	;; 40
	!word string_b
	!word $8000
	!word $0050
	!word $0008	;; 44
	!word putstr
}

!zone putstr {
;; args #(nil putstr src dest destbank)
;; blit i(src sbank dest dbank count -- )
putstr:	!word $0007
	!word $C00D		;; Method
	!word $EFF0		;; name
	!word .code
	!word $EFF0		;; literals = nil
	!word $0010		;; stack size
	!word $0000		;; temps
	!word $EFF0		;; class = nil
	!word $EFF0		;; text = nil
.code:  !word $800D
	!word $C00B		;; ByteArray
	!hex 22D104		;; push src count
	!hex 2423		;; push destbank dest
	!hex 5022		;; push 0 bank, src
	!hex 54D20A		;; skip header (add 4 to src)
	!hex D530		;; blit
	!hex F1			;; return self
	!align 1,0
}

string_a:
	!word $8004
	!word $C010		;; String
	!raw "****"

string_b:
	!word $8004
	!word $C010		;; String
	!raw "===="