home *** CD-ROM | disk | FTP | other *** search
- ; SURVIVOR - a defensive warrior
- ; by maz spork - use against IMPs
- ;
- signat equ 42*42
- proglen equ last-start
- hdroom equ 50 ; headroom to pickets
- ;
- source dat 0
- ;
- start mov #signat, @low
- mov #signat, @high
- mov #proglen, source
- ;
- check cmp #signat, @low
- low jmp relocf, hdroom
- cmp #42*42, @high
- high jmp relocb, -hdroom
- destin jmp check, 0
- ;
- relocb mov #-2*hdroom, destin
- jmp relocat
- relocf mov #2*hdroom+proglen, destin
- relocat mov @source, <destin
- djn relocat, source
- jmp @destin, 12345
- last