--- 6502.inc.orig	2025-05-25 10:59:11.592347490 -0500
+++ 6502.inc	2025-05-25 10:54:24.158171844 -0500
@@ -1,3 +1,10 @@
+
+; Taken from: https://board.flatassembler.net/topic.php?t=18136
+;
+; Modified to add support for #< and #> syntax for loading immediate values
+; by grabbing the low or high byte of a label.
+ 
+
 ; $$$$$$$$$$$$$$ MOS 6502 ASSEMBLER $$$$$$$$$$$$$$
 ; WRITTEN FOR FASMG: \EXAMPLES\MOS. BY CODESTAR
 
@@ -211,6 +218,8 @@
 ; basic arithmetic
 
 ; opc #$44     ; immediate
+; opc #<label  ; immediate, extract low byte
+; opc #>label  ; immediate, extract high byte
 ; opc $AA      ; zero page
 ; opc $7F, x   ; zero page, x
 ; opc $4FFF    ; absolute
@@ -219,12 +228,26 @@
 ; opc ($AC, x) ; (indirect, x)
 ; opc ($DC), y ; (indirect), y
 
-macro mos_a name, aaa, p
+macro mos_a name, aaa, p&
   local i, mode, size
   i=0
   mode=0
   size=0
-  match #a, p             ; immediate
+  match #<a, p                 ; immediate, extract low byte
+    i=(a and $FF)
+    mode=010b
+    size=1
+    match =sta, name
+      err 'Invalid'
+    end match
+  else match #>a, p             ; immediate, extract high byte
+    i=((a shr 8) and $FF)
+    mode=010b
+    size=1
+    match =sta, name
+      err 'Invalid'
+    end match
+  else match #a, p             ; immediate
     i=a
     mode=010b
     size=1
@@ -284,7 +307,7 @@
   ora,000b, and,001b, eor,010b, adc,011b,\
   sta,100b, lda,101b, cmp,110b, sbc,111b
   macro name p&
-    mos_a name, o, <p>
+    mos_a name, o, p
   end macro
 end irp
 
@@ -293,17 +316,33 @@
 ; load/store x
 
 ; opc #$44     ; immediate
+; opc #<label  ; immediate, extract low byte
+; opc #>label  ; immediate, extract high byte
 ; opc $80      ; zero page
 ; opc $80, y   ; zero page, y
 ; opc $AAAA    ; absolute
 ; opc $AAAA, y ; absolute, y
 
-macro mos_lsx name, aaa, p
+macro mos_lsx name, aaa, p&
   local i, mode, size
   i=0
   mode=0
   size=0
-  match #a, p          ; immediate
+  match #>a, p              ; immediate, extract high byte
+    i=((a shr 8) and $FF)
+    mode=000b
+    size=1
+    match =stx, name
+      err 'Error'
+    end match
+  else match #<a, p         ; immediate, extract low byte
+    i=(a and $FF)
+    mode=000b
+    size=1
+    match =stx, name
+      err 'Error'
+    end match
+  else match #a, p          ; immediate
     i=a
     mode=000b
     size=1
@@ -350,27 +389,43 @@
 end macro
 
 macro stx p&
-  mos_lsx stx, 100b, <p>
+  mos_lsx stx, 100b, p
 end macro
 
 macro ldx p&
-  mos_lsx ldx, 101b, <p>
+  mos_lsx ldx, 101b, p
 end macro
 
 ;;;;;;;;;;;;;;;;;;;; STY, LDY ;;;;;;;;;;;;;;;;;;;;
 
 ; opc #$44     ; immediate
+; opc #>label  ; immediate, extract high byte
+; opc #<label  ; immediate, extract low byte
 ; opc $AA      ; zero page
 ; opc $7F, x   ; zero page, x
 ; opc $4FFF    ; absolute
 ; opc $88BB, x ; absolute, x
 
-macro mos_lsy name, aaa, p
+macro mos_lsy name, aaa, p&
   local i, mode, size
   i=0
   mode=0
   size=0
-  match #a, p        ; immediate
+  match #>a, p             ; immediate, extract high byte
+    i=((a shr 8) and $FF)
+    mode=000b
+    size=1
+    match =sty, name
+      err 'Error'
+    end match
+  else match #a, p        ; immediate, extract low byte
+    i=(a and $FF)
+    mode=000b
+    size=1
+    match =sty, name
+      err 'Error'
+    end match
+  else match #a, p        ; immediate
     i=a
     mode=000b
     size=1
@@ -415,11 +470,11 @@
 end macro
 
 macro sty p&
-  mos_lsy sty, 100b, <p>
+  mos_lsy sty, 100b, p
 end macro
 
 macro ldy p&
-  mos_lsy ldy, 101b, <p>
+  mos_lsy ldy, 101b, p
 end macro
 
 ;;;;;;;;;;;;;;;;;;;; CPX, CPY ;;;;;;;;;;;;;;;;;;;;