Added support for IRP, IRPC and IFN MACRO-10 pseudo-ops
This commit is contained in:
parent
1c3c9c9856
commit
3da33e3668
9 changed files with 406 additions and 311 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in a new issue