LOC Data_Segment
            GREG @
adr         IS   @
array       OCTA 10,20,30,40,50
nr          IS (@-adr)/8

buffer      BYTE 0,0
newline     BYTE #a,0

            LOC #100
summe       IS  $0
mittel      IS  $1
no          IS  $2
array_adr   IS  $3
i           IS  $4
offset      IS  $5

Main        SET summe,0
            SET i,nr
            LDA array_adr,array
loop        SUB i,i,1
            MUL offset,i,8
            LDO no,array_adr,offset
            ADD summe,summe,no
            BNZ i,loop
            
            DIV mittel,summe,nr
            PUSHJ $0,print
            
            LDA $255,newline
            TRAP 0,Fputs,StdOut
            TRAP 0,Halt,0

            
Zahl        IS  $0
adr_rJ      IS  $1
Rest        IS  $2
tmp         IS  $4

print       GET adr_rJ,rJ
            DIV Zahl,Zahl,10
            GET Rest,rR
            BZ Zahl,anker
            SET tmp,Zahl
            PUSHJ $3,print
anker       ADD Rest,Rest,'0'
            
            STB Rest,buffer
            LDA $255,buffer
            TRAP 0,Fputs,StdOut
            PUT rJ,adr_rJ
            POP 0,0