;     ***** GOSSIP LOGIC *****›LISTI››ORIGIN=$3000›INCLUDED:VAR.ASM›ORGORIGIN››SCREENS DS$0400    ;*****››INCLUDED:MODE4.BYT›INCLUDED:FTABLE.BYT›INCLUDED:VOICES.BYT›PMSPACEDS$0300    ;*****›INCLUDED:MAINSET.BYT›INCLUDED:DLI.ASM››VTAB1   = VOICES›VTAB2   = VTAB1+$0100›VTAB3   = VTAB2+$0100›VTAB4   = VTAB3+$0100›FTAB1   = VTAB4+$0100›PMBASE  = VOICES+$0400››UNKNOWN=0››LOGIC›JSRSETPLAYERS ;N=# OF PLAYERS›JSRBEEP›LDAN›STADIVISR›STAMULTPR›JSRMULTIPLY›LDAPRODLO›STANSQARE››; ** LOVDIS CONVERSION **›LDX#$FF›STXLOVDIS›KIMLP1LDA#0›CPX#196;2 BYTE DIVISION›BCCEIGHT?;IF >196 (255-60)›LDA#1›EIGHT?STADIVRHI›TXA›CLC›ADC#60›STADIVRLO›STXTEMCTR›JSRTWODIV›LDXTEMCTR›LDAPRODLO›SEC›SBC#60›STALOVDIS,X›DEX›BNEKIMLP1›; ** FILLING ARRAYS LOVE,X,Y,(T)TIMES **›B20LDA#8›IFLOOPSTAI›STALX›STAFY››LDA#8›JFLOOPSTAJ›STAFX››LDA#8›KFLOOPSTAK›STALZ›LDAJ›STALY›LDAI›CMPJ›BEQKSLFLV›CMPK›BEQKRANDM›JSRFLOVE2›LDY#0›LDA#0›STA(LOVESH),Y›JMPNEXTKF›KSLFLVCMPK›BNENOTCEN›JSRFINDPOS›LDA#128›STAXARRAY,Y›STAYARRAY,Y›NOTCENJSRFLOVE2›LDY#0›LDA#$FF›STA(LOVESH),Y›JMPNEXTKF›KRANDMLDXRANDOM›CPX#$29›BCCKRANDM›JSRFLOVE2›LDY#0›TXA›JSRKRND