FZBZ    START
        LAD    GR1,1
        LAD    GR2,0
        LAD    GR5,111    ;ダミーの値
        LAD    GR7,111    ;同上
LOOPA   CPA    GR2,=100
        JZE    SHOKI
        ST     GR1,IDATA,GR2
        LAD    GR1,1,GR1
        LAD    GR2,1,GR2
        JUMP   LOOPA
SHOKI   LAD    GR1,0
LOAD    CPA    GR1,=100
        JZE    NUKE7
        LD     GR0,IDATA,GR1
        LD     GR3,GR0
LOOP1   SUBA   GR3,=3
        JMI    COPY1
        JZE    NUKE1
        JUMP   LOOP1
NUKE1   LD     GR3,FIZZ
COPY1   LD     GR5,GR0
LOOP2   SUBA   GR5,=5
        JMI    COPY2
        JZE    NUKE2
        JUMP   LOOP2
NUKE2   LD     GR5,BUZZ
COPY2   LD     GR7,GR0
LOOP3   SUBA   GR7,=15
        JMI    KAKUNO1
        JZE    NUKE3
        JUMP   LOOP3
NUKE3   LD     GR7,FIBU
KAKUNO1 CPL    GR3,FIZZ
        JZE    NUKE4
KAKUNO2 CPL    GR5,BUZZ
        JZE    NUKE5
KAKUNO3 CPL    GR7,FIBU
        JZE    NUKE6        
        CPL    GR3,FIZZ
        JZE    KAKUNO5
        CPL    GR5,BUZZ
        JZE    KAKUNO6
        JUMP   KAKUNO4
NUKE4   ST     GR3,ODATA,GR1
        JUMP   KAKUNO2
NUKE5   ST     GR5,ODATA,GR1
        JUMP   KAKUNO3
NUKE6   ST     GR7,ODATA,GR1
        JUMP   INC
KAKUNO5 ST     GR3,ODATA,GR1
        JUMP   INC
KAKUNO6 ST     GR5,ODATA,GR1        
        JUMP   INC
KAKUNO4 ST     GR0,ODATA,GR1
INC     LAD    GR1,1,GR1
        JUMP   LOAD
NUKE7   RET
IDATA   DS     100
ODATA   DS     100
FIZZ    DC     'F'
BUZZ    DC     'B'
FIBU    DC     'Z'        
        END