9000 ;RUTIN  ANOLL
9001 ; TALUT=ABSOLUTBELOPP AV (TALIN-NOLL)
9002 ; SIGN= "-" =2DH  OM TALIN < NOLL
9003 ;       "+" =2BH  OM TALIN > NOLL
9004 ;       " " =20H  OM TALIN = NOLL
9005 ;IN VARIABEL TALIN  2 BYTE
9006 ;            NOLL   2 BYTE
9007 ;UT          TALUT  2 BYTE
9008 ;            SIGN   1 BYTE
9009 ;
9010 TALIN  EQU  3049H ;2
9011 TALUT  EQU  304BH ;2
9012 NOLL   EQU  3015H ;2
9013 SIGN   EQU  3017H ;1
9014 ;
9015        ORG  2D53H
9016 ANOLL  PUSH AF
9017        PUSH DE
9018        PUSH HL
9019        LD   DE,(NOLL)
9020        LD   HL,(TALIN)
9021        LD   A,"+
9022        SCF
9023        CCF
9024        SBC  HL,DE
9025        JR   Z,NOLLA
9026        JR   NC,KLAR  ; PLUS
9027 ;
9028        LD   HL,(TALIN)
9029        EX   DE,HL
9030        CCF
9031        SBC  HL,DE
9032        LD   A,"-
9033        JR   KLAR
9034 ;
9035 NOLLA  LD   A,20H  ; INGET TECKEN
9036 ;
9037 KLAR   LD   (SIGN),A
9038        LD   (TALUT),HL
9039        POP  HL
9040        POP  DE
9041        POP  AF
9042        RET
9043        DEFS 1