cardiograph-computer/test-programs/referencing-program-counter-during-assembly.asm

;; Test referencing address of line being assembled

NOP ; Push the const below to a later address
#initAddr *

LDA *
STO $25
FHP 0   ; hop if carry set
 JMP @setCarry
LDA #initAddr
END

@setCarry
  FTG 0
  JMP ($25)