1Program "Eco 1.1/ 1620/  500" (length 13) by "John Dilick <dilickjm@comcast.net>"
2
3       ORG      START
4START  MOV.I  {     0, >   390
5       SPL.F  #   -18, >   273
6       SPL.BA #  -393, {    -1
7       MOV.I  $    -3, {    -2
8       MOV.I  >     4, }     4
9       MOV.I  >    -6, }     2
10       MOV.I  <   286, >     2
11       DJN.B  <   208, }    -1
12       JMP.BA #  -383, >    15
13       MOD.A  }   381, <   284
14       JMP.AB #  -383, }    15
15       DIV.BA @    17, $  -395
16       SUB.AB }     4, {   -19
17
18