job Core-to-card ctl 6611 * x1 equ 89 x2 equ 94 * * Set word marks, punch the punch area * org 1 sw a,b sw c sw d,e sw f sw g,h sw i,fin3 bin *+1, sw end3,k079-2 sw 72,80 i1 rp 1 * * Copy 80-100 to 100-120 * org 1 loop1 mcw 100,120 a sar loop1+3 b mcw 100,120 c sbr loop1+6 d mcw loop1+6,b+6 e c loop1+3,k079 Q, Done f bu loop1 * * Set up to copy 181-240 to 121-180. Index registers have * been dumped so we can use them now. * g sbr x2,180 h sbr x1,240 i r 1 org 68 Handy for Autocoder format k079 dcw 079 * * Copy 181-240 to 121-180 and punch the card. * org 1 loop2 mn 0+x1,0+x2 sbr x2 mz 0+x1,1+x2 sar x1 b e2 org e e2 c x2,k120 bu loop2 * * Set up to copy 241-320 to 101-180 * sbr x2,180 sbr x1,320 rp 1 org 68 Handy for Autocoder format k120 dcw 120 * * Copy 241-320 to 101-180 and punch the card. Index registers have * been dumped so we can use them now. * org 1 loop3 mn 0+x1,0+x2 sbr x2 mz 0+x1,1+x2 sar x1 b e3 org e e3 c x2,k100 bu loop2 cs h3,h3-1 org h4 h3 sw 1 fin3 rp 1 end3 dcw #1 org 68 Handy for Autocoder format k100 dcw 100 * * Rearrange word marks * org 1 start sw a4,b4 a4 sw c4,d4 b4 bin c4, org inner c4 sw e4,f4 d4 bin e4, org oops e4 sw g4,h4 f4 sw i4,j4 g4 bin h4, org punch h4 sw k4 i4 sw l4 j4 r 1 k4 dcw #1 l4 dcw #1 * * Encode word marks from 81 to 560 as ampersands in the punch area * 80 at a time. * org 1 outer ma k080,test+6 a sbr x1,20 b bce done,test+4,5 Q, is Test+4 equal to 541 c inner mcw amper,81+x1 Assume there's a word mark d test bw *&8,15981+x1 Yup B=61, 141, 221, 301, 381, 461 e oops mcw blank,81&x1 OOPS f sbr x1,1+x1 bump the index g bce inner,x1-2,0 X1 less than 100 h punch p outer i done r 1 j k080 dsa 80 dc #1 k amper dcw @&@ l blank dcw #1 sfx 2 x1 equ 89 x2 equ 94 sbr x2,81 First word mark to copy sbr x1,180 sfx end start