;-*-Midas-*- Title Detdo .DECSAV A=5 B=6 C=7 T=12 TT=13 P=17 t1==1 t2==2 t3==2 PDLen==40 .INSRT MID:SYMBOLS .INSRT MID:MACROS PDL: -PDLen,,. Block PDLen OldMod: 0 Begin: RESET% Move P,PDL move 1,[sixbit /DETACH /] move 2,1 SETSN jfcl loop: movei 1,10000. disms% jrst loop END Begin