2 ; Programme qui calcule une division entière entre deux nombres
3 ; puis affiche le quotient et le reste
7 ; Alexandre Terrasa (c) 2013
9 stro strA, d ; print(strA)
10 deci a, d ; a = deci()
14 brgt notErrA ; if( X < 0 ) {
15 stro strErrA, d ; print(strErrA)
18 notErrA: stro strB, d ; print(strB)
19 deci b, d ; b = deci()
23 brgt notErrB ; if( X < 0 ) {
24 stro strErrB, d ; print(strErrB)
27 notErrB: lda a, d ; A = a
30 brlt end ; while(A >= b) {
37 stro strQ, d ; print(strQ)
39 stro strR, d ; print(strR)
44 strA: .ASCII "a = \x00"
45 strB: .ASCII "b = \x00"
46 strQ: .ASCII "a / b = \x00"
47 strR: .ASCII " reste \x00"
48 strErrA: .ASCII "Erreur: a doit etre strictement positif\x00"
49 strErrB: .ASCII "Erreur: b doit etre strictement supperieur a 0\x00"