;name rep88scs-32 deltap equ CORESIZE/4 delay equ 32 gap equ 2*deltap-port0 port0 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