2 files changed, 14 insertions(+), 13 deletions(-)

M .gitignore
M src/bligen.tal

@@ 7,5 7,6 @@
 *snarf
 *theme
 *nametable
+*.sym
 
 

@@ 18,7 18,7 @@
 	@rate $1
 
 	@pc $2
-	@f &2 $1 &r $1 &k $1
+	@fr &2 $1 &r $1 &k $1
 	@src $2
 	@dst $2
 	@err $1


@@ 179,12 179,12 @@ JMP2r
 		( exit on BRK )
 		DUP #00 EQU ,&halt JCN
 		( short mode )
-		DUP #20 AND #00 NEQ .f/2 STZ
+		DUP #20 AND #00 NEQ .fr/2 STZ
 		( return mode )
-		DUP #40 AND #00 NEQ STHk .f/r STZ
+		DUP #40 AND #00 NEQ STHk .fr/r STZ
 		;rst ;wst STHr [ JMP SWP2 ] .dst STZ2 .src STZ2
 		( keep mode )
-		DUP #80 AND #00 NEQ .f/k STZ
+		DUP #80 AND #00 NEQ .fr/k STZ
 		( copy pop pointer )
 		.src LDZ2 #00fe ADD2 LDAk DUP SWP2 STA2
 		( get routine )


@@ 224,7 224,7 @@ JMP2r
 (
 @|primitives )
 
-@push ( v* -- ) .f/2 LDZ ,&16 JCN
+@push ( v* -- ) .fr/2 LDZ ,&16 JCN
 &8 ( v* -- )
 	NIP
 	&byte


@@ 236,11 236,11 @@ JMP2r
 JMP2r
 &16 ( v* -- ) SWP ,&byte JSR ,&byte JSR JMP2r
 
-@pop ( -- v* ) .f/2 LDZ ,&16 JCN
+@pop ( -- v* ) .fr/2 LDZ ,&16 JCN
 &8 ( -- v* )
 	#00
 	&byte
-	.src LDZ2 #00fe ADD2 #00 .f/k LDZ ADD2 STH2k
+	.src LDZ2 #00fe ADD2 #00 .fr/k LDZ ADD2 STH2k
 	( err underflow ) LDA #ff EQU .err STZ
 	( decr ) .src LDZ2 STH2kr LDA #01 SUB STH2kr STA
 	( load ) #00 STH2r LDA ADD2 LDA


@@ 248,15 248,15 @@ JMP2r
 JMP2r
 &16 ( -- v* ) ,&byte JSR ,&byte JSR SWP JMP2r
 
-@poke ( v* a* -- ) .f/2 LDZ ,&16 JCN
+@poke ( v* a* -- ) .fr/2 LDZ ,&16 JCN
 &8 ;program ADD2 STA JMP2r
 &16 ;program ADD2 STA2 JMP2r
 
-@peek ( -- v* ) .f/2 LDZ ,&16 JCN
+@peek ( -- v* ) .fr/2 LDZ ,&16 JCN
 &8 ;program ADD2 LDA #00 SWP JMP2r
 &16 ;program ADD2 LDA2 JMP2r
 
-@warp ( a* -- ) .f/2 LDZ ,&16 JCN
+@warp ( a* -- ) .fr/2 LDZ ,&16 JCN
 &8 NIP ,rel JSR .pc STZ2 JMP2r
 &16 .pc STZ2 JMP2r
 


@@ 264,11 264,11 @@ JMP2r
 
 @rel ( a* -- ) DUP #7f GTH #ff MUL SWP .pc LDZ2 ADD2 JMP2r
 
-@devw ( v* p* -- ) OVR2 OVR2 ;send JSR2 ;dev ADD2 .f/2 LDZ ,&16 JCN
+@devw ( v* p* -- ) OVR2 OVR2 ;send JSR2 ;dev ADD2 .fr/2 LDZ ,&16 JCN
 &8 STA POP JMP2r
 &16 STA2 JMP2r
 
-@devr ( p* -- ) DUP2 ;receive JSR2 ;dev ADD2 .f/2 LDZ ,devr/16 JCN
+@devr ( p* -- ) DUP2 ;receive JSR2 ;dev ADD2 .fr/2 LDZ ,devr/16 JCN
 &8 LDA ;push JMP2
 &16 LDA2 ;push JMP2
 


@@ 279,7 279,7 @@ JMP2r
 
 	.pc LDZ2
 		DUP2 ;peek JSR2 ;push JSR2
-		#0001 .f/2 LDZ ADD ADD2 .pc STZ2
+		#0001 .fr/2 LDZ ADD ADD2 .pc STZ2
 
 JMP2r