;name per88scs deltap equ CORESIZE/4 delay equ 16 longdelay equ 2000 gap equ 2*deltap-port0 port0 DAT #0, #0 for 300 DAT #0, #0 rof first DAT #0, #last-first second DAT #0, #last-second ;repair repair MOV zero, last MOV zero,