TEST START
PRMAIN LD GR5,=3
ST GR5,KWR
MAIN LD GR1,CHPC
MAIND CPA GR1,KWR
JMI DJUMP
MAINE CPA GR1,KWR
JMI MAIN2
CPA GR1,KWR
JZE MAIN3
LD GR7,KWR
SUBA GR1,GR7
JUMP MAIND
MAIN2 LD GR2,KWR
LD GR4,KWR
SUBA GR4,ONE
TIMES ADDA GR2,KWR
SUBA GR4,ONE
JPL TIMES
CPA GR2,CHPC
JMI KPLUS
JUMP MAIN3
DJUMP LD GR3,GR1
JUMP MAINE
KPLUS LD GR5,KWR
ADDA GR5,TWO
ST GR5,KWR
JUMP MAIN
MAIN3 CPA GR3,KWR
JNZ OUTPUT
MAINF LD GR5,CHPC
ADDA GR5,TWO
ST GR5,CHPC
JUMP PRMAIN
OUTPUT CALL DECBIN
OUT CHPC,LEN
JUMP MAINF
CHPC DC 11
KWR DC 3
ONE DC 1
TWO DC 2
LEN DS 4
TEN DC 10
END
処が矢鱈数値の画面出力が難しい
PRMAIN LD GR5,=3
ST GR5,KWR
MAIN LD GR1,CHPC
MAIND CPA GR1,KWR
JMI DJUMP
MAINE CPA GR1,KWR
JMI MAIN2
CPA GR1,KWR
JZE MAIN3
LD GR7,KWR
SUBA GR1,GR7
JUMP MAIND
MAIN2 LD GR2,KWR
LD GR4,KWR
SUBA GR4,ONE
TIMES ADDA GR2,KWR
SUBA GR4,ONE
JPL TIMES
CPA GR2,CHPC
JMI KPLUS
JUMP MAIN3
DJUMP LD GR3,GR1
JUMP MAINE
KPLUS LD GR5,KWR
ADDA GR5,TWO
ST GR5,KWR
JUMP MAIN
MAIN3 CPA GR3,KWR
JNZ OUTPUT
MAINF LD GR5,CHPC
ADDA GR5,TWO
ST GR5,CHPC
JUMP PRMAIN
OUTPUT CALL DECBIN
OUT CHPC,LEN
JUMP MAINF
CHPC DC 11
KWR DC 3
ONE DC 1
TWO DC 2
LEN DS 4
TEN DC 10
END
処が矢鱈数値の画面出力が難しい