
 1000  *  MACRO BRANCH LIBRARY
 1010  *  BY R.F. 0'BRIEN
 1020  *--------------------------------
 1030  *   >BLT P1 (,P2)   BRANCH IF (A) < P1...TO P2
 1040         .MA BLT
 1050         .DO ]#>1
 1060         CMP ]1
 1070         BCC ]2
 1080         .ELSE
 1090         BCC ]1
 1100         .FIN
 1110         .EM
 1120  *--------------------------------
 1130  *   >BLE P1 (,P2)   BRANCH IF (A)<=P1...TO P2
 1140         .MA BLE
 1150         .DO ]#>1
 1160         CMP ]1
 1170         BEQ ]2
 1180         BCC ]2
 1190         .ELSE
 1200         BEQ ]1
 1210         BCC ]1
 1220         .FIN
 1230         .EM
 1240  *--------------------------------
 1250  *   >BGE P1 (,P2)   BRANCH IF (A)>=P1...TO P2
 1260         .MA BGE
 1270         .DO ]#>1
 1280         CMP ]1
 1290         BCS ]2
 1300         .ELSE
 1310         BCS ]1
 1320         .FIN
 1330         .EM
 1340  *--------------------------------
 1350  *   >BGT P1 (,P2)   BRANCH IF (A)>P1...TO P2
 1360         .MA BGT
 1370         .DO ]#>1
 1380         CMP ]1
 1390         BEQ :1
 1400         BCS ]2
 1410  :1
 1420         .ELSE
 1430         BEQ :1
 1440         BCS ]1
 1450  :1
 1460         .FIN
 1470         .EM
 1480  *--------------------------------
 1490  *   >BRA P1         BRANCH ALWAYS...TO P1
 1500         .MA BRA
 1510         CLV
 1520         BVC ]1
 1530         .EM
 1540  *--------------------------------
 1550  *   >BEQ P1 (,P2)   BRANCH IF (A)=P1...TO P2
 1560         .MA BEQ
 1570         .DO ]#>1
 1580         CMP ]1
 1590         BEQ ]2
 1600         .ELSE
 1610         BEQ ]1
 1620         .FIN
 1630         .EM
 1640  *--------------------------------
 1650  *   >BNE P1 (,P2)   BRANCH IF (A)<>P1...TO P2
 1660         .MA BNE
 1670         .DO ]#>1
 1680         CMP ]1
 1690         BNE ]2
 1700         .ELSE
 1710         BNE ]1
 1720         .FIN
 1730         .EM
 1740  *--------------------------------
 1750  *   >JMP P1,P2      BRANCH ALWAYS TO P1 BY
 1760  *                   BRANCHING TO P2 (SEE ARTICLE)
 1770         .MA JMP
 1780         CLV
 1790         BVC :1
 1800  ]2     CLV
 1810         BVC ]1
 1820  :1
 1830         .EM

