#ASM ccgchar: FCB 01FH,01 FCB 0E6H,084H ccsxt: FCB 01DH rts ccgint: FCB 01FH,01 FCB 0ECH,084H rts ccpchar: FCB 0E7H,084H rts ccpint: FCB 0EDH,084H rts ccor: FCB 034H,010H FCB 0AAH,0E0H FCB 0EAH,0E0H rts ccxor: FCB 034H,010H FCB 0A8H,0E0H FCB 0E8H,0E0H rts ccand: FCB 034H,010H FCB 0A4H,0E0H FCB 0E4H,0E0H rts cccmp: FCB 034H,006H FCB 01EH,01 FCB 08EH,0,1 FCB 0A3H,0E1H FCB 01EH,01 bmi ccmp1 FCB 01CH,0FEH rts ccmp1: FCB 01AH,01 rts cceq: bsr cccmp beq exit decb exit: rts ccne: bsr cccmp bne exit decb rts ccgt: FCB 01EH,01 bsr cccmp bcs exit decb rts ccle: bsr cccmp beq exit bcs exit decb rts ccge: bsr cccmp bcc exit decb rts cclt: bsr cccmp bcs exit decb rts ccuge: bsr ccucmp bcc exit decb rts ccult: bsr ccucmp bcs exit decb rts ccugt: FCB 01EH,01 bsr ccucmp bcs exit decb rts ccule: bsr ccucmp beq exit bcs exit decb rts ccucmp: FCB 034H,06 FCB 01EH,01 FCB 08EH,01 FCB 010H,0A3H,0E1H rts ccasr: FCB 01EH,01 lccasr: asra rorb FCB 030H,01FH bne lccasr rts ccasl: FCB 01EH,01 lccasl: aslb rola FCB 030H,01FH bne lccasl rts ccsub: FCB 034H,06 FCB 01eH,01 FCB 0A3H,0E1H rts cccom: coma comb rts ccneg: coma comb FCB 0C3H,00,01 rts ccmult: FCB 034H,016H clra clrb ccmul1: FCB 064H,0e4H FCB 066H,061H bcc ccmul2 FCB 0E3H,062H ccmul2: FCB 06dH,061H bne ccmul3 FCB 06DH,0E4H bne ccmul3 FCB 032H,064H rts ccmul3: FCB 068H,063H FCB 069H,062H bne ccmul1 FCB 06DH,063H bne ccmul1 FCB 032H,064H rts ccdiv: FCB 034H,016H FCB 0A8H,062H FCB 034H,006H clra clrb FCB 034H,006H FCB 06DH,064H bpl ccdiv0 FCB 0A3H,064H FCB 0EDH,064H ccdiv0: FCB 06DH,066H bpl ccdiv4 clra clrb FCB 0A3H,066H FCB 0EDH,066H ccdiv4: FCB 0CCH,0,010H FCB 034H,006H ccdiv1: FCB 068H,069H FCB 069H,068H FCB 069H,063H FCB 069H,062H bne ccdiv2 FCB 0ECH,062H FCB 010H,0A3H,066H bmi ccdiv2 FCB 06CH,069H FCB 0ECH,062H FCB 0A3H,066H FCB 0EDH,066H ccdiv2: FCB 06AH,061H bne ccdiv1 ccdiv3: FCB 06DH,064H bpl ccdivx clra clrb FCB 0A3H,062H FCB 032H,06AH ccdivx: rts #ENDASM  comb rts ccneg: coma comb FCB 0C3H,00,01