r       IS $0  Rest 
Vorz    IS $1  Vorzeichen 
Num     IS $2 
DrZahl SUB SP,SP,3*8 push 
        STO $0,SP,0 
        STO $1,SP,8 
        STO $2,SP,16 
         
        LDO Num,SP,24 Pop Parameter  
  
        LDA $255,BUFFER+26 max. 25 Stellen 
        SETH Vorz,#8000 
        AND Vorz,Vorz,Num 
        PBZ Vorz,2F   
        NEG Num,Num 2-Kompl. berechnen
2H      SUB $255,$255,1 Zahl ohne VZ ausgeben 
        DIVU Num,Num,10 
        GET r,rR 
        INCL r,'0' 
        STBU r,$255,0 
        PBNZ Num,2B 
        PBZ Vorz,3F 
        SUB $255,$255,1 neg. VZ schreiben 
        SETL r,'-' 
        STBU r,$255,0 
3H      TRAP 0,Fputs,StdOut 
  
        LDO $2,SP,16 pop 
        LDO $1,SP,8 
        LDO $0,SP,0 
         
        ADD SP,SP,3*8 
  
        GO r,$0,0