~rabbits/chr-format

093831226cb34338b3f4a1e0950a659230c3ea6f — Devine Lu Linvega 1 year, 8 months ago e614d83 front
Fixed assembly syntax
1 files changed, 4 insertions(+), 4 deletions(-)

M tgachr/tgachr.tal
M tgachr/tgachr.tal => tgachr/tgachr.tal +4 -4
@@ 74,9 74,9 @@ BRK
	( print details )
	;src-txt ;print-str JSR2
	;print-str JSR2
	LIT '( #18 DEO #00
	LIT "( #18 DEO #00
	;image/image-type LDA #10 SFT ;image-types ADD2 LDA2 ;print-str JSR2
	LIT ') #18 DEO #0a18 DEO
	LIT ") #18 DEO #0a18 DEO

	( get parser )
	;image/image-type LDA


@@ 139,11 139,11 @@ JMP2r
	STH SWP2 NIP
	STHr SWP
	STH2r SFT #01 AND ,&do-set JCN
		( mask ) #01 #07 ROT #07 AND SUB #40 SFT SFT #ff EOR AND
		( mask ) #0107 ROT #07 AND SUB #40 SFT SFT #ff EOR AND
		( save ) ROT ROT STA
		JMP2r
	&do-set
		( mask ) #01 #07 ROT #07 AND SUB #40 SFT SFT ORA
		( mask ) #0107 ROT #07 AND SUB #40 SFT SFT ORA
		( save ) ROT ROT STA

JMP2r