Added support for IRP, IRPC and IFN MACRO-10 pseudo-ops

This commit is contained in:
Jeff 2017-03-19 00:16:00 -07:00 committed by Jeff Parsons
commit 3da33e3668
9 changed files with 406 additions and 311 deletions

View file

@ -14,11 +14,11 @@
EXP ZZ ;;WORD FULL
ZZ==0> ;;START AGAIN WITH 0
ZZ=ZZ+9+"C"> ;;END OF IRPC
IFN ZZ,<DEFINE SHIFT ;;REMAINDER LEFT
IFE ZZ&777B8,> ;;IF NOT LEFT JUSTIFIED
ZZ=ZZ+9 ;;MOVE LEFT 9 BITS
SHIFT> ;;RECURSE
> ;;END OF DEFINE
IFN ZZ,<DEFINE SHIFT< ;;REMAINDER LEFT
IFE ZZ&777B8,< ;;IF NOT LEFT JUSTIFIED
ZZ=ZZ+9 ;;MOVE LEFT 9 BITS
SHIFT> ;;RECURSE
> ;;END OF DEFINE
SHIFT ;;START MOVING LEFT
EXP ZZ> ;;END OF IFN ZZ
> ;END OF CODE MACRO