;name rep-phage ;assert 1 deltap equ (CORESIZE/4) PORT0 equ (port0) PORT1 equ (port0+deltap) PORT2 equ (port0+2*deltap) PORT3 equ (port0+3*deltap) optima equ 73 confidence equ 10 gap equ 2*deltap-port0 port0 DAT #0, #0 for 700 DAT #0, #0 rof attack DAT #0, #0 first DAT #0, #last-first ;initialize begin MOV #port0-ploc, ploc MOV #2*deltap+port0-ploc2, ploc2 MOV zero, dat2 MOV zero, dat3 MOV zero, dat4 ;check (and set) the lock check SCS @ploc, first JMP next ;boot adjustb MOV #mov1-boot, boot loopb MOV @boot, @ploc ADD attack oldploc JMP moduleverify, #0 modulekill MOV zero, @attack JMN.B modulekill, >attack MOV #confidence, moduleverify JMP module moduleverify DJN modulebverify, #confidence SUB.BA attack, @attack ADD moduleinit, @attack JMN 0, modulestart SPL @oldploc, module JMP modulesplit moduleinit DAT #module-attack, #10 move MOV @ploc,