name    harj2
         
          org     0
          dc.l    start
         
          org     h'20a10

start:    mov.l   #pali4, ER5   ;osoitin, joka paatyy osoittamaan lopusta alkuun
          mov.l   #pali4, ER6   ;osoitin, jolla selataan alusta loppuun
         
loppuun:  mov.b   @ER5, R3L      ;haetaan lauseesta merkki
          beq     etsika1        ;ollaan lopussa
          inc.l   #1, ER5        ;siirretaan osoitinta
          bra     loppuun        ;ihmetellaan seuraavaa

etsika:   inc.l   #1, ER6
          cmp.l   ER6, ER5
          blo     onpali
etsika1:  mov.b   @ER6, R3H      ;haetaan eka merkki
          cmp.b   #125, R3H      
          bhi     etsika
          cmp.b   #65, R3H
          blo     etsika
          cmp.b   #93, R3H
          bhi     valia
          bra     etsikl

valia:    cmp.b   #97, R3H
          blo     etsika
          bra     etsikl

etsikl:   dec.l   #1, ER5        ;siirretaan ER5ta yhdella taakse, ettei osoiteta loppuun/edelliseen
          cmp.l   ER5, ER6
          bhi     onpali
          mov.b   @ER5, R3L      ;haetaan viimeinen merkki lopusta
          cmp.b   #125, R3L      
          bhi     etsikl
          cmp.b   #65, R3L
          blo     etsikl
          cmp.b   #93, R3L
          bhi     valil
          bra     vertaa
          
valil:    cmp.b   #97, R3L
          blo     etsikl
          bra     vertaa
          
vertaa:   cmp.b   R3L, R3H
          beq     etsika
          add.b   #32, R3L
          cmp.b   R3L, R3H
          beq     etsika
          add.b   #64, R3H
          cmp.b   R3L, R3H
          beq     etsika
          bra     eipali

eipali:   bra     eipali
onpali:   bra     onpali

         
teksti:   dc.b    'Saippuakauppias.',0
pali1:    dc.b    'Aira laahasi kisahaalaria.',0
pali2:    dc.b    'No, Esa ja Vesa, asevaja se on.',0
pali3:    dc.b    'Atso-ukki, takkatikku osta!',0
pali4:    dc.b    'ennooopalinromi----perkeus',0

          end